From: Bernard Blackham <dagobah@ucc.asn.au>
Date: Mon, 11 Aug 2003 02:20:51 +0000 (+0000)
Subject: clarifications
X-Git-Tag: ROMW~76
X-Git-Url: https://git.ucc.asn.au/?p=uccvend-snackrom.git;a=commitdiff_plain;h=e80241181d6b633f07e4fb464ea698dc63b383ca

clarifications
---

diff --git a/ROM-2003/vend.asm b/ROM-2003/vend.asm
index c654542..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
@@ -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