# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1533453150 -32400
# Node ID a200fa7d5b70d7fef0c0066f79fe3c079802c3fa
# Parent  b6aabbe1a027b9dc96240aa4106a7f28fc587cd6
game09 fix for os9

diff -r b6aabbe1a027 -r a200fa7d5b70 game09/defsfile
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/game09/defsfile	Sun Aug 05 16:12:30 2018 +0900
@@ -0,0 +1,19 @@
+* Main defsfile for OS-9 Level One V1
+*
+*
+* OS-9 Level and Version equates
+Level    equ   2
+OS9Vrsn  equ   2
+OS9Major equ   0
+OS9Minor equ   1
+CHECK_FOR_VALID_RAM equ 1      force ram check for non standard arch
+
+NOS9VER   equ OS9Vrsn 
+NOS9MAJ   equ OS9Major
+NOS9MIN   equ OS9Minor
+
+
+         use   ../src/os9/nitros9-code/defs/os9.d
+         use   ../src/os9/nitros9-code/defs/scf.d
+         use   ../src/os9/nitros9-code/defs/rbf.d
+
diff -r b6aabbe1a027 -r a200fa7d5b70 game09/game09.asm
--- a/game09/game09.asm	Sun Aug 05 15:15:12 2018 +0900
+++ b/game09/game09.asm	Sun Aug 05 16:12:30 2018 +0900
@@ -2,99 +2,86 @@
 *     GAME09 interpreter
 *
 
-
-L3D09     equ $3D09
-L758E     equ $758E
-LA602     equ $A602
+         ifp1
+         use   defsfile
+         endc
 
-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
+         nam   Game09
+         ttl   Game09
+tylg     set   Prgrm+Objct   
+atrv     set   ReEnt+rev
+rev      set   $01
+edition  set   5
 
-LC814     equ $C814
-LC813     equ $C813
+         mod   eom,name,tylg,atrv,start,size
 
+name    fcs         "Game09"
+        fcb   edition
+
+         org   0
+dpage    rmb   $96
 
-LD7FC     equ $D7FC
-LD7FD     equ $D7FD
-LD7FE     equ $D7FE
-LD7FF     equ $D7FF
-LDF80     equ $DF80
-LDF82     equ $DF82
+DP00     equ     $00
+DP42     equ     $42
+DP46     equ     $46
+DP4A     equ     $4A
+DP4B     equ     $4B
+DP4E     equ     $4E
+DP4F     equ     $4F
+DP50     equ     $50
+DP52     equ     $52
+DP58     equ     $58
+DP7E     equ     $7E
+DP82     equ     $82
+DP83     equ     $83
+DP84     equ     $84
+DP86     equ     $86
+DP88     equ     $88
+DP8A     equ     $8A
+DP8C     equ     $8C
+DP8D     equ     $8D
+DP8E     equ     $8E
+DP94     equ     $94
+DPWORK   rmb     2
+DPSTK    rmb     2
 
-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
+linebuf  rmb   256
+program  rmb   20000
+size     equ   .
 
-
-LC000        BRA         LC005
-LC002           NOP  
-LC003        BRA         LC014
-LC005        LDA         #$FB
+start
+LC000   BRA         LC005
+LC002   NOP  
+LC003   BRA         LC014
+LC005   TFR         U,D
         TFR         A,DP
-        LDX         #LE000
+        STU         <DPWORK
+        STS         <DPSTK
+        LEAX        program,U
         STX         <$7E
         STX         <$50
         LDA         #$FF
         STA         ,X
-LC014     LBSR        LCD00
-        LDA         #$FB
-        TFR         A,DP
-        LDX         #LEFFF
+LC014   LBSR        LCD00
+        LDU         <DPWORK
+        LEAX        size,U
         STX         <$58
-LC020        LDA         #$FF
+LC020   LDA         #$FF
         STA         <$8C
-LC024  LDS         #LFE00
-        LDU         #LFD80
+LC024   LDS         <DPSTK
+        LDU         <DPWORK
+        LEAU        linebuf,U
         LEAX        >LC63F,PCR
         LBSR        LC165
-LC032     LBSR        LC370
+LC032   LBSR        LC370
         BCS         LC06D
         STX         <$42
         LBSR        LC1D3
         BEQ         LC024
-LC03E        BSR         LC09C
-LC040        BMI         LC024
+LC03E   BSR         LC09C
+LC040   BMI         LC024
         STX         <$42
-LC044        LEAX        +$02,X
+LC044   LEAX        +$02,X
         LDA         ,X+
         CMPA        #$20
         BNE         LC05B
@@ -103,50 +90,50 @@
         LEAX        +$01,X
         TST         ,X
         BRA         LC040
-LC057  LDS         #LFE00
-LC05B        BSR         LC0A8
+LC057   LDS         <DPSTK
+LC05B   BSR         LC0A8
         BRA         LC040
-LC05F        LDX         <$42
+LC05F   LDX         <$42
         STX         <$84
         BSR         LC0A0
         BMI         LC024
         CMPX        <$84
         BEQ         LC03E
         BRA         LC044
-LC06D        STX         <$86
+LC06D   STX         <$86
         STD         <$4A
         LDB         ,X
         CMPB        #$2F
         BNE         LC0B1
-LC077        BSR         LC09C
-LC079     LBSR        LC397
+LC077   BSR         LC09C
+LC079   LBSR        LC397
         TST         ,X
         BMI         LC024
         BSR         LC087
         LBSR        LC173
         BRA         LC079
