changeset 69:b6aabbe1a027

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sun, 05 Aug 2018 15:15:12 +0900
parents ec9ef70bf6e4
children a200fa7d5b70
files game09/game09.asm
diffstat 1 files changed, 1171 insertions(+), 1084 deletions(-) [+]
line wrap: on
line diff
--- a/game09/game09.asm	Sun Aug 05 10:34:37 2018 +0900
+++ b/game09/game09.asm	Sun Aug 05 15:15:12 2018 +0900
@@ -1,1409 +1,1496 @@
+*
+*     GAME09 interpreter
+*
+
+
+L3D09     equ $3D09
+L758E     equ $758E
+LA602     equ $A602
+
+LC1FA     equ $C1FA
+LC1FE     equ $C1FE
+LC889     equ $C889
+LC891     equ $C891
+LC893     equ $C893
+LC895     equ $C895
+LC8AF     equ $C8AF
+LC8B1     equ $C8B1
+LC8DA     equ $C8DA
+LC8FE     equ $C8FE
+LC912     equ $C912
+LC93A     equ $C93A
+LC962     equ $C962
+LC983     equ $C983
+LC9F2     equ $C9F2
+LCAE5     equ $CAE5
+LCAF8     equ $CAF8
+LCD00     equ $CD00
+LCD01     equ $CD01
+LCD09     equ $CD09
+LCD0C     equ $CD0C
+LCD14     equ $CD14
+
+LC814     equ $C814
+LC813     equ $C813
+
+
+LD7FC     equ $D7FC
+LD7FD     equ $D7FD
+LD7FE     equ $D7FE
+LD7FF     equ $D7FF
+LDF80     equ $DF80
+LDF82     equ $DF82
+
+LE000     equ $E000
+LEFFF     equ $EFFF
+LFB04     equ $FB04
+LFB8F     equ $FB8F
+LFB94     equ $FB94
+LFB95     equ $FB95
+LFB9A     equ $FB9A
+LFB9B     equ $FB9B
+LFBDF     equ $FBDF
+LFC8D     equ $FC8D
+LFD80     equ $FD80
+LFE00     equ $FE00
+LFF00     equ $FF00
+LFF38     equ $FF38
+LFF3A     equ $FF3A
+LFF3C     equ $FF3C
+LFF40     equ $FF40
+LFF48     equ $FF48
+LFF49     equ $FF49
+LFF4A     equ $FF4A
+LFF4B     equ $FF4B
+LFFFF     equ $FFFF
+
+
 LC000        BRA         LC005
 LC002           NOP  
 LC003        BRA         LC014
 LC005        LDA         #$FB
-             TFR         A,DP
-          LDX         #LE000
-             STX         <$7E
-             STX         <$50
-             LDA         #$FF
-             STA         ,X
+        TFR         A,DP
+        LDX         #LE000
+        STX         <$7E
+        STX         <$50
+        LDA         #$FF
+        STA         ,X
 LC014     LBSR        LCD00
-             LDA         #$FB
-             TFR         A,DP
-          LDX         #LEFFF
-             STX         <$58
+        LDA         #$FB
+        TFR         A,DP
+        LDX         #LEFFF
+        STX         <$58
 LC020        LDA         #$FF
-             STA         <$8C
+        STA         <$8C
 LC024  LDS         #LFE00
-          LDU         #LFD80
-       LEAX        >LC63F,PCR
-          LBSR        LC165
+        LDU         #LFD80
+        LEAX        >LC63F,PCR
+        LBSR        LC165
 LC032     LBSR        LC370
-             BCS         LC06D
-             STX         <$42
-          LBSR        LC1D3
-             BEQ         LC024
+        BCS         LC06D
+        STX         <$42
+        LBSR        LC1D3
+        BEQ         LC024
 LC03E        BSR         LC09C
 LC040        BMI         LC024
-             STX         <$42
+        STX         <$42
 LC044        LEAX        +$02,X
-             LDA         ,X+
-             CMPA        #$20
-             BNE         LC05B
-          LBSR        LC1D3
-             BNE         LC05F
-             LEAX        +$01,X
-             TST         ,X
-             BRA         LC040
+        LDA         ,X+
+        CMPA        #$20
+        BNE         LC05B
+        LBSR        LC1D3
+        BNE         LC05F
+        LEAX        +$01,X
+        TST         ,X
+        BRA         LC040
 LC057  LDS         #LFE00
 LC05B        BSR         LC0A8
-             BRA         LC040
+        BRA         LC040
 LC05F        LDX         <$42
-             STX         <$84
-             BSR         LC0A0
-             BMI         LC024
-             CMPX        <$84
-             BEQ         LC03E
-             BRA         LC044
+        STX         <$84
+        BSR         LC0A0
+        BMI         LC024
+        CMPX        <$84
+        BEQ         LC03E
+        BRA         LC044
 LC06D        STX         <$86
-             STD         <$4A
-             LDB         ,X
-             CMPB        #$2F
-             BNE         LC0B1
+        STD         <$4A
+        LDB         ,X
+        CMPB        #$2F
+        BNE         LC0B1
 LC077        BSR         LC09C
 LC079     LBSR        LC397
-             TST         ,X
-             BMI         LC024
-             BSR         LC087
-          LBSR        LC173
-             BRA         LC079
+        TST         ,X
+        BMI         LC024
+        BSR         LC087
+        LBSR        LC173
+        BRA         LC079
 LC087        LDD         ,X++
-             PSHS        X
-          LBSR        LC443
-             PULS        X
-          LBRA        LC165
+        PSHS        X
+        LBSR        LC443
+        PULS        X
+        LBRA        LC165
 LC093        LDX         <$42
-             LEAX        +$02,X
+        LEAX        +$02,X
 LC097        TST         ,X+
-             BNE         LC097
-                RTS  
+        BNE         LC097
+        RTS  
 LC09C        LDX         <$7E
 LC09E        STX         <$42
 LC0A0        LDD         ,X
-             BMI         LC0B0
-             SUBD        <$4A
-             BCC         LC0AF
+        BMI         LC0B0
+        SUBD        <$4A
+        BCC         LC0AF
 LC0A8     LBSR        LC173
-             BSR         LC093
-             BRA         LC09E
+        BSR         LC093
+        BRA         LC09E
 LC0AF           CLRA 
 LC0B0           RTS  
 LC0B1        LDX         <$4A
-             BEQ         LC077
-             BMI         LC117
-             LDX         <$50
-             LDA         ,X
-                INCA 
-             BNE         LC117
-             BSR         LC09C
-             BMI         LC0DE
-             LDX         ,X
-             CMPX        <$4A
-             BNE         LC0DE
-             BSR         LC093
-          LDY         <$42
+        BEQ         LC077
+        BMI         LC117
+        LDX         <$50
+        LDA         ,X
+        INCA 
+        BNE         LC117
+        BSR         LC09C
+        BMI         LC0DE
+        LDX         ,X
+        CMPX        <$4A
+        BNE         LC0DE
+        BSR         LC093
+        LDY         <$42
 LC0CD        LDA         ,X
-             STA         ,Y
-             CMPX        <$50
-             BEQ         LC0DB
-             LEAX        +$01,X
-             LEAY        +$01,Y
-             BRA         LC0CD
+        STA         ,Y
+        CMPX        <$50
+        BEQ         LC0DB
+        LEAX        +$01,X
+        LEAY        +$01,Y
+        BRA         LC0CD
 LC0DB     STY         <$50
 LC0DE        LDX         <$86
-             LDB         #$03
-             TST         ,X+
-             BEQ         LC114
+        LDB         #$03
+        TST         ,X+
+        BEQ         LC114
 LC0E6           INCB 
-             TST         ,X+
-             BNE         LC0E6
-                CLRA 
-             ADDD        <$50
-             TFR         D,Y
-             SUBD        <$58
-             BCC         LC117
-             LDX         <$50
-          STY         <$50
-             LEAX        +$01,X
-             LEAY        +$01,Y
+        TST         ,X+
+        BNE         LC0E6
+        CLRA 
+        ADDD        <$50
+        TFR         D,Y
+        SUBD        <$58
+        BCC         LC117
+        LDX         <$50
+        STY         <$50
+        LEAX        +$01,X
+        LEAY        +$01,Y
 LC0FD        LDB         ,-X
-             STB         ,-Y
-             CMPX        <$42
-             BNE         LC0FD
-          LDY         <$4A
-          STY         ,X++
-          LDY         <$86
+        STB         ,-Y
+        CMPX        <$42
+        BNE         LC0FD
+        LDY         <$4A
+        STY         ,X++
+        LDY         <$86
 LC10E        LDB         ,Y+
-             STB         ,X+
-             BNE         LC10E
+        STB         ,X+
+        BNE         LC10E
 LC114     LBRA        LC032
 LC117     LBRA        LC024
 LC11A     LDX         #LFB8F
-             TST         <$8C
-             BNE         LC124
-          LDX         #LFB95
+        TST         <$8C
+        BNE         LC124
+        LDX         #LFB95
 LC124     LEAY        <LC159,PCR
 LC127        PSHS        X
