git.ucc.asn.au / uccvend-snackrom.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 02660a6)
*** empty log message ***
authorBernard Blackham <[email protected]>
Mon, 4 Aug 2003 04:51:36 +0000 (04:51 +0000)
committerBernard Blackham <[email protected]>
Mon, 4 Aug 2003 04:51:36 +0000 (04:51 +0000)
ROM-2003/vend.asm patch | blob | history

diff --git a/ROM-2003/vend.asm b/ROM-2003/vend.asm
index f945890..8c71e3b 100644 (file)
--- a/ROM-2003/vend.asm
+++ b/ROM-2003/vend.asm
@@ -61,7 +61,7 @@
 ;0bbd   
 ;0bd8   related to 0017 and 0021 (only lower 3 bits used)
 ;0bd9   also related
 ;0bbd   
 ;0bd8   related to 0017 and 0021 (only lower 3 bits used)
 ;0bd9   also related
-;0bc0   machine capabilities flags
+;0bc0   machine peripheral configuration flags
 ;         bit0: have dumb mech
 ;         bit1: have a changer
 ;         bit2: have card reader
 ;         bit0: have dumb mech
 ;         bit1: have a changer
 ;         bit2: have card reader
@@ -1882,17 +1882,20 @@ jump19:
 8E5A F6 00 09        ...   ldab 0009
 8E5D 4F              O     clra 
 8E5E BD FE 32        ..2   jsr fe32            ;jump25
 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     ....  
+8E61 8E 7B 00 00     .{..  ; no key
+8E65 8E 81 00 01     ....  ; key 1 - toggle?
+8E69 8E 87 00 04     ....  ; key 5 - save and next
+8E6D 8F 01 00 05     ....  ; key 0 - exit
+8E71 8F 09 00 01     ....  ; key reset - exit
+8E75 8F 0C FF F5     ....  ; default
 8E79 00 00           ..    ; end of array data
 8E79 00 00           ..    ; end of array data
-8E7B BD 9C 15        ...   jsr 9c15            ;jump111
+;
+8E7B BD 9C 15        ...   jsr 9c15            ;jump111 - write the option name
 8E7E 7E 8F 0C        ~..   jmp 8f0c            ;goto12
 8E7E 7E 8F 0C        ~..   jmp 8f0c            ;goto12
+;
 8E81 BD A7 5F        .._   jsr a75f            ;jump133
 8E84 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
 8E87 F6 00 48        ..H   ldab 0048
 8E8A C1 08           ..    cmpb #08
 8E8C 25 05           %.    bcs 05
@@ -1906,12 +1909,14 @@ jump19:
 8EA0 F6 00 48        ..H   ldab 0048
 8EA3 C1 01           ..    cmpb #01
 8EA5 26 0F           &.    bne 0f
 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
 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
 8EB6 F6 00 48        ..H   ldab 0048
 8EB9 C1 02           ..    cmpb #02
 8EBB 26 0A           &.    bne 0a
@@ -1940,8 +1945,9 @@ jump19:
 8EF3 7F 00 48        ..H   clr 0048
 8EF6 F6 0B C0        ...   ldab 0bc0
 8EF9 F7 00 67        ..g   stab 0067
 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
+8EFC BD 9C 15        ...   jsr 9c15            ;jump111 - write the next option
 8EFF 20 0B            .    bra 0b
 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
 8F01 BD A4 59        ..Y   jsr a459            ;jump110
 8F04 BD 85 AF        ...   jsr 85af            ;jump14
 8F07 20 03            .    bra 03
@@ -3359,23 +3365,21 @@ jump111:
 9C18 F6 00 48        ..H   ldab 0048
 9C1B 4F              O     clra 
 9C1C BD FE 16        ...   jsr fe16            ;jump2
 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 
+9C1F 00 00 00 0A     .     0..10
+9C23 9D 29           .).   ;
+9C25 9C 3B           ;     ;
+9C27 9C 53           .S.   ;
+9C29 9C 6B           k     ;
+9C2B 9C 83           ...   ;
+9C2D 9C 9B           ...   ;
+9C2F 9C B2           ...   ;
+9C31 9C C9           ...   ;
+9C33 9C E0           ...   ;
+9C35 9C F7           ..    ;
+9C37 9D 0E           ...   ;
+9C39 9D 23           .#.   ;
+9C3B F6 00 67        .     ldab 0067
+9C3D C4 02           g.    andb #02
 9C40 27 08           '.    beq 08
 9C42 CC AF 00        ...   ldd #af00    ; "LNK MSTR Y"
 9C45 BD C0 BA        ...   jsr c0ba            ;display:
 9C40 27 08           '.    beq 08
 9C42 CC AF 00        ...   ldd #af00    ; "LNK MSTR Y"
 9C45 BD C0 BA        ...   jsr c0ba            ;display:
