Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.
Vanilla 1.1.4 jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.
set 14=$8000
set $491=$8000
include "H1:RUNTIME.ACT"
proc CIO=$E456(byte areg, xreg)
proc main()
byte vc=$D640
byte i, r, g, b, memcont=$D65E, membank=$D65F
byte psel=$D645, csel=$D644, cr=$D646, cg=$D647, cb=$D648
byte xdla0=$D641, xdla1=$D642, xdla2=$D643, portb=$D301
byte iocb2cmd=$362
card iocb2buf=$364, iocb2len=$368
byte array xdl=[98 136 239 0 2 0 64 1 17 223]
portb=$FF
vc=2
membank=128
memcont=$48 ;memac-a na $4000, dostęp dla CPU
moveblock($4000, xdl, 10)
xdla0=0 xdla1=0 xdla2=0
vc=3
graphics(0)
close(1) ;just in case
open(1,"D1:EG1.PAL",4,0)
psel=1 csel=0
for i=0 to 255 do
r=inputbd(1) g=inputbd(1) b=inputbd(1)
cr=r cg=g cb=b
od
close(1)
open(1,"D1:EG1.PIC",4,0)
iocb2cmd=7
iocb2buf=$4000
iocb2len=$1000
for i=2 to 18 do
membank=128+i
CIO(0,$20)
od
close(1)
return
set 14=$8000
set $491=$8000
proc CIO=$E4DF(byte areg, xreg)
proc main()
byte vc=$D640
int i byte memcont=$D65E, membank=$D65F
byte psel=$D645, csel=$D644, cr=$D646, cg=$D647, cb=$D648
byte xdla0=$D641, xdla1=$D642, xdla2=$D643, portb=$D301
byte iocb1cmd=850
card iocb1buf=852, iocb1len=856
byte array xdl=[98 136 239 0 2 0 64 1 17 223]
portb=$FF
vc=2
membank=128
memcont=$48
moveblock($4000, xdl, 10)
xdla0=0 xdla1=0 xdla2=0
vc=3
graphics(0)
close(1)
open(1,"H1:EG1.PAL",4,0)
psel=1 csel=0
for i=0 to 255 do
cr=getd(1) cg=getd(1) cb=getd(1)
od
close(1)
open(1,"H1:EG1.PIC",4,0)
iocb1cmd=7
iocb1buf=$4000
iocb1len=$1000
for i=2 to 18 do
membank=128+i
CIO(0,$10)
od
close(1)
return
grelbus:
Nie mogę znaleźć wskazówek czym taką grafikę można przygotować.Od 1 do 26 z 26