Mercurial > hg > Members > kono > os9 > sbc09

comparison game09/game09.asm @ 113:a8b7dfc1baf5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
112:348d062ee8de 113:a8b7dfc1baf5
34 DP58 equ $58 program max 34 DP58 equ $58 program max
35 DP7C equ $7C 35 DP7C equ $7C
36 DP7E equ $7E "=" program top 36 DP7E equ $7E "=" program top
37 DP82 equ $82 "@" 37 DP82 equ $82 "@"
38 DP83 equ $83 38 DP83 equ $83
39 DP84 equ $84 39 DP84 equ $84 rvalue pointer
40 DP86 equ $86 input line (except lineno) 40 DP86 equ $86 input line (except lineno)
41 DP88 equ $88 41 DP88 equ $88
42 DP8A equ $8A 42 DP8A equ $8A
43 DP8C equ $8C 43 DP8C equ $8C
44 DP8D equ $8D 44 DP8D equ $8D
285 BNE LC1B9 285 BNE LC1B9
286 LBSR LC676 286 LBSR LC676
287 BRA LC1D3 287 BRA LC1D3
288 LC1B9 STX <$84 288 LC1B9 STX <$84
289 BSR LC1EC 289 BSR LC1EC
290 LBSR LC39F 290 LBSR LVALUE
291 BSR LC173 291 BSR LC173
292 LDX <$4A 292 LDX <$4A
293 BNE LC1D7 293 BNE LC1D7
294 LC1C6 LDX <$46 294 LC1C6 LDX <$46
295 BRA LC1D3 295 BRA LC1D3
307 LC1E0 LDY <$42 307 LC1E0 LDY <$42
308 PSHU Y,X,B,A 308 PSHU Y,X,B,A
309 PULS PC,B,A 309 PULS PC,B,A
310 LC1E7 LDA #$3D 310 LC1E7 LDA #$3D
311 LBRA LC4F9 311 LBRA LC4F9
312 LC1EC LDA ,X+ 312 LC1EC CMPA #$3D
313 BNE LC1ED
314 leax 2,x
315 lda ,x
316 lbsr expr
317 std <$7E
318 tfr d,x
319 lploop ldd ,x++
320 cmpd #-1
321 beq lpend
322 lpl tst ,x++
323 bne lpl
324 bra lploop
325 lpend leax -2,x
326 stx <$50
327 lbra warmst
328 LC1ED LDA ,X+
313 BITA #$DF 329 BITA #$DF
314 BEQ LC1E7 330 BEQ LC1E7
315 CMPA #$3D 331 CMPA #$3D
316 BNE LC1EC 332 BNE LC1EC
317 LC1F6 LBSR EXPR 333 LC1F6 LBSR EXPR
545 LC396 RTS 561 LC396 RTS
546 LC397 LDB #$0D 562 LC397 LDB #$0D
547 BSR LC39D 563 BSR LC39D
548 LC39B LDB #$0A 564 LC39B LDB #$0A
549 LC39D BRA LC412 565 LC39D BRA LC412
550 LC39F PSHS B,A 566 LVALUE PSHS B,A
551 LDA #$01 567 LDA #$01
552 STA <$8C 568 STA <$8C
553 LDX <$84 569 LDX <$84
554 LDB ,X 570 LDB ,X
555 CMPB #$2E 571 CMPB #$2E
582 RTS 598 RTS
583 LC3E1 LEAU +$04,U 599 LC3E1 LEAU +$04,U
584 RTS 600 RTS
585 LC3E4 CMPB #$26 601 LC3E4 CMPB #$26
586 BNE LC3FA 602 BNE LC3FA
587 LC3E8 LDB +$01,X 603 LDB +$01,X
588 CMPB #$3D 604 CMPB #$3D
589 BNE LC3FA 605 BNE LC3FA
590 LDD ,S++ 606 LDD ,S++
591 BNE LC3F9 607 BNE LC3F9
592 LDX <$7E 608 LDX <$7E