80-Bus News |
January–February 1984, Volume 3, Issue 1 |
|
|
|
Page 15 of 55 |
|
|
|
---|
WRITELN(Called routine is not yet written!"); HALT END; { And now the actual routinel } PROCEDURE pluto(com : byte); VAR i, j : INTEGER; EGIN pwait; {Wait until Pluto is ready.) {Send Pluto command.} OUT (data, CHR (com) ); {Now send parameters, if any.} CASE com OF allocp : BEGIN pwait; sendword(width,height); OUT(data,CHR(n)) END; BEGIN pwait; sendword(arexc,arcyc); sendword(arexe,arcye) END; copy : BEGIN pwait; sendword(width,height); OUT (data, CHR(pfrom) ); sendword(xfrom,yfrom) ; OUT (data, CHR(pto)); sendword(xto,yto) END; copyte : BEGIN pwait; OUT(data,CHR(n)) END; limage : BEGIN pwait; sendword(width,height); FOR i:= 1 TO height DO FOR j : 1 TO width DO OUT(data,CHR(pixels[i,4])) END; limage : BEGIN pwailt; notyet END; liner : BEGIN pwait; sendword(DX,DY) END; liners : BEGIN pwait; senddxdy END; lineto : BEGIN pwait; sendword(Z,Y) END; lsym : BEGIN pwait; OUT(data,CHR(n)); FOR i z= 1 TO height DO FOR jf := 1 TO width BO OUT(data,CMR(pixels[i,4])) END; BEGIN pwait; notyet END; BEGIN pwait; sendword(DX,DY) END; BEGIN pwait; senddxdy END; BEGIN pwait; sendword(Z,Y) END; BEGIN pwait; setdefaults END; BEGIN pwait; sendword(X,Y) END; BEGIN pwait; sendword(DX,DY) END; BEGIN pwait; senddxdy END; BEGIN pwait; sendword(width,height) END; BEGIN pwait; sendword(width,height) END; BEGIN pwait; sendword(width,height) END; BEGIN pwait; sendword(X,Y) END; BEGIN pwait; sendword(DX,DY) END; BEGIN pwait; senddxdy END; BEGIN pwait; notyet END; BEGIN pwait; notyet END; BEGIN pwait; OUT(data,CHR(bcol)) END;
are
a
lsyme mover movers moveto pinit plot plotr plotrs vfi11 rimage rimage rpix rpixr rpixrs reym reyme sbeol
ee pe 68 oe oe ee MH ge ee Oe Oe ae
ee tH ae ee
sccol sedp scsp scwp sfcol efpatr
BEGIN pwait; OUT(data,CHR(ccol)) END; BEGIN pwait; OUT(data,CHR(cdp)) END; BEGIN pwait; OUT(data,CHR(csp)) END; BEGIN pwait; OUT(data,CHR(cwp)) END; BEGIN pwait; OUT(data,CHR(fcol)) END; BEGIN pwait; sendword(width,height); OUT (data,CHR(p)); sendword(%,Y) END; afpats : BEGIN pwait; OUT(data,CHR(p)); OUT(data,CHR(n)) END; : BEGIN pwait; OUT(data,CHR(pat)) END; speol +: BEGIN pwait; OUT(data,CHR(pcol)) END; srsel : BEGIN pwait; OUT(data,CHR(rsel)) END; sstyle : BEGIN pwait; OUT(data,CHR(style)) END;
re ee)
spat
stcol BEGIN pwait; OUT(data,CHR(tcol)) END; swprot : BEGIN pwait; OUT(data,CHR(wprot)) END
END;
{Now get return values if any.}.
CASE com OF allocp ibecol decol dep
BEGIN pwait; p := ORD(INP(data)) END; BEGIN pwait; becol := ORD(INP(data)) END; BEGIN pwait; ccol := ORD(INP(data)) END; BEGIN pwait; X := ORD(INP(data))+256*ORD(INP(data));
Y = ORD(INP(data))+256*0RD(INP(data)) END; BEGIN pwait; cdp := ORD(INP(data)) END; BEGIN pwait; csp := ORD(INP(data)) END; BEGIN pwait; cwp := ORD(INP(data)) END; BEGIN pwait; fcol := ORD(INP(data)) END; BEGIN pwait; pat : ORD(INP(data)) END; BEGIN pwait; pcol := ORDCINP(data)) END; BEGIN pwait; reel i= ORD(INP(data)) END; BEGIN pwait; stat t= ORD(INP(data)) END; BEGIN pwait; style := ORD(INP(data)) END; BEGIN pwait; tcol := ORD(INP(data)) END; BEGIN pwait; wprot t= ORD(INP(data)) END; BEGIN pwait;
FOR i := 1 TO height DO
FOR j := 1 TO width DO
pixels{i,j] := ORD(INP(data)) END; BEGIN pwait; notyet END; BEGIN pwait; c := ORD(INP(data)) END; BEGIN pwait; c := ORD(INP(data)) END; BEGIN pwait; c :* ORD(INP(data)) END; BEGIN pwait;
FOR i := 1 TO height DO
FOR 4 := 1 TO width DO
pixels[{i,j] := ORD(INP(data)) END;
rsyme +: BEGIN pwait; notyet END END
END ; BEGIN {MAIN PROGRAM} {You have to write this part for yourself, of course, but it should be a lot easier nowl} END.
Y i * : . + . :
iedp icsp iewp ifcol ipat ipeol irsel istat istyle itcol iwprot rimage
a 8 88 Fe oe OF we OF te OH OH te
rimage rpix rpixr rplzre rsym
ed
15
This is an OCR’d version of the scanned page and likely contains recognition errors.
|
|
|
Page 15 of 55 |
|
|
|
---|