Mercurial > hg > Members > kono > os9 > sbc09

comparison game09/game09.asm @ 114:bc9f2f443421

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Tue, 01 Jan 2019 08:55:44 +0900
parents a8b7dfc1baf5
children 6be44b5de445
comparison
equal deleted inserted replaced
113:a8b7dfc1baf5 114:bc9f2f443421
52 lineb9a rmb 2 $9E 52 lineb9a rmb 2 $9E
53 lineb9b rmb 2 $A0 53 lineb9b rmb 2 $A0
54 lineend rmb 2 $A2 54 lineend rmb 2 $A2
55 ustack rmb 128 55 ustack rmb 128
56 linebuf rmb 252 56 linebuf rmb 252
57 program rmb $8000 57 program rmb $6000
58 size equ . 58 size equ .
59 59
60 name fcs "Game09" 60 name fcs "Game09"
61 fcb edition 61 fcb edition
62 coldstart 62 coldstart
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 CMPA #$3D 312 LC1EC CMPA #$3D
313 BNE LC1ED 313 BNE LC1ED
314 * = assignment ( GAME code top switch )
314 leax 2,x 315 leax 2,x
315 lda ,x 316 lda ,x
316 lbsr expr 317 lbsr expr
317 std <$7E 318 std <$7E
318 tfr d,x 319 tfr d,x
319 lploop ldd ,x++ 320 lploop ldd ,x+
320 cmpd #-1 321 cmpd #$00ff
321 beq lpend 322 bne lploop
322 lpl tst ,x++ 323 lpend stx <$50
323 bne lpl 324 ldd <$7e
324 bra lploop
325 lpend leax -2,x
326 stx <$50
327 lbra warmst 325 lbra warmst
328 LC1ED LDA ,X+ 326 LC1ED LDA ,X+
329 BITA #$DF 327 BITA #$DF
330 BEQ LC1E7 328 BEQ LC1E7
331 CMPA #$3D 329 CMPA #$3D