git.ucc.asn.au / uccvend-snackrom.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 4c465fc)
Invalid slot number function found (invaild_slot_number)
authorBernard Blackham <[email protected]>
Sat, 2 Aug 2003 14:58:07 +0000 (14:58 +0000)
committerBernard Blackham <[email protected]>
Sat, 2 Aug 2003 14:58:07 +0000 (14:58 +0000)
ROM-2003/vend.asm patch | blob | history

diff --git a/ROM-2003/vend.asm b/ROM-2003/vend.asm
index 647b3c9..60f07de 100644 (file)
--- a/ROM-2003/vend.asm
+++ b/ROM-2003/vend.asm
@@ -524,7 +524,7 @@ goto1:
 825B F6 00 54        ..T   ldab 0054
 825E F7 00 06        ...   stab 0006
 8261 F6 00 06        ...   ldab 0006
 825B F6 00 54        ..T   ldab 0054
 825E F7 00 06        ...   stab 0006
 8261 F6 00 06        ...   ldab 0006
-8264 BD D7 A0        ...   jsr d7a0            ;jump10
+8264 BD D7 A0        ...   jsr d7a0            ;is_invalid_slot
 8267 83 00 00        ...   subd #0000
 826A 27 15           '.    beq 15
 826C CC 7F FF        ...   ldd #7fff
 8267 83 00 00        ...   subd #0000
 826A 27 15           '.    beq 15
 826C CC 7F FF        ...   ldd #7fff
@@ -586,7 +586,7 @@ goto1:
 82E4 F6 00 54        ..T   ldab 0054
 82E7 F7 00 06        ...   stab 0006
 82EA F6 00 06        ...   ldab 0006
 82E4 F6 00 54        ..T   ldab 0054
 82E7 F7 00 06        ...   stab 0006
 82EA F6 00 06        ...   ldab 0006
-82ED BD D7 A0        ...   jsr d7a0            ;jump10
+82ED BD D7 A0        ...   jsr d7a0            ;is_invalid_slot
 82F0 83 00 00        ...   subd #0000
 82F3 27 15           '.    beq 15
 82F5 CC 7F FF        ...   ldd #7fff
 82F0 83 00 00        ...   subd #0000
 82F3 27 15           '.    beq 15
 82F5 CC 7F FF        ...   ldd #7fff
@@ -648,7 +648,7 @@ goto1:
 836D F6 00 54        ..T   ldab 0054
 8370 F7 00 06        ...   stab 0006
 8373 F6 00 06        ...   ldab 0006
 836D F6 00 54        ..T   ldab 0054
 8370 F7 00 06        ...   stab 0006
 8373 F6 00 06        ...   ldab 0006
-8376 BD D7 A0        ...   jsr d7a0            ;jump10
+8376 BD D7 A0        ...   jsr d7a0            ;is_invalid_slot
 8379 83 00 00        ...   subd #0000
 837C 26 17           &.    bne 17
 837E F6 00 54        ..T   ldab 0054
 8379 83 00 00        ...   subd #0000
 837C 26 17           &.    bne 17
 837E F6 00 54        ..T   ldab 0054
@@ -820,8 +820,8 @@ jump73:
 8518 BD FE 16        ...   jsr fe16            ;jump2
 851B 00 00           .     
 851C 00 0B           .     
 8518 BD FE 16        ...   jsr fe16            ;jump2
 851B 00 00           .     
 851C 00 0B           .     
-851F 85 80           ..    
-8521 85 39           .9    
+851F 85 80           ..    ; default action - leave menu?
+8521 85 39           .9    ; 0 - no key pressed
 8523 85 4A           .J    ; key 1 - changer loading & calibration
 8525 85 4F           .O    ; key 2 - win-a-snack odds programming
 8527 85 54           .T    ; key 3 - set pricing
 8523 85 4A           .J    ; key 1 - changer loading & calibration
 8525 85 4F           .O    ; key 2 - win-a-snack odds programming
 8527 85 54           .T    ; key 3 - set pricing
