Google
 

Trailing-Edge - PDP-10 Archives - BB-M780C-SM - monitor-sources/postld.mac
There are 51 other files named postld.mac in the archive. Click here to see a list.
; UPD ID= 2302, SNARK:<6.1.MONITOR>POSTLD.MAC.12,  19-Jul-85 16:41:20 by MOSER
;TCO 6.1.1492 - MORE JFNS NO SZCOD
; UPD ID= 2170, SNARK:<6.1.MONITOR>POSTLD.MAC.11,   5-Jun-85 10:50:00 by MCCOLLUM
;TCO 6.1.1406  - Update copyright notice.
; UPD ID= 1635, SNARK:<6.1.MONITOR>POSTLD.MAC.10,  14-Mar-85 10:47:32 by GLINDELL
;  Fix UPD ID 1621 - forgot to load the value to test!
; UPD ID= 1621, SNARK:<6.1.MONITOR>POSTLD.MAC.9,  12-Mar-85 14:44:26 by GLINDELL
;  Add typeout of configuration switches (DEBUG, DCN and NETN) to BUGSTRINGS.
; UPD ID= 1606, SNARK:<6.1.MONITOR>POSTLD.MAC.8,   7-Mar-85 23:17:28 by GLINDELL
;TCO 6.1.1244 - check for no monitor PDV present.
; Also add information on how to debug POSTLD
; UPD ID= 1562, SNARK:<6.1.MONITOR>POSTLD.MAC.7,  24-Feb-85 13:05:43 by GLINDELL
;Remove RET at DOBUGS - not needed any more since 6.0 and 6.1 are split
; UPD ID= 947, SNARK:<6.1.MONITOR>POSTLD.MAC.6,   4-Nov-84 15:31:52 by GLINDELL
;ENCOD is now in XCDSEC
;Add table of contents
; UPD ID= 886, SNARK:<6.1.MONITOR>POSTLD.MAC.5,  15-Oct-84 17:54:55 by GLINDELL
;Type out by how many pages section 0 overflowed, if that happens
;Type out 'SAVING ...' after typeout of POSTLD image format, instead of before
;Make Peter Donahue happy by lowering A%VFST to 735000
; UPD ID= 875, SNARK:<6.1.MONITOR>POSTLD.MAC.4,  12-Oct-84 10:04:24 by GLINDELL
;Make POSTCD section-relative when testing with NRCOD for overlap in PCDSEC
; UPD ID= 871, SNARK:<6.1.MONITOR>POSTLD.MAC.3,  11-Oct-84 10:39:28 by GLINDELL
;Change ST%xxx to SY%xxx because of conflict with SERCOD
; UPD ID= 870, SNARK:<6.1.MONITOR>POSTLD.MAC.2,  11-Oct-84 09:55:15 by GLINDELL
;Rewrite POSTLD for 6.1 address space

;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY  BE  USED
;OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT  (C)  DIGITAL  EQUIPMENT  CORPORATION  1976, 1985.
;ALL RIGHTS RESERVED.

	SUBTTL Gunnar Lindell 11-Oct-1984
	SEARCH PROLOG
	TTITLE (POSTLD,, - Postload initialization)

	EXTERN MDDBLK,EDDBLK,NBUGP,FREMEM,FAKDDT,DDTPX,DDTPXA

;A note on how to debug POSTLD:
;
;The best way to debug POSTLD is probably to NOT use EDDT in user mode
; but use the standard user DDT.  For example:
;
;	@GET MON
;	@DDT /USE-SECTION:36	;Cannot use 37 since POSTLD runs there
;	Set your breakpoints and then 
;		0,,142$G
;
	SUBTTL	Table of Contents


;		Table of Contents for POSTLD
;
;
;			   Section			      Page
;   1. Table of contents. . . . . . . . . . . . . . . . . . .    2
;   2. List of POSTLD checks. . . . . . . . . . . . . . . . .    3
;   3. Symbols and macros . . . . . . . . . . . . . . . . . .    4
;   4. Entry vector and psect tables. . . . . . . . . . . . .    5
;   5. POSTLD main code . . . . . . . . . . . . . . . . . . .    6
;   6. Monitor date and time. . . . . . . . . . . . . . . . .    7
;   7. Check assembly symbols . . . . . . . . . . . . . . . .    8
;   8. The monitor PDV. . . . . . . . . . . . . . . . . . . .    9
;   9. Check psects . . . . . . . . . . . . . . . . . . . . .   10
;        9.1.   Section 0 . . . . . . . . . . . . . . . . . .   11
;        9.2.   Symbol section. . . . . . . . . . . . . . . .   12
;  10. Extended code section. . . . . . . . . . . . . . . . .   13
;  11. Check psects
;       11.1.   Extended data section . . . . . . . . . . . .   14
;  12. Write new psect origins. . . . . . . . . . . . . . . .   16
;  13. Sort and output BUGS.. . . . . . . . . . . . . . . . .   17
;  14. Make POSTLD image. . . . . . . . . . . . . . . . . . .   18
;  15. Copy the symbol tables . . . . . . . . . . . . . . . .   21
;  16. Set up MMAP. . . . . . . . . . . . . . . . . . . . . .   22
;  17. Set up EDDT in section 0 . . . . . . . . . . . . . . .   23
;  18. Write the POSTLD image to disk . . . . . . . . . . . .   24
;  19. Subroutines. . . . . . . . . . . . . . . . . . . . . .   26
;  20. Variables. . . . . . . . . . . . . . . . . . . . . . .   27
	SUBTTL List of POSTLD checks

;POSTLD will check various psect boundaries and relationships.
;
; Warnings will be issued if the following relations are not true:
;
;	MDDBLK .LT. 0
;	EDDBLK .LT. 0
;	RSDAT .LE. FFF .LE. RSDATZ
;	0,,XRCOD .EQ. NRCOD
;	0,,XRCOD - 0,,BGPTRZ .GE. NRCODZ - NRCOD - 100000
;
; The symbol table will be truncated unless
;	Symbol_table_size .LE. ERCOD - 1 - 10000 - NRVAR
;
; Adjust psect origins unless:
;
;	RSCOD .EQ. 1000
;	RSCODZ .LT. INCOD
;	INCODZ .LT. RSDAT
;	RSDATZ .LT. PPVAR
;	PPVARZ .LT. RSVAR
;	RSVARZ .LT. NRVAR
;	NRVARZ .LT. PSVAR
;	PSVARZ .LT. JSVAR
;	JSVARZ .LT. NRCOD
;	NRCODZ .LT. NPVAR
;	NPVARZ .LT. 777777
;
;	BGSTR .EQ. SYMSEC,,1000
;	BGSTRZ .LT. BGPTR
;	BGPTRZ .LT. SYPSX
;
;	ERCODZ .LT. SYMSEC,,A%VFST
;
;	XRCODZ .LT. XNCOD
;	XNCODZ .LT. ENCOD
;	0,,ENCODZ .LT. NPVAR
	SUBTTL	Symbols and macros

;***** A%VFST is the presumed start of BOOT.  Nothing above this limit
;***** will be loaded from the EXE file.  It would be better if this
;***** value were obtained from the BOOT assembly, but that is not
;***** linked with the monitor build.  Hence, this must be changed
;***** manually if BOOT grows.  There is a warning in BOOT if A%VFST
;***** changes.

A%VFST=:735000			;BOOT start

;Define # of words for undefined symbol table growth
SYMPAD==200			;200 words should do for a long time

;Define location of MDDT variables in XCDSEC
DDTPGA=:DDTPXA			;Mapped 1-1
DDTPG=:DDTPX			;Page #

