From: Mark Tearle Date: Fri, 28 Sep 2001 09:05:37 +0000 (+0000) Subject: *** empty log message *** X-Git-Tag: ROMW~160 X-Git-Url: https://git.ucc.asn.au/?a=commitdiff_plain;h=743fe101f870f2d95da1964e8bcaec1d477dd122;p=uccvend-snackrom.git *** empty log message *** --- diff --git a/ROM/vend.asm b/ROM/vend.asm index a07eac6..8be094b 100644 --- a/ROM/vend.asm +++ b/ROM/vend.asm @@ -36,6 +36,17 @@ ; 0 motor driver row output enable ;PA5 selects between RS232 and current loop serial interface? + + +; 0014 - ???? +; 001a - ???? +; 1000 +; 1009 +; 1026 +; 1028 +; 1030 +; 103c + 8000 43 C coma 8001 20 50 P bra 50 8003 4F O clra @@ -7772,9 +7783,10 @@ BE61 E7 00 .. stb 00,x BE63 7C 00 1C |.. inc 001c BE66 20 E6 . bra e6 BE68 39 9 rts -BE69 CE 10 00 ... ldx #1000 -BE6C 1D 00 .. bclr add,x 00,x -BE6E 80 BD .. suba #bd + +BE69 CE 10 00 ... ldx #1000 ; +BE6C 1D 00 .. bclr add,x 00,x ; +BE6E 80 BD .. suba #bd ; BE70 E5 96 .. bitb 96,x BE72 CE 10 00 ... ldx #1000 BE75 1C 00 .. bset add,x 00,x @@ -7798,6 +7810,7 @@ BE97 CE 10 28 ..( ldx #1028 BE9A 1D 00 .. bclr add,x 00,x BE9C 40 @ nega BE9D 39 9 rts + BE9E 37 7 pshb BE9F 36 6 psha BEA0 8D A9 .. bsr dest a9 @@ -8029,6 +8042,7 @@ C028 40 @ nega C029 BD BE 10 ... jsr be10 C02C 38 8 pulx C02D 39 9 rts + C02E 37 7 pshb C02F 36 6 psha C030 3C < pshx @@ -8130,6 +8144,7 @@ C0DA BD C0 2E ... jsr c02e C0DD 38 8 pulx C0DE 38 8 pulx C0DF 39 9 rts + C0E0 F6 00 15 ... ldab 0015 C0E3 2C 02 ,. bge 02 C0E5 20 F9 . bra f9 @@ -8145,6 +8160,7 @@ C0F8 1D 00 .. bclr add,x 00,x C0FA 20 5F _ bra 5f C0FC 4F O clra C0FD 39 9 rts + C0FE CE 00 14 ... ldx #0014 C101 1C 00 .. bset add,x 00,x C103 01 . nop @@ -8167,6 +8183,7 @@ C12B 1D 00 .. bclr add,x 00,x C12D 20 5F _ bra 5f C12F 4F O clra C130 39 9 rts + C131 20 E6 . bra e6 C133 FC 00 3E ..> ldd 003e C136 F3 00 40 ..@ addd 0040 @@ -8430,6 +8447,7 @@ C320 20 CC . bra cc C322 00 . test C323 01 . nop C324 39 9 rts + C325 F6 10 00 ... ldab 1000 C328 C4 01 .. andb #01 C32A 26 13 &. bne 13 @@ -8542,6 +8560,7 @@ C426 FD 00 3E ..> stad 003e C429 7F 00 7D ..} clr 007d C42C 7F 00 7E ..~ clr 007e C42F 39 9 rts + C430 F6 00 01 ... ldab 0001 C433 53 S comb C434 F4 00 1A ... andb 001a @@ -8556,6 +8575,7 @@ C44C F7 00 1A ... stb 001a C44F F6 00 1A ... ldab 001a C452 F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 C455 39 9 rts + C456 FC 00 40 ..@ ldd 0040 C459 26 03 &. bne 03 C45B 7E C5 C6 ~.. jmp c5c6 @@ -8780,6 +8800,7 @@ C673 F7 38 00 .8. stb 3800 C676 CC 00 19 ... ldd #0019 C679 BD E5 71 ..q jsr e571 C67C 39 9 rts + C67D F6 00 30 ..0 ldab 0030 C680 26 55 &U bne 55 C682 F6 0B C0 ... ldab 0bc0 @@ -8955,10 +8976,12 @@ C7DB F6 10 2C .., ldab 102c C7DE 2D 04 -. blt 04 C7E0 CC 00 01 ... ldd #0001 C7E3 39 9 rts + C7E4 5F _ clrb C7E5 4F O clra C7E6 39 9 rts + ;this might send a byte to the serial port C7E7 37 7 pshb @@ -8990,6 +9013,7 @@ C817 F7 10 2F ../ stb 102f ;sci data C81A 38 8 pulx C81B 39 9 rts + C81C 34 4 des C81D F6 0B C0 ... ldab 0bc0 C820 C4 01 .. andb #01 @@ -9993,6 +10017,7 @@ D08A FC 0B E1 ... ldd 0be1 D08D BD FB BA ... jsr fbba D090 FD 0B E1 ... stad 0be1 D093 39 9 rts + D094 34 4 des D095 30 0 tsx D096 6F 00 o. clr 00,x @@ -10047,6 +10072,7 @@ D0FE C6 08 .. ldab #08 D100 F7 0B DC ... stb 0bdc D103 31 1 ins D104 39 9 rts + D105 34 4 des D106 CE 00 1A ... ldx #001a D109 1C 00 .. bset add,x 00,x @@ -10078,6 +10104,7 @@ D135 F6 00 14 ... ldab 0014 D138 F7 38 00 .8. stb 3800 D13B 31 1 ins D13C 39 9 rts + D13D F6 00 06 ... ldab 0006 D140 4F O clra D141 CE 00 0A ... ldx #000a @@ -10172,6 +10199,7 @@ D1F7 00 . test D1F8 1A . illegal D1F9 F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 D1FC 39 9 rts + D1FD CC 40 00 .@. ldd #4000 D200 37 7 pshb D201 36 6 psha @@ -10185,6 +10213,7 @@ D20C AA 00 .. ora 00,x D20E EA 01 .. orb 01,x D210 ED 00 .. stad 00,x D212 39 9 rts + D213 F6 00 1F ... ldab 001f D216 C4 04 .. andb #04 D218 26 12 &. bne 12 @@ -10208,6 +10237,7 @@ D241 BD D6 3C ..< jsr d63c D244 5F _ clrb D245 4F O clra D246 39 9 rts + D247 BD D1 3D ..= jsr d13d D24A C6 3C .< ldab #3c D24C F7 00 2E ... stb 002e @@ -10235,6 +10265,7 @@ D27D BD D6 3C ..< jsr d63c D280 5F _ clrb D281 4F O clra D282 39 9 rts + D283 F6 00 2E ... ldab 002e D286 C1 36 .6 cmpb #36 D288 24 56 $V bcc 56 @@ -10257,6 +10288,7 @@ D2B1 BD D6 3C ..< jsr d63c D2B4 5F _ clrb D2B5 4F O clra D2B6 39 9 rts + D2B7 F6 00 06 ... ldab 0006 D2BA 4F O clra D2BB C3 0E 06 ... addd #0e06 @@ -10279,6 +10311,7 @@ D2D9 33 3 pulb D2DA E7 00 .. stb 00,x D2DC CC 00 01 ... ldd #0001 D2DF 39 9 rts + D2E0 F6 00 2E ... ldab 002e D2E3 26 14 &. bne 14 D2E5 BD D5 F7 ... jsr d5f7 @@ -10290,6 +10323,7 @@ D2F3 BD D6 26 ..& jsr d626 D2F6 5F _ clrb D2F7 4F O clra D2F8 39 9 rts + D2F9 F6 00 2E ... ldab 002e D2FC 26 0C &. bne 0c D2FE BD D1 05 ... jsr d105 @@ -10298,9 +10332,11 @@ D304 BD D6 3C ..< jsr d63c D307 5F _ clrb D308 4F O clra D309 39 9 rts + D30A 7E D2 5A ~.Z jmp d25a D30D BD E6 1B ... jsr e61b D310 39 9 rts + D311 BD D1 3D ..= jsr d13d D314 7F 00 1C ... clr 001c D317 7F 00 18 ... clr 0018 @@ -10314,6 +10350,7 @@ D329 26 07 &. bne 07 D32B BD D1 05 ... jsr d105 D32E CC 00 01 ... ldd #0001 D331 39 9 rts + D332 20 10 . bra 10 D334 7C 00 18 |.. inc 0018 D337 F6 00 18 ... ldab 0018 @@ -10323,6 +10360,7 @@ D33E BD D1 05 ... jsr d105 D341 5F _ clrb D342 4F O clra D343 39 9 rts + D344 20 D4 . bra d4 D346 3C < pshx D347 3C < pshx @@ -10470,6 +10508,7 @@ D464 38 8 pulx D465 38 8 pulx D466 31 1 ins D467 39 9 rts + D468 37 7 pshb D469 30 0 tsx D46A E6 00 .. ldab 00,x @@ -10482,6 +10521,7 @@ D474 5F _ clrb D475 84 80 .. anda #80 D477 31 1 ins D478 39 9 rts + D479 7F 00 1C ... clr 001c D47C F6 00 1C ... ldab 001c D47F C1 64 .d cmpb #64 @@ -10596,6 +10636,7 @@ D558 ED 00 .. stad 00,x D55A 7C 00 05 |.. inc 0005 D55D 7E D4 A0 ~.. jmp d4a0 D560 39 9 rts + D561 F6 00 06 ... ldab 0006 D564 4F O clra D565 05 . asld @@ -10637,6 +10678,7 @@ D5A3 C1 05 .. cmpb #05 D5A5 26 04 &. bne d5ab D5A7 CC 00 01 ... ldd #0001 D5AA 39 9 rts + D5AB 20 E8 . bra loop ;d595 D5AD 5F _ clrb D5AE 4F O clra @@ -10677,6 +10719,7 @@ D5EA C1 05 .. cmpb #05 D5EC 26 04 &. bne d5f2 D5EE CC 00 01 ... ldd #0001 D5F1 39 9 rts + D5F2 20 E1 . bra loop ;d5d5 D5F4 5F _ clrb D5F5 4F O clra @@ -10700,6 +10743,7 @@ D61B 26 03 &. bne 03 D61D 5F _ clrb D61E 4F O clra D61F 39 9 rts + D620 20 DD . bra dd D622 CC 00 01 ... ldd #0001 D625 39 9 rts @@ -10716,6 +10760,7 @@ D635 AA 00 .. ora 00,x D637 EA 01 .. orb 01,x D639 ED 00 .. stad 00,x D63B 39 9 rts + D63C CC 04 00 ... ldd #0400 D63F 37 7 pshb D640 36 6 psha @@ -10729,6 +10774,7 @@ D64B AA 00 .. ora 00,x D64D EA 01 .. orb 01,x D64F ED 00 .. stad 00,x D651 39 9 rts + D652 CE 00 1A ... ldx #001a D655 1C 00 .. bset add,x 00,x D657 01 . nop @@ -10740,6 +10786,7 @@ D663 01 . nop D664 F6 00 14 ... ldab 0014 D667 F7 38 00 .8. stb 3800 D66A 39 9 rts + D66B F6 0B C0 ... ldab 0bc0 D66E C4 08 .. andb #08 D670 27 07 '. beq 07 @@ -10798,6 +10845,7 @@ D6EE C4 01 .. andb #01 D6F0 27 03 '. beq 03 D6F2 BD C0 E0 ... jsr c0e0 D6F5 39 9 rts + D6F6 F6 0C DB ... ldab 0cdb D6F9 4F O clra D6FA 37 7 pshb @@ -10824,6 +10872,7 @@ D726 F3 0C ED ... addd 0ced D729 F3 0C EF ... addd 0cef D72C FD 0B EF ... stad 0bef D72F 39 9 rts + D730 F6 00 15 ... ldab 0015 D733 C4 1F .. andb #1f D735 27 49 'I beq 49 @@ -10840,6 +10889,7 @@ D751 CC 01 F4 ... ldd #01f4 D754 BD E5 71 ..q jsr e571 D757 CC 00 01 ... ldd #0001 D75A 39 9 rts + D75B F6 00 15 ... ldab 0015 D75E C4 04 .. andb #04 D760 27 1E '. beq 1e @@ -10854,9 +10904,11 @@ D776 CC 01 F4 ... ldd #01f4 D779 BD E5 71 ..q jsr e571 D77C CC 00 01 ... ldd #0001 D77F 39 9 rts + D780 5F _ clrb D781 4F O clra D782 39 9 rts + D783 F6 00 06 ... ldab 0006 D786 4F O clra D787 CE 00 0A ... ldx #000a @@ -10869,11 +10921,14 @@ D794 27 03 '. beq 03 D796 5F _ clrb D797 4F O clra D798 39 9 rts + D799 CC 00 01 ... ldd #0001 D79C 39 9 rts + D79D 5F _ clrb D79E 4F O clra D79F 39 9 rts + D7A0 37 7 pshb D7A1 30 0 tsx D7A2 E6 00 .. ldab 00,x @@ -10925,6 +10980,7 @@ D7FB 5F _ clrb D7FC 4F O clra D7FD 31 1 ins D7FE 39 9 rts + D7FF 7F 00 1C ... clr 001c D802 F6 00 1C ... ldab 001c D805 4F O clra @@ -10960,6 +11016,7 @@ D839 6C 01 l. inc 01,x D83B 26 02 &. bne 02 D83D 6C 00 l. inc 00,x D83F 39 9 rts + D840 FC 00 44 ..D ldd 0044 D843 26 03 &. bne 03 D845 7E D8 D2 ~.. jmp d8d2 @@ -11046,6 +11103,7 @@ D8CD BD FB DF ... jsr fbdf D8D0 31 1 ins D8D1 31 1 ins D8D2 39 9 rts + D8D3 7F 00 18 ... clr 0018 D8D6 F6 00 18 ... ldab 0018 D8D9 C1 10 .. cmpb #10 @@ -11055,6 +11113,7 @@ D8E0 BD E5 71 ..q jsr e571 D8E3 7C 00 18 |.. inc 0018 D8E6 20 EE . bra ee D8E8 39 9 rts + D8E9 F6 00 2B ..+ ldab 002b D8EC C1 00 .. cmpb #00 D8EE 26 18 &. bne 18 @@ -11099,6 +11158,7 @@ D950 CC AD 37 ..7 ldd #ad37 D953 BD C0 BA ... jsr c0ba D956 BD D8 D3 ... jsr d8d3 D959 39 9 rts + D95A F6 00 06 ... ldab 0006 D95D F1 0B AF ... cmpb 0baf D960 26 0D &. bne 0d @@ -11139,6 +11199,7 @@ D9B9 F6 0B B0 ... ldab 0bb0 D9BC F7 00 06 ... stb 0006 D9BF 8D 01 .. bsr dest 01 D9C1 39 9 rts + D9C2 CC 03 E8 ... ldd #03e8 D9C5 BD E5 71 ..q jsr e571 D9C8 BD D7 83 ... jsr d783 @@ -11224,6 +11285,7 @@ DA5E BD FB DF ... jsr fbdf DA61 31 1 ins DA62 31 1 ins DA63 39 9 rts + DA64 FE 0B B9 ... ldx 0bb9 DA67 08 . inx DA68 FF 0B B9 ... stx 0bb9 @@ -11344,6 +11406,7 @@ DB3D CE 00 11 ... ldx #0011 DB40 1C 00 .. bset add,x 00,x DB42 10 . sba DB43 39 9 rts + DB44 F6 00 2B ..+ ldab 002b DB47 C1 00 .. cmpb #00 DB49 26 08 &. bne 08 @@ -11398,6 +11461,7 @@ DBC1 CC AC F5 ... ldd #acf5 DBC4 BD C0 BA ... jsr c0ba DBC7 BD D8 D3 ... jsr d8d3 DBCA 39 9 rts + DBCB F6 00 1B ... ldab 001b DBCE C4 01 .. andb #01 DBD0 26 03 &. bne 03 @@ -11502,6 +11566,7 @@ DC9B C4 08 .. andb #08 DC9D 26 03 &. bne 03 DC9F BD D9 5A ..Z jsr d95a DCA2 39 9 rts + DCA3 CE 0B BC ... ldx #0bbc DCA6 1D 00 .. bclr add,x 00,x DCA8 1C F6 .. bset add,x f6,x @@ -11643,6 +11708,7 @@ DDCC 7C 0C DC |.. inc 0cdc DDCF C6 04 .. ldab #04 DDD1 F7 00 48 ..H stb 0048 DDD4 39 9 rts + DDD5 BD BE 69 ..i jsr be69 DDD8 C6 03 .. ldab #03 DDDA F7 00 1C ... stb 001c @@ -11667,11 +11733,13 @@ DE00 BD BE 10 ... jsr be10 DE03 C6 14 .. ldab #14 DE05 F7 00 2C .., stb 002c DE08 39 9 rts + DE09 CC 0B 9A ... ldd #0b9a DE0C BD C0 BA ... jsr c0ba DE0F C6 14 .. ldab #14 DE11 F7 00 2C .., stb 002c DE14 39 9 rts + DE15 F6 00 1B ... ldab 001b DE18 C4 01 .. andb #01 DE1A 26 03 &. bne 03 @@ -11734,6 +11802,7 @@ DE9E 1D 00 .. bclr add,x 00,x DEA0 01 . nop DEA1 7F 00 4F ..O clr 004f DEA4 39 9 rts + DEA5 F6 00 2B ..+ ldab 002b DEA8 C1 00 .. cmpb #00 DEAA 26 0D &. bne 0d @@ -11765,6 +11834,7 @@ DEDF CC AE 44 ..D ldd #ae44 DEE2 BD C0 2E ... jsr c02e DEE5 38 8 pulx DEE6 39 9 rts + DEE7 F6 0B C0 ... ldab 0bc0 DEEA C4 01 .. andb #01 DEEC 26 07 &. bne 07 @@ -11801,6 +11871,7 @@ DF34 27 07 '. beq 07 DF36 BD D6 52 ..R jsr d652 DF39 BD DE A5 ... jsr dea5 DF3C 39 9 rts + DF3D F6 00 4F ..O ldab 004f DF40 26 06 &. bne 06 DF42 CE 00 1B ... ldx #001b @@ -12083,6 +12154,7 @@ E1D2 BD C0 E0 ... jsr c0e0 E1D5 83 00 00 ... subd #0000 E1D8 26 01 &. bne 01 E1DA 39 9 rts + E1DB 20 03 . bra 03 E1DD BD C5 D3 ... jsr c5d3 E1E0 BD D6 52 ..R jsr d652 @@ -12576,6 +12648,7 @@ E5C8 FD 00 3B ..; stad 003b E5CB C6 02 .. ldab #02 E5CD F7 00 33 ..3 stb 0033 E5D0 39 9 rts + E5D1 C6 0B .. ldab #0b E5D3 F7 00 32 ..2 stb 0032 E5D6 39 9 rts @@ -12837,6 +12910,7 @@ E78E CB 30 .0 addb #30 E790 F7 00 5F .._ stb 005f E793 38 8 pulx E794 39 9 rts + E795 37 7 pshb E796 36 6 psha E797 30 0 tsx @@ -12867,6 +12941,7 @@ E7C0 CB 30 .0 addb #30 E7C2 F7 00 5F .._ stb 005f E7C5 38 8 pulx E7C6 39 9 rts + E7C7 F6 00 06 ... ldab 0006 E7CA 4F O clra E7CB CE 00 05 ... ldx #0005 @@ -12977,6 +13052,7 @@ E893 AA 00 .. ora 00,x E895 EA 01 .. orb 01,x E897 ED 00 .. stad 00,x E899 39 9 rts + E89A 5F _ clrb E89B 4F O clra E89C FD 00 0F ... stad 000f @@ -13037,6 +13113,7 @@ E923 05 . asld E924 B3 0B B7 ... subd 0bb7 E927 FD 00 0F ... stad 000f E92A 39 9 rts + E92B 34 4 des E92C 30 0 tsx E92D 6F 00 o. clr 00,x @@ -13144,6 +13221,7 @@ E9E2 FD 0D 1D ... stad 0d1d E9E5 FD 0D 1B ... stad 0d1b E9E8 31 1 ins E9E9 39 9 rts + E9EA 7F 00 06 ... clr 0006 E9ED F6 00 06 ... ldab 0006 E9F0 C1 64 .d cmpb #64 @@ -13205,6 +13283,7 @@ EA51 ED 00 .. stad 00,x EA53 7C 00 06 |.. inc 0006 EA56 20 95 . bra 95 EA58 39 9 rts + EA59 34 4 des EA5A CE 00 04 ... ldx #0004 EA5D 3C < pshx @@ -13649,6 +13728,7 @@ EDFB F6 00 14 ... ldab 0014 EDFE F7 38 00 .8. stb 3800 EE01 31 1 ins EE02 39 9 rts + EE03 37 7 pshb EE04 36 6 psha EE05 30 0 tsx @@ -13661,6 +13741,7 @@ EE13 DC BD E5 ... ldd bd EE16 71 q illegal EE17 38 8 pulx EE18 39 9 rts + EE19 BD E5 D1 ... jsr e5d1 EE1C CE 10 16 ... ldx #1016 EE1F 1D 01 .. bclr add,x 01,x @@ -14733,25 +14814,26 @@ F7D5 3B ; rti main: -F7D6 7F 00 14 ... clr 0014 -F7D9 5F _ clrb -F7DA F7 38 00 .8. stb 3800 -F7DD C6 7F .. ldab #7f -F7DF F7 00 1A ... stb 001a -F7E2 C6 7F .. ldab #7f +F7D6 7F 00 14 ... clr 0014 ;0 -> 0014 +F7D9 5F _ clrb ;0 -> B +F7DA F7 38 00 .8. stb 3800 ;B -> 3800 +F7DD C6 7F .. ldab #7f ;7F -> B +F7DF F7 00 1A ... stb 001a ;B -> 001a +F7E2 C6 7F .. ldab #7f ;7F -> B F7E4 F7 30 00 .0. stb 3000 ;snack motor drivers serial data is bit 7 -F7E7 C6 07 .. ldab #07 +F7E7 C6 07 .. ldab #07 ;7 -> B F7E9 F7 10 3C ..< stb 103c -F7EC C6 81 .. ldab #81 +F7EC C6 81 .. ldab #81 ;81 -> B F7EE F7 10 26 ..& stb 1026 -F7F1 5F _ clrb +F7F1 5F _ clrb ;0 -> B F7F2 F7 10 30 ..0 stb 1030 -F7F5 C6 C8 .. ldab #c8 +F7F5 C6 C8 .. ldab #c8 ;c8 -> B F7F7 F7 10 00 ... stb 1000 -F7FA C6 3E .> ldab #3e +F7FA C6 3E .> ldab #3e ;3e -> B F7FC F7 10 09 ... stb 1009 -F7FF C6 12 .. ldab #12 +F7FF C6 12 .. ldab #12 ;12 -> B F801 F7 10 28 ..( stb 1028 + F804 BD BE 69 ..i jsr be69 F807 BD EA 59 ..Y jsr ea59 F80A CC 00 64 ..d ldd #0064 @@ -15545,10 +15627,10 @@ FE47 6E 00 n. jmp 00,x reset: -FE49 86 40 .@ ldaa #40 -FE4B B7 10 24 ..$ sta 1024 ;40 -> 1024 -FE4E 86 A0 .. ldaa #a0 -FE50 B7 10 39 ..9 sta 1039 ;a0 -> 1024 +FE49 86 40 .@ ldaa #40 ;40 -> A +FE4B B7 10 24 ..$ sta 1024 ;A -> 1024 +FE4E 86 A0 .. ldaa #a0 ;a0 -> A +FE50 B7 10 39 ..9 sta 1039 ;A -> 1024 FE53 8E 00 EF ... lds #00ef FE56 CE 00 00 ... ldx #0000 ;wipe 0000-007f X=0000 FE59 8C 00 80 ... cpx #0080 ;loop: if X = 0080