;0012 another buffer for 1800 - what change to give?
;0013 location of decimal point?
;0014 buffer for 3800 register
;0015
;0016 new key state (cf 0029)
;0017 bits 5-7 used mostly
;0012 another buffer for 1800 - what change to give?
;0013 location of decimal point?
;0014 buffer for 3800 register
;0015
;0016 new key state (cf 0029)
;0017 bits 5-7 used mostly
;0026 used exclusively in SCI interrupt handler
;0027 price of current item
;0029 previous key state (cf 0016)
;0026 used exclusively in SCI interrupt handler
;0027 price of current item
;0029 previous key state (cf 0016)
C7C6 83 00 00 ... subd #0000
C7C9 27 05 '. beq 05
C7CB F6 10 2C .., ldab 102c ; test the 9th bit
C7C6 83 00 00 ... subd #0000
C7C9 27 05 '. beq 05
C7CB F6 10 2C .., ldab 102c ; test the 9th bit
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
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
CC49 BD C7 E7 ... jsr c7e7 ;jump37 - send 0043 to coin mech - retry?
CC4C 7E CE 39 ~.9 jmp ce39 ;goto55 - exit
;
CC49 BD C7 E7 ... jsr c7e7 ;jump37 - send 0043 to coin mech - retry?
CC4C 7E CE 39 ~.9 jmp ce39 ;goto55 - exit
;
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 ; 11110000
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 ; 11110000
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 - location of dec point?
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 - location of dec point?
CDF6 F6 0B C0 ... ldab 0bc0
CDF9 C4 10 .. andb #10 ; have link master price holding
CDFB 27 03 '. beq 03
CDFD 7C 00 75 |.u inc 0075
CDF6 F6 0B C0 ... ldab 0bc0
CDF9 C4 10 .. andb #10 ; have link master price holding
CDFB 27 03 '. beq 03
CDFD 7C 00 75 |.u inc 0075
CE15 1D 00 08 ... bclr 00,x, #08
CE18 CE 00 1F ... ldx #001f
CE1B 1C 00 08 ... bset 00,x, #08
CE15 1D 00 08 ... bclr 00,x, #08
CE18 CE 00 1F ... ldx #001f
CE1B 1C 00 08 ... bset 00,x, #08
CE20 CE 00 1D ... ldx #001d
CE23 1D 00 02 ... bclr 00,x, #02
CE26 20 11 . bra 11
CE20 CE 00 1D ... ldx #001d
CE23 1D 00 02 ... bclr 00,x, #02
CE26 20 11 . bra 11
D298 27 46 'F beq 46 ; to d2e0
D29A BD D1 05 ... jsr d105 ;motors_off
D29D F6 00 2E ... ldab 002e
D298 27 46 'F beq 46 ; to d2e0
D29A BD D1 05 ... jsr d105 ;motors_off
D29D F6 00 2E ... ldab 002e
D2A2 22 07 ". bhi 07 ; to d2ab
D2A4 8D 6B .k bsr 6b ;jump30 - test motor overvoltage?
D2A6 83 00 00 ... subd #0000
D2A2 22 07 ". bhi 07 ; to d2ab
D2A4 8D 6B .k bsr 6b ;jump30 - test motor overvoltage?
D2A6 83 00 00 ... subd #0000
D311 BD D1 3D ..= jsr d13d ;jump34 - motor on
D314 7F 00 1C ... clr 001c
D317 7F 00 18 ... clr 0018
D311 BD D1 3D ..= jsr d13d ;jump34 - motor on
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
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
DF42 CE 00 1B ... ldx #001b
DF45 1D 00 01 ... bclr 00,x, #01
DF48 F6 00 25 ..% ldab 0025
DF42 CE 00 1B ... ldx #001b
DF45 1D 00 01 ... bclr 00,x, #01
DF48 F6 00 25 ..% ldab 0025
DF67 CE 00 1B ... ldx #001b
DF6A 1D 00 40 ... bclr 00,x, #40
DF67 CE 00 1B ... ldx #001b
DF6A 1D 00 40 ... bclr 00,x, #40
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
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
DF9C 38 8 pulx
DF9D C6 05 .. ldab #05
DF9F F7 00 2C .., stab 002c
DFA2 7E E0 63 ~.c jmp e063 ;goto72
DF9C 38 8 pulx
DF9D C6 05 .. ldab #05
DF9F F7 00 2C .., stab 002c
DFA2 7E E0 63 ~.c jmp e063 ;goto72
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 ; "INTRODUZCA"
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 ; "INTRODUZCA"
E06E CE 00 1D ... ldx #001d
E071 1C 00 40 ... bset 00,x, #40
E074 BD E7 C7 ... jsr e7c7 ;jump114
E06E CE 00 1D ... ldx #001d
E071 1C 00 40 ... bset 00,x, #40
E074 BD E7 C7 ... jsr e7c7 ;jump114
E084 F6 00 06 ... ldab 0006
E087 BD D4 68 ..h jsr d468 ;jump51
E08A 83 00 00 ... subd #0000
E084 F6 00 06 ... ldab 0006
E087 BD D4 68 ..h jsr d468 ;jump51
E08A 83 00 00 ... subd #0000
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
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
E0F5 FC 00 40 ..@ ldd 0040
E0F8 F3 00 3E ..> addd 003e
E0FB B3 00 44 ..D subd 0044
E0F5 FC 00 40 ..@ ldd 0040
E0F8 F3 00 3E ..> addd 003e
E0FB B3 00 44 ..D subd 0044
E154 38 8 pulx
E155 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
E158 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
E15B C6 0C .. ldab #0c
E15D F7 00 2C .., stab 002c
E154 38 8 pulx
E155 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
E158 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
E15B C6 0C .. ldab #0c
E15D F7 00 2C .., stab 002c
E17B FC 00 40 ..@ ldd 0040
E17E F3 00 3E ..> addd 003e
E181 B3 00 44 ..D subd 0044
E17B FC 00 40 ..@ ldd 0040
E17E F3 00 3E ..> addd 003e
E181 B3 00 44 ..D subd 0044
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 ; 1000
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 ; 1000
E1E3 FC 00 40 ..@ ldd 0040
E1E6 B3 00 44 ..D subd 0044
E1E9 F3 00 3E ..> addd 003e
E1E3 FC 00 40 ..@ ldd 0040
E1E6 B3 00 44 ..D subd 0044
E1E9 F3 00 3E ..> addd 003e
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
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
E202 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
E205 BD D8 E9 ... jsr d8e9 ;jump92 - "SELECT OTHER ITEM"
E208 FC 00 40 ..@ ldd 0040
E202 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
E205 BD D8 E9 ... jsr d8e9 ;jump92 - "SELECT OTHER ITEM"
E208 FC 00 40 ..@ ldd 0040
E2FB BD DB 44 ..D jsr db44 ;jump104 - say thanks
E2FE CE 00 1B ... ldx #001b
E301 1D 00 40 ... bclr 00,x, #40
E304 7F 00 25 ..% clr 0025
E2FB BD DB 44 ..D jsr db44 ;jump104 - say thanks
E2FE CE 00 1B ... ldx #001b
E301 1D 00 40 ... bclr 00,x, #40
E304 7F 00 25 ..% clr 0025
E309 7F 00 2C .., clr 002c
E30C CC 01 F4 ... ldd #01f4
E30F BD E5 71 ..q jsr e571 ;msdelay
E309 7F 00 2C .., clr 002c
E30C CC 01 F4 ... ldd #01f4
E30F BD E5 71 ..q jsr e571 ;msdelay
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
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 ; clear bill error bit
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 ; clear bill error bit
E34A CE 00 17 ... ldx #0017
E34D 1D 00 02 ... bclr 00,x, #02
E350 FC 00 44 ..D ldd 0044
E34A CE 00 17 ... ldx #0017
E34D 1D 00 02 ... bclr 00,x, #02
E350 FC 00 44 ..D ldd 0044
E367 1D 00 80 .. bclr 00,x, #80
E369 C6 05 .. ldab #05
E36C F7 00 75 ..u stab 0075
E367 1D 00 80 .. bclr 00,x, #80
E369 C6 05 .. ldab #05
E36C F7 00 75 ..u stab 0075
E384 CE 00 17 ... ldx #0017
E387 1C 00 01 ... bset 00,x, #01
E38A F6 00 2B ..+ ldab 002b
E384 CE 00 17 ... ldx #0017
E387 1C 00 01 ... bset 00,x, #01
E38A F6 00 2B ..+ ldab 002b
E3BA CE 00 17 ... ldx #0017
E3BD 1C 00 02 ... bset 00,x, #02
E3C0 20 06 . bra 06
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
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
E3C8 CE 00 1D ... ldx #001d
E3CB 1C 00 02 ... bset 00,x, #02
E3CE CE 00 19 ... ldx #0019
E471 1D 00 80 .. bclr 00,x, #80
E474 CE 00 1F .. ldx #001f
E477 1D 00 08 .... bclr 00,x, #08
E471 1D 00 80 .. bclr 00,x, #80
E474 CE 00 1F .. ldx #001f
E477 1D 00 08 .... bclr 00,x, #08
E47D 83 00 00 ... subd #0000
E480 26 0F &. bne 0f
E482 CC 00 80 ... ldd #0080
E485 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
E488 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
E47D 83 00 00 ... subd #0000
E480 26 0F &. bne 0f
E482 CC 00 80 ... ldd #0080
E485 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
E488 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
E561 7F 00 2E ... clr 002e
E564 CE 00 1B ... ldx #001b
E567 1D 00 80 .. bclr 00,x, #80
E561 7F 00 2E ... clr 002e
E564 CE 00 1B ... ldx #001b
E567 1D 00 80 .. bclr 00,x, #80
E56A CE 00 1D ... ldx #001d
E56C 1D 00 40 .. bclr 00,x, #40
E570 39 9 rts
E56A CE 00 1D ... ldx #001d
E56C 1D 00 40 .. bclr 00,x, #40
E570 39 9 rts