-             LDX         ,Y++
-             PSHU        X
-          LBSR        LC335
-             PULU        X
-             PULS        X
-             PSHS        A
-             LDA         <$83
-             ADDA        #$30
-             STA         ,X+
-             PULS        A
-             TST         +$01,Y
-             BNE         LC127
-             CLR         ,X
-             COM         ,-X
-             PSHS        X
-             LEAX        -$05,X
-                CLRA 
+        LDX         ,Y++
+        PSHU        X
+        LBSR        LC335
+        PULU        X
+        PULS        X
+        PSHS        A
+        LDA         <$83
+        ADDA        #$30
+        STA         ,X+
+        PULS        A
+        TST         +$01,Y
+        BNE         LC127
+        CLR         ,X
+        COM         ,-X
+        PSHS        X
+        LEAX        -$05,X
+        CLRA 
 LC14B        LEAX        +$01,X
-                INCA 
-             LDB         ,X
-             CMPB        #$30
-             BEQ         LC14B
-             COM         [,S++]
-             SUBA        #$06
+        INCA 
+        LDB         ,X
+        CMPB        #$30
+        BEQ         LC14B
+        COM         [,S++]
+        SUBA        #$06
 LC158           RTS  
-LC159        BEQ         LC16B
-             COM         <$E8
-             NEG         <$64
-             NEG         <$0A
-             NEG         <$01
-             NEG         <$00
+LC159        FDB          10000
+        FDB           1000
+        FDB            100
+        FDB             10
+        FDB              1
+        FDB              0
 LC165           CLRA 
 LC166        STA         <$94
 LC168        LDB         ,X+
-             CMPB        <$94
-             BEQ         LC158
-          LBSR        LC412
-             BRA         LC168
+        CMPB        <$94
+        BEQ         LC158
+        LBSR        LC412
+        BRA         LC168
 LC173     LBSR        LC650
-       LBCS        LC024
-                RTS  
+        LBCS        LC024
+        RTS  
 LC17B        CMPA        #$20
-             BEQ         LC1D1
-             CLR         <$4A
-             CLR         <$4B
-             LDB         +$01,X
-             BITB        #$DF
-             BNE         LC1A6
-             CMPA        #$5D
-             BNE         LC195
-             PULU        X,B,A
-             STD         <$46
-             STX         <$42
-             BRA         LC1C6
+        BEQ         LC1D1
+        CLR         <$4A
+        CLR         <$4B
+        LDB         +$01,X
+        BITB        #$DF
+        BNE         LC1A6
+        CMPA        #$5D
+        BNE         LC195
+        PULU        X,B,A
+        STD         <$46
+        STX         <$42
+        BRA         LC1C6
 LC195        CMPA        #$40
-             BNE         LC1A6
-             LEAX        +$01,X
-             STX         <$46
-                CLRA 
-                CLRB 
-          LDY         <$42
-             PSHU        Y,X,B,A
-             BRA         LC1D3
+        BNE         LC1A6
+        LEAX        +$01,X
+        STX         <$46
+        CLRA 
+        CLRB 
+        LDY         <$42
+        PSHU        Y,X,B,A
+        BRA         LC1D3
 LC1A6        CMPA        #$22
-             BNE         LC1CA
-             LEAX        +$01,X
-             BSR         LC166
-             BRA         LC1D3
+        BNE         LC1CA
+        LEAX        +$01,X
+        BSR         LC166
+        BRA         LC1D3
 LC1B0        CMPA        #$5C
-             BNE         LC1B9
-          LBSR        LC676
-             BRA         LC1D3
+        BNE         LC1B9
+        LBSR        LC676
+        BRA         LC1D3
 LC1B9        STX         <$84
-             BSR         LC1EC
-          LBSR        LC39F
-             BSR         LC173
-             LDX         <$4A
-             BNE         LC1D7
+        BSR         LC1EC
+        LBSR        LC39F
+        BSR         LC173
+        LDX         <$4A
+        BNE         LC1D7
 LC1C6        LDX         <$46
-             BRA         LC1D3
+        BRA         LC1D3
 LC1CA        CMPA        #$2F
-             BNE         LC1B0
-          LBSR        LC397
+        BNE         LC1B0
+        LBSR        LC397
 LC1D1        LEAX        +$01,X
 LC1D3        LDA         ,X
-             BNE         LC17B
+        BNE         LC17B
 LC1D7           RTS  
 LC1D8        PSHS        A
-             LEAX        +$01,X
-             BSR         LC1F6
-             LDX         <$46
+        LEAX        +$01,X
+        BSR         LC1F6
+        LDX         <$46
 LC1E0     LDY         <$42
-             PSHU        Y,X,B,A
-             PULS        PC,B,A
+        PSHU        Y,X,B,A
+        PULS        PC,B,A
 LC1E7        LDA         #$3D
-          LBRA        LC4F9
+        LBRA        LC4F9
 LC1EC        LDA         ,X+
-             BITA        #$DF
-             BEQ         LC1E7
-             CMPA        #$3D
-             BNE         LC1EC
+        BITA        #$DF
+        BEQ         LC1E7
+        CMPA        #$3D
+        BNE         LC1EC
 LC1F6     LBSR        LC521
 LC1F9        PSHS        B
-             LDB         ,X
-             BITB        #$DF
-             BEQ         LC210
-             CMPB        #$29
-             BEQ         LC214
-             CMPB        #$2C
-             BEQ         LC1D8
-             PULS        B
-          LBSR        LC29C
-             BRA         LC1F9
+        LDB         ,X
+        BITB        #$DF
+        BEQ         LC210
+        CMPB        #$29
+        BEQ         LC214
+        CMPB        #$2C
+        BEQ         LC1D8
+        PULS        B
+        LBSR        LC29C
+        BRA         LC1F9
 LC210        STX         <$46
-             PULS        PC,B
+        PULS        PC,B
 LC214        LEAX        +$01,X
-             PULS        PC,B
+        PULS        PC,B
 LC218        CMPB        #$3F
-             BNE         LC22E
-             PSHS        X
-             STB         <$8C
-          LBSR        LC5D8
-             BSR         LC1F6
-             PULS        X
-             LEAX        +$01,X
-                RTS  
-             LEAX        +$01,X
-             BRA         LC1F6
+        BNE         LC22E
+        PSHS        X
+        STB         <$8C
+        LBSR        LC5D8
+        BSR         LC1F6
+        PULS        X
+        LEAX        +$01,X
+        RTS  
+        LEAX        +$01,X
+        BRA         LC1F6
 LC22E        BSR         LC287
-             CMPA        #$3A
-             BEQ         LC239
-             BSR         LC26E
+        CMPA        #$3A
+        BEQ         LC239
+        BSR         LC26E
 LC236        LDD         ,Y
-                RTS  
+        RTS  
 LC239        BSR         LC269
-                CLRA 
+        CLRA 
 LC23C        LDB         ,Y
 LC23E           RTS  
 LC23F        CMPB        #$22
-             BCS         LC218
-             CMPB        #$2D
-             BHI         LC218
-             SUBB        #$22
-                LSLB 
-          LEAY        <LC251,PCR
-             LDD         B,Y
-             JMP         D,Y
+        BCS         LC218
+        CMPB        #$2D
+        BHI         LC218
+        SUBB        #$22
+        LSLB 
+        LEAY        <LC251,PCR
+        LDD         B,Y
+        JMP         D,Y
 
 LC251                fdb         LC6EC-*       049b
-                     fdb         LC535-*       02e2
-                     fdb         LC5A1-*       034c
-                     fdb         LC545-*       02ee
-                     fdb         LC236-*       ffdd
-                     fdb         LC54E-*       02f3
-                     fdb         LC236-*       ffd9
-                     fdb         LC23C-*       ffdd
-                     fdb         LC23E-*       ffdd
-                     fdb         LC53F-*       02dc
-                     fdb         LC242-*       ffdd
-                     fdb         LC53F-*       02d8
+        fdb         LC535-*       02e2
+        fdb         LC5A1-*       034c
+        fdb         LC545-*       02ee
+        fdb         LC236-*       ffdd
+        fdb         LC54E-*       02f3
+        fdb         LC236-*       ffd9
+        fdb         LC23C-*       ffdd
+        fdb         LC23E-*       ffdd
+        fdb         LC53F-*       02dc
+        fdb         LC23F-*       ffdd
+        fdb         LC53F-*       02d8
 
 LC269        BSR         LC279
-             LEAY        D,Y
-                RTS  
+        LEAY        D,Y
+        RTS  
 LC26E        CMPA        #$28
-             BNE         LC292
-             BSR         LC279
-                LSLB 
-                ROLA 
-             LEAY        D,Y
-                RTS  
+        BNE         LC292
+        BSR         LC279
+        LSLB 
+        ROLA 
+        LEAY        D,Y
+        RTS  
 LC279        BSR         LC292
-          LDY         ,Y
-             PSHS        Y
-             LEAX        +$01,X
-          LBSR        LC1F6
-             PULS        PC,Y
+        LDY         ,Y
+        PSHS        Y
+        LEAX        +$01,X
+        LBSR        LC1F6
+        PULS        PC,Y
 LC287        LDB         ,X+
 LC289        LDA         ,X+
-             CMPA        #$41
-             BPL         LC289
-             LEAX        -$01,X
-                RTS  
+        CMPA        #$41
+        BPL         LC289
+        LEAX        -$01,X
+        RTS  
 
 LC292        ANDB        #$3F
-                CLRA 
-                LSLB 
-          ADDD        #LFB04
-             TFR         D,Y
-                RTS  
+        CLRA 
+        LSLB 
+        ADDD        #LFB04
+        TFR         D,Y
+        RTS  
 LC29C        PSHU        B,A