-LC087        LDD         ,X++
+LC087   LDD         ,X++
         PSHS        X
         LBSR        LC443
         PULS        X
         LBRA        LC165
-LC093        LDX         <$42
+LC093   LDX         <$42
         LEAX        +$02,X
-LC097        TST         ,X+
+LC097   TST         ,X+
         BNE         LC097
         RTS  
-LC09C        LDX         <$7E
-LC09E        STX         <$42
-LC0A0        LDD         ,X
+LC09C   LDX         <$7E
+LC09E   STX         <$42
+LC0A0   LDD         ,X
         BMI         LC0B0
         SUBD        <$4A
         BCC         LC0AF
-LC0A8     LBSR        LC173
+LC0A8   LBSR        LC173
         BSR         LC093
         BRA         LC09E
-LC0AF           CLRA 
-LC0B0           RTS  
-LC0B1        LDX         <$4A
+LC0AF   CLRA 
+LC0B0   RTS  
+LC0B1   LDX         <$4A
         BEQ         LC077
         BMI         LC117
         LDX         <$50
@@ -160,19 +147,19 @@
         BNE         LC0DE
         BSR         LC093
         LDY         <$42
-LC0CD        LDA         ,X
+LC0CD   LDA         ,X
         STA         ,Y
         CMPX        <$50
         BEQ         LC0DB
         LEAX        +$01,X
         LEAY        +$01,Y
         BRA         LC0CD
-LC0DB     STY         <$50
-LC0DE        LDX         <$86
+LC0DB   STY         <$50
+LC0DE   LDX         <$86
         LDB         #$03
         TST         ,X+
         BEQ         LC114
-LC0E6           INCB 
+LC0E6   INCB 
         TST         ,X+
         BNE         LC0E6
         CLRA 
@@ -184,24 +171,24 @@
         STY         <$50
         LEAX        +$01,X
         LEAY        +$01,Y
-LC0FD        LDB         ,-X
+LC0FD   LDB         ,-X
         STB         ,-Y
         CMPX        <$42
         BNE         LC0FD
         LDY         <$4A
         STY         ,X++
         LDY         <$86
-LC10E        LDB         ,Y+
+LC10E   LDB         ,Y+
         STB         ,X+
         BNE         LC10E
-LC114     LBRA        LC032
-LC117     LBRA        LC024
-LC11A     LDX         #LFB8F
+LC114   LBRA        LC032
+LC117   LBRA        LC024
+LC11A   LDX         #LFB8F
         TST         <$8C
         BNE         LC124
         LDX         #LFB95
-LC124     LEAY        <LC159,PCR
-LC127        PSHS        X
+LC124   LEAY        <LC159,PCR
+LC127   PSHS        X
         LDX         ,Y++
         PSHU        X
         LBSR        LC335
@@ -219,31 +206,31 @@
         PSHS        X
         LEAX        -$05,X
         CLRA 
-LC14B        LEAX        +$01,X
+LC14B   LEAX        +$01,X
         INCA 
         LDB         ,X
         CMPB        #$30
         BEQ         LC14B
         COM         [,S++]
         SUBA        #$06
-LC158           RTS  
-LC159        FDB          10000
+LC158   RTS  
+LC159   FDB          10000
         FDB           1000
         FDB            100
         FDB             10
         FDB              1
         FDB              0
-LC165           CLRA 
-LC166        STA         <$94
-LC168        LDB         ,X+
+LC165   CLRA 
+LC166   STA         <$94
+LC168   LDB         ,X+
         CMPB        <$94
         BEQ         LC158
         LBSR        LC412
         BRA         LC168
-LC173     LBSR        LC650
+LC173   LBSR        LC650
         LBCS        LC024
         RTS  
-LC17B        CMPA        #$20
+LC17B   CMPA        #$20
         BEQ         LC1D1
         CLR         <$4A
         CLR         <$4B
@@ -256,7 +243,7 @@
         STD         <$46
         STX         <$42
         BRA         LC1C6
-LC195        CMPA        #$40
+LC195   CMPA        #$40
         BNE         LC1A6
         LEAX        +$01,X
         STX         <$46
@@ -265,46 +252,46 @@
         LDY         <$42
         PSHU        Y,X,B,A
         BRA         LC1D3
-LC1A6        CMPA        #$22
+LC1A6   CMPA        #$22
         BNE         LC1CA
         LEAX        +$01,X
         BSR         LC166
         BRA         LC1D3
-LC1B0        CMPA        #$5C
+LC1B0   CMPA        #$5C
         BNE         LC1B9
         LBSR        LC676
         BRA         LC1D3
-LC1B9        STX         <$84
+LC1B9   STX         <$84
         BSR         LC1EC
         LBSR        LC39F
         BSR         LC173
         LDX         <$4A
         BNE         LC1D7
-LC1C6        LDX         <$46
+LC1C6   LDX         <$46
         BRA         LC1D3
-LC1CA        CMPA        #$2F
+LC1CA   CMPA        #$2F
         BNE         LC1B0
         LBSR        LC397
-LC1D1        LEAX        +$01,X
-LC1D3        LDA         ,X
+LC1D1   LEAX        +$01,X
+LC1D3   LDA         ,X
         BNE         LC17B
-LC1D7           RTS  
-LC1D8        PSHS        A
+LC1D7   RTS  
+LC1D8   PSHS        A
         LEAX        +$01,X
         BSR         LC1F6
         LDX         <$46
