;; independant compilation a program for the 20
; MIC MODULE modulename,symbolmname
@define DSK:, DSK:, PT:, P20:, PI:
@delete 'A.mac,'A.rel,'A.init
@delete D'A.mac,D'A.rel
@exp
;avoid obnoixous ^Q halts...
@terminal length 0
@get s:TEST-DEC20-cross
@st
off break; %kill obnoxious break loops
off USERMODE ;
InputSymFile!* := "'B.sym"$
OutputSymFile!* := "'B.sym"$
GlobalDataFileName!* := "20-test-global-data.red"$
ON PCMAC, PGWD$ % see macro expansion
!*MAIN := ''NIL;
ModName!*:='''A;
ASMOUT "'A"$
off StandAlone$ % Should emit SYMFNC inits
IN "'A.red"$
off pcmac,pgwd; % Suppress echo before INIT
ASMEnd$
quit$
@reset .
@terminal length 24
@get sys:macro.exe
@st
*'A.rel='A.mac
*D'A.rel=D'A.mac
@reset .