From: Bernard Blackham <dagobah@ucc.asn.au>
Date: Thu, 7 Aug 2003 15:39:43 +0000 (+0000)
Subject: more findings
X-Git-Tag: ROMW~93
X-Git-Url: https://git.ucc.asn.au/?a=commitdiff_plain;h=b075a442ec22cd782dc7ff73985d7eb1321924c2;p=uccvend-snackrom.git

more findings
---

diff --git a/ROM-2003/vend.asm b/ROM-2003/vend.asm
index 0fb1161..fe7d7b2 100644
--- a/ROM-2003/vend.asm
+++ b/ROM-2003/vend.asm
@@ -1669,6 +1669,7 @@ goto7:
 8C72 39              9     rts 
 
 jump75:
+;fetches a price for the given slot?
 8C73 F6 00 06        ...   ldab 0006
 8C76 4F              O     clra 
 8C77 05              .     asld 
@@ -2628,13 +2629,10 @@ jump203:
 9551 CC B0 B8        ...   ldd #b0b8    ; "SELECTION?"
 9554 BD C0 BA        ...   jsr c0ba		;display:
 9557 CE 00 19        ...   ldx #0019
-955A 1D 00           ..    bclr add,x 00,x
-955C 80 CE           ..    suba #ce
-955E 00              .     test 
-955F 1D 1D 00        ...   bclr 1d,x, #00
-9562 80 7F           ..    suba #7f
-9564 00              .     test 
-9565 54              T     lsrb 
+955A 1D 00 80        ..    bclr 00,x, #80
+955D CE 00 1D        ..    ldx #001d
+9560 1D 00 80        ...   bclr 00,x, #80
+9562 7F 00 54        ..    clr 0054
 9566 C6 32           .2    ldab #32
 9568 F7 00 3A        ..:   stab 003a
 956B F6 00 0A        ...   ldab 000a
@@ -2690,10 +2688,8 @@ jump203:
 95DF F7 00 3A        ..:   stab 003a
 95E2 20 09            .    bra 09
 95E4 CE 00 19        ...   ldx #0019
-95E7 1C 00           ..    bset add,x 00,x
-95E9 80 7F           ..    suba #7f
-95EB 00              .     test 
-95EC 3A              :     abx 
+95E7 1C 00 80        ..    bset 00,x, #80
+95E9 7F 00 3A        ..    clr 003a
 95ED BD BE 01        ...   jsr be01		;jump70
 95F0 7C 00 54        |.T   inc 0054
 95F3 F6 00 54        ..T   ldab 0054
@@ -2729,23 +2725,19 @@ jump203:
 9638 CE 00 1F        ...   ldx #001f
 963B 1D 00 40        ...   bclr 00,x, #40
 963E 7F 00 2C        ..,   clr 002c
-9641 BD 9A 47        ..G   jsr 9a47		;jump39
+9641 BD 9A 47        ..G   jsr 9a47		;jump39 - display price on screen
 9644 20 0C            .    bra 0c
 9646 CE 00 1D        ...   ldx #001d
-9649 1D 00           ..    bclr add,x 00,x
-964B 80 CE           ..    suba #ce
-964D 00              .     test 
-964E 19              .     daa 
-964F 1C 00           ..    bset add,x 00,x
-9651 80 20           .     suba #20
-9653 06              .     tap 
+9649 1D 00 80        ..    bclr 00,x, #80
+964C CE 00 19        ..    ldx #0019
+964F 1C 00 80        ..    bset 00,x, #80
+9652 20 06           .     bra 06
 9654 CE 00 1D        ...   ldx #001d
-9657 1D 00           ..    bclr add,x 00,x
-9659 80 20           .     suba #20
-; 965a   goto93
-965B 2B F6           +.    bmi f6
-; 965C
-;goto16
+9657 1D 00 80        ..    bclr 00,x, #80
+goto93:
+965A 20 2B           .     bra 2b
+goto16:
+965C F6 00           +.    bmi f6
 965D 00              .     test 
 965E 1D 2C           .,    bclr add,x 2c,x
 9660 26 BD           &.    bne bd
@@ -3178,6 +3170,7 @@ jump102:
 9A46 39              9     rts 
 
 jump39:
+; write a slot, price, etc to screen.
 9A47 BD BE 4B        ..K   jsr be4b		;displayblank
 9A4A F6 00 06        ...   ldab 0006
 9A4D 4F              O     clra 
@@ -3204,7 +3197,7 @@ jump39:
 9A87 F6 00 19        ...   ldab 0019
 9A8A C4 10           ..    andb #10
 9A8C 27 07           '.    beq 07
-9A8E C6 2A           .*    ldab #2a
+9A8E C6 2A           .*    ldab #2a     ; '*'
 9A90 F7 0B 92        ...   stab 0b92
 9A93 20 05            .    bra 05
 9A95 C6 20           .     ldab #20
@@ -3280,7 +3273,7 @@ jump39:
 9B47 20 0B            .    bra 0b
 9B49 CE 00 01        ...   ldx #0001
 9B4C 3C              <     pshx 
-9B4D CC 00 58        ..X   ldd #0058
+9B4D CC 00 58        ..X   ldd #0058    ; 'X'
 9B50 BD BD B5        ...   jsr bdb5		;jump78	
 9B53 38              8     pulx 
 9B54 CE 10 28        ..(   ldx #1028