comparison game09/game09.asm @ 75:7aad8084a784

fix game09 table jump and assignment
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 06 Aug 2018 21:40:55 +0900
parents c29030b5e4b4
children 6462dc3978f1
comparison
equal deleted inserted replaced
74:c29030b5e4b4 75:7aad8084a784
18 18
19 org 0 19 org 0
20 dpage rmb $96 20 dpage rmb $96
21 21
22 DP00 equ $00 22 DP00 equ $00
23 DP04 equ $04
24 DP06 equ $06 variabble A-Z (until DP36)
23 DP42 equ $42 program copy pointer 25 DP42 equ $42 program copy pointer
24 DP46 equ $46 26 DP46 equ $46
25 DP4A equ $4A input lineno 27 DP4A equ $4A input lineno
26 DP4B equ $4B 28 DP4B equ $4B
27 DP4E equ $4E 29 DP4E equ $4E
67 STX <$7E 69 STX <$7E
68 STX <$50 70 STX <$50
69 LDA #$FF 71 LDA #$FF
70 STA ,X 72 STA ,X
71 LC014 LDU <DPWORK 73 LC014 LDU <DPWORK
74 LEAX DP06-24*2,U
75 STX <DP04
72 LEAX linebuf-1,U 76 LEAX linebuf-1,U
73 STX <lineb0 77 STX <lineb0
74 LEAX 1,X 78 LEAX 1,X
75 STX <linetop 79 STX <linetop
76 LEAX 5,X 80 LEAX 5,X
351 LSLB 355 LSLB
352 LEAY <LC251,PCR 356 LEAY <LC251,PCR
353 LDD B,Y 357 LDD B,Y
354 JMP D,Y 358 JMP D,Y
355 359
356 LC251 fdb LC6EC-* 049b 360 LC251 fdb LC6EC-LC251 049b "
357 fdb LC535-* 02e2 361 fdb LC535-LC251 02e2 #
358 fdb LC5A1-* 034c 362 fdb LC5A1-LC251 034c $
359 fdb LC545-* 02ee 363 fdb LC545-LC251 02ee %
360 fdb LC236-* ffdd 364 fdb LC236-LC251 ffdd &
361 fdb LC54E-* 02f3 365 fdb LC54E-LC251 02f3 '
362 fdb LC236-* ffd9 366 fdb LC236-LC251 ffd9 (
363 fdb LC23C-* ffdd 367 fdb LC23C-LC251 ffdd )
364 fdb LC23E-* ffdd 368 fdb LC23E-LC251 ffdd *
365 fdb LC53F-* 02dc 369 fdb LC53F-LC251 02dc +
366 fdb LC23F-* ffdd 370 fdb LC23F-LC251 ffdd ,
367 fdb LC53F-* 02d8 371 fdb LC53F-LC251 02d8 -
368 372
369 LC269 BSR LC279 373 LC269 BSR LC279
370 LEAY D,Y 374 LEAY D,Y
371 RTS 375 RTS
372 LC26E CMPA #$28 376 LC26E CMPA #$28
390 RTS 394 RTS
391 395
392 LC292 ANDB #$3F 396 LC292 ANDB #$3F
393 CLRA 397 CLRA
394 LSLB 398 LSLB
395 ADDD <$04 399 ADDD <DP04
396 TFR D,Y 400 TFR D,Y
397 RTS 401 RTS
398 LC29C PSHU B,A 402 LC29C PSHU B,A
399 LDD ,X+ 403 LDD ,X+
400 PSHS B,A 404 PSHS B,A