Trailing-Edge
-
PDP-10 Archives
-
decuslib10-07
-
43,50433/twoseg.ctl
There are 2 other files named twoseg.ctl in the archive. Click here to see a list.
;Beware!! this file is intended only for use on Tops-10. For Tops-20, see
; pas.run (a RUNFIL file). If you use this on Tops-20, you will
; probably end up with a cross compiler!
;pas should be made to point to wherever the version of the runtimes is
; that you want included in the compiler, probaby DSK: most of the time
.ass dsk pas
.compil pascmp.pas,passcn.mac,paslnk.mac
;load the second segment and the common low segment
.r link
@pas1
osave pascmp
;on old monitors, use SAVE. osave is needed to get .low/.hgh instead of .exe
;load the starting segment - the low segment will be junk
.r link
@pas2
osave pascal
;get the common low segment with the starting program
.copy pascal.low=pascmp.low