Here is a proof of concept for the C64. this is not part of the graphics I will be using. In fact, I have ditched all the graphics that I made for the C64 version. Instead I'm going to make them more like the TI-99/4A. But first I had to make sure I could do exactly that. So here is my code and the graphic plotting for this code.
100 rem copy routine
110 for i=0 to 26: read x: poke 828+i,x: next i
120 data 169,000,160,208,133,095,132,096 : rem LDA #0; LDY #$D0; STA 95, STY 96
130 data 169,000,160,224,133,090,132,091 : rem LDA #0; LDY #$E0; STA 90; STY 91
140 data 169,000,160,064,133,088,132,089 : rem LDA #0; LDY #$40; STA 88; STY 89
150 data 076,191,163 : rem JMP $A3BF
160 rem COPY $D000-$DFFF -> $3000-$3FFF
200 rem CHAR SET ROM INTO RAM
210 poke 56334,peek(56334) and 254 : rem INTERRUPT OFF
220 poke 1,peek(1) and 251 : rem CHAR SET ROM ON
230 sys 828 : rem START COPY
240 poke 1,peek(1) or 4 : rem CHAR SET ROM OFF
250 poke 56334,peek(56334) or 1 : rem INTERRUPT ON
260 poke 53272,peek(53272) and 240 or 12 : rem CHAR SET RAM AT $3000
600 rem rewrite char
610 for a=12504 to 12535: read ze: poke a,ze: poke a+1024,255-ze: next a
700 data 15,16,32,64,255,128,128,136
710 data 136,136,136,136,136,128,128,255
720 data 255,3,5,9,241,17,17,17
730 data 17,17,17,17,18,20,24,240
800 print "[]"
810 print " ^"
16318421 16318421 2426 2426 8 8 12345678 12345678 1 xxxx xxxxxxxx 15, 255 2 x . xx 16, 3 3 x . x x 32, 5 4 x . x x 64, 9 5 xxxxxxxx xxxx x 255, 241 1+16+32+64+128 6 x . x x 128, 17 7 x . x x 128, 17 8 x x x x 136, 17 9 x x x x 136, 17 10x x x x 136, 17 11x x x x 136, 17 12x x x x 136, 17 13x x x x 136, 18 14x x x 128, 20 15x xx 128, 24 16xxxxxxx xxxxx 255, 240 16+32+64+128
No comments:
Post a Comment