Mercurial > hg > Members > kono > os9 > sbc09

comparison game09/game09.asm @ 71:eb9be32c701c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix leval
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sun, 05 Aug 2018 22:17:44 +0900
parents a200fa7d5b70
children 3a2fb51afc4d
comparison
equal deleted inserted replaced
70:a200fa7d5b70 71:eb9be32c701c
9 nam Game09 9 nam Game09
10 ttl Game09 10 ttl Game09
11 tylg set Prgrm+Objct 11 tylg set Prgrm+Objct
12 atrv set ReEnt+rev 12 atrv set ReEnt+rev
13 rev set $01 13 rev set $01
14 edition set 5 14 edition set 1
15 15
16 mod eom,name,tylg,atrv,start,size 16 mod eom,name,tylg,atrv,start,size
17 17
18 name fcs "Game09"
19 fcb edition
20 18
21 org 0 19 org 0
22 dpage rmb $96 20 dpage rmb $96
23 21
24 DP00 equ $00 22 DP00 equ $00
44 DP94 equ $94 42 DP94 equ $94
45 DPWORK rmb 2 43 DPWORK rmb 2
46 DPSTK rmb 2 44 DPSTK rmb 2
47 45
48 linebuf rmb 256 46 linebuf rmb 256
49 program rmb 20000 47 program rmb 10000
50 size equ . 48 size equ .
51 49
52 start 50 name fcs "Game09"
51 fcb edition
52 start * clrb
53 * os9 F$Exit
53 LC000 BRA LC005 54 LC000 BRA LC005
54 LC002 NOP 55 LC002 NOP
55 LC003 BRA LC014 56 LC003 BRA LC014
56 LC005 TFR U,D 57 LC005 TFR U,D
57 TFR A,DP 58 TFR A,DP
60 LEAX program,U 61 LEAX program,U
61 STX <$7E 62 STX <$7E
62 STX <$50 63 STX <$50
63 LDA #$FF 64 LDA #$FF
64 STA ,X 65 STA ,X
65 LC014 LBSR LCD00 66 LC014 LDU <DPWORK
66 LDU <DPWORK
67 LEAX size,U 67 LEAX size,U
68 STX <$58 68 STX <$58
69 LC020 LDA #$FF 69 LC020 LDA #$FF
70 STA <$8C 70 STA <$8C
71 LC024 LDS <DPSTK 71 LC024 LDS <DPSTK
181 LC10E LDB ,Y+ 181 LC10E LDB ,Y+
182 STB ,X+ 182 STB ,X+
183 BNE LC10E 183 BNE LC10E
184 LC114 LBRA LC032 184 LC114 LBRA LC032
185 LC117 LBRA LC024 185 LC117 LBRA LC024
186 LC11A LDX #LFB8F 186 LC11A LDX <DPWORK
187 LEAX $8F,X
187 TST <$8C 188 TST <$8C
188 BNE LC124 189 BNE LC124
189 LDX #LFB95 190 LEAX $95,X
190 LC124 LEAY <LC159,PCR 191 LC124 LEAY <LC159,PCR
191 LC127 PSHS X 192 LC127 PSHS X
192 LDX ,Y++ 193 LDX ,Y++
193 PSHU X 194 PSHU X
194 LBSR LC335 195 LBSR LC335
374 RTS 375 RTS
375 376
376 LC292 ANDB #$3F 377 LC292 ANDB #$3F
377 CLRA 378 CLRA
378 LSLB 379 LSLB
379 ADDD #LFB04 380 ADDD <$04
380 TFR D,Y 381 TFR D,Y
381 RTS 382 RTS
382 LC29C PSHU B,A 383 LC29C PSHU B,A
383 LDD ,X+ 384 LDD ,X+
384 PSHS B,A 385 PSHS B,A
608 BRA LC424 609 BRA LC424
609 LC449 CMPB #$3D 610 LC449 CMPB #$3D
610 BNE LC460 611 BNE LC460
611 PULS B,A 612 PULS B,A
612 STD <$7E 613 STD <$7E
613 LDX #LFFFF 614 LDX #$FFFF
614 STX <$4A 615 STX <$4A
615 LBSR LC09C 616 LBSR LC09C
616 STX <$50 617 STX <$50
617 LBRA LC024 618 LBRA LC024
618 LC45E PULS PC,B,A 619 LC45E PULS PC,B,A
635 STD ,Y 636 STD ,Y
636 RTS 637 RTS
637 LDA +$01,X 638 LDA +$01,X
638 CMPA #$4E 639 CMPA #$4E
639 BEQ LC48E 640 BEQ LC48E
640 LBRA LC7D7 641 LBRA SYSTEM
641 LC48E TST +$02,X 642 LC48E TST +$02,X
642 BNE LC494 643 BNE LC494
643 CLR +$03,X 644 CLR +$03,X
644 LC494 LEAX +$03,X 645 LC494 LEAX +$03,X
645 CLR <$8C 646 CLR <$8C
699 TFR A,B 700 TFR A,B
700 LBSR LC412 701 LBSR LC412
701 LDB #$20 702 LDB #$20
702 LBSR LC412 703 LBSR LC412
703 LDX <$42 704 LDX <$42
704 CMPX #LFB95 705 PSHS Y,D
706 LDY <DPWORK
707 LEAY $95,Y
708 STY ,S
709 CMPX ,S
710 PULS Y,D
705 BNE LC519 711 BNE LC519
706 LBSR LC165 712 LBSR LC165
707 BRA LC51C 713 BRA LC51C
708 LC519 LBSR LC087 714 LC519 LBSR LC087
709 LC51C LBRA LC024 715 LC51C LBRA LC024
730 BSR LC51F 736 BSR LC51F
731 PSHU B,A 737 PSHU B,A
732 LDD <$52 738 LDD <$52
733 PSHU B,A 739 PSHU B,A
734 LC54E 740 LC54E
735 LDD #L3D09 741 LDD #$3D09
736 LBSR LC319 742 LBSR LC319
737 ADDD #1 743 ADDD #1
738 STD <$52 744 STD <$52
739 TFR A,B 745 TFR A,B
740 CLRA 746 CLRA
741 LBSR LC319 747 LBSR LC319
742 TFR A,B 748 TFR A,B
743 CLRA 749 CLRA
744 ADDD #1 750 ADDD #1
745 RTS 751 RTS
746 LC564
747 NEG <$00
748 NEG <$00
749 LC568 752 LC568
750 CLRA 753 CLRA
751 LDB +$01,X 754 LDB +$01,X
752 LEAX +$03,X 755 LEAX +$03,X
753 RTS 756 RTS
809 LC5D1 RTS 812 LC5D1 RTS
810 LC5D2 ANDCC #$FE 813 LC5D2 ANDCC #$FE
811 RTS 814 RTS
812 LC5D5 LBSR LC397 815 LC5D5 LBSR LC397
813 LC5D8 LDB #$3A 816 LC5D8 LDB #$3A
814 BSR LC64A 817 LBSR LC64A
815 LDX #LFB95 818 LDX <DPWORK
819 LEAX $95,X
816 TST <$8C 820 TST <$8C
817 BNE LC5F2 821 BNE LC5F2
818 LDD <$88 822 LDD <$88
819 LBMI LC020 823 LBMI LC020
820 LBSR LC443 824 LBSR LC443
828 BCS LC5F2 832 BCS LC5F2
829 BEQ LC611 833 BEQ LC611
830 CMPB #$18 834 CMPB #$18
831 BEQ LC5D5 835 BEQ LC5D5
832 STB ,X+ 836 STB ,X+
833 CMPX #LFBDF 837 PSHS Y,D
838 LDD <DPWORK
839 ADDD #$DF
840 LEAY $DF,Y
841 STY ,Y
842 CMPX ,S
843 PULS Y,D
834 BNE LC5F2 844 BNE LC5F2
835 LEAX -$01,X 845 LEAX -$01,X
836 LDB #$08 846 LDB #$08
837 BSR LC64A 847 BSR LC64A
838 BRA LC5F2 848 BRA LC5F2
839 LC611 TST <$8C 849 LC611 TST <$8C
840 BNE LC626 850 BNE LC626
841 CMPX #LFB9B 851 LDY <DPWORK
852 LEAY $9B,Y
853 PSHS Y
854 CMPX ,S++
842 BEQ LC61F 855 BEQ LC61F
843 CMPX #LFB9A 856 LEAY -1,Y
857 PSHS Y
858 CMPX ,S++
844 BCC LC626 859 BCC LC626
845 LC61F COM <$8C 860 LC61F COM <$8C
846 LBSR LC39B 861 LBSR LC39B
847 BRA LC5D8 862 BRA LC5D8
848 LC626 LDD <$88 863 LC626 LDD <$88
849 ADDD <$8A 864 ADDD <$8A
850 STD <$88 865 STD <$88
851 CLR ,X 866 CLR ,X
852 LDX #LFB95 867 LDX <DPWORK
868 LEAX $95,X
853 LBRA LC39B 869 LBRA LC39B
854 LC634 LEAX -$01,X 870 LC634 LEAX -$01,X
855 CMPX #LFB94 871 LDY <DPWORK
872 LEAY $94,Y
873 PSHS Y
874 CMPX ,S++
856 BNE LC5F2 875 BNE LC5F2
857 STB <$8C 876 STB <$8C
858 BRA LC5D8 877 LBRA LC5D8
859 LC63F 878 LC63F
860 FCB $D,$A 879 FCB $D,$A
861 FCS "*READY" 880 FCS "*READY"
862 FCB $D,$A,0 881 FCB $D,$A,0
863 882
864 LC64A LBRA OUTCH 883 LC64A LBRA OUTCH
865 LC64D LBRA LC6FC GETCH 884 LC64D LBRA GETCH
866 LC650 LBRA LC720 SENSE 885 LC650 LBRA SENSE
867 886
868 LC653 CMPA #$2E EXBOP 887 LC653 CMPA #$2E EXBOP
869 BNE LC65E 888 BNE LC65E
870 PULU B,A 889 PULU B,A
871 ORA ,U+ 890 ORA ,U+
909 CMPA #$2C 928 CMPA #$2C
910 BEQ LC6AE 929 BEQ LC6AE
911 BSR LC6C9 930 BSR LC6C9
912 BRA LC6B3 931 BRA LC6B3
913 LC6AE LEAX +$01,X 932 LC6AE LEAX +$01,X
914 LC6B0 LDD #LFFFF 933 LC6B0 LDD #$FFFF
915 LC6B3 PSHU B,A 934 LC6B3 PSHU B,A
916 LDA ,X 935 LDA ,X
917 DEC ,S 936 DEC ,S
918 BNE LC6A2 937 BNE LC6A2
919 LDD +$03,S 938 LDD +$03,S
947 BNE LC6F0 966 BNE LC6F0
948 LC6F8 CLRA 967 LC6F8 CLRA
949 RTS 968 RTS
950 969
951 GETCH LDA #0 970 GETCH LDA #0
952 PSHS A 971 PSHS B
953 LEAX ,S 972 LEAX ,S
954 LDY #1 973 LDY #1
955 OS9 I$Read 974 OS9 I$Read
956 PULS A 975 PULS B
957 BCS GETCH 976 BCS GETCH
958 OUTCH PSHS A 977 OUTCH PSHS B
959 LEAX ,S 978 LEAX ,S
960 LDA #1 979 LDA #1
961 LDY #1 980 LDY #1
962 OS9 I$Write 981 OS9 I$Write
963 PULS A,PC 982 PULS B,PC
964 SENSE LDA #0 983 SENSE LDA #0
965 LDB #SS.Ready 984 LDB #SS.Ready
966 OS9 i$GetStt 985 OS9 i$GetStt
967 RTS 986 RTS
968 987
1018 LDD #LC3E8 1037 LDD #LC3E8
1019 LC79C STD <$88 1038 LC79C STD <$88
1020 LC79E CLR <$8C 1039 LC79E CLR <$8C
1021 RTS 1040 RTS
1022 BSR LC7B6 1041 BSR LC7B6
1023 LBSR LCD09 1042 * LBSR LCD09
1024 BNE LC7B1 1043 BNE LC7B1
1025 RTS 1044 RTS
1026 BSR LC7B6 1045 BSR LC7B6
1027 LBSR LCD0C 1046 * LBSR LCD0C
1028 BNE LC7B1 1047 BNE LC7B1
1029 RTS 1048 RTS
1030 LC7B1 LDA #$44 1049 LC7B1 LDA #$44
1031 LBRA LC4F9 1050 LBRA LC4F9
1032 LC7B6 LDX +$04,U 1051 LC7B6 LDX +$04,U
1034 LDB +$01,U 1053 LDB +$01,U
1035 RTS 1054 RTS
1036 SYSTEM clrb 1055 SYSTEM clrb
1037 os9 F$Exit 1056 os9 F$Exit
1038 rts 1057 rts
1039 eom
1040 emod 1058 emod
1059 eom equ *
1041 end 1060 end