X-Git-Url: https://git.ucc.asn.au/?a=blobdiff_plain;f=ROM%2Fmapped.asm;h=5f924c286d49abd6561cf0303e9da82673fe3665;hb=2103aac1de9b2cbc430964baf70eb4129c476f32;hp=965e665923d2c67fdea2c9b5f5c7707f10c045ae;hpb=24728c0f9e9c9030f41d8317f942a1c46e0902fb;p=uccvend-snackrom.git diff --git a/ROM/mapped.asm b/ROM/mapped.asm index 965e665..5f924c2 100644 --- a/ROM/mapped.asm +++ b/ROM/mapped.asm @@ -365,6 +365,7 @@ goto1: 821D 62 b illegal 821E 83 A5 83 ... subd #a583 8221 C2 83 .. sbcb #83 +8223 DF 83 FC ... stx 83 8226 84 19 .. anda #19 8228 84 35 .5 anda #35 822A 84 51 .Q anda #51 @@ -898,7 +899,7 @@ jump15: 86D4 F5 00 00 ... bitb 0000 86D7 C6 FF .. ldab #ff 86D9 F7 0B BC ... stb 0bbc -86DC F6 18 00 ... ldab 1800 +86DC F6 18 00 ... ldab 1800 ;tristate buffer 86DF 2D 29 -) blt 29 ;870A 86E1 F6 00 07 ... ldab 0007 86E4 26 24 &$ bne 24 ;870A @@ -1280,6 +1281,7 @@ jump17: 8A06 8C 72 8B .r. cpx #728b 8A09 FC 8C 67 ..g ldd 8c67 8A0C 8C 6F BD .o. cpx #6fbd +8A0F 9A 47 7E .G~ ora 47 8A12 8C 72 F6 .r. cpx #72f6 8A15 00 . test 8A16 36 6 psha @@ -2117,6 +2119,7 @@ jump21: 9178 C5 91 .. bitb #91 917A B5 91 BA ... bita 91ba 917D 91 C2 BD ... cmpa c2 +9180 9D 7E 20 .~ jsr 7e 9183 41 A illegal 9184 BD A8 64 ..d jsr a864 ;jump99 9187 20 3C < bra 3c ;91C5 @@ -2186,6 +2189,7 @@ jump76: 9212 92 59 92 .Y. sbca 59 9215 4E N illegal 9216 92 56 BD .V. sbca 56 +9219 9D 7E 20 .~ jsr 7e 921C 3C < pshx 921D BD A8 64 ..d jsr a864 ;jump99 9220 20 37 7 bra 37 ;9259 @@ -2251,6 +2255,7 @@ jump149: 92A7 ED 92 .. stad 92,x 92A9 E2 92 .. sbcb 92,x 92AB EA BD .. orb bd,x +92AD 9D 7E 20 .~ jsr 7e 92B0 3C < pshx 92B1 BD A8 64 ..d jsr a864 ;jump99 92B4 20 37 7 bra 37 ;92ED @@ -2334,7 +2339,7 @@ jump22: 935E 32 2 pula 935F 33 3 pulb 9360 FD 0D F1 ... stad 0df1 -9363 F6 20 00 . . ldab 2000 +9363 F6 20 00 . . ldab 2000 ;switch block 1 9366 C4 40 .@ andb #40 9368 27 37 '7 beq 37 ;93A1 936A F6 00 1F ... ldab 001f @@ -3315,6 +3320,7 @@ jump111: 9C20 00 . test 9C21 00 . test 9C22 0A . clv +9C23 9D 29 9C .). jsr 29 9C26 3B ; rti 9C27 9C 53 9C .S. cmpx 53 9C2A 6B k illegal @@ -3323,6 +3329,7 @@ jump111: 9C31 9C C9 9C ... cmpx c9 9C34 E0 9C .. subb 9c,x 9C36 F7 9D 0E ... stb 9d0e +9C39 9D 23 F6 .#. jsr 23 9C3C 00 . test 9C3D 67 C4 g. asr c4,x 9C3F 02 . idiv @@ -3581,13 +3588,21 @@ jump100: 9E96 2D A1 -. blt a1 ;9E39 9E98 C4 9E .. andb #9e 9E9A F5 9E FE ... bitb 9efe +9E9D 9F 07 9F ... sts 07 9EA0 10 . sba +9EA1 9F 19 9F ... sts 19 9EA4 3B ; rti +9EA5 9F 44 9F .D. sts 44 9EA8 52 R illegal +9EA9 9F 5B 9F .[. sts 5b 9EAC 69 i rol +9EAD 9F 72 9F .r. sts 72 9EB0 80 9F .. suba #9f 9EB2 89 9F .. adca #9f +9EB4 97 9F A0 ... sta 9f +9EB7 9F AE 9F ... sts ae 9EBA B7 9F C5 ... sta 9fc5 +9EBD 9F DD 9F ... sts dd 9EC0 EB A0 .. addb a0,x 9EC2 03 . fdiv 9EC3 A0 11 .. suba 11,x @@ -6215,11 +6230,13 @@ B0F6 4A J deca B0F7 56 V rorb B0F8 61 a illegal B0F9 08 . inx +B0FA 13 . brclr B0FB 33 3 pulb B0FC 3E > wai B0FD 49 I rola B0FE 54 T lsrb B0FF 60 07 `. neg 07,x +B101 12 . brset B102 1D 3D .= bclr add,x 3d,x B104 48 H asla B105 53 S comb @@ -6383,6 +6400,7 @@ B1C4 44 D lsra B1C5 20 2D - bra 2d ;B1F4 B1C7 00 . test B1C8 09 . dex +B1C9 12 . brset B1CA 1B . aba B1CB 24 2C $, bcc 2c ;B1F9 B1CD 35 5 txs @@ -7511,7 +7529,7 @@ BA81 31 1 ins BA82 39 9 rts jump125: -BA83 F6 18 00 ... ldab 1800 +BA83 F6 18 00 ... ldab 1800 ;tristate buffer BA86 C4 7F .. andb #7f BA88 F7 00 23 ..# stb 0023 BA8B F6 00 23 ..# ldab 0023 @@ -7519,10 +7537,10 @@ BA8E F1 00 12 ... cmpb 0012 BA91 27 06 '. beq 06 ;BA99 BA93 F6 00 23 ..# ldab 0023 BA96 F7 00 12 ... stb 0012 -BA99 F6 20 00 . . ldab 2000 +BA99 F6 20 00 . . ldab 2000 ;switch block 1 BA9C F1 00 20 .. cmpb 0020 BA9F 27 08 '. beq 08 ;BAA9 -BAA1 F6 20 00 . . ldab 2000 +BAA1 F6 20 00 . . ldab 2000 ;switch block 1 BAA4 F7 00 20 .. stb 0020 BAA7 20 0E . bra 0e ;BAB7 BAA9 F6 00 20 .. ldab 0020 @@ -7571,12 +7589,12 @@ BB00 CE 00 14 ... ldx #0014 BB03 1C 00 .. bset add,x 00,x BB05 04 . lsrd BB06 F6 00 14 ... ldab 0014 -BB09 F7 38 00 .8. stb 3800 +BB09 F7 38 00 .8. stb 3800 ;changer output BB0C CE 00 14 ... ldx #0014 BB0F 1D 00 .. bclr add,x 00,x BB11 04 . lsrd BB12 F6 00 14 ... ldab 0014 -BB15 F7 38 00 .8. stb 3800 +BB15 F7 38 00 .8. stb 3800 ;changer output BB18 CE 00 00 ... ldx #0000 BB1B 3C < pshx BB1C 5F _ clrb @@ -7598,12 +7616,12 @@ BB37 CE 00 14 ... ldx #0014 BB3A 1C 00 .. bset add,x 00,x BB3C 04 . lsrd BB3D F6 00 14 ... ldab 0014 -BB40 F7 38 00 .8. stb 3800 +BB40 F7 38 00 .8. stb 3800 ;changer output BB43 CE 00 14 ... ldx #0014 BB46 1D 00 .. bclr add,x 00,x BB48 04 . lsrd BB49 F6 00 14 ... ldab 0014 -BB4C F7 38 00 .8. stb 3800 +BB4C F7 38 00 .8. stb 3800 ;changer output BB4F CE 00 00 ... ldx #0000 BB52 3C < pshx BB53 5F _ clrb @@ -7870,13 +7888,13 @@ BDC1 CE 00 14 ... ldx #0014 BDC4 1C 00 .. bset add,x 00,x BDC6 08 . inx BDC7 F6 00 14 ... ldab 0014 -BDCA F7 38 00 .8. stb 3800 +BDCA F7 38 00 .8. stb 3800 ;changer output BDCD 20 0C . bra 0c ;BDDB BDCF CE 00 14 ... ldx #0014 BDD2 1D 00 .. bclr add,x 00,x BDD4 08 . inx BDD5 F6 00 14 ... ldab 0014 -BDD8 F7 38 00 .8. stb 3800 +BDD8 F7 38 00 .8. stb 3800 ;changer output BDDB 30 0 tsx BDDC E6 03 .. ldab 03,x BDDE F7 10 2A ..* stb 102a @@ -8344,7 +8362,7 @@ C0FE CE 00 14 ... ldx #0014 C101 1C 00 .. bset add,x 00,x C103 01 . nop C104 F6 00 14 ... ldab 0014 -C107 F7 38 00 .8. stb 3800 +C107 F7 38 00 .8. stb 3800 ;changer output C10A F6 00 15 ... ldab 0015 C10D C4 1F .. andb #1f C10F 26 03 &. bne 03 ;C114 @@ -8686,7 +8704,7 @@ C39F CE 00 14 ... ldx #0014 C3A2 1D 00 .. bclr add,x 00,x C3A4 01 . nop C3A5 F6 00 14 ... ldab 0014 -C3A8 F7 38 00 .8. stb 3800 +C3A8 F7 38 00 .8. stb 3800 ;changer output C3AB 7C 00 7C |.| inc 007c C3AE CE 00 15 ... ldx #0015 C3B1 1D 00 .. bclr add,x 00,x @@ -8973,7 +8991,7 @@ C640 CE 00 14 ... ldx #0014 C643 1D 00 .. bclr add,x 00,x C645 02 . idiv C646 F6 00 14 ... ldab 0014 -C649 F7 38 00 .8. stb 3800 +C649 F7 38 00 .8. stb 3800 ;changer output C64C CC 00 1E ... ldd #001e C64F BD E5 71 ..q jsr e571 ;jump13 C652 CE 00 15 ... ldx #0015 @@ -8982,14 +9000,14 @@ C657 1F CE 00 14 .... brclr ce,x 00 14 C65B 1C 00 .. bset add,x 00,x C65D 02 . idiv C65E F6 00 14 ... ldab 0014 -C661 F7 38 00 .8. stb 3800 +C661 F7 38 00 .8. stb 3800 ;changer output C664 CC 00 19 ... ldd #0019 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 +C673 F7 38 00 .8. stb 3800 ;changer output C676 CC 00 19 ... ldd #0019 C679 BD E5 71 ..q jsr e571 ;jump13 goto43: @@ -9034,7 +9052,7 @@ C6CD F7 00 30 ..0 stb 0030 C6D0 C6 1E .. ldab #1e C6D2 F7 00 35 ..5 stb 0035 C6D5 20 5D ] bra 5d ;C734 -C6D7 F6 18 00 ... ldab 1800 +C6D7 F6 18 00 ... ldab 1800 ;tristate buffer C6DA 2D 2A -* blt 2a ;C706 C6DC F6 00 07 ... ldab 0007 C6DF 26 25 &% bne 25 ;C706 @@ -9884,9 +9902,9 @@ CD9B CD . illegal CD9C B1 00 31 ..1 cmpa 0031 CD9F CD . illegal CDA0 DB 00 01 ... addb 00 -CDA3 CE 20 00 . . ldx #2000 +CDA3 CE 20 00 . . ldx #2000 ;switch block 1 CDA6 01 . nop -CDA7 CE 28 00 .(. ldx #2800 +CDA7 CE 28 00 .(. ldx #2800 ;snack motor home sensors CDAA 05 . asld CDAB CE 34 FF .4. ldx #34ff CDAE C8 00 .. eorb #00 @@ -10316,7 +10334,7 @@ D131 14 . bset D132 1D 00 .. bclr add,x 00,x D134 40 @ nega D135 F6 00 14 ... ldab 0014 -D138 F7 38 00 .8. stb 3800 +D138 F7 38 00 .8. stb 3800 ;changer output D13B 31 1 ins D13C 39 9 rts @@ -10367,13 +10385,13 @@ D190 CE 00 14 ... ldx #0014 D193 1C 00 .. bset add,x 00,x D195 10 . sba D196 F6 00 14 ... ldab 0014 -D199 F7 38 00 .8. stb 3800 +D199 F7 38 00 .8. stb 3800 ;changer output D19C 20 0C . bra 0c ;D1AA D19E CE 00 14 ... ldx #0014 D1A1 1D 00 .. bclr add,x 00,x D1A3 10 . sba D1A4 F6 00 14 ... ldab 0014 -D1A7 F7 38 00 .8. stb 3800 +D1A7 F7 38 00 .8. stb 3800 ;changer output D1AA CE 10 00 ... ldx #1000 D1AD 1C 00 .. bset add,x 00,x D1AF 20 CE . bra ce ;D17F @@ -10395,7 +10413,7 @@ D1CC 1C 00 .. bset add,x 00,x D1CE 20 F6 . bra f6 ;D1C6 D1D0 00 . test D1D1 14 . bset -D1D2 F7 38 00 .8. stb 3800 +D1D2 F7 38 00 .8. stb 3800 ;changer output D1D5 20 13 . bra 13 ;D1EA D1D7 F6 00 5F .._ ldab 005f D1DA C1 0A .. cmpb #0a @@ -10404,7 +10422,7 @@ D1DE CE 00 14 ... ldx #0014 D1E1 1C 00 .. bset add,x 00,x D1E3 40 @ nega D1E4 F6 00 14 ... ldab 0014 -D1E7 F7 38 00 .8. stb 3800 +D1E7 F7 38 00 .8. stb 3800 ;changer output D1EA CE 10 00 ... ldx #1000 D1ED 1D 00 .. bclr add,x 00,x D1EF 40 @ nega @@ -10705,7 +10723,7 @@ D428 26 37 &7 bne 37 ;D461 D42A BD D1 3D ..= jsr d13d ;jump34 D42D 7F 00 1C ... clr 001c D430 7F 00 18 ... clr 0018 -D433 F6 18 00 ... ldab 1800 +D433 F6 18 00 ... ldab 1800 ;tristate buffer D436 C4 40 .@ andb #40 D438 26 14 &. bne 14 ;D44E D43A 7C 00 1C |.. inc 001c @@ -11021,7 +11039,7 @@ D65E CE 00 14 ... ldx #0014 D661 1D 00 .. bclr add,x 00,x D663 01 . nop D664 F6 00 14 ... ldab 0014 -D667 F7 38 00 .8. stb 3800 +D667 F7 38 00 .8. stb 3800 ;changer output D66A 39 9 rts jump107: @@ -11061,14 +11079,14 @@ D6B9 CE 00 14 ... ldx #0014 D6BC 1C 00 .. bset add,x 00,x D6BE 02 . idiv D6BF F6 00 14 ... ldab 0014 -D6C2 F7 38 00 .8. stb 3800 +D6C2 F7 38 00 .8. stb 3800 ;changer output D6C5 BD C0 E0 ... jsr c0e0 ;jump94 D6C8 20 0C . bra 0c ;D6D6 D6CA CE 00 14 ... ldx #0014 D6CD 1D 00 .. bclr add,x 00,x D6CF 01 . nop D6D0 F6 00 14 ... ldab 0014 -D6D3 F7 38 00 .8. stb 3800 +D6D3 F7 38 00 .8. stb 3800 ;changer output D6D6 20 05 . bra 05 ;D6DD D6D8 BD D6 52 ..R jsr d652 ;jump5 D6DB 8D 53 .S bsr dest 53 @@ -13579,7 +13597,7 @@ EA65 83 00 00 ... subd #0000 EA68 27 3F '? beq 3f ;EAA9 EA6A CE 00 01 ... ldx #0001 EA6D 3C < pshx -EA6E CC 18 00 ... ldd #1800 +EA6E CC 18 00 ... ldd #1800 ;tristate buffer EA71 BD E5 D7 ... jsr e5d7 ;jump69 EA74 38 8 pulx EA75 83 00 00 ... subd #0000 @@ -13587,7 +13605,7 @@ EA78 27 2F '/ beq 2f ;EAA9 EA7A CC 03 E8 ... ldd #03e8 EA7D BD E5 71 ..q jsr e571 ;jump13 EA80 7F 0B A8 ... clr 0ba8 -EA83 F6 18 00 ... ldab 1800 +EA83 F6 18 00 ... ldab 1800 ;tristate buffer EA86 C4 01 .. andb #01 EA88 26 1C &. bne 1c ;EAA6 EA8A BD BE 4B ..K jsr be4b ;jump1 @@ -13605,7 +13623,7 @@ EAA6 BD BE 69 ..i jsr be69 ;jump3 EAA9 C6 01 .. ldab #01 EAAB F7 00 14 ... stb 0014 EAAE F6 00 14 ... ldab 0014 -EAB1 F7 38 00 .8. stb 3800 +EAB1 F7 38 00 .8. stb 3800 ;changer output EAB4 CC 00 1E ... ldd #001e EAB7 BD E5 71 ..q jsr e571 ;jump13 EABA CE 00 01 ... ldx #0001 @@ -13626,7 +13644,7 @@ EADA 7E ED F8 ~.. jmp edf8 ;goto80 EADD C6 02 .. ldab #02 EADF F7 00 14 ... stb 0014 EAE2 F6 00 14 ... ldab 0014 -EAE5 F7 38 00 .8. stb 3800 +EAE5 F7 38 00 .8. stb 3800 ;changer output EAE8 CC 00 1E ... ldd #001e EAEB BD E5 71 ..q jsr e571 ;jump13 EAEE CE 00 01 ... ldx #0001 @@ -14011,7 +14029,7 @@ EDF3 F7 08 00 ... stb 0800 EDF6 8D 21 .! bsr dest 21 EDF8 7F 00 14 ... clr 0014 EDFB F6 00 14 ... ldab 0014 -EDFE F7 38 00 .8. stb 3800 +EDFE F7 38 00 .8. stb 3800 ;changer output EE01 31 1 ins EE02 39 9 rts @@ -14024,6 +14042,7 @@ EE08 BD C0 BA ... jsr c0ba ;display: EE0B CE 10 16 ... ldx #1016 EE0E 1D 01 .. bclr add,x 01,x EE10 FF CC 05 ... stx cc05 +EE13 DC BD E5 ... ldd bd EE16 71 q illegal EE17 38 8 pulx EE18 39 9 rts @@ -14059,7 +14078,7 @@ 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 ;jump13 -EE62 F6 18 00 ... ldab 1800 +EE62 F6 18 00 ... ldab 1800 ;tristate buffer EE65 2C 07 ,. bge 07 ;EE6E EE67 CC B1 5A ..Z ldd #b15a EE6A 8D 97 .. bsr dest 97 @@ -14075,7 +14094,7 @@ 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 ;jump13 -EE8A F6 18 00 ... ldab 1800 +EE8A F6 18 00 ... ldab 1800 ;tristate buffer EE8D 2D 08 -. blt 08 ;EE97 EE8F CC B1 5A ..Z ldd #b15a EE92 BD EE 03 ... jsr ee03 ;jump36 @@ -14143,7 +14162,7 @@ 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 ;jump13 -EF36 F6 18 00 ... ldab 1800 +EF36 F6 18 00 ... ldab 1800 ;tristate buffer EF39 C4 20 . andb #20 EF3B 26 06 &. bne 06 ;EF43 EF3D CC B1 70 ..p ldd #b170 @@ -14155,7 +14174,7 @@ 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 ;jump13 -EF55 F6 18 00 ... ldab 1800 +EF55 F6 18 00 ... ldab 1800 ;tristate buffer EF58 C4 20 . andb #20 EF5A 27 06 '. beq 06 ;EF62 EF5C CC B1 70 ..p ldd #b170 @@ -14240,10 +14259,10 @@ F01F 1C 00 .. bset add,x 00,x F021 20 F6 . bra f6 ;F019 F023 00 . test F024 14 . bset -F025 F7 38 00 .8. stb 3800 +F025 F7 38 00 .8. stb 3800 ;changer output F028 CC 00 0A ... ldd #000a F02B BD E5 71 ..q jsr e571 ;jump13 -F02E F6 20 00 . . ldab 2000 +F02E F6 20 00 . . ldab 2000 ;switch block 1 F031 C4 40 .@ andb #40 F033 26 06 &. bne 06 ;F03B F035 CC B1 9C ... ldd #b19c @@ -14253,10 +14272,10 @@ F03E 1D 00 .. bclr add,x 00,x F040 20 F6 . bra f6 ;F038 F042 00 . test F043 14 . bset -F044 F7 38 00 .8. stb 3800 +F044 F7 38 00 .8. stb 3800 ;changer output F047 CC 00 0A ... ldd #000a F04A BD E5 71 ..q jsr e571 ;jump13 -F04D F6 20 00 . . ldab 2000 +F04D F6 20 00 . . ldab 2000 ;switch block 1 F050 C4 40 .@ andb #40 F052 27 06 '. beq 06 ;F05A F054 CC B1 9C ... ldd #b19c @@ -14265,10 +14284,10 @@ F05A CE 00 14 ... ldx #0014 F05D 1C 00 .. bset add,x 00,x F05F 40 @ nega F060 F6 00 14 ... ldab 0014 -F063 F7 38 00 .8. stb 3800 +F063 F7 38 00 .8. stb 3800 ;changer output F066 CC 00 0A ... ldd #000a F069 BD E5 71 ..q jsr e571 ;jump13 -F06C F6 20 00 . . ldab 2000 +F06C F6 20 00 . . ldab 2000 ;switch block 1 F06F 2C 06 ,. bge 06 ;F077 F071 CC B1 9C ... ldd #b19c F074 BD EE 03 ... jsr ee03 ;jump36 @@ -14276,10 +14295,10 @@ F077 CE 00 14 ... ldx #0014 F07A 1D 00 .. bclr add,x 00,x F07C 40 @ nega F07D F6 00 14 ... ldab 0014 -F080 F7 38 00 .8. stb 3800 +F080 F7 38 00 .8. stb 3800 ;changer output F083 CC 00 0A ... ldd #000a F086 BD E5 71 ..q jsr e571 ;jump13 -F089 F6 20 00 . . ldab 2000 +F089 F6 20 00 . . ldab 2000 ;switch block 1 F08C 2D 06 -. blt 06 ;F094 F08E CC B1 9C ... ldd #b19c F091 BD EE 03 ... jsr ee03 ;jump36 @@ -14335,7 +14354,7 @@ F109 F7 00 06 ... stb 0006 F10C BD D1 3D ..= jsr d13d ;jump34 F10F CC 00 0A ... ldd #000a F112 BD E5 71 ..q jsr e571 ;jump13 -F115 F6 18 00 ... ldab 1800 +F115 F6 18 00 ... ldab 1800 ;tristate buffer F118 C4 40 .@ andb #40 F11A 26 0B &. bne 0b ;F127 F11C BD D1 05 ... jsr d105 ;jump32 @@ -14345,7 +14364,7 @@ F125 20 1D . bra 1d ;F144 F127 BD D1 05 ... jsr d105 ;jump32 F12A CC 00 0A ... ldd #000a F12D BD E5 71 ..q jsr e571 ;jump13 -F130 F6 18 00 ... ldab 1800 +F130 F6 18 00 ... ldab 1800 ;tristate buffer F133 C4 40 .@ andb #40 F135 27 08 '. beq 08 ;F13F F137 CC B1 B2 ... ldd #b1b2 @@ -14372,9 +14391,9 @@ F160 C4 40 .@ andb #40 F162 26 5B &[ bne 5b ;F1BF F164 C6 FF .. ldab #ff F166 F7 00 39 ..9 stb 0039 -F169 F6 20 00 . . ldab 2000 +F169 F6 20 00 . . ldab 2000 ;switch block 1 F16C 2C 11 ,. bge 11 ;F17F -F16E F6 20 00 . . ldab 2000 +F16E F6 20 00 . . ldab 2000 ;switch block 1 F171 C4 40 .@ andb #40 F173 27 0A '. beq 0a ;F17F F175 F6 00 39 ..9 ldab 0039 @@ -14387,7 +14406,7 @@ F184 CE 00 19 ... ldx #0019 F187 1C 00 .. bset add,x 00,x F189 40 @ nega F18A 20 33 3 bra 33 ;F1BF -F18C F6 20 00 . . ldab 2000 +F18C F6 20 00 . . ldab 2000 ;switch block 1 F18F C4 40 .@ andb #40 F191 27 2C ', beq 2c ;F1BF F193 F6 00 1D ... ldab 001d @@ -14418,7 +14437,7 @@ F1C0 39 9 rts jump59: F1C1 37 7 pshb F1C2 36 6 psha -F1C3 F6 20 00 . . ldab 2000 +F1C3 F6 20 00 . . ldab 2000 ;switch block 1 F1C6 C4 40 .@ andb #40 F1C8 27 1C '. beq 1c ;F1E6 F1CA 7F 00 18 ... clr 0018 @@ -14445,7 +14464,7 @@ F1E7 39 9 rts jump57: F1E8 37 7 pshb F1E9 36 6 psha -F1EA F6 20 00 . . ldab 2000 +F1EA F6 20 00 . . ldab 2000 ;switch block 1 F1ED C4 40 .@ andb #40 F1EF 27 1B '. beq 1b ;F20C F1F1 CC 00 20 .. ldd #0020 @@ -14469,7 +14488,7 @@ F20D 39 9 rts jump62: F20E 37 7 pshb F20F 36 6 psha -F210 F6 20 00 . . ldab 2000 +F210 F6 20 00 . . ldab 2000 ;switch block 1 F213 C4 40 .@ andb #40 F215 27 34 '4 beq 34 ;F24B F217 CE 00 1D ... ldx #001d @@ -14501,7 +14520,7 @@ F24C 39 9 rts jump58: F24D 37 7 pshb F24E 36 6 psha -F24F F6 20 00 . . ldab 2000 +F24F F6 20 00 . . ldab 2000 ;switch block 1 F252 C4 40 .@ andb #40 F254 27 41 'A beq 41 ;F297 F256 CE 00 1D ... ldx #001d @@ -14539,7 +14558,7 @@ jump61 jump61:: F299 37 7 pshb F29A 36 6 psha -F29B F6 20 00 . . ldab 2000 +F29B F6 20 00 . . ldab 2000 ;switch block 1 F29E C4 40 .@ andb #40 F2A0 27 7B '{ beq 7b ;F31D F2A2 F6 00 17 ... ldab 0017 @@ -14602,7 +14621,7 @@ F31F 38 8 pulx F320 37 7 pshb F321 36 6 psha F322 3C < pshx -F323 F6 20 00 . . ldab 2000 +F323 F6 20 00 . . ldab 2000 ;switch block 1 F326 C4 40 .@ andb #40 F328 26 03 &. bne 03 ;F32D F32A 7E F3 BC ~.. jmp f3bc ;goto82 @@ -14679,7 +14698,7 @@ F3BF 6E 00 n. jmp 00,x jump63: F3C1 37 7 pshb F3C2 36 6 psha -F3C3 F6 20 00 . . ldab 2000 +F3C3 F6 20 00 . . ldab 2000 ;switch block 1 F3C6 C4 40 .@ andb #40 F3C8 27 49 'I beq 49 ;F413 F3CA CC B4 71 ..q ldd #b471 " CODE " @@ -15114,7 +15133,7 @@ main: F7D6 7F 00 14 ... clr 0014 ;0 -> 0014 F7D9 5F _ clrb ;0 -> B -F7DA F7 38 00 .8. stb 3800 ;B -> 3800 +F7DA F7 38 00 .8. stb 3800 ;B -> 3800 changer output F7DD C6 7F .. ldab #7f ;7F -> B F7DF F7 00 1A ... stb 001a ;B -> 001a F7E2 C6 7F .. ldab #7f ;7F -> B @@ -15409,6 +15428,7 @@ FA8A CE 00 1F ... ldx #001f FA8D 1C 00 .. bset add,x 00,x FA8F 20 F6 . bra f6 ;FA87 FA91 00 . test +FA92 12 . brset FA93 C4 01 .. andb #01 FA95 26 33 &3 bne 33 ;FACA FA97 F6 00 1D ... ldab 001d