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
some more random reverse engineering never committed.
[uccvend-snackrom.git]
/
ROM-2003
/
vend.asm
diff --git
a/ROM-2003/vend.asm
b/ROM-2003/vend.asm
index
17dbe57
..
c654234
100644
(file)
--- a/
ROM-2003/vend.asm
+++ b/
ROM-2003/vend.asm
@@
-10585,7
+10585,7
@@
D246 39 9 rts
D247 BD D1 3D ..= jsr d13d ;jump34 - motor on
D24A C6 3C .< ldab #3c ; 60
D24C F7 00 2E ... stab 002e
D247 BD D1 3D ..= jsr d13d ;jump34 - motor on
D24A C6 3C .< ldab #3c ; 60
D24C F7 00 2E ... stab 002e
-D24F C6 41 .A ldab #41 ; 65
+D24F C6 41 .A ldab #41 ; 65
01000001
D251 F7 00 31 ..1 stab 0031
D254 CE 00 1B ... ldx #001b
D257 1D 00 08 ... bclr 00,x #08
D251 F7 00 31 ..1 stab 0031
D254 CE 00 1B ... ldx #001b
D257 1D 00 08 ... bclr 00,x #08
@@
-10595,7
+10595,7
@@
D25D C4 08 .. andb #08
D25F 26 22 &" bne 22 ; to d283
D261 F6 00 2E ... ldab 002e
D264 C1 35 .5 cmpb #35 ; 53
D25F 26 22 &" bne 22 ; to d283
D261 F6 00 2E ... ldab 002e
D264 C1 35 .5 cmpb #35 ; 53
-D266 23 10 #. bls 10
+D266 23 10 #. bls 10
; to d278
D268 BD D5 70 ..p jsr d570 ;jump35 - check home sensor departed
D26B 83 00 00 ... subd #0000
D26E 27 06 '. beq 06 ; to d276
D268 BD D5 70 ..p jsr d570 ;jump35 - check home sensor departed
D26B 83 00 00 ... subd #0000
D26E 27 06 '. beq 06 ; to d276
@@
-11044,7
+11044,7
@@
D5AE 4F O clra
D5AF 39 9 rts
;This does almost the same - check the home sensor for this row (slot number
D5AF 39 9 rts
;This does almost the same - check the home sensor for this row (slot number
-;is in 0006) up to 5 times. If it is 1, return 0. If it stays 0, return
0
.
+;is in 0006) up to 5 times. If it is 1, return 0. If it stays 0, return
1
.
;(this is the reverse of the routine above). But also check bit 0 of 100a.
;If it is ever 0, return 0.
;005f is the row number
;(this is the reverse of the routine above). But also check bit 0 of 100a.
;If it is ever 0, return 0.
;005f is the row number
UCC
git Repository :: git.ucc.asn.au