veswiki - User contributions [en]

Disassembly:Videocart 3

2025-02-26T10:56:28Z

E5frog:

{{Incomplete Disassembly}}

This is the disassembly of the [[Channel F]] [[Videocart 3]] made with Peter Trauner's [[f8tool]].
Original code is copyright © 1976 Fairchild Semiconductor.

<pre>This is part of a printout of the original code:

08/12/76 17:33:05 F8A --
ICC OBJECT CODE STMT SOURCE STATEMENT

PASS 1 COMPLETE 41.39 SEC
*******LAST CHANGE: SAT, 7/31 BY RICH ************
1 TITLE 'BLACKJACK ROUTINES'
*
* JULY,76// RICH AND SURESH AND JERRY
*
2 BASE HEX
3 ORG H'0800' SET HIGH TO GET OUT OF THE WAY--
800 55 4 DC H'55'
801 2B 5 NOP
*
* ----- IN HERE MAY GO CODE TO ALLOW
*
*
*
6 RO EQU 0
7 R1 EQU 1
8 R2 EQU 2
9 R3 EQU 3
10 R4 EQU 4
11 R5 EQU 5
12 R6 EQU 6
13 R7 EQU 7
14 R8 EQU 8
*
15 HU EQU 10
16 HL EQU 11
17 R9 EQU 9
18 FLAGC EQU 8
19 OLD EQU 9
20 RCNT EQU 10
</pre>

[[File:BlackJack_code.jpg|1000px|original Black Jack code header]]
 

