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

diff --git a/ROM-2003/vend.asm b/ROM-2003/vend.asm
index 66987f0..c654542 100644
--- a/ROM-2003/vend.asm
+++ b/ROM-2003/vend.asm
@@ -9790,17 +9790,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