mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-26 01:44:21 +00:00
47 lines
1006 B
Plaintext
47 lines
1006 B
Plaintext
$nolist
|
|
|
|
/* D E C L A R A T I O N F O R "C O D E M A C R O" P A R T
|
|
|
|
Extended version of ASM86 */
|
|
|
|
dcl cm$error byte external,
|
|
global$cm$error byte external,
|
|
cm$list$overflow byte external,
|
|
cmpt address external;
|
|
|
|
|
|
/* level 2 in the syntax-tree of codemacro building */
|
|
|
|
/* Procedure to initialize temporary storage and pointers
|
|
conserning the building of codemacro */
|
|
|
|
init$cm$rout: PROC external;
|
|
end$proc init$cm$rout;
|
|
|
|
name$rout: PROC byte external;
|
|
end$proc name$rout;
|
|
|
|
formal$list$rout: PROC external;
|
|
end$proc formal$list$rout;
|
|
|
|
terminate$cm$rout: PROC external;
|
|
end$proc terminate$cm$rout;
|
|
|
|
legal$parameter: PROC(lg,ptr,ptr2) byte external;
|
|
dcl lg byte,
|
|
(ptr,ptr2) address;
|
|
end$proc legal$parameter;
|
|
|
|
legal$seg$reg: PROC byte external;
|
|
end$proc legal$seg$reg;
|
|
|
|
put$b: PROC(b) external;
|
|
dcl b byte;
|
|
end$proc put$b;
|
|
|
|
put$w: PROC(w) external;
|
|
dcl w address;
|
|
end$proc put$w;
|
|
|
|
$list
|