-LC1E0     LDY         <$42
+LC1E0   LDY         <$42
         PSHU        Y,X,B,A
         PULS        PC,B,A
-LC1E7        LDA         #$3D
+LC1E7   LDA         #$3D
         LBRA        LC4F9
-LC1EC        LDA         ,X+
+LC1EC   LDA         ,X+
         BITA        #$DF
         BEQ         LC1E7
         CMPA        #$3D
         BNE         LC1EC
-LC1F6     LBSR        LC521
-LC1F9        PSHS        B
+LC1F6   LBSR        LC521
+LC1F9   PSHS        B
         LDB         ,X
         BITB        #$DF
         BEQ         LC210
@@ -315,11 +302,11 @@
         PULS        B
         LBSR        LC29C
         BRA         LC1F9
-LC210        STX         <$46
+LC210   STX         <$46
         PULS        PC,B
-LC214        LEAX        +$01,X
+LC214   LEAX        +$01,X
         PULS        PC,B
-LC218        CMPB        #$3F
+LC218   CMPB        #$3F
         BNE         LC22E
         PSHS        X
         STB         <$8C
@@ -330,17 +317,17 @@
         RTS  
         LEAX        +$01,X
         BRA         LC1F6
-LC22E        BSR         LC287
+LC22E   BSR         LC287
         CMPA        #$3A
         BEQ         LC239
         BSR         LC26E
-LC236        LDD         ,Y
+LC236   LDD         ,Y
         RTS  
-LC239        BSR         LC269
+LC239   BSR         LC269
         CLRA 
-LC23C        LDB         ,Y
-LC23E           RTS  
-LC23F        CMPB        #$22
+LC23C   LDB         ,Y
+LC23E   RTS  
+LC23F   CMPB        #$22
         BCS         LC218
         CMPB        #$2D
         BHI         LC218
@@ -350,7 +337,7 @@
         LDD         B,Y
         JMP         D,Y
 
-LC251                fdb         LC6EC-*       049b
+LC251   fdb         LC6EC-*       049b
         fdb         LC535-*       02e2
         fdb         LC5A1-*       034c
         fdb         LC545-*       02ee
@@ -363,44 +350,44 @@
         fdb         LC23F-*       ffdd
         fdb         LC53F-*       02d8
 
-LC269        BSR         LC279
+LC269   BSR         LC279
         LEAY        D,Y
         RTS  
-LC26E        CMPA        #$28
+LC26E   CMPA        #$28
         BNE         LC292
         BSR         LC279
         LSLB 
         ROLA 
         LEAY        D,Y
         RTS  
-LC279        BSR         LC292
+LC279   BSR         LC292
         LDY         ,Y
         PSHS        Y
         LEAX        +$01,X
         LBSR        LC1F6
         PULS        PC,Y
-LC287        LDB         ,X+
-LC289        LDA         ,X+
+LC287   LDB         ,X+
+LC289   LDA         ,X+
         CMPA        #$41
         BPL         LC289
         LEAX        -$01,X
         RTS  
 
-LC292        ANDB        #$3F
+LC292   ANDB        #$3F
         CLRA 
         LSLB 
         ADDD        #LFB04
         TFR         D,Y
         RTS  
-LC29C        PSHU        B,A
+LC29C   PSHU        B,A
         LDD         ,X+
         PSHS        B,A
         SUBB        #$3D
         BEQ         LC2A9
         DECB 
         BNE         LC2AB
-LC2A9        LEAX        +$01,X
-LC2AB     LBSR        LC521
+LC2A9   LEAX        +$01,X
+LC2AB   LBSR        LC521
         PULU        Y
         EXG         D,Y
         PSHU        Y,B,A
@@ -410,10 +397,10 @@
         PULU        B,A
         SUBD        ,U++
         BNE         LC2E4
-LC2C0           CLRA 
+LC2C0   CLRA 
         LDB         #$01
         RTS  
-LC2C4        CMPA        #$3C
+LC2C4   CMPA        #$3C
         BNE         LC2E7
         CMPB        #$3D
         BEQ         LC2D7
@@ -423,18 +410,18 @@
         SUBD        ,U++
         BNE         LC2C0
         RTS  
-LC2D7        PULU        B,A
+LC2D7   PULU        B,A
         SUBD        ,U++
         BLE         LC2C0
         CLRA 
         CLRB 
         RTS  
-LC2E0        SUBD        ,U++
+LC2E0   SUBD        ,U++
         BLT         LC2C0
-LC2E4           CLRA 
+LC2E4   CLRA 
         CLRB 
         RTS  
-LC2E7        CMPA        #$3E
+LC2E7   CMPA        #$3E
         BNE         LC2FF
         CMPB        #$3D
         PULU        B,A
@@ -444,25 +431,25 @@
         CLRA 
         CLRB 
         RTS  
-LC2F8        SUBD        ,U++
+LC2F8   SUBD        ,U++
         BGT         LC2C0
         CLRA 
         CLRB 
         RTS  
-LC2FF        CMPA        #$2B
+LC2FF   CMPA        #$2B
         BNE         LC308
         PULU        B,A
         ADDD        ,U++
         RTS  
-LC308        CMPA        #$2D
+LC308   CMPA        #$2D
         BNE         LC311
         PULU        B,A
         SUBD        ,U++
         RTS  
-LC311        CMPA        #$2A
+LC311   CMPA        #$2A
         LBNE        LC653
         PULU        B,A
