mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-25 17:34:06 +00:00
51 lines
1.0 KiB
Plaintext
51 lines
1.0 KiB
Plaintext
$nolist
|
|
|
|
/*
|
|
|
|
modified 7/24/81 R. Silberstein
|
|
|
|
*/
|
|
|
|
dcl freept addr external;
|
|
DCL END$OF$SYMBTAB ADDR EXTERNAL;
|
|
|
|
symbterminate: proc external;
|
|
end symbterminate;
|
|
|
|
symbinit: proc external;
|
|
end symbinit;
|
|
|
|
newsymbol: proc(lg,stradr,result) byte external;
|
|
dcl lg byte,(stradr,result) addr;
|
|
end newsymbol;
|
|
|
|
newmacro: proc(lg,stradr,macdefpt) byte external;
|
|
dcl lg byte,(stradr,macdefpt) addr;
|
|
end newmacro;
|
|
|
|
findsymbol: proc(lg,stradr,result) byte external;
|
|
dcl lg byte,(stradr,result) addr;
|
|
end findsymbol;
|
|
|
|
getattributes: proc(symbadr,dest) external;
|
|
dcl (symbadr,dest) addr;
|
|
end getattributes;
|
|
|
|
enterattributes: proc(symbadr,source) external;
|
|
dcl (symbadr,source) addr;
|
|
end enterattributes;
|
|
|
|
findcodemacro: proc(lg,stradr,result) byte external;
|
|
dcl lg byte,(stradr,result) addr;
|
|
end findcodemacro;
|
|
|
|
new$cm$body: PROC(lg,ptr) byte external;
|
|
dcl lg byte,ptr addr;
|
|
end$proc new$cm$body;
|
|
|
|
new$cm$name: PROC(lg,asciiptr,returnptr) byte external;
|
|
dcl lg byte,(asciiptr,returnptr) addr;
|
|
end$proc new$cm$name;
|
|
|
|
$list
|