@@ -3383,6 +3387,7 @@ jump111:
 9C4A CC AF 0B        ...   ldd #af0b    ; "LNK MSTR N"
 9C4D BD C0 BA        ...   jsr c0ba            ;display:
 9C50 7E 9D 29        ~.)   jmp 9d29            ;goto18
 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
 9C53 F6 00 67        ..g   ldab 0067
 9C56 C4 10           ..    andb #10
 9C58 27 08           '.    beq 08
@@ -3392,6 +3397,7 @@ jump111:
 9C62 CC AF 4D        ..M   ldd #af4d    ; "PRC HOLD N"
 9C65 BD C0 BA        ...   jsr c0ba            ;display:
 9C68 7E 9D 29        ~.)   jmp 9d29            ;goto18
 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
 9C6B F6 00 67        ..g   ldab 0067
 9C6E C4 20           .     andb #20
 9C70 27 08           '.    beq 08
@@ -3401,6 +3407,7 @@ jump111:
 9C7A CC AF 63        ..c   ldd #af63    ; "PRC DISP N"
 9C7D BD C0 BA        ...   jsr c0ba            ;display:
 9C80 7E 9D 29        ~.)   jmp 9d29            ;goto18
 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
 9C83 F6 00 67        ..g   ldab 0067
 9C86 C4 01           ..    andb #01
 9C88 27 08           '.    beq 08
@@ -4683,24 +4690,23 @@ jump133:
 A75F F6 00 48        ..H   ldab 0048
 A762 4F              O     clra 
 A763 BD FE 16        ...   jsr fe16            ;jump2
 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
+A766 00 00 00 09     .     test 
+A76A A7 DC           ..    ;
+A76C A7 80           ..    ;
+A76E A7 87           ..    ;
+A770 A7 8E           ..    ;
+A772 A7 95           ..    ;
+A774 A7 9C           ..    ;
+A776 A7 A3           ..    ;
+A778 A7 AA           ..    ;
+A77A A7 B1           ..    ;
+A77C A7 C4           ..    ;
+A77E A7 D7           ..    ;
+;
 A780 C6 02           ..    ldab #02
 A782 F7 00 02        ...   stab 0002
 A785 20 55            U    bra 55
 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
 A787 C6 10           ..    ldab #10
 A789 F7 00 02        ...   stab 0002
 A78C 20 4E            N    bra 4e
@@ -9065,7 +9071,7 @@ jump124:
 C67D F6 00 30        ..0   ldab 0030
 C680 26 55           &U    bne 55
 C682 F6 0B C0        ...   ldab 0bc0
 C67D F6 00 30        ..0   ldab 0030
 C680 26 55           &U    bne 55
 C682 F6 0B C0        ...   ldab 0bc0
-C685 C4 04           ..    andb #04
+C685 C4 04           ..    andb #04     ; have a card reader
 C687 26 4E           &N    bne 4e
 C689 C6 27           .'    ldab #27
 C68B F7 10 2D        ..-   stab 102d    ; disable SCI transmission
 C687 26 4E           &N    bne 4e
 C689 C6 27           .'    ldab #27
 C68B F7 10 2D        ..-   stab 102d    ; disable SCI transmission
@@ -9078,7 +9084,7 @@ 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
 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
+C6A8 C4 01           ..    andb #01     ; have a dumb mech
 C6AA 27 06           '.    beq 06
 C6AC CE 0B C1        ...   ldx #0bc1
 C6AF 1C 00 01        ...   bset 00,x, #01 ; set changer powerup error bit
 C6AA 27 06           '.    beq 06
 C6AC CE 0B C1        ...   ldx #0bc1
 C6AF 1C 00 01        ...   bset 00,x, #01 ; set changer powerup error bit
@@ -9270,6 +9276,7 @@ C81B 39              9     rts
 
 sciinterrupt:
 C81C 34              4     des 
 
 sciinterrupt:
 C81C 34              4     des 