-LC319        EXG         A,B
+LC319   EXG         A,B
         PSHU        B,A
         LDB         +$03,U
         MUL  
@@ -472,14 +459,14 @@
         LDD         <$82
         LEAU        +$02,U
         RTS  
-LC32B        PULU        A
+LC32B   PULU        A
         LDB         +$01,U
         MUL  
         ADDB        <$82
         STB         <$82
         RTS  
-LC335        CLR         ,-S
-LC337        INC         ,S
+LC335   CLR         ,-S
+LC337   INC         ,S
         LSL         +$01,U
         ROL         ,U
         BCC         LC337
@@ -487,34 +474,34 @@
         ROR         +$01,U
         CLR         <$82
         CLR         <$83
-LC347        SUBD        ,U
+LC347   SUBD        ,U
         BCC         LC351
         ADDD        ,U
         ANDCC       #$FE
         BRA         LC353
-LC351        ORCC        #$01
-LC353        ROR         <$83
+LC351   ORCC        #$01
+LC353   ROR         <$83
         ROR         <$82
         DEC         ,S
         BEQ         LC361
         LSR         ,U
         ROR         +$01,U
         BRA         LC347
-LC361        LEAS        +$01,S
+LC361   LEAS        +$01,S
         RTS  
-LC364        LDB         ,X
+LC364   LDB         ,X
         CMPB        #$30
         BCS         LC36D
         CMPB        #$3A
         RTS  
-LC36D        ANDCC       #$FE
+LC36D   ANDCC       #$FE
         RTS  
-LC370     LBSR        LC5D8
-LC373        BSR         LC364
+LC370   LBSR        LC5D8
+LC373   BSR         LC364
         BCC         LC396
         CLRA 
         CLRB 
-LC379        ADDB        ,X+
+LC379   ADDB        ,X+
         ADCA        #$00
         SUBD        #$030
         PSHU        B,A
@@ -529,14 +516,14 @@
         LSLB 
         ROLA 
         BRA         LC379
-LC392        PULU        B,A
+LC392   PULU        B,A
         ORCC        #$01
-LC396           RTS  
-LC397        LDB         #$0D
+LC396   RTS  
+LC397   LDB         #$0D
         BSR         LC39D
-LC39B        LDB         #$0A
-LC39D        BRA         LC412
-LC39F        PSHS        B,A
+LC39B   LDB         #$0A
+LC39D   BRA         LC412
+LC39F   PSHS        B,A
         LDA         #$01
         STA         <$8C
         LDX         <$84
@@ -545,17 +532,17 @@
         BNE         LC3BA
         PULS        A
         LDA         ,S+
-LC3B1        BEQ         LC3C4
+LC3B1   BEQ         LC3C4
         LDB         #$20
         BSR         LC412
         DECA 
         BRA         LC3B1
-LC3BA        CMPB        #$3B
+LC3BA   CMPB        #$3B
         BNE         LC3C5
         LDD         ,S++
         LBEQ        LC057
-LC3C4           RTS  
-LC3C5        CMPB        #$40
+LC3C4   RTS  
+LC3C5   CMPB        #$40
         BNE         LC3E4
         LDB         +$02,X
         LBSR        LC292
@@ -569,11 +556,11 @@
         STX         <$42
         LEAU        -$06,U
         RTS  
-LC3E1        LEAU        +$04,U
+LC3E1   LEAU        +$04,U
         RTS  
-LC3E4        CMPB        #$26
+LC3E4   CMPB        #$26
         BNE         LC3FA
-LC3E8        LDB         +$01,X
+LC3E8   LDB         +$01,X
         CMPB        #$3D
         BNE         LC3FA
         LDD         ,S++
@@ -582,8 +569,8 @@
         STX         <$50
         DECA 
         STA         ,X
-LC3F9           RTS  
-LC3FA        CMPB        #$21
+LC3F9   RTS  
+LC3FA   CMPB        #$21
         BNE         LC40C
         PULS        B,A
         STD         <$4A
@@ -591,35 +578,35 @@
         LDY         <$42
         LDX         <$46
         PSHU        Y,X
-LC40B           RTS  
-LC40C        CMPB        #$24
+LC40B   RTS  
+LC40C   CMPB        #$24
         BNE         LC415
         PULS        B,A
-LC412     LBRA        LC64A
-LC415        CMPB        #$3F
+LC412   LBRA        LC64A
+LC415   CMPB        #$3F
         BNE         LC449
         LDB         +$01,X
         CMPB        #$28
         LBNE        LC56E
         LBSR        LC51F
-LC424        STB         <$8E
+LC424   STB         <$8E
         PULS        B,A
         BSR         LC433
         ADDA        <$8E
         BMI         LC430
         BSR         LC3B1
-LC430     LBRA        LC165
-LC433           TSTA 
+LC430   LBRA        LC165
+LC433   TSTA 
         LBPL        LC11A
         LBSR        LC4F3
         LBSR        LC11A
         LDB         #$2D
         STB         ,-X
         RTS  
-LC443        PSHS        B,A
+LC443   PSHS        B,A
         LDB         #$05
         BRA         LC424
-LC449        CMPB        #$3D
+LC449   CMPB        #$3D
         BNE         LC460
         PULS        B,A
         STD         <$7E
@@ -628,14 +615,14 @@
         LBSR        LC09C
         STX         <$50
         LBRA        LC024
