| 1234567891011121314151617181920212223242526272829303132 |
- ;; 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 .
|