<pre>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
A080d: LI $8a ; 080d 20 8a
LR $0,A ; 080f 50
PI $0099 ; 0810 28 00 99
LR A,$4 ; 0813 44
DS $4 ; 0814 34
BF $4,A080d ; 0815 94 f7
LIS $0 ; 0817 70
LR $0,A ; 0818 50
LR $2,A ; 0819 52
LIS $f ; 081a 7f
LR $3,A ; 081b 53
PI A0d4c ; 081c 28 0d 4c
LIS $8 ; 081f 78
SL 4 ; 0820 15
LR $0,A ; 0821 50
LIS $0 ; 0822 70
LR $3,A ; 0823 53
PI A0d4c ; 0824 28 0d 4c
LIS $0 ; 0827 70
LR $0,A ; 0828 50
LI $31 ; 0829 20 31
LR $2,A ; 082b 52
LIS $f ; 082c 7f
LR $3,A ; 082d 53
PI A0d5b ; 082e 28 0d 5b
LIS $c ; 0831 7c
SL 4 ; 0832 15
LR $0,A ; 0833 50
LI $32 ; 0834 20 32
LR $3,A ; 0836 53
PI A0d5b ; 0837 28 0d 5b
LIS $5 ; 083a 75
LR $4,A ; 083b 54
LIS $0 ; 083c 70
LR $3,A ; 083d 53
DCI A0c88 ; 083e 2a 0c 88
LIS $8 ; 0841 78
LR $9,A ; 0842 59
A0843: LM ; 0843 16
LR $1,A ; 0844 51
LM ; 0845 16
LR $2,A ; 0846 52
LR Q,DC ; 0847 0e
PI $0718 ; 0848 28 07 18
LI $ca ; 084b 20 ca
AS $1 ; 084d c1
COM ; 084e 18
AI $3c ; 084f 24 3c
LR $1,A ; 0851 51
PI $0718 ; 0852 28 07 18
LR DC,Q ; 0855 0f
DS $9 ; 0856 39
BT 1,A0843 ; 0857 81 eb
LIS $0 ; 0859 70
OUTS 1 ; 085a b1
OUTS 4 ; 085b b4
LISU 7 ; 085c 67
LISL 3 ; 085d 6b
LI $3c ; 085e 20 3c
LR (IS),A ; 0860 5c
LISU 3 ; 0861 63
LISL 0 ; 0862 68
LIS $5 ; 0863 75
LR (IS)+,A ; 0864 5d
LIS $0 ; 0865 70
LR (IS)+,A ; 0866 5d
LIS $5 ; 0867 75
LR (IS)+,A ; 0868 5d
LIS $5 ; 0869 75
LR (IS)+,A ; 086a 5d
LIS $0 ; 086b 70
LR (IS)+,A ; 086c 5d
LIS $5 ; 086d 75
LR (IS),A ; 086e 5c
LIS $2 ; 086f 72
LR $4,A ; 0870 54
BF $0,A0883 ; 0871 90 11
A0873: LIS $0 ; 0873 70
LR QU,A ; 0874 06
PI A0e72 ; 0875 28 0e 72
LIS $0 ; 0878 70
LR $5,A ; 0879 55
PI $008f ; 087a 28 00 8f
A087d: LI $8e ; 087d 20 8e
LR $0,A ; 087f 50
PI $0099 ; 0880 28 00 99
A0883: LI $80 ; 0883 20 80
LR $a,A ; 0885 5a
LR $b,A ; 0886 5b
LIS $1 ; 0887 71
LR $9,A ; 0888 59
LR A,$4 ; 0889 44
SL 4 ; 088a 15
BF $1,A087d ; 088b 91 f1
SL 1 ; 088d 13
BF $1,A0897 ; 088e 91 08
SL 1 ; 0890 13
BF $1,A0896 ; 0891 91 04
DS $a ; 0893 3a
BF $0,A0898 ; 0894 90 03
A0896: DS $a ; 0896 3a
A0897: DS $b ; 0897 3b
A0898: LISU 2 ; 0898 62
LISL 1 ; 0899 69
A089a: PI A0e31 ; 089a 28 0e 31
LR A,(IS)+ ; 089d 4d
LIS $0 ; 089e 70
AS $a ; 089f ca
LR (IS),A ; 08a0 5c
BF $1,A08b6 ; 08a1 91 14
LIS $0 ; 08a3 70
LR (IS)-,A ; 08a4 5e
LIS $e ; 08a5 7e
LR $0,A ; 08a6 50
LIS $1 ; 08a7 71
LR $8,A ; 08a8 58
PI A0df5 ; 08a9 28 0d f5
LISU 3 ; 08ac 63
LIS $0 ; 08ad 70
AS (IS)- ; 08ae ce
AS (IS)+ ; 08af cd
BF $4,A08b5 ; 08b0 94 04
LR A,(IS)- ; 08b2 4e
LIS $1 ; 08b3 71
LR (IS)+,A ; 08b4 5d
A08b5: LISU 2 ; 08b5 62
A08b6: LR A,$b ; 08b6 4b
LR $a,A ; 08b7 5a
LISL 4 ; 08b8 6c
DS $9 ; 08b9 39
BT 4,A089a ; 08ba 84 df
LI $10 ; 08bc 20 10
LR QU,A ; 08be 06
PI A0e72 ; 08bf 28 0e 72
PI A0c9a ; 08c2 28 0c 9a
LIS $2 ; 08c5 72
LR $1,A ; 08c6 51
LISU 7 ; 08c7 67
LISL 0 ; 08c8 68
LR A,IS ; 08c9 0a
LR (IS)-,A ; 08ca 5e
LISU 6 ; 08cb 66
LI $11 ; 08cc 20 11
LR $0,A ; 08ce 50
A08cf: LR (IS)-,A ; 08cf 5e
LR (IS)-,A ; 08d0 5e
AS $0 ; 08d1 c0
BR7 A08cf ; 08d2 8f fc
LR $3,A ; 08d4 53
LR A,IS ; 08d5 0a
AI $38 ; 08d6 24 38
LR IS,A ; 08d8 0b
LR A,$3 ; 08d9 43
DS $1 ; 08da 31
BT 1,A08cf ; 08db 81 f3
LR (IS)-,A ; 08dd 5e
LR (IS)-,A ; 08de 5e
A08df: LISU 7 ; 08df 67
LISL 0 ; 08e0 68
LR A,(IS) ; 08e1 4c
SL 1 ; 08e2 13
CI $5e ; 08e3 25 5e
BT 1,A0916 ; 08e5 81 30
LIS $1 ; 08e7 71
LR $8,A ; 08e8 58
PI A0d9a ; 08e9 28 0d 9a
INS 1 ; 08ec a1
LR $0,A ; 08ed 50
INS 4 ; 08ee a4
LR $1,A ; 08ef 51
A08f0: INS 0 ; 08f0 a0
COM ; 08f1 18
NI $06 ; 08f2 21 06
BT 4,A08f9 ; 08f4 84 04
JMP A0873 ; 08f6 29 08 73
A08f9: INS 1 ; 08f9 a1
XS $0 ; 08fa e0
SL 1 ; 08fb 13
BF $1,A0909 ; 08fc 91 0c
INS 4 ; 08fe a4
XS $1 ; 08ff e1
SL 1 ; 0900 13
BF $1,A0909 ; 0901 91 07
DS $2 ; 0903 32
BF $4,A08f0 ; 0904 94 eb
DS $3 ; 0906 33
BF $0,A08f0 ; 0907 90 e8
A0909: PI A0b7c ; 0909 28 0b 7c
LR A,$3 ; 090c 43
LR $2,A ; 090d 52
PI A0b7c ; 090e 28 0b 7c
LIS $0 ; 0911 70
LR $8,A ; 0912 58
PI A0d9a ; 0913 28 0d 9a
A0916: LISU 2 ; 0916 62
LISL 5 ; 0917 6d
LR A,(IS) ; 0918 4c
NI $80 ; 0919 21 80
LR (IS),A ; 091b 5c
LISL 2 ; 091c 6a
LR A,(IS) ; 091d 4c
NI $80 ; 091e 21 80
LR (IS)-,A ; 0920 5e
LIS $3 ; 0921 73
LR $8,A ; 0922 58
PI A0d9a ; 0923 28 0d 9a
A0926: INS 0 ; 0926 a0
COM ; 0927 18
NI $06 ; 0928 21 06
BT 4,A092f ; 092a 84 04
JMP A0873 ; 092c 29 08 73
A092f: LISL 2 ; 092f 6a
PI A0be1 ; 0930 28 0b e1
LISL 5 ; 0933 6d
PI A0be1 ; 0934 28 0b e1
LR A,(IS) ; 0937 4c
NI $84 ; 0938 21 84
BT 4,A0926 ; 093a 84 eb
LISL 2 ; 093c 6a
LR A,(IS) ; 093d 4c
NI $84 ; 093e 21 84
BT 4,A0926 ; 0940 84 e5
LISL 1 ; 0942 69
PI A0e4a ; 0943 28 0e 4a
LISL 4 ; 0946 6c
PI A0e4a ; 0947 28 0e 4a
LISL 7 ; 094a 6f
PI A0e4a ; 094b 28 0e 4a
LISL 1 ; 094e 69
LIS $f ; 094f 7f
LR $0,A ; 0950 50
PI A0df3 ; 0951 28 0d f3
LISL 4 ; 0954 6c
PI A0df3 ; 0955 28 0d f3
LIS $0 ; 0958 70
LR QL,A ; 0959 07
LR $8,A ; 095a 58
PI A0d9a ; 095b 28 0d 9a
A095e: LISU 2 ; 095e 62
LISL 5 ; 095f 6d
LIS $0 ; 0960 70
AS (IS)- ; 0961 ce
BF $1,A096e ; 0962 91 0b
PI A0b09 ; 0964 28 0b 09
PI A0b2c ; 0967 28 0b 2c
LR (IS)-,A ; 096a 5e
PI A0e8c ; 096b 28 0e 8c
A096e: LISL 2 ; 096e 6a
LIS $0 ; 096f 70
AS (IS)- ; 0970 ce
BF $1,A097d ; 0971 91 0b
PI A0b09 ; 0973 28 0b 09
PI A0b2c ; 0976 28 0b 2c
LR (IS)-,A ; 0979 5e
PI A0e8c ; 097a 28 0e 8c
A097d: PI A0b09 ; 097d 28 0b 09
PI A0b30 ; 0980 28 0b 30
LR QL,A ; 0983 07
NI $04 ; 0984 21 04
BF $4,A098d ; 0986 94 06
PI A0e96 ; 0988 28 0e 96
BF $0,A095e ; 098b 90 d2
A098d: LR A,QU ; 098d 02
LISU 7 ; 098e 67
LISL 2 ; 098f 6a
LR (IS),A ; 0990 5c
LIS $0 ; 0991 70
LR QU,A ; 0992 06
PI A0e96 ; 0993 28 0e 96
LIS $f ; 0996 7f
LR $a,A ; 0997 5a
LI $4f ; 0998 20 4f
LR QU,A ; 099a 06
A099b: LIS $0 ; 099b 70
LR $0,A ; 099c 50
LISL 2 ; 099d 6a
LR A,(IS) ; 099e 4c
NI $20 ; 099f 21 20
BT 4,A09b2 ; 09a1 84 10
LR A,(IS) ; 09a3 4c
OI $02 ; 09a4 22 02
LR (IS)-,A ; 09a6 5e
LI $8a ; 09a7 20 8a
LR $0,A ; 09a9 50
PI A0df3 ; 09aa 28 0d f3
LIS $5 ; 09ad 75
LR (IS),A ; 09ae 5c
PI A0e8c ; 09af 28 0e 8c
A09b2: LISL 5 ; 09b2 6d
LR A,(IS) ; 09b3 4c
NI $20 ; 09b4 21 20
BT 4,A09c7 ; 09b6 84 10
LR A,(IS) ; 09b8 4c
OI $02 ; 09b9 22 02
LR (IS)-,A ; 09bb 5e
LI $8a ; 09bc 20 8a
LR $0,A ; 09be 50
PI A0df3 ; 09bf 28 0d f3
LIS $5 ; 09c2 75
LR (IS),A ; 09c3 5c
PI A0e8c ; 09c4 28 0e 8c
A09c7: LR A,QL ; 09c7 03
NI $20 ; 09c8 21 20
BT 4,A09d7 ; 09ca 84 0c
LISL 7 ; 09cc 6f
LIS $5 ; 09cd 75
LR (IS),A ; 09ce 5c
PI A0e96 ; 09cf 28 0e 96
LIS $2 ; 09d2 72
LR (IS),A ; 09d3 5c
JMP A0a9b ; 09d4 29 0a 9b
A09d7: DS $a ; 09d7 3a
BT 4,A09fb ; 09d8 84 22
DS $0 ; 09da 30
BF $1,A09fb ; 09db 91 1f
LI $40 ; 09dd 20 40
OUTS 5 ; 09df b5
LI $10 ; 09e0 20 10
LR $5,A ; 09e2 55
PI $008f ; 09e3 28 00 8f
LIS $0 ; 09e6 70
OUTS 5 ; 09e7 b5
LR A,QU ; 09e8 02
XI $c1 ; 09e9 23 c1
LR QU,A ; 09eb 06
A09ec: INC ; 09ec 1f
BF $4,A09ec ; 09ed 94 fe
LI $80 ; 09ef 20 80
OUTS 5 ; 09f1 b5
LIS $5 ; 09f2 75
LR $5,A ; 09f3 55
PI $008f ; 09f4 28 00 8f
LIS $0 ; 09f7 70
OUTS 5 ; 09f8 b5
BF $0,A099b ; 09f9 90 a1
A09fb: LISL 1 ; 09fb 69
PI A0c9a ; 09fc 28 0c 9a
LISL 4 ; 09ff 6c
A0a00: LIS $0 ; 0a00 70
LR $0,A ; 0a01 50
PI A0d9a ; 0a02 28 0d 9a
A0a05: LISU 2 ; 0a05 62
PI A0c9a ; 0a06 28 0c 9a
A0a09: LR A,(IS)+ ; 0a09 4d
LR A,(IS)- ; 0a0a 4e
NI $c8 ; 0a0b 21 c8
BT 4,A0a18 ; 0a0d 84 0a
LR A,IS ; 0a0f 0a
NI $01 ; 0a10 21 01
LISL 1 ; 0a12 69
BT 4,A0a09 ; 0a13 84 f5
JMP A0a9b ; 0a15 29 0a 9b
A0a18: LIS $2 ; 0a18 72
LR $a,A ; 0a19 5a
LR $8,A ; 0a1a 58
PI A0d9a ; 0a1b 28 0d 9a
A0a1e: LI $95 ; 0a1e 20 95
A0a20: LR $0,A ; 0a20 50
PI A0df3 ; 0a21 28 0d f3
LR A,IS ; 0a24 0a
NI $01 ; 0a25 21 01
BT 4,A0a2c ; 0a27 84 04
INS 4 ; 0a29 a4
BF $0,A0a2d ; 0a2a 90 02
A0a2c: INS 1 ; 0a2c a1
A0a2d: COM ; 0a2d 18
SR 4 ; 0a2e 14
SL 4 ; 0a2f 15
XS $9 ; 0a30 e9
BF $4,A0a39 ; 0a31 94 07
A0a33: DS $a ; 0a33 3a
BT 1,A0a1e ; 0a34 81 e9
LIS $f ; 0a36 7f
BF $0,A0a20 ; 0a37 90 e8
A0a39: XS $9 ; 0a39 e9
LR $9,A ; 0a3a 59
BT 4,A0a33 ; 0a3b 84 f7
BF $1,A0a72 ; 0a3d 91 34
SL 1 ; 0a3f 13
BF $1,A0a8e ; 0a40 91 4d
LR A,(IS)+ ; 0a42 4d
LR A,(IS)- ; 0a43 4e
NI $04 ; 0a44 21 04
BT 4,A0a05 ; 0a46 84 be
LISU 3 ; 0a48 63
LR A,(IS)+ ; 0a49 4d
LI $66 ; 0a4a 20 66
AS (IS) ; 0a4c cc
ASD (IS)- ; 0a4d de
LR $0,A ; 0a4e 50
LR A,(IS)- ; 0a4f 4e
LIS $0 ; 0a50 70
BF $2,A0a54 ; 0a51 92 02
LIS $1 ; 0a53 71
A0a54: COM ; 0a54 18
AS (IS)+ ; 0a55 cd
BT 2,A0a63 ; 0a56 82 0c
INC ; 0a58 1f
BF $4,A0a05 ; 0a59 94 ab
LR A,$0 ; 0a5b 40
COM ; 0a5c 18
AS (IS) ; 0a5d cc
BT 2,A0a63 ; 0a5e 82 04
INC ; 0a60 1f
BF $4,A0a05 ; 0a61 94 a3
A0a63: LISU 2 ; 0a63 62
LIS $5 ; 0a64 75
LR (IS),A ; 0a65 5c
LI $4e ; 0a66 20 4e
LR QU,A ; 0a68 06
PI A0e8c ; 0a69 28 0e 8c
LIS $2 ; 0a6c 72
LR (IS)+,A ; 0a6d 5d
LR A,(IS) ; 0a6e 4c
OI $20 ; 0a6f 22 20
LR (IS)-,A ; 0a71 5e
A0a72: PI A0b09 ; 0a72 28 0b 09
PI A0b2c ; 0a75 28 0b 2c
LR (IS)-,A ; 0a78 5e
PI A0e8c ; 0a79 28 0e 8c
LR A,(IS)+ ; 0a7c 4d
LR A,(IS)- ; 0a7d 4e
NI $28 ; 0a7e 21 28
BT 4,A0a05 ; 0a80 84 84
NI $08 ; 0a82 21 08
BT 4,A0a8e ; 0a84 84 09
LR A,(IS)+ ; 0a86 4d
LR A,(IS) ; 0a87 4c
OI $01 ; 0a88 22 01
LR (IS)-,A ; 0a8a 5e
LIS $c ; 0a8b 7c
BF $0,A0a94 ; 0a8c 90 07
A0a8e: LR A,(IS)+ ; 0a8e 4d
LR A,(IS) ; 0a8f 4c
OI $40 ; 0a90 22 40
LR (IS)-,A ; 0a92 5e
LIS $e ; 0a93 7e
A0a94: LR $0,A ; 0a94 50
PI A0df3 ; 0a95 28 0d f3
JMP A0a00 ; 0a98 29 0a 00
A0a9b: LISU 7 ; 0a9b 67
LISL 2 ; 0a9c 6a
LR A,(IS) ; 0a9d 4c
LR QU,A ; 0a9e 06
PI A0e96 ; 0a9f 28 0e 96
LIS $0 ; 0aa2 70
LR $5,A ; 0aa3 55
PI $008f ; 0aa4 28 00 8f
LISL 2 ; 0aa7 6a
LR A,(IS) ; 0aa8 4c
NI $88 ; 0aa9 21 88
BT 4,A0ab3 ; 0aab 84 07
LISL 5 ; 0aad 6d
LR A,(IS) ; 0aae 4c
NI $88 ; 0aaf 21 88
BF $4,A0b06 ; 0ab1 94 54
A0ab3: LISL 6 ; 0ab3 6e
LR A,(IS)+ ; 0ab4 4d
CI $11 ; 0ab5 25 11
BF $1,A0acf ; 0ab7 91 17
BF $4,A0ac0 ; 0ab9 94 06
LR A,QL ; 0abb 03
NI $10 ; 0abc 21 10
BT 4,A0acf ; 0abe 84 10
A0ac0: PI A0b09 ; 0ac0 28 0b 09
PI A0b30 ; 0ac3 28 0b 30
LR QL,A ; 0ac6 07
PI A0e96 ; 0ac7 28 0e 96
LR A,QL ; 0aca 03
NI $08 ; 0acb 21 08
A0acd: BT 4,A0ab3 ; 0acd 84 e5
A0acf: LISL 6 ; 0acf 6e
A0ad0: LR A,QL ; 0ad0 03
SL 4 ; 0ad1 15
LIS $0 ; 0ad2 70
BF $1,A0ad6 ; 0ad3 91 02
LR A,(IS) ; 0ad5 4c
A0ad6: LR QL,A ; 0ad6 07
LISL 5 ; 0ad7 6d
A0ad8: LR A,(IS)- ; 0ad8 4e
NI $88 ; 0ad9 21 88
BF $4,A0b00 ; 0adb 94 24
LR A,(IS)- ; 0add 4e
LR A,QL ; 0ade 03
COM ; 0adf 18
INC ; 0ae0 1f
AS (IS)+ ; 0ae1 cd
LR A,(IS)+ ; 0ae2 4d
LR A,(IS) ; 0ae3 4c
BT 4,A0af5 ; 0ae4 84 10
BT 1,A0aee ; 0ae6 81 07
OI $01 ; 0ae8 22 01
LR (IS)-,A ; 0aea 5e
LIS $b ; 0aeb 7b
BF $0,A0af9 ; 0aec 90 0c
A0aee: OI $02 ; 0aee 22 02
LR (IS)-,A ; 0af0 5e
LI $8a ; 0af1 20 8a
BF $0,A0af9 ; 0af3 90 05
A0af5: NI $80 ; 0af5 21 80
LR (IS)-,A ; 0af7 5e
LIS $d ; 0af8 7d
A0af9: LR $0,A ; 0af9 50
PI A0df3 ; 0afa 28 0d f3
PI A0c9a ; 0afd 28 0c 9a
A0b00: LR A,IS ; 0b00 0a
NI $01 ; 0b01 21 01
LISL 2 ; 0b03 6a
BT 4,A0ad8 ; 0b04 84 d3
A0b06: JMP A08df ; 0b06 29 08 df
A0b09: LR A,IS ; 0b09 0a
LR $7,A ; 0b0a 57
LISU 7 ; 0b0b 67
LISL 0 ; 0b0c 68
LR A,(IS) ; 0b0d 4c
LR $0,A ; 0b0e 50
LR IS,A ; 0b0f 0b
LR A,(IS) ; 0b10 4c
LR QU,A ; 0b11 06
LISU 7 ; 0b12 67
LISL 0 ; 0b13 68
LR A,$0 ; 0b14 40
XI $80 ; 0b15 23 80
BF $1,A0b25 ; 0b17 91 0d
INC ; 0b19 1f
CI $38 ; 0b1a 25 38
BT 1,A0b20 ; 0b1c 81 03
LI $30 ; 0b1e 20 30
A0b20: LR (IS),A ; 0b20 5c
LR A,QU ; 0b21 02
SL 4 ; 0b22 15
BF $0,A0b27 ; 0b23 90 03
A0b25: LR (IS),A ; 0b25 5c
LR A,QU ; 0b26 02
A0b27: SR 4 ; 0b27 14
LR QU,A ; 0b28 06
LR A,$7 ; 0b29 47
LR IS,A ; 0b2a 0b
POP ; 0b2b 1c
A0b2c: LR A,(IS)+ ; 0b2c 4d
LR A,(IS)- ; 0b2d 4e
BF $0,A0b33 ; 0b2e 90 04
A0b30: LR A,QL ; 0b30 03
LISU 2 ; 0b31 62
LISL 7 ; 0b32 6f
A0b33: LR $8,A ; 0b33 58
LR A,(IS) ; 0b34 4c
INC ; 0b35 1f
LR (IS)-,A ; 0b36 5e
CI $02 ; 0b37 25 02
LR A,$8 ; 0b39 48
BT 4,A0b40 ; 0b3a 84 05
NI $fb ; 0b3c 21 fb
BF $0,A0b42 ; 0b3e 90 03
A0b40: OI $04 ; 0b40 22 04
A0b42: LR $8,A ; 0b42 58
LR A,QU ; 0b43 02
CI $0a ; 0b44 25 0a
BT 1,A0b49 ; 0b46 81 02
LIS $a ; 0b48 7a
A0b49: CI $01 ; 0b49 25 01
BF $4,A0b59 ; 0b4b 94 0d
LR A,$8 ; 0b4d 48
NI $10 ; 0b4e 21 10
LIS $0 ; 0b50 70
BF $4,A0b58 ; 0b51 94 06
LR A,$8 ; 0b53 48
OI $10 ; 0b54 22 10
LR $8,A ; 0b56 58
LIS $a ; 0b57 7a
A0b58: INC ; 0b58 1f
A0b59: AS (IS) ; 0b59 cc
A0b5a: LR (IS)+,A ; 0b5a 5d
CI $15 ; 0b5b 25 15
LR A,(IS)+ ; 0b5d 4d
LR A,$8 ; 0b5e 48
BT 4,A0b70 ; 0b5f 84 10
BT 1,A0b7b ; 0b61 81 19
NI $10 ; 0b63 21 10
BT 4,A0b78 ; 0b65 84 12
XS $8 ; 0b67 e8
LR $8,A ; 0b68 58
LR A,(IS)- ; 0b69 4e
LR A,(IS)- ; 0b6a 4e
LR A,(IS) ; 0b6b 4c
AI $f6 ; 0b6c 24 f6
BF $0,A0b5a ; 0b6e 90 eb
A0b70: NI $04 ; 0b70 21 04
LR A,$8 ; 0b72 48
BT 4,A0b7b ; 0b73 84 07
OI $20 ; 0b75 22 20
POP ; 0b77 1c
A0b78: LR A,$8 ; 0b78 48
OI $08 ; 0b79 22 08
A0b7b: POP ; 0b7b 1c
A0b7c: LR K,P ; 0b7c 08
LI $6f ; 0b7d 20 6f
LR $4,A ; 0b7f 54
A0b80: AS $2 ; 0b80 c2
A0b81: NI $7f ; 0b81 21 7f
CI $68 ; 0b83 25 68
BT 1,A0b89 ; 0b85 81 03
AI $98 ; 0b87 24 98
A0b89: CI $3b ; 0b89 25 3b
BF $1,A0b91 ; 0b8b 91 05
AI $3c ; 0b8d 24 3c
BF $0,A0b81 ; 0b8f 90 f1
A0b91: LR $5,A ; 0b91 55
LR $1,A ; 0b92 51
PI A0bba ; 0b93 28 0b ba
PI A0b09 ; 0b96 28 0b 09
LR A,QU ; 0b99 02
LR $6,A ; 0b9a 56
LR A,$4 ; 0b9b 44
LR $1,A ; 0b9c 51
PI A0bba ; 0b9d 28 0b ba
PI A0b09 ; 0ba0 28 0b 09
PI A0bca ; 0ba3 28 0b ca
LR A,$4 ; 0ba6 44
LR $5,A ; 0ba7 55
LR A,$6 ; 0ba8 46
LR QU,A ; 0ba9 06
PI A0bca ; 0baa 28 0b ca
LR A,$2 ; 0bad 42
AI $49 ; 0bae 24 49
AS $5 ; 0bb0 c5
LR $2,A ; 0bb1 52
DS $4 ; 0bb2 34
LR A,$4 ; 0bb3 44
CI $3b ; 0bb4 25 3b
BF $4,A0b80 ; 0bb6 94 c9
LR P,K ; 0bb8 09
POP ; 0bb9 1c
A0bba: LR A,$1 ; 0bba 41
NI $01 ; 0bbb 21 01
LR A,$1 ; 0bbd 41
BT 4,A0bc5 ; 0bbe 84 06
SR 1 ; 0bc0 12
OI $80 ; 0bc1 22 80
BF $0,A0bc6 ; 0bc3 90 02
A0bc5: SR 1 ; 0bc5 12
A0bc6: LISU 7 ; 0bc6 67
LISL 0 ; 0bc7 68
LR (IS),A ; 0bc8 5c
POP ; 0bc9 1c
A0bca: LR A,$5 ; 0bca 45
SR 1 ; 0bcb 12
LR IS,A ; 0bcc 0b
LR A,$5 ; 0bcd 45
NI $01 ; 0bce 21 01
LR A,QU ; 0bd0 02
BF $4,A0bda ; 0bd1 94 08
SL 4 ; 0bd3 15
LR $0,A ; 0bd4 50
LR A,(IS) ; 0bd5 4c
NI $0f ; 0bd6 21 0f
BF $0,A0bde ; 0bd8 90 05
A0bda: LR $0,A ; 0bda 50
LR A,(IS) ; 0bdb 4c
NI $f0 ; 0bdc 21 f0
A0bde: XS $0 ; 0bde e0
LR (IS),A ; 0bdf 5c
POP ; 0be0 1c
A0be1: LR K,P ; 0be1 08
PI $0107 ; 0be2 28 01 07
LR A,(IS)- ; 0be5 4e
NI $84 ; 0be6 21 84
BT 4,A0bf2 ; 0be8 84 09
BF $1,A0bef ; 0bea 91 04
JMP A0c6e ; 0bec 29 0c 6e
A0bef: JMP A0c82 ; 0bef 29 0c 82
A0bf2: LR A,IS ; 0bf2 0a
NI $01 ; 0bf3 21 01
BT 4,A0bfa ; 0bf5 84 04
INS 4 ; 0bf7 a4
BF $0,A0bfb ; 0bf8 90 02
A0bfa: INS 1 ; 0bfa a1
A0bfb: COM ; 0bfb 18
LR QL,A ; 0bfc 07
BT 4,A0c04 ; 0bfd 84 06
LIS $f ; 0bff 7f
LR $0,A ; 0c00 50
PI A0df3 ; 0c01 28 0d f3
A0c04: LR A,(IS)+ ; 0c04 4d
LR A,IS ; 0c05 0a
NI $01 ; 0c06 21 01
BF $4,A0c0e ; 0c08 94 05
LR A,$9 ; 0c0a 49
LR $1,A ; 0c0b 51
BF $0,A0c10 ; 0c0c 90 03
A0c0e: LR A,QU ; 0c0e 02
LR $1,A ; 0c0f 51
A0c10: LR A,QL ; 0c10 03
CI $00 ; 0c11 25 00
BF $4,A0c25 ; 0c13 94 11
LIS $0 ; 0c15 70
LR $1,A ; 0c16 51
A0c17: LISU 2 ; 0c17 62
LR A,IS ; 0c18 0a
NI $01 ; 0c19 21 01
BF $4,A0c21 ; 0c1b 94 05
LR A,$1 ; 0c1d 41
LR $9,A ; 0c1e 59
BF $0,A0c6f ; 0c1f 90 4f
A0c21: LR A,$1 ; 0c21 41
LR QU,A ; 0c22 06
BF $0,A0c6f ; 0c23 90 4b
A0c25: DS $1 ; 0c25 31
BT 1,A0c17 ; 0c26 81 f0
LR A,QL ; 0c28 03
LISU 3 ; 0c29 63
NI $20 ; 0c2a 21 20
BT 4,A0c40 ; 0c2c 84 13
LR A,(IS) ; 0c2e 4c
INC ; 0c2f 1f
LR (IS),A ; 0c30 5c
NI $0f ; 0c31 21 0f
CI $0a ; 0c33 25 0a
BF $4,A0c3b ; 0c35 94 05
LR A,(IS) ; 0c37 4c
NI $f0 ; 0c38 21 f0
LR (IS),A ; 0c3a 5c
A0c3b: LI $14 ; 0c3b 20 14
LR $1,A ; 0c3d 51
BF $0,A0c17 ; 0c3e 90 d8
A0c40: LR A,QL ; 0c40 03
AI $00 ; 0c41 24 00
BF $1,A0c4f ; 0c43 91 0b
NI $10 ; 0c45 21 10
BT 4,A0c17 ; 0c47 84 cf
LI $76 ; 0c49 20 76
ASD (IS) ; 0c4b dc
LR (IS),A ; 0c4c 5c
BF $0,A0c3b ; 0c4d 90 ed
A0c4f: LR A,(IS)- ; 0c4f 4e
LR A,(IS)- ; 0c50 4e
LR $3,A ; 0c51 53
LIS $0 ; 0c52 70
AS (IS)+ ; 0c53 cd
LR A,(IS)+ ; 0c54 4d
BF $4,A0c5e ; 0c55 94 08
LR A,(IS) ; 0c57 4c
COM ; 0c58 18
ASD $3 ; 0c59 d3
BT 2,A0c5e ; 0c5a 82 03
LR A,$3 ; 0c5c 43
LR (IS),A ; 0c5d 5c
A0c5e: LIS $0 ; 0c5e 70
AS (IS) ; 0c5f cc
BF $4,A0c63 ; 0c60 94 02
LIS $1 ; 0c62 71
A0c63: LR (IS),A ; 0c63 5c
LISU 2 ; 0c64 62
LR A,(IS) ; 0c65 4c
OI $04 ; 0c66 22 04
LR (IS)-,A ; 0c68 5e
LIS $e ; 0c69 7e
LR $0,A ; 0c6a 50
PI A0df3 ; 0c6b 28 0d f3
A0c6e: LR A,(IS)+ ; 0c6e 4d
A0c6f: LISU 3 ; 0c6f 63
LR A,(IS)- ; 0c70 4e
SR 4 ; 0c71 14
LR $0,A ; 0c72 50
LIS $0 ; 0c73 70
LR $8,A ; 0c74 58
PI A0df5 ; 0c75 28 0d f5
LR A,(IS)+ ; 0c78 4d
LR A,(IS)- ; 0c79 4e
SL 4 ; 0c7a 15
SR 4 ; 0c7b 14
LR $0,A ; 0c7c 50
LIS $1 ; 0c7d 71
LR $8,A ; 0c7e 58
PI A0df5 ; 0c7f 28 0d f5
A0c82: LR A,(IS)+ ; 0c82 4d
LISU 2 ; 0c83 62
PI $011e ; 0c84 28 01 1e
PK ; 0c87 0c
A0c88: LR W,J ; 0c88 1d
DS $1 ; 0c89 31
COM ; 0c8a 18
DS $0 ; 0c8b 30
SL 1 ; 0c8c 13
db $2e
LR Q,DC ; 0c8e 0e
XDC ; 0c8f 2c
LR Q,DC ; 0c90 0e
db $2d
LR P,K ; 0c92 09
DCI $092d ; 0c93 2a 09 2d
LR KL,A ; 0c96 05
DCI $052d ; 0c97 2a 05 2d
A0c9a: LR K,P ; 0c9a 08
PI $0107 ; 0c9b 28 01 07
LR A,(IS)+ ; 0c9e 4d
LR A,IS ; 0c9f 0a
LR QU,A ; 0ca0 06
LISU 3 ; 0ca1 63
LR A,(IS) ; 0ca2 4c
LR $a,A ; 0ca3 5a
A0ca4: LIS $8 ; 0ca4 78
SL 4 ; 0ca5 15
LR $3,A ; 0ca6 53
LI $09 ; 0ca7 20 09
LR $2,A ; 0ca9 52
LIS $5 ; 0caa 75
LR $4,A ; 0cab 54
LI $17 ; 0cac 20 17
LR $1,A ; 0cae 51
LISU 3 ; 0caf 63
LISL 0 ; 0cb0 68
A0cb1: LR A,(IS) ; 0cb1 4c
SR 4 ; 0cb2 14
LR $0,A ; 0cb3 50
DCI $0767 ; 0cb4 2a 07 67
PI $0718 ; 0cb7 28 07 18
LIS $6 ; 0cba 76
AS $1 ; 0cbb c1
LR $1,A ; 0cbc 51
LR A,(IS)+ ; 0cbd 4d
SL 4 ; 0cbe 15
SR 4 ; 0cbf 14
LR $0,A ; 0cc0 50
DCI $0767 ; 0cc1 2a 07 67
PI $0718 ; 0cc4 28 07 18
LIS $6 ; 0cc7 76
AS $1 ; 0cc8 c1
LR $1,A ; 0cc9 51
CI $5f ; 0cca 25 5f
BT 4,A0cd8 ; 0ccc 84 0b
CI $2f ; 0cce 25 2f
BF $4,A0cb1 ; 0cd0 94 e0
LR A,(IS)+ ; 0cd2 4d
LI $47 ; 0cd3 20 47
LR $1,A ; 0cd5 51
BF $0,A0cb1 ; 0cd6 90 da
A0cd8: LIS $0 ; 0cd8 70
OUTS 1 ; 0cd9 b1
OUTS 4 ; 0cda b4
LR A,QU ; 0cdb 02
LR IS,A ; 0cdc 0b
LR A,(IS) ; 0cdd 4c
NI $03 ; 0cde 21 03
BT 4,A0d0b ; 0ce0 84 2a
A0ce2: LIS $0 ; 0ce2 70
COM ; 0ce3 18
ASD $a ; 0ce4 da
LR $a,A ; 0ce5 5a
BT 2,A0d1b ; 0ce6 82 34
LR A,(IS) ; 0ce8 4c
SL 1 ; 0ce9 13
SL 1 ; 0cea 13
BT 1,A0d05 ; 0ceb 81 19
NI $10 ; 0ced 21 10
LISU 3 ; 0cef 63
LR A,(IS) ; 0cf0 4c
LISU 2 ; 0cf1 62
BT 4,A0cfe ; 0cf2 84 0b
INC ; 0cf4 1f
SR 1 ; 0cf5 12
LR $a,A ; 0cf6 5a
NI $08 ; 0cf7 21 08
BT 4,A0cff ; 0cf9 84 05
LR A,$a ; 0cfb 4a
AI $fd ; 0cfc 24 fd
A0cfe: LR $a,A ; 0cfe 5a
A0cff: LR A,(IS) ; 0cff 4c
NI $df ; 0d00 21 df
LR (IS),A ; 0d02 5c
BF $0,A0ce2 ; 0d03 90 de
A0d05: LR A,(IS) ; 0d05 4c
NI $fc ; 0d06 21 fc
OI $08 ; 0d08 22 08
LR (IS),A ; 0d0a 5c
A0d0b: LR A,(IS)- ; 0d0b 4e
PI $011e ; 0d0c 28 01 1e
PK ; 0d0f 0c
A0d10: SL 4 ; 0d10 15
OUTS 5 ; 0d11 b5
LIS $8 ; 0d12 78
LR $5,A ; 0d13 55
PI $008f ; 0d14 28 00 8f
LIS $0 ; 0d17 70
OUTS 5 ; 0d18 b5
BF $0,A0ca4 ; 0d19 90 8a
A0d1b: LR A,(IS)- ; 0d1b 4e
LISU 3 ; 0d1c 63
NI $02 ; 0d1d 21 02
BF $4,A0d3f ; 0d1f 94 1f
COM ; 0d21 18
ASD (IS) ; 0d22 dc
LR (IS)-,A ; 0d23 5e
BT 4,A0d2f ; 0d24 84 0a
BT 2,A0d2c ; 0d26 82 05
LIS $0 ; 0d28 70
COM ; 0d29 18
ASD (IS) ; 0d2a dc
LR (IS)+,A ; 0d2b 5d
A0d2c: LIS $4 ; 0d2c 74
BF $0,A0d10 ; 0d2d 90 e2
A0d2f: AS (IS)+ ; 0d2f cd
BF $4,A0d2c ; 0d30 94 fb
LISU 2 ; 0d32 62
LR A,(IS)+ ; 0d33 4d
LR A,(IS) ; 0d34 4c
OI $80 ; 0d35 22 80
NI $fc ; 0d37 21 fc
LR (IS)-,A ; 0d39 5e
PI A0e31 ; 0d3a 28 0e 31
BF $0,A0d2c ; 0d3d 90 ee
A0d3f: LI $67 ; 0d3f 20 67
ASD (IS) ; 0d41 dc
LR (IS)-,A ; 0d42 5e
BF $2,A0d49 ; 0d43 92 05
LI $67 ; 0d45 20 67
ASD (IS) ; 0d47 dc
LR (IS),A ; 0d48 5c
A0d49: LIS $8 ; 0d49 78
BF $0,A0d10 ; 0d4a 90 c5
A0d4c: LI $7d ; 0d4c 20 7d
LR $1,A ; 0d4e 51
INC ; 0d4f 1f
LR $4,A ; 0d50 54
LR A,$0 ; 0d51 40
NI $80 ; 0d52 21 80
LR $6,A ; 0d54 56
LR A,$0 ; 0d55 40
SL 1 ; 0d56 13
LR $0,A ; 0d57 50
LIS $0 ; 0d58 70
BF $0,A0d60 ; 0d59 90 06
A0d5b: LIS $5 ; 0d5b 75
LR $1,A ; 0d5c 51
LI $70 ; 0d5d 20 70
LR $4,A ; 0d5f 54
A0d60: LR $5,A ; 0d60 55
LI $40 ; 0d61 20 40
OUTS 0 ; 0d63 b0
A0d64: LR A,$2 ; 0d64 42
COM ; 0d65 18
NI $3f ; 0d66 21 3f
OUTS 5 ; 0d68 b5
LR A,$1 ; 0d69 41
LR $7,A ; 0d6a 57
A0d6b: LR A,$0 ; 0d6b 40
A0d6c: XI $c0 ; 0d6c 23 c0
OUTS 1 ; 0d6e b1
LR A,$7 ; 0d6f 47
COM ; 0d70 18
OUTS 4 ; 0d71 b4
LI $60 ; 0d72 20 60
OUTS 0 ; 0d74 b0
LI $40 ; 0d75 20 40
OUTS 0 ; 0d77 b0
LIS $4 ; 0d78 74
COM ; 0d79 18
A0d7a: INC ; 0d7a 1f
BF $4,A0d7a ; 0d7b 94 fe
LR A,$7 ; 0d7d 47
INC ; 0d7e 1f
LR $7,A ; 0d7f 57
COM ; 0d80 18
INC ; 0d81 1f
AS $4 ; 0d82 c4
BF $1,A0d8d ; 0d83 91 09
BF $4,A0d6b ; 0d85 94 e5
DS $5 ; 0d87 35
BT 1,A0d8d ; 0d88 81 04
LR A,$6 ; 0d8a 46
BF $0,A0d6c ; 0d8b 90 e0
A0d8d: LR A,$2 ; 0d8d 42
INC ; 0d8e 1f
LR $2,A ; 0d8f 52
NI $3f ; 0d90 21 3f
XS $3 ; 0d92 e3
BF $4,A0d64 ; 0d93 94 d0
LIS $0 ; 0d95 70
OUTS 1 ; 0d96 b1
OUTS 4 ; 0d97 b4
OUTS 0 ; 0d98 b0
POP ; 0d99 1c
A0d9a: LR K,P ; 0d9a 08
DCI A0db3 ; 0d9b 2a 0d b3
LR A,$8 ; 0d9e 48
SL 4 ; 0d9f 15
BT 4,A0da4 ; 0da0 84 03
ADC ; 0da2 8e
LM ; 0da3 16
A0da4: LR $3,A ; 0da4 53
LIS $5 ; 0da5 75
LR $4,A ; 0da6 54
LI $30 ; 0da7 20 30
LR $1,A ; 0da9 51
LI $33 ; 0daa 20 33
LR $2,A ; 0dac 52
LIS $0 ; 0dad 70
LR $0,A ; 0dae 50
A0daf: PI $0718 ; 0daf 28 07 18
LIS $6 ; 0db2 76
A0db3: AS $1 ; 0db3 c1
LR $1,A ; 0db4 51
CI $3f ; 0db5 25 3f
BT 1,A0daf ; 0db7 81 f7
DCI $079e ; 0db9 2a 07 9e
A0dbc: PI $0718 ; 0dbc 28 07 18
LIS $0 ; 0dbf 70
OUTS 1 ; 0dc0 b1
OUTS 4 ; 0dc1 b4
PK ; 0dc2 0c
BT 0,A0dbc ; 0dc3 80 f8
INS 8 ; 0dc5 a8
INS 8 ; 0dc6 a8
INS 8 ; 0dc7 a8
INS 8 ; 0dc8 a8
NS $8 ; 0dc9 f8
LI $20 ; 0dca 20 20
LI $f8 ; 0dcc 20 f8
LR A,KU ; 0dce 00
LR A,KU ; 0dcf 00
LR A,KU ; 0dd0 00
LR A,KU ; 0dd1 00
LR A,KU ; 0dd2 00
LR A,$0 ; 0dd3 40
AM ; 0dd4 88
BF $0,-32 ; 0dd5 90 e0
BF $0,A0d60 ; 0dd7 90 88
NS $8 ; 0dd9 f8
AM ; 0dda 88
NS $8 ; 0ddb f8
AM ; 0ddc 88
AM ; 0ddd 88
LR A,KU ; 0dde 00
LR A,KU ; 0ddf 00
LR A,KU ; 0de0 00
LR A,KU ; 0de1 00
LR A,KU ; 0de2 00
LR A,$0 ; 0de3 40
LR A,KU ; 0de4 00
A0de5: LR A,KU ; 0de5 00
LR A,KU ; 0de6 00
LR A,KU ; 0de7 00
LR A,KU ; 0de8 00
NS $8 ; 0de9 f8
BT 0,-32 ; 0dea 80 e0
BT 0,A0de5 ; 0dec 80 f8
LR A,KU ; 0dee 00
LR A,KU ; 0def 00
LR A,KU ; 0df0 00
LR A,KU ; 0df1 00
LR A,KU ; 0df2 00
A0df3: LIS $2 ; 0df3 72
LR $8,A ; 0df4 58
A0df5: LR A,IS ; 0df5 0a
NI $07 ; 0df6 21 07
DS $8 ; 0df8 38
AS $8 ; 0df9 c8
BF $0,A0dfd ; 0dfa 90 02
LR A,$8 ; 0dfc 48
A0dfd: DCI A0e2b ; 0dfd 2a 0e 2b
ADC ; 0e00 8e
LM ; 0e01 16
LR $1,A ; 0e02 51
LIS $4 ; 0e03 74
SL 4 ; 0e04 15
LR $3,A ; 0e05 53
LR K,P ; 0e06 08
LI $33 ; 0e07 20 33
LR $2,A ; 0e09 52
LIS $5 ; 0e0a 75
LR $4,A ; 0e0b 54
LI $c0 ; 0e0c 20 c0
NS $0 ; 0e0e f0
BT 4,A0e12 ; 0e0f 84 02
LR $3,A ; 0e11 53
A0e12: DCI $0767 ; 0e12 2a 07 67
LR A,$0 ; 0e15 40
NI $3f ; 0e16 21 3f
LR $0,A ; 0e18 50
CI $09 ; 0e19 25 09
BT 1,A0e24 ; 0e1b 81 08
CI $0f ; 0e1d 25 0f
BF $1,A0e24 ; 0e1f 91 04
DCI A0ef9 ; 0e21 2a 0e f9
A0e24: PI $0718 ; 0e24 28 07 18
LIS $0 ; 0e27 70
OUTS 1 ; 0e28 b1
OUTS 4 ; 0e29 b4
PK ; 0e2a 0c
A0e2b: SL 1 ; 0e2b 13
LNK ; 0e2c 19
XI $58 ; 0e2d 23 58
LR (IS)-,A ; 0e2f 5e
LR A,(IS)- ; 0e30 4e
A0e31: LR K,P ; 0e31 08
PI $0107 ; 0e32 28 01 07
LIS $f ; 0e35 7f
LR $0,A ; 0e36 50
LIS $0 ; 0e37 70
LR $8,A ; 0e38 58
PI A0df5 ; 0e39 28 0d f5
LIS $1 ; 0e3c 71
LR $8,A ; 0e3d 58
PI A0df5 ; 0e3e 28 0d f5
LIS $2 ; 0e41 72
LR $8,A ; 0e42 58
PI A0df5 ; 0e43 28 0d f5
PI $011e ; 0e46 28 01 1e
PK ; 0e49 0c
A0e4a: LR K,P ; 0e4a 08
PI $0107 ; 0e4b 28 01 07
LI $10 ; 0e4e 20 10
LR QU,A ; 0e50 06
LIS $0 ; 0e51 70
AS (IS) ; 0e52 cc
BT 4,A0e6b ; 0e53 84 17
CI $05 ; 0e55 25 05
BF $1,A0e5b ; 0e57 91 03
LIS $5 ; 0e59 75
LR (IS),A ; 0e5a 5c
A0e5b: LR A,IS ; 0e5b 0a
CI $14 ; 0e5c 25 14
BF $1,A0e65 ; 0e5e 91 06
PI A0e8c ; 0e60 28 0e 8c
BF $0,A0e68 ; 0e63 90 04
A0e65: PI A0e96 ; 0e65 28 0e 96
A0e68: DS (IS) ; 0e68 3c
BF $4,A0e5b ; 0e69 94 f1
A0e6b: LIS $0 ; 0e6b 70
LR (IS)-,A ; 0e6c 5e
LR (IS)+,A ; 0e6d 5d
PI $011e ; 0e6e 28 01 1e
PK ; 0e71 0c
A0e72: LR K,P ; 0e72 08
PI $0107 ; 0e73 28 01 07
LI $34 ; 0e76 20 34
LR $1,A ; 0e78 51
LI $11 ; 0e79 20 11
LR $2,A ; 0e7b 52
PI A0ea2 ; 0e7c 28 0e a2
LI $3a ; 0e7f 20 3a
LR $1,A ; 0e81 51
LI $11 ; 0e82 20 11
LR $2,A ; 0e84 52
PI A0ea2 ; 0e85 28 0e a2
PI $011e ; 0e88 28 01 1e
PK ; 0e8b 0c
A0e8c: DCI A0ef9 ; 0e8c 2a 0e f9
LR A,IS ; 0e8f 0a
NI $01 ; 0e90 21 01
SL 4 ; 0e92 15
ADC ; 0e93 8e
BF $0,A0e9b ; 0e94 90 06
A0e96: DCI $0f19 ; 0e96 2a 0f 19
LISU 2 ; 0e99 62
LISL 7 ; 0e9a 6f
A0e9b: LR A,(IS) ; 0e9b 4c
SL 1 ; 0e9c 13
ADC ; 0e9d 8e
LM ; 0e9e 16
LR $1,A ; 0e9f 51
LM ; 0ea0 16
LR $2,A ; 0ea1 52
A0ea2: LR K,P ; 0ea2 08
LIS $5 ; 0ea3 75
LR $4,A ; 0ea4 54
LR A,QU ; 0ea5 02
SR 1 ; 0ea6 12
SL 4 ; 0ea7 15
LIS $0 ; 0ea8 70
LR $0,A ; 0ea9 50
BT 1,A0eae ; 0eaa 81 03
LIS $c ; 0eac 7c
SL 4 ; 0ead 15
A0eae: LR $3,A ; 0eae 53
DCI $07b7 ; 0eaf 2a 07 b7
PI $0718 ; 0eb2 28 07 18
DS $1 ; 0eb5 31
DS $1 ; 0eb6 31
DCI $07b7 ; 0eb7 2a 07 b7
PI $0718 ; 0eba 28 07 18
LIS $4 ; 0ebd 74
AS $2 ; 0ebe c2
LR $2,A ; 0ebf 52
DCI $07b7 ; 0ec0 2a 07 b7
PI $0718 ; 0ec3 28 07 18
LIS $2 ; 0ec6 72
AS $1 ; 0ec7 c1
LR $1,A ; 0ec8 51
DCI $07b7 ; 0ec9 2a 07 b7
PI $0718 ; 0ecc 28 07 18
DS $1 ; 0ecf 31
DS $2 ; 0ed0 32
DS $2 ; 0ed1 32
LR A,QU ; 0ed2 02
NI $c0 ; 0ed3 21 c0
BF $4,A0ed9 ; 0ed5 94 03
LIS $8 ; 0ed7 78
SL 4 ; 0ed8 15
A0ed9: LR $3,A ; 0ed9 53
LR A,QU ; 0eda 02
NI $0f ; 0edb 21 0f
LR $0,A ; 0edd 50
BT 4,A0ef7 ; 0ede 84 18
DCI A0f44 ; 0ee0 2a 0f 44
PI $0718 ; 0ee3 28 07 18
LR A,$0 ; 0ee6 40
CI $0d ; 0ee7 25 0d
BF $1,A0ef7 ; 0ee9 91 0d
LI $40 ; 0eeb 20 40
A0eed: OUTS 5 ; 0eed b5
LIS $0 ; 0eee 70
LR $5,A ; 0eef 55
A0ef0: INC ; 0ef0 1f
BF $4,A0ef0 ; 0ef1 94 fe
OUTS 5 ; 0ef3 b5
PI $008f ; 0ef4 28 00 8f
A0ef7: LIS $0 ; 0ef7 70
OUTS 1 ; 0ef8 b1
A0ef9: OUTS 4 ; 0ef9 b4
PK ; 0efa 0c
db $5f
LR W,J ; 0efc 1d
LR $8,A ; 0efd 58
LI $51 ; 0efe 20 51
XI $4a ; 0f00 23 4a
CI $43 ; 0f02 25 43
IN $5c ; 0f04 26 5c
OI $55 ; 0f06 22 55
CI $4e ; 0f08 25 4e
PI $141d ; 0f0a 28 14 1d
A0f0d: EI ; 0f0d 1b
LI $22 ; 0f0e 20 22
XI $29 ; 0f10 23 29
CI $30 ; 0f12 25 30
IN $17 ; 0f14 26 17
OI $1e ; 0f16 22 1e
CI $25 ; 0f18 25 25
PI $2a11 ; 0f1a 28 2a 11
DS $3 ; 0f1d 33
LR H,DC ; 0f1e 11
DS (IS) ; 0f1f 3c
LR H,DC ; 0f20 11
LR A,$5 ; 0f21 45
LR H,DC ; 0f22 11
LR A,(IS)- ; 0f23 4e
LR H,DC ; 0f24 11
LR $7,A ; 0f25 57
A0f26: LR H,DC ; 0f26 11
COM ; 0f27 18
LR H,DC ; 0f28 11
NI $11 ; 0f29 21 11
NS $8 ; 0f2b f8
BT 0,-104 ; 0f2c 80 98
AM ; 0f2e 88
NS $8 ; 0f2f f8
AM ; 0f30 88
AM ; 0f31 88
LR $0,A ; 0f32 50
LR $0,A ; 0f33 50
A0f34: LI $f8 ; 0f34 20 f8
AM ; 0f36 88
NS $8 ; 0f37 f8
AM ; 0f38 88
AM ; 0f39 88
AM ; 0f3a 88
AM ; 0f3b 88
AM ; 0f3c 88
AM ; 0f3d 88
NS $8 ; 0f3e f8
LR A,KU ; 0f3f 00
LR A,KU ; 0f40 00
NS $8 ; 0f41 f8
LR A,KU ; 0f42 00
LR A,KU ; 0f43 00
A0f44: LR A,KU ; 0f44 00
LR A,KU ; 0f45 00
LR A,KU ; 0f46 00
LR A,KU ; 0f47 00
LR A,KU ; 0f48 00
LI $50 ; 0f49 20 50
AM ; 0f4b 88
NS $8 ; 0f4c f8
AM ; 0f4d 88
LIS $0 ; 0f4e 70
LR DC,H ; 0f4f 10
LIS $0 ; 0f50 70
LR A,$0 ; 0f51 40
LIS $0 ; 0f52 70
LIS $0 ; 0f53 70
LR DC,H ; 0f54 10
LIS $0 ; 0f55 70
LR DC,H ; 0f56 10
LIS $0 ; 0f57 70
LR $0,A ; 0f58 50
LR $0,A ; 0f59 50
LIS $0 ; 0f5a 70
LR DC,H ; 0f5b 10
LR DC,H ; 0f5c 10
LIS $0 ; 0f5d 70
A0f5e: LR A,$0 ; 0f5e 40
A0f5f: LIS $0 ; 0f5f 70
LR DC,H ; 0f60 10
LIS $0 ; 0f61 70
A0f62: LIS $0 ; 0f62 70
LR A,$0 ; 0f63 40
A0f64: LIS $0 ; 0f64 70
LR $0,A ; 0f65 50
LIS $0 ; 0f66 70
LIS $0 ; 0f67 70
LR DC,H ; 0f68 10
LI $20 ; 0f69 20 20
LI $70 ; 0f6b 20 70
LR $0,A ; 0f6d 50
LIS $0 ; 0f6e 70
LR $0,A ; 0f6f 50
LIS $0 ; 0f70 70
LIS $0 ; 0f71 70
LR $0,A ; 0f72 50
LIS $0 ; 0f73 70
LR DC,H ; 0f74 10
LR DC,H ; 0f75 10
OUTS 8 ; 0f76 b8
INS 8 ; 0f77 a8
INS 8 ; 0f78 a8
INS 8 ; 0f79 a8
OUTS 8 ; 0f7a b8
XS $0 ; 0f7b e0
BF $0,A0f0d ; 0f7c 90 90
BF $0,A0f5f ; 0f7e 90 e0
XS $0 ; 0f80 e0
BF $0,A0f62 ; 0f81 90 e0
BF $0,A0f64 ; 0f83 90 e0
BF $0,A0f26 ; 0f85 90 a0
XS $0 ; 0f87 e0
BF $0,-120 ; 0f88 90 88
AM ; 0f8a 88
LR $0,A ; 0f8b 50
LI $50 ; 0f8c 20 50
AM ; 0f8e 88
LI $20 ; 0f8f 20 20
ASD $8 ; 0f91 d8
LI $20 ; 0f92 20 20
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
DCI $0b71 ; 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
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
A0fdb: 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 $0ad4 ; 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
BF $0,A0fdb ; 0ff9 90 e1
LR $0,A ; 0ffb 50
LI $20 ; 0ffc 20 20
LR KU,A ; 0ffe 04
LI $00 ; 0fff 20 00

