Disassembly:Videocart 10
From veswiki
Template:Incomplete Disassembly
This is the complete disassembly of the Channel F Videocart_10 made with Peter Trauner's f8tool. Original code is copyright © 1977 Fairchild Semiconductor.
There is an alternate version of this videocart, Videocart_10b.
Sean Riddle wrote a patch to make it work properly with the Multi-Cart. This cart uses extra 2102 SRAM through ports of the cart PSU, as these ports aren't available in the Multi-Cart it was patched to use the "Chess RAM" instead (RAM at $2800 in the Multi-Cart).
Code available here:
The patch is also copied and pasted at the end of this page.
Reset: equ $0000
org $0800
CartridgeStart: LR $5,A ; 0800 55
NOP ; 0801 2b
CartridgeEntry: LIS $0 ; 0802 70
OUTS 0 ; 0803 b0
OUTS 1 ; 0804 b1
OUTS 4 ; 0805 b4
OUTS 5 ; 0806 b5
LI $d0 ; 0807 20 d0
LR $3,A ; 0809 53
PI $00d0 ; 080a 28 00 d0
LI $8a ; 080d 20 8a
LR $0,A ; 080f 50
LI $13 ; 0810 20 13
LR $2,A ; 0812 52
LI $33 ; 0813 20 33
LR $1,A ; 0815 51
PI $0679 ; 0816 28 06 79
LI $8b ; 0819 20 8b
LR $0,A ; 081b 50
PI $0679 ; 081c 28 06 79
A081f: PI A0a3b ; 081f 28 0a 3b
INS 0 ; 0822 a0
CI $0f ; 0823 25 0f
BT 4,A081f ; 0825 84 f9
COM ; 0827 18
SL 4 ; 0828 15
LISL 5 ; 0829 6d
LR (IS),A ; 082a 5c
A082b: LI $d6 ; 082b 20 d6
LR $3,A ; 082d 53
PI $00d0 ; 082e 28 00 d0
LI $c0 ; 0831 20 c0
LR $6,A ; 0833 56
LISU 2 ; 0834 62
LISL 6 ; 0835 6e
LR A,(IS)- ; 0836 4e
SR 4 ; 0837 14
CI $09 ; 0838 25 09
BT 1,A083d ; 083a 81 02
SR 1 ; 083c 12
A083d: AS (IS) ; 083d cc
LR (IS),A ; 083e 5c
A083f: LIS $a ; 083f 7a
LR $1,A ; 0840 51
LR A,(IS) ; 0841 4c
NI $0f ; 0842 21 0f
LR $a,A ; 0844 5a
LIS $a ; 0845 7a
AS $6 ; 0846 c6
LR $2,A ; 0847 52
LI $26 ; 0848 20 26
LR $0,A ; 084a 50
LIS $9 ; 084b 79
LR $8,A ; 084c 58
A084d: LR A,$a ; 084d 4a
XS $8 ; 084e e8
BT 4,A0857 ; 084f 84 07
DCI A0b6b ; 0851 2a 0b 6b
PI A0a64 ; 0854 28 0a 64
A0857: LIS $4 ; 0857 74
AS $2 ; 0858 c2
LR $2,A ; 0859 52
DS $8 ; 085a 38
BT 1,A084d ; 085b 81 f1
LI $72 ; 085d 20 72
LR $0,A ; 085f 50
A0860: DCI A0b6b ; 0860 2a 0b 6b
PI A0a64 ; 0863 28 0a 64
LIS $5 ; 0866 75
AS $1 ; 0867 c1
LR $1,A ; 0868 51
CI $5a ; 0869 25 5a
BF $4,A0860 ; 086b 94 f4
LR A,$6 ; 086d 46
CI $c0 ; 086e 25 c0
BT 4,A0875 ; 0870 84 04
JMP A0c6f ; 0872 29 0c 6f
A0875: LR A,(IS) ; 0875 4c
SL 4 ; 0876 15
AI $60 ; 0877 24 60
LR $4,A ; 0879 54
LISL 2 ; 087a 6a
LR (IS),A ; 087b 5c
LISL 0 ; 087c 68
LR (IS),A ; 087d 5c
LISU 3 ; 087e 63
A087f: LIS $0 ; 087f 70
LR (IS),A ; 0880 5c
LR A,IS ; 0881 0a
INC ; 0882 1f
LR IS,A ; 0883 0b
SL 1 ; 0884 13
BT 1,A087f ; 0885 81 f9
LIS $0 ; 0887 70
OUT $24 ; 0888 27 24
A088a: OUT $25 ; 088a 27 25
LIS $f ; 088c 7f
A088d: OUT $24 ; 088d 27 24
AI $ff ; 088f 24 ff
CI $07 ; 0891 25 07
BF $4,A088d ; 0893 94 f9
IN $25 ; 0895 26 25
INC ; 0897 1f
BF $4,A088a ; 0898 94 f1
LR $2,A ; 089a 52
LR A,$4 ; 089b 44
SR 1 ; 089c 12
SR 1 ; 089d 12
LR IS,A ; 089e 0b
LI $81 ; 089f 20 81
LR $0,A ; 08a1 50
PI A0aca ; 08a2 28 0a ca
BF $0,A08cb ; 08a5 90 25
A08a7: LR A,$4 ; 08a7 44
CI $ef ; 08a8 25 ef
BT 2,A08c0 ; 08aa 82 15
LR A,$4 ; 08ac 44
NI $0f ; 08ad 21 0f
CI $0f ; 08af 25 0f
BF $4,A08b8 ; 08b1 94 06
LI $60 ; 08b3 20 60
LR $4,A ; 08b5 54
BF $0,A08c4 ; 08b6 90 0d
A08b8: LIS $f ; 08b8 7f
NS $4 ; 08b9 f4
INC ; 08ba 1f
AI $60 ; 08bb 24 60
LR $4,A ; 08bd 54
BF $0,A08c4 ; 08be 90 05
A08c0: LR A,$4 ; 08c0 44
AI $10 ; 08c1 24 10
LR $4,A ; 08c3 54
A08c4: LIS $1 ; 08c4 71
LR $0,A ; 08c5 50
PI A0aca ; 08c6 28 0a ca
BF $1,A08a7 ; 08c9 91 dd
A08cb: PI A0b83 ; 08cb 28 0b 83
LR A,$4 ; 08ce 44
NI $0f ; 08cf 21 0f
CI $0f ; 08d1 25 0f
BF $4,A08e0 ; 08d3 94 0c
LR A,$3 ; 08d5 43
NI $01 ; 08d6 21 01
BF $4,A08e0 ; 08d8 94 07
LR A,$3 ; 08da 43
OI $02 ; 08db 22 02
LR $3,A ; 08dd 53
LIS $1 ; 08de 71
LR $5,A ; 08df 55
A08e0: JMP A0bcc ; 08e0 29 0b cc
A08e3: LI $81 ; 08e3 20 81
LR $0,A ; 08e5 50
PI A0ad8 ; 08e6 28 0a d8
LR A,$4 ; 08e9 44
AI $f0 ; 08ea 24 f0
LR $4,A ; 08ec 54
LR A,$4 ; 08ed 44
SR 1 ; 08ee 12
SR 1 ; 08ef 12
LR IS,A ; 08f0 0b
LI $aa ; 08f1 20 aa
LR $0,A ; 08f3 50
PI A0ab0 ; 08f4 28 0a b0
BF $0,A090a ; 08f7 90 12
A08f9: LI $81 ; 08f9 20 81
LR $0,A ; 08fb 50
PI A0ad0 ; 08fc 28 0a d0
DS $4 ; 08ff 34
LR A,$4 ; 0900 44
SR 1 ; 0901 12
SR 1 ; 0902 12
LR IS,A ; 0903 0b
LI $55 ; 0904 20 55
LR $0,A ; 0906 50
PI A0ab0 ; 0907 28 0a b0
A090a: LR A,$2 ; 090a 42
CI $a0 ; 090b 25 a0
BF $4,A0912 ; 090d 94 04
JMP A09a1 ; 090f 29 09 a1
A0912: LR A,$3 ; 0912 43
NI $fd ; 0913 21 fd
LR $3,A ; 0915 53
JMP A08cb ; 0916 29 08 cb
A0919: LI $81 ; 0919 20 81
LR $0,A ; 091b 50
PI A0ad4 ; 091c 28 0a d4
LR A,$4 ; 091f 44
SR 1 ; 0920 12
SR 1 ; 0921 12
LR IS,A ; 0922 0b
LIS $0 ; 0923 70
LR $0,A ; 0924 50
PI A0ab0 ; 0925 28 0a b0
LI $aa ; 0928 20 aa
BT 4,A092e ; 092a 84 03
LI $ff ; 092c 20 ff
A092e: LR $0,A ; 092e 50
PI A0ab0 ; 092f 28 0a b0
LR A,$4 ; 0932 44
AI $10 ; 0933 24 10
LR $4,A ; 0935 54
BF $0,A0959 ; 0936 90 22
A0938: LR A,$3 ; 0938 43
NI $02 ; 0939 21 02
BF $4,A0961 ; 093b 94 25
LI $81 ; 093d 20 81
LR $0,A ; 093f 50
PI A0acd ; 0940 28 0a cd
LR A,$4 ; 0943 44
SR 1 ; 0944 12
SR 1 ; 0945 12
LR IS,A ; 0946 0b
LIS $0 ; 0947 70
LR $0,A ; 0948 50
PI A0ab0 ; 0949 28 0a b0
LI $55 ; 094c 20 55
BT 4,A0952 ; 094e 84 03
LI $ff ; 0950 20 ff
A0952: LR $0,A ; 0952 50
PI A0ab0 ; 0953 28 0a b0
LR A,$4 ; 0956 44
INC ; 0957 1f
LR $4,A ; 0958 54
A0959: LR A,$2 ; 0959 42
CI $a0 ; 095a 25 a0
BT 4,A09a1 ; 095c 84 44
JMP A08cb ; 095e 29 08 cb
A0961: LR A,$3 ; 0961 43
OI $01 ; 0962 22 01
LR $3,A ; 0964 53
LR A,$4 ; 0965 44
SR 1 ; 0966 12
SR 1 ; 0967 12
LR IS,A ; 0968 0b
LIS $0 ; 0969 70
LR $0,A ; 096a 50
PI A0ab0 ; 096b 28 0a b0
LI $55 ; 096e 20 55
BT 4,A0974 ; 0970 84 03
LI $ff ; 0972 20 ff
A0974: LR $0,A ; 0974 50
PI A0ab0 ; 0975 28 0a b0
LR A,$3 ; 0978 43
NI $fd ; 0979 21 fd
LR $3,A ; 097b 53
LIS $0 ; 097c 70
AS $0 ; 097d c0
LI $60 ; 097e 20 60
BF $1,A0986 ; 0980 91 05
LR $4,A ; 0982 54
JMP A08c4 ; 0983 29 08 c4
A0986: JMP A08a7 ; 0986 29 08 a7
A0989: LR DC,Q ; 0989 0f
LR QL,A ; 098a 07
LR KU,A ; 098b 04
LR A,QU ; 098c 02
LR A,QU ; 098d 02
A098e: LR A,KL ; 098e 01
LR A,QU ; 098f 02
LR KU,A ; 0990 04
LR K,P ; 0991 08
A0992: JMP A0938 ; 0992 29 09 38
JMP A08f9 ; 0995 29 08 f9
JMP A0919 ; 0998 29 09 19
JMP A08e3 ; 099b 29 08 e3
JMP A08e3 ; 099e 29 08 e3
A09a1: LI $c0 ; 09a1 20 c0
LR $6,A ; 09a3 56
A09a4: LI $40 ; 09a4 20 40
LR QL,A ; 09a6 07
LI $5a ; 09a7 20 5a
LR $1,A ; 09a9 51
LIS $a ; 09aa 7a
AS $6 ; 09ab c6
LR $2,A ; 09ac 52
LI $26 ; 09ad 20 26
BF $0,A09ba ; 09af 90 0a
A09b1: LR QL,A ; 09b1 07
LI $55 ; 09b2 20 55
LR $1,A ; 09b4 51
LIS $a ; 09b5 7a
AS $6 ; 09b6 c6
LR $2,A ; 09b7 52
LI $72 ; 09b8 20 72
A09ba: LR $0,A ; 09ba 50
LI $ff ; 09bb 20 ff
LR $b,A ; 09bd 5b
A09be: LR A,$b ; 09be 4b
SR 1 ; 09bf 12
SR 1 ; 09c0 12
LR IS,A ; 09c1 0b
LR A,(IS) ; 09c2 4c
LR $9,A ; 09c3 59
LR A,$b ; 09c4 4b
NI $03 ; 09c5 21 03
LR $3,A ; 09c7 53
A09c8: DS $3 ; 09c8 33
BF $1,A09d1 ; 09c9 91 07
LR A,$9 ; 09cb 49
SR 1 ; 09cc 12
SR 1 ; 09cd 12
LR $9,A ; 09ce 59
BF $0,A09c8 ; 09cf 90 f8
A09d1: LR A,QL ; 09d1 03
SL 1 ; 09d2 13
LR A,$9 ; 09d3 49
BF $1,A09da ; 09d4 91 05
NI $02 ; 09d6 21 02
BF $0,A09dc ; 09d8 90 03
A09da: NI $01 ; 09da 21 01
A09dc: LR $3,A ; 09dc 53
LR A,$6 ; 09dd 46
CI $c0 ; 09de 25 c0
BF $4,A09f4 ; 09e0 94 13
LISU 2 ; 09e2 62
LISL 5 ; 09e3 6d
LR A,(IS) ; 09e4 4c
SR 4 ; 09e5 14
SR 1 ; 09e6 12
BT 4,A09f4 ; 09e7 84 0c
SR 1 ; 09e9 12
BT 4,A09f8 ; 09ea 84 0d
SR 1 ; 09ec 12
BT 4,A0a27 ; 09ed 84 39
LI $76 ; 09ef 20 76
LR $0,A ; 09f1 50
BF $0,A09f8 ; 09f2 90 05
A09f4: LIS $0 ; 09f4 70
AS $3 ; 09f5 c3
BF $4,A09fe ; 09f6 94 07
A09f8: DCI A0b6b ; 09f8 2a 0b 6b
PI A0a64 ; 09fb 28 0a 64
A09fe: DS $b ; 09fe 3b
LR A,$1 ; 09ff 41
AI $fb ; 0a00 24 fb
LR $1,A ; 0a02 51
LR A,QL ; 0a03 03
SL 1 ; 0a04 13
LR A,$1 ; 0a05 41
BF $1,A0a10 ; 0a06 91 09
CI $05 ; 0a08 25 05
BF $4,A09be ; 0a0a 94 b3
LI $55 ; 0a0c 20 55
BF $0,A0a16 ; 0a0e 90 07
A0a10: CI $0a ; 0a10 25 0a
BF $4,A09be ; 0a12 94 ab
LI $5a ; 0a14 20 5a
A0a16: LR $1,A ; 0a16 51
LIS $4 ; 0a17 74
AS $2 ; 0a18 c2
LR $2,A ; 0a19 52
NI $3f ; 0a1a 21 3f
CI $32 ; 0a1c 25 32
BF $4,A09be ; 0a1e 94 9f
LR A,QL ; 0a20 03
SL 1 ; 0a21 13
BT 1,A0a27 ; 0a22 81 04
JMP A09b1 ; 0a24 29 09 b1
A0a27: LISU 2 ; 0a27 62
LISL 1 ; 0a28 69
LIS $8 ; 0a29 78
LR (IS),A ; 0a2a 5c
LISL 3 ; 0a2b 6b
LR (IS)+,A ; 0a2c 5d
LR $b,A ; 0a2d 5b
SL 4 ; 0a2e 15
LR (IS)+,A ; 0a2f 5d
LR A,$6 ; 0a30 46
CI $c0 ; 0a31 25 c0
BT 4,A0a38 ; 0a33 84 04
JMP A083f ; 0a35 29 08 3f
A0a38: JMP A0e8d ; 0a38 29 0e 8d
A0a3b: LISU 2 ; 0a3b 62
LISL 6 ; 0a3c 6e
LR A,(IS) ; 0a3d 4c
SL 1 ; 0a3e 13
AS (IS)+ ; 0a3f cd
LR $0,A ; 0a40 50
LR A,(IS) ; 0a41 4c
AS (IS) ; 0a42 cc
LR $1,A ; 0a43 51
LR J,W ; 0a44 1e
LR A,$0 ; 0a45 40
SL 1 ; 0a46 13
LR W,J ; 0a47 1d
LNK ; 0a48 19
LR $0,A ; 0a49 50
LR A,$1 ; 0a4a 41
AS $1 ; 0a4b c1
LR $1,A ; 0a4c 51
LR J,W ; 0a4d 1e
LR A,$0 ; 0a4e 40
SL 1 ; 0a4f 13
LR W,J ; 0a50 1d
LNK ; 0a51 19
LR $0,A ; 0a52 50
LR A,$1 ; 0a53 41
AS (IS)- ; 0a54 ce
LR $1,A ; 0a55 51
LR A,$0 ; 0a56 40
LNK ; 0a57 19
AS (IS)+ ; 0a58 cd
LR $0,A ; 0a59 50
LR A,$1 ; 0a5a 41
AI $19 ; 0a5b 24 19
LR (IS)-,A ; 0a5d 5e
LR A,$0 ; 0a5e 40
LNK ; 0a5f 19
AI $36 ; 0a60 24 36
LR (IS),A ; 0a62 5c
POP ; 0a63 1c
A0a64: LR A,$0 ; 0a64 40
NI $0f ; 0a65 21 0f
LR $5,A ; 0a67 55
LR A,$0 ; 0a68 40
SR 4 ; 0a69 14
LR $4,A ; 0a6a 54
A0a6b: LR A,$2 ; 0a6b 42
COM ; 0a6c 18
NI $3f ; 0a6d 21 3f
LR $3,A ; 0a6f 53
INS 5 ; 0a70 a5
NI $c0 ; 0a71 21 c0
AS $3 ; 0a73 c3
OUTS 5 ; 0a74 b5
LM ; 0a75 16
LR $3,A ; 0a76 53
A0a77: LR A,$1 ; 0a77 41
COM ; 0a78 18
OUTS 4 ; 0a79 b4
LIS $0 ; 0a7a 70
AS $3 ; 0a7b c3
LR A,$2 ; 0a7c 42
BF $1,A0a80 ; 0a7d 91 02
LIS $0 ; 0a7f 70
A0a80: COM ; 0a80 18
NI $c0 ; 0a81 21 c0
OUTS 1 ; 0a83 b1
LR A,$3 ; 0a84 43
SL 1 ; 0a85 13
LR $3,A ; 0a86 53
LI $60 ; 0a87 20 60
OUTS 0 ; 0a89 b0
LI $50 ; 0a8a 20 50
OUTS 0 ; 0a8c b0
LR A,$1 ; 0a8d 41
INC ; 0a8e 1f
LR $1,A ; 0a8f 51
LIS $4 ; 0a90 74
A0a91: AI $ff ; 0a91 24 ff
BF $4,A0a91 ; 0a93 94 fd
DS $4 ; 0a95 34
BF $4,A0a77 ; 0a96 94 e0
LR A,$2 ; 0a98 42
INC ; 0a99 1f
LR $2,A ; 0a9a 52
LR A,$0 ; 0a9b 40
SR 4 ; 0a9c 14
LR $4,A ; 0a9d 54
COM ; 0a9e 18
INC ; 0a9f 1f
AS $1 ; 0aa0 c1
LR $1,A ; 0aa1 51
DS $5 ; 0aa2 35
BF $4,A0a6b ; 0aa3 94 c7
LR A,$0 ; 0aa5 40
NI $0f ; 0aa6 21 0f
COM ; 0aa8 18
INC ; 0aa9 1f
AS $2 ; 0aaa c2
LR $2,A ; 0aab 52
LIS $0 ; 0aac 70
OUTS 1 ; 0aad b1
OUTS 0 ; 0aae b0
POP ; 0aaf 1c
A0ab0: LR A,$4 ; 0ab0 44
NI $03 ; 0ab1 21 03
DCI A0b67 ; 0ab3 2a 0b 67
ADC ; 0ab6 8e
LM ; 0ab7 16
LR $1,A ; 0ab8 51
LIS $0 ; 0ab9 70
AS $0 ; 0aba c0
BT 4,A0ac6 ; 0abb 84 0a
LR A,(IS) ; 0abd 4c
NS $1 ; 0abe f1
LR (IS),A ; 0abf 5c
LR A,$1 ; 0ac0 41
COM ; 0ac1 18
NS $0 ; 0ac2 f0
AS (IS) ; 0ac3 cc
LR (IS),A ; 0ac4 5c
POP ; 0ac5 1c
A0ac6: LR A,$1 ; 0ac6 41
COM ; 0ac7 18
NS (IS) ; 0ac8 fc
POP ; 0ac9 1c
A0aca: LIS $0 ; 0aca 70
BF $0,A0ada ; 0acb 90 0e
A0acd: LIS $1 ; 0acd 71
BF $0,A0ada ; 0ace 90 0b
A0ad0: LI $ff ; 0ad0 20 ff
BF $0,A0ada ; 0ad2 90 07
A0ad4: LI $10 ; 0ad4 20 10
BF $0,A0ada ; 0ad6 90 03
A0ad8: LI $f0 ; 0ad8 20 f0
A0ada: AS $4 ; 0ada c4
OUT $25 ; 0adb 27 25
LIS $0 ; 0add 70
AS $0 ; 0ade c0
BF $1,A0ae7 ; 0adf 91 07
SL 1 ; 0ae1 13
OUT $24 ; 0ae2 27 24
IN $24 ; 0ae4 26 24
POP ; 0ae6 1c
A0ae7: LIS $f ; 0ae7 7f
A0ae8: OUT $24 ; 0ae8 27 24
AI $ff ; 0aea 24 ff
CI $07 ; 0aec 25 07
BF $4,A0ae8 ; 0aee 94 f9
LR A,$0 ; 0af0 40
SL 1 ; 0af1 13
OUT $24 ; 0af2 27 24
INC ; 0af4 1f
OUT $24 ; 0af5 27 24
AI $ff ; 0af7 24 ff
OUT $24 ; 0af9 27 24
LR A,$2 ; 0afb 42
INC ; 0afc 1f
LR $2,A ; 0afd 52
POP ; 0afe 1c
A0aff: LISU 1 ; 0aff 61
LISL 2 ; 0b00 6a
A0b01: LR K,P ; 0b01 08
LR A,IS ; 0b02 0a
LR $3,A ; 0b03 53
LIS $f ; 0b04 7f
LR $8,A ; 0b05 58
LR A,(IS) ; 0b06 4c
LR $4,A ; 0b07 54
LR $5,A ; 0b08 55
SL 4 ; 0b09 15
BF $4,A0b0f ; 0b0a 94 04
LIS $d ; 0b0c 7d
NS $8 ; 0b0d f8
LR $8,A ; 0b0e 58
A0b0f: LR A,$4 ; 0b0f 44
CI $6f ; 0b10 25 6f
BF $2,A0b17 ; 0b12 92 04
LIS $b ; 0b14 7b
NS $8 ; 0b15 f8
LR $8,A ; 0b16 58
A0b17: LR A,$4 ; 0b17 44
AI $f0 ; 0b18 24 f0
SR 1 ; 0b1a 12
SR 1 ; 0b1b 12
LR IS,A ; 0b1c 0b
LIS $0 ; 0b1d 70
LR $0,A ; 0b1e 50
PI A0ab0 ; 0b1f 28 0a b0
NI $aa ; 0b22 21 aa
LIS $b ; 0b24 7b
BF $4,A0b29 ; 0b25 94 03
NS $8 ; 0b27 f8
LR $8,A ; 0b28 58
A0b29: LR A,$8 ; 0b29 48
NI $02 ; 0b2a 21 02
BT 4,A0b3f ; 0b2c 84 12
DS $4 ; 0b2e 34
LR A,$4 ; 0b2f 44
SR 1 ; 0b30 12
SR 1 ; 0b31 12
LR IS,A ; 0b32 0b
LIS $0 ; 0b33 70
LR $0,A ; 0b34 50
PI A0ab0 ; 0b35 28 0a b0
NI $55 ; 0b38 21 55
LIS $d ; 0b3a 7d
BF $4,A0b3f ; 0b3b 94 03
NS $8 ; 0b3d f8
LR $8,A ; 0b3e 58
A0b3f: LR A,$5 ; 0b3f 45
LR $4,A ; 0b40 54
SR 1 ; 0b41 12
SR 1 ; 0b42 12
LR IS,A ; 0b43 0b
LIS $0 ; 0b44 70
LR $0,A ; 0b45 50
PI A0ab0 ; 0b46 28 0a b0
BF $4,A0b50 ; 0b49 94 06
LIS $6 ; 0b4b 76
NS $8 ; 0b4c f8
LR $8,A ; 0b4d 58
BF $0,A0b5d ; 0b4e 90 0e
A0b50: LR $0,A ; 0b50 50
SR 1 ; 0b51 12
SR 1 ; 0b52 12
BF $4,A0b50 ; 0b53 94 fc
DCI A0b61 ; 0b55 2a 0b 61
LR A,$0 ; 0b58 40
ADC ; 0b59 8e
LM ; 0b5a 16
NS $8 ; 0b5b f8
LR $8,A ; 0b5c 58
A0b5d: LR P,K ; 0b5d 09
LR A,$3 ; 0b5e 43
LR IS,A ; 0b5f 0b
POP ; 0b60 1c
A0b61: LR DC,Q ; 0b61 0f
LR QL,A ; 0b62 07
LR Q,DC ; 0b63 0e
LR DC,Q ; 0b64 0f
A0b65: LR A,QL ; 0b65 03
LR KU,A ; 0b66 04
A0b67: NS (IS) ; 0b67 fc
NS $3 ; 0b68 f3
db $cf
db $3f
A0b6b: db $ff
db $ff
db $ff
db $ff
db $ff
db $ff
A0b71: LR A,QU ; 0b71 02
LR A,KL ; 0b72 01
LR A,KL ; 0b73 01
LR A,QU ; 0b74 02
LR A,KL ; 0b75 01
LR A,QU ; 0b76 02
LR A,QU ; 0b77 02
LR A,KU ; 0b78 00
LR A,KL ; 0b79 01
LR A,QU ; 0b7a 02
LR A,QU ; 0b7b 02
LR A,KU ; 0b7c 00
LR A,QU ; 0b7d 02
A0b7e: LR A,KU ; 0b7e 00
LR A,KU ; 0b7f 00
LR A,KU ; 0b80 00
LR A,KU ; 0b81 00
LR A,KU ; 0b82 00
A0b83: LR K,P ; 0b83 08
LIS $f ; 0b84 7f
LR $5,A ; 0b85 55
LR A,$4 ; 0b86 44
CI $6f ; 0b87 25 6f
BT 2,A0b92 ; 0b89 82 08
LIS $1 ; 0b8b 71
LR $0,A ; 0b8c 50
PI A0ad8 ; 0b8d 28 0a d8
BF $1,A0b95 ; 0b90 91 04
A0b92: LIS $7 ; 0b92 77
NS $5 ; 0b93 f5
LR $5,A ; 0b94 55
A0b95: LR A,$4 ; 0b95 44
SL 4 ; 0b96 15
BT 4,A0ba0 ; 0b97 84 08
LIS $1 ; 0b99 71
LR $0,A ; 0b9a 50
PI A0ad0 ; 0b9b 28 0a d0
BF $1,A0ba3 ; 0b9e 91 04
A0ba0: LIS $d ; 0ba0 7d
NS $5 ; 0ba1 f5
LR $5,A ; 0ba2 55
A0ba3: LR A,$4 ; 0ba3 44
CI $ef ; 0ba4 25 ef
BF $2,A0baf ; 0ba6 92 08
LIS $1 ; 0ba8 71
LR $0,A ; 0ba9 50
PI A0ad4 ; 0baa 28 0a d4
BF $1,A0bb2 ; 0bad 91 04
A0baf: LIS $b ; 0baf 7b
NS $5 ; 0bb0 f5
LR $5,A ; 0bb1 55
A0bb2: LR A,$4 ; 0bb2 44
NI $0f ; 0bb3 21 0f
CI $0f ; 0bb5 25 0f
BT 4,A0bc0 ; 0bb7 84 08
LIS $1 ; 0bb9 71
LR $0,A ; 0bba 50
PI A0acd ; 0bbb 28 0a cd
BF $1,A0bc3 ; 0bbe 91 04
A0bc0: LIS $e ; 0bc0 7e
NS $5 ; 0bc1 f5
LR $5,A ; 0bc2 55
A0bc3: LIS $0 ; 0bc3 70
AS $5 ; 0bc4 c5
BF $4,A0bca ; 0bc5 94 04
JMP A08a7 ; 0bc7 29 08 a7
A0bca: LR P,K ; 0bca 09
POP ; 0bcb 1c
A0bcc: LR K,P ; 0bcc 08
A0bcd: PI A0a3b ; 0bcd 28 0a 3b
LR A,(IS)+ ; 0bd0 4d
SR 4 ; 0bd1 14
AS (IS)- ; 0bd2 ce
NI $03 ; 0bd3 21 03
DCI A098e ; 0bd5 2a 09 8e
ADC ; 0bd8 8e
LM ; 0bd9 16
NS $5 ; 0bda f5
BT 4,A0bcd ; 0bdb 84 f1
LR $0,A ; 0bdd 50
LISU 2 ; 0bde 62
LISL 4 ; 0bdf 6c
LIS $0 ; 0be0 70
AS (IS) ; 0be1 cc
BT 1,A0be6 ; 0be2 81 03
LR P,K ; 0be4 09
POP ; 0be5 1c
A0be6: LR A,$0 ; 0be6 40
DCI A0992 ; 0be7 2a 09 92
SR 1 ; 0bea 12
LR $9,A ; 0beb 59
SL 1 ; 0bec 13
AS $9 ; 0bed c9
ADC ; 0bee 8e
LR Q,DC ; 0bef 0e
LR P0,Q ; 0bf0 0d
A0bf1: LISU 1 ; 0bf1 61
LISL 2 ; 0bf2 6a
LI $c0 ; 0bf3 20 c0
BF $0,A0bff ; 0bf5 90 09
A0bf7: LR A,IS ; 0bf7 0a
CI $10 ; 0bf8 25 10
LI $40 ; 0bfa 20 40
BT 4,A0bff ; 0bfc 84 02
SL 1 ; 0bfe 13
A0bff: LR $3,A ; 0bff 53
LIS $c ; 0c00 7c
LR $1,A ; 0c01 51
LR A,(IS) ; 0c02 4c
NI $0f ; 0c03 21 0f
LR $0,A ; 0c05 50
LR A,$1 ; 0c06 41
A0c07: LR $1,A ; 0c07 51
AI $05 ; 0c08 24 05
DS $0 ; 0c0a 30
BT 1,A0c07 ; 0c0b 81 fb
LIS $c ; 0c0d 7c
LR $2,A ; 0c0e 52
LR A,(IS)+ ; 0c0f 4d
COM ; 0c10 18
SR 4 ; 0c11 14
LR $0,A ; 0c12 50
LR A,$2 ; 0c13 42
A0c14: LR $2,A ; 0c14 52
AI $04 ; 0c15 24 04
DS $0 ; 0c17 30
BT 1,A0c14 ; 0c18 81 fb
LR A,$2 ; 0c1a 42
AS $3 ; 0c1b c3
LR $2,A ; 0c1c 52
LI $32 ; 0c1d 20 32
LR $0,A ; 0c1f 50
LR A,(IS) ; 0c20 4c
NI $20 ; 0c21 21 20
BT 4,A0c39 ; 0c23 84 15
LR A,(IS) ; 0c25 4c
NI $07 ; 0c26 21 07
BT 4,A0c4b ; 0c28 84 22
AI $fc ; 0c2a 24 fc
LR $3,A ; 0c2c 53
LR A,(IS) ; 0c2d 4c
NI $10 ; 0c2e 21 10
LR A,$3 ; 0c30 43
BT 4,A0c35 ; 0c31 84 03
COM ; 0c33 18
INC ; 0c34 1f
A0c35: AS $2 ; 0c35 c2
LR $2,A ; 0c36 52
BF $0,A0c4b ; 0c37 90 13
A0c39: LR A,(IS) ; 0c39 4c
NI $07 ; 0c3a 21 07
BT 4,A0c4b ; 0c3c 84 0e
AI $fd ; 0c3e 24 fd
LR $3,A ; 0c40 53
LR A,(IS) ; 0c41 4c
NI $10 ; 0c42 21 10
LR A,$3 ; 0c44 43
BT 4,A0c49 ; 0c45 84 03
COM ; 0c47 18
INC ; 0c48 1f
A0c49: AS $1 ; 0c49 c1
LR $1,A ; 0c4a 51
A0c4b: LR A,(IS)- ; 0c4b 4e
POP ; 0c4c 1c
A0c4d: LIS $0 ; 0c4d 70
OUTS 1 ; 0c4e b1
OUTS 4 ; 0c4f b4
INS 1 ; 0c50 a1
COM ; 0c51 18
SL 4 ; 0c52 15
LR $6,A ; 0c53 56
INS 4 ; 0c54 a4
COM ; 0c55 18
SL 4 ; 0c56 15
SR 4 ; 0c57 14
AS $6 ; 0c58 c6
LR $6,A ; 0c59 56
POP ; 0c5a 1c
A0c5b: PI A0d00 ; 0c5b 28 0d 00
LR A,$1 ; 0c5e 41
CI $5b ; 0c5f 25 5b
BT 2,A0c92 ; 0c61 82 30
LR A,IS ; 0c63 0a
CI $11 ; 0c64 25 11
LI $40 ; 0c66 20 40
BT 2,A0c6b ; 0c68 82 02
SL 1 ; 0c6a 13
A0c6b: LR $6,A ; 0c6b 56
JMP A09a4 ; 0c6c 29 09 a4
A0c6f: PI A0d9f ; 0c6f 28 0d 9f
A0c72: PI A0a3b ; 0c72 28 0a 3b
PI A0c4d ; 0c75 28 0c 4d
LIS $0 ; 0c78 70
AS $6 ; 0c79 c6
BT 4,A0c72 ; 0c7a 84 f7
LISL 5 ; 0c7c 6d
NI $0f ; 0c7d 21 0f
BF $4,A0c83 ; 0c7f 94 03
LR A,$6 ; 0c81 46
SR 4 ; 0c82 14
A0c83: SL 4 ; 0c83 15
LR (IS)-,A ; 0c84 5e
LIS $0 ; 0c85 70
LR (IS)+,A ; 0c86 5d
LISU 3 ; 0c87 63
LISL 7 ; 0c88 6f
LR (IS),A ; 0c89 5c
LISU 7 ; 0c8a 67
LISL 3 ; 0c8b 6b
LI $28 ; 0c8c 20 28
LR (IS),A ; 0c8e 5c
JMP A082b ; 0c8f 29 08 2b
A0c92: LR A,IS ; 0c92 0a
CI $0b ; 0c93 25 0b
BT 2,A0cfa ; 0c95 82 64
LR $8,A ; 0c97 58
LISU 2 ; 0c98 62
LISL 4 ; 0c99 6c
LIS $0 ; 0c9a 70
AS (IS) ; 0c9b cc
BT 1,A0cc5 ; 0c9c 81 28
LR A,$2 ; 0c9e 42
NI $3f ; 0c9f 21 3f
LR $5,A ; 0ca1 55
LR A,$1 ; 0ca2 41
LR $4,A ; 0ca3 54
PI A0bf1 ; 0ca4 28 0b f1
LR A,$2 ; 0ca7 42
NI $3f ; 0ca8 21 3f
COM ; 0caa 18
INC ; 0cab 1f
AS $5 ; 0cac c5
BT 4,A0cb7 ; 0cad 84 09
BT 1,A0cb3 ; 0caf 81 03
COM ; 0cb1 18
INC ; 0cb2 1f
A0cb3: CI $01 ; 0cb3 25 01
BF $4,A0cc5 ; 0cb5 94 0f
A0cb7: LR A,$1 ; 0cb7 41
COM ; 0cb8 18
INC ; 0cb9 1f
AS $4 ; 0cba c4
BT 4,A0ce0 ; 0cbb 84 24
BT 1,A0cc1 ; 0cbd 81 03
COM ; 0cbf 18
INC ; 0cc0 1f
A0cc1: CI $02 ; 0cc1 25 02
BT 2,A0ce0 ; 0cc3 82 1c
A0cc5: LR A,$8 ; 0cc5 48
LR IS,A ; 0cc6 0b
CI $11 ; 0cc7 25 11
BT 2,A0cd3 ; 0cc9 82 09
LISL 4 ; 0ccb 6c
LIS $0 ; 0ccc 70
AS (IS) ; 0ccd cc
BT 1,A0cfa ; 0cce 81 2b
A0cd0: JMP A0de0 ; 0cd0 29 0d e0
A0cd3: LISL 3 ; 0cd3 6b
LIS $0 ; 0cd4 70
AS (IS) ; 0cd5 cc
BT 1,A0cdd ; 0cd6 81 06
PI A0d00 ; 0cd8 28 0d 00
BF $0,A0cd0 ; 0cdb 90 f4
A0cdd: JMP A0df2 ; 0cdd 29 0d f2
A0ce0: LIS $0 ; 0ce0 70
LR $2,A ; 0ce1 52
PI A0d9f ; 0ce2 28 0d 9f
LR A,$8 ; 0ce5 48
NI $fe ; 0ce6 21 fe
LR IS,A ; 0ce8 0b
LIS $0 ; 0ce9 70
LR (IS)+,A ; 0cea 5d
LI $80 ; 0ceb 20 80
LR (IS),A ; 0ced 5c
LR A,IS ; 0cee 0a
XI $02 ; 0cef 23 02
LR IS,A ; 0cf1 0b
LIS $0 ; 0cf2 70
AS (IS) ; 0cf3 cc
BF $1,A0cfd ; 0cf4 91 08
LR A,(IS) ; 0cf6 4c
NI $bf ; 0cf7 21 bf
LR (IS),A ; 0cf9 5c
A0cfa: JMP A0def ; 0cfa 29 0d ef
A0cfd: JMP A0c72 ; 0cfd 29 0c 72
A0d00: LR A,IS ; 0d00 0a
LR $0,A ; 0d01 50
LISU 2 ; 0d02 62
LISL 4 ; 0d03 6c
LIS $0 ; 0d04 70
AS (IS) ; 0d05 cc
BT 1,A0d0b ; 0d06 81 04
SL 1 ; 0d08 13
SR 4 ; 0d09 14
SR 1 ; 0d0a 12
A0d0b: LR $5,A ; 0d0b 55
A0d0c: INC ; 0d0c 1f
BF $4,A0d0c ; 0d0d 94 fe
DS $5 ; 0d0f 35
BF $4,A0d0c ; 0d10 94 fb
LR A,$0 ; 0d12 40
LR IS,A ; 0d13 0b
POP ; 0d14 1c
A0d15: LR K,P ; 0d15 08
LR A,(IS)+ ; 0d16 4d
LR A,IS ; 0d17 0a
CI $0b ; 0d18 25 0b
BT 2,A0d36 ; 0d1a 82 1b
CI $11 ; 0d1c 25 11
BT 2,A0d31 ; 0d1e 82 12
LIS $0 ; 0d20 70
OUTS 4 ; 0d21 b4
INS 4 ; 0d22 a4
A0d23: COM ; 0d23 18
NI $30 ; 0d24 21 30
BT 4,A0d36 ; 0d26 84 0f
LR A,$2 ; 0d28 42
OI $c0 ; 0d29 22 c0
LR $2,A ; 0d2b 52
DCI A0b6b ; 0d2c 2a 0b 6b
BF $0,A0d39 ; 0d2f 90 09
A0d31: LIS $0 ; 0d31 70
OUTS 1 ; 0d32 b1
INS 1 ; 0d33 a1
BF $0,A0d23 ; 0d34 90 ee
A0d36: DCI A0b7e ; 0d36 2a 0b 7e
A0d39: PI A0a64 ; 0d39 28 0a 64
LR A,(IS) ; 0d3c 4c
SL 1 ; 0d3d 13
SL 1 ; 0d3e 13
BT 1,A0d5e ; 0d3f 81 1e
SL 1 ; 0d41 13
BT 1,A0d50 ; 0d42 81 0d
DS $2 ; 0d44 32
LR A,(IS)- ; 0d45 4e
INC ; 0d46 1f
SL 4 ; 0d47 15
BT 1,A0d75 ; 0d48 81 2c
LR A,(IS) ; 0d4a 4c
AI $10 ; 0d4b 24 10
LR (IS)+,A ; 0d4d 5d
BF $0,A0d75 ; 0d4e 90 26
A0d50: LR A,$2 ; 0d50 42
INC ; 0d51 1f
LR $2,A ; 0d52 52
LR A,(IS)- ; 0d53 4e
INC ; 0d54 1f
SL 4 ; 0d55 15
BT 1,A0d75 ; 0d56 81 1e
LR A,(IS) ; 0d58 4c
AI $f0 ; 0d59 24 f0
LR (IS)+,A ; 0d5b 5d
BF $0,A0d75 ; 0d5c 90 18
A0d5e: SL 1 ; 0d5e 13
BT 1,A0d6a ; 0d5f 81 0a
DS $1 ; 0d61 31
LR A,(IS)- ; 0d62 4e
INC ; 0d63 1f
SL 4 ; 0d64 15
BT 1,A0d75 ; 0d65 81 0f
DS (IS)+ ; 0d67 3d
BF $0,A0d75 ; 0d68 90 0c
A0d6a: LR A,$1 ; 0d6a 41
INC ; 0d6b 1f
LR $1,A ; 0d6c 51
LR A,(IS)- ; 0d6d 4e
INC ; 0d6e 1f
SL 4 ; 0d6f 15
BT 1,A0d75 ; 0d70 81 04
LR A,(IS) ; 0d72 4c
INC ; 0d73 1f
LR (IS)+,A ; 0d74 5d
A0d75: LR A,IS ; 0d75 0a
OI $01 ; 0d76 22 01
LR IS,A ; 0d78 0b
LR A,(IS) ; 0d79 4c
INC ; 0d7a 1f
LR (IS),A ; 0d7b 5c
DCI A0b6b ; 0d7c 2a 0b 6b
PI A0a64 ; 0d7f 28 0a 64
LR P,K ; 0d82 09
POP ; 0d83 1c
A0d84: LR A,(IS) ; 0d84 4c
SR 4 ; 0d85 14
NI $03 ; 0d86 21 03
SR 1 ; 0d88 12
DCI A0b65 ; 0d89 2a 0b 65
ADC ; 0d8c 8e
LM ; 0d8d 16
LR $3,A ; 0d8e 53
LR A,(IS) ; 0d8f 4c
NI $f0 ; 0d90 21 f0
AS $3 ; 0d92 c3
LR (IS)-,A ; 0d93 5e
PI A0d15 ; 0d94 28 0d 15
LR A,IS ; 0d97 0a
CI $0b ; 0d98 25 0b
BT 2,A0def ; 0d9a 82 54
JMP A0c5b ; 0d9c 29 0c 5b
A0d9f: LR K,P ; 0d9f 08
A0da0: LR A,$2 ; 0da0 42
COM ; 0da1 18
NI $c0 ; 0da2 21 c0
LR $6,A ; 0da4 56
LI $40 ; 0da5 20 40
LR $7,A ; 0da7 57
LI $7d ; 0da8 20 7d
LR $1,A ; 0daa 51
LIS $0 ; 0dab 70
LR $2,A ; 0dac 52
LI $21 ; 0dad 20 21
LR $0,A ; 0daf 50
A0db0: DCI A0da0 ; 0db0 2a 0d a0
PI A0a64 ; 0db3 28 0a 64
LR A,$2 ; 0db6 42
INC ; 0db7 1f
LR $2,A ; 0db8 52
NI $3f ; 0db9 21 3f
CI $3f ; 0dbb 25 3f
BF $4,A0db0 ; 0dbd 94 f2
LIS $0 ; 0dbf 70
OUTS 5 ; 0dc0 b5
A0dc1: INC ; 0dc1 1f
BF $4,A0dc1 ; 0dc2 94 fe
LR A,$6 ; 0dc4 46
OUTS 5 ; 0dc5 b5
LR A,$2 ; 0dc6 42
AI $80 ; 0dc7 24 80
NI $c0 ; 0dc9 21 c0
LR $2,A ; 0dcb 52
DS $7 ; 0dcc 37
BF $4,A0db0 ; 0dcd 94 e2
LR P,K ; 0dcf 09
POP ; 0dd0 1c
A0dd1: LI $5f ; 0dd1 20 5f
A0dd3: AI $10 ; 0dd3 24 10
LR $0,A ; 0dd5 50
SR 1 ; 0dd6 12
SR 1 ; 0dd7 12
LR IS,A ; 0dd8 0b
LR A,(IS) ; 0dd9 4c
NI $40 ; 0dda 21 40
LR A,$0 ; 0ddc 40
BT 4,A0dd3 ; 0ddd 84 f5
POP ; 0ddf 1c
A0de0: LISU 1 ; 0de0 61
LISL 3 ; 0de1 6b
LR A,(IS)- ; 0de2 4e
SL 4 ; 0de3 15
BT 1,A0de9 ; 0de4 81 04
JMP A0ec5 ; 0de6 29 0e c5
A0de9: PI A0bf1 ; 0de9 28 0b f1
PI A0d15 ; 0dec 28 0d 15
A0def: LISL 1 ; 0def 69
BF $0,A0df3 ; 0df0 90 02
A0df2: LISL 3 ; 0df2 6b
A0df3: LISU 2 ; 0df3 62
LIS $0 ; 0df4 70
AS (IS) ; 0df5 cc
BT 1,A0dff ; 0df6 81 08
LR A,IS ; 0df8 0a
XI $02 ; 0df9 23 02
LR IS,A ; 0dfb 0b
PI A0d00 ; 0dfc 28 0d 00
A0dff: LR A,(IS)- ; 0dff 4e
SL 4 ; 0e00 15
BT 1,A0e5c ; 0e01 81 5a
LIS $0 ; 0e03 70
OUTS 5 ; 0e04 b5
PI A0c4d ; 0e05 28 0c 4d
PI A0b01 ; 0e08 28 0b 01
LR A,(IS)+ ; 0e0b 4d
LR A,(IS)- ; 0e0c 4e
SL 1 ; 0e0d 13
BT 1,A0e1a ; 0e0e 81 0b
LR A,(IS) ; 0e10 4c
SL 4 ; 0e11 15
CI $f0 ; 0e12 25 f0
BF $4,A0e1a ; 0e14 94 05
LR A,$8 ; 0e16 48
SR 1 ; 0e17 12
SL 1 ; 0e18 13
LR $8,A ; 0e19 58
A0e1a: PI A0bf7 ; 0e1a 28 0b f7
LR A,IS ; 0e1d 0a
CI $10 ; 0e1e 25 10
LR A,$6 ; 0e20 46
BT 4,A0e24 ; 0e21 84 02
SL 4 ; 0e23 15
A0e24: SR 4 ; 0e24 14
BT 4,A0e49 ; 0e25 84 23
LR $5,A ; 0e27 55
LR A,IS ; 0e28 0a
CI $10 ; 0e29 25 10
BF $4,A0e32 ; 0e2b 94 06
INS 5 ; 0e2d a5
OI $80 ; 0e2e 22 80
BF $0,A0e35 ; 0e30 90 04
A0e32: INS 5 ; 0e32 a5
OI $40 ; 0e33 22 40
A0e35: OUTS 5 ; 0e35 b5
LR A,$5 ; 0e36 45
NS $8 ; 0e37 f8
LR $5,A ; 0e38 55
BT 4,A0e49 ; 0e39 84 0f
LR A,(IS)+ ; 0e3b 4d
LR $4,A ; 0e3c 54
LI $81 ; 0e3d 20 81
LR $0,A ; 0e3f 50
PI A0aca ; 0e40 28 0a ca
DS $2 ; 0e43 32
LI $32 ; 0e44 20 32
LR $0,A ; 0e46 50
BF $0,A0e64 ; 0e47 90 1c
A0e49: LI $81 ; 0e49 20 81
LR $0,A ; 0e4b 50
PI A0aca ; 0e4c 28 0a ca
DS $2 ; 0e4f 32
LI $32 ; 0e50 20 32
LR $0,A ; 0e52 50
DCI A0b6b ; 0e53 2a 0b 6b
PI A0a64 ; 0e56 28 0a 64
A0e59: JMP A0c5b ; 0e59 29 0c 5b
A0e5c: PI A0bf7 ; 0e5c 28 0b f7
PI A0d15 ; 0e5f 28 0d 15
BF $0,A0e59 ; 0e62 90 f6
A0e64: LIS $0 ; 0e64 70
OUTS 5 ; 0e65 b5
AS $5 ; 0e66 c5
SR 1 ; 0e67 12
SR 1 ; 0e68 12
BT 4,A0e81 ; 0e69 84 17
LR $3,A ; 0e6b 53
LR A,(IS) ; 0e6c 4c
OI $20 ; 0e6d 22 20
LR (IS),A ; 0e6f 5c
LR A,$3 ; 0e70 43
SR 1 ; 0e71 12
BT 4,A0e7b ; 0e72 84 08
A0e74: LR A,(IS) ; 0e74 4c
OI $10 ; 0e75 22 10
LR (IS),A ; 0e77 5c
A0e78: JMP A0d84 ; 0e78 29 0d 84
A0e7b: LR A,(IS) ; 0e7b 4c
NI $ef ; 0e7c 21 ef
LR (IS),A ; 0e7e 5c
BF $0,A0e78 ; 0e7f 90 f8
A0e81: LR A,(IS) ; 0e81 4c
NI $df ; 0e82 21 df
LR (IS),A ; 0e84 5c
LR A,$5 ; 0e85 45
NI $03 ; 0e86 21 03
SR 1 ; 0e88 12
BT 4,A0e7b ; 0e89 84 f1
BF $0,A0e74 ; 0e8b 90 e8
A0e8d: DCI A0989 ; 0e8d 2a 09 89
INS 1 ; 0e90 a1
BF $1,A0e9c ; 0e91 91 0a
INS 4 ; 0e93 a4
BF $1,A0e9c ; 0e94 91 07
LISL 1 ; 0e96 69
LI $48 ; 0e97 20 48
LR (IS),A ; 0e99 5c
LISL 3 ; 0e9a 6b
LR (IS)+,A ; 0e9b 5d
A0e9c: INS 0 ; 0e9c a0
CI $0f ; 0e9d 25 0f
BF $4,A0eb6 ; 0e9f 94 16
PI A0c4d ; 0ea1 28 0c 4d
LIS $0 ; 0ea4 70
AS $6 ; 0ea5 c6
BT 4,A0e9c ; 0ea6 84 f5
NI $0f ; 0ea8 21 0f
BF $4,A0eae ; 0eaa 94 03
LR A,$6 ; 0eac 46
SR 4 ; 0ead 14
A0eae: SR 1 ; 0eae 12
ADC ; 0eaf 8e
LM ; 0eb0 16
LISL 4 ; 0eb1 6c
LR (IS),A ; 0eb2 5c
JMP A0def ; 0eb3 29 0d ef
A0eb6: COM ; 0eb6 18
SL 4 ; 0eb7 15
SR 4 ; 0eb8 14
SR 1 ; 0eb9 12
ADC ; 0eba 8e
LM ; 0ebb 16
SL 4 ; 0ebc 15
OI $80 ; 0ebd 22 80
LISL 4 ; 0ebf 6c
LR (IS),A ; 0ec0 5c
PI A0dd1 ; 0ec1 28 0d d1
LR $a,A ; 0ec4 5a
A0ec5: PI A0aff ; 0ec5 28 0a ff
PI A0dd1 ; 0ec8 28 0d d1
XS $a ; 0ecb ea
BF $4,A0ed1 ; 0ecc 94 04
LIS $e ; 0ece 7e
NS $8 ; 0ecf f8
LR $8,A ; 0ed0 58
A0ed1: LIS $1 ; 0ed1 71
LR $9,A ; 0ed2 59
PI A0fbb ; 0ed3 28 0f bb
AS $7 ; 0ed6 c7
BT 4,A0f00 ; 0ed7 84 28
LR A,$b ; 0ed9 4b
SL 1 ; 0eda 13
SR 1 ; 0edb 12
LR $b,A ; 0edc 5b
DCI A0b71 ; 0edd 2a 0b 71
LR A,$7 ; 0ee0 47
ADC ; 0ee1 8e
LIS $1 ; 0ee2 71
CM ; 0ee3 8d
LR A,$7 ; 0ee4 47
BT 4,A0eec ; 0ee5 84 06
LR $5,A ; 0ee7 55
PI A0bcc ; 0ee8 28 0b cc
LR A,$0 ; 0eeb 40
A0eec: LR $5,A ; 0eec 55
A0eed: LR A,$b ; 0eed 4b
SL 1 ; 0eee 13
LI $82 ; 0eef 20 82
BF $1,A0ef5 ; 0ef1 91 03
LI $83 ; 0ef3 20 83
A0ef5: LR $0,A ; 0ef5 50
PI A0aca ; 0ef6 28 0a ca
PI A0bf1 ; 0ef9 28 0b f1
LR A,(IS)+ ; 0efc 4d
JMP A0e64 ; 0efd 29 0e 64
A0f00: LISU 2 ; 0f00 62
LISL 5 ; 0f01 6d
LR A,(IS)- ; 0f02 4e
SL 4 ; 0f03 15
AI $60 ; 0f04 24 60
XS $a ; 0f06 ea
BF $4,A0f1c ; 0f07 94 14
LR A,$b ; 0f09 4b
SL 1 ; 0f0a 13
BF $1,A0f19 ; 0f0b 91 0d
SR 1 ; 0f0d 12
OI $40 ; 0f0e 22 40
LR $b,A ; 0f10 5b
LIS $3 ; 0f11 73
LR $9,A ; 0f12 59
PI A0fbb ; 0f13 28 0f bb
AS $7 ; 0f16 c7
BF $0,A0eec ; 0f17 90 d4
A0f19: LIS $2 ; 0f19 72
BF $0,A0f30 ; 0f1a 90 15
A0f1c: PI A0dd1 ; 0f1c 28 0d d1
XS $a ; 0f1f ea
BF $4,A0f4f ; 0f20 94 2e
LR A,$b ; 0f22 4b
NI $3f ; 0f23 21 3f
LR $b,A ; 0f25 5b
LIS $2 ; 0f26 72
LR $9,A ; 0f27 59
PI A0fbb ; 0f28 28 0f bb
AS $7 ; 0f2b c7
LR $5,A ; 0f2c 55
BF $4,A0fa2 ; 0f2d 94 74
LIS $3 ; 0f2f 73
A0f30: LR $9,A ; 0f30 59
PI A0fbb ; 0f31 28 0f bb
A0f34: LR A,$7 ; 0f34 47
LR $5,A ; 0f35 55
PI A0bcc ; 0f36 28 0b cc
LR A,$0 ; 0f39 40
LR $5,A ; 0f3a 55
NI $05 ; 0f3b 21 05
SL 1 ; 0f3d 13
BF $4,A0f42 ; 0f3e 94 03
LR A,$5 ; 0f40 45
SR 1 ; 0f41 12
A0f42: COM ; 0f42 18
NI $0f ; 0f43 21 0f
LR $0,A ; 0f45 50
LISU 2 ; 0f46 62
LISL 4 ; 0f47 6c
LR A,(IS) ; 0f48 4c
SR 4 ; 0f49 14
SL 4 ; 0f4a 15
AS $0 ; 0f4b c0
LR (IS),A ; 0f4c 5c
BF $0,A0eed ; 0f4d 90 9f
A0f4f: DCI A0b71 ; 0f4f 2a 0b 71
LR A,$8 ; 0f52 48
ADC ; 0f53 8e
LIS $1 ; 0f54 71
CM ; 0f55 8d
BF $4,A0f62 ; 0f56 94 0b
LR A,$b ; 0f58 4b
OI $80 ; 0f59 22 80
LR $b,A ; 0f5b 5b
LR A,$8 ; 0f5c 48
LR $5,A ; 0f5d 55
A0f5e: LI $80 ; 0f5e 20 80
BF $0,A0ef5 ; 0f60 90 94
A0f62: DCI A0b71 ; 0f62 2a 0b 71
LR A,$8 ; 0f65 48
ADC ; 0f66 8e
LIS $0 ; 0f67 70
AM ; 0f68 88
BF $4,A0f6f ; 0f69 94 05
LR A,$b ; 0f6b 4b
SL 1 ; 0f6c 13
SR 1 ; 0f6d 12
LR $b,A ; 0f6e 5b
A0f6f: LIS $0 ; 0f6f 70
AS $b ; 0f70 cb
BT 1,A0f81 ; 0f71 81 0f
LR A,$b ; 0f73 4b
SL 1 ; 0f74 13
LIS $2 ; 0f75 72
BF $1,A0f79 ; 0f76 91 02
LIS $3 ; 0f78 73
A0f79: LR $9,A ; 0f79 59
PI A0fbb ; 0f7a 28 0f bb
AS $7 ; 0f7d c7
LR $5,A ; 0f7e 55
BF $4,A0f5e ; 0f7f 94 de
A0f81: LIS $2 ; 0f81 72
LR $9,A ; 0f82 59
PI A0fbb ; 0f83 28 0f bb
LR A,$7 ; 0f86 47
LR $5,A ; 0f87 55
LIS $3 ; 0f88 73
LR $9,A ; 0f89 59
PI A0fbb ; 0f8a 28 0f bb
AS $5 ; 0f8d c5
BT 4,A0fa5 ; 0f8e 84 16
DCI A0b71 ; 0f90 2a 0b 71
ADC ; 0f93 8e
LIS $1 ; 0f94 71
CM ; 0f95 8d
BF $4,A0faf ; 0f96 94 18
LIS $0 ; 0f98 70
AS $7 ; 0f99 c7
BT 4,A0f5e ; 0f9a 84 c3
LR A,$b ; 0f9c 4b
SL 1 ; 0f9d 13
LR A,$7 ; 0f9e 47
BT 1,A0fa2 ; 0f9f 81 02
LR $5,A ; 0fa1 55
A0fa2: JMP A0eed ; 0fa2 29 0e ed
A0fa5: DCI A0b71 ; 0fa5 2a 0b 71
LR A,$7 ; 0fa8 47
LR $5,A ; 0fa9 55
ADC ; 0faa 8e
LIS $1 ; 0fab 71
CM ; 0fac 8d
BT 4,A0f5e ; 0fad 84 b0
A0faf: LR A,$5 ; 0faf 45
LR $7,A ; 0fb0 57
LISU 2 ; 0fb1 62
LISL 4 ; 0fb2 6c
NS (IS) ; 0fb3 fc
BT 4,A0fb8 ; 0fb4 84 03
LR $5,A ; 0fb6 55
LR $7,A ; 0fb7 57
A0fb8: JMP A0f34 ; 0fb8 29 0f 34
A0fbb: LR K,P ; 0fbb 08
LR A,$8 ; 0fbc 48
LR $7,A ; 0fbd 57
NI $01 ; 0fbe 21 01
BT 4,A0fcc ; 0fc0 84 0b
LR A,$9 ; 0fc2 49
LR $0,A ; 0fc3 50
PI A0acd ; 0fc4 28 0a cd
BT 1,A0fcc ; 0fc7 81 04
LIS $e ; 0fc9 7e
NS $7 ; 0fca f7
LR $7,A ; 0fcb 57
A0fcc: LIS $2 ; 0fcc 72
NS $8 ; 0fcd f8
BT 4,A0fda ; 0fce 84 0b
LR A,$9 ; 0fd0 49
LR $0,A ; 0fd1 50
PI A0ad0 ; 0fd2 28 0a d0
BT 1,A0fda ; 0fd5 81 04
LIS $d ; 0fd7 7d
NS $7 ; 0fd8 f7
LR $7,A ; 0fd9 57
A0fda: LIS $4 ; 0fda 74
NS $8 ; 0fdb f8
BT 4,A0fe8 ; 0fdc 84 0b
LR A,$9 ; 0fde 49
LR $0,A ; 0fdf 50
PI A0ad8 ; 0fe0 28 0a d8
BT 1,A0fe8 ; 0fe3 81 04
LIS $b ; 0fe5 7b
NS $7 ; 0fe6 f7
LR $7,A ; 0fe7 57
A0fe8: LIS $8 ; 0fe8 78
NS $8 ; 0fe9 f8
BT 4,A0ff6 ; 0fea 84 0b
LR A,$9 ; 0fec 49
LR $0,A ; 0fed 50
PI A0ad4 ; 0fee 28 0a d4
BT 1,A0ff6 ; 0ff1 81 04
LIS $7 ; 0ff3 77
NS $7 ; 0ff4 f7
LR $7,A ; 0ff5 57
A0ff6: LIS $0 ; 0ff6 70
LR P,K ; 0ff7 09
POP ; 0ff8 1c
LR DC,H ; 0ff9 10
LR DC,H ; 0ffa 10
LR DC,H ; 0ffb 10
LR A,IS ; 0ffc 0a
LIS $7 ; 0ffd 77
LIS $c ; 0ffe 7c
BT 2,0 ; 0fff 82 00
Here's Sean Riddles patch so Maze can run on his Multi-Cart.
; patch for Maze (cart 10) to work on Channel F multi-cart ; Sean Riddle 2004 ; www.seanriddle.com ; Maze normally has 2102 SRAM on I/O ports ; this patches reads and writes to use the Schach RAM at $2800 ; works on both versions of Maze ; main code needs patches at 887, 898 and adb: ; 887: JMP patch1 ;29 10 00 ; ; 899: LIS 0 ;70 ; ; adb: DCI p25 ;2a 2c 01 ; ST ;17 ; JMP patch2 ;29 11 00 ; then this code is added to the end ; the 2102 is attached to ports a and b of the 3851: ; 7 6 5 4 3 2 1 0 ; port a (p24) OUT - - - IN A2 A3 RW ; port b (p25) A9 A8 A7 A1 A6 A5 A4 A0 ; these ports are latched, so a read of p25 returns what was last stored there ; IN and OUT invert the data, so RW=0 is read, RW=1 is write ; this doesn't matter for data because the read invert cancels out the write invert ; address bits don't have to match; physical and logical locations can be different ; p25 is easy because we only have to read/write the latch ; OUT p25 becomes DCI p25, ST ; IN p25 becomes DCI p25, LM ; p24 is harder; we need to update the latch on OUT, we have to calculate ; the RAM address and for a read we have to OR the data with the latch ; for a write we may need to store data in RAM if RW=1 ; to do: save and restore QL? used at 9a6, 9b1, 9d1, a03, a20 ; save and restore DC? ; (these 2 don't seem to matter) ; simplify and shorten code ; rewrite code for Schach RAM instead of emulating 2102 code ;start of code ; the ports have a latch; I use 2 bytes of RAM instead p24: equ $2c00 p25: equ $2c01 org $1000 ; just past the cart code ;this is called to initialize the RAM when a maze is being generated ;(this could be rewritten to just init all RAM locations to 1 instead of ; exactly emulating what the original code did) patch1: lis 0 dci p24 ; since RW=0, we just need to update the latch st p1loop2: dci p25 st lis $f p1loop1: dci p24 st lr qu,a ; temp storage for p24 value ni 1 ; write if RW=1 bt 4,p1notwrite lr a,qu ; p24 ni 8 ; data to write is in bit 3 bt 4,p1write0 ; branch to write 0 lr a,qu ; p24 sr 1 ni 3 ; mask address bits ai $28 lr qu,a ; set the high RAM address bits lm ; p25 lr ql,a ; set the low RAM address bits lis 1 ; store a 1 bf 0,p1write p1write0: lr a,qu ; p24 sr 1 ni 3 ; mask address bits ai $28 lr qu,a ; set the high RAM address bits lm ; p25 lr ql,a ; set the low RAM address bits lis 0 ; store a 0 p1write: lr dc,q ; set the data pointer st p1notwrite: dci p24 lm ai $ff ci 7 bf 4,p1loop1 lm ; p25 inc bf 4,p1loop2 jmp $899 ; get back to the cart code org $1100 ;this is called a lot to read/write to the RAM patch2: lis 0 as $0 bf 1,patch2a sl 1 ; this zero-fills bit 0, so RW=0, read dci p24 ; so just update latch st sr 1 ; set the data pointer for a RAM read ni 3 ; mask address bits ai $28 lr qu,a ; set the high RAM address bits lm ; p25 lr ql,a ; set the low RAM address bits lr dc,q lm ; reads from RAM dci p24 ci 1 ; lm doesn't set status flags, so this compare is required bf 4,p2ret0 lm oi $80 ; OR the data with the latch pop p2ret0: lm ni $7f ; clear the data bit pop patch2a: lis $f p2loop1: dci p24 st lr qu,a ; temp storage for p24 value ni 1 bt 4,p2notwrite ; don't store if RW=0 meaning READ lr a,qu ; p24 ni 8 bt 4,p2write0 lr a,qu ; p24 sr 1 ni 3 ; mask address bits ai $28 lr qu,a ; set the high RAM address bits lm ; p25 lr ql,a ; set the low RAM address bits lis 1 ; store a 1 in RAM bf 0,p2write p2write0: lr a,qu ; p24 sr 1 ni 3 ; mask address bits ai $28 lr qu,a ; set the high RAM address bits lm ; p25 lr ql,a ; set the low RAM address bits lis 0 ; store a 0 in RAM p2write: lr dc,q st p2notwrite: dci p24 lm ai $ff ci 7 bf 4,p2loop1 lr a,0 sl 1 dci p24 st lr qu,a ; temp storage for p24 value ni 8 ; look at data bit bt 4,p2awrite0 ; if it's a 0, branch lr a,qu ; p24 sr 1 ni 3 ; mask address bits ai $28 lr qu,a ; set the high RAM address bits lm ; p25 lr ql,a ; set the low RAM address bits lis 1 ; store a 1 in RAM bf 0,p2exit p2awrite0: lr a,qu ; p24 sr 1 ni 3 ; mask address bits ai $28 lr qu,a ; set the high RAM address bits lm ; p25 lr ql,a ; set the low RAM address bits lis 0 ; store a 0 in RAM p2exit: lr dc,q st lr a,2 inc lr 2,a pop org $13f0 db $53,$45,$41,$4e,$20,$52,$49,$44,$44,$4c,$45,$20,$32,$30,$30,$34
