mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-25 17:34:06 +00:00
60 lines
934 B
Plaintext
60 lines
934 B
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
|