</pre>

File:BlackJack code.jpg

2025-02-26T10:54:03Z

E5frog: E5frog uploaded a new version of File:BlackJack code.jpg

Disassembly:Videocart 3

2025-02-26T10:52:40Z

E5frog:

{{Incomplete Disassembly}}

This is the disassembly of the [[Channel F]] [[Videocart 3]] made with Peter Trauner's [[f8tool]].
Original code is copyright © 1976 Fairchild Semiconductor.

<pre>This is part of a printout of the original code:

08/12/76 17:33:05 F8A --
ICC OBJECT CODE STMT SOURCE STATEMENT

PASS 1 COMPLETE 41.39 SEC
*******LAST CHANGE: SAT, 7/31 BY RICH ************
1 TITLE 'BLACKJACK ROUTINES'
*
* JULY,76// RICH AND SURESH AND JERRY
*
2 BASE HEX
3 ORG H'0800' SET HIGH TO GET OUT OF THE WAY--
800 55 4 DC H'55'
801 2B 5 NOP
*
* ----- IN HERE MAY GO CODE TO ALLOW
*
*
*
6 RO EQU 0
6 R1 EQU 1
6 R2 EQU 2
6 R3 EQU 3
6 R4 EQU 4
6 R5 EQU 5
6 R6 EQU 6
6 R7 EQU 7
6 R8 EQU 8
*
6 HU EQU 10
6 HL EQU 11
6 R9 EQU 9
6 FLAGC EQU 8
6 OLD EQU 9
6 RCNT EQU 10
</pre>

