From: Mark Tearle Date: Fri, 28 Sep 2001 10:38:17 +0000 (+0000) Subject: more jumps X-Git-Tag: ROMW~158 X-Git-Url: https://git.ucc.asn.au/?a=commitdiff_plain;h=f37c2b3d04219cd45d86d012287bbd7eb742787f;p=uccvend-snackrom.git more jumps --- diff --git a/ROM/vend.asm b/ROM/vend.asm index d385637..1987e97 100644 --- a/ROM/vend.asm +++ b/ROM/vend.asm @@ -236,7 +236,7 @@ 8100 F6 00 1D ... ldab 001d 8103 C4 10 .. andb #10 8105 27 3D '= beq 3d -8107 BD D6 52 ..R jsr d652 +8107 BD D6 52 ..R jsr d652 ;jump5 810A CE 00 1D ... ldx #001d 810D 1D 00 .. bclr add,x 00,x 810F 10 . sba @@ -265,7 +265,7 @@ 8144 F6 00 42 ..B ldab 0042 8147 C1 0B .. cmpb #0b 8149 26 0F &. bne 0f -814B BD AB 89 ... jsr ab89 +814B BD AB 89 ... jsr ab89 ;jump7 814E 7F 00 19 ... clr 0019 8151 7F 00 60 ..` clr 0060 8154 7F 00 42 ..B clr 0042 @@ -340,7 +340,7 @@ 81FA BD BE 4B ..K jsr be4b ;jump1 81FD F6 00 48 ..H ldab 0048 8200 26 03 &. bne 03 -8202 BD AB A2 ... jsr aba2 +8202 BD AB A2 ... jsr aba2 ;jump8 8205 F6 00 48 ..H ldab 0048 8208 4F O clra 8209 BD FE 16 ... jsr fe16 ;jump2 @@ -384,7 +384,7 @@ 825B F6 00 54 ..T ldab 0054 825E F7 00 06 ... stb 0006 8261 F6 00 06 ... ldab 0006 -8264 BD D7 A0 ... jsr d7a0 +8264 BD D7 A0 ... jsr d7a0 ;jump10 8267 83 00 00 ... subd #0000 826A 27 15 '. beq 15 826C CC 7F FF ... ldd #7fff @@ -415,7 +415,7 @@ 8299 EC 00 .. ldd 00,x 829B 84 02 .. anda #02 829D 27 08 '. beq 08 -829F BD 98 A5 ... jsr 98a5 +829F BD 98 A5 ... jsr 98a5 ;jump11 82A2 C6 0A .. ldab #0a 82A4 F7 00 38 ..8 stb 0038 82A7 7C 00 54 |.T inc 0054 @@ -446,7 +446,7 @@ 82E4 F6 00 54 ..T ldab 0054 82E7 F7 00 06 ... stb 0006 82EA F6 00 06 ... ldab 0006 -82ED BD D7 A0 ... jsr d7a0 +82ED BD D7 A0 ... jsr d7a0 ;jump10 82F0 83 00 00 ... subd #0000 82F3 27 15 '. beq 15 82F5 CC 7F FF ... ldd #7fff @@ -477,7 +477,7 @@ 8322 EC 00 .. ldd 00,x 8324 84 04 .. anda #04 8326 27 08 '. beq 08 -8328 BD 98 A5 ... jsr 98a5 +8328 BD 98 A5 ... jsr 98a5 ;jump11 832B C6 0A .. ldab #0a 832D F7 00 38 ..8 stb 0038 8330 7C 00 54 |.T inc 0054 @@ -508,7 +508,7 @@ 836D F6 00 54 ..T ldab 0054 8370 F7 00 06 ... stb 0006 8373 F6 00 06 ... ldab 0006 -8376 BD D7 A0 ... jsr d7a0 +8376 BD D7 A0 ... jsr d7a0 ;jump10 8379 83 00 00 ... subd #0000 837C 26 17 &. bne 17 837E F6 00 54 ..T ldab 0054 @@ -519,7 +519,7 @@ 8387 EC 00 .. ldd 00,x 8389 84 01 .. anda #01 838B 27 08 '. beq 08 -838D BD 98 A5 ... jsr 98a5 +838D BD 98 A5 ... jsr 98a5 ;jump11 8390 C6 0A .. ldab #0a 8392 F7 00 38 ..8 stb 0038 8395 7C 00 54 |.T inc 0054 @@ -612,13 +612,13 @@ 8478 F6 00 1D ... ldab 001d 847B 2C 0E ,. bge 0e 847D CC AE A8 ... ldd #aea8 " SYSTEM " -8480 BD C0 BA ... jsr c0ba +8480 BD C0 BA ... jsr c0ba ;display: 8483 CE 00 1D ... ldx #001d 8486 1D 00 .. bclr add,x 00,x 8488 80 20 . suba #20 848A 0C . clc 848B CC AE B3 ... ldd #aeb3 " OK " -848E BD C0 BA ... jsr c0ba +848E BD C0 BA ... jsr c0ba ;display: 8491 CE 00 1D ... ldx #001d 8494 1C 00 .. bset add,x 00,x 8496 80 C6 .. suba #c6 @@ -632,7 +632,7 @@ 84A5 7E 85 96 ~.. jmp 8596 84A8 F6 00 1F ... ldab 001f 84AB 2C 40 ,@ bge 40 -84AD BD D6 52 ..R jsr d652 +84AD BD D6 52 ..R jsr d652 ;jump5 84B0 7F 00 42 ..B clr 0042 84B3 7F 00 09 ... clr 0009 84B6 7F 00 0A ... clr 000a @@ -643,7 +643,7 @@ 84C1 5F _ clrb 84C2 4F O clra 84C3 FD 00 3E ..> stad 003e -84C6 BD E5 AA ... jsr e5aa +84C6 BD E5 AA ... jsr e5aa ;jump12 84C9 CE 00 1F ... ldx #001f 84CC 1D 00 .. bclr add,x 00,x 84CE 80 CE .. suba #ce @@ -676,8 +676,8 @@ 8503 CC B0 81 ... ldd #b081 ;"NO ACCESS" 8506 BD C0 BA ... jsr c0ba ;display: 8509 CC 02 58 ..X ldd #0258 -850C BD E5 71 ..q jsr e571 -850F BD 85 AF ... jsr 85af +850C BD E5 71 ..q jsr e571 ;jump13 +850F BD 85 AF ... jsr 85af ;jump14 8512 20 6C l bra 6c 8514 F6 00 42 ..B ldab 0042 8517 4F O clra @@ -706,9 +706,9 @@ 8545 1C 00 .. bset add,x 00,x 8547 02 . idiv 8548 20 36 6 bra 36 -854A BD 86 84 ... jsr 8684 +854A BD 86 84 ... jsr 8684 ;jump15 854D 20 31 1 bra 31 -854F BD 88 2E ... jsr 882e +854F BD 88 2E ... jsr 882e ;jump16 8552 20 2C , bra 2c 8554 BD 88 B8 ... jsr 88b8 8557 20 27 ' bra 27 @@ -748,9 +748,10 @@ 85A6 00 . test 85A7 10 . sba 85A8 BD BE 69 ..i jsr be69 ;jump3 -85AB BD E5 AA ... jsr e5aa +85AB BD E5 AA ... jsr e5aa ;jump12 85AE 39 9 rts +jump14: 85AF 7F 00 42 ..B clr 0042 85B2 7F 00 06 ... clr 0006 85B5 CE 00 1F ... ldx #001f @@ -789,7 +790,7 @@ 85F4 7A 0C D9 z.. dec 0cd9 85F7 BD 97 F6 ... jsr 97f6 85FA CC 01 5E ..^ ldd #015e -85FD BD E5 71 ..q jsr e571 +85FD BD E5 71 ..q jsr e571 ;jump13 8600 CC 02 33 ..3 ldd #0233 8603 FD 00 3B ..; stad 003b 8606 20 7B { bra 7b @@ -804,7 +805,7 @@ 861E 7A 0C DA z.. dec 0cda 8621 BD 97 F6 ... jsr 97f6 8624 CC 01 5E ..^ ldd #015e -8627 BD E5 71 ..q jsr e571 +8627 BD E5 71 ..q jsr e571 ;jump13 862A CC 02 33 ..3 ldd #0233 862D FD 00 3B ..; stad 003b 8630 20 51 Q bra 51 @@ -819,7 +820,7 @@ 8648 7A 0C DB z.. dec 0cdb 864B BD 97 F6 ... jsr 97f6 864E CC 01 5E ..^ ldd #015e -8651 BD E5 71 ..q jsr e571 +8651 BD E5 71 ..q jsr e571 ;jump13 8654 CC 02 33 ..3 ldd #0233 8657 FD 00 3B ..; stad 003b 865A 20 27 ' bra 27 @@ -834,11 +835,12 @@ 8671 7A 0C DC z.. dec 0cdc 8674 BD 97 F6 ... jsr 97f6 8677 CC 01 5E ..^ ldd #015e -867A BD E5 71 ..q jsr e571 +867A BD E5 71 ..q jsr e571 ;jump13 867D CC 02 33 ..3 ldd #0233 8680 FD 00 3B ..; stad 003b 8683 39 9 rts +jump15: 8684 F6 00 1F ... ldab 001f 8687 C4 02 .. andb #02 8689 27 2B '+ beq 2b @@ -895,7 +897,7 @@ 86EC F6 00 1A ... ldab 001a 86EF F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 86F2 CC 00 32 ..2 ldd #0032 -86F5 BD E5 71 ..q jsr e571 +86F5 BD E5 71 ..q jsr e571 ;jump13 86F8 CE 00 1A ... ldx #001a 86FB 1C 00 .. bset add,x 00,x 86FD 02 . idiv @@ -1011,7 +1013,7 @@ 87DE 01 . nop 87DF F6 00 1A ... ldab 001a 87E2 F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 -87E5 BD 85 AF ... jsr 85af +87E5 BD 85 AF ... jsr 85af ;jump14 87E8 39 9 rts 87E9 7F 00 05 ... clr 0005 @@ -1026,7 +1028,7 @@ 87FE E6 00 .. ldab 00,x 8800 F7 00 06 ... stb 0006 8803 F6 00 06 ... ldab 0006 -8806 BD D7 A0 ... jsr d7a0 +8806 BD D7 A0 ... jsr d7a0 ;jump10 8809 83 00 00 ... subd #0000 880C 26 11 &. bne 11 880E BD D3 11 ... jsr d311 @@ -1034,14 +1036,15 @@ 8814 26 03 &. bne 03 8816 7C 00 05 |.. inc 0005 8819 CC 00 05 ... ldd #0005 -881C BD E5 71 ..q jsr e571 +881C BD E5 71 ..q jsr e571 ;jump13 881F 7C 00 54 |.T inc 0054 8822 20 CB . bra cb 8824 BD 99 81 ... jsr 9981 8827 CC 07 D0 ... ldd #07d0 -882A BD E5 71 ..q jsr e571 +882A BD E5 71 ..q jsr e571 ;jump13 882D 39 9 rts +jump16: 882E F6 00 1F ... ldab 001f 8831 C4 02 .. andb #02 8833 27 12 '. beq 12 @@ -1101,9 +1104,9 @@ 88AA 5F _ clrb 88AB 4F O clra 88AC FD 0B B9 ... stad 0bb9 -88AF BD 85 AF ... jsr 85af +88AF BD 85 AF ... jsr 85af ;jump14 88B2 20 03 . bra 03 -88B4 BD 85 AF ... jsr 85af +88B4 BD 85 AF ... jsr 85af ;jump14 88B7 39 9 rts 88B8 F6 00 1F ... ldab 001f @@ -1138,7 +1141,7 @@ 88FC F6 00 09 ... ldab 0009 88FF C1 0B .. cmpb #0b 8901 26 06 &. bne 06 -8903 BD 85 AF ... jsr 85af +8903 BD 85 AF ... jsr 85af ;jump14 8906 7E 89 DE ~.. jmp 89de 8909 F6 00 54 ..T ldab 0054 890C 26 26 && bne 26 @@ -1206,7 +1209,7 @@ 8993 C6 32 .2 ldab #32 8995 F7 00 3A ..: stb 003a 8998 F6 00 06 ... ldab 0006 -899B BD D7 A0 ... jsr d7a0 +899B BD D7 A0 ... jsr d7a0 ;jump10 899E 83 00 00 ... subd #0000 89A1 26 27 &' bne 27 89A3 BD D3 11 ... jsr d311 @@ -1474,7 +1477,7 @@ 8C04 24 24 $$ bcc 24 8C06 BD 97 6F ..o jsr 976f 8C09 F6 00 06 ... ldab 0006 -8C0C BD D7 A0 ... jsr d7a0 +8C0C BD D7 A0 ... jsr d7a0 ;jump10 8C0F 83 00 00 ... subd #0000 8C12 27 16 '. beq 16 8C14 F6 00 06 ... ldab 0006 @@ -1515,9 +1518,9 @@ 8C62 BD 9A 47 ..G jsr 9a47 8C65 20 0B . bra 0b 8C67 BD A3 85 ... jsr a385 -8C6A BD 85 AF ... jsr 85af +8C6A BD 85 AF ... jsr 85af ;jump14 8C6D 20 03 . bra 03 -8C6F BD 85 AF ... jsr 85af +8C6F BD 85 AF ... jsr 85af ;jump14 8C72 39 9 rts 8C73 F6 00 06 ... ldab 0006 @@ -1719,9 +1722,9 @@ 8E24 FD 00 3B ..; stad 003b 8E27 20 0B . bra 0b 8E29 BD A4 4F ..O jsr a44f -8E2C BD 85 AF ... jsr 85af +8E2C BD 85 AF ... jsr 85af ;jump14 8E2F 20 03 . bra 03 -8E31 BD 85 AF ... jsr 85af +8E31 BD 85 AF ... jsr 85af ;jump14 8E34 39 9 rts 8E35 F6 00 1F ... ldab 001f @@ -1813,9 +1816,9 @@ 8EFC BD 9C 15 ... jsr 9c15 8EFF 20 0B . bra 0b 8F01 BD A4 59 ..Y jsr a459 -8F04 BD 85 AF ... jsr 85af +8F04 BD 85 AF ... jsr 85af ;jump14 8F07 20 03 . bra 03 -8F09 BD 85 AF ... jsr 85af +8F09 BD 85 AF ... jsr 85af ;jump14 8F0C 39 9 rts 8F0D F6 00 1F ... ldab 001f @@ -1862,7 +1865,7 @@ 8F6B F6 00 24 ..$ ldab 0024 8F6E F7 00 06 ... stb 0006 8F71 F6 00 06 ... ldab 0006 -8F74 BD D7 A0 ... jsr d7a0 +8F74 BD D7 A0 ... jsr d7a0 ;jump10 8F77 83 00 00 ... subd #0000 8F7A 27 03 '. beq 03 8F7C 7C 00 24 |.$ inc 0024 @@ -1906,7 +1909,7 @@ 8FD5 F6 00 24 ..$ ldab 0024 8FD8 F7 00 06 ... stb 0006 8FDB F6 00 06 ... ldab 0006 -8FDE BD D7 A0 ... jsr d7a0 +8FDE BD D7 A0 ... jsr d7a0 ;jump10 8FE1 83 00 00 ... subd #0000 8FE4 27 03 '. beq 03 8FE6 7A 00 24 z.$ dec 0024 @@ -1933,7 +1936,7 @@ 901B F6 00 2A ..* ldab 002a 901E F7 00 06 ... stb 0006 9021 F6 00 06 ... ldab 0006 -9024 BD D7 A0 ... jsr d7a0 +9024 BD D7 A0 ... jsr d7a0 ;jump10 9027 83 00 00 ... subd #0000 902A 27 03 '. beq 03 902C 7C 00 2A |.* inc 002a @@ -1977,7 +1980,7 @@ 9084 F6 00 2A ..* ldab 002a 9087 F7 00 06 ... stb 0006 908A F6 00 06 ... ldab 0006 -908D BD D7 A0 ... jsr d7a0 +908D BD D7 A0 ... jsr d7a0 ;jump10 9090 83 00 00 ... subd #0000 9093 27 03 '. beq 03 9095 7A 00 2A z.* dec 002a @@ -2000,9 +2003,9 @@ 90C0 BD 9D 2A ..* jsr 9d2a 90C3 20 0B . bra 0b 90C5 BD A5 1E ... jsr a51e -90C8 BD 85 AF ... jsr 85af +90C8 BD 85 AF ... jsr 85af ;jump14 90CB 20 03 . bra 03 -90CD BD 85 AF ... jsr 85af +90CD BD 85 AF ... jsr 85af ;jump14 90D0 39 9 rts 90D1 F6 00 1F ... ldab 001f @@ -2042,7 +2045,7 @@ 911C 20 0E . bra 0e 911E BD 92 5A ..Z jsr 925a 9121 20 09 . bra 09 -9123 BD 85 AF ... jsr 85af +9123 BD 85 AF ... jsr 85af ;jump14 9126 7F 00 09 ... clr 0009 9129 7F 00 0A ... clr 000a 912C 39 9 rts @@ -2108,9 +2111,9 @@ 91B5 BD A9 7A ..z jsr a97a 91B8 20 0B . bra 0b 91BA BD A5 7D ..} jsr a57d -91BD BD 85 AF ... jsr 85af +91BD BD 85 AF ... jsr 85af ;jump14 91C0 20 03 . bra 03 -91C2 BD 85 AF ... jsr 85af +91C2 BD 85 AF ... jsr 85af ;jump14 91C5 39 9 rts 91C6 F6 00 19 ... ldab 0019 @@ -2175,9 +2178,9 @@ 9249 BD A9 21 ..! jsr a921 924C 20 0B . bra 0b 924E BD A5 AC ... jsr a5ac -9251 BD 85 AF ... jsr 85af +9251 BD 85 AF ... jsr 85af ;jump14 9254 20 03 . bra 03 -9256 BD 85 AF ... jsr 85af +9256 BD 85 AF ... jsr 85af ;jump14 9259 39 9 rts @@ -2241,9 +2244,9 @@ 92DD BD A9 21 ..! jsr a921 92E0 20 0B . bra 0b 92E2 BD A5 D5 ... jsr a5d5 -92E5 BD 85 AF ... jsr 85af +92E5 BD 85 AF ... jsr 85af ;jump14 92E8 20 03 . bra 03 -92EA BD 85 AF ... jsr 85af +92EA BD 85 AF ... jsr 85af ;jump14 92ED 39 9 rts 92EE F6 0C DC ... ldab 0cdc @@ -2325,7 +2328,7 @@ 9395 26 05 &. bne 05 9397 BD 98 BF ... jsr 98bf 939A 20 03 . bra 03 -939C BD 85 AF ... jsr 85af +939C BD 85 AF ... jsr 85af ;jump14 939F 20 03 . bra 03 93A1 BD 98 FF ... jsr 98ff 93A4 39 9 rts @@ -2361,7 +2364,7 @@ 93EC F6 00 09 ... ldab 0009 93EF C1 0B .. cmpb #0b 93F1 26 06 &. bne 06 -93F3 BD 85 AF ... jsr 85af +93F3 BD 85 AF ... jsr 85af ;jump14 93F6 7E 94 90 ~.. jmp 9490 93F9 F6 00 09 ... ldab 0009 93FC C1 0A .. cmpb #0a @@ -2452,9 +2455,9 @@ 94CC 7F 00 48 ..H clr 0048 94CF 20 0B . bra 0b 94D1 BD A5 FE ... jsr a5fe -94D4 BD 85 AF ... jsr 85af +94D4 BD 85 AF ... jsr 85af ;jump14 94D7 20 03 . bra 03 -94D9 BD 85 AF ... jsr 85af +94D9 BD 85 AF ... jsr 85af ;jump14 94DC 39 9 rts 94DD F6 00 1F ... ldab 001f @@ -2497,7 +2500,7 @@ 952E 20 0E . bra 0e 9530 BD 96 88 ... jsr 9688 9533 20 09 . bra 09 -9535 BD 85 AF ... jsr 85af +9535 BD 85 AF ... jsr 85af ;jump14 9538 7F 00 09 ... clr 0009 953B 7F 00 0A ... clr 000a 953E 39 9 rts @@ -2602,7 +2605,7 @@ 9615 C6 32 .2 ldab #32 9617 F7 00 3A ..: stb 003a 961A F6 00 06 ... ldab 0006 -961D BD D7 A0 ... jsr d7a0 +961D BD D7 A0 ... jsr d7a0 ;jump10 9620 83 00 00 ... subd #0000 9623 26 21 &! bne 21 9625 BD D3 11 ... jsr d311 @@ -2639,10 +2642,10 @@ 9666 00 . test 9667 26 0F &. bne 0f 9669 CC 00 64 ..d ldd #0064 -966C BD E5 71 ..q jsr e571 +966C BD E5 71 ..q jsr e571 ;jump13 966F BD E5 D1 ... jsr e5d1 9672 CC 03 84 ... ldd #0384 -9675 BD E5 71 ..q jsr e571 +9675 BD E5 71 ..q jsr e571 ;jump13 9678 7F 00 2E ... clr 002e 967B CE 00 1D ... ldx #001d 967E 1D 00 .. bclr add,x 00,x @@ -2684,7 +2687,7 @@ 96D1 26 0F &. bne 0f 96D3 BD 99 C3 ... jsr 99c3 96D6 CC 07 D0 ... ldd #07d0 -96D9 BD E5 71 ..q jsr e571 +96D9 BD E5 71 ..q jsr e571 ;jump13 96DC CE 00 1F ... ldx #001f 96DF 1C 00 .. bset add,x 00,x 96E1 02 . idiv @@ -2733,7 +2736,7 @@ 9743 C6 45 .E ldab #45 9745 F7 00 06 ... stb 0006 9748 F6 00 06 ... ldab 0006 -974B BD D7 A0 ... jsr d7a0 +974B BD D7 A0 ... jsr d7a0 ;jump10 974E 83 00 00 ... subd #0000 9751 27 15 '. beq 15 9753 F6 00 06 ... ldab 0006 @@ -2886,6 +2889,7 @@ 98A1 BD BE 01 ... jsr be01 98A4 39 9 rts +jump11: 98A5 BD BE 4B ..K jsr be4b ;jump1 98A8 F6 00 54 ..T ldab 0054 98AB 4F O clra @@ -2924,7 +2928,7 @@ 98F4 C4 10 .. andb #10 98F6 27 03 '. beq 03 98F8 BD E9 2B ..+ jsr e92b -98FB BD 85 AF ... jsr 85af +98FB BD 85 AF ... jsr 85af ;jump14 98FE 39 9 rts 98FF F6 00 1F ... ldab 001f @@ -2983,7 +2987,7 @@ 9976 C4 10 .. andb #10 9978 27 03 '. beq 03 997A BD E9 2B ..+ jsr e92b -997D BD 85 AF ... jsr 85af +997D BD 85 AF ... jsr 85af ;jump14 9980 39 9 rts 9981 BD BE 4B ..K jsr be4b ;jump1 @@ -4058,7 +4062,7 @@ A36C BD BE 4B ..K jsr be4b ;jump1 A36F CC AF DC ... ldd #afdc A372 BD C0 BA ... jsr c0ba ;display: A375 CC 01 F4 ... ldd #01f4 -A378 BD E5 71 ..q jsr e571 +A378 BD E5 71 ..q jsr e571 ;jump13 A37B 39 9 rts A37C FC 00 52 ..R ldd 0052 A37F FD 0B B5 ... stad 0bb5 @@ -4632,7 +4636,7 @@ A812 F6 00 54 ..T ldab 0054 A815 C1 04 .. cmpb #04 A817 24 4A $J bcc 4a A819 CC 01 F4 ... ldd #01f4 -A81C BD E5 71 ..q jsr e571 +A81C BD E5 71 ..q jsr e571 ;jump13 A81F F6 0B 93 ... ldab 0b93 A822 F7 00 5F .._ stb 005f A825 F6 0B 94 ... ldab 0b94 @@ -4644,7 +4648,7 @@ A834 F7 00 5A ..Z stb 005a A837 BD BE 4B ..K jsr be4b ;jump1 A83A BD BE 01 ... jsr be01 A83D CC 01 F4 ... ldd #01f4 -A840 BD E5 71 ..q jsr e571 +A840 BD E5 71 ..q jsr e571 ;jump13 A843 F6 00 5F .._ ldab 005f A846 F7 0B 93 ... stb 0b93 A849 F6 00 5E ..^ ldab 005e @@ -5041,16 +5045,18 @@ AB83 7C 00 1C |.. inc 001c AB86 20 8C . bra 8c AB88 39 9 rts +jump7: AB89 CC B0 8C ... ldd #b08c AB8C BD C0 BA ... jsr c0ba ;display: AB8F CC 01 F4 ... ldd #01f4 -AB92 BD E5 71 ..q jsr e571 +AB92 BD E5 71 ..q jsr e571 ;jump13 AB95 BD D4 79 ..y jsr d479 AB98 BD E8 9A ... jsr e89a AB9B BD E9 EA ... jsr e9ea AB9E 7F 0B C1 ... clr 0bc1 ABA1 39 9 rts +jump8: ABA2 7F 00 05 ... clr 0005 ABA5 F6 00 05 ... ldab 0005 ABA8 C1 64 .d cmpb #64 @@ -5066,7 +5072,7 @@ ABBD 5D ] tstb ABBE 26 03 &. bne 03 ABC0 7E AC 7B ~.{ jmp ac7b ABC3 F6 00 06 ... ldab 0006 -ABC6 BD D7 A0 ... jsr d7a0 +ABC6 BD D7 A0 ... jsr d7a0 ;jump10 ABC9 83 00 00 ... subd #0000 ABCC 27 03 '. beq 03 ABCE 7E AC 7B ~.{ jmp ac7b @@ -7167,7 +7173,7 @@ B852 BD D4 68 ..h jsr d468 B855 83 00 00 ... subd #0000 B858 27 0B '. beq 0b B85A F6 0E 05 ... ldab 0e05 -B85D BD D7 A0 ... jsr d7a0 +B85D BD D7 A0 ... jsr d7a0 ;jump10 B860 83 00 00 ... subd #0000 B863 27 09 '. beq 09 B865 30 0 tsx @@ -7186,7 +7192,7 @@ B880 83 00 00 ... subd #0000 B883 26 03 &. bne 03 B885 7E B9 0A ~.. jmp b90a B888 F6 0E 05 ... ldab 0e05 -B88B BD D7 A0 ... jsr d7a0 +B88B BD D7 A0 ... jsr d7a0 ;jump10 B88E 83 00 00 ... subd #0000 B891 26 77 &w bne 77 B893 BD BE 4B ..K jsr be4b ;jump1 @@ -7640,7 +7646,7 @@ BCA2 F7 00 09 ... stb 0009 BCA5 20 06 . bra 06 BCA7 F6 00 29 ..) ldab 0029 BCAA F7 00 42 ..B stb 0042 -BCAD BD E5 AA ... jsr e5aa +BCAD BD E5 AA ... jsr e5aa ;jump12 BCB0 7F 00 2C .., clr 002c BCB3 CE 00 1B ... ldx #001b BCB6 1D 00 .. bclr add,x 00,x @@ -7674,7 +7680,7 @@ BCF9 BD BE 4B ..K jsr be4b ;jump1 BCFC F6 00 1E ... ldab 001e BCFF CB 30 .0 addb #30 BD01 F7 0B 95 ... stb 0b95 -BD04 BD E5 AA ... jsr e5aa +BD04 BD E5 AA ... jsr e5aa ;jump12 BD07 7F 00 2C .., clr 002c BD0A BD BE 01 ... jsr be01 BD0D C6 32 .2 ldab #32 @@ -7708,7 +7714,7 @@ BD4E CE 00 1B ... ldx #001b BD51 1D 00 .. bclr add,x 00,x BD53 40 @ nega BD54 7F 00 3A ..: clr 003a -BD57 BD E5 AA ... jsr e5aa +BD57 BD E5 AA ... jsr e5aa ;jump12 BD5A 20 2D - bra 2d BD5C C6 19 .. ldab #19 BD5E F7 00 37 ..7 stb 0037 @@ -7727,7 +7733,7 @@ BD7E 1C 00 .. bset add,x 00,x BD80 01 . nop BD81 C6 3C .< ldab #3c BD83 F7 00 4F ..O stb 004f -BD86 BD E5 AA ... jsr e5aa +BD86 BD E5 AA ... jsr e5aa ;jump12 BD89 CE 00 1B ... ldx #001b BD8C 1D 00 .. bclr add,x 00,x BD8E 10 . sba @@ -8237,7 +8243,7 @@ C11C 2D 15 -. blt 15 C11E F6 00 31 ..1 ldab 0031 C121 C1 0A .. cmpb #0a C123 22 0C ". bhi 0c -C125 BD C5 D3 ... jsr c5d3 +C125 BD C5 D3 ... jsr c5d3 ;jump6 C128 CE 00 1D ... ldx #001d C12B 1D 00 .. bclr add,x 00,x C12D 20 5F _ bra 5f @@ -8628,7 +8634,7 @@ C437 F7 00 1A ... stb 001a C43A F6 00 1A ... ldab 001a C43D F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 C440 CC 00 64 ..d ldd #0064 -C443 BD E5 71 ..q jsr e571 +C443 BD E5 71 ..q jsr e571 ;jump13 C446 F6 00 01 ... ldab 0001 C449 FA 00 1A ... orb 001a C44C F7 00 1A ... stb 001a @@ -8645,7 +8651,7 @@ C463 01 . nop C464 F6 00 1A ... ldab 001a C467 F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 C46A CC 03 E8 ... ldd #03e8 -C46D BD E5 71 ..q jsr e571 +C46D BD E5 71 ..q jsr e571 ;jump13 C470 FC 00 40 ..@ ldd 0040 C473 83 00 00 ... subd #0000 C476 22 03 ". bhi 03 @@ -8753,7 +8759,7 @@ C577 5F _ clrb C578 4F O clra C579 FD 00 40 ..@ stad 0040 C57C CC 01 2C .., ldd #012c -C57F BD E5 71 ..q jsr e571 +C57F BD E5 71 ..q jsr e571 ;jump13 C582 F6 00 1B ... ldab 001b C585 C4 20 . andb #20 C587 26 24 &$ bne 24 @@ -8763,14 +8769,14 @@ C58E 01 . nop C58F F6 00 1A ... ldab 001a C592 F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 C595 CC 00 0C ... ldd #000c -C598 BD E5 71 ..q jsr e571 +C598 BD E5 71 ..q jsr e571 ;jump13 C59B CE 00 1A ... ldx #001a C59E 1C 00 .. bset add,x 00,x C5A0 01 . nop C5A1 F6 00 1A ... ldab 001a C5A4 F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 C5A7 CC 00 23 ..# ldd #0023 -C5AA BD E5 71 ..q jsr e571 +C5AA BD E5 71 ..q jsr e571 ;jump13 C5AD 7E C4 70 ~.p jmp c470 C5B0 F6 0B C0 ... ldab 0bc0 C5B3 C4 04 .. andb #04 @@ -8787,12 +8793,14 @@ C5CB 10 . sba C5CC CE 00 1B ... ldx #001b C5CF 1D 00 .. bclr add,x 00,x C5D1 20 39 9 bra 39 + +jump6: C5D3 F6 00 15 ... ldab 0015 C5D6 C4 1F .. andb #1f C5D8 26 03 &. bne 03 C5DA 7E C6 7C ~.| jmp c67c C5DD CC 00 C8 ... ldd #00c8 -C5E0 BD E5 71 ..q jsr e571 +C5E0 BD E5 71 ..q jsr e571 ;jump13 C5E3 FC 00 3E ..> ldd 003e C5E6 27 58 'X beq 58 C5E8 F6 00 15 ... ldab 0015 @@ -8842,7 +8850,7 @@ C645 02 . idiv C646 F6 00 14 ... ldab 0014 C649 F7 38 00 .8. stb 3800 C64C CC 00 1E ... ldd #001e -C64F BD E5 71 ..q jsr e571 +C64F BD E5 71 ..q jsr e571 ;jump13 C652 CE 00 15 ... ldx #0015 C655 1D 00 .. bclr add,x 00,x C657 1F CE 00 14 .... brclr ce,x 00 14 @@ -8851,14 +8859,14 @@ C65D 02 . idiv C65E F6 00 14 ... ldab 0014 C661 F7 38 00 .8. stb 3800 C664 CC 00 19 ... ldd #0019 -C667 BD E5 71 ..q jsr e571 +C667 BD E5 71 ..q jsr e571 ;jump13 C66A CE 00 14 ... ldx #0014 C66D 1C 00 .. bset add,x 00,x C66F 01 . nop C670 F6 00 14 ... ldab 0014 C673 F7 38 00 .8. stb 3800 C676 CC 00 19 ... ldd #0019 -C679 BD E5 71 ..q jsr e571 +C679 BD E5 71 ..q jsr e571 ;jump13 C67C 39 9 rts C67D F6 00 30 ..0 ldab 0030 @@ -8876,7 +8884,7 @@ C698 04 . lsrd C699 F6 00 1A ... ldab 001a C69C F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 C69F CC 00 14 ... ldd #0014 -C6A2 BD E5 71 ..q jsr e571 +C6A2 BD E5 71 ..q jsr e571 ;jump13 C6A5 F6 0B C0 ... ldab 0bc0 C6A8 C4 01 .. andb #01 C6AA 27 06 '. beq 06 @@ -8911,7 +8919,7 @@ C6EA F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 C6ED C6 64 .d ldab #64 C6EF F7 00 2D ..- stb 002d C6F2 CC 00 32 ..2 ldd #0032 -C6F5 BD E5 71 ..q jsr e571 +C6F5 BD E5 71 ..q jsr e571 ;jump13 C6F8 CE 00 1A ... ldx #001a C6FB 1C 00 .. bset add,x 00,x C6FD 02 . idiv @@ -8926,14 +8934,14 @@ C710 01 . nop C711 F6 00 1A ... ldab 001a C714 F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 C717 CC 00 0C ... ldd #000c -C71A BD E5 71 ..q jsr e571 +C71A BD E5 71 ..q jsr e571 ;jump13 C71D CE 00 1A ... ldx #001a C720 1C 00 .. bset add,x 00,x C722 01 . nop C723 F6 00 1A ... ldab 001a C726 F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 C729 CC 00 23 ..# ldd #0023 -C72C BD E5 71 ..q jsr e571 +C72C BD E5 71 ..q jsr e571 ;jump13 C72F C6 64 .d ldab #64 C731 F7 00 2D ..- stb 002d C734 F6 00 21 ..! ldab 0021 @@ -8956,7 +8964,7 @@ C75A 20 24 $ bra 24 C75C F6 0B C0 ... ldab 0bc0 C75F C4 08 .. andb #08 C761 27 03 '. beq 03 -C763 BD C5 D3 ... jsr c5d3 +C763 BD C5 D3 ... jsr c5d3 ;jump6 C766 FC 0B DD ... ldd 0bdd C769 26 12 &. bne 12 C76B FC 0B DF ... ldd 0bdf @@ -9176,7 +9184,7 @@ C8F9 F6 00 3D ..= ldab 003d C8FC C4 04 .. andb #04 C8FE 26 18 &. bne 18 C900 CC 00 03 ... ldd #0003 -C903 BD E5 71 ..q jsr e571 +C903 BD E5 71 ..q jsr e571 ;jump13 C906 CE 00 1A ... ldx #001a C909 1D 00 .. bclr add,x 00,x C90B 02 . idiv @@ -10616,7 +10624,7 @@ D4BA 83 00 00 ... subd #0000 D4BD 27 03 '. beq 03 D4BF 7E D5 45 ~.E jmp d545 D4C2 F6 00 06 ... ldab 0006 -D4C5 BD D7 A0 ... jsr d7a0 +D4C5 BD D7 A0 ... jsr d7a0 ;jump10 D4C8 83 00 00 ... subd #0000 D4CB 26 78 &x bne 78 D4CD BD D5 B0 ... jsr d5b0 @@ -10835,6 +10843,7 @@ D64D EA 01 .. orb 01,x D64F ED 00 .. stad 00,x D651 39 9 rts +jump5: D652 CE 00 1A ... ldx #001a D655 1C 00 .. bset add,x 00,x D657 01 . nop @@ -10892,7 +10901,7 @@ D6CF 01 . nop D6D0 F6 00 14 ... ldab 0014 D6D3 F7 38 00 .8. stb 3800 D6D6 20 05 . bra 05 -D6D8 BD D6 52 ..R jsr d652 +D6D8 BD D6 52 ..R jsr d652 ;jump5 D6DB 8D 53 .S bsr dest 53 D6DD F6 0B C0 ... ldab 0bc0 D6E0 C4 08 .. andb #08 @@ -10943,10 +10952,10 @@ D740 23 19 #. bls 19 D742 CC B0 6B ..k ldd #b06b D745 BD C0 BA ... jsr c0ba ;display: D748 CC 01 F4 ... ldd #01f4 -D74B BD E5 71 ..q jsr e571 -D74E BD C5 D3 ... jsr c5d3 +D74B BD E5 71 ..q jsr e571 ;jump13 +D74E BD C5 D3 ... jsr c5d3 ;jump6 D751 CC 01 F4 ... ldd #01f4 -D754 BD E5 71 ..q jsr e571 +D754 BD E5 71 ..q jsr e571 ;jump13 D757 CC 00 01 ... ldd #0001 D75A 39 9 rts @@ -10958,10 +10967,10 @@ D765 26 19 &. bne 19 D767 CC B0 76 ..v ldd #b076 D76A BD C0 BA ... jsr c0ba ;display: D76D CC 01 F4 ... ldd #01f4 -D770 BD E5 71 ..q jsr e571 -D773 BD C5 D3 ... jsr c5d3 +D770 BD E5 71 ..q jsr e571 ;jump13 +D773 BD C5 D3 ... jsr c5d3 ;jump6 D776 CC 01 F4 ... ldd #01f4 -D779 BD E5 71 ..q jsr e571 +D779 BD E5 71 ..q jsr e571 ;jump13 D77C CC 00 01 ... ldd #0001 D77F 39 9 rts @@ -10989,6 +10998,7 @@ D79D 5F _ clrb D79E 4F O clra D79F 39 9 rts +jump10: D7A0 37 7 pshb D7A1 30 0 tsx D7A2 E6 00 .. ldab 00,x @@ -11169,7 +11179,7 @@ D8D6 F6 00 18 ... ldab 0018 D8D9 C1 10 .. cmpb #10 D8DB 24 0B $. bcc 0b D8DD CC 00 32 ..2 ldd #0032 -D8E0 BD E5 71 ..q jsr e571 +D8E0 BD E5 71 ..q jsr e571 ;jump13 D8E3 7C 00 18 |.. inc 0018 D8E6 20 EE . bra ee D8E8 39 9 rts @@ -11261,7 +11271,7 @@ D9BF 8D 01 .. bsr dest 01 D9C1 39 9 rts D9C2 CC 03 E8 ... ldd #03e8 -D9C5 BD E5 71 ..q jsr e571 +D9C5 BD E5 71 ..q jsr e571 ;jump13 D9C8 BD D7 83 ... jsr d783 D9CB 83 00 00 ... subd #0000 D9CE 27 0B '. beq 0b @@ -11497,10 +11507,10 @@ DB85 27 05 '. beq 05 DB87 BD C4 56 ..V jsr c456 DB8A 20 06 . bra 06 DB8C CC 02 58 ..X ldd #0258 -DB8F BD E5 71 ..q jsr e571 +DB8F BD E5 71 ..q jsr e571 ;jump13 DB92 FC 00 3E ..> ldd 003e DB95 27 03 '. beq 03 -DB97 BD C5 D3 ... jsr c5d3 +DB97 BD C5 D3 ... jsr c5d3 ;jump6 DB9A F6 00 2B ..+ ldab 002b DB9D C1 00 .. cmpb #00 DB9F 26 08 &. bne 08 @@ -11537,7 +11547,7 @@ DBE2 26 03 &. bne 03 DBE4 7E DC 98 ~.. jmp dc98 DBE7 BD D7 FF ... jsr d7ff DBEA CC 03 E8 ... ldd #03e8 -DBED BD E5 71 ..q jsr e571 +DBED BD E5 71 ..q jsr e571 ;jump13 DBF0 BD D3 46 ..F jsr d346 DBF3 83 00 00 ... subd #0000 DBF6 26 08 &. bne 08 @@ -11928,7 +11938,7 @@ DF2E 04 . lsrd DF2F F6 00 21 ..! ldab 0021 DF32 C4 20 . andb #20 DF34 27 07 '. beq 07 -DF36 BD D6 52 ..R jsr d652 +DF36 BD D6 52 ..R jsr d652 ;jump5 DF39 BD DE A5 ... jsr dea5 DF3C 39 9 rts @@ -11942,7 +11952,7 @@ DF4B 26 20 & bne 20 DF4D F6 00 1B ... ldab 001b DF50 C4 40 .@ andb #40 DF52 27 19 '. beq 19 -DF54 BD D6 52 ..R jsr d652 +DF54 BD D6 52 ..R jsr d652 ;jump5 DF57 FC 00 40 ..@ ldd 0040 DF5A 26 05 &. bne 05 DF5C FC 00 3E ..> ldd 003e @@ -12216,8 +12226,8 @@ E1D8 26 01 &. bne 01 E1DA 39 9 rts E1DB 20 03 . bra 03 -E1DD BD C5 D3 ... jsr c5d3 -E1E0 BD D6 52 ..R jsr d652 +E1DD BD C5 D3 ... jsr c5d3 ;jump6 +E1E0 BD D6 52 ..R jsr d652 ;jump5 E1E3 FC 00 40 ..@ ldd 0040 E1E6 B3 00 44 ..D subd 0044 E1E9 F3 00 3E ..> addd 003e @@ -12371,8 +12381,8 @@ E304 7F 00 25 ..% clr 0025 E307 20 1A . bra 1a E309 7F 00 2C .., clr 002c E30C CC 01 F4 ... ldd #01f4 -E30F BD E5 71 ..q jsr e571 -E312 BD E5 AA ... jsr e5aa +E30F BD E5 71 ..q jsr e571 ;jump13 +E312 BD E5 AA ... jsr e5aa ;jump12 E315 BD D8 E9 ... jsr d8e9 E318 CE 00 1B ... ldx #001b E31B 1C 00 .. bset add,x 00,x @@ -12654,6 +12664,7 @@ E570 39 9 rts ;!!! Is this a delay routine? It gets called between displaying strings ;on startup. Looks like a delay. e61b just stores 0a at 0031 and returns. +jump13: E571 37 7 pshb E572 36 6 psha E573 34 4 des @@ -12692,6 +12703,7 @@ E5A6 20 F4 . bra e59c E5A8 31 1 ins E5A9 39 9 rts +jump12: E5AA F6 00 33 ..3 ldab 0033 E5AD 27 0C '. beq 0c E5AF F6 00 29 ..) ldab 0029 @@ -13011,7 +13023,7 @@ E7CF 5D ] tstb E7D0 26 03 &. bne 03 E7D2 7E E8 99 ~.. jmp e899 E7D5 F6 00 06 ... ldab 0006 -E7D8 BD D7 A0 ... jsr d7a0 +E7D8 BD D7 A0 ... jsr d7a0 ;jump10 E7DB 83 00 00 ... subd #0000 E7DE 27 03 '. beq 03 E7E0 7E E8 99 ~.. jmp e899 @@ -13130,7 +13142,7 @@ E8B6 02 . idiv E8B7 5D ] tstb E8B8 27 54 'T beq 54 E8BA F6 00 06 ... ldab 0006 -E8BD BD D7 A0 ... jsr d7a0 +E8BD BD D7 A0 ... jsr d7a0 ;jump10 E8C0 83 00 00 ... subd #0000 E8C3 26 49 &I bne 49 E8C5 F6 00 06 ... ldab 0006 @@ -13361,7 +13373,7 @@ EA74 38 8 pulx EA75 83 00 00 ... subd #0000 EA78 27 2F '/ beq 2f EA7A CC 03 E8 ... ldd #03e8 -EA7D BD E5 71 ..q jsr e571 +EA7D BD E5 71 ..q jsr e571 ;jump13 EA80 7F 0B A8 ... clr 0ba8 EA83 F6 18 00 ... ldab 1800 EA86 C4 01 .. andb #01 @@ -13371,11 +13383,11 @@ EA8D 0F . sei EA8E BD BE 01 ... jsr be01 EA91 0E . cli EA92 CC 01 F4 ... ldd #01f4 -EA95 BD E5 71 ..q jsr e571 +EA95 BD E5 71 ..q jsr e571 ;jump13 EA98 CC AF D1 ... ldd #afd1 EA9B BD C0 BA ... jsr c0ba ;display: EA9E CC 01 F4 ... ldd #01f4 -EAA1 BD E5 71 ..q jsr e571 +EAA1 BD E5 71 ..q jsr e571 ;jump13 EAA4 20 DD . bra dd EAA6 BD BE 69 ..i jsr be69 ;jump3 EAA9 C6 01 .. ldab #01 @@ -13383,7 +13395,7 @@ EAAB F7 00 14 ... stb 0014 EAAE F6 00 14 ... ldab 0014 EAB1 F7 38 00 .8. stb 3800 EAB4 CC 00 1E ... ldd #001e -EAB7 BD E5 71 ..q jsr e571 +EAB7 BD E5 71 ..q jsr e571 ;jump13 EABA CE 00 01 ... ldx #0001 EABD 3C < pshx EABE CC 10 00 ... ldd #1000 @@ -13404,7 +13416,7 @@ EADF F7 00 14 ... stb 0014 EAE2 F6 00 14 ... ldab 0014 EAE5 F7 38 00 .8. stb 3800 EAE8 CC 00 1E ... ldd #001e -EAEB BD E5 71 ..q jsr e571 +EAEB BD E5 71 ..q jsr e571 ;jump13 EAEE CE 00 01 ... ldx #0001 EAF1 3C < pshx EAF2 CC 10 00 ... ldd #1000 @@ -13425,11 +13437,11 @@ EB14 FD 10 16 ... stad 1016 EB17 CC B1 39 ..9 ldd #b139 EB1A BD C0 BA ... jsr c0ba ;display: EB1D CC 07 D0 ... ldd #07d0 -EB20 BD E5 71 ..q jsr e571 +EB20 BD E5 71 ..q jsr e571 ;jump13 EB23 CC B1 44 ..D ldd #b144 EB26 BD C0 BA ... jsr c0ba ;display: EB29 CC 07 D0 ... ldd #07d0 -EB2C BD E5 71 ..q jsr e571 +EB2C BD E5 71 ..q jsr e571 ;jump13 EB2F CC 00 14 ... ldd #0014 EB32 FD 00 3B ..; stad 003b EB35 FC 00 3B ..; ldd 003b @@ -13466,7 +13478,7 @@ EB6F 40 @ nega EB70 BD BE 10 ... jsr be10 EB73 0E . cli EB74 CC 00 07 ... ldd #0007 -EB77 BD E5 71 ..q jsr e571 +EB77 BD E5 71 ..q jsr e571 ;jump13 EB7A 30 0 tsx EB7B 6C 00 l. inc 00,x EB7D 20 BE . bra be @@ -13815,7 +13827,7 @@ EE2B 26 0C &. bne 0c EE2D CC B1 4F ..O ldd #b14f EE30 BD C0 BA ... jsr c0ba ;display: EE33 CC 05 DC ... ldd #05dc -EE36 BD E5 71 ..q jsr e571 +EE36 BD E5 71 ..q jsr e571 ;jump13 EE39 C6 04 .. ldab #04 EE3B F7 00 1C ... stb 001c EE3E F6 00 1C ... ldab 001c @@ -13832,7 +13844,7 @@ EE53 F7 00 1A ... stb 001a EE56 F6 00 1A ... ldab 001a EE59 F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 EE5C CC 00 0A ... ldd #000a -EE5F BD E5 71 ..q jsr e571 +EE5F BD E5 71 ..q jsr e571 ;jump13 EE62 F6 18 00 ... ldab 1800 EE65 2C 07 ,. bge 07 EE67 CC B1 5A ..Z ldd #b15a @@ -13848,7 +13860,7 @@ EE7B F7 00 1A ... stb 001a EE7E F6 00 1A ... ldab 001a EE81 F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 EE84 CC 00 0A ... ldd #000a -EE87 BD E5 71 ..q jsr e571 +EE87 BD E5 71 ..q jsr e571 ;jump13 EE8A F6 18 00 ... ldab 1800 EE8D 2D 08 -. blt 08 EE8F CC B1 5A ..Z ldd #b15a @@ -13868,7 +13880,7 @@ EEAD 40 @ nega EEAE F6 00 1A ... ldab 001a EEB1 F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 EEB4 CC 00 0A ... ldd #000a -EEB7 BD E5 71 ..q jsr e571 +EEB7 BD E5 71 ..q jsr e571 ;jump13 EEBA F6 10 08 ... ldab 1008 EEBD C4 01 .. andb #01 EEBF 26 06 &. bne 06 @@ -13880,7 +13892,7 @@ EECC 40 @ nega EECD F6 00 1A ... ldab 001a EED0 F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 EED3 CC 00 0A ... ldd #000a -EED6 BD E5 71 ..q jsr e571 +EED6 BD E5 71 ..q jsr e571 ;jump13 EED9 F6 10 08 ... ldab 1008 EEDC C4 01 .. andb #01 EEDE 27 06 '. beq 06 @@ -13892,7 +13904,7 @@ EEEB 02 . idiv EEEC F6 00 1A ... ldab 001a EEEF F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 EEF2 CC 00 0A ... ldd #000a -EEF5 BD E5 71 ..q jsr e571 +EEF5 BD E5 71 ..q jsr e571 ;jump13 EEF8 F6 10 00 ... ldab 1000 EEFB C4 04 .. andb #04 EEFD 26 06 &. bne 06 @@ -13904,7 +13916,7 @@ EF0A 02 . idiv EF0B F6 00 1A ... ldab 001a EF0E F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 EF11 CC 00 0A ... ldd #000a -EF14 BD E5 71 ..q jsr e571 +EF14 BD E5 71 ..q jsr e571 ;jump13 EF17 F6 10 00 ... ldab 1000 EF1A C4 04 .. andb #04 EF1C 27 06 '. beq 06 @@ -13916,7 +13928,7 @@ EF29 01 . nop EF2A F6 00 1A ... ldab 001a EF2D F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 EF30 CC 00 0A ... ldd #000a -EF33 BD E5 71 ..q jsr e571 +EF33 BD E5 71 ..q jsr e571 ;jump13 EF36 F6 18 00 ... ldab 1800 EF39 C4 20 . andb #20 EF3B 26 06 &. bne 06 @@ -13928,7 +13940,7 @@ EF48 01 . nop EF49 F6 00 1A ... ldab 001a EF4C F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 EF4F CC 00 0A ... ldd #000a -EF52 BD E5 71 ..q jsr e571 +EF52 BD E5 71 ..q jsr e571 ;jump13 EF55 F6 18 00 ... ldab 1800 EF58 C4 20 . andb #20 EF5A 27 06 '. beq 06 @@ -13940,7 +13952,7 @@ EF67 04 . lsrd EF68 F6 00 1A ... ldab 001a EF6B F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 EF6E CC 00 0A ... ldd #000a -EF71 BD E5 71 ..q jsr e571 +EF71 BD E5 71 ..q jsr e571 ;jump13 EF74 F6 10 0A ... ldab 100a EF77 C4 04 .. andb #04 EF79 26 06 &. bne 06 @@ -13952,7 +13964,7 @@ EF86 04 . lsrd EF87 F6 00 1A ... ldab 001a EF8A F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 EF8D CC 00 0A ... ldd #000a -EF90 BD E5 71 ..q jsr e571 +EF90 BD E5 71 ..q jsr e571 ;jump13 EF93 F6 10 0A ... ldab 100a EF96 C4 04 .. andb #04 EF98 27 06 '. beq 06 @@ -13970,7 +13982,7 @@ EFB2 CE 10 08 ... ldx #1008 EFB5 1C 00 .. bset add,x 00,x EFB7 02 . idiv EFB8 CC 00 0A ... ldd #000a -EFBB BD E5 71 ..q jsr e571 +EFBB BD E5 71 ..q jsr e571 ;jump13 EFBE F6 10 08 ... ldab 1008 EFC1 C4 01 .. andb #01 EFC3 26 06 &. bne 06 @@ -13980,7 +13992,7 @@ EFCB CE 10 08 ... ldx #1008 EFCE 1D 00 .. bclr add,x 00,x EFD0 02 . idiv EFD1 CC 00 0A ... ldd #000a -EFD4 BD E5 71 ..q jsr e571 +EFD4 BD E5 71 ..q jsr e571 ;jump13 EFD7 F6 10 08 ... ldab 1008 EFDA C4 01 .. andb #01 EFDC 27 06 '. beq 06 @@ -13993,7 +14005,7 @@ EFEA CE 10 08 ... ldx #1008 EFED 1C 00 .. bset add,x 00,x EFEF 02 . idiv EFF0 CC 00 0A ... ldd #000a -EFF3 BD E5 71 ..q jsr e571 +EFF3 BD E5 71 ..q jsr e571 ;jump13 EFF6 F6 10 08 ... ldab 1008 EFF9 C4 01 .. andb #01 EFFB 26 06 &. bne 06 @@ -14003,7 +14015,7 @@ F003 CE 10 08 ... ldx #1008 F006 1D 00 .. bclr add,x 00,x F008 02 . idiv F009 CC 00 0A ... ldd #000a -F00C BD E5 71 ..q jsr e571 +F00C BD E5 71 ..q jsr e571 ;jump13 F00F F6 10 08 ... ldab 1008 F012 C4 01 .. andb #01 F014 27 06 '. beq 06 @@ -14016,7 +14028,7 @@ F023 00 . test F024 14 . bset F025 F7 38 00 .8. stb 3800 F028 CC 00 0A ... ldd #000a -F02B BD E5 71 ..q jsr e571 +F02B BD E5 71 ..q jsr e571 ;jump13 F02E F6 20 00 . . ldab 2000 F031 C4 40 .@ andb #40 F033 26 06 &. bne 06 @@ -14029,7 +14041,7 @@ F042 00 . test F043 14 . bset F044 F7 38 00 .8. stb 3800 F047 CC 00 0A ... ldd #000a -F04A BD E5 71 ..q jsr e571 +F04A BD E5 71 ..q jsr e571 ;jump13 F04D F6 20 00 . . ldab 2000 F050 C4 40 .@ andb #40 F052 27 06 '. beq 06 @@ -14041,7 +14053,7 @@ F05F 40 @ nega F060 F6 00 14 ... ldab 0014 F063 F7 38 00 .8. stb 3800 F066 CC 00 0A ... ldd #000a -F069 BD E5 71 ..q jsr e571 +F069 BD E5 71 ..q jsr e571 ;jump13 F06C F6 20 00 . . ldab 2000 F06F 2C 06 ,. bge 06 F071 CC B1 9C ... ldd #b19c @@ -14052,7 +14064,7 @@ F07C 40 @ nega F07D F6 00 14 ... ldab 0014 F080 F7 38 00 .8. stb 3800 F083 CC 00 0A ... ldd #000a -F086 BD E5 71 ..q jsr e571 +F086 BD E5 71 ..q jsr e571 ;jump13 F089 F6 20 00 . . ldab 2000 F08C 2D 06 -. blt 06 F08E CC B1 9C ... ldd #b19c @@ -14108,7 +14120,7 @@ F107 E6 00 .. ldab 00,x F109 F7 00 06 ... stb 0006 F10C BD D1 3D ..= jsr d13d F10F CC 00 0A ... ldd #000a -F112 BD E5 71 ..q jsr e571 +F112 BD E5 71 ..q jsr e571 ;jump13 F115 F6 18 00 ... ldab 1800 F118 C4 40 .@ andb #40 F11A 26 0B &. bne 0b @@ -14118,7 +14130,7 @@ F122 BD EE 03 ... jsr ee03 F125 20 1D . bra 1d F127 BD D1 05 ... jsr d105 F12A CC 00 0A ... ldd #000a -F12D BD E5 71 ..q jsr e571 +F12D BD E5 71 ..q jsr e571 ;jump13 F130 F6 18 00 ... ldab 1800 F133 C4 40 .@ andb #40 F135 27 08 '. beq 08 @@ -14133,7 +14145,7 @@ F14A 26 0C &. bne 0c F14C CC B1 BD ... ldd #b1bd F14F BD C0 BA ... jsr c0ba ;display: F152 CC 05 DC ... ldd #05dc -F155 BD E5 71 ..q jsr e571 +F155 BD E5 71 ..q jsr e571 ;jump13 F158 7E EE 1C ~.. jmp ee1c ;send a byte to the printer? @@ -14505,7 +14517,7 @@ F438 F7 10 2D ..- stb 102d F43B C6 05 .. ldab #05 F43D F7 10 2B ..+ stb 102b F440 CC 03 E8 ... ldd #03e8 -F443 BD E5 71 ..q jsr e571 +F443 BD E5 71 ..q jsr e571 ;jump13 F446 CE 10 00 ... ldx #1000 F449 1D 00 .. bclr add,x 00,x F44B 08 . inx @@ -14772,7 +14784,7 @@ F6F0 CE 00 1D ... ldx #001d F6F3 1D 00 .. bclr add,x 00,x F6F5 01 . nop F6F6 CC 03 E8 ... ldd #03e8 -F6F9 BD E5 71 ..q jsr e571 +F6F9 BD E5 71 ..q jsr e571 ;jump13 F6FC C6 03 .. ldab #03 F6FE F7 10 2B ..+ stb 102b F701 CE 10 00 ... ldx #1000 @@ -14898,23 +14910,23 @@ F801 F7 10 28 ..( stb 1028 F804 BD BE 69 ..i jsr be69 ;jump3 F807 BD EA 59 ..Y jsr ea59 F80A CC 00 64 ..d ldd #0064 -F80D BD E5 71 ..q jsr e571 +F80D BD E5 71 ..q jsr e571 ;jump13 F810 CC B1 EF ... ldd #b1ef " ROWE INT " F813 BD C0 BA ... jsr c0ba ;display: F816 CC 01 F4 ... ldd #01f4 -F819 BD E5 71 ..q jsr e571 +F819 BD E5 71 ..q jsr e571 ;jump13 F81C CC B1 FA ... ldd #b1fa "COPYRIGHT " F81F BD C0 BA ... jsr c0ba ;display: F822 CC 01 F4 ... ldd #01f4 -F825 BD E5 71 ..q jsr e571 +F825 BD E5 71 ..q jsr e571 ;jump13 F828 CC B2 05 ... ldd #b205 " 1993 " F82B BD C0 BA ... jsr c0ba ;display: F82E CC 01 F4 ... ldd #01f4 -F831 BD E5 71 ..q jsr e571 +F831 BD E5 71 ..q jsr e571 ;jump13 F834 CC B2 10 ... ldd #b210 "5900 VER 5" F837 BD C0 BA ... jsr c0ba ;display: F83A CC 00 0A ... ldd #000a -F83D BD E5 71 ..q jsr e571 +F83D BD E5 71 ..q jsr e571 ;jump13 F840 7F 00 7F ... clr 007f F843 7F 00 21 ..! clr 0021 F846 7F 00 1F ... clr 001f @@ -14964,7 +14976,7 @@ F8A6 F7 10 2B ..+ stb 102b F8A9 C6 46 .F ldab #46 F8AB F7 00 2F ../ stb 002f F8AE CC 07 D0 ... ldd #07d0 -F8B1 BD E5 71 ..q jsr e571 +F8B1 BD E5 71 ..q jsr e571 ;jump13 F8B4 20 2B + bra 2b F8B6 BD D0 94 ... jsr d094 F8B9 C6 27 .' ldab #27 @@ -14977,7 +14989,7 @@ F8C8 04 . lsrd F8C9 F6 00 1A ... ldab 001a F8CC F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 F8CF CC 07 D0 ... ldd #07d0 -F8D2 BD E5 71 ..q jsr e571 +F8D2 BD E5 71 ..q jsr e571 ;jump13 F8D5 CE 00 1A ... ldx #001a F8D8 1D 00 .. bclr add,x 00,x F8DA 04 . lsrd @@ -14991,7 +15003,7 @@ F8ED CE 00 1D ... ldx #001d F8F0 1C 00 .. bset add,x 00,x F8F2 10 . sba F8F3 CC 05 DC ... ldd #05dc -F8F6 BD E5 71 ..q jsr e571 +F8F6 BD E5 71 ..q jsr e571 ;jump13 F8F9 C6 1E .. ldab #1e F8FB F7 00 35 ..5 stb 0035 F8FE 0E . cli @@ -15141,7 +15153,7 @@ FA42 04 . lsrd FA43 F6 00 1A ... ldab 001a FA46 F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 FA49 CC 00 32 ..2 ldd #0032 -FA4C BD E5 71 ..q jsr e571 +FA4C BD E5 71 ..q jsr e571 ;jump13 FA4F CE 00 1A ... ldx #001a FA52 1D 00 .. bclr add,x 00,x FA54 04 . lsrd @@ -15164,7 +15176,7 @@ FA7E 27 5F '_ beq 5f FA80 F6 00 1F ... ldab 001f FA83 C4 20 . andb #20 FA85 26 03 &. bne 03 -FA87 BD E5 AA ... jsr e5aa +FA87 BD E5 AA ... jsr e5aa ;jump12 FA8A CE 00 1F ... ldx #001f FA8D 1C 00 .. bset add,x 00,x FA8F 20 F6 . bra f6 @@ -15188,7 +15200,7 @@ FAB2 02 . idiv FAB3 33 3 pulb FAB4 FD 00 3B ..; stad 003b FAB7 20 09 . bra 09 -FAB9 BD E5 AA ... jsr e5aa +FAB9 BD E5 AA ... jsr e5aa ;jump12 FABC CE 00 1F ... ldx #001f FABF 1D 00 .. bclr add,x 00,x FAC1 04 . lsrd @@ -15209,82 +15221,82 @@ FADF 7E F8 FF ~.. jmp f8ff FAE2 CC B1 2E ... ldd #b12e ;"**ERROR***" FAE5 BD C0 BA ... jsr c0ba ;display: FAE8 CC 07 D0 ... ldd #07d0 -FAEB BD E5 71 ..q jsr e571 +FAEB BD E5 71 ..q jsr e571 ;jump13 FAEE 3B ; rti FAEF CC B1 2E ... ldd #b12e ;"**ERROR***" FAF2 BD C0 BA ... jsr c0ba ;display: FAF5 CC 07 D0 ... ldd #07d0 -FAF8 BD E5 71 ..q jsr e571 +FAF8 BD E5 71 ..q jsr e571 ;jump13 FAFB 3B ; rti FAFC CC B1 2E ... ldd #b12e ;"**ERROR***" FAFF BD C0 BA ... jsr c0ba ;display: FB02 CC 07 D0 ... ldd #07d0 -FB05 BD E5 71 ..q jsr e571 +FB05 BD E5 71 ..q jsr e571 ;jump13 FB08 3B ; rti FB09 CC B1 2E ... ldd #b12e ;"**ERROR***" FB0C BD C0 BA ... jsr c0ba ;display: FB0F CC 07 D0 ... ldd #07d0 -FB12 BD E5 71 ..q jsr e571 +FB12 BD E5 71 ..q jsr e571 ;jump13 FB15 3B ; rti FB16 CC B1 2E ... ldd #b12e ;"**ERROR***" FB19 BD C0 BA ... jsr c0ba ;display: FB1C CC 07 D0 ... ldd #07d0 -FB1F BD E5 71 ..q jsr e571 +FB1F BD E5 71 ..q jsr e571 ;jump13 FB22 3B ; rti FB23 CC B1 2E ... ldd #b12e ;"**ERROR***" FB26 BD C0 BA ... jsr c0ba ;display: FB29 CC 07 D0 ... ldd #07d0 -FB2C BD E5 71 ..q jsr e571 +FB2C BD E5 71 ..q jsr e571 ;jump13 FB2F 3B ; rti FB30 CC B1 2E ... ldd #b12e ;"**ERROR***" FB33 BD C0 BA ... jsr c0ba ;display: FB36 CC 07 D0 ... ldd #07d0 -FB39 BD E5 71 ..q jsr e571 +FB39 BD E5 71 ..q jsr e571 ;jump13 FB3C 3B ; rti FB3D CC B1 2E ... ldd #b12e ;"**ERROR***" FB40 BD C0 BA ... jsr c0ba ;display: FB43 CC 07 D0 ... ldd #07d0 -FB46 BD E5 71 ..q jsr e571 +FB46 BD E5 71 ..q jsr e571 ;jump13 FB49 3B ; rti FB4A CC B1 2E ... ldd #b12e ;"**ERROR***" FB4D BD C0 BA ... jsr c0ba ;display: FB50 CC 07 D0 ... ldd #07d0 -FB53 BD E5 71 ..q jsr e571 +FB53 BD E5 71 ..q jsr e571 ;jump13 FB56 3B ; rti FB57 CC B1 2E ... ldd #b12e ;"**ERROR***" FB5A BD C0 BA ... jsr c0ba ;display: FB5D CC 07 D0 ... ldd #07d0 -FB60 BD E5 71 ..q jsr e571 +FB60 BD E5 71 ..q jsr e571 ;jump13 FB63 3B ; rti FB64 CC B1 2E ... ldd #b12e ;"**ERROR***" FB67 BD C0 BA ... jsr c0ba ;display: FB6A CC 07 D0 ... ldd #07d0 -FB6D BD E5 71 ..q jsr e571 +FB6D BD E5 71 ..q jsr e571 ;jump13 FB70 3B ; rti FB71 CC B1 2E ... ldd #b12e ;"**ERROR***" FB74 BD C0 BA ... jsr c0ba ;display: FB77 CC 07 D0 ... ldd #07d0 -FB7A BD E5 71 ..q jsr e571 +FB7A BD E5 71 ..q jsr e571 ;jump13 FB7D 3B ; rti FB7E CC B1 2E ... ldd #b12e ;"**ERROR***" FB81 BD C0 BA ... jsr c0ba ;display: FB84 CC 07 D0 ... ldd #07d0 -FB87 BD E5 71 ..q jsr e571 +FB87 BD E5 71 ..q jsr e571 ;jump13 FB8A 3B ; rti FB8B CC B1 2E ... ldd #b12e ;"**ERROR***" FB8E BD C0 BA ... jsr c0ba ;display: FB91 CC 07 D0 ... ldd #07d0 -FB94 BD E5 71 ..q jsr e571 +FB94 BD E5 71 ..q jsr e571 ;jump13 FB97 3B ; rti FB98 CC B1 2E ... ldd #b12e ;"**ERROR***" FB9B BD C0 BA ... jsr c0ba ;display: FB9E CC 07 D0 ... ldd #07d0 -FBA1 BD E5 71 ..q jsr e571 +FBA1 BD E5 71 ..q jsr e571 ;jump13 FBA4 3B ; rti FBA5 CC B1 2E ... ldd #b12e ;"**ERROR***" FBA8 BD C0 BA ... jsr c0ba ;display: FBAB CC 07 D0 ... ldd #07d0 -FBAE BD E5 71 ..q jsr e571 +FBAE BD E5 71 ..q jsr e571 ;jump13 FBB1 3B ; rti FBB2 BD FE 69 ..i jsr fe69 ;inhibit interrupts FBB5 3B ; rti