@@ -1125,7 +1125,7 @@ jump74:
 87FE E6 00           ..    ldab 00,x
 8800 F7 00 06        ...   stab 0006
 8803 F6 00 06        ...   ldab 0006
 87FE E6 00           ..    ldab 00,x
 8800 F7 00 06        ...   stab 0006
 8803 F6 00 06        ...   ldab 0006
-8806 BD D7 A0        ...   jsr d7a0            ;jump10
+8806 BD D7 A0        ...   jsr d7a0            ;is_invalid_slot
 8809 83 00 00        ...   subd #0000
 880C 26 11           &.    bne 11
 880E BD D3 11        ...   jsr d311            ;jump30
 8809 83 00 00        ...   subd #0000
 880C 26 11           &.    bne 11
 880E BD D3 11        ...   jsr d311            ;jump30
@@ -1281,10 +1281,10 @@ jump17:
 8978 CE 00 1D        ...   ldx #001d
 897B 1C 00 80        ..    bset 00,x, #80
 897E F6 0B 94        ..    ldab 0b94
 8978 CE 00 1D        ...   ldx #001d
 897B 1C 00 80        ..    bset 00,x, #80
 897E F6 0B 94        ..    ldab 0b94
-8980 CB D0           ..    addb #d0
+8980 CB D0           ..    addb #d0     ; -48 (unmake it a digit)
 8983 37              7     pshb 
 8984 F6 0B 95        ...   ldab 0b95
 8983 37              7     pshb 
 8984 F6 0B 95        ...   ldab 0b95
-8987 CB D0           ..    addb #d0
+8987 CB D0           ..    addb #d0     ; -48 (unmake it a digit)
 8989 86 0A           ..    ldaa #0a
 898B 3D              =     mul 
 898C 30              0     tsx 
 8989 86 0A           ..    ldaa #0a
 898B 3D              =     mul 
 898C 30              0     tsx 
@@ -1294,9 +1294,9 @@ jump17:
 8993 C6 32           .2    ldab #32
 8995 F7 00 3A        ..:   stab 003a
 8998 F6 00 06        ...   ldab 0006
 8993 C6 32           .2    ldab #32
 8995 F7 00 3A        ..:   stab 003a
 8998 F6 00 06        ...   ldab 0006
-899B BD D7 A0        ...   jsr d7a0            ;jump10
+899B BD D7 A0        ...   jsr d7a0            ;is_invalid_slot
 899E 83 00 00        ...   subd #0000
 899E 83 00 00        ...   subd #0000
-89A1 26 27           &'    bne 27
+89A1 26 27           &'    bne 27       ; to 89ca
 89A3 BD D3 11        ...   jsr d311            ;jump30
 89A6 83 00 00        ...   subd #0000
 89A9 26 0B           &.    bne 0b
 89A3 BD D3 11        ...   jsr d311            ;jump30
 89A6 83 00 00        ...   subd #0000
 89A9 26 0B           &.    bne 0b
@@ -1311,6 +1311,7 @@ jump17:
 89C2 BD A3 85        ...   jsr a385            ;jump40
 89C5 BD 9A 47        ..G   jsr 9a47            ;jump39
 89C8 20 0C            .    bra 0c
 89C2 BD A3 85        ...   jsr a385            ;jump40
 89C5 BD 9A 47        ..G   jsr 9a47            ;jump39
 89C8 20 0C            .    bra 0c
+;
 89CA CE 00 1D        ...   ldx #001d
 89CD 1D 00           ..    bclr 00,x, #80
 89D0 CE 00 1F        ...   ldx #001f
 89CA CE 00 1D        ...   ldx #001d
 89CD 1D 00           ..    bclr 00,x, #80
 89D0 CE 00 1F        ...   ldx #001f
@@ -1319,18 +1320,18 @@ jump17:
 89D8 CE 00 1D        ...   ldx #001d
 89DB 1D 00 80        ...   bclr 00,x, #80
 ;goto6
 89D8 CE 00 1D        ...   ldx #001d
 89DB 1D 00 80        ...   bclr 00,x, #80
 ;goto6
