mirror of https://github.com/wwarthen/RomWBW.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
27 lines
538 B
27 lines
538 B
sub FCBPutString(fcb: [FCB], s: [uint8]) is
|
|
loop
|
|
var c := [s];
|
|
if c == 0 then
|
|
break;
|
|
end if;
|
|
FCBPutChar(fcb, c);
|
|
s := @next s;
|
|
end loop;
|
|
end sub;
|
|
|
|
sub FCBGetBlock(fcb: [FCB], buffer: [uint8], length: intptr) is
|
|
while length != 0 loop;
|
|
[buffer] := FCBGetChar(fcb);
|
|
buffer := buffer + 1;
|
|
length := length - 1;
|
|
end loop;
|
|
end sub;
|
|
|
|
sub FCBPutBlock(fcb: [FCB], buffer: [uint8], length: intptr) is
|
|
while length != 0 loop;
|
|
FCBPutChar(fcb, [buffer]);
|
|
buffer := buffer + 1;
|
|
length := length - 1;
|
|
end loop;
|
|
end sub;
|
|
|
|
|