X-Git-Url: https://git.ucc.asn.au/?a=blobdiff_plain;f=ROM-2003%2Fvend.asm;h=17dbe578c962ce0b7bd03fc5283ddc1d7b771170;hb=78faadd7fc4709e03423d757711cf60b7ed2d9c1;hp=66987f0472853c48e915921a9da740b723593c39;hpb=c82d70d8954911bfaada39a3a00233b158fe4a4f;p=uccvend-snackrom.git

diff --git a/ROM-2003/vend.asm b/ROM-2003/vend.asm
index 66987f0..17dbe57 100644
--- a/ROM-2003/vend.asm
+++ b/ROM-2003/vend.asm
@@ -15,7 +15,7 @@
 ;0015
 ;0016   new key state (cf 0029)
 ;0017   bits 5-7 used mostly
-;0018   
+;0018   another loop variable
 ;0019   error statuses:
 ;         bit 0 - over current
 ;         bit 1 - home sensor failure
@@ -9229,14 +9229,16 @@ 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
+C7CE 2D 10           -.    blt 10           ; to c7e0 - return 1
+;
 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
+C7D9 26 09           &.    bne 09           ; to c7e4 - return 0
 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
@@ -9753,6 +9755,18 @@ CBFC 7E CE 46        ~.F   jmp ce46		;goto47 (exit)
 ;
 ;
 ;
+;
+;
+;
+;
+;
+;
+;
+;
+;
+;
+;
+;
 goto44:
 CBFF F6 0B C0        ...   ldab 0bc0    ; do we have our changer (link master)?
 CC02 C4 02           ..    andb #02
@@ -9790,17 +9804,17 @@ 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
+CC4F F6 00 08        ...   ldab 0008    ; already in a packet?
 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
-CC5C C1 20           .     cmpb #20     ; 00100000
+CC5C C1 20           .     cmpb #20     ; 00100000 ; 4th bit clear
 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
+CC66 C4 0F           ..    andb #0f     ; place lower nibble (data) onto stack var
 CC68 30              0     tsx 
 CC69 E7 00           ..    stab 00,x
 CC6B F6 00 08        ...   ldab 0008
@@ -9979,7 +9993,7 @@ CDAF 00 00           ..    ; end of array data
 ;
 ; got 00110001 - "1"
 CDB1 F6 00 21        ..!   ldab 0021
-CDB4 2C 08           ,.    bge 08
+CDB4 2C 08           ,.    bge 08       ; something to do with link master price holding
 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 - exit
@@ -10607,7 +10621,7 @@ D295 83 00 00        ...   subd #0000
 D298 27 46           'F    beq 46       ; to d2e0
 D29A BD D1 05        ...   jsr d105		;motors_off
 D29D F6 00 2E        ...   ldab 002e
-D2A0 C1 32           .2    cmpb #32
+D2A0 C1 32           .2    cmpb #32     ; 50
 D2A2 22 07           ".    bhi 07       ; to d2ab
 D2A4 8D 6B           .k    bsr 6b       ;jump30 - test motor overvoltage?
 D2A6 83 00 00        ...   subd #0000
@@ -10672,13 +10686,14 @@ jump30:
 D311 BD D1 3D        ..=   jsr d13d		;jump34 - motor on
 D314 7F 00 1C        ...   clr 001c
 D317 7F 00 18        ...   clr 0018
+; loop:
 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
+D329 26 07           &.    bne 07       ; continue
 D32B BD D1 05        ...   jsr d105		;motors_off
 D32E CC 00 01        ...   ldd #0001
 D331 39              9     rts 
@@ -15247,6 +15262,7 @@ F7B4 7A 00 4F        z.O   dec 004f
 ;
 F7B7 F6 00 25        ..%   ldab 0025
 F7BA 27 03           '.    beq 03
+; from jump34
 F7BC 7A 00 25        z.%   dec 0025
 ;
 F7BF F6 00 31        ..1   ldab 0031