NPDL==100			;POSTLD stack size

;Define macros for typeout and error
DEFINE TMSG ($MSG) <
	JRST [	HRROI T1,[ASCIZ \$MSG\]
		PSOUT%
		JRST .+1]
>

DEFINE FMSG ($MSG) <
	JRST [	HRROI T2,[ASCIZ \$MSG\]
		SETZ T3,
		SOUT%
		JRST .+1]
>

DEFINE JSERR <ERCAL .JSERR>

DEFINE JSHLT <ERJMP .JSHLT>
	SUBTTL	Entry vector and psect tables

	.ENDPS RSCOD		;End of RSCOD
	.PSECT POSTCD		;Put POSTLD in psect POSTCD

POSTLD::			;Relative 0 in POSTCD

ENTVEC:	JRST PLDCOD		;Entry vector/start address
	JRST PLDCOD		;	      reenter
	EXP SVNM		;	      version #

;Generate psect tables
;
;Each psect is given an index, designated by a symbol PSECT'I
; That is an index into the PSTBL that contains a pointer to a
; psect block for each psect.
;
;I.e.
;	PSTBL:	Ptr to psect0 block
;		Ptr to psect1 block
;		....
;
;A psect block contains the following entries
	$PNAM==0		;Ptr to ASCIZ string (name of psect)
	$PBGN==1		;Beginning address of psect
	$PEND==2		;End address of psect
	$PLEN==3
	$PNEW==4		;New beginning address of psect
	$PFLG==5		;Flags:
	  P.PSEU==400000,,0	  ;Set if psect is a pseudo psect

;DEFPSX/DEFPS1/DEFPS2 generates an entry in the psect table

;DEFPSX is top level, calls DEFPS1 for each psect in the argument list
DEFINE DEFPSX($PSECT),<
	XLIST
   IRP $PSECT,<
	DEFPS1($PSECT)
   >
	LIST
>

;DEFPS1 strips off a set of angle brackets, if necessary
DEFINE DEFPS1($PSECT),<DEFPS2($PSECT)>

;DEFPS2 does the work
DEFINE DEFPS2($PSECT,$CODE),<
	IFDIF <$CODE><PSEUDO>,<
		.PSECT $PSECT
		$PSECT'Z=:.-1
		$PSECT'L=:$PSECT'Z_-PGSFT
		.ENDPS $PSECT
	>

	$PSECT'I==..PSXN
	..PSXN==..PSXN+1

	[	POINT 7,[ASCIZ /$PSECT/]
		$PSECT
		$PSECT'Z
		$PSECT'Z - $PSECT + 1
		EXP 0
		IFIDN <$CODE><PSEUDO>,<EXP P.PSEU>
		IFDIF <$CODE><PSEUDO>,<EXP 0>
	]
>

PSTBL:

;Execute macro for all psect's
	..PSXN=0

;Note: the psect's will be output in the order they appear in the
; macros (i.e. by ascending psect index)

;Section 0
	DEFPSX <RSCOD,INCOD,RSDAT,PPVAR>
	DEFPSX <RSVAR,NRVAR,<PSVAR,PSEUDO>,<JSVAR,PSEUDO>>
	DEFPSX <NRCOD,<NPVAR,PSEUDO>>

;Section 5 (SYMSEC)
	DEFPSX <BGSTR,BGPTR,SYPSX,ERCOD>

;Section 6 (XCDSEC)
	DEFPSX <XRCOD,XNCOD,ENCOD>

;Section 13
	DEFPSX <<ERVAR,PSEUDO>,<ENVAR,PSEUDO>,<EPVAR,PSEUDO>>
	SUBTTL	POSTLD main code

PLDCOD:

;POSTLD initialization

	MOVE P,[IOWD NPDL,PDL]	;Initialize stack pointer

;Section 0 is mapped into the section POSTCD runs in. This will provide
; POSTLD with access to STKVAR routines, RSKP and so forth. It will also
; allow POSTLD to reference RSDAT variables with local references.

	MOVE T1,[.FHSLF+FH%EPN,,0] ;From page 0 in section 0
	MOVE T2,[.FHSLF+FH%EPN,,PCDSEC*1000] ; to page 0 in POSTCD section
	HRRI T3,<NRCODZ/PGSIZ>+1 ;  all pages including NRCODZ
	HRRI T4,<POSTCD&777777>/PGSIZ ; Get start of POSTCD (section-relative)
	CAMLE T3,T4		;  Will PMAP overlap POSTLD itself?
	IFNSK.			;  -yes,
	  TMSG <
%Warning: The end of NRCOD is higher than the section-relative start
	  of POSTLD. Most of monitor section 0 is mapped into the section
	  POSTLD runs in. This means that all of NRCOD cannot be mapped.
	  This may cause an illegal read or write in POSTLD. However, if
	  POSTLD completes, you can be assured that the image produced will
	  be legal.
>
	  MOVE T3,T4		;   Truncate NRCOD
	ENDIF.
	HRLI T3,(PM%CNT!PM%RD!PM%WR!PM%EPN) ;Read/write and repeat count
	PMAP%			;Do the mapping

;Now POSTLD can make local references to variables and routines in
; section 0. POSTLD uses this to write values to variables in RSDAT,
; to use subroutines in RSCOD (STKVAR e.g.) and to get the version
; string of the monitor.

	CALL RDTAD		;Set date and time of monitor
	CALL CHKREL		;Check relationship between symbols
	CALL MAKPDV		;Build the monitor PDV
	CALL VERPSX		;Verify all psects
	CALL WRTPSX		;Write the new psect origins
	CALL DOBUGS		;Sort BUGS. and write to BUGSTRINGS.TXT
	CALL MAKIMG		;Make section 0 and 1 be like POSTLD image
	CALL SETMMP		;Set up MMAP
	CALL STEDDT		;Set up EDDT in section 0
	CALL SAVIMG		;Save POSTLD image
             
	HALTF%			;All done
	JRST .-1		;Do not allow continue
	SUBTTL	Monitor date and time

;RDTAD - read date and time of monitor (from VERSIO.MAC)

RDTAD:	HRROI T1,[ASCIZ /MON/]	;See if MON: is defined
	STDEV%
	IFSKP.			;Yes
	  HRROI T2,[ASCIZ /MON:VERSIO.MAC/] ; -then get VERSIO from MON:
	ELSE.			;No
	  HRROI T2,[ASCIZ /VERSIO.MAC/]	; -then get it from DSK:
	ENDIF.
	MOVX T1,GJ%OLD!GJ%SHT	;Short form, existing file
	GTJFN%			;Get jfn on file
	IFSKP.			; -file exists,
	  MOVEI T2,T2		;  Read into T2
	  MOVEI T3,1		;   one word (date and time last written)
	  RFTAD%		;  Result in T2
	  RLJFN%		;   so release jfn now
	   NOP			;    and ignore error return
	  MOVE T1,T2		;  Move date and time to T1
	ELSE.			; -file does not exist
	  TMSG <
%VERSIO.MAC not found. Current date and time used.
>
	  GTAD%			;  Get current date and time in T1
	ENDIF.
	MOVEM T1,SYSTAD		;Store in SYSTAD
	RET
	SUBTTL	Check assembly symbols

;CHKREL - check the relationship between various symbols
CHKREL:

;MDDBLK must be in page 0
	MOVX T1,MDDBLK
	CAIGE T1,PGSIZ
	IFSKP.
	  TMSG <
%Warning: MDDBLK is not in page 0.
>
	ENDIF.

;EDDBLK must also be in page 0
	MOVX T1,EDDBLK
	CAIGE T1,PGSIZ
	IFSKP.
	  TMSG <