-             LDD         ,X+
-             PSHS        B,A
-             SUBB        #$3D
-             BEQ         LC2A9
-                DECB 
-             BNE         LC2AB
+        LDD         ,X+
+        PSHS        B,A
+        SUBB        #$3D
+        BEQ         LC2A9
+        DECB 
+        BNE         LC2AB
 LC2A9        LEAX        +$01,X
 LC2AB     LBSR        LC521
-             PULU        Y
-             EXG         D,Y
-             PSHU        Y,B,A
-             PULS        B,A
-             CMPA        #$3D
-             BNE         LC2C4
-             PULU        B,A
-             SUBD        ,U++
-             BNE         LC2E4
+        PULU        Y
+        EXG         D,Y
+        PSHU        Y,B,A
+        PULS        B,A
+        CMPA        #$3D
+        BNE         LC2C4
+        PULU        B,A
+        SUBD        ,U++
+        BNE         LC2E4
 LC2C0           CLRA 
-             LDB         #$01
-                RTS  
+        LDB         #$01
+        RTS  
 LC2C4        CMPA        #$3C
-             BNE         LC2E7
-             CMPB        #$3D
-             BEQ         LC2D7
-             CMPB        #$3E
-             PULU        B,A
-             BNE         LC2E0
-             SUBD        ,U++
-             BNE         LC2C0
-                RTS  
+        BNE         LC2E7
+        CMPB        #$3D
+        BEQ         LC2D7
+        CMPB        #$3E
+        PULU        B,A
+        BNE         LC2E0
+        SUBD        ,U++
+        BNE         LC2C0
+        RTS  
 LC2D7        PULU        B,A
-             SUBD        ,U++
-             BLE         LC2C0
-                CLRA 
-                CLRB 
-                RTS  
+        SUBD        ,U++
+        BLE         LC2C0
+        CLRA 
+        CLRB 
+        RTS  
 LC2E0        SUBD        ,U++
-             BLT         LC2C0
+        BLT         LC2C0
 LC2E4           CLRA 
-                CLRB 
-                RTS  
+        CLRB 
+        RTS  
 LC2E7        CMPA        #$3E
-             BNE         LC2FF
-             CMPB        #$3D
-             PULU        B,A
-             BNE         LC2F8
-             SUBD        ,U++
-             BGE         LC2C0
-                CLRA 
-                CLRB 
-                RTS  
+        BNE         LC2FF
+        CMPB        #$3D
+        PULU        B,A
+        BNE         LC2F8
+        SUBD        ,U++
+        BGE         LC2C0
+        CLRA 
+        CLRB 
+        RTS  
 LC2F8        SUBD        ,U++
-             BGT         LC2C0
-                CLRA 
-                CLRB 
-                RTS  
+        BGT         LC2C0
+        CLRA 
+        CLRB 
+        RTS  
 LC2FF        CMPA        #$2B
-             BNE         LC308
-             PULU        B,A
-             ADDD        ,U++
-                RTS  
+        BNE         LC308
+        PULU        B,A
+        ADDD        ,U++
+        RTS  
 LC308        CMPA        #$2D
-             BNE         LC311
-             PULU        B,A
-             SUBD        ,U++
-                RTS  
+        BNE         LC311
+        PULU        B,A
+        SUBD        ,U++
+        RTS  
 LC311        CMPA        #$2A
-       LBNE        LC653
-             PULU        B,A
+        LBNE        LC653
+        PULU        B,A
 LC319        EXG         A,B
-             PSHU        B,A
-             LDB         +$03,U
-                MUL  
-             STD         <$82
-             BSR         LC32B
-             BSR         LC32B
-             LDD         <$82
-             LEAU        +$02,U
-                RTS  
+        PSHU        B,A
+        LDB         +$03,U
+        MUL  
+        STD         <$82
+        BSR         LC32B
+        BSR         LC32B
+        LDD         <$82
+        LEAU        +$02,U
+        RTS  
 LC32B        PULU        A
-             LDB         +$01,U
-                MUL  
-             ADDB        <$82
-             STB         <$82
-                RTS  
+        LDB         +$01,U
+        MUL  
+        ADDB        <$82
+        STB         <$82
+        RTS  
 LC335        CLR         ,-S
 LC337        INC         ,S
-             LSL         +$01,U
-             ROL         ,U
-             BCC         LC337
-             ROR         ,U
-             ROR         +$01,U
-             CLR         <$82
-             CLR         <$83
+        LSL         +$01,U
+        ROL         ,U
+        BCC         LC337
+        ROR         ,U
+        ROR         +$01,U
+        CLR         <$82
+        CLR         <$83
 LC347        SUBD        ,U
-             BCC         LC351
-             ADDD        ,U
-             ANDCC       #$FE
-             BRA         LC353
+        BCC         LC351
+        ADDD        ,U
+        ANDCC       #$FE
+        BRA         LC353
 LC351        ORCC        #$01
 LC353        ROR         <$83
-             ROR         <$82
-             DEC         ,S
-             BEQ         LC361
-             LSR         ,U
-             ROR         +$01,U
-             BRA         LC347
+        ROR         <$82
+        DEC         ,S
+        BEQ         LC361
+        LSR         ,U
+        ROR         +$01,U
+        BRA         LC347
 LC361        LEAS        +$01,S
-                RTS  
+        RTS  
 LC364        LDB         ,X
-             CMPB        #$30
-             BCS         LC36D
-             CMPB        #$3A
-                RTS  
+        CMPB        #$30
+        BCS         LC36D
+        CMPB        #$3A
+        RTS  
 LC36D        ANDCC       #$FE
-                RTS  
+        RTS  
 LC370     LBSR        LC5D8
 LC373        BSR         LC364
-             BCC         LC396
-                CLRA 
-                CLRB 
+        BCC         LC396
+        CLRA 
+        CLRB 
 LC379        ADDB        ,X+
-             ADCA        #$00
-          SUBD        #LC030
-             PSHU        B,A
-             BSR         LC364
-             LDD         ,U
-             BCC         LC392
-                LSLB 
-                ROLA 
-                LSLB 
-                ROLA 
-             ADDD        ,U++
-                LSLB 
-                ROLA 
-             BRA         LC379
+        ADCA        #$00
+        SUBD        #$030
+        PSHU        B,A
+        BSR         LC364
+        LDD         ,U
+        BCC         LC392
+        LSLB 
+        ROLA 
+        LSLB 
+        ROLA 
+        ADDD        ,U++
+        LSLB 
+        ROLA 
+        BRA         LC379
 LC392        PULU        B,A
-             ORCC        #$01
+        ORCC        #$01
 LC396           RTS  
 LC397        LDB         #$0D
-             BSR         LC39D
+        BSR         LC39D
 LC39B        LDB         #$0A
 LC39D        BRA         LC412
 LC39F        PSHS        B,A
-             LDA         #$01
-             STA         <$8C
-             LDX         <$84
-             LDB         ,X
-             CMPB        #$2E
-             BNE         LC3BA
-             PULS        A
-             LDA         ,S+
+        LDA         #$01
+        STA         <$8C
+        LDX         <$84
+        LDB         ,X
+        CMPB        #$2E
+        BNE         LC3BA
+        PULS        A
+        LDA         ,S+
 LC3B1        BEQ         LC3C4
-             LDB         #$20
-             BSR         LC412
-                DECA 
-             BRA         LC3B1
+        LDB         #$20
+        BSR         LC412
+        DECA 
+        BRA         LC3B1
 LC3BA        CMPB        #$3B
-             BNE         LC3C5
-             LDD         ,S++
-       LBEQ        LC057
+        BNE         LC3C5
+        LDD         ,S++
+        LBEQ        LC057
 LC3C4           RTS  
 LC3C5        CMPB        #$40
-             BNE         LC3E4
-             LDB         +$02,X
-          LBSR        LC292
-             PULS        B,A
-             STD         ,Y
-             PULU        B,A
-             SUBD        ,Y
-             BLT         LC3E1
-             PULU        X,B,A
-             STD         <$46
-             STX         <$42
-             LEAU        -$06,U
-                RTS  
+        BNE         LC3E4
+        LDB         +$02,X
+        LBSR        LC292
+        PULS        B,A
+        STD         ,Y
+        PULU        B,A
+        SUBD        ,Y
+        BLT         LC3E1
+        PULU        X,B,A
+        STD         <$46
+        STX         <$42
+        LEAU        -$06,U
+        RTS  
 LC3E1        LEAU        +$04,U
-                RTS  
+        RTS  
 LC3E4        CMPB        #$26
-             BNE         LC3FA
+        BNE         LC3FA
 LC3E8        LDB         +$01,X
-             CMPB        #$3D
-             BNE         LC3FA
-             LDD         ,S++
-             BNE         LC3F9
-             LDX         <$7E
-             STX         <$50
-                DECA 
-             STA         ,X
+        CMPB        #$3D
+        BNE         LC3FA
+        LDD         ,S++
+        BNE         LC3F9
+        LDX         <$7E
+        STX         <$50
+        DECA 
+        STA         ,X
 LC3F9           RTS  
 LC3FA        CMPB        #$21
-             BNE         LC40C
-             PULS        B,A
-             STD         <$4A
-             BEQ         LC40B
-          LDY         <$42
-             LDX         <$46
-             PSHU        Y,X
+        BNE         LC40C
+        PULS        B,A
+        STD         <$4A
+        BEQ         LC40B
+        LDY         <$42
+        LDX         <$46
+        PSHU        Y,X
 LC40B           RTS  
 LC40C        CMPB        #$24