[[File:BlackJack_code.jpg|1000px|original Black Jack code header]]
 

<pre>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
A080d: LI $8a ; 080d 20 8a
LR $0,A ; 080f 50
PI $0099 ; 0810 28 00 99
LR A,$4 ; 0813 44
DS $4 ; 0814 34
BF $4,A080d ; 0815 94 f7
LIS $0 ; 0817 70
LR $0,A ; 0818 50
LR $2,A ; 0819 52
LIS $f ; 081a 7f
LR $3,A ; 081b 53
PI A0d4c ; 081c 28 0d 4c
LIS $8 ; 081f 78
SL 4 ; 0820 15
LR $0,A ; 0821 50
LIS $0 ; 0822 70
LR $3,A ; 0823 53
PI A0d4c ; 0824 28 0d 4c
LIS $0 ; 0827 70
LR $0,A ; 0828 50
LI $31 ; 0829 20 31
LR $2,A ; 082b 52
LIS $f ; 082c 7f
LR $3,A ; 082d 53
PI A0d5b ; 082e 28 0d 5b
LIS $c ; 0831 7c
SL 4 ; 0832 15
LR $0,A ; 0833 50
LI $32 ; 0834 20 32
LR $3,A ; 0836 53
PI A0d5b ; 0837 28 0d 5b
LIS $5 ; 083a 75
LR $4,A ; 083b 54
LIS $0 ; 083c 70
LR $3,A ; 083d 53
DCI A0c88 ; 083e 2a 0c 88
LIS $8 ; 0841 78
LR $9,A ; 0842 59
A0843: LM ; 0843 16
LR $1,A ; 0844 51
LM ; 0845 16
LR $2,A ; 0846 52
LR Q,DC ; 0847 0e
PI $0718 ; 0848 28 07 18
LI $ca ; 084b 20 ca
AS $1 ; 084d c1
COM ; 084e 18
AI $3c ; 084f 24 3c
LR $1,A ; 0851 51
PI $0718 ; 0852 28 07 18
LR DC,Q ; 0855 0f
DS $9 ; 0856 39
BT 1,A0843 ; 0857 81 eb
LIS $0 ; 0859 70
OUTS 1 ; 085a b1
OUTS 4 ; 085b b4
LISU 7 ; 085c 67
LISL 3 ; 085d 6b
LI $3c ; 085e 20 3c
LR (IS),A ; 0860 5c
LISU 3 ; 0861 63
LISL 0 ; 0862 68
LIS $5 ; 0863 75
LR (IS)+,A ; 0864 5d
LIS $0 ; 0865 70
LR (IS)+,A ; 0866 5d
LIS $5 ; 0867 75
LR (IS)+,A ; 0868 5d
LIS $5 ; 0869 75
LR (IS)+,A ; 086a 5d
LIS $0 ; 086b 70
LR (IS)+,A ; 086c 5d
LIS $5 ; 086d 75
LR (IS),A ; 086e 5c
LIS $2 ; 086f 72
LR $4,A ; 0870 54
BF $0,A0883 ; 0871 90 11
A0873: LIS $0 ; 0873 70
LR QU,A ; 0874 06
PI A0e72 ; 0875 28 0e 72
LIS $0 ; 0878 70
LR $5,A ; 0879 55
PI $008f ; 087a 28 00 8f
A087d: LI $8e ; 087d 20 8e
LR $0,A ; 087f 50
PI $0099 ; 0880 28 00 99
A0883: LI $80 ; 0883 20 80
LR $a,A ; 0885 5a
LR $b,A ; 0886 5b
LIS $1 ; 0887 71
LR $9,A ; 0888 59
LR A,$4 ; 0889 44
SL 4 ; 088a 15
BF $1,A087d ; 088b 91 f1
SL 1 ; 088d 13
BF $1,A0897 ; 088e 91 08
SL 1 ; 0890 13
BF $1,A0896 ; 0891 91 04
DS $a ; 0893 3a
BF $0,A0898 ; 0894 90 03
A0896: DS $a ; 0896 3a
A0897: DS $b ; 0897 3b
A0898: LISU 2 ; 0898 62
LISL 1 ; 0899 69
A089a: PI A0e31 ; 089a 28 0e 31
LR A,(IS)+ ; 089d 4d
LIS $0 ; 089e 70
AS $a ; 089f ca
LR (IS),A ; 08a0 5c
BF $1,A08b6 ; 08a1 91 14
LIS $0 ; 08a3 70
LR (IS)-,A ; 08a4 5e
LIS $e ; 08a5 7e
LR $0,A ; 08a6 50
LIS $1 ; 08a7 71
LR $8,A ; 08a8 58
PI A0df5 ; 08a9 28 0d f5
LISU 3 ; 08ac 63
LIS $0 ; 08ad 70
AS (IS)- ; 08ae ce
AS (IS)+ ; 08af cd
BF $4,A08b5 ; 08b0 94 04
LR A,(IS)- ; 08b2 4e
LIS $1 ; 08b3 71
LR (IS)+,A ; 08b4 5d
A08b5: LISU 2 ; 08b5 62
A08b6: LR A,$b ; 08b6 4b
LR $a,A ; 08b7 5a
LISL 4 ; 08b8 6c
DS $9 ; 08b9 39
BT 4,A089a ; 08ba 84 df
LI $10 ; 08bc 20 10
LR QU,A ; 08be 06
PI A0e72 ; 08bf 28 0e 72
PI A0c9a ; 08c2 28 0c 9a
LIS $2 ; 08c5 72
LR $1,A ; 08c6 51
LISU 7 ; 08c7 67
LISL 0 ; 08c8 68
LR A,IS ; 08c9 0a
LR (IS)-,A ; 08ca 5e
LISU 6 ; 08cb 66
LI $11 ; 08cc 20 11
LR $0,A ; 08ce 50
A08cf: LR (IS)-,A ; 08cf 5e
LR (IS)-,A ; 08d0 5e
AS $0 ; 08d1 c0
BR7 A08cf ; 08d2 8f fc
LR $3,A ; 08d4 53
LR A,IS ; 08d5 0a
AI $38 ; 08d6 24 38
LR IS,A ; 08d8 0b
LR A,$3 ; 08d9 43
DS $1 ; 08da 31
BT 1,A08cf ; 08db 81 f3
LR (IS)-,A ; 08dd 5e
LR (IS)-,A ; 08de 5e
A08df: LISU 7 ; 08df 67
LISL 0 ; 08e0 68
LR A,(IS) ; 08e1 4c
SL 1 ; 08e2 13
CI $5e ; 08e3 25 5e
BT 1,A0916 ; 08e5 81 30
LIS $1 ; 08e7 71
LR $8,A ; 08e8 58
PI A0d9a ; 08e9 28 0d 9a
INS 1 ; 08ec a1
LR $0,A ; 08ed 50
INS 4 ; 08ee a4
LR $1,A ; 08ef 51
A08f0: INS 0 ; 08f0 a0
COM ; 08f1 18
NI $06 ; 08f2 21 06
BT 4,A08f9 ; 08f4 84 04
JMP A0873 ; 08f6 29 08 73
A08f9: INS 1 ; 08f9 a1
XS $0 ; 08fa e0
SL 1 ; 08fb 13
BF $1,A0909 ; 08fc 91 0c
INS 4 ; 08fe a4
XS $1 ; 08ff e1
SL 1 ; 0900 13
BF $1,A0909 ; 0901 91 07
DS $2 ; 0903 32
BF $4,A08f0 ; 0904 94 eb
DS $3 ; 0906 33
BF $0,A08f0 ; 0907 90 e8
A0909: PI A0b7c ; 0909 28 0b 7c
LR A,$3 ; 090c 43
LR $2,A ; 090d 52
PI A0b7c ; 090e 28 0b 7c
LIS $0 ; 0911 70
LR $8,A ; 0912 58
PI A0d9a ; 0913 28 0d 9a
A0916: LISU 2 ; 0916 62
LISL 5 ; 0917 6d
LR A,(IS) ; 0918 4c
NI $80 ; 0919 21 80
LR (IS),A ; 091b 5c
LISL 2 ; 091c 6a
LR A,(IS) ; 091d 4c
NI $80 ; 091e 21 80
LR (IS)-,A ; 0920 5e
LIS $3 ; 0921 73
LR $8,A ; 0922 58
PI A0d9a ; 0923 28 0d 9a
A0926: INS 0 ; 0926 a0
COM ; 0927 18
NI $06 ; 0928 21 06
BT 4,A092f ; 092a 84 04
JMP A0873 ; 092c 29 08 73
A092f: LISL 2 ; 092f 6a
PI A0be1 ; 0930 28 0b e1
LISL 5 ; 0933 6d
PI A0be1 ; 0934 28 0b e1
LR A,(IS) ; 0937 4c
NI $84 ; 0938 21 84
BT 4,A0926 ; 093a 84 eb
LISL 2 ; 093c 6a
LR A,(IS) ; 093d 4c
NI $84 ; 093e 21 84
BT 4,A0926 ; 0940 84 e5
LISL 1 ; 0942 69
PI A0e4a ; 0943 28 0e 4a
LISL 4 ; 0946 6c
PI A0e4a ; 0947 28 0e 4a
LISL 7 ; 094a 6f
PI A0e4a ; 094b 28 0e 4a
LISL 1 ; 094e 69
LIS $f ; 094f 7f
LR $0,A ; 0950 50
PI A0df3 ; 0951 28 0d f3
LISL 4 ; 0954 6c
PI A0df3 ; 0955 28 0d f3
LIS $0 ; 0958 70
LR QL,A ; 0959 07
LR $8,A ; 095a 58
PI A0d9a ; 095b 28 0d 9a
A095e: LISU 2 ; 095e 62
LISL 5 ; 095f 6d
LIS $0 ; 0960 70
AS (IS)- ; 0961 ce
BF $1,A096e ; 0962 91 0b
PI A0b09 ; 0964 28 0b 09
PI A0b2c ; 0967 28 0b 2c
LR (IS)-,A ; 096a 5e
PI A0e8c ; 096b 28 0e 8c
A096e: LISL 2 ; 096e 6a
LIS $0 ; 096f 70
AS (IS)- ; 0970 ce
BF $1,A097d ; 0971 91 0b
PI A0b09 ; 0973 28 0b 09
PI A0b2c ; 0976 28 0b 2c
LR (IS)-,A ; 0979 5e
PI A0e8c ; 097a 28 0e 8c
A097d: PI A0b09 ; 097d 28 0b 09
PI A0b30 ; 0980 28 0b 30
LR QL,A ; 0983 07
NI $04 ; 0984 21 04
BF $4,A098d ; 0986 94 06
PI A0e96 ; 0988 28 0e 96
BF $0,A095e ; 098b 90 d2
A098d: LR A,QU ; 098d 02
LISU 7 ; 098e 67
LISL 2 ; 098f 6a
LR (IS),A ; 0990 5c
LIS $0 ; 0991 70
LR QU,A ; 0992 06
PI A0e96 ; 0993 28 0e 96
LIS $f ; 0996 7f
LR $a,A ; 0997 5a
LI $4f ; 0998 20 4f
LR QU,A ; 099a 06
A099b: LIS $0 ; 099b 70
LR $0,A ; 099c 50
LISL 2 ; 099d 6a
LR A,(IS) ; 099e 4c
NI $20 ; 099f 21 20
BT 4,A09b2 ; 09a1 84 10
LR A,(IS) ; 09a3 4c
OI $02 ; 09a4 22 02
LR (IS)-,A ; 09a6 5e
LI $8a ; 09a7 20 8a
LR $0,A ; 09a9 50
PI A0df3 ; 09aa 28 0d f3
LIS $5 ; 09ad 75
LR (IS),A ; 09ae 5c
PI A0e8c ; 09af 28 0e 8c
A09b2: LISL 5 ; 09b2 6d
LR A,(IS) ; 09b3 4c
NI $20 ; 09b4 21 20
BT 4,A09c7 ; 09b6 84 10
LR A,(IS) ; 09b8 4c
OI $02 ; 09b9 22 02
LR (IS)-,A ; 09bb 5e
LI $8a ; 09bc 20 8a
LR $0,A ; 09be 50
PI A0df3 ; 09bf 28 0d f3
LIS $5 ; 09c2 75
LR (IS),A ; 09c3 5c
PI A0e8c ; 09c4 28 0e 8c
A09c7: LR A,QL ; 09c7 03
NI $20 ; 09c8 21 20
BT 4,A09d7 ; 09ca 84 0c
LISL 7 ; 09cc 6f
LIS $5 ; 09cd 75
LR (IS),A ; 09ce 5c
PI A0e96 ; 09cf 28 0e 96
LIS $2 ; 09d2 72
LR (IS),A ; 09d3 5c
JMP A0a9b ; 09d4 29 0a 9b
A09d7: DS $a ; 09d7 3a
BT 4,A09fb ; 09d8 84 22
DS $0 ; 09da 30
BF $1,A09fb ; 09db 91 1f
LI $40 ; 09dd 20 40
OUTS 5 ; 09df b5
LI $10 ; 09e0 20 10
LR $5,A ; 09e2 55
PI $008f ; 09e3 28 00 8f
LIS $0 ; 09e6 70
OUTS 5 ; 09e7 b5
LR A,QU ; 09e8 02
XI $c1 ; 09e9 23 c1
LR QU,A ; 09eb 06
A09ec: INC ; 09ec 1f
BF $4,A09ec ; 09ed 94 fe
LI $80 ; 09ef 20 80
OUTS 5 ; 09f1 b5
LIS $5 ; 09f2 75
LR $5,A ; 09f3 55
PI $008f ; 09f4 28 00 8f
LIS $0 ; 09f7 70
OUTS 5 ; 09f8 b5
BF $0,A099b ; 09f9 90 a1
A09fb: LISL 1 ; 09fb 69
PI A0c9a ; 09fc 28 0c 9a
LISL 4 ; 09ff 6c
A0a00: LIS $0 ; 0a00 70
LR $0,A ; 0a01 50
PI A0d9a ; 0a02 28 0d 9a
A0a05: LISU 2 ; 0a05 62
PI A0c9a ; 0a06 28 0c 9a
A0a09: LR A,(IS)+ ; 0a09 4d
LR A,(IS)- ; 0a0a 4e
NI $c8 ; 0a0b 21 c8
BT 4,A0a18 ; 0a0d 84 0a
LR A,IS ; 0a0f 0a
NI $01 ; 0a10 21 01
LISL 1 ; 0a12 69
BT 4,A0a09 ; 0a13 84 f5
JMP A0a9b ; 0a15 29 0a 9b
A0a18: LIS $2 ; 0a18 72
LR $a,A ; 0a19 5a
LR $8,A ; 0a1a 58
PI A0d9a ; 0a1b 28 0d 9a
A0a1e: LI $95 ; 0a1e 20 95
A0a20: LR $0,A ; 0a20 50
PI A0df3 ; 0a21 28 0d f3
LR A,IS ; 0a24 0a
NI $01 ; 0a25 21 01
BT 4,A0a2c ; 0a27 84 04
INS 4 ; 0a29 a4
BF $0,A0a2d ; 0a2a 90 02
A0a2c: INS 1 ; 0a2c a1
A0a2d: COM ; 0a2d 18
SR 4 ; 0a2e 14
SL 4 ; 0a2f 15
XS $9 ; 0a30 e9
BF $4,A0a39 ; 0a31 94 07
A0a33: DS $a ; 0a33 3a
BT 1,A0a1e ; 0a34 81 e9
LIS $f ; 0a36 7f
BF $0,A0a20 ; 0a37 90 e8
A0a39: XS $9 ; 0a39 e9
LR $9,A ; 0a3a 59
BT 4,A0a33 ; 0a3b 84 f7
BF $1,A0a72 ; 0a3d 91 34
SL 1 ; 0a3f 13
BF $1,A0a8e ; 0a40 91 4d
LR A,(IS)+ ; 0a42 4d
LR A,(IS)- ; 0a43 4e
NI $04 ; 0a44 21 04
BT 4,A0a05 ; 0a46 84 be
LISU 3 ; 0a48 63
LR A,(IS)+ ; 0a49 4d
LI $66 ; 0a4a 20 66
AS (IS) ; 0a4c cc
ASD (IS)- ; 0a4d de
LR $0,A ; 0a4e 50
LR A,(IS)- ; 0a4f 4e
LIS $0 ; 0a50 70
BF $2,A0a54 ; 0a51 92 02
LIS $1 ; 0a53 71
A0a54: COM ; 0a54 18
AS (IS)+ ; 0a55 cd
BT 2,A0a63 ; 0a56 82 0c
INC ; 0a58 1f
BF $4,A0a05 ; 0a59 94 ab
LR A,$0 ; 0a5b 40
COM ; 0a5c 18
AS (IS) ; 0a5d cc
BT 2,A0a63 ; 0a5e 82 04
INC ; 0a60 1f
BF $4,A0a05 ; 0a61 94 a3
A0a63: LISU 2 ; 0a63 62
LIS $5 ; 0a64 75
LR (IS),A ; 0a65 5c
LI $4e ; 0a66 20 4e
LR QU,A ; 0a68 06
PI A0e8c ; 0a69 28 0e 8c
LIS $2 ; 0a6c 72
LR (IS)+,A ; 0a6d 5d
LR A,(IS) ; 0a6e 4c
OI $20 ; 0a6f 22 20
LR (IS)-,A ; 0a71 5e
A0a72: PI A0b09 ; 0a72 28 0b 09
PI A0b2c ; 0a75 28 0b 2c
LR (IS)-,A ; 0a78 5e
PI A0e8c ; 0a79 28 0e 8c
LR A,(IS)+ ; 0a7c 4d
LR A,(IS)- ; 0a7d 4e
NI $28 ; 0a7e 21 28
BT 4,A0a05 ; 0a80 84 84
NI $08 ; 0a82 21 08
BT 4,A0a8e ; 0a84 84 09
LR A,(IS)+ ; 0a86 4d
LR A,(IS) ; 0a87 4c
OI $01 ; 0a88 22 01
LR (IS)-,A ; 0a8a 5e
LIS $c ; 0a8b 7c
BF $0,A0a94 ; 0a8c 90 07
A0a8e: LR A,(IS)+ ; 0a8e 4d
LR A,(IS) ; 0a8f 4c
OI $40 ; 0a90 22 40
LR (IS)-,A ; 0a92 5e
LIS $e ; 0a93 7e
A0a94: LR $0,A ; 0a94 50
PI A0df3 ; 0a95 28 0d f3
JMP A0a00 ; 0a98 29 0a 00
A0a9b: LISU 7 ; 0a9b 67
LISL 2 ; 0a9c 6a
LR A,(IS) ; 0a9d 4c
LR QU,A ; 0a9e 06
PI A0e96 ; 0a9f 28 0e 96
LIS $0 ; 0aa2 70
LR $5,A ; 0aa3 55
PI $008f ; 0aa4 28 00 8f
LISL 2 ; 0aa7 6a
LR A,(IS) ; 0aa8 4c
NI $88 ; 0aa9 21 88
BT 4,A0ab3 ; 0aab 84 07
LISL 5 ; 0aad 6d
LR A,(IS) ; 0aae 4c
NI $88 ; 0aaf 21 88
BF $4,A0b06 ; 0ab1 94 54
A0ab3: LISL 6 ; 0ab3 6e
LR A,(IS)+ ; 0ab4 4d
CI $11 ; 0ab5 25 11
BF $1,A0acf ; 0ab7 91 17
BF $4,A0ac0 ; 0ab9 94 06
LR A,QL ; 0abb 03
NI $10 ; 0abc 21 10
BT 4,A0acf ; 0abe 84 10
A0ac0: PI A0b09 ; 0ac0 28 0b 09
PI A0b30 ; 0ac3 28 0b 30
LR QL,A ; 0ac6 07
PI A0e96 ; 0ac7 28 0e 96
LR A,QL ; 0aca 03
NI $08 ; 0acb 21 08
A0acd: BT 4,A0ab3 ; 0acd 84 e5
A0acf: LISL 6 ; 0acf 6e
A0ad0: LR A,QL ; 0ad0 03
SL 4 ; 0ad1 15
LIS $0 ; 0ad2 70
BF $1,A0ad6 ; 0ad3 91 02
LR A,(IS) ; 0ad5 4c
A0ad6: LR QL,A ; 0ad6 07
LISL 5 ; 0ad7 6d
A0ad8: LR A,(IS)- ; 0ad8 4e
NI $88 ; 0ad9 21 88
BF $4,A0b00 ; 0adb 94 24
LR A,(IS)- ; 0add 4e
LR A,QL ; 0ade 03
COM ; 0adf 18
INC ; 0ae0 1f
AS (IS)+ ; 0ae1 cd
LR A,(IS)+ ; 0ae2 4d
LR A,(IS) ; 0ae3 4c
BT 4,A0af5 ; 0ae4 84 10
BT 1,A0aee ; 0ae6 81 07
OI $01 ; 0ae8 22 01
LR (IS)-,A ; 0aea 5e
LIS $b ; 0aeb 7b
BF $0,A0af9 ; 0aec 90 0c
A0aee: OI $02 ; 0aee 22 02
LR (IS)-,A ; 0af0 5e
LI $8a ; 0af1 20 8a
BF $0,A0af9 ; 0af3 90 05
A0af5: NI $80 ; 0af5 21 80
LR (IS)-,A ; 0af7 5e
LIS $d ; 0af8 7d
A0af9: LR $0,A ; 0af9 50
PI A0df3 ; 0afa 28 0d f3
PI A0c9a ; 0afd 28 0c 9a
A0b00: LR A,IS ; 0b00 0a
NI $01 ; 0b01 21 01
LISL 2 ; 0b03 6a
BT 4,A0ad8 ; 0b04 84 d3
A0b06: JMP A08df ; 0b06 29 08 df
A0b09: LR A,IS ; 0b09 0a
LR $7,A ; 0b0a 57
LISU 7 ; 0b0b 67
LISL 0 ; 0b0c 68
LR A,(IS) ; 0b0d 4c
LR $0,A ; 0b0e 50
LR IS,A ; 0b0f 0b
LR A,(IS) ; 0b10 4c
LR QU,A ; 0b11 06
LISU 7 ; 0b12 67
LISL 0 ; 0b13 68
LR A,$0 ; 0b14 40
XI $80 ; 0b15 23 80
BF $1,A0b25 ; 0b17 91 0d
INC ; 0b19 1f
CI $38 ; 0b1a 25 38
BT 1,A0b20 ; 0b1c 81 03
LI $30 ; 0b1e 20 30
A0b20: LR (IS),A ; 0b20 5c
LR A,QU ; 0b21 02
SL 4 ; 0b22 15
BF $0,A0b27 ; 0b23 90 03
A0b25: LR (IS),A ; 0b25 5c
LR A,QU ; 0b26 02
A0b27: SR 4 ; 0b27 14
LR QU,A ; 0b28 06
LR A,$7 ; 0b29 47
LR IS,A ; 0b2a 0b
POP ; 0b2b 1c
A0b2c: LR A,(IS)+ ; 0b2c 4d
LR A,(IS)- ; 0b2d 4e
BF $0,A0b33 ; 0b2e 90 04
A0b30: LR A,QL ; 0b30 03
LISU 2 ; 0b31 62
LISL 7 ; 0b32 6f
A0b33: LR $8,A ; 0b33 58
LR A,(IS) ; 0b34 4c
INC ; 0b35 1f
LR (IS)-,A ; 0b36 5e
CI $02 ; 0b37 25 02
LR A,$8 ; 0b39 48
BT 4,A0b40 ; 0b3a 84 05
NI $fb ; 0b3c 21 fb
BF $0,A0b42 ; 0b3e 90 03
A0b40: OI $04 ; 0b40 22 04
A0b42: LR $8,A ; 0b42 58
LR A,QU ; 0b43 02
CI $0a ; 0b44 25 0a
BT 1,A0b49 ; 0b46 81 02
LIS $a ; 0b48 7a
A0b49: CI $01 ; 0b49 25 01
BF $4,A0b59 ; 0b4b 94 0d
LR A,$8 ; 0b4d 48
NI $10 ; 0b4e 21 10
LIS $0 ; 0b50 70
BF $4,A0b58 ; 0b51 94 06
LR A,$8 ; 0b53 48
OI $10 ; 0b54 22 10
LR $8,A ; 0b56 58
LIS $a ; 0b57 7a
A0b58: INC ; 0b58 1f
A0b59: AS (IS) ; 0b59 cc
A0b5a: LR (IS)+,A ; 0b5a 5d
CI $15 ; 0b5b 25 15
LR A,(IS)+ ; 0b5d 4d
LR A,$8 ; 0b5e 48
BT 4,A0b70 ; 0b5f 84 10
BT 1,A0b7b ; 0b61 81 19
NI $10 ; 0b63 21 10
BT 4,A0b78 ; 0b65 84 12
XS $8 ; 0b67 e8
LR $8,A ; 0b68 58
LR A,(IS)- ; 0b69 4e
LR A,(IS)- ; 0b6a 4e
LR A,(IS) ; 0b6b 4c
AI $f6 ; 0b6c 24 f6
BF $0,A0b5a ; 0b6e 90 eb
A0b70: NI $04 ; 0b70 21 04
LR A,$8 ; 0b72 48
BT 4,A0b7b ; 0b73 84 07
OI $20 ; 0b75 22 20
POP ; 0b77 1c
A0b78: LR A,$8 ; 0b78 48
OI $08 ; 0b79 22 08
A0b7b: POP ; 0b7b 1c
A0b7c: LR K,P ; 0b7c 08
LI $6f ; 0b7d 20 6f
LR $4,A ; 0b7f 54
A0b80: AS $2 ; 0b80 c2
A0b81: NI $7f ; 0b81 21 7f
CI $68 ; 0b83 25 68
BT 1,A0b89 ; 0b85 81 03
AI $98 ; 0b87 24 98
A0b89: CI $3b ; 0b89 25 3b
BF $1,A0b91 ; 0b8b 91 05
AI $3c ; 0b8d 24 3c
BF $0,A0b81 ; 0b8f 90 f1
A0b91: LR $5,A ; 0b91 55
LR $1,A ; 0b92 51
PI A0bba ; 0b93 28 0b ba
PI A0b09 ; 0b96 28 0b 09
LR A,QU ; 0b99 02
LR $6,A ; 0b9a 56
LR A,$4 ; 0b9b 44
LR $1,A ; 0b9c 51
PI A0bba ; 0b9d 28 0b ba
PI A0b09 ; 0ba0 28 0b 09
PI A0bca ; 0ba3 28 0b ca
LR A,$4 ; 0ba6 44
LR $5,A ; 0ba7 55
LR A,$6 ; 0ba8 46
LR QU,A ; 0ba9 06
PI A0bca ; 0baa 28 0b ca
LR A,$2 ; 0bad 42
AI $49 ; 0bae 24 49
AS $5 ; 0bb0 c5
LR $2,A ; 0bb1 52
DS $4 ; 0bb2 34
LR A,$4 ; 0bb3 44
CI $3b ; 0bb4 25 3b
BF $4,A0b80 ; 0bb6 94 c9
LR P,K ; 0bb8 09
POP ; 0bb9 1c
A0bba: LR A,$1 ; 0bba 41
NI $01 ; 0bbb 21 01
LR A,$1 ; 0bbd 41
BT 4,A0bc5 ; 0bbe 84 06
SR 1 ; 0bc0 12
OI $80 ; 0bc1 22 80
BF $0,A0bc6 ; 0bc3 90 02
A0bc5: SR 1 ; 0bc5 12
A0bc6: LISU 7 ; 0bc6 67
LISL 0 ; 0bc7 68
LR (IS),A ; 0bc8 5c
POP ; 0bc9 1c
A0bca: LR A,$5 ; 0bca 45
SR 1 ; 0bcb 12
LR IS,A ; 0bcc 0b
LR A,$5 ; 0bcd 45
NI $01 ; 0bce 21 01
LR A,QU ; 0bd0 02
BF $4,A0bda ; 0bd1 94 08
SL 4 ; 0bd3 15
LR $0,A ; 0bd4 50
LR A,(IS) ; 0bd5 4c
NI $0f ; 0bd6 21 0f
BF $0,A0bde ; 0bd8 90 05
A0bda: LR $0,A ; 0bda 50
LR A,(IS) ; 0bdb 4c
NI $f0 ; 0bdc 21 f0
A0bde: XS $0 ; 0bde e0
LR (IS),A ; 0bdf 5c
POP ; 0be0 1c
A0be1: LR K,P ; 0be1 08
PI $0107 ; 0be2 28 01 07
LR A,(IS)- ; 0be5 4e
NI $84 ; 0be6 21 84
BT 4,A0bf2 ; 0be8 84 09
BF $1,A0bef ; 0bea 91 04
JMP A0c6e ; 0bec 29 0c 6e
A0bef: JMP A0c82 ; 0bef 29 0c 82
A0bf2: LR A,IS ; 0bf2 0a
NI $01 ; 0bf3 21 01
BT 4,A0bfa ; 0bf5 84 04
INS 4 ; 0bf7 a4
BF $0,A0bfb ; 0bf8 90 02
A0bfa: INS 1 ; 0bfa a1
A0bfb: COM ; 0bfb 18
LR QL,A ; 0bfc 07
BT 4,A0c04 ; 0bfd 84 06
LIS $f ; 0bff 7f
LR $0,A ; 0c00 50
PI A0df3 ; 0c01 28 0d f3
A0c04: LR A,(IS)+ ; 0c04 4d
LR A,IS ; 0c05 0a
NI $01 ; 0c06 21 01
BF $4,A0c0e ; 0c08 94 05
LR A,$9 ; 0c0a 49
LR $1,A ; 0c0b 51
BF $0,A0c10 ; 0c0c 90 03
A0c0e: LR A,QU ; 0c0e 02
LR $1,A ; 0c0f 51
A0c10: LR A,QL ; 0c10 03
CI $00 ; 0c11 25 00
BF $4,A0c25 ; 0c13 94 11
LIS $0 ; 0c15 70
LR $1,A ; 0c16 51
A0c17: LISU 2 ; 0c17 62
LR A,IS ; 0c18 0a
NI $01 ; 0c19 21 01
BF $4,A0c21 ; 0c1b 94 05
LR A,$1 ; 0c1d 41
LR $9,A ; 0c1e 59
BF $0,A0c6f ; 0c1f 90 4f
A0c21: LR A,$1 ; 0c21 41
LR QU,A ; 0c22 06
BF $0,A0c6f ; 0c23 90 4b
A0c25: DS $1 ; 0c25 31
BT 1,A0c17 ; 0c26 81 f0
LR A,QL ; 0c28 03
LISU 3 ; 0c29 63
NI $20 ; 0c2a 21 20
BT 4,A0c40 ; 0c2c 84 13
LR A,(IS) ; 0c2e 4c
INC ; 0c2f 1f
LR (IS),A ; 0c30 5c
NI $0f ; 0c31 21 0f
CI $0a ; 0c33 25 0a
BF $4,A0c3b ; 0c35 94 05
LR A,(IS) ; 0c37 4c
NI $f0 ; 0c38 21 f0
LR (IS),A ; 0c3a 5c
A0c3b: LI $14 ; 0c3b 20 14
LR $1,A ; 0c3d 51
BF $0,A0c17 ; 0c3e 90 d8
A0c40: LR A,QL ; 0c40 03
AI $00 ; 0c41 24 00
BF $1,A0c4f ; 0c43 91 0b
NI $10 ; 0c45 21 10
BT 4,A0c17 ; 0c47 84 cf
LI $76 ; 0c49 20 76
ASD (IS) ; 0c4b dc
LR (IS),A ; 0c4c 5c
BF $0,A0c3b ; 0c4d 90 ed
A0c4f: LR A,(IS)- ; 0c4f 4e
LR A,(IS)- ; 0c50 4e
LR $3,A ; 0c51 53
LIS $0 ; 0c52 70
AS (IS)+ ; 0c53 cd
LR A,(IS)+ ; 0c54 4d
BF $4,A0c5e ; 0c55 94 08
LR A,(IS) ; 0c57 4c
COM ; 0c58 18
ASD $3 ; 0c59 d3
BT 2,A0c5e ; 0c5a 82 03
LR A,$3 ; 0c5c 43
LR (IS),A ; 0c5d 5c
A0c5e: LIS $0 ; 0c5e 70
AS (IS) ; 0c5f cc
BF $4,A0c63 ; 0c60 94 02
LIS $1 ; 0c62 71
A0c63: LR (IS),A ; 0c63 5c
LISU 2 ; 0c64 62
LR A,(IS) ; 0c65 4c
OI $04 ; 0c66 22 04
LR (IS)-,A ; 0c68 5e
LIS $e ; 0c69 7e
LR $0,A ; 0c6a 50
PI A0df3 ; 0c6b 28 0d f3
A0c6e: LR A,(IS)+ ; 0c6e 4d
A0c6f: LISU 3 ; 0c6f 63
LR A,(IS)- ; 0c70 4e
SR 4 ; 0c71 14
LR $0,A ; 0c72 50
LIS $0 ; 0c73 70
LR $8,A ; 0c74 58
PI A0df5 ; 0c75 28 0d f5
LR A,(IS)+ ; 0c78 4d
LR A,(IS)- ; 0c79 4e
SL 4 ; 0c7a 15
SR 4 ; 0c7b 14
LR $0,A ; 0c7c 50
LIS $1 ; 0c7d 71
LR $8,A ; 0c7e 58
PI A0df5 ; 0c7f 28 0d f5
A0c82: LR A,(IS)+ ; 0c82 4d
LISU 2 ; 0c83 62
PI $011e ; 0c84 28 01 1e
PK ; 0c87 0c
A0c88: LR W,J ; 0c88 1d
DS $1 ; 0c89 31
COM ; 0c8a 18
DS $0 ; 0c8b 30
SL 1 ; 0c8c 13
db $2e
LR Q,DC ; 0c8e 0e
XDC ; 0c8f 2c
LR Q,DC ; 0c90 0e
db $2d
LR P,K ; 0c92 09
DCI $092d ; 0c93 2a 09 2d
LR KL,A ; 0c96 05
DCI $052d ; 0c97 2a 05 2d
A0c9a: LR K,P ; 0c9a 08
PI $0107 ; 0c9b 28 01 07
LR A,(IS)+ ; 0c9e 4d
LR A,IS ; 0c9f 0a
LR QU,A ; 0ca0 06
LISU 3 ; 0ca1 63
LR A,(IS) ; 0ca2 4c
LR $a,A ; 0ca3 5a
A0ca4: LIS $8 ; 0ca4 78
SL 4 ; 0ca5 15
LR $3,A ; 0ca6 53
LI $09 ; 0ca7 20 09
LR $2,A ; 0ca9 52
LIS $5 ; 0caa 75
LR $4,A ; 0cab 54
LI $17 ; 0cac 20 17
LR $1,A ; 0cae 51
LISU 3 ; 0caf 63
LISL 0 ; 0cb0 68
A0cb1: LR A,(IS) ; 0cb1 4c
SR 4 ; 0cb2 14
LR $0,A ; 0cb3 50
DCI $0767 ; 0cb4 2a 07 67
PI $0718 ; 0cb7 28 07 18
LIS $6 ; 0cba 76
AS $1 ; 0cbb c1
LR $1,A ; 0cbc 51
LR A,(IS)+ ; 0cbd 4d
SL 4 ; 0cbe 15
SR 4 ; 0cbf 14
LR $0,A ; 0cc0 50
DCI $0767 ; 0cc1 2a 07 67
PI $0718 ; 0cc4 28 07 18
LIS $6 ; 0cc7 76
AS $1 ; 0cc8 c1
LR $1,A ; 0cc9 51
CI $5f ; 0cca 25 5f
BT 4,A0cd8 ; 0ccc 84 0b
CI $2f ; 0cce 25 2f
BF $4,A0cb1 ; 0cd0 94 e0
LR A,(IS)+ ; 0cd2 4d
LI $47 ; 0cd3 20 47
LR $1,A ; 0cd5 51
BF $0,A0cb1 ; 0cd6 90 da
A0cd8: LIS $0 ; 0cd8 70
OUTS 1 ; 0cd9 b1
OUTS 4 ; 0cda b4
LR A,QU ; 0cdb 02
LR IS,A ; 0cdc 0b
LR A,(IS) ; 0cdd 4c
NI $03 ; 0cde 21 03
BT 4,A0d0b ; 0ce0 84 2a
A0ce2: LIS $0 ; 0ce2 70
COM ; 0ce3 18
ASD $a ; 0ce4 da
LR $a,A ; 0ce5 5a
BT 2,A0d1b ; 0ce6 82 34
LR A,(IS) ; 0ce8 4c
SL 1 ; 0ce9 13
SL 1 ; 0cea 13
BT 1,A0d05 ; 0ceb 81 19
NI $10 ; 0ced 21 10
LISU 3 ; 0cef 63
LR A,(IS) ; 0cf0 4c
LISU 2 ; 0cf1 62
BT 4,A0cfe ; 0cf2 84 0b
INC ; 0cf4 1f
SR 1 ; 0cf5 12
LR $a,A ; 0cf6 5a
NI $08 ; 0cf7 21 08
BT 4,A0cff ; 0cf9 84 05
LR A,$a ; 0cfb 4a
AI $fd ; 0cfc 24 fd
A0cfe: LR $a,A ; 0cfe 5a
A0cff: LR A,(IS) ; 0cff 4c
NI $df ; 0d00 21 df
LR (IS),A ; 0d02 5c
BF $0,A0ce2 ; 0d03 90 de
A0d05: LR A,(IS) ; 0d05 4c
NI $fc ; 0d06 21 fc
OI $08 ; 0d08 22 08
LR (IS),A ; 0d0a 5c
A0d0b: LR A,(IS)- ; 0d0b 4e
PI $011e ; 0d0c 28 01 1e
PK ; 0d0f 0c
A0d10: SL 4 ; 0d10 15
OUTS 5 ; 0d11 b5
LIS $8 ; 0d12 78
LR $5,A ; 0d13 55
PI $008f ; 0d14 28 00 8f
LIS $0 ; 0d17 70
OUTS 5 ; 0d18 b5
BF $0,A0ca4 ; 0d19 90 8a
A0d1b: LR A,(IS)- ; 0d1b 4e
LISU 3 ; 0d1c 63
NI $02 ; 0d1d 21 02
BF $4,A0d3f ; 0d1f 94 1f
COM ; 0d21 18
ASD (IS) ; 0d22 dc
LR (IS)-,A ; 0d23 5e
BT 4,A0d2f ; 0d24 84 0a
BT 2,A0d2c ; 0d26 82 05
LIS $0 ; 0d28 70
COM ; 0d29 18
ASD (IS) ; 0d2a dc
LR (IS)+,A ; 0d2b 5d
A0d2c: LIS $4 ; 0d2c 74
BF $0,A0d10 ; 0d2d 90 e2
A0d2f: AS (IS)+ ; 0d2f cd
BF $4,A0d2c ; 0d30 94 fb
LISU 2 ; 0d32 62
LR A,(IS)+ ; 0d33 4d
LR A,(IS) ; 0d34 4c
OI $80 ; 0d35 22 80
NI $fc ; 0d37 21 fc
LR (IS)-,A ; 0d39 5e
PI A0e31 ; 0d3a 28 0e 31
BF $0,A0d2c ; 0d3d 90 ee
A0d3f: LI $67 ; 0d3f 20 67
ASD (IS) ; 0d41 dc
LR (IS)-,A ; 0d42 5e
BF $2,A0d49 ; 0d43 92 05
LI $67 ; 0d45 20 67
ASD (IS) ; 0d47 dc
LR (IS),A ; 0d48 5c
A0d49: LIS $8 ; 0d49 78
BF $0,A0d10 ; 0d4a 90 c5
A0d4c: LI $7d ; 0d4c 20 7d
LR $1,A ; 0d4e 51
INC ; 0d4f 1f
LR $4,A ; 0d50 54
LR A,$0 ; 0d51 40
NI $80 ; 0d52 21 80
LR $6,A ; 0d54 56
LR A,$0 ; 0d55 40
SL 1 ; 0d56 13
LR $0,A ; 0d57 50
LIS $0 ; 0d58 70
BF $0,A0d60 ; 0d59 90 06
A0d5b: LIS $5 ; 0d5b 75
LR $1,A ; 0d5c 51
LI $70 ; 0d5d 20 70
LR $4,A ; 0d5f 54
A0d60: LR $5,A ; 0d60 55
LI $40 ; 0d61 20 40
OUTS 0 ; 0d63 b0
A0d64: LR A,$2 ; 0d64 42
COM ; 0d65 18
NI $3f ; 0d66 21 3f
OUTS 5 ; 0d68 b5
LR A,$1 ; 0d69 41
LR $7,A ; 0d6a 57
A0d6b: LR A,$0 ; 0d6b 40
A0d6c: XI $c0 ; 0d6c 23 c0
OUTS 1 ; 0d6e b1
LR A,$7 ; 0d6f 47
COM ; 0d70 18
OUTS 4 ; 0d71 b4
LI $60 ; 0d72 20 60
OUTS 0 ; 0d74 b0
LI $40 ; 0d75 20 40
OUTS 0 ; 0d77 b0
LIS $4 ; 0d78 74
COM ; 0d79 18
A0d7a: INC ; 0d7a 1f
BF $4,A0d7a ; 0d7b 94 fe
LR A,$7 ; 0d7d 47
INC ; 0d7e 1f
LR $7,A ; 0d7f 57
COM ; 0d80 18
INC ; 0d81 1f
AS $4 ; 0d82 c4
BF $1,A0d8d ; 0d83 91 09
BF $4,A0d6b ; 0d85 94 e5
DS $5 ; 0d87 35
BT 1,A0d8d ; 0d88 81 04
LR A,$6 ; 0d8a 46
BF $0,A0d6c ; 0d8b 90 e0
A0d8d: LR A,$2 ; 0d8d 42
INC ; 0d8e 1f
LR $2,A ; 0d8f 52
NI $3f ; 0d90 21 3f
XS $3 ; 0d92 e3
BF $4,A0d64 ; 0d93 94 d0
LIS $0 ; 0d95 70
OUTS 1 ; 0d96 b1
OUTS 4 ; 0d97 b4
OUTS 0 ; 0d98 b0
POP ; 0d99 1c
A0d9a: LR K,P ; 0d9a 08
DCI A0db3 ; 0d9b 2a 0d b3
LR A,$8 ; 0d9e 48
SL 4 ; 0d9f 15
BT 4,A0da4 ; 0da0 84 03
ADC ; 0da2 8e
LM ; 0da3 16
A0da4: LR $3,A ; 0da4 53
LIS $5 ; 0da5 75
LR $4,A ; 0da6 54
LI $30 ; 0da7 20 30
LR $1,A ; 0da9 51
LI $33 ; 0daa 20 33
LR $2,A ; 0dac 52
LIS $0 ; 0dad 70
LR $0,A ; 0dae 50
A0daf: PI $0718 ; 0daf 28 07 18
LIS $6 ; 0db2 76
A0db3: AS $1 ; 0db3 c1
LR $1,A ; 0db4 51
CI $3f ; 0db5 25 3f
BT 1,A0daf ; 0db7 81 f7
DCI $079e ; 0db9 2a 07 9e
A0dbc: PI $0718 ; 0dbc 28 07 18
LIS $0 ; 0dbf 70
OUTS 1 ; 0dc0 b1
OUTS 4 ; 0dc1 b4
PK ; 0dc2 0c
BT 0,A0dbc ; 0dc3 80 f8
INS 8 ; 0dc5 a8
INS 8 ; 0dc6 a8
INS 8 ; 0dc7 a8
INS 8 ; 0dc8 a8
NS $8 ; 0dc9 f8
LI $20 ; 0dca 20 20
LI $f8 ; 0dcc 20 f8
LR A,KU ; 0dce 00
LR A,KU ; 0dcf 00
LR A,KU ; 0dd0 00
LR A,KU ; 0dd1 00
LR A,KU ; 0dd2 00
LR A,$0 ; 0dd3 40
AM ; 0dd4 88
BF $0,-32 ; 0dd5 90 e0
BF $0,A0d60 ; 0dd7 90 88
NS $8 ; 0dd9 f8
AM ; 0dda 88
NS $8 ; 0ddb f8
AM ; 0ddc 88
AM ; 0ddd 88
LR A,KU ; 0dde 00
LR A,KU ; 0ddf 00
LR A,KU ; 0de0 00
LR A,KU ; 0de1 00
LR A,KU ; 0de2 00
LR A,$0 ; 0de3 40
LR A,KU ; 0de4 00
A0de5: LR A,KU ; 0de5 00
LR A,KU ; 0de6 00
LR A,KU ; 0de7 00
LR A,KU ; 0de8 00
NS $8 ; 0de9 f8
BT 0,-32 ; 0dea 80 e0
BT 0,A0de5 ; 0dec 80 f8
LR A,KU ; 0dee 00
LR A,KU ; 0def 00
LR A,KU ; 0df0 00
LR A,KU ; 0df1 00
LR A,KU ; 0df2 00
A0df3: LIS $2 ; 0df3 72
LR $8,A ; 0df4 58
A0df5: LR A,IS ; 0df5 0a
NI $07 ; 0df6 21 07
DS $8 ; 0df8 38
AS $8 ; 0df9 c8
BF $0,A0dfd ; 0dfa 90 02
LR A,$8 ; 0dfc 48
A0dfd: DCI A0e2b ; 0dfd 2a 0e 2b
ADC ; 0e00 8e
LM ; 0e01 16
LR $1,A ; 0e02 51
LIS $4 ; 0e03 74
SL 4 ; 0e04 15
LR $3,A ; 0e05 53
LR K,P ; 0e06 08
LI $33 ; 0e07 20 33
LR $2,A ; 0e09 52
LIS $5 ; 0e0a 75
LR $4,A ; 0e0b 54
LI $c0 ; 0e0c 20 c0
NS $0 ; 0e0e f0
BT 4,A0e12 ; 0e0f 84 02
LR $3,A ; 0e11 53
A0e12: DCI $0767 ; 0e12 2a 07 67
LR A,$0 ; 0e15 40
NI $3f ; 0e16 21 3f
LR $0,A ; 0e18 50
CI $09 ; 0e19 25 09
BT 1,A0e24 ; 0e1b 81 08
CI $0f ; 0e1d 25 0f
BF $1,A0e24 ; 0e1f 91 04
DCI A0ef9 ; 0e21 2a 0e f9
A0e24: PI $0718 ; 0e24 28 07 18
LIS $0 ; 0e27 70
OUTS 1 ; 0e28 b1
OUTS 4 ; 0e29 b4
PK ; 0e2a 0c
A0e2b: SL 1 ; 0e2b 13
LNK ; 0e2c 19
XI $58 ; 0e2d 23 58
LR (IS)-,A ; 0e2f 5e
LR A,(IS)- ; 0e30 4e
A0e31: LR K,P ; 0e31 08
PI $0107 ; 0e32 28 01 07
LIS $f ; 0e35 7f
LR $0,A ; 0e36 50
LIS $0 ; 0e37 70
LR $8,A ; 0e38 58
PI A0df5 ; 0e39 28 0d f5
LIS $1 ; 0e3c 71
LR $8,A ; 0e3d 58
PI A0df5 ; 0e3e 28 0d f5
LIS $2 ; 0e41 72
LR $8,A ; 0e42 58
PI A0df5 ; 0e43 28 0d f5
PI $011e ; 0e46 28 01 1e
PK ; 0e49 0c
A0e4a: LR K,P ; 0e4a 08
PI $0107 ; 0e4b 28 01 07
LI $10 ; 0e4e 20 10
LR QU,A ; 0e50 06
LIS $0 ; 0e51 70
AS (IS) ; 0e52 cc
BT 4,A0e6b ; 0e53 84 17
CI $05 ; 0e55 25 05
BF $1,A0e5b ; 0e57 91 03
LIS $5 ; 0e59 75
LR (IS),A ; 0e5a 5c
A0e5b: LR A,IS ; 0e5b 0a
CI $14 ; 0e5c 25 14
BF $1,A0e65 ; 0e5e 91 06
PI A0e8c ; 0e60 28 0e 8c
BF $0,A0e68 ; 0e63 90 04
A0e65: PI A0e96 ; 0e65 28 0e 96
A0e68: DS (IS) ; 0e68 3c
BF $4,A0e5b ; 0e69 94 f1
A0e6b: LIS $0 ; 0e6b 70
LR (IS)-,A ; 0e6c 5e
LR (IS)+,A ; 0e6d 5d
PI $011e ; 0e6e 28 01 1e
PK ; 0e71 0c
A0e72: LR K,P ; 0e72 08
PI $0107 ; 0e73 28 01 07
LI $34 ; 0e76 20 34
LR $1,A ; 0e78 51
LI $11 ; 0e79 20 11
LR $2,A ; 0e7b 52
PI A0ea2 ; 0e7c 28 0e a2
LI $3a ; 0e7f 20 3a
LR $1,A ; 0e81 51
LI $11 ; 0e82 20 11
LR $2,A ; 0e84 52
PI A0ea2 ; 0e85 28 0e a2
PI $011e ; 0e88 28 01 1e
PK ; 0e8b 0c
A0e8c: DCI A0ef9 ; 0e8c 2a 0e f9
LR A,IS ; 0e8f 0a
NI $01 ; 0e90 21 01
SL 4 ; 0e92 15
ADC ; 0e93 8e
BF $0,A0e9b ; 0e94 90 06
A0e96: DCI $0f19 ; 0e96 2a 0f 19
LISU 2 ; 0e99 62
LISL 7 ; 0e9a 6f
A0e9b: LR A,(IS) ; 0e9b 4c
SL 1 ; 0e9c 13
ADC ; 0e9d 8e
LM ; 0e9e 16
LR $1,A ; 0e9f 51
LM ; 0ea0 16
LR $2,A ; 0ea1 52
A0ea2: LR K,P ; 0ea2 08
LIS $5 ; 0ea3 75
LR $4,A ; 0ea4 54
LR A,QU ; 0ea5 02
SR 1 ; 0ea6 12
SL 4 ; 0ea7 15
LIS $0 ; 0ea8 70
LR $0,A ; 0ea9 50
BT 1,A0eae ; 0eaa 81 03
LIS $c ; 0eac 7c
SL 4 ; 0ead 15
A0eae: LR $3,A ; 0eae 53
DCI $07b7 ; 0eaf 2a 07 b7
PI $0718 ; 0eb2 28 07 18
DS $1 ; 0eb5 31
DS $1 ; 0eb6 31
DCI $07b7 ; 0eb7 2a 07 b7
PI $0718 ; 0eba 28 07 18
LIS $4 ; 0ebd 74
AS $2 ; 0ebe c2
LR $2,A ; 0ebf 52
DCI $07b7 ; 0ec0 2a 07 b7
PI $0718 ; 0ec3 28 07 18
LIS $2 ; 0ec6 72
AS $1 ; 0ec7 c1
LR $1,A ; 0ec8 51
DCI $07b7 ; 0ec9 2a 07 b7
PI $0718 ; 0ecc 28 07 18
DS $1 ; 0ecf 31
DS $2 ; 0ed0 32
DS $2 ; 0ed1 32
LR A,QU ; 0ed2 02
NI $c0 ; 0ed3 21 c0
BF $4,A0ed9 ; 0ed5 94 03
LIS $8 ; 0ed7 78
SL 4 ; 0ed8 15
A0ed9: LR $3,A ; 0ed9 53
LR A,QU ; 0eda 02
NI $0f ; 0edb 21 0f
LR $0,A ; 0edd 50
BT 4,A0ef7 ; 0ede 84 18
DCI A0f44 ; 0ee0 2a 0f 44
PI $0718 ; 0ee3 28 07 18
LR A,$0 ; 0ee6 40
CI $0d ; 0ee7 25 0d
BF $1,A0ef7 ; 0ee9 91 0d
LI $40 ; 0eeb 20 40
A0eed: OUTS 5 ; 0eed b5
LIS $0 ; 0eee 70
LR $5,A ; 0eef 55
A0ef0: INC ; 0ef0 1f
BF $4,A0ef0 ; 0ef1 94 fe
OUTS 5 ; 0ef3 b5
PI $008f ; 0ef4 28 00 8f
A0ef7: LIS $0 ; 0ef7 70
OUTS 1 ; 0ef8 b1
A0ef9: OUTS 4 ; 0ef9 b4
PK ; 0efa 0c
db $5f
LR W,J ; 0efc 1d
LR $8,A ; 0efd 58
LI $51 ; 0efe 20 51
XI $4a ; 0f00 23 4a
CI $43 ; 0f02 25 43
IN $5c ; 0f04 26 5c
OI $55 ; 0f06 22 55
CI $4e ; 0f08 25 4e
PI $141d ; 0f0a 28 14 1d
A0f0d: EI ; 0f0d 1b
LI $22 ; 0f0e 20 22
XI $29 ; 0f10 23 29
CI $30 ; 0f12 25 30
IN $17 ; 0f14 26 17
OI $1e ; 0f16 22 1e
CI $25 ; 0f18 25 25
PI $2a11 ; 0f1a 28 2a 11
DS $3 ; 0f1d 33
LR H,DC ; 0f1e 11
DS (IS) ; 0f1f 3c
LR H,DC ; 0f20 11
LR A,$5 ; 0f21 45
LR H,DC ; 0f22 11
LR A,(IS)- ; 0f23 4e
LR H,DC ; 0f24 11
LR $7,A ; 0f25 57
A0f26: LR H,DC ; 0f26 11
COM ; 0f27 18
LR H,DC ; 0f28 11
NI $11 ; 0f29 21 11
NS $8 ; 0f2b f8
BT 0,-104 ; 0f2c 80 98
AM ; 0f2e 88
NS $8 ; 0f2f f8
AM ; 0f30 88
AM ; 0f31 88
LR $0,A ; 0f32 50
LR $0,A ; 0f33 50
A0f34: LI $f8 ; 0f34 20 f8
AM ; 0f36 88
NS $8 ; 0f37 f8
AM ; 0f38 88
AM ; 0f39 88
AM ; 0f3a 88
AM ; 0f3b 88
AM ; 0f3c 88
AM ; 0f3d 88
NS $8 ; 0f3e f8
LR A,KU ; 0f3f 00
LR A,KU ; 0f40 00
NS $8 ; 0f41 f8
LR A,KU ; 0f42 00
LR A,KU ; 0f43 00
A0f44: LR A,KU ; 0f44 00
LR A,KU ; 0f45 00
LR A,KU ; 0f46 00
LR A,KU ; 0f47 00
LR A,KU ; 0f48 00
LI $50 ; 0f49 20 50
AM ; 0f4b 88
NS $8 ; 0f4c f8
AM ; 0f4d 88
LIS $0 ; 0f4e 70
LR DC,H ; 0f4f 10
LIS $0 ; 0f50 70
LR A,$0 ; 0f51 40
LIS $0 ; 0f52 70
LIS $0 ; 0f53 70
LR DC,H ; 0f54 10
LIS $0 ; 0f55 70
LR DC,H ; 0f56 10
LIS $0 ; 0f57 70
LR $0,A ; 0f58 50
LR $0,A ; 0f59 50
LIS $0 ; 0f5a 70
LR DC,H ; 0f5b 10
LR DC,H ; 0f5c 10
LIS $0 ; 0f5d 70
A0f5e: LR A,$0 ; 0f5e 40
A0f5f: LIS $0 ; 0f5f 70
LR DC,H ; 0f60 10
LIS $0 ; 0f61 70
A0f62: LIS $0 ; 0f62 70
LR A,$0 ; 0f63 40
A0f64: LIS $0 ; 0f64 70
LR $0,A ; 0f65 50
LIS $0 ; 0f66 70
LIS $0 ; 0f67 70
LR DC,H ; 0f68 10
LI $20 ; 0f69 20 20
LI $70 ; 0f6b 20 70
LR $0,A ; 0f6d 50
LIS $0 ; 0f6e 70
LR $0,A ; 0f6f 50
LIS $0 ; 0f70 70
LIS $0 ; 0f71 70
LR $0,A ; 0f72 50
LIS $0 ; 0f73 70
LR DC,H ; 0f74 10
LR DC,H ; 0f75 10
OUTS 8 ; 0f76 b8
INS 8 ; 0f77 a8
INS 8 ; 0f78 a8
INS 8 ; 0f79 a8
OUTS 8 ; 0f7a b8
XS $0 ; 0f7b e0
BF $0,A0f0d ; 0f7c 90 90
BF $0,A0f5f ; 0f7e 90 e0
XS $0 ; 0f80 e0
BF $0,A0f62 ; 0f81 90 e0
BF $0,A0f64 ; 0f83 90 e0
BF $0,A0f26 ; 0f85 90 a0
XS $0 ; 0f87 e0
BF $0,-120 ; 0f88 90 88
AM ; 0f8a 88
LR $0,A ; 0f8b 50
LI $50 ; 0f8c 20 50
AM ; 0f8e 88
LI $20 ; 0f8f 20 20
ASD $8 ; 0f91 d8
LI $20 ; 0f92 20 20
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
DCI $0b71 ; 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
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
A0fdb: 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 $0ad4 ; 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
BF $0,A0fdb ; 0ff9 90 e1
LR $0,A ; 0ffb 50
LI $20 ; 0ffc 20 20
LR KU,A ; 0ffe 04
LI $00 ; 0fff 20 00

