more findings

diff --git a/ROM-2003/vend.asm b/ROM-2003/vend.asm
index fb6735f..66987f0 100644 (file)
--- 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