Mercurial > hg > Members > kono > os9 > sbc09

comparison game09/game09.asm @ 76:6462dc3978f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix game09 jump table
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Tue, 07 Aug 2018 10:37:59 +0900
parents 7aad8084a784
children 11e19ea1a7ea
comparison
equal deleted inserted replaced
75:7aad8084a784 76:6462dc3978f1
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 23 DP04 equ $04 variabble base A-Z (until DP36)
24 DP06 equ $06 variabble A-Z (until DP36)
25 DP42 equ $42 program copy pointer 24 DP42 equ $42 program copy pointer
26 DP46 equ $46 25 DP46 equ $46
27 DP4A equ $4A input lineno 26 DP4A equ $4A input lineno
28 DP4B equ $4B 27 DP4B equ $4B
29 DP4E equ $4E 28 DP4E equ $4E
69 STX <$7E 68 STX <$7E
70 STX <$50 69 STX <$50
71 LDA #$FF 70 LDA #$FF
72 STA ,X 71 STA ,X
73 LC014 LDU <DPWORK 72 LC014 LDU <DPWORK
74 LEAX DP06-24*2,U 73 LEAX DP04,U
75 STX <DP04 74 STX <DP04
76 LEAX linebuf-1,U 75 LEAX linebuf-1,U
77 STX <lineb0 76 STX <lineb0
78 LEAX 1,X 77 LEAX 1,X
79 STX <linetop 78 STX <linetop
333 LBSR LC5D8 332 LBSR LC5D8
334 BSR LC1F6 333 BSR LC1F6
335 PULS X 334 PULS X
336 LEAX +$01,X 335 LEAX +$01,X
337 RTS 336 RTS
338 LEAX +$01,X 337 LC22A LEAX +$01,X
339 BRA LC1F6 338 BRA LC1F6
340 LC22E BSR LC287 339 LC22E BSR LC287
341 CMPA #$3A 340 CMPA #$3A
342 BEQ LC239 341 BEQ LC239
343 BSR LC26E 342 BSR LC26E
359 358
360 LC251 fdb LC6EC-LC251 049b " 359 LC251 fdb LC6EC-LC251 049b "
361 fdb LC535-LC251 02e2 # 360 fdb LC535-LC251 02e2 #
362 fdb LC5A1-LC251 034c $ 361 fdb LC5A1-LC251 034c $
363 fdb LC545-LC251 02ee % 362 fdb LC545-LC251 02ee %
364 fdb LC236-LC251 ffdd & 363 fdb LC22E-LC251 ffdd &
365 fdb LC54E-LC251 02f3 ' 364 fdb LC545-LC251 02f3 '
366 fdb LC236-LC251 ffd9 ( 365 fdb LC22A-LC251 ffd9 (
367 fdb LC23C-LC251 ffdd ) 366 fdb LC22E-LC251 ffdd )
368 fdb LC23E-LC251 ffdd * 367 fdb LC22E-LC251 ffdd *
369 fdb LC53F-LC251 02dc + 368 fdb LC52D-LC251 02dc +
370 fdb LC23F-LC251 ffdd , 369 fdb LC22E-LC251 ffdd ,
371 fdb LC53F-LC251 02d8 - 370 fdb LC529-LC251 02d8 -
372 371
373 LC269 BSR LC279 372 LC269 BSR LC279
374 LEAY D,Y 373 LEAY D,Y
375 RTS 374 RTS
376 LC26E CMPA #$28 375 LC26E CMPA #$28
730 LC51C LBRA LC024 729 LC51C LBRA LC024
731 LC51F LEAX +$01,X 730 LC51F LEAX +$01,X
732 LC521 LBSR LC373 731 LC521 LBSR LC373
733 BCS LC532 732 BCS LC532
734 LBRA LC23F 733 LBRA LC23F
735 BSR LC51F 734 LC529 BSR LC51F -
736 BRA LC4F3 735 BRA LC4F3
737 BSR LC51F 736 LC52D BSR LC51F +
738 TSTA 737 TSTA
739 BMI LC4F3 738 BMI LC4F3
740 LC532 RTS 739 LC532 RTS
741 BSR LC51F 740 LC535 BSR LC51F
742 LC535 PSHS B,A 741 PSHS B,A
743 LDD ,S++ 742 LDD ,S++
744 LBNE LC2E4 743 LBNE LC2E4
745 INCB 744 INCB
746 RTS 745 RTS
747 LC53F BSR LC51F 746 LC53F BSR LC51F
750 LC545 749 LC545
751 BSR LC51F 750 BSR LC51F
752 PSHU B,A 751 PSHU B,A
753 LDD <$52 752 LDD <$52
754 PSHU B,A 753 PSHU B,A
755 LC54E
756 LDD #$3D09 754 LDD #$3D09
757 LBSR LC319 755 LBSR LC319
758 ADDD #1 756 ADDD #1
759 STD <$52 757 STD <$52
760 TFR A,B 758 TFR A,B
791 LC592 CMPB #$0A 789 LC592 CMPB #$0A
792 BMI LC598 790 BMI LC598
793 ADDB #$07 791 ADDB #$07
794 LC598 ADDB #$30 792 LC598 ADDB #$30
795 LBRA LC412 793 LBRA LC412
796 CLRA 794 LC5A1 CLRA
797 BSR LC5BD 795 BSR LC5BD
798 LC5A1
799 LBCC LC64D 796 LBCC LC64D
800 LC5A4 PSHS B 797 LC5A4 PSHS B
801 BSR LC5BD 798 BSR LC5BD
802 PSHU B 799 PSHU B
803 PULS B 800 PULS B
981 LEAX ,S 978 LEAX ,S
982 LDA #1 979 LDA #1
983 LDY #1 980 LDY #1
984 OS9 I$Write 981 OS9 I$Write
985 PULS B,X,Y,PC 982 PULS B,X,Y,PC
986 SENSE PSHS X,Y 983 SENSE PSHS X,Y,D
987 LDA #0 984 LDA #0
988 LDB #SS.Ready 985 LDB #SS.Ready
989 OS9 i$GetStt 986 OS9 I$GetStt
990 CMPB #$F6 Not Ready 987 CMPB #$F6 Not Ready
991 BNE RSENSE 988 BNE RSENSE
992 CLRB 989 CLRB
993 BRA RNSENSE 990 PULS X,Y,D,PC
994 RSENSE 991 RSENSE
995 ORCC #1 set carry to indicate ready 992 ORCC #1 set carry to indicate ready
996 RNSENSE 993 RNSENSE
997 PULS X,Y,PC 994 PULS X,Y,D,PC
998 995
999 996
1000 997
1001 * COMMAND TABLE CONSIST.... 998 * COMMAND TABLE CONSIST....
1002 * COMMAND NAME (2 BYTE) 999 * COMMAND NAME (2 BYTE)