From: Bernard Blackham Date: Sat, 2 Aug 2003 14:03:28 +0000 (+0000) Subject: Initial import of Bernard's disassembly work. Based on vend.asm of ROM/ X-Git-Tag: ROMW~127 X-Git-Url: https://git.ucc.asn.au/?a=commitdiff_plain;h=4c465fced6777a10f7dc2620662afbeebd05cba1;p=uccvend-snackrom.git Initial import of Bernard's disassembly work. Based on vend.asm of ROM/ --- diff --git a/ROM-2003/vend.asm b/ROM-2003/vend.asm new file mode 100644 index 0000000..647b3c9 --- /dev/null +++ b/ROM-2003/vend.asm @@ -0,0 +1,16060 @@ +;0000 +;0001 coin mask? (cf 0x001a, 0x3000, 0xc430) +;0003 global only used in jump71 +;0006 slot number +;0007 06 stored into it sometimes. +;0008 used exclusively in SCI interrupt +;0009 +;000a +;000c +;0012 another buffer for 1800 +;0013 +;0014 buffer for 3800 register +;0015 +;0016 new key state (cf 0029) +;0017 bits 5-7 used mostly +;0018 +;0019 +;001a buffer for 3000 register - initialised to 7F +;001b bit 3 - denote motor fault? +;001c used for loop variables +;001d +;001f display related? bit 2. bit 4 denotes service mode +;0021 lower 3 bits taken from SCI data somewhere +;0023 buffer for 1800 +;0026 used exclusively in SCI interrupt handler +;0029 previous key state (cf 0016) +;002c inhibits display writes? +;0032 +;0033 +;0035 only ever contains #1e +;003b commonly contains $0233 +;003d +;0040 +;0042 current key press +;0048 error status +;004a +;0052 win-a-snack odds (in ram) +;0056 last known keypad row 1 state +;005b last known keypad row 0 state +;005d +;005e Y in location XY (row?) +;005f X in location XY (column?) +;0073 +;0076-0077 word +;007f +;00c8 +;08c8 array of prices of each slot?? +;0993 custom message? +;0b90 - 0b99 display buffer (backwards) +;0baa +;0bb5 win-a-snack odds (is this in NVRAM?) +;0bbd +;0bd8 related to 0017 and 0021 (only lower 3 bits used) +;0bd9 also related +;0bc0 bit 0, 2, 1, 3 +;0bc1 error status: (from jump72) +; bit0: changer powerup +; bit1: card powerup +; bit2: link powerup +; bit3: bill error +; bit4: coin jam +; bit5: bad sensor +; bit6: tube error +;0bc2 - 0bce SCI read into these locations +;0cbc serial number +;0ccc machine ID +;0cd9 counter of something - reset to 4 on some serial input +;0cda counter of something - reset to 4 on some serial input +;0cdb also counts something - reset to 4 on some serial input +;0dff - 0e04 keypad buffer - most recent in 0e04 +;0e05 array index of the array to follow +;0e06 - ?? array of digits*10 +;1000 +;1009 +;1026 +;1028 SPCR (Serial Peripheral Control Register) +;1030 +;103c + + +;1016 - timer output compare 1 register + +;1800 Internal switches +; 7 changer INT' +; 6 Sold out. +; 5 Door open +; 4 $0.05 +; 3 $0.10 +; 2 $0.25 +; 1 $1 +; 0 Mode +;2000 Misc inputs +; 7 R2 of MAX232 +; 6 Printer DSR +; 5 Win-a-snack +; 4 Multi +; 3 Promotional +; 2 Force? +; 1 Language selection +; 0 Language selection +;Rows are numbered 1-9, skipping 5. There is no row 5. +;2800 home sensors +; 7 row 9 +; 6 row 8 +; 5 row 7 +; 4 row 6 +; 3 row 4 +; 2 row 3 +; 1 row 2 +; 0 row 1 +;Motor driver data is sent cols 7, 6, 5, 4, 3, 2, 1, 0 rows 9, 8, 7, 6, 4, 3, 2 +;1. Cols 8 and 9 are separate outputs (they ran out of driver chip outputs). +;Motor driver column output enable is PA6 +;Motor driver serial clock is PA5 +;It looks like motor overcurrent sense is on PE1 (PE1 will be low if a motor +;is drawing too much current) +; the changer speaks at 600 baud, where as the coin validator speaks +; 9600 baud. and printer at 2400. +;3000 changer outputs +; 7 motor driver row output enable +; 6 /$1.00 +; 5 /$.25 +; 4 /$.10 +; 3 /$.05 +; 2 RESET +; 1 /SEND +; 0 /ACCEPT +;3800 misc outputs +; 7 not used +; 6 col 9 motor driver +; 5 col 8 motor driver +; 4 motor driver serial data +; 3 display write (clock) enable (active high) +; 2 keypad strobe +; 1 note acceptor connector +; 0 note acceptor connector + +;------- +; Ports +;------- + +; PortA - Data: 0x1000, DDR for PA7 & PA3 in 0x1026 +; PA7 display reset (active low) +; PA6 enables motor column drivers (when low) +; PA5 clocks snack motor drivers (U16 5890 = serial-input latched source drivers (latch unused)) +; PA4 beepy thang (active high) +; PA3 high - talking to coin vendie, low - talking to printer. (through PD1) +; PA2 coin dispenser pin 6 (does what???) +; PA1 bill validator 2 +; PA0 bill validator 1 + +; PortB - not used directly +; PB7 Address lines 8-15 +; PB6 +; PB5 +; PB4 +; PB3 +; PB2 +; PB1 +; PB0 + +; PortC - Data: 0x1003, Latch: 0x1005, DDR: 0x1007 +; PC7 Data Bus 0-7 / Address bus 0-7 +; PC6 +; PC5 +; PC4 +; PC3 +; PC2 +; PC1 +; PC0 + +; PortD - Data: 0x1008, DDR: 0x1009 +; PD7 n/c +; PD6 n/c +; PD5 keypad row select (output) +; PD4 SPI - keypad & display clock signal (output) +; PD3 display data (output) +; PD2 keypad data (input) +; PD1 RX of SCI - to coin disp or printer depending on PA3 +; PD0 TX of SCI - to coin disp or printer depending on PA3 + +; PortE - Data: 0x100A +; PE7 +; PE6 +; PE5 +; PE4 +; PE3 goes high when 24VUN line is too low +; PE2 remote no-sale switch (active low) +; PE1 motor overvoltage sense (active high) +; PE0 motor overcurrent sense (active low) + +; Current status: +; JSR mapped out +; JMP mapped out + +; TODO: + +8000 43 C coma +8001 20 50 P bra 50 +8003 4F O clra +8004 57 W asrb +8005 45 E illegal +8006 52 R illegal +8007 20 43 C bra 43 +8009 4F O clra +800A 4D M tsta +800B 50 P negb +800C 41 A illegal +800D 4E N illegal +800E 59 Y rolb +800F 00 . test +8010 43 C coma +8011 4F O clra +8012 50 P negb +8013 59 Y rolb +8014 52 R illegal +8015 49 I rola +8016 47 G asra +8017 48 H asla +8018 54 T lsrb +8019 20 31 1 bra 31 +801B 39 9 rts +801C 39 9 rts +801D 33 3 pulb +801E 20 00 . bra 00 +8020 20 20 bra 20 +8022 20 20 bra 20 +8024 20 20 bra 20 +8026 20 20 bra 20 +8028 20 20 bra 20 +802A 20 20 bra 20 +802C 20 20 bra 20 +802E 20 00 . bra 00 +8030 56 V rorb +8031 45 E illegal +8032 4E N illegal +8033 44 D lsra +8034 49 I rola +8035 4E N illegal +8036 47 G asra +8037 20 4D M bra 4d +8039 41 A illegal +803A 43 C coma +803B 48 H asla +803C 49 I rola +803D 4E N illegal +803E 45 E illegal +803F 00 . test +8040 53 S comb +8041 4F O clra +8042 46 F rora +8043 54 T lsrb +8044 57 W asrb +8045 41 A illegal +8046 52 R illegal +8047 45 E illegal +8048 20 57 W bra 57 +804A 52 R illegal +804B 4F O clra +804C 54 T lsrb +804D 45 E illegal +804E 20 00 . bra 00 +8050 42 B illegal +8051 59 Y rolb +8052 20 42 B bra 42 +8054 52 R illegal +8055 45 E illegal +8056 54 T lsrb +8057 20 42 B bra 42 +8059 4F O clra +805A 52 R illegal +805B 45 E illegal +805C 4E N illegal +805D 2E 20 . bgt 20 +805F 00 . test +8060 20 20 bra 20 +8062 20 20 bra 20 +8064 20 20 bra 20 +8066 20 20 bra 20 +8068 20 20 bra 20 +806A 20 20 bra 20 +806C 20 20 bra 20 +806E 20 00 . bra 00 +8070 50 P negb +8071 52 R illegal +8072 4F O clra +8073 47 G asra +8074 52 R illegal +8075 41 A illegal +8076 4D M tsta +8077 20 46 F bra 46 +8079 4F O clra +807A 52 R illegal +807B 20 54 T bra 54 +807D 48 H asla +807E 45 E illegal +807F 00 . test +8080 35 5 txs +8081 30 0 tsx +8082 35 5 txs +8083 20 41 A bra 41 +8085 4E N illegal +8086 44 D lsra +8087 20 35 5 bra 35 +8089 39 9 rts +808A 30 0 tsx +808B 30 0 tsx +808C 2E 20 . bgt 20 +808E 20 00 . bra 00 +8090 20 20 bra 20 +8092 20 20 bra 20 +8094 20 20 bra 20 +8096 20 20 bra 20 +8098 20 20 bra 20 +809A 20 20 bra 20 +809C 20 20 bra 20 +809E 20 00 . bra 00 +80A0 50 P negb +80A1 41 A illegal +80A2 52 R illegal +80A3 54 T lsrb +80A4 20 4E N bra 4e +80A6 55 U illegal +80A7 4D M tsta +80A8 42 B illegal +80A9 45 E illegal +80AA 52 R illegal +80AB 3A : abx +80AC 20 20 bra 20 +80AE 20 00 . bra 00 +80B0 39 9 rts +80B1 33 3 pulb +80B2 37 7 pshb +80B3 2D 33 -3 blt 33 +80B5 30 0 tsx +80B6 30 0 tsx +80B7 30 0 tsx +80B8 31 1 ins +80B9 20 56 V bra 56 +80BB 45 E illegal +80BC 52 R illegal +80BD 20 35 5 bra 35 +80BF 00 . test +80C0 43 C coma +80C1 48 H asla +80C2 45 E illegal +80C3 43 C coma +80C4 4B K illegal +80C5 53 S comb +80C6 55 U illegal +80C7 4D M tsta +80C8 20 45 E bra 45 +80CA 4E N illegal +80CB 44 D lsra +80CC 3A : abx +80CD 30 0 tsx +80CE 30 0 tsx +80CF 00 . test +80D0 20 20 bra 20 +80D2 20 20 bra 20 +80D4 20 20 bra 20 +80D6 20 20 bra 20 +80D8 20 20 bra 20 +80DA 20 20 bra 20 +80DC 20 20 bra 20 +80DE 20 00 . bra 00 +80E0 20 20 bra 20 +80E2 20 20 bra 20 +80E4 20 20 bra 20 +80E6 20 20 bra 20 +80E8 20 20 bra 20 +80EA 20 20 bra 20 +80EC 20 20 bra 20 +80EE 20 00 . bra 00 +80F0 20 20 bra 20 +80F2 20 20 bra 20 +80F4 20 20 bra 20 +80F6 20 20 bra 20 +80F8 00 . test +80F9 20 0C . bra 0c +80FB 93 73 00 .s. subd 73 +80FE 01 . nop +80FF 05 . asld + +jump72: +8100 F6 00 1D ... ldab 001d +8103 C4 10 .. andb #10 +8105 27 3D '= beq 3d +8107 BD D6 52 ..R jsr d652 ;jump5 +810A CE 00 1D ... ldx #001d +810D 1D 00 10 ... bclr 00,x, #10 +8110 CE 00 1D ... ldx #001d +8113 1C 00 80 .. bset 00,x, #80 +8116 7F 00 42 .. clr 0042 +8119 7F 00 60 ..` clr 0060 +811C 7F 00 48 ..H clr 0048 +811F 7F 00 38 ..8 clr 0038 +8122 F6 0B A8 ... ldab 0ba8 +8125 27 08 '. beq 08 +8127 CE 0B A9 ... ldx #0ba9 +812A 1C 00 02 .. bset 00,x, #02 +812D 20 06 . bra 06 +812F CE 0B A9 ... ldx #0ba9 +8132 1D 00 02 ... bclr 00,x, #02 +8135 7F 0E 00 ... clr 0e00 +8138 7F 0E 01 ... clr 0e01 +813B 7F 0E 02 ... clr 0e02 +813E 7F 0E 03 ... clr 0e03 +8141 7F 0E 04 ... clr 0e04 +8144 F6 00 42 ..B ldab 0042 +8147 C1 0B .. cmpb #0b +8149 26 0F &. bne 0f +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 +8157 BD E6 1B ... jsr e61b ;jump4 +815A F6 0B A8 ... ldab 0ba8 +815D 26 03 &. bne 03 +815F 7E 81 EF ~.. jmp 81ef ;goto1 +8162 F6 00 60 ..` ldab 0060 +8165 C1 04 .. cmpb #04 +8167 24 28 $( bcc 28 +8169 F6 00 42 ..B ldab 0042 +816C 27 21 '! beq 21 +816E F6 00 42 ..B ldab 0042 +8171 C1 0A .. cmpb #0a +8173 26 03 &. bne 03 +8175 7F 00 42 ..B clr 0042 +8178 F6 00 42 ..B ldab 0042 +817B CB 30 .0 addb #30 +817D 37 7 pshb +817E F6 00 60 ..` ldab 0060 +8181 4F O clra +8182 C3 00 62 ..b addd #0062 +8185 8F . xgdx +8186 33 3 pulb +8187 E7 00 .. stab 00,x +8189 7F 00 42 ..B clr 0042 +818C 7C 00 60 |.` inc 0060 +818F 20 5C \ bra 5c +8191 F6 00 62 ..b ldab 0062 +8194 F1 0B A4 ... cmpb 0ba4 +8197 26 3D &= bne 3d +8199 F6 00 63 ..c ldab 0063 +819C F1 0B A5 ... cmpb 0ba5 +819F 26 35 &5 bne 35 +81A1 F6 00 64 ..d ldab 0064 +81A4 F1 0B A6 ... cmpb 0ba6 +81A7 26 2D &- bne 2d +81A9 F6 00 65 ..e ldab 0065 +81AC F1 0B A7 ... cmpb 0ba7 +81AF 26 25 &% bne 25 +81B1 CE 0B A9 ... ldx #0ba9 +81B4 1D 00 02 ... bclr 00,x, #02 +81B7 CE 00 1F ... ldx #001f +81BA 1C 00 04 .. bset 00,x, #04 +81BD CE 00 1F ... ldx #001f +81C0 1C 00 80 ... bset 00,x, #80 +81C3 CE 00 1D ... ldx #001d +81C5 1C 00 10 ... bset 00,x, #10 +81C9 CC 02 33 ..3 ldd #0233 +81CC FD 00 3B ..; std 003b +81CF C6 05 .. ldab #05 +81D1 F7 00 38 ..8 stab 0038 +81D4 20 17 . bra 17 +81D6 7F 00 42 ..B clr 0042 +81D9 7F 00 60 ..` clr 0060 +81DC BD BE 69 ..i jsr be69 ;displayreset +81DF BD BE 4B ..K jsr be4b ;displayblank +81E2 CC B0 81 ... ldd #b081 ;"NO ACCESS" +81E5 BD C0 BA ... jsr c0ba ;display: +81E8 C6 0A .. ldab #0a +81EA F7 00 38 ..8 stab 0038 +81ED 20 03 . bra 03 +goto1: +81EF 7F 00 42 ..B clr 0042 +81F2 F6 00 38 ..8 ldab 0038 +81F5 27 03 '. beq 03 +81F7 7E 84 9F ~.. jmp 849f ;goto2 +81FA BD BE 4B ..K jsr be4b ;displayblank +81FD F6 00 48 ..H ldab 0048 +8200 26 03 &. bne 03 +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 +820C 00 00 ; hmmm. +820E 00 0D .... ; list len-2 +8210 84 9F .. +8212 82 2E .. +8214 82 50 .P +8216 82 B7 .. +8218 82 D9 .. +821A 83 40 .@ +821C 83 62 .. +821E 83 A5 .. +8220 82 C2 .. +8222 83 DF .. +8224 83 FC .. +8226 84 19 .. +8228 84 35 .5 +822A 84 51 .Q +822C 84 78 .x ; end of jump2 data +822E F6 00 19 ... ldab 0019 +8231 C4 01 .. andb #01 +8233 27 13 '. beq 13 +8235 CC AF F2 ... ldd #aff2 ;"OVER CRNT=" +8238 BD C0 BA ... jsr c0ba ;display: +823B C6 0A .. ldab #0a +823D F7 00 38 ..8 stab 0038 +8240 7F 00 54 ..T clr 0054 +8243 7C 00 48 |.H inc 0048 +8246 20 05 . bra 05 +8248 C6 02 .. ldab #02 +824A F7 00 48 ..H stab 0048 +824D 7E 84 9F ~.. jmp 849f ;goto2 +8250 F6 00 54 ..T ldab 0054 +8253 4F O clra +8254 CE 00 05 ... ldx #0005 +8257 02 . idiv +8258 5D ] tstb +8259 27 4C 'L beq 4c +825B F6 00 54 ..T ldab 0054 +825E F7 00 06 ... stab 0006 +8261 F6 00 06 ... ldab 0006 +8264 BD D7 A0 ... jsr d7a0 ;jump10 +8267 83 00 00 ... subd #0000 +826A 27 15 '. beq 15 +826C CC 7F FF ... ldd #7fff +826F 37 7 pshb +8270 36 6 psha +8271 F6 00 06 ... ldab 0006 +8274 4F O clra +8275 05 . asld +8276 C3 08 00 ... addd #0800 +8279 38 8 pulx +827A 8F . xgdx +827B A4 00 .. anda 00,x +827D E4 01 .. andb 01,x +827F ED 00 .. std 00,x +8281 F6 00 54 ..T ldab 0054 +8284 4F O clra +8285 05 . asld +8286 C3 08 00 ... addd #0800 +8289 8F . xgdx +828A EC 00 .. ldd 00,x +828C 84 80 .. anda #80 +828E 27 17 '. beq 17 +8290 F6 00 54 ..T ldab 0054 +8293 4F O clra +8294 05 . asld +8295 C3 08 C8 ... addd #08c8 +8298 8F . xgdx +8299 EC 00 .. ldd 00,x +829B 84 02 .. anda #02 +829D 27 08 '. beq 08 +829F BD 98 A5 ... jsr 98a5 ;jump11 +82A2 C6 0A .. ldab #0a +82A4 F7 00 38 ..8 stab 0038 +82A7 7C 00 54 |.T inc 0054 +82AA F6 00 54 ..T ldab 0054 +82AD C1 64 .d cmpb #64 +82AF 26 03 &. bne 03 +82B1 7C 00 48 |.H inc 0048 +82B4 7E 84 9F ~.. jmp 849f ;goto2 +82B7 F6 00 19 ... ldab 0019 +82BA C4 02 .. andb #02 +82BC 27 13 '. beq 13 +82BE CC AF FD ... ldd #affd "HOME FAIL=" +82C1 BD C0 BA ... jsr c0ba ;display: +82C4 C6 0A .. ldab #0a +82C6 F7 00 38 ..8 stab 0038 +82C9 7F 00 54 ..T clr 0054 +82CC 7C 00 48 |.H inc 0048 +82CF 20 05 . bra 05 +82D1 C6 04 .. ldab #04 +82D3 F7 00 48 ..H stab 0048 +82D6 7E 84 9F ~.. jmp 849f ;goto2 +82D9 F6 00 54 ..T ldab 0054 +82DC 4F O clra +82DD CE 00 05 ... ldx #0005 +82E0 02 . idiv +82E1 5D ] tstb +82E2 27 4C 'L beq 4c +82E4 F6 00 54 ..T ldab 0054 +82E7 F7 00 06 ... stab 0006 +82EA F6 00 06 ... ldab 0006 +82ED BD D7 A0 ... jsr d7a0 ;jump10 +82F0 83 00 00 ... subd #0000 +82F3 27 15 '. beq 15 +82F5 CC 7F FF ... ldd #7fff +82F8 37 7 pshb +82F9 36 6 psha +82FA F6 00 06 ... ldab 0006 +82FD 4F O clra +82FE 05 . asld +82FF C3 08 00 ... addd #0800 +8302 38 8 pulx +8303 8F . xgdx +8304 A4 00 .. anda 00,x +8306 E4 01 .. andb 01,x +8308 ED 00 .. std 00,x +830A F6 00 54 ..T ldab 0054 +830D 4F O clra +830E 05 . asld +830F C3 08 00 ... addd #0800 +8312 8F . xgdx +8313 EC 00 .. ldd 00,x +8315 84 80 .. anda #80 +8317 27 17 '. beq 17 +8319 F6 00 54 ..T ldab 0054 +831C 4F O clra +831D 05 . asld +831E C3 08 C8 ... addd #08c8 +8321 8F . xgdx +8322 EC 00 .. ldd 00,x +8324 84 04 .. anda #04 +8326 27 08 '. beq 08 +8328 BD 98 A5 ... jsr 98a5 ;jump11 +832B C6 0A .. ldab #0a +832D F7 00 38 ..8 stab 0038 +8330 7C 00 54 |.T inc 0054 +8333 F6 00 54 ..T ldab 0054 +8336 C1 64 .d cmpb #64 +8338 26 03 &. bne 03 +833A 7C 00 48 |.H inc 0048 +833D 7E 84 9F ~.. jmp 849f ;goto2 +8340 F6 00 19 ... ldab 0019 +8343 C4 04 .. andb #04 +8345 27 13 '. beq 13 +8347 CC B0 08 ... ldd #b008 ; "CHK PRICES" +834A BD C0 BA ... jsr c0ba ;display: +834D C6 0A .. ldab #0a +834F F7 00 38 ..8 stab 0038 +8352 7F 00 54 ..T clr 0054 +8355 7C 00 48 |.H inc 0048 +8358 20 05 . bra 05 +835A C6 06 .. ldab #06 +835C F7 00 48 ..H stab 0048 +835F 7E 84 9F ~.. jmp 849f ;goto2 +8362 F6 00 54 ..T ldab 0054 +8365 4F O clra +8366 CE 00 05 ... ldx #0005 +8369 02 . idiv +836A 5D ] tstb +836B 27 28 '( beq 28 +836D F6 00 54 ..T ldab 0054 +8370 F7 00 06 ... stab 0006 +8373 F6 00 06 ... ldab 0006 +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 +8381 4F O clra +8382 05 . asld +8383 C3 08 C8 ... addd #08c8 +8386 8F . xgdx +8387 EC 00 .. ldd 00,x +8389 84 01 .. anda #01 +838B 27 08 '. beq 08 +838D BD 98 A5 ... jsr 98a5 ;jump11 +8390 C6 0A .. ldab #0a +8392 F7 00 38 ..8 stab 0038 +8395 7C 00 54 |.T inc 0054 +8398 F6 00 54 ..T ldab 0054 +839B C1 64 .d cmpb #64 +839D 26 03 &. bne 03 +839F 7C 00 48 |.H inc 0048 +83A2 7E 84 9F ~.. jmp 849f ;goto2 +; +83A5 F6 0B C1 ... ldab 0bc1 +83A8 C4 01 .. andb #01 +83AA 27 10 '. beq 10 +83AC CC B0 34 ..4 ldd #b034 "CHGR PWRUP" +83AF BD C0 BA ... jsr c0ba ;display: +83B2 7C 00 48 |.H inc 0048 +83B5 C6 0A .. ldab #0a +83B7 F7 00 38 ..8 stab 0038 +83BA 20 03 . bra 03 +83BC 7C 00 48 |.H inc 0048 +83BF 7E 84 9F ~.. jmp 849f ;goto2 +83C2 F6 0B C1 ... ldab 0bc1 +83C5 C4 02 .. andb #02 +83C7 27 10 '. beq 10 +83C9 CC B0 4A ..J ldd #b04a "CARD PWRUP" +83CC BD C0 BA ... jsr c0ba ;display: +83CF 7C 00 48 |.H inc 0048 +83D2 C6 0A .. ldab #0a +83D4 F7 00 38 ..8 stab 0038 +83D7 20 03 . bra 03 +83D9 7C 00 48 |.H inc 0048 +83DC 7E 84 9F ~.. jmp 849f ;goto2 +83DF F6 0B C1 ... ldab 0bc1 +83E2 C4 04 .. andb #04 +83E4 27 10 '. beq 10 +83E6 CC B0 3F ..? ldd #b03f "LINK PWRUP" +83E9 BD C0 BA ... jsr c0ba ;display: +83EC 7C 00 48 |.H inc 0048 +83EF C6 0A .. ldab #0a +83F1 F7 00 38 ..8 stab 0038 +83F4 20 03 . bra 03 +83F6 7C 00 48 |.H inc 0048 +83F9 7E 84 9F ~.. jmp 849f ;goto2 +83FC F6 0B C1 ... ldab 0bc1 +83FF C4 10 .. andb #10 +8401 27 10 '. beq 10 +8403 CC B0 1E ... ldd #b01e "COIN JAM" +8406 BD C0 BA ... jsr c0ba ;display: +8409 7C 00 48 |.H inc 0048 +840C C6 0A .. ldab #0a +840E F7 00 38 ..8 stab 0038 +8411 20 03 . bra 03 +8413 7C 00 48 |.H inc 0048 +8416 7E 84 9F ~.. jmp 849f ;goto2 +8419 F6 0B C1 ... ldab 0bc1 +841C C4 20 . andb #20 +841E 27 10 '. beq 10 +8420 CC B0 29 ..) ldd #b029 "BAD SENSOR" +8423 BD C0 BA ... jsr c0ba ;display: +8426 7C 00 48 |.H inc 0048 +8429 C6 0A .. ldab #0a +842B F7 00 38 ..8 stab 0038 +842E 20 03 . bra 03 +8430 7C 00 48 |.H inc 0048 +8433 20 6A j bra 6a +8435 F6 0B C1 ... ldab 0bc1 +8438 C4 08 .. andb #08 +843A 27 10 '. beq 10 +843C CC B0 55 ..U ldd #b055 "BILL ERROR" +843F BD C0 BA ... jsr c0ba ;display: +8442 7C 00 48 |.H inc 0048 +8445 C6 0A .. ldab #0a +8447 F7 00 38 ..8 stab 0038 +844A 20 03 . bra 03 +844C 7C 00 48 |.H inc 0048 +844F 20 4E N bra 4e +8451 F6 0B C1 ... ldab 0bc1 +8454 C4 40 .@ andb #40 +8456 27 10 '. beq 10 +8458 CC B0 60 ..` ldd #b060 "TUBE ERROR" +845B BD C0 BA ... jsr c0ba ;display: +845E 7F 00 48 ..H clr 0048 +8461 C6 0A .. ldab #0a +8463 F7 00 38 ..8 stab 0038 +8466 20 0E . bra 0e +8468 7F 00 48 ..H clr 0048 +846B CC B0 13 ... ldd #b013 "HIT RESET " +846E BD C0 BA ... jsr c0ba ;display: +8471 C6 0A .. ldab #0a +8473 F7 00 38 ..8 stab 0038 +8476 20 27 ' bra 27 ; to 849f (exit) +8478 F6 00 1D ... ldab 001d +847B 2C 0E ,. bge 0e +847D CC AE A8 ... ldd #aea8 " SYSTEM " +8480 BD C0 BA ... jsr c0ba ;display: +8483 CE 00 1D ... ldx #001d +8486 1D 00 80 .. bclr 00,x, #80 +8489 20 0C . bra 0c ; to 8496 +848B CC AE B3 ... ldd #aeb3 " OK " +848E BD C0 BA ... jsr c0ba ;display: +8491 CE 00 1D ... ldx #001d +8494 1C 00 80 .. bset 00,x, #80 +8496 C6 0F .. ldab #0f +8499 F7 00 38 ..8 stab 0038 +849C 7F 00 48 ..H clr 0048 +goto2: +849F 39 9 rts + +jump73: +; service mode menu? +84A0 FC 00 3B ..; ldd 003b +84A3 26 03 &. bne 03 +84A5 7E 85 96 ~.. jmp 8596 ;goto3 +84A8 F6 00 1F ... ldab 001f +84AB 2C 40 ,@ bge 40 +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 +84B9 7F 00 06 ... clr 0006 +84BC 5F _ clrb +84BD 4F O clra +84BE FD 00 40 ..@ std 0040 +84C1 5F _ clrb +84C2 4F O clra +84C3 FD 00 3E ..> std 003e +84C6 BD E5 AA ... jsr e5aa ;jump12 +84C9 CE 00 1F ... ldx #001f +84CC 1D 00 80 .. bclr 00,x, #80 +84CF CE 00 1F .. ldx #001f +84D2 1C 00 02 .... bset 00,x, #02 +84D5 CE 00 1D ... ldx #001d +84D8 1C 00 10 .. bset 00,x, #10 +84DB CE 00 17 ... ldx #0017 +84DE 1D 00 20 .. bclr 00,x, #20 +84E0 CE 00 17 . ldx #0017 +84E4 1D 00 40 .. bclr 00,x, #40 +84E7 CE 00 17 ... ldx #0017 +84EA 1D 00 80 .. bclr 00,x, #80 +84EC F6 0B A9 ... ldab 0ba9 +84F0 C4 02 .. andb #02 +84F2 27 20 ' beq 20 ; to 8414 +84F4 F6 00 42 ..B ldab 0042 +84F7 4F O clra +84F8 C3 0B E4 ... addd #0be4 +84FB 8F . xgdx +84FC E6 00 .. ldab 00,x +84FE 27 14 '. beq 14 +8500 BD BE 4B ..K jsr be4b ;displayblank +8503 CC B0 81 ... ldd #b081 ;"NO ACCESS" +8506 BD C0 BA ... jsr c0ba ;display: +8509 CC 02 58 ..X ldd #0258 ;600 +850C BD E5 71 ..q jsr e571 ;msdelay +850F BD 85 AF ... jsr 85af ;jump14 +8512 20 6C l bra 6c ; to 8580 +; +8514 F6 00 42 ..B ldab 0042 +8517 4F O clra +8518 BD FE 16 ... jsr fe16 ;jump2 +851B 00 00 . +851C 00 0B . +851F 85 80 .. +8521 85 39 .9 +8523 85 4A .J ; key 1 - changer loading & calibration +8525 85 4F .O ; key 2 - win-a-snack odds programming +8527 85 54 .T ; key 3 - set pricing +8529 85 59 .Y ; key 4 - smart shopping discount +852B 85 5E .^ ; key 5 - manual peripheral config +852D 85 63 .c ; key 6 - promo vend-pair programming +852F 85 68 .h ; key 7 - POS message & serial id +8531 85 6D .m ; key 8 - print info +8533 85 72 .r ; key 9 - security code programming +8535 85 77 .w ; key 0 - motor menu +8537 85 7C .| ; reset key - +; +8539 CC AE 92 ... ldd #ae92 "- " +853C BD C0 BA ... jsr c0ba ;display: +853F 7F 00 42 ..B clr 0042 +8542 CE 00 1F ... ldx #001f +8545 1C 00 02 .. bset 00,x, #02 +8548 20 36 6 bra 36 +854A BD 86 84 ... jsr 8684 ;jump15 +854D 20 31 1 bra 31 +854F BD 88 2E ... jsr 882e ;jump16 +8552 20 2C , bra 2c +8554 BD 88 B8 ... jsr 88b8 ;jump17 +8557 20 27 ' bra 27 +8559 BD 8C B4 ... jsr 8cb4 ;jump18 +855C 20 22 " bra 22 +855E BD 8E 35 ..5 jsr 8e35 ;jump19 +8561 20 1D . bra 1d +8563 BD 8F 0D ... jsr 8f0d ;jump20 +8566 20 18 . bra 18 +8568 BD 90 D1 ... jsr 90d1 ;jump21 +856B 20 13 . bra 13 +856D BD 92 EE ... jsr 92ee ;jump22 +8570 20 0E . bra 0e +8572 BD 93 A5 ... jsr 93a5 ;jump23 +8575 20 09 . bra 09 +8577 BD 94 DD ... jsr 94dd ;jump24 +857A 20 04 . bra 04 +857C 8D 31 .1 bsr 31 ;jump14 +857E 20 00 . bra 00 +; +8580 7F 00 0A ... clr 000a +8583 F6 00 42 ..B ldab 0042 +8586 C1 0A .. cmpb #0a +8588 27 0A '. beq 0a +858A F6 00 42 ..B ldab 0042 +858D C1 07 .. cmpb #07 +858F 27 03 '. beq 03 +8591 7F 00 09 ... clr 0009 +8594 20 18 . bra 18 +goto3: +8596 CE 00 1F ... ldx #001f +8599 1D 00 04 ... bclr 00,x, #04 +859C CE 00 1F ... ldx #001f +859F 1C 00 .. bset 00,x, #80 +85A2 CE 00 1D ... ldx #001d +85A5 1C 00 10 ... bset 00,x, #10 +85A8 BD BE 69 ..i jsr be69 ;displayreset +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 +85B8 1C 00 02 .. bset 00,x, #02 +85BB BD BE 69 ..i jsr be69 ;displayreset +85BE 39 9 rts + +jump28: +85BF F6 00 12 ... ldab 0012 +85C2 C4 1E .. andb #1e ; 00011110 +85C4 4F O clra +85C5 BD FE 32 ..2 jsr fe32 ;jump25 +85C8 85 DE 00 0E .... ; 14 000 0111 0 +85CC 86 08 00 08 .... ; 22 000 1011 0 +85D0 86 32 00 04 .... ; 26 000 1101 0 +85D4 86 5C 00 02 .... ; 28 000 1110 0 +85D8 86 83 FF E4 .... ; 0 +85DC 00 00 .. ; end of array +85DE F6 0B DC ... ldab 0bdc +85E1 F7 00 01 ... stab 0001 +85E4 BD C4 30 ..0 jsr c430 ;jump26 +85E7 C6 01 .. ldab #01 +85E9 F7 00 48 ..H stab 0048 +85EC 7F 00 2C .., clr 002c +85EF F6 0C D9 ... ldab 0cd9 +85F2 27 03 '. beq 03 +85F4 7A 0C D9 z.. dec 0cd9 +85F7 BD 97 F6 ... jsr 97f6 ;jump27 +85FA CC 01 5E ..^ ldd #015e +85FD BD E5 71 ..q jsr e571 ;msdelay +8600 CC 02 33 ..3 ldd #0233 +8603 FD 00 3B ..; std 003b +8606 20 7B { bra 7b +8608 F6 0B DB ... ldab 0bdb +860B F7 00 01 ... stab 0001 +860E BD C4 30 ..0 jsr c430 ;jump26 +8611 C6 02 .. ldab #02 +8613 F7 00 48 ..H stab 0048 +8616 7F 00 2C .., clr 002c +8619 F6 0C DA ... ldab 0cda +861C 27 03 '. beq 03 +861E 7A 0C DA z.. dec 0cda +8621 BD 97 F6 ... jsr 97f6 ;jump27 +8624 CC 01 5E ..^ ldd #015e +8627 BD E5 71 ..q jsr e571 ;msdelay +862A CC 02 33 ..3 ldd #0233 +862D FD 00 3B ..; std 003b +8630 20 51 Q bra 51 +8632 F6 0B DA ... ldab 0bda +8635 F7 00 01 ... stab 0001 +8638 BD C4 30 ..0 jsr c430 ;jump26 +863B C6 03 .. ldab #03 +863D F7 00 48 ..H stab 0048 +8640 7F 00 2C .., clr 002c +8643 F6 0C DB ... ldab 0cdb +8646 27 03 '. beq 03 +8648 7A 0C DB z.. dec 0cdb +864B BD 97 F6 ... jsr 97f6 ;jump27 +864E CC 01 5E ..^ ldd #015e +8651 BD E5 71 ..q jsr e571 ;msdelay +8654 CC 02 33 ..3 ldd #0233 +8657 FD 00 3B ..; std 003b +865A 20 27 ' bra 27 +865C C6 40 .@ ldab #40 +865E F7 00 01 ... stab 0001 +8661 BD C4 30 ..0 jsr c430 ;jump26 +8664 C6 04 .. ldab #04 +8666 F7 00 48 ..H stab 0048 +8669 7F 00 2C .., clr 002c +866C F6 0C DC ... ldab 0cdc +866F 27 03 '. beq 03 +8671 7A 0C DC z.. dec 0cdc +8674 BD 97 F6 ... jsr 97f6 ;jump27 +8677 CC 01 5E ..^ ldd #015e +867A BD E5 71 ..q jsr e571 ;msdelay +867D CC 02 33 ..3 ldd #0233 +8680 FD 00 3B ..; std 003b +8683 39 9 rts + +jump15: +; changer load & calibrate menu +8684 F6 00 1F ... ldab 001f +8687 C4 02 .. andb #02 +8689 27 2B '+ beq 2b +868B CE 00 1F ... ldx #001f +868E 1D 00 02 ... bclr 00,x, #02 +8691 C6 01 .. ldab #01 +8693 F7 00 48 ..H stab 0048 +8696 F6 0B C0 ... ldab 0bc0 +8699 C4 01 .. andb #01 +869B 27 16 '. beq 16 +869D C6 27 .' ldab #27 +869F F7 10 2D ..- stab 102d ; disable SCI transmission +86A2 C6 07 .. ldab #07 +86A4 F7 10 2B ..+ stab 102b ; 600 baud +86A7 CE 00 1A ... ldx #001a +86AA 1D 00 01 .. bclr 00,x, #01 +86AD F6 00 1A ... ldab 001a +86B0 F7 30 00 .0. stab 3000 ; changer accept on +86B3 7E 87 E8 ~.. jmp 87e8 ;goto4 +86B6 F6 00 09 ... ldab 0009 +86B9 4F O clra +86BA BD FE 32 ..2 jsr fe32 ;jump25 +86BD 86 D7 00 00 .... ; no key +86C1 87 39 00 01 .... ; key 1 +86C5 87 75 00 01 .... ; key 2 +86C9 87 C5 00 08 .... ; key 0 +86CD 87 D9 00 01 .... ; key reset +86D1 87 E8 FF F5 .... ; no key +86D5 00 00 .. ; end of array data +86D7 C6 FF .. ldab #ff +86D9 F7 0B BC ... stab 0bbc +86DC F6 18 00 ... ldab 1800 +86DF 2D 29 -) blt 29 +86E1 F6 00 07 ... ldab 0007 +86E4 26 24 &$ bne 24 +86E6 CE 00 1A ... ldx #001a +86E9 1D 00 02 .. bclr 00,x, #02 +86EC F6 00 1A ... ldab 001a +86EF F7 30 00 .0. stab 3000 ; send msg to changer? +86F2 CC 00 32 ..2 ldd #0032 +86F5 BD E5 71 ..q jsr e571 ;msdelay +86F8 CE 00 1A ... ldx #001a +86FB 1C 00 02 .. bset 00,x, #02 +86FE F6 00 1A ... ldab 001a +8701 F7 30 00 .0. stab 3000 ; turn changer send line off +8704 CC 02 33 ..3 ldd #0233 +8707 FD 00 3B ..; std 003b +870A 5F _ clrb +870B 4F O clra +870C FD 00 40 ..@ std 0040 +870F 5F _ clrb +8710 4F O clra +8711 FD 00 3E ..> std 003e +8714 F6 0B C0 ... ldab 0bc0 +8717 C4 01 .. andb #01 +8719 27 03 '. beq 03 +871B BD 85 BF ... jsr 85bf ;jump28 +871E BD DC A3 ... jsr dca3 ;jump29 +8721 BD 97 F6 ... jsr 97f6 ;jump27 +8724 CE 00 17 ... ldx #0017 +8727 1D 00 .. bclr add,x 00,x +8729 20 CE . bra ce +872B 00 . test +872C 17 . tba +872D 1D 00 40 ... bclr 00,x, #40 +8730 CE 00 17 ... ldx #0017 +8733 1D 00 .. bclr add,x 00,x +8735 80 7E .~ suba #7e +8737 87 . illegal +8738 E8 F6 .. eorb f6,x +873A 00 . test +873B 36 6 psha +873C 26 2F &/ bne 2f +873E F6 00 48 ..H ldab 0048 +8741 4F O clra +8742 BD FE 16 ... jsr fe16 ;jump2 +8745 00 01 00 03 . ; data for jump2 +8749 87 65 . +874B 87 53 . +874D 87 58 . +874F 87 5D . +8751 87 62 . ; end of data +8753 7C 0C D9 |.. inc 0cd9 +8756 20 0D . bra 0d +8758 7C 0C DA |.. inc 0cda +875B 20 08 . bra 08 +875D 7C 0C DB |.. inc 0cdb +8760 20 03 . bra 03 +8762 7C 0C DC |.. inc 0cdc +8765 BD 97 F6 ... jsr 97f6 ;jump27 +8768 C6 02 .. ldab #02 +876A F7 00 36 ..6 stab 0036 +876D CE 00 1B ... ldx #001b +8770 1C 00 10 ... bset 00,x, #10 +8773 20 73 s bra 73 +8775 F6 00 36 ..6 ldab 0036 +8778 26 43 &C bne 43 +877A F6 00 48 ..H ldab 0048 +877D 4F O clra +877E BD FE 16 ... jsr fe16 ;jump2 +8781 00 . test +8782 01 . nop +8783 00 . test +8784 03 . fdiv +8785 87 . illegal +8786 B5 87 8F ... bita 878f +8789 87 . illegal +878A 99 87 A3 ... adca 87 +878D 87 . illegal +878E AD F6 .. jsr f6,x +8790 0C . clc +8791 D9 27 03 .'. adcb 27 +8794 7A 0C D9 z.. dec 0cd9 +8797 20 1C . bra 1c +8799 F6 0C DA ... ldab 0cda +879C 27 03 '. beq 03 +879E 7A 0C DA z.. dec 0cda +87A1 20 12 . bra 12 +87A3 F6 0C DB ... ldab 0cdb +87A6 27 03 '. beq 03 +87A8 7A 0C DB z.. dec 0cdb +87AB 20 08 . bra 08 +87AD F6 0C DC ... ldab 0cdc +87B0 27 03 '. beq 03 +87B2 7A 0C DC z.. dec 0cdc +87B5 BD 97 F6 ... jsr 97f6 ;jump27 +87B8 C6 02 .. ldab #02 +87BA F7 00 36 ..6 stab 0036 +87BD CE 00 1B ... ldx #001b +87C0 1C 00 10 ... bset 00,x, #10 +87C3 20 23 # bra 23 +87C5 7C 00 48 |.H inc 0048 +87C8 F6 00 48 ..H ldab 0048 +87CB C1 04 .. cmpb #04 +87CD 23 05 #. bls 05 +87CF C6 01 .. ldab #01 +87D1 F7 00 48 ..H stab 0048 +87D4 BD 97 F6 ... jsr 97f6 ;jump27 +87D7 20 0F . bra 0f +87D9 CE 00 1A ... ldx #001a +87DC 1C 00 01 .. bset 00,x, #01 +87DF F6 00 1A ... ldab 001a +87E2 F7 30 00 .0. stab 3000 ; turn changer accept line off +87E5 BD 85 AF ... jsr 85af ;jump14 +goto4: +87E8 39 9 rts + +jump74: +87E9 7F 00 05 ... clr 0005 +87EC 7F 00 54 ..T clr 0054 +87EF F6 00 54 ..T ldab 0054 +87F2 C1 50 .P cmpb #50 +87F4 24 2E $. bcc 2e +87F6 F6 00 54 ..T ldab 0054 +87F9 4F O clra +87FA C3 B0 D3 ... addd #b0d3 +87FD 8F . xgdx +87FE E6 00 .. ldab 00,x +8800 F7 00 06 ... stab 0006 +8803 F6 00 06 ... ldab 0006 +8806 BD D7 A0 ... jsr d7a0 ;jump10 +8809 83 00 00 ... subd #0000 +880C 26 11 &. bne 11 +880E BD D3 11 ... jsr d311 ;jump30 +8811 83 00 00 ... subd #0000 +8814 26 03 &. bne 03 +8816 7C 00 05 |.. inc 0005 +8819 CC 00 05 ... ldd #0005 +881C BD E5 71 ..q jsr e571 ;msdelay +881F 7C 00 54 |.T inc 0054 +8822 20 CB . bra cb +8824 BD 99 81 ... jsr 9981 ;jump144 +8827 CC 07 D0 ... ldd #07d0 +882A BD E5 71 ..q jsr e571 ;msdelay +882D 39 9 rts + +jump16: +882E F6 00 1F ... ldab 001f +8831 C4 02 .. andb #02 +8833 27 12 '. beq 12 +8835 FC 0B B5 ... ldd 0bb5 +8838 C4 FF .. andb #ff +883A 84 01 .. anda #01 +883C FD 00 52 ..R std 0052 +883F CE 00 1F ... ldx #001f +8842 1D 00 02 ... bclr 00,x, #02 +8845 20 70 p bra 70 +8847 F6 00 09 ... ldab 0009 +884A 4F O clra +884B BD FE 32 ..2 jsr fe32 ;jump25 +884E 88 68 00 00 .... ; cancel. +8852 88 6D 00 01 .... ; key 1 - increment +8856 88 83 00 01 .... ; key 2 - decrement +885A 88 A7 00 08 .... ; key 0 - saving +885E 88 B4 00 01 .... ; reset +8862 88 B7 FF F5 .... ; no key - return +8866 00 00 .... ; end of array data +; +8868 BD 9A 05 ... jsr 9a05 ;jump102 - write ODDS 1/ +886B 20 4A J bra 4a ; to 88b7 - return +; increment 50 +886D FC 00 52 ..R ldd 0052 +8870 83 01 F4 ... subd #01f4 ; 500 +8873 24 09 $. bcc 09 ; dont let them go above 500 +8875 FC 00 52 ..R ldd 0052 +8878 C3 00 32 ..2 addd #0032 ; +50 +887B FD 00 52 ..R std 0052 +887E BD 9A 05 ... jsr 9a05 ;jump102 - write ODDS 1/ +8881 20 34 4 bra 34 +; +8883 FC 00 52 ..R ldd 0052 +8886 83 00 32 ..2 subd #0032 ; 50 +8889 23 17 #. bls 17 ; dont let them go below 50 +888B FC 00 52 ..R ldd 0052 +888E C3 FF CE ... addd #ffce ; -50 +8891 FD 00 52 ..R std 0052 +8894 FC 00 52 ..R ldd 0052 +8897 83 00 32 ..2 subd #0032 ; 50 +889A 24 06 $. bcc 06 +889C CC 00 32 ..2 ldd #0032 ; 100 +889F FD 00 52 ..R std 0052 +88A2 BD 9A 05 ... jsr 9a05 ;jump102 - write ODDS 1/ +88A5 20 10 . bra 10 +; +88A7 BD A3 7C ..| jsr a37c ;jump141 - save +88AA 5F _ clrb +88AB 4F O clra +88AC FD 0B B9 ... std 0bb9 +88AF BD 85 AF ... jsr 85af ;jump14 +88B2 20 03 . bra 03 +88B4 BD 85 AF ... jsr 85af ;jump14 +88B7 39 9 rts + +jump17: +; set pricing +88B8 F6 00 1F ... ldab 001f +88BB C4 02 .. andb #02 +88BD 26 0A &. bne 0a +88BF F6 00 3A ..: ldab 003a +88C2 26 28 &( bne 28 +88C4 F6 00 1D ... ldab 001d +88C7 2D 23 -# blt 23 +88C9 7F 00 2C .., clr 002c +88CC CC AE 9D ... ldd #ae9d "SET PRICE?" +88CF BD C0 BA ... jsr c0ba ;display: +88D2 CE 00 1F ... ldx #001f +88D5 1D 00 02 .. bclr 00,x, #02 +88D8 CE 00 1F ... ldx #001f +88DB 1D 00 40 .. bclr 00,x, #40 +88DE CE 00 1D ... ldx #001d +88E1 1D 00 80 .. bclr 00,x, #80 +88E4 7F 00 54 ... clr 0054 +88E7 C6 32 .2 ldab #32 +88E9 F7 00 3A ..: stab 003a +88EC F6 00 09 ... ldab 0009 +88EF 26 03 &. bne 03 +88F1 7E 89 E1 ~.. jmp 89e1 ;goto5 +88F4 F6 00 1D ... ldab 001d +88F7 2C 03 ,. bge 03 +88F9 7E 89 E1 ~.. jmp 89e1 ;goto5 +88FC F6 00 09 ... ldab 0009 +88FF C1 0B .. cmpb #0b +8901 26 06 &. bne 06 +8903 BD 85 AF ... jsr 85af ;jump14 +8906 7E 89 DE ~.. jmp 89de ;goto6 +8909 F6 00 54 ..T ldab 0054 +890C 26 26 && bne 26 +890E BD BE 4B ..K jsr be4b ;displayblank +8911 F6 00 09 ... ldab 0009 +8914 C1 0A .. cmpb #0a +8916 26 03 &. bne 03 +8918 7F 00 09 ... clr 0009 +891B F6 00 09 ... ldab 0009 +891E CB 30 .0 addb #30 +8920 37 7 pshb +8921 CC 0B 95 ... ldd #0b95 +8924 F0 00 54 ..T subb 0054 +8927 82 00 .. sbca #00 +8929 8F . xgdx +892A 33 3 pulb +892B E7 00 .. stab 00,x +892D C6 32 .2 ldab #32 +892F F7 00 3A ..: stab 003a +8932 20 37 7 bra 37 +8934 F6 00 54 ..T ldab 0054 +8937 C1 01 .. cmpb #01 +8939 26 27 &' bne 27 +893B F6 00 09 ... ldab 0009 +893E C1 05 .. cmpb #05 +8940 27 20 ' beq 20 +8942 F6 00 09 ... ldab 0009 +8945 C1 0A .. cmpb #0a +8947 27 19 '. beq 19 +8949 F6 00 09 ... ldab 0009 +894C CB 30 .0 addb #30 +894E 37 7 pshb +894F CC 0B 95 ... ldd #0b95 +8952 F0 00 54 ..T subb 0054 +8955 82 00 .. sbca #00 +8957 8F . xgdx +8958 33 3 pulb +8959 E7 00 .. stab 00,x +895B C6 32 .2 ldab #32 +895D F7 00 3A ..: stab 003a +8960 20 09 . bra 09 +8962 CE 00 1F ... ldx #001f +8965 1C 00 02 .. bset 00,x, #02 +8968 7F 00 3A ..: clr 003a +896B BD BE 01 ... jsr be01 ;jump70 +896E 7C 00 54 |.T inc 0054 +8971 F6 00 54 ..T ldab 0054 +8974 C1 02 .. cmpb #02 +8976 26 60 &` bne 60 +8978 CE 00 1D ... ldx #001d +897B 1C 00 80 .. bset 00,x, #80 +897E F6 0B 94 .. ldab 0b94 +8980 CB D0 .. addb #d0 +8983 37 7 pshb +8984 F6 0B 95 ... ldab 0b95 +8987 CB D0 .. addb #d0 +8989 86 0A .. ldaa #0a +898B 3D = mul +898C 30 0 tsx +898D EB 00 .. addb 00,x +898F 31 1 ins +8990 F7 00 06 ... stab 0006 +8993 C6 32 .2 ldab #32 +8995 F7 00 3A ..: stab 003a +8998 F6 00 06 ... ldab 0006 +899B BD D7 A0 ... jsr d7a0 ;jump10 +899E 83 00 00 ... subd #0000 +89A1 26 27 &' bne 27 +89A3 BD D3 11 ... jsr d311 ;jump30 +89A6 83 00 00 ... subd #0000 +89A9 26 0B &. bne 0b +89AB CE 00 1F ... ldx #001f +89AE 1C 00 40 .. bset 00,x, #40 +89B1 BD 8C 73 ..s jsr 8c73 ;jump75 +89B4 20 0F . bra 0f +89B6 CE 00 1F ... ldx #001f +89B9 1D 00 40 .. bclr 00,x, #40 +89BC CC 2A FF .*. ldd #2aff +89BF FD 00 27 ..' std 0027 +89C2 BD A3 85 ... jsr a385 ;jump40 +89C5 BD 9A 47 ..G jsr 9a47 ;jump39 +89C8 20 0C . bra 0c +89CA CE 00 1D ... ldx #001d +89CD 1D 00 .. bclr 00,x, #80 +89D0 CE 00 1F ... ldx #001f +89D3 1C 00 02 ... bset 00,x, #02 +89D6 20 06 . bra 06 +89D8 CE 00 1D ... ldx #001d +89DB 1D 00 80 ... bclr 00,x, #80 +;goto6 +89DE 7E 8C 72 .~ jmp 8c72 ;goto7 +;goto5 +89E1 F6 00 1D ... ldab 001d +89E4 2D 03 -. blt 03 +89E6 7E 8C 72 ~.r jmp 8c72 ;goto7 +89E9 F6 00 09 ... ldab 0009 +89EC 4F O clra +89ED BD FE 16 ... jsr fe16 ;jump2 +89F0 00 00 00 0B .... ; params to jump2 +89F4 8C 72 .. +89F6 8A 0E .. +89F8 8A 14 .. +89FA 8A AA .. +89FC 8B 5E .^ +89FE 8B 9E .. +8A00 8B DB .. +8A02 8C 72 .. +8A04 8C 72 .. +8A06 8C 72 .. +8A08 8B FC .. +8A0A 8C 67 .. +8A0C 8C 6F .. +8A0E BD 9A 47 .. jsr 9a47 ;jump39 +8A11 7E 8C 72 ... jmp 8c72 ;goto7 +8A14 F6 00 36 ... ldab 0036 +8A17 27 03 '. beq 03 +8A19 7E 8A 9B ~.. jmp 8a9b ;goto8 +8A1C F6 00 1F ... ldab 001f +8A1F C4 40 .@ andb #40 +8A21 27 78 'x beq 78 +8A23 F6 0B C0 ... ldab 0bc0 +8A26 C4 02 .. andb #02 +8A28 27 52 'R beq 52 +8A2A F6 0B AA ... ldab 0baa +8A2D C1 32 .2 cmpb #32 +8A2F 24 22 $" bcc 22 +8A31 F6 0B AA ... ldab 0baa +8A34 4F O clra +8A35 F3 00 27 ..' addd 0027 +8A38 FD 00 27 ..' std 0027 +8A3B F6 0B AA ... ldab 0baa +8A3E 4F O clra +8A3F 37 7 pshb +8A40 36 6 psha +8A41 CC 00 FA ... ldd #00fa +8A44 BD FB BA ... jsr fbba ;jump38 +8A47 B3 00 27 ..' subd 0027 +8A4A 24 05 $. bcc 05 +8A4C 5F _ clrb +8A4D 4F O clra +8A4E FD 00 27 ..' std 0027 +8A51 20 27 ' bra 27 +8A53 F6 0B AA ... ldab 0baa +8A56 C1 32 .2 cmpb #32 +8A58 26 20 & bne 20 +8A5A F6 0B AA ... ldab 0baa +8A5D 4F O clra +8A5E F3 00 27 ..' addd 0027 +8A61 FD 00 27 ..' std 0027 +8A64 F6 0B AA ... ldab 0baa +8A67 4F O clra +8A68 37 7 pshb +8A69 36 6 psha +8A6A CC 00 C7 ... ldd #00c7 +8A6D BD FB BA ... jsr fbba ;jump38 +8A70 B3 00 27 ..' subd 0027 +8A73 24 05 $. bcc 05 +8A75 5F _ clrb +8A76 4F O clra +8A77 FD 00 27 ..' std 0027 +8A7A 20 17 . bra 17 +8A7C F6 0B AA ... ldab 0baa +8A7F 4F O clra +8A80 F3 00 27 ..' addd 0027 +8A83 FD 00 27 ..' std 0027 +8A86 FC 00 27 ..' ldd 0027 +8A89 83 27 0F .'. subd #270f +8A8C 23 05 #. bls 05 +8A8E 5F _ clrb +8A8F 4F O clra +8A90 FD 00 27 ..' std 0027 +8A93 BD 9A 47 ..G jsr 9a47 ;jump39 +8A96 C6 02 .. ldab #02 +8A98 F7 00 36 ..6 stab 0036 + +goto8: +8A9B CE 00 1B ... ldx #001b +8A9E 1C 00 10 ... bset 00,x, #10 +8AA1 CC 02 33 ..3 ldd #0233 +8AA4 FD 00 3B ..; std 003b +8AA7 7E 8C 72 ~.r jmp 8c72 ;goto7 +8AAA F6 00 36 ..6 ldab 0036 +8AAD 27 03 '. beq 03 +8AAF 7E 8B 4F ~.O jmp 8b4f ;goto9 +8AB2 F6 00 1F ... ldab 001f +8AB5 C4 40 .@ andb #40 +8AB7 26 03 &. bne 03 +8AB9 7E 8B 4F ~.O jmp 8b4f ;goto9 +8ABC F6 0B C0 ... ldab 0bc0 +8ABF C4 02 .. andb #02 +8AC1 27 57 'W beq 57 +8AC3 FC 00 27 ..' ldd 0027 +8AC6 26 18 &. bne 18 +8AC8 F6 0B AA ... ldab 0baa +8ACB C1 32 .2 cmpb #32 +8ACD 24 11 $. bcc 11 +8ACF F6 0B AA ... ldab 0baa +8AD2 4F O clra +8AD3 37 7 pshb +8AD4 36 6 psha +8AD5 CC 00 FA ... ldd #00fa +8AD8 BD FB BA ... jsr fbba ;jump38 +8ADB FD 00 27 ..' std 0027 +8ADE 20 38 8 bra 38 +8AE0 FC 00 27 ..' ldd 0027 +8AE3 26 18 &. bne 18 +8AE5 F6 0B AA ... ldab 0baa +8AE8 C1 32 .2 cmpb #32 +8AEA 26 11 &. bne 11 +8AEC F6 0B AA ... ldab 0baa +8AEF 4F O clra +8AF0 37 7 pshb +8AF1 36 6 psha +8AF2 CC 00 C7 ... ldd #00c7 +8AF5 BD FB BA ... jsr fbba ;jump38 +8AF8 FD 00 27 ..' std 0027 +8AFB 20 1B . bra 1b +8AFD F6 0B AA ... ldab 0baa +8B00 4F O clra +8B01 B3 00 27 ..' subd 0027 +8B04 22 0D ". bhi 0d +8B06 FC 00 27 ..' ldd 0027 +8B09 F0 0B AA ... subb 0baa +8B0C 82 00 .. sbca #00 +8B0E FD 00 27 ..' std 0027 +8B11 20 05 . bra 05 +8B13 5F _ clrb +8B14 4F O clra +8B15 FD 00 27 ..' std 0027 +8B18 20 2D - bra 2d +8B1A FC 00 27 ..' ldd 0027 +8B1D 26 0D &. bne 0d +8B1F CC 27 10 .'. ldd #2710 +8B22 F0 0B AA ... subb 0baa +8B25 82 00 .. sbca #00 +8B27 FD 00 27 ..' std 0027 +8B2A 20 1B . bra 1b +8B2C F6 0B AA ... ldab 0baa +8B2F 4F O clra +8B30 B3 00 27 ..' subd 0027 +8B33 22 0D ". bhi 0d +8B35 FC 00 27 ..' ldd 0027 +8B38 F0 0B AA ... subb 0baa +8B3B 82 00 .. sbca #00 +8B3D FD 00 27 ..' std 0027 +8B40 20 05 . bra 05 +8B42 5F _ clrb +8B43 4F O clra +8B44 FD 00 27 ..' std 0027 +8B47 BD 9A 47 ..G jsr 9a47 ;jump39 +8B4A C6 02 .. ldab #02 +8B4C F7 00 36 ..6 stab 0036 +goto9: +8B4F CE 00 1B ... ldx #001b +8B52 1C 00 10 .. bset 00,x, #10 +8B55 CC 02 33 ..3 ldd #0233 +8B58 FD 00 3B ..; std 003b +8B5B 7E 8C 72 ~.r jmp 8c72 ;goto7 +8B5E F6 00 36 ..6 ldab 0036 +8B61 26 2C &, bne 2c +8B63 F6 00 1F ... ldab 001f +8B66 C4 40 .@ andb #40 +8B68 27 25 '% beq 25 +8B6A FC 00 46 ..F ldd 0046 +8B6D 83 00 64 ..d subd #0064 +8B70 24 15 $. bcc 15 +8B72 FE 00 46 ..F ldx 0046 +8B75 08 . inx +8B76 FF 00 46 ..F stx 0046 +8B79 FC 00 46 ..F ldd 0046 +8B7C 83 00 64 ..d subd #0064 +8B7F 25 06 %. bcs 06 +8B81 CC 00 01 ... ldd #0001 +8B84 FD 00 46 ..F std 0046 +8B87 BD 9A 47 ..G jsr 9a47 ;jump39 +8B8A C6 02 .. ldab #02 +8B8C F7 00 36 ..6 stab 0036 +8B8F CE 00 1B ... ldx #001b +8B92 1C 00 10 .. bset 00,x, #10 +8B95 CC 02 33 ..3 ldd #0233 +8B98 FD 00 3B ..; std 003b +8B9B 7E 8C 72 ~.r jmp 8c72 ;goto7 +8B9E F6 00 36 ..6 ldab 0036 +8BA1 26 29 &) bne 29 +8BA3 F6 00 1F ... ldab 001f +8BA6 C4 40 .@ andb #40 +8BA8 27 22 '" beq 22 +8BAA FC 00 46 ..F ldd 0046 +8BAD 83 00 00 ... subd #0000 +8BB0 23 12 #. bls 12 +8BB2 FE 00 46 ..F ldx 0046 +8BB5 09 . dex +8BB6 FF 00 46 ..F stx 0046 +8BB9 FC 00 46 ..F ldd 0046 +8BBC 26 06 &. bne 06 +8BBE CC 00 63 ..c ldd #0063 +8BC1 FD 00 46 ..F std 0046 +8BC4 BD 9A 47 ..G jsr 9a47 ;jump39 +8BC7 C6 02 .. ldab #02 +8BC9 F7 00 36 ..6 stab 0036 +8BCC CE 00 1B ... ldx #001b +8BCF 1C 00 10 ... bset 00,x, #10 +8BD2 CC 02 33 ..3 ldd #0233 +8BD5 FD 00 3B ..; std 003b +8BD8 7E 8C 72 ~.r jmp 8c72 ;goto7 +8BDB F6 00 1F ... ldab 001f +8BDE C4 40 .@ andb #40 +8BE0 27 15 '. beq 15 +8BE2 F6 00 19 ... ldab 0019 +8BE5 C4 10 .. andb #10 +8BE7 27 08 '. beq 08 +8BE9 CE 00 19 ... ldx #0019 +8BEC 1D 00 10 ... bclr 00,x, #10 +8BEF 20 06 . bra 06 +8BF1 CE 00 19 ... ldx #0019 +8BF4 1C 00 10 ... bset 00,x, #10 +8BF7 BD 9A 47 ..G jsr 9a47 ;jump39 +8BFA 20 76 v bra 76 +8BFC BD A3 85 ... jsr a385 ;jump40 +8BFF F6 00 06 ... ldab 0006 +8C02 C1 64 .d cmpb #64 +8C04 24 24 $$ bcc 24 +8C06 BD 97 6F ..o jsr 976f ;jump41 +8C09 F6 00 06 ... ldab 0006 +8C0C BD D7 A0 ... jsr d7a0 ;jump10 +8C0F 83 00 00 ... subd #0000 +8C12 27 16 '. beq 16 +8C14 F6 00 06 ... ldab 0006 +8C17 C1 09 .. cmpb #09 +8C19 26 03 &. bne 03 +8C1B BD 97 6F ..o jsr 976f ;jump41 +8C1E F6 00 06 ... ldab 0006 +8C21 C1 45 .E cmpb #45 +8C23 26 05 &. bne 05 +8C25 C6 01 .. ldab #01 +8C27 F7 00 06 ... stab 0006 +8C2A F6 0E 6D ..m ldab 0e6d +8C2D C1 01 .. cmpb #01 +8C2F 26 11 &. bne 11 +8C31 F6 00 06 ... ldab 0006 +8C34 4F O clra +8C35 05 . asld +8C36 C3 08 C8 ... addd #08c8 +8C39 8F . xgdx +8C3A EC 00 .. ldd 00,x +8C3C C4 7F .. andb #7f +8C3E 4F O clra +8C3F FD 00 46 ..F std 0046 +8C42 BD D3 11 ... jsr d311 ;jump30 +8C45 83 00 00 ... subd #0000 +8C48 26 12 &. bne 12 +8C4A CE 00 1F ... ldx #001f +8C4D 1C 00 40 ... bset 00,x, #40 +8C50 FC 00 27 ..' ldd 0027 +8C53 83 27 0F .'. subd #270f +8C56 23 02 #. bls 02 +8C58 8D 19 .. bsr dest 19 +8C5A 20 06 . bra 06 +8C5C CE 00 1F ... ldx #001f +8C5F 1D 00 40 ... bclr 00,x, #40 +8C62 BD 9A 47 ..G jsr 9a47 ;jump39 +8C65 20 0B . bra 0b +8C67 BD A3 85 ... jsr a385 ;jump40 +8C6A BD 85 AF ... jsr 85af ;jump14 +8C6D 20 03 . bra 03 +8C6F BD 85 AF ... jsr 85af ;jump14 +goto7: +8C72 39 9 rts + +jump75: +8C73 F6 00 06 ... ldab 0006 +8C76 4F O clra +8C77 05 . asld +8C78 C3 08 00 ... addd #0800 +8C7B 8F . xgdx +8C7C EC 00 .. ldd 00,x +8C7E C4 FF .. andb #ff +8C80 84 3F .? anda #3f +8C82 FD 00 27 ..' std 0027 +8C85 F6 00 06 ... ldab 0006 +8C88 4F O clra +8C89 05 . asld +8C8A C3 08 C8 ... addd #08c8 +8C8D 8F . xgdx +8C8E EC 00 .. ldd 00,x +8C90 C4 7F .. andb #7f +8C92 4F O clra +8C93 FD 00 46 ..F std 0046 +8C96 F6 00 06 ... ldab 0006 +8C99 4F O clra +8C9A 05 . asld +8C9B C3 08 C8 ... addd #08c8 +8C9E 8F . xgdx +8C9F EC 00 .. ldd 00,x +8CA1 84 08 .. anda #08 +8CA3 27 08 '. beq 08 +8CA5 CE 00 19 ... ldx #0019 +8CA8 1C 00 10 ... bset 00,x, #10 +8CAB 20 06 . bra 06 +8CAD CE 00 19 ... ldx #0019 +8CB0 1D 00 10 ... bclr 00,x, #10 +8CB3 39 9 rts + +jump18: +; program smart shopping discount +8CB4 F6 00 1F ... ldab 001f +8CB7 C4 02 .. andb #02 +8CB9 27 12 '. beq 12 +8CBB FC 0B B7 ... ldd 0bb7 +8CBE FD 00 0D ... std 000d +8CC1 CE 00 1F ... ldx #001f +8CC4 1D 00 02 ... bclr 00,x, #02 +8CC7 7F 00 36 ..6 clr 0036 +8CCA 7E 8E 34 ~.4 jmp 8e34 ;goto10 +8CCD F6 00 09 ... ldab 0009 +8CD0 4F O clra +8CD1 BD FE 32 ..2 jsr fe32 ;jump25 +8CD4 8C EE 00 00 .... ; array data for jump25 +8CD8 8C F4 00 01 .... +8CDC 8D 80 00 01 .... +8CE0 8E 29 00 08 .).. +8CE4 8E 31 00 01 .1.. +8CE8 8E 34 FF F5 .4. +8CEC 00 00 ... ; end of array data +8CEE BD 9B 63 ..c jsr 9b63 ;jump101 +8CF1 7E 8E 34 ~.4 jmp 8e34 ;goto10 +8CF4 F6 00 36 ..6 ldab 0036 +8CF7 26 78 &x bne 78 +8CF9 F6 0B C0 ... ldab 0bc0 +8CFC C4 02 .. andb #02 +8CFE 27 52 'R beq 52 +8D00 F6 0B AA ... ldab 0baa +8D03 C1 32 .2 cmpb #32 +8D05 24 22 $" bcc 22 +8D07 F6 0B AA ... ldab 0baa +8D0A 4F O clra +8D0B F3 00 0D ... addd 000d +8D0E FD 00 0D ... std 000d +8D11 F6 0B AA ... ldab 0baa +8D14 4F O clra +8D15 37 7 pshb +8D16 36 6 psha +8D17 CC 00 FA ... ldd #00fa +8D1A BD FB BA ... jsr fbba ;jump38 +8D1D B3 00 0D ... subd 000d +8D20 24 05 $. bcc 05 +8D22 5F _ clrb +8D23 4F O clra +8D24 FD 00 0D ... std 000d +8D27 20 27 ' bra 27 +8D29 F6 0B AA ... ldab 0baa +8D2C C1 32 .2 cmpb #32 +8D2E 26 20 & bne 20 +8D30 F6 0B AA ... ldab 0baa +8D33 4F O clra +8D34 F3 00 0D ... addd 000d +8D37 FD 00 0D ... std 000d +8D3A F6 0B AA ... ldab 0baa +8D3D 4F O clra +8D3E 37 7 pshb +8D3F 36 6 psha +8D40 CC 00 C7 ... ldd #00c7 +8D43 BD FB BA ... jsr fbba ;jump38 +8D46 B3 00 0D ... subd 000d +8D49 24 05 $. bcc 05 +8D4B 5F _ clrb +8D4C 4F O clra +8D4D FD 00 0D ... std 000d +8D50 20 17 . bra 17 +8D52 F6 0B AA ... ldab 0baa +8D55 4F O clra +8D56 F3 00 0D ... addd 000d +8D59 FD 00 0D ... std 000d +8D5C FC 00 0D ... ldd 000d +8D5F 83 27 0F .'. subd #270f +8D62 23 05 #. bls 05 +8D64 5F _ clrb +8D65 4F O clra +8D66 FD 00 0D ... std 000d +8D69 BD 9B 63 ..c jsr 9b63 ;jump101 +8D6C C6 02 .. ldab #02 +8D6E F7 00 36 ..6 stab 0036 +8D71 CE 00 1B ... ldx #001b +8D74 1C 00 10 .. bset 00,x, #10 +8D77 CC 02 33 ..3 ldd #0233 +8D7A FD 00 3B ..; std 003b +8D7D 7E 8E 34 ~.4 jmp 8e34 ;goto10 +8D80 F6 00 36 ..6 ldab 0036 +8D83 27 03 '. beq 03 +8D85 7E 8E 1B ~.. jmp 8e1b ;goto11 +8D88 F6 0B C0 ... ldab 0bc0 +8D8B C4 02 .. andb #02 +8D8D 27 57 'W beq 57 +8D8F FC 00 0D ... ldd 000d +8D92 26 18 &. bne 18 +8D94 F6 0B AA ... ldab 0baa +8D97 C1 32 .2 cmpb #32 +8D99 24 11 $. bcc 11 +8D9B F6 0B AA ... ldab 0baa +8D9E 4F O clra +8D9F 37 7 pshb +8DA0 36 6 psha +8DA1 CC 00 FA ... ldd #00fa +8DA4 BD FB BA ... jsr fbba ;jump38 +8DA7 FD 00 0D ... std 000d +8DAA 20 38 8 bra 38 +8DAC FC 00 0D ... ldd 000d +8DAF 26 18 &. bne 18 +8DB1 F6 0B AA ... ldab 0baa +8DB4 C1 32 .2 cmpb #32 +8DB6 26 11 &. bne 11 +8DB8 F6 0B AA ... ldab 0baa +8DBB 4F O clra +8DBC 37 7 pshb +8DBD 36 6 psha +8DBE CC 00 C7 ... ldd #00c7 +8DC1 BD FB BA ... jsr fbba ;jump38 +8DC4 FD 00 0D ... std 000d +8DC7 20 1B . bra 1b +8DC9 F6 0B AA ... ldab 0baa +8DCC 4F O clra +8DCD B3 00 0D ... subd 000d +8DD0 22 0D ". bhi 0d +8DD2 FC 00 0D ... ldd 000d +8DD5 F0 0B AA ... subb 0baa +8DD8 82 00 .. sbca #00 +8DDA FD 00 0D ... std 000d +8DDD 20 05 . bra 05 +8DDF 5F _ clrb +8DE0 4F O clra +8DE1 FD 00 0D ... std 000d +8DE4 20 2D - bra 2d +8DE6 FC 00 0D ... ldd 000d +8DE9 26 0D &. bne 0d +8DEB CC 27 10 .'. ldd #2710 +8DEE F0 0B AA ... subb 0baa +8DF1 82 00 .. sbca #00 +8DF3 FD 00 0D ... std 000d +8DF6 20 1B . bra 1b +8DF8 F6 0B AA ... ldab 0baa +8DFB 4F O clra +8DFC B3 00 0D ... subd 000d +8DFF 22 0D ". bhi 0d +8E01 FC 00 0D ... ldd 000d +8E04 F0 0B AA ... subb 0baa +8E07 82 00 .. sbca #00 +8E09 FD 00 0D ... std 000d +8E0C 20 05 . bra 05 +8E0E 5F _ clrb +8E0F 4F O clra +8E10 FD 00 0D ... std 000d +8E13 BD 9B 63 ..c jsr 9b63 ;jump101 +8E16 C6 02 .. ldab #02 +8E18 F7 00 36 ..6 stab 0036 +goto11: +8E1B CE 00 1B ... ldx #001b +8E1E 1C 00 10 ... bset 00,x, #10 +8E21 CC 02 33 ..3 ldd #0233 +8E24 FD 00 3B ..; std 003b +8E27 20 0B . bra 0b +8E29 BD A4 4F ..O jsr a44f ;jump140 +8E2C BD 85 AF ... jsr 85af ;jump14 +8E2F 20 03 . bra 03 +8E31 BD 85 AF ... jsr 85af ;jump14 +goto10: +8E34 39 9 rts + +jump19: +; manual peripheral config menu +8E35 F6 00 1F ... ldab 001f +8E38 C4 02 .. andb #02 +8E3A 27 1E '. beq 1e +8E3C 7F 00 48 ..H clr 0048 +8E3F F6 0B C0 ... ldab 0bc0 +8E42 F7 00 67 ..g stab 0067 +8E45 F6 0E 6D ..m ldab 0e6d +8E48 F7 0E 6F ..o stab 0e6f +8E4B F6 0E 6E ..n ldab 0e6e +8E4E F7 0E 70 ..p stab 0e70 +8E51 CE 00 1F ... ldx #001f +8E54 1D 00 02 ... bclr 00,x, #02 +8E57 7E 8F 0C ~.. jmp 8f0c ;goto12 +8E5A F6 00 09 ... ldab 0009 +8E5D 4F O clra +8E5E BD FE 32 ..2 jsr fe32 ;jump25 +8E61 8E 7B 00 00 .{.. ; array data for jump25 +8E65 8E 81 00 01 .... +8E69 8E 87 00 04 .... +8E6D 8F 01 00 05 .... +8E71 8F 09 00 01 .... +8E75 8F 0C FF F5 .... +8E79 00 00 .. ; end of array data +8E7B BD 9C 15 ... jsr 9c15 ;jump111 +8E7E 7E 8F 0C ~.. jmp 8f0c ;goto12 +8E81 BD A7 5F .._ jsr a75f ;jump133 +8E84 7E 8F 0C ~.. jmp 8f0c ;goto12 +8E87 F6 00 48 ..H ldab 0048 +8E8A C1 08 .. cmpb #08 +8E8C 25 05 %. bcs 05 +8E8E F6 00 67 ..g ldab 0067 +8E91 2D 03 -. blt 03 +8E93 BD A4 59 ..Y jsr a459 ;jump110 +8E96 F6 00 48 ..H ldab 0048 +8E99 C1 0A .. cmpb #0a +8E9B 24 5F $_ bcc 5f +8E9D 7C 00 48 |.H inc 0048 +8EA0 F6 00 48 ..H ldab 0048 +8EA3 C1 01 .. cmpb #01 +8EA5 26 0F &. bne 0f +8EA7 F6 00 67 ..g ldab 0067 +8EAA C4 02 .. andb #02 +8EAC 26 08 &. bne 08 +8EAE F6 00 48 ..H ldab 0048 +8EB1 CB 02 .. addb #02 +8EB3 F7 00 48 ..H stab 0048 +8EB6 F6 00 48 ..H ldab 0048 +8EB9 C1 02 .. cmpb #02 +8EBB 26 0A &. bne 0a +8EBD F6 00 67 ..g ldab 0067 +8EC0 C4 10 .. andb #10 +8EC2 26 03 &. bne 03 +8EC4 7C 00 48 |.H inc 0048 +8EC7 F6 00 48 ..H ldab 0048 +8ECA C1 06 .. cmpb #06 +8ECC 26 0F &. bne 0f +8ECE F6 00 67 ..g ldab 0067 +8ED1 C4 08 .. andb #08 +8ED3 26 08 &. bne 08 +8ED5 C6 02 .. ldab #02 +8ED7 FB 00 48 ..H addb 0048 +8EDA F7 00 48 ..H stab 0048 +8EDD F6 00 48 ..H ldab 0048 +8EE0 C1 0A .. cmpb #0a +8EE2 26 08 &. bne 08 +8EE4 F6 00 67 ..g ldab 0067 +8EE7 2D 03 -. blt 03 +8EE9 7C 00 48 |.H inc 0048 +8EEC F6 00 48 ..H ldab 0048 +8EEF C1 0A .. cmpb #0a +8EF1 23 09 #. bls 09 +8EF3 7F 00 48 ..H clr 0048 +8EF6 F6 0B C0 ... ldab 0bc0 +8EF9 F7 00 67 ..g stab 0067 +8EFC BD 9C 15 ... jsr 9c15 ;jump111 +8EFF 20 0B . bra 0b +8F01 BD A4 59 ..Y jsr a459 ;jump110 +8F04 BD 85 AF ... jsr 85af ;jump14 +8F07 20 03 . bra 03 +8F09 BD 85 AF ... jsr 85af ;jump14 +goto12: +8F0C 39 9 rts + +jump20: +; promotional vend-pair programming (buy one thing get another free?) +8F0D F6 00 1F ... ldab 001f +8F10 C4 02 .. andb #02 +8F12 27 1D '. beq 1d +8F14 C6 01 .. ldab #01 +8F16 F7 00 22 .." stab 0022 +8F19 F6 0B AF ... ldab 0baf +8F1C F7 00 24 ..$ stab 0024 +8F1F F6 0B B4 ... ldab 0bb4 +8F22 F7 00 2A ..* stab 002a +8F25 CE 00 1F ... ldx #001f +8F28 1D 00 02 .. bclr 00,x, #02 +8F2B 7F 00 36 ..6 clr 0036 +8F2E 7E 90 D0 ~.. jmp 90d0 ;goto13 +8F31 F6 00 09 ... ldab 0009 +8F34 4F O clra +8F35 BD FE 16 ... jsr fe16 ;jump2 +8F38 00 00 00 0B .... ; params for jump2 +8F3C 90 D0 .. +8F3E 8F 56 .. +8F40 8F 5C .. +8F42 8F B3 .. +8F44 90 0C .. +8F46 90 62 .. +8F48 90 BA .. +8F4A 90 DO .. +8F4C 90 D0 .. +8F4E 90 D0 .. +8F50 90 DO .. +8F52 90 C5 .. +8F54 90 CD .. +8F56 BD 9D 2A ..* jsr 9d2a ;jump89 +8F59 7E 90 D0 ~.. jmp 90d0 ;goto13 +8F5C F6 00 36 ..6 ldab 0036 +8F5F 26 43 &C bne 43 +8F61 F6 00 24 ..$ ldab 0024 +8F64 C1 64 .d cmpb #64 +8F66 24 34 $4 bcc 34 +8F68 7C 00 24 |.$ inc 0024 +8F6B F6 00 24 ..$ ldab 0024 +8F6E F7 00 06 ... stab 0006 +8F71 F6 00 06 ... ldab 0006 +8F74 BD D7 A0 ... jsr d7a0 ;jump10 +8F77 83 00 00 ... subd #0000 +8F7A 27 03 '. beq 03 +8F7C 7C 00 24 |.$ inc 0024 +8F7F F6 00 24 ..$ ldab 0024 +8F82 C1 64 .d cmpb #64 +8F84 26 03 &. bne 03 +8F86 7F 00 24 ..$ clr 0024 +8F89 F6 00 24 ..$ ldab 0024 +8F8C 4F O clra +8F8D CE 00 05 ... ldx #0005 +8F90 02 . idiv +8F91 5D ] tstb +8F92 26 08 &. bne 08 +8F94 F6 00 24 ..$ ldab 0024 +8F97 27 03 '. beq 03 +8F99 7C 00 24 |.$ inc 0024 +8F9C BD 9D 2A ..* jsr 8d2a ;jump89 +8F9F C6 02 .. ldab #02 +8FA1 F7 00 36 ..6 stab 0036 +8FA4 CE 00 1B ... ldx #001b +8FA7 1C 00 10 ... bset 00,x, #10 +8FAA CC 02 33 ..3 ldd #0233 +8FAD FD 00 3B ..; std 003b +8FB0 7E 90 D0 ~.. jmp 90d0 ;goto13 +8FB3 F6 00 36 ..6 ldab 0036 +8FB6 26 45 &E bne 45 +8FB8 F6 00 24 ..$ ldab 0024 +8FBB C1 00 .. cmpb #00 +8FBD 23 2C #, bls 2c +8FBF 7A 00 24 z.$ dec 0024 +8FC2 F6 00 24 ..$ ldab 0024 +8FC5 4F O clra +8FC6 CE 00 05 ... ldx #0005 +8FC9 02 . idiv +8FCA 5D ] tstb +8FCB 26 08 &. bne 08 +8FCD F6 00 24 ..$ ldab 0024 +8FD0 27 03 '. beq 03 +8FD2 7A 00 24 z.$ dec 0024 +8FD5 F6 00 24 ..$ ldab 0024 +8FD8 F7 00 06 ... stab 0006 +8FDB F6 00 06 ... ldab 0006 +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 +8FE9 20 0A . bra 0a +8FEB F6 00 24 ..$ ldab 0024 +8FEE 26 05 &. bne 05 +8FF0 C6 62 .b ldab #62 +8FF2 F7 00 24 ..$ stab 0024 +8FF5 BD 9D 2A ..* jsr 9d2a ;jump89 +8FF8 C6 02 .. ldab #02 +8FFA F7 00 36 ..6 stab 0036 +8FFD CE 00 1B ... ldx #001b +9000 1C 00 10 ... bset 00,x, #10 +9003 CC 02 33 ..3 ldd #0233 +9006 FD 00 3B ..; std 003b +9009 7E 90 D0 ~.. jmp 90d0 ;goto13 +900C F6 00 36 ..6 ldab 0036 +900F 26 43 &C bne 43 +9011 F6 00 2A ..* ldab 002a +9014 C1 64 .d cmpb #64 +9016 24 34 $4 bcc 34 +9018 7C 00 2A |.* inc 002a +901B F6 00 2A ..* ldab 002a +901E F7 00 06 ... stab 0006 +9021 F6 00 06 ... ldab 0006 +9024 BD D7 A0 ... jsr d7a0 ;jump10 +9027 83 00 00 ... subd #0000 +902A 27 03 '. beq 03 +902C 7C 00 2A |.* inc 002a +902F F6 00 2A ..* ldab 002a +9032 C1 64 .d cmpb #64 +9034 26 03 &. bne 03 +9036 7F 00 2A ..* clr 002a +9039 F6 00 2A ..* ldab 002a +903C 4F O clra +903D CE 00 05 ... ldx #0005 +9040 02 . idiv +9041 5D ] tstb +9042 26 08 &. bne 08 +9044 F6 00 2A ..* ldab 002a +9047 27 03 '. beq 03 +9049 7C 00 2A |.* inc 002a +904C BD 9D 2A ..* jsr 9d2a ;jump89 +904F C6 02 .. ldab #02 +9051 F7 00 36 ..6 stab 0036 +9054 CE 00 1B ... ldx #001b +9057 1C 00 10 ... bset 00,x, #10 +905A CC 02 33 ..3 ldd #0233 +905D FD 00 3B ..; std 003b +9060 20 6E n bra 6e +9062 F6 00 36 ..6 ldab 0036 +9065 26 45 &E bne 45 +9067 F6 00 2A ..* ldab 002a +906A C1 00 .. cmpb #00 +906C 23 2C #, bls 2c +906E 7A 00 2A z.* dec 002a +9071 F6 00 2A ..* ldab 002a +9074 4F O clra +9075 CE 00 05 ... ldx #0005 +9078 02 . idiv +9079 5D ] tstb +907A 26 08 &. bne 08 +907C F6 00 2A ..* ldab 002a +907F 27 03 '. beq 03 +9081 7A 00 2A z.* dec 002a +9084 F6 00 2A ..* ldab 002a +9087 F7 00 06 ... stab 0006 +908A F6 00 06 ... ldab 0006 +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 +9098 20 0A . bra 0a +909A F6 00 2A ..* ldab 002a +909D 26 05 &. bne 05 +909F C6 62 .b ldab #62 +90A1 F7 00 2A ..* stab 002a +90A4 BD 9D 2A ..* jsr 9d2a ;jump89 +90A7 C6 02 .. ldab #02 +90A9 F7 00 36 ..6 stab 0036 +90AC CE 00 1B ... ldx #001b +90AF 1C 00 10 ... bset 00,x, #10 +90B2 CC 02 33 ..3 ldd #0233 +90B5 FD 00 3B ..; std 003b +90B8 20 16 . bra 16 +90BA BD A5 1E ... jsr a51e ;jump109 +90BD BD AA 9A ... jsr aa9a ;jump127 +90C0 BD 9D 2A ..* jsr 9d2a ;jump89 +90C3 20 0B . bra 0b +90C5 BD A5 1E ... jsr a51e ;jump109 +90C8 BD 85 AF ... jsr 85af ;jump14 +90CB 20 03 . bra 03 +90CD BD 85 AF ... jsr 85af ;jump14 +goto13: +90D0 39 9 rts + +jump21: +; pos message & serial id +90D1 F6 00 1F ... ldab 001f +90D4 C4 02 .. andb #02 +90D6 27 14 '. beq 14 +90D8 CE 00 1F ... ldx #001f +90DB 1D 00 02 ... bclr 00,x, #02 +90DE CE 00 19 ... ldx #0019 +90E1 1C 00 .. bset add,x 00,x +90E3 80 7F .. suba #7f +90E5 00 . test +90E6 09 . dex +90E7 7F 00 0A ... clr 000a +90EA 20 40 @ bra 40 +90EC F6 00 09 ... ldab 0009 +90EF 4F O clra +90F0 BD FE 32 ..2 jsr fe32 ;jump25 +90F3 91 0D 00 00 .... ; array data for jump25 +90F7 91 15 00 01 .... +90FB 91 19 00 01 .... +90FF 91 1E 00 01 .... +9103 91 23 00 08 .#.. +9107 91 26 FF F5 .&.. +910B 00 00 .. ; end of array data +910D CC B0 AD ... ldd #b0ad ; "PROGRAM ?" +9110 BD C0 BA ... jsr c0ba ;display: +9113 20 17 . bra 17 +9115 8D 16 .. bsr dest 16 +9117 20 13 . bra 13 +9119 BD 91 C6 ... jsr 91c6 ;jump76 +911C 20 0E . bra 0e +911E BD 92 5A ..Z jsr 925a ;jump149 +9121 20 09 . bra 09 +9123 BD 85 AF ... jsr 85af ;jump14 +9126 7F 00 09 ... clr 0009 +9129 7F 00 0A ... clr 000a +912C 39 9 rts + +912D F6 00 19 ... ldab 0019 +9130 2C 28 ,( bge 28 +9132 BD A9 CF ... jsr a9cf ;jump131 +9135 C6 50 .P ldab #50 +9137 F7 0A 90 ... stab 0a90 +913A C6 20 . ldab #20 +913C F7 0B 8D ... stab 0b8d +913F C6 20 . ldab #20 +9141 F7 0B 8E ... stab 0b8e +9144 C6 28 .( ldab #28 +9146 F7 0B 8F ... stab 0b8f +9149 7F 00 54 ..T clr 0054 +914C 7F 00 60 ..` clr 0060 +914F CE 00 19 ... ldx #0019 +9152 1D 00 .. bclr add,x 00,x +9154 80 7F .. suba #7f +9156 00 . test +9157 36 6 psha +9158 20 6B k bra 6b +915A F6 00 0A ... ldab 000a +915D 4F O clra +915E BD FE 16 ... jsr fe16 ;jump2 +9161 00 . test +9162 00 . test +9163 00 . test +9164 0B . sev +9165 91 C5 91 ... cmpa c5 +9168 7F 91 84 ... clr 9184 +916B 91 89 91 ... cmpa 89 +916E 8E 91 9F ... lds #919f +9171 91 B0 91 ... cmpa b0 +9174 C5 91 .. bitb #91 +9176 C5 91 .. bitb #91 +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 +9189 BD A8 D5 ... jsr a8d5 ;jump97 +918C 20 37 7 bra 37 +918E BD A8 96 ... jsr a896 ;jump98 +9191 CE 00 1B ... ldx #001b +9194 1C 00 10 ... bset 00,x, #10 +9197 CC 02 33 ..3 ldd #0233 +919A FD 00 3B ..; std 003b +919D 20 26 & bra 26 +919F BD A8 E5 ... jsr a8e5 ;jump96 +91A2 CE 00 1B ... ldx #001b +91A5 1C 00 10 ... bset 00,x, #10 +91A8 CC 02 33 ..3 ldd #0233 +91AB FD 00 3B ..; std 003b +91AE 20 15 . bra 15 +91B0 BD A9 21 ..! jsr a921 ;jump95 +91B3 20 10 . bra 10 +91B5 BD A9 7A ..z jsr a97a ;jump132 +91B8 20 0B . bra 0b +91BA BD A5 7D ..} jsr a57d ;jump139 +91BD BD 85 AF ... jsr 85af ;jump14 +91C0 20 03 . bra 03 +91C2 BD 85 AF ... jsr 85af ;jump14 +91C5 39 9 rts + +jump76: +91C6 F6 00 19 ... ldab 0019 +91C9 2C 28 ,( bge 28 +91CB BD AA 0A ... jsr aa0a ;jump130 +91CE C6 53 .S ldab #53 ; "S" +91D0 F7 0A 90 ... stab 0a90 +91D3 C6 20 . ldab #20 ; " " +91D5 F7 0A 9D ... stab 0a9d +91D8 C6 20 . ldab #20 ; " " +91DA F7 0A 9E ... stab 0a9e +91DD C6 28 .( ldab #28 ; "(" +91DF F7 0A 9F ... stab 0a9f +91E2 7F 00 54 ..T clr 0054 +91E5 7F 00 60 ..` clr 0060 +91E8 CE 00 19 ... ldx #0019 +91EB 1D 00 .. bclr add,x 00,x +91ED 80 7F .. suba #7f +91EF 00 . test +91F0 36 6 psha +91F1 20 66 f bra 66 +91F3 F6 00 0A ... ldab 000a +91F6 4F O clra +91F7 BD FE 16 ... jsr fe16 ;jump2 +91FA 00 00 00 08 . +91FE 92 59 .. +9200 92 18 .. +9202 92 1D .. +9204 92 22 .. +9206 92 27 .. +9208 92 38 .. +920A 92 49 .. +920C 92 59 .. +920E 92 59 .. +9210 92 59 .. +9212 92 59 .. +9214 92 4E .. +9216 92 56 .. +9218 BD 9D 7E .. jsr 9d7e +921B 20 3C .~ bra 3c +921D BD A8 64 ..d jsr a864 ;jump99 +9220 20 37 7 bra 37 +9222 BD A8 D5 ... jsr a8d5 ;jump97 +9225 20 32 2 bra 32 +9227 BD A8 96 ... jsr a896 ;jump98 +922A CE 00 1B ... ldx #001b +922D 1C 00 10 ... bset 00,x, #10 +9230 CC 02 33 ..3 ldd #0233 +9233 FD 00 3B ..; std 003b +9236 20 21 ! bra 21 +9238 BD A8 E5 ... jsr a8e5 ;jump96 +923B CE 00 1B ... ldx #001b +923E 1C 00 10 ... bset 00,x, #10 +9241 CC 02 33 ..3 ldd #0233 +9244 FD 00 3B ..; std 003b +9247 20 10 . bra 10 +9249 BD A9 21 ..! jsr a921 ;jump95 +924C 20 0B . bra 0b +924E BD A5 AC ... jsr a5ac ;jump138 +9251 BD 85 AF ... jsr 85af ;jump14 +9254 20 03 . bra 03 +9256 BD 85 AF ... jsr 85af ;jump14 +9259 39 9 rts + +jump149: +925A F6 00 19 ... ldab 0019 +925D 2C 28 ,( bge 28 +925F BD AA 3F ..? jsr aa3f ;jump129 +9262 C6 49 .I ldab #49 +9264 F7 0A 90 ... stab 0a90 +9267 C6 20 . ldab #20 +9269 F7 0A 9D ... stab 0a9d +926C C6 20 . ldab #20 +926E F7 0A 9E ... stab 0a9e +9271 C6 28 .( ldab #28 +9273 F7 0A 9F ... stab 0a9f +9276 7F 00 54 ..T clr 0054 +9279 7F 00 60 ..` clr 0060 +927C CE 00 19 ... ldx #0019 +927F 1D 00 .. bclr add,x 00,x +9281 80 7F .. suba #7f +9283 00 . test +9284 36 6 psha +9285 20 66 f bra 66 +9287 F6 00 0A ... ldab 000a +928A 4F O clra +928B BD FE 16 ... jsr fe16 ;jump2 +928E 00 . test +928F 00 . test +9290 00 . test +9291 0B . sev +9292 92 ED 92 ... sbca ed +9295 AC 92 .. cpx 92,x +9297 B1 92 B6 ... cmpa 92b6 +929A 92 BB 92 ... sbca bb +929D CC 92 DD ... ldd #92dd +92A0 92 ED 92 ... sbca ed +92A3 ED 92 .. std 92,x +92A5 ED 92 .. std 92,x +92A7 ED 92 .. std 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 +92B6 BD A8 D5 ... jsr a8d5 ;jump97 +92B9 20 32 2 bra 32 +92BB BD A8 96 ... jsr a896 ;jump98 +92BE CE 00 1B ... ldx #001b +92C1 1C 00 10 ... bset 00,x, #10 +92C4 CC 02 33 ..3 ldd #0233 +92C7 FD 00 3B ..; std 003b +92CA 20 21 ! bra 21 +92CC BD A8 E5 ... jsr a8e5 ;jump96 +92CF CE 00 1B ... ldx #001b +92D2 1C 00 10 ... bset 00,x, #10 +92D5 CC 02 33 ..3 ldd #0233 +92D8 FD 00 3B ..; std 003b +92DB 20 10 . bra 10 +92DD BD A9 21 ..! jsr a921 ;jump95 +92E0 20 0B . bra 0b +92E2 BD A5 D5 ... jsr a5d5 ;jump137 +92E5 BD 85 AF ... jsr 85af ;jump14 +92E8 20 03 . bra 03 +92EA BD 85 AF ... jsr 85af ;jump14 +92ED 39 9 rts + +jump22: +; print info +92EE F6 0C DC ... ldab 0cdc +92F1 4F O clra +92F2 37 7 pshb +92F3 36 6 psha +92F4 CC 00 64 ..d ldd #0064 +92F7 BD FB BA ... jsr fbba ;jump38 +92FA FD 0C E9 ... std 0ce9 +92FD BD D6 F6 ... jsr d6f6 ;jump106 +9300 FC 0C E9 ... ldd 0ce9 +9303 F3 0B EF ... addd 0bef +9306 FD 0C F1 ... std 0cf1 +9309 FE 0C F5 ... ldx 0cf5 +930C 3C < pshx +930D FC 0C F3 ... ldd 0cf3 +9310 37 7 pshb +9311 36 6 psha +9312 FE 0C F9 ... ldx 0cf9 +9315 3C < pshx +9316 FC 0C F7 ... ldd 0cf7 +9319 BD FC 25 ..% jsr fc25 ;jump85 +931C 37 7 pshb +931D 36 6 psha +931E FE 0C FD ... ldx 0cfd +9321 3C < pshx +9322 FC 0C FB ... ldd 0cfb +9325 BD FC 25 ..% jsr fc25 ;jump85 +9328 37 7 pshb +9329 36 6 psha +932A FE 0D 01 ... ldx 0d01 +932D 3C < pshx +932E FC 0C FF ... ldd 0cff +9331 BD FC 25 ..% jsr fc25 ;jump85 +9334 37 7 pshb +9335 36 6 psha +9336 FE 0D 05 ... ldx 0d05 +9339 3C < pshx +933A FC 0D 03 ... ldd 0d03 +933D BD FC 25 ..% jsr fc25 ;jump85 +9340 FD 0D F3 ... std 0df3 +9343 32 2 pula +9344 33 3 pulb +9345 FD 0D F5 ... std 0df5 +9348 FE 0D F9 ... ldx 0df9 +934B 3C < pshx +934C FC 0D F7 ... ldd 0df7 +934F 37 7 pshb +9350 36 6 psha +9351 FE 0D F5 ... ldx 0df5 +9354 3C < pshx +9355 FC 0D F3 ... ldd 0df3 +9358 BD FC 25 ..% jsr fc25 ;jump85 +935B FD 0D EF ... std 0def +935E 32 2 pula +935F 33 3 pulb +9360 FD 0D F1 ... std 0df1 +9363 F6 20 00 . . ldab 2000 +9366 C4 40 .@ andb #40 +9368 27 37 '7 beq 37 +936A F6 00 1F ... ldab 001f +936D C4 02 .. andb #02 +936F 27 1F '. beq 1f +9371 BD 97 E9 ... jsr 97e9 ;jump147 +9374 CE 00 1F ... ldx #001f +9377 1D 00 02 ... bclr 00,x, #02 +937A CE 00 1F ... ldx #001f +937D 1D 00 10 ... bclr 00,x, #10 +9380 CC 02 33 ..3 ldd #0233 +9383 FD 00 3B ..; std 003b +9386 7F 00 09 ... clr 0009 +9389 C6 92 .. ldab #92 +938B F7 00 48 ..H stab 0048 +938E 20 0F . bra 0f +9390 F6 00 19 ... ldab 0019 +9393 C4 40 .@ andb #40 +9395 26 05 &. bne 05 +9397 BD 98 BF ... jsr 98bf ;jump146 +939A 20 03 . bra 03 +939C BD 85 AF ... jsr 85af ;jump14 +939F 20 03 . bra 03 +93A1 BD 98 FF ... jsr 98ff ;jump145 +93A4 39 9 rts + +jump23: +; program security code menu +93A5 F6 00 1F ... ldab 001f +93A8 C4 02 .. andb #02 +93AA 26 0A &. bne 0a +93AC F6 00 3A ..: ldab 003a +93AF 26 2B &+ bne 2b +93B1 F6 00 1D ... ldab 001d +93B4 2D 26 -& blt 26 +93B6 CC AF BB ... ldd #afbb ;"ENTER CODE" +93B9 BD C0 BA ... jsr c0ba ;display: +93BC CE 00 1F ... ldx #001f +93BF 1D 00 02 ... bclr 00,x, #02 +93C2 CE 00 1D ... ldx #001d +93C5 1D 00 .. bclr add,x 00,x +93C7 80 C6 .. suba #c6 +93C9 32 2 pula +93CA F7 00 3A ..: stab 003a +93CD F6 0B A8 ... ldab 0ba8 +93D0 F7 00 66 ..f stab 0066 +93D3 BD AA 74 ..t jsr aa74 ;jump128 +93D6 7F 00 48 ..H clr 0048 +93D9 7F 00 54 ..T clr 0054 +93DC F6 00 09 ... ldab 0009 +93DF 26 03 &. bne 03 +93E1 7E 94 92 ~.. jmp 9492 ;goto14 +93E4 F6 00 1D ... ldab 001d +93E7 2C 03 ,. bge 03 +93E9 7E 94 92 ~.. jmp 9492 ;goto14 +93EC F6 00 09 ... ldab 0009 +93EF C1 0B .. cmpb #0b +93F1 26 06 &. bne 06 +93F3 BD 85 AF ... jsr 85af ;jump14 +93F6 7E 94 90 ~.. jmp 9490 ;goto15 +93F9 F6 00 09 ... ldab 0009 +93FC C1 0A .. cmpb #0a +93FE 26 03 &. bne 03 +9400 7F 00 09 ... clr 0009 +9403 F6 00 09 ... ldab 0009 +9406 CB 30 .0 addb #30 +9408 37 7 pshb +9409 F6 00 54 ..T ldab 0054 +940C 4F O clra +940D C3 00 62 ..b addd #0062 +9410 8F . xgdx +9411 33 3 pulb +9412 E7 00 .. stab 00,x +9414 BD BE 4B ..K jsr be4b ;displayblank +9417 F6 00 54 ..T ldab 0054 +941A 26 06 &. bne 06 +941C F6 00 62 ..b ldab 0062 +941F F7 0B 96 ... stab 0b96 +9422 F6 00 54 ..T ldab 0054 +9425 C1 01 .. cmpb #01 +9427 26 0C &. bne 0c +9429 F6 00 62 ..b ldab 0062 +942C F7 0B 96 ... stab 0b96 +942F F6 00 63 ..c ldab 0063 +9432 F7 0B 95 ... stab 0b95 +9435 F6 00 54 ..T ldab 0054 +9438 C1 02 .. cmpb #02 +943A 26 12 &. bne 12 +943C F6 00 62 ..b ldab 0062 +943F F7 0B 96 ... stab 0b96 +9442 F6 00 63 ..c ldab 0063 +9445 F7 0B 95 ... stab 0b95 +9448 F6 00 64 ..d ldab 0064 +944B F7 0B 94 ... stab 0b94 +944E F6 00 54 ..T ldab 0054 +9451 C1 03 .. cmpb #03 +9453 26 18 &. bne 18 +9455 F6 00 62 ..b ldab 0062 +9458 F7 0B 96 ... stab 0b96 +945B F6 00 63 ..c ldab 0063 +945E F7 0B 95 ... stab 0b95 +9461 F6 00 64 ..d ldab 0064 +9464 F7 0B 94 ... stab 0b94 +9467 F6 00 65 ..e ldab 0065 +946A F7 0B 93 ... stab 0b93 +946D BD BE 01 ... jsr be01 ;jump70 +9470 7C 00 54 |.T inc 0054 +9473 F6 00 54 ..T ldab 0054 +9476 C1 04 .. cmpb #04 +9478 26 0B &. bne 0b +947A CE 00 1D ... ldx #001d +947D 1C 00 .. bset add,x 00,x +947F 80 BD .. suba #bd +9481 A8 0F .. eora 0f,x +9483 20 06 . bra 06 +9485 CE 00 1D ... ldx #001d +9488 1D 00 .. bclr add,x 00,x +948A 80 C6 .. suba #c6 +948C 32 2 pula +948D F7 00 3A ..: stab 003a +goto15: +9490 20 4A J bra 4a +goto14: +9492 F6 00 1D ... ldab 001d +9495 2C 45 ,E bge 45 +9497 F6 00 09 ... ldab 0009 +949A 4F O clra +949B BD FE 32 ..2 jsr fe32 ;jump25 +949E 94 B8 00 00 .... ; array data for jump25 +94A2 94 BD 00 01 .... +94A6 94 C2 00 04 .... +94AA 94 D1 00 05 .... +94AE 94 D9 00 01 .... +94B2 94 DC FF F5 .... +94B6 00 00 .. ; end of array data +94B8 BD 9E 0F ... jsr 9e0f ;jump142 +94BB 20 1F . bra 1f +94BD BD A7 1F ... jsr a71f ;jump134 +94C0 20 1A . bra 1a +94C2 7C 00 48 |.H inc 0048 +94C5 F6 00 48 ..H ldab 0048 +94C8 C1 0A .. cmpb #0a +94CA 23 03 #. bls 03 +94CC 7F 00 48 ..H clr 0048 +94CF 20 0B . bra 0b +94D1 BD A5 FE ... jsr a5fe ;jump136 +94D4 BD 85 AF ... jsr 85af ;jump14 +94D7 20 03 . bra 03 +94D9 BD 85 AF ... jsr 85af ;jump14 +94DC 39 9 rts + +jump24: +; motor functions menu +94DD F6 00 1F ... ldab 001f +94E0 C4 02 .. andb #02 +94E2 27 14 '. beq 14 +94E4 CE 00 1F ... ldx #001f +94E7 1D 00 02 ... bclr 00,x, #02 +94EA CE 00 19 ... ldx #0019 +94ED 1C 00 80 .. bset 00,x, #80 +94EF 7F 00 09 .. clr 0009 +94F3 7F 00 0A ... clr 000a +94F6 20 46 F bra 46 +94F8 F6 00 09 ... ldab 0009 +94FB 4F O clra +94FC BD FE 32 ..2 jsr fe32 ;jump25 +94FF 95 19 00 00 .... ; no key +9503 95 21 00 01 .!.. ; key 1 +9507 95 2C 00 01 .,.. ; key 2 +950B 95 30 00 01 .0.. ; key 3 +950F 95 35 00 08 .5.. ; reset +9513 95 38 FF F5 .8.. +9517 00 00 .. ; end of array data +9519 CC B0 A2 ... ldd #b0a2 ; "MTR FUNCT?" +951C BD C0 BA ... jsr c0ba ;display: +951F 20 1D . bra 1d +9521 BD 87 E9 ... jsr 87e9 ;jump74 +9524 CE 00 1F ... ldx #001f +9527 1C 00 02 ... bset 00,x, #02 +952A 20 12 . bra 12 +952C 8D 11 .. bsr dest 11 +952E 20 0E . bra 0e +9530 BD 96 88 ... jsr 9688 ;jump148 +9533 20 09 . bra 09 +9535 BD 85 AF ... jsr 85af ;jump14 +9538 7F 00 09 ... clr 0009 +953B 7F 00 0A ... clr 000a +953E 39 9 rts +; +953F F6 00 19 ... ldab 0019 +9542 2D 0A -. blt 0a +9544 F6 00 3A ..: ldab 003a +9547 26 22 &" bne 22 +9549 F6 00 1D ... ldab 001d +954C 2D 1D -. blt 1d +954E 7F 00 2C .., clr 002c +9551 CC B0 B8 ... ldd #b0b8 ; "SELECTION?" +9554 BD C0 BA ... jsr c0ba ;display: +9557 CE 00 19 ... ldx #0019 +955A 1D 00 .. bclr add,x 00,x +955C 80 CE .. suba #ce +955E 00 . test +955F 1D 1D 00 ... bclr 1d,x, #00 +9562 80 7F .. suba #7f +9564 00 . test +9565 54 T lsrb +9566 C6 32 .2 ldab #32 +9568 F7 00 3A ..: stab 003a +956B F6 00 0A ... ldab 000a +956E 26 03 &. bne 03 +9570 7E 96 5C ~.\ jmp 965c ;goto16 +9573 F6 00 1D ... ldab 001d +9576 2C 03 ,. bge 03 +9578 7E 96 5C ~.\ jmp 965c ;goto16 +957B F6 00 0A ... ldab 000a +957E C1 0B .. cmpb #0b +9580 26 09 &. bne 09 +9582 CE 00 1F ... ldx #001f +9585 1C 00 02 ... bset 00,x, #02 +9588 7E 96 5A ~.Z jmp 965a ;goto93 +958B F6 00 54 ..T ldab 0054 +958E 26 26 && bne 26 +9590 BD BE 4B ..K jsr be4b ;displayblank +9593 F6 00 0A ... ldab 000a +9596 C1 0A .. cmpb #0a +9598 26 03 &. bne 03 +959A 7F 00 0A ... clr 000a +959D F6 00 0A ... ldab 000a +95A0 CB 30 .0 addb #30 +95A2 37 7 pshb +95A3 CC 0B 95 ... ldd #0b95 +95A6 F0 00 54 ..T subb 0054 +95A9 82 00 .. sbca #00 +95AB 8F . xgdx +95AC 33 3 pulb +95AD E7 00 .. stab 00,x +95AF C6 32 .2 ldab #32 +95B1 F7 00 3A ..: stab 003a +95B4 20 37 7 bra 37 +95B6 F6 00 54 ..T ldab 0054 +95B9 C1 01 .. cmpb #01 +95BB 26 27 &' bne 27 +95BD F6 00 0A ... ldab 000a +95C0 C1 05 .. cmpb #05 +95C2 27 20 ' beq 20 +95C4 F6 00 0A ... ldab 000a +95C7 C1 0A .. cmpb #0a +95C9 27 19 '. beq 19 +95CB F6 00 0A ... ldab 000a +95CE CB 30 .0 addb #30 +95D0 37 7 pshb +95D1 CC 0B 95 ... ldd #0b95 +95D4 F0 00 54 ..T subb 0054 +95D7 82 00 .. sbca #00 +95D9 8F . xgdx +95DA 33 3 pulb +95DB E7 00 .. stab 00,x +95DD C6 32 .2 ldab #32 +95DF F7 00 3A ..: stab 003a +95E2 20 09 . bra 09 +95E4 CE 00 19 ... ldx #0019 +95E7 1C 00 .. bset add,x 00,x +95E9 80 7F .. suba #7f +95EB 00 . test +95EC 3A : abx +95ED BD BE 01 ... jsr be01 ;jump70 +95F0 7C 00 54 |.T inc 0054 +95F3 F6 00 54 ..T ldab 0054 +95F6 C1 02 .. cmpb #02 +95F8 26 5A &Z bne 5a +95FA CE 00 1D ... ldx #001d +95FD 1C 00 .. bset add,x 00,x +95FF 80 F6 .. suba #f6 +9601 0B . sev +9602 94 CB D0 ... anda cb +9605 37 7 pshb +9606 F6 0B 95 ... ldab 0b95 +9609 CB D0 .. addb #d0 +960B 86 0A .. ldaa #0a +960D 3D = mul +960E 30 0 tsx +960F EB 00 .. addb 00,x +9611 31 1 ins +9612 F7 00 06 ... stab 0006 +9615 C6 32 .2 ldab #32 +9617 F7 00 3A ..: stab 003a +961A F6 00 06 ... ldab 0006 +961D BD D7 A0 ... jsr d7a0 ;jump10 +9620 83 00 00 ... subd #0000 +9623 26 21 &! bne 21 +9625 BD D3 11 ... jsr d311 ;jump30 +9628 83 00 00 ... subd #0000 +962B 26 0B &. bne 0b +962D CE 00 1F ... ldx #001f +9630 1C 00 40 ... bset 00,x, #40 +9633 BD 8C 73 ..s jsr 8c73 ;jump75 +9636 20 06 . bra 06 +9638 CE 00 1F ... ldx #001f +963B 1D 00 40 ... bclr 00,x, #40 +963E 7F 00 2C .., clr 002c +9641 BD 9A 47 ..G jsr 9a47 ;jump39 +9644 20 0C . bra 0c +9646 CE 00 1D ... ldx #001d +9649 1D 00 .. bclr add,x 00,x +964B 80 CE .. suba #ce +964D 00 . test +964E 19 . daa +964F 1C 00 .. bset add,x 00,x +9651 80 20 . suba #20 +9653 06 . tap +9654 CE 00 1D ... ldx #001d +9657 1D 00 .. bclr add,x 00,x +9659 80 20 . suba #20 +; 965a goto93 +965B 2B F6 +. bmi f6 +; 965C +;goto16 +965D 00 . test +965E 1D 2C ., bclr add,x 2c,x +9660 26 BD &. bne bd +9662 D2 13 83 ... sbcb 13 +9665 00 . test +9666 00 . test +9667 26 0F &. bne 0f +9669 CC 00 64 ..d ldd #0064 +966C BD E5 71 ..q jsr e571 ;msdelay +966F BD E5 D1 ... jsr e5d1 ;jump52 +9672 CC 03 84 ... ldd #0384 +9675 BD E5 71 ..q jsr e571 ;msdelay +9678 7F 00 2E ... clr 002e +967B CE 00 1D ... ldx #001d +967E 1D 00 .. bclr add,x 00,x +9680 80 CE .. suba #ce +9682 00 . test +9683 1F 1C 00 02 .... brclr 1c,x 00 02 +9687 39 9 rts + +jump148: +9688 34 4 des +9689 F6 00 19 ... ldab 0019 +968C 2C 19 ,. bge 19 +968E CE 00 19 ... ldx #0019 +9691 1D 00 .. bclr add,x 00,x +9693 80 CC .. suba #cc +9695 B0 97 BD ... suba 97bd +9698 C0 BA .. subb #ba +969A C6 0A .. ldab #0a +969C F7 00 38 ..8 stab 0038 +969F 7F 00 05 ... clr 0005 +96A2 C6 01 .. ldab #01 +96A4 F7 00 06 ... stab 0006 +96A7 F6 00 0A ... ldab 000a +96AA C1 0B .. cmpb #0b +96AC 26 0C &. bne 0c +96AE CC 02 33 ..3 ldd #0233 +96B1 FD 00 3B ..; std 003b +96B4 CE 00 1F ... ldx #001f +96B7 1C 00 02 ... bset 00,x, #02 +96BA F6 00 38 ..8 ldab 0038 +96BD 27 03 '. beq 03 +96BF 7E 97 6D ~.m jmp 976d ;goto17 +96C2 F6 00 06 ... ldab 0006 +96C5 C1 63 .c cmpb #63 +96C7 23 03 #. bls 03 +96C9 7E 97 6D ~.m jmp 976d ;goto17 +96CC F6 00 06 ... ldab 0006 +96CF C1 63 .c cmpb #63 +96D1 26 0F &. bne 0f +96D3 BD 99 C3 ... jsr 99c3 ;jump143 +96D6 CC 07 D0 ... ldd #07d0 +96D9 BD E5 71 ..q jsr e571 ;msdelay +96DC CE 00 1F ... ldx #001f +96DF 1C 00 02 ... bset 00,x, #02 +96E2 BD D3 11 ... jsr d311 ;jump30 +96E5 83 00 00 ... subd #0000 +96E8 26 0B &. bne 0b +96EA CE 00 1F ... ldx #001f +96ED 1C 00 40 ... bset 00,x, #40 +96F0 BD 8C 73 ..s jsr 8c73 ;jump75 +96F3 20 06 . bra 06 +96F5 CE 00 1F ... ldx #001f +96F8 1D 00 40 ... bclr 00,x, #40 +96FB BD 9A 47 ..G jsr 9a47 ;jump39 +96FE F6 00 06 ... ldab 0006 +9701 C1 63 .c cmpb #63 +9703 26 03 &. bne 03 +9705 7F 00 2C .., clr 002c +9708 BD D2 13 ... jsr d213 ;jump45 +970B 83 00 00 ... subd #0000 +970E 27 03 '. beq 03 +9710 7C 00 05 |.. inc 0005 +9713 7F 00 2E ... clr 002e +9716 C6 05 .. ldab #05 +9718 F7 00 38 ..8 stab 0038 +971B CC 02 33 ..3 ldd #0233 +971E FD 00 3B ..; std 003b +9721 30 0 tsx +9722 6F 00 o. clr 00,x +9724 F6 0E 6D ..m ldab 0e6d +9727 27 0C '. beq 0c +9729 F6 00 06 ... ldab 0006 +972C C1 3E .> cmpb #3e +972E 26 05 &. bne 05 +9730 C6 01 .. ldab #01 +9732 30 0 tsx +9733 E7 00 .. stab 00,x +9735 8D 38 .8 bsr dest 38 +9737 F6 0E 6D ..m ldab 0e6d +973A 27 0C '. beq 0c +973C 30 0 tsx +973D E6 00 .. ldab 00,x +973F C1 01 .. cmpb #01 +9741 26 05 &. bne 05 +9743 C6 45 .E ldab #45 +9745 F7 00 06 ... stab 0006 +9748 F6 00 06 ... ldab 0006 +974B BD D7 A0 ... jsr d7a0 ;jump10 +974E 83 00 00 ... subd #0000 +9751 27 15 '. beq 15 +9753 F6 00 06 ... ldab 0006 +9756 C1 09 .. cmpb #09 +9758 26 02 &. bne 02 +975A 8D 13 .. bsr dest 13 +975C F6 00 06 ... ldab 0006 +975F C1 45 .E cmpb #45 +9761 26 05 &. bne 05 +9763 C6 63 .c ldab #63 +9765 F7 00 06 ... stab 0006 +9768 5F _ clrb +9769 4F O clra +976A FD 00 40 ..@ std 0040 +goto17: +976D 31 1 ins +976E 39 9 rts + +jump41: +976F F6 0E 6D ..m ldab 0e6d +9772 C1 01 .. cmpb #01 +9774 26 41 &A bne 41 +9776 F6 00 06 ... ldab 0006 +9779 4F O clra +977A CE 00 0A ... ldx #000a +977D 02 . idiv +977E C1 01 .. cmpb #01 +9780 26 05 &. bne 05 +9782 7C 00 06 |.. inc 0006 +9785 20 1B . bra 1b +9787 F6 00 06 ... ldab 0006 +978A 4F O clra +978B CE 00 0A ... ldx #000a +978E 02 . idiv +978F C1 02 .. cmpb #02 +9791 26 0A &. bne 0a +9793 C6 09 .. ldab #09 +9795 FB 00 06 ... addb 0006 +9798 F7 00 06 ... stab 0006 +979B 20 05 . bra 05 +979D C6 0B .. ldab #0b +979F F7 00 06 ... stab 0006 +97A2 F6 00 06 ... ldab 0006 +97A5 C1 3E .> cmpb #3e +97A7 22 07 ". bhi 07 +97A9 F6 00 06 ... ldab 0006 +97AC C1 0B .. cmpb #0b +97AE 24 05 $. bcc 05 +97B0 C6 0B .. ldab #0b +97B2 F7 00 06 ... stab 0006 +97B5 20 31 1 bra 31 +97B7 F6 00 06 ... ldab 0006 +97BA CB 0A .. addb #0a +97BC F7 00 06 ... stab 0006 +97BF F6 00 06 ... ldab 0006 +97C2 C1 64 .d cmpb #64 +97C4 23 22 #" bls 22 +97C6 F6 00 06 ... ldab 0006 +97C9 CB 9C .. addb #9c +97CB CB 01 .. addb #01 +97CD F7 00 06 ... stab 0006 +97D0 F6 00 06 ... ldab 0006 +97D3 C1 05 .. cmpb #05 +97D5 26 05 &. bne 05 +97D7 C6 06 .. ldab #06 +97D9 F7 00 06 ... stab 0006 +97DC F6 00 06 ... ldab 0006 +97DF C1 0A .. cmpb #0a +97E1 26 05 &. bne 05 +97E3 C6 01 .. ldab #01 +97E5 F7 00 06 ... stab 0006 +97E8 39 9 rts + +jump147: +97E9 BD BE 4B ..K jsr be4b ;displayblank +97EC CC AF E7 ... ldd #afe7 ; "-PRINTING-" +97EF BD C0 BA ... jsr c0ba ;display: +97F2 BD F4 15 ... jsr f415 ;jump112 +97F5 39 9 rts + +jump27: +97F6 BD BE 4B ..K jsr be4b ;displayblank +97F9 F6 00 48 ..H ldab 0048 +97FC 4F O clra +97FD BD FE 16 ... jsr fe16 ;jump2 +9800 00 01 00 03 . test +9804 98 80 .. +9806 98 0E .. +9808 98 2B .. +980A 98 48 .. +980C 98 65 .. +980E F6 0C D9 .. ldab 0cd9 +9811 4F . clra +9812 BD E7 95 ... jsr e795 ;jump54 +9815 C6 4E .N ldab #4e +9817 F7 0B 99 ... stab 0b99 +981A C6 49 .I ldab #49 +981C F7 0B 98 ... stab 0b98 +981F C6 4B .K ldab #4b +9821 F7 0B 97 ... stab 0b97 +9824 C6 4C .L ldab #4c +9826 F7 0B 96 ... stab 0b96 +9829 20 55 U bra 55 +982B F6 0C DA ... ldab 0cda +982E 4F O clra +982F BD E7 95 ... jsr e795 ;jump54 +9832 C6 44 .D ldab #44 +9834 F7 0B 99 ... stab 0b99 +9837 C6 49 .I ldab #49 +9839 F7 0B 98 ... stab 0b98 +983C C6 4D .M ldab #4d +983E F7 0B 97 ... stab 0b97 +9841 C6 45 .E ldab #45 +9843 F7 0B 96 ... stab 0b96 +9846 20 38 8 bra 38 +9848 F6 0C DB ... ldab 0cdb +984B 4F O clra +984C BD E7 95 ... jsr e795 ;jump54 +984F C6 51 .Q ldab #51 +9851 F7 0B 99 ... stab 0b99 +9854 C6 55 .U ldab #55 +9856 F7 0B 98 ... stab 0b98 +9859 C6 54 .T ldab #54 +985B F7 0B 97 ... stab 0b97 +985E C6 52 .R ldab #52 +9860 F7 0B 96 ... stab 0b96 +9863 20 1B . bra 1b +9865 F6 0C DC ... ldab 0cdc +9868 4F O clra +9869 BD E7 95 ... jsr e795 ;jump54 +986C C6 44 .D ldab #44 ; "D" +986E F7 0B 99 ... stab 0b99 +9871 C6 4F .O ldab #4f ; "O" +9873 F7 0B 98 ... stab 0b98 +9876 C6 4C .L ldab #4c ; "L" +9878 F7 0B 97 ... stab 0b97 +987B C6 52 .R ldab #52 ; "R" +987D F7 0B 96 ... stab 0b96 +9880 C6 53 .S ldab #53 ; "S" +9882 F7 0B 95 ... stab 0b95 +9885 C6 20 . ldab #20 ; " " +9887 F7 0B 94 ... stab 0b94 +988A C6 20 . ldab #20 ; " " +988C F7 0B 93 ... stab 0b93 +988F F6 00 5D ..] ldab 005d +9892 F7 0B 92 ... stab 0b92 +9895 F6 00 5E ..^ ldab 005e ; row number? +9898 F7 0B 91 ... stab 0b91 +989B F6 00 5F .._ ldab 005f ; column number? +989E F7 0B 90 ... stab 0b90 +98A1 BD BE 01 ... jsr be01 ;jump70 - to disp buffer +98A4 39 9 rts + +jump11: +98A5 BD BE 4B ..K jsr be4b ;displayblank +98A8 F6 00 54 ..T ldab 0054 +98AB 4F O clra +98AC BD E7 95 ... jsr e795 ;jump54 +98AF F6 00 5E ..^ ldab 005e +98B2 F7 0B 95 ... stab 0b95 +98B5 F6 00 5F .._ ldab 005f +98B8 F7 0B 94 ... stab 0b94 +98BB BD BE 01 ... jsr be01 ;jump70 +98BE 39 9 rts + +jump146: +98BF F6 00 09 ... ldab 0009 +98C2 C1 00 .. cmpb #00 +98C4 26 05 &. bne 05 +98C6 BD 9E 89 ... jsr 9e89 ;jump100 +98C9 20 33 3 bra 33 +98CB C1 01 .. cmpb #01 +98CD 26 1E &. bne 1e +98CF F6 00 48 ..H ldab 0048 +98D2 C1 92 .. cmpb #92 +98D4 26 15 &. bne 15 +98D6 F6 00 1F ... ldab 001f +98D9 C4 10 .. andb #10 +98DB 26 08 &. bne 08 +98DD CE 00 1F ... ldx #001f +98E0 1C 00 10 ... bset 00,x, #10 +98E3 20 06 . bra 06 +98E5 CE 00 1F ... ldx #001f +98E8 1D 00 10 ... bclr 00,x, #10 +98EB 20 11 . bra 11 +98ED C1 0B .. cmpb #0b +98EF 26 0D &. bne 0d +98F1 F6 00 1F ... ldab 001f +98F4 C4 10 .. andb #10 +98F6 27 03 '. beq 03 +98F8 BD E9 2B ..+ jsr e92b ;jump103 +98FB BD 85 AF ... jsr 85af ;jump14 +98FE 39 9 rts + +jump145: +98FF F6 00 1F ... ldab 001f +9902 C4 02 .. andb #02 +9904 27 13 '. beq 13 +9906 C6 01 .. ldab #01 +9908 F7 00 48 ..H stab 0048 +990B CE 00 1F ... ldx #001f +990E 1D 00 10 ... bclr 00,x, #10 +9911 CE 00 1F ... ldx #001f +9914 1D 00 02 ... bclr 00,x, #02 +9917 20 67 g bra 67 +9919 F6 00 09 ... ldab 0009 +991C 4F O clra +991D BD FE 32 ..2 jsr fe32 ;jump25 +9920 99 36 00 00 .6.. ; array data for jump25 +9924 99 3B 00 01 .;.. +9928 99 59 00 09 .Y.. +992C 99 73 00 01 .s.. +9930 99 80 FF F5 .... +9934 00 00 .. ; end of array data +9936 BD 9E 89 ... jsr 9e89 ;jump100 +9939 20 45 E bra 45 +993B F6 00 48 ..H ldab 0048 +993E C1 92 .. cmpb #92 +9940 26 15 &. bne 15 +9942 F6 00 1F ... ldab 001f +9945 C4 10 .. andb #10 +9947 26 08 &. bne 08 +9949 CE 00 1F ... ldx #001f +994C 1C 00 10 ... bset 00,x, #10 +994F 20 06 . bra 06 +9951 CE 00 1F ... ldx #001f +9954 1D 00 10 ... bclr 00,x, #10 +9957 20 27 ' bra 27 +9959 7C 00 48 |.H inc 0048 +995C F6 00 48 ..H ldab 0048 +995F C1 92 .. cmpb #92 +9961 23 0B #. bls 0b +9963 C6 01 .. ldab #01 +9965 F7 00 48 ..H stab 0048 +9968 CE 00 1F ... ldx #001f +996B 1D 00 10 ... bclr 00,x, #10 +996E BD 9E 89 ... jsr 9e89 ;jump100 +9971 20 0D . bra 0d +9973 F6 00 1F ... ldab 001f +9976 C4 10 .. andb #10 +9978 27 03 '. beq 03 +997A BD E9 2B ..+ jsr e92b ;jump103 +997D BD 85 AF ... jsr 85af ;jump14 +9980 39 9 rts + +jump144: +9981 BD BE 4B ..K jsr be4b ;displayblank +9984 F6 00 05 ... ldab 0005 +9987 4F O clra +9988 BD E7 95 ... jsr e795 ;jump54 +998B C6 4D .M ldab #4d +998D F7 0B 99 ... stab 0b99 +9990 C6 4F .O ldab #4f +9992 F7 0B 98 ... stab 0b98 +9995 C6 54 .T ldab #54 +9997 F7 0B 97 ... stab 0b97 +999A C6 4F .O ldab #4f +999C F7 0B 96 ... stab 0b96 +999F C6 52 .R ldab #52 +99A1 F7 0B 95 ... stab 0b95 +99A4 C6 53 .S ldab #53 +99A6 F7 0B 94 ... stab 0b94 +99A9 C6 20 . ldab #20 +99AB F7 0B 93 ... stab 0b93 +99AE C6 20 . ldab #20 +99B0 F7 0B 92 ... stab 0b92 +99B3 F6 00 5E ..^ ldab 005e +99B6 F7 0B 91 ... stab 0b91 +99B9 F6 00 5F .._ ldab 005f +99BC F7 0B 90 ... stab 0b90 +99BF BD BE 01 ... jsr be01 ;jump70 +99C2 39 9 rts + +jump143: +99C3 BD BE 4B ..K jsr be4b ;displayblank +99C6 F6 00 05 ... ldab 0005 +99C9 4F O clra +99CA BD E7 95 ... jsr e795 ;jump54 +99CD C6 56 .V ldab #56 +99CF F7 0B 99 ... stab 0b99 +99D2 C6 45 .E ldab #45 +99D4 F7 0B 98 ... stab 0b98 +99D7 C6 4E .N ldab #4e +99D9 F7 0B 97 ... stab 0b97 +99DC C6 44 .D ldab #44 +99DE F7 0B 96 ... stab 0b96 +99E1 C6 53 .S ldab #53 +99E3 F7 0B 95 ... stab 0b95 +99E6 C6 20 . ldab #20 +99E8 F7 0B 94 ... stab 0b94 +99EB C6 20 . ldab #20 +99ED F7 0B 93 ... stab 0b93 +99F0 C6 20 . ldab #20 +99F2 F7 0B 92 ... stab 0b92 +99F5 F6 00 5E ..^ ldab 005e +99F8 F7 0B 91 ... stab 0b91 +99FB F6 00 5F .._ ldab 005f +99FE F7 0B 90 ... stab 0b90 +9A01 BD BE 01 ... jsr be01 ;jump70 +9A04 39 9 rts + +jump102: +9A05 BD BE 4B ..K jsr be4b ;displayblank +9A08 FC 00 52 ..R ldd 0052 +9A0B BD E7 45 ..E jsr e745 ;jump55 +9A0E C6 4F .O ldab #4f ; "O" +9A10 F7 0B 99 ... stab 0b99 +9A13 C6 44 .D ldab #44 ; "D" +9A15 F7 0B 98 ... stab 0b98 +9A18 C6 44 .D ldab #44 ; "D" +9A1A F7 0B 97 ... stab 0b97 +9A1D C6 53 .S ldab #53 ; "S" +9A1F F7 0B 96 ... stab 0b96 +9A22 C6 20 . ldab #20 ; " " +9A24 F7 0B 95 ... stab 0b95 +9A27 C6 31 .1 ldab #31 ; "1" +9A29 F7 0B 94 ... stab 0b94 +9A2C C6 2F ./ ldab #2f ; "/" +9A2E F7 0B 93 ... stab 0b93 +9A31 F6 00 5D ..] ldab 005d +9A34 F7 0B 92 ... stab 0b92 +9A37 F6 00 5E ..^ ldab 005e +9A3A F7 0B 91 ... stab 0b91 +9A3D F6 00 5F .._ ldab 005f +9A40 F7 0B 90 ... stab 0b90 +9A43 BD BE 01 ... jsr be01 ;jump70 +9A46 39 9 rts + +jump39: +9A47 BD BE 4B ..K jsr be4b ;displayblank +9A4A F6 00 06 ... ldab 0006 +9A4D 4F O clra +9A4E BD E7 95 ... jsr e795 ;jump54 +9A51 F6 00 5E ..^ ldab 005e +9A54 F7 0B 99 ... stab 0b99 +9A57 F6 00 5F .._ ldab 005f +9A5A F7 0B 98 ... stab 0b98 +9A5D C6 20 . ldab #20 +9A5F F7 0B 97 ... stab 0b97 +9A62 F6 00 1F ... ldab 001f +9A65 C4 40 .@ andb #40 +9A67 27 45 'E beq 45 +9A69 FC 00 27 ..' ldd 0027 +9A6C BD E7 45 ..E jsr e745 ;jump55 +9A6F F6 00 5A ..Z ldab 005a +9A72 F7 0B 96 ... stab 0b96 +9A75 F6 00 5D ..] ldab 005d +9A78 F7 0B 95 ... stab 0b95 +9A7B F6 00 5E ..^ ldab 005e +9A7E F7 0B 94 ... stab 0b94 +9A81 F6 00 5F .._ ldab 005f +9A84 F7 0B 93 ... stab 0b93 +9A87 F6 00 19 ... ldab 0019 +9A8A C4 10 .. andb #10 +9A8C 27 07 '. beq 07 +9A8E C6 2A .* ldab #2a +9A90 F7 0B 92 ... stab 0b92 +9A93 20 05 . bra 05 +9A95 C6 20 . ldab #20 +9A97 F7 0B 92 ... stab 0b92 +9A9A FC 00 46 ..F ldd 0046 +9A9D BD E7 45 ..E jsr e745 ;jump55 +9AA0 F6 00 5E ..^ ldab 005e +9AA3 F7 0B 91 ... stab 0b91 +9AA6 F6 00 5F .._ ldab 005f +9AA9 F7 0B 90 ... stab 0b90 +9AAC 20 1E . bra 1e +9AAE C6 58 .X ldab #58 : "X" +9AB0 F7 0B 96 ... stab 0b96 +9AB3 C6 58 .X ldab #58 : "X" +9AB5 F7 0B 95 ... stab 0b95 +9AB8 C6 58 .X ldab #58 : "X" +9ABA F7 0B 94 ... stab 0b94 +9ABD C6 58 .X ldab #58 : "X" +9ABF F7 0B 93 ... stab 0b93 +9AC2 C6 58 .X ldab #58 : "X" +9AC4 F7 0B 91 ... stab 0b91 +9AC7 C6 58 .X ldab #58 : "X" +9AC9 F7 0B 90 ... stab 0b90 +9ACC F6 00 13 ... ldab 0013 +9ACF C1 01 .. cmpb #01 +9AD1 23 4C #L bls 4c +9AD3 F6 0B 91 ... ldab 0b91 +9AD6 F7 0B 90 ... stab 0b90 +9AD9 F6 0B 92 ... ldab 0b92 +9ADC F7 0B 91 ... stab 0b91 +9ADF F6 0B 93 ... ldab 0b93 +9AE2 F7 0B 92 ... stab 0b92 +9AE5 F6 0B 94 ... ldab 0b94 +9AE8 F7 0B 93 ... stab 0b93 +9AEB F6 00 13 ... ldab 0013 +9AEE C1 02 .. cmpb #02 +9AF0 26 07 &. bne 07 +9AF2 C6 2E .. ldab #2e ; "." +9AF4 F7 0B 94 ... stab 0b94 +9AF7 20 26 & bra 26 +9AF9 C1 04 .. cmpb #04 +9AFB 26 0D &. bne 0d +9AFD F6 0B 95 ... ldab 0b95 +9B00 F7 0B 94 ... stab 0b94 +9B03 C6 2E .. ldab #2e ; "." +9B05 F7 0B 95 ... stab 0b95 +9B08 20 15 . bra 15 +9B0A C1 08 .. cmpb #08 +9B0C 26 11 &. bne 11 +9B0E F6 0B 95 ... ldab 0b95 +9B11 F7 0B 94 ... stab 0b94 +9B14 F6 0B 96 ... ldab 0b96 +9B17 F7 0B 95 ... stab 0b95 +9B1A C6 2E .. ldab #2e +9B1C F7 0B 96 ... stab 0b96 +9B1F F6 00 2C .., ldab 002c +9B22 26 3E &> bne 3e +9B24 BD BE 69 ..i jsr be69 ;displayreset +9B27 F6 00 13 ... ldab 0013 +9B2A C1 01 .. cmpb #01 +9B2C 23 2C #, bls 2c +9B2E CE 10 28 ..( ldx #1028 +9B31 1C 00 40 ... bset 00,x, #40 ; enable SPI +9B34 F6 00 1F ... ldab 001f +9B37 C4 40 .@ andb #40 +9B39 27 0E '. beq 0e +9B3B CE 00 01 ... ldx #0001 +9B3E 3C < pshx +9B3F F6 00 5F .._ ldab 005f +9B42 4F O clra +9B43 BD BD B5 ... jsr bdb5 ;jump78 +9B46 38 8 pulx +9B47 20 0B . bra 0b +9B49 CE 00 01 ... ldx #0001 +9B4C 3C < pshx +9B4D CC 00 58 ..X ldd #0058 +9B50 BD BD B5 ... jsr bdb5 ;jump78 +9B53 38 8 pulx +9B54 CE 10 28 ..( ldx #1028 +9B57 1D 00 40 ... bclr 00,x, #40 +9B5A BD BE 10 ... jsr be10 ;jump88 +9B5D C6 03 .. ldab #03 +9B5F F7 00 2C .., stab 002c +9B62 39 9 rts + +jump101: +9B63 BD BE 4B ..K jsr be4b ;displayblank +9B66 FC 00 0D ... ldd 000d +9B69 BD E7 45 ..E jsr e745 ;jump55 +9B6C C6 44 .D ldab #44 +9B6E F7 0B 99 ... stab 0b99 +9B71 C6 53 .S ldab #53 +9B73 F7 0B 98 ... stab 0b98 +9B76 C6 43 .C ldab #43 +9B78 F7 0B 97 ... stab 0b97 +9B7B C6 4E .N ldab #4e +9B7D F7 0B 96 ... stab 0b96 +9B80 C6 54 .T ldab #54 +9B82 F7 0B 95 ... stab 0b95 +9B85 C6 20 . ldab #20 +9B87 F7 0B 94 ... stab 0b94 +9B8A F6 00 5A ..Z ldab 005a +9B8D F7 0B 93 ... stab 0b93 +9B90 F6 00 5D ..] ldab 005d +9B93 F7 0B 92 ... stab 0b92 +9B96 F6 00 5E ..^ ldab 005e +9B99 F7 0B 91 ... stab 0b91 +9B9C F6 00 5F .._ ldab 005f +9B9F F7 0B 90 ... stab 0b90 +9BA2 F6 00 13 ... ldab 0013 +9BA5 C1 01 .. cmpb #01 +9BA7 23 3C #< bls 3c +9BA9 F6 0B 91 ... ldab 0b91 +9BAC F7 0B 90 ... stab 0b90 +9BAF F6 00 13 ... ldab 0013 +9BB2 C1 02 .. cmpb #02 +9BB4 26 07 &. bne 07 +9BB6 C6 2E .. ldab #2e +9BB8 F7 0B 91 ... stab 0b91 +9BBB 20 28 ( bra 28 +9BBD C1 04 .. cmpb #04 +9BBF 26 0D &. bne 0d +9BC1 F6 0B 92 ... ldab 0b92 +9BC4 F7 0B 91 ... stab 0b91 +9BC7 C6 2E .. ldab #2e +9BC9 F7 0B 92 ... stab 0b92 +9BCC 20 17 . bra 17 +9BCE C1 08 .. cmpb #08 +9BD0 26 13 &. bne 13 +9BD2 F6 0B 92 ... ldab 0b92 +9BD5 F7 0B 91 ... stab 0b91 +9BD8 F6 0B 93 ... ldab 0b93 +9BDB F7 0B 92 ... stab 0b92 +9BDE C6 2E .. ldab #2e +9BE0 F7 0B 93 ... stab 0b93 +9BE3 20 00 . bra 00 +9BE5 F6 00 2C .., ldab 002c +9BE8 26 2A &* bne 2a +9BEA BD BE 69 ..i jsr be69 ;displayreset +9BED F6 00 13 ... ldab 0013 +9BF0 C1 01 .. cmpb #01 +9BF2 23 18 #. bls 18 +9BF4 CE 10 28 ..( ldx #1028 +9BF7 1C 00 40 ... bset 00,x, #40 +9BFA CE 00 01 ... ldx #0001 +9BFD 3C < pshx +9BFE F6 00 5F .._ ldab 005f +9C01 4F O clra +9C02 BD BD B5 ... jsr bdb5 ;jump78 +9C05 38 8 pulx +9C06 CE 10 28 ..( ldx #1028 +9C09 1D 00 40 ... bclr 00,x, #40 +9C0C BD BE 10 ... jsr be10 ;jump88 +9C0F C6 03 .. ldab #03 +9C11 F7 00 2C .., stab 002c +9C14 39 9 rts + +jump111: +9C15 BD BE 4B ..K jsr be4b ;displayblank +9C18 F6 00 48 ..H ldab 0048 +9C1B 4F O clra +9C1C BD FE 16 ... jsr fe16 ;jump2 +9C1F 00 . test +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 +9C2B 9C 83 9C ... cmpx 83 +9C2E 9B 9C B2 ... adda 9c +9C31 9C C9 9C ... cmpx c9 +9C34 E0 9C .. subb 9c,x +9C36 F7 9D 0E ... stab 9d0e +9C39 9D 23 F6 .#. jsr 23 +9C3C 00 . test +9C3D 67 C4 g. asr c4,x +9C3F 02 . idiv +9C40 27 08 '. beq 08 +9C42 CC AF 00 ... ldd #af00 ; "LNK MSTR Y" +9C45 BD C0 BA ... jsr c0ba ;display: +9C48 20 06 . bra 06 +9C4A CC AF 0B ... ldd #af0b ; "LNK MSTR N" +9C4D BD C0 BA ... jsr c0ba ;display: +9C50 7E 9D 29 ~.) jmp 9d29 ;goto18 +9C53 F6 00 67 ..g ldab 0067 +9C56 C4 10 .. andb #10 +9C58 27 08 '. beq 08 +9C5A CC AF 42 ..B ldd #af42 ; "PRC HOLD Y" +9C5D BD C0 BA ... jsr c0ba ;display: +9C60 20 06 . bra 06 +9C62 CC AF 4D ..M ldd #af4d ; "PRC HOLD N" +9C65 BD C0 BA ... jsr c0ba ;display: +9C68 7E 9D 29 ~.) jmp 9d29 ;goto18 +9C6B F6 00 67 ..g ldab 0067 +9C6E C4 20 . andb #20 +9C70 27 08 '. beq 08 +9C72 CC AF 58 ..X ldd #af58 ; "PRC DISP Y" +9C75 BD C0 BA ... jsr c0ba ;display: +9C78 20 06 . bra 06 +9C7A CC AF 63 ..c ldd #af63 ; "PRC DISP N" +9C7D BD C0 BA ... jsr c0ba ;display: +9C80 7E 9D 29 ~.) jmp 9d29 ;goto18 +9C83 F6 00 67 ..g ldab 0067 +9C86 C4 01 .. andb #01 +9C88 27 08 '. beq 08 +9C8A CC AE EA ... ldd #aeea ; "DUMB MEC Y" +9C8D BD C0 BA ... jsr c0ba ;display: +9C90 20 06 . bra 06 +9C92 CC AE F5 ... ldd #aef5 ; "DUMB MEC N" +9C95 BD C0 BA ... jsr c0ba ;display: +9C98 7E 9D 29 ~.) jmp 9d29 ;goto18 +9C9B F6 00 67 ..g ldab 0067 +9C9E C4 04 .. andb #04 +9CA0 27 08 '. beq 08 +9CA2 CC AF 16 ... ldd #af16 ; "CARD RDR Y" +9CA5 BD C0 BA ... jsr c0ba ;display: +9CA8 20 06 . bra 06 +9CAA CC AF 21 ..! ldd #af21 ; "CARD RDR N" +9CAD BD C0 BA ... jsr c0ba ;display: +9CB0 20 77 w bra 77 +9CB2 F6 00 67 ..g ldab 0067 +9CB5 C4 08 .. andb #08 +9CB7 27 08 '. beq 08 +9CB9 CC AF 2C .., ldd #af2c ; "BILL VAL Y" +9CBC BD C0 BA ... jsr c0ba ;display: +9CBF 20 06 . bra 06 +9CC1 CC AF 37 ..7 ldd #af37 ; "BILL VAL N" +9CC4 BD C0 BA ... jsr c0ba ;display: +9CC7 20 60 ` bra 60 +9CC9 F6 00 67 ..g ldab 0067 +9CCC C4 40 .@ andb #40 +9CCE 27 08 '. beq 08 +9CD0 CC AF 84 ... ldd #af84 ; "$1 CHNGR Y" +9CD3 BD C0 BA ... jsr c0ba ;display: +9CD6 20 06 . bra 06 +9CD8 CC AF 8F ... ldd #af8f ; "$1 CHNGR N" +9CDB BD C0 BA ... jsr c0ba ;display: +9CDE 20 49 I bra 49 +9CE0 F6 0E 70 ..p ldab 0e70 +9CE3 C1 01 .. cmpb #01 +9CE5 26 08 &. bne 08 +9CE7 CC AE BE ... ldd #aebe ; "$5 ENABLE " +9CEA BD C0 BA ... jsr c0ba ;display: +9CED 20 06 . bra 06 +9CEF CC AE C9 ... ldd #aec9 ; "$5 DISABLE" +9CF2 BD C0 BA ... jsr c0ba ;display: +9CF5 20 32 2 bra 32 +9CF7 F6 0E 6F ..o ldab 0e6f +9CFA C1 01 .. cmpb #01 +9CFC 26 08 &. bne 08 +9CFE CC AE D4 ... ldd #aed4 ; "SODA VEND " +9D01 BD C0 BA ... jsr c0ba ;display: +9D04 20 06 . bra 06 +9D06 CC AE DF ... ldd #aedf ; "SNACK VEND" +9D09 BD C0 BA ... jsr c0ba ;display: +9D0C 20 1B . bra 1b +9D0E F6 00 67 ..g ldab 0067 +9D11 2C 08 ,. bge 08 +9D13 CC AF 6E ..n ldd #af6e ; "FREE VND Y" +9D16 BD C0 BA ... jsr c0ba ;display: +9D19 20 06 . bra 06 +9D1B CC AF 79 ..y ldd #af79 ; "FREE VND N" +9D1E BD C0 BA ... jsr c0ba ;display: +9D21 20 06 . bra 06 +9D23 CC AF B0 ... ldd #afb0 ; "HIT KEY "0"" +9D26 BD C0 BA ... jsr c0ba ;display: +goto18: +9D29 39 9 rts + +jump89: +9D2A BD BE 4B ..K jsr be4b ;displayblank +9D2D F6 00 22 .." ldab 0022 +9D30 4F O clra +9D31 BD E7 95 ... jsr e795 ;jump54 +9D34 F6 00 5E ..^ ldab 005e +9D37 F7 0B 99 ... stab 0b99 +9D3A F6 00 5F .._ ldab 005f +9D3D F7 0B 98 ... stab 0b98 +9D40 C6 20 . ldab #20 +9D42 F7 0B 97 ... stab 0b97 +9D45 F6 00 24 ..$ ldab 0024 +9D48 4F O clra +9D49 BD E7 95 ... jsr e795 ;jump54 +9D4C C6 50 .P ldab #50 +9D4E F7 0B 96 ... stab 0b96 +9D51 F6 00 5E ..^ ldab 005e +9D54 F7 0B 95 ... stab 0b95 +9D57 F6 00 5F .._ ldab 005f +9D5A F7 0B 94 ... stab 0b94 +9D5D C6 20 . ldab #20 +9D5F F7 0B 93 ... stab 0b93 +9D62 F6 00 2A ..* ldab 002a +9D65 4F O clra +9D66 BD E7 95 ... jsr e795 ;jump54 +9D69 C6 46 .F ldab #46 +9D6B F7 0B 92 ... stab 0b92 +9D6E F6 00 5E ..^ ldab 005e +9D71 F7 0B 91 ... stab 0b91 +9D74 F6 00 5F .._ ldab 005f +9D77 F7 0B 90 ... stab 0b90 +9D7A BD BE 01 ... jsr be01 ;jump70 +9D7D 39 9 rts + +9D7E BD BE 4B ..K jsr be4b ;displayblank +9D81 F6 00 60 ..` ldab 0060 +9D84 4F O clra +9D85 C3 0A 90 ... addd #0a90 +9D88 8F . xgdx +9D89 E6 00 .. ldab 00,x +9D8B F7 0B 99 ... stab 0b99 +9D8E F6 00 60 ..` ldab 0060 +9D91 4F O clra +9D92 C3 0A 91 ... addd #0a91 +9D95 8F . xgdx +9D96 E6 00 .. ldab 00,x +9D98 F7 0B 98 ... stab 0b98 +9D9B F6 00 60 ..` ldab 0060 +9D9E 4F O clra +9D9F C3 0A 92 ... addd #0a92 +9DA2 8F . xgdx +9DA3 E6 00 .. ldab 00,x +9DA5 F7 0B 97 ... stab 0b97 +9DA8 F6 00 60 ..` ldab 0060 +9DAB 4F O clra +9DAC C3 0A 94 ... addd #0a94 +9DAF 8F . xgdx +9DB0 E6 00 .. ldab 00,x +9DB2 F7 0B 95 ... stab 0b95 +9DB5 F6 00 60 ..` ldab 0060 +9DB8 4F O clra +9DB9 C3 0A 95 ... addd #0a95 +9DBC 8F . xgdx +9DBD E6 00 .. ldab 00,x +9DBF F7 0B 94 ... stab 0b94 +9DC2 F6 00 60 ..` ldab 0060 +9DC5 4F O clra +9DC6 C3 0A 96 ... addd #0a96 +9DC9 8F . xgdx +9DCA E6 00 .. ldab 00,x +9DCC F7 0B 93 ... stab 0b93 +9DCF C6 20 . ldab #20 +9DD1 F7 0B 92 ... stab 0b92 +9DD4 C6 20 . ldab #20 +9DD6 F7 0B 91 ... stab 0b91 +9DD9 F6 00 54 ..T ldab 0054 +9DDC 4F O clra +9DDD C3 B4 8F ... addd #b48f +9DE0 8F . xgdx +9DE1 E6 00 .. ldab 00,x +9DE3 F7 0B 90 ... stab 0b90 +9DE6 F6 00 38 ..8 ldab 0038 +9DE9 C1 03 .. cmpb #03 +9DEB 24 0F $. bcc 0f +9DED F6 00 60 ..` ldab 0060 +9DF0 4F O clra +9DF1 C3 0A 93 ... addd #0a93 +9DF4 8F . xgdx +9DF5 E6 00 .. ldab 00,x +9DF7 F7 0B 96 ... stab 0b96 +9DFA 20 05 . bra 05 +9DFC C6 1F .. ldab #1f +9DFE F7 0B 96 ... stab 0b96 +9E01 BD BE 01 ... jsr be01 ;jump70 +9E04 F6 00 38 ..8 ldab 0038 +9E07 26 05 &. bne 05 +9E09 C6 05 .. ldab #05 +9E0B F7 00 38 ..8 stab 0038 +9E0E 39 9 rts + +jump142: +9E0F BD BE 4B ..K jsr be4b ;displayblank +9E12 F6 00 48 ..H ldab 0048 +9E15 26 15 &. bne 15 +9E17 F6 00 66 ..f ldab 0066 +9E1A 27 08 '. beq 08 +9E1C CC AF C6 ... ldd #afc6 ; "SECURE ON" +9E1F BD C0 BA ... jsr c0ba ;display: +9E22 20 06 . bra 06 +9E24 CC AF D1 ... ldd #afd1 ; "SECURE OFF" +9E27 BD C0 BA ... jsr c0ba ;display: +9E2A 20 5C \ bra 5c +9E2C C6 4D .M ldab #4d +9E2E F7 0B 99 ... stab 0b99 +9E31 C6 45 .E ldab #45 +9E33 F7 0B 98 ... stab 0b98 +9E36 C6 4E .N ldab #4e +9E38 F7 0B 97 ... stab 0b97 +9E3B C6 55 .U ldab #55 +9E3D F7 0B 96 ... stab 0b96 +9E40 C6 20 . ldab #20 +9E42 F7 0B 95 ... stab 0b95 +9E45 F6 00 48 ..H ldab 0048 +9E48 CB 30 .0 addb #30 +9E4A F7 0B 94 ... stab 0b94 +9E4D F6 00 48 ..H ldab 0048 +9E50 C1 0A .. cmpb #0a +9E52 26 05 &. bne 05 +9E54 C6 30 .0 ldab #30 +9E56 F7 0B 94 ... stab 0b94 +9E59 C6 20 . ldab #20 +9E5B F7 0B 93 ... stab 0b93 +9E5E C6 4F .O ldab #4f +9E60 F7 0B 92 ... stab 0b92 +9E63 F6 00 48 ..H ldab 0048 +9E66 4F O clra +9E67 C3 00 68 ..h addd #0068 +9E6A 8F . xgdx +9E6B E6 00 .. ldab 00,x +9E6D 27 0C '. beq 0c +9E6F C6 4E .N ldab #4e +9E71 F7 0B 91 ... stab 0b91 +9E74 C6 20 . ldab #20 +9E76 F7 0B 90 ... stab 0b90 +9E79 20 0A . bra 0a +9E7B C6 46 .F ldab #46 +9E7D F7 0B 91 ... stab 0b91 +9E80 C6 46 .F ldab #46 +9E82 F7 0B 90 ... stab 0b90 +9E85 BD BE 01 ... jsr be01 ;jump70 +9E88 39 9 rts + +jump100: +9E89 BD BE 4B ..K jsr be4b ;displayblank +9E8C F6 00 48 ..H ldab 0048 +9E8F 4F O clra +9E90 BD FE 16 ... jsr fe16 ;jump2 +9E93 00 . test +9E94 01 . nop +9E95 00 . test +9E96 2D A1 -. blt a1 +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 ... staa 9f +9EB7 9F AE 9F ... sts ae +9EBA B7 9F C5 ... staa 9fc5 +9EBD 9F DD 9F ... sts dd +9EC0 EB A0 .. addb a0,x +9EC2 03 . fdiv +9EC3 A0 11 .. suba 11,x +9EC5 A0 29 .) suba 29,x +9EC7 A0 37 .7 suba 37,x +9EC9 A0 54 .T suba 54,x +9ECB A0 62 .b suba 62,x +9ECD A0 7F .. suba 7f,x +9ECF A0 8D .. suba 8d,x +9ED1 A0 96 .. suba 96,x +9ED3 A0 A4 .. suba a4,x +9ED5 A0 AD .. suba ad,x +9ED7 A0 BC .. suba bc,x +9ED9 A0 C5 .. suba c5,x +9EDB A0 D4 .. suba d4,x +9EDD A0 DD .. suba dd,x +9EDF A0 EC .. suba ec,x +9EE1 A0 F5 .. suba f5,x +9EE3 A1 04 .. cmpa 04,x +9EE5 A1 26 .& cmpa 26,x +9EE7 A1 34 .4 cmpa 34,x +9EE9 A1 55 .U cmpa 55,x +9EEB A1 62 .b cmpa 62,x +9EED A1 83 .. cmpa 83,x +9EEF A1 90 .. cmpa 90,x +9EF1 A1 B1 .. cmpa b1,x +9EF3 A1 BE .. cmpa be,x +9EF5 CC B2 90 ... ldd #b290 ; "SERIAL #" +9EF8 BD C0 BA ... jsr c0ba ;display: +9EFB 7E A1 C4 ~.. jmp a1c4 ;goto19 +9EFE CC 0C BC ... ldd #0cbc ; serial number? +9F01 BD C0 BA ... jsr c0ba ;display: +9F04 7E A1 C4 ~.. jmp a1c4 ;goto19 +9F07 CC B2 A2 ... ldd #b2a2 ; "MACHINE ID" +9F0A BD C0 BA ... jsr c0ba ;display: +9F0D 7E A1 C4 ~.. jmp a1c4 ;goto19 +9F10 CC 0C CC ... ldd #0ccc ; machine id? +9F13 BD C0 BA ... jsr c0ba ;display: +9F16 7E A1 C4 ~.. jmp a1c4 ;goto19 +9F19 C6 41 .A ldab #41 +9F1B F7 0B 99 ... stab 0b99 +9F1E C6 55 .U ldab #55 +9F20 F7 0B 98 ... stab 0b98 +9F23 C6 44 .D ldab #44 +9F25 F7 0B 97 ... stab 0b97 +9F28 C6 54 .T ldab #54 +9F2A F7 0B 96 ... stab 0b96 +9F2D CE 00 00 ... ldx #0000 +9F30 3C < pshx +9F31 FC 0C E7 ... ldd 0ce7 +9F34 BD A2 D4 ... jsr a2d4 ;jump79 +9F37 38 8 pulx +9F38 7E A1 C4 ~.. jmp a1c4 ;goto19 +9F3B CC B2 C6 ... ldd #b2c6 +9F3E BD C0 BA ... jsr c0ba ;display: +9F41 7E A1 C4 ~.. jmp a1c4 ;goto19 +9F44 FE 0D E9 ... ldx 0de9 +9F47 3C < pshx +9F48 FC 0D E7 ... ldd 0de7 +9F4B BD A3 41 ..A jsr a341 ;jump77 +9F4E 38 8 pulx +9F4F 7E A1 C4 ~.. jmp a1c4 ;goto19 +9F52 CC B2 D8 ... ldd #b2d8 +9F55 BD C0 BA ... jsr c0ba ;display: +9F58 7E A1 C4 ~.. jmp a1c4 ;goto19 +9F5B FE 0D ED ... ldx 0ded +9F5E 3C < pshx +9F5F FC 0D EB ... ldd 0deb +9F62 BD A3 41 ..A jsr a341 ;jump77 +9F65 38 8 pulx +9F66 7E A1 C4 ~.. jmp a1c4 ;goto19 +9F69 CC B2 EA ... ldd #b2ea +9F6C BD C0 BA ... jsr c0ba ;display: +9F6F 7E A1 C4 ~.. jmp a1c4 ;goto19 +9F72 FE 0D F1 ... ldx 0df1 +9F75 3C < pshx +9F76 FC 0D EF ... ldd 0def +9F79 BD A3 41 ..A jsr a341 ;jump77 +9F7C 38 8 pulx +9F7D 7E A1 C4 ~.. jmp a1c4 ;goto19 +9F80 CC B2 FC ... ldd #b2fc +9F83 BD C0 BA ... jsr c0ba ;display: +9F86 7E A1 C4 ~.. jmp a1c4 ;goto19 +9F89 FE 0D F9 ... ldx 0df9 +9F8C 3C < pshx +9F8D FC 0D F7 ... ldd 0df7 +9F90 BD A3 41 ..A jsr a341 ;jump77 +9F93 38 8 pulx +9F94 7E A1 C4 ~.. jmp a1c4 ;goto19 +9F97 CC B3 0E ... ldd #b30e +9F9A BD C0 BA ... jsr c0ba ;display: +9F9D 7E A1 C4 ~.. jmp a1c4 ;goto19 +9FA0 FE 0D FD ... ldx 0dfd +9FA3 3C < pshx +9FA4 FC 0D FB ... ldd 0dfb +9FA7 BD A3 41 ..A jsr a341 ;jump77 +9FAA 38 8 pulx +9FAB 7E A1 C4 ~.. jmp a1c4 ;goto19 +9FAE CC B3 35 ..5 ldd #b335 +9FB1 BD C0 BA ... jsr c0ba ;display: +9FB4 7E A1 C4 ~.. jmp a1c4 ;goto19 +9FB7 FE 0D F5 ... ldx 0df5 +9FBA 3C < pshx +9FBB FC 0D F3 ... ldd 0df3 +9FBE BD A3 41 ..A jsr a341 ;jump77 +9FC1 38 8 pulx +9FC2 7E A1 C4 ~.. jmp a1c4 ;goto19 +9FC5 C6 24 .$ ldab #24 +9FC7 F7 0B 99 ... stab 0b99 +9FCA C6 31 .1 ldab #31 +9FCC F7 0B 98 ... stab 0b98 +9FCF CE 00 00 ... ldx #0000 +9FD2 3C < pshx +9FD3 FC 0C DD ... ldd 0cdd +9FD6 BD A2 D4 ... jsr a2d4 ;jump79 +9FD9 38 8 pulx +9FDA 7E A1 C4 ~.. jmp a1c4 ;goto19 +9FDD FE 0C F5 ... ldx 0cf5 +9FE0 3C < pshx +9FE1 FC 0C F3 ... ldd 0cf3 +9FE4 BD A3 41 ..A jsr a341 ;jump77 +9FE7 38 8 pulx +9FE8 7E A1 C4 ~.. jmp a1c4 ;goto19 +9FEB C6 24 .$ ldab #24 +9FED F7 0B 99 ... stab 0b99 +9FF0 C6 32 .2 ldab #32 +9FF2 F7 0B 98 ... stab 0b98 +9FF5 CE 00 00 ... ldx #0000 +9FF8 3C < pshx +9FF9 FC 0C DF ... ldd 0cdf +9FFC BD A2 D4 ... jsr a2d4 ;jump79 +9FFF 38 8 pulx +A000 7E A1 C4 ~.. jmp a1c4 ;goto19 +A003 FE 0C F9 ... ldx 0cf9 +A006 3C < pshx +A007 FC 0C F7 ... ldd 0cf7 +A00A BD A3 41 ..A jsr a341 ;jump77 +A00D 38 8 pulx +A00E 7E A1 C4 ~.. jmp a1c4 ;goto19 +A011 C6 24 .$ ldab #24 +A013 F7 0B 99 ... stab 0b99 +A016 C6 35 .5 ldab #35 +A018 F7 0B 98 ... stab 0b98 +A01B CE 00 00 ... ldx #0000 +A01E 3C < pshx +A01F FC 0C E1 ... ldd 0ce1 +A022 BD A2 D4 ... jsr a2d4 ;jump79 +A025 38 8 pulx +A026 7E A1 C4 ~.. jmp a1c4 ;goto19 +A029 FE 0C FD ... ldx 0cfd +A02C 3C < pshx +A02D FC 0C FB ... ldd 0cfb +A030 BD A3 41 ..A jsr a341 ;jump77 +A033 38 8 pulx +A034 7E A1 C4 ~.. jmp a1c4 ;goto19 +A037 C6 24 .$ ldab #24 +A039 F7 0B 99 ... stab 0b99 +A03C C6 31 .1 ldab #31 +A03E F7 0B 98 ... stab 0b98 +A041 C6 30 .0 ldab #30 +A043 F7 0B 97 ... stab 0b97 +A046 CE 00 00 ... ldx #0000 +A049 3C < pshx +A04A FC 0C E3 ... ldd 0ce3 +A04D BD A2 D4 ... jsr a2d4 ;jump79 +A050 38 8 pulx +A051 7E A1 C4 ~.. jmp a1c4 ;goto19 +A054 FE 0D 01 ... ldx 0d01 +A057 3C < pshx +A058 FC 0C FF ... ldd 0cff +A05B BD A3 41 ..A jsr a341 ;jump77 +A05E 38 8 pulx +A05F 7E A1 C4 ~.. jmp a1c4 ;goto19 +A062 C6 24 .$ ldab #24 +A064 F7 0B 99 ... stab 0b99 +A067 C6 32 .2 ldab #32 +A069 F7 0B 98 ... stab 0b98 +A06C C6 30 .0 ldab #30 +A06E F7 0B 97 ... stab 0b97 +A071 CE 00 00 ... ldx #0000 +A074 3C < pshx +A075 FC 0C E5 ... ldd 0ce5 +A078 BD A2 D4 ... jsr a2d4 ;jump79 +A07B 38 8 pulx +A07C 7E A1 C4 ~.. jmp a1c4 ;goto19 +A07F FE 0D 05 ... ldx 0d05 +A082 3C < pshx +A083 FC 0D 03 ... ldd 0d03 +A086 BD A3 41 ..A jsr a341 ;jump77 +A089 38 8 pulx +A08A 7E A1 C4 ~.. jmp a1c4 ;goto19 +A08D CC B3 B7 ... ldd #b3b7 +A090 BD C0 BA ... jsr c0ba ;display: +A093 7E A1 C4 ~.. jmp a1c4 ;goto19 +A096 CE 00 01 ... ldx #0001 +A099 3C < pshx +A09A FC 0C F1 ... ldd 0cf1 +A09D BD A2 D4 ... jsr a2d4 ;jump79 +A0A0 38 8 pulx +A0A1 7E A1 C4 ~.. jmp a1c4 ;goto19 +A0A4 CC B3 CE ... ldd #b3ce +A0A7 BD C0 BA ... jsr c0ba ;display: +A0AA 7E A1 C4 ~.. jmp a1c4 ;goto19 +A0AD FE 0C E9 ... ldx 0ce9 +A0B0 3C < pshx +A0B1 F6 0C DC ... ldab 0cdc +A0B4 4F O clra +A0B5 BD A3 1A ... jsr a31a ;jump93 +A0B8 38 8 pulx +A0B9 7E A1 C4 ~.. jmp a1c4 ;goto19 +A0BC CC B3 E0 ... ldd #b3e0 +A0BF BD C0 BA ... jsr c0ba ;display: +A0C2 7E A1 C4 ~.. jmp a1c4 ;goto19 +A0C5 FE 0C EB ... ldx 0ceb +A0C8 3C < pshx +A0C9 F6 0C DB ... ldab 0cdb +A0CC 4F O clra +A0CD BD A3 1A ... jsr a31a ;jump93 +A0D0 38 8 pulx +A0D1 7E A1 C4 ~.. jmp a1c4 ;goto19 +A0D4 CC B3 F2 ... ldd #b3f2 +A0D7 BD C0 BA ... jsr c0ba ;display: +A0DA 7E A1 C4 ~.. jmp a1c4 ;goto19 +A0DD FE 0C ED ... ldx 0ced +A0E0 3C < pshx +A0E1 F6 0C DA ... ldab 0cda +A0E4 4F O clra +A0E5 BD A3 1A ... jsr a31a ;jump93 +A0E8 38 8 pulx +A0E9 7E A1 C4 ~.. jmp a1c4 ;goto19 +A0EC CC B4 04 ... ldd #b404 +A0EF BD C0 BA ... jsr c0ba ;display: +A0F2 7E A1 C4 ~.. jmp a1c4 ;goto19 +A0F5 FE 0C EF ... ldx 0cef +A0F8 3C < pshx +A0F9 F6 0C D9 ... ldab 0cd9 +A0FC 4F O clra +A0FD BD A3 1A ... jsr a31a ;jump93 +A100 38 8 pulx +A101 7E A1 C4 ~.. jmp a1c4 ;goto19 +A104 C6 57 .W ldab #57 +A106 F7 0B 99 ... stab 0b99 +A109 C6 53 .S ldab #53 +A10B F7 0B 98 ... stab 0b98 +A10E C6 4E .N ldab #4e +A110 F7 0B 97 ... stab 0b97 +A113 C6 4B .K ldab #4b +A115 F7 0B 96 ... stab 0b96 +A118 CE 00 00 ... ldx #0000 +A11B 3C < pshx +A11C FC 0D 07 ... ldd 0d07 +A11F BD A2 D4 ... jsr a2d4 ;jump79 +A122 38 8 pulx +A123 7E A1 C4 ~.. jmp a1c4 ;goto19 +A126 FE 0D 11 ... ldx 0d11 +A129 3C < pshx +A12A FC 0D 0F ... ldd 0d0f +A12D BD A3 41 ..A jsr a341 ;jump77 +A130 38 8 pulx +A131 7E A1 C4 ~.. jmp a1c4 ;goto19 +A134 C6 53 .S ldab #53 +A136 F7 0B 99 ... stab 0b99 +A139 C6 48 .H ldab #48 +A13B F7 0B 98 ... stab 0b98 +A13E C6 50 .P ldab #50 +A140 F7 0B 97 ... stab 0b97 +A143 C6 52 .R ldab #52 +A145 F7 0B 96 ... stab 0b96 +A148 CE 00 00 ... ldx #0000 +A14B 3C < pshx +A14C FC 0D 09 ... ldd 0d09 +A14F BD A2 D4 ... jsr a2d4 ;jump79 +A152 38 8 pulx +A153 20 6F o bra 6f +A155 FE 0D 15 ... ldx 0d15 +A158 3C < pshx +A159 FC 0D 13 ... ldd 0d13 +A15C BD A3 41 ..A jsr a341 ;jump77 +A15F 38 8 pulx +A160 20 62 b bra 62 +A162 C6 50 .P ldab #50 +A164 F7 0B 99 ... stab 0b99 +A167 C6 52 .R ldab #52 +A169 F7 0B 98 ... stab 0b98 +A16C C6 4D .M ldab #4d +A16E F7 0B 97 ... stab 0b97 +A171 C6 4F .O ldab #4f +A173 F7 0B 96 ... stab 0b96 +A176 CE 00 00 ... ldx #0000 +A179 3C < pshx +A17A FC 0D 0B ... ldd 0d0b +A17D BD A2 D4 ... jsr a2d4 ;jump79 +A180 38 8 pulx +A181 20 41 A bra 41 +A183 FE 0D 19 ... ldx 0d19 +A186 3C < pshx +A187 FC 0D 17 ... ldd 0d17 +A18A BD A3 41 ..A jsr a341 ;jump77 +A18D 38 8 pulx +A18E 20 34 4 bra 34 +A190 C6 46 .F ldab #46 +A192 F7 0B 99 ... stab 0b99 +A195 C6 52 .R ldab #52 +A197 F7 0B 98 ... stab 0b98 +A19A C6 45 .E ldab #45 +A19C F7 0B 97 ... stab 0b97 +A19F C6 45 .E ldab #45 +A1A1 F7 0B 96 ... stab 0b96 +A1A4 CE 00 00 ... ldx #0000 +A1A7 3C < pshx +A1A8 FC 0D 0D ... ldd 0d0d +A1AB BD A2 D4 ... jsr a2d4 ;jump79 +A1AE 38 8 pulx +A1AF 20 13 . bra 13 +A1B1 FE 0D 1D ... ldx 0d1d +A1B4 3C < pshx +A1B5 FC 0D 1B ... ldd 0d1b +A1B8 BD A3 41 ..A jsr a341 ;jump77 +A1BB 38 8 pulx +A1BC 20 06 . bra 06 +A1BE CC B4 84 ... ldd #b484 +A1C1 BD C0 BA ... jsr c0ba ;display: +goto19: +A1C4 F6 00 48 ..H ldab 0048 +A1C7 C1 2E .. cmpb #2e +A1C9 23 74 #t bls 74 +A1CB F6 00 48 ..H ldab 0048 +A1CE C1 92 .. cmpb #92 +A1D0 24 6D $m bcc 6d +A1D2 F6 00 48 ..H ldab 0048 +A1D5 4F O clra +A1D6 05 . asld +A1D7 C3 08 6C ..l addd #086c +A1DA 8F . xgdx +A1DB EC 00 .. ldd 00,x +A1DD C4 80 .. andb #80 +A1DF 26 0E &. bne 0e +A1E1 7C 00 48 |.H inc 0048 +A1E4 F6 00 48 ..H ldab 0048 +A1E7 C1 92 .. cmpb #92 +A1E9 26 02 &. bne 02 +A1EB 20 02 . bra 02 +A1ED 20 E3 . bra e3 +A1EF F6 00 48 ..H ldab 0048 +A1F2 4F O clra +A1F3 C3 FF D2 ... addd #ffd2 +A1F6 BD E7 95 ... jsr e795 ;jump54 +A1F9 F6 00 5E ..^ ldab 005e +A1FC F7 0B 99 ... stab 0b99 +A1FF F6 00 5F .._ ldab 005f +A202 F7 0B 98 ... stab 0b98 +A205 F6 00 48 ..H ldab 0048 +A208 4F O clra +A209 05 . asld +A20A C3 0C C3 ... addd #0cc3 +A20D 8F . xgdx +A20E EC 00 .. ldd 00,x +A210 BD E7 45 ..E jsr e745 ;jump55 +A213 F6 00 57 ..W ldab 0057 +A216 F7 0B 94 ... stab 0b94 +A219 F6 00 5A ..Z ldab 005a +A21C F7 0B 93 ... stab 0b93 +A21F F6 00 5D ..] ldab 005d +A222 F7 0B 92 ... stab 0b92 +A225 F6 00 5E ..^ ldab 005e +A228 F7 0B 91 ... stab 0b91 +A22B F6 00 5F .._ ldab 005f +A22E F7 0B 90 ... stab 0b90 +A231 5F _ clrb +A232 4F O clra +A233 8D 27 .' bsr dest 27 +A235 F6 00 48 ..H ldab 0048 +A238 C1 92 .. cmpb #92 +A23A 26 03 &. bne 03 +A23C 7F 00 2C .., clr 002c +A23F F6 00 48 ..H ldab 0048 +A242 C1 92 .. cmpb #92 +A244 26 15 &. bne 15 +A246 F6 00 1F ... ldab 001f +A249 C4 10 .. andb #10 +A24B 27 08 '. beq 08 +A24D CC AF 9A ... ldd #af9a +A250 BD C0 BA ... jsr c0ba ;display: +A253 20 06 . bra 06 +A255 CC AF A5 ... ldd #afa5 +A258 BD C0 BA ... jsr c0ba ;display: +A25B 39 9 rts + +jump82: +A25C 37 7 pshb +A25D 36 6 psha +A25E F6 00 2C .., ldab 002c +A261 26 6F &o bne 6f +A263 BD BE 69 ..i jsr be69 ;displayreset +A266 30 0 tsx +A267 E6 01 .. ldab 01,x +A269 27 5F '_ beq 5f +A26B F6 00 13 ... ldab 0013 +A26E C1 01 .. cmpb #01 +A270 23 58 #X bls 58 +A272 CE 10 28 ..( ldx #1028 +A275 1C 00 40 ... bset 00,x, #40 +A278 CE 00 01 ... ldx #0001 +A27B 3C < pshx +A27C F6 0B 90 ... ldab 0b90 +A27F 4F O clra +A280 BD BD B5 ... jsr bdb5 ;jump78 +A283 38 8 pulx +A284 CE 10 28 ..( ldx #1028 +A287 1D 00 40 ... bclr 00,x, #40 +A28A F6 0B 91 ... ldab 0b91 +A28D F7 0B 90 ... stab 0b90 +A290 F6 00 13 ... ldab 0013 +A293 C1 02 .. cmpb #02 +A295 26 07 &. bne 07 +A297 C6 2E .. ldab #2e +A299 F7 0B 91 ... stab 0b91 +A29C 20 2C , bra 2c +A29E F6 00 13 ... ldab 0013 +A2A1 C1 04 .. cmpb #04 +A2A3 26 0D &. bne 0d +A2A5 F6 0B 92 ... ldab 0b92 +A2A8 F7 0B 91 ... stab 0b91 +A2AB C6 2E .. ldab #2e +A2AD F7 0B 92 ... stab 0b92 +A2B0 20 18 . bra 18 +A2B2 F6 00 13 ... ldab 0013 +A2B5 C1 08 .. cmpb #08 +A2B7 26 11 &. bne 11 +A2B9 F6 0B 92 ... ldab 0b92 +A2BC F7 0B 91 ... stab 0b91 +A2BF F6 0B 93 ... ldab 0b93 +A2C2 F7 0B 92 ... stab 0b92 +A2C5 C6 2E .. ldab #2e +A2C7 F7 0B 93 ... stab 0b93 +A2CA BD BE 10 ... jsr be10 ;jump88 +A2CD C6 03 .. ldab #03 +A2CF F7 00 2C .., stab 002c +A2D2 38 8 pulx +A2D3 39 9 rts + +jump79: +A2D4 37 7 pshb +A2D5 36 6 psha +A2D6 30 0 tsx +A2D7 EC 00 .. ldd 00,x +A2D9 BD E7 45 ..E jsr e745 ;jump55 +A2DC F6 00 57 ..W ldab 0057 +A2DF F7 0B 94 ... stab 0b94 +A2E2 F6 00 5A ..Z ldab 005a +A2E5 F7 0B 93 ... stab 0b93 +A2E8 F6 00 5D ..] ldab 005d +A2EB F7 0B 92 ... stab 0b92 +A2EE F6 00 5E ..^ ldab 005e +A2F1 F7 0B 91 ... stab 0b91 +A2F4 F6 00 5F .._ ldab 005f +A2F7 F7 0B 90 ... stab 0b90 +A2FA 30 0 tsx +A2FB E6 05 .. ldab 05,x +A2FD 27 14 '. beq 14 +A2FF F6 00 17 ... ldab 0017 +A302 C4 08 .. andb #08 +A304 26 05 &. bne 05 +A306 C6 24 .$ ldab #24 +A308 F7 0B 95 ... stab 0b95 +A30B CC 00 01 ... ldd #0001 +A30E BD A2 5C ..\ jsr a25c ;jump82 +A311 20 05 . bra 05 +A313 5F _ clrb +A314 4F O clra +A315 BD A2 5C ..\ jsr a25c ;jump82 +A318 38 8 pulx +A319 39 9 rts + +jump93: +A31A 37 7 pshb +A31B 36 6 psha +A31C 30 0 tsx +A31D E6 01 .. ldab 01,x +A31F 4F O clra +A320 BD E7 95 ... jsr e795 ;jump54 +A323 F6 00 5D ..] ldab 005d +A326 F7 0B 99 ... stab 0b99 +A329 F6 00 5E ..^ ldab 005e +A32C F7 0B 98 ... stab 0b98 +A32F F6 00 5F .._ ldab 005f +A332 F7 0B 97 ... stab 0b97 +A335 CE 00 01 ... ldx #0001 +A338 3C < pshx +A339 30 0 tsx +A33A EC 06 .. ldd 06,x +A33C 8D 96 .. bsr dest 96 +A33E 38 8 pulx +A33F 38 8 pulx +A340 39 9 rts + +jump77: +A341 38 8 pulx +A342 37 7 pshb +A343 36 6 psha +A344 3C < pshx +A345 30 0 tsx +A346 EC 04 .. ldd 04,x +A348 37 7 pshb +A349 36 6 psha +A34A EC 02 .. ldd 02,x +A34C BD E6 21 ..! jsr e621 ;jump56 +A34F 38 8 pulx +A350 C6 20 . ldab #20 +A352 F7 0B 99 ... stab 0b99 +A355 F6 00 17 ... ldab 0017 +A358 C4 08 .. andb #08 +A35A 26 05 &. bne 05 +A35C C6 24 .$ ldab #24 +A35E F7 0B 98 ... stab 0b98 +A361 CC 00 01 ... ldd #0001 +A364 BD A2 5C ..\ jsr a25c ;jump82 +A367 38 8 pulx +A368 31 1 ins +A369 31 1 ins +A36A 6E 00 n. jmp 00,x + +jump81: +A36C BD BE 4B ..K jsr be4b ;displayblank +A36F CC AF DC ... ldd #afdc ; "- SAVING -" +A372 BD C0 BA ... jsr c0ba ;display: +A375 CC 01 F4 ... ldd #01f4 +A378 BD E5 71 ..q jsr e571 ;msdelay +A37B 39 9 rts + +jump141: +A37C FC 00 52 ..R ldd 0052 +A37F FD 0B B5 ... std 0bb5 +A382 8D E8 .. bsr dest e8 +A384 39 9 rts + +jump40: +A385 F6 00 1F ... ldab 001f +A388 C4 40 .@ andb #40 +A38A 27 73 's beq 73 +A38C F6 00 06 ... ldab 0006 +A38F 4F O clra +A390 05 . asld +A391 C3 08 00 ... addd #0800 +A394 8F . xgdx +A395 EC 00 .. ldd 00,x +A397 5F _ clrb +A398 84 C0 .. anda #c0 +A39A FA 00 28 ..( orb 0028 +A39D BA 00 27 ..' ora 0027 +A3A0 FD 00 27 ..' std 0027 +A3A3 FC 00 27 ..' ldd 0027 +A3A6 37 7 pshb +A3A7 36 6 psha +A3A8 F6 00 06 ... ldab 0006 +A3AB 4F O clra +A3AC 05 . asld +A3AD C3 08 00 ... addd #0800 +A3B0 38 8 pulx +A3B1 8F . xgdx +A3B2 ED 00 .. std 00,x +A3B4 FC 00 27 ..' ldd 0027 +A3B7 43 C coma +A3B8 53 S comb +A3B9 37 7 pshb +A3BA 36 6 psha +A3BB F6 00 06 ... ldab 0006 +A3BE 4F O clra +A3BF 05 . asld +A3C0 C3 0B F1 ... addd #0bf1 +A3C3 38 8 pulx +A3C4 8F . xgdx +A3C5 ED 00 .. std 00,x +A3C7 F6 00 06 ... ldab 0006 +A3CA 4F O clra +A3CB 05 . asld +A3CC C3 08 C8 ... addd #08c8 +A3CF 8F . xgdx +A3D0 EC 00 .. ldd 00,x +A3D2 C4 80 .. andb #80 +A3D4 84 F7 .. anda #f7 +A3D6 FA 00 47 ..G orb 0047 +A3D9 BA 00 46 ..F ora 0046 +A3DC FD 00 46 ..F std 0046 +A3DF F6 00 19 ... ldab 0019 +A3E2 C4 10 .. andb #10 +A3E4 27 06 '. beq 06 +A3E6 CE 00 46 ..F ldx #0046 +A3E9 1C 00 08 ... bset 00,x, #08 +; set memory location 08c8+(slotnum*2) to value of 0046 +A3EC FC 00 46 ..F ldd 0046 +A3EF 37 7 pshb +A3F0 36 6 psha +A3F1 F6 00 06 ... ldab 0006 +A3F4 4F O clra +A3F5 05 . asld +A3F6 C3 08 C8 ... addd #08c8 +A3F9 38 8 pulx +A3FA 8F . xgdx +A3FB ED 00 .. std 00,x +A3FD 20 22 " bra 22 +A3FF CC 2A FF .*. ldd #2aff +A402 37 7 pshb +A403 36 6 psha +A404 F6 00 06 ... ldab 0006 +A407 4F O clra +A408 05 . asld +A409 C3 08 00 ... addd #0800 +A40C 38 8 pulx +A40D 8F . xgdx +A40E ED 00 .. std 00,x +A410 CC D5 00 ... ldd #d500 +A413 37 7 pshb +A414 36 6 psha +A415 F6 00 06 ... ldab 0006 +A418 4F O clra +A419 05 . asld +A41A C3 0B F1 ... addd #0bf1 +A41D 38 8 pulx +A41E 8F . xgdx +A41F ED 00 .. std 00,x +A421 F6 00 1F ... ldab 001f +A424 C4 40 .@ andb #40 +A426 27 26 '& beq 26 +A428 F6 00 06 ... ldab 0006 +A42B 4F O clra +A42C 05 . asld +A42D C3 08 00 ... addd #0800 +A430 8F . xgdx +A431 EC 00 .. ldd 00,x +A433 C4 FF .. andb #ff +A435 84 3F .? anda #3f +A437 FD 00 27 ..' std 0027 +A43A F6 00 06 ... ldab 0006 +A43D 4F O clra +A43E 05 . asld +A43F C3 08 C8 ... addd #08c8 +A442 8F . xgdx +A443 EC 00 .. ldd 00,x +A445 C4 7F .. andb #7f +A447 4F O clra +A448 FD 00 46 ..F std 0046 +A44B BD A3 6C ..l jsr a36c ;jump81 +A44E 39 9 rts + +jump140: +A44F FC 00 0D ... ldd 000d +A452 FD 0B B7 ... std 0bb7 +A455 BD A3 6C ..l jsr a36c ;jump81 +A458 39 9 rts + +jump110: +A459 3C < pshx +A45A F6 00 67 ..g ldab 0067 +A45D C4 02 .. andb #02 +A45F 27 08 '. beq 08 +A461 CE 00 67 ..g ldx #0067 +A464 1D 00 4D ... bclr 00,x, #4D +A467 20 0C . bra 0c +A469 CE 00 67 ..g ldx #0067 +A46C 1D 00 10 ... bclr 00,x, #10 +A46F CE 00 67 ..g ldx #0067 +A472 1D 00 .. bclr add,x 00,x +A474 20 F6 . bra f6 +A476 00 . test +A477 67 C4 g. asr c4,x +A479 10 . sba +A47A 26 06 &. bne 06 +A47C CE 00 67 ..g ldx #0067 +A47F 1D 00 .. bclr add,x 00,x +A481 20 F6 . bra f6 +A483 00 . test +A484 67 C4 g. asr c4,x +A486 01 . nop +A487 27 14 '. beq 14 +A489 CE 00 67 ..g ldx #0067 +A48C 1D 00 02 ... bclr 00,x, #02 +A48F CE 00 67 ..g ldx #0067 +A492 1D 00 10 ... bclr 00,x, #10 +A495 CE 00 67 ..g ldx #0067 +A498 1D 00 .. bclr add,x 00,x +A49A 20 20 bra 20 +A49C 06 . tap +A49D CE 00 67 ..g ldx #0067 +A4A0 1D 00 08 ... bclr 00,x, #08 +A4A3 F6 00 67 ..g ldab 0067 +A4A6 C4 04 .. andb #04 +A4A8 27 12 '. beq 12 +A4AA CE 00 67 ..g ldx #0067 +A4AD 1D 00 02 ... bclr 00,x, #02 +A4B0 CE 00 67 ..g ldx #0067 +A4B3 1D 00 10 .. bclr 00,x, #10 +A4B6 CE 00 67 ..g ldx #0067 +A4B9 1D 00 20 .. bclr 00,x, #20 +A4BC F6 00 67 ... ldab 0067 +A4BF C4 08 .. andb #08 +A4C1 26 06 &. bne 06 +A4C3 CE 00 67 ..g ldx #0067 +A4C6 1D 00 40 ..@ bclr 00,x, #40 +A4C9 F6 00 67 ..g ldab 0067 +A4CC F7 0B C0 ... stab 0bc0 +A4CF F6 0E 70 ..p ldab 0e70 +A4D2 F7 0E 6E ..n stab 0e6e +A4D5 F6 0E 6D ..m ldab 0e6d +A4D8 26 39 &9 bne 39 +A4DA F6 0E 6F ..o ldab 0e6f +A4DD 27 34 '4 beq 34 +A4DF 7F 00 06 ... clr 0006 +A4E2 F6 00 06 ... ldab 0006 +A4E5 C1 3F .? cmpb #3f +A4E7 24 2A $* bcc 2a +A4E9 F6 00 06 ... ldab 0006 +A4EC 4F O clra +A4ED CE 00 05 ... ldx #0005 +A4F0 02 . idiv +A4F1 5D ] tstb +A4F2 27 1A '. beq 1a +A4F4 F6 00 06 ... ldab 0006 +A4F7 4F O clra +A4F8 C3 08 00 ... addd #0800 +A4FB 30 0 tsx +A4FC ED 00 .. std 00,x +A4FE EC 00 .. ldd 00,x +A500 37 7 pshb +A501 36 6 psha +A502 F6 00 06 ... ldab 0006 +A505 4F O clra +A506 05 . asld +A507 C3 08 C8 ... addd #08c8 +A50A 38 8 pulx +A50B 8F . xgdx +A50C ED 00 .. std 00,x +A50E 7C 00 06 |.. inc 0006 +A511 20 CF . bra cf +A513 F6 0E 6F ..o ldab 0e6f +A516 F7 0E 6D ..m stab 0e6d +A519 BD A3 6C ..l jsr a36c ;jump81 +A51C 38 8 pulx +A51D 39 9 rts + +jump109: +A51E F6 00 22 .." ldab 0022 +A521 4F O clra +A522 BD FE 16 ... jsr fe16 ;jump2 +A525 00 . test +A526 01 . nop +A527 00 . test +A528 04 . lsrd +A529 A5 79 .y bita 79,x +A52B A5 35 .5 bita 35,x +A52D A5 43 .C bita 43,x +A52F A5 51 .Q bita 51,x +A531 A5 5F ._ bita 5f,x +A533 A5 6D .m bita 6d,x +A535 F6 00 24 ..$ ldab 0024 +A538 F7 0B AF ... stab 0baf +A53B F6 00 2A ..* ldab 002a +A53E F7 0B B4 ... stab 0bb4 +A541 20 36 6 bra 36 +A543 F6 00 24 ..$ ldab 0024 +A546 F7 0B AE ... stab 0bae +A549 F6 00 2A ..* ldab 002a +A54C F7 0B B3 ... stab 0bb3 +A54F 20 28 ( bra 28 +A551 F6 00 24 ..$ ldab 0024 +A554 F7 0B AD ... stab 0bad +A557 F6 00 2A ..* ldab 002a +A55A F7 0B B2 ... stab 0bb2 +A55D 20 1A . bra 1a +A55F F6 00 24 ..$ ldab 0024 +A562 F7 0B AC ... stab 0bac +A565 F6 00 2A ..* ldab 002a +A568 F7 0B B1 ... stab 0bb1 +A56B 20 0C . bra 0c +A56D F6 00 24 ..$ ldab 0024 +A570 F7 0B AB ... stab 0bab +A573 F6 00 2A ..* ldab 002a +A576 F7 0B B0 ... stab 0bb0 +A579 BD A3 6C ..l jsr a36c ;jump81 +A57C 39 9 rts + +jump139: +A57D 7F 00 54 ..T clr 0054 +A580 F6 00 54 ..T ldab 0054 +A583 C1 FF .. cmpb #ff +A585 24 1B $. bcc 1b +A587 F6 00 54 ..T ldab 0054 +A58A 4F O clra +A58B C3 0A 90 ... addd #0a90 +A58E 8F . xgdx +A58F E6 00 .. ldab 00,x +A591 37 7 pshb +A592 F6 00 54 ..T ldab 0054 +A595 4F O clra +A596 C3 09 90 ... addd #0990 +A599 8F . xgdx +A59A 33 3 pulb +A59B E7 00 .. stab 00,x +A59D 7C 00 54 |.T inc 0054 +A5A0 20 DE . bra de +A5A2 F6 00 61 ..a ldab 0061 +A5A5 F7 0B BF ... stab 0bbf +A5A8 BD A3 6C ..l jsr a36c ;jump81 +A5AB 39 9 rts + +jump138: +A5AC 7F 00 54 ..T clr 0054 +A5AF F6 00 54 ..T ldab 0054 +A5B2 C1 10 .. cmpb #10 +A5B4 24 1B $. bcc 1b +A5B6 F6 00 54 ..T ldab 0054 +A5B9 4F O clra +A5BA C3 0A 90 ... addd #0a90 +A5BD 8F . xgdx +A5BE E6 00 .. ldab 00,x +A5C0 37 7 pshb +A5C1 F6 00 54 ..T ldab 0054 +A5C4 4F O clra +A5C5 C3 0C B9 ... addd #0cb9 +A5C8 8F . xgdx +A5C9 33 3 pulb +A5CA E7 00 .. stab 00,x +A5CC 7C 00 54 |.T inc 0054 +A5CF 20 DE . bra de +A5D1 BD A3 6C ..l jsr a36c ;jump81 +A5D4 39 9 rts + +jump137: +A5D5 7F 00 54 ..T clr 0054 +A5D8 F6 00 54 ..T ldab 0054 +A5DB C1 10 .. cmpb #10 +A5DD 24 1B $. bcc 1b +A5DF F6 00 54 ..T ldab 0054 +A5E2 4F O clra +A5E3 C3 0A 90 ... addd #0a90 +A5E6 8F . xgdx +A5E7 E6 00 .. ldab 00,x +A5E9 37 7 pshb +A5EA F6 00 54 ..T ldab 0054 +A5ED 4F O clra +A5EE C3 0C C9 ... addd #0cc9 +A5F1 8F . xgdx +A5F2 33 3 pulb +A5F3 E7 00 .. stab 00,x +A5F5 7C 00 54 |.T inc 0054 +A5F8 20 DE . bra de +A5FA BD A3 6C ..l jsr a36c ;jump81 +A5FD 39 9 rts + +jump136: +A5FE 7F 00 54 ..T clr 0054 +A601 F6 00 54 ..T ldab 0054 +A604 C1 05 .. cmpb #05 +A606 24 1B $. bcc 1b +A608 F6 00 54 ..T ldab 0054 +A60B 4F O clra +A60C C3 00 62 ..b addd #0062 +A60F 8F . xgdx +A610 E6 00 .. ldab 00,x +A612 37 7 pshb +A613 F6 00 54 ..T ldab 0054 +A616 4F O clra +A617 C3 0B A4 ... addd #0ba4 +A61A 8F . xgdx +A61B 33 3 pulb +A61C E7 00 .. stab 00,x +A61E 7C 00 54 |.T inc 0054 +A621 20 DE . bra de +A623 7F 00 54 ..T clr 0054 +A626 F6 00 54 ..T ldab 0054 +A629 C1 0B .. cmpb #0b +A62B 24 1B $. bcc 1b +A62D F6 00 54 ..T ldab 0054 +A630 4F O clra +A631 C3 00 68 ..h addd #0068 +A634 8F . xgdx +A635 E6 00 .. ldab 00,x +A637 37 7 pshb +A638 F6 00 54 ..T ldab 0054 +A63B 4F O clra +A63C C3 0B E4 ... addd #0be4 +A63F 8F . xgdx +A640 33 3 pulb +A641 E7 00 .. stab 00,x +A643 7C 00 54 |.T inc 0054 +A646 20 DE . bra de +A648 8D 04 .. bsr dest 04 +A64A BD A3 6C ..l jsr a36c ;jump81 +A64D 39 9 rts + +jump135: +A64E BD AB 0C ... jsr ab0c ;jump126 +A651 C6 20 . ldab #20 +A653 F7 0B A3 ... stab 0ba3 +A656 C6 20 . ldab #20 +A658 F7 0B 9A ... stab 0b9a +A65B C6 01 .. ldab #01 +A65D F7 00 54 ..T stab 0054 +goto21: +A660 F6 00 54 ..T ldab 0054 +A663 C1 09 .. cmpb #09 +A665 25 03 %. bcs 03 +A667 7E A7 1E ~.. jmp a71e ;goto20 +A66A F6 00 54 ..T ldab 0054 +A66D 4F O clra +A66E BD FE 16 ... jsr fe16 ;jump2 +A671 00 . test +A672 01 . nop +A673 00 . test +A674 07 . tpa +A675 A6 ED .. ldaa ed,x +A677 A6 87 .. ldaa 87,x +A679 A6 95 .. ldaa 95,x +A67B A6 A1 .. ldaa a1,x +A67D A6 AF .. ldaa af,x +A67F A6 BB .. ldaa bb,x +A681 A6 C9 .. ldaa c9,x +A683 A6 D5 .. ldaa d5,x +A685 A6 E3 .. ldaa e3,x +A687 F6 00 62 ..b ldab 0062 +A68A 54 T lsrb +A68B 54 T lsrb +A68C 54 T lsrb +A68D 54 T lsrb +A68E C8 04 .. eorb #04 +A690 F7 00 5F .._ stab 005f +A693 20 58 X bra 58 +A695 F6 00 62 ..b ldab 0062 +A698 C4 0F .. andb #0f +A69A C8 0D .. eorb #0d +A69C F7 00 5F .._ stab 005f +A69F 20 4C L bra 4c +A6A1 F6 00 63 ..c ldab 0063 +A6A4 54 T lsrb +A6A5 54 T lsrb +A6A6 54 T lsrb +A6A7 54 T lsrb +A6A8 C8 04 .. eorb #04 +A6AA F7 00 5F .._ stab 005f +A6AD 20 3E > bra 3e +A6AF F6 00 63 ..c ldab 0063 +A6B2 C4 0F .. andb #0f +A6B4 C8 05 .. eorb #05 +A6B6 F7 00 5F .._ stab 005f +A6B9 20 32 2 bra 32 +A6BB F6 00 64 ..d ldab 0064 +A6BE 54 T lsrb +A6BF 54 T lsrb +A6C0 54 T lsrb +A6C1 54 T lsrb +A6C2 C8 05 .. eorb #05 +A6C4 F7 00 5F .._ stab 005f +A6C7 20 24 $ bra 24 +A6C9 F6 00 64 ..d ldab 0064 +A6CC C4 0F .. andb #0f +A6CE C8 04 .. eorb #04 +A6D0 F7 00 5F .._ stab 005f +A6D3 20 18 . bra 18 +A6D5 F6 00 65 ..e ldab 0065 +A6D8 54 T lsrb +A6D9 54 T lsrb +A6DA 54 T lsrb +A6DB 54 T lsrb +A6DC C8 05 .. eorb #05 +A6DE F7 00 5F .._ stab 005f +A6E1 20 0A . bra 0a +A6E3 F6 00 65 ..e ldab 0065 +A6E6 C4 0F .. andb #0f +A6E8 C8 03 .. eorb #03 +A6EA F7 00 5F .._ stab 005f +A6ED F6 00 5F .._ ldab 005f +A6F0 C1 09 .. cmpb #09 +A6F2 23 13 #. bls 13 +A6F4 F6 00 5F .._ ldab 005f +A6F7 CB 37 .7 addb #37 +A6F9 37 7 pshb +A6FA F6 00 54 ..T ldab 0054 +A6FD 4F O clra +A6FE C3 0B 9A ... addd #0b9a +A701 8F . xgdx +A702 33 3 pulb +A703 E7 00 .. stab 00,x +A705 20 11 . bra 11 +A707 F6 00 5F .._ ldab 005f +A70A CB 30 .0 addb #30 +A70C 37 7 pshb +A70D F6 00 54 ..T ldab 0054 +A710 4F O clra +A711 C3 0B 9A ... addd #0b9a +A714 8F . xgdx +A715 33 3 pulb +A716 E7 00 .. stab 00,x +A718 7C 00 54 |.T inc 0054 +A71B 7E A6 60 ~.` jmp a660 ;goto21 +goto20: +A71E 39 9 rts + +jump134: +A71F F6 00 48 ..H ldab 0048 +A722 26 11 &. bne 11 +A724 F6 00 66 ..f ldab 0066 +A727 26 07 &. bne 07 +A729 C6 01 .. ldab #01 +A72B F7 00 66 ..f stab 0066 +A72E 20 03 . bra 03 +A730 7F 00 66 ..f clr 0066 +A733 20 29 ) bra 29 +A735 F6 00 48 ..H ldab 0048 +A738 4F O clra +A739 C3 00 68 ..h addd #0068 +A73C 8F . xgdx +A73D E6 00 .. ldab 00,x +A73F 26 10 &. bne 10 +A741 C6 01 .. ldab #01 +A743 37 7 pshb +A744 F6 00 48 ..H ldab 0048 +A747 4F O clra +A748 C3 00 68 ..h addd #0068 +A74B 8F . xgdx +A74C 33 3 pulb +A74D E7 00 .. stab 00,x +A74F 20 0D . bra 0d +A751 5F _ clrb +A752 37 7 pshb +A753 F6 00 48 ..H ldab 0048 +A756 4F O clra +A757 C3 00 68 ..h addd #0068 +A75A 8F . xgdx +A75B 33 3 pulb +A75C E7 00 .. stab 00,x +A75E 39 9 rts + +jump133: +A75F F6 00 48 ..H ldab 0048 +A762 4F O clra +A763 BD FE 16 ... jsr fe16 ;jump2 +A766 00 . test +A767 00 . test +A768 00 . test +A769 09 . dex +A76A A7 DC .. staa dc,x +A76C A7 80 .. staa 80,x +A76E A7 87 .. staa 87,x +A770 A7 8E .. staa 8e,x +A772 A7 95 .. staa 95,x +A774 A7 9C .. staa 9c,x +A776 A7 A3 .. staa a3,x +A778 A7 AA .. staa aa,x +A77A A7 B1 .. staa b1,x +A77C A7 C4 .. staa c4,x +A77E A7 D7 .. staa d7,x +A780 C6 02 .. ldab #02 +A782 F7 00 02 ... stab 0002 +A785 20 55 U bra 55 +A787 C6 10 .. ldab #10 +A789 F7 00 02 ... stab 0002 +A78C 20 4E N bra 4e +A78E C6 20 . ldab #20 +A790 F7 00 02 ... stab 0002 +A793 20 47 G bra 47 +A795 C6 01 .. ldab #01 +A797 F7 00 02 ... stab 0002 +A79A 20 40 @ bra 40 +A79C C6 04 .. ldab #04 +A79E F7 00 02 ... stab 0002 +A7A1 20 39 9 bra 39 +A7A3 C6 08 .. ldab #08 +A7A5 F7 00 02 ... stab 0002 +A7A8 20 32 2 bra 32 +A7AA C6 40 .@ ldab #40 +A7AC F7 00 02 ... stab 0002 +A7AF 20 2B + bra 2b +A7B1 F6 0E 70 ..p ldab 0e70 +A7B4 C1 01 .. cmpb #01 +A7B6 26 05 &. bne 05 +A7B8 7F 0E 70 ..p clr 0e70 +A7BB 20 05 . bra 05 +A7BD C6 01 .. ldab #01 +A7BF F7 0E 70 ..p stab 0e70 +A7C2 20 18 . bra 18 +A7C4 F6 0E 6F ..o ldab 0e6f +A7C7 C1 01 .. cmpb #01 +A7C9 26 05 &. bne 05 +A7CB 7F 0E 6F ..o clr 0e6f +A7CE 20 05 . bra 05 +A7D0 C6 01 .. ldab #01 +A7D2 F7 0E 6F ..o stab 0e6f +A7D5 20 05 . bra 05 +A7D7 C6 80 .. ldab #80 +A7D9 F7 00 02 ... stab 0002 +A7DC F6 00 48 ..H ldab 0048 +A7DF C1 0A .. cmpb #0a +A7E1 24 2B $+ bcc 2b +A7E3 F6 00 48 ..H ldab 0048 +A7E6 C1 07 .. cmpb #07 +A7E8 27 24 '$ beq 24 +A7EA F6 00 48 ..H ldab 0048 +A7ED C1 08 .. cmpb #08 +A7EF 27 1D '. beq 1d +A7F1 F6 00 67 ..g ldab 0067 +A7F4 F4 00 02 ... andb 0002 +A7F7 26 0B &. bne 0b +A7F9 F6 00 02 ... ldab 0002 +A7FC FA 00 67 ..g orb 0067 +A7FF F7 00 67 ..g stab 0067 +A802 20 0A . bra 0a +A804 F6 00 02 ... ldab 0002 +A807 53 S comb +A808 F4 00 67 ..g andb 0067 +A80B F7 00 67 ..g stab 0067 +A80E 39 9 rts + +A80F 7F 00 54 ..T clr 0054 +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 ;msdelay +A81F F6 0B 93 ... ldab 0b93 +A822 F7 00 5F .._ stab 005f +A825 F6 0B 94 ... ldab 0b94 +A828 F7 00 5E ..^ stab 005e +A82B F6 0B 95 ... ldab 0b95 +A82E F7 00 5D ..] stab 005d +A831 F6 0B 96 ... ldab 0b96 +A834 F7 00 5A ..Z stab 005a +A837 BD BE 4B ..K jsr be4b ;displayblank +A83A BD BE 01 ... jsr be01 ;jump70 +A83D CC 01 F4 ... ldd #01f4 +A840 BD E5 71 ..q jsr e571 ;msdelay +A843 F6 00 5F .._ ldab 005f +A846 F7 0B 93 ... stab 0b93 +A849 F6 00 5E ..^ ldab 005e +A84C F7 0B 94 ... stab 0b94 +A84F F6 00 5D ..] ldab 005d +A852 F7 0B 95 ... stab 0b95 +A855 F6 00 5A ..Z ldab 005a +A858 F7 0B 96 ... stab 0b96 +A85B BD BE 01 ... jsr be01 ;jump70 +A85E 7C 00 54 |.T inc 0054 +A861 20 AF . bra af +A863 39 9 rts + +jump99: +A864 F6 00 09 ... ldab 0009 +A867 C1 01 .. cmpb #01 +A869 26 20 & bne 20 +A86B F6 00 61 ..a ldab 0061 +A86E 4F O clra +A86F C3 00 01 ... addd #0001 +A872 37 7 pshb +A873 36 6 psha +A874 F6 00 60 ..` ldab 0060 +A877 4F O clra +A878 30 0 tsx +A879 A3 00 .. subd 00,x +A87B 31 1 ins +A87C 31 1 ins +A87D 2C 0A ,. bge 0a +A87F F6 00 60 ..` ldab 0060 +A882 C1 F9 .. cmpb #f9 +A884 24 03 $. bcc 03 +A886 7C 00 60 |.` inc 0060 +A889 20 0A . bra 0a +A88B F6 00 60 ..` ldab 0060 +A88E C1 09 .. cmpb #09 +A890 24 03 $. bcc 03 +A892 7C 00 60 |.` inc 0060 +A895 39 9 rts + +jump98: +A896 F6 00 36 ..6 ldab 0036 +A899 26 39 &9 bne 39 +A89B F6 00 54 ..T ldab 0054 +A89E C1 27 .' cmpb #27 +A8A0 24 20 $ bcc 20 +A8A2 7C 00 54 |.T inc 0054 +A8A5 F6 00 09 ... ldab 0009 +A8A8 C1 01 .. cmpb #01 +A8AA 26 0C &. bne 0c +A8AC F6 00 54 ..T ldab 0054 +A8AF C1 27 .' cmpb #27 +A8B1 26 03 &. bne 03 +A8B3 7F 00 54 ..T clr 0054 +A8B6 20 0A . bra 0a +A8B8 F6 00 54 ..T ldab 0054 +A8BB C1 24 .$ cmpb #24 +A8BD 26 03 &. bne 03 +A8BF 7F 00 54 ..T clr 0054 +A8C2 F6 00 54 ..T ldab 0054 +A8C5 4F O clra +A8C6 C3 B4 8F ... addd #b48f +A8C9 8F . xgdx +A8CA E6 00 .. ldab 00,x +A8CC F7 0B 90 ... stab 0b90 +A8CF C6 02 .. ldab #02 +A8D1 F7 00 36 ..6 stab 0036 +A8D4 39 9 rts + +jump97: +A8D5 F6 00 60 ..` ldab 0060 +A8D8 C1 00 .. cmpb #00 +A8DA 23 05 #. bls 05 +A8DC 7A 00 60 z.` dec 0060 +A8DF 20 03 . bra 03 +A8E1 7F 00 60 ..` clr 0060 +A8E4 39 9 rts + +jump96: +A8E5 F6 00 36 ..6 ldab 0036 +A8E8 26 36 &6 bne 36 +A8EA F6 00 54 ..T ldab 0054 +A8ED C1 00 .. cmpb #00 +A8EF 25 1D %. bcs 1d +A8F1 F6 00 54 ..T ldab 0054 +A8F4 26 15 &. bne 15 +A8F6 F6 00 09 ... ldab 0009 +A8F9 C1 01 .. cmpb #01 +A8FB 26 07 &. bne 07 +A8FD C6 26 .& ldab #26 +A8FF F7 00 54 ..T stab 0054 +A902 20 05 . bra 05 +A904 C6 23 .# ldab #23 +A906 F7 00 54 ..T stab 0054 +A909 20 03 . bra 03 +A90B 7A 00 54 z.T dec 0054 +A90E F6 00 54 ..T ldab 0054 +A911 4F O clra +A912 C3 B4 8F ... addd #b48f +A915 8F . xgdx +A916 E6 00 .. ldab 00,x +A918 F7 0B 90 ... stab 0b90 +A91B C6 02 .. ldab #02 +A91D F7 00 36 ..6 stab 0036 +A920 39 9 rts + +jump95: +A921 F6 0B 90 ... ldab 0b90 +A924 F7 0B 96 ... stab 0b96 +A927 F6 0B 96 ... ldab 0b96 +A92A 37 7 pshb +A92B F6 00 60 ..` ldab 0060 +A92E 4F O clra +A92F C3 0A 93 ... addd #0a93 +A932 8F . xgdx +A933 33 3 pulb +A934 E7 00 .. stab 00,x +A936 F6 00 09 ... ldab 0009 +A939 C1 01 .. cmpb #01 +A93B 26 32 &2 bne 32 +A93D F6 00 61 ..a ldab 0061 +A940 4F O clra +A941 C3 00 01 ... addd #0001 +A944 37 7 pshb +A945 36 6 psha +A946 F6 00 60 ..` ldab 0060 +A949 4F O clra +A94A 30 0 tsx +A94B A3 00 .. subd 00,x +A94D 31 1 ins +A94E 31 1 ins +A94F 26 0A &. bne 0a +A951 F6 00 60 ..` ldab 0060 +A954 C1 FA .. cmpb #fa +A956 24 03 $. bcc 03 +A958 7C 00 61 |.a inc 0061 +A95B F6 00 60 ..` ldab 0060 +A95E F1 00 61 ..a cmpb 0061 +A961 22 0A ". bhi 0a +A963 F6 00 60 ..` ldab 0060 +A966 C1 F9 .. cmpb #f9 +A968 24 03 $. bcc 03 +A96A 7C 00 60 |.` inc 0060 +A96D 20 0A . bra 0a +A96F F6 00 60 ..` ldab 0060 +A972 C1 09 .. cmpb #09 +A974 24 03 $. bcc 03 +A976 7C 00 60 |.` inc 0060 +A979 39 9 rts + +jump132: +A97A F6 00 60 ..` ldab 0060 +A97D 26 24 &$ bne 24 +A97F F6 00 60 ..` ldab 0060 +A982 CB 03 .. addb #03 +A984 F7 00 54 ..T stab 0054 +A987 F6 00 54 ..T ldab 0054 +A98A C1 FF .. cmpb #ff +A98C 24 13 $. bcc 13 +A98E C6 20 . ldab #20 +A990 37 7 pshb +A991 F6 00 54 ..T ldab 0054 +A994 4F O clra +A995 C3 0A 90 ... addd #0a90 +A998 8F . xgdx +A999 33 3 pulb +A99A E7 00 .. stab 00,x +A99C 7C 00 54 |.T inc 0054 +A99F 20 E6 . bra e6 +A9A1 20 22 " bra 22 +A9A3 F6 00 60 ..` ldab 0060 +A9A6 CB 04 .. addb #04 +A9A8 F7 00 54 ..T stab 0054 +A9AB F6 00 54 ..T ldab 0054 +A9AE C1 FF .. cmpb #ff +A9B0 24 13 $. bcc 13 +A9B2 C6 20 . ldab #20 +A9B4 37 7 pshb +A9B5 F6 00 54 ..T ldab 0054 +A9B8 4F O clra +A9B9 C3 0A 90 ... addd #0a90 +A9BC 8F . xgdx +A9BD 33 3 pulb +A9BE E7 00 .. stab 00,x +A9C0 7C 00 54 |.T inc 0054 +A9C3 20 E6 . bra e6 +A9C5 F6 00 60 ..` ldab 0060 +A9C8 F7 00 61 ..a stab 0061 +A9CB 7F 00 54 ..T clr 0054 +A9CE 39 9 rts + +jump131: +A9CF C6 50 .P ldab #50 +A9D1 F7 09 90 ... stab 0990 +A9D4 C6 29 .) ldab #29 +A9D6 F7 09 91 ... stab 0991 +A9D9 C6 20 . ldab #20 +A9DB F7 09 92 ... stab 0992 +A9DE 7F 00 54 ..T clr 0054 +A9E1 F6 00 54 ..T ldab 0054 +A9E4 C1 FF .. cmpb #ff +A9E6 24 1B $. bcc 1b +A9E8 F6 00 54 ..T ldab 0054 +A9EB 4F O clra +A9EC C3 09 90 ... addd #0990 +A9EF 8F . xgdx +A9F0 E6 00 .. ldab 00,x +A9F2 37 7 pshb +A9F3 F6 00 54 ..T ldab 0054 +A9F6 4F O clra +A9F7 C3 0A 90 ... addd #0a90 +A9FA 8F . xgdx +A9FB 33 3 pulb +A9FC E7 00 .. stab 00,x +A9FE 7C 00 54 |.T inc 0054 +AA01 20 DE . bra de +AA03 F6 0B BF ... ldab 0bbf +AA06 F7 00 61 ..a stab 0061 +AA09 39 9 rts + +jump130: +AA0A C6 53 .S ldab #53 +AA0C F7 0C B9 ... stab 0cb9 +AA0F C6 29 .) ldab #29 +AA11 F7 0C BA ... stab 0cba +AA14 C6 20 . ldab #20 +AA16 F7 0C BB ... stab 0cbb +AA19 7F 00 54 ..T clr 0054 +AA1C F6 00 54 ..T ldab 0054 +AA1F C1 10 .. cmpb #10 +AA21 24 1B $. bcc 1b +AA23 F6 00 54 ..T ldab 0054 +AA26 4F O clra +AA27 C3 0C B9 ... addd #0cb9 +AA2A 8F . xgdx +AA2B E6 00 .. ldab 00,x +AA2D 37 7 pshb +AA2E F6 00 54 ..T ldab 0054 +AA31 4F O clra +AA32 C3 0A 90 ... addd #0a90 +AA35 8F . xgdx +AA36 33 3 pulb +AA37 E7 00 .. stab 00,x +AA39 7C 00 54 |.T inc 0054 +AA3C 20 DE . bra de +AA3E 39 9 rts + +jump129: +AA3F C6 49 .I ldab #49 +AA41 F7 0C C9 ... stab 0cc9 +AA44 C6 29 .) ldab #29 +AA46 F7 0C CA ... stab 0cca +AA49 C6 20 . ldab #20 +AA4B F7 0C CB ... stab 0ccb +AA4E 7F 00 54 ..T clr 0054 +AA51 F6 00 54 ..T ldab 0054 +AA54 C1 10 .. cmpb #10 +AA56 24 1B $. bcc 1b +AA58 F6 00 54 ..T ldab 0054 +AA5B 4F O clra +AA5C C3 0C C9 ... addd #0cc9 +AA5F 8F . xgdx +AA60 E6 00 .. ldab 00,x +AA62 37 7 pshb +AA63 F6 00 54 ..T ldab 0054 +AA66 4F O clra +AA67 C3 0A 90 ... addd #0a90 +AA6A 8F . xgdx +AA6B 33 3 pulb +AA6C E7 00 .. stab 00,x +AA6E 7C 00 54 |.T inc 0054 +AA71 20 DE . bra de +AA73 39 9 rts + +jump128: +AA74 7F 00 54 ..T clr 0054 +AA77 F6 00 54 ..T ldab 0054 +AA7A C1 0B .. cmpb #0b +AA7C 24 1B $. bcc 1b +AA7E F6 00 54 ..T ldab 0054 +AA81 4F O clra +AA82 C3 0B E4 ... addd #0be4 +AA85 8F . xgdx +AA86 E6 00 .. ldab 00,x +AA88 37 7 pshb +AA89 F6 00 54 ..T ldab 0054 +AA8C 4F O clra +AA8D C3 00 68 ..h addd #0068 +AA90 8F . xgdx +AA91 33 3 pulb +AA92 E7 00 .. stab 00,x +AA94 7C 00 54 |.T inc 0054 +AA97 20 DE . bra de +AA99 39 9 rts + +jump127: +AA9A F6 00 22 .." ldab 0022 +AA9D C1 06 .. cmpb #06 +AA9F 24 0F $. bcc 0f +AAA1 7C 00 22 |." inc 0022 +AAA4 F6 00 22 .." ldab 0022 +AAA7 C1 05 .. cmpb #05 +AAA9 23 05 #. bls 05 +AAAB C6 01 .. ldab #01 +AAAD F7 00 22 .." stab 0022 +AAB0 F6 00 22 .." ldab 0022 +AAB3 4F O clra +AAB4 BD FE 16 ... jsr fe16 ;jump2 +AAB7 00 . test +AAB8 01 . nop +AAB9 00 . test +AABA 04 . lsrd +AABB AB 0B .. adda 0b,x +AABD AA C7 .. ora c7,x +AABF AA D5 .. ora d5,x +AAC1 AA E3 .. ora e3,x +AAC3 AA F1 .. ora f1,x +AAC5 AA FF .. ora ff,x +AAC7 F6 0B AF ... ldab 0baf +AACA F7 00 24 ..$ stab 0024 +AACD F6 0B B4 ... ldab 0bb4 +AAD0 F7 00 2A ..* stab 002a +AAD3 20 36 6 bra 36 +AAD5 F6 0B AE ... ldab 0bae +AAD8 F7 00 24 ..$ stab 0024 +AADB F6 0B B3 ... ldab 0bb3 +AADE F7 00 2A ..* stab 002a +AAE1 20 28 ( bra 28 +AAE3 F6 0B AD ... ldab 0bad +AAE6 F7 00 24 ..$ stab 0024 +AAE9 F6 0B B2 ... ldab 0bb2 +AAEC F7 00 2A ..* stab 002a +AAEF 20 1A . bra 1a +AAF1 F6 0B AC ... ldab 0bac +AAF4 F7 00 24 ..$ stab 0024 +AAF7 F6 0B B1 ... ldab 0bb1 +AAFA F7 00 2A ..* stab 002a +AAFD 20 0C . bra 0c +AAFF F6 0B AB ... ldab 0bab +AB02 F7 00 24 ..$ stab 0024 +AB05 F6 0B B0 ... ldab 0bb0 +AB08 F7 00 2A ..* stab 002a +AB0B 39 9 rts + +jump126: +AB0C C6 03 .. ldab #03 +AB0E F7 00 18 ... stab 0018 +AB11 7F 00 1C ... clr 001c +AB14 F6 00 1C ... ldab 001c +AB17 C1 04 .. cmpb #04 +AB19 24 6D $m bcc 6d +AB1B C6 07 .. ldab #07 +AB1D F7 00 55 ..U stab 0055 +AB20 7F 00 54 ..T clr 0054 +AB23 F6 00 54 ..T ldab 0054 +AB26 C1 08 .. cmpb #08 +AB28 24 56 $V bcc 56 +AB2A F6 00 1C ... ldab 001c +AB2D 4F O clra +AB2E C3 0B A4 ... addd #0ba4 +AB31 8F . xgdx +AB32 E6 00 .. ldab 00,x +AB34 37 7 pshb +AB35 F6 00 54 ..T ldab 0054 +AB38 4F O clra +AB39 C3 B4 B7 ... addd #b4b7 +AB3C 8F . xgdx +AB3D E6 00 .. ldab 00,x +AB3F 30 0 tsx +AB40 E4 00 .. andb 00,x +AB42 31 1 ins +AB43 27 1A '. beq 1a +AB45 F6 00 55 ..U ldab 0055 +AB48 4F O clra +AB49 C3 B4 B7 ... addd #b4b7 +AB4C 8F . xgdx +AB4D E6 00 .. ldab 00,x +AB4F 37 7 pshb +AB50 F6 00 18 ... ldab 0018 +AB53 4F O clra +AB54 C3 00 62 ..b addd #0062 +AB57 8F . xgdx +AB58 33 3 pulb +AB59 EA 00 .. orb 00,x +AB5B E7 00 .. stab 00,x +AB5D 20 19 . bra 19 +AB5F F6 00 55 ..U ldab 0055 +AB62 4F O clra +AB63 C3 B4 B7 ... addd #b4b7 +AB66 8F . xgdx +AB67 E6 00 .. ldab 00,x +AB69 53 S comb +AB6A 37 7 pshb +AB6B F6 00 18 ... ldab 0018 +AB6E 4F O clra +AB6F C3 00 62 ..b addd #0062 +AB72 8F . xgdx +AB73 33 3 pulb +AB74 E4 00 .. andb 00,x +AB76 E7 00 .. stab 00,x +AB78 7A 00 55 z.U dec 0055 +AB7B 7C 00 54 |.T inc 0054 +AB7E 20 A3 . bra a3 +AB80 7A 00 18 z.. dec 0018 +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 ;msdelay +AB95 BD D4 79 ..y jsr d479 ;jump67 +AB98 BD E8 9A ... jsr e89a ;jump68 +AB9B BD E9 EA ... jsr e9ea ;jump113 +AB9E 7F 0B C1 ... clr 0bc1 +ABA1 39 9 rts + +jump8: +ABA2 7F 00 05 ... clr 0005 +goto24: +ABA5 F6 00 05 ... ldab 0005 +ABA8 C1 64 .d cmpb #64 +ABAA 25 03 %. bcs 03 +ABAC 7E AC 81 ~.. jmp ac81 ;goto22 +ABAF F6 00 05 ... ldab 0005 +ABB2 F7 00 06 ... stab 0006 +ABB5 F6 00 05 ... ldab 0005 +ABB8 4F O clra +ABB9 CE 00 05 ... ldx #0005 +ABBC 02 . idiv +ABBD 5D ] tstb +ABBE 26 03 &. bne 03 +ABC0 7E AC 7B ~.{ jmp ac7b ;goto23 +ABC3 F6 00 06 ... ldab 0006 +ABC6 BD D7 A0 ... jsr d7a0 ;jump10 +ABC9 83 00 00 ... subd #0000 +ABCC 27 03 '. beq 03 +ABCE 7E AC 7B ~.{ jmp ac7b ;goto23 +ABD1 BD D3 11 ... jsr d311 ;jump30 +ABD4 83 00 00 ... subd #0000 +ABD7 27 2B '+ beq 2b +ABD9 F6 00 05 ... ldab 0005 +ABDC 4F O clra +ABDD 05 . asld +ABDE C3 08 00 ... addd #0800 +ABE1 8F . xgdx +ABE2 EC 00 .. ldd 00,x +ABE4 C4 FF .. andb #ff +ABE6 84 3F .? anda #3f +ABE8 83 27 10 .'. subd #2710 ; 10000 +ABEB 24 15 $. bcc 15 +ABED CC 01 00 ... ldd #0100 +ABF0 37 7 pshb +ABF1 36 6 psha +ABF2 F6 00 05 ... ldab 0005 +ABF5 4F O clra +ABF6 05 . asld +ABF7 C3 08 C8 ... addd #08c8 +ABFA 38 8 pulx +ABFB 8F . xgdx +ABFC AA 00 .. ora 00,x +ABFE EA 01 .. orb 01,x +AC00 ED 00 .. std 00,x +AC02 20 29 ) bra 29 +AC04 F6 00 05 ... ldab 0005 +AC07 4F O clra +AC08 05 . asld +AC09 C3 08 00 ... addd #0800 +AC0C 8F . xgdx +AC0D EC 00 .. ldd 00,x +AC0F C4 FF .. andb #ff +AC11 84 3F .? anda #3f +AC13 83 27 0F .'. subd #270f +AC16 23 15 #. bls 15 +AC18 CC 01 00 ... ldd #0100 +AC1B 37 7 pshb +AC1C 36 6 psha +AC1D F6 00 05 ... ldab 0005 +AC20 4F O clra +AC21 05 . asld +AC22 C3 08 C8 ... addd #08c8 +AC25 38 8 pulx +AC26 8F . xgdx +AC27 AA 00 .. ora 00,x +AC29 EA 01 .. orb 01,x +AC2B ED 00 .. std 00,x +AC2D F6 00 05 ... ldab 0005 +AC30 4F O clra +AC31 05 . asld +AC32 C3 08 C8 ... addd #08c8 +AC35 8F . xgdx +AC36 EC 00 .. ldd 00,x +AC38 84 01 .. anda #01 +AC3A 27 06 '. beq 06 +AC3C CE 00 19 ... ldx #0019 +AC3F 1C 00 04 ... bset 00,x, #04 +AC42 F6 00 05 ... ldab 0005 +AC45 4F O clra +AC46 05 . asld +AC47 C3 08 00 ... addd #0800 +AC4A 8F . xgdx +AC4B EC 00 .. ldd 00,x +AC4D 84 80 .. anda #80 +AC4F 27 2A '* beq 2a +AC51 F6 00 05 ... ldab 0005 +AC54 4F O clra +AC55 05 . asld +AC56 C3 08 C8 ... addd #08c8 +AC59 8F . xgdx +AC5A EC 00 .. ldd 00,x +AC5C 84 02 .. anda #02 +AC5E 27 06 '. beq 06 +AC60 CE 00 19 ... ldx #0019 +AC63 1C 00 01 ... bset 00,x, #01 +AC66 F6 00 05 ... ldab 0005 +AC69 4F O clra +AC6A 05 . asld +AC6B C3 08 C8 ... addd #08c8 +AC6E 8F . xgdx +AC6F EC 00 .. ldd 00,x +AC71 84 04 .. anda #04 +AC73 27 06 '. beq 06 +AC75 CE 00 19 ... ldx #0019 +AC78 1C 00 02 ... bset 00,x, #02 +goto23: +AC7B 7C 00 05 |.. inc 0005 +AC7E 7E AB A5 ~.. jmp aba5 ;goto24 +goto22: +AC81 F6 00 19 ... ldab 0019 +AC84 C4 07 .. andb #07 +AC86 26 0A &. bne 0a +AC88 F6 0B C1 ... ldab 0bc1 +AC8B C4 7F .. andb #7f +AC8D 26 03 &. bne 03 +AC8F 5F _ clrb +AC90 20 02 . bra 02 +AC92 C6 01 .. ldab #01 +AC94 5D ] tstb +AC95 26 05 &. bne 05 +AC97 C6 0D .. ldab #0d +AC99 F7 00 48 ..H stab 0048 +AC9C 39 9 rts + +; keypad map +AC9D 08 . inx +AC9E 07 . tpa +AC9F 06 . tap +ACA0 05 . asld +ACA1 04 . lsrd +ACA2 03 . fdiv +ACA3 02 . idiv +ACA4 01 . nop +ACA5 0B . sev +ACA6 0A . clv +ACA7 09 . dex + +ACA8 20 20 bra 20 +ACAA 50 P negb +ACAB 52 R illegal +ACAC 49 I rola +ACAD 43 C coma +ACAE 45 E illegal +ACAF 20 20 bra 20 +ACB1 20 00 . bra 00 +ACB3 20 20 bra 20 +ACB5 20 50 P bra 50 +ACB7 52 R illegal +ACB8 49 I rola +ACB9 58 X aslb +ACBA 20 20 bra 20 +ACBC 20 00 . bra 00 +ACBE 20 20 bra 20 +ACC0 50 P negb +ACC1 52 R illegal +ACC2 45 E illegal +ACC3 49 I rola +ACC4 53 S comb +ACC5 20 20 bra 20 +ACC7 20 00 . bra 00 +ACC9 20 20 bra 20 +ACCB 50 P negb +ACCC 52 R illegal +ACCD 45 E illegal +ACCE 43 C coma +ACCF 49 I rola +ACD0 4F O clra +ACD1 20 20 bra 20 +ACD3 00 . test +ACD4 20 20 bra 20 +ACD6 43 C coma +ACD7 48 H asla +ACD8 41 A illegal +ACD9 4E N illegal +ACDA 47 G asra +ACDB 45 E illegal +ACDC 20 20 bra 20 +ACDE 00 . test +ACDF 20 20 bra 20 +ACE1 43 C coma +ACE2 41 A illegal +ACE3 4D M tsta +ACE4 42 B illegal +ACE5 49 I rola +ACE6 4F O clra +ACE7 20 20 bra 20 +ACE9 00 . test +ACEA 20 4D M bra 4d +ACEC 4F O clra +ACED 4E N illegal +ACEE 4E N illegal +ACEF 41 A illegal +ACF0 49 I rola +ACF1 45 E illegal +ACF2 20 20 bra 20 +ACF4 00 . test +ACF5 20 20 bra 20 +ACF7 54 T lsrb +ACF8 48 H asla +ACF9 41 A illegal +ACFA 4E N illegal +ACFB 4B K illegal +ACFC 53 S comb +ACFD 20 20 bra 20 +ACFF 00 . test +AD00 20 20 bra 20 +AD02 4D M tsta +AD03 45 E illegal +AD04 52 R illegal +AD05 43 C coma +AD06 49 I rola +AD07 20 20 bra 20 +AD09 20 00 . bra 00 +AD0B 20 20 bra 20 +AD0D 44 D lsra +AD0E 41 A illegal +AD0F 4E N illegal +AD10 4B K illegal +AD11 45 E illegal +AD12 20 20 bra 20 +AD14 20 00 . bra 00 +AD16 20 20 bra 20 +AD18 47 G asra +AD19 52 R illegal +AD1A 41 A illegal +AD1B 43 C coma +AD1C 49 I rola +AD1D 41 A illegal +AD1E 53 S comb +AD1F 20 00 . bra 00 +AD21 20 20 bra 20 +AD23 53 S comb +AD24 45 E illegal +AD25 4C L inca +AD26 45 E illegal +AD27 43 C coma +AD28 54 T lsrb +AD29 20 20 bra 20 +AD2B 00 . test +AD2C 20 20 bra 20 +AD2E 4F O clra +AD2F 54 T lsrb +AD30 48 H asla +AD31 45 E illegal +AD32 52 R illegal +AD33 20 20 bra 20 +AD35 20 00 . bra 00 +AD37 20 20 bra 20 +AD39 20 49 I bra 49 +AD3B 54 T lsrb +AD3C 45 E illegal +AD3D 4D M tsta +AD3E 20 20 bra 20 +AD40 20 00 . bra 00 +AD42 20 20 bra 20 +AD44 46 F rora +AD45 41 A illegal +AD46 49 I rola +AD47 54 T lsrb +AD48 45 E illegal +AD49 53 S comb +AD4A 20 20 bra 20 +AD4C 00 . test +AD4D 20 20 bra 20 +AD4F 41 A illegal +AD50 55 U illegal +AD51 54 T lsrb +AD52 52 R illegal +AD53 45 E illegal +AD54 20 20 bra 20 +AD56 20 00 . bra 00 +AD58 20 20 bra 20 +AD5A 43 C coma +AD5B 48 H asla +AD5C 4F O clra +AD5D 49 I rola +AD5E 58 X aslb +AD5F 20 20 bra 20 +AD61 20 00 . bra 00 +AD63 20 20 bra 20 +AD65 42 B illegal +AD66 49 I rola +AD67 54 T lsrb +AD68 54 T lsrb +AD69 45 E illegal +AD6A 20 20 bra 20 +AD6C 20 00 . bra 00 +AD6E 20 20 bra 20 +AD70 41 A illegal +AD71 4E N illegal +AD72 44 D lsra +AD73 45 E illegal +AD74 52 R illegal +AD75 45 E illegal +AD76 20 20 bra 20 +AD78 00 . test +AD79 20 20 bra 20 +AD7B 20 57 W bra 57 +AD7D 41 A illegal +AD7E 48 H asla +AD7F 4C L inca +AD80 20 20 bra 20 +AD82 20 00 . bra 00 +AD84 20 20 bra 20 +AD86 50 P negb +AD87 55 U illegal +AD88 4C L inca +AD89 53 S comb +AD8A 45 E illegal +AD8B 20 20 bra 20 +AD8D 20 00 . bra 00 +AD8F 20 20 bra 20 +AD91 45 E illegal +AD92 58 X aslb +AD93 54 T lsrb +AD94 52 R illegal +AD95 41 A illegal +AD96 20 20 bra 20 +AD98 20 00 . bra 00 +AD9A 20 53 S bra 53 +AD9C 45 E illegal +AD9D 4C L inca +AD9E 45 E illegal +AD9F 43 C coma +ADA0 43 C coma +ADA1 49 I rola +ADA2 4F O clra +ADA3 4E N illegal +ADA4 00 . test +ADA5 20 45 E bra 45 +ADA7 58 X aslb +ADA8 41 A illegal +ADA9 43 C coma +ADAA 54 T lsrb +ADAB 20 43 C bra 43 +ADAD 4F O clra +ADAE 49 I rola +ADAF 4E N illegal +ADB0 53 S comb +ADB1 20 4F O bra 4f +ADB3 4E N illegal +ADB4 4C L inca +ADB5 59 Y rolb +ADB6 20 00 . bra 00 +ADB8 20 4D M bra 4d +ADBA 4F O clra +ADBB 4E N illegal +ADBC 4E N illegal +ADBD 41 A illegal +ADBE 49 I rola +ADBF 45 E illegal +ADC0 20 45 E bra 45 +ADC2 58 X aslb +ADC3 41 A illegal +ADC4 43 C coma +ADC5 54 T lsrb +ADC6 45 E illegal +ADC7 20 53 S bra 53 +ADC9 45 E illegal +ADCA 55 U illegal +ADCB 4C L inca +ADCC 45 E illegal +ADCD 4D M tsta +ADCE 45 E illegal +ADCF 4E N illegal +ADD0 54 T lsrb +ADD1 20 00 . bra 00 +ADD3 20 4E N bra 4e +ADD5 49 I rola +ADD6 43 C coma +ADD7 48 H asla +ADD8 54 T lsrb +ADD9 20 55 U bra 55 +ADDB 45 E illegal +ADDC 42 B illegal +ADDD 45 E illegal +ADDE 52 R illegal +ADDF 5A Z decb +ADE0 41 A illegal +ADE1 48 H asla +ADE2 4C L inca +ADE3 45 E illegal +ADE4 4E N illegal +ADE5 20 00 . bra 00 +ADE7 20 49 I bra 49 +ADE9 4E N illegal +ADEA 54 T lsrb +ADEB 52 R illegal +ADEC 4F O clra +ADED 44 D lsra +ADEE 55 U illegal +ADEF 5A Z decb +ADF0 43 C coma +ADF1 41 A illegal +ADF2 20 50 P bra 50 +ADF4 52 R illegal +ADF5 45 E illegal +ADF6 43 C coma +ADF7 49 I rola +ADF8 4F O clra +ADF9 20 45 E bra 45 +ADFB 58 X aslb +ADFC 41 A illegal +ADFD 43 C coma +ADFE 54 T lsrb +ADFF 4F O clra +AE00 20 00 . bra 00 +AE02 20 43 C bra 43 +AE04 4F O clra +AE05 49 I rola +AE06 4E N illegal +AE07 53 S comb +AE08 20 4F O bra 4f +AE0A 4E N illegal +AE0B 4C L inca +AE0C 59 Y rolb +AE0D 20 00 . bra 00 +AE0F 20 4D M bra 4d +AE11 4F O clra +AE12 4E N illegal +AE13 4E N illegal +AE14 41 A illegal +AE15 49 I rola +AE16 45 E illegal +AE17 20 53 S bra 53 +AE19 45 E illegal +AE1A 55 U illegal +AE1B 4C L inca +AE1C 45 E illegal +AE1D 4D M tsta +AE1E 45 E illegal +AE1F 4E N illegal +AE20 54 T lsrb +AE21 20 00 . bra 00 +AE23 20 4E N bra 4e +AE25 55 U illegal +AE26 52 R illegal +AE27 20 4D M bra 4d +AE29 55 U illegal +AE2A 4E N illegal +AE2B 5A Z decb +AE2C 45 E illegal +AE2D 4E N illegal +AE2E 20 00 . bra 00 +AE30 20 4D M bra 4d +AE32 4F O clra +AE33 4E N illegal +AE34 45 E illegal +AE35 44 D lsra +AE36 41 A illegal +AE37 20 55 U bra 55 +AE39 4E N illegal +AE3A 49 I rola +AE3B 43 C coma +AE3C 41 A illegal +AE3D 4D M tsta +AE3E 45 E illegal +AE3F 4E N illegal +AE40 54 T lsrb +AE41 45 E illegal +AE42 20 00 . bra 00 +AE44 20 4D M bra 4d +AE46 41 A illegal +AE47 43 C coma +AE48 48 H asla +AE49 49 I rola +AE4A 4E N illegal +AE4B 45 E illegal +AE4C 20 4F O bra 4f +AE4E 55 U illegal +AE4F 54 T lsrb +AE50 20 4F O bra 4f +AE52 46 F rora +AE53 20 4F O bra 4f +AE55 52 R illegal +AE56 44 D lsra +AE57 45 E illegal +AE58 52 R illegal +AE59 20 00 . bra 00 +AE5B 20 48 H bra 48 +AE5D 4F O clra +AE5E 52 R illegal +AE5F 53 S comb +AE60 20 44 D bra 44 +AE62 45 E illegal +AE63 20 53 S bra 53 +AE65 45 E illegal +AE66 52 R illegal +AE67 56 V rorb +AE68 49 I rola +AE69 43 C coma +AE6A 45 E illegal +AE6B 20 00 . bra 00 +AE6D 20 41 A bra 41 +AE6F 55 U illegal +AE70 53 S comb +AE71 53 S comb +AE72 45 E illegal +AE73 52 R illegal +AE74 20 42 B bra 42 +AE76 45 E illegal +AE77 54 T lsrb +AE78 52 R illegal +AE79 49 I rola +AE7A 45 E illegal +AE7B 42 B illegal +AE7C 20 00 . bra 00 +AE7E 20 46 F bra 46 +AE80 55 U illegal +AE81 45 E illegal +AE82 52 R illegal +AE83 41 A illegal +AE84 20 44 D bra 44 +AE86 45 E illegal +AE87 20 53 S bra 53 +AE89 45 E illegal +AE8A 52 R illegal +AE8B 56 V rorb +AE8C 49 I rola +AE8D 43 C coma +AE8E 49 I rola +AE8F 4F O clra +AE90 20 00 . bra 00 + +AE92 2D 20 - blt 20 +AE94 20 20 bra 20 +AE96 20 20 bra 20 +AE98 20 20 bra 20 +AE9A 20 20 bra 20 +AE9C 00 . test + +AE9D 53 S comb +AE9E 45 E illegal +AE9F 54 T lsrb +AEA0 20 50 P bra 50 +AEA2 52 R illegal +AEA3 49 I rola +AEA4 43 C coma +AEA5 45 E illegal +AEA6 3F ? swi +AEA7 00 . test + +AEA8 20 20 bra 20 +AEAA 53 S comb +AEAB 59 Y rolb +AEAC 53 S comb +AEAD 54 T lsrb +AEAE 45 E illegal +AEAF 4D M tsta +AEB0 20 20 bra 20 +AEB2 00 . test + +AEB3 20 20 bra 20 +AEB5 20 20 bra 20 +AEB7 4F O clra +AEB8 4B K illegal +AEB9 20 20 bra 20 +AEBB 20 20 bra 20 +AEBD 00 . test + +AEBE 24 35 $5 bcc 35 +AEC0 20 45 E bra 45 +AEC2 4E N illegal +AEC3 41 A illegal +AEC4 42 B illegal +AEC5 4C L inca +AEC6 45 E illegal +AEC7 20 00 . bra 00 + +AEC9 24 35 $5 bcc 35 +AECB 20 44 D bra 44 +AECD 49 I rola +AECE 53 S comb +AECF 41 A illegal +AED0 42 B illegal +AED1 4C L inca +AED2 45 E illegal +AED3 00 . test + +AED4 53 S comb +AED5 4F O clra +AED6 44 D lsra +AED7 41 A illegal +AED8 20 56 V bra 56 +AEDA 45 E illegal +AEDB 4E N illegal +AEDC 44 D lsra +AEDD 20 00 . bra 00 +AEDF 53 S comb +AEE0 4E N illegal +AEE1 41 A illegal +AEE2 43 C coma +AEE3 4B K illegal +AEE4 20 56 V bra 56 +AEE6 45 E illegal +AEE7 4E N illegal +AEE8 44 D lsra +AEE9 00 . test + +AEEA 44 D lsra +AEEB 55 U illegal +AEEC 4D M tsta +AEED 42 B illegal +AEEE 20 4D M bra 4d +AEF0 45 E illegal +AEF1 43 C coma +AEF2 20 59 Y bra 59 +AEF4 00 . test +AEF5 44 D lsra +AEF6 55 U illegal +AEF7 4D M tsta +AEF8 42 B illegal +AEF9 20 4D M bra 4d +AEFB 45 E illegal +AEFC 43 C coma +AEFD 20 4E N bra 4e +AEFF 00 . test +AF00 4C L inca +AF01 4E N illegal +AF02 4B K illegal +AF03 20 4D M bra 4d +AF05 53 S comb +AF06 54 T lsrb +AF07 52 R illegal +AF08 20 59 Y bra 59 +AF0A 00 . test +AF0B 4C L inca +AF0C 4E N illegal +AF0D 4B K illegal +AF0E 20 4D M bra 4d +AF10 53 S comb +AF11 54 T lsrb +AF12 52 R illegal +AF13 20 4E N bra 4e +AF15 00 . test +AF16 43 C coma +AF17 41 A illegal +AF18 52 R illegal +AF19 44 D lsra +AF1A 20 52 R bra 52 +AF1C 44 D lsra +AF1D 52 R illegal +AF1E 20 59 Y bra 59 +AF20 00 . test +AF21 43 C coma +AF22 41 A illegal +AF23 52 R illegal +AF24 44 D lsra +AF25 20 52 R bra 52 +AF27 44 D lsra +AF28 52 R illegal +AF29 20 4E N bra 4e +AF2B 00 . test +AF2C 42 B illegal +AF2D 49 I rola +AF2E 4C L inca +AF2F 4C L inca +AF30 20 56 V bra 56 +AF32 41 A illegal +AF33 4C L inca +AF34 20 59 Y bra 59 +AF36 00 . test +AF37 42 B illegal +AF38 49 I rola +AF39 4C L inca +AF3A 4C L inca +AF3B 20 56 V bra 56 +AF3D 41 A illegal +AF3E 4C L inca +AF3F 20 4E N bra 4e +AF41 00 . test +AF42 50 P negb +AF43 52 R illegal +AF44 43 C coma +AF45 20 48 H bra 48 +AF47 4F O clra +AF48 4C L inca +AF49 44 D lsra +AF4A 20 59 Y bra 59 +AF4C 00 . test +AF4D 50 P negb +AF4E 52 R illegal +AF4F 43 C coma +AF50 20 48 H bra 48 +AF52 4F O clra +AF53 4C L inca +AF54 44 D lsra +AF55 20 4E N bra 4e +AF57 00 . test +AF58 50 P negb +AF59 52 R illegal +AF5A 43 C coma +AF5B 20 44 D bra 44 +AF5D 49 I rola +AF5E 53 S comb +AF5F 50 P negb +AF60 20 59 Y bra 59 +AF62 00 . test +AF63 50 P negb +AF64 52 R illegal +AF65 43 C coma +AF66 20 44 D bra 44 +AF68 49 I rola +AF69 53 S comb +AF6A 50 P negb +AF6B 20 4E N bra 4e +AF6D 00 . test +AF6E 46 F rora +AF6F 52 R illegal +AF70 45 E illegal +AF71 45 E illegal +AF72 20 56 V bra 56 +AF74 4E N illegal +AF75 44 D lsra +AF76 20 59 Y bra 59 +AF78 00 . test +AF79 46 F rora +AF7A 52 R illegal +AF7B 45 E illegal +AF7C 45 E illegal +AF7D 20 56 V bra 56 +AF7F 4E N illegal +AF80 44 D lsra +AF81 20 4E N bra 4e +AF83 00 . test +AF84 24 31 $1 bcc 31 +AF86 20 43 C bra 43 +AF88 48 H asla +AF89 4E N illegal +AF8A 47 G asra +AF8B 52 R illegal +AF8C 20 59 Y bra 59 +AF8E 00 . test +AF8F 24 31 $1 bcc 31 +AF91 20 43 C bra 43 +AF93 48 H asla +AF94 4E N illegal +AF95 47 G asra +AF96 52 R illegal +AF97 20 4E N bra 4e +AF99 00 . test +AF9A 43 C coma +AF9B 4C L inca +AF9C 52 R illegal +AF9D 20 4D M bra 4d +AF9F 49 I rola +AFA0 53 S comb +AFA1 20 20 bra 20 +AFA3 59 Y rolb +AFA4 00 . test +AFA5 43 C coma +AFA6 4C L inca +AFA7 52 R illegal +AFA8 20 4D M bra 4d +AFAA 49 I rola +AFAB 53 S comb +AFAC 20 20 bra 20 +AFAE 4E N illegal +AFAF 00 . test +AFB0 48 H asla +AFB1 49 I rola +AFB2 54 T lsrb +AFB3 20 4B K bra 4b +AFB5 45 E illegal +AFB6 59 Y rolb +AFB7 22 30 "0 bhi 30 +AFB9 22 00 ". bhi 00 +AFBB 45 E illegal +AFBC 4E N illegal +AFBD 54 T lsrb +AFBE 45 E illegal +AFBF 52 R illegal +AFC0 20 43 C bra 43 +AFC2 4F O clra +AFC3 44 D lsra +AFC4 45 E illegal +AFC5 00 . test +AFC6 53 S comb +AFC7 45 E illegal +AFC8 43 C coma +AFC9 55 U illegal +AFCA 52 R illegal +AFCB 45 E illegal +AFCC 20 4F O bra 4f +AFCE 4E N illegal +AFCF 20 00 . bra 00 +AFD1 53 S comb +AFD2 45 E illegal +AFD3 43 C coma +AFD4 55 U illegal +AFD5 52 R illegal +AFD6 45 E illegal +AFD7 20 4F O bra 4f +AFD9 46 F rora +AFDA 46 F rora +AFDB 00 . test +AFDC 2D 20 - blt 20 +AFDE 53 S comb +AFDF 41 A illegal +AFE0 56 V rorb +AFE1 49 I rola +AFE2 4E N illegal +AFE3 47 G asra +AFE4 20 2D - bra 2d +AFE6 00 . test +AFE7 2D 50 -P blt 50 +AFE9 52 R illegal +AFEA 49 I rola +AFEB 4E N illegal +AFEC 54 T lsrb +AFED 49 I rola +AFEE 4E N illegal +AFEF 47 G asra +AFF0 2D 00 -. blt 00 + +AFF2 4F O clra +AFF3 56 V rorb +AFF4 45 E illegal +AFF5 52 R illegal +AFF6 20 43 C bra 43 +AFF8 52 R illegal +AFF9 4E N illegal +AFFA 54 T lsrb +AFFB 3D = mul +AFFC 00 . test + +AFFD 48 H asla +AFFE 4F O clra +AFFF 4D M tsta +B000 45 E illegal +B001 20 46 F bra 46 +B003 41 A illegal +B004 49 I rola +B005 4C L inca +B006 3D = mul +B007 00 . test +B008 43 C coma +B009 48 H asla +B00A 4B K illegal +B00B 20 50 P bra 50 +B00D 52 R illegal +B00E 49 I rola +B00F 43 C coma +B010 45 E illegal +B011 53 S comb +B012 00 . test + +B013 48 H asla +B014 49 I rola +B015 54 T lsrb +B016 20 52 R bra 52 +B018 45 E illegal +B019 53 S comb +B01A 45 E illegal +B01B 54 T lsrb +B01C 20 00 . bra 00 + +B01E 43 C coma +B01F 4F O clra +B020 49 I rola +B021 4E N illegal +B022 20 20 bra 20 +B024 20 4A J bra 4a +B026 41 A illegal +B027 4D M tsta +B028 00 . test + +B029 42 B illegal +B02A 41 A illegal +B02B 44 D lsra +B02C 20 53 S bra 53 +B02E 45 E illegal +B02F 4E N illegal +B030 53 S comb +B031 4F O clra +B032 52 R illegal +B033 00 . test + +B034 43 C coma +B035 48 H asla +B036 47 G asra +B037 52 R illegal +B038 20 50 P bra 50 +B03A 57 W asrb +B03B 52 R illegal +B03C 55 U illegal +B03D 50 P negb +B03E 00 . test + +B03F 4C L inca +B040 49 I rola +B041 4E N illegal +B042 4B K illegal +B043 20 50 P bra 50 +B045 57 W asrb +B046 52 R illegal +B047 55 U illegal +B048 50 P negb +B049 00 . test + +B04A 43 C coma +B04B 41 A illegal +B04C 52 R illegal +B04D 44 D lsra +B04E 20 50 P bra 50 +B050 57 W asrb +B051 52 R illegal +B052 55 U illegal +B053 50 P negb +B054 00 . test + +B055 42 B illegal +B056 49 I rola +B057 4C L inca +B058 4C L inca +B059 20 45 E bra 45 +B05B 52 R illegal +B05C 52 R illegal +B05D 4F O clra +B05E 52 R illegal +B05F 00 . test + +B060 54 T lsrb +B061 55 U illegal +B062 42 B illegal +B063 45 E illegal +B064 20 45 E bra 45 +B066 52 R illegal +B067 52 R illegal +B068 4F O clra +B069 52 R illegal +B06A 00 . test +B06B 4E N illegal +B06C 4F O clra +B06D 20 20 bra 20 +B06F 43 C coma +B070 48 H asla +B071 41 A illegal +B072 4E N illegal +B073 47 G asra +B074 45 E illegal +B075 00 . test +B076 20 4E N bra 4e +B078 4F O clra +B079 20 46 F bra 46 +B07B 49 I rola +B07C 56 V rorb +B07D 45 E illegal +B07E 53 S comb +B07F 20 00 . bra 00 + +B081 4E N illegal +B082 4F O clra +B083 20 20 bra 20 +B085 41 A illegal +B086 43 C coma +B087 43 C coma +B088 45 E illegal +B089 53 S comb +B08A 53 S comb +B08B 00 . test +B08C 4E N illegal +B08D 4F O clra +B08E 20 20 bra 20 +B090 45 E illegal +B091 52 R illegal +B092 52 R illegal +B093 4F O clra +B094 52 R illegal +B095 53 S comb +B096 00 . test +B097 54 T lsrb +B098 45 E illegal +B099 53 S comb +B09A 54 T lsrb +B09B 20 20 bra 20 +B09D 56 V rorb +B09E 45 E illegal +B09F 4E N illegal +B0A0 44 D lsra +B0A1 00 . test +B0A2 4D M tsta +B0A3 54 T lsrb +B0A4 52 R illegal +B0A5 20 46 F bra 46 +B0A7 55 U illegal +B0A8 4E N illegal +B0A9 43 C coma +B0AA 54 T lsrb +B0AB 3F ? swi +B0AC 00 . test +B0AD 50 P negb +B0AE 52 R illegal +B0AF 4F O clra +B0B0 47 G asra +B0B1 52 R illegal +B0B2 41 A illegal +B0B3 4D M tsta +B0B4 20 20 bra 20 +B0B6 3F ? swi +B0B7 00 . test +B0B8 53 S comb +B0B9 45 E illegal +B0BA 4C L inca +B0BB 45 E illegal +B0BC 43 C coma +B0BD 54 T lsrb +B0BE 49 I rola +B0BF 4F O clra +B0C0 4E N illegal +B0C1 3F ? swi +B0C2 00 . test + +B0C3 14 00 . +B0C5 14 C8 . +B0C7 05 00 .. +B0C9 05 00 . +B0CB 02 00 . +B0CD 02 00 . +B0CF 01 00 . +B0D1 01 00 . +B0D3 01 0C . +B0D5 17 22 . +B0D7 2E 39 ". + +B0D9 44 D lsra +B0DA 4F O clra +B0DB 0B . sev +B0DC 16 . tab +B0DD 21 2C !, brn 2c +B0DF 38 8 pulx +B0E0 43 C coma +B0E1 4E N illegal +B0E2 59 Y rolb +B0E3 15 . bclr +B0E4 20 2B + bra 2b +B0E6 36 6 psha +B0E7 42 B illegal +B0E8 4D M tsta +B0E9 58 X aslb +B0EA 63 1F c. com 1f,x +B0EC 2A 35 *5 bpl 35 +B0EE 40 @ nega +B0EF 4C L inca +B0F0 57 W asrb +B0F1 62 b illegal +B0F2 09 . dex +B0F3 29 34 )4 bvs 34 +B0F5 3F ? swi +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 48 ... bclr 3d,x, #48 +B105 53 S comb +B106 5E ^ illegal +B107 06 . tap +B108 11 . cba +B109 1C 27 47 ... bset 27,x, #47 ; fixed by ./fixbset.pl - verify me +B10C 52 R illegal +B10D 5D ] tstb +B10E 04 . lsrd +B10F 10 . sba +B110 1B . aba +B111 26 31 &1 bne 31 +B113 51 Q illegal +B114 5C \ incb +B115 03 . fdiv +B116 0E . cli +B117 1A . illegal +B118 25 30 %0 bcs 30 +B11A 3B ; rti +B11B 5B [ illegal +B11C 02 . idiv +B11D 0D . sec +B11E 18 . illegal +B11F 24 2F $/ bcc 2f +B121 3A : abx +B122 45 E illegal + +table of powers of 2 + +B123 00 01 02 04 08 +B128 10 20 40 80 + +B12C 00 +B12D 00 . test +B12E 2A 2A ** bpl 2a ;"**ERROR***" +B130 45 E illegal +B131 52 R illegal +B132 52 R illegal +B133 4F O clra +B134 52 R illegal +B135 2A 2A ** bpl 2a +B137 2A 00 *. bpl 00 + +B139 2A 2A ** bpl 2a +B13B 2A 2A ** bpl 2a +B13D 2A 2A ** bpl 2a +B13F 2A 2A ** bpl 2a +B141 2A 2A ** bpl 2a +B143 00 . test +B144 4F O clra +B145 4F O clra +B146 4F O clra +B147 4F O clra +B148 4F O clra +B149 4F O clra +B14A 4F O clra +B14B 4F O clra +B14C 4F O clra +B14D 4F O clra +B14E 00 . test +B14F 52 R illegal +B150 41 A illegal +B151 4D M tsta +B152 20 20 bra 20 +B154 20 46 F bra 46 +B156 41 A illegal +B157 49 I rola +B158 4C L inca +B159 00 . test +B15A 50 P negb +B15B 32 2 pula +B15C 20 20 bra 20 +B15E 20 20 bra 20 +B160 46 F rora +B161 41 A illegal +B162 49 I rola +B163 4C L inca +B164 00 . test +B165 50 P negb +B166 32 2 pula +B167 2D 50 -P blt 50 +B169 33 3 pulb +B16A 20 46 F bra 46 +B16C 41 A illegal +B16D 49 I rola +B16E 4C L inca +B16F 00 . test +B170 50 P negb +B171 32 2 pula +B172 2D 50 -P blt 50 +B174 38 8 pulx +B175 20 46 F bra 46 +B177 41 A illegal +B178 49 I rola +B179 4C L inca +B17A 00 . test +B17B 50 P negb +B17C 32 2 pula +B17D 2D 50 -P blt 50 +B17F 39 9 rts + +B180 20 46 F bra 46 +B182 41 A illegal +B183 49 I rola +B184 4C L inca +B185 00 . test +B186 50 P negb +B187 33 3 pulb +B188 2D 50 -P blt 50 +B18A 34 4 des +B18B 20 46 F bra 46 +B18D 41 A illegal +B18E 49 I rola +B18F 4C L inca +B190 00 . test +B191 50 P negb +B192 35 5 txs +B193 20 20 bra 20 +B195 20 20 bra 20 +B197 46 F rora +B198 41 A illegal +B199 49 I rola +B19A 4C L inca +B19B 00 . test +B19C 50 P negb +B19D 35 5 txs +B19E 2D 50 -P blt 50 +B1A0 37 7 pshb +B1A1 20 46 F bra 46 +B1A3 41 A illegal +B1A4 49 I rola +B1A5 4C L inca +B1A6 00 . test +B1A7 50 P negb +B1A8 37 7 pshb +B1A9 20 20 bra 20 +B1AB 20 20 bra 20 +B1AD 46 F rora +B1AE 41 A illegal +B1AF 49 I rola +B1B0 4C L inca +B1B1 00 . test +B1B2 50 P negb +B1B3 37 7 pshb +B1B4 2D 50 -P blt 50 +B1B6 38 8 pulx +B1B7 20 46 F bra 46 +B1B9 41 A illegal +B1BA 49 I rola +B1BB 4C L inca +B1BC 00 . test +B1BD 2D 20 - blt 20 +B1BF 50 P negb +B1C0 41 A illegal +B1C1 53 S comb +B1C2 53 S comb +B1C3 45 E illegal +B1C4 44 D lsra +B1C5 20 2D - bra 2d +B1C7 00 . test +B1C8 09 . dex +B1C9 12 . brset +B1CA 1B . aba +B1CB 24 2C $, bcc 2c +B1CD 35 5 txs +B1CE 3E > wai +B1CF 47 G asra +B1D0 54 T lsrb +B1D1 48 H asla +B1D2 41 A illegal +B1D3 4E N illegal +B1D4 4B K illegal +B1D5 20 59 Y bra 59 +B1D7 4F O clra +B1D8 55 U illegal +B1D9 20 46 F bra 46 +B1DB 4F O clra +B1DC 52 R illegal +B1DD 20 59 Y bra 59 +B1DF 4F O clra +B1E0 55 U illegal +B1E1 52 R illegal +B1E2 20 50 P bra 50 +B1E4 41 A illegal +B1E5 54 T lsrb +B1E6 52 R illegal +B1E7 4F O clra +B1E8 4E N illegal +B1E9 41 A illegal +B1EA 47 G asra +B1EB 45 E illegal +B1EC 20 20 bra 20 +B1EE 00 . test + +B1EF 20 52 R bra 52 +B1F1 4F O clra +B1F2 57 W asrb +B1F3 45 E illegal +B1F4 20 49 I bra 49 +B1F6 4E N illegal +B1F7 54 T lsrb +B1F8 20 00 . bra 00 + +B1FA 43 C coma +B1FB 4F O clra +B1FC 50 P negb +B1FD 59 Y rolb +B1FE 52 R illegal +B1FF 49 I rola +B200 47 G asra +B201 48 H asla +B202 54 T lsrb +B203 20 00 . bra 00 + +B205 20 20 bra 20 +B207 20 31 1 bra 31 +B209 39 9 rts +B20A 39 9 rts +B20B 33 3 pulb +B20C 20 20 bra 20 +B20E 20 00 . bra 00 + +B210 35 5 txs +B211 39 9 rts +B212 30 0 tsx +B213 30 0 tsx +B214 20 56 V bra 56 +B216 45 E illegal +B217 52 R illegal +B218 20 35 5 bra 35 +B21A 00 . test + +B21B 20 20 bra 20 +B21D 20 20 bra 20 +B21F 20 20 bra 20 +B221 20 20 bra 20 +B223 20 52 R bra 52 +B225 4F O clra +B226 57 W asrb +B227 45 E illegal +B228 20 20 bra 20 +B22A 49 I rola +B22B 4E N illegal +B22C 54 T lsrb +B22D 45 E illegal +B22E 52 R illegal +B22F 4E N illegal +B230 41 A illegal +B231 54 T lsrb +B232 49 I rola +B233 4F O clra +B234 4E N illegal +B235 41 A illegal +B236 4C L inca +B237 00 . test +B238 20 20 bra 20 +B23A 20 20 bra 20 +B23C 20 20 bra 20 +B23E 20 20 bra 20 +B240 2D 2D -- blt 2d +B242 2D 2D -- blt 2d +B244 2D 2D -- blt 2d +B246 2D 2D -- blt 2d +B248 2D 2D -- blt 2d +B24A 2D 2D -- blt 2d +B24C 2D 2D -- blt 2d +B24E 2D 2D -- blt 2d +B250 2D 2D -- blt 2d +B252 2D 2D -- blt 2d +B254 2D 00 -. blt 00 +B256 20 20 bra 20 +B258 20 20 bra 20 +B25A 20 20 bra 20 +B25C 20 20 bra 20 +B25E 35 5 txs +B25F 39 9 rts +B260 30 0 tsx +B261 30 0 tsx +B262 20 53 S bra 53 +B264 4F O clra +B265 46 F rora +B266 54 T lsrb +B267 57 W asrb +B268 41 A illegal +B269 52 R illegal +B26A 45 E illegal +B26B 20 56 V bra 56 +B26D 45 E illegal +B26E 52 R illegal +B26F 2E 20 . bgt 20 +B271 35 5 txs +B272 20 20 bra 20 +B274 00 . test +B275 20 20 bra 20 +B277 20 20 bra 20 +B279 20 20 bra 20 +B27B 20 20 bra 20 +B27D 20 20 bra 20 +B27F 20 41 A bra 41 +B281 43 C coma +B282 43 C coma +B283 4F O clra +B284 55 U illegal +B285 4E N illegal +B286 54 T lsrb +B287 20 20 bra 20 +B289 52 R illegal +B28A 45 E illegal +B28B 43 C coma +B28C 4F O clra +B28D 52 R illegal +B28E 44 D lsra +B28F 00 . test +B290 53 S comb +B291 45 E illegal +B292 52 R illegal +B293 49 I rola +B294 41 A illegal +B295 4C L inca +B296 20 20 bra 20 +B298 23 20 # bls 20 +B29A 20 20 bra 20 +B29C 20 20 bra 20 +B29E 20 2D - bra 2d +B2A0 20 00 . bra 00 +B2A2 4D M tsta +B2A3 41 A illegal +B2A4 43 C coma +B2A5 48 H asla +B2A6 49 I rola +B2A7 4E N illegal +B2A8 45 E illegal +B2A9 20 49 I bra 49 +B2AB 44 D lsra +B2AC 20 20 bra 20 +B2AE 20 20 bra 20 +B2B0 20 2D - bra 2d +B2B2 20 00 . bra 00 +B2B4 41 A illegal +B2B5 55 U illegal +B2B6 44 D lsra +B2B7 49 I rola +B2B8 54 T lsrb +B2B9 20 4E N bra 4e +B2BB 55 U illegal +B2BC 4D M tsta +B2BD 42 B illegal +B2BE 45 E illegal +B2BF 52 R illegal +B2C0 20 20 bra 20 +B2C2 20 20 bra 20 +B2C4 20 00 . bra 00 +B2C6 53 S comb +B2C7 41 A illegal +B2C8 4C L inca +B2C9 45 E illegal +B2CA 53 S comb +B2CB 20 20 bra 20 +B2CD 28 52 (R bvc 52 +B2CF 29 20 ) bvs 20 +B2D1 20 20 bra 20 +B2D3 20 20 bra 20 +B2D5 2D 20 - blt 20 +B2D7 00 . test +B2D8 53 S comb +B2D9 41 A illegal +B2DA 4C L inca +B2DB 45 E illegal +B2DC 53 S comb +B2DD 20 20 bra 20 +B2DF 28 4E (N bvc 4e +B2E1 29 20 ) bvs 20 +B2E3 20 20 bra 20 +B2E5 20 20 bra 20 +B2E7 2D 20 - blt 20 +B2E9 00 . test +B2EA 42 B illegal +B2EB 41 A illegal +B2EC 47 G asra +B2ED 20 54 T bra 54 +B2EF 4F O clra +B2F0 54 T lsrb +B2F1 41 A illegal +B2F2 4C L inca +B2F3 20 20 bra 20 +B2F5 20 20 bra 20 +B2F7 20 20 bra 20 +B2F9 2D 20 - blt 20 +B2FB 00 . test +B2FC 43 C coma +B2FD 41 A illegal +B2FE 53 S comb +B2FF 48 H asla +B300 20 42 B bra 42 +B302 4F O clra +B303 58 X aslb +B304 20 20 bra 20 +B306 20 20 bra 20 +B308 20 20 bra 20 +B30A 20 2D - bra 2d +B30C 20 00 . bra 00 +B30E 43 C coma +B30F 41 A illegal +B310 52 R illegal +B311 44 D lsra +B312 20 53 S bra 53 +B314 41 A illegal +B315 4C L inca +B316 45 E illegal +B317 53 S comb +B318 20 20 bra 20 +B31A 20 20 bra 20 +B31C 20 2D - bra 2d +B31E 20 00 . bra 00 +B320 42 B illegal +B321 49 I rola +B322 4C L inca +B323 4C L inca +B324 53 S comb +B325 20 49 I bra 49 +B327 4E N illegal +B328 20 53 S bra 53 +B32A 54 T lsrb +B32B 41 A illegal +B32C 43 C coma +B32D 4B K illegal +B32E 45 E illegal +B32F 52 R illegal +B330 00 . test +B331 20 20 bra 20 +B333 20 20 bra 20 +B335 42 B illegal +B336 49 I rola +B337 4C L inca +B338 4C L inca +B339 20 54 T bra 54 +B33B 4F O clra +B33C 54 T lsrb +B33D 41 A illegal +B33E 4C L inca +B33F 20 2D - bra 2d +B341 20 20 bra 20 +B343 20 20 bra 20 +B345 20 20 bra 20 +B347 20 20 bra 20 +B349 00 . test +B34A 20 20 bra 20 +B34C 20 20 bra 20 +B34E 4F O clra +B34F 4E N illegal +B350 45 E illegal +B351 53 S comb +B352 20 20 bra 20 +B354 20 20 bra 20 +B356 20 20 bra 20 +B358 20 2D - bra 2d +B35A 20 00 . bra 00 +B35C 20 20 bra 20 +B35E 20 20 bra 20 +B360 54 T lsrb +B361 57 W asrb +B362 4F O clra +B363 53 S comb +B364 20 20 bra 20 +B366 20 20 bra 20 +B368 20 20 bra 20 +B36A 20 2D - bra 2d +B36C 20 00 . bra 00 +B36E 20 20 bra 20 +B370 20 20 bra 20 +B372 46 F rora +B373 49 I rola +B374 56 V rorb +B375 45 E illegal +B376 53 S comb +B377 20 20 bra 20 +B379 20 20 bra 20 +B37B 20 20 bra 20 +B37D 2D 20 - blt 20 +B37F 00 . test +B380 20 20 bra 20 +B382 20 20 bra 20 +B384 54 T lsrb +B385 45 E illegal +B386 4E N illegal +B387 53 S comb +B388 20 20 bra 20 +B38A 20 20 bra 20 +B38C 20 20 bra 20 +B38E 20 2D - bra 2d +B390 20 00 . bra 00 +B392 20 20 bra 20 +B394 20 20 bra 20 +B396 54 T lsrb +B397 57 W asrb +B398 45 E illegal +B399 4E N illegal +B39A 54 T lsrb +B39B 49 I rola +B39C 45 E illegal +B39D 53 S comb +B39E 20 20 bra 20 +B3A0 20 2D - bra 2d +B3A2 20 00 . bra 00 +B3A4 43 C coma +B3A5 4F O clra +B3A6 49 I rola +B3A7 4E N illegal +B3A8 53 S comb +B3A9 20 49 I bra 49 +B3AB 4E N illegal +B3AC 20 54 T bra 54 +B3AE 55 U illegal +B3AF 42 B illegal +B3B0 45 E illegal +B3B1 53 S comb +B3B2 00 . test +B3B3 20 20 bra 20 +B3B5 20 20 bra 20 +B3B7 54 T lsrb +B3B8 55 U illegal +B3B9 42 B illegal +B3BA 45 E illegal +B3BB 20 54 T bra 54 +B3BD 4F O clra +B3BE 54 T lsrb +B3BF 41 A illegal +B3C0 4C L inca +B3C1 20 2D - bra 2d +B3C3 20 20 bra 20 +B3C5 20 20 bra 20 +B3C7 20 20 bra 20 +B3C9 00 . test +B3CA 20 20 bra 20 +B3CC 20 20 bra 20 +B3CE 24 31 $1 bcc 31 +B3D0 20 43 C bra 43 +B3D2 4F O clra +B3D3 49 I rola +B3D4 4E N illegal +B3D5 20 20 bra 20 +B3D7 20 20 bra 20 +B3D9 2D 20 - blt 20 +B3DB 00 . test +B3DC 20 20 bra 20 +B3DE 20 20 bra 20 +B3E0 51 Q illegal +B3E1 55 U illegal +B3E2 41 A illegal +B3E3 52 R illegal +B3E4 54 T lsrb +B3E5 45 E illegal +B3E6 52 R illegal +B3E7 53 S comb +B3E8 20 20 bra 20 +B3EA 20 2D - bra 2d +B3EC 20 00 . bra 00 +B3EE 20 20 bra 20 +B3F0 20 20 bra 20 +B3F2 44 D lsra +B3F3 49 I rola +B3F4 4D M tsta +B3F5 45 E illegal +B3F6 53 S comb +B3F7 20 20 bra 20 +B3F9 20 20 bra 20 +B3FB 20 20 bra 20 +B3FD 2D 20 - blt 20 +B3FF 00 . test +B400 20 20 bra 20 +B402 20 20 bra 20 +B404 4E N illegal +B405 49 I rola +B406 43 C coma +B407 4B K illegal +B408 45 E illegal +B409 4C L inca +B40A 53 S comb +B40B 20 20 bra 20 +B40D 20 20 bra 20 +B40F 2D 20 - blt 20 +B411 00 . test +B412 57 W asrb +B413 49 I rola +B414 4E N illegal +B415 2D 53 -S blt 53 +B417 4E N illegal +B418 4B K illegal +B419 20 56 V bra 56 +B41B 45 E illegal +B41C 4E N illegal +B41D 44 D lsra +B41E 53 S comb +B41F 20 20 bra 20 +B421 2D 20 - blt 20 +B423 00 . test +B424 53 S comb +B425 48 H asla +B426 4F O clra +B427 50 P negb +B428 50 P negb +B429 45 E illegal +B42A 52 R illegal +B42B 20 56 V bra 56 +B42D 45 E illegal +B42E 4E N illegal +B42F 44 D lsra +B430 53 S comb +B431 20 20 bra 20 +B433 2D 20 - blt 20 +B435 00 . test +B436 50 P negb +B437 52 R illegal +B438 4F O clra +B439 4D M tsta +B43A 4F O clra +B43B 20 56 V bra 56 +B43D 45 E illegal +B43E 4E N illegal +B43F 44 D lsra +B440 53 S comb +B441 20 20 bra 20 +B443 20 20 bra 20 +B445 2D 20 - blt 20 +B447 00 . test +B448 46 F rora +B449 52 R illegal +B44A 45 E illegal +B44B 45 E illegal +B44C 20 20 bra 20 +B44E 56 V rorb +B44F 45 E illegal +B450 4E N illegal +B451 44 D lsra +B452 53 S comb +B453 20 20 bra 20 +B455 20 20 bra 20 +B457 2D 20 - blt 20 +B459 00 . test +B45A 56 V rorb +B45B 45 E illegal +B45C 4E N illegal +B45D 44 D lsra +B45E 53 S comb +B45F 20 50 P bra 50 +B461 45 E illegal +B462 52 R illegal +B463 20 50 P bra 50 +B465 52 R illegal +B466 4F O clra +B467 44 D lsra +B468 55 U illegal +B469 43 C coma +B46A 54 T lsrb +B46B 20 43 C bra 43 +B46D 4F O clra +B46E 44 D lsra +B46F 45 E illegal +B470 00 . test + +B471 20 20 bra 20 +B473 20 20 bra 20 +B475 43 C coma +B476 4F O clra +B477 44 D lsra +B478 45 E illegal +B479 20 00 . bra 00 +B47B 56 V rorb +B47C 45 E illegal +B47D 4E N illegal +B47E 44 D lsra +B47F 53 S comb +B480 20 2D - bra 2d +B482 20 00 . bra 00 +B484 56 V rorb +B485 45 E illegal +B486 4E N illegal +B487 44 D lsra +B488 53 S comb +B489 2F 43 /C ble 43 +B48B 4F O clra +B48C 44 D lsra +B48D 45 E illegal +B48E 00 . test +B48F 41 A illegal +B490 42 B illegal +B491 43 C coma +B492 44 D lsra +B493 45 E illegal +B494 46 F rora +B495 47 G asra +B496 48 H asla +B497 49 I rola +B498 4A J deca +B499 4B K illegal +B49A 4C L inca +B49B 4D M tsta +B49C 4E N illegal +B49D 4F O clra +B49E 50 P negb +B49F 51 Q illegal +B4A0 52 R illegal +B4A1 53 S comb +B4A2 54 T lsrb +B4A3 55 U illegal +B4A4 56 V rorb +B4A5 57 W asrb +B4A6 58 X aslb +B4A7 59 Y rolb +B4A8 5A Z decb +B4A9 30 0 tsx +B4AA 31 1 ins +B4AB 32 2 pula +B4AC 33 3 pulb +B4AD 34 4 des +B4AE 35 5 txs +B4AF 36 6 psha +B4B0 37 7 pshb +B4B1 38 8 pulx +B4B2 39 9 rts +B4B3 24 2A $* bcc 2a +B4B5 20 00 . bra 00 +B4B7 01 . nop +B4B8 02 . idiv +B4B9 04 . lsrd +B4BA 08 . inx +B4BB 10 . sba +B4BC 20 40 @ bra 40 +B4BE 80 FF .. suba #ff +B4C0 FF FF FF ... stx ffff +B4C3 FF FF FF ... stx ffff +B4C6 FF FF FF ... stx ffff +B4C9 FF FF FF ... stx ffff +B4CC FF FF FF ... stx ffff +B4CF FF FF FF ... stx ffff +B4D2 FF FF FF ... stx ffff +B4D5 FF FF FF ... stx ffff +B4D8 FF FF FF ... stx ffff +B4DB FF FF FF ... stx ffff +B4DE FF FF FF ... stx ffff +B4E1 FF FF FF ... stx ffff +B4E4 FF FF FF ... stx ffff +B4E7 FF FF FF ... stx ffff +B4EA FF FF FF ... stx ffff +B4ED FF FF FF ... stx ffff +B4F0 FF FF FF ... stx ffff +B4F3 FF FF FF ... stx ffff +B4F6 FF FF FF ... stx ffff +B4F9 FF FF FF ... stx ffff +B4FC FF FF FF ... stx ffff +B4FF FF FF FF ... stx ffff +B502 FF FF FF ... stx ffff +B505 FF FF FF ... stx ffff +B508 FF FF FF ... stx ffff +B50B FF FF FF ... stx ffff +B50E FF FF FF ... stx ffff +B511 FF FF FF ... stx ffff +B514 FF FF FF ... stx ffff +B517 FF FF FF ... stx ffff +B51A FF FF FF ... stx ffff +B51D FF FF FF ... stx ffff +B520 FF FF FF ... stx ffff +B523 FF FF FF ... stx ffff +B526 FF FF FF ... stx ffff +B529 FF FF FF ... stx ffff +B52C FF FF FF ... stx ffff +B52F FF FF FF ... stx ffff +B532 FF FF FF ... stx ffff +B535 FF FF FF ... stx ffff +B538 FF FF FF ... stx ffff +B53B FF FF FF ... stx ffff +B53E FF FF FF ... stx ffff +B541 FF FF FF ... stx ffff +B544 FF FF FF ... stx ffff +B547 FF FF FF ... stx ffff +B54A FF FF FF ... stx ffff +B54D FF FF FF ... stx ffff +B550 FF FF FF ... stx ffff +B553 FF FF FF ... stx ffff +B556 FF FF FF ... stx ffff +B559 FF FF FF ... stx ffff +B55C FF FF FF ... stx ffff +B55F FF FF FF ... stx ffff +B562 FF FF FF ... stx ffff +B565 FF FF FF ... stx ffff +B568 FF FF FF ... stx ffff +B56B FF FF FF ... stx ffff +B56E FF FF FF ... stx ffff +B571 FF FF FF ... stx ffff +B574 FF FF FF ... stx ffff +B577 FF FF FF ... stx ffff +B57A FF FF FF ... stx ffff +B57D FF FF FF ... stx ffff +B580 FF FF FF ... stx ffff +B583 FF FF FF ... stx ffff +B586 FF FF FF ... stx ffff +B589 FF FF FF ... stx ffff +B58C FF FF FF ... stx ffff +B58F FF FF FF ... stx ffff +B592 FF FF FF ... stx ffff +B595 FF FF FF ... stx ffff +B598 FF FF FF ... stx ffff +B59B FF FF FF ... stx ffff +B59E FF FF FF ... stx ffff +B5A1 FF FF FF ... stx ffff +B5A4 FF FF FF ... stx ffff +B5A7 FF FF FF ... stx ffff +B5AA FF FF FF ... stx ffff +B5AD FF FF FF ... stx ffff +B5B0 FF FF FF ... stx ffff +B5B3 FF FF FF ... stx ffff +B5B6 FF FF FF ... stx ffff +B5B9 FF FF FF ... stx ffff +B5BC FF FF FF ... stx ffff +B5BF FF FF FF ... stx ffff +B5C2 FF FF FF ... stx ffff +B5C5 FF FF FF ... stx ffff +B5C8 FF FF FF ... stx ffff +B5CB FF FF FF ... stx ffff +B5CE FF FF FF ... stx ffff +B5D1 FF FF FF ... stx ffff +B5D4 FF FF FF ... stx ffff +B5D7 FF FF FF ... stx ffff +B5DA FF FF FF ... stx ffff +B5DD FF FF FF ... stx ffff +B5E0 FF FF FF ... stx ffff +B5E3 FF FF FF ... stx ffff +B5E6 FF FF FF ... stx ffff +B5E9 FF FF FF ... stx ffff +B5EC FF FF FF ... stx ffff +B5EF FF FF FF ... stx ffff +B5F2 FF FF FF ... stx ffff +B5F5 FF FF FF ... stx ffff +B5F8 FF FF FF ... stx ffff +B5FB FF FF FF ... stx ffff +B5FE FF FF FF ... stx ffff +B601 FF FF FF ... stx ffff +B604 FF FF FF ... stx ffff +B607 FF FF FF ... stx ffff +B60A FF FF FF ... stx ffff +B60D FF FF FF ... stx ffff +B610 FF FF FF ... stx ffff +B613 FF FF FF ... stx ffff +B616 FF FF FF ... stx ffff +B619 FF FF FF ... stx ffff +B61C FF FF FF ... stx ffff +B61F FF FF FF ... stx ffff +B622 FF FF FF ... stx ffff +B625 FF FF FF ... stx ffff +B628 FF FF FF ... stx ffff +B62B FF FF FF ... stx ffff +B62E FF FF FF ... stx ffff +B631 FF FF FF ... stx ffff +B634 FF FF FF ... stx ffff +B637 FF FF FF ... stx ffff +B63A FF FF FF ... stx ffff +B63D FF FF FF ... stx ffff +B640 FF FF FF ... stx ffff +B643 FF FF FF ... stx ffff +B646 FF FF FF ... stx ffff +B649 FF FF FF ... stx ffff +B64C FF FF FF ... stx ffff +B64F FF FF FF ... stx ffff +B652 FF FF FF ... stx ffff +B655 FF FF FF ... stx ffff +B658 FF FF FF ... stx ffff +B65B FF FF FF ... stx ffff +B65E FF FF FF ... stx ffff +B661 FF FF FF ... stx ffff +B664 FF FF FF ... stx ffff +B667 FF FF FF ... stx ffff +B66A FF FF FF ... stx ffff +B66D FF FF FF ... stx ffff +B670 FF FF FF ... stx ffff +B673 FF FF FF ... stx ffff +B676 FF FF FF ... stx ffff +B679 FF FF FF ... stx ffff +B67C FF FF FF ... stx ffff +B67F FF FF FF ... stx ffff +B682 FF FF FF ... stx ffff +B685 FF FF FF ... stx ffff +B688 FF FF FF ... stx ffff +B68B FF FF FF ... stx ffff +B68E FF FF FF ... stx ffff +B691 FF FF FF ... stx ffff +B694 FF FF FF ... stx ffff +B697 FF FF FF ... stx ffff +B69A FF FF FF ... stx ffff +B69D FF FF FF ... stx ffff +B6A0 FF FF FF ... stx ffff +B6A3 FF FF FF ... stx ffff +B6A6 FF FF FF ... stx ffff +B6A9 FF FF FF ... stx ffff +B6AC FF FF FF ... stx ffff +B6AF FF FF FF ... stx ffff +B6B2 FF FF FF ... stx ffff +B6B5 FF FF FF ... stx ffff +B6B8 FF FF FF ... stx ffff +B6BB FF FF FF ... stx ffff +B6BE FF FF FF ... stx ffff +B6C1 FF FF FF ... stx ffff +B6C4 FF FF FF ... stx ffff +B6C7 FF FF FF ... stx ffff +B6CA FF FF FF ... stx ffff +B6CD FF FF FF ... stx ffff +B6D0 FF FF FF ... stx ffff +B6D3 FF FF FF ... stx ffff +B6D6 FF FF FF ... stx ffff +B6D9 FF FF FF ... stx ffff +B6DC FF FF FF ... stx ffff +B6DF FF FF FF ... stx ffff +B6E2 FF FF FF ... stx ffff +B6E5 FF FF FF ... stx ffff +B6E8 FF FF FF ... stx ffff +B6EB FF FF FF ... stx ffff +B6EE FF FF FF ... stx ffff +B6F1 FF FF FF ... stx ffff +B6F4 FF FF FF ... stx ffff +B6F7 FF FF FF ... stx ffff +B6FA FF FF FF ... stx ffff +B6FD FF FF FF ... stx ffff +B700 FF FF FF ... stx ffff +B703 FF FF FF ... stx ffff +B706 FF FF FF ... stx ffff +B709 FF FF FF ... stx ffff +B70C FF FF FF ... stx ffff +B70F FF FF FF ... stx ffff +B712 FF FF FF ... stx ffff +B715 FF FF FF ... stx ffff +B718 FF FF FF ... stx ffff +B71B FF FF FF ... stx ffff +B71E FF FF FF ... stx ffff +B721 FF FF FF ... stx ffff +B724 FF FF FF ... stx ffff +B727 FF FF FF ... stx ffff +B72A FF FF FF ... stx ffff +B72D FF FF FF ... stx ffff +B730 FF FF FF ... stx ffff +B733 FF FF FF ... stx ffff +B736 FF FF FF ... stx ffff +B739 FF FF FF ... stx ffff +B73C FF FF FF ... stx ffff +B73F FF FF FF ... stx ffff +B742 FF FF FF ... stx ffff +B745 FF FF FF ... stx ffff +B748 FF FF FF ... stx ffff +B74B FF FF FF ... stx ffff +B74E FF FF FF ... stx ffff +B751 FF FF FF ... stx ffff +B754 FF FF FF ... stx ffff +B757 FF FF FF ... stx ffff +B75A FF FF FF ... stx ffff +B75D FF FF FF ... stx ffff +B760 FF FF FF ... stx ffff +B763 FF FF FF ... stx ffff +B766 FF FF FF ... stx ffff +B769 FF FF FF ... stx ffff +B76C FF FF FF ... stx ffff +B76F FF FF FF ... stx ffff +B772 FF FF FF ... stx ffff +B775 FF FF FF ... stx ffff +B778 FF FF FF ... stx ffff +B77B FF FF FF ... stx ffff +B77E FF FF FF ... stx ffff +B781 FF FF FF ... stx ffff +B784 FF FF FF ... stx ffff +B787 FF FF FF ... stx ffff +B78A FF FF FF ... stx ffff +B78D FF FF FF ... stx ffff +B790 FF FF FF ... stx ffff +B793 FF FF FF ... stx ffff +B796 FF FF FF ... stx ffff +B799 FF FF FF ... stx ffff +B79C FF FF FF ... stx ffff +B79F FF FF FF ... stx ffff +B7A2 FF FF FF ... stx ffff +B7A5 FF FF FF ... stx ffff +B7A8 FF FF FF ... stx ffff +B7AB FF FF FF ... stx ffff +B7AE FF FF FF ... stx ffff +B7B1 FF FF FF ... stx ffff +B7B4 FF FF FF ... stx ffff +B7B7 FF FF FF ... stx ffff +B7BA FF FF FF ... stx ffff +B7BD FF FF FF ... stx ffff +B7C0 FF FF FF ... stx ffff +B7C3 FF FF FF ... stx ffff +B7C6 FF FF FF ... stx ffff +B7C9 FF FF FF ... stx ffff +B7CC FF FF FF ... stx ffff +B7CF FF FF FF ... stx ffff +B7D2 FF FF FF ... stx ffff +B7D5 FF FF FF ... stx ffff +B7D8 FF FF FF ... stx ffff +B7DB FF FF FF ... stx ffff +B7DE FF FF FF ... stx ffff +B7E1 FF FF FF ... stx ffff +B7E4 FF FF FF ... stx ffff +B7E7 FF FF FF ... stx ffff +B7EA FF FF FF ... stx ffff +B7ED FF FF FF ... stx ffff +B7F0 FF FF FF ... stx ffff +B7F3 FF FF FF ... stx ffff +B7F6 FF FF FF ... stx ffff +B7F9 FF FF FF ... stx ffff +B7FC FF FF FF ... stx ffff +B7FF FF . + +jump201: +B800 34 . des +B801 F6 0E 6D ... ldab 0e6d +B804 C1 01 .. cmpb #01 +B806 27 03 '. beq 03 +B808 7E B9 2A ~.* jmp b92a ;goto25 +B80B F6 0E 02 ... ldab 0e02 +B80E C1 05 .. cmpb #05 ; was the 3rd last keypress a 5? +B810 27 03 '. beq 03 +B812 7E B9 2A ~.* jmp b92a ;goto25 +B815 F6 0E 03 ... ldab 0e03 +B818 C1 05 .. cmpb #05 ; was the 2nd last keypress a 5? +B81A 27 03 '. beq 03 +B81C 7E B9 2A ~.* jmp b92a ;goto25 +B81F F6 0E 04 ... ldab 0e04 +B822 C1 05 .. cmpb #05 ; was the last keypress a 5? +B824 27 03 '. beq 03 +B826 7E B9 2A ~.* jmp b92a ;goto25 +B829 F6 00 12 ... ldab 0012 +B82C C4 20 . andb #20 ; test the door switch +B82E 27 03 '. beq 03 +B830 7E B9 2A ~.* jmp b92a ;goto25 +B833 30 0 tsx +B834 6F 00 o. clr 00,x +B836 F6 0E 6A ..j ldab 0e6a +B839 C1 00 .. cmpb #00 +B83B 22 33 "3 bhi 33 +B83D C6 64 .d ldab #64 +B83F F7 0E 6A ..j stab 0e6a +B842 7C 0E 05 |.. inc 0e05 +B845 F6 0E 05 ... ldab 0e05 +B848 C1 64 .d cmpb #64 +B84A 23 03 #. bls 03 +B84C 7F 0E 05 ... clr 0e05 +B84F F6 0E 05 ... ldab 0e05 +B852 BD D4 68 ..h jsr d468 ;jump51 +B855 83 00 00 ... subd #0000 +B858 27 0B '. beq 0b +B85A F6 0E 05 ... ldab 0e05 +B85D BD D7 A0 ... jsr d7a0 ;jump10 +B860 83 00 00 ... subd #0000 +B863 27 09 '. beq 09 +B865 30 0 tsx +B866 6C 00 l. inc 00,x +B868 E6 00 .. ldab 00,x +B86A C1 6E .n cmpb #6e ; 110 or 01101110 +B86C 2D D4 -. blt d4 +B86E 20 0A . bra 0a +B870 F6 0E 6A ..j ldab 0e6a +B873 C1 00 .. cmpb #00 +B875 23 03 #. bls 03 +B877 7A 0E 6A z.j dec 0e6a +B87A F6 0E 05 ... ldab 0e05 +B87D BD D4 68 ..h jsr d468 ;jump51 +B880 83 00 00 ... subd #0000 +B883 26 03 &. bne 03 +B885 7E B9 0A ~.. jmp b90a ;goto26 +B888 F6 0E 05 ... ldab 0e05 +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 ;displayblank +B896 C6 20 . ldab #20 ; " " +B898 F7 0B 9A ... stab 0b9a +B89B C6 20 . ldab #20 ; " " +B89D F7 0B 99 ... stab 0b99 +B8A0 C6 20 . ldab #20 ; " " +B8A2 F7 0B 98 ... stab 0b98 +B8A5 F6 0E 05 ... ldab 0e05 ; array index/10 +B8A8 4F O clra +B8A9 CE 00 0A ... ldx #000a +B8AC 02 . idiv +B8AD 8F . xgdx +B8AE CB 30 .0 addb #30 ; make it a digit +B8B0 F7 0B 97 ... stab 0b97 +B8B3 F6 0E 05 ... ldab 0e05 ; array index%10 +B8B6 4F O clra +B8B7 CE 00 0A ... ldx #000a +B8BA 02 . idiv +B8BB CB 30 .0 addb #30 ; make it a digit +B8BD F7 0B 96 ... stab 0b96 +B8C0 C6 20 . ldab #20 ; " " +B8C2 F7 0B 95 ... stab 0b95 +B8C5 C6 20 . ldab #20 ; " " +B8C7 F7 0B 94 ... stab 0b94 +B8CA F6 0E 05 ... ldab 0e05 ; array[index]/10 +B8CD 4F O clra +B8CE C3 0E 06 ... addd #0e06 +B8D1 8F . xgdx +B8D2 E6 00 .. ldab 00,x +B8D4 4F O clra +B8D5 CE 00 0A ... ldx #000a +B8D8 02 . idiv +B8D9 8F . xgdx +B8DA CB 30 .0 addb #30 ; make it a digit +B8DC F7 0B 93 ... stab 0b93 +B8DF F6 0E 05 ... ldab 0e05 ; array[index]%10 +B8E2 4F O clra +B8E3 C3 0E 06 ... addd #0e06 +B8E6 8F . xgdx +B8E7 E6 00 .. ldab 00,x +B8E9 4F O clra +B8EA CE 00 0A ... ldx #000a +B8ED 02 . idiv +B8EE CB 30 .0 addb #30 ; make it a digit +B8F0 F7 0B 92 ... stab 0b92 +B8F3 C6 20 . ldab #20 ; " " +B8F5 F7 0B 91 ... stab 0b91 +B8F8 C6 20 . ldab #20 ; " " +B8FA F7 0B 90 ... stab 0b90 +B8FD 7F 00 2C .., clr 002c +B900 BD BE 01 ... jsr be01 ;jump70 +B903 C6 0A .. ldab #0a +B905 F7 00 2C .., stab 002c +B908 20 1D . bra 1d +goto26: +B90A BD BE 4B ..K jsr be4b ;displayblank +B90D C6 57 .W ldab #57 ; "W" +B90F F7 0B 96 ... stab 0b96 +B912 C6 42 .B ldab #42 ; "B" +B914 F7 0B 95 ... stab 0b95 +B917 C6 42 .B ldab #42 ; "B" +B919 F7 0B 94 ... stab 0b94 +B91C 7F 00 2C .., clr 002c +B91F BD BE 01 ... jsr be01 ;jump70 write to display +B922 C6 0A .. ldab #0a +B924 F7 00 2C .., stab 002c +B927 7E BA 81 ~.. jmp ba81 ;goto27 +goto25: +B92A F6 0E 6D ..m ldab 0e6d +B92D C1 01 .. cmpb #01 +B92F 27 03 '. beq 03 +B931 7E BA 81 ~.. jmp ba81 ;goto27 +B934 F6 0E 00 ... ldab 0e00 +B937 C1 05 .. cmpb #05 +B939 27 03 '. beq 03 +B93B 7E BA 81 ~.. jmp ba81 ;goto27 +B93E F6 0E 01 ... ldab 0e01 +B941 C1 05 .. cmpb #05 +B943 27 03 '. beq 03 +B945 7E BA 81 ~.. jmp ba81 ;goto27 +B948 F6 0E 02 ... ldab 0e02 +B94B C1 05 .. cmpb #05 +B94D 27 03 '. beq 03 +B94F 7E BA 81 ~.. jmp ba81 ;goto27 +B952 F6 00 12 ... ldab 0012 +B955 C4 20 . andb #20 ; test the door switch +B957 26 03 &. bne 03 +B959 7E BA 81 ~.. jmp ba81 ;goto27 +B95C F6 0E 04 ... ldab 0e04 +B95F C1 05 .. cmpb #05 +B961 26 79 &y bne 79 +B963 F6 0E 03 ... ldab 0e03 +B966 C1 05 .. cmpb #05 +B968 26 72 &r bne 72 +B96A 30 0 tsx +B96B 6F 00 o. clr 00,x +B96D 30 0 tsx +B96E E6 00 .. ldab 00,x +B970 C1 64 .d cmpb #64 +B972 2C 16 ,. bge 16 +B974 5F _ clrb +B975 37 7 pshb +B976 30 0 tsx +B977 E6 01 .. ldab 01,x +B979 4F O clra +B97A 5D ] tstb +B97B 2C 01 ,. bge 01 +B97D 4A J deca +B97E C3 0E 06 ... addd #0e06 +B981 8F . xgdx +B982 33 3 pulb +B983 E7 00 .. stab 00,x +B985 30 0 tsx +B986 6C 00 l. inc 00,x +B988 20 E3 . bra e3 +B98A 7F 0D FF ... clr 0dff +B98D 7F 0E 00 ... clr 0e00 +B990 7F 0E 01 ... clr 0e01 +B993 7F 0E 02 ... clr 0e02 +B996 7F 0E 03 ... clr 0e03 +B999 7F 0E 04 ... clr 0e04 +B99C C6 41 .A ldab #41 ; "A" +B99E F7 0B 99 ... stab 0b99 +B9A1 C6 4C .L ldab #4c ; "L" +B9A3 F7 0B 98 ... stab 0b98 +B9A6 C6 4C .L ldab #4c ; "L" +B9A8 F7 0B 97 ... stab 0b97 +B9AB C6 20 . ldab #20 ; " " +B9AD F7 0B 96 ... stab 0b96 +B9B0 C6 43 .C ldab #43 ; "C" +B9B2 F7 0B 95 ... stab 0b95 +B9B5 C6 4C .L ldab #4c ; "L" +B9B7 F7 0B 94 ... stab 0b94 +B9BA C6 45 .E ldab #45 ; "E" +B9BC F7 0B 93 ... stab 0b93 +B9BF C6 41 .A ldab #41 ; "A" +B9C1 F7 0B 92 ... stab 0b92 +B9C4 C6 52 .R ldab #52 ; "R" +B9C6 F7 0B 91 ... stab 0b91 +B9C9 C6 20 . ldab #20 ; " " +B9CB F7 0B 90 ... stab 0b90 +B9CE 7F 00 2C .., clr 002c +B9D1 BD BE 01 ... jsr be01 ;jump70 - display +B9D4 C6 1E .. ldab #1e +B9D6 F7 00 2C .., stab 002c +B9D9 7E BA 81 ~.. jmp ba81 ;goto27 +B9DC F6 0E 04 ... ldab 0e04 +B9DF C1 01 .. cmpb #01 +B9E1 27 0A '. beq 0a +B9E3 F6 0E 04 ... ldab 0e04 +B9E6 C1 02 .. cmpb #02 +B9E8 27 03 '. beq 03 +B9EA 7E BA 81 ~.. jmp ba81 ;goto27 +B9ED F6 0E 03 ... ldab 0e03 +B9F0 C1 00 .. cmpb #00 +B9F2 22 03 ". bhi 03 +B9F4 7E BA 81 ~.. jmp ba81 ;goto27 +B9F7 F6 0E 03 ... ldab 0e03 +B9FA C1 05 .. cmpb #05 +B9FC 26 03 &. bne 03 +B9FE 7E BA 81 ~.. jmp ba81 ;goto27 +BA01 F6 0E 03 ... ldab 0e03 +BA04 C1 07 .. cmpb #07 +BA06 24 79 $y bcc 79 +BA08 F6 0E 03 ... ldab 0e03 ; prevkey*10+key +BA0B 86 0A .. ldaa #0a +BA0D 3D = mul +BA0E FB 0E 04 ... addb 0e04 +BA11 30 0 tsx +BA12 E7 00 .. stab 00,x +BA14 E6 00 .. ldab 00,x +BA16 C1 64 .d cmpb #64 +BA18 2C 67 ,g bge 67 +BA1A E6 00 .. ldab 00,x +BA1C 2D 63 -c blt 63 +BA1E 5F _ clrb +BA1F 37 7 pshb +BA20 30 0 tsx +BA21 E6 01 .. ldab 01,x +BA23 4F O clra +BA24 5D ] tstb +BA25 2C 01 ,. bge 01 +BA27 4A J deca +BA28 C3 0E 06 ... addd #0e06 +BA2B 8F . xgdx +BA2C 33 3 pulb +BA2D E7 00 .. stab 00,x +BA2F F6 0E 03 ... ldab 0e03 +BA32 CB 30 .0 addb #30 ; +48 (make an ascii digit) +BA34 F7 0B 99 ... stab 0b99 +BA37 F6 0E 04 ... ldab 0e04 +BA3A CB 30 .0 addb #30 ; +48 (make an ascii digit) +BA3C F7 0B 98 ... stab 0b98 +BA3F C6 20 . ldab #20 ; " " +BA41 F7 0B 97 ... stab 0b97 +BA44 C6 43 .C ldab #43 ; "C" +BA46 F7 0B 96 ... stab 0b96 +BA49 C6 4C .L ldab #4c ; "L" +BA4B F7 0B 95 ... stab 0b95 +BA4E C6 45 .E ldab #45 ; "E" +BA50 F7 0B 94 ... stab 0b94 +BA53 C6 41 .A ldab #41 ; "A" +BA55 F7 0B 93 ... stab 0b93 +BA58 C6 52 .R ldab #52 ; "R" +BA5A F7 0B 92 ... stab 0b92 +BA5D C6 45 .E ldab #45 ; "E" +BA5F F7 0B 91 ... stab 0b91 +BA62 C6 44 .D ldab #44 ; "D" +BA64 F7 0B 90 ... stab 0b90 +BA67 7F 0E 00 ... clr 0e00 +BA6A 7F 0E 01 ... clr 0e01 +BA6D 7F 0E 02 ... clr 0e02 +BA70 7F 0E 03 ... clr 0e03 +BA73 7F 0E 04 ... clr 0e04 +BA76 7F 00 2C .., clr 002c +BA79 BD BE 01 ... jsr be01 ;jump70 - display +BA7C C6 1E .. ldab #1e +BA7E F7 00 2C .., stab 002c +goto27: +BA81 31 1 ins +BA82 39 9 rts + +jump125: +; reads the keypad state into 005b & 0056 +; it looks like it returns without doing anything if the +; no sale switch is pressed, but I haven't looked closely +BA83 F6 18 00 ... ldab 1800 +BA86 C4 7F .. andb #7f +BA88 F7 00 23 ..# stab 0023 +BA8B F6 00 23 ..# ldab 0023 +BA8E F1 00 12 ... cmpb 0012 ; door buffers - debouncing it? +BA91 27 06 '. beq 06 +BA93 F6 00 23 ..# ldab 0023 +BA96 F7 00 12 ... stab 0012 +BA99 F6 20 00 . . ldab 2000 +BA9C F1 00 20 .. cmpb 0020 +BA9F 27 08 '. beq 08 +BAA1 F6 20 00 . . ldab 2000 +BAA4 F7 00 20 .. stab 0020 +BAA7 20 0E . bra 0e +BAA9 F6 00 20 .. ldab 0020 +BAAC F7 00 11 ... stab 0011 +BAAF F6 00 11 ... ldab 0011 +BAB2 C4 03 .. andb #03 +BAB4 F7 00 2B ..+ stab 002b +BAB7 F6 00 1B ... ldab 001b +BABA C4 04 .. andb #04 +BABC 37 7 pshb +BABD F6 10 0A ... ldab 100a ; PortE +BAC0 C4 04 .. andb #04 ; no sale switch (active low) +BAC2 30 0 tsx +BAC3 E0 00 .. subb 00,x +BAC5 31 1 ins +BAC6 27 17 '. beq 17 +BAC8 F6 10 0A ... ldab 100a ; PortE +BACB C4 04 .. andb #04 : no sale switch (active low) +BACD 27 08 '. beq 08 +BACF CE 00 1B ... ldx #001b +BAD2 1C 00 04 .. bset 00,x, #04 +BAD5 20 06 . bra 06 +BAD7 CE 00 1B ... ldx #001b +BADA 1D 00 04 .. bclr 00,x, #04 +BADD 20 15 . bra 15 +BADF F6 10 0A ... ldab 100a ; PortE +BAE2 C4 04 .. andb #04 ; no sale switch (active low) +BAE4 27 08 '. beq 08 +BAE6 CE 00 1D ... ldx #001d +BAE9 1C 00 04 .. bset 00,x, #04 +BAEC 20 06 . bra 06 +BAEE CE 00 1D ... ldx #001d +BAF1 1D 00 04 .. bclr 00,x, #04 +BAF4 CE 10 08 ... ldx #1008 : PortD +BAF7 1D 00 20 ... bclr 00,x, #20 ; select keypad row 0 +BAF9 CE 10 28 ... ldx #1028 +BAFC 1C 00 40 ... bset 00,x #40 ; enable SPI + +BB00 CE 00 14 ... ldx #0014 ; keypad strobe: +BB03 1C 00 04 .. bset 00,x, #04 ; resets the keypad +BB06 F6 00 14 ... ldab 0014 ; shift register +BB09 F7 38 00 .8. stab 3800 ; ready for a new +BB0C CE 00 14 ... ldx #0014 ; read +BB0F 1D 00 04 .. bclr 00,x, #04 +BB12 F6 00 14 ... ldab 0014 +BB15 F7 38 00 .8. stab 3800 + +BB18 CE 00 00 ... ldx #0000 +BB1B 3C < pshx +BB1C 5F _ clrb +BB1D 4F O clra +BB1E BD BD B5 ... jsr bdb5 ;jump78 - reads the keypad inputs into X +BB21 38 8 pulx +BB22 F7 00 5B ..[ stab 005b + +BB25 CE 10 28 ..( ldx #1028 +BB28 1D 00 40 .. bclr 00,x, #40 ; disable SPI + +BB2B CE 10 08 ... ldx #1008 +BB2E 1C 00 20 .. bset 00,x, #20 ; select keypad row 1 + +BB30 CE 10 28 ... ldx #1028 +BB33 1C 00 40 ... bset 00,x, #40 ; enable the SPI + +BB37 CE 00 14 ... ldx #0014 +BB3A 1C 00 04 .. bset 00,x, #04 ; keypad strobe +BB3D F6 00 14 ... ldab 0014 +BB40 F7 38 00 .8. stab 3800 +BB43 CE 00 14 ... ldx #0014 +BB46 1D 00 04 .. bclr 00,x, #04 +BB49 F6 00 14 ... ldab 0014 +BB4C F7 38 00 .8. stab 3800 + +BB4F CE 00 00 ... ldx #0000 +BB52 3C < pshx +BB53 5F _ clrb +BB54 4F O clra +BB55 BD BD B5 ... jsr bdb5 ;jump78 - read the keypad +BB58 38 8 pulx +BB59 F7 00 56 ..V stab 0056 +BB5C CE 10 28 ..( ldx #1028 +BB5F 1D 00 40 .. bclr 00,x, #40 +BB62 39 9 rts + +jump200: +BB63 F6 00 00 ... ldab 0000 +BB66 27 03 '. beq 03 +BB68 7E BD B4 ~.. jmp bdb4 ;goto28 +BB6B F6 00 2E ... ldab 002e +BB6E 27 03 '. beq 03 +BB70 7E BD B4 ~.. jmp bdb4 ;goto28 +BB73 BD BA 83 ... jsr ba83 ;jump125 - read keypad +; has a key been pressed? +BB76 F6 00 5B ..[ ldab 005b +BB79 F1 00 56 ..V cmpb 0056 +BB7C 26 0B &. bne 0b ; to bb89 +BB7E F6 00 56 ..V ldab 0056 +BB81 27 06 '. beq 06 ; to bb89 +BB83 7F 00 29 ..) clr 0029 ; to key pressed +BB86 7E BD AF ~.. jmp bdaf ;goto29 (bail) +; find keypad number +BB89 F6 00 5B ..[ ldab 005b ; is row0 = 0 +BB8C 27 34 '4 beq 34 ; if so, to bbc2 +BB8E F6 00 5B ..[ ldab 005b +BB91 F7 00 5F .._ stab 005f +BB94 7F 00 1C ... clr 001c ; i=0 +; +BB97 F6 00 1C ... ldab 001c +BB9A C1 08 .. cmpb #08 ; if i >= 8 +BB9C 24 15 $. bcc 15 ; to bbb3 (break) +BB9E F6 00 5F .._ ldab 005f +BBA1 C4 01 .. andb #01 +BBA3 27 02 '. beq 02 +BBA5 20 0C . bra 0c ; to bbb3 +BBA7 F6 00 5F .._ ldab 005f +BBAA 54 T lsrb ; ready to test next bit +BBAB F7 00 5F .._ stab 005f +BBAE 7C 00 1C |.. inc 001c +BBB1 20 E4 . bra e4 ; to bb97 +; look up i in the keypad map +BBB3 F6 00 1C ... ldab 001c +BBB6 4F O clra +BBB7 C3 AC 9D ... addd #ac9d ; keypad mapping +BBBA 8F . xgdx +BBBB E6 00 .. ldab 00,x +BBBD F7 00 16 ... stab 0016 +BBC0 20 3C < bra 3c ; to bbfe +; test row 1 - ditto +BBC2 F6 00 56 ..V ldab 0056 +BBC5 27 34 '4 beq 34 +BBC7 F6 00 56 ..V ldab 0056 +BBCA F7 00 5F .._ stab 005f +BBCD 7F 00 1C ... clr 001c +BBD0 F6 00 1C ... ldab 001c +BBD3 C1 08 .. cmpb #08 +BBD5 24 15 $. bcc 15 +BBD7 F6 00 5F .._ ldab 005f +BBDA C4 01 .. andb #01 +BBDC 27 02 '. beq 02 +BBDE 20 0C . bra 0c ; to bbec +BBE0 F6 00 5F .._ ldab 005f +BBE3 54 T lsrb +BBE4 F7 00 5F .._ stab 005f +BBE7 7C 00 1C |.. inc 001c +BBEA 20 E4 . bra e4 +BBEC F6 00 1C ... ldab 001c +; look up in map +BBEF 4F O clra +BBF0 C3 AC A0 ... addd #aca0 +BBF3 8F . xgdx +BBF4 E6 00 .. ldab 00,x +BBF6 F7 00 16 ... stab 0016 +BBF9 20 03 . bra 03 +BBFB 7F 00 16 ... clr 0016 +; +BBFE F6 00 5B ..[ ldab 005b +BC01 FA 00 56 ..V orb 0056 +BC04 F7 00 5F .._ stab 005f +BC07 7F 00 5E ..^ clr 005e +BC0A 7F 00 1C ... clr 001c +BC0D F6 00 1C ... ldab 001c +BC10 C1 08 .. cmpb #08 +BC12 24 16 $. bcc 16 +BC14 F6 00 5F .._ ldab 005f +BC17 C4 01 .. andb #01 +BC19 27 03 '. beq 03 +BC1B 7C 00 5E |.^ inc 005e +BC1E F6 00 5F .._ ldab 005f +BC21 54 T lsrb +BC22 F7 00 5F .._ stab 005f +BC25 7C 00 1C |.. inc 001c +BC28 20 E3 . bra e3 +BC2A F6 00 5E ..^ ldab 005e +BC2D C1 01 .. cmpb #01 +BC2F 22 05 ". bhi 05 +BC31 F6 00 16 ... ldab 0016 +BC34 26 0F &. bne 0f +BC36 7F 00 29 ..) clr 0029 +BC39 CE 00 1B ... ldx #001b +BC3C 1C 00 10 ... bset 00,x, #10 +BC3F 7F 00 37 ..7 clr 0037 +BC42 7E BD AF ~.. jmp bdaf ;goto29 (bail) +BC45 F6 00 16 ... ldab 0016 ; key release or debounce? +BC48 F1 00 29 ..) cmpb 0029 +BC4B 27 2D '- beq 2d +BC4D F6 00 16 ... ldab 0016 +BC50 F7 00 29 ..) stab 0029 +BC53 F6 0E 00 ... ldab 0e00 ; this is the key buffer? +BC56 F7 0D FF ... stab 0dff +BC59 F6 0E 01 ... ldab 0e01 +BC5C F7 0E 00 ... stab 0e00 +BC5F F6 0E 02 ... ldab 0e02 +BC62 F7 0E 01 ... stab 0e01 +BC65 F6 0E 03 ... ldab 0e03 +BC68 F7 0E 02 ... stab 0e02 +BC6B F6 0E 04 ... ldab 0e04 +BC6E F7 0E 03 ... stab 0e03 +BC71 F6 00 29 ..) ldab 0029 +BC74 F7 0E 04 ... stab 0e04 +BC77 7E BD AF ~.. jmp bdaf ;goto29 (bail) +BC7A F6 00 12 ... ldab 0012 +BC7D C4 20 . andb #20 ; test door switch +BC7F 27 3B '; beq 3b ; to bcbc +BC81 F6 00 29 ..) ldab 0029 +BC84 27 33 '3 beq 33 +BC86 F6 00 1B ... ldab 001b +BC89 C4 10 .. andb #10 +BC8B 27 2C ', beq 2c +BC8D F6 00 42 ..B ldab 0042 +BC90 27 15 '. beq 15 +BC92 F6 00 09 ... ldab 0009 +BC95 27 08 '. beq 08 +BC97 F6 00 29 ..) ldab 0029 +BC9A F7 00 0A ... stab 000a +BC9D 20 06 . bra 06 +BC9F F6 00 29 ..) ldab 0029 +BCA2 F7 00 09 ... stab 0009 +BCA5 20 06 . bra 06 +BCA7 F6 00 29 ..) ldab 0029 +BCAA F7 00 42 ..B stab 0042 +BCAD BD E5 AA ... jsr e5aa ;jump12 +BCB0 7F 00 2C .., clr 002c +BCB3 CE 00 1B ... ldx #001b +BCB6 1D 00 10 ... bclr 00,x, #10 +BCB9 7E BD AF ~.. jmp bdaf ;goto29 (bail) +; +BCBC F6 00 1B ... ldab 001b +BCBF C4 10 .. andb #10 +BCC1 26 03 &. bne 03 +BCC3 7E BD 91 ~.. jmp bd91 ;goto30 +BCC6 F6 00 21 ..! ldab 0021 +BCC9 C4 20 . andb #20 +BCCB 27 03 '. beq 03 +BCCD 7E BD 91 ~.. jmp bd91 ;goto30 +BCD0 F6 00 29 ..) ldab 0029 +BCD3 C1 0B .. cmpb #0b +BCD5 26 03 &. bne 03 +BCD7 7E BD 5C ~.\ jmp bd5c ;goto31 +BCDA 7F 00 49 ..I clr 0049 +BCDD F6 00 3A ..: ldab 003a +BCE0 26 32 &2 bne 32 +BCE2 F6 00 29 ..) ldab 0029 +BCE5 C1 0A .. cmpb #0a +BCE7 26 05 &. bne 05 +BCE9 7F 00 1E ... clr 001e +BCEC 20 06 . bra 06 +BCEE F6 00 29 ..) ldab 0029 +BCF1 F7 00 1E ... stab 001e +BCF4 C6 32 .2 ldab #32 +BCF6 F7 00 3A ..: stab 003a +BCF9 BD BE 4B ..K jsr be4b ;displayblank +BCFC F6 00 1E ... ldab 001e +BCFF CB 30 .0 addb #30 +BD01 F7 0B 95 ... stab 0b95 +BD04 BD E5 AA ... jsr e5aa ;jump12 +BD07 7F 00 2C .., clr 002c +BD0A BD BE 01 ... jsr be01 ;jump70 +BD0D C6 32 .2 ldab #32 +BD0F F7 00 2C .., stab 002c +BD12 20 46 F bra 46 +BD14 F6 00 29 ..) ldab 0029 +BD17 C1 05 .. cmpb #05 +BD19 27 07 '. beq 07 +BD1B F6 00 29 ..) ldab 0029 +BD1E C1 0A .. cmpb #0a +BD20 26 05 &. bne 05 +BD22 7F 00 2C .., clr 002c +BD25 20 2D - bra 2d +BD27 F6 00 1E ... ldab 001e +BD2A 58 X aslb +BD2B 58 X aslb +BD2C 58 X aslb +BD2D F7 00 06 ... stab 0006 +BD30 F6 00 1E ... ldab 001e +BD33 58 X aslb +BD34 FB 00 06 ... addb 0006 +BD37 F7 00 06 ... stab 0006 +BD3A F6 00 29 ..) ldab 0029 +BD3D FB 00 06 ... addb 0006 +BD40 F7 00 06 ... stab 0006 +BD43 F6 00 29 ..) ldab 0029 +BD46 CB 30 .0 addb #30 +BD48 F7 0B 94 ... stab 0b94 +BD4B BD BE 01 ... jsr be01 ;jump70 +BD4E CE 00 1B ... ldx #001b +BD51 1D 00 40 ... bclr 00,x, #40 +BD54 7F 00 3A ..: clr 003a +BD57 BD E5 AA ... jsr e5aa ;jump12 +BD5A 20 2D - bra 2d +goto31: +BD5C C6 19 .. ldab #19 +BD5E F7 00 37 ..7 stab 0037 +BD61 F6 00 3A ..: ldab 003a +BD64 27 08 '. beq 08 +BD66 7F 00 3A ..: clr 003a +BD69 7F 00 2C .., clr 002c +BD6C 20 18 . bra 18 +BD6E 7C 00 49 |.I inc 0049 +BD71 F6 00 49 ..I ldab 0049 +BD74 C1 02 .. cmpb #02 +BD76 25 0E %. bcs 0e +BD78 7F 00 49 ..I clr 0049 +BD7B CE 00 1B ... ldx #001b +BD7E 1C 00 01 ... bset 00,x, #01 +BD81 C6 3C .< ldab #3c +BD83 F7 00 4F ..O stab 004f +BD86 BD E5 AA ... jsr e5aa ;jump12 +BD89 CE 00 1B ... ldx #001b +BD8C 1D 00 10 ... bclr 00,x, #10 +BD8F 20 1E . bra 1e +goto30: +BD91 F6 00 1B ... ldab 001b +BD94 C4 10 .. andb #10 +BD96 26 17 &. bne 17 +BD98 F6 00 29 ..) ldab 0029 +BD9B C1 0B .. cmpb #0b +BD9D 26 10 &. bne 10 +BD9F F6 00 37 ..7 ldab 0037 +BDA2 26 0B &. bne 0b +BDA4 BD DD D5 ... jsr ddd5 ;jump120 +BDA7 7F 00 49 ..I clr 0049 +BDAA C6 14 .. ldab #14 +BDAC F7 00 2C .., stab 002c +goto29: +BDAF C6 01 .. ldab #01 +BDB1 F7 00 00 ... stab 0000 +goto28: +BDB4 39 9 rts + +jump78: +; start/finish sending a byte to the display +; stack parameter - 0 to disable clock (finish), 1 to enable clock (start) +; lower 8-bits of D - byte to write to display. +; bytes with bit 7 unset are characters (0-127) +; bytes with bit 7 set are control commands. +; this probably also reads the keypad simultaneously +BDB5 37 7 pshb +BDB6 36 6 psha +BDB7 3C < pshx +BDB8 5F _ clrb +BDB9 4F O clra +BDBA 30 0 tsx +BDBB ED 00 .. std 00,x +BDBD E6 07 .. ldab 07,x +BDBF 27 0E '. beq 0e ; to bdcf if 0 +BDC1 CE 00 14 ... ldx #0014 +BDC4 1C 00 08 ... bset 00,x, #08 +BDC7 F6 00 14 ... ldab 0014 +BDCA F7 38 00 .8. stab 3800 ; enable display clock line +BDCD 20 0C . bra 0c ; to bddb +BDCF CE 00 14 ... ldx #0014 +BDD2 1D 00 08 ... bclr 00,x, #08 +BDD5 F6 00 14 ... ldab 0014 +BDD8 F7 38 00 .8. stab 3800 ; disable display clock line +BDDB 30 0 tsx +BDDC E6 03 .. ldab 03,x +BDDE F7 10 2A ..* stab 102a ; write to spdr +BDE1 F6 10 29 ..) ldab 1029 ; read spsr +BDE4 2D 0F -. blt 0f ; exit sub if SPI complete +BDE6 38 8 pulx +BDE7 08 . inx +BDE8 3C < pshx +BDE9 30 0 tsx +BDEA EC 00 .. ldd 00,x +BDEC 83 FF FF ... subd #ffff ; put a really long timeout on the action +BDEF 26 02 &. bne 02 +BDF1 20 02 . bra 02 +BDF3 20 EC . bra ec ; loop a while back to bde1 +BDF5 F6 10 2A ..* ldab 102a ; reading SPSR (just done) & SPDR clears SPIF +BDF8 30 0 tsx +BDF9 E7 03 .. stab 03,x +BDFB E6 03 .. ldab 03,x ; return contents of spdr - keypad data! +BDFD 4F O clra +BDFE 38 8 pulx +BDFF 38 8 pulx +BE00 39 9 rts + +jump70: +; Write a string in the display buffer at 0x0b90 to the display +BE01 F6 00 2C .., ldab 002c +BE04 26 09 &. bne 09 ; to be0f - ret if mem 0x2c != 0 +BE06 8D 61 .a bsr dest 61 ; to displayreset - reset display +BE08 8D 06 .. bsr dest 06 ; to jump88 - commit to display +BE0A C6 03 .. ldab #03 +BE0C F7 00 2C .., stab 002c +BE0F 39 9 rts + +jump88: +; writes the display buffer (at 0b90-0b99) to the display +; enable the SPI system +BE10 CE 10 28 ..( ldx #1028 +BE13 1C 00 40 ..@ bset 00,x, #40 +; loop to 10 +BE16 7F 00 1C ... clr 001c +BE19 F6 00 1C ... ldab 001c +BE1C C1 0A .. cmpb #0a +BE1E 24 19 $. bcc 19 ; to be39 +BE20 CE 00 01 ... ldx #0001 +BE23 3C < pshx +BE24 F6 00 1C ... ldab 001c +BE27 4F O clra +BE28 C3 0B 90 ... addd #0b90 +BE2B 8F . xgdx +BE2C E6 00 .. ldab 00,x +BE2E C4 7F .. andb #7f ; make sure we don't send a control command +BE30 4F O clra +BE31 8D 82 .. bsr dest 82 ; to jump78 +BE33 38 8 pulx +BE34 7C 00 1C |.. inc 001c +BE37 20 E0 . bra e0 ; to be19 +BE39 CE 00 01 ... ldx #0001 +BE3C 3C < pshx +BE3D CC 00 FF ... ldd #00ff +BE40 BD BD B5 ... jsr bdb5 ;jump78 +BE43 38 8 pulx +; disable the SPI system +BE44 CE 10 28 ..( ldx #1028 +BE47 1D 00 40 ..@ bclr 00,x, #40 +BE4A 39 9 rts + +displayblank: +; stores 0x20 into memory locations 0b90-0b99 +; "blanks out" (with spaces) the display buffer +BE4B 7F 00 1C ... clr 001c +BE4E F6 00 1C ... ldab 001c +BE51 C1 0A .. cmpb #0a +BE53 24 13 $. bcc 13 ; to be68 - rts +BE55 C6 20 . ldab #20 +BE57 37 7 pshb +BE58 F6 00 1C ... ldab 001c +BE5B 4F O clra +BE5C C3 0B 90 ... addd #0b90 +BE5F 8F . xgdx +BE60 33 3 pulb +BE61 E7 00 .. stab 00,x +BE63 7C 00 1C |.. inc 001c +BE66 20 E6 . bra e6 ; to be4e +BE68 39 9 rts + +displayreset: +; Reset the display +; Clear bit 7 of PortA - display reset +BE69 CE 10 00 ... ldx #1000 +BE6C 1D 00 80 .. bclr x,#80 +BE6F BD E5 96 ... jsr e596 ;jump115 - 100ms delay +; Clear bit 7 of PortA - reset line back to high (not active) +BE72 CE 10 00 ... ldx #1000 +BE75 1C 00 80 .. bset 00,x, #80 + +; set clock polarity +BE78 CE 10 28 ... ldx #1028 +BE7B 1C 00 40 ... bset 00,x, #40 + +BE7E BD E5 96 ... jsr e596 ;jump115 - 100ms delay + +; tell the display controller there are 10 digits +BE81 CE 00 01 ... ldx #0001 +BE84 3C < pshx +BE85 CC 00 CA ... ldd #00ca ;11001010 +BE88 BD BD B5 ... jsr bdb5 ;jump78 +BE8B 38 8 pulx + +; set brightness to 100% +BE8C CE 00 01 ... ldx #0001 +BE8F 3C < pshx +BE90 CC 00 E0 ... ldd #00e0 ;11100000 +BE93 BD BD B5 ... jsr bdb5 ;jump78 +BE96 38 8 pulx + +; revert clock polarity +BE97 CE 10 28 ..( ldx #1028 +BE9A 1D 00 40 ... bclr 00,x, #40 +BE9D 39 9 rts + + + +jump50: +BE9E 37 7 pshb +BE9F 36 6 psha +BEA0 8D A9 .. bsr a9 ; to be4b - displayblank +BEA2 30 0 tsx +BEA3 E6 05 .. ldab 05,x +BEA5 26 1B &. bne 1b +BEA7 F6 00 06 ... ldab 0006 +BEAA 4F O clra +BEAB CE 00 0A ... ldx #000a +BEAE 02 . idiv +BEAF 8F . xgdx +BEB0 CB 30 .0 addb #30 +BEB2 F7 0B 99 ... stab 0b99 ; write slotnumber/10 +BEB5 F6 00 06 ... ldab 0006 +BEB8 4F O clra +BEB8 CE 00 0A ... ldx #000a +BEBC 02 . idiv +BEBD CB 30 .0 addb #30 +BEBF F7 0B 98 ... stab 0b98 ; write slotnumber%10 +BEC2 30 0 tsx +BEC3 EC 00 .. ldd 00,x +BEC5 C4 FF .. andb #ff +BEC7 84 3F .? anda #3f +BEC9 ED 00 .. std 00,x +BECB EC 00 .. ldd 00,x +BECD CE 03 E8 ... ldx #03e8 ; / 1000 +BED0 02 . idiv +BED1 8F . xgdx +BED2 CB 30 .0 addb #30 +BED4 37 7 pshb +BED5 30 0 tsx +BED6 E6 06 .. ldab 06,x +BED8 4F O clra +BED9 C3 0B 95 ... addd #0b95 +BEDC 8F . xgdx +BEDD 33 3 pulb +BEDE E7 00 .. stab 00,x ; write MSB dollars +BEE0 30 0 tsx +BEE1 EC 00 .. ldd 00,x +BEE3 CE 03 E8 ... ldx #03e8 ; %1000 +BEE6 02 . idiv +BEE7 CE 00 64 ..d ldx #0064 ; /100 +BEEA 02 . idiv +BEEB 8F . xgdx +BEEC CB 30 .0 addb #30 +BEEE 37 7 pshb +BEEF 30 0 tsx +BEF0 E6 06 .. ldab 06,x +BEF2 4F O clra +BEF3 C3 0B 94 ... addd #0b94 ; write LSB dollars +BEF6 8F . xgdx +BEF7 33 3 pulb +BEF8 E7 00 .. stab 00,x +BEFA 30 0 tsx +BEFB EC 00 .. ldd 00,x +BEFD CE 00 64 ..d ldx #0064 ; %100 +BF00 02 . idiv +BF01 CE 00 0A ... ldx #000a ; /10 +BF04 02 . idiv +BF05 8F . xgdx +BF06 CB 30 .0 addb #30 +BF08 37 7 pshb +BF09 30 0 tsx +BF0A E6 06 .. ldab 06,x +BF0C 4F O clra +BF0D C3 0B 93 ... addd #0b93 ; write MSB cents +BF10 8F . xgdx +BF11 33 3 pulb +BF12 E7 00 .. stab 00,x +BF14 30 0 tsx +BF15 EC 00 .. ldd 00,x +BF17 CE 00 0A ... ldx #000a +BF1A 02 . idiv +BF1B CB 30 .0 addb #30 +BF1D 37 7 pshb +BF1E 30 0 tsx +BF1F E6 06 .. ldab 06,x +BF21 4F O clra +BF22 C3 0B 92 ... addd #0b92 ; write LSB cents +BF25 8F . xgdx +BF26 33 3 pulb +BF27 E7 00 .. stab 00,x +BF29 F6 00 13 ... ldab 0013 +BF2C C1 01 .. cmpb #01 +BF2E 22 03 ". bhi 03 +BF30 7E BF DE ~.. jmp bfde ;goto32 +BF33 30 0 tsx +BF34 E6 05 .. ldab 05,x +BF36 4F O clra +BF37 C3 0B 92 ... addd #0b92 +BF3A 8F . xgdx +BF3B E6 00 .. ldab 00,x +BF3D 37 7 pshb +BF3E 30 0 tsx +BF3F E6 06 .. ldab 06,x +BF41 4F O clra +BF42 C3 0B 91 ... addd #0b91 +BF45 8F . xgdx +BF46 33 3 pulb +BF47 E7 00 .. stab 00,x +BF49 30 0 tsx +BF4A E6 05 .. ldab 05,x +BF4C 4F O clra +BF4D C3 0B 93 ... addd #0b93 +BF50 8F . xgdx +BF51 E6 00 .. ldab 00,x +BF53 37 7 pshb +BF54 30 0 tsx +BF55 E6 06 .. ldab 06,x +BF57 4F O clra +BF58 C3 0B 92 ... addd #0b92 +BF5B 8F . xgdx +BF5C 33 3 pulb +BF5D E7 00 .. stab 00,x +BF5F F6 00 13 ... ldab 0013 +BF62 C1 02 .. cmpb #02 +BF64 26 10 &. bne 10 +BF66 C6 2E .. ldab #2e +BF68 37 7 pshb +BF69 30 0 tsx +BF6A E6 06 .. ldab 06,x +BF6C 4F O clra +BF6D C3 0B 93 ... addd #0b93 +BF70 8F . xgdx +BF71 33 3 pulb +BF72 E7 00 .. stab 00,x +BF74 20 68 h bra 68 +BF76 C1 04 .. cmpb #04 +BF78 26 26 && bne 26 +BF7A 30 0 tsx +BF7B E6 05 .. ldab 05,x +BF7D 4F O clra +BF7E C3 0B 94 ... addd #0b94 +BF81 8F . xgdx +BF82 E6 00 .. ldab 00,x +BF84 37 7 pshb +BF85 30 0 tsx +BF86 E6 06 .. ldab 06,x +BF88 4F O clra +BF89 C3 0B 93 ... addd #0b93 +BF8C 8F . xgdx +BF8D 33 3 pulb +BF8E E7 00 .. stab 00,x +BF90 C6 2E .. ldab #2e ; "." +BF92 37 7 pshb +BF93 30 0 tsx +BF94 E6 06 .. ldab 06,x +BF96 4F O clra +BF97 C3 0B 94 ... addd #0b94 +BF9A 8F . xgdx +BF9B 33 3 pulb +BF9C E7 00 .. stab 00,x +BF9E 20 3E > bra 3e +BFA0 C1 08 .. cmpb #08 +BFA2 26 3A &: bne 3a +BFA4 30 0 tsx +BFA5 E6 05 .. ldab 05,x +BFA7 4F O clra +BFA8 C3 0B 94 ... addd #0b94 +BFAB 8F . xgdx +BFAC E6 00 .. ldab 00,x +BFAE 37 7 pshb +BFAF 30 0 tsx +BFB0 E6 06 .. ldab 06,x +BFB2 4F O clra +BFB3 C3 0B 93 ... addd #0b93 +BFB6 8F . xgdx +BFB7 33 3 pulb +BFB8 E7 00 .. stab 00,x +BFBA 30 0 tsx +BFBB E6 05 .. ldab 05,x +BFBD 4F O clra +BFBE C3 0B 95 ... addd #0b95 +BFC1 8F . xgdx +BFC2 E6 00 .. ldab 00,x +BFC4 37 7 pshb +BFC5 30 0 tsx +BFC6 E6 06 .. ldab 06,x +BFC8 4F O clra +BFC9 C3 0B 94 ... addd #0b94 +BFCC 8F . xgdx +BFCD 33 3 pulb +BFCE E7 00 .. stab 00,x +BFD0 C6 2E .. ldab #2e ; "." +BFD2 37 7 pshb +BFD3 30 0 tsx +BFD4 E6 06 .. ldab 06,x +BFD6 4F O clra +BFD7 C3 0B 95 ... addd #0b95 +BFDA 8F . xgdx +BFDB 33 3 pulb +BFDC E7 00 .. stab 00,x +goto32: +BFDE F6 0B C0 ... ldab 0bc0 +BFE1 C4 01 .. andb #01 +BFE3 26 0E &. bne 0e +BFE5 F6 0B C0 ... ldab 0bc0 +BFE8 C4 04 .. andb #04 +BFEA 26 07 &. bne 07 +BFEC F6 0B C0 ... ldab 0bc0 +BFEF C4 08 .. andb #08 +BFF1 27 15 '. beq 15 +BFF3 F6 00 17 ... ldab 0017 +BFF6 C4 08 .. andb #08 +BFF8 26 0E &. bne 0e +BFFA C6 24 .$ ldab #24 ; "$" +BFFC 37 7 pshb +BFFD 30 0 tsx +BFFE E6 06 .. ldab 06,x +C000 4F O clra +C001 C3 0B 96 ... addd #0b96 +C004 8F . xgdx +C005 33 3 pulb +C006 E7 00 .. stab 00,x +C008 BD BE 69 ..i jsr be69 ;displayreset +C00B F6 00 13 ... ldab 0013 +C00E C1 01 .. cmpb #01 +C010 23 17 #. bls 17 +C012 CE 10 28 ..( ldx #1028 +C015 1C 00 40 ... bset 00,x, #40 ; enable SCI send +C018 CE 00 01 ... ldx #0001 +C01B 3C < pshx +C01C CC 00 20 .. ldd #0020 +C01F BD BD B5 ... jsr bdb5 ;jump78 +C022 38 8 pulx +C023 CE 10 28 ..( ldx #1028 ; disable SCI send +C026 1D 00 40 ... bclr 00,x, #40 +C029 BD BE 10 ... jsr be10 ;jump88 +C02C 38 8 pulx +C02D 39 9 rts + +jump71: +; part of the display: function abstraction +; D points to a string, and the stack contains the length of the message +; Also seems to handle scrolling of long strings? +C02E 37 7 pshb +C02F 36 6 psha +C030 3C < pshx +; need 002c to be zero to display stuff +C031 F6 00 2C .., ldab 002c +C034 27 03 '. beq 03 +C036 7E C0 B7 ~.. jmp c0b7 ;goto33 (bail out) +; if (0003 >= D) +C039 FC 00 03 ... ldd 0003 +C03C 30 0 tsx +C03D A3 02 .. subd 02,x +C03F 25 0A %. bcs 0a ; to c04b +; +C041 E6 07 .. ldab 07,x +C043 4F O clra +C044 E3 02 .. addd 02,x +C046 B3 00 03 ... subd 0003 +C049 24 06 $. bcc 06 ; to c051 +; else +C04B 30 0 tsx +C04C EC 02 .. ldd 02,x +C04E FD 00 03 ... std 0003 +C051 FE 00 03 ... ldx 0003 +C054 08 . inx +C055 FF 00 03 ... stx 0003 +C058 09 . dex +C059 8F . xgdx +C05A 30 0 tsx +C05B ED 00 .. std 00,x +C05D C6 09 .. ldab #09 +C05F F7 00 18 ... stab 0018 +C062 F6 00 18 ... ldab 0018 +C065 C1 FF .. cmpb #ff +C067 24 46 $F bcc 46 ; to c0af (jump 70 - write string) +C069 30 0 tsx +C06A E6 07 .. ldab 07,x +C06C 4F O clra +C06D E3 02 .. addd 02,x +C06F A3 00 .. subd 00,x +C071 24 05 $. bcc 05 +C073 30 0 tsx +C074 EC 02 .. ldd 02,x +C076 ED 00 .. std 00,x +C078 30 0 tsx +C079 EE 00 .. ldx 00,x +C07B E6 00 .. ldab 00,x +C07D C1 40 .@ cmpb #40 +C07F 24 13 $. bcc 13 +C081 30 0 tsx +C082 EE 00 .. ldx 00,x +C084 E6 00 .. ldab 00,x +C086 37 7 pshb +C087 F6 00 18 ... ldab 0018 +C08A 4F O clra +C08B C3 0B 90 ... addd #0b90 +C08E 8F . xgdx +C08F 33 3 pulb +C090 E7 00 .. stab 00,x +C092 20 13 . bra 13 +C094 30 0 tsx +C095 EE 00 .. ldx 00,x +C097 E6 00 .. ldab 00,x +C099 CB C0 .. addb #c0 +C09B 37 7 pshb +C09C F6 00 18 ... ldab 0018 +C09F 4F O clra +C0A0 C3 0B 90 ... addd #0b90 +C0A3 8F . xgdx +C0A4 33 3 pulb +C0A5 E7 00 .. stab 00,x +C0A7 38 8 pulx +C0A8 08 . inx +C0A9 3C < pshx +C0AA 7A 00 18 z.. dec 0018 +C0AD 20 B3 . bra b3 +C0AF BD BE 01 ... jsr be01 ;jump70 +C0B2 C6 03 .. ldab #03 +C0B4 F7 00 2C .., stab 002c +goto33: +C0B7 38 8 pulx +C0B8 38 8 pulx +C0B9 39 9 rts + +;Display a string. D points to the string, which is NULL-terminated + +display: +C0BA 37 7 pshb +C0BB 36 6 psha +C0BC F6 00 1F ... ldab 001f +C0BF C4 04 .. andb #04 +C0C1 26 03 &. bne 03 +C0C3 7F 00 2C .., clr 002c +C0C6 F6 00 2C .., ldab 002c +C0C9 26 13 &. bne 13 ; to c0de +C0CB 5F _ clrb +C0CC 4F O clra +C0CD FD 00 03 ... std 0003 +C0D0 7F 00 2C .., clr 002c +C0D3 CE 00 09 ... ldx #0009 +C0D6 3C < pshx +C0D7 30 0 tsx +C0D8 EC 02 .. ldd 02,x +C0DA BD C0 2E ... jsr c02e ;jump71 +C0DD 38 8 pulx +C0DE 38 8 pulx +C0DF 39 9 rts + +jump94: +C0E0 F6 00 15 ... ldab 0015 +C0E3 2C 02 ,. bge 02 +C0E5 20 F9 . bra f9 +C0E7 CE 00 1D ... ldx #001d +C0EA 1C 00 20 .. bset 00,x, #20 +C0ED BD D7 30 . jsr d730 ;jump202 +C0EE 83 00 00 .0. subd #0000 +C0F3 27 09 '. beq 09 +C0F5 CE 00 1D ... ldx #001d +C0F8 1D 00 20 .. bclr 00,x, #20 +C0FB 5F . clrb +C0FC 4F O clra +C0FD 39 9 rts + +C0FE CE 00 14 ... ldx #0014 +C101 1C 00 01 ... bset 00,x, #01 +C104 F6 00 14 ... ldab 0014 +C107 F7 38 00 .8. stab 3800 ; note acceptor business +C10A F6 00 15 ... ldab 0015 +C10D C4 1F .. andb #1f +C10F 26 03 &. bne 03 +C111 7E C3 1B ~.. jmp c31b ;goto34 +C114 C6 14 .. ldab #14 +C116 F7 00 31 ..1 stab 0031 +C119 F6 00 15 ... ldab 0015 +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 ;jump6 +C128 CE 00 1D ... ldx #001d +C12B 1D 00 20 .. bclr 00,x, #20 +C12D 5F _ clrb +C12F 4F O clra +C130 39 9 rts + +C131 20 E6 . bra e6 +C133 FC 00 3E ..> ldd 003e +C136 F3 00 40 ..@ addd 0040 +C139 FD 00 40 ..@ std 0040 +C13C 5F _ clrb +C13D 4F O clra +C13E FD 00 3E ..> std 003e +C141 F6 00 15 ... ldab 0015 +C144 C4 1F .. andb #1f +C146 4F O clra +C147 BD FE 32 ..2 jsr fe32 ;jump25 +C14A C1 64 00 01 .... ; array data for jump25 +C14E C1 BA 00 01 .... +C152 C2 10 00 02 .... +C156 C2 66 00 04 .f.. +C15A C2 BB 00 08 .... +C15E C3 0E FF F0 .... +C162 00 00 .. ; end of array data +C164 FC 0C DD ... ldd 0cdd +C167 83 FF FF ... subd #ffff +C16A 26 05 &. bne 05 +C16C 5F _ clrb +C16D 4F O clra +C16E FD 0C DD ... std 0cdd +C171 FE 0C DD ... ldx 0cdd +C174 08 . inx +C175 FF 0C DD ... stx 0cdd +C178 CE 00 64 ..d ldx #0064 +C17B 3C < pshx +C17C CC 00 00 ... ldd #0000 +C17F 37 7 pshb +C180 36 6 psha +C181 CC 0C F3 ... ldd #0cf3 +C184 BD FB DF ... jsr fbdf ;jump46 +C187 31 1 ins +C188 31 1 ins +C189 FE 0C F5 ... ldx 0cf5 +C18C 3C < pshx +C18D FC 0C F3 ... ldd 0cf3 +C190 37 7 pshb +C191 36 6 psha +C192 CE FF 9C ... ldx #ff9c +C195 3C < pshx +C196 CC 00 63 ..c ldd #0063 +C199 30 0 tsx +C19A A3 02 .. subd 02,x +C19C 32 2 pula +C19D 33 3 pulb +C19E 26 02 &. bne 02 +C1A0 A3 04 .. subd 04,x +C1A2 38 8 pulx +C1A3 38 8 pulx +C1A4 24 11 $. bcc 11 +C1A6 CE 00 64 ..d ldx #0064 +C1A9 3C < pshx +C1AA CC FF 9C ... ldd #ff9c +C1AD 37 7 pshb +C1AE 36 6 psha +C1AF CC 0C F3 ... ldd #0cf3 +C1B2 BD FB DF ... jsr fbdf ;jump46 +C1B5 31 1 ins +C1B6 31 1 ins +C1B7 7E C3 0E ~.. jmp c30e ;goto35 +C1BA FC 0C DF ... ldd 0cdf +C1BD 83 FF FF ... subd #ffff +C1C0 26 05 &. bne 05 +C1C2 5F _ clrb +C1C3 4F O clra +C1C4 FD 0C DF ... std 0cdf +C1C7 FE 0C DF ... ldx 0cdf +C1CA 08 . inx +C1CB FF 0C DF ... stx 0cdf +C1CE CE 00 C8 ... ldx #00c8 +C1D1 3C < pshx +C1D2 CC 00 00 ... ldd #0000 +C1D5 37 7 pshb +C1D6 36 6 psha +C1D7 CC 0C F7 ... ldd #0cf7 +C1DA BD FB DF ... jsr fbdf ;jump46 +C1DD 31 1 ins +C1DE 31 1 ins +C1DF FE 0C F9 ... ldx 0cf9 +C1E2 3C < pshx +C1E3 FC 0C F7 ... ldd 0cf7 +C1E6 37 7 pshb +C1E7 36 6 psha +C1E8 CE FF 38 ..8 ldx #ff38 ; -200 +C1EB 3C < pshx +C1EC CC 00 C7 ... ldd #00c7 +C1EF 30 0 tsx +C1F0 A3 02 .. subd 02,x +C1F2 32 2 pula +C1F3 33 3 pulb +C1F4 26 02 &. bne 02 +C1F6 A3 04 .. subd 04,x +C1F8 38 8 pulx +C1F9 38 8 pulx +C1FA 24 11 $. bcc 11 +C1FC CE 00 C8 ... ldx #00c8 +C1FF 3C < pshx +C200 CC FF 38 ..8 ldd #ff38 ; -200 +C203 37 7 pshb +C204 36 6 psha +C205 CC 0C F7 ... ldd #0cf7 +C208 BD FB DF ... jsr fbdf ;jump46 +C20B 31 1 ins +C20C 31 1 ins +C20D 7E C3 0E ~.. jmp c30e ;goto35 +C210 FC 0C E1 ... ldd 0ce1 +C213 83 FF FF ... subd #ffff +C216 26 05 &. bne 05 +C218 5F _ clrb +C219 4F O clra +C21A FD 0C E1 ... std 0ce1 +C21D FE 0C E1 ... ldx 0ce1 +C220 08 . inx +C221 FF 0C E1 ... stx 0ce1 +C224 CE 01 F4 ... ldx #01f4 +C227 3C < pshx +C228 CC 00 00 ... ldd #0000 +C22B 37 7 pshb +C22C 36 6 psha +C22D CC 0C FB ... ldd #0cfb +C230 BD FB DF ... jsr fbdf ;jump46 +C233 31 1 ins +C234 31 1 ins +C235 FE 0C FD ... ldx 0cfd +C238 3C < pshx +C239 FC 0C FB ... ldd 0cfb +C23C 37 7 pshb +C23D 36 6 psha +C23E CE FE 0C ... ldx #fe0c +C241 3C < pshx +C242 CC 01 F3 ... ldd #01f3 +C245 30 0 tsx +C246 A3 02 .. subd 02,x +C248 32 2 pula +C249 33 3 pulb +C24A 26 02 &. bne 02 +C24C A3 04 .. subd 04,x +C24E 38 8 pulx +C24F 38 8 pulx +C250 24 11 $. bcc 11 +C252 CE 01 F4 ... ldx #01f4 +C255 3C < pshx +C256 CC FE 0C ... ldd #fe0c +C259 37 7 pshb +C25A 36 6 psha +C25B CC 0C FB ... ldd #0cfb +C25E BD FB DF ... jsr fbdf ;jump46 +C261 31 1 ins +C262 31 1 ins +C263 7E C3 0E ~.. jmp c30e ;goto35 +C266 FC 0C E3 ... ldd 0ce3 +C269 83 FF FF ... subd #ffff +C26C 26 05 &. bne 05 +C26E 5F _ clrb +C26F 4F O clra +C270 FD 0C E3 ... std 0ce3 +C273 FE 0C E3 ... ldx 0ce3 +C276 08 . inx +C277 FF 0C E3 ... stx 0ce3 +C27A CE 03 E8 ... ldx #03e8 +C27D 3C < pshx +C27E CC 00 00 ... ldd #0000 +C281 37 7 pshb +C282 36 6 psha +C283 CC 0C FF ... ldd #0cff +C286 BD FB DF ... jsr fbdf ;jump46 +C289 31 1 ins +C28A 31 1 ins +C28B FE 0D 01 ... ldx 0d01 +C28E 3C < pshx +C28F FC 0C FF ... ldd 0cff +C292 37 7 pshb +C293 36 6 psha +C294 CE FC 18 ... ldx #fc18 +C297 3C < pshx +C298 CC 03 E7 ... ldd #03e7 +C29B 30 0 tsx +C29C A3 02 .. subd 02,x +C29E 32 2 pula +C29F 33 3 pulb +C2A0 26 02 &. bne 02 +C2A2 A3 04 .. subd 04,x +C2A4 38 8 pulx +C2A5 38 8 pulx +C2A6 24 11 $. bcc 11 +C2A8 CE 03 E8 ... ldx #03e8 +C2AB 3C < pshx +C2AC CC FC 18 ... ldd #fc18 +C2AF 37 7 pshb +C2B0 36 6 psha +C2B1 CC 0C FF ... ldd #0cff +C2B4 BD FB DF ... jsr fbdf ;jump46 +C2B7 31 1 ins +C2B8 31 1 ins +C2B9 20 53 S bra 53 +C2BB FC 0C E5 ... ldd 0ce5 +C2BE 83 C3 4F ..O subd #c34f +C2C1 26 05 &. bne 05 +C2C3 5F _ clrb +C2C4 4F O clra +C2C5 FD 0C E5 ... std 0ce5 +C2C8 FE 0C E5 ... ldx 0ce5 +C2CB 08 . inx +C2CC FF 0C E5 ... stx 0ce5 +C2CF CE 07 D0 ... ldx #07d0 +C2D2 3C < pshx +C2D3 CC 00 00 ... ldd #0000 +C2D6 37 7 pshb +C2D7 36 6 psha +C2D8 CC 0D 03 ... ldd #0d03 +C2DB BD FB DF ... jsr fbdf ;jump46 +C2DE 31 1 ins +C2DF 31 1 ins +C2E0 FE 0D 05 ... ldx 0d05 +C2E3 3C < pshx +C2E4 FC 0D 03 ... ldd 0d03 +C2E7 37 7 pshb +C2E8 36 6 psha +C2E9 CE D9 30 ..0 ldx #d930 +C2EC 3C < pshx +C2ED CC 05 F5 ... ldd #05f5 +C2F0 30 0 tsx +C2F1 A3 02 .. subd 02,x +C2F3 32 2 pula +C2F4 33 3 pulb +C2F5 26 02 &. bne 02 +C2F7 A3 04 .. subd 04,x +C2F9 38 8 pulx +C2FA 38 8 pulx +C2FB 24 11 $. bcc 11 +C2FD CE 26 D0 .&. ldx #26d0 +C300 3C < pshx +C301 CC FA 0A ... ldd #fa0a +C304 37 7 pshb +C305 36 6 psha +C306 CC 0D 03 ... ldd #0d03 +C309 BD FB DF ... jsr fbdf ;jump46 +C30C 31 1 ins +C30D 31 1 ins +goto35: +C30E F6 00 15 ... ldab 0015 +C311 2C 02 ,. bge 02 +C313 20 F9 . bra f9 +C315 CE 00 15 ... ldx #0015 +C318 1D 00 .. bclr add,x 00,x +C31A 1F CE 00 1D .... brclr ce,x 00 1d +;goto34 +; c31b??? +C31E 1D 00 .. bclr add,x 00,x +C320 20 CC . bra cc +C322 00 . test +C323 01 . nop +C324 39 9 rts + +jump64: +C325 F6 10 00 ... ldab 1000 +C328 C4 01 .. andb #01 +C32A 26 13 &. bne 13 +C32C 7C 00 7D |.} inc 007d +C32F F6 00 7D ..} ldab 007d +C332 C1 05 .. cmpb #05 +C334 23 03 #. bls 03 +C336 7F 00 7D ..} clr 007d +C339 7F 00 7E ..~ clr 007e +C33C 7E C4 2F ~./ jmp c42f ;goto36 +C33F 7C 00 7E |.~ inc 007e +C342 F6 00 7E ..~ ldab 007e +C345 C1 07 .. cmpb #07 +C347 23 17 #. bls 17 +C349 7F 00 7D ..} clr 007d +C34C 7F 00 7E ..~ clr 007e +C34F 7F 00 7C ..| clr 007c +C352 F6 00 15 ... ldab 0015 +C355 2C 03 ,. bge 03 +C357 7F 00 2C .., clr 002c +C35A CE 00 15 ... ldx #0015 +C35D 1D 00 80 .. bclr 00,x, #80 +C35F F6 00 7E ... ldab 007e +C363 26 03 .. bne 03 ; to c368 +C365 7E C4 2F ~./ jmp c42f ;goto36 +C368 F6 00 7D ..} ldab 007d +C36B C1 01 .. cmpb #01 +C36D 22 03 ". bhi 03 +C36F 7E C4 2F ~./ jmp c42f ;goto36 +C372 CE 00 15 ... ldx #0015 +C375 1C 00 80 .. bset 00,x, #80 +C378 CE 0B C1 ... ldx #0bc1 +C37B 1D 00 08 .. bclr 00,x #08 +C37E F6 00 1D ... ldab 001d +C381 C4 20 . andb #20 +C383 27 03 '. beq 03 +C385 7E C4 29 ~.) jmp c429 ;goto38 +C388 C6 02 .. ldab #02 +C38A F7 00 2C .., stab 002c +C38D 7F 00 3A ..: clr 003a +C390 CE 00 1B ... ldx #001b +C393 1D 00 40 .. bclr 00,x, #40 +C396 7F 00 25 ..% clr 0025 +C399 CE 00 21 ..! ldx #0021 +C39C 1D 00 08 ... bclr 00,x, #08 +C39F CE 00 14 ... ldx #0014 +C3A2 1D 00 01 .. bclr 00,x, #01 +C3A5 F6 00 14 ... ldab 0014 +C3A8 F7 38 00 .8. stab 3800 ; note acceptor business +C3AB 7C 00 7C |.| inc 007c +C3AE CE 00 15 ... ldx #0015 +C3B1 1D 00 1F .. bclr 00,x, #1f +C3B4 F6 00 7C ..| ldab 007c +C3B7 C1 01 .. cmpb #01 +C3B9 26 0E &. bne 0e +C3BB CE 00 15 ... ldx #0015 +C3BE 1C 00 01 .. bset 00,x, #01 +C3C1 CC 00 64 ..d ldd #0064 +C3C4 FD 00 3E ..> std 003e +C3C7 20 60 ` bra 60 +C3C9 F6 00 7C ..| ldab 007c +C3CC C1 02 .. cmpb #02 +C3CE 26 0E &. bne 0e +C3D0 CE 00 15 ... ldx #0015 +C3D3 1C 00 02 .. bset 00,x, #02 +C3D6 CC 00 C8 ... ldd #00c8 +C3D9 FD 00 3E ..> std 003e +C3DC 20 4B K bra 4b +C3DE F6 00 7C ..| ldab 007c +C3E1 C1 02 .. cmpb #02 +C3E3 23 15 #. bls 15 +C3E5 F6 00 7C ..| ldab 007c +C3E8 C1 06 .. cmpb #06 +C3EA 24 0E $. bcc 0e +C3EC CE 00 15 ... ldx #0015 +C3EF 1C 00 .. bset 00,x, #04 +C3F2 CC 01 F4 ... ldd #01f4 +C3F5 FD 00 3E ..> std 003e +C3F8 20 2F / bra 2f +C3FA F6 00 7C ..| ldab 007c +C3FD C1 05 .. cmpb #05 +C3FF 23 15 #. bls 15 +C401 F6 00 7C ..| ldab 007c +C404 C1 0B .. cmpb #0b +C406 24 0E $. bcc 0e +C408 CE 00 15 ... ldx #0015 +C40B 1C 00 08 .. bset 00,x, #08 +C40E CC 03 E8 ... ldd #03e8 +C411 FD 00 3E ..> std 003e +C414 20 13 . bra 13 ; to c429 +C416 F6 00 7C ..| ldab 007c +C419 C1 0B .. cmpb #0b +C41B 23 0C #. bls 0c +C41D CE 00 15 ... ldx #0015 +C420 1C 00 10 .. bset 00,x, #10 +C423 CC 07 D0 ... ldd #07d0 +C426 FD 00 3E ..> std 003e +goto38: +C429 7F 00 7D ..} clr 007d +C42C 7F 00 7E ..~ clr 007e +goto36: +C42F 39 9 rts + +jump26: +; tweaks the changer output lines (at 3000) that correspond with the bitmask of +; 0001. It pulls the lines with 1 set in the bitmask low (active) for 100ms +C430 F6 00 01 ... ldab 0001 +C433 53 S comb +C434 F4 00 1A ... andb 001a ; 0x3000 buffer - changer outputs +C437 F7 00 1A ... stab 001a +C43A F6 00 1A ... ldab 001a +C43D F7 30 00 .0. stab 3000 ; coin mask +C440 CC 00 64 ..d ldd #0064 +C443 BD E5 71 ..q jsr e571 ;msdelay +C446 F6 00 01 ... ldab 0001 +C449 FA 00 1A ... orb 001a +C44C F7 00 1A ... stab 001a +C44F F6 00 1A ... ldab 001a +C452 F7 30 00 .0. stab 3000 ; changer outputs again +C455 39 9 rts + +jump47: +C456 FC 00 40 ..@ ldd 0040 +C459 26 03 &. bne 03 +C45B 7E C5 C6 ~.. jmp c5c6 ;goto39 +C45E CE 00 1A ... ldx #001a +C461 1C 00 01 .. bset 00,x, #01 +C464 F6 00 1A ... ldab 001a +C467 F7 30 00 .0. stab 3000 ; changer accept off +C46A CC 03 E8 ... ldd #03e8 +C46D BD E5 71 ..q jsr e571 ;msdelay +goto42: +C470 FC 00 40 ..@ ldd 0040 +C473 83 00 00 ... subd #0000 +C476 22 03 ". bhi 03 +C478 7E C5 B0 ~.. jmp c5b0 ;goto40 +C47B F6 00 1B ... ldab 001b +C47E C4 20 . andb #20 +C480 27 1B '. beq 1b +C482 FC 00 40 ..@ ldd 0040 +C485 83 03 E8 ... subd #03e8 +C488 25 13 %. bcs 13 +C48A C6 28 .( ldab #28 +C48C F7 00 01 ... stab 0001 +C48F CC FC 18 ... ldd #fc18 +C492 F3 00 40 ..@ addd 0040 +C495 FD 00 40 ..@ std 0040 +C498 8D 96 .. bsr dest 96 +C49A 7E C5 7C ~.| jmp c57c ;goto41 +C49D F6 00 1B ... ldab 001b +C4A0 C4 20 . andb #20 +C4A2 27 1C '. beq 1c +C4A4 FC 00 40 ..@ ldd 0040 +C4A7 83 00 64 ..d subd #0064 +C4AA 25 14 %. bcs 14 +C4AC C6 30 .0 ldab #30 +C4AE F7 00 01 ... stab 0001 +C4B1 CC FF 9C ... ldd #ff9c +C4B4 F3 00 40 ..@ addd 0040 +C4B7 FD 00 40 ..@ std 0040 +C4BA BD C4 30 ..0 jsr c430 ;jump26 +C4BD 7E C5 7C ~.| jmp c57c ;goto41 +C4C0 FC 0B DD ... ldd 0bdd +C4C3 27 3C '< beq 3c +C4C5 FC 00 40 ..@ ldd 0040 +C4C8 B3 0B DD ... subd 0bdd +C4CB 25 34 %4 bcs 34 +C4CD F6 0C DB ... ldab 0cdb +C4D0 26 07 &. bne 07 +C4D2 F6 00 1B ... ldab 001b +C4D5 C4 20 . andb #20 +C4D7 27 28 '( beq 28 +C4D9 FC 0B DD ... ldd 0bdd +C4DC 53 S comb +C4DD 43 C coma +C4DE F9 00 41 ..A adcb 0041 +C4E1 B9 00 40 ..@ adca 0040 +C4E4 FD 00 40 ..@ std 0040 +C4E7 F6 0B DA ... ldab 0bda +C4EA F7 00 01 ... stab 0001 +C4ED BD C4 30 ..0 jsr c430 ;jump26 +C4F0 F6 00 1B ... ldab 001b +C4F3 C4 20 . andb #20 +C4F5 26 08 &. bne 08 +C4F7 F6 0C DB ... ldab 0cdb +C4FA 27 03 '. beq 03 +C4FC 7A 0C DB z.. dec 0cdb +C4FF 20 7B { bra 7b +C501 FC 0B DF ... ldd 0bdf +C504 27 3C '< beq 3c +C506 FC 00 40 ..@ ldd 0040 +C509 B3 0B DF ... subd 0bdf +C50C 25 34 %4 bcs 34 +C50E F6 0C DA ... ldab 0cda +C511 26 07 &. bne 07 +C513 F6 00 1B ... ldab 001b +C516 C4 20 . andb #20 +C518 27 28 '( beq 28 +C51A FC 0B DF ... ldd 0bdf +C51D 53 S comb +C51E 43 C coma +C51F F9 00 41 ..A adcb 0041 +C522 B9 00 40 ..@ adca 0040 +C525 FD 00 40 ..@ std 0040 +C528 F6 0B DB ... ldab 0bdb +C52B F7 00 01 ... stab 0001 +C52E BD C4 30 ..0 jsr c430 ;jump26 +C531 F6 00 1B ... ldab 001b +C534 C4 20 . andb #20 +C536 26 08 &. bne 08 +C538 F6 0C DA ... ldab 0cda +C53B 27 03 '. beq 03 +C53D 7A 0C DA z.. dec 0cda +C540 20 3A : bra 3a +C542 FC 0B E1 ... ldd 0be1 +C545 27 30 '0 beq 30 +C547 FC 00 40 ..@ ldd 0040 +C54A B3 0B E1 ... subd 0be1 +C54D 25 28 %( bcs 28 +C54F FC 0B E1 ... ldd 0be1 +C552 53 S comb +C553 43 C coma +C554 F9 00 41 ..A adcb 0041 +C557 B9 00 40 ..@ adca 0040 +C55A FD 00 40 ..@ std 0040 +C55D F6 0B DC ... ldab 0bdc +C560 F7 00 01 ... stab 0001 +C563 BD C4 30 ..0 jsr c430 ;jump26 +C566 F6 00 1B ... ldab 001b +C569 C4 20 . andb #20 +C56B 26 08 &. bne 08 +C56D F6 0C D9 ... ldab 0cd9 +C570 27 03 '. beq 03 +C572 7A 0C D9 z.. dec 0cd9 +C575 20 05 . bra 05 +C577 5F _ clrb +C578 4F O clra +C579 FD 00 40 ..@ std 0040 +goto41: +C57C CC 01 2C .., ldd #012c +C57F BD E5 71 ..q jsr e571 ;msdelay +C582 F6 00 1B ... ldab 001b +C585 C4 20 . andb #20 +C587 26 24 &$ bne 24 +C589 CE 00 1A ... ldx #001a +C58C 1D 00 01 .. bclr 00,x, #01 +C58F F6 00 1A ... ldab 001a +C592 F7 30 00 .0. stab 3000 ; changer accept' low +C595 CC 00 0C ... ldd #000c +C598 BD E5 71 ..q jsr e571 ;msdelay +C59B CE 00 1A ... ldx #001a +C59E 1C 00 01 .. bset 00,x, #01 +C5A1 F6 00 1A ... ldab 001a +C5A4 F7 30 00 .0. stab 3000 ; changer accept' high +C5A7 CC 00 23 ..# ldd #0023 +C5AA BD E5 71 ..q jsr e571 ;msdelay +C5AD 7E C4 70 ~.p jmp c470 ;goto42 +goto40: +C5B0 F6 0B C0 ... ldab 0bc0 +C5B3 C4 04 .. andb #04 +C5B5 27 0F '. beq 0f +C5B7 F6 00 1B ... ldab 001b +C5BA C4 20 . andb #20 +C5BC 27 08 '. beq 08 +C5BE C6 38 .8 ldab #38 +C5C0 F7 00 01 ... stab 0001 +C5C3 BD C4 30 ..0 jsr c430 ;jump26 +goto39: +C5C6 CE 00 21 ..! ldx #0021 +C5C9 1D 00 10 ... bclr 00,x, #10 +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 ;goto43 +C5DD CC 00 C8 ... ldd #00c8 +C5E0 BD E5 71 ..q jsr e571 ;msdelay +C5E3 FC 00 3E ..> ldd 003e +C5E6 27 58 'X beq 58 +C5E8 F6 00 15 ... ldab 0015 +C5EB C4 1F .. andb #1f +C5ED 4F O clra +C5EE BD FE 32 ..2 jsr fe32 ;jump25 +C5F1 C6 0B 00 01 .. ; array data for jump25 +C5F5 C6 16 00 01 .. +C5F9 C6 21 00 02 .! +C5FD C6 2C 00 04 ., +C601 C6 37 00 08 .7 +C605 C6 40 FF F0 .@ +C609 00 00 .. ;end of array data +C60B CC FF 9C ... ldd #ff9c +C60E F3 00 3E ..> addd 003e +C611 FD 00 3E ..> std 003e +C614 20 2A * bra 2a +C616 CC FF 38 ..8 ldd #ff38 +C619 F3 00 3E ..> addd 003e +C61C FD 00 3E ..> std 003e +C61F 20 1F . bra 1f +C621 CC FE 0C ... ldd #fe0c +C624 F3 00 3E ..> addd 003e +C627 FD 00 3E ..> std 003e +C62A 20 14 . bra 14 +C62C CC FC 18 ... ldd #fc18 +C62F F3 00 3E ..> addd 003e +C632 FD 00 3E ..> std 003e +C635 20 09 . bra 09 +C637 CC F8 30 ..0 ldd #f830 +C63A F3 00 3E ..> addd 003e +C63D FD 00 3E ..> std 003e +C640 CE 00 14 ... ldx #0014 +C643 1D 00 02 ... bclr 00,x, #02 +C646 F6 00 14 ... ldab 0014 +C649 F7 38 00 .8. stab 3800 ; bill acceptor +C64C CC 00 1E ... ldd #001e +C64F BD E5 71 ..q jsr e571 ;msdelay +C652 CE 00 15 ... ldx #0015 +C655 1D 00 .. bclr add,x 00,x +C657 1F CE 00 14 .... brclr ce,x 00 14 +C65B 1C 00 02 ... bset 00,x, #02 +C65E F6 00 14 ... ldab 0014 +C661 F7 38 00 .8. stab 3800 ; bill acceptor +C664 CC 00 19 ... ldd #0019 +C667 BD E5 71 ..q jsr e571 ;msdelay +C66A CE 00 14 ... ldx #0014 +C66D 1C 00 01 .. bset 00,x, #01 +C670 F6 00 14 ... ldab 0014 +C673 F7 38 00 .8. stab 3800 ; bill acceptor +C676 CC 00 19 ... ldd #0019 +C679 BD E5 71 ..q jsr e571 ;msdelay +goto43: +C67C 39 9 rts + +jump124: +C67D F6 00 30 ..0 ldab 0030 +C680 26 55 &U bne 55 +C682 F6 0B C0 ... ldab 0bc0 +C685 C4 04 .. andb #04 +C687 26 4E &N bne 4e +C689 C6 27 .' ldab #27 +C68B F7 10 2D ..- stab 102d ; disable SCI transmission +C68E C6 07 .. ldab #07 +C690 F7 10 2B ..+ stab 102b ; 600 baud +C693 CE 00 1A ... ldx #001a +C696 1C 00 .. bset 00,x, #04 +C699 F6 00 1A ... ldab 001a +C69C F7 30 00 .0. stab 3000 ; keypad strobe +C69F CC 00 14 ... ldd #0014 +C6A2 BD E5 71 ..q jsr e571 ;msdelay +C6A5 F6 0B C0 ... ldab 0bc0 +C6A8 C4 01 .. andb #01 +C6AA 27 06 '. beq 06 +C6AC CE 0B C1 ... ldx #0bc1 +C6AF 1C 00 01 ... bset 00,x, #01 +C6B2 F6 0B C0 ... ldab 0bc0 +C6B5 C4 04 .. andb #04 +C6B7 27 06 '. beq 06 +C6B9 CE 0B C1 ... ldx #0bc1 +C6BC 1C 00 02 ... bset 00,x, #02 +C6BF CE 00 1A ... ldx #001a +C6C2 1D 00 04 ... bclr 00,x, #04 ; keypad strobe finish +C6C5 F6 00 1A ... ldab 001a +C6C8 F7 30 00 .0. stab 3000 +C6CB C6 96 .. ldab #96 +C6CD F7 00 30 ..0 stab 0030 +C6D0 C6 1E .. ldab #1e +C6D2 F7 00 35 ..5 stab 0035 +C6D5 20 5D ] bra 5d +C6D7 F6 18 00 ... ldab 1800 +C6DA 2D 2A -* blt 2a +C6DC F6 00 07 ... ldab 0007 +C6DF 26 25 &% bne 25 +C6E1 CE 00 1A ... ldx #001a +C6E4 1D 00 02 ... bclr 00,x, #02 +C6E7 F6 00 1A ... ldab 001a +C6EA F7 30 00 .0. stab 3000 ; changer send' low +C6ED C6 64 .d ldab #64 +C6EF F7 00 2D ..- stab 002d +C6F2 CC 00 32 ..2 ldd #0032 +C6F5 BD E5 71 ..q jsr e571 ;msdelay +C6F8 CE 00 1A ... ldx #001a +C6FB 1C 00 02 ... bset 00,x, #02 +C6FE F6 00 1A ... ldab 001a +C701 F7 30 00 .0. stab 3000 ; changer send' high +C704 20 2E . bra 2e +C706 F6 00 2D ..- ldab 002d +C709 26 29 &) bne 29 +C70B CE 00 1A ... ldx #001a +C70E 1D 00 01 ... bclr 00,x, #01 +C711 F6 00 1A ... ldab 001a +C714 F7 30 00 .0. stab 3000 ; changer accept' low +C717 CC 00 0C ... ldd #000c +C71A BD E5 71 ..q jsr e571 ;msdelay +C71D CE 00 1A ... ldx #001a +C720 1C 00 01 ... bset 00,x, #01 +C723 F6 00 1A ... ldab 001a +C726 F7 30 00 .0. stab 3000 ; changer accept' high +C729 CC 00 23 ..# ldd #0023 +C72C BD E5 71 ..q jsr e571 ;msdelay +C72F C6 64 .d ldab #64 +C731 F7 00 2D ..- stab 002d +C734 F6 00 21 ..! ldab 0021 +C737 C4 10 .. andb #10 +C739 27 45 'E beq 45 +C73B F6 00 11 ... ldab 0011 +C73E C4 04 .. andb #04 +C740 26 1A &. bne 1a +C742 FC 00 40 ..@ ldd 0040 +C745 F3 00 3E ..> addd 003e +C748 B3 00 50 ..P subd 0050 +C74B 25 0F %. bcs 0f +C74D F6 0B C0 ... ldab 0bc0 +C750 C4 04 .. andb #04 +C752 26 08 &. bne 08 +C754 CE 00 21 ..! ldx #0021 +C757 1D 00 10 ... bclr 00,x, #10 +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 ;jump6 +C766 FC 0B DD ... ldd 0bdd +C769 26 12 &. bne 12 +C76B FC 0B DF ... ldd 0bdf +C76E 26 0D &. bne 0d +C770 FC 0B E1 ... ldd 0be1 +C773 26 08 &. bne 08 +C775 CE 00 21 ..! ldx #0021 +C778 1D 00 10 ... bclr 00,x, #10 +C77B 20 03 . bra 03 +C77D BD C4 56 ..V jsr c456 ;jump47 +C780 F6 00 15 ... ldab 0015 +C783 2D 08 -. blt 08 +C785 CE 00 21 ..! ldx #0021 +C788 1C 00 08 ... bset 00,x, #08 +C78B 20 06 . bra 06 +C78D CE 00 21 ..! ldx #0021 +C790 1D 00 08 ... bclr 00,x, #08 +C793 39 9 rts + +;proc(a,b) var local +;local=0 +;while b<>0 +; +;endwhile +;return local + +; tests parity? +C794 37 7 pshb +C795 36 6 psha +C796 34 4 des ;stack: 0=local, 1=A, 2=B +C797 30 0 tsx +C798 6F 00 o. clr 00,x +loop: +C79A 30 0 tsx +C79B E6 02 .. ldab 02,x +C79D 27 1A '. beq exit ;c7b9 +C79F 30 0 tsx +C7A0 1F 02 01 0D .... brclr 02,x 01 skip ;c7b1 +C7A4 30 0 tsx +C7A5 E6 00 .. ldab 00,x +C7A7 27 05 '. beq else ;c7ae +C7A9 30 0 tsx +C7AA 6A 00 j. dec 00,x +C7AC 20 03 . bra skip ;c7b1 +else: +C7AE 30 0 tsx +C7AF 6C 00 l. inc 00,x +skip: +C7B1 30 0 tsx +C7B2 E6 02 .. ldab 02,x +C7B4 54 T lsrb +C7B5 E7 02 .. stab 02,x +C7B7 20 E1 . bra loop ;c79a +exit: +C7B9 30 0 tsx +C7BA E6 00 .. ldab 00,x +C7BC 4F O clra +C7BD 38 8 pulx +C7BE 31 1 ins +C7BF 39 9 rts + +jump49: +; parity tester. returns 0 if good +C7C0 F6 10 2F ../ ldab 102f ; sci data +C7C3 4F O clra +C7C4 8D CE .. bsr c794 ; parity test? +C7C6 83 00 00 ... subd #0000 +C7C9 27 05 '. beq 05 +C7CB F6 10 2C .., ldab 102c ; test the 9th bit +C7CE 2D 10 -. blt 10 ; to c7e0 +C7D0 F6 10 2F ../ ldab 102f ; sci data +C7D3 4F O clra +C7D4 8D BE .. bsr c794 ; parity test? +C7D6 83 00 00 ... subd #0000 +C7D9 26 09 &. bne 09 ; to c7e4 +C7DB F6 10 2C .., ldab 102c ; test the 9th bit +C7DE 2D 04 -. blt 04 +C7E0 CC 00 01 ... ldd #0001 ; return 1 +C7E3 39 9 rts +; return 0 +C7E4 5F _ clrb +C7E5 4F O clra +C7E6 39 9 rts + + +;this might send a byte to the serial port +jump37: +C7E7 37 7 pshb +C7E8 36 6 psha +C7E9 C6 32 .2 ldab #32 ; 50 +C7EB F7 00 31 ..1 stab 0031 +C7EE 30 0 tsx +C7EF E6 01 .. ldab 01,x +C7F1 F7 00 43 ..C stab 0043 +; poll the TD register empty flag until it's set +C7F4 F6 10 2E ... ldab 102e +C7F7 2D 02 -. blt 02 ; transmit data register empty +C7F9 20 F9 . bra f9 ; to c7f4 +; +C7FB 30 0 tsx +C7FC E6 01 .. ldab 01,x +C7FE 4F O clra +C7FF 8D 93 .. bsr 93 ; to c794 - generate parity bit? +C801 83 00 00 ... subd #0000 +C804 27 08 '. beq 08 +C806 CE 10 2C .., ldx #102c +C809 1C 00 40 ... bset 00,x, #40 ; set the 9th bit +C80C 20 06 . bra 06 +C80E CE 10 2C .., ldx #102c ;SCI control 1 +C811 1D 00 40 ... bclr 00,x, #40 ; clear the 9th bit +C814 30 0 tsx +C815 E6 01 .. ldab 01,x +C817 F7 10 2F ../ stab 102f ; send to serial port +C81A 38 8 pulx +C81B 39 9 rts + + + + +sciinterrupt: +C81C 34 4 des +C81D F6 0B C0 ... ldab 0bc0 +C820 C4 01 .. andb #01 +C822 26 0A &. bne 0e ; to c82e +C824 F6 0B C0 ... ldab 0bc0 +C827 C4 04 .. andb #04 +C829 26 03 &. bne 03 ; to c82e +C82B 7E CB FF ~.. jmp cbff ;goto44 +C82E C6 96 .. ldab #96 ; 150 +C830 F7 00 30 ..0 stab 0030 +C833 F6 10 2E ... ldab 102e ; SCI status +C836 C4 02 .. andb #02 ; test for Framing Error +C838 26 0B &. bne 0b ; if so, to c845 +C83A F6 10 2F ../ ldab 102f ; read SCI data +C83D F1 00 26 ..& cmpb 0026 +C840 26 03 &. bne 03 +C842 7E C9 1B ~.. jmp c91b ;goto45 +; +C845 F6 10 2F ../ ldab 102f ; read SCI data +C848 C4 63 .c andb #63 ; 01100110 +C84A C1 23 .# cmpb #23 ; 00100110 +C84C 27 03 '. beq 03 +C84E 7E C8 E7 ~.. jmp c8e7 ;goto46 - pulse send' of changer +; doesnt return +C851 F6 00 1A ... ldab 001a ; register 3000 buffer +C854 C4 01 .. andb #01 ; accept' line of changer +C856 26 03 &. bne 03 +C858 7E C8 E7 ~.. jmp c8e7 ;goto46 - pulse send' of changer +; doesnt return +C85B F6 00 21 ..! ldab 0021 +C85E C4 F8 .. andb #f8 ; 11111000 +C860 37 7 pshb +C861 F6 10 2F ../ ldab 102f ; read SCI data +C864 C4 1C .. andb #1c ; 00011100 +C866 54 T lsrb ; ^^^ +C867 54 T lsrb ; get these bits out +C868 30 0 tsx +C869 EA 00 .. orb 00,x ; or it with the thing just above +C86B 31 1 ins +C86C F7 00 21 ..! stab 0021 +C86F F6 00 21 ..! ldab 0021 +C872 F4 0B D7 ... andb 0bd7 ; if (0021 & 0bd7) +C875 27 08 '. beq 08 ; is false +C877 CE 00 17 ... ldx #0017 +C87A 1C 00 20 .. bset 00,x, #20 +C87C 20 18 bra 18 +C87F F6 00 17 ... ldab 0017 ; if true +C882 C4 20 . andb #20 +C884 27 11 '. beq 11 ; if unset to c897 (break out of if) +C886 CE 00 17 ... ldx #0017 +C889 1D 00 .. bclr 00,x, #20 +C88C C6 04 . andb #04 +C88E F7 0C DB ... stab 0cdb +C891 CE 0B C1 ... ldx #0bc1 +C894 1C 00 40 ... bset 00,x, #40 ;endif +C897 F6 00 21 ..! ldab 0021 +C89A F4 0B D8 ... andb 0bd8 +C89D 27 08 '. beq 08 ; to c8a7 +C89F CE 00 17 ... ldx #0017 +C8A2 1C 00 40 ... bset 00,x, #40 +C8A5 20 18 . bra 18 ; to c8cf +; +C8A7 F6 00 17 ... ldab 0017 +C8AA C4 40 .@ andb #40 +C8AC 27 11 '. beq 11 ; to c8bf if unset +C8AE CE 00 17 ... ldx #0017 +C8B1 1D 00 40 ... bclr 00,x, #40 +C8B4 C6 04 .. ldab #04 +C8B6 F7 0C DA ... stab 0cda +C8B9 CE 0B C1 ... ldx #0bc1 +C8BC 1C 00 40 ... bset 00,x, #40 +; if 0021 & 0bd9, then set bit 7 of 0017, else unset it. +C8BF F6 00 21 ..! ldab 0021 +C8C2 F4 0B D9 ... andb 0bd9 +C8C5 27 08 '. beq 08 +C8C7 CE 00 17 ... ldx #0017 +C8CA 1C 00 80 .. bset 00,x, #80 +C8CC 20 16 . bra 16 ; to c8e5 +; +C8CF F6 00 17 ... ldab 0017 +C8D2 2C 11 ,. bge 11 ; to c8e5 +C8D4 CE 00 17 ... ldx #0017 +C8D7 1D 00 .. bclr 00,x, #80 +; set counter to 4? +C8D9 C6 04 .. ldab #04 +C8DC F7 0C D9 ... stab 0cd9 +; set tube error bit +C8DF CE 0B C1 ... ldx #0bc1 +C8E2 1C 00 40 ... bset 00,x, #40 +C8E5 20 31 1 bra 31 ; to c918 +; +goto46: ; pulse the send' line of the changer +C8E7 F6 10 2F ../ ldab 102f ; read SCI data +C8EA F7 00 26 ..& stab 0026 +C8ED CE 00 1A ... ldx #001a +C8F0 1C 00 02 ... bset 00,x, #02 +C8F3 F6 00 1A ... ldab 001a +C8F6 F7 30 00 .0. stab 3000 ; changer send' high +C8F9 F6 00 3D ..= ldab 003d +C8FC C4 04 .. andb #04 +C8FE 26 18 &. bne 18 ; to c918 +C900 CC 00 03 ... ldd #0003 +C903 BD E5 71 ..q jsr e571 ;msdelay +C906 CE 00 1A ... ldx #001a +C909 1D 00 02 ... bclr 00,x, #02 +C90C F6 00 1A ... ldab 001a +C90F F7 30 00 .0. stab 3000 ; changer send' low +C912 7C 00 3D |.= inc 003d +C915 7E CE 46 ~.F jmp ce46 ;goto47 (exit) +C918 7E CB DA ~.. jmp cbda ;goto48 (clean exit) +; +goto45: +C91B F6 00 08 ... ldab 0008 +C91E 26 03 &. bne 03 +C920 7E CA 5F ~._ jmp ca5f ;goto49 +C923 F6 00 17 ... ldab 0017 +C926 C4 04 .. andb #04 +C928 26 03 &. bne 03 +C92A 7E CA 5F ~._ jmp ca5f ;goto49 +C92D F6 00 17 ... ldab 0017 +C930 C4 08 .. andb #08 +C932 26 03 &. bne 03 +C934 7E CA 5F ~._ jmp ca5f ;goto49 +C937 F6 10 2F ../ ldab 102f ; read SCI data +C93A C1 FF .. cmpb #ff +C93C 27 07 '. beq 07 ; to c945 +C93E F6 00 08 ... ldab 0008 +C941 C1 0E .. cmpb #0e ; if > 14 +C943 25 12 %. bcs 12 ; to c957 +C945 CE 00 17 ... ldx #0017 +C948 1D 00 04 ... bclr 00,x, #04 +C94B 7F 00 08 ... clr 0008 +C94E BD CE 48 ..H jsr ce48 ;jump48 +C951 7F 00 2C .., clr 002c +C954 7E CA 5C ~.\ jmp ca5c ;goto50 - clean exit +; +C957 F6 00 08 ... ldab 0008 +C95A 4F O clra +C95B BD FE 16 ... jsr fe16 ;jump2 +C95E 00 01 00 0C . +C962 CA 59 .Y ; inc 0008 and clean exit +C964 C9 7E .~ ; read byte into 0bc2 +C966 C9 87 .. ; read byte into 0bc3 & ^10 and stuff +C968 C9 DF .. ; read byte into 0bc4 & stuff +C96A C9 F3 .. ; read byte into 0bc5 & stuff +C96C CA 07 .. ; read byte into 0bc6 & stuff +C96E CA 1B .. ; read byte into 0bc7 only +C970 CA 23 .# ; read byte into 0bc8 only +C972 CA 2B .+ ; read byte into 0bc9 only +C974 CA 33 .3 ; read byte into 0bca only +C976 CA 3B .; ; read byte into 0bcb only +C978 CA 43 .C ; read byte into 0bcc only +C97A CA 4B .K ; read byte into 0bcd only +C97C CA 53 .S ; read byte into 0bce only +C97E F6 10 2F ../ ldab 102f ; read SCI data +C981 F7 0B C2 ... stab 0bc2 +C984 7E CA 59 ~.Y jmp ca59 ;goto51 - inc 0008 and exit +; +C987 F6 10 2F ../ ldab 102f ; read SCI data +C98A F7 0B E3 ... stab 0be3 +C98D F6 10 2F ../ ldab 102f ; read SCI data +C990 C4 0F .. andb #0f +C992 C1 01 .. cmpb #01 +C994 26 07 &. bne 07 ; to c99d +C996 C6 02 .. ldab #02 +C998 F7 00 13 ... stab 0013 +C99B 20 1B . bra 1b ; to c9b8 +C99D C1 02 .. cmpb #02 +C99F 26 07 &. bne 07 ; to c9a8 +C9A1 C6 04 .. ldab #04 +C9A3 F7 00 13 ... stab 0013 +C9A6 20 10 . bra 10 ; to c9b8 +C9A8 C1 03 .. cmpb #03 +C9AA 26 07 &. bne 07 ; to c9b3 +C9AC C6 08 .. ldab #08 +C9AE F7 00 13 ... stab 0013 +C9B1 20 05 . bra 05 ; to c9b8 +C9B3 C6 01 .. ldab #01 +C9B5 F7 00 13 ... stab 0013 +C9B8 F6 10 2F ../ ldab 102f ; read SCI data +C9BB C4 F0 .. andb #f0 +C9BD 54 T lsrb +C9BE 54 T lsrb +C9BF 54 T lsrb +C9C0 54 T lsrb +C9C1 F7 0B C3 ... stab 0bc3 +C9C4 F6 0B C2 ... ldab 0bc2 +C9C7 F7 0B AA ... stab 0baa +;;0baa^:=pow(10,0bc3^) 0bc3 is the top 4 bits from the serial port. +;while 0bc3^<>0 +; obaa^:=0baa^*10 +; obc3^:=0bc3-1 +;endwhile +C9CA F6 0B C3 ... ldab 0bc3 +C9CD 27 0E '. beq c9dd +C9CF F6 0B AA ... ldab 0baa +C9D2 86 0A .. ldaa #0a +C9D4 3D = mul +C9D5 F7 0B AA ... stab 0baa +C9D8 7A 0B C3 z.. dec 0bc3 +C9DB 20 ED . bra c9ca +; +C9DD 20 7A z bra 7a ;goto51 - inc 0008 & clean exit +; +C9DF F6 10 2F ../ ldab 102f ; read SCI data +C9E2 F7 0B C4 ... stab 0bc4 +C9E5 F6 0B C4 ... ldab 0bc4 +C9E8 C1 80 .. cmpb #80 +C9EA 26 05 &. bne 05 +C9EC C6 0F .. ldab #0f +C9EE F7 0B C4 ... stab 0bc4 +C9F1 20 66 f bra 66 ;goto51 - inc 0008 & clean exit +; +C9F3 F6 10 2F ../ ldab 102f ; read SCI data +C9F6 F7 0B C5 ... stab 0bc5 +C9F9 F6 0B C5 ... ldab 0bc5 +C9FC C1 80 .. cmpb #80 +C9FE 26 05 &. bne 05 +CA00 C6 0F .. ldab #0f +CA02 F7 0B C5 ... stab 0bc5 +CA05 20 52 R bra 52 ;goto51 - inc 0008 & clean exit +; +CA07 F6 10 2F ../ ldab 102f ; read SCI data +CA0A F7 0B C6 ... stab 0bc6 +CA0D F6 0B C6 ... ldab 0bc6 +CA10 C1 80 .. cmpb #80 +CA12 26 05 &. bne ca19 +CA14 C6 0F .. ldab #0f +CA16 F7 0B C6 ... stab 0bc6 +CA19 20 3E > bra 3e ;goto51 - inc 0008 & clean exit +; +; read byte of data into 0bc7 - 0bce +CA1B F6 10 2F ../ ldab 102f ; read SCI data +CA1E F7 0B C7 ... stab 0bc7 +CA21 20 36 6 bra 36 +; +CA23 F6 10 2F ../ ldab 102f ; read SCI data +CA26 F7 0B C8 ... stab 0bc8 +CA29 20 2E . bra 2e +; +CA2B F6 10 2F ../ ldab 102f ; read SCI data +CA2E F7 0B C9 ... stab 0bc9 +CA31 20 26 & bra 26 +; +CA33 F6 10 2F ../ ldab 102f ; read SCI data +CA36 F7 0B CA ... stab 0bca +CA39 20 1E . bra 1e +; +CA3B F6 10 2F ../ ldab 102f ; read SCI data +CA3E F7 0B CB ... stab 0bcb +CA41 20 16 . bra 16 +; +CA43 F6 10 2F ../ ldab 102f ; read SCI data +CA46 F7 0B CC ... stab 0bcc +CA49 20 0E . bra 0e +; +CA4B F6 10 2F ../ ldab 102f ; read SCI data +CA4E F7 0B CD ... stab 0bcd +CA51 20 06 . bra 06 +; +CA53 F6 10 2F ../ ldab 102f ; read SCI data +CA56 F7 0B CE ... stab 0bce +goto51: +CA59 7C 00 08 |.. inc 0008 +goto50: +CA5C 7E CB DA ~.. jmp cbda ;goto48 (clean exit) +; +goto49: +CA5F F6 10 2F ../ ldab 102f ; read SCI data +CA62 C4 EF .. andb #ef ; 11101111 +CA64 C1 E2 .. cmpb #e2 ; 11100010 +CA66 26 1A &. bne 1a ; if no match, to ca82 +CA68 CE 00 17 ... ldx #0017 +CA6B 1C 00 08 ... bset 00,x, #08 +CA6E CE 00 17 ... ldx #0017 +CA71 1C 00 04 ... bset 00,x, #04 +CA74 C6 01 .. ldab #01 +CA76 F7 00 08 ... stab 0008 +CA79 CE 0B C1 ... ldx #0bc1 +CA7C 1D 00 01 ... bclr 00,x, #01 +CA7F 7E CB DA ~.. jmp cbda ;goto48 (clean exit) +; +CA82 F6 10 2F ../ ldab 102f ; read SCI data +CA85 C4 02 .. andb #02 +CA87 27 03 '. beq 03 ; if bit is set then +CA89 7E CB 6C ~.l jmp cb6c ; goto52 +CA8C F6 10 2F ../ ldab 102f ; read SCI data +CA8F 2C 38 ,8 bge 38 ; if bit 7 unset, to cac9 +CA91 F6 00 17 ... ldab 0017 +CA94 C4 08 .. andb #08 +CA96 26 31 &1 bne 31 +CA98 F6 10 2F ../ ldab 102f ; read SCI data +CA9B C4 78 .x andb #78 ; 01111000 +CA9D 54 T lsrb +CA9E 54 T lsrb +CA9F 54 T lsrb +CAA0 4F O clra +CAA1 C3 0B C7 ... addd #0bc7 +CAA4 8F . xgdx +CAA5 E6 00 .. ldab 00,x +CAA7 4F O clra +CAA8 37 7 pshb +CAA9 36 6 psha +CAAA F6 0B AA ... ldab 0baa +CAAD 4F O clra +CAAE BD FB BA ... jsr fbba ;jump38 - multiply? +CAB1 F3 00 40 ..@ addd 0040 +CAB4 FD 00 40 ..@ std 0040 +CAB7 CE 00 1B ... ldx #001b +CABA 1C 00 .. bset 00,x, #20 +CABD CE 00 1B ... ldx #001b +CAC0 1D 00 40 ... bclr 00,x, #40 +CAC3 7F 00 25 ..% clr 0025 +CAC6 7E CB 64 ~.d jmp cb64 ;goto53 +; +CAC9 F6 00 17 ... ldab 0017 +CACC C4 08 .. andb #08 +CACE 26 4A &J bne 4a ;to cb1a +CAD0 F6 10 2F ../ ldab 102f ; read SCI data +CAD3 C4 60 .` andb #60 ; 01100000 +CAD5 54 T lsrb ; ^^^^ +CAD6 54 T lsrb +CAD7 54 T lsrb +CAD8 4F O clra +CAD9 C3 0B C7 ... addd #0bc7 +CADC 8F . xgdx +CADD E6 00 .. ldab 00,x +CADF 4F O clra +CAE0 37 7 pshb +CAE1 36 6 psha +CAE2 F6 0B AA ... ldab 0baa +CAE5 4F O clra +CAE6 BD FB BA ... jsr fbba ;jump38 - multiply? +CAE9 FD 0B BD ... std 0bbd +CAEC FC 0B BD ... ldd 0bbd +CAEF F3 00 40 ..@ addd 0040 +CAF2 FD 00 40 ..@ std 0040 +CAF5 F6 00 21 ..! ldab 0021 +CAF8 C4 F8 .. andb #f8 ; 11111000 +CAFA 37 7 pshb +CAFB F6 10 2F ../ ldab 102f ; read SCI data +CAFE C4 1C .. andb #1c ; 00011100 +CB00 54 T lsrb +CB01 54 T lsrb +CB02 30 0 tsx +CB03 EA 00 .. orb 00,x ; or lower 3 bits with 0021 +CB05 31 1 ins +CB06 F7 00 21 ..! stab 0021 +CB09 F6 10 2F ../ ldab 102f ; read SCI data +CB0C F7 0B BC ... stab 0bbc +CB0F CE 00 1B ... ldx #001b +CB12 1D 00 40 .. bclr 00,x, #40 +CB15 7F 00 25 ..% clr 0025 +CB18 20 4A J bra 4a ;goto53 - more cleanups and exit +; +CB1A F6 10 2F ../ ldab 102f ; read SCI data +CB1D C4 E0 .. andb #e0 ; 11100000 +CB1F 54 T lsrb +CB20 54 T lsrb +CB21 54 T lsrb +CB22 54 T lsrb +CB23 54 T lsrb ; shr5 +CB24 4F O clra +CB25 C3 0B C7 ... addd #0bc7 +CB28 8F . xgdx +CB29 E6 00 .. ldab 00,x +CB2B 4F O clra +CB2C 37 7 pshb +CB2D 36 6 psha +CB2E F6 0B AA ... ldab 0baa +CB31 4F O clra +CB32 BD FB BA ... jsr fbba ;jump38 - multiply? +CB35 FD 0B BD ... std 0bbd +CB38 FC 0B BD ... ldd 0bbd +CB3B F3 00 40 ..@ addd 0040 +CB3E FD 00 40 ..@ std 0040 +CB41 F6 00 21 ..! ldab 0021 +CB44 C4 F8 .. andb #f8 +CB46 37 7 pshb +CB47 F6 10 2F ../ ldab 102f ; read SCI data +CB4A C4 1C .. andb #1c +CB4C 54 T lsrb +CB4D 54 T lsrb +CB4E 30 0 tsx +CB4F EA 00 .. orb 00,x +CB51 31 1 ins +CB52 F7 00 21 ..! stab 0021 +CB55 F6 10 2F ../ ldab 102f ; read SCI data +CB58 F7 0B BC ... stab 0bbc +CB5B CE 00 1B ... ldx #001b +CB5E 1D 00 40 ... bclr 00,x, #40 +CB61 7F 00 25 ..% clr 0025 +goto53: ; more cleanups and exit +CB64 7F 00 2C .., clr 002c +CB67 7F 00 3A ..: clr 003a +CB6A 20 6E n bra 6e ; to cbda - cleanup and exit +goto52: +CB6C F6 10 2F ../ ldab 102f ; read SCI data +CB6F C4 03 .. andb #03 +CB71 C1 02 .. cmpb #02 +CB73 26 0F &. bne 0f ; to bc84 +CB75 F6 00 21 ..! ldab 0021 +CB78 C4 08 .. andb #08 +CB7A 27 08 '. beq 08 +CB7C CE 00 21 ..! ldx #0021 +CB7F 1C 00 10 ... bset 00,x, #10 +CB82 20 56 V bra 56 ; to cbda - cleanup and exit +; +CB84 F6 10 2F ../ ldab 102f ; read SCI data +CB87 C4 EF .. andb #ef ; 11101111 +CB89 C1 E3 .. cmpb #e3 ; 11100111 +CB8B 26 08 &. bne 08 ; to cb95 +CB8D CE 0B C1 ... ldx #0bc1 +CB90 1D 00 02 ... bclr 00,x, #02 +CB93 20 45 E bra 45 +; +CB95 F6 10 2F ../ ldab 102f ; read SCI data +CB98 C4 EF .. andb #ef ; 11101111 +CB9A C1 63 .c cmpb #63 ; 01101110 +CB9C 26 1C &. bne 1c ; to cbba +CB9E CE 0B C1 ... ldx #0bc1 +CBA1 1D 00 01 ... bclr 00,x, #01 +CBA4 F6 0B C0 ... ldab 0bc0 +CBA7 C4 01 .. andb #01 +CBA9 27 0D '. beq 0d ; to cbb8 +CBAB F6 0B C0 ... ldab 0bc0 +CBAE C4 04 .. andb #04 +CBB0 27 06 '. beq 06 ; to cbb8 +CBB2 CE 0B C1 ... ldx #0bc1 +CBB5 1D 00 02 ... bclr 00,x, #02 +CBB8 20 20 bra 20 ;goto48 - cleanup & exit +; +CBBA F6 10 2F ../ ldab 102f ; read SCI data +CBBD C4 EF .. andb #ef ; 11101111 +CBBF C1 67 .g cmpb #67 ; 01100111 +CBC1 26 08 &. bne 08 ; to cbcb +CBC3 CE 0B C1 ... ldx #0bc1 +CBC6 1C 00 .. bset 00,x, #20 +CBC9 20 0F bra 0f ;goto48 - cleanup & exit +; +CBCB F6 10 2F ../ ldab 102f ; read SCI data +CBCE C4 EF .. andb #ef ; 11101111 +CBD0 C1 27 .' cmpb #27 ; 00100111 +CBD2 26 06 &. bne 06 ;goto48 - cleanup & exit + +CBD4 CE 0B C1 ... ldx #0bc1 +CBD7 1C 00 10 ... bset 00,x, #10 +goto48: ; cleanup and exit +CBDA CE 00 1A ... ldx #001a +CBDD 1C 00 02 ... bset 00,x, #02 +CBE0 F6 00 1A ... ldab 001a +CBE3 F7 30 00 .0. stab 3000 ; changer send' high +CBE6 F6 00 17 ... ldab 0017 +CBE9 C4 04 .. andb #04 +CBEB 26 05 &. bne 05 ; to cbf2 +CBED C6 06 .. ldab #06 +CBEF F7 00 07 ... stab 0007 +CBF2 F6 00 26 ..& ldab 0026 ; 0026 ~= 0026 +CBF5 53 S comb +CBF6 F7 00 26 ..& stab 0026 +CBF9 7F 00 3D ..= clr 003d +CBFC 7E CE 46 ~.F jmp ce46 ;goto47 (exit) +; +goto44: +CBFF F6 0B C0 ... ldab 0bc0 +CC02 C4 02 .. andb #02 +CC04 26 03 &. bne 03 +CC06 7E CE 3B ~.; jmp ce3b ;goto54 - swallow 2 bytes & exit +CC09 F6 10 2F ../ ldab 102f ; read SCI data +CC0C C4 E0 .. andb #e0 +CC0E C1 20 . cmpb #20 +CC10 27 03 '. beq 03 +CC12 7E CE 3B ~.; jmp ce3b ;goto54 - swallow 2 bytes & exit +CC15 C6 32 .2 ldab #32 ; 50 +CC17 F7 00 2F ../ stab 002f +CC1A CE 00 1B ... ldx #001b +CC1D 1C 00 02 ... bset 00,x, #02 +CC20 F6 10 2E ... ldab 102e ; SCI status +CC23 C4 02 .. andb #02 ; test for Framing Error +CC25 26 08 &. bne 08 +CC27 BD C7 C0 ... jsr c7c0 ;jump49 - parity test +CC2A 83 00 00 ... subd #0000 +CC2D 26 0F &. bne 0f ; if failed, to cc3e +CC2F F6 10 2F ../ ldab 102f ; read SCI data +CC32 30 0 tsx +CC33 E7 00 .. stab 00,x +CC35 CC 00 FF ... ldd #00ff +CC38 BD C7 E7 ... jsr c7e7 ;jump37 - send #FF to coin mech +CC3B 7E CE 39 ~.9 jmp ce39 ;goto55 - exit +; +CC3E F6 10 2F ../ ldab 102f ; read SCI data +CC41 C1 3F .? cmpb #3f ; 00111111 +CC43 26 0A &. bne 0a ; to cc4f +CC45 F6 00 43 ..C ldab 0043 +CC48 4F O clra +CC49 BD C7 E7 ... jsr c7e7 ;jump37 - send 0043 to coin mech - retry? +CC4C 7E CE 39 ~.9 jmp ce39 ;goto55 - exit +; +CC4F F6 00 08 ... ldab 0008 +CC52 26 03 &. bne 03 +CC54 7E CD 94 ~.. jmp cd94 ;goto56 +CC57 F6 10 2F ../ ldab 102f ; read SCI data +CC5A C4 F0 .. andb #f0 +CC5C C1 20 . cmpb #20 +CC5E 27 03 '. beq 03 +CC60 7E CD 94 ~.. jmp cd94 ;goto56 +CC63 F6 10 2F ../ ldab 102f ; read SCI data +CC66 C4 0F .. andb #0f +CC68 30 0 tsx +CC69 E7 00 .. stab 00,x +CC6B F6 00 08 ... ldab 0008 +CC6E 4F O clra +CC6F BD FE 16 ... jsr fe16 ;jump2 +CC72 00 01 00 07 . ; array data for jump2 +CC76 CD 7A . ; if 0008 == 9, clr 0008, 002c. else inc 0008, send #00 to coin mech +CC78 CC 88 .. ; if 0017 sp=>0076, else sp=>0040, then same as above +CC7A CC A2 .. ; if 0017 0076+=sp<<4, else 0040+=sp<<4, then same as above +CC7C CC CA .. ; if 0017 0076+=sp<<8, else 0040+=sp<<8, then same as above +CC7E CC EE .. ; if 0017 0076+=sp<<16, else 0040+=sp<16, then same as above +CC80 CD 19 .. ; 0baa = sp, then same as above +CC82 CD 21 . ; 0baa = sp<<4, then same as above +CC83 CD 30 !. ; 0013 = sp, then same as above +CC85 CD 38 0 ; read byte & #01, +; +CC88 F6 00 17 ... ldab 0017 +CC8B C4 01 .. andb #01 +CC8D 27 09 '. beq 09 ; to cc98 +CC8F 30 0 tsx +CC90 E6 00 .. ldab 00,x +CC92 4F O clra +CC93 FD 00 76 ..v std 0076 +CC96 20 07 . bra 07 ; to cc9f +CC98 30 0 tsx +CC99 E6 00 .. ldab 00,x +CC9B 4F O clra +CC9C FD 00 40 ..@ std 0040 +CC9F 7E CD 7A ~.z jmp cd7a ;goto57 +; +CCA2 F6 00 17 ... ldab 0017 +CCA5 C4 01 .. andb #01 +CCA7 27 10 '. beq 10 ; to ccb9 +CCA9 30 0 tsx +CCAA E6 00 .. ldab 00,x +CCAC 4F O clra +CCAD 05 . asld +CCAE 05 . asld +CCAF 05 . asld +CCB0 05 . asld +CCB1 F3 00 76 ..v addd 0076 +CCB4 FD 00 76 ..v std 0076 +CCB7 20 0E . bra 0e ; to ccc7 +CCB9 30 0 tsx +CCBA E6 00 .. ldab 00,x +CCBC 4F O clra +CCBD 05 . asld +CCBE 05 . asld +CCBF 05 . asld +CCC0 05 . asld +CCC1 F3 00 40 ..@ addd 0040 +CCC4 FD 00 40 ..@ std 0040 +CCC7 7E CD 7A ~.z jmp cd7a ;goto57 +; +CCCA F6 00 17 ... ldab 0017 +CCCD C4 01 .. andb #01 +CCCF 27 0E '. beq 0e ; to ccdf +CCD1 30 0 tsx +CCD2 E6 00 .. ldab 00,x +CCD4 4F O clra +CCD5 17 . tba +CCD6 5F _ clrb +CCD7 F3 00 76 ..v addd 0076 +CCDA FD 00 76 ..v std 0076 +CCDD 20 0C . bra 0c ; to cceb +CCDF 30 0 tsx +CCE0 E6 00 .. ldab 00,x +CCE2 4F O clra +CCE3 17 . tba +CCE4 5F _ clrb +CCE5 F3 00 40 ..@ addd 0040 +CCE8 FD 00 40 ..@ std 0040 +CCEB 7E CD 7A ~.z jmp cd7a ;goto57 +; +CCEE F6 00 17 ... ldab 0017 +CCF1 C4 01 .. andb #01 +CCF3 27 12 '. beq 12 ; to cd07 +CCF5 30 0 tsx +CCF6 E6 00 .. ldab 00,x +CCF8 4F O clra +CCF9 17 . tba +CCFA 48 H asla +CCFB 48 H asla +CCFC 48 H asla +CCFD 48 H asla +CCFE 5F _ clrb +CCFF F3 00 76 ..v addd 0076 +CD02 FD 00 76 ..v std 0076 +CD05 20 10 . bra 10 ; to cd17 +CD07 30 0 tsx +CD08 E6 00 .. ldab 00,x +CD0A 4F O clra +CD0B 17 . tba +CD0C 48 H asla +CD0D 48 H asla +CD0E 48 H asla +CD0F 48 H asla +CD10 5F _ clrb +CD11 F3 00 40 ..@ addd 0040 +CD14 FD 00 40 ..@ std 0040 +CD17 20 61 a bra 61 +; +CD19 30 0 tsx +CD1A E6 00 .. ldab 00,x +CD1C F7 0B AA ... stab 0baa +CD1F 20 59 Y bra 59 ; to cd7a - goto57 +; +CD21 30 0 tsx +CD22 E6 00 .. ldab 00,x +CD24 58 X aslb +CD25 58 X aslb +CD26 58 X aslb +CD27 58 X aslb +CD28 FB 0B AA ... addb 0baa +CD2B F7 0B AA ... stab 0baa +CD2E 20 4A J bra 4a ; to cd7a - goto57 +; +CD30 30 0 tsx +CD31 E6 00 .. ldab 00,x +CD33 F7 00 13 ... stab 0013 +CD36 20 42 B bra 42 ; to cd7a - goto57 +; +CD38 F6 10 2F ../ ldab 102f ; read SCI data +CD3B C4 01 .. andb #01 +CD3D 27 08 '. beq 08 ; to cd47 +CD3F CE 00 21 ..! ldx #0021 +CD42 1C 00 40 ... bset 00,x, #40 +CD45 20 06 . bra 06 ; to cd4d +CD47 CE 00 21 ..! ldx #0021 +CD4A 1D 00 40 ... bclr 00,x, #40 +; +CD4D F6 00 17 ... ldab 0017 +CD50 C4 01 .. andb #01 +CD52 27 17 '. beq 17 ; to cd6b +CD54 F6 0B AA ... ldab 0baa +CD57 4F O clra +CD58 37 7 pshb +CD59 36 6 psha +CD5A FC 00 76 ..v ldd 0076 +CD5D BD FB BA ... jsr fbba ;jump38 - multiply? +CD60 FD 00 76 ..v std 0076 ; 0076 *= 0baa +CD63 CE 00 17 ... ldx #0017 +CD66 1D 00 01 ... bclr 00,x, #01 +CD69 20 0F . bra 0f ;goto57 - send byte & exit +CD6B F6 0B AA ... ldab 0baa +CD6E 4F O clra +CD6F 37 7 pshb +CD70 36 6 psha +CD71 FC 00 40 ..@ ldd 0040 +CD74 BD FB BA ... jsr fbba ;jump38 - multiply? +CD77 FD 00 40 ..@ std 0040 ; 0040 *= 0baa +goto57: ; sends the byte, clearing the counter if its the 8th byte +CD7A F6 00 08 ... ldab 0008 +CD7D C1 09 .. cmpb #09 +CD7F 26 08 &. bne 08 +CD81 7F 00 2C .., clr 002c +CD84 7F 00 08 ... clr 0008 +CD87 20 03 . bra 03 +CD89 7C 00 08 |.. inc 0008 +CD8C 5F _ clrb +CD8D 4F O clra +CD8E BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech +CD91 7E CE 39 ~.9 jmp ce39 ;goto55 - exit +goto56: +CD94 F6 10 2F ../ ldab 102f ; read SCI data +CD97 4F O clra +CD98 BD FE 32 ..2 jsr fe32 ;jump25 +CD9B CD B1 00 31 ...1 ; 49 "1" +CD9F CD DB 00 01 .... ; 50 "2" +CDA3 CE 20 00 01 . .. ; 51 "3" +CDA7 CE 28 00 05 .(.. ; 56 "8" +CDAB CE 34 FF C8 .4.. ; 0 +CDAF 00 00 .. ; end of array data +CDB1 F6 00 21 ..! ldab 0021 +CDB4 2C 08 ,. bge 08 +CDB6 CC 00 80 ... ldd #0080 +CDB9 BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech +CDBC 20 1B . bra 1b +CDBE 5F _ clrb +CDBF 4F O clra +CDC0 BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech +CDC3 F6 00 1F ... ldab 001f +CDC6 C4 08 .. andb #08 +CDC8 27 0C '. beq 0c +CDCA F6 0B C0 ... ldab 0bc0 +CDCD C4 10 .. andb #10 +CDCF 27 05 '. beq 05 +CDD1 7C 00 75 |.u inc 0075 +CDD4 20 03 . bra 03 +CDD6 7F 00 75 ..u clr 0075 +CDD9 20 5E ^ bra 5e +CDDB F6 00 1D ... ldab 001d +CDDE C4 02 .. andb #02 +CDE0 27 07 '. beq 07 +CDE2 F6 00 19 ... ldab 0019 +CDE5 C4 08 .. andb #08 +CDE7 26 19 &. bne 19 +CDE9 CC 00 FE ... ldd #00fe +CDEC BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech +CDEF F6 00 1F ... ldab 001f +CDF2 C4 08 .. andb #08 +CDF4 27 0A '. beq 0a +CDF6 F6 0B C0 ... ldab 0bc0 +CDF9 C4 10 .. andb #10 +CDFB 27 03 '. beq 03 +CDFD 7C 00 75 |.u inc 0075 +CE00 20 1C . bra 1c +CE02 FC 00 44 ..D ldd 0044 +CE05 37 7 pshb +CE06 36 6 psha +CE07 F6 0B AA ... ldab 0baa +CE0A 4F O clra +CE0B 38 8 pulx +CE0C 8F . xgdx +CE0D 02 . idiv +CE0E 8F . xgdx +CE0F BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech +CE12 CE 00 19 ... ldx #0019 +CE15 1D 00 08 ... bclr 00,x, #08 +CE18 CE 00 1F ... ldx #001f +CE1B 1C 00 08 ... bset 00,x, #08 +CE1E 20 19 . bra 19 +CE20 CE 00 1D ... ldx #001d +CE23 1D 00 02 ... bclr 00,x, #02 +CE26 20 11 . bra 11 +CE28 C6 01 .. ldab #01 +CE2A F7 00 08 ... stab 0008 +CE2D 5F _ clrb +CE2E 4F O clra +CE2F BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech +CE32 20 05 . bra 05 +CE34 5F _ clrb +CE35 4F O clra +CE36 BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech +goto55: +CE39 20 0B . bra 0b ; to ce46 (exit) +goto54: ; just swallow two bytes? +CE3B F6 10 2E ... ldab 102e ; SCI Status +CE3E 30 0 tsx +CE3F E7 00 .. stab 00,x +CE41 F6 10 2F ../ ldab 102f ; read SCI data +CE44 E7 00 .. stab 00,x +goto47: +CE46 31 1 ins +CE47 3B ; rti + +jump48: +CE48 F6 0B C4 ... ldab 0bc4 +CE4B F1 0B C5 ... cmpb 0bc5 +CE4E 25 53 %S bcs 53 +CE50 F6 0B C5 ... ldab 0bc5 +CE53 F1 0B C6 ... cmpb 0bc6 +CE56 25 4B %K bcs 4b +CE58 F6 0B C4 ... ldab 0bc4 +CE5B 4F O clra +CE5C C3 0B C7 ... addd #0bc7 +CE5F 8F . xgdx +CE60 E6 00 .. ldab 00,x +CE62 4F O clra +CE63 FD 0B DD ... std 0bdd +CE66 F6 0B C5 ... ldab 0bc5 +CE69 4F O clra +CE6A C3 0B C7 ... addd #0bc7 +CE6D 8F . xgdx +CE6E E6 00 .. ldab 00,x +CE70 4F O clra +CE71 FD 0B DF ... std 0bdf +CE74 F6 0B C6 ... ldab 0bc6 +CE77 4F O clra +CE78 C3 0B C7 ... addd #0bc7 +CE7B 8F . xgdx +CE7C E6 00 .. ldab 00,x +CE7E 4F O clra +CE7F FD 0B E1 ... std 0be1 +CE82 C6 01 .. ldab #01 +CE84 F7 0B D7 ... stab 0bd7 +CE87 C6 04 .. ldab #04 +CE89 F7 0B D8 ... stab 0bd8 +CE8C C6 02 .. ldab #02 +CE8E F7 0B D9 ... stab 0bd9 +CE91 C6 20 . ldab #20 +CE93 F7 0B DA ... stab 0bda +CE96 C6 08 .. ldab #08 +CE98 F7 0B DB ... stab 0bdb +CE9B C6 10 .. ldab #10 +CE9D F7 0B DC ... stab 0bdc +CEA0 7E D0 66 ~.f jmp d066 ;goto58 +CEA3 F6 0B C4 ... ldab 0bc4 +CEA6 F1 0B C6 ... cmpb 0bc6 +CEA9 25 53 %S bcs 53 +CEAB F6 0B C6 ... ldab 0bc6 +CEAE F1 0B C5 ... cmpb 0bc5 +CEB1 25 4B %K bcs 4b +CEB3 F6 0B C4 ... ldab 0bc4 +CEB6 4F O clra +CEB7 C3 0B C7 ... addd #0bc7 +CEBA 8F . xgdx +CEBB E6 00 .. ldab 00,x +CEBD 4F O clra +CEBE FD 0B DD ... std 0bdd +CEC1 F6 0B C6 ... ldab 0bc6 +CEC4 4F O clra +CEC5 C3 0B C7 ... addd #0bc7 +CEC8 8F . xgdx +CEC9 E6 00 .. ldab 00,x +CECB 4F O clra +CECC FD 0B DF ... std 0bdf +CECF F6 0B C5 ... ldab 0bc5 +CED2 4F O clra +CED3 C3 0B C7 ... addd #0bc7 +CED6 8F . xgdx +CED7 E6 00 .. ldab 00,x +CED9 4F O clra +CEDA FD 0B E1 ... std 0be1 +CEDD C6 01 .. ldab #01 +CEDF F7 0B D7 ... stab 0bd7 +CEE2 C6 02 .. ldab #02 +CEE4 F7 0B D8 ... stab 0bd8 +CEE7 C6 04 .. ldab #04 +CEE9 F7 0B D9 ... stab 0bd9 +CEEC C6 20 . ldab #20 +CEEE F7 0B DA ... stab 0bda +CEF1 C6 10 .. ldab #10 +CEF3 F7 0B DB ... stab 0bdb +CEF6 C6 08 .. ldab #08 +CEF8 F7 0B DC ... stab 0bdc +CEFB 7E D0 66 ~.f jmp d066 ;goto58 +CEFE F6 0B C5 ... ldab 0bc5 +CF01 F1 0B C4 ... cmpb 0bc4 +CF04 25 53 %S bcs 53 +CF06 F6 0B C4 ... ldab 0bc4 +CF09 F1 0B C6 ... cmpb 0bc6 +CF0C 25 4B %K bcs 4b +CF0E F6 0B C5 ... ldab 0bc5 +CF11 4F O clra +CF12 C3 0B C7 ... addd #0bc7 +CF15 8F . xgdx +CF16 E6 00 .. ldab 00,x +CF18 4F O clra +CF19 FD 0B DD ... std 0bdd +CF1C F6 0B C4 ... ldab 0bc4 +CF1F 4F O clra +CF20 C3 0B C7 ... addd #0bc7 +CF23 8F . xgdx +CF24 E6 00 .. ldab 00,x +CF26 4F O clra +CF27 FD 0B DF ... std 0bdf +CF2A F6 0B C6 ... ldab 0bc6 +CF2D 4F O clra +CF2E C3 0B C7 ... addd #0bc7 +CF31 8F . xgdx +CF32 E6 00 .. ldab 00,x +CF34 4F O clra +CF35 FD 0B E1 ... std 0be1 +CF38 C6 04 .. ldab #04 +CF3A F7 0B D7 ... stab 0bd7 +CF3D C6 01 .. ldab #01 +CF3F F7 0B D8 ... stab 0bd8 +CF42 C6 02 .. ldab #02 +CF44 F7 0B D9 ... stab 0bd9 +CF47 C6 08 .. ldab #08 +CF49 F7 0B DA ... stab 0bda +CF4C C6 20 . ldab #20 +CF4E F7 0B DB ... stab 0bdb +CF51 C6 10 .. ldab #10 +CF53 F7 0B DC ... stab 0bdc +CF56 7E D0 66 ~.f jmp d066 ;goto58 +CF59 F6 0B C5 ... ldab 0bc5 +CF5C F1 0B C6 ... cmpb 0bc6 +CF5F 25 53 %S bcs 53 +CF61 F6 0B C6 ... ldab 0bc6 +CF64 F1 0B C4 ... cmpb 0bc4 +CF67 25 4B %K bcs 4b +CF69 F6 0B C5 ... ldab 0bc5 +CF6C 4F O clra +CF6D C3 0B C7 ... addd #0bc7 +CF70 8F . xgdx +CF71 E6 00 .. ldab 00,x +CF73 4F O clra +CF74 FD 0B DD ... std 0bdd +CF77 F6 0B C6 ... ldab 0bc6 +CF7A 4F O clra +CF7B C3 0B C7 ... addd #0bc7 +CF7E 8F . xgdx +CF7F E6 00 .. ldab 00,x +CF81 4F O clra +CF82 FD 0B DF ... std 0bdf +CF85 F6 0B C4 ... ldab 0bc4 +CF88 4F O clra +CF89 C3 0B C7 ... addd #0bc7 +CF8C 8F . xgdx +CF8D E6 00 .. ldab 00,x +CF8F 4F O clra +CF90 FD 0B E1 ... std 0be1 +CF93 C6 04 .. ldab #04 +CF95 F7 0B D7 ... stab 0bd7 +CF98 C6 02 .. ldab #02 +CF9A F7 0B D8 ... stab 0bd8 +CF9D C6 01 .. ldab #01 +CF9F F7 0B D9 ... stab 0bd9 +CFA2 C6 08 .. ldab #08 +CFA4 F7 0B DA ... stab 0bda +CFA7 C6 10 .. ldab #10 +CFA9 F7 0B DB ... stab 0bdb +CFAC C6 20 . ldab #20 +CFAE F7 0B DC ... stab 0bdc +CFB1 7E D0 66 ~.f jmp d066 ;goto58 +CFB4 F6 0B C6 ... ldab 0bc6 +CFB7 F1 0B C4 ... cmpb 0bc4 +CFBA 25 52 %R bcs 52 +CFBC F6 0B C4 ... ldab 0bc4 +CFBF F1 0B C5 ... cmpb 0bc5 +CFC2 25 4A %J bcs 4a +CFC4 F6 0B C6 ... ldab 0bc6 +CFC7 4F O clra +CFC8 C3 0B C7 ... addd #0bc7 +CFCB 8F . xgdx +CFCC E6 00 .. ldab 00,x +CFCE 4F O clra +CFCF FD 0B DD ... std 0bdd +CFD2 F6 0B C4 ... ldab 0bc4 +CFD5 4F O clra +CFD6 C3 0B C7 ... addd #0bc7 +CFD9 8F . xgdx +CFDA E6 00 .. ldab 00,x +CFDC 4F O clra +CFDD FD 0B DF ... std 0bdf +CFE0 F6 0B C5 ... ldab 0bc5 +CFE3 4F O clra +CFE4 C3 0B C7 ... addd #0bc7 +CFE7 8F . xgdx +CFE8 E6 00 .. ldab 00,x +CFEA 4F O clra +CFEB FD 0B E1 ... std 0be1 +CFEE C6 02 .. ldab #02 +CFF0 F7 0B D7 ... stab 0bd7 +CFF3 C6 01 .. ldab #01 +CFF5 F7 0B D8 ... stab 0bd8 +CFF8 C6 04 .. ldab #04 +CFFA F7 0B D9 ... stab 0bd9 +CFFD C6 10 .. ldab #10 +CFFF F7 0B DA ... stab 0bda +D002 C6 20 . ldab #20 +D004 F7 0B DB ... stab 0bdb +D007 C6 08 .. ldab #08 +D009 F7 0B DC ... stab 0bdc +D00C 20 58 X bra 58 +D00E F6 0B C6 ... ldab 0bc6 +D011 F1 0B C5 ... cmpb 0bc5 +D014 25 50 %P bcs 50 +D016 F6 0B C5 ... ldab 0bc5 +D019 F1 0B C4 ... cmpb 0bc4 +D01C 25 48 %H bcs 48 +D01E F6 0B C6 ... ldab 0bc6 +D021 4F O clra +D022 C3 0B C7 ... addd #0bc7 +D025 8F . xgdx +D026 E6 00 .. ldab 00,x +D028 4F O clra +D029 FD 0B DD ... std 0bdd +D02C F6 0B C5 ... ldab 0bc5 +D02F 4F O clra +D030 C3 0B C7 ... addd #0bc7 +D033 8F . xgdx +D034 E6 00 .. ldab 00,x +D036 4F O clra +D037 FD 0B DF ... std 0bdf +D03A F6 0B C4 ... ldab 0bc4 +D03D 4F O clra +D03E C3 0B C7 ... addd #0bc7 +D041 8F . xgdx +D042 E6 00 .. ldab 00,x +D044 4F O clra +D045 FD 0B E1 ... std 0be1 +D048 C6 02 .. ldab #02 +D04A F7 0B D7 ... stab 0bd7 +D04D C6 04 .. ldab #04 +D04F F7 0B D8 ... stab 0bd8 +D052 C6 01 .. ldab #01 +D054 F7 0B D9 ... stab 0bd9 +D057 C6 10 .. ldab #10 +D059 F7 0B DA ... stab 0bda +D05C C6 08 .. ldab #08 +D05E F7 0B DB ... stab 0bdb +D061 C6 20 . ldab #20 +D063 F7 0B DC ... stab 0bdc +goto58: +D066 F6 0B AA ... ldab 0baa +D069 4F O clra +D06A 37 7 pshb +D06B 36 6 psha +D06C FC 0B DD ... ldd 0bdd +D06F BD FB BA ... jsr fbba ;jump38 - multiply? +D072 FD 0B DD ... std 0bdd +D075 F6 0B AA ... ldab 0baa +D078 4F O clra +D079 37 7 pshb +D07A 36 6 psha +D07B FC 0B DF ... ldd 0bdf +D07E BD FB BA ... jsr fbba ;jump38 - multiply? +D081 FD 0B DF ... std 0bdf +D084 F6 0B AA ... ldab 0baa +D087 4F O clra +D088 37 7 pshb +D089 36 6 psha +D08A FC 0B E1 ... ldd 0be1 +D08D BD FB BA ... jsr fbba ;jump38 - multiply? +D090 FD 0B E1 ... std 0be1 +D093 39 9 rts + +jump66: +; initializes a big bunch of variables +D094 34 4 des +; for i=0 +D095 30 0 tsx +D096 6F 00 o. clr 00,x +; while i <= 10 +D098 30 0 tsx +D099 E6 00 .. ldab 00,x +D09B C1 10 .. cmpb #10 +D09D 24 1B $. bcc 1b ; to d0ba +; read memloc of b0c3+i +D09F 30 0 tsx +D0A0 E6 00 .. ldab 00,x +D0A2 4F O clra +D0A3 C3 B0 C3 ... addd #b0c3 +D0A6 8F . xgdx +D0A7 E6 00 .. ldab 00,x +D0A9 37 7 pshb +; put value of that location into 0bc7+i +D0AA 30 0 tsx +D0AB E6 01 .. ldab 01,x +D0AD 4F O clra +D0AE C3 0B C7 ... addd #0bc7 +D0B1 8F . xgdx +D0B2 33 3 pulb +D0B3 E7 00 .. stab 00,x +; loop +D0B5 30 0 tsx +D0B6 6C 00 l. inc 00,x +D0B8 20 DE . bra de ; to d098 + +D0BA C6 05 .. ldab #05 +D0BC F7 0B AA ... stab 0baa +D0BF C6 04 .. ldab #04 +D0C1 F7 00 13 ... stab 0013 +D0C4 C6 01 .. ldab #01 +D0C6 F7 0B C4 ... stab 0bc4 +D0C9 C6 03 .. ldab #03 +D0CB F7 0B C5 ... stab 0bc5 +D0CE C6 02 .. ldab #02 +D0D0 F7 0B C6 ... stab 0bc6 +D0D3 CC 00 19 ... ldd #0019 +D0D6 FD 0B DD ... std 0bdd +D0D9 CC 00 0A ... ldd #000a +D0DC FD 0B DF ... std 0bdf +D0DF CC 00 05 ... ldd #0005 +D0E2 FD 0B E1 ... std 0be1 +D0E5 C6 01 .. ldab #01 +D0E7 F7 0B D7 ... stab 0bd7 +D0EA C6 02 .. ldab #02 +D0EC F7 0B D8 ... stab 0bd8 +D0EF C6 04 .. ldab #04 +D0F1 F7 0B D9 ... stab 0bd9 +D0F4 C6 20 . ldab #20 +D0F6 F7 0B DA ... stab 0bda +D0F9 C6 10 .. ldab #10 +D0FB F7 0B DB ... stab 0bdb +D0FE C6 08 .. ldab #08 +D100 F7 0B DC ... stab 0bdc +D103 31 1 ins +D104 39 9 rts + +jump32: +; turns all motors off +D105 34 4 des +D106 CE 00 1A ... ldx #001a +D109 1C 00 80 .. bset 00,x, #80 +D10C F6 00 1A .. ldab 001a +D10F F7 30 00 .0. stab 3000 ; motor rows off +D112 C6 C8 .. ldab #c8 ; loop of 200 - short delay +D114 30 0 tsx +D115 E7 00 .. stab 00,x +D117 30 0 tsx +D118 E6 00 .. ldab 00,x +D11A C1 00 .. cmpb #00 +D11C 23 05 #. bls 05 ; to d123 +D11E 30 0 tsx +D11F 6A 00 j. dec 00,x +D121 20 F4 . bra f4 ; to d117 + +D123 CE 10 00 ... ldx #1000 +D126 1C 00 40 .. bset 00,x, #40 ; motor columns off +D129 CE 00 14 ... ldx #0014 +D12C 1D 00 20 .. bclr 00,x, #20 ; motors col 8 off +D12F CE 00 14 . ldx #0014 +D132 1D 00 40 .. bclr 00,x, #40 ; motors col 9 off +D135 F6 00 14 ... ldab 0014 +D138 F7 38 00 .8. stab 3800 ; motors off +D13B 31 1 ins +D13C 39 9 rts + +jump34: +; turn on the motor of the slot given in memory location 0006 +D13D F6 00 06 ... ldab 0006 +D140 4F O clra +D141 CE 00 0A ... ldx #000a +D144 02 . idiv +D145 8F . xgdx +D146 CB 01 .. addb #01 ; we live in an odd world? +D148 F7 00 5F .._ stab 005f ; slot number /10 +D14B F6 00 06 ... ldab 0006 +D14E 4F O clra +D14F CE 00 0A ... ldx #000a +D152 02 . idiv +D153 F7 00 5E ..^ stab 005e ; slot number%10 +D156 F6 00 5E ..^ ldab 005e +D159 C1 05 .. cmpb #05 ; there is not row 5 +D15B 23 03 #. bls 03 +D15D 7A 00 5E z.^ dec 005e ; make it row 4 +D160 F6 00 5E ..^ ldab 005e +D163 4F O clra +D164 C3 B1 23 ..# addd #b123 ; powers of 2 +D167 8F . xgdx +D168 E6 00 .. ldab 00,x +D16A 4F O clra +D16B 37 7 pshb +D16C 36 6 psha +D16D F6 00 5F .._ ldab 005f +D170 4F O clra +D171 C3 B1 23 ..# addd #b123 ; powers of 2 +D174 8F . xgdx +D175 E6 00 .. ldab 00,x +D177 4F O clra +D178 17 . tba +D179 5F _ clrb +D17A 30 0 tsx +D17B E3 00 .. addd 00,x +D17D 38 8 pulx +D17E FD 00 58 ..X std 0058 +; +; i=0 +D181 7F 00 1C ... clr 001c +; while i < 16, do +D184 F6 00 1C ... ldab 001c +D187 C1 10 .. cmpb #10 +D189 24 37 $7 bcc 37 ; to d1c2 +D18B F6 00 58 ..X ldab 0058 +D18E 2C 0E ,. bge 0e ; to d19e +; +D190 CE 00 14 ... ldx #0014 +D193 1C 00 10 ... bset 00,x, #10 +D196 F6 00 14 ... ldab 0014 +D199 F7 38 00 .8. stab 3800 ; set high motor serial data +D19C 20 0C . bra 0c ; to d1aa +; +D19E CE 00 14 ... ldx #0014 +D1A1 1D 00 10 .. bclr 00,x, #10 +D1A4 F6 00 14 ... ldab 0014 +D1A7 F7 38 00 .8. stab 3800 ; set low motor serial data +; +; send a clock pulse +D1AA CE 10 00 ... ldx #1000 +D1AD 1C 00 20 .. bset 00,x, #20 +D1B0 CE 10 00 . ldx #1000 +D1B3 1D 00 .. bclr 00,x, #20 +; +; get the next bit ready to send +D1B6 FC 00 58 . ldd 0058 +D1B9 05 . asld +D1BA FD 00 58 ..X std 0058 +D1BD 7C 00 1C |.. inc 001c +D1C0 20 C2 . bra c2 +; if this is column 8 (9 for pascal programmers ;) +D1C2 F6 00 5F .._ ldab 005f +D1C5 C1 09 .. cmpb #09 +D1C7 26 0E &. bne 0e ; to d1d7 +D1C9 CE 00 14 ... ldx #0014 +D1CC 1C 00 20 ... bset 00,x, #20 +D1CF F6 00 14 . ldab 0014 +D1D2 F7 38 00 .8. stab 3800 ; say its column 8 +D1D5 20 13 . bra 13 ; to d1ea +; if this is column 9 (denoted as 10) +D1D7 F6 00 5F .._ ldab 005f +D1DA C1 0A .. cmpb #0a +D1DC 26 0C &. bne 0c +D1DE CE 00 14 ... ldx #0014 +D1E1 1C 00 40 .. bset 00,x, #40 ; say its column 9 +D1E4 F6 00 14 ... ldab 0014 +D1E7 F7 38 00 .8. stab 3800 +; clear the motor clock +D1EA CE 10 00 ... ldx #1000 +D1ED 1D 00 40 .. bclr 00,x, #40 ; motor clock line low +; clear motor row output enable +D1F0 CE 00 1A ... ldx #001a +D1F3 1D 00 .. bclr 00,x, #80 +D1F6 F6 00 1A ... ldab 001a +D1F9 F7 30 00 .0. stab 3000 ; motor driver outputs enable +D1FC 39 9 rts + +jump90: +D1FD CC 40 00 .@. ldd #4000 +D200 37 7 pshb +D201 36 6 psha +D202 F6 00 06 ... ldab 0006 +D205 4F O clra +D206 05 . asld +D207 C3 08 00 ... addd #0800 +D20A 38 8 pulx +D20B 8F . xgdx +D20C AA 00 .. ora 00,x +D20E EA 01 .. orb 01,x +D210 ED 00 .. std 00,x +D212 39 9 rts + +jump45: +D213 F6 00 1F ... ldab 001f +D216 C4 04 .. andb #04 +D218 26 12 &. bne 12 +D21A F6 0B C0 ... ldab 0bc0 +D21D C4 10 .. andb #10 +D21F 26 0B &. bne 0b +D221 CE 00 00 ... ldx #0000 +D224 3C < pshx +D225 FC 00 44 ..D ldd 0044 +D228 BD BE 9E ... jsr be9e ;jump50 +D22B 38 8 pulx +D22C BD D3 11 ... jsr d311 ;jump30 +D22F 83 00 00 ... subd #0000 +D232 27 13 '. beq 13 +D234 F6 00 06 ... ldab 0006 +D237 BD D4 68 ..h jsr d468 ;jump51 +D23A 83 00 00 ... subd #0000 +D23D 27 05 '. beq 05 +D23F 8D BC .. bsr bc ;jump90 +D241 BD D6 3C ..< jsr d63c ;jump33 +D244 5F _ clrb +D245 4F O clra +D246 39 9 rts + +D247 BD D1 3D ..= jsr d13d ;jump34 +D24A C6 3C .< ldab #3c +D24C F7 00 2E ... stab 002e +D24F C6 41 .A ldab #41 +D251 F7 00 31 ..1 stab 0031 +D254 CE 00 1B ... ldx #001b +D257 1D 00 08 ... bclr 00,x #08 +goto59: +D25A F6 00 1B ... ldab 001b +D25D C4 08 .. andb #08 +D25F 26 22 &" bne 22 +D261 F6 00 2E ... ldab 002e +D264 C1 35 .5 cmpb #35 +D266 23 10 #. bls 10 +D268 BD D5 70 ..p jsr d570 ;jump35 +D26B 83 00 00 ... subd #0000 +D26E 27 06 '. beq 06 +D270 CE 00 1B ... ldx #001b +D273 1C 00 08 ... bset 00,x, #08 +D276 20 0B . bra 0b +D278 BD D1 05 ... jsr d105 ;jump32 +D27B 8D 80 .. bsr 80 ;jump90 +D27D BD D6 3C ..< jsr d63c ;jump33 +D280 5F _ clrb +D281 4F O clra +D282 39 9 rts + +D283 F6 00 2E ... ldab 002e +D286 C1 36 .6 cmpb #36 +D288 24 56 $V bcc 56 ; to d2e0 +D28A BD D5 F7 ... jsr d5f7 ;jump108 +D28D 83 00 00 ... subd #0000 +D290 27 4E 'N beq 4e ; to d2e0 +D292 BD D5 B0 ... jsr d5b0 ;jump31 +D295 83 00 00 ... subd #0000 +D298 27 46 'F beq 46 ; to d2e0 +D29A BD D1 05 ... jsr d105 ;jump32 +D29D F6 00 2E ... ldab 002e +D2A0 C1 32 .2 cmpb #32 +D2A2 22 07 ". bhi 07 +D2A4 8D 6B .k bsr dest 6b +D2A6 83 00 00 ... subd #0000 +D2A9 27 0C '. beq 0c +D2AB BD D1 05 ... jsr d105 ;jump32 +D2AE BD D1 FD ... jsr d1fd ;jump90 +D2B1 BD D6 3C ..< jsr d63c ;jump33 +D2B4 5F _ clrb +D2B5 4F O clra +D2B6 39 9 rts + +D2B7 F6 00 06 ... ldab 0006 +D2BA 4F O clra +D2BB C3 0E 06 ... addd #0e06 +D2BE 8F . xgdx +D2BF 6C 00 l. inc 00,x +D2C1 F6 00 06 ... ldab 0006 +D2C4 4F O clra +D2C5 C3 0E 06 ... addd #0e06 +D2C8 8F . xgdx +D2C9 E6 00 .. ldab 00,x +D2CB C1 64 .d cmpb #64 +D2CD 23 0D #. bls 0d +D2CF 5F _ clrb +D2D0 37 7 pshb +D2D1 F6 00 06 ... ldab 0006 +D2D4 4F O clra +D2D5 C3 0E 06 ... addd #0e06 +D2D8 8F . xgdx +D2D9 33 3 pulb +D2DA E7 00 .. stab 00,x +D2DC CC 00 01 ... ldd #0001 +D2DF 39 9 rts + +D2E0 F6 00 2E ... ldab 002e +D2E3 26 14 &. bne 14 +D2E5 BD D5 F7 ... jsr d5f7 ;jump108 +D2E8 83 00 00 ... subd #0000 +D2EB 26 0C &. bne 0c +D2ED BD D1 05 ... jsr d105 ;jump32 +D2F0 BD D1 FD ... jsr d1fd ;jump90 +D2F3 BD D6 26 ..& jsr d626 ;jump91 +D2F6 5F _ clrb +D2F7 4F O clra +D2F8 39 9 rts + +D2F9 F6 00 2E ... ldab 002e +D2FC 26 0C &. bne 0c +D2FE BD D1 05 ... jsr d105 ;jump32 +D301 BD D1 FD ... jsr d1fd ;jump90 +D304 BD D6 3C ..< jsr d63c ;jump33 +D307 5F _ clrb +D308 4F O clra +D309 39 9 rts + +D30A 7E D2 5A ~.Z jmp d25a ;goto59 +D30D BD E6 1B ... jsr e61b ;jump4 +D310 39 9 rts + +jump30: +D311 BD D1 3D ..= jsr d13d ;jump34 +D314 7F 00 1C ... clr 001c +D317 7F 00 18 ... clr 0018 +D31A F6 10 0A ... ldab 100a +D31D C4 02 .. andb #02 ; motor overvoltage sense +D31F 27 13 '. beq 13 ; to d334 +D321 7C 00 1C |.. inc 001c +D324 F6 00 1C ... ldab 001c +D327 C1 FF .. cmpb #ff +D329 26 07 &. bne 07 +D32B BD D1 05 ... jsr d105 ;jump32 +D32E CC 00 01 ... ldd #0001 +D331 39 9 rts + +D332 20 10 . bra 10 +D334 7C 00 18 |.. inc 0018 +D337 F6 00 18 ... ldab 0018 +D33A C1 08 .. cmpb #08 +D33C 26 06 &. bne 06 +D33E BD D1 05 ... jsr d105 ;jump32 +D341 5F _ clrb +D342 4F O clra +D343 39 9 rts + +jump43: +D344 20 D4 . bra d4 ; to d31a? +D346 3C < pshx +D347 3C < pshx +D348 3C < pshx +D349 34 4 des +D34A F6 0E 6D ..m ldab 0e6d +D34D C1 01 .. cmpb #01 +D34F 27 03 '. beq 03 +D351 7E D4 07 ~.. jmp d407 ;goto60 +D354 F6 00 06 ... ldab 0006 +D357 4F O clra +D358 05 . asld +D359 C3 08 C8 ... addd #08c8 +D35C 8F . xgdx +D35D EC 00 .. ldd 00,x +D35F C4 7F .. andb #7f +D361 4F O clra +D362 FD 0E 6B ..k std 0e6b +D365 7F 00 06 ... clr 0006 +goto62: +D368 F6 00 06 ... ldab 0006 +D36B C1 3E .> cmpb #3e +D36D 26 03 &. bne 03 +D36F 7E D4 02 ~.. jmp d402 ;goto61 +D372 BD 97 6F ..o jsr 976f ;jump41 +D375 F6 00 06 ... ldab 0006 +D378 4F O clra +D379 05 . asld +D37A C3 08 C8 ... addd #08c8 +D37D 8F . xgdx +D37E EC 00 .. ldd 00,x +D380 C4 7F .. andb #7f +D382 4F O clra +D383 B3 0E 6B ..k subd 0e6b +D386 26 77 &w bne 77 +D388 F6 00 06 ... ldab 0006 +D38B 4F O clra +D38C CE 00 0A ... ldx #000a +D38F 02 . idiv +D390 30 0 tsx +D391 E7 01 .. stab 01,x +D393 E6 01 .. ldab 01,x +D395 C1 01 .. cmpb #01 +D397 26 07 &. bne 07 +D399 C6 40 .@ ldab #40 +D39B 30 0 tsx +D39C E7 00 .. stab 00,x +D39E 20 0C . bra 0c +D3A0 30 0 tsx +D3A1 E6 01 .. ldab 01,x +D3A3 C1 02 .. cmpb #02 +D3A5 26 05 &. bne 05 +D3A7 C6 80 .. ldab #80 +D3A9 30 0 tsx +D3AA E7 00 .. stab 00,x +D3AC BD D1 3D ..= jsr d13d ;jump34 +D3AF 5F _ clrb +D3B0 4F O clra +D3B1 30 0 tsx +D3B2 ED 03 .. std 03,x +;look at the home sensors for this row. If it is 0, increment 03/04 else +;decrement 03/05. Do this 10 times. +D3B4 CC 00 0A ... ldd #000a +D3B7 ED 05 .. std 05,x +loop: +D3B9 30 0 tsx +D3BA EC 05 .. ldd 05,x +D3BC 2F 23 /# ble 23 ; to D3E1 +D3BE F6 28 00 .(. ldab 2800 ;snack motor home sensors +D3C1 30 0 tsx +D3C2 E4 00 .. andb 00,x +D3C4 26 09 &. bne d3cf +D3C6 30 0 tsx +D3C7 6C 04 l. inc 04,x +D3C9 26 0C &. bne 0c +D3CB 6C 03 l. inc 03,x +D3CD 20 08 . bra d3d7 +D3CF 30 0 tsx +D3D0 EC 03 .. ldd 03,x +D3D2 83 00 01 ... subd #0001 +D3D5 ED 03 .. std 03,x +D3D7 30 0 tsx +D3D8 EC 05 .. ldd 05,x +D3DA 83 00 01 ... subd #0001 +D3DD ED 05 .. std 05,x +D3DF 20 D8 . bra loop ;d3b9 +D3E1 BD D1 05 ... jsr d105 ;jump32 - turn motors off +D3E4 30 0 tsx +D3E5 EC 03 .. ldd 03,x +D3E7 2C 16 ,. bge 16 +D3E9 F6 00 06 ... ldab 0006 +D3EC 8D 7A .z bsr dest 7a +D3EE 83 00 00 ... subd #0000 +D3F1 27 0C '. beq 0c +D3F3 BD D5 61 ..a jsr d561 ;jump42 +D3F6 83 00 00 ... subd #0000 +D3F9 26 04 &. bne 04 +D3FB 5F _ clrb +D3FC 4F O clra +D3FD 20 64 d bra 64 +D3FF 7E D3 68 ~.h jmp d368 ;goto62 +goto61: +D402 CC 00 01 ... ldd #0001 +D405 20 5C \ bra 5c +goto60: +D407 F6 00 06 ... ldab 0006 +D40A C1 13 .. cmpb #13 +D40C 27 1C '. beq 1c +D40E F6 00 06 ... ldab 0006 +D411 C1 1D .. cmpb #1d +D413 27 15 '. beq 15 +D415 F6 00 06 ... ldab 0006 +D418 C1 27 .' cmpb #27 +D41A 27 0E '. beq 0e +D41C F6 00 06 ... ldab 0006 +D41F C1 31 .1 cmpb #31 +D421 27 07 '. beq 07 +D423 F6 00 06 ... ldab 0006 +D426 C1 3B .; cmpb #3b +D428 26 37 &7 bne 37 +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 +D436 C4 40 .@ andb #40 +D438 26 14 &. bne 14 +D43A 7C 00 1C |.. inc 001c +D43D F6 00 1C ... ldab 001c +D440 C1 FF .. cmpb #ff +D442 26 08 &. bne 08 +D444 BD D1 05 ... jsr d105 ;jump32 +D447 CC 00 01 ... ldd #0001 +D44A 20 17 . bra 17 +D44C 20 11 . bra 11 +D44E 7C 00 18 |.. inc 0018 +D451 F6 00 18 ... ldab 0018 +D454 C1 08 .. cmpb #08 +D456 26 07 &. bne 07 +D458 BD D1 05 ... jsr d105 ;jump32 +D45B 5F _ clrb +D45C 4F O clra +D45D 20 04 . bra 04 +D45F 20 D2 . bra d2 +D461 5F _ clrb +D462 4F O clra +D463 38 8 pulx +D464 38 8 pulx +D465 38 8 pulx +D466 31 1 ins +D467 39 9 rts + +jump51: +D468 37 7 pshb +D469 30 0 tsx +D46A E6 00 .. ldab 00,x +D46C 4F O clra +D46D 05 . asld +D46E C3 08 00 ... addd #0800 +D471 8F . xgdx +D472 EC 00 .. ldd 00,x +D474 5F _ clrb +D475 84 80 .. anda #80 +D477 31 1 ins +D478 39 9 rts + +jump67: +D479 7F 00 1C ... clr 001c +D47C F6 00 1C ... ldab 001c +D47F C1 64 .d cmpb #64 +D481 24 1A $. bcc 1a +D483 CC FF 7F ... ldd #ff7f +D486 37 7 pshb +D487 36 6 psha +D488 F6 00 1C ... ldab 001c +D48B 4F O clra +D48C 05 . asld +D48D C3 08 C8 ... addd #08c8 +D490 38 8 pulx +D491 8F . xgdx +D492 A4 00 .. anda 00,x +D494 E4 01 .. andb 01,x +D496 ED 00 .. std 00,x +D498 7C 00 1C |.. inc 001c +D49B 20 DF . bra df +D49D 7F 00 05 ... clr 0005 +goto65: +D4A0 F6 00 05 ... ldab 0005 +D4A3 C1 50 .P cmpb #50 +D4A5 25 03 %. bcs 03 +D4A7 7E D5 60 ~.` jmp d560 ;goto63 +D4AA F6 00 05 ... ldab 0005 +D4AD 4F O clra +D4AE C3 B0 D3 ... addd #b0d3 +D4B1 8F . xgdx +D4B2 E6 00 .. ldab 00,x +D4B4 F7 00 06 ... stab 0006 +D4B7 BD D3 11 ... jsr d311 ;jump30 +D4BA 83 00 00 ... subd #0000 +D4BD 27 03 '. beq 03 +D4BF 7E D5 45 ~.E jmp d545 ;goto64 +D4C2 F6 00 06 ... ldab 0006 +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 ;jump31 +D4D0 83 00 00 ... subd #0000 +D4D3 26 06 &. bne 06 +D4D5 BD D1 FD ... jsr d1fd ;jump90 +D4D8 BD D6 3C ..< jsr d63c ;jump33 +D4DB CC 80 00 ... ldd #8000 +D4DE 37 7 pshb +D4DF 36 6 psha +D4E0 F6 00 06 ... ldab 0006 +D4E3 4F O clra +D4E4 05 . asld +D4E5 C3 08 00 ... addd #0800 +D4E8 38 8 pulx +D4E9 8F . xgdx +D4EA AA 00 .. ora 00,x +D4EC EA 01 .. orb 01,x +D4EE ED 00 .. std 00,x +D4F0 F6 00 06 ... ldab 0006 +D4F3 4F O clra +D4F4 05 . asld +D4F5 C3 08 00 ... addd #0800 +D4F8 8F . xgdx +D4F9 EC 00 .. ldd 00,x +D4FB C4 FF .. andb #ff +D4FD 84 3F .? anda #3f +D4FF 83 27 0F .'. subd #270f +D502 23 1A #. bls 1a +D504 BD D1 FD ... jsr d1fd ;jump90 +D507 CC 01 00 ... ldd #0100 +D50A 37 7 pshb +D50B 36 6 psha +D50C F6 00 06 ... ldab 0006 +D50F 4F O clra +D510 05 . asld +D511 C3 08 C8 ... addd #08c8 +D514 38 8 pulx +D515 8F . xgdx +D516 AA 00 .. ora 00,x +D518 EA 01 .. orb 01,x +D51A ED 00 .. std 00,x +D51C 20 25 % bra 25 +D51E F6 00 06 ... ldab 0006 +D521 4F O clra +D522 05 . asld +D523 C3 08 C8 ... addd #08c8 +D526 8F . xgdx +D527 EC 00 .. ldd 00,x +D529 C4 7F .. andb #7f +D52B F7 00 06 ... stab 0006 +D52E CC 00 80 ... ldd #0080 +D531 37 7 pshb +D532 36 6 psha +D533 F6 00 06 ... ldab 0006 +D536 4F O clra +D537 05 . asld +D538 C3 08 C8 ... addd #08c8 +D53B 38 8 pulx +D53C 8F . xgdx +D53D AA 00 .. ora 00,x +D53F EA 01 .. orb 01,x +D541 ED 00 .. std 00,x +D543 20 15 . bra 15 +goto64: +D545 CC 7F FF ... ldd #7fff +D548 37 7 pshb +D549 36 6 psha +D54A F6 00 06 ... ldab 0006 +D54D 4F O clra +D54E 05 . asld +D54F C3 08 00 ... addd #0800 +D552 38 8 pulx +D553 8F . xgdx +D554 A4 00 .. anda 00,x +D556 E4 01 .. andb 01,x +D558 ED 00 .. std 00,x +D55A 7C 00 05 |.. inc 0005 +D55D 7E D4 A0 ~.. jmp d4a0 ;goto65 +goto63: +D560 39 9 rts + +jump42: +D561 F6 00 06 ... ldab 0006 +D564 4F O clra +D565 05 . asld +D566 C3 08 00 ... addd #0800 +D569 8F . xgdx +D56A EC 00 .. ldd 00,x +D56C 5F _ clrb +D56D 84 40 .@ anda #40 +D56F 39 9 rts + +;Look at the home sensor for the row of this slot. If it isn't 0 within 5 +;loops, return 1 (fault?), else return 0 (OK?). +;005f is the row number in this routine. scratch variable? +;looks like 0006 is the slot number. +;this is called twice +jump35: +D570 F6 00 06 ... ldab 0006 +D573 4F O clra +D574 CE 00 0A ... ldx #000a +D577 02 . idiv +D578 F7 00 5F .._ stab 005f +D57B F6 00 5F .._ ldab 005f +D57E C1 05 .. cmpb #05 +D580 23 03 #. bls d585 +D582 7A 00 5F z._ dec 005f +D585 F6 00 5F .._ ldab 005f ;row number +D588 4F O clra +D589 C3 B1 23 ..# addd #b123 +D58C 8F . xgdx +D58D E6 00 .. ldab 00,x ;get bit for this row +D58F F7 00 5E ..^ stab 005e +D592 7F 00 1C ... clr 001c +loop: +D595 F6 28 00 .(. ldab 2800 ;snack motor home sensors +D598 F4 00 5E ..^ andb 005e ;check home sensor for this row +D59B 27 10 '. beq d5ad +D59D 7C 00 1C |.. inc 001c +D5A0 F6 00 1C ... ldab 001c +D5A3 C1 05 .. cmpb #05 +D5A5 26 04 &. bne d5ab +D5A7 CC 00 01 ... ldd #0001 +D5AA 39 9 rts + +D5AB 20 E8 . bra loop ;d595 +D5AD 5F _ clrb +D5AE 4F O clra +D5AF 39 9 rts + +;This does almost the same - check the home sensor for this row (slot number +;is in 0006) up to 5 times. If it is 1, return 0. If it stays 0, return 0. +;(this is the reverse of the routine above). But also check bit 0 of 100a. +;If it is ever 0, return 0. +;005f is the row number +;005e is the bit mask for this row +jump31: +D5B0 F6 00 06 ... ldab 0006 +D5B3 4F O clra +D5B4 CE 00 0A ... ldx #000a +D5B7 02 . idiv +D5B8 F7 00 5F .._ stab 005f +D5BB F6 00 5F .._ ldab 005f +D5BE C1 05 .. cmpb #05 +D5C0 23 03 #. bls 03 +D5C2 7A 00 5F z._ dec 005f +D5C5 F6 00 5F .._ ldab 005f +D5C8 4F O clra +D5C9 C3 B1 23 ..# addd #b123 +D5CC 8F . xgdx +D5CD E6 00 .. ldab 00,x +D5CF F7 00 5E ..^ stab 005e +D5D2 7F 00 1C ... clr 001c +loop: +D5D5 F6 28 00 .(. ldab 2800 ;snack motor home sensors +D5D8 F4 00 5E ..^ andb 005e +D5DB 26 17 &. bne d5f4 +D5DD F6 10 0A ... ldab 100a +D5E0 C4 01 .. andb #01 +D5E2 27 10 '. beq d5f4 +D5E4 7C 00 1C |.. inc 001c +D5E7 F6 00 1C ... ldab 001c +D5EA C1 05 .. cmpb #05 +D5EC 26 04 &. bne d5f2 +D5EE CC 00 01 ... ldd #0001 +D5F1 39 9 rts + +D5F2 20 E1 . bra loop ;d5d5 +D5F4 5F _ clrb +D5F5 4F O clra +D5F6 39 9 rts + +jump108: +D5F7 C6 07 .. ldab #07 +D5F9 F7 00 1C ... stab 001c +D5FC 7F 00 18 ... clr 0018 +; +D5FF F6 00 1C ... ldab 001c +D602 27 1E '. beq 1e ; to d620 +D604 7A 00 1C z.. dec 001c +D607 F6 10 0A ... ldab 100a +D60A C4 01 .. andb #01 +D60C 26 12 &. bne 12 ; to d620 +D60E C6 07 .. ldab #07 +D610 F7 00 1C ... stab 001c +D613 7C 00 18 |.. inc 0018 +D616 F6 00 18 ... ldab 0018 +D619 C1 05 .. cmpb #05 +D61B 26 03 &. bne 03 +D61D 5F _ clrb +D61E 4F O clra +D61F 39 9 rts +; +D620 20 DD . bra dd ; to d5ff +D622 CC 00 01 ... ldd #0001 +D625 39 9 rts + +jump91: +; ORs memory location 08c8+(slotnum*2) with #0200 +D626 CC 02 00 ... ldd #0200 +D629 37 7 pshb +D62A 36 6 psha +D62B F6 00 06 ... ldab 0006 +D62E 4F O clra +D62F 05 . asld +D630 C3 08 C8 ... addd #08c8 +D633 38 8 pulx +D634 8F . xgdx +D635 AA 00 .. ora 00,x +D637 EA 01 .. orb 01,x +D639 ED 00 .. std 00,x +D63B 39 9 rts + +jump33: +; ORs memory location 08c8+(slotnum*2) with #0400 +D63C CC 04 00 ... ldd #0400 +D63F 37 7 pshb +D640 36 6 psha +D641 F6 00 06 ... ldab 0006 +D644 4F O clra +D645 05 . asld +D646 C3 08 C8 ... addd #08c8 +D649 38 8 pulx +D64A 8F . xgdx +D64B AA 00 .. ora 00,x +D64D EA 01 .. orb 01,x +D64F ED 00 .. std 00,x +D651 39 9 rts + +jump5: +; Sends a pulse to the bill acceptor +D652 CE 00 1A ... ldx #001a +D655 1C 00 01 .. bset 00,x, #01 +D658 F6 00 1A ... ldab 001a +D65B F7 30 00 .0. stab 3000 +D65E CE 00 14 ... ldx #0014 +D661 1D 00 01 .. bclr 00,x, #01 +D664 F6 00 14 ... ldab 0014 +D667 F7 38 00 .8. stab 3800 +D66A 39 9 rts + +jump107: +D66B F6 0B C0 ... ldab 0bc0 +D66E C4 08 .. andb #08 +D670 27 07 '. beq 07 +D672 F6 00 7D ..} ldab 007d +D675 27 02 '. beq 02 +D677 20 F9 . bra f9 +D679 F6 00 15 ... ldab 0015 +D67C 2D 77 -w blt 77 +D67E FC 00 40 ..@ ldd 0040 +D681 F3 00 3E ..> addd 003e +D684 B3 00 0F ... subd 000f +D687 24 4F $O bcc 4f +D689 F6 0B C0 ... ldab 0bc0 +D68C C4 01 .. andb #01 +D68E 26 07 &. bne 07 +D690 F6 0B C0 ... ldab 0bc0 +D693 C4 04 .. andb #04 +D695 27 0C '. beq 0c +D697 CE 00 1A ... ldx #001a +D69A 1D 00 01 .. bclr 00,x, #01 +D69D F6 00 1A ... ldab 001a +D6A0 F7 30 00 .0. stab 3000 ; changer accept' line +D6A3 F6 0B C0 ... ldab 0bc0 +D6A6 C4 08 .. andb #08 +D6A8 27 20 ' beq 20 +D6AA F6 0C D9 ... ldab 0cd9 +D6AD C1 03 .. cmpb #03 +D6AF 23 19 #. bls 19 +D6B1 FC 0B EF ... ldd 0bef +D6B4 83 00 64 ..d subd #0064 +D6B7 25 11 %. bcs 11 +D6B9 CE 00 14 ... ldx #0014 +D6BC 1C 00 02 .. bset 00,x, #02 +D6BF F6 00 14 ... ldab 0014 +D6C2 F7 38 00 .8. stab 3800 ; bill acceptor +D6C5 BD C0 E0 ... jsr c0e0 ;jump94 +D6C8 20 0C . bra 0c +D6CA CE 00 14 ... ldx #0014 +D6CD 1D 00 01 .. bclr 00,x, #01 +D6D0 F6 00 14 ... ldab 0014 +D6D3 F7 38 00 .8. stab 3800 +D6D6 20 05 . bra 05 +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 +D6E2 27 11 '. beq 11 +D6E4 F6 0B C0 ... ldab 0bc0 +D6E7 C4 40 .@ andb #40 +D6E9 27 0A '. beq 0a +D6EB F6 00 15 ... ldab 0015 +D6EE C4 01 .. andb #01 +D6F0 27 03 '. beq 03 +D6F2 BD C0 E0 ... jsr c0e0 ;jump94 +D6F5 39 9 rts + +jump106: +D6F6 F6 0C DB ... ldab 0cdb +D6F9 4F O clra +D6FA 37 7 pshb +D6FB 36 6 psha +D6FC FC 0B DD ... ldd 0bdd +D6FF BD FB BA ... jsr fbba ;jump38 - multiply? +D702 FD 0C EB ... std 0ceb +D705 F6 0C DA ... ldab 0cda +D708 4F O clra +D709 37 7 pshb +D70A 36 6 psha +D70B FC 0B DF ... ldd 0bdf +D70E BD FB BA ... jsr fbba ;jump38 - multiply? +D711 FD 0C ED ... std 0ced +D714 F6 0C D9 ... ldab 0cd9 +D717 4F O clra +D718 37 7 pshb +D719 36 6 psha +D71A FC 0B E1 ... ldd 0be1 +D71D BD FB BA ... jsr fbba ;jump38 - multiply? +D720 FD 0C EF ... std 0cef +D723 FC 0C EB ... ldd 0ceb +D726 F3 0C ED ... addd 0ced +D729 F3 0C EF ... addd 0cef +D72C FD 0B EF ... std 0bef +D72F 39 9 rts + +jump202: +D730 F6 00 15 ... ldab 0015 +D733 C4 1F .. andb #1f +D735 27 49 'I beq 49 +D737 FC 00 40 ..@ ldd 0040 +D73A F3 00 3E ..> addd 003e +D73D B3 0B EF ... subd 0bef +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 ;msdelay +D74E BD C5 D3 ... jsr c5d3 ;jump6 +D751 CC 01 F4 ... ldd #01f4 +D754 BD E5 71 ..q jsr e571 ;msdelay +D757 CC 00 01 ... ldd #0001 +D75A 39 9 rts + +D75B F6 00 15 ... ldab 0015 +D75E C4 04 .. andb #04 +D760 27 1E '. beq 1e +D762 F6 0E 6E ..n ldab 0e6e +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 ;msdelay +D773 BD C5 D3 ... jsr c5d3 ;jump6 +D776 CC 01 F4 ... ldd #01f4 +D779 BD E5 71 ..q jsr e571 ;msdelay +D77C CC 00 01 ... ldd #0001 +D77F 39 9 rts + +D780 5F _ clrb +D781 4F O clra +D782 39 9 rts + +jump44: +D783 F6 00 06 ... ldab 0006 +D786 4F O clra +D787 CE 00 0A ... ldx #000a +D78A 02 . idiv +D78B C1 04 .. cmpb #04 +D78D 26 0E &. bne 0e +D78F F6 00 1D ... ldab 001d +D792 C4 04 .. andb #04 +D794 27 03 '. beq 03 +D796 5F _ clrb +D797 4F O clra +D798 39 9 rts + +D799 CC 00 01 ... ldd #0001 +D79C 39 9 rts + +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 +D7A4 C1 09 .. cmpb #09 +D7A6 27 18 '. beq 18 +D7A8 E6 00 .. ldab 00,x +D7AA C1 45 .E cmpb #45 +D7AC 27 12 '. beq 12 +D7AE E6 00 .. ldab 00,x +D7B0 C1 4F .O cmpb #4f +D7B2 27 0C '. beq 0c +D7B4 E6 00 .. ldab 00,x +D7B6 C1 59 .Y cmpb #59 +D7B8 27 06 '. beq 06 +D7BA E6 00 .. ldab 00,x +D7BC C1 63 .c cmpb #63 +D7BE 26 05 &. bne 05 +D7C0 CC 00 01 ... ldd #0001 +D7C3 20 38 8 bra 38 +D7C5 F6 0E 6D ..m ldab 0e6d +D7C8 C1 01 .. cmpb #01 +D7CA 26 2F &/ bne 2f +D7CC 30 0 tsx +D7CD E6 00 .. ldab 00,x +D7CF 4F O clra +D7D0 CE 00 0A ... ldx #000a +D7D3 02 . idiv +D7D4 C1 01 .. cmpb #01 +D7D6 27 11 '. beq 11 +D7D8 30 0 tsx +D7D9 E6 00 .. ldab 00,x +D7DB 4F O clra +D7DC CE 00 0A ... ldx #000a +D7DF 02 . idiv +D7E0 C1 02 .. cmpb #02 +D7E2 27 05 '. beq 05 +D7E4 CC 00 01 ... ldd #0001 +D7E7 20 14 . bra 14 +D7E9 30 0 tsx +D7EA E6 00 .. ldab 00,x +D7EC C1 0B .. cmpb #0b +D7EE 25 06 %. bcs 06 +D7F0 E6 00 .. ldab 00,x +D7F2 C1 3E .> cmpb #3e +D7F4 23 05 #. bls 05 +D7F6 CC 00 01 ... ldd #0001 +D7F9 20 02 . bra 02 +D7FB 5F _ clrb +D7FC 4F O clra +D7FD 31 1 ins +D7FE 39 9 rts + +jump80: +D7FF 7F 00 1C ... clr 001c +D802 F6 00 1C ... ldab 001c +D805 4F O clra +D806 B3 00 4D ..M subd 004d +D809 24 05 $. bcc 05 +D80B 7C 00 1C |.. inc 001c +D80E 20 F2 . bra f2 +D810 F6 00 1C ... ldab 001c +D813 4F O clra +D814 05 . asld +D815 C3 0D 1F ... addd #0d1f +D818 8F . xgdx +D819 EC 00 .. ldd 00,x +D81B 83 FF FF ... subd #ffff +D81E 26 10 &. bne 10 +D820 5F _ clrb +D821 4F O clra +D822 37 7 pshb +D823 36 6 psha +D824 F6 00 1C ... ldab 001c +D827 4F O clra +D828 05 . asld +D829 C3 0D 1F ... addd #0d1f +D82C 38 8 pulx +D82D 8F . xgdx +D82E ED 00 .. std 00,x +D830 F6 00 1C ... ldab 001c +D833 4F O clra +D834 05 . asld +D835 C3 0D 1F ... addd #0d1f +D838 8F . xgdx +D839 6C 01 l. inc 01,x +D83B 26 02 &. bne 02 +D83D 6C 00 l. inc 00,x +D83F 39 9 rts + +jump105: +D840 FC 00 44 ..D ldd 0044 +D843 26 03 &. bne 03 +D845 7E D8 D2 ~.. jmp d8d2 ;goto66 +D848 FC 00 44 ..D ldd 0044 +D84B 37 7 pshb +D84C 36 6 psha +D84D 4F O clra +D84E 5F _ clrb +D84F 37 7 pshb +D850 36 6 psha +D851 CC 0D EB ... ldd #0deb +D854 BD FB DF ... jsr fbdf ;jump46 +D857 31 1 ins +D858 31 1 ins +D859 FE 0D ED ... ldx 0ded +D85C 3C < pshx +D85D FC 0D EB ... ldd 0deb +D860 37 7 pshb +D861 36 6 psha +D862 CE E1 00 ... ldx #e100 +D865 3C < pshx +D866 CC 05 F5 ... ldd #05f5 +D869 37 7 pshb +D86A 36 6 psha +D86B 30 0 tsx +D86C EC 06 .. ldd 06,x +D86E A3 02 .. subd 02,x +D870 EC 04 .. ldd 04,x +D872 E2 01 .. sbcb 01,x +D874 A2 00 .. sbca 00,x +D876 38 8 pulx +D877 38 8 pulx +D878 38 8 pulx +D879 38 8 pulx +D87A 25 11 %. bcs 11 +D87C CE 1F 00 ... ldx #1f00 +D87F 3C < pshx +D880 CC FA 0A ... ldd #fa0a +D883 37 7 pshb +D884 36 6 psha +D885 CC 0D EB ... ldd #0deb +D888 BD FB DF ... jsr fbdf ;jump46 +D88B 31 1 ins +D88C 31 1 ins +D88D FC 00 44 ..D ldd 0044 +D890 37 7 pshb +D891 36 6 psha +D892 4F O clra +D893 5F _ clrb +D894 37 7 pshb +D895 36 6 psha +D896 CC 0D E7 ... ldd #0de7 +D899 BD FB DF ... jsr fbdf ;jump46 +D89C 31 1 ins +D89D 31 1 ins +D89E FE 0D E9 ... ldx 0de9 +D8A1 3C < pshx +D8A2 FC 0D E7 ... ldd 0de7 +D8A5 37 7 pshb +D8A6 36 6 psha +D8A7 CE E1 00 ... ldx #e100 +D8AA 3C < pshx +D8AB CC 05 F5 ... ldd #05f5 +D8AE 37 7 pshb +D8AF 36 6 psha +D8B0 30 0 tsx +D8B1 EC 06 .. ldd 06,x +D8B3 A3 02 .. subd 02,x +D8B5 EC 04 .. ldd 04,x +D8B7 E2 01 .. sbcb 01,x +D8B9 A2 00 .. sbca 00,x +D8BB 38 8 pulx +D8BC 38 8 pulx +D8BD 38 8 pulx +D8BE 38 8 pulx +D8BF 25 11 %. bcs 11 +D8C1 CE 1F 00 ... ldx #1f00 +D8C4 3C < pshx +D8C5 CC FA 0A ... ldd #fa0a +D8C8 37 7 pshb +D8C9 36 6 psha +D8CA CC 0D E7 ... ldd #0de7 +D8CD BD FB DF ... jsr fbdf ;jump46 +D8D0 31 1 ins +D8D1 31 1 ins +goto66: +D8D2 39 9 rts + +jump84: +;500 ms delay +D8D3 7F 00 18 ... clr 0018 +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 ;msdelay +D8E3 7C 00 18 |.. inc 0018 +D8E6 20 EE . bra ee +D8E8 39 9 rts + +jump92: +D8E9 F6 00 2B ..+ ldab 002b +D8EC C1 00 .. cmpb #00 +D8EE 26 18 &. bne 18 +D8F0 CC AD 84 ... ldd #ad84 ; " PULSE " +D8F3 BD C0 BA ... jsr c0ba ;display: +D8F6 8D DB .. bsr dest db +D8F8 CC AD 8F ... ldd #ad8f ; " EXTRA " +D8FB BD C0 BA ... jsr c0ba ;display: +D8FE 8D D3 .. bsr dest d3 +D900 CC AD 9A ... ldd #ad9a ; "SELECTION" +D903 BD C0 BA ... jsr c0ba ;display: +D906 20 4E N bra 4e +D908 C1 01 .. cmpb #01 +D90A 26 18 &. bne 18 +D90C CC AD 63 ..c ldd #ad63 ; " BITTE " +D90F BD C0 BA ... jsr c0ba ;display: +D912 8D BF .. bsr dest bf +D914 CC AD 6E ..n ldd #ad6e ; " ANDERE " +D917 BD C0 BA ... jsr c0ba ;display: +D91A 8D B7 .. bsr dest b7 +D91C CC AD 79 ..y ldd #ad79 ; " WAHL " +D91F BD C0 BA ... jsr c0ba ;display: +D922 20 32 2 bra 32 +D924 C1 02 .. cmpb #02 +D926 26 18 &. bne 18 +D928 CC AD 42 ..B ldd #ad42 +D92B BD C0 BA ... jsr c0ba ;display: +D92E 8D A3 .. bsr dest a3 +D930 CC AD 4D ..M ldd #ad4d +D933 BD C0 BA ... jsr c0ba ;display: +D936 8D 9B .. bsr dest 9b +D938 CC AD 58 ..X ldd #ad58 +D93B BD C0 BA ... jsr c0ba ;display: +D93E 20 16 . bra 16 +D940 CC AD 21 ..! ldd #ad21 +D943 BD C0 BA ... jsr c0ba ;display: +D946 8D 8B .. bsr dest 8b +D948 CC AD 2C .., ldd #ad2c +D94B BD C0 BA ... jsr c0ba ;display: +D94E 8D 83 .. bsr dest 83 +D950 CC AD 37 ..7 ldd #ad37 +D953 BD C0 BA ... jsr c0ba ;display: +D956 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay +D959 39 9 rts + +jump123: +D95A F6 00 06 ... ldab 0006 +D95D F1 0B AF ... cmpb 0baf +D960 26 0D &. bne 0d +D962 BD D7 FF ... jsr d7ff ;jump80 +D965 F6 0B B4 ... ldab 0bb4 +D968 F7 00 06 ... stab 0006 +D96B 8D 55 .U bsr dest 55 +D96D 20 52 R bra 52 +D96F F6 00 06 ... ldab 0006 +D972 F1 0B AE ... cmpb 0bae +D975 26 0D &. bne 0d +D977 BD D7 FF ... jsr d7ff ;jump80 +D97A F6 0B B3 ... ldab 0bb3 +D97D F7 00 06 ... stab 0006 +D980 8D 40 .@ bsr dest 40 +D982 20 3D = bra 3d +D984 F6 00 06 ... ldab 0006 +D987 F1 0B AD ... cmpb 0bad +D98A 26 0D &. bne 0d +D98C BD D7 FF ... jsr d7ff ;jump80 +D98F F6 0B B2 ... ldab 0bb2 +D992 F7 00 06 ... stab 0006 +D995 8D 2B .+ bsr dest 2b +D997 20 28 ( bra 28 +D999 F6 00 06 ... ldab 0006 +D99C F1 0B AC ... cmpb 0bac +D99F 26 0D &. bne 0d +D9A1 BD D7 FF ... jsr d7ff ;jump80 +D9A4 F6 0B B1 ... ldab 0bb1 +D9A7 F7 00 06 ... stab 0006 +D9AA 8D 16 .. bsr dest 16 +D9AC 20 13 . bra 13 +D9AE F6 00 06 ... ldab 0006 +D9B1 F1 0B AB ... cmpb 0bab +D9B4 26 0B &. bne 0b +D9B6 BD D7 FF ... jsr d7ff ;jump80 +D9B9 F6 0B B0 ... ldab 0bb0 +D9BC F7 00 06 ... stab 0006 +D9BF 8D 01 .. bsr dest 01 +D9C1 39 9 rts + +D9C2 CC 03 E8 ... ldd #03e8 +D9C5 BD E5 71 ..q jsr e571 ;msdelay +D9C8 BD D7 83 ... jsr d783 ;jump44 +D9CB 83 00 00 ... subd #0000 +D9CE 27 0B '. beq 0b +D9D0 7F 00 06 ... clr 0006 +D9D3 5F _ clrb +D9D4 4F O clra +D9D5 FD 00 4D ..M std 004d +D9D8 7E DA 63 ~.c jmp da63 ;goto67 +D9DB BD D2 13 ... jsr d213 ;jump45 +D9DE 83 00 00 ... subd #0000 +D9E1 26 0A &. bne 0a +D9E3 7F 00 06 ... clr 0006 +D9E6 5F _ clrb +D9E7 4F O clra +D9E8 FD 00 4D ..M std 004d +D9EB 20 76 v bra 76 +D9ED FC 0D 0B ... ldd 0d0b +D9F0 83 FF FF ... subd #ffff +D9F3 26 05 &. bne 05 +D9F5 5F _ clrb +D9F6 4F O clra +D9F7 FD 0D 0B ... std 0d0b +D9FA FE 0D 0B ... ldx 0d0b +D9FD 08 . inx +D9FE FF 0D 0B ... stx 0d0b +DA01 F6 00 06 ... ldab 0006 +DA04 4F O clra +DA05 05 . asld +DA06 C3 08 C8 ... addd #08c8 +DA09 8F . xgdx +DA0A EC 00 .. ldd 00,x +DA0C C4 7F .. andb #7f +DA0E 4F O clra +DA0F FD 00 4D ..M std 004d +DA12 F6 00 06 ... ldab 0006 +DA15 4F O clra +DA16 05 . asld +DA17 C3 08 00 ... addd #0800 +DA1A 8F . xgdx +DA1B EC 00 .. ldd 00,x +DA1D C4 FF .. andb #ff +DA1F 84 3F .? anda #3f +DA21 37 7 pshb +DA22 36 6 psha +DA23 4F O clra +DA24 5F _ clrb +DA25 37 7 pshb +DA26 36 6 psha +DA27 CC 0D 17 ... ldd #0d17 +DA2A BD FB DF ... jsr fbdf ;jump46 +DA2D 31 1 ins +DA2E 31 1 ins +DA2F FE 0D 19 ... ldx 0d19 +DA32 3C < pshx +DA33 FC 0D 17 ... ldd 0d17 +DA36 37 7 pshb +DA37 36 6 psha +DA38 CE E1 00 ... ldx #e100 +DA3B 3C < pshx +DA3C CC 05 F5 ... ldd #05f5 +DA3F 37 7 pshb +DA40 36 6 psha +DA41 30 0 tsx +DA42 EC 06 .. ldd 06,x +DA44 A3 02 .. subd 02,x +DA46 EC 04 .. ldd 04,x +DA48 E2 01 .. sbcb 01,x +DA4A A2 00 .. sbca 00,x +DA4C 38 8 pulx +DA4D 38 8 pulx +DA4E 38 8 pulx +DA4F 38 8 pulx +DA50 25 11 %. bcs 11 +DA52 CE 1F 00 ... ldx #1f00 +DA55 3C < pshx +DA56 CC FA 0A ... ldd #fa0a +DA59 37 7 pshb +DA5A 36 6 psha +DA5B CC 0D 17 ... ldd #0d17 +DA5E BD FB DF ... jsr fbdf ;jump46 +DA61 31 1 ins +DA62 31 1 ins +goto67: +DA63 39 9 rts + +jump122: +DA64 FE 0B B9 ... ldx 0bb9 +DA67 08 . inx +DA68 FF 0B B9 ... stx 0bb9 +DA6B FC 0B B5 ... ldd 0bb5 +DA6E CE 00 32 ..2 ldx #0032 +DA71 02 . idiv +DA72 8F . xgdx +DA73 37 7 pshb +DA74 36 6 psha +DA75 CC 00 C3 ... ldd #00c3 +DA78 BD FB BA ... jsr fbba ;jump38 +DA7B B3 0B B9 ... subd 0bb9 +DA7E 24 05 $. bcc 05 +DA80 5F _ clrb +DA81 4F O clra +DA82 FD 0B B9 ... std 0bb9 +DA85 FC 0B B9 ... ldd 0bb9 +DA88 37 7 pshb +DA89 36 6 psha +DA8A CC 00 0A ... ldd #000a +DA8D BD FB BA ... jsr fbba ;jump38 +DA90 37 7 pshb +DA91 36 6 psha +DA92 FC 0B B5 ... ldd 0bb5 +DA95 CE 00 32 ..2 ldx #0032 +DA98 02 . idiv +DA99 8F . xgdx +DA9A 38 8 pulx +DA9B 8F . xgdx +DA9C 02 . idiv +DA9D 8F . xgdx +DA9E 37 7 pshb +DA9F 36 6 psha +DAA0 CC 00 0A ... ldd #000a +DAA3 BD FB BA ... jsr fbba ;jump38 +DAA6 CE 00 0A ... ldx #000a +DAA9 02 . idiv +DAAA 8F . xgdx +DAAB FD 00 4A ..J std 004a +DAAE FC 00 4A ..J ldd 004a +DAB1 BD FE 32 ..2 jsr fe32 ;jump25 +DAB4 DA CA 00 6E ...n ; 110 +DAB8 DA CA 02 80 .... ; 750 +DABC DA CA 01 C2 .... ; 1200 +DAC0 DA CA 01 C2 .... ; 1650 +DAC4 DB 43 F9 8E .... ; 0 +DAC8 00 00 .. ; end of array data +DACA FC 0D 07 ... ldd 0d07 +DACD 83 FF FF ... subd #ffff +DAD0 26 05 &. bne 05 +DAD2 5F _ clrb +DAD3 4F O clra +DAD4 FD 0D 07 ... std 0d07 +DAD7 FE 0D 07 ... ldx 0d07 +DADA 08 . inx +DADB FF 0D 07 ... stx 0d07 +DADE F6 00 06 ... ldab 0006 +DAE1 4F O clra +DAE2 05 . asld +DAE3 C3 08 00 ... addd #0800 +DAE6 8F . xgdx +DAE7 EC 00 .. ldd 00,x +DAE9 C4 FF .. andb #ff +DAEB 84 3F .? anda #3f +DAED 37 7 pshb +DAEE 36 6 psha +DAEF 4F O clra +DAF0 5F _ clrb +DAF1 37 7 pshb +DAF2 36 6 psha +DAF3 CC 0D 0F ... ldd #0d0f +DAF6 BD FB DF ... jsr fbdf ;jump46 +DAF9 31 1 ins +DAFA 31 1 ins +DAFB FE 0D 11 ... ldx 0d11 +DAFE 3C < pshx +DAFF FC 0D 0F ... ldd 0d0f +DB02 37 7 pshb +DB03 36 6 psha +DB04 CE E1 00 ... ldx #e100 +DB07 3C < pshx +DB08 CC 05 F5 ... ldd #05f5 +DB0B 37 7 pshb +DB0C 36 6 psha +DB0D 30 0 tsx +DB0E EC 06 .. ldd 06,x +DB10 A3 02 .. subd 02,x +DB12 EC 04 .. ldd 04,x +DB14 E2 01 .. sbcb 01,x +DB16 A2 00 .. sbca 00,x +DB18 38 8 pulx +DB19 38 8 pulx +DB1A 38 8 pulx +DB1B 38 8 pulx +DB1C 25 11 %. bcs 11 +DB1E CE 1F 00 ... ldx #1f00 +DB21 3C < pshx +DB22 CC FA 0A ... ldd #fa0a +DB25 37 7 pshb +DB26 36 6 psha +DB27 CC 0D 0F ... ldd #0d0f +DB2A BD FB DF ... jsr fbdf ;jump46 +DB2D 31 1 ins +DB2E 31 1 ins +DB2F 5F _ clrb +DB30 4F O clra +DB31 FD 00 44 ..D std 0044 +DB34 CE 00 1B ... ldx #001b +DB37 1D 00 01 ... bclr 00,x, #01 +DB3A 7F 00 4F ..O clr 004f +DB3D CE 00 11 ... ldx #0011 +DB40 1C 00 10 ... bset 00,x, #10 +DB43 39 9 rts + +jump104: +DB44 F6 00 2B ..+ ldab 002b +DB47 C1 00 .. cmpb #00 +DB49 26 08 &. bne 08 +DB4B CC AC DF ... ldd #acdf +DB4E BD C0 BA ... jsr c0ba ;display: +DB51 20 1E . bra 1e +DB53 C1 01 .. cmpb #01 +DB55 26 08 &. bne 08 +DB57 CC AC D4 ... ldd #acd4 +DB5A BD C0 BA ... jsr c0ba ;display: +DB5D 20 12 . bra 12 +DB5F C1 02 .. cmpb #02 +DB61 26 08 &. bne 08 +DB63 CC AC EA ... ldd #acea +DB66 BD C0 BA ... jsr c0ba ;display: +DB69 20 06 . bra 06 +DB6B CC AC D4 ... ldd #acd4 +DB6E BD C0 BA ... jsr c0ba ;display: +DB71 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay +DB74 CE 00 01 ... ldx #0001 +DB77 3C < pshx +DB78 FC 00 40 ..@ ldd 0040 +DB7B F3 00 3E ..> addd 003e +DB7E BD BE 9E ... jsr be9e ;jump50 +DB81 38 8 pulx +DB82 FC 00 40 ..@ ldd 0040 +DB85 27 05 '. beq 05 +DB87 BD C4 56 ..V jsr c456 ;jump47 +DB8A 20 06 . bra 06 +DB8C CC 02 58 ..X ldd #0258 +DB8F BD E5 71 ..q jsr e571 ;msdelay +DB92 FC 00 3E ..> ldd 003e +DB95 27 03 '. beq 03 +DB97 BD C5 D3 ... jsr c5d3 ;jump6 +DB9A F6 00 2B ..+ ldab 002b +DB9D C1 00 .. cmpb #00 +DB9F 26 08 &. bne 08 +DBA1 CC AD 16 ... ldd #ad16 +DBA4 BD C0 BA ... jsr c0ba ;display: +DBA7 20 1E . bra 1e +DBA9 C1 01 .. cmpb #01 +DBAB 26 08 &. bne 08 +DBAD CC AD 0B ... ldd #ad0b +DBB0 BD C0 BA ... jsr c0ba ;display: +DBB3 20 12 . bra 12 +DBB5 C1 02 .. cmpb #02 +DBB7 26 08 &. bne 08 +DBB9 CC AD 00 ... ldd #ad00 +DBBC BD C0 BA ... jsr c0ba ;display: +DBBF 20 06 . bra 06 +DBC1 CC AC F5 ... ldd #acf5 +DBC4 BD C0 BA ... jsr c0ba ;display: +DBC7 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay +DBCA 39 9 rts + +jump121: +DBCB F6 00 1B ... ldab 001b +DBCE C4 01 .. andb #01 +DBD0 26 03 &. bne 03 +DBD2 7E DC 98 ~.. jmp dc98 ;goto68 +DBD5 F6 00 06 ... ldab 0006 +DBD8 4F O clra +DBD9 05 . asld +DBDA C3 08 C8 ... addd #08c8 +DBDD 8F . xgdx +DBDE EC 00 .. ldd 00,x +DBE0 84 08 .. anda #08 +DBE2 26 03 &. bne 03 +DBE4 7E DC 98 ~.. jmp dc98 ;goto68 +DBE7 BD D7 FF ... jsr d7ff ;jump80 +DBEA CC 03 E8 ... ldd #03e8 +DBED BD E5 71 ..q jsr e571 ;msdelay +DBF0 BD D3 46 ..F jsr d346 ;jump43 +DBF3 83 00 00 ... subd #0000 +DBF6 26 08 &. bne 08 +DBF8 BD D7 83 ... jsr d783 ;jump44 +DBFB 83 00 00 ... subd #0000 +DBFE 27 17 '. beq 17 +DC00 5F _ clrb +DC01 4F O clra +DC02 FD 00 4D ..M std 004d +DC05 FC 00 44 ..D ldd 0044 +DC08 F3 0B B7 ... addd 0bb7 +DC0B 04 . lsrd +DC0C F3 00 40 ..@ addd 0040 +DC0F B3 0B B7 ... subd 0bb7 +DC12 FD 00 40 ..@ std 0040 +DC15 20 78 x bra 78 +DC17 BD D2 13 ... jsr d213 ;jump45 +DC1A 83 00 00 ... subd #0000 +DC1D 26 17 &. bne 17 +DC1F 5F _ clrb +DC20 4F O clra +DC21 FD 00 4D ..M std 004d +DC24 FC 00 44 ..D ldd 0044 +DC27 F3 0B B7 ... addd 0bb7 +DC2A 04 . lsrd +DC2B F3 00 40 ..@ addd 0040 +DC2E B3 0B B7 ... subd 0bb7 +DC31 FD 00 40 ..@ std 0040 +DC34 20 59 Y bra 59 +DC36 FC 0D 09 ... ldd 0d09 +DC39 83 FF FF ... subd #ffff +DC3C 26 05 &. bne 05 +DC3E 5F _ clrb +DC3F 4F O clra +DC40 FD 0D 09 ... std 0d09 +DC43 FE 0D 09 ... ldx 0d09 +DC46 08 . inx +DC47 FF 0D 09 ... stx 0d09 +DC4A FC 0B B7 ... ldd 0bb7 +DC4D 37 7 pshb +DC4E 36 6 psha +DC4F 4F O clra +DC50 5F _ clrb +DC51 37 7 pshb +DC52 36 6 psha +DC53 CC 0D 13 ... ldd #0d13 +DC56 BD FB DF ... jsr fbdf ;jump46 +DC59 31 1 ins +DC5A 31 1 ins +DC5B FE 0D 15 ... ldx 0d15 +DC5E 3C < pshx +DC5F FC 0D 13 ... ldd 0d13 +DC62 37 7 pshb +DC63 36 6 psha +DC64 CE E1 00 ... ldx #e100 +DC67 3C < pshx +DC68 CC 05 F5 ... ldd #05f5 +DC6B 37 7 pshb +DC6C 36 6 psha +DC6D 30 0 tsx +DC6E EC 06 .. ldd 06,x +DC70 A3 02 .. subd 02,x +DC72 EC 04 .. ldd 04,x +DC74 E2 01 .. sbcb 01,x +DC76 A2 00 .. sbca 00,x +DC78 38 8 pulx +DC79 38 8 pulx +DC7A 38 8 pulx +DC7B 38 8 pulx +DC7C 25 11 %. bcs 11 +DC7E CE 1F 00 ... ldx #1f00 +DC81 3C < pshx +DC82 CC FA 0A ... ldd #fa0a +DC85 37 7 pshb +DC86 36 6 psha +DC87 CC 0D 13 ... ldd #0d13 +DC8A BD FB DF ... jsr fbdf ;jump46 +DC8D 31 1 ins +DC8E 31 1 ins +DC8F CE 00 1B ... ldx #001b +DC92 1D 00 01 ... bclr 00,x, #01 +DC95 7F 00 4F ..O clr 004f +goto68: +DC98 F6 00 11 ... ldab 0011 +DC9B C4 08 .. andb #08 +DC9D 26 03 &. bne 03 +DC9F BD D9 5A ..Z jsr d95a ;jump123 +DCA2 39 9 rts + +jump29: +DCA3 CE 0B BC ... ldx #0bbc +DCA6 1D 00 1C .. bclr 00,x, #1c +DCA9 F6 0B BC .. ldab 0bbc +DCAB C4 03 ... andb #03 +DCAE 26 48 &H bne 48 +DCB0 FC 0B BD ... ldd 0bbd +DCB3 37 7 pshb +DCB4 36 6 psha +DCB5 4F O clra +DCB6 5F _ clrb +DCB7 37 7 pshb +DCB8 36 6 psha +DCB9 CC 0D F7 ... ldd #0df7 +DCBC BD FB DF ... jsr fbdf ;jump46 +DCBF 31 1 ins +DCC0 31 1 ins +DCC1 FE 0D F9 ... ldx 0df9 +DCC4 3C < pshx +DCC5 FC 0D F7 ... ldd 0df7 +DCC8 37 7 pshb +DCC9 36 6 psha +DCCA CE E1 00 ... ldx #e100 +DCCD 3C < pshx +DCCE CC 05 F5 ... ldd #05f5 +DCD1 37 7 pshb +DCD2 36 6 psha +DCD3 30 0 tsx +DCD4 EC 06 .. ldd 06,x +DCD6 A3 02 .. subd 02,x +DCD8 EC 04 .. ldd 04,x +DCDA E2 01 .. sbcb 01,x +DCDC A2 00 .. sbca 00,x +DCDE 38 8 pulx +DCDF 38 8 pulx +DCE0 38 8 pulx +DCE1 38 8 pulx +DCE2 25 11 %. bcs 11 +DCE4 CE 1F 00 ... ldx #1f00 +DCE7 3C < pshx +DCE8 CC FA 0A ... ldd #fa0a +DCEB 37 7 pshb +DCEC 36 6 psha +DCED CC 0D F7 ... ldd #0df7 +DCF0 BD FB DF ... jsr fbdf ;jump46 +DCF3 31 1 ins +DCF4 31 1 ins +DCF5 7E DD D4 ~.. jmp ddd4 ;goto69 +DCF8 F6 0B BC ... ldab 0bbc +DCFB C4 03 .. andb #03 +DCFD C1 01 .. cmpb #01 +DCFF 27 03 '. beq 03 +DD01 7E DD D4 ~.. jmp ddd4 ;goto69 +DD04 F6 0B BC ... ldab 0bbc +DD07 C4 E0 .. andb #e0 +DD09 54 T lsrb +DD0A 54 T lsrb +DD0B 54 T lsrb +DD0C 54 T lsrb +DD0D 54 T lsrb +DD0E F7 0B BC ... stab 0bbc +DD11 F6 0B BC ... ldab 0bbc +DD14 F1 0B C4 ... cmpb 0bc4 +DD17 26 33 &3 bne 33 +DD19 F6 0B D7 ... ldab 0bd7 +DD1C C1 01 .. cmpb #01 +DD1E 26 0A &. bne 0a +DD20 7C 0C DB |.. inc 0cdb +DD23 C6 03 .. ldab #03 +DD25 F7 00 48 ..H stab 0048 +DD28 20 20 bra 20 +DD2A F6 0B D8 ... ldab 0bd8 +DD2D C1 01 .. cmpb #01 +DD2F 26 0A &. bne 0a +DD31 7C 0C DA |.. inc 0cda +DD34 C6 02 .. ldab #02 +DD36 F7 00 48 ..H stab 0048 +DD39 20 0F . bra 0f +DD3B F6 0B D9 ... ldab 0bd9 +DD3E C1 01 .. cmpb #01 +DD40 26 08 &. bne 08 +DD42 7C 0C D9 |.. inc 0cd9 +DD45 C6 01 .. ldab #01 +DD47 F7 00 48 ..H stab 0048 +DD4A 20 74 t bra 74 +DD4C F6 0B BC ... ldab 0bbc +DD4F F1 0B C5 ... cmpb 0bc5 +DD52 26 33 &3 bne 33 +DD54 F6 0B D7 ... ldab 0bd7 +DD57 C1 04 .. cmpb #04 +DD59 26 0A &. bne 0a +DD5B 7C 0C DB |.. inc 0cdb +DD5E C6 03 .. ldab #03 +DD60 F7 00 48 ..H stab 0048 +DD63 20 20 bra 20 +DD65 F6 0B D8 ... ldab 0bd8 +DD68 C1 04 .. cmpb #04 +DD6A 26 0A &. bne 0a +DD6C 7C 0C DA |.. inc 0cda +DD6F C6 02 .. ldab #02 +DD71 F7 00 48 ..H stab 0048 +DD74 20 0F . bra 0f +DD76 F6 0B D9 ... ldab 0bd9 +DD79 C1 04 .. cmpb #04 +DD7B 26 08 &. bne 08 +DD7D 7C 0C D9 |.. inc 0cd9 +DD80 C6 01 .. ldab #01 +DD82 F7 00 48 ..H stab 0048 +DD85 20 39 9 bra 39 +DD87 F6 0B BC ... ldab 0bbc +DD8A F1 0B C6 ... cmpb 0bc6 +DD8D 26 31 &1 bne 31 +DD8F F6 0B D7 ... ldab 0bd7 +DD92 C1 02 .. cmpb #02 +DD94 26 0A &. bne 0a +DD96 7C 0C DB |.. inc 0cdb +DD99 C6 03 .. ldab #03 +DD9B F7 00 48 ..H stab 0048 +DD9E 20 20 bra 20 +DDA0 F6 0B D8 ... ldab 0bd8 +DDA3 C1 02 .. cmpb #02 +DDA5 26 0A &. bne 0a +DDA7 7C 0C DA |.. inc 0cda +DDAA C6 02 .. ldab #02 +DDAC F7 00 48 ..H stab 0048 +DDAF 20 0F . bra 0f +DDB1 F6 0B D9 ... ldab 0bd9 +DDB4 C1 02 .. cmpb #02 +DDB6 26 08 &. bne 08 +DDB8 7C 0C D9 |.. inc 0cd9 +DDBB C6 01 .. ldab #01 +DDBD F7 00 48 ..H stab 0048 +DDC0 F6 00 17 ... ldab 0017 +DDC3 C4 08 .. andb #08 +DDC5 26 0D &. bne 0d +DDC7 F6 0B BC ... ldab 0bbc +DDCA 26 08 &. bne 08 +DDCC 7C 0C DC |.. inc 0cdc +DDCF C6 04 .. ldab #04 +DDD1 F7 00 48 ..H stab 0048 +goto69: +DDD4 39 9 rts + +jump120: +DDD5 BD BE 69 ..i jsr be69 ;displayreset +DDD8 C6 03 .. ldab #03 +DDDA F7 00 1C ... stab 001c +DDDD F6 00 1C ... ldab 001c +DDE0 C1 0D .. cmpb #0d +DDE2 24 1C $. bcc 1c +DDE4 F6 00 1C ... ldab 001c +DDE7 4F O clra +DDE8 C3 0C B9 ... addd #0cb9 +DDEB 8F . xgdx +DDEC E6 00 .. ldab 00,x +DDEE 37 7 pshb +DDEF CC 0B 9C ... ldd #0b9c +DDF2 F0 00 1C ... subb 001c +DDF5 82 00 .. sbca #00 +DDF7 8F . xgdx +DDF8 33 3 pulb +DDF9 E7 00 .. stab 00,x +DDFB 7C 00 1C |.. inc 001c +DDFE 20 DD . bra dd +DE00 BD BE 10 ... jsr be10 ;jump88 +DE03 C6 14 .. ldab #14 +DE05 F7 00 2C .., stab 002c +DE08 39 9 rts + +dump119: +DE09 CC 0B 9A ... ldd #0b9a +DE0C BD C0 BA ... jsr c0ba ;display: +DE0F C6 14 .. ldab #14 +DE11 F7 00 2C .., stab 002c +DE14 39 9 rts + +dump118: +DE15 F6 00 1B ... ldab 001b +DE18 C4 01 .. andb #01 +DE1A 26 03 &. bne 03 +DE1C 7E DE A4 ~.. jmp dea4 ;goto70 +DE1F F6 00 06 ... ldab 0006 +DE22 4F O clra +DE23 05 . asld +DE24 C3 08 C8 ... addd #08c8 +DE27 8F . xgdx +DE28 EC 00 .. ldd 00,x +DE2A 84 08 .. anda #08 +DE2C 27 76 'v beq 76 +DE2E F6 00 11 ... ldab 0011 +DE31 C4 08 .. andb #08 +DE33 26 33 &3 bne 33 +DE35 F6 00 06 ... ldab 0006 +DE38 F1 0B AF ... cmpb 0baf +DE3B 27 20 ' beq 20 +DE3D F6 00 06 ... ldab 0006 +DE40 F1 0B AE ... cmpb 0bae +DE43 27 18 '. beq 18 +DE45 F6 00 06 ... ldab 0006 +DE48 F1 0B AD ... cmpb 0bad +DE4B 27 10 '. beq 10 +DE4D F6 00 06 ... ldab 0006 +DE50 F1 0B AC ... cmpb 0bac +DE53 27 08 '. beq 08 +DE55 F6 00 06 ... ldab 0006 +DE58 F1 0B AB ... cmpb 0bab +DE5B 26 0B &. bne 0b +DE5D CE 00 1B ... ldx #001b +DE60 1D 00 01 ... bclr 00,x, #01 ; fixed by ./fixbset.pl - verify me +DE63 7F 00 4F ..O clr 004f +DE66 20 3C < bra 3c +DE68 FC 00 44 ..D ldd 0044 +DE6B B3 0B B7 ... subd 0bb7 +DE6E 23 2B #+ bls 2b +DE70 FC 00 40 ..@ ldd 0040 +DE73 F3 00 3E ..> addd 003e +DE76 37 7 pshb +DE77 36 6 psha +DE78 FC 00 44 ..D ldd 0044 +DE7B B3 0B B7 ... subd 0bb7 +DE7E F3 00 44 ..D addd 0044 +DE81 30 0 tsx +DE82 A3 00 .. subd 00,x +DE84 31 1 ins +DE85 31 1 ins +DE86 22 13 ". bhi 13 +DE88 FC 0B B7 ... ldd 0bb7 +DE8B 27 0E '. beq 0e +DE8D FC 00 44 ..D ldd 0044 +DE90 B3 0B B7 ... subd 0bb7 +DE93 F3 00 44 ..D addd 0044 +DE96 FD 00 44 ..D std 0044 +DE99 20 09 . bra 09 +DE9B CE 00 1B ... ldx #001b +DE9E 1D 00 01 ... bclr 00,x, #01 ; fixed by ./fixbset.pl - verify me +DEA1 7F 00 4F ..O clr 004f +goto70: +DEA4 39 9 rts + +dump117: +DEA5 F6 00 2B ..+ ldab 002b +DEA8 C1 00 .. cmpb #00 +DEAA 26 0D &. bne 0d +DEAC CE 00 12 ... ldx #0012 +DEAF 3C < pshx +DEB0 CC AE 7E ..~ ldd #ae7e +DEB3 BD C0 2E ... jsr c02e ;jump71 +DEB6 38 8 pulx +DEB7 20 2D - bra 2d +DEB9 C1 01 .. cmpb #01 +DEBB 26 0D &. bne 0d +DEBD CE 00 0F ... ldx #000f +DEC0 3C < pshx +DEC1 CC AE 6D ..m ldd #ae6d ; something german +DEC4 BD C0 2E ... jsr c02e ;jump71 +DEC7 38 8 pulx +DEC8 20 1C . bra 1c +DECA C1 02 .. cmpb #02 +DECC 26 0D &. bne 0d +DECE CE 00 10 ... ldx #0010 +DED1 3C < pshx +DED2 CC AE 5B ..[ ldd #ae5b +DED5 BD C0 2E ... jsr c02e ;jump71 +DED8 38 8 pulx +DED9 20 0B . bra 0b +DEDB CE 00 15 ... ldx #0015 +DEDE 3C < pshx +DEDF CC AE 44 ..D ldd #ae44 +DEE2 BD C0 2E ... jsr c02e ;jump71 +DEE5 38 8 pulx +DEE6 39 9 rts + +jump116: +; revolves around coinage +DEE7 F6 0B C0 ... ldab 0bc0 +DEEA C4 01 .. andb #01 +DEEC 26 07 &. bne 07 +DEEE F6 0B C0 ... ldab 0bc0 +DEF1 C4 04 .. andb #04 +DEF3 27 15 '. beq 15 +DEF5 C6 FF .. ldab #ff +DEF7 F7 0B BC ... stab 0bbc +DEFA F6 00 15 ... ldab 0015 +DEFD 2D 03 -. blt 03 +DEFF BD C6 7D ..} jsr c67d ;jump124 +DF02 BD D6 6B ..k jsr d66b ;jump107 +DF05 BD DC A3 ... jsr dca3 ;jump29 +DF08 20 25 % bra 25 +DF0A F6 0B C0 ... ldab 0bc0 +DF0D C4 02 .. andb #02 +DF0F 27 1E '. beq 1e +DF11 F6 00 2F ../ ldab 002f +DF14 26 19 &. bne 19 +DF16 F6 00 1B ... ldab 001b +DF19 C4 02 .. andb #02 +DF1B 26 12 &. bne 12 +DF1D CC 00 FF ... ldd #00ff +DF20 BD C7 E7 ... jsr c7e7 ;jump37 +DF23 CE 00 1B ... ldx #001b +DF26 1C 00 02 .. bset 00,x, #02 +DF29 CE 0B C1 ... ldx #0bc1 +DF2C 1C 00 04 .. bset 00,x, #04 +DF2F F6 00 21 ..! ldab 0021 +DF32 C4 20 . andb #20 +DF34 27 07 '. beq 07 +; +DF36 BD D6 52 ..R jsr d652 ;jump5 +DF39 BD DE A5 ... jsr dea5 ;jump117 +DF3C 39 9 rts +; +DF3D F6 00 4F ..O ldab 004f +DF40 26 06 &. bne 06 +DF42 CE 00 1B ... ldx #001b +DF45 1D 00 01 ... bclr 00,x, #01 ; fixed by ./fixbset.pl - verify me +DF48 F6 00 25 ..% ldab 0025 +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 ;jump5 +DF57 FC 00 40 ..@ ldd 0040 +DF5A 26 05 &. bne 05 +DF5C FC 00 3E ..> ldd 003e +DF5F 27 03 '. beq 03 +DF61 BD DB 44 ..D jsr db44 ;jump104 +DF64 BD D6 6B ..k jsr d66b ;jump107 +DF67 CE 00 1B ... ldx #001b +DF6A 1D 00 40 ... bclr 00,x, #40 ; fixed by ./fixbset.pl - verify me +DF6D F6 00 2C .., ldab 002c +DF70 27 03 '. beq 03 +DF72 7E E0 66 ~.f jmp e066 ;goto71 +DF75 F6 00 34 ..4 ldab 0034 +DF78 26 0B &. bne 0b +DF7A BD BE 69 ..i jsr be69 ;displayreset +DF7D C6 32 .2 ldab #32 +DF7F F7 00 34 ..4 stab 0034 +DF82 7E E0 63 ~.c jmp e063 ;goto72 +DF85 FC 00 40 ..@ ldd 0040 +DF88 26 05 &. bne 05 +DF8A FC 00 3E ..> ldd 003e +DF8D 27 16 '. beq 16 +DF8F CE 00 01 ... ldx #0001 +DF92 3C < pshx +DF93 FC 00 40 ..@ ldd 0040 +DF96 F3 00 3E ..> addd 003e +DF99 BD BE 9E ... jsr be9e ;jump50 +DF9C 38 8 pulx +DF9D C6 05 .. ldab #05 +DF9F F7 00 2C .., stab 002c +DFA2 7E E0 63 ~.c jmp e063 ;goto72 +DFA5 F6 0C D9 ... ldab 0cd9 +DFA8 C1 04 .. cmpb #04 +DFAA 24 07 $. bcc 07 +DFAC F6 0B C0 ... ldab 0bc0 +DFAF C4 01 .. andb #01 +DFB1 26 07 &. bne 07 +DFB3 F6 00 21 ..! ldab 0021 +DFB6 C4 40 .@ andb #40 +DFB8 27 43 'C beq 43 +DFBA F6 00 2B ..+ ldab 002b +DFBD C1 00 .. cmpb #00 +DFBF 26 0D &. bne 0d +DFC1 CE 00 19 ... ldx #0019 +DFC4 3C < pshx +DFC5 CC AD E7 ... ldd #ade7 +DFC8 BD C0 2E ... jsr c02e ;jump71 +DFCB 38 8 pulx +DFCC 20 2D - bra 2d +DFCE C1 01 .. cmpb #01 +DFD0 26 0D &. bne 0d +DFD2 CE 00 12 ... ldx #0012 +DFD5 3C < pshx +DFD6 CC AD D3 ... ldd #add3 ; more german +DFD9 BD C0 2E ... jsr c02e ;jump71 +DFDC 38 8 pulx +DFDD 20 1C . bra 1c +DFDF C1 02 .. cmpb #02 +DFE1 26 0D &. bne 0d +DFE3 CE 00 19 ... ldx #0019 +DFE6 3C < pshx +DFE7 CC AD B8 ... ldd #adb8 +DFEA BD C0 2E ... jsr c02e ;jump71 +DFED 38 8 pulx +DFEE 20 0B . bra 0b +DFF0 CE 00 11 ... ldx #0011 ; length of +DFF3 3C < pshx +DFF4 CC AD A5 ... ldd #ada5 ; " EXACT COINS ONLY " +DFF7 BD C0 2E ... jsr c02e ;jump71 - display +DFFA 38 8 pulx +DFFB 20 66 f bra 66 +DFFD F6 0B C0 ... ldab 0bc0 +E000 C4 08 .. andb #08 +E002 27 52 'R beq 52 +E004 F6 0B C1 ... ldab 0bc1 +E007 C4 08 .. andb #08 +E009 26 08 &. bne 08 +E00B FC 0B EF ... ldd 0bef +E00E 83 00 64 ..d subd #0064 +E011 24 43 $C bcc 43 +E013 F6 00 2B ..+ ldab 002b +E016 C1 00 .. cmpb #00 +E018 26 0D &. bne 0d +E01A CE 00 12 ... ldx #0012 +E01D 3C < pshx +E01E CC AE 30 ..0 ldd #ae30 +E021 BD C0 2E ... jsr c02e ;jump71 +E024 38 8 pulx +E025 20 2D - bra 2d +E027 C1 01 .. cmpb #01 +E029 26 0D &. bne 0d +E02B CE 00 0B ... ldx #000b +E02E 3C < pshx +E02F CC AE 23 ..# ldd #ae23 +E032 BD C0 2E ... jsr c02e ;jump71 +E035 38 8 pulx +E036 20 1C . bra 1c +E038 C1 02 .. cmpb #02 +E03A 26 0D &. bne 0d +E03C CE 00 12 ... ldx #0012 +E03F 3C < pshx +E040 CC AE 0F ... ldd #ae0f +E043 BD C0 2E ... jsr c02e ;jump71 +E046 38 8 pulx +E047 20 0B . bra 0b +E049 CE 00 0B ... ldx #000b +E04C 3C < pshx +E04D CC AE 02 ... ldd #ae02 +E050 BD C0 2E ... jsr c02e ;jump71 +E053 38 8 pulx +E054 20 0D . bra 0d +E056 F6 0B BF ... ldab 0bbf +E059 4F O clra +E05A 37 7 pshb +E05B 36 6 psha +E05C CC 09 93 ... ldd #0993 +E05F BD C0 2E ... jsr c02e ;jump71 +E062 38 8 pulx +goto72: +E063 7E E5 6A ~.j jmp e56a ;goto73 +goto71: +E066 F6 00 06 ... ldab 0006 +E069 26 03 &. bne 03 +E06B 7E E5 6A ~.j jmp e56a ;goto73 +E06E CE 00 1D ... ldx #001d +E071 1C 00 40 ... bset 00,x, #40 +E074 BD E7 C7 ... jsr e7c7 ;jump114 +E077 F6 00 06 ... ldab 0006 +E07A C1 59 .Y cmpb #59 +E07C 26 06 &. bne 06 +E07E BD DE 09 ... jsr de09 ;jump119 +E081 7E E5 5E ~.^ jmp e55e ;goto74 +E084 F6 00 06 ... ldab 0006 +E087 BD D4 68 ..h jsr d468 ;jump51 +E08A 83 00 00 ... subd #0000 +E08D 27 18 '. beq 18 +E08F BD D5 61 ..a jsr d561 ;jump42 +E092 83 00 00 ... subd #0000 +E095 26 10 &. bne 10 +E097 BD D3 46 ..F jsr d346 ;jump43 +E09A 83 00 00 ... subd #0000 +E09D 26 08 &. bne 08 +E09F BD D7 83 ... jsr d783 ;jump44 +E0A2 83 00 00 ... subd #0000 +E0A5 27 09 '. beq 09 +E0A7 BD E5 D1 ... jsr e5d1 ;jump52 +E0AA BD D8 E9 ... jsr d8e9 ;jump92 +E0AD 7E E5 5E ~.^ jmp e55e ;goto74 +E0B0 F6 00 06 ... ldab 0006 +E0B3 4F O clra +E0B4 05 . asld +E0B5 C3 08 00 ... addd #0800 +E0B8 8F . xgdx +E0B9 EC 00 .. ldd 00,x +E0BB C4 FF .. andb #ff +E0BD 84 3F .? anda #3f +E0BF FD 00 44 ..D std 0044 +E0C2 F6 00 06 ... ldab 0006 +E0C5 4F O clra +E0C6 05 . asld +E0C7 C3 08 C8 ... addd #08c8 +E0CA 8F . xgdx +E0CB EC 00 .. ldd 00,x +E0CD C4 7F .. andb #7f +E0CF 4F O clra +E0D0 FD 00 4D ..M std 004d +E0D3 F6 0B C0 ... ldab 0bc0 +E0D6 2C 05 ,. bge 05 +E0D8 5F _ clrb +E0D9 4F O clra +E0DA FD 00 44 ..D std 0044 +E0DD F6 0B C0 ... ldab 0bc0 +E0E0 C4 02 .. andb #02 +E0E2 26 03 &. bne 03 +E0E4 BD DE 15 ... jsr de15 ;dump118 +E0E7 F6 00 11 ... ldab 0011 +E0EA C4 20 . andb #20 +E0EC 26 1A &. bne 1a +E0EE F6 0B C0 ... ldab 0bc0 +E0F1 C4 02 .. andb #02 +E0F3 26 13 &. bne 13 +E0F5 FC 00 40 ..@ ldd 0040 +E0F8 F3 00 3E ..> addd 003e +E0FB B3 00 44 ..D subd 0044 +E0FE 25 08 %. bcs 08 +E100 F6 0B C0 ... ldab 0bc0 +E103 2D 03 -. blt 03 +E105 BD DA 64 ..d jsr da64 ;jump122 +E108 FC 00 40 ..@ ldd 0040 +E10B F3 00 3E ..> addd 003e +E10E B3 00 44 ..D subd 0044 +E111 24 50 $P bcc 50 +E113 F6 0B C0 ... ldab 0bc0 +E116 C4 10 .. andb #10 +E118 26 49 &I bne 49 +E11A F6 00 2B ..+ ldab 002b +E11D C1 00 .. cmpb #00 +E11F 26 08 &. bne 08 +E121 CC AC C9 ... ldd #acc9 +E124 BD C0 BA ... jsr c0ba ;display: +E127 20 1E . bra 1e +E129 C1 01 .. cmpb #01 +E12B 26 08 &. bne 08 +E12D CC AC BE ... ldd #acbe +E130 BD C0 BA ... jsr c0ba ;display: +E133 20 12 . bra 12 +E135 C1 02 .. cmpb #02 +E137 26 08 &. bne 08 +E139 CC AC B3 ... ldd #acb3 +E13C BD C0 BA ... jsr c0ba ;display: +E13F 20 06 . bra 06 +E141 CC AC A8 ... ldd #aca8 +E144 BD C0 BA ... jsr c0ba ;display: +E147 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay +E14A CE 00 00 ... ldx #0000 +E14D 3C < pshx +E14E FC 00 44 ..D ldd 0044 +E151 BD BE 9E ... jsr be9e ;jump50 +E154 38 8 pulx +E155 BD E5 D1 ... jsr e5d1 ;jump52 +E158 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay +E15B C6 0C .. ldab #0c +E15D F7 00 2C .., stab 002c +E160 7E E5 5E ~.^ jmp e55e ;goto74 +E163 F6 0B C0 ... ldab 0bc0 +E166 C4 01 .. andb #01 +E168 26 11 &. bne 11 +E16A F6 0B C0 ... ldab 0bc0 +E16D C4 04 .. andb #04 +E16F 26 0A &. bne 0a +E171 F6 0B C0 ... ldab 0bc0 +E174 C4 0F .. andb #0f +E176 27 03 '. beq 03 +E178 7E E3 35 ~.5 jmp e335 ;goto75 +E17B FC 00 40 ..@ ldd 0040 +E17E F3 00 3E ..> addd 003e +E181 B3 00 44 ..D subd 0044 +E184 FD 10 16 ... std 1016 +E187 F6 00 15 ... ldab 0015 +E18A C4 01 .. andb #01 +E18C 27 08 '. beq 08 +E18E FC 10 16 ... ldd 1016 +E191 83 00 64 ..d subd #0064 +E194 25 3C %< bcs 3c +E196 F6 00 15 ... ldab 0015 +E199 C4 02 .. andb #02 +E19B 27 08 '. beq 08 +E19D FC 10 16 ... ldd 1016 +E1A0 83 00 C8 ... subd #00c8 +E1A3 25 2D %- bcs 2d +E1A5 F6 00 15 ... ldab 0015 +E1A8 C4 04 .. andb #04 +E1AA 27 08 '. beq 08 +E1AC FC 10 16 ... ldd 1016 +E1AF 83 01 F4 ... subd #01f4 +E1B2 25 1E %. bcs 1e +E1B4 F6 00 15 ... ldab 0015 +E1B7 C4 08 .. andb #08 +E1B9 27 08 '. beq 08 +E1BB FC 10 16 ... ldd 1016 +E1BE 83 03 E8 ... subd #03e8 +E1C1 25 0F %. bcs 0f +E1C3 F6 00 15 ... ldab 0015 +E1C6 C4 10 .. andb #10 +E1C8 27 13 '. beq 13 +E1CA FC 10 16 ... ldd 1016 +E1CD 83 07 D0 ... subd #07d0 +E1D0 24 0B $. bcc 0b +E1D2 BD C0 E0 ... jsr c0e0 ;jump94 +E1D5 83 00 00 ... subd #0000 +E1D8 26 01 &. bne 01 +; +E1DA 39 9 rts +; +E1DB 20 03 . bra 03 +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 +E1EC FD 00 40 ..@ std 0040 +E1EF 5F _ clrb +E1F0 4F O clra +E1F1 FD 00 3E ..> std 003e +E1F4 CE 00 1B ... ldx #001b +E1F7 1C 00 80 .. bset 00,x, #80 +E1F9 BD D2 13 .. jsr d213 ;jump45 +E1FC 83 00 00 ... subd #0000 +E200 26 12 &. bne 12 +E202 BD E5 D1 ... jsr e5d1 ;jump52 +E205 BD D8 E9 ... jsr d8e9 ;jump92 +E208 FC 00 40 ..@ ldd 0040 +E20B F3 00 44 ..D addd 0044 +E20E FD 00 40 ..@ std 0040 +E211 7E E3 29 ~.) jmp e329 ;goto92 +E214 BD DB CB ... jsr dbcb ;jump121 +E217 F6 00 1B ... ldab 001b +E21A C4 20 . andb #20 +E21C 27 45 'E beq 45 +E21E FC 00 44 ..D ldd 0044 +E221 37 7 pshb +E222 36 6 psha +E223 4F O clra +E224 5F _ clrb +E225 37 7 pshb +E226 36 6 psha +E227 CC 0D FB ... ldd #0dfb +E22A BD FB DF ... jsr fbdf ;jump46 +E22D 31 1 ins +E22E 31 1 ins +E22F FE 0D FD ... ldx 0dfd +E232 3C < pshx +E233 FC 0D FB ... ldd 0dfb +E236 37 7 pshb +E237 36 6 psha +E238 CE E1 00 ... ldx #e100 +E23B 3C < pshx +E23C CC 05 F5 ... ldd #05f5 +E23F 37 7 pshb +E240 36 6 psha +E241 30 0 tsx +E242 EC 06 .. ldd 06,x +E244 A3 02 .. subd 02,x +E246 EC 04 .. ldd 04,x +E248 E2 01 .. sbcb 01,x +E24A A2 00 .. sbca 00,x +E24C 38 8 pulx +E24D 38 8 pulx +E24E 38 8 pulx +E24F 38 8 pulx +E250 25 11 %. bcs 11 +E252 CE 1F 00 ... ldx #1f00 +E255 3C < pshx +E256 CC FA 0A ... ldd #fa0a +E259 37 7 pshb +E25A 36 6 psha +E25B CC 0D FB ... ldd #0dfb +E25E BD FB DF ... jsr fbdf ;jump46 +E261 31 1 ins +E262 31 1 ins +E263 F6 0B C0 ... ldab 0bc0 +E266 2C 78 ,x bge 78 +E268 F6 00 06 ... ldab 0006 +E26B 4F O clra +E26C 05 . asld +E26D C3 08 00 ... addd #0800 +E270 8F . xgdx +E271 EC 00 .. ldd 00,x +E273 C4 FF .. andb #ff +E275 26 02 &. bne 02 +E277 84 3F .? anda #3f +E279 27 65 'e beq 65 +E27B FC 0D 0D ... ldd 0d0d +E27E 83 FF FF ... subd #ffff +E281 26 05 &. bne 05 +E283 5F _ clrb +E284 4F O clra +E285 FD 0D 0D ... std 0d0d +E288 FE 0D 0D ... ldx 0d0d +E28B 08 . inx +E28C FF 0D 0D ... stx 0d0d +E28F F6 00 06 ... ldab 0006 +E292 4F O clra +E293 05 . asld +E294 C3 08 00 ... addd #0800 +E297 8F . xgdx +E298 EC 00 .. ldd 00,x +E29A C4 FF .. andb #ff +E29C 84 3F .? anda #3f +E29E 37 7 pshb +E29F 36 6 psha +E2A0 4F O clra +E2A1 5F _ clrb +E2A2 37 7 pshb +E2A3 36 6 psha +E2A4 CC 0D 1B ... ldd #0d1b +E2A7 BD FB DF ... jsr fbdf ;jump46 +E2AA 31 1 ins +E2AB 31 1 ins +E2AC FE 0D 1D ... ldx 0d1d +E2AF 3C < pshx +E2B0 FC 0D 1B ... ldd 0d1b +E2B3 37 7 pshb +E2B4 36 6 psha +E2B5 CE E1 00 ... ldx #e100 +E2B8 3C < pshx +E2B9 CC 05 F5 ... ldd #05f5 +E2BC 37 7 pshb +E2BD 36 6 psha +E2BE 30 0 tsx +E2BF EC 06 .. ldd 06,x +E2C1 A3 02 .. subd 02,x +E2C3 EC 04 .. ldd 04,x +E2C5 E2 01 .. sbcb 01,x +E2C7 A2 00 .. sbca 00,x +E2C9 38 8 pulx +E2CA 38 8 pulx +E2CB 38 8 pulx +E2CC 38 8 pulx +E2CD 25 11 %. bcs 11 +E2CF CE 1F 00 ... ldx #1f00 +E2D2 3C < pshx +E2D3 CC FA 0A ... ldd #fa0a +E2D6 37 7 pshb +E2D7 36 6 psha +E2D8 CC 0D 1B ... ldd #0d1b +E2DB BD FB DF ... jsr fbdf ;jump46 +E2DE 31 1 ins +E2DF 31 1 ins +E2E0 F6 00 11 ... ldab 0011 +E2E3 C4 10 .. andb #10 +E2E5 26 14 &. bne 14 +E2E7 FC 00 40 ..@ ldd 0040 +E2EA 27 0F '. beq 0f +E2EC FC 00 40 ..@ ldd 0040 +E2EF B3 00 50 ..P subd 0050 +E2F2 24 15 $. bcc 15 +E2F4 F6 00 11 ... ldab 0011 +E2F7 C4 10 .. andb #10 +E2F9 26 0E &. bne 0e +E2FB BD DB 44 ..D jsr db44 ;jump104 +E2FE CE 00 1B ... ldx #001b +E301 1D 00 40 ... bclr 00,x, #40 ; fixed by ./fixbset.pl - verify me +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 ;msdelay +E312 BD E5 AA ... jsr e5aa ;jump12 +E315 BD D8 E9 ... jsr d8e9 ;jump92 +E318 CE 00 1B ... ldx #001b +E31B 1C 00 40 ... bset 00,x, #40 +E31E C6 0A .. ldab #0a +E320 F7 00 25 ..% stab 0025 +E323 BD D7 FF ... jsr d7ff ;jump80 +E326 BD D8 40 ..@ jsr d840 ;jump105 +goto92: +E329 BD E8 9A ... jsr e89a ;jump68 +E32C CE 0B C1 ... ldx #0bc1 +E32F 1D 00 08 ... bclr 00,x, #08 +E332 7E E5 5E ~.^ jmp e55e ;goto74 +goto75: +E335 F6 0B C0 ... ldab 0bc0 +E338 C4 02 .. andb #02 +E33A 26 03 &. bne 03 +E33C 7E E5 5E ~.^ jmp e55e ;goto74 +E33F 5F _ clrb +E340 4F O clra +E341 FD 00 76 ..v std 0076 +E344 CE 00 17 ... ldx #0017 +E347 1D 00 01 ... bclr 00,x, #01 +E34A CE 00 17 ... ldx #0017 +E34D 1D 00 02 ... bclr 00,x, #02 +E350 FC 00 44 ..D ldd 0044 +E353 26 1C &. bne 1c +E355 F6 0B C0 ... ldab 0bc0 +E358 C4 10 .. andb #10 +E35A 26 08 &. bne 08 +E35C CE 00 21 ..! ldx #0021 +E35F 1C 00 .. bset add,x 00,x +E361 80 20 . suba #20 +E363 0B . sev +E364 CE 00 21 ..! ldx #0021 +E367 1D 00 .. bclr add,x 00,x +E369 80 C6 .. suba #c6 +E36B 05 . asld +E36C F7 00 75 ..u stab 0075 +E36F 20 57 W bra 57 +E371 F6 0B C0 ... ldab 0bc0 +E374 C4 10 .. andb #10 +E376 27 50 'P beq 50 +E378 FC 00 40 ..@ ldd 0040 +E37B 26 4B &K bne 4b +E37D F6 0B C0 ... ldab 0bc0 +E380 C4 20 . andb #20 +E382 27 3E '> beq 3e +E384 CE 00 17 ... ldx #0017 +E387 1C 00 01 ... bset 00,x, #01 +E38A F6 00 2B ..+ ldab 002b +E38D C1 00 .. cmpb #00 +E38F 26 08 &. bne 08 +E391 CC AC C9 ... ldd #acc9 ; " PRECIO " +E394 BD C0 BA ... jsr c0ba ;display: +E397 20 1E . bra 1e +E399 C1 01 .. cmpb #01 +E39B 26 08 &. bne 08 +E39D CC AC BE ... ldd #acbe ; " PRIES " +E3A0 BD C0 BA ... jsr c0ba ;display: +E3A3 20 12 . bra 12 +E3A5 C1 02 .. cmpb #02 +E3A7 26 08 &. bne 08 +E3A9 CC AC B3 ... ldd #acb3 ; " PRIX " +E3AC BD C0 BA ... jsr c0ba ;display: +E3AF 20 06 . bra 06 +E3B1 CC AC A8 ... ldd #aca8 ; " PRICE " +E3B4 BD C0 BA ... jsr c0ba ;display: +E3B7 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay +E3BA CE 00 17 ... ldx #0017 +E3BD 1C 00 02 ... bset 00,x, #02 +E3C0 20 06 . bra 06 +E3C2 CE 00 1F ... ldx #001f +E3C5 1C 00 08 ... bset 00,x, #08 +E3C8 CE 00 1D ... ldx #001d +E3CB 1C 00 02 ... bset 00,x, #02 +E3CE CE 00 19 ... ldx #0019 +E3D1 1C 00 08 ... bset 00,x, #08 +E3D4 C6 32 .2 ldab #32 +E3D6 F7 00 31 ..1 stab 0031 +E3D9 C6 19 .. ldab #19 +E3DB F7 00 36 ..6 stab 0036 +goto77: +E3DE F6 00 1D ... ldab 001d +E3E1 C4 02 .. andb #02 +E3E3 26 03 &. bne 03 +E3E5 7E E4 6E ~.n jmp e46e ;goto76 +E3E8 F6 00 75 ..u ldab 0075 +E3EB C1 04 .. cmpb #04 +E3ED 22 05 ". bhi 05 +E3EF F6 00 36 ..6 ldab 0036 +E3F2 26 3C &< bne 3c +E3F4 7F 00 06 ... clr 0006 +E3F7 5F _ clrb +E3F8 4F O clra +E3F9 FD 00 76 ..v std 0076 +E3FC 7F 00 2E ... clr 002e +E3FF 7F 00 2C .., clr 002c +E402 7F 00 75 ..u clr 0075 +E405 CE 00 17 ... ldx #0017 +E408 1D 00 01 ... bclr 00,x, #01 +E40B CE 00 19 ... ldx #0019 +E40E 1D 00 08 ... bclr 00,x, #08 +E411 CE 00 1B ... ldx #001b +E414 1D 00 .. bclr add,x 00,x +E416 80 CE .. suba #ce +E418 00 . test +E419 1D 1D 00 ... bclr 1d,x, #00 +E41C 40 @ nega +E41D CE 00 1D ... ldx #001d +E420 1D 00 02 ... bclr 00,x, #02 +E423 CE 00 1F ... ldx #001f +E426 1D 00 08 ... bclr 00,x, #08 +E429 CE 00 21 ..! ldx #0021 +E42C 1D 00 .. bclr add,x 00,x +E42E 80 39 .9 suba #39 +E430 F6 0B C0 ... ldab 0bc0 +E433 C4 20 . andb #20 +E435 27 34 '4 beq 34 +E437 F6 00 17 ... ldab 0017 +E43A C4 01 .. andb #01 +E43C 26 2D &- bne 2d +E43E F6 00 17 ... ldab 0017 +E441 C4 02 .. andb #02 +E443 27 26 '& beq 26 +E445 CE 00 00 ... ldx #0000 +E448 3C < pshx +E449 FC 00 76 ..v ldd 0076 +E44C BD BE 9E ... jsr be9e ;jump50 +E44F 38 8 pulx +E450 FC 00 76 ..v ldd 0076 +E453 26 06 &. bne 06 +E455 CE 00 17 ... ldx #0017 +E458 1D 00 02 ... bclr 00,x, #02 ; fixed by ./fixbset.pl - verify me +E45B F6 00 17 ... ldab 0017 +E45E C4 02 .. andb #02 +E460 27 09 '. beq 09 +E462 BD E5 D1 ... jsr e5d1 ;jump52 +E465 CE 00 17 ... ldx #0017 +E468 1D 00 02 ... bclr 00,x, #02 ; fixed by ./fixbset.pl - verify me +E46B 7E E3 DE ~.. jmp e3de ;goto77 +goto76: +E46E CE 00 21 ..! ldx #0021 +E471 1D 00 .. bclr add,x 00,x +E473 80 CE .. suba #ce +E475 00 . test +E476 1F 1D 00 08 .... brclr 1d,x 00 08 +E47A BD D2 13 ... jsr d213 ;jump45 +E47D 83 00 00 ... subd #0000 +E480 26 0F &. bne 0f +E482 CC 00 80 ... ldd #0080 +E485 BD C7 E7 ... jsr c7e7 ;jump37 +E488 BD E5 D1 ... jsr e5d1 ;jump52 +E48B BD D8 E9 ... jsr d8e9 ;jump92 +E48E 7E E5 5E ~.^ jmp e55e ;goto74 +E491 F6 00 2B ..+ ldab 002b +E494 C1 00 .. cmpb #00 +E496 26 08 &. bne 08 +E498 CC AD 16 ... ldd #ad16 +E49B BD C0 BA ... jsr c0ba ;display: +E49E 20 1E . bra 1e +E4A0 C1 01 .. cmpb #01 +E4A2 26 08 &. bne 08 +E4A4 CC AD 0B ... ldd #ad0b +E4A7 BD C0 BA ... jsr c0ba ;display: +E4AA 20 12 . bra 12 +E4AC C1 02 .. cmpb #02 +E4AE 26 08 &. bne 08 +E4B0 CC AD 00 ... ldd #ad00 +E4B3 BD C0 BA ... jsr c0ba ;display: +E4B6 20 06 . bra 06 +E4B8 CC AC F5 ... ldd #acf5 +E4BB BD C0 BA ... jsr c0ba ;display: +E4BE BD D8 D3 ... jsr d8d3 ;jump84 500ms delay +E4C1 CE 00 01 ... ldx #0001 +E4C4 3C < pshx +E4C5 FC 00 40 ..@ ldd 0040 +E4C8 BD BE 9E ... jsr be9e ;jump50 +E4CB 38 8 pulx +E4CC 5F _ clrb +E4CD 4F O clra +E4CE BD C7 E7 ... jsr c7e7 ;jump37 +E4D1 F6 0B C0 ... ldab 0bc0 +E4D4 2D 03 -. blt 03 +E4D6 7E E5 58 ~.X jmp e558 ;goto78 +E4D9 F6 0B C0 ... ldab 0bc0 +E4DC C4 10 .. andb #10 +E4DE 26 78 &x bne 78 +E4E0 F6 00 06 ... ldab 0006 +E4E3 4F O clra +E4E4 05 . asld +E4E5 C3 08 00 ... addd #0800 +E4E8 8F . xgdx +E4E9 EC 00 .. ldd 00,x +E4EB C4 FF .. andb #ff +E4ED 26 02 &. bne 02 +E4EF 84 3F .? anda #3f +E4F1 27 65 'e beq 65 +E4F3 FC 0D 0D ... ldd 0d0d +E4F6 83 FF FF ... subd #ffff +E4F9 26 05 &. bne 05 +E4FB 5F _ clrb +E4FC 4F O clra +E4FD FD 0D 0D ... std 0d0d +E500 FE 0D 0D ... ldx 0d0d +E503 08 . inx +E504 FF 0D 0D ... stx 0d0d +E507 F6 00 06 ... ldab 0006 +E50A 4F O clra +E50B 05 . asld +E50C C3 08 00 ... addd #0800 +E50F 8F . xgdx +E510 EC 00 .. ldd 00,x +E512 C4 FF .. andb #ff +E514 84 3F .? anda #3f +E516 37 7 pshb +E517 36 6 psha +E518 4F O clra +E519 5F _ clrb +E51A 37 7 pshb +E51B 36 6 psha +E51C CC 0D 1B ... ldd #0d1b +E51F BD FB DF ... jsr fbdf ;jump46 +E522 31 1 ins +E523 31 1 ins +E524 FE 0D 1D ... ldx 0d1d +E527 3C < pshx +E528 FC 0D 1B ... ldd 0d1b +E52B 37 7 pshb +E52C 36 6 psha +E52D CE E1 00 ... ldx #e100 +E530 3C < pshx +E531 CC 05 F5 ... ldd #05f5 +E534 37 7 pshb +E535 36 6 psha +E536 30 0 tsx +E537 EC 06 .. ldd 06,x +E539 A3 02 .. subd 02,x +E53B EC 04 .. ldd 04,x +E53D E2 01 .. sbcb 01,x +E53F A2 00 .. sbca 00,x +E541 38 8 pulx +E542 38 8 pulx +E543 38 8 pulx +E544 38 8 pulx +E545 25 11 %. bcs 11 +E547 CE 1F 00 ... ldx #1f00 +E54A 3C < pshx +E54B CC FA 0A ... ldd #fa0a +E54E 37 7 pshb +E54F 36 6 psha +E550 CC 0D 1B ... ldd #0d1b +E553 BD FB DF ... jsr fbdf ;jump46 +E556 31 1 ins +E557 31 1 ins +goto78: +E558 BD D7 FF ... jsr d7ff ;jump80 +E55B BD D8 40 ..@ jsr d840 ;jump105 +goto74: +E55E 7F 00 06 ... clr 0006 +E561 7F 00 2E ... clr 002e +E564 CE 00 1B ... ldx #001b +E567 1D 00 80 .. bclr 00,x, #80 +;goto73 +E56A CE 00 1D ... ldx #001d +E56C 1D 00 40 .. bclr 00,x, #40 +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. +msdelay: +; appears to delay for roughly D milliseconds. +E571 37 7 pshb +E572 36 6 psha +E573 34 4 des +E574 30 0 tsx +E575 EC 01 .. ldd 01,x +E577 83 00 01 ... subd #0001 +E57A ED 01 .. std 01,x +E57C 2D 15 -. blt 15 ; to e593 +E57E C6 41 .A ldab #41 +E580 30 0 tsx +E581 E7 00 .. stab 00,x +E583 30 0 tsx +E584 E6 00 .. ldab 00,x +E586 6A 00 j. dec 00,x +E588 C1 00 .. cmpb #00 +E58A 23 02 #. bls 02 +E58C 20 F5 . bra f5 ; to e583 +E58E BD E6 1B ... jsr e61b ;jump4 +E591 20 E1 . bra e1 ; to e574 +E593 38 8 pulx ;this must just be a standard 'pull 3 +E594 31 1 ins ;bytes and I don't care where they go' + ;to clean up the stack. +E595 39 9 rts + +jump115: +; A short delay - counts to 32 in a stack variable. (about 100ms?) +E596 34 4 des +E597 C6 32 .2 ldab #32 +E599 30 0 tsx +E59A E7 00 .. stab 00,x +E59C 30 0 tsx +E59D E6 00 .. ldab 00,x +E59F C1 00 .. cmpb #00 +E5A1 23 05 #. bls e5a8 +E5A3 30 0 tsx +E5A4 6A 00 j. dec 00,x +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 ; to e5bb +E5AF F6 00 29 ..) ldab 0029 +E5B2 27 05 '. beq 05 ; to e5b9 (out) +E5B4 C6 02 .. ldab #02 +E5B6 F7 00 33 ..3 stab 0033 +E5B9 20 15 . bra 15 ; to e5d0 (out) +E5BB C6 03 .. ldab #03 +E5BD F7 00 32 ..2 stab 0032 +E5C0 FC 00 3B ..; ldd 003b +E5C3 27 06 '. beq 06 ; to e5cb +E5C5 CC 02 33 ..3 ldd #0233 +E5C8 FD 00 3B ..; std 003b +E5CB C6 02 .. ldab #02 +E5CD F7 00 33 ..3 stab 0033 +E5D0 39 9 rts + +jump52: +E5D1 C6 0B .. ldab #0b +E5D3 F7 00 32 ..2 stab 0032 +E5D6 39 9 rts + +jump69: +; tests an internal switch or input line +; Parameters: Port Address in D, bit mask on stack +; Return value: +E5D7 37 7 pshb +E5D8 36 6 psha +; make some stack space +E5D9 3C < pshx +E5DA 3C < pshx +E5DB 5F _ clrb +E5DC 4F O clra +E5DD 30 0 tsx +; 00,x on stack - number of hits +E5DE ED 00 .. std 00,x +; we call i = 02,x. let i = 64 +E5E0 CC 00 64 ..d ldd #0064 +E5E3 ED 02 .. std 02,x +; break if i <= 0 +E5E5 30 0 tsx +E5E6 EC 02 .. ldd 02,x +E5E8 2F 21 /! ble 21 ; to e60b +; we call j = 04,x. let j = initial value of D +E5EA 30 0 tsx +E5EB EE 04 .. ldx 04,x +E5ED E6 00 .. ldab 00,x +E5EF 30 0 tsx +E5F0 E4 09 .. andb 09,x +E5F2 27 05 '. beq 05 ; to e5f9 if bit cleared +E5F4 38 8 pulx +E5F5 08 . inx ; increment number of hits +E5F6 3C < pshx +E5F7 20 08 . bra 08 ; to e601 +E5F9 30 0 tsx +E5FA EC 00 .. ldd 00,x +E5FC 83 00 01 ... subd #0001 ; decrement number of hits +E5FF ED 00 .. std 00,x +E601 30 0 tsx +E602 EC 02 .. ldd 02,x +E604 83 00 01 ... subd #0001 ; i-- +E607 ED 02 .. std 02,x +E609 20 DA . bra da ; to e5e5 +; end of loop +; return 1 iff the key was pressed +E60B 30 0 tsx +E60C EC 00 .. ldd 00,x +E60E 2F 04 /. ble 04 ; to e614 if -ve +E610 5F _ clrb +E611 4F O clra +E612 20 03 . bra 03 ; to e617 +E614 CC 00 01 ... ldd #0001 +E617 38 8 pulx +E618 38 8 pulx +E619 38 8 pulx +E61A 39 9 rts + +jump4: +E61B C6 0A .. ldab #0a +E61D F7 00 31 ..1 stab 0031 +E620 39 9 rts + +jump56: +E621 38 8 pulx +E622 37 7 pshb +E623 36 6 psha +E624 3C < pshx +E625 BD BE 4B ..K jsr be4b ;displayblank +E628 30 0 tsx +E629 EC 04 .. ldd 04,x +E62B 37 7 pshb +E62C 36 6 psha +E62D EC 02 .. ldd 02,x +E62F 37 7 pshb +E630 36 6 psha +E631 CE 96 80 ... ldx #9680 +E634 3C < pshx +E635 CC 00 98 ... ldd #0098 +E638 BD FC 4C ..L jsr fc4c ;jump83 +E63B 31 1 ins +E63C 33 3 pulb +E63D CB 30 .0 addb #30 +E63F F7 0B 97 ... stab 0b97 +E642 30 0 tsx +E643 EC 04 .. ldd 04,x +E645 37 7 pshb +E646 36 6 psha +E647 EC 02 .. ldd 02,x +E649 37 7 pshb +E64A 36 6 psha +E64B CE 96 80 ... ldx #9680 +E64E 3C < pshx +E64F CC 00 98 ... ldd #0098 +E652 BD FC 5C ..\ jsr fc5c ;jump82 +E655 37 7 pshb +E656 36 6 psha +E657 CE 42 40 .B@ ldx #4240 +E65A 3C < pshx +E65B CC 00 0F ... ldd #000f +E65E BD FC 4C ..L jsr fc4c ;jump83 +E661 31 1 ins +E662 33 3 pulb +E663 CB 30 .0 addb #30 +E665 F7 0B 96 ... stab 0b96 +E668 30 0 tsx +E669 EC 04 .. ldd 04,x +E66B 37 7 pshb +E66C 36 6 psha +E66D EC 02 .. ldd 02,x +E66F 37 7 pshb +E670 36 6 psha +E671 CE 42 40 .B@ ldx #4240 +E674 3C < pshx +E675 CC 00 0F ... ldd #000f +E678 BD FC 5C ..\ jsr fc5c ;jump82 +E67B 37 7 pshb +E67C 36 6 psha +E67D CE 86 A0 ... ldx #86a0 +E680 3C < pshx +E681 CC 00 01 ... ldd #0001 +E684 BD FC 4C ..L jsr fc4c ;jump83 +E687 31 1 ins +E688 33 3 pulb +E689 CB 30 .0 addb #30 +E68B F7 0B 95 ... stab 0b95 +E68E 30 0 tsx +E68F EC 04 .. ldd 04,x +E691 37 7 pshb +E692 36 6 psha +E693 EC 02 .. ldd 02,x +E695 37 7 pshb +E696 36 6 psha +E697 CE 86 A0 ... ldx #86a0 +E69A 3C < pshx +E69B CC 00 01 ... ldd #0001 +E69E BD FC 5C ..\ jsr fc5c ;jump82 +E6A1 37 7 pshb +E6A2 36 6 psha +E6A3 CE 27 10 .'. ldx #2710 +E6A6 3C < pshx +E6A7 CC 00 00 ... ldd #0000 +E6AA BD FC 4C ..L jsr fc4c ;jump83 +E6AD 31 1 ins +E6AE 33 3 pulb +E6AF CB 30 .0 addb #30 +E6B1 F7 0B 94 ... stab 0b94 +E6B4 30 0 tsx +E6B5 EC 04 .. ldd 04,x +E6B7 37 7 pshb +E6B8 36 6 psha +E6B9 EC 02 .. ldd 02,x +E6BB 37 7 pshb +E6BC 36 6 psha +E6BD CE 27 10 .'. ldx #2710 +E6C0 3C < pshx +E6C1 CC 00 00 ... ldd #0000 +E6C4 BD FC 5C ..\ jsr fc5c ;jump82 +E6C7 37 7 pshb +E6C8 36 6 psha +E6C9 CE 03 E8 ... ldx #03e8 +E6CC 3C < pshx +E6CD CC 00 00 ... ldd #0000 +E6D0 BD FC 4C ..L jsr fc4c ;jump83 +E6D3 31 1 ins +E6D4 33 3 pulb +E6D5 CB 30 .0 addb #30 +E6D7 F7 0B 93 ... stab 0b93 +E6DA 30 0 tsx +E6DB EC 04 .. ldd 04,x +E6DD 37 7 pshb +E6DE 36 6 psha +E6DF EC 02 .. ldd 02,x +E6E1 37 7 pshb +E6E2 36 6 psha +E6E3 CE 03 E8 ... ldx #03e8 +E6E6 3C < pshx +E6E7 CC 00 00 ... ldd #0000 +E6EA BD FC 5C ..\ jsr fc5c ;jump82 +E6ED 37 7 pshb +E6EE 36 6 psha +E6EF CE 00 64 ..d ldx #0064 +E6F2 3C < pshx +E6F3 CC 00 00 ... ldd #0000 +E6F6 BD FC 4C ..L jsr fc4c ;jump83 +E6F9 31 1 ins +E6FA 33 3 pulb +E6FB CB 30 .0 addb #30 +E6FD F7 0B 92 ... stab 0b92 +E700 30 0 tsx +E701 EC 04 .. ldd 04,x +E703 37 7 pshb +E704 36 6 psha +E705 EC 02 .. ldd 02,x +E707 37 7 pshb +E708 36 6 psha +E709 CE 00 64 ..d ldx #0064 +E70C 3C < pshx +E70D CC 00 00 ... ldd #0000 +E710 BD FC 5C ..\ jsr fc5c ;jump82 +E713 37 7 pshb +E714 36 6 psha +E715 CE 00 0A ... ldx #000a +E718 3C < pshx +E719 CC 00 00 ... ldd #0000 +E71C BD FC 4C ..L jsr fc4c ;jump83 +E71F 31 1 ins +E720 33 3 pulb +E721 CB 30 .0 addb #30 +E723 F7 0B 91 ... stab 0b91 +E726 30 0 tsx +E727 EC 04 .. ldd 04,x +E729 37 7 pshb +E72A 36 6 psha +E72B EC 02 .. ldd 02,x +E72D 37 7 pshb +E72E 36 6 psha +E72F CE 00 0A ... ldx #000a +E732 3C < pshx +E733 CC 00 00 ... ldd #0000 +E736 BD FC 5C ..\ jsr fc5c ;jump82 +E739 31 1 ins +E73A 33 3 pulb +E73B CB 30 .0 addb #30 +E73D F7 0B 90 ... stab 0b90 +E740 38 8 pulx +E741 31 1 ins +E742 31 1 ins +E743 6E 00 n. jmp 00,x + +jump55: +E745 37 7 pshb +E746 36 6 psha +E747 30 0 tsx +E748 EC 00 .. ldd 00,x +E74A CE 27 10 .'. ldx #2710 ; 10000 +E74D 02 . idiv +E74E 8F . xgdx +E74F CB 30 .0 addb #30 +E751 F7 00 57 ..W stab 0057 +E754 30 0 tsx +E755 EC 00 .. ldd 00,x +E757 CE 27 10 .'. ldx #2710 ; 10000 +E75A 02 . idiv +E75B CE 03 E8 ... ldx #03e8 +E75E 02 . idiv +E75F 8F . xgdx +E760 CB 30 .0 addb #30 +E762 F7 00 5A ..Z stab 005a +E765 30 0 tsx +E766 EC 00 .. ldd 00,x +E768 CE 03 E8 ... ldx #03e8 +E76B 02 . idiv +E76C CE 00 64 ..d ldx #0064 +E76F 02 . idiv +E770 8F . xgdx +E771 CB 30 .0 addb #30 +E773 F7 00 5D ..] stab 005d +E776 30 0 tsx +E777 EC 00 .. ldd 00,x +E779 CE 00 64 ..d ldx #0064 +E77C 02 . idiv +E77D CE 00 0A ... ldx #000a +E780 02 . idiv +E781 8F . xgdx +E782 CB 30 .0 addb #30 +E784 F7 00 5E ..^ stab 005e +E787 30 0 tsx +E788 EC 00 .. ldd 00,x +E78A CE 00 0A ... ldx #000a +E78D 02 . idiv +E78E CB 30 .0 addb #30 +E790 F7 00 5F .._ stab 005f +E793 38 8 pulx +E794 39 9 rts + +jump54: +E795 37 7 pshb +E796 36 6 psha +E797 30 0 tsx +E798 E6 01 .. ldab 01,x +E79A 4F O clra +E79B CE 00 64 ..d ldx #0064 +E79E 02 . idiv +E79F 8F . xgdx +E7A0 CB 30 .0 addb #30 +E7A2 F7 00 5D ..] stab 005d +E7A5 30 0 tsx +E7A6 E6 01 .. ldab 01,x +E7A8 4F O clra +E7A9 CE 00 64 ..d ldx #0064 +E7AC 02 . idiv +E7AD 4F O clra +E7AE CE 00 0A ... ldx #000a +E7B1 02 . idiv +E7B2 8F . xgdx +E7B3 CB 30 .0 addb #30 +E7B5 F7 00 5E ..^ stab 005e +E7B8 30 0 tsx +E7B9 E6 01 .. ldab 01,x +E7BB 4F O clra +E7BC CE 00 0A ... ldx #000a +E7BF 02 . idiv +E7C0 CB 30 .0 addb #30 +E7C2 F7 00 5F .._ stab 005f +E7C5 38 8 pulx +E7C6 39 9 rts + +jump114: +E7C7 F6 00 06 ... ldab 0006 +E7CA 4F O clra +E7CB CE 00 05 ... ldx #0005 +E7CE 02 . idiv +E7CF 5D ] tstb +E7D0 26 03 &. bne 03 +E7D2 7E E8 99 ~.. jmp e899 ;goto79 +E7D5 F6 00 06 ... ldab 0006 +E7D8 BD D7 A0 ... jsr d7a0 ;jump10 +E7DB 83 00 00 ... subd #0000 +E7DE 27 03 '. beq 03 +E7E0 7E E8 99 ~.. jmp e899 ;goto79 +E7E3 F6 00 06 ... ldab 0006 +E7E6 4F O clra +E7E7 05 . asld +E7E8 C3 08 00 ... addd #0800 +E7EB 8F . xgdx +E7EC EC 00 .. ldd 00,x +E7EE C4 FF .. andb #ff +E7F0 84 3F .? anda #3f +E7F2 FD 10 16 ... std 1016 +E7F5 F6 00 06 ... ldab 0006 +E7F8 4F O clra +E7F9 05 . asld +E7FA C3 0B F1 ... addd #0bf1 +E7FD 8F . xgdx +E7FE EC 00 .. ldd 00,x +E800 C4 FF .. andb #ff +E802 84 3F .? anda #3f +E804 FD 10 18 ... std 1018 +E807 FC 10 16 ... ldd 1016 +E80A 83 00 00 ... subd #0000 +E80D 25 08 %. bcs 08 +E80F FC 10 16 ... ldd 1016 +E812 83 27 0F .'. subd #270f +E815 23 35 #5 bls 35 +E817 F6 00 06 ... ldab 0006 +E81A BD D4 68 ..h jsr d468 ;jump51 +E81D 83 00 00 ... subd #0000 +E820 27 2A '* beq 2a +E822 CC 01 00 ... ldd #0100 +E825 37 7 pshb +E826 36 6 psha +E827 F6 00 06 ... ldab 0006 +E82A 4F O clra +E82B 05 . asld +E82C C3 08 C8 ... addd #08c8 +E82F 38 8 pulx +E830 8F . xgdx +E831 AA 00 .. ora 00,x +E833 EA 01 .. orb 01,x +E835 ED 00 .. std 00,x +E837 CC 40 00 .@. ldd #4000 +E83A 37 7 pshb +E83B 36 6 psha +E83C F6 00 06 ... ldab 0006 +E83F 4F O clra +E840 05 . asld +E841 C3 08 00 ... addd #0800 +E844 38 8 pulx +E845 8F . xgdx +E846 AA 00 .. ora 00,x +E848 EA 01 .. orb 01,x +E84A ED 00 .. std 00,x +E84C CE 10 16 ... ldx #1016 +E84F 1D 00 .. bclr add,x 00,x +E851 C0 FC .. subb #fc +E853 10 . sba +E854 18 . illegal +E855 43 C coma +E856 53 S comb +E857 FD 10 18 ... std 1018 +E85A CE 10 18 ... ldx #1018 +E85D 1D 00 .. bclr add,x 00,x +E85F C0 FC .. subb #fc +E861 10 . sba +E862 16 . tab +E863 37 7 pshb +E864 36 6 psha +E865 FC 10 18 ... ldd 1018 +E868 30 0 tsx +E869 A3 00 .. subd 00,x +E86B 31 1 ins +E86C 31 1 ins +E86D 27 2A '* beq 2a +E86F CC 01 00 ... ldd #0100 +E872 37 7 pshb +E873 36 6 psha +E874 F6 00 06 ... ldab 0006 +E877 4F O clra +E878 05 . asld +E879 C3 08 C8 ... addd #08c8 +E87C 38 8 pulx +E87D 8F . xgdx +E87E AA 00 .. ora 00,x +E880 EA 01 .. orb 01,x +E882 ED 00 .. std 00,x +E884 CC 40 00 .@. ldd #4000 +E887 37 7 pshb +E888 36 6 psha +E889 F6 00 06 ... ldab 0006 +E88C 4F O clra +E88D 05 . asld +E88E C3 08 00 ... addd #0800 +E891 38 8 pulx +E892 8F . xgdx +E893 AA 00 .. ora 00,x +E895 EA 01 .. orb 01,x +E897 ED 00 .. std 00,x +goto79: +E899 39 9 rts + +jump68: +E89A 5F _ clrb +E89B 4F O clra +E89C FD 00 0F ... std 000f +E89F CC 3F FF .?. ldd #3fff +E8A2 FD 00 50 ..P std 0050 +E8A5 7F 00 06 ... clr 0006 +E8A8 F6 00 06 ... ldab 0006 +E8AB C1 64 .d cmpb #64 +E8AD 24 64 $d bcc 64 +E8AF F6 00 06 ... ldab 0006 +E8B2 4F O clra +E8B3 CE 00 05 ... ldx #0005 +E8B6 02 . idiv +E8B7 5D ] tstb +E8B8 27 54 'T beq 54 +E8BA F6 00 06 ... ldab 0006 +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 +E8C8 4F O clra +E8C9 05 . asld +E8CA C3 08 00 ... addd #0800 +E8CD 8F . xgdx +E8CE EC 00 .. ldd 00,x +E8D0 C4 FF .. andb #ff +E8D2 84 3F .? anda #3f +E8D4 FD 10 16 ... std 1016 +E8D7 FC 10 16 ... ldd 1016 +E8DA 83 27 10 .'. subd #2710 +E8DD 24 2F $/ bcc 2f +E8DF F6 00 06 ... ldab 0006 +E8E2 BD D4 68 ..h jsr d468 ;jump51 +E8E5 83 00 00 ... subd #0000 +E8E8 27 24 '$ beq 24 +E8EA BD D5 61 ..a jsr d561 ;jump42 +E8ED 83 00 00 ... subd #0000 +E8F0 26 1C &. bne 1c +E8F2 FC 10 16 ... ldd 1016 +E8F5 B3 00 0F ... subd 000f +E8F8 23 06 #. bls 06 +E8FA FC 10 16 ... ldd 1016 +E8FD FD 00 0F ... std 000f +E900 FC 10 16 ... ldd 1016 +E903 B3 00 50 ..P subd 0050 +E906 24 06 $. bcc 06 +E908 FC 10 16 ... ldd 1016 +E90B FD 00 50 ..P std 0050 +E90E 7C 00 06 |.. inc 0006 +E911 20 95 . bra 95 +E913 FC 0B B7 ... ldd 0bb7 +E916 27 12 '. beq 12 +E918 FC 00 0F ... ldd 000f +E91B B3 0B B7 ... subd 0bb7 +E91E 23 0A #. bls 0a +E920 FC 00 0F ... ldd 000f +E923 05 . asld +E924 B3 0B B7 ... subd 0bb7 +E927 FD 00 0F ... std 000f +E92A 39 9 rts + +jump103: +E92B 34 4 des +E92C 30 0 tsx +E92D 6F 00 o. clr 00,x +E92F 30 0 tsx +E930 E6 00 .. ldab 00,x +E932 C1 64 .d cmpb #64 +E934 24 15 $. bcc 15 +E936 5F _ clrb +E937 4F O clra +E938 37 7 pshb +E939 36 6 psha +E93A 30 0 tsx +E93B E6 02 .. ldab 02,x +E93D 4F O clra +E93E 05 . asld +E93F C3 0D 1F ... addd #0d1f +E942 38 8 pulx +E943 8F . xgdx +E944 ED 00 .. std 00,x +E946 30 0 tsx +E947 6C 00 l. inc 00,x +E949 20 E4 . bra e4 +E94B 4F O clra +E94C 5F _ clrb +E94D FD 0D F9 ... std 0df9 +E950 FD 0D F7 ... std 0df7 +E953 4F O clra +E954 5F _ clrb +E955 FD 0D F5 ... std 0df5 +E958 FD 0D F3 ... std 0df3 +E95B 4F O clra +E95C 5F _ clrb +E95D FD 0D F1 ... std 0df1 +E960 FD 0D EF ... std 0def +E963 4F O clra +E964 5F _ clrb +E965 FD 0D FD ... std 0dfd +E968 FD 0D FB ... std 0dfb +E96B 4F O clra +E96C 5F _ clrb +E96D FD 0D E9 ... std 0de9 +E970 FD 0D E7 ... std 0de7 +E973 5F _ clrb +E974 4F O clra +E975 FD 0C DD ... std 0cdd +E978 5F _ clrb +E979 4F O clra +E97A FD 0C DF ... std 0cdf +E97D 5F _ clrb +E97E 4F O clra +E97F FD 0C E1 ... std 0ce1 +E982 5F _ clrb +E983 4F O clra +E984 FD 0C E3 ... std 0ce3 +E987 5F _ clrb +E988 4F O clra +E989 FD 0C E5 ... std 0ce5 +E98C 4F O clra +E98D 5F _ clrb +E98E FD 0C F5 ... std 0cf5 +E991 FD 0C F3 ... std 0cf3 +E994 4F O clra +E995 5F _ clrb +E996 FD 0C F9 ... std 0cf9 +E999 FD 0C F7 ... std 0cf7 +E99C 4F O clra +E99D 5F _ clrb +E99E FD 0C FD ... std 0cfd +E9A1 FD 0C FB ... std 0cfb +E9A4 4F O clra +E9A5 5F _ clrb +E9A6 FD 0D 01 ... std 0d01 +E9A9 FD 0C FF ... std 0cff +E9AC 4F O clra +E9AD 5F _ clrb +E9AE FD 0D 05 ... std 0d05 +E9B1 FD 0D 03 ... std 0d03 +E9B4 5F _ clrb +E9B5 4F O clra +E9B6 FD 0D 07 ... std 0d07 +E9B9 5F _ clrb +E9BA 4F O clra +E9BB FD 0D 09 ... std 0d09 +E9BE 5F _ clrb +E9BF 4F O clra +E9C0 FD 0D 0B ... std 0d0b +E9C3 5F _ clrb +E9C4 4F O clra +E9C5 FD 0D 0D ... std 0d0d +E9C8 4F O clra +E9C9 5F _ clrb +E9CA FD 0D 11 ... std 0d11 +E9CD FD 0D 0F ... std 0d0f +E9D0 4F O clra +E9D1 5F _ clrb +E9D2 FD 0D 15 ... std 0d15 +E9D5 FD 0D 13 ... std 0d13 +E9D8 4F O clra +E9D9 5F _ clrb +E9DA FD 0D 19 ... std 0d19 +E9DD FD 0D 17 ... std 0d17 +E9E0 4F O clra +E9E1 5F _ clrb +E9E2 FD 0D 1D ... std 0d1d +E9E5 FD 0D 1B ... std 0d1b +E9E8 31 1 ins +E9E9 39 9 rts + +jump113: +E9EA 7F 00 06 ... clr 0006 +E9ED F6 00 06 ... ldab 0006 +E9F0 C1 64 .d cmpb #64 +E9F2 24 64 $d bcc 64 +E9F4 F6 00 06 ... ldab 0006 +E9F7 4F O clra +E9F8 CE 00 05 ... ldx #0005 +E9FB 02 . idiv +E9FC 5D ] tstb +E9FD 27 54 'T beq 54 +E9FF CC BF FF ... ldd #bfff +EA02 37 7 pshb +EA03 36 6 psha +EA04 F6 00 06 ... ldab 0006 +EA07 4F O clra +EA08 05 . asld +EA09 C3 08 00 ... addd #0800 +EA0C 38 8 pulx +EA0D 8F . xgdx +EA0E A4 00 .. anda 00,x +EA10 E4 01 .. andb 01,x +EA12 ED 00 .. std 00,x +EA14 CC FE FF ... ldd #feff +EA17 37 7 pshb +EA18 36 6 psha +EA19 F6 00 06 ... ldab 0006 +EA1C 4F O clra +EA1D 05 . asld +EA1E C3 08 C8 ... addd #08c8 +EA21 38 8 pulx +EA22 8F . xgdx +EA23 A4 00 .. anda 00,x +EA25 E4 01 .. andb 01,x +EA27 ED 00 .. std 00,x +EA29 CC FD FF ... ldd #fdff +EA2C 37 7 pshb +EA2D 36 6 psha +EA2E F6 00 06 ... ldab 0006 +EA31 4F O clra +EA32 05 . asld +EA33 C3 08 C8 ... addd #08c8 +EA36 38 8 pulx +EA37 8F . xgdx +EA38 A4 00 .. anda 00,x +EA3A E4 01 .. andb 01,x +EA3C ED 00 .. std 00,x +EA3E CC FB FF ... ldd #fbff +EA41 37 7 pshb +EA42 36 6 psha +EA43 F6 00 06 ... ldab 0006 +EA46 4F O clra +EA47 05 . asld +EA48 C3 08 C8 ... addd #08c8 +EA4B 38 8 pulx +EA4C 8F . xgdx +EA4D A4 00 .. anda 00,x +EA4F E4 01 .. andb 01,x +EA51 ED 00 .. std 00,x +EA53 7C 00 06 |.. inc 0006 +EA56 20 95 . bra 95 +EA58 39 9 rts + +jump65: +EA59 34 4 des + +; test PE2 - remote no-sale switch. +EA5A CE 00 04 ... ldx #0004 +EA5D 3C < pshx +EA5E CC 10 0A ... ldd #100a +EA61 BD E5 D7 ... jsr e5d7 ;jump69 - test input line +EA64 38 8 pulx +EA65 83 00 00 ... subd #0000 +EA68 27 3F '? beq 3f ; to eaa9 if off + +; test internal mode switch (bit 1 of 1800) +EA6A CE 00 01 ... ldx #0001 +EA6D 3C < pshx +EA6E CC 18 00 ... ldd #1800 +EA71 BD E5 D7 ... jsr e5d7 ;jump69 - test input line +EA74 38 8 pulx +EA75 83 00 00 ... subd #0000 +EA78 27 2F '/ beq 2f ; to eaa9 if off + +; both no-sale & mode switches held. + +; 1000-unit delay +EA7A CC 03 E8 ... ldd #03e8 +EA7D BD E5 71 ..q jsr e571 ;msdelay + +EA80 7F 0B A8 ... clr 0ba8 + +; blink "SECURE OFF" until mode switch is released +EA83 F6 18 00 ... ldab 1800 +EA86 C4 01 .. andb #01 +EA88 26 1C &. bne 1c ; to eaa4 (loop until released) + +; blank display +EA8A BD BE 4B ..K jsr be4b ;displayblank (blank display buffer) +EA8D 0F . sei +EA8E BD BE 01 ... jsr be01 ;jump70 (commit to display) +EA91 0E . cli + +; 500-unit delay +EA92 CC 01 F4 ... ldd #01f4 +EA95 BD E5 71 ..q jsr e571 ;msdelay + +EA98 CC AF D1 ... ldd #afd1 ; "SECURE OFF" +EA9B BD C0 BA ... jsr c0ba ;display: + +; 500-unit delay +EA9E CC 01 F4 ... ldd #01f4 +EAA1 BD E5 71 ..q jsr e571 ;msdelay +; loop +EAA4 20 DD . bra dd ; to ea83 +EAA6 BD BE 69 ..i jsr be69 ;displayreset + +; no sale switch or internal mode switch on + +; fiddle with the bill acceptor +EAA9 C6 01 .. ldab #01 +EAAB F7 00 14 ... stab 0014 +EAAE F6 00 14 ... ldab 0014 +EAB1 F7 38 00 .8. stab 3800 + +; 30-unit delay +EAB4 CC 00 1E ... ldd #001e +EAB7 BD E5 71 ..q jsr e571 ;msdelay + +; more bill acceptor fiddling & tests +EABA CE 00 01 ... ldx #0001 +EABD 3C < pshx +EABE CC 10 00 ... ldd #1000 +EAC1 BD E5 D7 ... jsr e5d7 ;jump69 - test input line +EAC4 38 8 pulx +EAC5 83 00 00 ... subd #0000 +EAC8 27 10 '. beq 10 +EACA CE 00 02 ... ldx #0002 +EACD 3C < pshx +EACE CC 10 00 ... ldd #1000 +EAD1 BD E5 D7 ... jsr e5d7 ;jump69 - test input line +EAD4 38 8 pulx +EAD5 83 00 00 ... subd #0000 +EAD8 27 03 '. beq 03 +; we've decided if we have a bill acceptor. if not, skip this bit +EADA 7E ED F8 ~.. jmp edf8 ;goto80 +; we have a bill acceptor - play some more +EADD C6 02 .. ldab #02 +EADF F7 00 14 ... stab 0014 +EAE2 F6 00 14 ... ldab 0014 +EAE5 F7 38 00 .8. stab 3800 +EAE8 CC 00 1E ... ldd #001e +EAEB BD E5 71 ..q jsr e571 ;msdelay +EAEE CE 00 01 ... ldx #0001 +EAF1 3C < pshx +EAF2 CC 10 00 ... ldd #1000 +EAF5 BD E5 D7 ... jsr e5d7 ;jump69 - test input line +EAF8 38 8 pulx +EAF9 83 00 00 ... subd #0000 +EAFC 26 10 &. bne 10 +EAFE CE 00 02 ... ldx #0002 +EB01 3C < pshx +EB02 CC 10 00 ... ldd #1000 +EB05 BD E5 D7 ... jsr e5d7 ;jump69 - test input line +EB08 38 8 pulx +EB09 83 00 00 ... subd #0000 +EB0C 26 03 &. bne 03 +EB0E 7E ED F8 ~.. jmp edf8 ;goto80 - something about the bill validator failed. skip it. +EB11 CC 5A 5A .ZZ ldd #5a5a +EB14 FD 10 16 ... std 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 ;msdelay +EB23 CC B1 44 ..D ldd #b144 ;"OOOOOOOOOO" +EB26 BD C0 BA ... jsr c0ba ;display: +EB29 CC 07 D0 ... ldd #07d0 +EB2C BD E5 71 ..q jsr e571 ;msdelay +EB2F CC 00 14 ... ldd #0014 +EB32 FD 00 3B ..; std 003b +EB35 FC 00 3B ..; ldd 003b +EB38 27 47 'G beq 47 +; draws a sequence of 10 dots ..... along the display. +EB3A 30 0 tsx +EB3B 6F 00 o. clr 00,x +EB3D 30 0 tsx +EB3E E6 00 .. ldab 00,x +EB40 C1 0A .. cmpb #0a +EB42 24 3B $; bcc 3b +EB44 BD BE 4B ..K jsr be4b ;displayblank +EB47 C6 2E .. ldab #2e +EB49 37 7 pshb +EB4A 30 0 tsx +EB4B E6 01 .. ldab 01,x +EB4D 4F O clra +EB4E C3 0B 90 ... addd #0b90 +EB51 8F . xgdx +EB52 33 3 pulb +EB53 E7 00 .. stab 00,x +EB55 0F . sei +EB56 BD BE 69 ..i jsr be69 ;displayreset +EB59 CE 10 28 ..( ldx #1028 +EB5C 1C 00 40 .. bset 00,x, #40 ; tweak the clock phase +EB5F CE 00 01 ... ldx #0001 +EB62 3C < pshx +EB63 CC 00 20 .. ldd #0020 +EB66 BD BD B5 ... jsr bdb5 ;jump78 - send display byte +EB69 38 8 pulx +EB6A CE 10 28 ..( ldx #1028 +EB6D 1D 00 40 ..@ bclr 00,x, #40 ; tweak the clock phase back +EB70 BD BE 10 ... jsr be10 ;jump88 +EB73 0E . cli +EB74 CC 00 07 ... ldd #0007 +EB77 BD E5 71 ..q jsr e571 ;msdelay 7-unit delay +EB7A 30 0 tsx +EB7B 6C 00 l. inc 00,x +EB7D 20 BE . bra be +EB7F 20 B4 . bra b4 +EB81 BD BE 69 ..i jsr be69 ;displayreset +EB84 CC 08 00 ... ldd #0800 +EB87 FD 00 73 ..s std 0073 +EB8A FC 00 73 ..s ldd 0073 +EB8D 83 0F FF ... subd #0fff +EB90 22 10 ". bhi 10 ; to eba2 +EB92 C6 AA .. ldab #aa +EB94 FE 00 73 ..s ldx 0073 +EB97 E7 00 .. stab 00,x +EB99 FE 00 73 ..s ldx 0073 +EB9C 08 . inx +EB9D FF 00 73 ..s stx 0073 +EBA0 20 E8 . bra e8 +EBA2 CC 08 00 ... ldd #0800 +EBA5 FD 00 73 ..s std 0073 +EBA8 FC 00 73 ..s ldd 0073 +EBAB 83 0F FF ... subd #0fff +EBAE 22 1A ". bhi 1a +EBB0 FE 00 73 ..s ldx 0073 +EBB3 E6 00 .. ldab 00,x +EBB5 C1 AA .. cmpb #aa +EBB7 27 08 '. beq 08 +EBB9 CE 10 16 ... ldx #1016 +EBBC 1D 00 FF .. bclr 00,x, #FF +EBBF 20 09 .. bra 09 +EBC1 FE 00 73 ..s ldx 0073 +EBC4 08 . inx +EBC5 FF 00 73 ..s stx 0073 +EBC8 20 DE . bra de +EBCA CC 08 00 ... ldd #0800 +EBCD FD 00 73 ..s std 0073 +EBD0 FC 00 73 ..s ldd 0073 +EBD3 83 0F FF ... subd #0fff +EBD6 22 10 ". bhi 10 +EBD8 C6 55 .U ldab #55 +EBDA FE 00 73 ..s ldx 0073 +EBDD E7 00 .. stab 00,x +EBDF FE 00 73 ..s ldx 0073 +EBE2 08 . inx +EBE3 FF 00 73 ..s stx 0073 +EBE6 20 E8 . bra e8 +EBE8 CC 08 00 ... ldd #0800 +EBEB FD 00 73 ..s std 0073 +EBEE FC 00 73 ..s ldd 0073 +EBF1 83 0F FF ... subd #0fff +EBF4 22 1A ". bhi 1a +EBF6 FE 00 73 ..s ldx 0073 +EBF9 E6 00 .. ldab 00,x +EBFB C1 55 .U cmpb #55 +EBFD 27 08 '. beq 08 +EBFF CE 10 16 ... ldx #1016 +EC02 1D 00 FF ... bclr 00,x #ff +EC05 20 09 . bra 09 +EC07 FE 00 73 ..s ldx 0073 +EC0A 08 . inx +EC0B FF 00 73 ..s stx 0073 +EC0E 20 DE . bra de +EC10 CC 08 00 ... ldd #0800 +EC13 FD 00 73 ..s std 0073 +EC16 FC 00 73 ..s ldd 0073 +EC19 83 0F FF ... subd #0fff +EC1C 22 0F ". bhi 0f +EC1E 5F _ clrb +EC1F FE 00 73 ..s ldx 0073 +EC22 E7 00 .. stab 00,x +EC24 FE 00 73 ..s ldx 0073 +EC27 08 . inx +EC28 FF 00 73 ..s stx 0073 +EC2B 20 E9 . bra e9 +EC2D 7F 00 06 ... clr 0006 +EC30 F6 00 06 ... ldab 0006 +EC33 C1 64 .d cmpb #64 +EC35 24 4D $M bcc 4d +EC37 F6 00 06 ... ldab 0006 +EC3A 4F O clra +EC3B CE 00 05 ... ldx #0005 +EC3E 02 . idiv +EC3F 5D ] tstb +EC40 27 3D '= beq 3d +EC42 CC 00 32 ..2 ldd #0032 +EC45 37 7 pshb +EC46 36 6 psha +EC47 F6 00 06 ... ldab 0006 +EC4A 4F O clra +EC4B 05 . asld +EC4C C3 08 00 ... addd #0800 +EC4F 38 8 pulx +EC50 8F . xgdx +EC51 ED 00 .. std 00,x +EC53 F6 00 06 ... ldab 0006 +EC56 4F O clra +EC57 05 . asld +EC58 C3 08 00 ... addd #0800 +EC5B 8F . xgdx +EC5C EC 00 .. ldd 00,x +EC5E 43 C coma +EC5F 53 S comb +EC60 37 7 pshb +EC61 36 6 psha +EC62 F6 00 06 ... ldab 0006 +EC65 4F O clra +EC66 05 . asld +EC67 C3 0B F1 ... addd #0bf1 +EC6A 38 8 pulx +EC6B 8F . xgdx +EC6C ED 00 .. std 00,x +EC6E CC 08 01 ... ldd #0801 +EC71 37 7 pshb +EC72 36 6 psha +EC73 F6 00 06 ... ldab 0006 +EC76 4F O clra +EC77 05 . asld +EC78 C3 08 C8 ... addd #08c8 +EC7B 38 8 pulx +EC7C 8F . xgdx +EC7D ED 00 .. std 00,x +EC7F 7C 00 06 |.. inc 0006 +EC82 20 AC . bra ac +EC84 C6 1D .. ldab #1d +EC86 F7 0B BF ... stab 0bbf +EC89 30 0 tsx +EC8A 6F 00 o. clr 00,x +EC8C F6 0B BF ... ldab 0bbf +EC8F 4F O clra +EC90 C3 00 02 ... addd #0002 +EC93 37 7 pshb +EC94 36 6 psha +EC95 30 0 tsx +EC96 E6 02 .. ldab 02,x +EC98 4F O clra +EC99 A3 00 .. subd 00,x +EC9B 31 1 ins +EC9C 31 1 ins +EC9D 2C 1B ,. bge 1b +EC9F 30 0 tsx +ECA0 E6 00 .. ldab 00,x +ECA2 4F O clra +ECA3 C3 B1 D0 ... addd #b1d0 +ECA6 8F . xgdx +ECA7 E6 00 .. ldab 00,x +ECA9 37 7 pshb +ECAA 30 0 tsx +ECAB E6 01 .. ldab 01,x +ECAD 4F O clra +ECAE C3 09 93 ... addd #0993 +ECB1 8F . xgdx +ECB2 33 3 pulb +ECB3 E7 00 .. stab 00,x +ECB5 30 0 tsx +ECB6 6C 00 l. inc 00,x +ECB8 20 D2 . bra d2 +ECBA 7F 0B A8 ... clr 0ba8 +ECBD CC 00 32 ..2 ldd #0032 +ECC0 FD 0B B5 ... std 0bb5 +ECC3 5F _ clrb +ECC4 4F O clra +ECC5 FD 0B B7 ... std 0bb7 +ECC8 7F 00 06 ... clr 0006 +ECCB BD A6 4E ..N jsr a64e ;jump135 +ECCE C6 09 .. ldab #09 +ECD0 F7 0B C0 ... stab 0bc0 +ECD3 7F 0E 6D ..m clr 0e6d +ECD6 C6 01 .. ldab #01 +ECD8 F7 0E 6E ..n stab 0e6e +ECDB 30 0 tsx +ECDC 6F 00 o. clr 00,x +ECDE 30 0 tsx +ECDF E6 00 .. ldab 00,x +ECE1 C1 0F .. cmpb #0f +ECE3 24 21 $! bcc 21 +ECE5 C6 30 .0 ldab #30 +ECE7 37 7 pshb +ECE8 30 0 tsx +ECE9 E6 01 .. ldab 01,x +ECEB 4F O clra +ECEC C3 0C B9 ... addd #0cb9 +ECEF 8F . xgdx +ECF0 33 3 pulb +ECF1 E7 00 .. stab 00,x +ECF3 C6 30 .0 ldab #30 +ECF5 37 7 pshb +ECF6 30 0 tsx +ECF7 E6 01 .. ldab 01,x +ECF9 4F O clra +ECFA C3 0C C9 ... addd #0cc9 +ECFD 8F . xgdx +ECFE 33 3 pulb +ECFF E7 00 .. stab 00,x +ED01 30 0 tsx +ED02 6C 00 l. inc 00,x +ED04 20 D8 . bra d8 +ED06 30 0 tsx +ED07 6F 00 o. clr 00,x +ED09 30 0 tsx +ED0A E6 00 .. ldab 00,x +ED0C C1 0B .. cmpb #0b +ED0E 24 12 $. bcc 12 +ED10 5F _ clrb +ED11 37 7 pshb +ED12 30 0 tsx +ED13 E6 01 .. ldab 01,x +ED15 4F O clra +ED16 C3 0B E4 ... addd #0be4 +ED19 8F . xgdx +ED1A 33 3 pulb +ED1B E7 00 .. stab 00,x +ED1D 30 0 tsx +ED1E 6C 00 l. inc 00,x +ED20 20 E7 . bra e7 +ED22 4F O clra +ED23 5F _ clrb +ED24 FD 0D F9 ... std 0df9 +ED27 FD 0D F7 ... std 0df7 +ED2A 4F O clra +ED2B 5F _ clrb +ED2C FD 0D F5 ... std 0df5 +ED2F FD 0D F3 ... std 0df3 +ED32 7F 0C D9 ... clr 0cd9 +ED35 7F 0C DA ... clr 0cda +ED38 7F 0C DB ... clr 0cdb +ED3B 7F 0C DC ... clr 0cdc +ED3E 4F O clra +ED3F 5F _ clrb +ED40 FD 0D F1 ... std 0df1 +ED43 FD 0D EF ... std 0def +ED46 4F O clra +ED47 5F _ clrb +ED48 FD 0D FD ... std 0dfd +ED4B FD 0D FB ... std 0dfb +ED4E 4F O clra +ED4F 5F _ clrb +ED50 FD 0D E9 ... std 0de9 +ED53 FD 0D E7 ... std 0de7 +ED56 4F O clra +ED57 5F _ clrb +ED58 FD 0D ED ... std 0ded +ED5B FD 0D EB ... std 0deb +ED5E 5F _ clrb +ED5F 4F O clra +ED60 FD 0C DD ... std 0cdd +ED63 5F _ clrb +ED64 4F O clra +ED65 FD 0C DF ... std 0cdf +ED68 5F _ clrb +ED69 4F O clra +ED6A FD 0C E1 ... std 0ce1 +ED6D 5F _ clrb +ED6E 4F O clra +ED6F FD 0C E3 ... std 0ce3 +ED72 5F _ clrb +ED73 4F O clra +ED74 FD 0C E5 ... std 0ce5 +ED77 4F O clra +ED78 5F _ clrb +ED79 FD 0C F5 ... std 0cf5 +ED7C FD 0C F3 ... std 0cf3 +ED7F 4F O clra +ED80 5F _ clrb +ED81 FD 0C F9 ... std 0cf9 +ED84 FD 0C F7 ... std 0cf7 +ED87 4F O clra +ED88 5F _ clrb +ED89 FD 0C FD ... std 0cfd +ED8C FD 0C FB ... std 0cfb +ED8F 4F O clra +ED90 5F _ clrb +ED91 FD 0D 01 ... std 0d01 +ED94 FD 0C FF ... std 0cff +ED97 4F O clra +ED98 5F _ clrb +ED99 FD 0D 05 ... std 0d05 +ED9C FD 0D 03 ... std 0d03 +ED9F 5F _ clrb +EDA0 4F O clra +EDA1 FD 0D 07 ... std 0d07 +EDA4 5F _ clrb +EDA5 4F O clra +EDA6 FD 0D 09 ... std 0d09 +EDA9 5F _ clrb +EDAA 4F O clra +EDAB FD 0D 0B ... std 0d0b +EDAE 5F _ clrb +EDAF 4F O clra +EDB0 FD 0D 0D ... std 0d0d +EDB3 4F O clra +EDB4 5F _ clrb +EDB5 FD 0D 11 ... std 0d11 +EDB8 FD 0D 0F ... std 0d0f +EDBB 4F O clra +EDBC 5F _ clrb +EDBD FD 0D 15 ... std 0d15 +EDC0 FD 0D 13 ... std 0d13 +EDC3 4F O clra +EDC4 5F _ clrb +EDC5 FD 0D 19 ... std 0d19 +EDC8 FD 0D 17 ... std 0d17 +EDCB 4F O clra +EDCC 5F _ clrb +EDCD FD 0D 1D ... std 0d1d +EDD0 FD 0D 1B ... std 0d1b +EDD3 7F 0B AF ... clr 0baf +EDD6 7F 0B AE ... clr 0bae +EDD9 7F 0B AD ... clr 0bad +EDDC 7F 0B AC ... clr 0bac +EDDF 7F 0B AB ... clr 0bab +EDE2 7F 0B B4 ... clr 0bb4 +EDE5 7F 0B B3 ... clr 0bb3 +EDE8 7F 0B B2 ... clr 0bb2 +EDEB 7F 0B B1 ... clr 0bb1 +EDEE 7F 0B B0 ... clr 0bb0 +EDF1 C6 05 .. ldab #05 +EDF3 F7 08 00 ... stab 0800 +EDF6 8D 21 .! bsr dest 21 +goto80: +; switch things off +EDF8 7F 00 14 ... clr 0014 +EDFB F6 00 14 ... ldab 0014 +EDFE F7 38 00 .8. stab 3800 +EE01 31 1 ins +EE02 39 9 rts + +jump36: +EE03 37 7 pshb +EE04 36 6 psha +EE05 30 0 tsx +EE06 EC 00 .. ldd 00,x +EE08 BD C0 BA ... jsr c0ba ;display: +EE0B CE 10 16 ... ldx #1016 +EE0E 1D 01 FF .. bclr 01,x, #ff +EE11 CC 05 DC ... ldd #05dc ; 1500 +EE14 BD E5 71 ... jsr e571 ;msdelay +EE17 38 8 pulx +EE18 39 9 rts + + +EE19 BD E5 D1 ... jsr e5d1 ;jump52 +goto81: +; this the diagnostic function activated when the "test harness" +; is connected +EE1C CE 10 16 ... ldx #1016 +EE1F 1D 01 .. bclr 01,x, #ff +EE21 CE 10 16 .. ldx #1016 +EE25 1C 01 5A ... bset 01,x, #5A +EE28 F6 10 16 ... ldab 1016 +EE2B 26 0C &. bne 0c ; to ee39 +EE2D CC B1 4F ..O ldd #b14f ;"RAM FAIL" +EE30 BD C0 BA ... jsr c0ba ;display: +EE33 CC 05 DC ... ldd #05dc +EE36 BD E5 71 ..q jsr e571 ;msdelay +; i=4 +EE39 C6 04 .. ldab #04 +EE3B F7 00 1C ... stab 001c +; i <= 7 +EE3E F6 00 1C ... ldab 001c +EE41 C1 07 .. cmpb #07 +EE43 24 57 $W bcc 57 ; to ee9c (break out) +EE45 F6 00 1C ... ldab 001c +EE48 4F O clra +EE49 C3 B1 23 ..# addd #b123 ; power of 2 +EE4C 8F . xgdx +EE4D E6 00 .. ldab 00,x +EE4F 53 S comb +EE50 F4 00 1A ... andb 001a +EE53 F7 00 1A ... stab 001a +EE56 F6 00 1A ... ldab 001a +EE59 F7 30 00 .0. stab 3000 ; set coin bit active (low) +EE5C CC 00 0A ... ldd #000a +EE5F BD E5 71 ..q jsr e571 ;msdelay +EE62 F6 18 00 ... ldab 1800 +EE65 2C 07 ,. bge 07 ; to ee6e +EE67 CC B1 5A ..Z ldd #b15a ; "P2 FAIL" +EE6A 8D 97 .. bsr dest 97 ; display to ee03 +EE6C 20 2E . bra 2e ; to ee9c +EE6E F6 00 1C ... ldab 001c +EE71 4F O clra +EE72 C3 B1 23 ..# addd #b123 ; powers of 2 +EE75 8F . xgdx +EE76 E6 00 .. ldab 00,x +EE78 FA 00 1A ... orb 001a +EE7B F7 00 1A ... stab 001a +EE7E F6 00 1A ... ldab 001a +EE81 F7 30 00 .0. stab 3000 ; set coin bit inactive (high) +EE84 CC 00 0A ... ldd #000a +EE87 BD E5 71 ..q jsr e571 ;msdelay +EE8A F6 18 00 ... ldab 1800 ; if changer int' +EE8D 2D 08 -. blt 08 ; ee97 +EE8F CC B1 5A ..Z ldd #b15a ; "P2 FAIL" +EE92 BD EE 03 ... jsr ee03 ;jump36 +EE95 20 05 . bra 05 ; to ee9c +EE97 7C 00 1C |.. inc 001c +EE9A 20 A2 . bra a2 ; to ee3e +; +EE9C CE 10 00 ... ldx #1000 +EE9F 1C 00 08 ... bset 00,x, #08 ; talk to coin mech +EEA2 CE 10 08 ... ldx #1008 +EEA5 1C 00 02 ... bset 00,x, #02 ; set rx of sci +EEA8 CE 00 1A ... ldx #001a +EEAB 1C 00 40 ... bset 00,x, #40 +EEAE F6 00 1A ... ldab 001a +EEB1 F7 30 00 .0. stab 3000 ; unset $1.00 line +EEB4 CC 00 0A ... ldd #000a +EEB7 BD E5 71 ..q jsr e571 ;msdelay +EEBA F6 10 08 ... ldab 1008 +EEBD C4 01 .. andb #01 ; tests tx of sci +EEBF 26 06 &. bne 06 ; to eec7 +EEC1 CC B1 5A ..Z ldd #b15a ; "P2 FAIL" +EEC4 BD EE 03 ... jsr ee03 ;jump36 +EEC7 CE 00 1A ... ldx #001a +EECA 1D 00 40 ... bclr 00,x, #40 +EECD F6 00 1A ... ldab 001a +EED0 F7 30 00 .0. stab 3000 ; set $1.00 line +EED3 CC 00 0A ... ldd #000a +EED6 BD E5 71 ..q jsr e571 ;msdelay +; +EED9 F6 10 08 ... ldab 1008 +EEDC C4 01 .. andb #01 ; tests txt of sci +EEDE 27 06 '. beq 06 ; to eee6 +EEE0 CC B1 5A ..Z ldd #b15a ; "P2 FAIL" +EEE3 BD EE 03 ... jsr ee03 ;jump36 +EEE6 CE 00 1A ... ldx #001a +EEE9 1C 00 02 ... bset 00,x, #02 +EEEC F6 00 1A ... ldab 001a +EEEF F7 30 00 .0. stab 3000 ; ditto for $0.25 +EEF2 CC 00 0A ... ldd #000a +EEF5 BD E5 71 ..q jsr e571 ;msdelay +EEF8 F6 10 00 ... ldab 1000 +EEFB C4 04 .. andb #04 +EEFD 26 06 &. bne 06 +EEFF CC B1 65 ..e ldd #b165 +EF02 BD EE 03 ... jsr ee03 ;jump36 +EF05 CE 00 1A ... ldx #001a +EF08 1D 00 02 ... bclr 00,x, #02 +EF0B F6 00 1A ... ldab 001a +EF0E F7 30 00 .0. stab 3000 ; ditto for $0.25 +EF11 CC 00 0A ... ldd #000a +EF14 BD E5 71 ..q jsr e571 ;msdelay +; +EF17 F6 10 00 ... ldab 1000 +EF1A C4 04 .. andb #04 ; coin dispenser pin6 +EF1C 27 06 '. beq 06 +EF1E CC B1 65 ..e ldd #b165 ; "P2-P3 FAIL" +EF21 BD EE 03 ... jsr ee03 ;jump36 +EF24 CE 00 1A ... ldx #001a +EF27 1C 00 01 ... bset 00,x, #01 +EF2A F6 00 1A ... ldab 001a +EF2D F7 30 00 .0. stab 3000 ; send line of changer +EF30 CC 00 0A ... ldd #000a +EF33 BD E5 71 ..q jsr e571 ;msdelay +; +EF36 F6 18 00 ... ldab 1800 +EF39 C4 20 . andb #20 ; test door switch +EF3B 26 06 &. bne 06 +EF3D CC B1 70 ..p ldd #b170 ; "P2-P8 FAIL" +EF40 BD EE 03 ... jsr ee03 ;jump36 +EF43 CE 00 1A ... ldx #001a +EF46 1D 00 01 ... bclr 00,x, #01 +EF49 F6 00 1A ... ldab 001a +EF4C F7 30 00 .0. stab 3000 ; unset send line of changer +EF4F CC 00 0A ... ldd #000a +EF52 BD E5 71 ..q jsr e571 ;msdelay +EF55 F6 18 00 ... ldab 1800 +EF58 C4 20 . andb #20 ; test door again? +EF5A 27 06 '. beq 06 +EF5C CC B1 70 ..p ldd #b170 ; "P2-P8 FAIL" +EF5F BD EE 03 ... jsr ee03 ;jump36 +EF62 CE 00 1A ... ldx #001a +EF65 1C 00 04 ... bset 00,x, #04 ; reset changer +EF68 F6 00 1A ... ldab 001a +EF6B F7 30 00 .0. stab 3000 +EF6E CC 00 0A ... ldd #000a +EF71 BD E5 71 ..q jsr e571 ;msdelay +EF74 F6 10 0A ... ldab 100a +EF77 C4 04 .. andb #04 ; test no-sale switch +EF79 26 06 &. bne 06 +EF7B CC B1 7B ..{ ldd #b17b ; "P2-P9 FAIL" +EF7E BD EE 03 ... jsr ee03 ;jump36 +EF81 CE 00 1A ... ldx #001a +EF84 1D 00 04 ... bclr 00,x, #04 +EF87 F6 00 1A ... ldab 001a +EF8A F7 30 00 .0. stab 3000 ;snack motor drivers serial data is bit 7 +EF8D CC 00 0A ... ldd #000a +EF90 BD E5 71 ..q jsr e571 ;msdelay +EF93 F6 10 0A ... ldab 100a +EF96 C4 04 .. andb #04 +EF98 27 06 '. beq 06 +EF9A CC B1 7B ..{ ldd #b17b ; "P2-P9 FAIL" +EF9D BD EE 03 ... jsr ee03 ;jump36 +EFA0 CE 10 00 ... ldx #1000 +EFA3 1C 00 08 ... bset 00,x, #08 +EFA6 CE 00 1A ... ldx #001a +EFA9 1C 00 40 ... bset 00,x, #40 +EFAC F6 00 1A ... ldab 001a +EFAF F7 30 00 .0. stab 3000 +EFB2 CE 10 08 ... ldx #1008 +EFB5 1C 00 02 ... bset 00,x, #02 ; keypad data +EFB8 CC 00 0A ... ldd #000a +EFBB BD E5 71 ..q jsr e571 ;msdelay +EFBE F6 10 08 ... ldab 1008 +EFC1 C4 01 .. andb #01 +EFC3 26 06 &. bne 06 +EFC5 CC B1 86 ... ldd #b186 ; "P3-P4 FAIL" +EFC8 BD EE 03 ... jsr ee03 ;jump36 +EFCB CE 10 08 ... ldx #1008 +EFCE 1D 00 02 ... bclr 00,x, #02 +EFD1 CC 00 0A ... ldd #000a +EFD4 BD E5 71 ..q jsr e571 ;msdelay +EFD7 F6 10 08 ... ldab 1008 +EFDA C4 01 .. andb #01 +EFDC 27 06 '. beq 06 +EFDE CC B1 86 ... ldd #b186 ; "P3-P4 FAIL" +EFE1 BD EE 03 ... jsr ee03 ;jump36 +EFE4 CE 10 00 ... ldx #1000 +EFE7 1D 00 08 ... bclr 00,x, #08 +EFEA CE 10 08 ... ldx #1008 +EFED 1C 00 02 ... bset 00,x, #02 +EFF0 CC 00 0A ... ldd #000a +EFF3 BD E5 71 ..q jsr e571 ;msdelay +EFF6 F6 10 08 ... ldab 1008 +EFF9 C4 01 .. andb #01 +EFFB 26 06 &. bne 06 +EFFD CC B1 91 ... ldd #b191 ; "P5 FAIL" +F000 BD EE 03 ... jsr ee03 ;jump36 +F003 CE 10 08 ... ldx #1008 +F006 1D 00 02 ... bclr 00,x, #02 +F009 CC 00 0A ... ldd #000a +F00C BD E5 71 ..q jsr e571 ;msdelay +F00F F6 10 08 ... ldab 1008 +F012 C4 01 .. andb #01 +F014 27 06 '. beq 06 +F016 CC B1 91 ... ldd #b191 +F019 BD EE 03 ... jsr ee03 ;jump36 +F01C CE 00 14 ... ldx #0014 +F01F 1C 00 .. bset add,x 00,x +F021 20 F6 . bra f6 +F023 00 . test +F024 14 . bset +F025 F7 38 00 .8. stab 3800 +F028 CC 00 0A ... ldd #000a +F02B BD E5 71 ..q jsr e571 ;msdelay +F02E F6 20 00 . . ldab 2000 +F031 C4 40 .@ andb #40 +F033 26 06 &. bne 06 +F035 CC B1 9C ... ldd #b19c +F038 BD EE 03 ... jsr ee03 ;jump36 +F03B CE 00 14 ... ldx #0014 +F03E 1D 00 .. bclr add,x 00,x +F040 20 F6 . bra f6 +F042 00 . test +F043 14 . bset +F044 F7 38 00 .8. stab 3800 +F047 CC 00 0A ... ldd #000a +F04A BD E5 71 ..q jsr e571 ;msdelay +F04D F6 20 00 . . ldab 2000 +F050 C4 40 .@ andb #40 +F052 27 06 '. beq 06 +F054 CC B1 9C ... ldd #b19c +F057 BD EE 03 ... jsr ee03 ;jump36 +F05A CE 00 14 ... ldx #0014 +F05D 1C 00 40 ... bset 00,x, #40 +F060 F6 00 14 ... ldab 0014 +F063 F7 38 00 .8. stab 3800 +F066 CC 00 0A ... ldd #000a +F069 BD E5 71 ..q jsr e571 ;msdelay +F06C F6 20 00 . . ldab 2000 +F06F 2C 06 ,. bge 06 +F071 CC B1 9C ... ldd #b19c +F074 BD EE 03 ... jsr ee03 ;jump36 +F077 CE 00 14 ... ldx #0014 +F07A 1D 00 40 ... bclr 00,x, #40 +F07D F6 00 14 ... ldab 0014 +F080 F7 38 00 .8. stab 3800 +F083 CC 00 0A ... ldd #000a +F086 BD E5 71 ..q jsr e571 ;msdelay +F089 F6 20 00 . . ldab 2000 +F08C 2D 06 -. blt 06 +F08E CC B1 9C ... ldd #b19c +F091 BD EE 03 ... jsr ee03 ;jump36 +F094 7F 00 61 ..a clr 0061 +F097 F6 00 61 ..a ldab 0061 +F09A C1 08 .. cmpb #08 +F09C 24 22 $" bcc 22 +F09E F6 00 61 ..a ldab 0061 +F0A1 4F O clra +F0A2 C3 B1 C8 ... addd #b1c8 +F0A5 8F . xgdx +F0A6 E6 00 .. ldab 00,x +F0A8 F7 00 06 ... stab 0006 +F0AB BD D3 11 ... jsr d311 ;jump30 +F0AE 83 00 00 ... subd #0000 +F0B1 27 08 '. beq 08 +F0B3 CC B1 A7 ... ldd #b1a7 +F0B6 BD EE 03 ... jsr ee03 ;jump36 +F0B9 20 05 . bra 05 +F0BB 7C 00 61 |.a inc 0061 +F0BE 20 D7 . bra d7 +F0C0 7F 00 61 ..a clr 0061 +F0C3 F6 00 61 ..a ldab 0061 +F0C6 C1 08 .. cmpb #08 +F0C8 24 2B $+ bcc 2b +F0CA F6 00 61 ..a ldab 0061 +F0CD 4F O clra +F0CE C3 B1 C8 ... addd #b1c8 +F0D1 8F . xgdx +F0D2 E6 00 .. ldab 00,x +F0D4 F7 00 06 ... stab 0006 +F0D7 BD D1 3D ..= jsr d13d ;jump34 +F0DA BD D5 70 ..p jsr d570 ;jump35 +F0DD 83 00 00 ... subd #0000 +F0E0 26 0B &. bne 0b +F0E2 BD D1 05 ... jsr d105 ;jump32 +F0E5 CC B1 B2 ... ldd #b1b2 +F0E8 BD EE 03 ... jsr ee03 ;jump36 +F0EB 20 08 . bra 08 +F0ED BD D1 05 ... jsr d105 ;jump32 +F0F0 7C 00 61 |.a inc 0061 +F0F3 20 CE . bra ce +F0F5 7F 00 61 ..a clr 0061 +F0F8 F6 00 61 ..a ldab 0061 +F0FB C1 05 .. cmpb #05 +F0FD 24 45 $E bcc 45 +F0FF F6 00 61 ..a ldab 0061 +F102 4F O clra +F103 C3 B1 C8 ... addd #b1c8 +F106 8F . xgdx +F107 E6 00 .. ldab 00,x +F109 F7 00 06 ... stab 0006 +F10C BD D1 3D ..= jsr d13d ;jump34 +F10F CC 00 0A ... ldd #000a +F112 BD E5 71 ..q jsr e571 ;msdelay +F115 F6 18 00 ... ldab 1800 +F118 C4 40 .@ andb #40 +F11A 26 0B &. bne 0b +F11C BD D1 05 ... jsr d105 ;jump32 +F11F CC B1 B2 ... ldd #b1b2 +F122 BD EE 03 ... jsr ee03 ;jump36 +F125 20 1D . bra 1d +F127 BD D1 05 ... jsr d105 ;jump32 +F12A CC 00 0A ... ldd #000a +F12D BD E5 71 ..q jsr e571 ;msdelay +F130 F6 18 00 ... ldab 1800 +F133 C4 40 .@ andb #40 +F135 27 08 '. beq 08 +F137 CC B1 B2 ... ldd #b1b2 +F13A BD EE 03 ... jsr ee03 ;jump36 +F13D 20 05 . bra 05 +F13F 7C 00 61 |.a inc 0061 +F142 20 B4 . bra b4 +F144 FC 10 16 ... ldd 1016 +F147 83 5A 5A .ZZ subd #5a5a +F14A 26 0C &. bne 0c +F14C CC B1 BD ... ldd #b1bd ; " PASSED " +F14F BD C0 BA ... jsr c0ba ;display: +F152 CC 05 DC ... ldd #05dc +F155 BD E5 71 ..q jsr e571 ;msdelay +F158 7E EE 1C ~.. jmp ee1c ;goto81 + +;send a byte to the printer? +;it calls c7e7, which does things with the serial port +jump53: +F15B 37 7 pshb +F15C 36 6 psha +F15D F6 00 19 ... ldab 0019 +F160 C4 40 .@ andb #40 +F162 26 5B &[ bne 5b +F164 C6 FF .. ldab #ff +F166 F7 00 39 ..9 stab 0039 +F169 F6 20 00 . . ldab 2000 +F16C 2C 11 ,. bge 11 +F16E F6 20 00 . . ldab 2000 +F171 C4 40 .@ andb #40 +F173 27 0A '. beq 0a +F175 F6 00 39 ..9 ldab 0039 +F178 27 05 '. beq 05 +F17A BD E6 1B ... jsr e61b ;jump4 +F17D 20 EA . bra ea +F17F F6 00 39 ..9 ldab 0039 +F182 26 08 &. bne 08 +F184 CE 00 19 ... ldx #0019 +F187 1C 00 40 ... bset 00,x, #40 +F18A 20 33 3 bra 33 +F18C F6 20 00 . . ldab 2000 +F18F C4 40 .@ andb #40 +F191 27 2C ', beq 2c +F193 F6 00 1D ... ldab 001d +F196 C4 01 .. andb #01 +F198 27 1E '. beq 1e +F19A 30 0 tsx +F19B E6 01 .. ldab 01,x +F19D C1 30 .0 cmpb #30 +F19F 26 08 &. bne 08 +F1A1 CC 00 20 .. ldd #0020 +F1A4 BD C7 E7 ... jsr c7e7 ;jump37 +F1A7 20 0D . bra 0d +F1A9 30 0 tsx +F1AA E6 01 .. ldab 01,x +F1AC 4F O clra +F1AD BD C7 E7 ... jsr c7e7 ;jump37 +F1B0 CE 00 1D ... ldx #001d +F1B3 1D 00 01 ... bclr 00,x, #01 +F1B6 20 07 . bra 07 +F1B8 30 0 tsx +F1B9 E6 01 .. ldab 01,x +F1BB 4F O clra +F1BC BD C7 E7 ... jsr c7e7 ;jump37 +F1BF 38 8 pulx +F1C0 39 9 rts + +jump59: +F1C1 37 7 pshb +F1C2 36 6 psha +F1C3 F6 20 00 . . ldab 2000 +F1C6 C4 40 .@ andb #40 +F1C8 27 1C '. beq 1c +F1CA 7F 00 18 ... clr 0018 +F1CD F6 00 18 ... ldab 0018 +F1D0 30 0 tsx +F1D1 E1 05 .. cmpb 05,x +F1D3 24 11 $. bcc 11 +F1D5 30 0 tsx +F1D6 EE 00 .. ldx 00,x +F1D8 E6 00 .. ldab 00,x +F1DA 4F O clra +F1DB BD F1 5B ..[ jsr f15b ;jump53 +F1DE 38 8 pulx +F1DF 08 . inx +F1E0 3C < pshx +F1E1 7C 00 18 |.. inc 0018 +F1E4 20 E7 . bra e7 +F1E6 38 8 pulx +F1E7 39 9 rts + +;send a string to the printer. D is a pointer to a string +jump57: +F1E8 37 7 pshb +F1E9 36 6 psha +F1EA F6 20 00 . . ldab 2000 +F1ED C4 40 .@ andb #40 +F1EF 27 1B '. beq 1b +F1F1 CC 00 20 .. ldd #0020 +F1F4 BD F1 5B ..[ jsr f15b ;jump53 +F1F7 30 0 tsx +F1F8 EE 00 .. ldx 00,x +F1FA E6 00 .. ldab 00,x +F1FC 27 0E '. beq 0e +F1FE 30 0 tsx +F1FF EE 00 .. ldx 00,x +F201 E6 00 .. ldab 00,x +F203 4F O clra +F204 BD F1 5B ..[ jsr f15b ;jump53 +F207 38 8 pulx +F208 08 . inx +F209 3C < pshx +F20A 20 EB . bra eb +F20C 38 8 pulx +F20D 39 9 rts + +jump62: +F20E 37 7 pshb +F20F 36 6 psha +F210 F6 20 00 . . ldab 2000 +F213 C4 40 .@ andb #40 +F215 27 34 '4 beq 34 +F217 CE 00 1D ... ldx #001d +F21A 1C 00 01 ... bset 00,x, #01 +F21D 30 0 tsx +F21E E6 01 .. ldab 01,x +F220 4F O clra +F221 BD E7 95 ... jsr e795 ;jump54 +F224 F6 00 5D ..] ldab 005d +F227 4F O clra +F228 BD F1 5B ..[ jsr f15b ;jump53 +F22B F6 00 5E ..^ ldab 005e +F22E 4F O clra +F22F BD F1 5B ..[ jsr f15b ;jump53 +F232 CE 00 1D ... ldx #001d +F235 1D 00 01 ... bclr 00,x, #01 +F238 F6 00 5F .._ ldab 005f +F23B 4F O clra +F23C BD F1 5B ..[ jsr f15b ;jump53 +F23F CC 00 20 .. ldd #0020 +F242 BD F1 5B ..[ jsr f15b ;jump53 +F245 CC 00 20 .. ldd #0020 +F248 BD F1 5B ..[ jsr f15b ;jump53 +F24B 38 8 pulx +F24C 39 9 rts + +jump58: +F24D 37 7 pshb +F24E 36 6 psha +F24F F6 20 00 . . ldab 2000 +F252 C4 40 .@ andb #40 +F254 27 41 'A beq 41 +F256 CE 00 1D ... ldx #001d +F259 1C 00 01 ... bset 00,x, #01 +F25C 30 0 tsx +F25D EC 00 .. ldd 00,x +F25F BD E7 45 ..E jsr e745 ;jump55 +F262 F6 00 57 ..W ldab 0057 +F265 4F O clra +F266 BD F1 5B ..[ jsr f15b ;jump53 +F269 F6 00 5A ..Z ldab 005a +F26C 4F O clra +F26D BD F1 5B ..[ jsr f15b ;jump53 +F270 F6 00 5D ..] ldab 005d +F273 4F O clra +F274 BD F1 5B ..[ jsr f15b ;jump53 +F277 F6 00 5E ..^ ldab 005e +F27A 4F O clra +F27B BD F1 5B ..[ jsr f15b ;jump53 +F27E CE 00 1D ... ldx #001d +F281 1D 00 01 ... bclr 00,x, #01 +F284 F6 00 5F .._ ldab 005f +F287 4F O clra +F288 BD F1 5B ..[ jsr f15b ;jump53 +F28B CC 00 20 .. ldd #0020 +F28E BD F1 5B ..[ jsr f15b ;jump53 +F291 CC 00 20 .. ldd #0020 +F294 BD F1 5B ..[ jsr f15b ;jump53 +F297 38 8 pulx +F298 39 9 rts + +jump61 +jump61:: +F299 37 7 pshb +F29A 36 6 psha +F29B F6 20 00 . . ldab 2000 +F29E C4 40 .@ andb #40 +F2A0 27 7B '{ beq 7b +F2A2 F6 00 17 ... ldab 0017 +F2A5 C4 08 .. andb #08 +F2A7 26 06 &. bne 06 +F2A9 CC 00 24 ..$ ldd #0024 +F2AC BD F1 5B ..[ jsr f15b ;jump53 +F2AF CE 00 1D ... ldx #001d +F2B2 1C 00 01 ... bset 00,x, #01 +F2B5 30 0 tsx +F2B6 EC 00 .. ldd 00,x +F2B8 BD E7 45 ..E jsr e745 ;jump55 +F2BB F6 00 57 ..W ldab 0057 +F2BE 4F O clra +F2BF BD F1 5B ..[ jsr f15b ;jump53 +F2C2 F6 00 5A ..Z ldab 005a +F2C5 4F O clra +F2C6 BD F1 5B ..[ jsr f15b ;jump53 +F2C9 F6 00 13 ... ldab 0013 +F2CC C1 08 .. cmpb #08 +F2CE 26 0C &. bne 0c +F2D0 CC 00 2E ... ldd #002e +F2D3 BD F1 5B ..[ jsr f15b ;jump53 +F2D6 CE 00 1D ... ldx #001d +F2D9 1D 00 01 ... bclr 00,x, #01 +F2DC F6 00 5D ..] ldab 005d +F2DF 4F O clra +F2E0 BD F1 5B ..[ jsr f15b ;jump53 +F2E3 F6 00 13 ... ldab 0013 +F2E6 C1 04 .. cmpb #04 +F2E8 26 0C &. bne 0c +F2EA CC 00 2E ... ldd #002e +F2ED BD F1 5B ..[ jsr f15b ;jump53 +F2F0 CE 00 1D ... ldx #001d +F2F3 1D 00 01 ... bclr 00,x, #01 +F2F6 F6 00 5E ..^ ldab 005e +F2F9 4F O clra +F2FA BD F1 5B ..[ jsr f15b ;jump53 +F2FD F6 00 13 ... ldab 0013 +F300 C1 02 .. cmpb #02 +F302 26 06 &. bne 06 +F304 CC 00 2E ... ldd #002e +F307 BD F1 5B ..[ jsr f15b ;jump53 +F30A CE 00 1D ... ldx #001d +F30D 1D 00 01 ... bclr 00,x, #01 +F310 F6 00 5F .._ ldab 005f +F313 4F O clra +F314 BD F1 5B ..[ jsr f15b ;jump53 +F317 CC 00 0A ... ldd #000a +F31A BD F1 5B ..[ jsr f15b ;jump53 +F31D 38 8 pulx +F31E 39 9 rts + +jump60: +F31F 38 8 pulx +F320 37 7 pshb +F321 36 6 psha +F322 3C < pshx +F323 F6 20 00 . . ldab 2000 +F326 C4 40 .@ andb #40 +F328 26 03 &. bne 03 +F32A 7E F3 BC ~.. jmp f3bc ;goto82 +F32D F6 00 17 ... ldab 0017 +F330 C4 08 .. andb #08 +F332 26 06 &. bne 06 +F334 CC 00 24 ..$ ldd #0024 +F337 BD F1 5B ..[ jsr f15b ;jump53 +F33A CE 00 1D ... ldx #001d +F33D 1C 00 01 ... bset 00,x, #01 +F340 30 0 tsx +F341 EC 04 .. ldd 04,x +F343 37 7 pshb +F344 36 6 psha +F345 EC 02 .. ldd 02,x +F347 BD E6 21 ..! jsr e621 ;jump56 +F34A 38 8 pulx +F34B C6 07 .. ldab #07 +F34D F7 00 18 ... stab 0018 +F350 F6 00 18 ... ldab 0018 +F353 C1 FF .. cmpb #ff +F355 24 5F $_ bcc 5f +F357 F6 00 18 ... ldab 0018 +F35A 4F O clra +F35B C3 0B 90 ... addd #0b90 +F35E 8F . xgdx +F35F E6 00 .. ldab 00,x +F361 4F O clra +F362 BD F1 5B ..[ jsr f15b ;jump53 +F365 F6 00 18 ... ldab 0018 +F368 C1 03 .. cmpb #03 +F36A 26 15 &. bne 15 +F36C F6 00 13 ... ldab 0013 +F36F C1 08 .. cmpb #08 +F371 26 0C &. bne 0c +F373 CC 00 2E ... ldd #002e +F376 BD F1 5B ..[ jsr f15b ;jump53 +F379 CE 00 1D ... ldx #001d +F37C 1D 00 01 ... bclr 00,x, #01 +F37F 20 30 0 bra 30 +F381 C1 02 .. cmpb #02 +F383 26 15 &. bne 15 +F385 F6 00 13 ... ldab 0013 +F388 C1 04 .. cmpb #04 +F38A 26 0C &. bne 0c +F38C CC 00 2E ... ldd #002e +F38F BD F1 5B ..[ jsr f15b ;jump53 +F392 CE 00 1D ... ldx #001d +F395 1D 00 01 ... bclr 00,x, #01 +F398 20 17 . bra 17 +F39A C1 01 .. cmpb #01 +F39C 26 13 &. bne 13 +F39E F6 00 13 ... ldab 0013 +F3A1 C1 02 .. cmpb #02 +F3A3 26 06 &. bne 06 +F3A5 CC 00 2E ... ldd #002e +F3A8 BD F1 5B ..[ jsr f15b ;jump53 +F3AB CE 00 1D ... ldx #001d +F3AE 1D 00 01 ... bclr 00,x, #01 +F3B1 7A 00 18 z.. dec 0018 +F3B4 20 9A . bra 9a +F3B6 CC 00 0A ... ldd #000a +F3B9 BD F1 5B ..[ jsr f15b ;jump53 +goto82: +F3BC 38 8 pulx +F3BD 31 1 ins +F3BE 31 1 ins +F3BF 6E 00 n. jmp 00,x + +jump63: +F3C1 37 7 pshb +F3C2 36 6 psha +F3C3 F6 20 00 . . ldab 2000 +F3C6 C4 40 .@ andb #40 +F3C8 27 49 'I beq 49 +F3CA CC B4 71 ..q ldd #b471 " CODE " +F3CD BD F1 E8 ... jsr f1e8 ;jump57 +F3D0 30 0 tsx +F3D1 E6 01 .. ldab 01,x +F3D3 4F O clra +F3D4 CE 00 0A ... ldx #000a +F3D7 02 . idiv +F3D8 8F . xgdx +F3D9 CB 30 .0 addb #30 +F3DB F7 00 5E ..^ stab 005e +F3DE 30 0 tsx +F3DF E6 01 .. ldab 01,x +F3E1 4F O clra +F3E2 CE 00 0A ... ldx #000a +F3E5 02 . idiv +F3E6 CB 30 .0 addb #30 +F3E8 F7 00 5F .._ stab 005f ;5e and 5f now param in ascii +F3EB F6 00 5E ..^ ldab 005e +F3EE 4F O clra +F3EF BD F1 5B ..[ jsr f15b ;jump53 +F3F2 F6 00 5F .._ ldab 005f +F3F5 4F O clra +F3F6 BD F1 5B ..[ jsr f15b ;jump53 +F3F9 CC B4 7B ..{ ldd #b47b "VENDS - " +F3FC BD F1 E8 ... jsr f1e8 ;jump57 +F3FF 30 0 tsx +F400 E6 01 .. ldab 01,x +F402 4F O clra +F403 05 . asld +F404 C3 0D 1F ... addd #0d1f +F407 8F . xgdx +F408 EC 00 .. ldd 00,x +F40A BD F2 4D ..M jsr f24d ;jump58 +F40D CC 00 0A ... ldd #000a +F410 BD F1 5B ..[ jsr f15b ;jump53 +F413 38 8 pulx +F414 39 9 rts + +jump112: +F415 F6 0B C0 ... ldab 0bc0 +F418 C4 02 .. andb #02 +F41A 27 15 '. beq 15 +F41C CE 00 21 ..! ldx #0021 +F41F 1C 00 .. bset 00,x, #80 +F421 F6 00 1D .. ldab 001d +F424 C4 02 .. andb #02 +F427 27 02 '. beq 02 +F429 20 F7 . bra f7 +F42B CE 00 21 ..! ldx #0021 +F42E 1D 00 .. bclr 00,x, #80 +F430 C6 10 .. ldab #10 +F433 F7 10 2C .., stab 102c ; set 9N1 +F436 C6 2E .. ldab #2e +F438 F7 10 2D ..- stab 102d ; enable SCI transmission +F43B C6 05 .. ldab #05 +F43D F7 10 2B ..+ stab 102b ; 2400 baud +F440 CC 03 E8 ... ldd #03e8 +F443 BD E5 71 ..q jsr e571 ;msdelay +F446 CE 10 00 ... ldx #1000 +F449 1D 00 08 ... bclr 00,x, #08 ; talk to ze printer +F44C CE 00 19 ... ldx #0019 +F44F 1D 00 40 ... bclr 00,x, #40 +F452 CE 00 1D ... ldx #001d +F455 1D 00 01 ... bclr 00,x, #01 +F458 CC 00 18 ... ldd #0018 +F45B BD F1 5B ..[ jsr f15b ;jump53 +F45E CC B2 1B ... ldd #b21b " ROWE INTERNATIONAL" +F461 BD F1 E8 ... jsr f1e8 ;jump57 +F464 CC 00 0A ... ldd #000a +F467 BD F1 5B ..[ jsr f15b ;jump53 +F46A CC B2 38 ..8 ldd #b238 " -------------------" +F46D BD F1 E8 ... jsr f1e8 ;jump57 +F470 CC 00 0A ... ldd #000a +F473 BD F1 5B ..[ jsr f15b ;jump53 +F476 CC B2 56 ..V ldd #b256 +F479 BD F1 E8 ... jsr f1e8 ;jump57 +F47C CC 00 0A ... ldd #000a +F47F BD F1 5B ..[ jsr f15b ;jump53 +F482 CC 00 0A ... ldd #000a +F485 BD F1 5B ..[ jsr f15b ;jump53 +F488 CC B2 75 ..u ldd #b275 +F48B BD F1 E8 ... jsr f1e8 ;jump57 +F48E CC 00 0A ... ldd #000a +F491 BD F1 5B ..[ jsr f15b ;jump53 +F494 CC B2 38 ..8 ldd #b238 +F497 BD F1 E8 ... jsr f1e8 ;jump57 +F49A CC 00 0A ... ldd #000a +F49D BD F1 5B ..[ jsr f15b ;jump53 +F4A0 CC 00 0A ... ldd #000a +F4A3 BD F1 5B ..[ jsr f15b ;jump53 +F4A6 CC B2 90 ... ldd #b290 +F4A9 BD F1 E8 ... jsr f1e8 ;jump57 +F4AC CE 00 0A ... ldx #000a +F4AF 3C < pshx +F4B0 CC 0C BC ... ldd #0cbc +F4B3 BD F1 C1 ... jsr f1c1 ;jump59 +F4B6 38 8 pulx +F4B7 CC 00 0A ... ldd #000a +F4BA BD F1 5B ..[ jsr f15b ;jump53 +F4BD CC B2 A2 ... ldd #b2a2 +F4C0 BD F1 E8 ... jsr f1e8 ;jump57 +F4C3 CE 00 0A ... ldx #000a +F4C6 3C < pshx +F4C7 CC 0C CC ... ldd #0ccc +F4CA BD F1 C1 ... jsr f1c1 ;jump59 +F4CD 38 8 pulx +F4CE CC 00 0A ... ldd #000a +F4D1 BD F1 5B ..[ jsr f15b ;jump53 +F4D4 CC B2 B4 ... ldd #b2b4 +F4D7 BD F1 E8 ... jsr f1e8 ;jump57 +F4DA FC 0C E7 ... ldd 0ce7 +F4DD BD F2 4D ..M jsr f24d ;jump58 +F4E0 CC 00 0A ... ldd #000a +F4E3 BD F1 5B ..[ jsr f15b ;jump53 +F4E6 CC 00 0A ... ldd #000a +F4E9 BD F1 5B ..[ jsr f15b ;jump53 +F4EC CC B2 C6 ... ldd #b2c6 +F4EF BD F1 E8 ... jsr f1e8 ;jump57 +F4F2 FE 0D E9 ... ldx 0de9 +F4F5 3C < pshx +F4F6 FC 0D E7 ... ldd 0de7 +F4F9 BD F3 1F ... jsr f31f ;jump60 +F4FC 38 8 pulx +F4FD CC B2 D8 ... ldd #b2d8 +F500 BD F1 E8 ... jsr f1e8 ;jump57 +F503 FE 0D ED ... ldx 0ded +F506 3C < pshx +F507 FC 0D EB ... ldd 0deb +F50A BD F3 1F ... jsr f31f ;jump60 +F50D 38 8 pulx +F50E CC B2 EA ... ldd #b2ea +F511 BD F1 E8 ... jsr f1e8 ;jump57 +F514 FE 0D F1 ... ldx 0df1 +F517 3C < pshx +F518 FC 0D EF ... ldd 0def +F51B BD F3 1F ... jsr f31f ;jump60 +F51E 38 8 pulx +F51F CC B2 FC ... ldd #b2fc +F522 BD F1 E8 ... jsr f1e8 ;jump57 +F525 FE 0D F9 ... ldx 0df9 +F528 3C < pshx +F529 FC 0D F7 ... ldd 0df7 +F52C BD F3 1F ... jsr f31f ;jump60 +F52F 38 8 pulx +F530 CC B3 0E ... ldd #b30e +F533 BD F1 E8 ... jsr f1e8 ;jump57 +F536 FE 0D FD ... ldx 0dfd +F539 3C < pshx +F53A FC 0D FB ... ldd 0dfb +F53D BD F3 1F ... jsr f31f ;jump60 +F540 38 8 pulx +F541 CC 00 0A ... ldd #000a +F544 BD F1 5B ..[ jsr f15b ;jump53 +F547 CC B3 20 .. ldd #b320 +F54A BD F1 E8 ... jsr f1e8 ;jump57 +F54D CC 00 0A ... ldd #000a +F550 BD F1 5B ..[ jsr f15b ;jump53 +F553 CC B3 31 ..1 ldd #b331 +F556 BD F1 E8 ... jsr f1e8 ;jump57 +F559 FE 0D F5 ... ldx 0df5 +F55C 3C < pshx +F55D FC 0D F3 ... ldd 0df3 +F560 BD F3 1F ... jsr f31f ;jump60 +F563 38 8 pulx +F564 CC B3 4A ..J ldd #b34a +F567 BD F1 E8 ... jsr f1e8 ;jump57 +F56A FC 0C DD ... ldd 0cdd +F56D BD F2 4D ..M jsr f24d ;jump58 +F570 FE 0C F5 ... ldx 0cf5 +F573 3C < pshx +F574 FC 0C F3 ... ldd 0cf3 +F577 BD F3 1F ... jsr f31f ;jump60 +F57A 38 8 pulx +F57B CC B3 5C ..\ ldd #b35c +F57E BD F1 E8 ... jsr f1e8 ;jump57 +F581 FC 0C DF ... ldd 0cdf +F584 BD F2 4D ..M jsr f24d ;jump58 +F587 FE 0C F9 ... ldx 0cf9 +F58A 3C < pshx +F58B FC 0C F7 ... ldd 0cf7 +F58E BD F3 1F ... jsr f31f ;jump60 +F591 38 8 pulx +F592 CC B3 6E ..n ldd #b36e +F595 BD F1 E8 ... jsr f1e8 ;jump57 +F598 FC 0C E1 ... ldd 0ce1 +F59B BD F2 4D ..M jsr f24d ;jump58 +F59E FE 0C FD ... ldx 0cfd +F5A1 3C < pshx +F5A2 FC 0C FB ... ldd 0cfb +F5A5 BD F3 1F ... jsr f31f ;jump60 +F5A8 38 8 pulx +F5A9 CC B3 80 ... ldd #b380 +F5AC BD F1 E8 ... jsr f1e8 ;jump57 +F5AF FC 0C E3 ... ldd 0ce3 +F5B2 BD F2 4D ..M jsr f24d ;jump58 +F5B5 FE 0D 01 ... ldx 0d01 +F5B8 3C < pshx +F5B9 FC 0C FF ... ldd 0cff +F5BC BD F3 1F ... jsr f31f ;jump60 +F5BF 38 8 pulx +F5C0 CC B3 92 ... ldd #b392 +F5C3 BD F1 E8 ... jsr f1e8 ;jump57 +F5C6 FC 0C E5 ... ldd 0ce5 +F5C9 BD F2 4D ..M jsr f24d ;jump58 +F5CC FE 0D 05 ... ldx 0d05 +F5CF 3C < pshx +F5D0 FC 0D 03 ... ldd 0d03 +F5D3 BD F3 1F ... jsr f31f ;jump60 +F5D6 38 8 pulx +F5D7 CC 00 0A ... ldd #000a +F5DA BD F1 5B ..[ jsr f15b ;jump53 +F5DD CC B3 A4 ... ldd #b3a4 +F5E0 BD F1 E8 ... jsr f1e8 ;jump57 +F5E3 CC 00 0A ... ldd #000a +F5E6 BD F1 5B ..[ jsr f15b ;jump53 +F5E9 CC B3 B3 ... ldd #b3b3 +F5EC BD F1 E8 ... jsr f1e8 ;jump57 +F5EF FC 0C F1 ... ldd 0cf1 +F5F2 BD F2 99 ... jsr f299 ;jump61 +F5F5 CC B3 CA ... ldd #b3ca +F5F8 BD F1 E8 ... jsr f1e8 ;jump57 +F5FB F6 0C DC ... ldab 0cdc +F5FE 4F O clra +F5FF BD F2 0E ... jsr f20e ;jump62 +F602 FC 0C E9 ... ldd 0ce9 +F605 BD F2 99 ... jsr f299 ;jump61 +F608 CC B3 DC ... ldd #b3dc +F60B BD F1 E8 ... jsr f1e8 ;jump57 +F60E F6 0C DB ... ldab 0cdb +F611 4F O clra +F612 BD F2 0E ... jsr f20e ;jump62 +F615 FC 0C EB ... ldd 0ceb +F618 BD F2 99 ... jsr f299 ;jump61 +F61B CC B3 EE ... ldd #b3ee +F61E BD F1 E8 ... jsr f1e8 ;jump57 +F621 F6 0C DA ... ldab 0cda +F624 4F O clra +F625 BD F2 0E ... jsr f20e ;jump62 +F628 FC 0C ED ... ldd 0ced +F62B BD F2 99 ... jsr f299 ;jump61 +F62E CC B4 00 ... ldd #b400 +F631 BD F1 E8 ... jsr f1e8 ;jump57 +F634 F6 0C D9 ... ldab 0cd9 +F637 4F O clra +F638 BD F2 0E ... jsr f20e ;jump62 +F63B FC 0C EF ... ldd 0cef +F63E BD F2 99 ... jsr f299 ;jump61 +F641 CC 00 0A ... ldd #000a +F644 BD F1 5B ..[ jsr f15b ;jump53 +F647 CC B4 12 ... ldd #b412 +F64A BD F1 E8 ... jsr f1e8 ;jump57 +F64D FC 0D 07 ... ldd 0d07 +F650 BD F2 4D ..M jsr f24d ;jump58 +F653 FE 0D 11 ... ldx 0d11 +F656 3C < pshx +F657 FC 0D 0F ... ldd 0d0f +F65A BD F3 1F ... jsr f31f ;jump60 +F65D 38 8 pulx +F65E CC B4 24 ..$ ldd #b424 +F661 BD F1 E8 ... jsr f1e8 ;jump57 +F664 FC 0D 09 ... ldd 0d09 +F667 BD F2 4D ..M jsr f24d ;jump58 +F66A FE 0D 15 ... ldx 0d15 +F66D 3C < pshx +F66E FC 0D 13 ... ldd 0d13 +F671 BD F3 1F ... jsr f31f ;jump60 +F674 38 8 pulx +F675 CC B4 36 ..6 ldd #b436 +F678 BD F1 E8 ... jsr f1e8 ;jump57 +F67B FC 0D 0B ... ldd 0d0b +F67E BD F2 4D ..M jsr f24d ;jump58 +F681 FE 0D 19 ... ldx 0d19 +F684 3C < pshx +F685 FC 0D 17 ... ldd 0d17 +F688 BD F3 1F ... jsr f31f ;jump60 +F68B 38 8 pulx +F68C CC B4 48 ..H ldd #b448 +F68F BD F1 E8 ... jsr f1e8 ;jump57 +F692 FC 0D 0D ... ldd 0d0d +F695 BD F2 4D ..M jsr f24d ;jump58 +F698 FE 0D 1D ... ldx 0d1d +F69B 3C < pshx +F69C FC 0D 1B ... ldd 0d1b +F69F BD F3 1F ... jsr f31f ;jump60 +F6A2 38 8 pulx +F6A3 CC 00 0A ... ldd #000a +F6A6 BD F1 5B ..[ jsr f15b ;jump53 +F6A9 CC B4 5A ..Z ldd #b45a +F6AC BD F1 E8 ... jsr f1e8 ;jump57 +F6AF CC 00 0A ... ldd #000a +F6B2 BD F1 5B ..[ jsr f15b ;jump53 +F6B5 C6 01 .. ldab #01 +F6B7 F7 00 54 ..T stab 0054 +F6BA F6 00 54 ..T ldab 0054 +F6BD C1 63 .c cmpb #63 +F6BF 22 1B ". bhi 1b +F6C1 F6 00 54 ..T ldab 0054 +F6C4 4F O clra +F6C5 05 . asld +F6C6 C3 08 C8 ... addd #08c8 +F6C9 8F . xgdx +F6CA EC 00 .. ldd 00,x +F6CC C4 80 .. andb #80 +F6CE 27 07 '. beq 07 +F6D0 F6 00 54 ..T ldab 0054 +F6D3 4F O clra +F6D4 BD F3 C1 ... jsr f3c1 ;jump63 +F6D7 7C 00 54 |.T inc 0054 +F6DA 20 DE . bra de +F6DC CC 00 0A ... ldd #000a +F6DF BD F1 5B ..[ jsr f15b ;jump53 +F6E2 F6 00 19 ... ldab 0019 +F6E5 C4 40 .@ andb #40 +F6E7 26 07 &. bne 07 +F6E9 FE 0C E7 ... ldx 0ce7 +F6EC 08 . inx +F6ED FF 0C E7 ... stx 0ce7 +F6F0 CE 00 1D ... ldx #001d +F6F3 1D 00 01 ... bclr 00,x, #01 +F6F6 CC 03 E8 ... ldd #03e8 +F6F9 BD E5 71 ..q jsr e571 ;msdelay +F6FC C6 03 .. ldab #03 +F6FE F7 10 2B ..+ stab 102b ; back to 9600 baud +F701 CE 10 00 ... ldx #1000 +F704 1C 00 08 ... bset 00,x, #08 ; set back to coin mech +F707 F6 0B C0 ... ldab 0bc0 +F70A C4 02 .. andb #02 +F70C 27 06 '. beq 06 +F70E CC 00 80 ... ldd #0080 +F711 BD C7 E7 ... jsr c7e7 ;jump37 +F714 7F 00 38 ..8 clr 0038 +F717 39 9 rts + +rti: +F718 3C < pshx +F719 F6 0B C0 ... ldab 0bc0 +F71C C4 08 .. andb #08 +F71E 27 03 '. beq 03 +F720 BD C3 25 ..% jsr c325 ;jump64 +F723 7C 00 0C |.. inc 000c +F726 F6 00 0C ... ldab 000c +F729 C1 02 .. cmpb #02 +F72B 26 13 &. bne 13 +F72D 7F 00 0C ... clr 000c +F730 F6 00 07 ... ldab 0007 +F733 27 03 '. beq 03 +F735 7A 00 07 z.. dec 0007 +F738 F6 00 00 ... ldab 0000 +F73B 27 03 '. beq 03 +F73D 7A 00 00 z.. dec 0000 +F740 7C 00 0B |.. inc 000b +F743 F6 00 0B ... ldab 000b +F746 C1 08 .. cmpb #08 +F748 26 37 &7 bne 37 ; to f781 +F74A 7F 00 0B ... clr 000b +F74D FC 00 3B ..; ldd 003b +F750 27 07 '. beq 07 +F752 FE 00 3B ..; ldx 003b +F755 09 . dex +F756 FF 00 3B ..; stx 003b +F759 CC 00 2C .., ldd #002c +F75C 30 0 tsx +F75D ED 00 .. std 00,x +F75F 30 0 tsx +F760 EC 00 .. ldd 00,x +F762 37 7 pshb +F763 36 6 psha +F764 CC 00 3A ..: ldd #003a +F767 30 0 tsx +F768 A3 00 .. subd 00,x +F76A 31 1 ins +F76B 31 1 ins +F76C 25 13 %. bcs 13 +F76E 30 0 tsx +F76F EE 00 .. ldx 00,x +F771 E6 00 .. ldab 00,x +F773 27 07 '. beq 07 +F775 30 0 tsx +F776 EE 00 .. ldx 00,x +F778 6A 00 j. dec 00,x +F77A E6 00 .. ldab 00,x +F77C 38 8 pulx +F77D 08 . inx +F77E 3C < pshx +F77F 20 DE . bra de ; to f75f + +F781 F6 00 32 ..2 ldab 0032 +F784 27 07 '. beq 07 ; to f78d +F786 F6 00 32 ..2 ldab 0032 +F789 C4 02 .. andb #02 +F78B 26 08 &. bne 08 ; to f795 + +F78D CE 10 00 ... ldx #1000 ; chime off +F790 1D 00 10 .. bclr 00,x, #10 +F793 20 0D . bra 0d ; to f7a2 + +F795 F6 00 32 ..2 ldab 0032 +F798 C4 01 .. andb #01 +F79A 26 06 &. bne 06 ; to f7a2 +F79C CE 10 00 ... ldx #1000 ; chime on +F79F 1C 00 10 .. bset 00,x, #10 + +F7A2 7C 00 4C |.L inc 004c +F7A5 F6 00 4C ..L ldab 004c +F7A8 C1 4B .K cmpb #4b +F7AA 26 13 &. bne 13 +F7AC 7F 00 4C ..L clr 004c +F7AF F6 00 4F ..O ldab 004f +F7B2 27 03 '. beq 03 +F7B4 7A 00 4F z.O dec 004f +F7B7 F6 00 25 ..% ldab 0025 +F7BA 27 03 '. beq 03 +F7BC 7A 00 25 z.% dec 0025 +F7BF F6 00 31 ..1 ldab 0031 +F7C2 26 03 &. bne 03 +F7C4 BD FE 69 ..i jsr fe69 ;inhibit interrupts +F7C7 F6 00 7F ... ldab 007f +F7CA 27 03 '. beq 03 +F7CC BD FE 69 ..i jsr fe69 ;inhibit interrupts +F7CF C6 40 .@ ldab #40 +F7D1 F7 10 25 ..% stab 1025 +F7D4 38 8 pulx +F7D5 3B ; rti + +main: + +F7D6 7F 00 14 ... clr 0014 ;0 -> 0014 + +; clears the bits of U14 flipflop +F7D9 5F _ clrb ;0 -> B +F7DA F7 38 00 .8. stab 3800 ;B -> 3800 + +F7DD C6 7F .. ldab #7f ;7F -> B +F7DF F7 00 1A ... stab 001a ;B -> 001a + +; set changer outputs all on, row motors off +F7E2 C6 7F .. ldab #7f ;7F -> B +F7E4 F7 30 00 .0. stab 3000 ; + +; sets priority select bits 0-3 (elevates interrupt priority of all interrupts) +F7E7 C6 07 .. ldab #07 ;7 -> B +F7E9 F7 10 3C ..< stab 103c + +; Set PA7 output, PA3 input, RT clock rate to 314 Hz (4.9152Mhz / 2^14) +F7EC C6 81 .. ldab #81 ;81 -> B +F7EE F7 10 26 ..& stab 1026 + +; clear ADC register +F7F1 5F _ clrb ;0 -> B +F7F2 F7 10 30 ..0 stab 1030 + +; talk to coin mech, beep, tie clock motors & display reset high (off) +F7F5 C6 C8 .. ldab #c8 ;c8 -> B ; 11001000 +F7F7 F7 10 00 ... stab 1000 ; to port A + +; sets PortD directions. XXX: Why is PD2 an output? +F7FA C6 3E .> ldab #3e ;3e -> B 00111110 +F7FC F7 10 09 ... stab 1009 ; port D DDR + +; make PortD pins open-drain, set clock polarity +F7FF C6 12 .. ldab #12 ;12 -> B +F801 F7 10 28 ..( stab 1028 ; SPCR 00101000 + +; initialize the display +F804 BD BE 69 ..i jsr be69 ;displayreset + +; initialize the bill validator +F807 BD EA 59 ..Y jsr ea59 ;jump65 + +F80A CC 00 64 ..d ldd #0064 ; 100-unit delay +F80D BD E5 71 ..q jsr e571 ;msdelay +; lotsa text +F810 CC B1 EF ... ldd #b1ef " ROWE INT " +F813 BD C0 BA ... jsr c0ba ;display: +F816 CC 01 F4 ... ldd #01f4 ; 500-unit delay +F819 BD E5 71 ..q jsr e571 ;msdelay +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 ;msdelay +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 ;msdelay +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 ;msdelay + + +F840 7F 00 7F ... clr 007f +F843 7F 00 21 ..! clr 0021 +F846 7F 00 1F ... clr 001f +F849 7F 00 1D ... clr 001d +F84C 7F 00 1B ... clr 001b +F84F 7F 00 19 ... clr 0019 + +F852 F6 0B C0 ... ldab 0bc0 +F855 C4 01 .. andb #01 +F857 27 08 '. beq 08 ; to f861 +F859 CE 0B C1 ... ldx #0bc1 +F85C 1C 00 01 ... bset 00,x, #01 +F85F 20 06 . bra 06 ; to f867 +F861 CE 0B C1 ... ldx #0bc1 +F864 1D 00 01 ... bclr 00,x, #01 + +F867 F6 0B C0 ... ldab 0bc0 +F86A C4 04 .. andb #04 +F86C 27 08 '. beq 08 ; to f876 +F86E CE 0B C1 ... ldx #0bc1 +F871 1C 00 02 ... bset 00,x, #02 +F874 20 06 . bra 06 ; to f87c +F876 CE 0B C1 ... ldx #0bc1 +F879 1D 00 02 .. bclr 00,x, #02 +F87C CE 0B C1 ... ldx #0bc1 +F87F 1D 00 04 .. bclr 00,x, #04 +F882 F6 0B C0 ... ldab 0bc0 +F885 C4 02 .. andb #02 +F887 27 2D '- beq 2d ; to f8b6 +F889 C6 3C .< ldab #3c +F88B F7 00 31 ..1 stab 0031 +F88E 0E . cli +F88F CC 00 FF ... ldd #00ff +F892 BD C7 E7 ... jsr c7e7 ;jump37 +F895 5F _ clrb +F896 4F O clra +F897 FD 00 40 ..@ std 0040 +F89A C6 10 .. ldab #10 +F89C F7 10 2C .., stab 102c ; set 9N1 +F89F C6 2E .. ldab #2e +F8A1 F7 10 2D ..- stab 102d ; enable SCI transmission +F8A4 C6 03 .. ldab #03 +F8A6 F7 10 2B ..+ stab 102b ; set 9600 baud +F8A9 C6 46 .F ldab #46 ; 70 +F8AB F7 00 2F ../ stab 002f +F8AE CC 07 D0 ... ldd #07d0 +F8B1 BD E5 71 ..q jsr e571 ;msdelay +F8B4 20 2B + bra 2b ; to f8e1 +F8B6 BD D0 94 ... jsr d094 ;jump66 - init variables +F8B9 C6 27 .' ldab #27 +F8BB F7 10 2D ..- stab 102d ; disable SCI transmission +F8BE C6 07 .. ldab #07 +F8C0 F7 10 2B ..+ stab 102b ; set 600 baud +; reset the changer +F8C3 CE 00 1A ... ldx #001a +F8C6 1C 00 04 .. bset 00,x, #04 +F8C9 F6 00 1A ... ldab 001a +F8CC F7 30 00 .0. stab 3000 ; reset the changer +F8CF CC 07 D0 ... ldd #07d0 +F8D2 BD E5 71 ..q jsr e571 ;msdelay +F8D5 CE 00 1A ... ldx #001a +F8D8 1D 00 04 .. bclr 00,x, #04 +F8DB F6 00 1A ... ldab 001a +F8DE F7 30 00 .0. stab 3000 ; pull reset line back +; +F8E1 7F 0E 6A ..j clr 0e6a +F8E4 BD D4 79 ..y jsr d479 ;jump67 +F8E7 BD E8 9A ... jsr e89a ;jump68 +F8EA 7F 00 06 ... clr 0006 +F8ED CE 00 1D ... ldx #001d +F8F0 1C 00 10 .. bset 00,x, #10 +F8F3 CC 05 DC ... ldd #05dc +F8F6 BD E5 71 ..q jsr e571 ;msdelay +F8F9 C6 1E .. ldab #1e +F8FB F7 00 35 ..5 stab 0035 +F8FE 0E . cli + +; begin of main loop +goto85: +F8FF BD E6 1B ... jsr e61b ;jump4 set 0031 to 10 +F902 BD D1 05 ... jsr d105 ;jump32 motors off +F905 F6 10 0A ... ldab 100a +F908 C4 08 .. andb #08 ; 24VUN line too low +F90A 27 46 'F beq 46 ; to f952 +F90C F6 10 0A ... ldab 100a +F90F C4 08 .. andb #08 +F911 27 11 '. beq 11 +F913 CE 00 1A ... ldx #001a +F916 1C 00 04 .. bset 00,x, #04 +F919 F6 00 1A ... ldab 001a +F91C F7 30 00 .0. stab 3000 ; changer reset +F91F BD E6 1B ... jsr e61b ;jump4 +F922 20 E8 . bra e8 +F924 BD D0 94 ... jsr d094 ;jump66 +F927 F6 0B C0 ... ldab 0bc0 +F92A C4 01 .. andb #01 +F92C 27 06 '. beq 06 +F92E CE 0B C1 ... ldx #0bc1 +F931 1C 00 01 .. bset 00,x, #01 +F934 F6 0B C0 ... ldab 0bc0 +F937 C4 04 .. andb #04 +F939 27 06 '. beq 06 +F93B CE 0B C1 ... ldx #0bc1 +F93E 1C 00 02 .. bset 00,x, #02 +F941 CE 00 1A ... ldx #001a +F944 1D 00 04 .. bclr 00,x, #04 +F947 F6 00 1A ... ldab 001a +F94A F7 30 00 .0. stab 3000 ; clear send & reset lines +F94D C6 1E .. ldab #1e +F94F F7 00 35 ..5 stab 0035 +; +F952 F6 0B C0 ... ldab 0bc0 +F955 C4 08 .. andb #08 +F957 27 16 '. beq 16 ; to f96f +F959 CE 00 02 ... ldx #0002 +F95C 3C < pshx +F95D CC 10 00 ... ldd #1000 +F960 BD E5 D7 ... jsr e5d7 ;jump69 - poll bill validator +F963 38 8 pulx +F964 83 00 00 ... subd #0000 +F967 27 06 '. beq 06 +F969 CE 0B C1 ... ldx #0bc1 +F96C 1C 00 08 .. bset 00,x, #08 ; set bill error bit +; +F96F F6 0B C1 ... ldab 0bc1 +F972 C4 07 .. andb #07 +F974 27 0D '. beq 0d ; to f983 +F976 F6 00 35 ..5 ldab 0035 +F979 26 08 &. bne 08 +F97B CE 00 21 ..! ldx #0021 +F97E 1C 00 20 .. bset 00,x, #20 +F981 20 06 .. bra 06 ; to f989 +; +F983 CE 00 21 ..! ldx #0021 +F986 1D 00 20 .. bclr 00,x, #20 +F989 BD BB 63 . jsr bb63 ;jump200 - read the keypad +F98C BD B8 00 ... jsr b800 ;jump201 - interpret the keys and write to the display +F98F F6 0B C0 ... ldab 0bc0 +F992 C4 01 .. andb #01 +F994 27 0B '. beq 0b +F996 FC 00 40 ..@ ldd 0040 +F999 F3 00 3E ..> addd 003e +F99C 26 03 &. bne 03 +F99E BD D6 F6 ... jsr d6f6 ;jump106 +F9A1 F6 00 12 ... ldab 0012 +F9A4 C4 20 . andb #20 ; test door switch +F9A6 27 08 '. beq 08 +F9A8 F6 00 35 ..5 ldab 0035 +F9AB 26 03 &. bne 03 +F9AD 7E FA 79 ~.y jmp fa79 ;goto83 +F9B0 CE 00 1F ... ldx #001f +F9B3 1D 00 04 ... bclr 00,x, #04 +F9B6 CE 00 1D ... ldx #001d +F9B9 1C 00 10 ... bset 00,x, #10 +F9BC F6 00 1F ... ldab 001f +F9BF C4 20 . andb #20 +F9C1 26 03 &. bne 03 +F9C3 7E FA 74 ~.t jmp fa74 ;goto84 +F9C6 F6 0B C0 ... ldab 0bc0 +F9C9 C4 01 .. andb #01 +F9CB 27 08 '. beq 08 +F9CD CE 0B C1 ... ldx #0bc1 +F9D0 1C 00 01 ... bset 00,x, #01 ; set changer powerup error +F9D3 20 06 . bra 06 +F9D5 CE 0B C1 ... ldx #0bc1 +F9D8 1D 00 01 ... bclr 00,x, #01 ; unset changer powerup error +F9DB F6 0B C0 ... ldab 0bc0 +F9DE C4 04 .. andb #04 +F9E0 27 08 '. beq 08 +F9E2 CE 0B C1 ... ldx #0bc1 +F9E5 1C 00 02 ... bset 00,x, #02 ; set card powerup error +F9E8 20 06 . bra 06 +F9EA CE 0B C1 ... ldx #0bc1 +F9ED 1D 00 02 ... bclr 00,x, #02 ; unset card powerup error +F9F0 CE 0B C1 ... ldx #0bc1 +F9F3 1D 00 04 ... bclr 00,x, #04 ; unset link powerup error +F9F6 CE 00 1B ... ldx #001b +F9F9 1D 00 02 ... bclr 00,x, #02 +F9FC F6 0B C0 ... ldab 0bc0 +F9FF C4 02 .. andb #02 +FA01 27 27 '' beq 27 +FA03 C6 3C .< ldab #3c +FA05 F7 00 31 ..1 stab 0031 +FA08 0E . cli +FA09 CC 00 FF ... ldd #00ff +FA0C BD C7 E7 ... jsr c7e7 ;jump37 +FA0F 5F _ clrb +FA10 4F O clra +FA11 FD 00 40 ..@ std 0040 +FA14 C6 10 .. ldab #10 +FA16 F7 10 2C .., stab 102c ; set 9N1 +FA19 C6 2E .. ldab #2e +FA1B F7 10 2D ..- stab 102d ; enable SCI transmission +FA1E C6 03 .. ldab #03 +FA20 F7 10 2B ..+ stab 102b ; 9600 baud +FA23 C6 46 .F ldab #46 ; 70 +FA25 F7 00 2F ../ stab 002f +FA28 20 31 1 bra 31 +FA2A CE 00 21 ..! ldx #0021 +FA2D 1D 00 40 ... bclr 00,x, #40 +FA30 BD D0 94 ... jsr d094 ;jump66 - init variables +FA33 C6 27 .' ldab #27 +FA35 F7 10 2D ..- stab 102d ; disable SCI transmission +FA38 C6 07 .. ldab #07 +FA3A F7 10 2B ..+ stab 102b ; 600 baud +FA3D CE 00 1A ... ldx #001a +FA40 1C 00 04 ... bset 00,x, #04 +FA43 F6 00 1A ... ldab 001a +FA46 F7 30 00 .0. stab 3000 ; changer reset line high +FA49 CC 00 32 ..2 ldd #0032 +FA4C BD E5 71 ..q jsr e571 ;msdelay +FA4F CE 00 1A ... ldx #001a +FA52 1D 00 04 ... bclr 00,x, #04 +FA55 F6 00 1A ... ldab 001a +FA58 F7 30 00 .0. stab 3000 ; changer reset line low +FA5B BD D4 79 ..y jsr d479 ;jump67 +FA5E BD E8 9A ... jsr e89a ;jump68 +FA61 BD BE 69 ..i jsr be69 ;displayreset +FA64 7F 00 06 ... clr 0006 +FA67 CE 00 1F ... ldx #001f +FA6A 1D 00 .. bclr add,x 00,x +FA6C 20 C6 . bra c6 +FA6E 1E F7 00 35 ...5 brset f7,x 00 35 +FA72 20 03 . bra 03 +goto84: +FA74 BD DE E7 ... jsr dee7 ;jump116 +FA77 20 66 f bra 66 +goto83: +FA79 F6 00 12 ... ldab 0012 +FA7C C4 20 . andb #20 +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 ;jump12 +FA8A CE 00 1F ... ldx #001f +FA8D 1C 00 .. bset add,x 00,x +FA8F 20 F6 . bra f6 +FA91 00 . test +FA92 12 . brset +FA93 C4 01 .. andb #01 +FA95 26 33 &3 bne 33 +FA97 F6 00 1D ... ldab 001d +FA9A C4 08 .. andb #08 +FA9C 27 2A '* beq 2a ; to fac8, to fad0 +FA9E F6 00 1F ... ldab 001f +FAA1 C4 04 .. andb #04 +FAA3 26 14 &. bne 14 +FAA5 CE 00 1F ... ldx #001f +FAA8 1C 00 04 ... bset 00,x, #04 +FAAB CE 00 1F ... ldx #001f +FAAE 1C 00 .. bset add,x 00,x +FAB0 80 CC .. suba #cc +FAB2 02 . idiv +FAB3 33 3 pulb +FAB4 FD 00 3B ..; std 003b +FAB7 20 09 . bra 09 ; to fac2 +; +FAB9 BD E5 AA ... jsr e5aa ;jump12 +FABC CE 00 1F ... ldx #001f +FABF 1D 00 04 ... bclr 00,x, #04 +FAC2 CE 00 1D ... ldx #001d +FAC5 1D 00 08 ... bclr 00,x, #08 +FAC8 20 06 . bra 06 ; to fad0 +FACA CE 00 1D ... ldx #001d +FACD 1C 00 08 ... bset 00,x, #08 +FAD0 F6 00 1F ... ldab 001f +FAD3 C4 04 .. andb #04 +FAD5 26 05 &. bne 05 ; to fadc - service menu +FAD7 BD 81 00 ... jsr 8100 ;jump72 - preservice menu? +FADA 20 03 . bra 03 +FADC BD 84 A0 ... jsr 84a0 ;jump73 +FADF 7E F8 FF ~.. jmp f8ff ;goto85 +; main should never return in theory. + + +; error interrupts (see vectors at end) +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 ;msdelay +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 ;msdelay +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 ;msdelay +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 ;msdelay +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 ;msdelay +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 ;msdelay +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 ;msdelay +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 ;msdelay +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 ;msdelay +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 ;msdelay +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 ;msdelay +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 ;msdelay +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 ;msdelay +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 ;msdelay +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 ;msdelay +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 ;msdelay +FBB1 3B ; rti +FBB2 BD FE 69 ..i jsr fe69 ;inhibit interrupts +FBB5 3B ; rti +FBB6 BD FE 69 ..i jsr fe69 ;inhibit interrupts +FBB9 3B ; rti + +jump38: +; passed a u16 on the stack, i, and a u16 in D, j +; multiplication funciton of some sort? +FBBA 3C < pshx +FBBB 37 7 pshb +FBBC 30 0 tsx +FBBD E6 06 .. ldab 06,x ; lower 8-bits of i +FBBF 3D = mul ; A*B => D +FBC0 A6 00 .. ldaa 00,x +FBC2 37 7 pshb +FBC3 E6 05 .. ldab 05,x +FBC5 3D = mul +FBC6 32 2 pula +FBC7 1B . aba +FBC8 33 3 pulb +FBC9 36 6 psha +FBCA A6 06 .. ldaa 06,x +FBCC 3D = mul +FBCD 37 7 pshb +FBCE AB 00 .. adda 00,x +FBD0 36 6 psha +FBD1 EC 03 .. ldd 03,x +FBD3 ED 05 .. std 05,x +FBD5 38 8 pulx +FBD6 8F . xgdx +FBD7 83 00 00 ... subd #0000 +FBDA 31 1 ins +FBDB 38 8 pulx +FBDC 31 1 ins +FBDD 31 1 ins +FBDE 39 9 rts + +jump46: +FBDF BD FB E8 ... jsr fbe8 ;jump86 +FBE2 BD FC 25 ..% jsr fc25 ;jump85 +FBE5 7E FC 04 ~.. jmp fc04 ;goto87 + +jump86: +FBE8 3C < pshx +FBE9 8F . xgdx +FBEA EC 02 .. ldd 02,x +FBEC 37 7 pshb +FBED 36 6 psha +FBEE EC 00 .. ldd 00,x +FBF0 37 7 pshb +FBF1 36 6 psha +FBF2 34 4 des +FBF3 34 4 des +FBF4 34 4 des +FBF5 34 4 des +FBF6 3C < pshx +FBF7 30 0 tsx +FBF8 EC 12 .. ldd 12,x +FBFA ED 04 .. std 04,x +FBFC EC 0C .. ldd 0c,x +FBFE ED 02 .. std 02,x +FC00 EC 10 .. ldd 10,x +FC02 38 8 pulx +FC03 39 9 rts + +goto87: +FC04 ED 00 .. std 00,x +FC06 3C < pshx +FC07 30 0 tsx +FC08 EC 08 .. ldd 08,x +FC0A ED 0A .. std 0a,x +FC0C EC 02 .. ldd 02,x +FC0E ED 0C .. std 0c,x +FC10 38 8 pulx +FC11 ED 02 .. std 02,x +FC13 EC 00 .. ldd 00,x +FC15 26 06 &. bne 06 +FC17 6D 02 m. tst 02,x +FC19 26 02 &. bne 02 +FC1B 6D 03 m. tst 03,x +FC1D 31 1 ins +FC1E 31 1 ins +FC1F 38 8 pulx +FC20 31 1 ins +FC21 31 1 ins +FC22 31 1 ins +FC23 31 1 ins +FC24 39 9 rts + +jump85: +FC25 3C < pshx +FC26 30 0 tsx +FC27 E3 06 .. addd 06,x +FC29 37 7 pshb +FC2A 36 6 psha +FC2B EC 02 .. ldd 02,x +FC2D ED 06 .. std 06,x +FC2F EC 04 .. ldd 04,x +FC31 E3 08 .. addd 08,x +FC33 ED 08 .. std 08,x +FC35 32 2 pula +FC36 33 3 pulb +FC37 C9 00 .. adcb #00 +FC39 89 00 .. adca #00 +FC3B 83 00 00 ... subd #0000 +FC3E 26 06 &. bne 06 +FC40 6D 08 m. tst 08,x +FC42 26 02 &. bne 02 +FC44 6D 09 m. tst 09,x +FC46 38 8 pulx +FC47 31 1 ins +FC48 31 1 ins +FC49 31 1 ins +FC4A 31 1 ins +FC4B 39 9 rts + +jump83: +FC4C 3C < pshx +FC4D 3C < pshx +FC4E 37 7 pshb +FC4F 36 6 psha +FC50 3C < pshx +FC51 3C < pshx +FC52 3C < pshx +FC53 18 3C .< pshy +FC55 30 0 tsx +FC56 4F O clra +FC57 A7 04 .. staa 04,x +FC59 7E FC 6D ~.m jmp fc6d ;goto88 + +jump82: +FC5C 3C < pshx +FC5D 3C < pshx +FC5E 37 7 pshb +FC5F 36 6 psha +FC60 3C < pshx +FC61 3C < pshx +FC62 3C < pshx +FC63 18 3C .< pshy +FC65 30 0 tsx +FC66 86 01 .. ldaa #01 +FC68 A7 04 .. staa 04,x +FC6A 7E FC 6D ~.m jmp fc6d ;goto88 +goto88: +FC6D 1A EE 0E ... ldy 0e,x +FC70 EC 08 .. ldd 08,x +FC72 ED 0E .. std 0e,x +FC74 EC 14 .. ldd 14,x +FC76 ED 0C .. std 0c,x +FC78 EC 12 .. ldd 12,x +FC7A ED 0A .. std 0a,x +FC7C 1A EF 12 ... sty 12,x +FC7F 4F O clra +FC80 5F _ clrb +FC81 ED 08 .. std 08,x +FC83 ED 06 .. std 06,x +FC85 EC 0A .. ldd 0a,x +FC87 1A A3 0E ... cmpd 0e,x +FC8A 22 23 "# bhi 23 +FC8C 27 15 '. beq 15 +FC8E 1E 04 01 08 .... brset 04,x 01 08 +FC92 CC 00 00 ... ldd #0000 +FC95 ED 14 .. std 14,x +FC97 7E FE 04 ~.. jmp fe04 ;goto89 +FC9A EC 0C .. ldd 0c,x +FC9C ED 14 .. std 14,x +FC9E EC 0A .. ldd 0a,x +FCA0 7E FD E3 ~.. jmp fde3 ;goto90 +FCA3 83 00 00 ... subd #0000 +FCA6 27 12 '. beq 12 +FCA8 EC 0C .. ldd 0c,x +FCAA 1A A3 10 ... cmpd 10,x +FCAD 25 DF %. bcs df +FCAF 6D 0E m. tst 0e,x +FCB1 26 70 &p bne 70 +FCB3 6D 0F m. tst 0f,x +FCB5 27 1A '. beq 1a +FCB7 7E FD A4 ~.. jmp fda4 ;goto91 +FCBA 3C < pshx +FCBB 3C < pshx +FCBC 18 38 .8 puly +FCBE EC 0C .. ldd 0c,x +FCC0 EE 10 .. ldx 10,x +FCC2 02 . idiv +FCC3 18 1E 04 01 01 ..... brset 04,y 01 01 +FCC8 8F . xgdx +FCC9 38 8 pulx +FCCA ED 14 .. std 14,x +FCCC 4F O clra +FCCD 5F _ clrb +FCCE 7E FD E3 ~.. jmp fde3 ;goto90 +FCD1 3C < pshx +FCD2 3C < pshx +FCD3 18 38 .8 puly +FCD5 EC 0A .. ldd 0a,x +FCD7 EE 10 .. ldx 10,x +FCD9 3C < pshx +FCDA 02 . idiv +FCDB CD EF 0A ... stx 02x,y +FCDE 38 8 pulx +FCDF 3C < pshx +FCE0 03 . fdiv +FCE1 CD EF 0E ... stx 02x,y +FCE4 38 8 pulx +FCE5 18 E3 0C ... addd 0c,y +FCE8 24 1B $. bcc 1b +FCEA 18 ED 0C ... std 0c,y +FCED 4F O clra +FCEE C6 01 .. ldab #01 +FCF0 3C < pshx +FCF1 03 . fdiv +FCF2 8F . xgdx +FCF3 18 E3 0E ... addd 0e,y +FCF6 24 03 $. bcc 03 +FCF8 18 6C 0A .l. inc 0a,y +FCFB 18 ED 0E ... std 0e,y +FCFE 8F . xgdx +FCFF 38 8 pulx +FD00 18 E3 0C ... addd 0c,y +FD03 25 E5 %. bcs e5 +FD05 02 . idiv +FD06 8F . xgdx +FD07 18 E3 0E ... addd 0e,y +FD0A 24 03 $. bcc 03 +FD0C 18 6C 0A .l. inc 0a,y +FD0F 18 1F 04 01 07 ..... brclr 04,y 01 07 +FD14 8F . xgdx +FD15 18 6F 0A .o. clr 0a,y +FD18 18 6F 0B .o. clr 0b,y +FD1B 38 8 pulx +FD1C ED 14 .. std 14,x +FD1E EC 0A .. ldd 0a,x +FD20 7E FD E3 ~.. jmp fde3 ;goto90 +FD23 86 08 .. ldaa #08 +FD25 A7 05 .. staa 05,x +FD27 69 i rol +FD28 0D . sec +FD29 69 i rol +FD2A 0C . clc +FD2B 69 i rol +FD2C 0B . sev +FD2D 69 i rol +FD2E 0A . clv +FD2F 69 i rol +FD30 09 . dex +FD31 EC 0B .. ldd 0b,x +FD33 A3 10 .. subd 10,x +FD35 ED 14 .. std 14,x +FD37 EC 09 .. ldd 09,x +FD39 E2 0F .. sbcb 0f,x +FD3B A2 0E .. sbca 0e,x +FD3D 25 06 %. bcs 06 +FD3F ED 09 .. std 09,x +FD41 EC 14 .. ldd 14,x +FD43 ED 0B .. std 0b,x +FD45 6A 05 j. dec 05,x +FD47 26 DE &. bne de +FD49 69 i rol +FD4A 0D . sec +FD4B 1F 04 01 09 .... brclr 04,x 01 09 +FD4F EC 0B .. ldd 0b,x +FD51 ED 14 .. std 14,x +FD53 EC 09 .. ldd 09,x +FD55 7E FD E3 ~.. jmp fde3 ;goto90 +FD58 4F O clra +FD59 E6 0D .. ldab 0d,x +FD5B 53 S comb +FD5C ED 14 .. std 14,x +FD5E 5F _ clrb +FD5F 7E FD E3 ~.. jmp fde3 ;goto90 +FD62 86 10 .. ldaa #10 +FD64 A7 05 .. staa 05,x +FD66 69 i rol +FD67 0D . sec +FD68 69 i rol +FD69 0C . clc +FD6A 69 i rol +FD6B 0B . sev +FD6C 69 i rol +FD6D 0A . clv +FD6E 69 i rol +FD6F 09 . dex +FD70 69 i rol +FD71 08 . inx +FD72 EC 0A .. ldd 0a,x +FD74 A3 10 .. subd 10,x +FD76 ED 14 .. std 14,x +FD78 EC 08 .. ldd 08,x +FD7A E2 0F .. sbcb 0f,x +FD7C 82 00 .. sbca #00 +FD7E 25 06 %. bcs 06 +FD80 ED 08 .. std 08,x +FD82 EC 14 .. ldd 14,x +FD84 ED 0A .. std 0a,x +FD86 6A 05 j. dec 05,x +FD88 26 DC &. bne dc +FD8A 69 i rol +FD8B 0D . sec +FD8C 69 i rol +FD8D 0C . clc +FD8E 1F 04 01 08 .... brclr 04,x 01 08 +FD92 EC 0A .. ldd 0a,x +FD94 ED 14 .. std 14,x +FD96 EC 08 .. ldd 08,x +FD98 20 49 I bra 49 +FD9A EC 0C .. ldd 0c,x +FD9C 43 C coma +FD9D 53 S comb +FD9E ED 14 .. std 14,x +FDA0 4F O clra +FDA1 5F _ clrb +FDA2 20 3F ? bra 3f +goto91: +FDA4 2B BC +. bmi bc +FDA6 86 10 .. ldaa #10 +FDA8 A7 05 .. staa 05,x +FDAA 69 i rol +FDAB 0D . sec +FDAC 69 i rol +FDAD 0C . clc +FDAE 69 i rol +FDAF 0B . sev +FDB0 69 i rol +FDB1 0A . clv +FDB2 69 i rol +FDB3 07 . tpa +FDB4 EC 0A .. ldd 0a,x +FDB6 A3 10 .. subd 10,x +FDB8 ED 14 .. std 14,x +FDBA A6 07 .. ldaa 07,x +FDBC A2 0F .. sbca 0f,x +FDBE 25 06 %. bcs 06 +FDC0 A7 07 .. staa 07,x +FDC2 EC 14 .. ldd 14,x +FDC4 ED 0A .. std 0a,x +FDC6 6A 05 j. dec 05,x +FDC8 26 E0 &. bne e0 +FDCA 69 i rol +FDCB 0D . sec +FDCC 69 i rol +FDCD 0C . clc +FDCE 1F 04 01 09 .... brclr 04,x 01 09 +FDD2 EC 0A .. ldd 0a,x +FDD4 ED 14 .. std 14,x +FDD6 4F O clra +FDD7 E6 07 .. ldab 07,x +FDD9 20 08 . bra 08 +FDDB EC 0C .. ldd 0c,x +FDDD 43 C coma +FDDE 53 S comb +FDDF ED 14 .. std 14,x +FDE1 4F O clra +FDE2 5F _ clrb +goto90: +FDE3 1F 04 80 12 .... brclr 04,x 80 12 +FDE7 43 C coma +FDE8 53 S comb +FDE9 63 14 c. com 14,x +FDEB 63 15 c. com 15,x +FDED 6C 15 l. inc 15,x +FDEF 26 08 &. bne 08 +FDF1 6C 14 l. inc 14,x +FDF3 26 04 &. bne 04 +FDF5 5C \ incb +FDF6 26 01 &. bne 01 +FDF8 4C L inca +FDF9 83 00 00 ... subd #0000 +FDFC 26 06 &. bne 06 +FDFE 6D 14 m. tst 14,x +FE00 26 02 &. bne 02 +FE02 6D 15 m. tst 15,x +goto89: +FE04 18 38 .8 puly +FE06 38 8 pulx +FE07 31 1 ins +FE08 31 1 ins +FE09 31 1 ins +FE0A 31 1 ins +FE0B 31 1 ins +FE0C 31 1 ins +FE0D 31 1 ins +FE0E 31 1 ins +FE0F 31 1 ins +FE10 31 1 ins +FE11 31 1 ins +FE12 31 1 ins +FE13 31 1 ins +FE14 31 1 ins +FE15 39 9 rts + +jump2: +; passed a structure (in code following the call to jump2) and a number D +; popular D candidates come from $48, $42, $9, $a, etc... +; D must be between 0 and len, inclusive. +; structure { +; u16 var1, len; +; u16 jmplocs[len+2]; +; } +FE16 38 8 pulx +FE17 A3 00 .. subd 00,x ; D -= var1 +FE19 2D 05 -. blt 05 ; if D<0, to fe20, where D=-1 +FE1B 1A A3 02 ... cmpd 02,x ; +FE1E 2F 03 /. ble 03 ; if D > len, D=-1, else to fe23 +FE20 CC FF FF ... ldd #ffff +FE23 3C < pshx ; push return ptr back onto stack +FE24 05 . asld ; D *= 2 +FE25 30 0 tsx +FE26 E3 00 .. addd 00,x ; D += return-ptr +FE28 C3 00 06 ... addd #0006 ; + 6 +FE2B 8F . xgdx +FE2C EC 00 .. ldd 00,x ; return ptr = jmplocs[orig D] +FE2E 30 0 tsx +FE2F ED 00 .. std 00,x +FE31 39 9 rts + +jump25: +; this looks like a switch statement +; we're passed an array of 4-byte items... this is passed in the code segment +; we take the return address and start counting until we hit a double zero. +; hence much of the code following this call in a standard disassembly is garbage +; we also look at D - common values passed to use are contents of $9, $12, $15, $4A or the SCI $102f +FE32 38 8 pulx +FE33 6D 04 m. tst 04,x +FE35 26 04 &. bne 04 ; to fe3b if this is not the last one +FE37 6D 05 m. tst 05,x ; double check it really is last one. +FE39 27 0A '. beq 0a ; to fe45 +FE3B A3 02 .. subd 02,x ; subtract lower order bits from D +FE3D 27 06 '. beq 06 ; to fe45 +FE3F 08 . inx ; move the array index up one +FE40 08 . inx +FE41 08 . inx +FE42 08 . inx +FE43 20 EE . bra ee ; to fe33 +FE45 EE 00 .. ldx 00,x ; return to our destination address +FE47 6E 00 n. jmp 00,x + + reset: + +; Enable the Real-time Interrupt (periodic hw interrupt) +FE49 86 40 .@ ldaa #40 ;40 -> A +FE4B B7 10 24 ..$ staa 1024 ;A -> 1024 +; Enable the ADC & configure IRQ' for edge-sensitive only operation +FE4E 86 A0 .. ldaa #a0 ;a0 -> A +FE50 B7 10 39 ..9 staa 1039 ;A -> 1039 +; Set a stack pointer? +FE53 8E 00 EF ... lds #00ef +; Zero out the first 128 bytes of ram. +FE56 CE 00 00 ... ldx #0000 ;wipe 0000-007f X=0000 +FE59 8C 00 80 ... cpx #0080 ;loop: if X = 0080 +FE5C 24 05 $. bcc fe63 ; finished +FE5E 6F 00 o. clr 00,x ; else: load addr X with 0 +FE60 08 . inx ; increment X +FE61 20 F6 . bra fe59 ;repeat + +; Jump to main procedure +FE63 BD F7 D6 ... jsr f7d6 ;goto main: +FE66 7E FE 6D ~.m jmp fe6d ; goto91 + +; Reboot function for when things go astray? +FE69 0F . sei ;inhibit interrupts +FE6A 7E FE 49 ~.I jmp fe49 ;goto reset: + +; loop forever - called after main is exited. +goto91: +FE6D 20 FE . bra fe6d ;loop forever + ;[SAF] - wait for interrupts? + +FE6F FF FF FF ... stx ffff +FE72 FF FF FF ... stx ffff +FE75 FF FF FF ... stx ffff +FE78 FF FF FF ... stx ffff +FE7B FF FF FF ... stx ffff +FE7E FF FF FF ... stx ffff +FE81 FF FF FF ... stx ffff +FE84 FF FF FF ... stx ffff +FE87 FF FF FF ... stx ffff +FE8A FF FF FF ... stx ffff +FE8D FF FF FF ... stx ffff +FE90 FF FF FF ... stx ffff +FE93 FF FF FF ... stx ffff +FE96 FF FF FF ... stx ffff +FE99 FF FF FF ... stx ffff +FE9C FF FF FF ... stx ffff +FE9F FF FF FF ... stx ffff +FEA2 FF FF FF ... stx ffff +FEA5 FF FF FF ... stx ffff +FEA8 FF FF FF ... stx ffff +FEAB FF FF FF ... stx ffff +FEAE FF FF FF ... stx ffff +FEB1 FF FF FF ... stx ffff +FEB4 FF FF FF ... stx ffff +FEB7 FF FF FF ... stx ffff +FEBA FF FF FF ... stx ffff +FEBD FF FF FF ... stx ffff +FEC0 FF FF FF ... stx ffff +FEC3 FF FF FF ... stx ffff +FEC6 FF FF FF ... stx ffff +FEC9 FF FF FF ... stx ffff +FECC FF FF FF ... stx ffff +FECF FF FF FF ... stx ffff +FED2 FF FF FF ... stx ffff +FED5 FF FF FF ... stx ffff +FED8 FF FF FF ... stx ffff +FEDB FF FF FF ... stx ffff +FEDE FF FF FF ... stx ffff +FEE1 FF FF FF ... stx ffff +FEE4 FF FF FF ... stx ffff +FEE7 FF FF FF ... stx ffff +FEEA FF FF FF ... stx ffff +FEED FF FF FF ... stx ffff +FEF0 FF FF FF ... stx ffff +FEF3 FF FF FF ... stx ffff +FEF6 FF FF FF ... stx ffff +FEF9 FF FF FF ... stx ffff +FEFC FF FF FF ... stx ffff +FEFF FF FF FF ... stx ffff +FF02 FF FF FF ... stx ffff +FF05 FF FF FF ... stx ffff +FF08 FF FF FF ... stx ffff +FF0B FF FF FF ... stx ffff +FF0E FF FF FF ... stx ffff +FF11 FF FF FF ... stx ffff +FF14 FF FF FF ... stx ffff +FF17 FF FF FF ... stx ffff +FF1A FF FF FF ... stx ffff +FF1D FF FF FF ... stx ffff +FF20 FF FF FF ... stx ffff +FF23 FF FF FF ... stx ffff +FF26 FF FF FF ... stx ffff +FF29 FF FF FF ... stx ffff +FF2C FF FF FF ... stx ffff +FF2F FF FF FF ... stx ffff +FF32 FF FF FF ... stx ffff +FF35 FF FF FF ... stx ffff +FF38 FF FF FF ... stx ffff +FF3B FF FF FF ... stx ffff +FF3E FF FF FF ... stx ffff +FF41 FF FF FF ... stx ffff +FF44 FF FF FF ... stx ffff +FF47 FF FF FF ... stx ffff +FF4A FF FF FF ... stx ffff +FF4D FF FF FF ... stx ffff +FF50 FF FF FF ... stx ffff +FF53 FF FF FF ... stx ffff +FF56 FF FF FF ... stx ffff +FF59 FF FF FF ... stx ffff +FF5C FF FF FF ... stx ffff +FF5F FF FF FF ... stx ffff +FF62 FF FF FF ... stx ffff +FF65 FF FF FF ... stx ffff +FF68 FF FF FF ... stx ffff +FF6B FF FF FF ... stx ffff +FF6E FF FF FF ... stx ffff +FF71 FF FF FF ... stx ffff +FF74 FF FF FF ... stx ffff +FF77 FF FF FF ... stx ffff +FF7A FF FF FF ... stx ffff +FF7D FF FF FF ... stx ffff +FF80 FF FF FF ... stx ffff +FF83 FF FF FF ... stx ffff +FF86 FF FF FF ... stx ffff +FF89 FF FF FF ... stx ffff +FF8C FF FF FF ... stx ffff +FF8F FF FF FF ... stx ffff +FF92 FF FF FF ... stx ffff +FF95 FF FF FF ... stx ffff +FF98 FF FF FF ... stx ffff +FF9B FF FF FF ... stx ffff +FF9E FF FF FF ... stx ffff +FFA1 FF FF FF ... stx ffff +FFA4 FF FF FF ... stx ffff +FFA7 FF FF FF ... stx ffff +FFAA FF FF FF ... stx ffff +FFAD FF FF FF ... stx ffff +FFB0 FF FF FF ... stx ffff +FFB3 FF FF FF ... stx ffff +FFB6 FF FF FF ... stx ffff +FFB9 FF FF FF ... stx ffff +FFBC FF FF FF ... stx ffff +FFBF FF FF FF ... stx ffff +FFC2 FF FF FF ... stx ffff +FFC5 FF FF FF ... stx ffff +FFC8 FF FF FF ... stx ffff +FFCB FF FF FF ... stx ffff +FFCE FF FF FF ... stx ffff +FFD1 FF FF FF ... stx ffff +FFD4 FF FF + +FFD6 ;vectors + .word c81c ; SCI serial system (generic) - goes to sciinterrupt + .word fae2 ; SPI serial transfer complete - flashes *** ERROR *** for a second + .word faef ; Pulse accumulator input edge - flashes *** ERROR *** for a second + .word fafc ; Pulse accumulator overflow - flashes *** ERROR *** for a second + .word fb09 ; Timer overflow - flashes *** ERROR *** for a second + .word fb16 ; Timer input capture 4 - flashes *** ERROR *** for a second + .word fb23 ; Timer output compare 4 - flashes *** ERROR *** for a second + .word fb30 ; Timer output compare 3 - flashes *** ERROR *** for a second + .word fb3d ; Timer output compare 2 - flashes *** ERROR *** for a second + .word fb4a ; Timer output compare 1 - flashes *** ERROR *** for a second + .word fb57 ; Timer input capture 3 - flashes *** ERROR *** for a second + .word fb64 ; Timer input capture 2 - flashes *** ERROR *** for a second + .word fb71 ; Timer input capture 1 - flashes *** ERROR *** for a second + .word f718 ; RT interrupt - does something useful :) (goto rti) + .word fb7e ; IRQ pin - flashes *** ERROR *** for a second + .word fb8b ; XIRQ pin - flashes *** ERROR *** for a second + .word fb98 ; software interrupt - flashes *** ERROR *** for a second + .word fba5 ; illegal opcode trap - flashes *** ERROR *** for a second + .word fbb2 ; watchdog reset - reboot + .word fbb6 ; clock monitor reset - reboot + .word fe49 ; reset - reboot +