mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 22:43:15 -06:00
e18014a8a7
- Credit and thanks to Ladislau Szilagyi. Co-Authored-By: ladislau szilagyi <87603175+laci1953@users.noreply.github.com>
28 lines
538 B
Plaintext
28 lines
538 B
Plaintext
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;
|
|
|