</pre>

2024-08-24T21:15:54Z

E5frog:

Port

2024-08-24T18:47:31Z

E5frog:

The VES has four usable 8-bit data ports in the console, port 0 and 1 that are in the 3850 CPU and port 4 and 5 on one of the 3851 Program Storage Units. These I/O:s are hooked to specific functions as shown in the table below. 
When looking at the [[Opcode|opcodes]] we'll see that using the two ports on the CPU requires half the CPU time compared to using Port 4 and 5 on the PSU, this means that you can fetch right hand controller data two cycles faster than from left one which is worth noting if you need to maximize speed.
 
 
== CPU port 0 ==
0 TIME console button 
1 MODE console button 
2 HOLD console button 
3 START console button 
4 ''- not connected -'' 
5 RAM WRT - A pulse here executes a write to Video RAM. 
6 Enable data from controllers, set to 1 while write to Video RAM. 
7 ''- not connected -'' 
 

== CPU port 1 ==
0 Right controller right 
1 Right controller left 
2 Right controller back 
3 Right controller forward 
4 Right controller counter clockwise 
5 Right controller clockwise 
6 Right controller pull 
7 Right controller push 
 

Two bits have a second function, they decide the color of a plotted pixel: 

6 Write Data0, Indicates that valid data is present for both VRAM ODD0 and EVEN0 
7 Write Data1, Indicates that valid data is present for both VRAM ODD1 and EVEN1 

