date > foodate
ed foodate << 'EOF'
s/.*/	makdate	<&>/
w
q
'EOF'
if $1x = x goto all
if $1 = dd goto dd
if $1 = all goto all
if $1 = link goto link1
: loop

if $1x = x goto link
if $1 = dd goto dd1
if $1 = subr goto subrs
if $1 = syss goto syss
if $1 = lexer goto lexer
if $1 = headr goto header
if $1 = header goto header
echo	bad switch
exit

: subrs
macro -xs:4 lglob sparm macro dstuf atdat subr subrcom early&
echo	assembeling early
goto	sloop
: syss
macro -xs:4 lglob sparm macro syss now gcol fp noroom  sysend &
echo assembling syss
goto 	sloop
: header
(macro -ns sparm headr foodate; mv foodate.obj headr.obj)&
echo assembling header
goto	sloop
: lexer
macro -xs:4 lglob sparm macro prob7 prob8 ctable probend &
echo assembling lexer
goto sloop
: sloop
shift
goto loop

: all
echo about to assemble all
(macro -ns sparm headr foodate; mv foodate.obj headr.obj)&
macro -xs:3 lglob sparm macro  dstuf atdat subr   subrcom early&
macro -xs:3  lglob sparm macro syss gcol now fp noroom  sysend&
macro  -xs:2 lglob sparm macro prob7 prob8 ctable probend&


: link
wait
echo assemblies done:: about to link

: link1
linkr    -ls    sysend headr       probend early
echo link done-- about to rename
mv early.out ../l1100
mv early.map l1100.map
rm -f foodate
echo all done -- ../l1100 and l1100.map produced
exit


: dd
echo debug version to be made!!!
shift
if $1x = x goto dall
if $1 = all goto dall
if $1 = link goto dlink1
goto dloop
: dd1
echo debug version being made
: dloop

if $1x = x goto dlink
if $1 = subr goto dsubrs
if $1 = syss goto dsyss
if $1 = lexer goto dlexer
if $1 = headr goto dheader
if $1 = header goto dheader
echo	bad switch
exit

: dsubrs
macro -xs:4 lglob sparm macro dstuf atdat subr subrcom early&
echo	assembeling early
goto	dsloop
: dsyss
macro -xs:4 lglob sparm macro syss now gcol fp  sysend &
echo assembling syss
goto 	dsloop
: dheader
(macro -ns sparm headr foodate; mv foodate.obj headr.obj)&
echo assembling header
goto	dsloop
: dlexer
macro -xs:4 lglob sparm macro prob7 prob8 ctable probend &
echo assembling lexer
goto dsloop
: dsloop
shift
goto dloop

: dall
echo about to assemble all
(macro -ns sparm headr foodate; mv foodate.obj headr.obj)&
macro -xs:3 lglob sparm macro  dstuf atdat subr   subrcom early&
macro -xs:3  lglob sparm macro syss gcol now fp  sysend&
macro  -xs:2 lglob sparm macro prob7 prob8 ctable probend&


: dlink
wait
echo assemblies done:: about to link

: dlink1
macro filler
linkr -dd     -ls    sysend headr       probend filler  early
echo link done-- about to rename
mv early.out ../l110
mv early.map l110.map
rm foodate
echo all done -- ../l110 and l110.map produced
