File psl-1983/20-kernel/module.mic artifact 32120b0eec part of check-in 52fc28dabe


;; independant compilation a program for the 20
; MIC MODULE modulename,symbolmname
@define DSK:, DSK:, P20:, PI:
@delete 'a.mac
@delete D'a.mac
;avoid obnoixous ^Q halts...
@terminal length 0
@s:DEC20-cross.exe
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$
@terminal length 24
@macro
*'A.rel='A.mac
*D'A.rel=D'A.mac


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]