-89DE 7E 8C 72        .~    jmp 8c72     ;goto7
+89DE 7E 8C 72        .~    jmp 8c72     ;goto7 (exit)
 ;goto5
 89E1 F6 00 1D        ...   ldab 001d
 89E4 2D 03           -.    blt 03
 ;goto5
 89E1 F6 00 1D        ...   ldab 001d
 89E4 2D 03           -.    blt 03
-89E6 7E 8C 72        ~.r   jmp 8c72            ;goto7
+89E6 7E 8C 72        ~.r   jmp 8c72            ;goto7 (exit)
 89E9 F6 00 09        ...   ldab 0009
 89EC 4F              O     clra 
 89ED BD FE 16        ...   jsr fe16            ;jump2
 89F0 00 00 00 0B     ....  ; params to jump2
 89E9 F6 00 09        ...   ldab 0009
 89EC 4F              O     clra 
 89ED BD FE 16        ...   jsr fe16            ;jump2
 89F0 00 00 00 0B     ....  ; params to jump2
-89F4 8C 72           ..    
-89F6 8A 0E           ..    
-89F8 8A 14           ..    
+89F4 8C 72           ..    ; default action
+89F6 8A 0E           ..    ; 0 - display price on screen?
+89F8 8A 14           ..    ; 1 - 
 89FA 8A AA           ..    
 89FC 8B 5E           .^    
 89FE 8B 9E           ..    
 89FA 8A AA           ..    
 89FC 8B 5E           .^    
 89FE 8B 9E           ..    
@@ -1342,7 +1343,7 @@ jump17:
 8A0A 8C 67           ..    
 8A0C 8C 6F           ..    
 8A0E BD 9A 47        ..    jsr 9a47    ;jump39
 8A0A 8C 67           ..    
 8A0C 8C 6F           ..    
 8A0E BD 9A 47        ..    jsr 9a47    ;jump39
-8A11 7E 8C 72        ...   jmp 8c72    ;goto7
+8A11 7E 8C 72        ...   jmp 8c72    ;goto7 (exit)
 8A14 F6 00 36        ...   ldab 0036
 8A17 27 03           '.    beq 03
 8A19 7E 8A 9B        ~..   jmp 8a9b            ;goto8
 8A14 F6 00 36        ...   ldab 0036
 8A17 27 03           '.    beq 03
 8A19 7E 8A 9B        ~..   jmp 8a9b            ;goto8
@@ -1363,8 +1364,8 @@ jump17:
 8A3E 4F              O     clra 
 8A3F 37              7     pshb 
 8A40 36              6     psha 
 8A3E 4F              O     clra 
 8A3F 37              7     pshb 
 8A40 36              6     psha 
-8A41 CC 00 FA        ...   ldd #00fa
-8A44 BD FB BA        ...   jsr fbba            ;jump38
+8A41 CC 00 FA        ...   ldd #00fa    ; 250 or -6
+8A44 BD FB BA        ...   jsr fbba            ;jump38 - multiply?
 8A47 B3 00 27        ..'   subd 0027
 8A4A 24 05           $.    bcc 05
 8A4C 5F              _     clrb 
 8A47 B3 00 27        ..'   subd 0027
 8A4A 24 05           $.    bcc 05
 8A4C 5F              _     clrb 
@@ -1403,13 +1404,13 @@ jump17:
 8A93 BD 9A 47        ..G   jsr 9a47            ;jump39
 8A96 C6 02           ..    ldab #02
 8A98 F7 00 36        ..6   stab 0036
 8A93 BD 9A 47        ..G   jsr 9a47            ;jump39
 8A96 C6 02           ..    ldab #02
 8A98 F7 00 36        ..6   stab 0036
-
 goto8:
 8A9B CE 00 1B        ...   ldx #001b
 8A9E 1C 00 10        ...   bset 00,x, #10
 8AA1 CC 02 33        ..3   ldd #0233
 8AA4 FD 00 3B        ..;   std 003b
 goto8:
 8A9B CE 00 1B        ...   ldx #001b
 8A9E 1C 00 10        ...   bset 00,x, #10
 8AA1 CC 02 33        ..3   ldd #0233
 8AA4 FD 00 3B        ..;   std 003b