-             BNE         LC415
-             PULS        B,A
+        BNE         LC415
+        PULS        B,A
 LC412     LBRA        LC64A
 LC415        CMPB        #$3F
-             BNE         LC449
-             LDB         +$01,X
-             CMPB        #$28
-       LBNE        LC56E
-          LBSR        LC51F
+        BNE         LC449
+        LDB         +$01,X
+        CMPB        #$28
+        LBNE        LC56E
+        LBSR        LC51F
 LC424        STB         <$8E
-             PULS        B,A
-             BSR         LC433
-             ADDA        <$8E
-             BMI         LC430
-             BSR         LC3B1
+        PULS        B,A
+        BSR         LC433
+        ADDA        <$8E
+        BMI         LC430
+        BSR         LC3B1
 LC430     LBRA        LC165
 LC433           TSTA 
-       LBPL        LC11A
-          LBSR        LC4F3
-          LBSR        LC11A
-             LDB         #$2D
-             STB         ,-X
-                RTS  
+        LBPL        LC11A
+        LBSR        LC4F3
+        LBSR        LC11A
+        LDB         #$2D
+        STB         ,-X
+        RTS  
 LC443        PSHS        B,A
-             LDB         #$05
-             BRA         LC424
+        LDB         #$05
+        BRA         LC424
 LC449        CMPB        #$3D
-             BNE         LC460
-             PULS        B,A
-             STD         <$7E
-          LDX         #LFFFF
-             STX         <$4A
-          LBSR        LC09C
-             STX         <$50
-          LBRA        LC024
+        BNE         LC460
+        PULS        B,A
+        STD         <$7E
+        LDX         #LFFFF
+        STX         <$4A
+        LBSR        LC09C
+        STX         <$50
+        LBRA        LC024
 LC45E        PULS        PC,B,A
 LC460        CMPB        #$3E
-             BNE         LC46C
-             LDD         ,S
-             BEQ         LC45E
-             JSR         [,S++]
-             PSHS        B,A
+        BNE         LC46C
+        LDD         ,S
+        BEQ         LC45E
+        JSR         [,S++]
+        PSHS        B,A
 LC46C        LDX         <$84
-          LBSR        LC287
-             CMPA        #$3A
-             BNE         LC47D
-          LBSR        LC269
-             PULS        B,A
-             STB         ,Y
-                RTS  
+        LBSR        LC287
+        CMPA        #$3A
+        BNE         LC47D
+        LBSR        LC269
+        PULS        B,A
+        STB         ,Y
+        RTS  
 LC47D     LBSR        LC26E
-             PULS        B,A
-             STD         ,Y
-                RTS  
-             LDA         +$01,X
-             CMPA        #$4E
-             BEQ         LC48E
-          LBRA        LC7D7
+        PULS        B,A
+        STD         ,Y
+        RTS  
+        LDA         +$01,X
+        CMPA        #$4E
+        BEQ         LC48E
+        LBRA        LC7D7
 LC48E        TST         +$02,X
-             BNE         LC494
-             CLR         +$03,X
+        BNE         LC494
+        CLR         +$03,X
 LC494        LEAX        +$03,X
-             CLR         <$8C
-          LBSR        LC373
-             BCS         LC4A0
-          LDD         #LC3E8
+        CLR         <$8C
+        LBSR        LC373
+        BCS         LC4A0
+        LDD         #LC3E8
 LC4A0        STD         <$88
-             LDB         ,X
-             CMPB        #$2C
-             BNE         LC4AF
-             LEAX        +$01,X
-          LBSR        LC373
-             BCS         LC4B2
-LC4AF     LDD         #LC00A
+        LDB         ,X
+        CMPB        #$2C
+        BNE         LC4AF
+        LEAX        +$01,X
+        LBSR        LC373
+        BCS         LC4B2
+LC4AF     LDD         #$00A
 LC4B2        STD         <$8A
-                RTS  
+        RTS  
 LC4B5        CMPA        #$2F
-             BNE         LC4F9
-             CLR         <$8D
-             LDD         +$02,U
-             BEQ         LC4F9
-             BMI         LC4D4
-       CMPD        #LC002
-             BNE         LC4DE
-             PULU        B,A
-             CLR         <$4E
-             CLR         <$4F
-                ASRA 
-                RORB 
-             ROR         <$4F
-             LEAU        +$02,U
-                RTS  
+        BNE         LC4F9
+        CLR         <$8D
+        LDD         +$02,U
+        BEQ         LC4F9
+        BMI         LC4D4
+        CMPD        #LC002
+        BNE         LC4DE
+        PULU        B,A
+        CLR         <$4E
+        CLR         <$4F
+        ASRA 
+        RORB 
+        ROR         <$4F
+        LEAU        +$02,U
+        RTS  
 LC4D4        INC         <$8D
-             NEG         +$03,U
-             BNE         LC4DC
-             DEC         +$02,U
+        NEG         +$03,U
+        BNE         LC4DC
+        DEC         +$02,U
 LC4DC        COM         +$02,U
 LC4DE        LDD         ,U++
-             BPL         LC4E6
-             DEC         <$8D
-             BSR         LC4F3
+        BPL         LC4E6
+        DEC         <$8D
+        BSR         LC4F3
 LC4E6     LBSR        LC335
-             LEAU        +$02,U
-             STD         <$4E
-             LDD         <$82
-             TST         <$8D
-             BEQ         LC4F8
+        LEAU        +$02,U
+        STD         <$4E
+        LDD         <$82
+        TST         <$8D
+        BEQ         LC4F8
 LC4F3           NEGB 
-             BNE         LC4F7
-                DECA 
+        BNE         LC4F7
+        DECA 
 LC4F7           COMA 
 LC4F8           RTS  
 LC4F9     LBSR        LC397
-             LDB         #$3F
-             STB         <$8C
-          LBSR        LC412
-             TFR         A,B
-          LBSR        LC412
-             LDB         #$20
-          LBSR        LC412
-             LDX         <$42
-          CMPX        #LFB95
-             BNE         LC519
-          LBSR        LC165
-             BRA         LC51C
+        LDB         #$3F
+        STB         <$8C
+        LBSR        LC412
+        TFR         A,B
+        LBSR        LC412
+        LDB         #$20
+        LBSR        LC412
+        LDX         <$42
+        CMPX        #LFB95
+        BNE         LC519
+        LBSR        LC165
+        BRA         LC51C
 LC519     LBSR        LC087
 LC51C     LBRA        LC024
 LC51F        LEAX        +$01,X
 LC521     LBSR        LC373
-             BCS         LC532
-          LBRA        LC23F
-             BSR         LC51F
-             BRA         LC4F3
-             BSR         LC51F
-                TSTA 
-             BMI         LC4F3
+        BCS         LC532
+        LBRA        LC23F
+        BSR         LC51F
+        BRA         LC4F3
+        BSR         LC51F
+        TSTA 
+        BMI         LC4F3
 LC532           RTS  
-             BSR         LC51F
+        BSR         LC51F
 LC535        PSHS        B,A
-             LDD         ,S++
-       LBNE        LC2E4
-                INCB 
-                RTS  
+        LDD         ,S++
+        LBNE        LC2E4
+        INCB 
+        RTS  
 LC53F        BSR         LC51F
-             LDD         <$4E
-                RTS  
-             BSR         LC51F
-             PSHU        B,A
-             LDD         <$52
-             PSHU        B,A
-          LDD         #L3D09
-          LBSR        LC319
-          ADDD        #LC001
-             STD         <$52
-             TFR         A,B
-                CLRA 
-          LBSR        LC319
-             TFR         A,B
-                CLRA 
-          ADDD        #LC001
-                RTS  
-             NEG         <$00
-             NEG         <$00
-                CLRA 
-             LDB         +$01,X
-             LEAX        +$03,X
-                RTS  
+        LDD         <$4E
+        RTS  
+LC545
+        BSR         LC51F
+        PSHU        B,A
+        LDD         <$52
+        PSHU        B,A
+LC54E
+        LDD         #L3D09
+        LBSR        LC319
+        ADDD        #1
+        STD         <$52
+        TFR         A,B
+        CLRA 
+        LBSR        LC319
+        TFR         A,B
+        CLRA 
+        ADDD        #1
+        RTS  
+LC564
+        NEG         <$00
+        NEG         <$00
+LC568
+        CLRA 
+        LDB         +$01,X
+        LEAX        +$03,X
+        RTS  
 LC56E        CMPB        #$3F
-             BEQ         LC57E
-             CMPB        #$24
-             BEQ         LC582
-             PULS        B,A
-          LBSR        LC433
-          LBRA        LC165
+        BEQ         LC57E
+        CMPB        #$24
+        BEQ         LC582
+        PULS        B,A
+        LBSR        LC433
+        LBRA        LC165
 LC57E        LDB         ,S
-             BSR         LC584
+        BSR         LC584
 LC582        PULS        B,A
 LC584        TFR         B,A
-             BSR         LC58E
-             TFR         A,B
-             ANDB        #$0F
-             BRA         LC592
+        BSR         LC58E
+        TFR         A,B
+        ANDB        #$0F
+        BRA         LC592
 LC58E           LSRB 
-                LSRB 
-                LSRB 
-                LSRB 
+        LSRB 
+        LSRB 
+        LSRB 
 LC592        CMPB        #$0A
