Trailing-Edge
-
PDP-10 Archives
-
decuslib10-07
-
43,50433/twoseg.run
There are 2 other files named twoseg.run in the archive. Click here to see a list.
def rel: dsk:
def pas: dsk:
;must be sure to use the tops-10 compiler!
def sys: dsk:,sys:
comp pascmp.pas,passcn.mac,paslnk.mac
;remove unpleasant side effects of above
def sys:
;load the common low segment with second high segment
link
@pasa
;save the second segment
save pascmp
;save the low segment for later use
save paslow 0 377
;load the first high segment - the low segment here is junk
link
@pasb
;get the common low segment
merge paslow
;save the starting program
save pascal
;don't need the low segment file any more
del paslow.exe
;now convert the .exe files to tops-10 format
ru revert
pascmp.exe
ru revert
pascal.exe