== PSU port 4 ==

Port 4 has double duties and serve left controller 
as well as horizontal video position (X-coordinate). 

0 Left controller right 
1 Left controller left 
2 Left controller back 
3 Left controller forward 
4 Left controller counter clockwise 
5 Left controller clockwise 
6 Left controller pull 
7 Left controller push 

Also:

0 Video Select 
1 Video Horizontal A 
2 Video Horizontal B 
3 Video Horizontal C 
4 Video Horizontal D 
5 Video Horizontal E 
6 Video Horizontal F 
7 

 

== PSU port 5 ==

Port 5 serves the vertical video position (Y-coordinate) and also sound.

0 Video Vertical A 
1 Video Vertical B 
2 Video Vertical C 
3 Video Vertical D 
4 Video Vertical E 
5 Video Vertical F 
6 Tone AN (beep sound) 
7 Tone BN (beep sound) 
 

== Videocart port 32 ==
== Videocart port 33 ==

Used to save data in a 1kx1 2012 RAM in Videocart 18

== Videocart port 36 ==
== Videocart port 37 ==

Used to save data in 1kx1 2102 RAM in Videocart 10

Modding

2023-03-22T20:50:32Z

E5frog:

<H1>System Fairchild composite video modification</H1>
<H2>Working mod schematic</H2>
 