-LC45E        PULS        PC,B,A
-LC460        CMPB        #$3E
+LC45E   PULS        PC,B,A
+LC460   CMPB        #$3E
         BNE         LC46C
         LDD         ,S
         BEQ         LC45E
         JSR         [,S++]
         PSHS        B,A
-LC46C        LDX         <$84
+LC46C   LDX         <$84
         LBSR        LC287
         CMPA        #$3A
         BNE         LC47D
@@ -643,7 +630,7 @@
         PULS        B,A
         STB         ,Y
         RTS  
-LC47D     LBSR        LC26E
+LC47D   LBSR        LC26E
         PULS        B,A
         STD         ,Y
         RTS  
@@ -651,25 +638,25 @@
         CMPA        #$4E
         BEQ         LC48E
         LBRA        LC7D7
-LC48E        TST         +$02,X
+LC48E   TST         +$02,X
         BNE         LC494
         CLR         +$03,X
-LC494        LEAX        +$03,X
+LC494   LEAX        +$03,X
         CLR         <$8C
         LBSR        LC373
         BCS         LC4A0
         LDD         #LC3E8
-LC4A0        STD         <$88
+LC4A0   STD         <$88
         LDB         ,X
         CMPB        #$2C
         BNE         LC4AF
         LEAX        +$01,X
         LBSR        LC373
         BCS         LC4B2
-LC4AF     LDD         #$00A
-LC4B2        STD         <$8A
+LC4AF   LDD         #$00A
+LC4B2   STD         <$8A
         RTS  
-LC4B5        CMPA        #$2F
+LC4B5   CMPA        #$2F
         BNE         LC4F9
         CLR         <$8D
         LDD         +$02,U
@@ -685,27 +672,27 @@
         ROR         <$4F
         LEAU        +$02,U
         RTS  
-LC4D4        INC         <$8D
+LC4D4   INC         <$8D
         NEG         +$03,U
         BNE         LC4DC
         DEC         +$02,U
-LC4DC        COM         +$02,U
-LC4DE        LDD         ,U++
+LC4DC   COM         +$02,U
+LC4DE   LDD         ,U++
         BPL         LC4E6
         DEC         <$8D
         BSR         LC4F3
-LC4E6     LBSR        LC335
+LC4E6   LBSR        LC335
         LEAU        +$02,U
         STD         <$4E
         LDD         <$82
         TST         <$8D
         BEQ         LC4F8
-LC4F3           NEGB 
+LC4F3   NEGB 
         BNE         LC4F7
         DECA 
-LC4F7           COMA 
-LC4F8           RTS  
-LC4F9     LBSR        LC397
+LC4F7   COMA 
+LC4F8   RTS  
+LC4F9   LBSR        LC397
         LDB         #$3F
         STB         <$8C
         LBSR        LC412
@@ -718,10 +705,10 @@
         BNE         LC519
         LBSR        LC165
         BRA         LC51C
-LC519     LBSR        LC087
-LC51C     LBRA        LC024
-LC51F        LEAX        +$01,X
-LC521     LBSR        LC373
+LC519   LBSR        LC087
+LC51C   LBRA        LC024
+LC51F   LEAX        +$01,X
+LC521   LBSR        LC373
         BCS         LC532
         LBRA        LC23F
         BSR         LC51F
@@ -729,14 +716,14 @@
         BSR         LC51F
         TSTA 
         BMI         LC4F3
-LC532           RTS  
+LC532   RTS  
         BSR         LC51F
-LC535        PSHS        B,A
+LC535   PSHS        B,A
         LDD         ,S++
         LBNE        LC2E4
         INCB 
         RTS  
-LC53F        BSR         LC51F
+LC53F   BSR         LC51F
         LDD         <$4E
         RTS  
 LC545
@@ -764,35 +751,35 @@
         LDB         +$01,X
         LEAX        +$03,X
         RTS  
-LC56E        CMPB        #$3F
+LC56E   CMPB        #$3F
         BEQ         LC57E
         CMPB        #$24
         BEQ         LC582
         PULS        B,A
         LBSR        LC433
         LBRA        LC165
-LC57E        LDB         ,S
+LC57E   LDB         ,S
         BSR         LC584
-LC582        PULS        B,A
-LC584        TFR         B,A
+LC582   PULS        B,A
+LC584   TFR         B,A
         BSR         LC58E
         TFR         A,B
         ANDB        #$0F
         BRA         LC592
-LC58E           LSRB 
+LC58E   LSRB 
         LSRB 
         LSRB 
         LSRB 
-LC592        CMPB        #$0A
+LC592   CMPB        #$0A
         BMI         LC598
         ADDB        #$07
-LC598        ADDB        #$30
+LC598   ADDB        #$30
         LBRA        LC412
         CLRA 
         BSR         LC5BD
 LC5A1
         LBCC        LC64D
-LC5A4        PSHS        B
+LC5A4   PSHS        B
         BSR         LC5BD
         PSHU        B
         PULS        B
@@ -807,9 +794,9 @@
         ROLA 
         ADDB        ,U+
         BRA         LC5A4
-LC5BA        LEAU        +$01,U
+LC5BA   LEAU        +$01,U
         RTS  
-LC5BD        LEAX        +$01,X
+LC5BD   LEAX        +$01,X
         LDB         ,X
         SUBB        #$30
         BCS         LC5D2
@@ -819,11 +806,11 @@
         CMPB        #$0A
         BCS         LC5D2
         CMPB        #$10
-LC5D1           RTS  
-LC5D2        ANDCC       #$FE
+LC5D1   RTS  
+LC5D2   ANDCC       #$FE
         RTS  
