Rev 104 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 104 | Rev 108 | ||
|---|---|---|---|
| Line 101... | Line 101... | ||
| 101 | 101 | ||
| 102 | .end |
102 | .end |
| 103 | ENDM |
103 | ENDM |
| 104 | 104 | ||
| 105 | 105 | ||
| - | 106 | TSTRM22 MACRO |
|
| - | 107 | ||
| - | 108 | push bc |
|
| - | 109 | push de |
|
| - | 110 | ||
| - | 111 | ld ixl,0 |
|
| - | 112 | .wrloop |
|
| - | 113 | ld a,ixl |
|
| - | 114 | rrca |
|
| - | 115 | out (c),a |
|
| - | 116 | LFSR |
|
| - | 117 | ld (hl),a |
|
| - | 118 | inc ixl |
|
| - | 119 | ld a,ixl |
|
| - | 120 | add a,a |
|
| - | 121 | jr nc,.wrloop |
|
| - | 122 | ||
| - | 123 | ||
| - | 124 | pop de |
|
| - | 125 | pop bc |
|
| - | 126 | ||
| - | 127 | ld ixl,0 |
|
| - | 128 | .rdloop |
|
| - | 129 | ld a,ixl |
|
| - | 130 | rrca |
|
| - | 131 | out (c),a |
|
| - | 132 | LFSR |
|
| - | 133 | cp (hl) |
|
| - | 134 | jr nz,.error |
|
| - | 135 | inc ixl |
|
| - | 136 | ld a,ixl |
|
| - | 137 | add a,a |
|
| - | 138 | jr nc,.rdloop |
|
| - | 139 | jr .end |
|
| - | 140 | ||
| - | 141 | .error |
|
| - | 142 | inc a |
|
| - | 143 | out (LEDCTR),a |
|
| - | 144 | jr .error |
|
| - | 145 | ||
| - | 146 | .end |
|
| - | 147 | ENDM |
|
| - | 148 | ||
| - | 149 | ||
| - | 150 | ||
| 106 | 151 | ||
| 107 | org 0x4000 |
152 | org 0x4000 |
| 108 | ; we are in 3rd 16k page now |
153 | ; we are in 3rd 16k page now |
| 109 | 154 | ||
| 110 | ; norom, no ramro, 24mhz |
155 | ; norom, no ramro, 24mhz |
| Line 124... | Line 169... | ||
| 124 | 169 | ||
| 125 | testloop |
170 | testloop |
| 126 | ld a,(led) |
171 | ld a,(led) |
| 127 | inc a |
172 | inc a |
| 128 | ld (led),a |
173 | ld (led),a |
| 129 | ; rrca |
174 | rrca |
| 130 | ; rrca |
175 | rrca |
| 131 | out (LEDCTR),a |
176 | out (LEDCTR),a |
| 132 | 177 | ||
| 133 | 178 | ||
| 134 | ld h,0xE0 |
179 | ld h,0xE0 |
| 135 | ld c,WIN3 |
180 | ld c,WIN3 |
| Line 178... | Line 223... | ||
| 178 | 223 | ||
| 179 | loop2 |
224 | loop2 |
| 180 | ld a,(led) |
225 | ld a,(led) |
| 181 | inc a |
226 | inc a |
| 182 | ld (led),a |
227 | ld (led),a |
| 183 | ; rrca |
228 | rrca |
| 184 | ; rrca |
229 | rrca |
| 185 | ; rrca |
230 | rrca |
| 186 | out (LEDCTR),a |
231 | out (LEDCTR),a |
| 187 | 232 | ||
| 188 | ld h,0xE0 |
233 | ld h,0xE0 |
| 189 | ld c,WIN3 |
234 | ld c,WIN3 |
| 190 | TSTRAM2 |
235 | TSTRAM2 |
| Line 214... | Line 259... | ||
| 214 | ld c,WIN0 |
259 | ld c,WIN0 |
| 215 | TSTRAM2 |
260 | TSTRAM2 |
| 216 | 261 | ||
| 217 | 262 | ||
| 218 | ld h,0xA0 |
263 | ld h,0xA0 |
| 219 | ld c,MPAG |
264 | ld c,MPAG ;128 values for each port -- only 64 for mpag!!! |
| 220 | TSTRAM2 |
265 | TSTRM22 |
| 221 | 266 | ||
| 222 | ld h,0xE0 |
267 | ld h,0xE0 |
| 223 | ld c,MPAGEX |
268 | ld c,MPAGEX |
| 224 | TSTRAM2 |
269 | TSTRM22 |
| 225 | 270 | ||
| 226 | jp loop2 |
271 | jp loop2 |
| 227 | 272 | ||
| 228 | 273 | ||
| 229 | 274 | ||