%Warning: EDDBLK is not in page 0.
>
	ENDIF.

;FFF must be defined inside psect RSDAT. This is for user mode exec DDT.
	MOVX T1,FFF
	CAIL T1,RSDAT
	CAILE T1,RSDATZ
	IFNSK.
	  TMSG <
%Warning: FFF is not defined in psect RSDAT.
>
	ENDIF.

;The offset of XRCOD should be the same as the offset of NRCOD
	HRRZI T1,XRCOD		;We dont want section # (in left half)
	CAIN T1,NRCOD
	IFSKP.
	  TMSG <
%Warning: The offset of XRCOD is not the same as NRCOD.
>
	ENDIF.

;Verify that NRCOD will fit into section 1 of the POSTLD image between
; end of BGPTR and beginning of XRCOD. There should also be space for
; the CST's
	HRRZI T1,XRCOD		;Get offset of XRCOD
	SUBI T1,BGPTRZ		; and subtract end of BGPTR
	CAIL T1,<NRCODZ-NRCOD+100000> ;100000 is 4 CST's, 4Meg memory
	IFSKP.
	  TMSG <
%Warning: NRCOD will not fit into section 1 of the POSTLD image.
	  This can not be fixed up by POSTLD.
>
	ENDIF.

	RET			;End of CHKREL
	SUBTTL	The monitor PDV

;MAKPDV - set the monitor PDV
MAKPDV:

;LINK writes a PDV for the monitor. We need the PDV in order to locate
; the symbols. LINK will put the PDV in the symbol psect, right after the
; symbol table.
;
;In order for the monitor to know exactly where the PDV is, there
; is a predefined PDV, at PDVECT. The symbol vector follows immediately
; after the PDV, and both structures are in RSDAT. Having our own PDV
; means that RSDATZ can be trusted at runtime.
;
;What we want to do is:
;	1. Locate the PDV with name MON
;	2. Copy the symbol vector generated by LINK to our own symbol vector
;	3. Remove the PDV that LINK wrote
;	4. Add our own PDV with name MONITR
;	5. Set up PDVSYM and PDVUSY to point to the defined/undefined symbols
;	   subtable
;	6. Finally verify if the symbol table need to be truncated

;Use P1-P6 for the PDV argument block
	MOVEI T1,.POLOC		;Locate a specific PDV
	MOVEI T2,P1		;Argument block is in P1
	HRROI T3,[ASCIZ /MON/]	;PDV name to return
	MOVEI P1+.POCT1,4	;Argument block length
	MOVEI P1+.POPHD,.FHSLF	;Ourself
	MOVEI P1+.POCT2,1	;Read only 1 PDV (couldnt be any more)
	MOVEI P1+.PODAT,Q1	; into Q1
	PDVOP%
	JSHLT			;Cannot recover if we cant find the pdv
	HRRZ T1,P1+.POCT2	;Get count of PDVA's returned
	SKIPG T1		;Any found?
	IFNSK.			; -no, must give up
	  TMSG <
?Fatal error: cannot find a PDV for the monitor with name "MON".
 This should never occur, please check your link command file.
>
	  HALTF%
	ENDIF.
	MOVE P1,Q1		;PDVA to P1

;Move symbol vectors
	MOVE T2,.PVSYM(P1)	;Get address of symbol vector
	MOVE T1,(T2)		;Get count word from symbol vector
	CAIG T1,7		;Larger than 7?
	IFSKP.
	  TMSG <
?Fatal error: Symbol vector in PDV is larger than 7 words
>
	  HALTF%
	ENDIF.
	MOVE T3,[0,,PDVECT+.PVSYM+1] ;Destination
	EXTEND T1,[XBLT]	;Move the symbol vector

;Now remove the PDV that LINK wrote
	MOVE Q1,P1		;Save PDVA for a moment
	MOVEI T1,.POREM		;Remove PDVA
	MOVEI T2,P1		;Argument block is in P1-P6
	MOVEI P1+.POCT1,6	;6 words
	MOVEI P1+.POPHD,.FHSLF	;Ourselves
	SETZB P1+.POCT2,P1+.PODAT ;Clear count and data address
	MOVE P1+.POADR,Q1	;Get PDVA
	MOVE P1+.POADE,Q1	;Ending address
	PDVOP%
	JSERR			;Not fatal....

;Add our own PDV
	MOVEI T1,.POADD		;Add a PDVA
	MOVEI T2,P1		;Argument block is in P1-P6
	MOVEI P1+.POCT1,4	;4 words in argument block
	MOVEI P1+.POPHD,.FHSLF	;Ourselves
	MOVEI P1+.POCT2,1	;1 PDVA to add
	MOVEI P1+.PODAT,Q1	;Data in Q1
	MOVEI Q1,PDVECT		;Address of our PDV
	PDVOP%
	JSERR			;Not fatal....

;Set address of monitor PDV
	MOVEI T1,PDVECT		;Get address of PDV
	MOVEM T1,MONPDV		;Save it for EDDT/MDDT

;Now set up PDVSYM and PDVUSY to contain the address of the respective
; symbol subblocks
	MOVE P1,SYMBLK		;Get length of symbol vector
	IDIVI P1,3		;Make int # of subblocks
	MOVEI T1,SYMBLK+1	;Point to first subblock
	DO.
	  MOVE T2,.STDAT(T1)	;Get data type word
	  LDB T2,[POINTR T2,SY%TYP] ; and extract type field
	  CAIE T2,.R50D		;Defined symbol?
	  IFSKP.		; -yes,
	    MOVEI T3,PDVSYM	;  write address to PDVSYM
	  ELSE.			; -no,
	    MOVEI T3,PDVUSY	;  write address to PDVUSY
	  ENDIF.
	  MOVEM T1,(T3)		; and save into the variable
	  MOVEI T1,3(T1)	;Move to next subblock
	  SOJG P1,TOP.		;Loop back if more to do
	ENDDO.

;Now check if the symbol table need to be truncated
	MOVE T1,PDVSYM		;Get defined symbols
	MOVEI T2,<<ERCOD & 777777>-1-10000-NRVAR> ;Upper limit on symbol table
	LDB T3,[POINTR .STLEN(T1),SY%LEN] ;Get length of symbol table
	CAMG T3,T2		;Symbol table need to be truncated?
	IFSKP.			; -yes,
	  TMSG <
?Error:   the symbol table does not fit into section 0 of the POSTLD
	  image. You have to submit a new build with the psect files
	  POSTLD will write. The maximum size of the symbol table is
	  >
	  CALL OCTOUT		;Output max size in words
	  TMSG < octal words.
>
	ENDIF.
	RET			;End of MAKPDV
	SUBTTL	Check psects

;Define a macro that will simply verify that psect A will end before
; psect B or a specified limit

DEFINE CHKPSX($PSA,$PSB,$LIMIT) <
	XLIST
	MOVE Q1,PSTBL+$PSA'I
   IFB <$LIMIT>,<
	MOVE Q2,PSTBL+$PSB'I
   >
   IFNB <$LIMIT>,<
	SETO Q2,
	MOVE Q3,[$LIMIT]
   >
	CALL .CHPSX
	LIST
>

;VERPSX - verify all psects for overlaps
VERPSX:

;Output header: monitor name and version string
	TMSG <
>
	HRROI T1,TSVN		;System name and version string
	PSOUT%
	TMSG <

- Monitor runtime address space -

  Psect	      Start         End       Length       Free         Limit
>