-LC5D5     LBSR        LC397
-LC5D8        LDB         #$3A
+LC5D5   LBSR        LC397
+LC5D8   LDB         #$3A
         BSR         LC64A
         LDX         #LFB95
         TST         <$8C
@@ -834,7 +821,7 @@
         LDB         #$20
         STB         -$01,X
         BSR         LC64A
-LC5F2        BSR         LC64D
+LC5F2   BSR         LC64D
         CMPB        #$08
         BEQ         LC634
         CMPB        #$0D
@@ -849,22 +836,22 @@
         LDB         #$08
         BSR         LC64A
         BRA         LC5F2
-LC611        TST         <$8C
+LC611   TST         <$8C
         BNE         LC626
         CMPX        #LFB9B
         BEQ         LC61F
         CMPX        #LFB9A
         BCC         LC626
-LC61F        COM         <$8C
+LC61F   COM         <$8C
         LBSR        LC39B
         BRA         LC5D8
-LC626        LDD         <$88
+LC626   LDD         <$88
         ADDD        <$8A
         STD         <$88
         CLR         ,X
         LDX         #LFB95
         LBRA        LC39B
-LC634        LEAX        -$01,X
+LC634   LEAX        -$01,X
         CMPX        #LFB94
         BNE         LC5F2
         STB         <$8C
@@ -874,57 +861,58 @@
         FCS         "*READY"
         FCB         $D,$A,0
 
-LC64A     LBRA        OUTCH
-LC64D     LBRA        LC6FC     GETCH
-LC650     LBRA        LC720     SENSE
-LC653        CMPA        #$2E      EXBOP
+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  
-LC65E        CMPA        #$26
+LC65E   CMPA        #$26
         BNE         LC669
         PULU        B,A
         ANDA        ,U+
         ANDB        ,U+
         RTS  
-LC669        CMPA        #$21           
+LC669   CMPA        #$21           
         LBNE        LC4B5
         PULU        B,A
         EORA        ,U+
         EORB        ,U+
         RTS  
-LC676        LDD         +$01,X      EXTEND
+LC676   LDD         +$01,X      EXTEND
         LEAX        +$03,X
         PSHS        U,X,B,A
         LEAY        >OPCMD,PCR
-LC680        LDX         ,Y
+LC680   LDX         ,Y
         BMI         LC6E7
         CMPX        ,S
         BEQ         LC68C
         LEAY        +$05,Y
         BRA         LC680
-LC68C        LEAY        +$03,Y
+LC68C   LEAY        +$03,Y
         LEAS        +$02,S
         LDX         ,S
         LDA         -$01,Y
         BEQ         LC6C3
         PSHS        Y,A
         LDA         #$20
-LC69A        CMPA        ,X+
+LC69A   CMPA        ,X+
         BEQ         LC69A
         LDA         ,-X
         STX         +$03,S
-LC6A2        BITA        #$DF
+LC6A2   BITA        #$DF
         BEQ         LC6B0
         CMPA        #$2C
         BEQ         LC6AE
         BSR         LC6C9
         BRA         LC6B3
-LC6AE        LEAX        +$01,X
-LC6B0     LDD         #LFFFF
-LC6B3        PSHU        B,A
+LC6AE   LEAX        +$01,X
+LC6B0   LDD         #LFFFF
+LC6B3   PSHU        B,A
         LDA         ,X
         DEC         ,S
         BNE         LC6A2
@@ -932,11 +920,11 @@
         STX         +$03,S
         TFR         D,X
         PULS        Y,A
-LC6C3        LDD         ,Y
+LC6C3   LDD         ,Y
         JSR         D,Y
         PULS        PC,U,X
-LC6C9     LBSR        LC521
-LC6CC        PSHS        B
+LC6C9   LBSR        LC521
+LC6CC   PSHS        B
         LDB         ,X
         BITB        #$DF
         BEQ         LC6E5
@@ -947,52 +935,37 @@
         PULS        B
         LBSR        LC29C
         BRA         LC6CC
-LC6E3        LEAX        +$01,X
-LC6E5        PULS        PC,B
-LC6E7        PULS        U,X,B,A
+LC6E3   LEAX        +$01,X
+LC6E5   PULS        PC,B
+LC6E7   PULS        U,X,B,A
         LBRA        LC4F9
-LC6EC        LEAX        +$01,X
+LC6EC   LEAX        +$01,X
         LDB         ,X+
-LC6F0        LDA         ,X+
+LC6F0   LDA         ,X+
         BEQ         LC6F8
         CMPA        #$22
         BNE         LC6F0
-LC6F8           CLRA 
+LC6F8   CLRA 
         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
-LC70D
-        PSHS        X
-        LDX         <LC6FA,PCR
-LC712        LDB         +$01,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
-LC731           CLRA 
-        PULS        PC,X,A
-LC734        COMA 
-        PULS        PC,X,A
+GETCH   LDA         #0
+        PSHS        A
+        LEAX        ,S
+        LDY         #1
+        OS9         I$Read
+        PULS        A
+        BCS         GETCH
+OUTCH   PSHS        A
+        LEAX        ,S
+        LDA         #1
+        LDY         #1
+        OS9         I$Write
+        PULS        A,PC
+SENSE   LDA         #0
+        LDB         #SS.Ready
+        OS9         i$GetStt
+        RTS
+
 
 
         * COMMAND TABLE CONSIST....