+; make sure this interrupt is valid
 C81D F6 0B C0        ...   ldab 0bc0
 C820 C4 01           ..    andb #01     ; do we have a dumb mech?
 C822 26 0A           &.    bne 0a       ; if so, to c82e
 C81D F6 0B C0        ...   ldab 0bc0
 C820 C4 01           ..    andb #01     ; do we have a dumb mech?
 C822 26 0A           &.    bne 0a       ; if so, to c82e
@@ -9280,7 +9287,7 @@ C829 26 03           &.    bne 03       ; if so, to c82e
 C82B 7E CB FF        ~..   jmp cbff            ; else to goto44
 ;
 C82E C6 96           ..    ldab #96     ; 150
 C82B 7E CB FF        ~..   jmp cbff            ; else to goto44
 ;
 C82E C6 96           ..    ldab #96     ; 150
-C830 F7 00 30        ..0   stab 0030    ; changer related still
+C830 F7 00 30        ..0   stab 0030    ; changer related still?
 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
 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
@@ -9737,16 +9744,19 @@ CBF6 F7 00 26        ..&   stab 0026
 CBF9 7F 00 3D        ..=   clr 003d
 CBFC 7E CE 46        ~.F   jmp ce46            ;goto47 (exit)
 ;
 CBF9 7F 00 3D        ..=   clr 003d
 CBFC 7E CE 46        ~.F   jmp ce46            ;goto47 (exit)
 ;
+;
+;
+;
+;
 goto44:
 CBFF F6 0B C0        ...   ldab 0bc0    ; do we have a changer?
 CC02 C4 02           ..    andb #02
 CC04 26 03           &.    bne 03       ; if so, swallow & exit
 CC06 7E CE 3B        ~.;   jmp ce3b            ; goto54  - swallow a byte & exit
 goto44:
 CBFF F6 0B C0        ...   ldab 0bc0    ; do we have a changer?
 CC02 C4 02           ..    andb #02
 CC04 26 03           &.    bne 03       ; if so, swallow & exit
 CC06 7E CE 3B        ~.;   jmp ce3b            ; goto54  - swallow a byte & exit
-                                        ; else
 ;
 CC09 F6 10 2F        ../   ldab 102f    ; read SCI data
 ;
 CC09 F6 10 2F        ../   ldab 102f    ; read SCI data
-CC0C C4 E0           ..    andb #e0
-CC0E C1 20           .     cmpb #20
+CC0C C4 E0           ..    andb #e0     ; 11100000
+CC0E C1 20           .     cmpb #20     ; 00100000
 CC10 27 03           '.    beq 03
 CC12 7E CE 3B        ~.;   jmp ce3b            ;goto54  - swallow a byte & exit
 ;
 CC10 27 03           '.    beq 03
 CC12 7E CE 3B        ~.;   jmp ce3b            ;goto54  - swallow a byte & exit
 ;
@@ -9778,9 +9788,10 @@ 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
 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
 CC57 F6 10 2F        ../   ldab 102f    ; read SCI data
-CC5A C4 F0           ..    andb #f0
-CC5C C1 20           .     cmpb #20
+CC5A C4 F0           ..    andb #f0     ; 11110000
+CC5C C1 20           .     cmpb #20     ; 00100000
 CC5E 27 03           '.    beq 03
 CC60 7E CD 94        ~..   jmp cd94            ;goto56
 CC63 F6 10 2F        ../   ldab 102f    ; read SCI data
 CC5E 27 03           '.    beq 03
 CC60 7E CD 94        ~..   jmp cd94            ;goto56
 CC63 F6 10 2F        ../   ldab 102f    ; read SCI data
@@ -9970,7 +9981,7 @@ CDC3 F6 00 1F        ...   ldab 001f
 CDC6 C4 08           ..    andb #08
 CDC8 27 0C           '.    beq 0c
 CDCA F6 0B C0        ...   ldab 0bc0
 CDC6 C4 08           ..    andb #08
 CDC8 27 0C           '.    beq 0c
 CDCA F6 0B C0        ...   ldab 0bc0
-CDCD C4 10           ..    andb #10
+CDCD C4 10           ..    andb #10     ; have link master price holding
 CDCF 27 05           '.    beq 05
 CDD1 7C 00 75        |.u   inc 0075
 CDD4 20 03            .    bra 03
 CDCF 27 05           '.    beq 05
 CDD1 7C 00 75        |.u   inc 0075
 CDD4 20 03            .    bra 03
