Mercurial > hg > Members > kono > os9 > sbc09
diff game09/game09.asm @ 71:eb9be32c701c
fix leval
| author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
|---|---|
| date | Sun, 05 Aug 2018 22:17:44 +0900 |
| parents | a200fa7d5b70 |
| children | 3a2fb51afc4d |
line wrap: on
line diff
--- a/game09/game09.asm Sun Aug 05 16:12:30 2018 +0900 +++ b/game09/game09.asm Sun Aug 05 22:17:44 2018 +0900 @@ -11,12 +11,10 @@ tylg set Prgrm+Objct atrv set ReEnt+rev rev set $01 -edition set 5 +edition set 1 mod eom,name,tylg,atrv,start,size -name fcs "Game09" - fcb edition org 0 dpage rmb $96 @@ -46,10 +44,13 @@ DPSTK rmb 2 linebuf rmb 256 -program rmb 20000 +program rmb 10000 size equ . -start +name fcs "Game09" + fcb edition +start * clrb + * os9 F$Exit LC000 BRA LC005 LC002 NOP LC003 BRA LC014 @@ -62,8 +63,7 @@ STX <$50 LDA #$FF STA ,X -LC014 LBSR LCD00 - LDU <DPWORK +LC014 LDU <DPWORK LEAX size,U STX <$58 LC020 LDA #$FF @@ -183,10 +183,11 @@ BNE LC10E LC114 LBRA LC032 LC117 LBRA LC024 -LC11A LDX #LFB8F +LC11A LDX <DPWORK + LEAX $8F,X TST <$8C BNE LC124 - LDX #LFB95 + LEAX $95,X LC124 LEAY <LC159,PCR LC127 PSHS X LDX ,Y++ @@ -376,7 +377,7 @@ LC292 ANDB #$3F CLRA LSLB - ADDD #LFB04 + ADDD <$04 TFR D,Y RTS LC29C PSHU B,A @@ -610,7 +611,7 @@ BNE LC460 PULS B,A STD <$7E - LDX #LFFFF + LDX #$FFFF STX <$4A LBSR LC09C STX <$50 @@ -637,7 +638,7 @@ LDA +$01,X CMPA #$4E BEQ LC48E - LBRA LC7D7 + LBRA SYSTEM LC48E TST +$02,X BNE LC494 CLR +$03,X @@ -701,7 +702,12 @@ LDB #$20 LBSR LC412 LDX <$42 - CMPX #LFB95 + PSHS Y,D + LDY <DPWORK + LEAY $95,Y + STY ,S + CMPX ,S + PULS Y,D BNE LC519 LBSR LC165 BRA LC51C @@ -732,7 +738,7 @@ LDD <$52 PSHU B,A LC54E - LDD #L3D09 + LDD #$3D09 LBSR LC319 ADDD #1 STD <$52 @@ -743,9 +749,6 @@ CLRA ADDD #1 RTS -LC564 - NEG <$00 - NEG <$00 LC568 CLRA LDB +$01,X @@ -811,8 +814,9 @@ RTS LC5D5 LBSR LC397 LC5D8 LDB #$3A - BSR LC64A - LDX #LFB95 + LBSR LC64A + LDX <DPWORK + LEAX $95,X TST <$8C BNE LC5F2 LDD <$88 @@ -830,7 +834,13 @@ CMPB #$18 BEQ LC5D5 STB ,X+ - CMPX #LFBDF + PSHS Y,D + LDD <DPWORK + ADDD #$DF + LEAY $DF,Y + STY ,Y + CMPX ,S + PULS Y,D BNE LC5F2 LEAX -$01,X LDB #$08 @@ -838,9 +848,14 @@ BRA LC5F2 LC611 TST <$8C BNE LC626 - CMPX #LFB9B + LDY <DPWORK + LEAY $9B,Y + PSHS Y + CMPX ,S++ BEQ LC61F - CMPX #LFB9A + LEAY -1,Y + PSHS Y + CMPX ,S++ BCC LC626 LC61F COM <$8C LBSR LC39B @@ -849,21 +864,25 @@ ADDD <$8A STD <$88 CLR ,X - LDX #LFB95 + LDX <DPWORK + LEAX $95,X LBRA LC39B LC634 LEAX -$01,X - CMPX #LFB94 + LDY <DPWORK + LEAY $94,Y + PSHS Y + CMPX ,S++ BNE LC5F2 STB <$8C - BRA LC5D8 + LBRA LC5D8 LC63F FCB $D,$A FCS "*READY" FCB $D,$A,0 LC64A LBRA OUTCH -LC64D LBRA LC6FC GETCH -LC650 LBRA LC720 SENSE +LC64D LBRA GETCH +LC650 LBRA SENSE LC653 CMPA #$2E EXBOP BNE LC65E @@ -911,7 +930,7 @@ BSR LC6C9 BRA LC6B3 LC6AE LEAX +$01,X -LC6B0 LDD #LFFFF +LC6B0 LDD #$FFFF LC6B3 PSHU B,A LDA ,X DEC ,S @@ -949,18 +968,18 @@ RTS GETCH LDA #0 - PSHS A + PSHS B LEAX ,S LDY #1 OS9 I$Read - PULS A + PULS B BCS GETCH -OUTCH PSHS A +OUTCH PSHS B LEAX ,S LDA #1 LDY #1 OS9 I$Write - PULS A,PC + PULS B,PC SENSE LDA #0 LDB #SS.Ready OS9 i$GetStt @@ -1020,11 +1039,11 @@ LC79E CLR <$8C RTS BSR LC7B6 - LBSR LCD09 + * LBSR LCD09 BNE LC7B1 RTS BSR LC7B6 - LBSR LCD0C + * LBSR LCD0C BNE LC7B1 RTS LC7B1 LDA #$44 @@ -1036,6 +1055,6 @@ SYSTEM clrb os9 F$Exit rts -eom emod +eom equ * end