@@ -1017,34 +990,34 @@
         BPL         LC762
         CLRA 
         CLRB 
-LC762        STD         <$4A
+LC762   STD         <$4A
         LBSR        LC09C
         BMI         LC789
         LDD         ,U++
         BPL         LC770
         LDD         #$00A
-LC770     LDY         ,U++
+LC770   LDY         ,U++
         BPL         LC779
         LDY         #LC3E8
-LC779     STY         ,X++
+LC779   STY         ,X++
         LBSR        LC173
         LEAY        D,Y
-LC781        TST         ,X+
+LC781   TST         ,X+
         BNE         LC781
         TST         ,X
         BPL         LC779
-LC789           RTS  
+LC789   RTS  
 CAUTO
         LDD         ,U++
         BPL         LC791
         LDD         #$00A
-LC791        STD         <$8A
+LC791   STD         <$8A
         LDD         ,U
         BEQ         LC79E
         BPL         LC79C
         LDD         #LC3E8
-LC79C        STD         <$88
-LC79E        CLR         <$8C
+LC79C   STD         <$88
+LC79E   CLR         <$8C
         RTS  
         BSR         LC7B6
         LBSR        LCD09
@@ -1054,443 +1027,15 @@
         LBSR        LCD0C
         BNE         LC7B1
         RTS  
-LC7B1        LDA         #$44
+LC7B1   LDA         #$44
         LBRA        LC4F9
-LC7B6        LDX         +$04,U
+LC7B6   LDX         +$04,U
         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
