From: Bernard Blackham Date: Mon, 11 Aug 2003 02:20:51 +0000 (+0000) Subject: clarifications X-Git-Tag: ROMW~76 X-Git-Url: https://git.ucc.asn.au/?a=commitdiff_plain;h=e80241181d6b633f07e4fb464ea698dc63b383ca;p=uccvend-snackrom.git clarifications --- diff --git a/ROM-2003/vend.asm b/ROM-2003/vend.asm index c654542..17dbe57 100644 --- a/ROM-2003/vend.asm +++ b/ROM-2003/vend.asm @@ -15,7 +15,7 @@ ;0015 ;0016 new key state (cf 0029) ;0017 bits 5-7 used mostly -;0018 +;0018 another loop variable ;0019 error statuses: ; bit 0 - over current ; bit 1 - home sensor failure @@ -9229,14 +9229,16 @@ C7C4 8D CE .. bsr c794 ; parity test? C7C6 83 00 00 ... subd #0000 C7C9 27 05 '. beq 05 C7CB F6 10 2C .., ldab 102c ; test the 9th bit -C7CE 2D 10 -. blt 10 ; to c7e0 +C7CE 2D 10 -. blt 10 ; to c7e0 - return 1 +; C7D0 F6 10 2F ../ ldab 102f ; sci data C7D3 4F O clra C7D4 8D BE .. bsr c794 ; parity test? C7D6 83 00 00 ... subd #0000 -C7D9 26 09 &. bne 09 ; to c7e4 +C7D9 26 09 &. bne 09 ; to c7e4 - return 0 C7DB F6 10 2C .., ldab 102c ; test the 9th bit C7DE 2D 04 -. blt 04 +; C7E0 CC 00 01 ... ldd #0001 ; return 1 C7E3 39 9 rts ; return 0 @@ -9753,6 +9755,18 @@ CBFC 7E CE 46 ~.F jmp ce46 ;goto47 (exit) ; ; ; +; +; +; +; +; +; +; +; +; +; +; +; goto44: CBFF F6 0B C0 ... ldab 0bc0 ; do we have our changer (link master)? CC02 C4 02 .. andb #02 @@ -9979,7 +9993,7 @@ CDAF 00 00 .. ; end of array data ; ; got 00110001 - "1" CDB1 F6 00 21 ..! ldab 0021 -CDB4 2C 08 ,. bge 08 +CDB4 2C 08 ,. bge 08 ; something to do with link master price holding CDB6 CC 00 80 ... ldd #0080 CDB9 BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech CDBC 20 1B . bra 1b ; to cdd9 - exit @@ -10607,7 +10621,7 @@ D295 83 00 00 ... subd #0000 D298 27 46 'F beq 46 ; to d2e0 D29A BD D1 05 ... jsr d105 ;motors_off D29D F6 00 2E ... ldab 002e -D2A0 C1 32 .2 cmpb #32 +D2A0 C1 32 .2 cmpb #32 ; 50 D2A2 22 07 ". bhi 07 ; to d2ab D2A4 8D 6B .k bsr 6b ;jump30 - test motor overvoltage? D2A6 83 00 00 ... subd #0000 @@ -10672,13 +10686,14 @@ jump30: D311 BD D1 3D ..= jsr d13d ;jump34 - motor on D314 7F 00 1C ... clr 001c D317 7F 00 18 ... clr 0018 +; loop: D31A F6 10 0A ... ldab 100a D31D C4 02 .. andb #02 ; motor overvoltage sense D31F 27 13 '. beq 13 ; to d334 D321 7C 00 1C |.. inc 001c D324 F6 00 1C ... ldab 001c D327 C1 FF .. cmpb #ff -D329 26 07 &. bne 07 +D329 26 07 &. bne 07 ; continue D32B BD D1 05 ... jsr d105 ;motors_off D32E CC 00 01 ... ldd #0001 D331 39 9 rts @@ -15247,6 +15262,7 @@ F7B4 7A 00 4F z.O dec 004f ; F7B7 F6 00 25 ..% ldab 0025 F7BA 27 03 '. beq 03 +; from jump34 F7BC 7A 00 25 z.% dec 0025 ; F7BF F6 00 31 ..1 ldab 0031