-             BMI         LC598
-             ADDB        #$07
+        BMI         LC598
+        ADDB        #$07
 LC598        ADDB        #$30
-          LBRA        LC412
-                CLRA 
-             BSR         LC5BD
-       LBCC        LC64D
+        LBRA        LC412
+        CLRA 
+        BSR         LC5BD
+LC5A1
+        LBCC        LC64D
 LC5A4        PSHS        B
-             BSR         LC5BD
-             PSHU        B
-             PULS        B
-             BCC         LC5BA
-                LSLB 
-                ROLA 
-                LSLB 
-                ROLA 
-                LSLB 
-                ROLA 
-                LSLB 
-                ROLA 
-             ADDB        ,U+
-             BRA         LC5A4
+        BSR         LC5BD
+        PSHU        B
+        PULS        B
+        BCC         LC5BA
+        LSLB 
+        ROLA 
+        LSLB 
+        ROLA 
+        LSLB 
+        ROLA 
+        LSLB 
+        ROLA 
+        ADDB        ,U+
+        BRA         LC5A4
 LC5BA        LEAU        +$01,U
-                RTS  
+        RTS  
 LC5BD        LEAX        +$01,X
-             LDB         ,X
-             SUBB        #$30
-             BCS         LC5D2
-             CMPB        #$0A
-             BCS         LC5D1
-             SUBB        #$07
-             CMPB        #$0A
-             BCS         LC5D2
-             CMPB        #$10
+        LDB         ,X
+        SUBB        #$30
+        BCS         LC5D2
+        CMPB        #$0A
+        BCS         LC5D1
+        SUBB        #$07
+        CMPB        #$0A
+        BCS         LC5D2
+        CMPB        #$10
 LC5D1           RTS  
 LC5D2        ANDCC       #$FE
-                RTS  
+        RTS  
 LC5D5     LBSR        LC397
 LC5D8        LDB         #$3A
-             BSR         LC64A
-          LDX         #LFB95
-             TST         <$8C
-             BNE         LC5F2
-             LDD         <$88
-       LBMI        LC020
-          LBSR        LC443
-             LDB         #$20
-             STB         -$01,X
-             BSR         LC64A
+        BSR         LC64A
+        LDX         #LFB95
+        TST         <$8C
+        BNE         LC5F2
+        LDD         <$88
+        LBMI        LC020
+        LBSR        LC443
+        LDB         #$20
+        STB         -$01,X
+        BSR         LC64A
 LC5F2        BSR         LC64D
-             CMPB        #$08
-             BEQ         LC634
-             CMPB        #$0D
-             BCS         LC5F2
-             BEQ         LC611
-             CMPB        #$18
-             BEQ         LC5D5
-             STB         ,X+
-          CMPX        #LFBDF
-             BNE         LC5F2
-             LEAX        -$01,X
-             LDB         #$08
-             BSR         LC64A
-             BRA         LC5F2
+        CMPB        #$08
+        BEQ         LC634
+        CMPB        #$0D
+        BCS         LC5F2
+        BEQ         LC611
+        CMPB        #$18
+        BEQ         LC5D5
+        STB         ,X+
+        CMPX        #LFBDF
+        BNE         LC5F2
+        LEAX        -$01,X
+        LDB         #$08
+        BSR         LC64A
+        BRA         LC5F2
 LC611        TST         <$8C
-             BNE         LC626
-          CMPX        #LFB9B
-             BEQ         LC61F
-          CMPX        #LFB9A
-             BCC         LC626
+        BNE         LC626
+        CMPX        #LFB9B
+        BEQ         LC61F
+        CMPX        #LFB9A
+        BCC         LC626
 LC61F        COM         <$8C
-          LBSR        LC39B
-             BRA         LC5D8
+        LBSR        LC39B
+        BRA         LC5D8
 LC626        LDD         <$88
-             ADDD        <$8A
-             STD         <$88
-             CLR         ,X
-          LDX         #LFB95
-          LBRA        LC39B
+        ADDD        <$8A
+        STD         <$88
+        CLR         ,X
+        LDX         #LFB95
+        LBRA        LC39B
 LC634        LEAX        -$01,X
-          CMPX        #LFB94
-             BNE         LC5F2
-             STB         <$8C
-             BRA         LC5D8
+        CMPX        #LFB94
+        BNE         LC5F2
+        STB         <$8C
+        BRA         LC5D8
+LC63F
+        FCB         $D,$A
+        FCS         "*READY"
+        FCB         $D,$A,0
 
-                     FCB         $D,$A
-                     FCS         "*READY"
-                     FCB         $D,$A,0
-
-LC64A     LBRA        LC6FE     OUTCH
+LC64A     LBRA        OUTCH
 LC64D     LBRA        LC6FC     GETCH
 LC650     LBRA        LC720     SENSE
 LC653        CMPA        #$2E      EXBOP
-             BNE         LC65E
-             PULU        B,A
-             ORA         ,U+
-             ORB         ,U+
-                RTS  
+        BNE         LC65E
+        PULU        B,A
+        ORA         ,U+
+        ORB         ,U+
+        RTS  
 LC65E        CMPA        #$26
-             BNE         LC669
-             PULU        B,A
-             ANDA        ,U+
-             ANDB        ,U+
-                RTS  
+        BNE         LC669
+        PULU        B,A
+        ANDA        ,U+
+        ANDB        ,U+
+        RTS  
 LC669        CMPA        #$21           
-       LBNE        LC4B5
-             PULU        B,A
-             EORA        ,U+
-             EORB        ,U+
-                RTS  
+        LBNE        LC4B5
+        PULU        B,A
+        EORA        ,U+
+        EORB        ,U+
+        RTS  
 LC676        LDD         +$01,X      EXTEND
-             LEAX        +$03,X
-             PSHS        U,X,B,A
-       LEAY        >LC737,PCR
+        LEAX        +$03,X
+        PSHS        U,X,B,A
+        LEAY        >OPCMD,PCR
 LC680        LDX         ,Y
-             BMI         LC6E7
-             CMPX        ,S
-             BEQ         LC68C
-             LEAY        +$05,Y
-             BRA         LC680
+        BMI         LC6E7
+        CMPX        ,S
+        BEQ         LC68C
+        LEAY        +$05,Y
+        BRA         LC680
 LC68C        LEAY        +$03,Y
-             LEAS        +$02,S
-             LDX         ,S
-             LDA         -$01,Y
-             BEQ         LC6C3
-             PSHS        Y,A
-             LDA         #$20
+        LEAS        +$02,S
+        LDX         ,S
+        LDA         -$01,Y
+        BEQ         LC6C3
+        PSHS        Y,A
+        LDA         #$20
 LC69A        CMPA        ,X+
-             BEQ         LC69A
-             LDA         ,-X
-             STX         +$03,S
+        BEQ         LC69A
+        LDA         ,-X
+        STX         +$03,S
 LC6A2        BITA        #$DF
-             BEQ         LC6B0
-             CMPA        #$2C
-             BEQ         LC6AE
-             BSR         LC6C9
-             BRA         LC6B3
+        BEQ         LC6B0
+        CMPA        #$2C
+        BEQ         LC6AE
+        BSR         LC6C9
+        BRA         LC6B3
 LC6AE        LEAX        +$01,X
 LC6B0     LDD         #LFFFF
 LC6B3        PSHU        B,A
-             LDA         ,X
-             DEC         ,S
-             BNE         LC6A2
-             LDD         +$03,S
-             STX         +$03,S
-             TFR         D,X
-             PULS        Y,A
+        LDA         ,X
+        DEC         ,S
+        BNE         LC6A2
+        LDD         +$03,S
+        STX         +$03,S
+        TFR         D,X
+        PULS        Y,A
 LC6C3        LDD         ,Y
-             JSR         D,Y
-             PULS        PC,U,X
+        JSR         D,Y
+        PULS        PC,U,X
 LC6C9     LBSR        LC521
 LC6CC        PSHS        B
-             LDB         ,X
-             BITB        #$DF
-             BEQ         LC6E5
-             CMPB        #$2C
-             BEQ         LC6E3
-             CMPB        #$29
-             BEQ         LC6E3
-             PULS        B
-          LBSR        LC29C
-             BRA         LC6CC
+        LDB         ,X
+        BITB        #$DF
+        BEQ         LC6E5
+        CMPB        #$2C
+        BEQ         LC6E3
+        CMPB        #$29
+        BEQ         LC6E3
+        PULS        B
+        LBSR        LC29C
+        BRA         LC6CC
 LC6E3        LEAX        +$01,X
 LC6E5        PULS        PC,B
 LC6E7        PULS        U,X,B,A
-          LBRA        LC4F9
+        LBRA        LC4F9
 LC6EC        LEAX        +$01,X
-             LDB         ,X+
+        LDB         ,X+
 LC6F0        LDA         ,X+
-             BEQ         LC6F8
-             CMPA        #$22
-             BNE         LC6F0
+        BEQ         LC6F8
+        CMPA        #$22
+        BNE         LC6F0
 LC6F8           CLRA 
-                RTS  
-LC6FA     STB         LFC8D
-             CLR         <$34
-          LBRA        L758E
-          STB         LA602
-             STB         +$02,X
+        RTS  
+LC6FA          FDB      $FCFD
+
+GETCH
+LC6FC           BSR         LC70D
+OUTCH
+        PSHS        X,B,A
+        LDX         <LC6FA,PCR
+        LDA         +$02,X
+        STB         +$02,X
 LC707        LDA         +$03,X