;Verify all the psects
	CALL CHSEC0		;Check section 0
	CALL CHSYMS		;Check symbol section
	CALL CHXCOD		;Check extended code section
	CALL CHXDAT		;Check extended data section
	TMSG <
>				;Free line

;Type out # of overflows detected
	SKIPE OVRFLW		;Any at all?
	IFSKP.			; -no,
	  TMSG <
No psect overflows detected.
>
	ELSE.			; -yes,
	  TMSG <
? >
	  MOVEI T1,.PRIOU	;  Output to terminal
	  MOVE T2,OVRFLW	;  Get # of overflows
	  MOVX T3,FLD(^D10,NO%RDX) ; Radix 10
	  NOUT%
	   NOP
	  TMSG < overflow(s) detected.
>
	ENDIF.

	RET
	SUBTTL	Check psects -- Section 0

;Start with RSCOD, set its new start address to 1000
CHSEC0:	TMSG <

Section 0/1:

>
	MOVE Q1,PSTBL+RSCODI	;Point to RSCOD
	MOVEI T1,1000		;RSCOD default starting address
	MOVEM T1,$PNEW(Q1)	; and set the new

;Now verify all the psects in section 0
	CHKPSX (RSCOD,INCOD)
	CHKPSX (INCOD,RSDAT)
	CHKPSX (RSDAT,PPVAR)
	CHKPSX (PPVAR,RSVAR)
	CHKPSX (RSVAR,NRVAR)
	CHKPSX (NRVAR,PSVAR)
	CHKPSX (PSVAR,JSVAR)
	CHKPSX (JSVAR,NRCOD)
	CHKPSX (NRCOD,NPVAR)
	CHKPSX (NPVAR,<End of section 0>,777777)

;Type out # of free pages in section 0
; Equal to the number of pages remaining after NPVAR, counting the
; new start address of NPVAR
	MOVE Q1,PSTBL+NPVARI	;Point to NPVAR
	MOVE T1,$PNEW(Q1)	;Get new start address of NPVAR
	ADD T1,$PLEN(Q1)	; and add its length
	SOJ T1,			;  and make end address of new NPVAR
	MOVEI T2,777777		;Highest address in section 0
	SUB T2,T1		;Calculate # of free words in section 0
	SKIPL T2		;If negative, then section 0 overflow
	IFSKP.			; -yes, fatal overflow
	  TMSG <

?Section 0 overflow: rebuild monitor with a smaller configuration.
You need >
	  MOVMS T2		;  Get magnitude
	  ADDI T2,PGSIZ-1	;   and round upwards
	  LSH T2,-^D9		;    and make page number
	  CALL OCTOUT		;  Tell user bad news
	  TMSG < (octal) additional section 0 pages.

>
	ELSE.			; -no, all fits into section 0
	  LSH T2,-^D9		;  Make page number
	  TMSG <

There are >
	  CALL OCTOUT
	  TMSG < (octal) free pages in section 0.

>
	ENDIF.

	RET
	SUBTTL	Check psects -- Symbol section

;Check symbol section
CHSYMS:

;Type out banner
	TMSG <

Symbol section (SYMSEC):

>

;Start with BGSTR, set its new start address to SYMSEC,,1000
	MOVE Q1,PSTBL+BGSTRI	;Point to BGSTR
	MOVE T1,[SYMSEC,,1000]	;Start at SYMSEC,,1000
	MOVEM T1,$PNEW(Q1)	; and save

;Now verify psects in symbol section
	CHKPSX (BGSTR,BGPTR)
	CHKPSX (BGPTR,SYPSX)

;Free line since there will be a gap here
	TMSG <
>

;Do ERCOD

;Calculate the new start address
	MOVE Q1,PSTBL+ERCODI	;Point to ERCOD
	MOVE T1,[SYMSEC,,A%VFST] ;Get BOOT start address, but in SYMSEC
	SUB T1,$PLEN(Q1)	;Subtract length of BOOT
	TRZ T1,777		;Make it page even
	MOVEM T1,$PNEW(Q1)	; and save as ERCOD start address

;Verify ERCOD
	CHKPSX (ERCOD,<BOOT address>,<<SYMSEC,,A%VFST>>)

	RET
	SUBTTL	Extended code section

;Check extended code section
CHXCOD:

;Type out banner
	TMSG <

Extended code section (XCDSEC):

>

;Start with XRCOD, set its new start address to XCDSEC,,NRCOD
	MOVE Q1,PSTBL+XRCODI	;Point to XRCOD
	MOVE Q2,PSTBL+NRCODI	;Point to NRCOD
	MOVE T1,$PNEW(Q2)	;Get new start address of NRCOD
	HRLI T1,XCDSEC		; and make same offset in XCDSEC start of XRCOD
	MOVEM T1,$PNEW(Q1)	; and save

;Verify XRCOD, XNCOD and ENCOD
	CHKPSX (XRCOD,XNCOD)
	CHKPSX (XNCOD,ENCOD)
	CHKPSX (ENCOD,<Extended code overlays NRCOD>,<<XCDSEC,,<NPVAR-1>>>)

	RET
	SUBTTL	Check psects -- Extended data section

;CHXDAT - check extended data sectios
CHXDAT:

	TMSG <

Extended variables section (RESSEC):

>

;Start with ERVAR, and set its new start address
	MOVE Q1,PSTBL+ERVARI	;Point to ERVAR
	MOVE T1,[RESSEC,,1000]	;New start address
	MOVEM T1,$PNEW(Q1)	; and save it

;Now verify the psects
	CHKPSX (ERVAR,ENVAR)
	CHKPSX (ENVAR,EPVAR)
	CHKPSX (EPVAR,,<<RESSEC,,777777>>)

	RET

;.CHPSX - do the work for CHKPSX
;
;Entry:	Q1/ pointer to psect entry for lower psect
;	Q2/ pointer to psect entry for higher psect or -1
;	Q3/ limit if Q2 = -1

.CHPSX:	STKVAR <LIMIT,OVRLAP>
	SETOM LIMIT		;Assume no limit present
	SKIPGE Q2		;Is Q2 negative?
	  MOVEM Q3,LIMIT	; -yes, so there is a limit
	SETZM OVRLAP		;No psect overlap so far
	MOVE T1,$PEND(Q1)	;Get end of lower psect
	SKIPGE T2,LIMIT		;Get limit and check if there is any!
	IFSKP.			; -yes, there was
	  AOS T2		;  make into next free address
	ELSE.
	  MOVE T2,$PBGN(Q2)	; -no, get start of higher psect instead
	ENDIF.
	CAMGE T1,T2		;Compare
	IFSKP.			; -overlap
	 SETOM OVRLAP		;  ** overlap between these psects **
	 AOS OVRFLW		;  Count it
	ENDIF.
;Calculate new psect origin for the higher psect (provided no limit)
	SKIPL LIMIT		;Is there a limit set?
	IFSKP.			; -no, go ahead and calculate next psect
	  MOVE T1,$PNEW(Q1)	;  New start of lower
	  MOVE T2,$PLEN(Q1)	;  Get length of lower
	  ADDI T2,<PGSIZ-1>	;   and round up to whole pages
	  TRZ T2,777		;     and clear out page field
	  ADD T1,T2		;  Add to lower new start address
	  MOVEM T1,$PNEW(Q2)	;   makes new higher start address
	ENDIF.

