From: Bernard Blackham Date: Fri, 8 Aug 2003 00:21:34 +0000 (+0000) Subject: more about the coin mech & pricing system X-Git-Tag: ROMW~90 X-Git-Url: https://git.ucc.asn.au/?a=commitdiff_plain;h=50d80326b5ec23fe8ac5293c15b87c70d796ba88;p=uccvend-snackrom.git more about the coin mech & pricing system --- diff --git a/ROM-2003/vend.asm b/ROM-2003/vend.asm index 76004f2..fb6735f 100644 --- a/ROM-2003/vend.asm +++ b/ROM-2003/vend.asm @@ -8,6 +8,7 @@ ;0009 ;000a ;000c +;0011 another reflection of 2000 ;0012 another buffer for 1800 - what change to give? ;0013 location of decimal point? ;0014 buffer for 3800 register @@ -24,9 +25,11 @@ ;001c used for loop variables ;001d ;001f display related? bit 2. bit 4 denotes service mode +;0020 reflection of 2000 ;0021 lower 3 bits taken from SCI data somewhere ; bit 5 denotes machine out of order ;0023 buffer for 1800 +;0025 timer of some sort? - set to #0a and decremented by RTI ;0026 used exclusively in SCI interrupt handler ;0027 price of current item ;0029 previous key state (cf 0016) @@ -37,9 +40,10 @@ ;0035 only ever contains #1e ;003b commonly contains $0233 ;003d -;003e mask for 0040? (see f996) -;003f -;0040 +;003e cash in bill acceptor? +;003f word from above +;0040 cash in european coin mech? +;0041 word from above ;0042 current key press ;0043 current byte being sent out serial port ;0048 error status @@ -2743,7 +2747,7 @@ goto93: goto16: 965C F6 00 1D +. ldab 001d 965F 2C 26 ., bge 26 -9661 BD D2 13 &. jsr d213 ;jump45 +9661 BD D2 13 &. jsr d213 ;jump45 - vend it! 9664 83 00 00 ... subd #0000 9667 26 0F &. bne 0f 9669 CC 00 64 ..d ldd #0064 @@ -2808,7 +2812,7 @@ jump148: 9701 C1 63 .c cmpb #63 9703 26 03 &. bne 03 9705 7F 00 2C .., clr 002c -9708 BD D2 13 ... jsr d213 ;jump45 +9708 BD D2 13 ... jsr d213 ;jump45 - vend it! 970B 83 00 00 ... subd #0000 970E 27 03 '. beq 03 9710 7C 00 05 |.. inc 0005 @@ -8089,12 +8093,13 @@ BE9D 39 9 rts jump50: ; writes a slot and price to the screen? +; writes the slot number iff 0 pushed on to the stack BE9E 37 7 pshb BE9F 36 6 psha BEA0 8D A9 .. bsr a9 ; to be4b - displayblank BEA2 30 0 tsx BEA3 E6 05 .. ldab 05,x -BEA5 26 1B &. bne 1b +BEA5 26 1B &. bne 1b ; to bec2 BEA7 F6 00 06 ... ldab 0006 BEAA 4F O clra BEAB CE 00 0A ... ldx #000a @@ -8108,6 +8113,7 @@ BEB8 CE 00 0A ... ldx #000a BEBC 02 . idiv BEBD CB 30 .0 addb #30 BEBF F7 0B 98 ... stab 0b98 ; write slotnumber%10 +; BEC2 30 0 tsx BEC3 EC 00 .. ldd 00,x BEC5 C4 FF .. andb #ff @@ -8428,7 +8434,7 @@ C0D3 CE 00 09 ... ldx #0009 C0D6 3C < pshx C0D7 30 0 tsx C0D8 EC 02 .. ldd 02,x -C0DA BD C0 2E ... jsr c02e ;jump71 +C0DA BD C0 2E ... jsr c02e ;jump71 - display C0DD 38 8 pulx C0DE 38 8 pulx C0DF 39 9 rts @@ -9808,7 +9814,7 @@ CC7E CC EE .. ; if 0017 0076+=sp<<16, else 0040+=sp<16, then sam CC80 CD 19 .. ; 0baa = sp, then same as above CC82 CD 21 . ; 0baa = sp<<4, then same as above CC83 CD 30 !. ; 0013 = sp, then same as above - location of dec point? -CC85 CD 38 0 ; read byte & #01, +CC85 CD 38 0 ; read byte & #01, - have change ; CC88 F6 00 17 ... ldab 0017 CC8B C4 01 .. andb #01 @@ -9916,6 +9922,8 @@ CD31 E6 00 .. ldab 00,x CD33 F7 00 13 ... stab 0013 CD36 20 42 B bra 42 ; to cd7a - goto57 ; +; +; coin mech has no change if bit is set (displays EXACT COINS ONLY) CD38 F6 10 2F ../ ldab 102f ; read SCI data CD3B C4 01 .. andb #01 CD3D 27 08 '. beq 08 ; to cd47 @@ -11182,7 +11190,7 @@ D6F5 39 9 rts jump106: ; puts (0cdb+0bdd)+(0cda*0bdf)+(0cd9*0be1) => 0bef -; calculates how much money we have in the coin mech!!!! +; calculates how much money we have in some coin mech. D6F6 F6 0C DB ... ldab 0cdb D6F9 4F O clra D6FA 37 7 pshb @@ -11386,7 +11394,7 @@ D85C 3C < pshx D85D FC 0D EB ... ldd 0deb D860 37 7 pshb D861 36 6 psha -D862 CE E1 00 ... ldx #e100 +D862 CE E1 00 ... ldx #e100 ; 100000000 D865 3C < pshx D866 CC 05 F5 ... ldd #05f5 D869 37 7 pshb @@ -11427,7 +11435,7 @@ D8A1 3C < pshx D8A2 FC 0D E7 ... ldd 0de7 D8A5 37 7 pshb D8A6 36 6 psha -D8A7 CE E1 00 ... ldx #e100 ; 57600 +D8A7 CE E1 00 ... ldx #e100 ; 100000000 D8AA 3C < pshx D8AB CC 05 F5 ... ldd #05f5 D8AE 37 7 pshb @@ -11445,7 +11453,7 @@ D8BE 38 8 pulx D8BF 25 11 %. bcs 11 D8C1 CE 1F 00 ... ldx #1f00 D8C4 3C < pshx -D8C5 CC FA 0A ... ldd #fa0a +D8C5 CC FA 0A ... ldd #fa0a ; -100000000 D8C8 37 7 pshb D8C9 36 6 psha D8CA CC 0D E7 ... ldd #0de7 @@ -11567,7 +11575,7 @@ D9D3 5F _ clrb D9D4 4F O clra D9D5 FD 00 4D ..M std 004d D9D8 7E DA 63 ~.c jmp da63 ;goto67 -D9DB BD D2 13 ... jsr d213 ;jump45 +D9DB BD D2 13 ... jsr d213 ;jump45 - vend it! D9DE 83 00 00 ... subd #0000 D9E1 26 0A &. bne 0a D9E3 7F 00 06 ... clr 0006 @@ -12173,7 +12181,7 @@ DEAA 26 0D &. bne 0d DEAC CE 00 12 ... ldx #0012 DEAF 3C < pshx DEB0 CC AE 7E ..~ ldd #ae7e -DEB3 BD C0 2E ... jsr c02e ;jump71 +DEB3 BD C0 2E ... jsr c02e ;jump71 - display DEB6 38 8 pulx DEB7 20 2D - bra 2d DEB9 C1 01 .. cmpb #01 @@ -12181,7 +12189,7 @@ DEBB 26 0D &. bne 0d DEBD CE 00 0F ... ldx #000f DEC0 3C < pshx DEC1 CC AE 6D ..m ldd #ae6d ; something german -DEC4 BD C0 2E ... jsr c02e ;jump71 +DEC4 BD C0 2E ... jsr c02e ;jump71 - display DEC7 38 8 pulx DEC8 20 1C . bra 1c DECA C1 02 .. cmpb #02 @@ -12189,13 +12197,13 @@ DECC 26 0D &. bne 0d DECE CE 00 10 ... ldx #0010 DED1 3C < pshx DED2 CC AE 5B ..[ ldd #ae5b ; more german -DED5 BD C0 2E ... jsr c02e ;jump71 +DED5 BD C0 2E ... jsr c02e ;jump71 - display DED8 38 8 pulx DED9 20 0B . bra 0b DEDB CE 00 15 ... ldx #0015 DEDE 3C < pshx DEDF CC AE 44 ..D ldd #ae44 ; "MACHINE OUT OF ORDER" -DEE2 BD C0 2E ... jsr c02e ;jump71 +DEE2 BD C0 2E ... jsr c02e ;jump71 - display DEE5 38 8 pulx DEE6 39 9 rts @@ -12245,7 +12253,7 @@ DF40 26 06 &. bne 06 DF42 CE 00 1B ... ldx #001b DF45 1D 00 01 ... bclr 00,x, #01 DF48 F6 00 25 ..% ldab 0025 -DF4B 26 20 & bne 20 +DF4B 26 20 & bne 20 ; to df6d DF4D F6 00 1B ... ldab 001b DF50 C4 40 .@ andb #40 DF52 27 19 '. beq 19 @@ -12255,18 +12263,20 @@ DF5A 26 05 &. bne 05 DF5C FC 00 3E ..> ldd 003e DF5F 27 03 '. beq 03 DF61 BD DB 44 ..D jsr db44 ;jump104 - say thanks -DF64 BD D6 6B ..k jsr d66b ;jump107 +DF64 BD D6 6B ..k jsr d66b ;jump107 - chat to bill validator DF67 CE 00 1B ... ldx #001b DF6A 1D 00 40 ... bclr 00,x, #40 +; DF6D F6 00 2C .., ldab 002c DF70 27 03 '. beq 03 DF72 7E E0 66 ~.f jmp e066 ;goto71 DF75 F6 00 34 ..4 ldab 0034 -DF78 26 0B &. bne 0b +DF78 26 0B &. bne 0b ; to df85 DF7A BD BE 69 ..i jsr be69 ;displayreset -DF7D C6 32 .2 ldab #32 +DF7D C6 32 .2 ldab #32 ; 50 DF7F F7 00 34 ..4 stab 0034 -DF82 7E E0 63 ~.c jmp e063 ;goto72 +DF82 7E E0 63 ~.c jmp e063 ;goto72 - bail +; DF85 FC 00 40 ..@ ldd 0040 DF88 26 05 &. bne 05 DF8A FC 00 3E ..> ldd 003e @@ -12275,27 +12285,29 @@ DF8F CE 00 01 ... ldx #0001 DF92 3C < pshx DF93 FC 00 40 ..@ ldd 0040 DF96 F3 00 3E ..> addd 003e -DF99 BD BE 9E ... jsr be9e ;jump50 +DF99 BD BE 9E ... jsr be9e ;jump50 - write slot & price to screen? DF9C 38 8 pulx DF9D C6 05 .. ldab #05 DF9F F7 00 2C .., stab 002c DFA2 7E E0 63 ~.c jmp e063 ;goto72 +; DFA5 F6 0C D9 ... ldab 0cd9 DFA8 C1 04 .. cmpb #04 -DFAA 24 07 $. bcc 07 +DFAA 24 07 $. bcc 07 ; to dfb3 DFAC F6 0B C0 ... ldab 0bc0 DFAF C4 01 .. andb #01 ; have a dumb mech -DFB1 26 07 &. bne 07 +DFB1 26 07 &. bne 07 ; to dfba DFB3 F6 00 21 ..! ldab 0021 DFB6 C4 40 .@ andb #40 -DFB8 27 43 'C beq 43 +DFB8 27 43 'C beq 43 ; to dffd +; DFBA F6 00 2B ..+ ldab 002b DFBD C1 00 .. cmpb #00 DFBF 26 0D &. bne 0d DFC1 CE 00 19 ... ldx #0019 DFC4 3C < pshx DFC5 CC AD E7 ... ldd #ade7 ; "INTRODUZCA" -DFC8 BD C0 2E ... jsr c02e ;jump71 +DFC8 BD C0 2E ... jsr c02e ;jump71 - display DFCB 38 8 pulx DFCC 20 2D - bra 2d DFCE C1 01 .. cmpb #01 @@ -12303,7 +12315,7 @@ DFD0 26 0D &. bne 0d DFD2 CE 00 12 ... ldx #0012 DFD5 3C < pshx DFD6 CC AD D3 ... ldd #add3 ; "NICT UEBERZAHLEN" -DFD9 BD C0 2E ... jsr c02e ;jump71 +DFD9 BD C0 2E ... jsr c02e ;jump71 - display DFDC 38 8 pulx DFDD 20 1C . bra 1c DFDF C1 02 .. cmpb #02 @@ -12311,7 +12323,7 @@ DFE1 26 0D &. bne 0d DFE3 CE 00 19 ... ldx #0019 DFE6 3C < pshx DFE7 CC AD B8 ... ldd #adb8 ; "MONNAIE EXACT" -DFEA BD C0 2E ... jsr c02e ;jump71 +DFEA BD C0 2E ... jsr c02e ;jump71 - display DFED 38 8 pulx DFEE 20 0B . bra 0b DFF0 CE 00 11 ... ldx #0011 ; length of @@ -12319,10 +12331,11 @@ DFF3 3C < pshx DFF4 CC AD A5 ... ldd #ada5 ; " EXACT COINS ONLY " DFF7 BD C0 2E ... jsr c02e ;jump71 - display DFFA 38 8 pulx -DFFB 20 66 f bra 66 +DFFB 20 66 f bra 66 ;goto72 +; DFFD F6 0B C0 ... ldab 0bc0 E000 C4 08 .. andb #08 ; have link master price holding -E002 27 52 'R beq 52 +E002 27 52 'R beq 52 ; to e056 E004 F6 0B C1 ... ldab 0bc1 E007 C4 08 .. andb #08 ; test bill error bit E009 26 08 &. bne 08 @@ -12335,7 +12348,7 @@ E018 26 0D &. bne 0d E01A CE 00 12 ... ldx #0012 E01D 3C < pshx E01E CC AE 30 ..0 ldd #ae30 ; "MONEDA UNICAMENTE" -E021 BD C0 2E ... jsr c02e ;jump71 +E021 BD C0 2E ... jsr c02e ;jump71 - display E024 38 8 pulx E025 20 2D - bra 2d E027 C1 01 .. cmpb #01 @@ -12343,7 +12356,7 @@ E029 26 0D &. bne 0d E02B CE 00 0B ... ldx #000b E02E 3C < pshx E02F CC AE 23 ..# ldd #ae23 ; "NUR MUNZEN" -E032 BD C0 2E ... jsr c02e ;jump71 +E032 BD C0 2E ... jsr c02e ;jump71 - display E035 38 8 pulx E036 20 1C . bra 1c E038 C1 02 .. cmpb #02 @@ -12351,28 +12364,29 @@ E03A 26 0D &. bne 0d E03C CE 00 12 ... ldx #0012 E03F 3C < pshx E040 CC AE 0F ... ldd #ae0f ; "MONNAIES SEULEMENT" -E043 BD C0 2E ... jsr c02e ;jump71 +E043 BD C0 2E ... jsr c02e ;jump71 - display E046 38 8 pulx E047 20 0B . bra 0b E049 CE 00 0B ... ldx #000b E04C 3C < pshx E04D CC AE 02 ... ldd #ae02 ; "COINS ONLY" -E050 BD C0 2E ... jsr c02e ;jump71 +E050 BD C0 2E ... jsr c02e ;jump71 - display E053 38 8 pulx E054 20 0D . bra 0d +; E056 F6 0B BF ... ldab 0bbf E059 4F O clra E05A 37 7 pshb E05B 36 6 psha E05C CC 09 93 ... ldd #0993 ; some custom message? -E05F BD C0 2E ... jsr c02e ;jump71 +E05F BD C0 2E ... jsr c02e ;jump71 - display E062 38 8 pulx goto72: -E063 7E E5 6A ~.j jmp e56a ;goto73 +E063 7E E5 6A ~.j jmp e56a ;goto73 - bail goto71: E066 F6 00 06 ... ldab 0006 E069 26 03 &. bne 03 -E06B 7E E5 6A ~.j jmp e56a ;goto73 +E06B 7E E5 6A ~.j jmp e56a ;goto73 - bail E06E CE 00 1D ... ldx #001d E071 1C 00 40 ... bset 00,x, #40 E074 BD E7 C7 ... jsr e7c7 ;jump114 @@ -12380,23 +12394,28 @@ E077 F6 00 06 ... ldab 0006 E07A C1 59 .Y cmpb #59 ; 89 E07C 26 06 &. bne 06 E07E BD DE 09 ... jsr de09 ;jump119 - display machine id -E081 7E E5 5E ~.^ jmp e55e ;goto74 +E081 7E E5 5E ~.^ jmp e55e ;goto74 - bail +; E084 F6 00 06 ... ldab 0006 E087 BD D4 68 ..h jsr d468 ;jump51 E08A 83 00 00 ... subd #0000 -E08D 27 18 '. beq 18 +E08D 27 18 '. beq 18 ; to e097 +; E08F BD D5 61 ..a jsr d561 ;jump42 E092 83 00 00 ... subd #0000 -E095 26 10 &. bne 10 +E095 26 10 &. bne 10 ; to e0a7 +; E097 BD D3 46 ..F jsr d346 ;jump43 E09A 83 00 00 ... subd #0000 E09D 26 08 &. bne 08 E09F BD D7 83 ... jsr d783 ;jump44 E0A2 83 00 00 ... subd #0000 E0A5 27 09 '. beq 09 +; E0A7 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep -E0AA BD D8 E9 ... jsr d8e9 ;jump92 -E0AD 7E E5 5E ~.^ jmp e55e ;goto74 +E0AA BD D8 E9 ... jsr d8e9 ;jump92 - "SELECT OTHER ITEM" +E0AD 7E E5 5E ~.^ jmp e55e ;goto74 - bail +; E0B0 F6 00 06 ... ldab 0006 E0B3 4F O clra E0B4 05 . asld @@ -12420,27 +12439,29 @@ E0D6 2C 05 ,. bge 05 ; free vend E0D8 5F _ clrb E0D9 4F O clra E0DA FD 00 44 ..D std 0044 +; E0DD F6 0B C0 ... ldab 0bc0 -E0E0 C4 02 .. andb #02 ; have a changer +E0E0 C4 02 .. andb #02 ; have a link master! (thats us!) E0E2 26 03 &. bne 03 E0E4 BD DE 15 ... jsr de15 ;jump118 E0E7 F6 00 11 ... ldab 0011 -E0EA C4 20 . andb #20 -E0EC 26 1A &. bne 1a +E0EA C4 20 . andb #20 ; win a snack? +E0EC 26 1A &. bne 1a ;to e108 E0EE F6 0B C0 ... ldab 0bc0 E0F1 C4 02 .. andb #02 ; have a changer -E0F3 26 13 &. bne 13 +E0F3 26 13 &. bne 13 ; to e108 E0F5 FC 00 40 ..@ ldd 0040 E0F8 F3 00 3E ..> addd 003e E0FB B3 00 44 ..D subd 0044 -E0FE 25 08 %. bcs 08 +E0FE 25 08 %. bcs 08 ; to e108 E100 F6 0B C0 ... ldab 0bc0 -E103 2D 03 -. blt 03 ; no free vend +E103 2D 03 -. blt 03 ; no free vend - to e108 E105 BD DA 64 ..d jsr da64 ;jump122 -E108 FC 00 40 ..@ ldd 0040 +; +E108 FC 00 40 ..@ ldd 0040 ; have sufficient funds? E10B F3 00 3E ..> addd 003e E10E B3 00 44 ..D subd 0044 -E111 24 50 $P bcc 50 +E111 24 50 $P bcc 50 ; to e163 E113 F6 0B C0 ... ldab 0bc0 E116 C4 10 .. andb #10 ; have link master price holding E118 26 49 &I bne 49 @@ -12466,57 +12487,60 @@ E147 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay E14A CE 00 00 ... ldx #0000 E14D 3C < pshx E14E FC 00 44 ..D ldd 0044 -E151 BD BE 9E ... jsr be9e ;jump50 +E151 BD BE 9E ... jsr be9e ;jump50 - write price to screen E154 38 8 pulx E155 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep E158 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay E15B C6 0C .. ldab #0c E15D F7 00 2C .., stab 002c -E160 7E E5 5E ~.^ jmp e55e ;goto74 +E160 7E E5 5E ~.^ jmp e55e ;goto74 - return +; E163 F6 0B C0 ... ldab 0bc0 E166 C4 01 .. andb #01 ; have a dumb mech -E168 26 11 &. bne 11 +E168 26 11 &. bne 11 ; to e17b E16A F6 0B C0 ... ldab 0bc0 E16D C4 04 .. andb #04 ; have a card reader -E16F 26 0A &. bne 0a +E16F 26 0A &. bne 0a ; to e17b E171 F6 0B C0 ... ldab 0bc0 E174 C4 0F .. andb #0f ; have any coin input mechanism -E176 27 03 '. beq 03 +E176 27 03 '. beq 03 ; to e17b E178 7E E3 35 ~.5 jmp e335 ;goto75 +; E17B FC 00 40 ..@ ldd 0040 E17E F3 00 3E ..> addd 003e E181 B3 00 44 ..D subd 0044 -E184 FD 10 16 ... std 1016 +E184 FD 10 16 ... std 1016 ; change required to give? E187 F6 00 15 ... ldab 0015 E18A C4 01 .. andb #01 -E18C 27 08 '. beq 08 +E18C 27 08 '. beq 08 ; to e196 E18E FC 10 16 ... ldd 1016 E191 83 00 64 ..d subd #0064 ; 100 -E194 25 3C %< bcs 3c +E194 25 3C %< bcs 3c ; to e1d2 E196 F6 00 15 ... ldab 0015 E199 C4 02 .. andb #02 -E19B 27 08 '. beq 08 +E19B 27 08 '. beq 08 ; to e1a5 E19D FC 10 16 ... ldd 1016 E1A0 83 00 C8 ... subd #00c8 ; 200 -E1A3 25 2D %- bcs 2d +E1A3 25 2D %- bcs 2d ; to e1d2 E1A5 F6 00 15 ... ldab 0015 E1A8 C4 04 .. andb #04 -E1AA 27 08 '. beq 08 +E1AA 27 08 '. beq 08 ; to e1b4 E1AC FC 10 16 ... ldd 1016 E1AF 83 01 F4 ... subd #01f4 ; 500 -E1B2 25 1E %. bcs 1e +E1B2 25 1E %. bcs 1e ; to e1d2 E1B4 F6 00 15 ... ldab 0015 E1B7 C4 08 .. andb #08 E1B9 27 08 '. beq 08 E1BB FC 10 16 ... ldd 1016 E1BE 83 03 E8 ... subd #03e8 ; 1000 -E1C1 25 0F %. bcs 0f +E1C1 25 0F %. bcs 0f ; to e1d2 E1C3 F6 00 15 ... ldab 0015 E1C6 C4 10 .. andb #10 -E1C8 27 13 '. beq 13 +E1C8 27 13 '. beq 13 ; to e1dd E1CA FC 10 16 ... ldd 1016 E1CD 83 07 D0 ... subd #07d0 ; 2000 -E1D0 24 0B $. bcc 0b +E1D0 24 0B $. bcc 0b ; to e1dd +; E1D2 BD C0 E0 ... jsr c0e0 ;jump94 E1D5 83 00 00 ... subd #0000 E1D8 26 01 &. bne 01 @@ -12529,15 +12553,15 @@ E1E0 BD D6 52 ..R jsr d652 ;jump5 E1E3 FC 00 40 ..@ ldd 0040 E1E6 B3 00 44 ..D subd 0044 E1E9 F3 00 3E ..> addd 003e -E1EC FD 00 40 ..@ std 0040 +E1EC FD 00 40 ..@ std 0040 ; credit left E1EF 5F _ clrb E1F0 4F O clra E1F1 FD 00 3E ..> std 003e E1F4 CE 00 1B ... ldx #001b E1F7 1C 00 80 .. bset 00,x, #80 -E1F9 BD D2 13 .. jsr d213 ;jump45 +E1F9 BD D2 13 .. jsr d213 ;jump45 - vend it! E1FC 83 00 00 ... subd #0000 -E200 26 12 &. bne 12 +E200 26 12 &. bne 12 ; to e214 E202 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep E205 BD D8 E9 ... jsr d8e9 ;jump92 - "SELECT OTHER ITEM" E208 FC 00 40 ..@ ldd 0040 @@ -12547,7 +12571,7 @@ E211 7E E3 29 ~.) jmp e329 ;goto92 E214 BD DB CB ... jsr dbcb ;jump121 E217 F6 00 1B ... ldab 001b E21A C4 20 . andb #20 -E21C 27 45 'E beq 45 +E21C 27 45 'E beq 45 ; to e263 E21E FC 00 44 ..D ldd 0044 E221 37 7 pshb E222 36 6 psha @@ -12566,7 +12590,7 @@ E236 37 7 pshb E237 36 6 psha E238 CE E1 00 ... ldx #e100 E23B 3C < pshx -E23C CC 05 F5 ... ldd #05f5 +E23C CC 05 F5 ... ldd #05f5 ; 100000000 (with above) E23F 37 7 pshb E240 36 6 psha E241 30 0 tsx @@ -12582,15 +12606,16 @@ E24F 38 8 pulx E250 25 11 %. bcs 11 E252 CE 1F 00 ... ldx #1f00 E255 3C < pshx -E256 CC FA 0A ... ldd #fa0a +E256 CC FA 0A ... ldd #fa0a ; -100000000 (with above) E259 37 7 pshb E25A 36 6 psha E25B CC 0D FB ... ldd #0dfb -E25E BD FB DF ... jsr fbdf ;jump46 +E25E BD FB DF ... jsr fbdf ;jump46 - update accounting info? E261 31 1 ins E262 31 1 ins +; E263 F6 0B C0 ... ldab 0bc0 -E266 2C 78 ,x bge 78 ; free vend +E266 2C 78 ,x bge 78 ; free vend - to e2e0 E268 F6 00 06 ... ldab 0006 E26B 4F O clra E26C 05 . asld @@ -12606,7 +12631,7 @@ E27E 83 FF FF ... subd #ffff E281 26 05 &. bne 05 E283 5F _ clrb E284 4F O clra -E285 FD 0D 0D ... std 0d0d +E285 FD 0D 0D ... std 0d0d ; update number of free vends? E288 FE 0D 0D ... ldx 0d0d E28B 08 . inx E28C FF 0D 0D ... stx 0d0d @@ -12625,7 +12650,7 @@ E2A1 5F _ clrb E2A2 37 7 pshb E2A3 36 6 psha E2A4 CC 0D 1B ... ldd #0d1b -E2A7 BD FB DF ... jsr fbdf ;jump46 +E2A7 BD FB DF ... jsr fbdf ;jump46 - update accounting info? E2AA 31 1 ins E2AB 31 1 ins E2AC FE 0D 1D ... ldx 0d1d @@ -12635,7 +12660,7 @@ E2B3 37 7 pshb E2B4 36 6 psha E2B5 CE E1 00 ... ldx #e100 E2B8 3C < pshx -E2B9 CC 05 F5 ... ldd #05f5 +E2B9 CC 05 F5 ... ldd #05f5 ; 100000000 E2BC 37 7 pshb E2BD 36 6 psha E2BE 30 0 tsx @@ -12651,50 +12676,54 @@ E2CC 38 8 pulx E2CD 25 11 %. bcs 11 E2CF CE 1F 00 ... ldx #1f00 E2D2 3C < pshx -E2D3 CC FA 0A ... ldd #fa0a +E2D3 CC FA 0A ... ldd #fa0a ; -100000000 E2D6 37 7 pshb E2D7 36 6 psha E2D8 CC 0D 1B ... ldd #0d1b -E2DB BD FB DF ... jsr fbdf ;jump46 +E2DB BD FB DF ... jsr fbdf ;jump46 - update accounting info? E2DE 31 1 ins E2DF 31 1 ins +; E2E0 F6 00 11 ... ldab 0011 -E2E3 C4 10 .. andb #10 -E2E5 26 14 &. bne 14 +E2E3 C4 10 .. andb #10 ; multi dip switch +E2E5 26 14 &. bne 14 ; to e2fb E2E7 FC 00 40 ..@ ldd 0040 -E2EA 27 0F '. beq 0f +E2EA 27 0F '. beq 0f ; to e2fb E2EC FC 00 40 ..@ ldd 0040 E2EF B3 00 50 ..P subd 0050 -E2F2 24 15 $. bcc 15 +E2F2 24 15 $. bcc 15 ; to e309 E2F4 F6 00 11 ... ldab 0011 E2F7 C4 10 .. andb #10 E2F9 26 0E &. bne 0e +; E2FB BD DB 44 ..D jsr db44 ;jump104 - say thanks E2FE CE 00 1B ... ldx #001b E301 1D 00 40 ... bclr 00,x, #40 E304 7F 00 25 ..% clr 0025 -E307 20 1A . bra 1a +E307 20 1A . bra 1a ; to e323 +; E309 7F 00 2C .., clr 002c E30C CC 01 F4 ... ldd #01f4 E30F BD E5 71 ..q jsr e571 ;msdelay -E312 BD E5 AA ... jsr e5aa ;jump12 -E315 BD D8 E9 ... jsr d8e9 ;jump92 +E312 BD E5 AA ... jsr e5aa ;jump12 - beep if keypressed? +E315 BD D8 E9 ... jsr d8e9 ;jump92 - select other item E318 CE 00 1B ... ldx #001b E31B 1C 00 40 ... bset 00,x, #40 E31E C6 0A .. ldab #0a E320 F7 00 25 ..% stab 0025 +; E323 BD D7 FF ... jsr d7ff ;jump80 E326 BD D8 40 ..@ jsr d840 ;jump105 goto92: E329 BD E8 9A ... jsr e89a ;jump68 E32C CE 0B C1 ... ldx #0bc1 E32F 1D 00 08 ... bclr 00,x, #08 ; clear bill error bit -E332 7E E5 5E ~.^ jmp e55e ;goto74 +E332 7E E5 5E ~.^ jmp e55e ;goto74 - bail goto75: E335 F6 0B C0 ... ldab 0bc0 -E338 C4 02 .. andb #02 ; have a changer +E338 C4 02 .. andb #02 ; have changer - european link master type! E33A 26 03 &. bne 03 -E33C 7E E5 5E ~.^ jmp e55e ;goto74 +E33C 7E E5 5E ~.^ jmp e55e ;goto74 - bail E33F 5F _ clrb E340 4F O clra E341 FD 00 76 ..v std 0076 @@ -12820,13 +12849,13 @@ E46E CE 00 21 ..! ldx #0021 E471 1D 00 80 .. bclr 00,x, #80 E474 CE 00 1F .. ldx #001f E477 1D 00 08 .... bclr 00,x, #08 -E47A BD D2 13 ... jsr d213 ;jump45 +E47A BD D2 13 ... jsr d213 ;jump45 - vend it! E47D 83 00 00 ... subd #0000 E480 26 0F &. bne 0f E482 CC 00 80 ... ldd #0080 E485 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port E488 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep -E48B BD D8 E9 ... jsr d8e9 ;jump92 +E48B BD D8 E9 ... jsr d8e9 ;jump92 - "SELECT OTHER ITEM" E48E 7E E5 5E ~.^ jmp e55e ;goto74 E491 F6 00 2B ..+ ldab 002b E494 C1 00 .. cmpb #00 @@ -12936,7 +12965,7 @@ E55E 7F 00 06 ... clr 0006 E561 7F 00 2E ... clr 002e E564 CE 00 1B ... ldx #001b E567 1D 00 80 .. bclr 00,x, #80 -;goto73 +goto73: E56A CE 00 1D ... ldx #001d E56C 1D 00 40 .. bclr 00,x, #40 E570 39 9 rts