more unearthings
[uccvend-snackrom.git] / ROM-2003 / vend.asm
index 19de106..0757d0a 100644 (file)
@@ -3584,54 +3584,54 @@ jump100:
 9E8C F6 00 48        ..H   ldab 0048
 9E8F 4F              O     clra 
 9E90 BD FE 16        ...   jsr fe16            ;jump2
-9E93 00              .     test 
-9E94 01              .     nop 
-9E95 00              .     test 
-9E96 2D A1           -.    blt a1
-9E98 C4 9E           ..    andb #9e
-9E9A F5 9E FE        ...   bitb 9efe
-9E9D 9F 07 9F        ...   sts 07
-9EA0 10              .     sba 
-9EA1 9F 19 9F        ...   sts 19
-9EA4 3B              ;     rti 
-9EA5 9F 44 9F        .D.   sts 44
-9EA8 52              R     illegal 
-9EA9 9F 5B 9F        .[.   sts 5b
-9EAC 69              i     rol 
-9EAD 9F 72 9F        .r.   sts 72
-9EB0 80 9F           ..    suba #9f
-9EB2 89 9F           ..    adca #9f
-9EB4 97 9F A0        ...   staa 9f
-9EB7 9F AE 9F        ...   sts ae
-9EBA B7 9F C5        ...   staa 9fc5
-9EBD 9F DD 9F        ...   sts dd
-9EC0 EB A0           ..    addb a0,x
-9EC2 03              .     fdiv 
-9EC3 A0 11           ..    suba 11,x
-9EC5 A0 29           .)    suba 29,x
-9EC7 A0 37           .7    suba 37,x
-9EC9 A0 54           .T    suba 54,x
-9ECB A0 62           .b    suba 62,x
-9ECD A0 7F           ..    suba 7f,x
-9ECF A0 8D           ..    suba 8d,x
-9ED1 A0 96           ..    suba 96,x
-9ED3 A0 A4           ..    suba a4,x
-9ED5 A0 AD           ..    suba ad,x
-9ED7 A0 BC           ..    suba bc,x
-9ED9 A0 C5           ..    suba c5,x
-9EDB A0 D4           ..    suba d4,x
-9EDD A0 DD           ..    suba dd,x
-9EDF A0 EC           ..    suba ec,x
-9EE1 A0 F5           ..    suba f5,x
-9EE3 A1 04           ..    cmpa 04,x
-9EE5 A1 26           .&    cmpa 26,x
-9EE7 A1 34           .4    cmpa 34,x
-9EE9 A1 55           .U    cmpa 55,x
-9EEB A1 62           .b    cmpa 62,x
-9EED A1 83           ..    cmpa 83,x
-9EEF A1 90           ..    cmpa 90,x
-9EF1 A1 B1           ..    cmpa b1,x
-9EF3 A1 BE           ..    cmpa be,x
+9E93 00 01 00 2D     .     ; 45 choices here
+9E97 A1 C4           -.    ;
+9E99 9E F5           ..    ;
+9E9B 9E FE           ..    ;
+9E9D 9F 07           ..    ;
+9E9F 9F 10           ..    ;
+9EA1 9F 19           ..    ;
+9EA3 9F 3B           ;.    ;
+9EA5 9F 44           .D.   ;
+9EA7 9F 52           R     ;
+9EA9 9F 5B           .[.   ;
+9EAB 9F 69           i     ;
+9EAD 9F 72           .r.   ;
+9EBF 9F 80           ..    ;
+9EB1 9F 89           ..    ;
+9EB3 9F 97           ..    ;
+9EB5 9F A0           ...   ;
+9EB7 9F AE           ..    ;
+9EB9 9F B7           ...   ;
+9EBB 9F C5           ...   ;
+9EBD 9F DD           ...   ;
+9EBF 9F EB           ..    ;
+9EC1 A0 03           .     ;
+9EC3 A0 11           ..    ;
+9EC5 A0 29           .)    ;
+9EC7 A0 37           .7    ;
+9EC9 A0 54           .T    ;
+9ECB A0 62           .b    ;
+9ECD A0 7F           ..    ;
+9ECF A0 8D           ..    ;
+9ED1 A0 96           ..    ;
+9ED3 A0 A4           ..    ;
+9ED5 A0 AD           ..    ;
+9ED7 A0 BC           ..    ;
+9ED9 A0 C5           ..    ;
+9EDB A0 D4           ..    ;
+9EDD A0 DD           ..    ;
+9EDF A0 EC           ..    ;
+9EE1 A0 F5           ..    ;
+9EE3 A1 04           ..    ;
+9EE5 A1 26           .&    ;
+9EE7 A1 34           .4    ;
+9EE9 A1 55           .U    ;
+9EEB A1 62           .b    ;
+9EED A1 83           ..    ;
+9EEF A1 90           ..    ;
+9EF1 A1 B1           ..    ;
+9EF3 A1 BE           ..    ;
 9EF5 CC B2 90        ...   ldd #b290    ; "SERIAL #"
 9EF8 BD C0 BA        ...   jsr c0ba            ;display:
 9EFB 7E A1 C4        ~..   jmp a1c4            ;goto19
