Commit edbe9cc

Nick committed on
Revert "Remap flag tables to current flag layout" 
This reverts commit 60443de9caca1b0675be8184bb1a9aa78b3b388c.
commit edbe9cc32c82eb63464cbed0bacaa246ff8641c2 parent a42a5b2
2 changed files +648−58
ModifiedCpu/TABLES.INC +647−53
@@ -18,26 +18,44 @@ Const
18 4, 0, 0, 4, 0, 4, 4, 0, 0, 4, 4, 0, 4, 0, 0, 4); 18 4, 0, 0, 4, 0, 4, 4, 0, 0, 4, 4, 0, 4, 0, 0, 4);
19 19
20 RRA_F:Array[0..255] of Byte=( 20 RRA_F:Array[0..255] of Byte=(
21 $00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00, 21 $00,$01,$00,$01,$00,$01,$00,$01,$00,$01,$00,$01,$00,$01,$00,
22 $10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10, 22 $01,$08,$09,$08,$09,$08,$09,$08,$09,$08,$09,$08,$09,$08,$09,
23 $00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00, 23 $08,$09,$00,$01,$00,$01,$00,$01,$00,$01,$00,$01,$00,$01,$00,
24 $10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10, 24 $01,$00,$01,$08,$09,$08,$09,$08,$09,$08,$09,$08,$09,$08,$09,
25 $00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00, 25 $08,$09,$08,$09,$20,$21,$20,$21,$20,$21,$20,$21,$20,$21,$20,
26 $10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10, 26 $21,$20,$21,$20,$21,$28,$29,$28,$29,$28,$29,$28,$29,$28,$29,
27 $00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00, 27 $28,$29,$28,$29,$28,$29,$20,$21,$20,$21,$20,$21,$20,$21,$20,
28 $10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10, 28 $21,$20,$21,$20,$21,$20,$21,$28,$29,$28,$29,$28,$29,$28,$29,
29 $00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00, 29 $28,$29,$28,$29,$28,$29,$28,$29,$00,$01,$00,$01,$00,$01,$00,
30 $10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10, 30 $01,$00,$01,$00,$01,$00,$01,$00,$01,$08,$09,$08,$09,$08,$09,
31 $00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00, 31 $08,$09,$08,$09,$08,$09,$08,$09,$08,$09,$00,$01,$00,$01,$00,
32 $10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10, 32 $01,$00,$01,$00,$01,$00,$01,$00,$01,$00,$01,$08,$09,$08,$09,
33 $00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00, 33 $08,$09,$08,$09,$08,$09,$08,$09,$08,$09,$08,$09,$20,$21,$20,
34 $10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10, 34 $21,$20,$21,$20,$21,$20,$21,$20,$21,$20,$21,$20,$21,$28,$29,
35 $00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00, 35 $28,$29,$28,$29,$28,$29,$28,$29,$28,$29,$28,$29,$28,$29,$20,
36 $10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10, 36 $21,$20,$21,$20,$21,$20,$21,$20,$21,$20,$21,$20,$21,$20,$21,
37 $00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00, 37 $28,$29,$28,$29,$28,$29,$28,$29,$28,$29,$28,$29,$28,$29,$28,
38 $10); 38 $29);
39 39
40 RLCR_F:Array[0..255] of Byte=($80,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10); 40 RLCR_F:Array[0..255] of Byte=(
41 $44,$00,$00,$04,$08,$0C,$0C,$08,$00,$04,$04,$00,$0C,$08,$08,
42 $0C,$20,$24,$24,$20,$2C,$28,$28,$2C,$24,$20,$20,$24,$28,$2C,
43 $2C,$28,$00,$04,$04,$00,$0C,$08,$08,$0C,$04,$00,$00,$04,$08,
44 $0C,$0C,$08,$24,$20,$20,$24,$28,$2C,$2C,$28,$20,$24,$24,$20,
45 $2C,$28,$28,$2C,$80,$84,$84,$80,$8C,$88,$88,$8C,$84,$80,$80,
46 $84,$88,$8C,$8C,$88,$A4,$A0,$A0,$A4,$A8,$AC,$AC,$A8,$A0,$A4,
47 $A4,$A0,$AC,$A8,$A8,$AC,$84,$80,$80,$84,$88,$8C,$8C,$88,$80,
48 $84,$84,$80,$8C,$88,$88,$8C,$A0,$A4,$A4,$A0,$AC,$A8,$A8,$AC,
49 $A4,$A0,$A0,$A4,$A8,$AC,$AC,$A8,$01,$05,$05,$01,$0D,$09,$09,
50 $0D,$05,$01,$01,$05,$09,$0D,$0D,$09,$25,$21,$21,$25,$29,$2D,
51 $2D,$29,$21,$25,$25,$21,$2D,$29,$29,$2D,$05,$01,$01,$05,$09,
52 $0D,$0D,$09,$01,$05,$05,$01,$0D,$09,$09,$0D,$21,$25,$25,$21,
53 $2D,$29,$29,$2D,$25,$21,$21,$25,$29,$2D,$2D,$29,$85,$81,$81,
54 $85,$89,$8D,$8D,$89,$81,$85,$85,$81,$8D,$89,$89,$8D,$A1,$A5,
55 $A5,$A1,$AD,$A9,$A9,$AD,$A5,$A1,$A1,$A5,$A9,$AD,$AD,$A9,$81,
56 $85,$85,$81,$8D,$89,$89,$8D,$85,$81,$81,$85,$89,$8D,$8D,$89,
57 $A5,$A1,$A1,$A5,$A9,$AD,$AD,$A9,$A1,$A5,$A5,$A1,$AD,$A9,$A9,
58 $AD);
41 59
42 RLCR_A:Array[0..255] of Byte=( 60 RLCR_A:Array[0..255] of Byte=(
43 $00,$02,$04,$06,$08,$0A,$0C,$0E,$10,$12,$14,$16,$18,$1A,$1C, 61 $00,$02,$04,$06,$08,$0A,$0C,$0E,$10,$12,$14,$16,$18,$1A,$1C,
@@ -59,9 +77,45 @@ Const
59 $E1,$E3,$E5,$E7,$E9,$EB,$ED,$EF,$F1,$F3,$F5,$F7,$F9,$FB,$FD, 77 $E1,$E3,$E5,$E7,$E9,$EB,$ED,$EF,$F1,$F3,$F5,$F7,$F9,$FB,$FD,
60 $FF); 78 $FF);
61 79
62 SLA_F:Array[0..255] of Byte=($80,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$90,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10); 80 SLA_F:Array[0..255] of Byte=(
81 $44,$00,$00,$04,$08,$0C,$0C,$08,$00,$04,$04,$00,$0C,$08,$08,
82 $0C,$20,$24,$24,$20,$2C,$28,$28,$2C,$24,$20,$20,$24,$28,$2C,
83 $2C,$28,$00,$04,$04,$00,$0C,$08,$08,$0C,$04,$00,$00,$04,$08,
84 $0C,$0C,$08,$24,$20,$20,$24,$28,$2C,$2C,$28,$20,$24,$24,$20,
85 $2C,$28,$28,$2C,$80,$84,$84,$80,$8C,$88,$88,$8C,$84,$80,$80,
86 $84,$88,$8C,$8C,$88,$A4,$A0,$A0,$A4,$A8,$AC,$AC,$A8,$A0,$A4,
87 $A4,$A0,$AC,$A8,$A8,$AC,$84,$80,$80,$84,$88,$8C,$8C,$88,$80,
88 $84,$84,$80,$8C,$88,$88,$8C,$A0,$A4,$A4,$A0,$AC,$A8,$A8,$AC,
89 $A4,$A0,$A0,$A4,$A8,$AC,$AC,$A8,$45,$01,$01,$05,$09,$0D,$0D,
90 $09,$01,$05,$05,$01,$0D,$09,$09,$0D,$21,$25,$25,$21,$2D,$29,
91 $29,$2D,$25,$21,$21,$25,$29,$2D,$2D,$29,$01,$05,$05,$01,$0D,
92 $09,$09,$0D,$05,$01,$01,$05,$09,$0D,$0D,$09,$25,$21,$21,$25,
93 $29,$2D,$2D,$29,$21,$25,$25,$21,$2D,$29,$29,$2D,$81,$85,$85,
94 $81,$8D,$89,$89,$8D,$85,$81,$81,$85,$89,$8D,$8D,$89,$A5,$A1,
95 $A1,$A5,$A9,$AD,$AD,$A9,$A1,$A5,$A5,$A1,$AD,$A9,$A9,$AD,$85,
96 $81,$81,$85,$89,$8D,$8D,$89,$81,$85,$85,$81,$8D,$89,$89,$8D,
97 $A1,$A5,$A5,$A1,$AD,$A9,$A9,$AD,$A5,$A1,$A1,$A5,$A9,$AD,$AD,
98 $A9);
63 99
64 SRA_F:Array[0..255] of Byte=($80,$90,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10); 100 SRA_F:Array[0..255] of Byte=(
101 $44,$45,$00,$01,$00,$01,$04,$05,$00,$01,$04,$05,$04,$05,$00,
102 $01,$08,$09,$0C,$0D,$0C,$0D,$08,$09,$0C,$0D,$08,$09,$08,$09,
103 $0C,$0D,$00,$01,$04,$05,$04,$05,$00,$01,$04,$05,$00,$01,$00,
104 $01,$04,$05,$0C,$0D,$08,$09,$08,$09,$0C,$0D,$08,$09,$0C,$0D,
105 $0C,$0D,$08,$09,$20,$21,$24,$25,$24,$25,$20,$21,$24,$25,$20,
106 $21,$20,$21,$24,$25,$2C,$2D,$28,$29,$28,$29,$2C,$2D,$28,$29,
107 $2C,$2D,$2C,$2D,$28,$29,$24,$25,$20,$21,$20,$21,$24,$25,$20,
108 $21,$24,$25,$24,$25,$20,$21,$28,$29,$2C,$2D,$2C,$2D,$28,$29,
109 $2C,$2D,$28,$29,$28,$29,$2C,$2D,$84,$85,$80,$81,$80,$81,$84,
110 $85,$80,$81,$84,$85,$84,$85,$80,$81,$88,$89,$8C,$8D,$8C,$8D,
111 $88,$89,$8C,$8D,$88,$89,$88,$89,$8C,$8D,$80,$81,$84,$85,$84,
112 $85,$80,$81,$84,$85,$80,$81,$80,$81,$84,$85,$8C,$8D,$88,$89,
113 $88,$89,$8C,$8D,$88,$89,$8C,$8D,$8C,$8D,$88,$89,$A0,$A1,$A4,
114 $A5,$A4,$A5,$A0,$A1,$A4,$A5,$A0,$A1,$A0,$A1,$A4,$A5,$AC,$AD,
115 $A8,$A9,$A8,$A9,$AC,$AD,$A8,$A9,$AC,$AD,$AC,$AD,$A8,$A9,$A4,
116 $A5,$A0,$A1,$A0,$A1,$A4,$A5,$A0,$A1,$A4,$A5,$A4,$A5,$A0,$A1,
117 $A8,$A9,$AC,$AD,$AC,$AD,$A8,$A9,$AC,$AD,$A8,$A9,$A8,$A9,$AC,
118 $AD);
65 119
66 SRA_A:Array[0..255] of Byte=( 120 SRA_A:Array[0..255] of Byte=(
67 $00,$00,$01,$01,$02,$02,$03,$03,$04,$04,$05,$05,$06,$06,$07, 121 $00,$00,$01,$01,$02,$02,$03,$03,$04,$04,$05,$05,$06,$06,$07,
@@ -83,7 +137,25 @@ Const
83 $F8,$F8,$F9,$F9,$FA,$FA,$FB,$FB,$FC,$FC,$FD,$FD,$FE,$FE,$FF, 137 $F8,$F8,$F9,$F9,$FA,$FA,$FB,$FB,$FC,$FC,$FD,$FD,$FE,$FE,$FF,
84 $FF); 138 $FF);
85 139
86 SLL_F:Array[0..255] of Byte=($00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10); 140 SLL_F:Array[0..255] of Byte=(
141 $00,$04,$04,$00,$0C,$08,$08,$0C,$04,$00,$00,$04,$08,$0C,$0C,
142 $08,$24,$20,$20,$24,$28,$2C,$2C,$28,$20,$24,$24,$20,$2C,$28,
143 $28,$2C,$04,$00,$00,$04,$08,$0C,$0C,$08,$00,$04,$04,$00,$0C,
144 $08,$08,$0C,$20,$24,$24,$20,$2C,$28,$28,$2C,$24,$20,$20,$24,
145 $28,$2C,$2C,$28,$84,$80,$80,$84,$88,$8C,$8C,$88,$80,$84,$84,
146 $80,$8C,$88,$88,$8C,$A0,$A4,$A4,$A0,$AC,$A8,$A8,$AC,$A4,$A0,
147 $A0,$A4,$A8,$AC,$AC,$A8,$80,$84,$84,$80,$8C,$88,$88,$8C,$84,
148 $80,$80,$84,$88,$8C,$8C,$88,$A4,$A0,$A0,$A4,$A8,$AC,$AC,$A8,
149 $A0,$A4,$A4,$A0,$AC,$A8,$A8,$AC,$01,$05,$05,$01,$0D,$09,$09,
150 $0D,$05,$01,$01,$05,$09,$0D,$0D,$09,$25,$21,$21,$25,$29,$2D,
151 $2D,$29,$21,$25,$25,$21,$2D,$29,$29,$2D,$05,$01,$01,$05,$09,
152 $0D,$0D,$09,$01,$05,$05,$01,$0D,$09,$09,$0D,$21,$25,$25,$21,
153 $2D,$29,$29,$2D,$25,$21,$21,$25,$29,$2D,$2D,$29,$85,$81,$81,
154 $85,$89,$8D,$8D,$89,$81,$85,$85,$81,$8D,$89,$89,$8D,$A1,$A5,
155 $A5,$A1,$AD,$A9,$A9,$AD,$A5,$A1,$A1,$A5,$A9,$AD,$AD,$A9,$81,
156 $85,$85,$81,$8D,$89,$89,$8D,$85,$81,$81,$85,$89,$8D,$8D,$89,
157 $A5,$A1,$A1,$A5,$A9,$AD,$AD,$A9,$A1,$A5,$A5,$A1,$AD,$A9,$A9,
158 $AD);
87 159
88 SLL_A:Array[0..255] of Byte=( 160 SLL_A:Array[0..255] of Byte=(
89 $01,$03,$05,$07,$09,$0B,$0D,$0F,$11,$13,$15,$17,$19,$1B,$1D, 161 $01,$03,$05,$07,$09,$0B,$0D,$0F,$11,$13,$15,$17,$19,$1B,$1D,
@@ -105,7 +177,25 @@ Const
105 $E1,$E3,$E5,$E7,$E9,$EB,$ED,$EF,$F1,$F3,$F5,$F7,$F9,$FB,$FD, 177 $E1,$E3,$E5,$E7,$E9,$EB,$ED,$EF,$F1,$F3,$F5,$F7,$F9,$FB,$FD,
106 $FF); 178 $FF);
107 179
108 SRL_F:Array[0..255] of Byte=($80,$90,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10); 180 SRL_F:Array[0..255] of Byte=(
181 $44,$45,$00,$01,$00,$01,$04,$05,$00,$01,$04,$05,$04,$05,$00,
182 $01,$08,$09,$0C,$0D,$0C,$0D,$08,$09,$0C,$0D,$08,$09,$08,$09,
183 $0C,$0D,$00,$01,$04,$05,$04,$05,$00,$01,$04,$05,$00,$01,$00,
184 $01,$04,$05,$0C,$0D,$08,$09,$08,$09,$0C,$0D,$08,$09,$0C,$0D,
185 $0C,$0D,$08,$09,$20,$21,$24,$25,$24,$25,$20,$21,$24,$25,$20,
186 $21,$20,$21,$24,$25,$2C,$2D,$28,$29,$28,$29,$2C,$2D,$28,$29,
187 $2C,$2D,$2C,$2D,$28,$29,$24,$25,$20,$21,$20,$21,$24,$25,$20,
188 $21,$24,$25,$24,$25,$20,$21,$28,$29,$2C,$2D,$2C,$2D,$28,$29,
189 $2C,$2D,$28,$29,$28,$29,$2C,$2D,$00,$01,$04,$05,$04,$05,$00,
190 $01,$04,$05,$00,$01,$00,$01,$04,$05,$0C,$0D,$08,$09,$08,$09,
191 $0C,$0D,$08,$09,$0C,$0D,$0C,$0D,$08,$09,$04,$05,$00,$01,$00,
192 $01,$04,$05,$00,$01,$04,$05,$04,$05,$00,$01,$08,$09,$0C,$0D,
193 $0C,$0D,$08,$09,$0C,$0D,$08,$09,$08,$09,$0C,$0D,$24,$25,$20,
194 $21,$20,$21,$24,$25,$20,$21,$24,$25,$24,$25,$20,$21,$28,$29,
195 $2C,$2D,$2C,$2D,$28,$29,$2C,$2D,$28,$29,$28,$29,$2C,$2D,$20,
196 $21,$24,$25,$24,$25,$20,$21,$24,$25,$20,$21,$20,$21,$24,$25,
197 $2C,$2D,$28,$29,$28,$29,$2C,$2D,$28,$29,$2C,$2D,$2C,$2D,$28,
198 $29);
109 199
110 SRL_A:Array[0..255] of Byte=( 200 SRL_A:Array[0..255] of Byte=(
111 $00,$00,$01,$01,$02,$02,$03,$03,$04,$04,$05,$05,$06,$06,$07, 201 $00,$00,$01,$01,$02,$02,$03,$03,$04,$04,$05,$05,$06,$06,$07,
@@ -147,7 +237,25 @@ Const
147 $E0,$E2,$E4,$E6,$E8,$EA,$EC,$EE,$F0,$F2,$F4,$F6,$F8,$FA,$FC, 237 $E0,$E2,$E4,$E6,$E8,$EA,$EC,$EE,$F0,$F2,$F4,$F6,$F8,$FA,$FC,
148 $FE); 238 $FE);
149 239
150 RRCR_F:Array[0..255] of Byte=($80,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10); 240 RRCR_F:Array[0..255] of Byte=(
241 $44,$81,$00,$85,$00,$85,$04,$81,$00,$85,$04,$81,$04,$81,$00,
242 $85,$08,$8D,$0C,$89,$0C,$89,$08,$8D,$0C,$89,$08,$8D,$08,$8D,
243 $0C,$89,$00,$85,$04,$81,$04,$81,$00,$85,$04,$81,$00,$85,$00,
244 $85,$04,$81,$0C,$89,$08,$8D,$08,$8D,$0C,$89,$08,$8D,$0C,$89,
245 $0C,$89,$08,$8D,$20,$A5,$24,$A1,$24,$A1,$20,$A5,$24,$A1,$20,
246 $A5,$20,$A5,$24,$A1,$2C,$A9,$28,$AD,$28,$AD,$2C,$A9,$28,$AD,
247 $2C,$A9,$2C,$A9,$28,$AD,$24,$A1,$20,$A5,$20,$A5,$24,$A1,$20,
248 $A5,$24,$A1,$24,$A1,$20,$A5,$28,$AD,$2C,$A9,$2C,$A9,$28,$AD,
249 $2C,$A9,$28,$AD,$28,$AD,$2C,$A9,$00,$85,$04,$81,$04,$81,$00,
250 $85,$04,$81,$00,$85,$00,$85,$04,$81,$0C,$89,$08,$8D,$08,$8D,
251 $0C,$89,$08,$8D,$0C,$89,$0C,$89,$08,$8D,$04,$81,$00,$85,$00,
252 $85,$04,$81,$00,$85,$04,$81,$04,$81,$00,$85,$08,$8D,$0C,$89,
253 $0C,$89,$08,$8D,$0C,$89,$08,$8D,$08,$8D,$0C,$89,$24,$A1,$20,
254 $A5,$20,$A5,$24,$A1,$20,$A5,$24,$A1,$24,$A1,$20,$A5,$28,$AD,
255 $2C,$A9,$2C,$A9,$28,$AD,$2C,$A9,$28,$AD,$28,$AD,$2C,$A9,$20,
256 $A5,$24,$A1,$24,$A1,$20,$A5,$24,$A1,$20,$A5,$20,$A5,$24,$A1,
257 $2C,$A9,$28,$AD,$28,$AD,$2C,$A9,$28,$AD,$2C,$A9,$2C,$A9,$28,
258 $AD);
151 259
152 RRCR_A:Array[0..255] of Byte=( 260 RRCR_A:Array[0..255] of Byte=(
153 $00,$80,$01,$81,$02,$82,$03,$83,$04,$84,$05,$85,$06,$86,$07, 261 $00,$80,$01,$81,$02,$82,$03,$83,$04,$84,$05,$85,$06,$86,$07,
@@ -169,25 +277,205 @@ Const
169 $78,$F8,$79,$F9,$7A,$FA,$7B,$FB,$7C,$FC,$7D,$FD,$7E,$FE,$7F, 277 $78,$F8,$79,$F9,$7A,$FA,$7B,$FB,$7C,$FC,$7D,$FD,$7E,$FE,$7F,
170 $FF); 278 $FF);
171 279
172 INC_F:Array[0..255] of Byte=($00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$a0); 280 INC_F:Array[0..255] of Byte=(
281 $00,$00,$00,$00,$00,$00,$00,$08,$08,$08,$08,$08,$08,$08,$08,
282 $10,$00,$00,$00,$00,$00,$00,$00,$08,$08,$08,$08,$08,$08,$08,
283 $08,$30,$20,$20,$20,$20,$20,$20,$20,$28,$28,$28,$28,$28,$28,
284 $28,$28,$30,$20,$20,$20,$20,$20,$20,$20,$28,$28,$28,$28,$28,
285 $28,$28,$28,$10,$00,$00,$00,$00,$00,$00,$00,$08,$08,$08,$08,
286 $08,$08,$08,$08,$10,$00,$00,$00,$00,$00,$00,$00,$08,$08,$08,
287 $08,$08,$08,$08,$08,$30,$20,$20,$20,$20,$20,$20,$20,$28,$28,
288 $28,$28,$28,$28,$28,$28,$30,$20,$20,$20,$20,$20,$20,$20,$28,
289 $28,$28,$28,$28,$28,$28,$28,$94,$80,$80,$80,$80,$80,$80,$80,
290 $88,$88,$88,$88,$88,$88,$88,$88,$90,$80,$80,$80,$80,$80,$80,
291 $80,$88,$88,$88,$88,$88,$88,$88,$88,$B0,$A0,$A0,$A0,$A0,$A0,
292 $A0,$A0,$A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8,$B0,$A0,$A0,$A0,$A0,
293 $A0,$A0,$A0,$A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8,$90,$80,$80,$80,
294 $80,$80,$80,$80,$88,$88,$88,$88,$88,$88,$88,$88,$90,$80,$80,
295 $80,$80,$80,$80,$80,$88,$88,$88,$88,$88,$88,$88,$88,$B0,$A0,
296 $A0,$A0,$A0,$A0,$A0,$A0,$A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8,$B0,
297 $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8,
298 $50);
173 299
174 DEC_F:Array[0..255] of Byte=($60,$c0,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$60,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$60,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$60,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$60,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$60,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$60,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$60,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$60,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$60,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$60,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$60,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$60,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$60,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$60,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$60,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40); 300 DEC_F:Array[0..255] of Byte=(
301 $BA,$42,$02,$02,$02,$02,$02,$02,$02,$0A,$0A,$0A,$0A,$0A,$0A,
302 $0A,$1A,$02,$02,$02,$02,$02,$02,$02,$02,$0A,$0A,$0A,$0A,$0A,
303 $0A,$0A,$1A,$22,$22,$22,$22,$22,$22,$22,$22,$2A,$2A,$2A,$2A,
304 $2A,$2A,$2A,$3A,$22,$22,$22,$22,$22,$22,$22,$22,$2A,$2A,$2A,
305 $2A,$2A,$2A,$2A,$3A,$02,$02,$02,$02,$02,$02,$02,$02,$0A,$0A,
306 $0A,$0A,$0A,$0A,$0A,$1A,$02,$02,$02,$02,$02,$02,$02,$02,$0A,
307 $0A,$0A,$0A,$0A,$0A,$0A,$1A,$22,$22,$22,$22,$22,$22,$22,$22,
308 $2A,$2A,$2A,$2A,$2A,$2A,$2A,$3A,$22,$22,$22,$22,$22,$22,$22,
309 $22,$2A,$2A,$2A,$2A,$2A,$2A,$2A,$3E,$82,$82,$82,$82,$82,$82,
310 $82,$82,$8A,$8A,$8A,$8A,$8A,$8A,$8A,$9A,$82,$82,$82,$82,$82,
311 $82,$82,$82,$8A,$8A,$8A,$8A,$8A,$8A,$8A,$9A,$A2,$A2,$A2,$A2,
312 $A2,$A2,$A2,$A2,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$BA,$A2,$A2,$A2,
313 $A2,$A2,$A2,$A2,$A2,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$BA,$82,$82,
314 $82,$82,$82,$82,$82,$82,$8A,$8A,$8A,$8A,$8A,$8A,$8A,$9A,$82,
315 $82,$82,$82,$82,$82,$82,$82,$8A,$8A,$8A,$8A,$8A,$8A,$8A,$9A,
316 $A2,$A2,$A2,$A2,$A2,$A2,$A2,$A2,$AA,$AA,$AA,$AA,$AA,$AA,$AA,
317 $BA,$A2,$A2,$A2,$A2,$A2,$A2,$A2,$A2,$AA,$AA,$AA,$AA,$AA,$AA,
318 $AA);
175 319
176 BIT_F0:Array[0..255] of Byte=($a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20,$a0,$20); 320 BIT_F0:Array[0..255] of Byte=(
321 $54,$10,$54,$10,$54,$10,$54,$10,$5C,$18,$5C,$18,$5C,$18,$5C,
322 $18,$54,$10,$54,$10,$54,$10,$54,$10,$5C,$18,$5C,$18,$5C,$18,
323 $5C,$18,$74,$30,$74,$30,$74,$30,$74,$30,$7C,$38,$7C,$38,$7C,
324 $38,$7C,$38,$74,$30,$74,$30,$74,$30,$74,$30,$7C,$38,$7C,$38,
325 $7C,$38,$7C,$38,$54,$10,$54,$10,$54,$10,$54,$10,$5C,$18,$5C,
326 $18,$5C,$18,$5C,$18,$54,$10,$54,$10,$54,$10,$54,$10,$5C,$18,
327 $5C,$18,$5C,$18,$5C,$18,$74,$30,$74,$30,$74,$30,$74,$30,$7C,
328 $38,$7C,$38,$7C,$38,$7C,$38,$74,$30,$74,$30,$74,$30,$74,$30,
329 $7C,$38,$7C,$38,$7C,$38,$7C,$38,$54,$10,$54,$10,$54,$10,$54,
330 $10,$5C,$18,$5C,$18,$5C,$18,$5C,$18,$54,$10,$54,$10,$54,$10,
331 $54,$10,$5C,$18,$5C,$18,$5C,$18,$5C,$18,$74,$30,$74,$30,$74,
332 $30,$74,$30,$7C,$38,$7C,$38,$7C,$38,$7C,$38,$74,$30,$74,$30,
333 $74,$30,$74,$30,$7C,$38,$7C,$38,$7C,$38,$7C,$38,$54,$10,$54,
334 $10,$54,$10,$54,$10,$5C,$18,$5C,$18,$5C,$18,$5C,$18,$54,$10,
335 $54,$10,$54,$10,$54,$10,$5C,$18,$5C,$18,$5C,$18,$5C,$18,$74,
336 $30,$74,$30,$74,$30,$74,$30,$7C,$38,$7C,$38,$7C,$38,$7C,$38,
337 $74,$30,$74,$30,$74,$30,$74,$30,$7C,$38,$7C,$38,$7C,$38,$7C,
338 $38);
177 339
178 BIT_F1:Array[0..255] of Byte=($a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20,$a0,$a0,$20,$20); 340 BIT_F1:Array[0..255] of Byte=(
341 $54,$54,$10,$10,$54,$54,$10,$10,$5C,$5C,$18,$18,$5C,$5C,$18,
342 $18,$54,$54,$10,$10,$54,$54,$10,$10,$5C,$5C,$18,$18,$5C,$5C,
343 $18,$18,$74,$74,$30,$30,$74,$74,$30,$30,$7C,$7C,$38,$38,$7C,
344 $7C,$38,$38,$74,$74,$30,$30,$74,$74,$30,$30,$7C,$7C,$38,$38,
345 $7C,$7C,$38,$38,$54,$54,$10,$10,$54,$54,$10,$10,$5C,$5C,$18,
346 $18,$5C,$5C,$18,$18,$54,$54,$10,$10,$54,$54,$10,$10,$5C,$5C,
347 $18,$18,$5C,$5C,$18,$18,$74,$74,$30,$30,$74,$74,$30,$30,$7C,
348 $7C,$38,$38,$7C,$7C,$38,$38,$74,$74,$30,$30,$74,$74,$30,$30,
349 $7C,$7C,$38,$38,$7C,$7C,$38,$38,$54,$54,$10,$10,$54,$54,$10,
350 $10,$5C,$5C,$18,$18,$5C,$5C,$18,$18,$54,$54,$10,$10,$54,$54,
351 $10,$10,$5C,$5C,$18,$18,$5C,$5C,$18,$18,$74,$74,$30,$30,$74,
352 $74,$30,$30,$7C,$7C,$38,$38,$7C,$7C,$38,$38,$74,$74,$30,$30,
353 $74,$74,$30,$30,$7C,$7C,$38,$38,$7C,$7C,$38,$38,$54,$54,$10,
354 $10,$54,$54,$10,$10,$5C,$5C,$18,$18,$5C,$5C,$18,$18,$54,$54,
355 $10,$10,$54,$54,$10,$10,$5C,$5C,$18,$18,$5C,$5C,$18,$18,$74,
356 $74,$30,$30,$74,$74,$30,$30,$7C,$7C,$38,$38,$7C,$7C,$38,$38,
357 $74,$74,$30,$30,$74,$74,$30,$30,$7C,$7C,$38,$38,$7C,$7C,$38,
358 $38);
179 359
180 BIT_F2:Array[0..255] of Byte=($a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$20,$20,$20,$20); 360 BIT_F2:Array[0..255] of Byte=(
361 $54,$54,$54,$54,$10,$10,$10,$10,$5C,$5C,$5C,$5C,$18,$18,$18,
362 $18,$54,$54,$54,$54,$10,$10,$10,$10,$5C,$5C,$5C,$5C,$18,$18,
363 $18,$18,$74,$74,$74,$74,$30,$30,$30,$30,$7C,$7C,$7C,$7C,$38,
364 $38,$38,$38,$74,$74,$74,$74,$30,$30,$30,$30,$7C,$7C,$7C,$7C,
365 $38,$38,$38,$38,$54,$54,$54,$54,$10,$10,$10,$10,$5C,$5C,$5C,
366 $5C,$18,$18,$18,$18,$54,$54,$54,$54,$10,$10,$10,$10,$5C,$5C,
367 $5C,$5C,$18,$18,$18,$18,$74,$74,$74,$74,$30,$30,$30,$30,$7C,
368 $7C,$7C,$7C,$38,$38,$38,$38,$74,$74,$74,$74,$30,$30,$30,$30,
369 $7C,$7C,$7C,$7C,$38,$38,$38,$38,$54,$54,$54,$54,$10,$10,$10,
370 $10,$5C,$5C,$5C,$5C,$18,$18,$18,$18,$54,$54,$54,$54,$10,$10,
371 $10,$10,$5C,$5C,$5C,$5C,$18,$18,$18,$18,$74,$74,$74,$74,$30,
372 $30,$30,$30,$7C,$7C,$7C,$7C,$38,$38,$38,$38,$74,$74,$74,$74,
373 $30,$30,$30,$30,$7C,$7C,$7C,$7C,$38,$38,$38,$38,$54,$54,$54,
374 $54,$10,$10,$10,$10,$5C,$5C,$5C,$5C,$18,$18,$18,$18,$54,$54,
375 $54,$54,$10,$10,$10,$10,$5C,$5C,$5C,$5C,$18,$18,$18,$18,$74,
376 $74,$74,$74,$30,$30,$30,$30,$7C,$7C,$7C,$7C,$38,$38,$38,$38,
377 $74,$74,$74,$74,$30,$30,$30,$30,$7C,$7C,$7C,$7C,$38,$38,$38,
378 $38);
181 379
182 BIT_F3:Array[0..255] of Byte=($a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20); 380 BIT_F3:Array[0..255] of Byte=(
381 $54,$54,$54,$54,$54,$54,$54,$54,$18,$18,$18,$18,$18,$18,$18,
382 $18,$54,$54,$54,$54,$54,$54,$54,$54,$18,$18,$18,$18,$18,$18,
383 $18,$18,$74,$74,$74,$74,$74,$74,$74,$74,$38,$38,$38,$38,$38,
384 $38,$38,$38,$74,$74,$74,$74,$74,$74,$74,$74,$38,$38,$38,$38,
385 $38,$38,$38,$38,$54,$54,$54,$54,$54,$54,$54,$54,$18,$18,$18,
386 $18,$18,$18,$18,$18,$54,$54,$54,$54,$54,$54,$54,$54,$18,$18,
387 $18,$18,$18,$18,$18,$18,$74,$74,$74,$74,$74,$74,$74,$74,$38,
388 $38,$38,$38,$38,$38,$38,$38,$74,$74,$74,$74,$74,$74,$74,$74,
389 $38,$38,$38,$38,$38,$38,$38,$38,$54,$54,$54,$54,$54,$54,$54,
390 $54,$18,$18,$18,$18,$18,$18,$18,$18,$54,$54,$54,$54,$54,$54,
391 $54,$54,$18,$18,$18,$18,$18,$18,$18,$18,$74,$74,$74,$74,$74,
392 $74,$74,$74,$38,$38,$38,$38,$38,$38,$38,$38,$74,$74,$74,$74,
393 $74,$74,$74,$74,$38,$38,$38,$38,$38,$38,$38,$38,$54,$54,$54,
394 $54,$54,$54,$54,$54,$18,$18,$18,$18,$18,$18,$18,$18,$54,$54,
395 $54,$54,$54,$54,$54,$54,$18,$18,$18,$18,$18,$18,$18,$18,$74,
396 $74,$74,$74,$74,$74,$74,$74,$38,$38,$38,$38,$38,$38,$38,$38,
397 $74,$74,$74,$74,$74,$74,$74,$74,$38,$38,$38,$38,$38,$38,$38,
398 $38);
183 399
184 BIT_F4:Array[0..255] of Byte=($a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20); 400 BIT_F4:Array[0..255] of Byte=(
401 $54,$54,$54,$54,$54,$54,$54,$54,$5C,$5C,$5C,$5C,$5C,$5C,$5C,
402 $5C,$10,$10,$10,$10,$10,$10,$10,$10,$18,$18,$18,$18,$18,$18,
403 $18,$18,$74,$74,$74,$74,$74,$74,$74,$74,$7C,$7C,$7C,$7C,$7C,
404 $7C,$7C,$7C,$30,$30,$30,$30,$30,$30,$30,$30,$38,$38,$38,$38,
405 $38,$38,$38,$38,$54,$54,$54,$54,$54,$54,$54,$54,$5C,$5C,$5C,
406 $5C,$5C,$5C,$5C,$5C,$10,$10,$10,$10,$10,$10,$10,$10,$18,$18,
407 $18,$18,$18,$18,$18,$18,$74,$74,$74,$74,$74,$74,$74,$74,$7C,
408 $7C,$7C,$7C,$7C,$7C,$7C,$7C,$30,$30,$30,$30,$30,$30,$30,$30,
409 $38,$38,$38,$38,$38,$38,$38,$38,$54,$54,$54,$54,$54,$54,$54,
410 $54,$5C,$5C,$5C,$5C,$5C,$5C,$5C,$5C,$10,$10,$10,$10,$10,$10,
411 $10,$10,$18,$18,$18,$18,$18,$18,$18,$18,$74,$74,$74,$74,$74,
412 $74,$74,$74,$7C,$7C,$7C,$7C,$7C,$7C,$7C,$7C,$30,$30,$30,$30,
413 $30,$30,$30,$30,$38,$38,$38,$38,$38,$38,$38,$38,$54,$54,$54,
414 $54,$54,$54,$54,$54,$5C,$5C,$5C,$5C,$5C,$5C,$5C,$5C,$10,$10,
415 $10,$10,$10,$10,$10,$10,$18,$18,$18,$18,$18,$18,$18,$18,$74,
416 $74,$74,$74,$74,$74,$74,$74,$7C,$7C,$7C,$7C,$7C,$7C,$7C,$7C,
417 $30,$30,$30,$30,$30,$30,$30,$30,$38,$38,$38,$38,$38,$38,$38,
418 $38);
185 419
186 BIT_F5:Array[0..255] of Byte=($a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20); 420 BIT_F5:Array[0..255] of Byte=(
421 $54,$54,$54,$54,$54,$54,$54,$54,$5C,$5C,$5C,$5C,$5C,$5C,$5C,
422 $5C,$54,$54,$54,$54,$54,$54,$54,$54,$5C,$5C,$5C,$5C,$5C,$5C,
423 $5C,$5C,$30,$30,$30,$30,$30,$30,$30,$30,$38,$38,$38,$38,$38,
424 $38,$38,$38,$30,$30,$30,$30,$30,$30,$30,$30,$38,$38,$38,$38,
425 $38,$38,$38,$38,$54,$54,$54,$54,$54,$54,$54,$54,$5C,$5C,$5C,
426 $5C,$5C,$5C,$5C,$5C,$54,$54,$54,$54,$54,$54,$54,$54,$5C,$5C,
427 $5C,$5C,$5C,$5C,$5C,$5C,$30,$30,$30,$30,$30,$30,$30,$30,$38,
428 $38,$38,$38,$38,$38,$38,$38,$30,$30,$30,$30,$30,$30,$30,$30,
429 $38,$38,$38,$38,$38,$38,$38,$38,$54,$54,$54,$54,$54,$54,$54,
430 $54,$5C,$5C,$5C,$5C,$5C,$5C,$5C,$5C,$54,$54,$54,$54,$54,$54,
431 $54,$54,$5C,$5C,$5C,$5C,$5C,$5C,$5C,$5C,$30,$30,$30,$30,$30,
432 $30,$30,$30,$38,$38,$38,$38,$38,$38,$38,$38,$30,$30,$30,$30,
433 $30,$30,$30,$30,$38,$38,$38,$38,$38,$38,$38,$38,$54,$54,$54,
434 $54,$54,$54,$54,$54,$5C,$5C,$5C,$5C,$5C,$5C,$5C,$5C,$54,$54,
435 $54,$54,$54,$54,$54,$54,$5C,$5C,$5C,$5C,$5C,$5C,$5C,$5C,$30,
436 $30,$30,$30,$30,$30,$30,$30,$38,$38,$38,$38,$38,$38,$38,$38,
437 $30,$30,$30,$30,$30,$30,$30,$30,$38,$38,$38,$38,$38,$38,$38,
438 $38);
187 439
188 BIT_F6:Array[0..255] of Byte=($a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20); 440 BIT_F6:Array[0..255] of Byte=(
441 $54,$54,$54,$54,$54,$54,$54,$54,$5C,$5C,$5C,$5C,$5C,$5C,$5C,
442 $5C,$54,$54,$54,$54,$54,$54,$54,$54,$5C,$5C,$5C,$5C,$5C,$5C,
443 $5C,$5C,$74,$74,$74,$74,$74,$74,$74,$74,$7C,$7C,$7C,$7C,$7C,
444 $7C,$7C,$7C,$74,$74,$74,$74,$74,$74,$74,$74,$7C,$7C,$7C,$7C,
445 $7C,$7C,$7C,$7C,$10,$10,$10,$10,$10,$10,$10,$10,$18,$18,$18,
446 $18,$18,$18,$18,$18,$10,$10,$10,$10,$10,$10,$10,$10,$18,$18,
447 $18,$18,$18,$18,$18,$18,$30,$30,$30,$30,$30,$30,$30,$30,$38,
448 $38,$38,$38,$38,$38,$38,$38,$30,$30,$30,$30,$30,$30,$30,$30,
449 $38,$38,$38,$38,$38,$38,$38,$38,$54,$54,$54,$54,$54,$54,$54,
450 $54,$5C,$5C,$5C,$5C,$5C,$5C,$5C,$5C,$54,$54,$54,$54,$54,$54,
451 $54,$54,$5C,$5C,$5C,$5C,$5C,$5C,$5C,$5C,$74,$74,$74,$74,$74,
452 $74,$74,$74,$7C,$7C,$7C,$7C,$7C,$7C,$7C,$7C,$74,$74,$74,$74,
453 $74,$74,$74,$74,$7C,$7C,$7C,$7C,$7C,$7C,$7C,$7C,$10,$10,$10,
454 $10,$10,$10,$10,$10,$18,$18,$18,$18,$18,$18,$18,$18,$10,$10,
455 $10,$10,$10,$10,$10,$10,$18,$18,$18,$18,$18,$18,$18,$18,$30,
456 $30,$30,$30,$30,$30,$30,$30,$38,$38,$38,$38,$38,$38,$38,$38,
457 $30,$30,$30,$30,$30,$30,$30,$30,$38,$38,$38,$38,$38,$38,$38,
458 $38);
189 459
190 BIT_F7:Array[0..255] of Byte=($a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20); 460 BIT_F7:Array[0..255] of Byte=(
461 $54,$54,$54,$54,$54,$54,$54,$54,$5C,$5C,$5C,$5C,$5C,$5C,$5C,
462 $5C,$54,$54,$54,$54,$54,$54,$54,$54,$5C,$5C,$5C,$5C,$5C,$5C,
463 $5C,$5C,$74,$74,$74,$74,$74,$74,$74,$74,$7C,$7C,$7C,$7C,$7C,
464 $7C,$7C,$7C,$74,$74,$74,$74,$74,$74,$74,$74,$7C,$7C,$7C,$7C,
465 $7C,$7C,$7C,$7C,$54,$54,$54,$54,$54,$54,$54,$54,$5C,$5C,$5C,
466 $5C,$5C,$5C,$5C,$5C,$54,$54,$54,$54,$54,$54,$54,$54,$5C,$5C,
467 $5C,$5C,$5C,$5C,$5C,$5C,$74,$74,$74,$74,$74,$74,$74,$74,$7C,
468 $7C,$7C,$7C,$7C,$7C,$7C,$7C,$74,$74,$74,$74,$74,$74,$74,$74,
469 $7C,$7C,$7C,$7C,$7C,$7C,$7C,$7C,$90,$90,$90,$90,$90,$90,$90,
470 $90,$98,$98,$98,$98,$98,$98,$98,$98,$90,$90,$90,$90,$90,$90,
471 $90,$90,$98,$98,$98,$98,$98,$98,$98,$98,$B0,$B0,$B0,$B0,$B0,
472 $B0,$B0,$B0,$B8,$B8,$B8,$B8,$B8,$B8,$B8,$B8,$B0,$B0,$B0,$B0,
473 $B0,$B0,$B0,$B0,$B8,$B8,$B8,$B8,$B8,$B8,$B8,$B8,$90,$90,$90,
474 $90,$90,$90,$90,$90,$98,$98,$98,$98,$98,$98,$98,$98,$90,$90,
475 $90,$90,$90,$90,$90,$90,$98,$98,$98,$98,$98,$98,$98,$98,$B0,
476 $B0,$B0,$B0,$B0,$B0,$B0,$B0,$B8,$B8,$B8,$B8,$B8,$B8,$B8,$B8,
477 $B0,$B0,$B0,$B0,$B0,$B0,$B0,$B0,$B8,$B8,$B8,$B8,$B8,$B8,$B8,
478 $B8);
191 479
192 RRA_A:Array[0..1,0..255] of Byte=( 480 RRA_A:Array[0..1,0..255] of Byte=(
193 ($00,$00,$01,$01,$02,$02,$03,$03,$04,$04,$05,$05,$06,$06,$07, 481 ($00,$00,$01,$01,$02,$02,$03,$03,$04,$04,$05,$05,$06,$06,$07,
@@ -228,8 +516,42 @@ Const
228 $FF)); 516 $FF));
229 517
230 RLCA_F:Array[0..1,0..255] of Byte=( 518 RLCA_F:Array[0..1,0..255] of Byte=(
231 ($00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10), 519 ($00,$00,$00,$00,$08,$08,$08,$08,$00,$00,$00,$00,$08,$08,$08,
232 ($00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10)); 520 $08,$20,$20,$20,$20,$28,$28,$28,$28,$20,$20,$20,$20,$28,$28,
521 $28,$28,$00,$00,$00,$00,$08,$08,$08,$08,$00,$00,$00,$00,$08,
522 $08,$08,$08,$20,$20,$20,$20,$28,$28,$28,$28,$20,$20,$20,$20,
523 $28,$28,$28,$28,$00,$00,$00,$00,$08,$08,$08,$08,$00,$00,$00,
524 $00,$08,$08,$08,$08,$20,$20,$20,$20,$28,$28,$28,$28,$20,$20,
525 $20,$20,$28,$28,$28,$28,$00,$00,$00,$00,$08,$08,$08,$08,$00,
526 $00,$00,$00,$08,$08,$08,$08,$20,$20,$20,$20,$28,$28,$28,$28,
527 $20,$20,$20,$20,$28,$28,$28,$28,$01,$01,$01,$01,$09,$09,$09,
528 $09,$01,$01,$01,$01,$09,$09,$09,$09,$21,$21,$21,$21,$29,$29,
529 $29,$29,$21,$21,$21,$21,$29,$29,$29,$29,$01,$01,$01,$01,$09,
530 $09,$09,$09,$01,$01,$01,$01,$09,$09,$09,$09,$21,$21,$21,$21,
531 $29,$29,$29,$29,$21,$21,$21,$21,$29,$29,$29,$29,$01,$01,$01,
532 $01,$09,$09,$09,$09,$01,$01,$01,$01,$09,$09,$09,$09,$21,$21,
533 $21,$21,$29,$29,$29,$29,$21,$21,$21,$21,$29,$29,$29,$29,$01,
534 $01,$01,$01,$09,$09,$09,$09,$01,$01,$01,$01,$09,$09,$09,$09,
535 $21,$21,$21,$21,$29,$29,$29,$29,$21,$21,$21,$21,$29,$29,$29,
536 $29),
537 ($00,$00,$00,$00,$08,$08,$08,$08,$00,$00,$00,$00,$08,$08,$08,
538 $08,$20,$20,$20,$20,$28,$28,$28,$28,$20,$20,$20,$20,$28,$28,
539 $28,$28,$00,$00,$00,$00,$08,$08,$08,$08,$00,$00,$00,$00,$08,
540 $08,$08,$08,$20,$20,$20,$20,$28,$28,$28,$28,$20,$20,$20,$20,
541 $28,$28,$28,$28,$00,$00,$00,$00,$08,$08,$08,$08,$00,$00,$00,
542 $00,$08,$08,$08,$08,$20,$20,$20,$20,$28,$28,$28,$28,$20,$20,
543 $20,$20,$28,$28,$28,$28,$00,$00,$00,$00,$08,$08,$08,$08,$00,
544 $00,$00,$00,$08,$08,$08,$08,$20,$20,$20,$20,$28,$28,$28,$28,
545 $20,$20,$20,$20,$28,$28,$28,$28,$01,$01,$01,$01,$09,$09,$09,
546 $09,$01,$01,$01,$01,$09,$09,$09,$09,$21,$21,$21,$21,$29,$29,
547 $29,$29,$21,$21,$21,$21,$29,$29,$29,$29,$01,$01,$01,$01,$09,
548 $09,$09,$09,$01,$01,$01,$01,$09,$09,$09,$09,$21,$21,$21,$21,
549 $29,$29,$29,$29,$21,$21,$21,$21,$29,$29,$29,$29,$01,$01,$01,
550 $01,$09,$09,$09,$09,$01,$01,$01,$01,$09,$09,$09,$09,$21,$21,
551 $21,$21,$29,$29,$29,$29,$21,$21,$21,$21,$29,$29,$29,$29,$01,
552 $01,$01,$01,$09,$09,$09,$09,$01,$01,$01,$01,$09,$09,$09,$09,
553 $21,$21,$21,$21,$29,$29,$29,$29,$21,$21,$21,$21,$29,$29,$29,
554 $29));
233 555
234 RLCA_A:Array[0..1,0..255] of Byte=( 556 RLCA_A:Array[0..1,0..255] of Byte=(
235 ($00,$02,$04,$06,$08,$0A,$0C,$0E,$10,$12,$14,$16,$18,$1A,$1C, 557 ($00,$02,$04,$06,$08,$0A,$0C,$0E,$10,$12,$14,$16,$18,$1A,$1C,
@@ -270,8 +592,42 @@ Const
270 $FF)); 592 $FF));
271 593
272 RRCA_F:Array[0..1,0..255] of Byte=( 594 RRCA_F:Array[0..1,0..255] of Byte=(
273 ($00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10), 595 ($00,$01,$00,$01,$00,$01,$00,$01,$00,$01,$00,$01,$00,$01,$00,
274 ($00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10)); 596 $01,$08,$09,$08,$09,$08,$09,$08,$09,$08,$09,$08,$09,$08,$09,
597 $08,$09,$00,$01,$00,$01,$00,$01,$00,$01,$00,$01,$00,$01,$00,
598 $01,$00,$01,$08,$09,$08,$09,$08,$09,$08,$09,$08,$09,$08,$09,
599 $08,$09,$08,$09,$20,$21,$20,$21,$20,$21,$20,$21,$20,$21,$20,
600 $21,$20,$21,$20,$21,$28,$29,$28,$29,$28,$29,$28,$29,$28,$29,
601 $28,$29,$28,$29,$28,$29,$20,$21,$20,$21,$20,$21,$20,$21,$20,
602 $21,$20,$21,$20,$21,$20,$21,$28,$29,$28,$29,$28,$29,$28,$29,
603 $28,$29,$28,$29,$28,$29,$28,$29,$00,$01,$00,$01,$00,$01,$00,
604 $01,$00,$01,$00,$01,$00,$01,$00,$01,$08,$09,$08,$09,$08,$09,
605 $08,$09,$08,$09,$08,$09,$08,$09,$08,$09,$00,$01,$00,$01,$00,
606 $01,$00,$01,$00,$01,$00,$01,$00,$01,$00,$01,$08,$09,$08,$09,
607 $08,$09,$08,$09,$08,$09,$08,$09,$08,$09,$08,$09,$20,$21,$20,
608 $21,$20,$21,$20,$21,$20,$21,$20,$21,$20,$21,$20,$21,$28,$29,
609 $28,$29,$28,$29,$28,$29,$28,$29,$28,$29,$28,$29,$28,$29,$20,
610 $21,$20,$21,$20,$21,$20,$21,$20,$21,$20,$21,$20,$21,$20,$21,
611 $28,$29,$28,$29,$28,$29,$28,$29,$28,$29,$28,$29,$28,$29,$28,
612 $29),
613 ($00,$01,$00,$01,$00,$01,$00,$01,$00,$01,$00,$01,$00,$01,$00,
614 $01,$08,$09,$08,$09,$08,$09,$08,$09,$08,$09,$08,$09,$08,$09,
615 $08,$09,$00,$01,$00,$01,$00,$01,$00,$01,$00,$01,$00,$01,$00,
616 $01,$00,$01,$08,$09,$08,$09,$08,$09,$08,$09,$08,$09,$08,$09,
617 $08,$09,$08,$09,$20,$21,$20,$21,$20,$21,$20,$21,$20,$21,$20,
618 $21,$20,$21,$20,$21,$28,$29,$28,$29,$28,$29,$28,$29,$28,$29,
619 $28,$29,$28,$29,$28,$29,$20,$21,$20,$21,$20,$21,$20,$21,$20,
620 $21,$20,$21,$20,$21,$20,$21,$28,$29,$28,$29,$28,$29,$28,$29,
621 $28,$29,$28,$29,$28,$29,$28,$29,$00,$01,$00,$01,$00,$01,$00,
622 $01,$00,$01,$00,$01,$00,$01,$00,$01,$08,$09,$08,$09,$08,$09,
623 $08,$09,$08,$09,$08,$09,$08,$09,$08,$09,$00,$01,$00,$01,$00,
624 $01,$00,$01,$00,$01,$00,$01,$00,$01,$00,$01,$08,$09,$08,$09,
625 $08,$09,$08,$09,$08,$09,$08,$09,$08,$09,$08,$09,$20,$21,$20,
626 $21,$20,$21,$20,$21,$20,$21,$20,$21,$20,$21,$20,$21,$28,$29,
627 $28,$29,$28,$29,$28,$29,$28,$29,$28,$29,$28,$29,$28,$29,$20,
628 $21,$20,$21,$20,$21,$20,$21,$20,$21,$20,$21,$20,$21,$20,$21,
629 $28,$29,$28,$29,$28,$29,$28,$29,$28,$29,$28,$29,$28,$29,$28,
630 $29));
275 631
276 RRCA_A:Array[0..1,0..255] of Byte=( 632 RRCA_A:Array[0..1,0..255] of Byte=(
277 ($00,$80,$01,$81,$02,$82,$03,$83,$04,$84,$05,$85,$06,$86,$07, 633 ($00,$80,$01,$81,$02,$82,$03,$83,$04,$84,$05,$85,$06,$86,$07,
@@ -312,8 +668,42 @@ Const
312 $FF)); 668 $FF));
313 669
314 RLA_F:Array[0..1,0..255] of Byte=( 670 RLA_F:Array[0..1,0..255] of Byte=(
315 ($00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10), 671 ($00,$00,$00,$00,$08,$08,$08,$08,$00,$00,$00,$00,$08,$08,$08,
316 ($00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10)); 672 $08,$20,$20,$20,$20,$28,$28,$28,$28,$20,$20,$20,$20,$28,$28,
673 $28,$28,$00,$00,$00,$00,$08,$08,$08,$08,$00,$00,$00,$00,$08,
674 $08,$08,$08,$20,$20,$20,$20,$28,$28,$28,$28,$20,$20,$20,$20,
675 $28,$28,$28,$28,$00,$00,$00,$00,$08,$08,$08,$08,$00,$00,$00,
676 $00,$08,$08,$08,$08,$20,$20,$20,$20,$28,$28,$28,$28,$20,$20,
677 $20,$20,$28,$28,$28,$28,$00,$00,$00,$00,$08,$08,$08,$08,$00,
678 $00,$00,$00,$08,$08,$08,$08,$20,$20,$20,$20,$28,$28,$28,$28,
679 $20,$20,$20,$20,$28,$28,$28,$28,$01,$01,$01,$01,$09,$09,$09,
680 $09,$01,$01,$01,$01,$09,$09,$09,$09,$21,$21,$21,$21,$29,$29,
681 $29,$29,$21,$21,$21,$21,$29,$29,$29,$29,$01,$01,$01,$01,$09,
682 $09,$09,$09,$01,$01,$01,$01,$09,$09,$09,$09,$21,$21,$21,$21,
683 $29,$29,$29,$29,$21,$21,$21,$21,$29,$29,$29,$29,$01,$01,$01,
684 $01,$09,$09,$09,$09,$01,$01,$01,$01,$09,$09,$09,$09,$21,$21,
685 $21,$21,$29,$29,$29,$29,$21,$21,$21,$21,$29,$29,$29,$29,$01,
686 $01,$01,$01,$09,$09,$09,$09,$01,$01,$01,$01,$09,$09,$09,$09,
687 $21,$21,$21,$21,$29,$29,$29,$29,$21,$21,$21,$21,$29,$29,$29,
688 $29),
689 ($00,$00,$00,$00,$08,$08,$08,$08,$00,$00,$00,$00,$08,$08,$08,
690 $08,$20,$20,$20,$20,$28,$28,$28,$28,$20,$20,$20,$20,$28,$28,
691 $28,$28,$00,$00,$00,$00,$08,$08,$08,$08,$00,$00,$00,$00,$08,
692 $08,$08,$08,$20,$20,$20,$20,$28,$28,$28,$28,$20,$20,$20,$20,
693 $28,$28,$28,$28,$00,$00,$00,$00,$08,$08,$08,$08,$00,$00,$00,
694 $00,$08,$08,$08,$08,$20,$20,$20,$20,$28,$28,$28,$28,$20,$20,
695 $20,$20,$28,$28,$28,$28,$00,$00,$00,$00,$08,$08,$08,$08,$00,
696 $00,$00,$00,$08,$08,$08,$08,$20,$20,$20,$20,$28,$28,$28,$28,
697 $20,$20,$20,$20,$28,$28,$28,$28,$01,$01,$01,$01,$09,$09,$09,
698 $09,$01,$01,$01,$01,$09,$09,$09,$09,$21,$21,$21,$21,$29,$29,
699 $29,$29,$21,$21,$21,$21,$29,$29,$29,$29,$01,$01,$01,$01,$09,
700 $09,$09,$09,$01,$01,$01,$01,$09,$09,$09,$09,$21,$21,$21,$21,
701 $29,$29,$29,$29,$21,$21,$21,$21,$29,$29,$29,$29,$01,$01,$01,
702 $01,$09,$09,$09,$09,$01,$01,$01,$01,$09,$09,$09,$09,$21,$21,
703 $21,$21,$29,$29,$29,$29,$21,$21,$21,$21,$29,$29,$29,$29,$01,
704 $01,$01,$01,$09,$09,$09,$09,$01,$01,$01,$01,$09,$09,$09,$09,
705 $21,$21,$21,$21,$29,$29,$29,$29,$21,$21,$21,$21,$29,$29,$29,
706 $29));
317 707
318 RLA_A:Array[0..1,0..255] of Byte=( 708 RLA_A:Array[0..1,0..255] of Byte=(
319 ($00,$02,$04,$06,$08,$0A,$0C,$0E,$10,$12,$14,$16,$18,$1A,$1C, 709 ($00,$02,$04,$06,$08,$0A,$0C,$0E,$10,$12,$14,$16,$18,$1A,$1C,
@@ -354,8 +744,42 @@ Const
354 $FF)); 744 $FF));
355 745
356 RLR_F:Array[0..1,0..255] of Byte=( 746 RLR_F:Array[0..1,0..255] of Byte=(
357 ($80,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$90,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10), 747 ($44,$00,$00,$04,$08,$0C,$0C,$08,$00,$04,$04,$00,$0C,$08,$08,
358 ($00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10)); 748 $0C,$20,$24,$24,$20,$2C,$28,$28,$2C,$24,$20,$20,$24,$28,$2C,
749 $2C,$28,$00,$04,$04,$00,$0C,$08,$08,$0C,$04,$00,$00,$04,$08,
750 $0C,$0C,$08,$24,$20,$20,$24,$28,$2C,$2C,$28,$20,$24,$24,$20,
751 $2C,$28,$28,$2C,$80,$84,$84,$80,$8C,$88,$88,$8C,$84,$80,$80,
752 $84,$88,$8C,$8C,$88,$A4,$A0,$A0,$A4,$A8,$AC,$AC,$A8,$A0,$A4,
753 $A4,$A0,$AC,$A8,$A8,$AC,$84,$80,$80,$84,$88,$8C,$8C,$88,$80,
754 $84,$84,$80,$8C,$88,$88,$8C,$A0,$A4,$A4,$A0,$AC,$A8,$A8,$AC,
755 $A4,$A0,$A0,$A4,$A8,$AC,$AC,$A8,$45,$01,$01,$05,$09,$0D,$0D,
756 $09,$01,$05,$05,$01,$0D,$09,$09,$0D,$21,$25,$25,$21,$2D,$29,
757 $29,$2D,$25,$21,$21,$25,$29,$2D,$2D,$29,$01,$05,$05,$01,$0D,
758 $09,$09,$0D,$05,$01,$01,$05,$09,$0D,$0D,$09,$25,$21,$21,$25,
759 $29,$2D,$2D,$29,$21,$25,$25,$21,$2D,$29,$29,$2D,$81,$85,$85,
760 $81,$8D,$89,$89,$8D,$85,$81,$81,$85,$89,$8D,$8D,$89,$A5,$A1,
761 $A1,$A5,$A9,$AD,$AD,$A9,$A1,$A5,$A5,$A1,$AD,$A9,$A9,$AD,$85,
762 $81,$81,$85,$89,$8D,$8D,$89,$81,$85,$85,$81,$8D,$89,$89,$8D,
763 $A1,$A5,$A5,$A1,$AD,$A9,$A9,$AD,$A5,$A1,$A1,$A5,$A9,$AD,$AD,
764 $A9),
765 ($00,$04,$04,$00,$0C,$08,$08,$0C,$04,$00,$00,$04,$08,$0C,$0C,
766 $08,$24,$20,$20,$24,$28,$2C,$2C,$28,$20,$24,$24,$20,$2C,$28,
767 $28,$2C,$04,$00,$00,$04,$08,$0C,$0C,$08,$00,$04,$04,$00,$0C,
768 $08,$08,$0C,$20,$24,$24,$20,$2C,$28,$28,$2C,$24,$20,$20,$24,
769 $28,$2C,$2C,$28,$84,$80,$80,$84,$88,$8C,$8C,$88,$80,$84,$84,
770 $80,$8C,$88,$88,$8C,$A0,$A4,$A4,$A0,$AC,$A8,$A8,$AC,$A4,$A0,
771 $A0,$A4,$A8,$AC,$AC,$A8,$80,$84,$84,$80,$8C,$88,$88,$8C,$84,
772 $80,$80,$84,$88,$8C,$8C,$88,$A4,$A0,$A0,$A4,$A8,$AC,$AC,$A8,
773 $A0,$A4,$A4,$A0,$AC,$A8,$A8,$AC,$01,$05,$05,$01,$0D,$09,$09,
774 $0D,$05,$01,$01,$05,$09,$0D,$0D,$09,$25,$21,$21,$25,$29,$2D,
775 $2D,$29,$21,$25,$25,$21,$2D,$29,$29,$2D,$05,$01,$01,$05,$09,
776 $0D,$0D,$09,$01,$05,$05,$01,$0D,$09,$09,$0D,$21,$25,$25,$21,
777 $2D,$29,$29,$2D,$25,$21,$21,$25,$29,$2D,$2D,$29,$85,$81,$81,
778 $85,$89,$8D,$8D,$89,$81,$85,$85,$81,$8D,$89,$89,$8D,$A1,$A5,
779 $A5,$A1,$AD,$A9,$A9,$AD,$A5,$A1,$A1,$A5,$A9,$AD,$AD,$A9,$81,
780 $85,$85,$81,$8D,$89,$89,$8D,$85,$81,$81,$85,$89,$8D,$8D,$89,
781 $A5,$A1,$A1,$A5,$A9,$AD,$AD,$A9,$A1,$A5,$A5,$A1,$AD,$A9,$A9,
782 $AD));
359 783
360 RLR_A:Array[0..1,0..255] of Byte=( 784 RLR_A:Array[0..1,0..255] of Byte=(
361 ($00,$02,$04,$06,$08,$0A,$0C,$0E,$10,$12,$14,$16,$18,$1A,$1C, 785 ($00,$02,$04,$06,$08,$0A,$0C,$0E,$10,$12,$14,$16,$18,$1A,$1C,
@@ -396,8 +820,42 @@ Const
396 $FF)); 820 $FF));
397 821
398 RRR_F:Array[0..1,0..255] of Byte=( 822 RRR_F:Array[0..1,0..255] of Byte=(
399 ($80,$90,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10), 823 ($44,$45,$00,$01,$00,$01,$04,$05,$00,$01,$04,$05,$04,$05,$00,
400 ($00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10,$00,$10)); 824 $01,$08,$09,$0C,$0D,$0C,$0D,$08,$09,$0C,$0D,$08,$09,$08,$09,
825 $0C,$0D,$00,$01,$04,$05,$04,$05,$00,$01,$04,$05,$00,$01,$00,
826 $01,$04,$05,$0C,$0D,$08,$09,$08,$09,$0C,$0D,$08,$09,$0C,$0D,
827 $0C,$0D,$08,$09,$20,$21,$24,$25,$24,$25,$20,$21,$24,$25,$20,
828 $21,$20,$21,$24,$25,$2C,$2D,$28,$29,$28,$29,$2C,$2D,$28,$29,
829 $2C,$2D,$2C,$2D,$28,$29,$24,$25,$20,$21,$20,$21,$24,$25,$20,
830 $21,$24,$25,$24,$25,$20,$21,$28,$29,$2C,$2D,$2C,$2D,$28,$29,
831 $2C,$2D,$28,$29,$28,$29,$2C,$2D,$00,$01,$04,$05,$04,$05,$00,
832 $01,$04,$05,$00,$01,$00,$01,$04,$05,$0C,$0D,$08,$09,$08,$09,
833 $0C,$0D,$08,$09,$0C,$0D,$0C,$0D,$08,$09,$04,$05,$00,$01,$00,
834 $01,$04,$05,$00,$01,$04,$05,$04,$05,$00,$01,$08,$09,$0C,$0D,
835 $0C,$0D,$08,$09,$0C,$0D,$08,$09,$08,$09,$0C,$0D,$24,$25,$20,
836 $21,$20,$21,$24,$25,$20,$21,$24,$25,$24,$25,$20,$21,$28,$29,
837 $2C,$2D,$2C,$2D,$28,$29,$2C,$2D,$28,$29,$28,$29,$2C,$2D,$20,
838 $21,$24,$25,$24,$25,$20,$21,$24,$25,$20,$21,$20,$21,$24,$25,
839 $2C,$2D,$28,$29,$28,$29,$2C,$2D,$28,$29,$2C,$2D,$2C,$2D,$28,
840 $29),
841 ($80,$81,$84,$85,$84,$85,$80,$81,$84,$85,$80,$81,$80,$81,$84,
842 $85,$8C,$8D,$88,$89,$88,$89,$8C,$8D,$88,$89,$8C,$8D,$8C,$8D,
843 $88,$89,$84,$85,$80,$81,$80,$81,$84,$85,$80,$81,$84,$85,$84,
844 $85,$80,$81,$88,$89,$8C,$8D,$8C,$8D,$88,$89,$8C,$8D,$88,$89,
845 $88,$89,$8C,$8D,$A4,$A5,$A0,$A1,$A0,$A1,$A4,$A5,$A0,$A1,$A4,
846 $A5,$A4,$A5,$A0,$A1,$A8,$A9,$AC,$AD,$AC,$AD,$A8,$A9,$AC,$AD,
847 $A8,$A9,$A8,$A9,$AC,$AD,$A0,$A1,$A4,$A5,$A4,$A5,$A0,$A1,$A4,
848 $A5,$A0,$A1,$A0,$A1,$A4,$A5,$AC,$AD,$A8,$A9,$A8,$A9,$AC,$AD,
849 $A8,$A9,$AC,$AD,$AC,$AD,$A8,$A9,$84,$85,$80,$81,$80,$81,$84,
850 $85,$80,$81,$84,$85,$84,$85,$80,$81,$88,$89,$8C,$8D,$8C,$8D,
851 $88,$89,$8C,$8D,$88,$89,$88,$89,$8C,$8D,$80,$81,$84,$85,$84,
852 $85,$80,$81,$84,$85,$80,$81,$80,$81,$84,$85,$8C,$8D,$88,$89,
853 $88,$89,$8C,$8D,$88,$89,$8C,$8D,$8C,$8D,$88,$89,$A0,$A1,$A4,
854 $A5,$A4,$A5,$A0,$A1,$A4,$A5,$A0,$A1,$A0,$A1,$A4,$A5,$AC,$AD,
855 $A8,$A9,$A8,$A9,$AC,$AD,$A8,$A9,$AC,$AD,$AC,$AD,$A8,$A9,$A4,
856 $A5,$A0,$A1,$A0,$A1,$A4,$A5,$A0,$A1,$A4,$A5,$A4,$A5,$A0,$A1,
857 $A8,$A9,$AC,$AD,$AC,$AD,$A8,$A9,$AC,$AD,$A8,$A9,$A8,$A9,$AC,
858 $AD));
401 859
402 RRR_A:Array[0..1,0..255] of Byte=( 860 RRR_A:Array[0..1,0..255] of Byte=(
403 ($00,$00,$01,$01,$02,$02,$03,$03,$04,$04,$05,$05,$06,$06,$07, 861 ($00,$00,$01,$01,$02,$02,$03,$03,$04,$04,$05,$05,$06,$06,$07,
@@ -438,14 +896,150 @@ Const
438 $FF)); 896 $FF));
439 897
440 DAA_F:Array[0..7,0..255] of Byte=( 898 DAA_F:Array[0..7,0..255] of Byte=(
441 ($80,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$20,$20,$20,$20,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$20,$20,$20,$20,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$20,$20,$20,$20,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$20,$20,$20,$20,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$20,$20,$20,$20,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$20,$20,$20,$20,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$20,$20,$20,$20,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$20,$20,$20,$20,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$20,$20,$20,$20,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$b0,$30,$30,$30,$30,$30,$90,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30), 899 ($44,$00,$00,$04,$00,$04,$04,$00,$08,$0C,$10,$14,$14,$10,$14,
442 ($10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$b0,$30,$30,$30,$30,$30,$90,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30), 900 $10,$00,$04,$04,$00,$04,$00,$00,$04,$0C,$08,$30,$34,$34,$30,
443 ($c0,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50), 901 $34,$30,$20,$24,$24,$20,$24,$20,$20,$24,$2C,$28,$34,$30,$30,
444 ($50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$d0,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50), 902 $34,$30,$34,$24,$20,$20,$24,$20,$24,$24,$20,$28,$2C,$10,$14,
445 ($00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$20,$20,$20,$20,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$20,$20,$20,$20,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$20,$20,$20,$20,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$20,$20,$20,$20,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$20,$20,$20,$20,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$20,$20,$20,$20,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$20,$20,$20,$20,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$20,$20,$20,$20,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$20,$20,$20,$20,$20,$20,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$b0,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30), 903 $14,$10,$14,$10,$00,$04,$04,$00,$04,$00,$00,$04,$0C,$08,$14,
446 ($10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$b0,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$30,$30,$30,$30,$30,$30), 904 $10,$10,$14,$10,$14,$04,$00,$00,$04,$00,$04,$04,$00,$08,$0C,
447 ($60,$60,$60,$60,$60,$60,$c0,$40,$40,$40,$40,$40,$40,$40,$40,$40,$60,$60,$60,$60,$60,$60,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$60,$60,$60,$60,$60,$60,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$60,$60,$60,$60,$60,$60,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$60,$60,$60,$60,$60,$60,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$60,$60,$60,$60,$60,$60,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$60,$60,$60,$60,$60,$60,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$60,$60,$60,$60,$60,$60,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$60,$60,$60,$60,$60,$60,$40,$40,$40,$40,$40,$40,$40,$40,$40,$40,$60,$60,$60,$60,$60,$60,$40,$40,$40,$40,$50,$50,$50,$50,$50,$50,$70,$70,$70,$70,$70,$70,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$70,$70,$70,$70,$70,$70,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$70,$70,$70,$70,$70,$70,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$70,$70,$70,$70,$70,$70,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$70,$70,$70,$70,$70,$70,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$70,$70,$70,$70,$70,$70,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50), 905 $34,$30,$30,$34,$30,$34,$24,$20,$20,$24,$20,$24,$24,$20,$28,
448 ($70,$70,$70,$70,$70,$70,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$70,$70,$70,$70,$70,$70,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$70,$70,$70,$70,$70,$70,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$70,$70,$70,$70,$70,$70,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$70,$70,$70,$70,$70,$70,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$70,$70,$70,$70,$70,$70,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$70,$70,$70,$70,$70,$70,$d0,$50,$50,$50,$50,$50,$50,$50,$50,$50,$70,$70,$70,$70,$70,$70,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$70,$70,$70,$70,$70,$70,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$70,$70,$70,$70,$70,$70,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$70,$70,$70,$70,$70,$70,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$70,$70,$70,$70,$70,$70,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$70,$70,$70,$70,$70,$70,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$70,$70,$70,$70,$70,$70,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$70,$70,$70,$70,$70,$70,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50,$70,$70,$70,$70,$70,$70,$50,$50,$50,$50,$50,$50,$50,$50,$50,$50)); 906 $2C,$30,$34,$34,$30,$34,$30,$20,$24,$24,$20,$24,$20,$20,$24,
907 $2C,$28,$90,$94,$94,$90,$94,$90,$80,$84,$84,$80,$84,$80,$80,
908 $84,$8C,$88,$94,$90,$90,$94,$90,$94,$84,$80,$80,$84,$80,$84,
909 $84,$80,$88,$8C,$55,$11,$11,$15,$11,$15,$45,$01,$01,$05,$01,
910 $05,$05,$01,$09,$0D,$11,$15,$15,$11,$15,$11,$01,$05,$05,$01,
911 $05,$01,$01,$05,$0D,$09,$31,$35,$35,$31,$35,$31,$21,$25,$25,
912 $21,$25,$21,$21,$25,$2D,$29,$35,$31,$31,$35,$31,$35,$25,$21,
913 $21,$25,$21,$25,$25,$21,$29,$2D,$11,$15,$15,$11,$15,$11,$01,
914 $05,$05,$01,$05,$01,$01,$05,$0D,$09,$15,$11,$11,$15,$11,$15,
915 $05,$01,$01,$05,$01,$05,$05,$01,$09,$0D,$35,$31,$31,$35,$31,
916 $35),
917 ($25,$21,$21,$25,$21,$25,$25,$21,$29,$2D,$31,$35,$35,$31,$35,
918 $31,$21,$25,$25,$21,$25,$21,$21,$25,$2D,$29,$91,$95,$95,$91,
919 $95,$91,$81,$85,$85,$81,$85,$81,$81,$85,$8D,$89,$95,$91,$91,
920 $95,$91,$95,$85,$81,$81,$85,$81,$85,$85,$81,$89,$8D,$B5,$B1,
921 $B1,$B5,$B1,$B5,$A5,$A1,$A1,$A5,$A1,$A5,$A5,$A1,$A9,$AD,$B1,
922 $B5,$B5,$B1,$B5,$B1,$A1,$A5,$A5,$A1,$A5,$A1,$A1,$A5,$AD,$A9,
923 $95,$91,$91,$95,$91,$95,$85,$81,$81,$85,$81,$85,$85,$81,$89,
924 $8D,$91,$95,$95,$91,$95,$91,$81,$85,$85,$81,$85,$81,$81,$85,
925 $8D,$89,$B1,$B5,$B5,$B1,$B5,$B1,$A1,$A5,$A5,$A1,$A5,$A1,$A1,
926 $A5,$AD,$A9,$B5,$B1,$B1,$B5,$B1,$B5,$A5,$A1,$A1,$A5,$A1,$A5,
927 $A5,$A1,$A9,$AD,$55,$11,$11,$15,$11,$15,$45,$01,$01,$05,$01,
928 $05,$05,$01,$09,$0D,$11,$15,$15,$11,$15,$11,$01,$05,$05,$01,
929 $05,$01,$01,$05,$0D,$09,$31,$35,$35,$31,$35,$31,$21,$25,$25,
930 $21,$25,$21,$21,$25,$2D,$29,$35,$31,$31,$35,$31,$35,$25,$21,
931 $21,$25,$21,$25,$25,$21,$29,$2D,$11,$15,$15,$11,$15,$11,$01,
932 $05,$05,$01,$05,$01,$01,$05,$0D,$09,$15,$11,$11,$15,$11,$15,
933 $05,$01,$01,$05,$01,$05,$05,$01,$09,$0D,$35,$31,$31,$35,$31,
934 $35),
935 ($46,$02,$02,$06,$02,$06,$06,$02,$0A,$0E,$02,$06,$06,$02,$0A,
936 $0E,$02,$06,$06,$02,$06,$02,$02,$06,$0E,$0A,$06,$02,$02,$06,
937 $0E,$0A,$22,$26,$26,$22,$26,$22,$22,$26,$2E,$2A,$26,$22,$22,
938 $26,$2E,$2A,$26,$22,$22,$26,$22,$26,$26,$22,$2A,$2E,$22,$26,
939 $26,$22,$2A,$2E,$02,$06,$06,$02,$06,$02,$02,$06,$0E,$0A,$06,
940 $02,$02,$06,$0E,$0A,$06,$02,$02,$06,$02,$06,$06,$02,$0A,$0E,
941 $02,$06,$06,$02,$0A,$0E,$26,$22,$22,$26,$22,$26,$26,$22,$2A,
942 $2E,$22,$26,$26,$22,$2A,$2E,$22,$26,$26,$22,$26,$22,$22,$26,
943 $2E,$2A,$26,$22,$22,$26,$2E,$2A,$82,$86,$86,$82,$86,$82,$82,
944 $86,$8E,$8A,$86,$82,$82,$86,$8E,$8A,$86,$82,$82,$86,$82,$86,
945 $86,$82,$8A,$8E,$23,$27,$27,$23,$2B,$2F,$03,$07,$07,$03,$07,
946 $03,$03,$07,$0F,$0B,$07,$03,$03,$07,$0F,$0B,$07,$03,$03,$07,
947 $03,$07,$07,$03,$0B,$0F,$03,$07,$07,$03,$0B,$0F,$27,$23,$23,
948 $27,$23,$27,$27,$23,$2B,$2F,$23,$27,$27,$23,$2B,$2F,$23,$27,
949 $27,$23,$27,$23,$23,$27,$2F,$2B,$27,$23,$23,$27,$2F,$2B,$83,
950 $87,$87,$83,$87,$83,$83,$87,$8F,$8B,$87,$83,$83,$87,$8F,$8B,
951 $87,$83,$83,$87,$83,$87,$87,$83,$8B,$8F,$83,$87,$87,$83,$8B,
952 $8F),
953 ($A7,$A3,$A3,$A7,$A3,$A7,$A7,$A3,$AB,$AF,$A3,$A7,$A7,$A3,$AB,
954 $AF,$A3,$A7,$A7,$A3,$A7,$A3,$A3,$A7,$AF,$AB,$A7,$A3,$A3,$A7,
955 $AF,$AB,$87,$83,$83,$87,$83,$87,$87,$83,$8B,$8F,$83,$87,$87,
956 $83,$8B,$8F,$83,$87,$87,$83,$87,$83,$83,$87,$8F,$8B,$87,$83,
957 $83,$87,$8F,$8B,$A3,$A7,$A7,$A3,$A7,$A3,$A3,$A7,$AF,$AB,$A7,
958 $A3,$A3,$A7,$AF,$AB,$A7,$A3,$A3,$A7,$A3,$A7,$A7,$A3,$AB,$AF,
959 $A3,$A7,$A7,$A3,$AB,$AF,$47,$03,$03,$07,$03,$07,$07,$03,$0B,
960 $0F,$03,$07,$07,$03,$0B,$0F,$03,$07,$07,$03,$07,$03,$03,$07,
961 $0F,$0B,$07,$03,$03,$07,$0F,$0B,$23,$27,$27,$23,$27,$23,$23,
962 $27,$2F,$2B,$27,$23,$23,$27,$2F,$2B,$27,$23,$23,$27,$23,$27,
963 $27,$23,$2B,$2F,$23,$27,$27,$23,$2B,$2F,$03,$07,$07,$03,$07,
964 $03,$03,$07,$0F,$0B,$07,$03,$03,$07,$0F,$0B,$07,$03,$03,$07,
965 $03,$07,$07,$03,$0B,$0F,$03,$07,$07,$03,$0B,$0F,$27,$23,$23,
966 $27,$23,$27,$27,$23,$2B,$2F,$23,$27,$27,$23,$2B,$2F,$23,$27,
967 $27,$23,$27,$23,$23,$27,$2F,$2B,$27,$23,$23,$27,$2F,$2B,$83,
968 $87,$87,$83,$87,$83,$83,$87,$8F,$8B,$87,$83,$83,$87,$8F,$8B,
969 $87,$83,$83,$87,$83,$87,$87,$83,$8B,$8F,$83,$87,$87,$83,$8B,
970 $8F),
971 ($04,$00,$08,$0C,$0C,$08,$0C,$08,$08,$0C,$10,$14,$14,$10,$14,
972 $10,$00,$04,$0C,$08,$08,$0C,$08,$0C,$0C,$08,$30,$34,$34,$30,
973 $34,$30,$20,$24,$2C,$28,$28,$2C,$28,$2C,$2C,$28,$34,$30,$30,
974 $34,$30,$34,$24,$20,$28,$2C,$2C,$28,$2C,$28,$28,$2C,$10,$14,
975 $14,$10,$14,$10,$00,$04,$0C,$08,$08,$0C,$08,$0C,$0C,$08,$14,
976 $10,$10,$14,$10,$14,$04,$00,$08,$0C,$0C,$08,$0C,$08,$08,$0C,
977 $34,$30,$30,$34,$30,$34,$24,$20,$28,$2C,$2C,$28,$2C,$28,$28,
978 $2C,$30,$34,$34,$30,$34,$30,$20,$24,$2C,$28,$28,$2C,$28,$2C,
979 $2C,$28,$90,$94,$94,$90,$94,$90,$80,$84,$8C,$88,$88,$8C,$88,
980 $8C,$8C,$88,$94,$90,$90,$94,$90,$94,$84,$80,$88,$8C,$8C,$88,
981 $8C,$88,$88,$8C,$55,$11,$11,$15,$11,$15,$05,$01,$09,$0D,$0D,
982 $09,$0D,$09,$09,$0D,$11,$15,$15,$11,$15,$11,$01,$05,$0D,$09,
983 $09,$0D,$09,$0D,$0D,$09,$31,$35,$35,$31,$35,$31,$21,$25,$2D,
984 $29,$29,$2D,$29,$2D,$2D,$29,$35,$31,$31,$35,$31,$35,$25,$21,
985 $29,$2D,$2D,$29,$2D,$29,$29,$2D,$11,$15,$15,$11,$15,$11,$01,
986 $05,$0D,$09,$09,$0D,$09,$0D,$0D,$09,$15,$11,$11,$15,$11,$15,
987 $05,$01,$09,$0D,$0D,$09,$0D,$09,$09,$0D,$35,$31,$31,$35,$31,
988 $35),
989 ($25,$21,$29,$2D,$2D,$29,$2D,$29,$29,$2D,$31,$35,$35,$31,$35,
990 $31,$21,$25,$2D,$29,$29,$2D,$29,$2D,$2D,$29,$91,$95,$95,$91,
991 $95,$91,$81,$85,$8D,$89,$89,$8D,$89,$8D,$8D,$89,$95,$91,$91,
992 $95,$91,$95,$85,$81,$89,$8D,$8D,$89,$8D,$89,$89,$8D,$B5,$B1,
993 $B1,$B5,$B1,$B5,$A5,$A1,$A9,$AD,$AD,$A9,$AD,$A9,$A9,$AD,$B1,
994 $B5,$B5,$B1,$B5,$B1,$A1,$A5,$AD,$A9,$A9,$AD,$A9,$AD,$AD,$A9,
995 $95,$91,$91,$95,$91,$95,$85,$81,$89,$8D,$8D,$89,$8D,$89,$89,
996 $8D,$91,$95,$95,$91,$95,$91,$81,$85,$8D,$89,$89,$8D,$89,$8D,
997 $8D,$89,$B1,$B5,$B5,$B1,$B5,$B1,$A1,$A5,$AD,$A9,$A9,$AD,$A9,
998 $AD,$AD,$A9,$B5,$B1,$B1,$B5,$B1,$B5,$A5,$A1,$A9,$AD,$AD,$A9,
999 $AD,$A9,$A9,$AD,$55,$11,$11,$15,$11,$15,$05,$01,$09,$0D,$0D,
1000 $09,$0D,$09,$09,$0D,$11,$15,$15,$11,$15,$11,$01,$05,$0D,$09,
1001 $09,$0D,$09,$0D,$0D,$09,$31,$35,$35,$31,$35,$31,$21,$25,$2D,
1002 $29,$29,$2D,$29,$2D,$2D,$29,$35,$31,$31,$35,$31,$35,$25,$21,
1003 $29,$2D,$2D,$29,$2D,$29,$29,$2D,$11,$15,$15,$11,$15,$11,$01,
1004 $05,$0D,$09,$09,$0D,$09,$0D,$0D,$09,$15,$11,$11,$15,$11,$15,
1005 $05,$01,$09,$0D,$0D,$09,$0D,$09,$09,$0D,$35,$31,$31,$35,$31,
1006 $35),
1007 ($BE,$BA,$BE,$BA,$BA,$BE,$46,$02,$02,$06,$02,$06,$06,$02,$0A,
1008 $0E,$1E,$1A,$1E,$1A,$1A,$1E,$02,$06,$06,$02,$06,$02,$02,$06,
1009 $0E,$0A,$1A,$1E,$1A,$1E,$1E,$1A,$22,$26,$26,$22,$26,$22,$22,
1010 $26,$2E,$2A,$3A,$3E,$3A,$3E,$3E,$3A,$26,$22,$22,$26,$22,$26,
1011 $26,$22,$2A,$2E,$3E,$3A,$3E,$3A,$3A,$3E,$02,$06,$06,$02,$06,
1012 $02,$02,$06,$0E,$0A,$1A,$1E,$1A,$1E,$1E,$1A,$06,$02,$02,$06,
1013 $02,$06,$06,$02,$0A,$0E,$1E,$1A,$1E,$1A,$1A,$1E,$26,$22,$22,
1014 $26,$22,$26,$26,$22,$2A,$2E,$3E,$3A,$3E,$3A,$3A,$3E,$22,$26,
1015 $26,$22,$26,$22,$22,$26,$2E,$2A,$3A,$3E,$3A,$3E,$3E,$3A,$82,
1016 $86,$86,$82,$86,$82,$82,$86,$8E,$8A,$9A,$9E,$9A,$9E,$9E,$9A,
1017 $86,$82,$82,$86,$23,$27,$27,$23,$2B,$2F,$3F,$3B,$3F,$3B,$3B,
1018 $3F,$03,$07,$07,$03,$07,$03,$03,$07,$0F,$0B,$1B,$1F,$1B,$1F,
1019 $1F,$1B,$07,$03,$03,$07,$03,$07,$07,$03,$0B,$0F,$1F,$1B,$1F,
1020 $1B,$1B,$1F,$27,$23,$23,$27,$23,$27,$27,$23,$2B,$2F,$3F,$3B,
1021 $3F,$3B,$3B,$3F,$23,$27,$27,$23,$27,$23,$23,$27,$2F,$2B,$3B,
1022 $3F,$3B,$3F,$3F,$3B,$83,$87,$87,$83,$87,$83,$83,$87,$8F,$8B,
1023 $9B,$9F,$9B,$9F,$9F,$9B,$87,$83,$83,$87,$83,$87,$87,$83,$8B,
1024 $8F),
1025 ($9F,$9B,$9F,$9B,$9B,$9F,$A7,$A3,$A3,$A7,$A3,$A7,$A7,$A3,$AB,
1026 $AF,$BF,$BB,$BF,$BB,$BB,$BF,$A3,$A7,$A7,$A3,$A7,$A3,$A3,$A7,
1027 $AF,$AB,$BB,$BF,$BB,$BF,$BF,$BB,$87,$83,$83,$87,$83,$87,$87,
1028 $83,$8B,$8F,$9F,$9B,$9F,$9B,$9B,$9F,$83,$87,$87,$83,$87,$83,
1029 $83,$87,$8F,$8B,$9B,$9F,$9B,$9F,$9F,$9B,$A3,$A7,$A7,$A3,$A7,
1030 $A3,$A3,$A7,$AF,$AB,$BB,$BF,$BB,$BF,$BF,$BB,$A7,$A3,$A3,$A7,
1031 $A3,$A7,$A7,$A3,$AB,$AF,$BF,$BB,$BF,$BB,$BB,$BF,$47,$03,$03,
1032 $07,$03,$07,$07,$03,$0B,$0F,$1F,$1B,$1F,$1B,$1B,$1F,$03,$07,
1033 $07,$03,$07,$03,$03,$07,$0F,$0B,$1B,$1F,$1B,$1F,$1F,$1B,$23,
1034 $27,$27,$23,$27,$23,$23,$27,$2F,$2B,$3B,$3F,$3B,$3F,$3F,$3B,
1035 $27,$23,$23,$27,$23,$27,$27,$23,$2B,$2F,$3F,$3B,$3F,$3B,$3B,
1036 $3F,$03,$07,$07,$03,$07,$03,$03,$07,$0F,$0B,$1B,$1F,$1B,$1F,
1037 $1F,$1B,$07,$03,$03,$07,$03,$07,$07,$03,$0B,$0F,$1F,$1B,$1F,
1038 $1B,$1B,$1F,$27,$23,$23,$27,$23,$27,$27,$23,$2B,$2F,$3F,$3B,
1039 $3F,$3B,$3B,$3F,$23,$27,$27,$23,$27,$23,$23,$27,$2F,$2B,$3B,
1040 $3F,$3B,$3F,$3F,$3B,$83,$87,$87,$83,$87,$83,$83,$87,$8F,$8B,
1041 $9B,$9F,$9B,$9F,$9F,$9B,$87,$83,$83,$87,$83,$87,$87,$83,$8B,
1042 $8F));
449 1043
450 DAA_A:Array[0..7,0..255] of Byte=( 1044 DAA_A:Array[0..7,0..255] of Byte=(
451 ($00,$01,$02,$03,$04,$05,$06,$07,$08,$09,$10,$11,$12,$13,$14, 1045 ($00,$01,$02,$03,$04,$05,$06,$07,$08,$09,$10,$11,$12,$13,$14,
ModifiedCpu/z80cpu.pas +1−5
@@ -8,14 +8,10 @@
8 unit Z80CPU; 8 unit Z80CPU;
9 9
10 {$MODE Delphi} 10 {$MODE Delphi}
11 {$ASMMODE Intel}
11 12
12 interface 13 interface
13 14
14 {$define Z_FLAG:=(af.l and %10000000)}
15 {$define N_FLAG:=(af.l and %01000000)}
16 {$define H_FLAG:=(af.l and %00100000)}
17 {$define C_FLAG:=(af.l and %00010000)}
18
19 {$include tables.inc} 15 {$include tables.inc}
20 16
21 var 17 var