-8AA7 7E 8C 72        ~.r   jmp 8c72            ;goto7
+8AA7 7E 8C 72        ~.r   jmp 8c72            ;goto7 (exit)
+;
 8AAA F6 00 36        ..6   ldab 0036
 8AAD 27 03           '.    beq 03
 8AAF 7E 8B 4F        ~.O   jmp 8b4f            ;goto9
 8AAA F6 00 36        ..6   ldab 0036
 8AAD 27 03           '.    beq 03
 8AAF 7E 8B 4F        ~.O   jmp 8b4f            ;goto9
@@ -1486,7 +1487,7 @@ goto9:
 8B52 1C 00 10        ..    bset 00,x, #10
 8B55 CC 02 33        ..3   ldd #0233
 8B58 FD 00 3B        ..;   std 003b
 8B52 1C 00 10        ..    bset 00,x, #10
 8B55 CC 02 33        ..3   ldd #0233
 8B58 FD 00 3B        ..;   std 003b
-8B5B 7E 8C 72        ~.r   jmp 8c72            ;goto7
+8B5B 7E 8C 72        ~.r   jmp 8c72            ;goto7 (exit)
 8B5E F6 00 36        ..6   ldab 0036
 8B61 26 2C           &,    bne 2c
 8B63 F6 00 1F        ...   ldab 001f
 8B5E F6 00 36        ..6   ldab 0036
 8B61 26 2C           &,    bne 2c
 8B63 F6 00 1F        ...   ldab 001f
@@ -1510,7 +1511,7 @@ goto9:
 8B92 1C 00 10        ..    bset 00,x, #10
 8B95 CC 02 33        ..3   ldd #0233
 8B98 FD 00 3B        ..;   std 003b
 8B92 1C 00 10        ..    bset 00,x, #10
 8B95 CC 02 33        ..3   ldd #0233
 8B98 FD 00 3B        ..;   std 003b
-8B9B 7E 8C 72        ~.r   jmp 8c72            ;goto7
+8B9B 7E 8C 72        ~.r   jmp 8c72            ;goto7 (exit)
 8B9E F6 00 36        ..6   ldab 0036
 8BA1 26 29           &)    bne 29
 8BA3 F6 00 1F        ...   ldab 001f
 8B9E F6 00 36        ..6   ldab 0036
 8BA1 26 29           &)    bne 29
 8BA3 F6 00 1F        ...   ldab 001f
@@ -1533,7 +1534,7 @@ goto9:
 8BCF 1C 00 10        ...   bset 00,x, #10
 8BD2 CC 02 33        ..3   ldd #0233
 8BD5 FD 00 3B        ..;   std 003b
 8BCF 1C 00 10        ...   bset 00,x, #10
 8BD2 CC 02 33        ..3   ldd #0233
 8BD5 FD 00 3B        ..;   std 003b
-8BD8 7E 8C 72        ~.r   jmp 8c72            ;goto7
+8BD8 7E 8C 72        ~.r   jmp 8c72            ;goto7 (exit)
 8BDB F6 00 1F        ...   ldab 001f
 8BDE C4 40           .@    andb #40
 8BE0 27 15           '.    beq 15
 8BDB F6 00 1F        ...   ldab 001f
 8BDE C4 40           .@    andb #40
 8BE0 27 15           '.    beq 15
@@ -1553,7 +1554,7 @@ goto9:
 8C04 24 24           $$    bcc 24
 8C06 BD 97 6F        ..o   jsr 976f            ;jump41
 8C09 F6 00 06        ...   ldab 0006
 8C04 24 24           $$    bcc 24
 8C06 BD 97 6F        ..o   jsr 976f            ;jump41
 8C09 F6 00 06        ...   ldab 0006
-8C0C BD D7 A0        ...   jsr d7a0            ;jump10
+8C0C BD D7 A0        ...   jsr d7a0            ;is_invalid_slot
 8C0F 83 00 00        ...   subd #0000
 8C12 27 16           '.    beq 16
 8C14 F6 00 06        ...   ldab 0006
 8C0F 83 00 00        ...   subd #0000
 8C12 27 16           '.    beq 16
 8C14 F6 00 06        ...   ldab 0006