;Now typeout this psect
;
;The display has the following layout:
;
;PSECT		Start	End	Length	Free	Limit	Notes

	TMSG <  >		;2 spaces
	MOVE T1,$PNAM(Q1)	;Get pointer to name of psect
	PSOUT%
	MOVEI T1,.CHTAB		;Then a <TAB>
	PBOUT%
	MOVE T2,$PBGN(Q1)	;Start
	CALL OCTOUC
	MOVE T2,$PEND(Q1)	;End
	CALL OCTOUC
	MOVE T2,$PLEN(Q1)	;Length
	CALL OCTOUC
	SKIPL T2,LIMIT		;Get limit value (if there is one)
	IFSKP.			; -none,
	  MOVE T2,$PBGN(Q2)	;   use next psect
	  SOJ T2,		;   But only go to the address just before,
				;   thats the limit
	ENDIF.
	SUB T2,$PEND(Q1)	; minus end of lower psect
	CALL OCTOUC		; is # of free words
	SKIPL T2,LIMIT		;Get limit value (if there is any)
	CALL OCTOUC		; -yes, type it out
	SKIPE OVRLAP		;Overlap for this psect?
	TMSG < ** Overlap **>
	TMSG <
>				;End typeout with a new line
	RET
	ENDSV.
	SUBTTL	Write new psect origins

;WRTPSX - write new psect origins to LNKNEW.CCL and PARNEW.MAC
WRTPSX:	STKVAR <LNKJFN,PARJFN>
	TMSG <
A potential set of new psect origins will be written into LNKNEW.CCL
and PARNEW.MAC.
>
	HRROI T1,[ASCIZ /LNKNEW.CCL/] ;File to open
	CALL OUTFIL		;Open outfile
	IFNSK.			; -error
	  TMSG <%Warning: failed to write LNKNEW.CCL
>
	  RET
	ENDIF.
	MOVEM T1,LNKJFN		;Save JFN

	HRROI T1,[ASCIZ /PARNEW.MAC/] ;For pseudo psects
	CALL OUTFIL		;Open outfile
	IFNSK.			; -error
	  TMSG <%Warning: failed to write PARNEW.MAC
>
	  RET
	ENDIF.
	MOVEM T1,PARJFN		;Save JFN

;Clear T3 (count word in SOUT%)
	SETZ T3,

;Output headers for both files
; T1 has PARJFN
	FMSG <;PSECT origins for monitor >
	HRROI T2,TSVN		;Name and version string
	SOUT%
	FMSG <
>

;Do the same for LNKJFN
	MOVE T1,LNKJFN
	FMSG <;PSECT origins for monitor >
	HRROI T2,TSVN		;Name and version string
	SOUT%
	FMSG <
>

;Loop over PSTBL and write the value in $PNEW to file. If the
; pseudo flag is set, then write it to PARNEW, else to LNKNEW.
	MOVSI P1,-..PSXN	;Get # of psects defined
	DO.			;LOOP over all psects
	  MOVE Q1,PSTBL(P1)	;  Get psect block pointer
	  MOVX T1,P.PSEU	;  Get pseudo flag
	  TDNE T1,$PFLG(Q1)	;  Is it set?
	  IFSKP.		;   -no, write to LNKNEW
	    MOVE T1,LNKJFN	;    so get the right JFN
	    FMSG </SET:>	;    LINK set psect switch
	    MOVE T2,$PNAM(Q1)	;    Get pointer to psect name
	    SOUT%		;     and put in file
	    MOVEI T2,":"	;    Colon before value
	    BOUT%		;     and put that in file
	  ELSE.			;   -yes, write to PARNEW
	    MOVE T1,PARJFN	;    so get that JFN
	    MOVE T2,$PNAM(Q1)	;    Get pointer to name
	    SOUT%		;     and put name in file
	    FMSG <=:>		;    Before value
	  ENDIF.
	  MOVE T2,$PNEW(Q1)	;  Get new psect origin
	  MOVX T3,FLD(^D8,NO%RDX) ; Output in radix 8
	  NOUT%			;  Do it
	    JSERR		;   -report error if there is one
	  FMSG <
>				;  End entry with a CRLF
	  AOBJN P1,TOP.		;  Loop back if more psects to do
	ENDDO.

;Now we have to write a psect switch for POSTCD itself into LNKNEW.CCL
; as well as a /SYMSEG switch
	MOVE T1,LNKJFN		;Get LNKNEW.CCL
	FMSG </SET:POSTCD:>
	MOVEI T2,PCDSEC		;POSTCD section #
	MOVX T3,FLD(^D8,NO%RDX)	;Radix 8
	NOUT%
	JSERR
	FMSG <750000
/SYMSEG:PSECT:SYPSX/UPTO:>
	MOVE Q1,PSTBL+SYPSXI	;Point to symbol table start
	MOVE T2,$PNEW(Q1)	;Get start of symbol table
	ADD T2,[<<ERCOD & 777777> - 1 - 10000 - NRVAR - SYMPAD>] ;Add max size
	MOVX T3,FLD(^D8,NO%RDX)	;Radix 8
	NOUT%			;Output it
	JSERR
	FMSG <
>

;Close the files
	MOVE T1,LNKJFN		;LNKNEW.CCL
	CLOSF%
	JSERR
	MOVE T1,PARJFN		;PARNEW.MAC
	CLOSF%
	JSERR

;All done, return
	RET
	ENDSV.
	SUBTTL	Sort and output BUGS.

;DOBUGS - sort all BUGS. and output them to BUGSTRINGS.TXT
DOBUGS:	STKVAR <BUGJFN>
	TMSG <
Writing sorted bug list >
	MOVSI Q1,-NBUGP		;AOBJN ptr to BGPTR's
	DO.			;LOOP over all BGPTR's
	  HRLOI P1,377777	; Max value
	  MOVSI Q2,-NBUGP(Q1)	; LOOP between 0 and NBUGP-Q1
	  HRR Q2,Q1		;  and get start index into RH
	  DO.
	    HRRZ T1,Q2		;   Get current index
	    ADD T1,[BGPTR]	;    and make table pointer
	    HLRZ P2,0(T1)	;   Get section # of buginf/chk/hlt
   Repeat 1,< ;To be removed when all of monitor is recompiled with new PROLOG
	    CAILE P2,37		;   Verify section #
	    JRST DOBUG1		;    -out of range
   >
	    CAIE P2,MSEC1	;   Section 1?
	    IFSKP.		;    -yes, section 1 does not exist in POSTLD,
				;     so make a section-local address (sec 0
				;     is mapped into POSTLD section)..
	      HRRZ P2,0(T1)	;     Get section-local address
	    ELSE.		;    -not section 0,
	      MOVE P2,0(T1)	;     so use full 30-bit address
	    ENDIF.
	    JUMPE P2,DOBUG1	;    -none, go ahead
	    DO.			;   LOOP until bug name is found
	      MOVE T2,1(P2)	;     Get next word from block
	      TLNN T2,770000	;     Sixbit?
	      AOJA P2,TOP.	;     -no, loop back until found
	    ENDDO.
	    TXC T2,1B0		;   So compare works
	    CAML T2,P1		;   Smaller than current minimum?
	    JRST DOBUG1		;   -no, just go ahead
	    MOVE P1,T2		;   -yes, save new minimum
	    HRRZ P3,Q2		;    and remember current index
  DOBUG1:   AOBJN Q2,.+1	;   Skip over ptr to BGSTR
	    AOBJN Q2,TOP.	;   Loop back if more to do
	  ENDDO.
	  CAMN P1,[377777,,777777] ;Found a minimum?
	  JRST DOBUG2		;   -no, only zeroes left
	  ADD P3,[BGPTR]	;   Make pointer to minimum value
	  HRRZ T1,Q1		;    and pointer to top of table
	  ADD T1,[BGPTR]	;     ..
	  DMOVE T2,(P3)		;   Get value of minimum
	  EXCH T2,(T1)		;   Exchange values
	  EXCH T2+1,1(T1)	;   ...
	  DMOVEM T2,(P3)	;   ...
	  AOBJN Q1,.+1		;  Skip over pointer to BGSTR
	  AOBJN Q1,TOP.		;  Loop back if more to do
	ENDDO.

