mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-24 17:04:19 +00:00
60 lines
1.0 KiB
Plaintext
60 lines
1.0 KiB
Plaintext
$nolist
|
||
|
||
/*
|
||
|
||
modified 3/26/81 R. Silberstein
|
||
modified 3/28/81 R. Silberstein
|
||
|
||
*/
|
||
|
||
outtext: procedure (t) external;
|
||
dcl t addr;
|
||
end outtext;
|
||
|
||
FILEABORT: PROCEDURE (FCBADR, TEXTADR) EXTERNAL;
|
||
DECLARE (FCBADR, TEXTADR) ADDRESS;
|
||
END FILEABORT;
|
||
|
||
fill: procedure(ch,n,pt) external;
|
||
dcl (ch,n) byte,pt addr;
|
||
end fill;
|
||
|
||
digit: procedure(ch) byte external;
|
||
dcl ch byte;
|
||
end digit;
|
||
|
||
letter: procedure(ch) byte external;
|
||
dcl ch byte;
|
||
end letter;
|
||
|
||
alphanumeric: proc(ch) byte external;
|
||
dcl ch byte;
|
||
end alphanumeric;
|
||
|
||
asciichar: proc(ch) byte external;
|
||
dcl ch byte;
|
||
end asciichar;
|
||
|
||
upper: procedure(ch) byte external;
|
||
dcl ch byte;
|
||
end upper;
|
||
|
||
equal: procedure(n,s,d) byte external;
|
||
dcl n byte,
|
||
(s,d) addr;
|
||
end equal;
|
||
|
||
hex1out: proc(n,d) external;
|
||
dcl n byte,d addr;
|
||
end hex1out;
|
||
|
||
hex2out: proc(n,d) external;
|
||
dcl n addr,d addr;
|
||
end hex2out;
|
||
|
||
decout: proc(n,d) external;
|
||
dcl n addr,d addr;
|
||
end decout;
|
||
|
||
$list
|
||
|