@@ -1924,7 +1925,7 @@ jump20:
 8F6B F6 00 24        ..$   ldab 0024
 8F6E F7 00 06        ...   stab 0006
 8F71 F6 00 06        ...   ldab 0006
 8F6B F6 00 24        ..$   ldab 0024
 8F6E F7 00 06        ...   stab 0006
 8F71 F6 00 06        ...   ldab 0006
-8F74 BD D7 A0        ...   jsr d7a0            ;jump10
+8F74 BD D7 A0        ...   jsr d7a0            ;is_invalid_slot
 8F77 83 00 00        ...   subd #0000
 8F7A 27 03           '.    beq 03
 8F7C 7C 00 24        |.$   inc 0024
 8F77 83 00 00        ...   subd #0000
 8F7A 27 03           '.    beq 03
 8F7C 7C 00 24        |.$   inc 0024
@@ -1967,7 +1968,7 @@ jump20:
 8FD5 F6 00 24        ..$   ldab 0024
 8FD8 F7 00 06        ...   stab 0006
 8FDB F6 00 06        ...   ldab 0006
 8FD5 F6 00 24        ..$   ldab 0024
 8FD8 F7 00 06        ...   stab 0006
 8FDB F6 00 06        ...   ldab 0006
-8FDE BD D7 A0        ...   jsr d7a0            ;jump10
+8FDE BD D7 A0        ...   jsr d7a0            ;is_invalid_slot
 8FE1 83 00 00        ...   subd #0000
 8FE4 27 03           '.    beq 03
 8FE6 7A 00 24        z.$   dec 0024
 8FE1 83 00 00        ...   subd #0000
 8FE4 27 03           '.    beq 03
 8FE6 7A 00 24        z.$   dec 0024
@@ -1993,7 +1994,7 @@ jump20:
 901B F6 00 2A        ..*   ldab 002a
 901E F7 00 06        ...   stab 0006
 9021 F6 00 06        ...   ldab 0006
 901B F6 00 2A        ..*   ldab 002a
 901E F7 00 06        ...   stab 0006
 9021 F6 00 06        ...   ldab 0006
-9024 BD D7 A0        ...   jsr d7a0            ;jump10
+9024 BD D7 A0        ...   jsr d7a0            ;is_invalid_slot
 9027 83 00 00        ...   subd #0000
 902A 27 03           '.    beq 03
 902C 7C 00 2A        |.*   inc 002a
 9027 83 00 00        ...   subd #0000
 902A 27 03           '.    beq 03
 902C 7C 00 2A        |.*   inc 002a
@@ -2036,7 +2037,7 @@ jump20:
 9084 F6 00 2A        ..*   ldab 002a
 9087 F7 00 06        ...   stab 0006
 908A F6 00 06        ...   ldab 0006
 9084 F6 00 2A        ..*   ldab 002a
 9087 F7 00 06        ...   stab 0006
 908A F6 00 06        ...   ldab 0006
-908D BD D7 A0        ...   jsr d7a0            ;jump10
+908D BD D7 A0        ...   jsr d7a0            ;is_invalid_slot
 9090 83 00 00        ...   subd #0000
 9093 27 03           '.    beq 03
 9095 7A 00 2A        z.*   dec 002a
 9090 83 00 00        ...   subd #0000
 9093 27 03           '.    beq 03
 9095 7A 00 2A        z.*   dec 002a
@@ -2638,7 +2639,7 @@ jump24:
 9615 C6 32           .2    ldab #32
 9617 F7 00 3A        ..:   stab 003a
 961A F6 00 06        ...   ldab 0006
 9615 C6 32           .2    ldab #32
 9617 F7 00 3A        ..:   stab 003a
 961A F6 00 06        ...   ldab 0006
-961D BD D7 A0        ...   jsr d7a0            ;jump10
+961D BD D7 A0        ...   jsr d7a0            ;is_invalid_slot
 9620 83 00 00        ...   subd #0000
 9623 26 21           &!    bne 21
 9625 BD D3 11        ...   jsr d311            ;jump30
 9620 83 00 00        ...   subd #0000
 9623 26 21           &!    bne 21
 9625 BD D3 11        ...   jsr d311            ;jump30