;Now write the sorted bug table to BUGSTRINGS.TXT
DOBUG2:	HRROI T1,[ASCIZ /BUGSTRINGS.TXT/]
	CALL OUTFIL		;Open outfile
	IFNSK.			; -error,
	  TMSG <
%Warning: failed to write BUGSTRINGS.TXT
>
	  RET			;  -nothing more to do
	ENDIF.
	MOVEM T1,BUGJFN		;Save JFN
	TMSG <to file >
	MOVEI T1,.PRIOU		;To terminal
	MOVE T2,BUGJFN
	SETZ T3,		;No format control
	JFNS%
	MOVE T1,BUGJFN		;JFN to T1
	HRROI T2,TSVN		;System name and version
	SETZ T3,		;Break on NULL
	SOUT%			;Go

;Type out feature switches so we know what monitor these BUG. refer to
	FMSG <
Switches are: DEBUG=>
	MOVX T2,DEBUG
	CALL TYPFT		;Type out switch value
	FMSG <, DCN=>
	MOVX T2,DCN
	CALL TYPFT
	FMSG <, NETN=>
	MOVX T2,NETN
	CALL TYPFT
	FMSG <
BUGHLT and BUGCHK names and descriptions

>
	MOVSI Q1,-NBUGP		;AOBJN ptr to sorted BGPTR table
	DO.			;LOOP over table
	  HRRZ Q2,Q1		;  Get current index
	  ADD Q2,[BGPTR]	;  Point to BGPTR entry
	  HLRZ Q3,0(Q2)		;  Get section # of buginf/chk/hlt
   Repeat 1,< ;To be removed when all of monitor has been recompiled
	  CAILE Q3,37		;  Valid section?
	  JRST DOBUG3		;   -no, out of range
   >
	  CAIE Q3,MSEC1		;  Is it section 1?
	  IFSKP.		;   -yes, remake to section-local (section 0/1
				;    are mapped into POSTLD section
	    HRRZ Q3,0(Q2)	;    Get section-local part
	  ELSE.			;   -no,
	    MOVE Q3,0(Q2)	;    Get 30-bit bug address
	  ENDIF.
	  MOVE P4,Q3		;  Save bug address for typeout
	  DO.			;  LOOP
	    MOVE T3,1(Q3)	;    Get next word
	    TLNN T3,770000	;    Is it 6bit?
	    AOJA Q3,TOP.	;    -no, loop back till 6bit is found
	  ENDDO.
	  DO.
	    SETZ T2,		;  Now type out name
	    LSHC T2,6		;  Shift in next character from name
	    ADDI T2," "		;  Make ASCII
	    BOUT%		;   and output to file (JFN still in T1)
	    JUMPN T3,TOP.	;  Continue until all of name is done
	  ENDDO.
	  HRRZ T3,(P4)		;  Get the address in the BUG. instruction
	  HRROI T2,[ASCIZ /	[UNK] /]
	  CAIE T3,XBUGHLT
	  CAIN T3,BUGHLT
	  HRROI T2,[ASCIZ /	[HLT] /]
	  CAIE T3,XBGCCHK
	  CAIN T3,BGCCHK
	  HRROI T2,[ASCIZ /	[CHK] /]
	  CAIE T3,XBGCINF
	  CAIN T3,BGCINF
	  HRROI T2,[ASCIZ /	[INF] /]
	  MOVEI T3,0
	  SOUT%			;  Output description
	  MOVE T2,1(Q2)		;  Get pointer to associated BGSTR
	  TLO T2,(61B5)		;   and make global bp
	  SETZ 3,
	  SOUT%			;  Print the string
	  HRROI T2,[ASCIZ /
/]
	  SOUT%
DOBUG3:	  AOBJN Q1,.+1		;  Skip over BGSTR pointer
	  AOBJN Q1,TOP.		;  Loop back if more to do
	ENDDO.
	CLOSF			;Close BUGSTRINGS.TXT
	 NOP			; Ignore error
	RET
	ENDSV.

;TYPFT - type out feature switch value
;
; T1/ JFN to write on
; T2/ value of switch
;
; Returns with T1 intact

TYPFT:	SKIPE T2		;Switch OFF or ON?
	IFSKP.			;  OFF
	  HRROI T2,[ASCIZ /OFF/]
	ELSE.			;  ON
	  HRROI T2,[ASCIZ /ON/]
	ENDIF.
	SETZ T3,
	SOUT%
	RET
	SUBTTL	Make POSTLD image

;Define a macro that will map a psect to another section

DEFINE MAPPSX ($PSECT,$SECNR) <
	XLIST
	MOVE Q1,PSTBL+$PSECT'I
	MOVX Q2,$SECNR
	CALL .MPPSX
	LIST
>

;MAKIMG - make section 0 and 1 look like POSTLD image
;
;The following steps are taken:
;	1. Create section 1
;	2. Move BGSTR and BGPTR there
;	3. Move NRCOD there, write PNRCOD, unmap NRCOD from section 0
;	4. Move XRCOD and XNCOD to section 1
;	5. Move ENCOD to section 1
;	6. Copy symbols to section 0. Write PDVSYM and PDVUSY.
;	7. Move ERCOD to section 0
;	8. Set entry vector

MAKIMG:	

;Create section 1
	SETZ T1,		;Create section
	MOVE T2,[.FHSLF,,1]	;Ourselves,,section 1
	MOVX T3,SM%RD!SM%WR!SM%EX!1 ;Allow all accesses', map 1 section
	SMAP%

;Map BGSTR/BGPTR into section 1
	MAPPSX (BGSTR,1)
	MAPPSX (BGPTR,1)

;Move NRCOD into section 1 just after BGPTR
	CALL MOVNRC

;Map XRCOD/XNCOD/ENCOD into section 1
	MAPPSX (XRCOD,1)
	MAPPSX (XNCOD,1)
	MAPPSX (ENCOD,1)

;Copy the symbols into section 0
	CALL COPSYM

;Map ERCOD into section 0
	MAPPSX (ERCOD,0)

;Set monitor entry vector.
; The entry vector is read by BOOT, and used as monitor start address
	MOVX T1,.FHSLF		;Ourselves
	MOVE T2,[JRST EVGO]	;Main start location
	HRRM T2,.JBSA		;Write to job area for compatibility
	SEVEC%			;Set entry vector

	RET

;.MPPSX - do the work for MAPPSX
;
;Call:	Q1/ pointer to psect block
;	Q2/ destination section number

.MPPSX:	MOVE T1,$PBGN(Q1)	;Get start address of psect
	LSH T1,-^D9		;Make into page #
	MOVE T2,T1		;Copy to T2 to create destination
	ANDI T2,777		;Keep only section-local page #
	MOVE T4,Q2		;Get destination section #
	LSH T4,^D9		;Make into extended page #
	TDO T2,T4		;And into destination page #
	HRLI T1,.FHSLF!FH%EPN	;Ourselves, extended page #'s
	HRLI T2,.FHSLF!FH%EPN	;   -"-
	MOVE T3,$PEND(Q1)	;Get end address
	SUB T3,$PBGN(Q1)	; minus start address
	LSH T3,-^D9		;# of pages
	AOJ T3,			;Adjust
	HRLI T3,(PM%CNT!PM%RD!PM%WR!PM%CPY!PM%EPN) ;RD/WR, private, extended
				; page #'s
	PMAP%
	RET

;MOVNRC - move the swappable monitor
;
;	1. Move the swappable monitor from section 0 into section 1
;	   just after BGPTR. Write the POSTLD image position of NRCOD
;	   into PNRCOD. Note: we must XBLT NRCOD, and not PMAP it,
;	   since NRCOD in section 0 will be unmapped as the symbol
;	   table will overlay it.
;
;	2. Unmap NRCOD from section 0

MOVNRC:	MOVEI T1,<NRCODZ-NRCOD+1> ;Length of NRCOD in words
	MOVEI T2,NRCOD		;From NRCOD in section 0
	MOVE T3,[XWD MSEC1,<<BGPTRZ & 777777> + 1000> & 777000] ;to next page
				; after BGPTR in section 1
	MOVEM T3,PNRCOD		;Save for PGRINI
	EXTEND T1,[XBLT]	;Move NRCOD
;Now unmap NRCOD from section 0
	SETO T1,		;Unmap
	MOVE T2,[.FHSLF!FH%EPN,,NRCOD/1000] ;Ourselves, from NRCOD
	MOVEI T3,<NRCODZ+1-NRCOD+1000>/1000 ;Get length of NRCOD in pages
	HRLI T3,(PM%CNT!PM%EPN)	;Set count flag
	PMAP%			;Unmap from section 0
	RET
	SUBTTL	Copy the symbol tables

;The symbol tables (undefined and defined) are moved into section 0,
; and are put right after RSVAR, i.e. at the same offset as NRVAR.
;After the move, the PDVSYM and PDVUSY are updated.
;
;Note: the undefined symbols symbol table is always right before the
; defined symbols symbol table.
;Also: we should leave a free space of size SYMPAD before the undefined
; symbol table, since ?DDT will expand that table downwards.
;
;Note: we update .JBSYM and .JBUSY. This is only for FILDDT. FILDDT will
; look for symbols with "physical paging" (i.e. according to EXE directory)
; so if we set up .JBSYM and .JBUSY here as section-0 symbol pointers
; everything will come out well in FILDDT. However, you'd better know that
; you shouldnt use .JBSYM and .JBUSY in the running monitor! Magic,magic...

;If AU is the address of the undefined symbol table, AL the defined,
; and LU and LL are the respective lengths, then
;
;	copy from AU to NRVAR+SYMPAD
;	# of words = AL-AU+LL
;	PDVUSY address = NRVAR+SYMPAD
;	PDVSYM address = PDVUSY address+AL-AU

;Ac usage in COPSYM:
;	P1/ AU
;	P2/ AL
;	P4/ LL
;
;	Q1/ points to undefined symbol block
;	Q2/ points to defined symbol block

COPSYM:	MOVE Q1,PDVUSY		;Get address of undefined symbol block
	MOVE P1,.STPTR(Q1)	;Get AU
	MOVE Q2,PDVSYM		;Get address of defined symbol block
	MOVE P2,.STPTR(Q2)	;Get AL
	LDB P4,[POINTR .STLEN(Q2),SY%LEN] ;Get LL

;Set up for XBLT: T1/ # of words, T2/ src addr, T3/ dest addr
	MOVE T1,P2		;AL
	SUB T1,P1		;  -AU
	ADD T1,P4		;     +LL
	MOVEI T2,SYMPAD(T1)	;Calculate total length of symbol table
	MOVEM T2,SYMLEN		; and save for future use (PGRINI)
	MOVE T2,P1		;From AU
	MOVEI T3,NRVAR+SYMPAD	;       to section 0 overlaying NRVAR
	EXTEND T1,[XBLT]	;Move..

;Fix up PDVUSY and PDVSYM
	MOVEI T1,NRVAR+SYMPAD	;Get new dest address
	MOVEM T1,.STPTR(Q1)	; and save as new undefined addr
	ADD T1,P2		;  +AL
	SUB T1,P1		;     -AU
	MOVEM T1,.STPTR(Q2)	;Save as new defined addr

;Write FREMEM. PGRINI puts temporary CST's at FREMEM
	MOVE T1,SYMLEN		;Get symbol table length
	ADDI T1,NRVAR+SYMPAD+1000 ;Get ending address + 1000
	TRZ T1,777		;T1 has next address of next page after table
	MOVEM T1,FREMEM		; so save it in FREMEM

;Write SYMSTA and SYMEND. These define the start and end address of the symbol
; tables after they are mapped into SYMSEC by PGRINI.
	MOVX T1,<<BGPTRZ+PGSIZ>&VPGNO> ;Start address
	MOVEM T1,SYMSTA		;Save it for PGRINI
	ADDI T1,SYMPAD		; and add padding
	MOVEM T1,SYMBEG		;  and save as beginning of symbols for PGRINI
	MOVE T1,SYMSTA		;Get start address again
	ADD T1,SYMLEN		;Add length
	SOS T1			; - 1 gives ending address
	MOVEM T1,SYMEND		;  and save that too for PGRINI

;Now write .JBSYM and .JBUSY
	MOVE T1,.STPTR(Q1)	;Get pointer to undefined symbol table
	LDB T2,[POINTR .STLEN(Q1),SY%LEN] ;And get length
	MOVNS T2		;Negate
	HRLES T2		; and put into LH
	HLL T1,T2		;  and into T1
	MOVEM T1,.JBUSY		;  -thats the undefined pointer

	MOVE T1,.STPTR(Q2)	;Get pointer to defined symbol table
	LDB T2,[POINTR .STLEN(Q2),SY%LEN] ;And get length
	MOVNS T2		;Negate
	HRLES T2		; and put into LH
	HLL T1,T2		;  and into T1
	MOVEM T1,.JBSYM		;  -thats the defined pointer

	RET
	SUBTTL	Set up MMAP

;SETMMP - set up MMAP.
;
;POSTLD sets up MMAP with a 1-1 mapping for the psects that are
; present in section 0 of the POSTLD image. This mapping is used
; when paging is first turned on in the monitor. The mapping is
; later redone by PGRINI.

SETMMP:	MOVE T1,[0,,RSDATZ]	;All of resident code, and RSDAT
	CALL WRMMAP
	MOVE T1,[RSVAR,,RSVARZ]	;Resident data too
	CALL WRMMAP
	MOVEI T1,NRVAR		;All of the symbol table
	ADD T1,SYMLEN
	HRLI T1,NRVAR
	CALL WRMMAP
	HRLI T1,ERCOD		;And EDDT
	HRRI T1,ERCODZ
	CALLRET WRMMAP

;WRMMAP - write to MMAP
;
;Call:	T1/ first virtual addr,,last virtual addr
;
;Note: its OK with 18-bit addresses since MMAP describes section 0
; of the monitor

WRMMAP:	HLRZ T4,T1		;Get first virtual address
	LSH T4,-PGSFT		;Make page #
	HRRZ T3,T1		;Last VA
	LSH T3,-PGSFT		;Make page #
	MOVE T1,IMMPTR		;Get immediate prototype pointer
	IOR T1,T4		;Make it point to first VA
	DO.			;LOOP
	  CAMLE T4,T3		;  Beyond last?
	  RET			;   -yes, all done
	  MOVEM T1,MMAP(T4)	;  Put pointer in MMAP
	  AOJ T1,		;  Move to next pointer
	  AOJA T4,TOP.		;  Move to next page and loop
	ENDDO.
;Can never get here
	SUBTTL	Set up EDDT in section 0

;STEDDT - set EDDT's environment to section 0
;
;This is accomplished by JSR'ing to FAKDDT in section 0.
; Since we are running in section PCDSEC, and want to return there,
; set up a little program that run in the AC's.

STEDDT:	MOVE 16,[STEDDC,,1]	;Set up to
	BLT 16,5		; move code into AC's 1-5
	XJRST [0,,2]		;Get into Ac 2 in section 0
STEDD1:	RET			;All done

STEDDC:	PHASE 1
	0,,FAKDDT		;[Ac 1] Address to JSR to
	JSR @1			;[Ac 2] JSR to EDDT
	XJRSTF 4		;[Ac 3] Return to PCDSEC
	0			;[Ac 4] PC flags
	PCDSEC,,STEDD1		;[Ac 5] PC
	DEPHASE
	SUBTTL	Write the POSTLD image to disk

;SAVIMG - save the POSTLD image as MONITR.EXE

;Define a macro that will build a SSAVE frame on the stack
DEFINE SSEG ($NAME,$START,$END, %LBL) <
	XLIST
	..NSG=..NSG+2
	MOVE Q1,$END
	MOVE Q2,$START
	HRROI Q3,[ASCIZ /'$NAME/]
	JSP P5,.SVPSX
%LBL:	LIST
>
	..NSG=0			;Initial value

SAVIMG:	TRVAR <SAVJFN,<SAVARG,2>>
	SETOM PLDRUN		;Flag that POSTLD has run
	MOVX T1,GJ%SHT!GJ%FOU	;Short form, next higher generation
	HRROI T2,MONSNM		;Get name to save as
	GTJFN%
	ERJMP .JSERR		; -on error, type out error message and return
	MOVEM T1,SAVJFN		;Save JFN

;Build the arguments to SSAVE. The argument block is built on the stack
	HRLI T1,.FHSLF!FH%EPN	;Ourselves, use extended page #'s
	MOVEI T2,1(P)		;Point to stack frame
	DMOVEM T1,SAVARG	;Save arguments

;Output header
	TMSG <

- POSTLD image layout -

       Start         End        Psect
>

;Build the frames on the stack
	SSEG (<Page 0 and RSCOD>,[EXP 0],[EXP RSCODZ]) ;Page 0 and RSCOD
	SSEG (<INCOD>,[EXP INCOD],[EXP INCODZ])
	SSEG (<RSDAT>,[EXP RSDAT],[EXP RSDATZ])

	MOVE P1,SYMLEN		;Get symbol table length
	ADDI P1,NRVAR+SYMPAD	;Make ending address
	SSEG (<Symbol table>,[EXP NRVAR+SYMPAD],P1)

	SSEG (<ERCOD>,[<ERCOD & 777777>],[<ERCODZ & 777777>])
	SSEG (<BGPTR>,<[XWD MSEC1,<BGSTR & 777777>]>,<[XWD MSEC1,<BGSTRZ & 777777>]>)
	SSEG (<BGSTR>,<[XWD MSEC1,<BGPTR & 777777>]>,<[XWD MSEC1,<BGPTRZ & 777777>]>)

	MOVE P1,PNRCOD		;Get POSTLD start address of NRCOD
	ADDI P1,<NRCODZ-NRCOD>	;Make end address
	SSEG (<NRCOD>,PNRCOD,P1)

	SSEG (<XRCOD>,<[XWD MSEC1,<XRCOD & 777777>]>,<[XWD MSEC1,<XRCODZ & 777777>]>)
	SSEG (<XNCOD>,<[XWD MSEC1,<XNCOD & 777777>]>,<[XWD MSEC1,<XNCODZ & 777777>]>)
	SSEG (<ENCOD>,<[XWD MSEC1,<ENCOD & 777777>]>,<[XWD MSEC1,<ENCODZ & 777777>]>)

;All frames built
	PUSH P,[0]		;Terminate list with a 0

	TMSG <

Saving monitor as >
	MOVEI T1,.PRIOU		;To primary output
	MOVE T2,SAVJFN		;Get JFN again
	SETZ T3,		;No format control
	JFNS%			;Type out the filename string

;Now do the actual SAVE
	DMOVE T1,SAVARG		;Retrieve JFN and address
	SETZ T3,
	SSAVE%			;Save the image
	ADJSP P,-<..NSG+1>	;Fix up stack
	TMSG <

>
	RET
	ENDTV.

;.SVPSX - does the work for SSEG macro in SAVIMG
;
;Call by JSP P5,.SVPSX
;	Q1/ End address
;	Q2/ Start address
;	Q3/ pointer to ASCIZ name of psect to save

.SVPSX:	MOVE T3,Q1		;Get ending address
	LSH T3,-PGSFT		; and make into page number
	MOVE T4,Q2		;Get start address
	LSH T4,-PGSFT		; and make into page number
	SUBI T3,-1(T4)		;Get count of pages to save
	MOVNS T3		;Negate count
	HRLES T3		; and put into left half
	HRRI T3,SS%CPY!SS%RD!SS%EXE!SS%EPN ;Access bits into right half
	PUSH P,T3		;1st word in save frame on stack
	PUSH P,T4		;2nd work (page # to start at) in frame

;Type out pages saved
;
;The display has the following format:
;
;Start	End	Psect

	TMSG <
>				;New line
	MOVE T2,Q2		;Start address
	LSH T2,-PGSFT		; and make into page
	CALL OCTOUC
	MOVE T2,Q1		;Ending address
	LSH T2,-PGSFT		; and make into page
	CALL OCTOUC
	MOVEI T1,.CHTAB		;Then a TAB
	PBOUT%
	MOVE T1,Q3		;Get pointer to name
	PSOUT%

	JRST (P5)		;Return to caller
	SUBTTL	Subroutines

;OCTOUT - output an octal number in free format
;OCTOUC - output an octal number in column format
OCTOUT:	SKIPA T3,[FLD(^D8,NO%RDX)] ;Free format
OCTOUC:	MOVX T3,FLD(^D8,NO%RDX)!NO%LFL!FLD(^D12,NO%COL)
	MOVX T1,.PRIOU		;To primary output
	NOUT%			;Output it
	 JSERR			; - tell error, but continue
	RET

;OUTFIL - open a file for output.
;
;Input:	T1/ pointer to file name
;
;Return +1 if any error, else skip

OUTFIL:	STKVAR <JFN>
	MOVE T2,T1		;Move pointer to name into place
	MOVX T1,GJ%SHT!GJ%FOU	;Short form, next higher generation
	GTJFN%			;Get file
	ERJMP .JSERR		; -type out error and return
	MOVEM T1,JFN		;Save JFN
	MOVX T2,FLD(7,OF%BSZ)!OF%RD!OF%WR
	OPENF%
	IFJER.			;If error,
	  CALL .JSERR		;  type out error message
	  MOVE T1,JFN		;   and release
	  RLJFN%		;    jfn
	   NOP
	  RET
	ENDIF.
	RETSKP			;Success return with JFN in T1
	ENDSV.

;.JSHLT - type out jsys error and halt
.JSHLT:	CALL .JSERR		;Type out error
	HALTF%			; and halt program

;.JSERR - type out jsys error and return
.JSERR:	TMSG <
?Jsys error: >
	MOVX T1,.PRIOU		;To primary output
	HRLOI T2,.FHSLF		;This fork,,last error
	SETZ T3,		;No limit on bytes to transfer
	ERSTR%			;Output error message
	 JFCL
	 JFCL
	TMSG <
>
	RET
	SUBTTL	Variables

PDL:	BLOCK NPDL		;Stack
OVRFLW:	BLOCK 1			;Count of psect overlaps

	END <3,,ENTVEC>		;End of POSTLD