Construction can be used for many other machines as well.
 
[[File:Channel F composite mod schematic.jpg|500px]] 
 
<H2>Example PCB:s</H2>
[[File:Composite mod rendered PCB top.png|400px]][[File:Composite mod rendered PCB bottom.png|400px]] 
[[File:THM mod top.png|300px]][[File:THM mod bot.png|300px]] 
 
Example of PCB:s for either SMD or THM components. 
If you want to have your own PCB made here are Gerber-files for the through hole mount version seen above: 
[[:File:Channel_F_composite_mod_Gerber_files.zip|Composite mod EagleCAD and Gerber-files (.zip 139kB)]]
<pre>
BOM
C1 1µ E2,5-6 Polarized capacitor
C2 10µ E2,5-6
C3 10µ E2,5-6
D1 1N4148 DO35-10 Diode
POT 500 Ohm TRIM_EU-S64Y
Q1 BC548B TO92-EBC NPN Transistor
Q2 BC558B TO92-EBC PNP
Q3 BC548B TO92-EBC NPN
R1 5k6 0207/10 Resistor
R2 3k9 0207/10
R3 270 0207/10
R4 22k 0207/10
R6 1k 0207/10
R7 75 0207/10
R8 100k 0207/10

0.1 inch spaced/style header connection can be used
</pre>
 