@@ -2767,7 +2768,7 @@ jump148:
 9743 C6 45           .E    ldab #45
 9745 F7 00 06        ...   stab 0006
 9748 F6 00 06        ...   ldab 0006
 9743 C6 45           .E    ldab #45
 9745 F7 00 06        ...   stab 0006
 9748 F6 00 06        ...   ldab 0006
-974B BD D7 A0        ...   jsr d7a0            ;jump10
+974B BD D7 A0        ...   jsr d7a0            ;is_invalid_slot
 974E 83 00 00        ...   subd #0000
 9751 27 15           '.    beq 15
 9753 F6 00 06        ...   ldab 0006
 974E 83 00 00        ...   subd #0000
 9751 27 15           '.    beq 15
 9753 F6 00 06        ...   ldab 0006
@@ -5139,7 +5140,7 @@ ABBD 5D              ]     tstb
 ABBE 26 03           &.    bne 03
 ABC0 7E AC 7B        ~.{   jmp ac7b            ;goto23
 ABC3 F6 00 06        ...   ldab 0006
 ABBE 26 03           &.    bne 03
 ABC0 7E AC 7B        ~.{   jmp ac7b            ;goto23
 ABC3 F6 00 06        ...   ldab 0006
-ABC6 BD D7 A0        ...   jsr d7a0            ;jump10
+ABC6 BD D7 A0        ...   jsr d7a0            ;is_invalid_slot
 ABC9 83 00 00        ...   subd #0000
 ABCC 27 03           '.    beq 03
 ABCE 7E AC 7B        ~.{   jmp ac7b            ;goto23
 ABC9 83 00 00        ...   subd #0000
 ABCC 27 03           '.    beq 03
 ABCE 7E AC 7B        ~.{   jmp ac7b            ;goto23
@@ -7231,7 +7232,7 @@ B852 BD D4 68        ..h   jsr d468               ;jump51
 B855 83 00 00        ...   subd #0000
 B858 27 0B           '.    beq 0b
 B85A F6 0E 05        ...   ldab 0e05
 B855 83 00 00        ...   subd #0000
 B858 27 0B           '.    beq 0b
 B85A F6 0E 05        ...   ldab 0e05
-B85D BD D7 A0        ...   jsr d7a0            ;jump10
+B85D BD D7 A0        ...   jsr d7a0            ;is_invalid_slot
 B860 83 00 00        ...   subd #0000
 B863 27 09           '.    beq 09
 B865 30              0     tsx 
 B860 83 00 00        ...   subd #0000
 B863 27 09           '.    beq 09
 B865 30              0     tsx 
@@ -7250,7 +7251,7 @@ B880 83 00 00        ...   subd #0000
 B883 26 03           &.    bne 03
 B885 7E B9 0A        ~..   jmp b90a            ;goto26
 B888 F6 0E 05        ...   ldab 0e05
 B883 26 03           &.    bne 03
 B885 7E B9 0A        ~..   jmp b90a            ;goto26
 B888 F6 0E 05        ...   ldab 0e05
-B88B BD D7 A0        ...   jsr d7a0            ;jump10
+B88B BD D7 A0        ...   jsr d7a0            ;is_invalid_slot
 B88E 83 00 00        ...   subd #0000
 B891 26 77           &w    bne 77
 B893 BD BE 4B        ..K   jsr be4b            ;displayblank
 B88E 83 00 00        ...   subd #0000
 B891 26 77           &w    bne 77
 B893 BD BE 4B        ..K   jsr be4b            ;displayblank
@@ -10722,7 +10723,7 @@ D4BA 83 00 00        ...   subd #0000
 D4BD 27 03           '.    beq 03
 D4BF 7E D5 45        ~.E   jmp d545            ;goto64
 D4C2 F6 00 06        ...   ldab 0006
 D4BD 27 03           '.    beq 03
 D4BF 7E D5 45        ~.E   jmp d545            ;goto64
 D4C2 F6 00 06        ...   ldab 0006
-D4C5 BD D7 A0        ...   jsr d7a0            ;jump10
+D4C5 BD D7 A0        ...   jsr d7a0            ;is_invalid_slot
 D4C8 83 00 00        ...   subd #0000
 D4CB 26 78           &x    bne 78
 D4CD BD D5 B0        ...   jsr d5b0            ;jump31
 D4C8 83 00 00        ...   subd #0000
 D4CB 26 78           &x    bne 78
 D4CD BD D5 B0        ...   jsr d5b0            ;jump31
@@ -11108,52 +11109,60 @@ D79D 5F              _     clrb
 D79E 4F              O     clra 
 D79F 39              9     rts 
 
 D79E 4F              O     clra 
 D79F 39              9     rts 
 
-jump10:
+is_invalid_slot:
+; validates a slot number? (return 1 if invalid)
+; let i = number on stack
+; if i in [9, 69, 79, 89, 99], return 1
+; if 0e6d!=1 return 0
+; if i%10 not in [1,2] return 1
+; if i < 11 return 1
+; if i <= 62 return 0
+; return 1
 D7A0 37              7     pshb 
 D7A1 30              0     tsx 
 D7A2 E6 00           ..    ldab 00,x
 D7A0 37              7     pshb 
 D7A1 30              0     tsx 
 D7A2 E6 00           ..    ldab 00,x
-D7A4 C1 09           ..    cmpb #09
-D7A6 27 18           '.    beq 18
+D7A4 C1 09           ..    cmpb #09     ; 9
+D7A6 27 18           '.    beq 18       ; to d7c0 (returns 1)
 D7A8 E6 00           ..    ldab 00,x
 D7A8 E6 00           ..    ldab 00,x
-D7AA C1 45           .E    cmpb #45
-D7AC 27 12           '.    beq 12
+D7AA C1 45           .E    cmpb #45     ; 69
+D7AC 27 12           '.    beq 12       ; to d7c0 (returns 1)
 D7AE E6 00           ..    ldab 00,x
 D7AE E6 00           ..    ldab 00,x
-D7B0 C1 4F           .O    cmpb #4f
-D7B2 27 0C           '.    beq 0c
+D7B0 C1 4F           .O    cmpb #4f     ; 79
+D7B2 27 0C           '.    beq 0c       ; to d7c0 (returns 1)
 D7B4 E6 00           ..    ldab 00,x
 D7B4 E6 00           ..    ldab 00,x
-D7B6 C1 59           .Y    cmpb #59
-D7B8 27 06           '.    beq 06
+D7B6 C1 59           .Y    cmpb #59     ; 89
+D7B8 27 06           '.    beq 06       ; to d7c0 (returns 1)
 D7BA E6 00           ..    ldab 00,x
 D7BA E6 00           ..    ldab 00,x
-D7BC C1 63           .c    cmpb #63
-D7BE 26 05           &.    bne 05
+D7BC C1 63           .c    cmpb #63     ; 99 (also returns 1)
+D7BE 26 05           &.    bne 05       ; to d7c5 if not equal
 D7C0 CC 00 01        ...   ldd #0001
 D7C0 CC 00 01        ...   ldd #0001
-D7C3 20 38            8    bra 38
+D7C3 20 38            8    bra 38       ; to d7fd (return 1)
 D7C5 F6 0E 6D        ..m   ldab 0e6d
 D7C8 C1 01           ..    cmpb #01
 D7C5 F6 0E 6D        ..m   ldab 0e6d
 D7C8 C1 01           ..    cmpb #01
-D7CA 26 2F           &/    bne 2f
+D7CA 26 2F           &/    bne 2f       ;to d7fb (return 0)
 D7CC 30              0     tsx 
 D7CD E6 00           ..    ldab 00,x
 D7CF 4F              O     clra 
 D7D0 CE 00 0A        ...   ldx #000a
 D7D3 02              .     idiv 
 D7CC 30              0     tsx 
 D7CD E6 00           ..    ldab 00,x
 D7CF 4F              O     clra 
 D7D0 CE 00 0A        ...   ldx #000a
 D7D3 02              .     idiv 
-D7D4 C1 01           ..    cmpb #01
-D7D6 27 11           '.    beq 11
+D7D4 C1 01           ..    cmpb #01   
+D7D6 27 11           '.    beq 11      ;to d7e9 if num%10==1
 D7D8 30              0     tsx 
 D7D9 E6 00           ..    ldab 00,x
 D7DB 4F              O     clra 
 D7DC CE 00 0A        ...   ldx #000a
 D7DF 02              .     idiv 
 D7E0 C1 02           ..    cmpb #02
 D7D8 30              0     tsx 
 D7D9 E6 00           ..    ldab 00,x
 D7DB 4F              O     clra 
 D7DC CE 00 0A        ...   ldx #000a
 D7DF 02              .     idiv 
 D7E0 C1 02           ..    cmpb #02
-D7E2 27 05           '.    beq 05
+D7E2 27 05           '.    beq 05      ;to d7e9 if num%10==2
 D7E4 CC 00 01        ...   ldd #0001
 D7E4 CC 00 01        ...   ldd #0001
-D7E7 20 14            .    bra 14
+D7E7 20 14            .    bra 14      ; to d7fd (return 1)
 D7E9 30              0     tsx 
 D7EA E6 00           ..    ldab 00,x
 D7E9 30              0     tsx 
 D7EA E6 00           ..    ldab 00,x
-D7EC C1 0B           ..    cmpb #0b
-D7EE 25 06           %.    bcs 06
+D7EC C1 0B           ..    cmpb #0b    ; 11
+D7EE 25 06           %.    bcs 06      ; return 1
 D7F0 E6 00           ..    ldab 00,x
 D7F0 E6 00           ..    ldab 00,x
-D7F2 C1 3E           .>    cmpb #3e
-D7F4 23 05           #.    bls 05
+D7F2 C1 3E           .>    cmpb #3e    ; 62
+D7F4 23 05           #.    bls 05      ; return 0
 D7F6 CC 00 01        ...   ldd #0001
 D7F9 20 02            .    bra 02
 D7FB 5F              _     clrb 
 D7F6 CC 00 01        ...   ldd #0001
 D7F9 20 02            .    bra 02
 D7FB 5F              _     clrb 
@@ -13147,7 +13156,7 @@ E7CF 5D              ]     tstb
 E7D0 26 03           &.    bne 03
 E7D2 7E E8 99        ~..   jmp e899            ;goto79
 E7D5 F6 00 06        ...   ldab 0006
 E7D0 26 03           &.    bne 03
 E7D2 7E E8 99        ~..   jmp e899            ;goto79
 E7D5 F6 00 06        ...   ldab 0006
-E7D8 BD D7 A0        ...   jsr d7a0            ;jump10
+E7D8 BD D7 A0        ...   jsr d7a0            ;is_invalid_slot
 E7DB 83 00 00        ...   subd #0000
 E7DE 27 03           '.    beq 03
 E7E0 7E E8 99        ~..   jmp e899            ;goto79
 E7DB 83 00 00        ...   subd #0000
 E7DE 27 03           '.    beq 03
 E7E0 7E E8 99        ~..   jmp e899            ;goto79
@@ -13268,7 +13277,7 @@ E8B6 02              .     idiv
 E8B7 5D              ]     tstb 
 E8B8 27 54           'T    beq 54
 E8BA F6 00 06        ...   ldab 0006
 E8B7 5D              ]     tstb 
 E8B8 27 54           'T    beq 54
 E8BA F6 00 06        ...   ldab 0006
-E8BD BD D7 A0        ...   jsr d7a0            ;jump10
+E8BD BD D7 A0        ...   jsr d7a0            ;is_invalid_slot
 E8C0 83 00 00        ...   subd #0000
 E8C3 26 49           &I    bne 49
 E8C5 F6 00 06        ...   ldab 0006
 E8C0 83 00 00        ...   subd #0000
 E8C3 26 49           &I    bne 49
 E8C5 F6 00 06        ...   ldab 0006
UCC Snack Machine ROM

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