seppdroid/Digital-Research-Source-Code
1
0
Fork 0
mirror of https://github.com/SEPPDROID/Digital-Research-Source-Code.git synced 2025-10-26 18:04:07 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Upload

Browse Source 
Digital Research
This commit is contained in:
Sepp J Morris
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
MPM OPERATING SYSTEMS/MPM-86/MPM-86 2.0 SOURCES/11/SUBR2.EXT Normal file
View File

@@ -0,0 +1,60 @@
$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