File psl-1983/3-1/tests/20/program.mic artifact ba18a745a9 part of check-in 255e9d69e6


;; Independent compilation a program for the 20
;; MAIN module and data_segement, do last
; do PROGRAM modulename
;    modulename=symboltablename
@define DSK:, DSK:, PT:, P20:, PV:, 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.EXE
@st
off break;  % avoid obnoxios breaks
InputSymFile!* := "'A.sym"$
OutputSymFile!* := "'A.sym"$
GlobalDataFileName!* := "20-test-global-data.red"$
ON PCMAC, PGWD$     % see macro expansion
  !*MAIN := ''T;
  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
@st
*'A.rel='A.mac
*D'A.rel=D'A.mac

@reset .


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