-             BPL         LC707
-             PULS        PC,X,B,A
-             PSHS        X
-          LDX         <LC6FA,PCR
+        BPL         LC707
+        PULS        PC,X,B,A
+LC70D
+        PSHS        X
+        LDX         <LC6FA,PCR
 LC712        LDB         +$01,X
-             BPL         LC712
-             LDB         ,X
-             CMPB        #$18
-       LBEQ        LC003
-             PULS        PC,X
+        BPL         LC712
+        LDB         ,X
+        CMPB        #$18
+        LBEQ        LC003
+        PULS        PC,X
+SENSE
 LC720        PSHS        X,A
-          LDX         <LC6FA,PCR
-             LDA         +$01,X
-             BPL         LC731
-             BSR         LC6FC
-             CMPB        #$18
-             BEQ         LC734
-             BSR         LC6FC
+        LDX         <LC6FA,PCR
+        LDA         +$01,X
+        BPL         LC731
+        BSR         LC6FC
+        CMPB        #$18
+        BEQ         LC734
+        BSR         LC6FC
 LC731           CLRA 
-             PULS        PC,X,A
+        PULS        PC,X,A
+LC734        COMA 
+        PULS        PC,X,A
+
 
-                    * COMMAND TABLE CONSIST....
-                    *    COMMAND NAME (2 BYTE)
-                    *    PARAMETER COUNT (1 BYTE)
-                    *    OFSET TO SUBROUTIE FROM HERE (1 WORD)
-                    **************************
-           OPCMD    FCC "AT",2 START LINE,STEP
-                    FDB CAUTO-*
-                    FCC "RN",3 RENUM first line no,inc,renum start
-                    FDB RENUM-*
-                    FCC "RD",3 DISK READ address,track,sector
-                    FDB GETDK-*
-                    FCC "WR",3 DISK WRITE
-                    FDB PUTDK-*
-                    FCC "SY",0 TO SYSTEM
-                    FDB SYSTEM-*
-                    FDB -1,-1,-1,-1,-1,-1
-                    *************************
-
-             LDD         ,U++
-             BPL         LC762
-                CLRA 
-                CLRB 
+        * COMMAND TABLE CONSIST....
+        *    COMMAND NAME (2 BYTE)
+        *    PARAMETER COUNT (1 BYTE)
+        *    OFSET TO SUBROUTIE FROM HERE (1 WORD)
+        **************************
+OPCMD               FCB 'A','T',2 START LINE,STEP
+        FDB CAUTO-*
+        FCB 'R','N',3 RENUM first line no,inc,renum start
+        FDB RENUM-*
+        * FCB 'R','D',3 DISK READ address,track,sector
+        * FDB GETDK-*
+        * FCB 'W','R',3 DISK WRITE
+        * FDB PUTDK-*
+        FCB 'S','Y',0 TO SYSTEM
+        FDB SYSTEM-*
+        FDB -1,-1,-1,-1,-1,-1
+        *************************
+RENUM
+        LDD         ,U++
+        BPL         LC762
+        CLRA 
+        CLRB 
 LC762        STD         <$4A
-          LBSR        LC09C
-             BMI         LC789
-             LDD         ,U++
-             BPL         LC770
-          LDD         #LC00A
+        LBSR        LC09C
+        BMI         LC789
+        LDD         ,U++
+        BPL         LC770
+        LDD         #$00A
 LC770     LDY         ,U++
-             BPL         LC779
-       LDY         #LC3E8
+        BPL         LC779
+        LDY         #LC3E8
 LC779     STY         ,X++
-          LBSR        LC173
-             LEAY        D,Y
+        LBSR        LC173
+        LEAY        D,Y
 LC781        TST         ,X+
-             BNE         LC781
-             TST         ,X
-             BPL         LC779
+        BNE         LC781
+        TST         ,X
+        BPL         LC779
 LC789           RTS  
-             LDD         ,U++
-             BPL         LC791
-          LDD         #LC00A
+CAUTO
+        LDD         ,U++
+        BPL         LC791
+        LDD         #$00A
 LC791        STD         <$8A
-             LDD         ,U
-             BEQ         LC79E
-             BPL         LC79C
-          LDD         #LC3E8
+        LDD         ,U
+        BEQ         LC79E
+        BPL         LC79C
+        LDD         #LC3E8
 LC79C        STD         <$88
 LC79E        CLR         <$8C
-                RTS  
-             BSR         LC7B6
-          LBSR        LCD09
-             BNE         LC7B1
-                RTS  
-             BSR         LC7B6
-          LBSR        LCD0C
-             BNE         LC7B1
-                RTS  
+        RTS  
+        BSR         LC7B6
+        LBSR        LCD09
+        BNE         LC7B1
+        RTS  
+        BSR         LC7B6
+        LBSR        LCD0C
+        BNE         LC7B1
+        RTS  
 LC7B1        LDA         #$44
-          LBRA        LC4F9
+        LBRA        LC4F9
 LC7B6        LDX         +$04,U
-             LDA         +$03,U
-             LDB         +$01,U
-                RTS  
-                SWI  
-             DEC         <$02
-          LDA         LD7FC
-             CMPA        #$18
-             BEQ         LC7D3
+        LDA         +$03,U
+        LDB         +$01,U
+        RTS  
+SYSTEM
+        SWI  
+        DEC         <$02
+        LDA         LD7FC
+        CMPA        #$18
+        BEQ         LC7D3
 LC7C7     TST         LD7FD
-             BPL         LC7C7
-          LDA         LD7FC
-             ANDCC       #$FE
-             PULS        PC,A
+        BPL         LC7C7
+        LDA         LD7FC
+        ANDCC       #$FE
+        PULS        PC,A
 LC7D3        ORCC        #$01
-             PULS        PC,A
+        PULS        PC,A
+LC7D7       LBRA        LCA96
+
+        org         $c800
+        LBRA        LCA96
+        LBRA        LC8CA
+        LBRA        LC9F2
 
-                     org         $c800
-          LBRA        LCA96
-          LBRA        LC8CA
-          LBRA        LC9F2
-LC809        STB         <$FC
-LC80B        STB         <$FD
-LC80D        STB         <$FE
-LC80F        STB         <$FF
-             SUBB        +$00,X
-LC813        SUBA        #$0E
+LC809          FDB         $D7FC  
+LC80B          FDB         $D7FD 
+LC80D          FDB         $D7FE 
+LC80F          FDB         $D7FF 
+        FDB         $E000 
+        FDB         $800E 
+
+        
 LC815     LDA         [<LC80B,PCR]
-             BPL         LC815
-          LDA         [<LC809,PCR]
-             BRA         LC831
+        BPL         LC815
+        LDA         [<LC809,PCR]
+        BRA         LC831
 LC81F           LSRA 
-                LSRA 
-                LSRA 
-                LSRA 
+        LSRA 
+        LSRA 
+        LSRA 
 LC823        ANDA        #$0F
-             CMPA        #$0A
-             BCS         LC82B
-             ADDA        #$07
+        CMPA        #$0A
+        BCS         LC82B
+        ADDA        #$07
 LC82B        ADDA        #$30
-             BRA         LC831
+        BRA         LC831
 LC82F        LDA         #$20
 LC831     LDB         [<LC80D,PCR]
-          STA         [<LC80D,PCR]
+        STA         [<LC80D,PCR]
 LC837     LDB         [<LC80F,PCR]
-             BPL         LC837
-             JMP         ,U
+        BPL         LC837
+        JMP         ,U
 LC83E        CMPA        #$30
-             BCS         LC856
-             CMPA        #$3A
-             BCC         LC84A
-             SUBA        #$30
-             BRA         LC858
+        BCS         LC856
+        CMPA        #$3A
+        BCC         LC84A
+        SUBA        #$30
+        BRA         LC858
 LC84A        CMPA        #$41
-             BCS         LC856
-             CMPA        #$47
-             BCC         LC856
-             SUBA        #$37
-             BRA         LC858
+        BCS         LC856
+        CMPA        #$47
+        BCC         LC856
+        SUBA        #$37
+        BRA         LC858
 LC856        ORCC        #$01
 LC858        JMP         ,U
 LC85A        EXG         D,X
-                LSLB 
-                ROLA 
-                LSLB 
-                ROLA 
-                LSLB 
-                ROLA 
-                LSLB 
-                ROLA 
-             EXG         D,X
-             LEAX        A,X
-             JMP         ,U
+        LSLB 
+        ROLA 
+        LSLB 
+        ROLA 
+        LSLB 
+        ROLA 
+        LSLB 
+        ROLA 
+        EXG         D,X
+        LEAX        A,X
+        JMP         ,U
 LC86A        TFR         U,Y
-             LDA         #$0D
-          LEAU        <LC874,PCR
-          LBRA        LC831
+        LDA         #$0D
+        LEAU        <LC874,PCR
+        LBRA        LC831
 LC874        LDA         #$0A
-          LEAU        <LC87C,PCR
-          LBRA        LC831
+        LEAU        <LC87C,PCR
+        LBRA        LC831
 LC87C        JMP         ,Y
 LC87E        TFR         U,Y
-             LDA         ,X
-          LEAU        <LC888,PCR
-          LBRA        LC81F
+        LDA         ,X
+        LEAU        <LC888,PCR
+        LBRA        LC81F
 LC888        LDA         ,X