-LC7D3        ORCC        #$01
-        PULS        PC,A
-LC7D7       LBRA        LCA96
-
-        org         $c800
-        LBRA        LCA96
-        LBRA        LC8CA
-        LBRA        LC9F2
-
-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
-LC81F           LSRA 
-        LSRA 
-        LSRA 
-        LSRA 
-LC823        ANDA        #$0F
-        CMPA        #$0A
-        BCS         LC82B
-        ADDA        #$07
-LC82B        ADDA        #$30
-        BRA         LC831
-LC82F        LDA         #$20
-LC831     LDB         [<LC80D,PCR]
-        STA         [<LC80D,PCR]
-LC837     LDB         [<LC80F,PCR]
-        BPL         LC837
-        JMP         ,U
-LC83E        CMPA        #$30
-        BCS         LC856
-        CMPA        #$3A
-        BCC         LC84A
-        SUBA        #$30
-        BRA         LC858
-LC84A        CMPA        #$41
-        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
-LC86A        TFR         U,Y
-        LDA         #$0D
-        LEAU        <LC874,PCR
-        LBRA        LC831
-LC874        LDA         #$0A
-        LEAU        <LC87C,PCR
-        LBRA        LC831
-LC87C        JMP         ,Y
-LC87E        TFR         U,Y
-        LDA         ,X
-        LEAU        <LC888,PCR
-        LBRA        LC81F
-LC888        LDA         ,X
-        LEAU        <LC890,PCR
-        LBRA        LC823
-LC890        JMP         ,Y
-LC892        TFR         U,Y
-LC894        TFR         X,D
-        LEAU        <LC89C,PCR
-        LBRA        LC81F
-LC89C        TFR         X,D
-        LEAU        <LC8A4,PCR
-        LBRA        LC823
-LC8A4        TFR         X,D
-        TFR         B,A
-        LEAU        <LC8AE,PCR
-        LBRA        LC81F
-LC8AE        TFR         X,D
-        TFR         B,A
-        LEAU        <LC8B8,PCR
-        LBRA        LC823
-LC8B8        JMP         ,Y
-        TFR         U,Y
-LC8BC        LDA         ,X+
-LC8BE        BEQ         LC8C8
-        LEAU        <LC8C6,PCR
-        LBRA        LC831
-LC8C6        BRA         LC8BC
-LC8C8        JMP         ,Y
-LC8CA     LEAU        <LC8D0,PCR
-        LBRA        LC86A
-LC8D0     LEAU        <LC8D6,PCR
-        LBRA        LC86A
-LC8D6        LDA         #$2A
-        LEAU        <LC8DE,PCR
-        LBRA        LC831
-LC8DE  LDY         #0
-LC8E2     LEAU        <LC8E8,PCR
-        LBRA        LC815
-LC8E8        CMPA        #$47
-LC8EA  LBEQ        LC915
-        CMPA        #$4D
-        LBEQ        LC931
-        CMPA        #$53
-        LBEQ        LC96B
-        LEAU        <LC900,PCR
-        LBRA        LC83E
-LC900        BCS         LC8CA
-        LEAY        ,Y
-        BNE         LC90D
-        LDY         #1
-        LDX         #0
-LC90D     LEAU        <LC913,PCR
-        LBRA        LC85A
-LC913        BRA         LC8E2
-LC915     LEAU        <LC91B,PCR
-        LBRA        LC86A
-LC91B     LEAU        <LC921,PCR
-        LBRA        LC892
-LC921     LEAU        <LC927,PCR
-        LBRA        LC82F
-LC927        LDA         #$47
-        LEAU        <LC92F,PCR
-        LBRA        LC831
-LC92F        JMP         ,X
-LC931  LDB         >LC814,PCR
-LC935  ORB         >LC813,PCR
-        TFR         B,DP
-        LEAU        <LC941,PCR
-        LBRA        LC86A
-LC941     LEAU        <LC947,PCR
-        LBRA        LC892
-LC947     LEAU        <LC94D,PCR
-LC94A     LBRA        LC82F
-LC94D     LEAU        <LC953,PCR
-        LBRA        LC82F
-LC953     LEAU        <LC959,PCR
-        LBRA        LC87E
-LC959        LEAX        +$01,X
-        TFR         DP,B
-        SUBB        #$10
-        TFR         B,DP
-        BITB        #$F0
-        BNE         LC94D
-        DECB 
-        BNE         LC935
-        LBRA        LC8CA
-LC96B     LEAU        <LC971,PCR
-        LBRA        LC86A
-LC971     LEAU        <LC977,PCR
-        LBRA        LC892
-LC977     LEAU        <LC97D,PCR
-        LBRA        LC82F
-LC97D     LEAU        <LC983,PCR
-        BCS         LC94A
-        LEAY        ,Y
-        BNE         LC98D
-        LDY         #1
-        LDX         #0
-LC98D     LEAU        <LC993,PCR
-        LBRA        LC8DA
-LC993        BRA         LC962
-        LEAU        <LC99B,PCR
-        LBRA        LC8EA
-LC99B     LEAU        <LC9A1,PCR
-        LBRA        LC912
-LC9A1     LEAU        <LC9A7,PCR
-        LBRA        LC8AF
-LC9A7        LDA         #$47
-        LEAU        <LC9AF,PCR
-        LBRA        LC8B1
-LC9AF        JMP         ,X
-        LDB         >LC894,PCR
-LC9B5  ORB         >LC893,PCR
-        TFR         B,DP
-        LEAU        <LC9C1,PCR
-        LBRA        LC8EA
-LC9C1     LEAU        <LC9C7,PCR
-        LBRA        LC912
-LC9C7     LEAU        <LC9CD,PCR
-        LBRA        LC8AF
-LC9CD     LEAU        <LC9D3,PCR
-        LBRA        LC8AF
-LC9D3     LEAU        <LC9D9,PCR
-        LBRA        LC8FE
-LC9D9        LEAX        +$01,X
-        TFR         DP,B
-        SUBB        #$10
-        TFR         B,DP
-        BITB        #$F0
-        BNE         LC9CD
-        DECB 
-        BNE         LC9B5
-        LBRA        LC94A
-LC9EB     LEAU        <LC9F1,PCR
-        LBRA        LC8EA
-LC9F1     LEAU        <LC9F7,PCR
-        LBRA        LC912
-LC9F7     LEAU        <LC9FD,PCR
-        LBRA        LC8AF
-LC9FD     LEAU        <LCA03,PCR
-        LBRA        LC8FE
-LCA03        LDA         #$2D
-        LEAU        <LCA0B,PCR
-        LBRA        LC8B1
-LCA0B  LDY         #0
-        CLRB 
-        TFR         B,DP
-LCA12     LEAU        <LCA18,PCR
-        LBRA        LC895
-LCA18     LEAU        <LCA1E,PCR
-        LBRA        LC8BE
-LCA1E        BCS         LCA39
-        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
-LCA45        LDA         #$0D
-LCA47        EXG         A,DP
-        LEAY        ,Y
-        BEQ         LCA4F
-        STA         ,X
-LCA4F        LDA         #$2D
-        LEAU        <LCA57,PCR
-        LBRA        LC8B1
-LCA57     LEAU        <LCA5D,PCR
-        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
-LCA7B        LDA         #$04
-LCA7D        TFR         A,DP
-        LEAX        ,S+
-        LEAU        <LCA87,PCR
-        LBRA        LC8FE
-LCA87     LEAU        <LCA8D,PCR
-        LBRA        LC8AF
-LCA8D     LEAU        <LCA93,PCR
-        LBRA        LC8AF
-LCA93     LEAU        <LCA99,PCR
-LCA96        TFR         DP,A
-        DECA 
-LCA99        BNE         LCA7D
-        LEAX        <LCAF8,PCR
-        LEAU        <LCAA4,PCR
-        LBRA        LC93A
-LCAA4        LDA         #$04
-LCAA6        TFR         A,DP
-        LDX         ,S++
-        LEAU        <LCAB0,PCR
-        LBRA        LC912
-LCAB0     LEAU        <LCAB6,PCR
-        LBRA        LC8AF
-LCAB6     LEAU        <LCABC,PCR
-        LBRA        LC8AF
-LCABC        TFR         DP,A
-        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
-
-        LDX         #LFF48
-        LDA         #$07
-LCB1B        STA         ,-X
-        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
-        LDS         >LC891,PCR
-        LEAX        >LCACC,PCR
-        LEAU        <LCB56,PCR
-        LBRA        LC93A
-LCB56     LBRA        LC94A
-
-        org $cb80
-        LDA         #$01
-        STA         LFF4A
-        STA         LFF4B
-        LDX         #LFF40
-        LDD         #$01F
-LCB8E        STD         ,--X
-        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
-LCCC0  STS         LDF82
-        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
-LCCDF        BSR         LCD14
-        LDS         LDF82
-        LDA         #$01
-        STA         LFF49
-        RTI  
-
-        LDA         LD7FE
-        STB         LD7FE
-LCCF1     LDA         LD7FF
-        BPL         LCCF1
-        RTS  
-
-LCCF7        CMPB        #$0A
-        BCS         LCCFD
-        SUBB        #$0A
-LCCFD        ADDB        #$30
-        BRA         LCD01
+SYSTEM  clrb
+        os9         F$Exit  
+        rts
+eom
+        emod
+        end