@@ -3644,13 +3644,13 @@ jump100:
 9F10 CC 0C CC        ...   ldd #0ccc    ; machine id?
 9F13 BD C0 BA        ...   jsr c0ba            ;display:
 9F16 7E A1 C4        ~..   jmp a1c4            ;goto19
-9F19 C6 41           .A    ldab #41
+9F19 C6 41           .A    ldab #41     ; "A"
 9F1B F7 0B 99        ...   stab 0b99
-9F1E C6 55           .U    ldab #55
+9F1E C6 55           .U    ldab #55     ; "U"
 9F20 F7 0B 98        ...   stab 0b98
-9F23 C6 44           .D    ldab #44
+9F23 C6 44           .D    ldab #44     ; "D"
 9F25 F7 0B 97        ...   stab 0b97
-9F28 C6 54           .T    ldab #54
+9F28 C6 54           .T    ldab #54     ; "T"
 9F2A F7 0B 96        ...   stab 0b96
 9F2D CE 00 00        ...   ldx #0000
 9F30 3C              <     pshx 
@@ -15787,16 +15787,11 @@ FD1E EC 0A           ..    ldd 0a,x
 FD20 7E FD E3        ~..   jmp fde3            ;goto90
 FD23 86 08           ..    ldaa #08
 FD25 A7 05           ..    staa 05,x
-FD27 69              i     rol 
-FD28 0D              .     sec 
-FD29 69              i     rol 
-FD2A 0C              .     clc 
-FD2B 69              i     rol 
-FD2C 0B              .     sev 
-FD2D 69              i     rol 
-FD2E 0A              .     clv 
-FD2F 69              i     rol 
-FD30 09              .     dex 
+FD27 69 0D           i.    rol 0d,x
+FD29 69 0C           i.    rol 0c,x
+FD2B 69 0B           i.    rol 0b,x
+FD2D 69 0A           i.    rol 0a,x
+FD2F 69 09           i.    rol 09,x
 FD31 EC 0B           ..    ldd 0b,x
 FD33 A3 10           ..    subd 10,x
 FD35 ED 14           ..    std 14,x
@@ -15809,8 +15804,7 @@ FD41 EC 14           ..    ldd 14,x
 FD43 ED 0B           ..    std 0b,x
 FD45 6A 05           j.    dec 05,x
 FD47 26 DE           &.    bne de
-FD49 69              i     rol 
-FD4A 0D              .     sec 
+FD49 69 0D           i.    rol 0d,x
 FD4B 1F 04 01 09     ....  brclr 04,x 01 09
 FD4F EC 0B           ..    ldd 0b,x
 FD51 ED 14           ..    std 14,x
@@ -15824,18 +15818,12 @@ FD5E 5F              _     clrb
 FD5F 7E FD E3        ~..   jmp fde3            ;goto90
 FD62 86 10           ..    ldaa #10
 FD64 A7 05           ..    staa 05,x
-FD66 69              i     rol 
-FD67 0D              .     sec 
-FD68 69              i     rol 
-FD69 0C              .     clc 
-FD6A 69              i     rol 
-FD6B 0B              .     sev 
-FD6C 69              i     rol 
-FD6D 0A              .     clv 
-FD6E 69              i     rol 
-FD6F 09              .     dex 
-FD70 69              i     rol 
-FD71 08              .     inx 
+FD66 69 0D           i.    rol 0d,x
+FD68 69 0C           i.    rol 0c,x
+FD6A 69 0B           i.    rol 0b,x
+FD6C 69 0A           i.    rol 0a,x
+FD6E 69 09           i.    rol 09,x
+FD70 69 08           i.    rol 08,x
 FD72 EC 0A           ..    ldd 0a,x
 FD74 A3 10           ..    subd 10,x
 FD76 ED 14           ..    std 14,x
@@ -15848,10 +15836,8 @@ FD82 EC 14           ..    ldd 14,x
 FD84 ED 0A           ..    std 0a,x
 FD86 6A 05           j.    dec 05,x
 FD88 26 DC           &.    bne dc
-FD8A 69              i     rol 
-FD8B 0D              .     sec 
-FD8C 69              i     rol 
-FD8D 0C              .     clc 
+FD8A 69 0D           i.    rol 0d,x
+FD8C 69 0C           i.    rol 0c,x
 FD8E 1F 04 01 08     ....  brclr 04,x 01 08
 FD92 EC 0A           ..    ldd 0a,x
 FD94 ED 14           ..    std 14,x
@@ -15884,10 +15870,8 @@ FDC2 EC 14           ..    ldd 14,x
 FDC4 ED 0A           ..    std 0a,x
 FDC6 6A 05           j.    dec 05,x
 FDC8 26 E0           &.    bne e0
-FDCA 69              i     rol 
-FDCB 0D              .     sec 
-FDCC 69              i     rol 
-FDCD 0C              .     clc 
+FDCA 69 0D           i.    rol 0d,x
+FDCC 69 0C           i.    rol 0c,x
 FDCE 1F 04 01 09     ....  brclr 04,x 01 09
 FDD2 EC 0A           ..    ldd 0a,x
 FDD4 ED 14           ..    std 14,x

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