git.ucc.asn.au
/
uccvend-snackrom.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Invalid slot number function found (invaild_slot_number)
[uccvend-snackrom.git]
/
ROM-2003
/
vend.asm
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
git Repository :: git.ucc.asn.au