-          LEAU        <LC890,PCR
-          LBRA        LC823
+        LEAU        <LC890,PCR
+        LBRA        LC823
 LC890        JMP         ,Y
 LC892        TFR         U,Y
 LC894        TFR         X,D
-          LEAU        <LC89C,PCR
-          LBRA        LC81F
+        LEAU        <LC89C,PCR
+        LBRA        LC81F
 LC89C        TFR         X,D
-          LEAU        <LC8A4,PCR
-          LBRA        LC823
+        LEAU        <LC8A4,PCR
+        LBRA        LC823
 LC8A4        TFR         X,D
-             TFR         B,A
-          LEAU        <LC8AE,PCR
-          LBRA        LC81F
+        TFR         B,A
+        LEAU        <LC8AE,PCR
+        LBRA        LC81F
 LC8AE        TFR         X,D
-             TFR         B,A
-          LEAU        <LC8B8,PCR
-          LBRA        LC823
+        TFR         B,A
+        LEAU        <LC8B8,PCR
+        LBRA        LC823
 LC8B8        JMP         ,Y
-             TFR         U,Y
+        TFR         U,Y
 LC8BC        LDA         ,X+
 LC8BE        BEQ         LC8C8
-          LEAU        <LC8C6,PCR
-          LBRA        LC831
+        LEAU        <LC8C6,PCR
+        LBRA        LC831
 LC8C6        BRA         LC8BC
 LC8C8        JMP         ,Y
 LC8CA     LEAU        <LC8D0,PCR
-          LBRA        LC86A
+        LBRA        LC86A
 LC8D0     LEAU        <LC8D6,PCR
-          LBRA        LC86A
+        LBRA        LC86A
 LC8D6        LDA         #$2A
-          LEAU        <LC8DE,PCR
-          LBRA        LC831
-LC8DE  LDY         #LC000
+        LEAU        <LC8DE,PCR
+        LBRA        LC831
+LC8DE  LDY         #0
 LC8E2     LEAU        <LC8E8,PCR
-          LBRA        LC815
+        LBRA        LC815
 LC8E8        CMPA        #$47
 LC8EA  LBEQ        LC915
-             CMPA        #$4D
-       LBEQ        LC931
-             CMPA        #$53
-       LBEQ        LC96B
-          LEAU        <LC900,PCR
-          LBRA        LC83E
+        CMPA        #$4D
+        LBEQ        LC931
+        CMPA        #$53
+        LBEQ        LC96B
+        LEAU        <LC900,PCR
+        LBRA        LC83E
 LC900        BCS         LC8CA
-             LEAY        ,Y
-             BNE         LC90D
-       LDY         #LC001
-          LDX         #LC000
+        LEAY        ,Y
+        BNE         LC90D
+        LDY         #1
+        LDX         #0
 LC90D     LEAU        <LC913,PCR
-          LBRA        LC85A
+        LBRA        LC85A
 LC913        BRA         LC8E2
 LC915     LEAU        <LC91B,PCR
-          LBRA        LC86A
+        LBRA        LC86A
 LC91B     LEAU        <LC921,PCR
-          LBRA        LC892
+        LBRA        LC892
 LC921     LEAU        <LC927,PCR
-          LBRA        LC82F
+        LBRA        LC82F
 LC927        LDA         #$47
-          LEAU        <LC92F,PCR
-          LBRA        LC831
+        LEAU        <LC92F,PCR
+        LBRA        LC831
 LC92F        JMP         ,X
 LC931  LDB         >LC814,PCR
 LC935  ORB         >LC813,PCR
-             TFR         B,DP
-          LEAU        <LC941,PCR
-          LBRA        LC86A
+        TFR         B,DP
+        LEAU        <LC941,PCR
+        LBRA        LC86A
 LC941     LEAU        <LC947,PCR
-          LBRA        LC892
+        LBRA        LC892
 LC947     LEAU        <LC94D,PCR
 LC94A     LBRA        LC82F
 LC94D     LEAU        <LC953,PCR
-          LBRA        LC82F
+        LBRA        LC82F
 LC953     LEAU        <LC959,PCR
-          LBRA        LC87E
+        LBRA        LC87E
 LC959        LEAX        +$01,X
-             TFR         DP,B
-             SUBB        #$10
-             TFR         B,DP
-             BITB        #$F0
-             BNE         LC94D
-                DECB 
-             BNE         LC935
-          LBRA        LC8CA
+        TFR         DP,B
+        SUBB        #$10
+        TFR         B,DP
+        BITB        #$F0
+        BNE         LC94D
+        DECB 
+        BNE         LC935
+        LBRA        LC8CA
 LC96B     LEAU        <LC971,PCR
-          LBRA        LC86A
+        LBRA        LC86A
 LC971     LEAU        <LC977,PCR
-          LBRA        LC892
+        LBRA        LC892
 LC977     LEAU        <LC97D,PCR
-          LBRA        LC82F
+        LBRA        LC82F
 LC97D     LEAU        <LC983,PCR
-             BCS         LC94A
-             LEAY        ,Y
-             BNE         LC98D
-       LDY         #LC001
-          LDX         #LC000
+        BCS         LC94A
+        LEAY        ,Y
+        BNE         LC98D
+        LDY         #1
+        LDX         #0
 LC98D     LEAU        <LC993,PCR
-          LBRA        LC8DA
+        LBRA        LC8DA
 LC993        BRA         LC962
-          LEAU        <LC99B,PCR
-          LBRA        LC8EA
+        LEAU        <LC99B,PCR
+        LBRA        LC8EA
 LC99B     LEAU        <LC9A1,PCR
-          LBRA        LC912
+        LBRA        LC912
 LC9A1     LEAU        <LC9A7,PCR
-          LBRA        LC8AF
+        LBRA        LC8AF
 LC9A7        LDA         #$47
-          LEAU        <LC9AF,PCR
-          LBRA        LC8B1
+        LEAU        <LC9AF,PCR
+        LBRA        LC8B1
 LC9AF        JMP         ,X
-       LDB         >LC894,PCR
+        LDB         >LC894,PCR
 LC9B5  ORB         >LC893,PCR
-             TFR         B,DP
-          LEAU        <LC9C1,PCR
-          LBRA        LC8EA
+        TFR         B,DP
+        LEAU        <LC9C1,PCR
+        LBRA        LC8EA
 LC9C1     LEAU        <LC9C7,PCR
-          LBRA        LC912
+        LBRA        LC912
 LC9C7     LEAU        <LC9CD,PCR
-          LBRA        LC8AF
+        LBRA        LC8AF
 LC9CD     LEAU        <LC9D3,PCR
-          LBRA        LC8AF
+        LBRA        LC8AF
 LC9D3     LEAU        <LC9D9,PCR
-          LBRA        LC8FE
+        LBRA        LC8FE
 LC9D9        LEAX        +$01,X
-             TFR         DP,B
-             SUBB        #$10
-             TFR         B,DP
-             BITB        #$F0
-             BNE         LC9CD
-                DECB 
-             BNE         LC9B5
-          LBRA        LC94A
+        TFR         DP,B
+        SUBB        #$10
+        TFR         B,DP
+        BITB        #$F0
+        BNE         LC9CD
+        DECB 
+        BNE         LC9B5
+        LBRA        LC94A
 LC9EB     LEAU        <LC9F1,PCR
-          LBRA        LC8EA
+        LBRA        LC8EA
 LC9F1     LEAU        <LC9F7,PCR
-          LBRA        LC912
+        LBRA        LC912
 LC9F7     LEAU        <LC9FD,PCR
-          LBRA        LC8AF
+        LBRA        LC8AF
 LC9FD     LEAU        <LCA03,PCR
-          LBRA        LC8FE
+        LBRA        LC8FE
 LCA03        LDA         #$2D
-          LEAU        <LCA0B,PCR
-          LBRA        LC8B1
-LCA0B  LDY         #LC000
-                CLRB 
-             TFR         B,DP
+        LEAU        <LCA0B,PCR
+        LBRA        LC8B1
+LCA0B  LDY         #0
+        CLRB 
+        TFR         B,DP
 LCA12     LEAU        <LCA18,PCR
-          LBRA        LC895
+        LBRA        LC895
 LCA18     LEAU        <LCA1E,PCR
-          LBRA        LC8BE
+        LBRA        LC8BE
 LCA1E        BCS         LCA39
-       LDY         #LC001
-             TFR         DP,B
-                LSLB 
-                LSLB 
-                LSLB 
-                LSLB 
-             TFR         A,DP
-             EXG         D,X
-             EXG         DP,B
-                ABX  
-             EXG         B,DP
-             EXG         X,D
-             TFR         B,DP
-             BRA         LCA12
+        LDY         #1
+        TFR         DP,B
+        LSLB 
+        LSLB 
+        LSLB 
+        LSLB 
+        TFR         A,DP
+        EXG         D,X
+        EXG         DP,B
+        ABX  
+        EXG         B,DP
+        EXG         X,D
+        TFR         B,DP
+        BRA         LCA12
 LCA39        CMPA        #$0D
-             BNE         LCA47
-             LDA         #$0A
-          LEAU        <LCA45,PCR
-          LBRA        LC8B1
+        BNE         LCA47
+        LDA         #$0A
+        LEAU        <LCA45,PCR
+        LBRA        LC8B1
 LCA45        LDA         #$0D
 LCA47        EXG         A,DP
