From c82d70d8954911bfaada39a3a00233b158fe4a4f Mon Sep 17 00:00:00 2001 From: Bernard Blackham Date: Fri, 8 Aug 2003 00:56:44 +0000 Subject: [PATCH] more findings --- ROM-2003/vend.asm | 34 +++++++++++++++++++++++----------- 1 file changed, 23 insertions(+), 11 deletions(-) diff --git a/ROM-2003/vend.asm b/ROM-2003/vend.asm index fb6735f..66987f0 100644 --- a/ROM-2003/vend.asm +++ b/ROM-2003/vend.asm @@ -56,6 +56,7 @@ ; 005f ;0067 working space of 0bc0 ;0073 +;0075 something about link master price holding ;0076-0077 word ;007f ;00c8 @@ -9976,11 +9977,12 @@ CDA7 CE 28 00 05 .(.. ; 56 "8" 00111000 CDAB CE 34 FF C8 .4.. ; 0 CDAF 00 00 .. ; end of array data ; +; got 00110001 - "1" 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 ; to cdd9 +CDBC 20 1B . bra 1b ; to cdd9 - exit CDBE 5F _ clrb CDBF 4F O clra CDC0 BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech @@ -9993,8 +9995,9 @@ 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 +CDD9 20 5E ^ bra 5e ; to ce39 - exit ; +; got 00110001 - "2" CDDB F6 00 1D ... ldab 001d CDDE C4 02 .. andb #02 CDE0 27 07 '. beq 07 @@ -10005,12 +10008,13 @@ CDE9 CC 00 FE ... ldd #00fe CDEC BD C7 E7 ... jsr c7e7 ;jump37 - send #fe to coin mech CDEF F6 00 1F ... ldab 001f CDF2 C4 08 .. andb #08 -CDF4 27 0A '. beq 0a +CDF4 27 0A '. beq 0a ; to ce00, to exit 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 -CE00 20 1C . bra 1c +CE00 20 1C . bra 1c ; to ce1e, to ce39, exit +; CE02 FC 00 44 ..D ldd 0044 CE05 37 7 pshb CE06 36 6 psha @@ -10025,16 +10029,21 @@ 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 +CE1E 20 19 . bra 19 ; to ce39, exit +; +; got 00110001 - "3" CE20 CE 00 1D ... ldx #001d CE23 1D 00 02 ... bclr 00,x, #02 CE26 20 11 . bra 11 +; +; got 00110001 - "8" 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 @@ -12732,7 +12741,7 @@ 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 +E353 26 1C &. bne 1c ; to e371 E355 F6 0B C0 ... ldab 0bc0 E358 C4 10 .. andb #10 ; have link master price holding E35A 26 08 &. bne 08 @@ -12743,15 +12752,16 @@ E364 CE 00 21 ..! ldx #0021 E367 1D 00 80 .. bclr 00,x, #80 E369 C6 05 .. ldab #05 E36C F7 00 75 ..u stab 0075 -E36F 20 57 W bra 57 +E36F 20 57 W bra 57 ; to e3c8 +; E371 F6 0B C0 ... ldab 0bc0 E374 C4 10 .. andb #10 ; have link master price holding -E376 27 50 'P beq 50 +E376 27 50 'P beq 50 ; to e3c8 E378 FC 00 40 ..@ ldd 0040 -E37B 26 4B &K bne 4b +E37B 26 4B &K bne 4b ; to e3c8 E37D F6 0B C0 ... ldab 0bc0 E380 C4 20 . andb #20 ; have link master price holding - price display -E382 27 3E '> beq 3e +E382 27 3E '> beq 3e ; e3c2 E384 CE 00 17 ... ldx #0017 E387 1C 00 01 ... bset 00,x, #01 E38A F6 00 2B ..+ ldab 002b @@ -12776,8 +12786,10 @@ 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 @@ -12856,7 +12868,7 @@ 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 E48B BD D8 E9 ... jsr d8e9 ;jump92 - "SELECT OTHER ITEM" -E48E 7E E5 5E ~.^ jmp e55e ;goto74 +E48E 7E E5 5E ~.^ jmp e55e ;goto74 - bail E491 F6 00 2B ..+ ldab 002b E494 C1 00 .. cmpb #00 E496 26 08 &. bne 08 -- 2.20.1