Source position: tos.pas line 123
procedure setscreen(
laddr: pointer;
paddr: pointer;
rez: SmallInt
);