-             LEAY        ,Y
-             BEQ         LCA4F
-             STA         ,X
+        LEAY        ,Y
+        BEQ         LCA4F
+        STA         ,X
 LCA4F        LDA         #$2D
-          LEAU        <LCA57,PCR
-          LBRA        LC8B1
+        LEAU        <LCA57,PCR
+        LBRA        LC8B1
 LCA57     LEAU        <LCA5D,PCR
-          LBRA        LC8FE
+        LBRA        LC8FE
 LCA5D        TFR         DP,A
-             CMPA        #$0D
-       LBEQ        LC94A
-             LEAX        -$01,X
-             CMPA        #$5E
-       LBEQ        LC9EB
-             LEAX        +$02,X
-          LBRA        LC9EB
-          LEAX        <LCAE5,PCR
-          LEAU        <LCA7B,PCR
-          LBRA        LC93A
+        CMPA        #$0D
+        LBEQ        LC94A
+        LEAX        -$01,X
+        CMPA        #$5E
+        LBEQ        LC9EB
+        LEAX        +$02,X
+        LBRA        LC9EB
+        LEAX        <LCAE5,PCR
+        LEAU        <LCA7B,PCR
+        LBRA        LC93A
 LCA7B        LDA         #$04
 LCA7D        TFR         A,DP
-             LEAX        ,S+
-          LEAU        <LCA87,PCR
-          LBRA        LC8FE
+        LEAX        ,S+
+        LEAU        <LCA87,PCR
+        LBRA        LC8FE
 LCA87     LEAU        <LCA8D,PCR
-          LBRA        LC8AF
+        LBRA        LC8AF
 LCA8D     LEAU        <LCA93,PCR
-          LBRA        LC8AF
+        LBRA        LC8AF
 LCA93     LEAU        <LCA99,PCR
 LCA96        TFR         DP,A
-                DECA 
+        DECA 
 LCA99        BNE         LCA7D
-          LEAX        <LCAF8,PCR
-          LEAU        <LCAA4,PCR
-          LBRA        LC93A
+        LEAX        <LCAF8,PCR
+        LEAU        <LCAA4,PCR
+        LBRA        LC93A
 LCAA4        LDA         #$04
 LCAA6        TFR         A,DP
-             LDX         ,S++
-          LEAU        <LCAB0,PCR
-          LBRA        LC912
+        LDX         ,S++
+        LEAU        <LCAB0,PCR
+        LBRA        LC912
 LCAB0     LEAU        <LCAB6,PCR
-          LBRA        LC8AF
+        LBRA        LC8AF
 LCAB6     LEAU        <LCABC,PCR
-          LBRA        LC8AF
+        LBRA        LC8AF
 LCABC        TFR         DP,A
-                DECA 
-             BNE         LCAA6
-             LEAX        ,S
-          LEAU        <LCAC9,PCR
-          LBRA        LC912
+        DECA 
+        BNE         LCAA6
+        LEAX        ,S
+        LEAU        <LCAC9,PCR
+        LBRA        LC912
 LCAC9     LBRA        LC94A
 LCACC        INC         <$09
 
-                     fcs         "RALPH09 DEBUGGER 2.0"
-                     fcb         $d,$a,0
-                     fcb         $d,$a
-                     fcs         "CC  A   B   DP"
-                     fcb         $d,$a,0
-                     fcb         $d,$a
-                     fcs         "X     Y     U     PC    S"
-                     fcb         $d,$a,0
+        fcs         "RALPH09 DEBUGGER 2.0"
+        fcb         $d,$a,0
+        fcb         $d,$a
+        fcs         "CC  A   B   DP"
+        fcb         $d,$a,0
+        fcb         $d,$a
+        fcs         "X     Y     U     PC    S"
+        fcb         $d,$a,0
 
-          LDX         #LFF48
-             LDA         #$07
+        LDX         #LFF48
+        LDA         #$07
 LCB1B        STA         ,-X
-                DECA 
-             BNE         LCB1B
-          CLR         LFF4A
-          LDX         #LFF00
-          LDD         #LC1E0
+        DECA 
+        BNE         LCB1B
+        CLR         LFF4A
+        LDX         #LFF00
+        LDD         #LC1E0
 LCB29        STD         ,X++
-                INCB 
-             BNE         LCB29
-          CLR         LFF40
-       LDU         >LC889,PCR
-                CLRA 
-             STA         +$01,U
-             STA         +$03,U
-                DECA 
-             STA         +$02,U
-             LDA         #$24
-             STA         +$01,U
-             STA         +$03,U
-             LDA         ,U
-             LDA         +$02,U
+        INCB 
+        BNE         LCB29
+        CLR         LFF40
+        LDU         >LC889,PCR            ???
+        CLRA 
+        STA         +$01,U
+        STA         +$03,U
+        DECA 
+        STA         +$02,U
+        LDA         #$24
+        STA         +$01,U
+        STA         +$03,U
+        LDA         ,U
+        LDA         +$02,U
         LDS         >LC891,PCR
-       LEAX        >LCACC,PCR
-          LEAU        <LCB56,PCR
-          LBRA        LC93A
+        LEAX        >LCACC,PCR
+        LEAU        <LCB56,PCR
+        LBRA        LC93A
 LCB56     LBRA        LC94A
 
-                     org $cb80
-             LDA         #$01
-          STA         LFF4A
-          STA         LFF4B
-          LDX         #LFF40
-          LDD         #LC01F
+        org $cb80
+        LDA         #$01
+        STA         LFF4A
+        STA         LFF4B
+        LDX         #LFF40
+        LDD         #$01F
 LCB8E        STD         ,--X
-                DECB 
-             BNE         LCB8E
-             STD         ,--X
-          LDD         #LC1FE
-          STD         LFF38
-                INCB 
-          STD         LFF3A
-          LDD         #LC1FA
-          STD         LFF3C
-             LDA         #$04
-          STA         LFF49
-          JMP         LE000
+        DECB 
+        BNE         LCB8E
+        STD         ,--X
+        LDD         #$1FE
+        STD         LFF38
+        INCB 
+        STD         LFF3A
+        LDD         #LC1FA
+        STD         LFF3C
+        LDA         #$04
+        STA         LFF49
+        JMP         LE000
 
-                     org $cc80
-             LDB         #$00
-             BRA         LCCC0
-             LDB         #$01
-             BRA         LCCC0
-             LDB         #$02
-             BRA         LCCC0
-             LDB         #$03
-             BRA         LCCC0
-             LDB         #$04
-             BRA         LCCC0
-             LDB         #$05
-             BRA         LCCC0
-             LDB         #$06
-             BRA         LCCC0
-             LDB         #$07
-             BRA         LCCC0
-             LDB         #$08
-             BRA         LCCC0
-             LDB         #$09
-             BRA         LCCC0
-             LDB         #$0A
-             BRA         LCCC0
-             LDB         #$0B
-             BRA         LCCC0
-             LDB         #$0C
-             BRA         LCCC0
-             LDB         #$0D
-             BRA         LCCC0
-             LDB         #$0E
-             BRA         LCCC0
-             LDB         #$0F
-             BRA         LCCC0
+        org $cc80
+        LDB         #$00
+        BRA         LCCC0
+        LDB         #$01
+        BRA         LCCC0
+        LDB         #$02
+        BRA         LCCC0
+        LDB         #$03
+        BRA         LCCC0
+        LDB         #$04
+        BRA         LCCC0
+        LDB         #$05
+        BRA         LCCC0
+        LDB         #$06
+        BRA         LCCC0
+        LDB         #$07
+        BRA         LCCC0
+        LDB         #$08
+        BRA         LCCC0
+        LDB         #$09
+        BRA         LCCC0
+        LDB         #$0A
+        BRA         LCCC0
+        LDB         #$0B
+        BRA         LCCC0
+        LDB         #$0C
+        BRA         LCCC0
+        LDB         #$0D
+        BRA         LCCC0
+        LDB         #$0E
+        BRA         LCCC0
+        LDB         #$0F
+        BRA         LCCC0
 LCCC0  STS         LDF82
-       LDS         #LDF80
-             CMPB        #$09
-             BLE         LCCDB
-             BSR         LCD01
-             PSHS        B
-             LDB         #$01
-             BSR         LCCF7
-             PULS        B
-             BSR         LCCF7
-             BRA         LCCDF
-                RTI  
+        LDS         #LDF80
+        CMPB        #$09
+        BLE         LCCDB
+        BSR         LCD01
+        PSHS        B
+        LDB         #$01
+        BSR         LCCF7
+        PULS        B
+        BSR         LCCF7
+        BRA         LCCDF
+        RTI  
 
 LCCDB        BSR         LCD01
-             BSR         LCCF7
+        BSR         LCCF7
 LCCDF        BSR         LCD14
-       LDS         LDF82
-             LDA         #$01
-          STA         LFF49
-                RTI  
+        LDS         LDF82
+        LDA         #$01
+        STA         LFF49
+        RTI  
 
-          LDA         LD7FE
-          STB         LD7FE
+        LDA         LD7FE
+        STB         LD7FE
 LCCF1     LDA         LD7FF
-             BPL         LCCF1
-                RTS  
+        BPL         LCCF1
+        RTS  
 
 LCCF7        CMPB        #$0A
-             BCS         LCCFD
-             SUBB        #$0A
+        BCS         LCCFD
+        SUBB        #$0A
 LCCFD        ADDB        #$30
-             BRA         LCD01
+        BRA         LCD01