<H2>Hookup</H2>
<H3>Fairchild Video Entertainment System / Channel F</H3>
[[File:Channel F composite hookup point.jpg|300px]] [[File:Channel F composite video mod improve signal.jpg|400px]]
 
Connect composite signal to the resistor by the RF box where the black clamp is placed. 
Audio can be picked directly from speaker output using about 150kOhm in series. 
To improve image quality you can desolder RF shield and remove (or just lift one leg) L2 coil and resistors R28, R25 
This will disconnect 5V from RF circuit and also disconnect it from the composite signal 
Use GND and +5V connecting from the electrolytic cap on the 5V regulator output 
 
 
<H3>Channel F II</H3>
[[File:Channel F II composite video modification overview.jpg|439px]] [[File:Channel F II composite mod detail.jpg|300px]] 
5V can be picked directly from the capacitor, here connected with red and blue wires in top right position of the circuitboard. 
One of the locations for composite signal source has been hooked up with a red clamp on a resistor by the LED. 
[[File:Channel F II composite video modification jumper.jpg|434px]] [[File:Channel F II mod Composite points.jpg|420px]]
 
 You can lift the jumper in the green circle to improve video quality. 
Optional composite video hookup points are located there, marked with green dots. 
[[File:Channel F II composite mod audio.jpg|320px]] [[File:Channel F II mod voltage divider.jpg|460px]] 
Audio hookup is found right of the channel switch. Connect a 22kOhm and 100kOhm as a voltage divider from GND ro red dot. 
This will give an audio volume close to the one via the RF-signal. 
Green dots have a low level audio signal, if used instead you may get interference if skipping an inline resistor (R8 in schematic).
 
<H3>SABA Videoplay 2</H3>
[[File:SABA Videoplay 2 composite video mod hookup.jpg|402px]]
[[File:SABA Videoplay 2 composite mod second image.jpg|365px]]
 
In this example 5V and ground is hooked up directly to the 5V regulator, composite signal is taken from capacitor pin (yellow wire). 
The white wire from the speaker is originally connected to the little RF board, connect it to the PCB instead. 
In the image you see audio hooked up with a loose resistor and capacitor instead of using the PCB.

2022-09-26T12:00:10Z

E5frog:

== System Fairchild cartridge pinout ==

{| class="wikitable" style="text-align: center;"
! colspan="2" |[[Image:Cartridge pinout.png]]
|-
|1 GND
|12 ROMC4
|-
|2 GND
|13 PHI
|-
|3 D0
|14 D4
|-
|4 D1
|15 WRITE
|-
|5 /INTREQ
|16 D5
|-
|6 ROMC0
|17 D6
|-
|7 ROMC1
|18 D7
|-
|8 ROMC2
|19 +5V
|-
|9 D2
|20 +5V
|-
|10 ROMC3
|21 Not Connected
|-
|11 D3
|22 +12V
|}

Dx signals are eight bits of data. 
PHI is the clock signal. 
/INTREQ is (hardly ever) used for interrupt. 
WRITE is the signal for writing data. 
ROMCx are control signals that all 38xx chips use to control what to put on the bus etc. 
You can read more about the 32 ROMC-states here on page 20: [https://channelf.se/files/channelf/f3850.pdf F3850 the CPU (.pdf, 1.49MB)] or the [[ROMC|ROMC table]]. 
Usually the cartridges have two 3851 [https://channelf.se/veswiki/index.php?title=F8#3851_PSU PSU:s], later carts may have RAM and/or up to three PSU:s 
and the last released carts seem to use a [https://channelf.se/veswiki/index.php?title=F8#3853_SMI 3853 SMI] chip in combination with a plain ROM chip, 
there are other possibilities though.

== Controller connector pinout ==

On the Fairchild VES/Channel F, Luxor VES, SABA etc with a fixed controller the pinout of a hand controller is this:
(in the order of the internal 18 pole connector)
<pre>
1: black: push down
3: brown: pull up
5: red: clockwise
7: orange: counter-clockwise
9: yellow: forward
11: green: backwards
13: blue: left
15: grey: right
18: white: ground

Skipped numbers are empty in the connector, 16 is plugged.
Colors vs function are very helpful when resoldering wire in the hand controller.
</pre>

<pre>
Channel F II, Grandstand, Nordmende, Luxor 9 pin D-SUB female connector
(called DE9F). Pinout watching the holes on the controller connector:

5 4 3 2 1
9 8 7 6

1: counter-clockwise
2: clockwise
3: pull up
4: push down
5: right
6: forward
7: back
8: left
9: ground
</pre>

== Power pinout ==

<pre>
Luxor Video Entertainment System

9 VAC between pin 1 and 2 on the 4 pin DIN connector
15 VAC between pin 3 and 4 on the DIN connector
Transformer uses a 80mA slow blow (T) fuse.

</pre>

Pinout for the FCM9102 audio/buffer chip (Rolo, AtariAge)
[[File:FCM9102.jpg|200px|thumb|left|alt text]]

2022-06-28T21:24:52Z

E5frog:

The following two images are redrawn from poor quality original scans, they have been 
thoroughly checked and conformity is believed to be 100.0% informationwise. 
... however, should you find any errors, please let me know.

[[File:FVE100_schematic_sheet_1of3.gif|600px|thumb|none|link=https://channelf.se/veswiki/images/3/31/FVE100_schematic_sheet_1of3.gif]][[File:FVE_schematic_sheet_2_of_3.png|600px|thumb|none|link=https://channelf.se/veswiki/images/0/04/FVE_schematic_sheet_2_of_3.png]]
 
 
These are the official service manuals for the two Luxor models, 
the early model has a service tip sheet (for common problems) included.
 
 
{|
|Luxor Service Manual TV Computer Game 1909574 (pdf)
|
|Luxor Service Manual TV Computer Game 1909583 (pdf)
|-
|
[[File:Page1_24c_300dpi_ed.PNG|299px|thumb|none|link=https://channelf.se/veswiki/images/a/a5/Luxor_Service_Manual_1909574.pdf]]
|          
|
[[File:Luxor_Service_Manual_1909583_1_utsida_v%C3%A4nster_mini.png|300px|thumb|none|link=https://channelf.se/veswiki/images/d/dc/Service_Manual%2C_May_1980%2C_type_1909583%2C_66_79583-01%2C_T5E-1_600dpi_unfold.pdf]]
|}

 
SABA Videplay 2 with a schematic similar to Luxor 1909583 above.

[[File:SABA_VideoPlay_2_schematic.jpg|600px|thumb|none|link=https://channelf.se/veswiki/images/8/8d/SABA_VideoPlay_2_schematic.jpg]]

Schematics

2022-06-28T21:18:47Z

E5frog:

The following two images are redrawn from poor quality original scans, they have been 
thoroughly checked and conformity is believed to be 100.0% informationwise. 
... however, should you find any errors, please let me know.

[[File:FVE100_schematic_sheet_1of3.gif|600px|thumb|none|link=https://channelf.se/veswiki/images/3/31/FVE100_schematic_sheet_1of3.gif]][[File:FVE_schematic_sheet_2_of_3.png|600px|thumb|none|link=https://channelf.se/veswiki/images/0/04/FVE_schematic_sheet_2_of_3.png]]
 
 
These are the official service manuals for the two Luxor models, 
the early model has a service tip sheet (for common problems) included.
 
 
{|
|Luxor Service Manual TV Computer Game 1909574 (pdf)
|
|Luxor Service Manual TV Computer Game 1909583 (pdf)
|-
|
[[File:Page1_24c_300dpi_ed.PNG|299px|thumb|none|link=https://channelf.se/veswiki/images/a/a5/Luxor_Service_Manual_1909574.pdf]]
|          
|
[[File:Luxor_Service_Manual_1909583_1_utsida_v%C3%A4nster_mini.png|300px|thumb|none|link=https://channelf.se/veswiki/images/d/dc/Service_Manual%2C_May_1980%2C_type_1909583%2C_66_79583-01%2C_T5E-1_600dpi_unfold.pdf]]
|}

 
SABA Videplay 2 with a schematic similar to Luxor 1909583 above.

[[File:SABA_VideoPlay_2_schematic.jpg|600px|thumb|none|SABA VideoPlay 2 Schematic. [https://channelf.se/veswiki/images/8/8d/SABA_VideoPlay_2_schematic.jpg Click to view full resolution] ]]