@@ -9988,7 +9999,7 @@ CDEF F6 00 1F        ...   ldab 001f
 CDF2 C4 08           ..    andb #08
 CDF4 27 0A           '.    beq 0a
 CDF6 F6 0B C0        ...   ldab 0bc0
 CDF2 C4 08           ..    andb #08
 CDF4 27 0A           '.    beq 0a
 CDF6 F6 0B C0        ...   ldab 0bc0
-CDF9 C4 10           ..    andb #10
+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
 CDFB 27 03           '.    beq 03
 CDFD 7C 00 75        |.u   inc 0075
 CE00 20 1C            .    bra 1c
@@ -10518,7 +10529,7 @@ D213 F6 00 1F        ...   ldab 001f
 D216 C4 04           ..    andb #04
 D218 26 12           &.    bne 12
 D21A F6 0B C0        ...   ldab 0bc0
 D216 C4 04           ..    andb #04
 D218 26 12           &.    bne 12
 D21A F6 0B C0        ...   ldab 0bc0
-D21D C4 10           ..    andb #10     ; am i link master?
+D21D C4 10           ..    andb #10     ; have link master price holding
 D21F 26 0B           &.    bne 0b
 D221 CE 00 00        ...   ldx #0000
 D224 3C              <     pshx 
 D21F 26 0B           &.    bne 0b
 D221 CE 00 00        ...   ldx #0000
 D224 3C              <     pshx 
@@ -12183,10 +12194,10 @@ DEE6 39              9     rts
 jump116:
 ; revolves around coinage
 DEE7 F6 0B C0        ...   ldab 0bc0
 jump116:
 ; revolves around coinage
 DEE7 F6 0B C0        ...   ldab 0bc0
-DEEA C4 01           ..    andb #01
+DEEA C4 01           ..    andb #01    ; have a dumb mech
 DEEC 26 07           &.    bne 07
 DEEE F6 0B C0        ...   ldab 0bc0
 DEEC 26 07           &.    bne 07
 DEEE F6 0B C0        ...   ldab 0bc0
-DEF1 C4 04           ..    andb #04
+DEF1 C4 04           ..    andb #04    ; have a card reader
 DEF3 27 15           '.    beq 15
 DEF5 C6 FF           ..    ldab #ff
 DEF7 F7 0B BC        ...   stab 0bbc
 DEF3 27 15           '.    beq 15
 DEF5 C6 FF           ..    ldab #ff
 DEF7 F7 0B BC        ...   stab 0bbc
@@ -12197,7 +12208,7 @@ DF02 BD D6 6B        ..k   jsr d66b             ;jump107 - chat to bill acceptor
 DF05 BD DC A3        ...   jsr dca3            ;jump29
 DF08 20 25            %    bra 25
 DF0A F6 0B C0        ...   ldab 0bc0
 DF05 BD DC A3        ...   jsr dca3            ;jump29
 DF08 20 25            %    bra 25
 DF0A F6 0B C0        ...   ldab 0bc0
-DF0D C4 02           ..    andb #02
+DF0D C4 02           ..    andb #02     ;have changer
 DF0F 27 1E           '.    beq 1e
 DF11 F6 00 2F        ../   ldab 002f
 DF14 26 19           &.    bne 19
 DF0F 27 1E           '.    beq 1e
 DF11 F6 00 2F        ../   ldab 002f
 DF14 26 19           &.    bne 19
@@ -12262,7 +12273,7 @@ DFA5 F6 0C D9        ...   ldab 0cd9
 DFA8 C1 04           ..    cmpb #04
 DFAA 24 07           $.    bcc 07
 DFAC F6 0B C0        ...   ldab 0bc0
 DFA8 C1 04           ..    cmpb #04
 DFAA 24 07           $.    bcc 07
 DFAC F6 0B C0        ...   ldab 0bc0
-DFAF C4 01           ..    andb #01
+DFAF C4 01           ..    andb #01    ; have a dumb mech
 DFB1 26 07           &.    bne 07
 DFB3 F6 00 21        ..!   ldab 0021
 DFB6 C4 40           .@    andb #40
 DFB1 26 07           &.    bne 07
 DFB3 F6 00 21        ..!   ldab 0021
 DFB6 C4 40           .@    andb #40
@@ -12299,7 +12310,7 @@ DFF7 BD C0 2E        ...   jsr c02e             ;jump71 - display
 DFFA 38              8     pulx 
 DFFB 20 66            f    bra 66
 DFFD F6 0B C0        ...   ldab 0bc0
 DFFA 38              8     pulx 
 DFFB 20 66            f    bra 66
 DFFD F6 0B C0        ...   ldab 0bc0
