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