; 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
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
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
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
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
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
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
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
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
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
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
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
C81A 38 8 pulx
C81B 39 9 rts
+
C81C 34 4 des
C81D F6 0B C0 ... ldab 0bc0
C820 C4 01 .. andb #01
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
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
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
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
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
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
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
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
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
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
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
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
D341 5F _ clrb
D342 4F O clra
D343 39 9 rts
+
D344 20 D4 . bra d4
D346 3C < pshx
D347 3C < pshx
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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