Mercurial > hg > Members > kono > os9 > sbc09
changeset 113:a8b7dfc1baf5
program code switch in game09
| author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
|---|---|
| date | Tue, 01 Jan 2019 08:16:34 +0900 |
| parents | 348d062ee8de |
| children | bc9f2f443421 |
| files | game09/game09.asm |
| diffstat | 1 files changed, 21 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/game09/game09.asm Mon Dec 31 21:26:53 2018 +0900 +++ b/game09/game09.asm Tue Jan 01 08:16:34 2019 +0900 @@ -36,7 +36,7 @@ DP7E equ $7E "=" program top DP82 equ $82 "@" DP83 equ $83 -DP84 equ $84 +DP84 equ $84 rvalue pointer DP86 equ $86 input line (except lineno) DP88 equ $88 DP8A equ $8A @@ -287,7 +287,7 @@ BRA LC1D3 LC1B9 STX <$84 BSR LC1EC - LBSR LC39F + LBSR LVALUE BSR LC173 LDX <$4A BNE LC1D7 @@ -309,7 +309,23 @@ PULS PC,B,A LC1E7 LDA #$3D LBRA LC4F9 -LC1EC LDA ,X+ +LC1EC CMPA #$3D + BNE LC1ED + leax 2,x + lda ,x + lbsr expr + std <$7E + tfr d,x +lploop ldd ,x++ + cmpd #-1 + beq lpend +lpl tst ,x++ + bne lpl + bra lploop +lpend leax -2,x + stx <$50 + lbra warmst +LC1ED LDA ,X+ BITA #$DF BEQ LC1E7 CMPA #$3D @@ -547,7 +563,7 @@ BSR LC39D LC39B LDB #$0A LC39D BRA LC412 -LC39F PSHS B,A +LVALUE PSHS B,A LDA #$01 STA <$8C LDX <$84 @@ -584,7 +600,7 @@ RTS LC3E4 CMPB #$26 BNE LC3FA -LC3E8 LDB +$01,X + LDB +$01,X CMPB #$3D BNE LC3FA LDD ,S++