-E000 C4 08           ..    andb #08
+E000 C4 08           ..    andb #08     ; have link master price holding
 E002 27 52           'R    beq 52
 E004 F6 0B C1        ...   ldab 0bc1
 E007 C4 08           ..    andb #08    ; test bill error bit
 E002 27 52           'R    beq 52
 E004 F6 0B C1        ...   ldab 0bc1
 E007 C4 08           ..    andb #08    ; test bill error bit
@@ -12394,33 +12405,33 @@ E0CD C4 7F           ..    andb #7f
 E0CF 4F              O     clra 
 E0D0 FD 00 4D        ..M   std 004d
 E0D3 F6 0B C0        ...   ldab 0bc0
 E0CF 4F              O     clra 
 E0D0 FD 00 4D        ..M   std 004d
 E0D3 F6 0B C0        ...   ldab 0bc0
-E0D6 2C 05           ,.    bge 05
+E0D6 2C 05           ,.    bge 05      ; free vend
 E0D8 5F              _     clrb 
 E0D9 4F              O     clra 
 E0DA FD 00 44        ..D   std 0044
 E0DD F6 0B C0        ...   ldab 0bc0
 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
+E0E0 C4 02           ..    andb #02    ; have a changer
 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
 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
+E0F1 C4 02           ..    andb #02    ; have a changer
 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
 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
+E103 2D 03           -.    blt 03      ; no free vend
 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
 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
+E116 C4 10           ..    andb #10     ; have link master price holding
 E118 26 49           &I    bne 49
 E11A F6 00 2B        ..+   ldab 002b
 E11D C1 00           ..    cmpb #00
 E118 26 49           &I    bne 49
 E11A F6 00 2B        ..+   ldab 002b
 E11D C1 00           ..    cmpb #00
@@ -12452,13 +12463,13 @@ E15B C6 0C           ..    ldab #0c
 E15D F7 00 2C        ..,   stab 002c
 E160 7E E5 5E        ~.^   jmp e55e            ;goto74
 E163 F6 0B C0        ...   ldab 0bc0
 E15D F7 00 2C        ..,   stab 002c
 E160 7E E5 5E        ~.^   jmp e55e            ;goto74
 E163 F6 0B C0        ...   ldab 0bc0
-E166 C4 01           ..    andb #01
+E166 C4 01           ..    andb #01     ; have a dumb mech
 E168 26 11           &.    bne 11
 E16A F6 0B C0        ...   ldab 0bc0
 E168 26 11           &.    bne 11
 E16A F6 0B C0        ...   ldab 0bc0
-E16D C4 04           ..    andb #04
+E16D C4 04           ..    andb #04     ; have a card reader
 E16F 26 0A           &.    bne 0a
 E171 F6 0B C0        ...   ldab 0bc0
 E16F 26 0A           &.    bne 0a
 E171 F6 0B C0        ...   ldab 0bc0
-E174 C4 0F           ..    andb #0f
+E174 C4 0F           ..    andb #0f     ; have any coin input mechanism
 E176 27 03           '.    beq 03
 E178 7E E3 35        ~.5   jmp e335            ;goto75
 E17B FC 00 40        ..@   ldd 0040
 E176 27 03           '.    beq 03
 E178 7E E3 35        ~.5   jmp e335            ;goto75
 E17B FC 00 40        ..@   ldd 0040
@@ -12568,7 +12579,7 @@ E25E BD FB DF        ...   jsr fbdf             ;jump46
 E261 31              1     ins 
 E262 31              1     ins 
 E263 F6 0B C0        ...   ldab 0bc0
 E261 31              1     ins 
 E262 31              1     ins 
 E263 F6 0B C0        ...   ldab 0bc0
-E266 2C 78           ,x    bge 78
+E266 2C 78           ,x    bge 78       ; free vend
 E268 F6 00 06        ...   ldab 0006
 E26B 4F              O     clra 
 E26C 05              .     asld 
 E268 F6 00 06        ...   ldab 0006
 E26B 4F              O     clra 
 E26C 05              .     asld 
@@ -12670,7 +12681,7 @@ E32F 1D 00 08        ...   bclr 00,x, #08  ; clear bill error bit
 E332 7E E5 5E        ~.^   jmp e55e            ;goto74
 goto75:
 E335 F6 0B C0        ...   ldab 0bc0
 E332 7E E5 5E        ~.^   jmp e55e            ;goto74
 goto75:
 E335 F6 0B C0        ...   ldab 0bc0
-E338 C4 02           ..    andb #02
+E338 C4 02           ..    andb #02     ; have a changer
 E33A 26 03           &.    bne 03
 E33C 7E E5 5E        ~.^   jmp e55e            ;goto74
 E33F 5F              _     clrb 
 E33A 26 03           &.    bne 03
 E33C 7E E5 5E        ~.^   jmp e55e            ;goto74
 E33F 5F              _     clrb 
@@ -12683,7 +12694,7 @@ 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
 E350 FC 00 44        ..D   ldd 0044
 E353 26 1C           &.    bne 1c
 E355 F6 0B C0        ...   ldab 0bc0
-E358 C4 10           ..    andb #10
+E358 C4 10           ..    andb #10      ; have link master price holding
 E35A 26 08           &.    bne 08
 E35C CE 00 21        ..!   ldx #0021
 E35F 1C 00           ..    bset add,x 00,x
 E35A 26 08           &.    bne 08
 E35C CE 00 21        ..!   ldx #0021
 E35F 1C 00           ..    bset add,x 00,x
@@ -12696,12 +12707,12 @@ E36B 05              .     asld
 E36C F7 00 75        ..u   stab 0075
 E36F 20 57            W    bra 57
 E371 F6 0B C0        ...   ldab 0bc0
 E36C F7 00 75        ..u   stab 0075
 E36F 20 57            W    bra 57
 E371 F6 0B C0        ...   ldab 0bc0
-E374 C4 10           ..    andb #10
+E374 C4 10           ..    andb #10      ; have link master price holding
 E376 27 50           'P    beq 50
 E378 FC 00 40        ..@   ldd 0040
 E37B 26 4B           &K    bne 4b
 E37D F6 0B C0        ...   ldab 0bc0
 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
+E380 C4 20           .     andb #20      ; have link master price holding - price display
 E382 27 3E           '>    beq 3e
 E384 CE 00 17        ...   ldx #0017
 E387 1C 00 01        ...   bset 00,x, #01
 E382 27 3E           '>    beq 3e
 E384 CE 00 17        ...   ldx #0017
 E387 1C 00 01        ...   bset 00,x, #01
@@ -12772,7 +12783,7 @@ 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
 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
+E433 C4 20           .     andb #20     ; link master - price display
 E435 27 34           '4    beq 34
 E437 F6 00 17        ...   ldab 0017
 E43A C4 01           ..    andb #01
 E435 27 34           '4    beq 34
 E437 F6 00 17        ...   ldab 0017
 E43A C4 01           ..    andb #01
@@ -12838,10 +12849,10 @@ E4CC 5F              _     clrb
 E4CD 4F              O     clra 
 E4CE BD C7 E7        ...   jsr c7e7            ;jump37 - send to serial port
 E4D1 F6 0B C0        ...   ldab 0bc0
 E4CD 4F              O     clra 
 E4CE BD C7 E7        ...   jsr c7e7            ;jump37 - send to serial port
 E4D1 F6 0B C0        ...   ldab 0bc0
-E4D4 2D 03           -.    blt 03
-E4D6 7E E5 58        ~.X   jmp e558            ;goto78
+E4D4 2D 03           -.    blt 03       ; free vend
+E4D6 7E E5 58        ~.X   jmp e558            ;goto78 if not
 E4D9 F6 0B C0        ...   ldab 0bc0
 E4D9 F6 0B C0        ...   ldab 0bc0
-E4DC C4 10           ..    andb #10
+E4DC C4 10           ..    andb #10     ; link master - price holding
 E4DE 26 78           &x    bne 78
 E4E0 F6 00 06        ...   ldab 0006
 E4E3 4F              O     clra 
 E4DE 26 78           &x    bne 78
 E4E0 F6 00 06        ...   ldab 0006
 E4E3 4F              O     clra 
@@ -13966,7 +13977,7 @@ 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
 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
+ECD0 F7 0B C0        ...   stab 0bc0    ; defaults to having a bill validator & dumb mech
 ECD3 7F 0E 6D        ..m   clr 0e6d
 ECD6 C6 01           ..    ldab #01
 ECD8 F7 0E 6E        ..n   stab 0e6e
 ECD3 7F 0E 6D        ..m   clr 0e6d
 ECD6 C6 01           ..    ldab #01
 ECD8 F7 0E 6E        ..n   stab 0e6e
UCC Snack Machine ROM

UCC git Repository :: git.ucc.asn.au