DataMuseum.dk Presents historical artifacts from the history of: Philips Data Systems

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦34150bdd5⟧

    Length: 26810 (0x68ba)
    Notes: pts_type(SC)
    Names: »LDTASK.SC«

Derivation

└─⟦7a1dcd5a9⟧ Bits:30009673 Philips computer tape "600134"
    └─⟦this⟧ »PTMON/LDTASK.SC« 
└─⟦7b35573c9⟧ Bits:30009690 Philips computer tape "600402"
    └─⟦this⟧ »M:AF/LDTASK.SC« 
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
    └─⟦this⟧ »PTMON/LDTASK.SC« 
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
    └─⟦this⟧ »MONGEN/LDTASK.SC« 

	IDENT LDTASK 	REL 11.0 81-06-10 870105041100 

			=2,REL 11.0 81-01-26 
			=2,END OF RELOC. CHECK FAILS (SPECIAL CASE)
			=1,PRR 11.0 80-06-12  BOFE 
			=1,CHECK FOR END OF RELOCATION 
* 
**************************************************
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   LDTASK = LOAD TASK
* 
* 
* 
* 
**************************************************
* 
* 
*   THIS MODULE CONTAINS THE LOAD TASK
*   FOR TOSS MEMORY MANAGEMENT SYSTEMS. 
* 
*   IT CONTAINS TWO ENTRY POINTS: 
* 
*   - LT:DSK   USED IN DISC PAGING SYSTEMS
*   - LT:SWB   USED IN SWAPPABLE WORK BLOCK SYSTEMS 
* 
* 
	EJECT			LDTASK 
* 
* 
*********** 
* ENTRIES * 
*********** 
* 
* 
	ENTRY	LT:DSK	DISC PAGING ENTRY 
	ENTRY	LT:SWB	SWAPPABLE WORK BLOCK ENTRY
	ENTRY	TTABLD	LOAD TASK TTAB
	ENTRY	QLTDSK	ACTIVATE LDTASK AT ENTRY LT:DSK 
	ENTRY	QLTSWB	ACTIVATE LDTASK AT ENTRY LT:SWB 
	ENTRY	QLTASK	ACTIVATE LDTASK 
	ENTRY	LD:ECB	LDTASK ECB AREA 
	ENTRY	LD:BUF	LDTASK BUFFER 
	ENTRY	LD:BUE	END OF BUFFER 
	ENTRY	PQEMTY	PAGE QUEUE EMPTY FLAG 
	ENTRY	LD:STB	LDTASK STACK BASE 
	EJECT			LDTASK 
* 
* 
************* 
* EXTERNALS * 
************* 
* 
* 
	EXTRN	TLSEG1	UPDATE PAGQUE, CSB AND MMU
	EXTRN	TLSEG2	UPDATE CSB AND MMU
	EXTRN	QMEXIT	QUEUE TASK AND EXIT MONITOR TASK
	EXTRN	LKMERR	HALT SYSTEM DUE TO FATAL LKM ERROR
	EXTRN	ACTOT	ACTIVATE TASK
	EXTRN	RELPA2	RELEASE PAGE
	EXTRN	PAGQUE	FREE PAGE QUEUE 
	EXTRN	PAG:QB	QUEUE LINK BACKWARDS
	EXTRN	PAG:PA	PAGE ADDRESS
	EXTRN	PAG:SB	SEGMENT BLOCK ADDRESS 
	EXTRN	SEG:FC	FILE CODE 
	EXTRN	SEG:DS	DISC SECTOR ADDRESS 
	EXTRN	SEG:EL	SEGMENT LENGTH
	EXTRN	SEG:PB	PAGE BLOCK ADDRESS
	EXTRN	SWB:DS	DISC SECTOR ADDRESS OF FIRST COPY 
	EXTRN	SWB:EL	SWB LENGTH (BYTES)
	EXTRN	SWB:NS	SWB LENGTH (SECTORS)
	EXTRN	ECBBA	ECB BUFFER ADDRESS 
	EXTRN	ECBRL	ECB REQUESTED LENGTH 
	EXTRN	ECBEL	ECB EFFECTIVE LENGTH 
	EXTRN	ECBRC	ECB RETURN CODE
	EXTRN	ECBCW1	ECB CONTROL WORD 1
	EXTRN	ECBCW2	ECB CONTROL WORD 2
	EXTRN	TTB:AP	ACB ADDRESS 
	EXTRN	TTB:SA	TTAB SAVE AREA
	EXTRN	TTB:MT	MMU TABLE 
	EXTRN	TTB:CB	CURRENT SEGMENT BASE
	EXTRN	TTB:SP	SEGTAB ADDRESS
	EJECT			LDTASK 
* 
* 
	EXTRN	SCTIPL	PROGRAM LOADING DEVICE
	EXTRN	SCTPSZ	PAGE SIZE 
	EXTRN	ACBLAP	LOGICAL ADDRESS OF PAGES
	EJECT			LDTASK 
* 
* 
***************************************** 
* 
*	CONDITIONAL ASSEMBLY
* 
***************************************** 
* 
*	A PROGRAM VERSION USING TOSS MMU PAGING 
*	IS OBTAINED BY SETTING MMUPAG EQU 1.
* 
MMUPAG	EQU	1
* 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	0
* 
* 
*	A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK 
*	BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. 
* 
SWPBLK	EQU	0
* 
* 
*	A PROGRAM VERSION SPECIALIZED FOR THE 857 CPU 
*	IS OBTAINED BY SETTING CPU857 EQU 1.
* 
X:B	EQU	0 
CPU857	EQU	X:B
* 
	EJECT			LDTASK 
* 
* 
*	A PROGRAM VERSION USING TOSS ASSEMBLER PAGING 
*	IS OBTAINED BY SETTING ASMPAG EQU 1.
* 
X:C	EQU	0 
ASMPAG	EQU	X:C
* 
	EJECT			LDTASK 
* 
* 
***************************** 
* ECB, STACK AND DATA AREAS * 
***************************** 
* 
* 
LD:ECB	DATA	0,0,0,0,0,0,0	LDTASK ECB AREA 
* 
LD:BUF	RES	128	INTERMEDIATE BUFFER FOR LOAD TASK
LD:BUE	EQU	*	END OF BUFFER
* 
	RES	4	LDTASK STACK (TWO LEVELS)
LD:STB	EQU	*-2	LOAD TASK STACK BASE 
* 
PQEMTY	DATA	0	PAGE QUEUE EMPTY FLAG 
* 
	IFT	MMUPAG=1 
LD:LAD	DATA	0	LOGICAL ADDRESS POINTER 
	XIF
* 
	EJECT			LDTASK 
* 
* 
**********
* TTABLD *
**********
* 
*	LDTASK TTAB 
* 
	IFT	MMUPAG=1 
	RES	16	LDTASK MMU TABLE
	XIF
* 
	DATA	0	CURRENT SEGMENT BASE (DUMMY)
	DATA	0	SEGMENT TABLE ADDRESS (DUMMY) 
	DATA	0	SEGMENT BLOCK ADDRESS (DUMMY) 
	DATA	0	ACB ADDRESS (DUMMY) 
* 
TTABLD	EQU	*	TTABLD ENTRY 
	DATA	0	DISPATCHER QUEUE LINK 
	DATA	'#L'	TASK IDENTIFICATION
	DATA	49	PRIORITY LEVEL 
	DATA	0	PENDING POINTER 
	DATA	/C4C0	PSW (PROGRAM STATUS WORD) 
	DATA	0	DISPATCH ADDRESS
	DATA	0,0,0,0,0,0,0	REGISTER SAVE AREA, A1-A14
	DATA	0,0,0,0,0,0,0 
	DATA	2	TASK DEVICE TABLE (DUMMY) 
* 
	EJECT			LDTASK 
* 
* 
**********
* LT:SWB *
**********
* 
* 
*   LT:SWB HANDLES THE LOADING/STORING OF SWAPPABLE WORK BLOCKS.
* 
*   INPUT:  A1 = SWAPPABLE WORK BLOCK ADDRESS 
*           A3 = TTAB ADDRESS OF CALLING TASK 
*	   A4 = LKM DATA DIRECTIVE
* 
* 
LT:SWB	EQU	*	LDTASK SWB HANDLING ENTRY
	IFT	SWPBLK=1 
	IFT	MMUPAG=1 
	INH
	LDKL	A5,TTABLD	LDTASK TTAB ADDRESS 
	TL	TTB:MT,A3	LOAD MMU WITH CALLING TASK
	TS	TTB:MT,A5	STORE IN LDTASK MMU TABLE 
	ENB
	XIF
* 
	IFT	SWPBLK=1 
	LDR	A5,A3	TTAB ADDRESS OF CALLING TASK 
	LDR	A7,A4	LKM DATA DIRECTIVE 
	SUR	A9,A9	INDICATE SWB HANDLING (NO SEGBLK)
	LDR*	A3,A1	DISC ADDRESS OF FIRST COPY
	ANK	A3,/FF 
	LD	A4,SWB:DS,A1
	LD	A6,SWB:EL,A1	SWB COPY LENGTH (BYTES)
	LD	A2,SWB:NS,A1	SWB COPY LENGTH (SECTORS)
* 
	EJECT			LDTASK 
* 
*	COMPUTE DISC ADDRESS OF REQUESTED SWB 
* 
	LD	A1,TTB:SA+14,A5 
	ANK	A1,/FF	SWB COPY INDEX
* 
LTS:10	EQU	*
	SUK	A1,1 
* 
	IFT	CPU852=1 
	RF(NP)	LTS:20
	ADR	A4,A2	COMPUTE DISC ADDRESS OF REQUESTED SWB
	RF(O)	LTS:15	OVERFLOW
	RB	LTS:10
* 
LTS:15	EQU	*	OVERFLOW CORRECTION
	ADK	A3,1 
	ANKL	A4,/7FFF
	RB	LTS:10
* 
LTS:20	EQU	*
	LDR	A1,A3	DISC ADDRESS OF REQUESTED SWB
	LDR	A2,A4
	XIF
* 
	IFT	SWPBLK=1 
	IFT	CPU852=0 
	MUR	A1 
	DAR	A3 
	XIF
* 
	EJECT			LDTASK 
* 
* 
	IFT	SWPBLK=1 
	LD	A3,TTB:SA+16,A5	MEMORY ADDRESS (LOGICAL)
	ADK	A6,1 
	LDR	A4,A6
	LD	A12,SCTIPL	SWB DISC FILE CODE 
	SUK	A7,19	CHECK LKM DATA DIRECTIVE 
	RF(Z)	LTSWB1	LOAD SWB
	LDKL	A4,/7FFF	PARAMETER TO AVOID INTERMEDIATE BUFFER 
	LDK	A7,/95	PHYSICAL WRITE
	RF	LTSWB2	STORE SWB
	XIF
* 
	EJECT			LDTASK 
* 
* 
**********
* LT:DSK *
**********
* 
* 
*   LT:DSK PERFORMS LOADING OF DISC RESIDENT SEGMENTS INTO CORE.
* 
*   INPUT:  A1 = SEGMENT BLOCK ADDRESS
*           A3 = TTAB ADDRESS OF CALLING TASK 
* 
* 
LT:DSK	EQU	*	LDTASK DISC PAGING ENTRY 
	LDR	A5,A3	TTAB ADDRESS OF CALLING TASK 
	LDR*	A2,A1	SEGMENT STATUS
	RF(NN)	LTD:05	SEGMENT NOT LOADED IN CORE 
* 
*	UPDATE MMU TABLE FOR CALLING TASK (IF MMU), 
*	UPDATE CURRENT SEGMENT BASE,
*	AND REMOVE PAGE FROM PAGQUE.
* 
	LDR	A7,A3	TTAB ADDRESS 
	INH
	CF	A15,TLSEG1
	LDR	A5,A7	TTAB ADDRESS OF CALLING TASK 
	ABL	QMEXIT	QUEUE TASK AND EXIT LDTASK
* 
	EJECT			LDTASK 
* 
*	NO PAGE AVAILABLE. PAUSE LDTASK UNTIL RESTARTED 
*	BY RELPAG WHEN PAGE AVAILABLE AGAIN.
* 
LTD:00	EQU	*
	IM	PQEMTY	INDICATE PAGE QUEUE EMPTY
	LKM
	DATA	5	PAUSE LDTASK
* 
*	TAKE LEAST RECENTLY USED PAGE FROM PAGQUE 
* 
LTD:05	EQU	*
	LD	A2,PAGQUE+2 
	CWK	A2,PAGQUE
	RB(E)	LTD:00	NO PAGE AVAILABLE 
* 
	EJECT			LDTASK 
* 
*	TAKE FOUND PAGE OUT OF PAGQUE 
* 
	INH
	LD	A4,PAG:QB,A2	ADDRESS TO NEXT PAGE BLOCK 
	ST	A4,PAGQUE+2	UPDATE QUEUE ANCHOR 
	LDR*	A6,A2	PAGQUE ADDRESS
	STR	A6,A4	UPDATE QUEUE LINK FORWARD NEXT BLOCK 
	CMR	A2	RESET QUEUE LINK FORWARD THIS BLOCK 
	LD	A4,PAG:SB,A2	OLD SEGMENT BLOCK ADDRESS
	RF(Z)	LTD:10 
	LDKL	A6,/7FFF
	ANRS	A6,A4	INDICATE SEGMENT NOT LOADED ANYMORE 
* 
*	CONNECT PAGBLK AND SEGBLK 
* 
LTD:10	EQU	*
	ST	A2,SEG:PB,A1	SET NEW PAGE BLOCK ADDRESS 
	ST	A1,PAG:SB,A2	SET NEW SEGMENT BLOCK ADDRESS
* 
	IFT	MMUPAG=1 
* 
*	UPDATE MMU TABLE FOR CALLING TASK AND LDTASK
* 
	LDKL	A3,TTABLD	LDTASK TTAB ADDRESS 
	MS	5,TTB:SA+2,A3	SAVE A1-A5 IN TTAB SAVE AREA
	TL	TTB:MT,A5	LOAD MMU WITH CALLING TASK
	TS	TTB:MT,A3	STORE IN LDTASK MMU TABLE 
	LD	A1,TTB:CB,A5	CURRENT SEGMENT BASE ADDRESS 
	ST	A1,TTB:CB,A3
	LD	A1,TTB:AP,A5	GET ACB ADDRESS
	ST	A1,TTB:AP,A3	STORE IN LDTASK'S TTAB 
	LDR	A1,A2
	LDR	A5,A3	LDTASK TTAB ADDRESS
	CF	A15,TLSEG2	UPDATE MMU TABLE FOR LDTASK
	TS	TTB:MT,A5	STORE NEW MMU TABLE FOR CALLING TASK
	XIF
* 
	EJECT			LDTASK 
* 
*	PREPARE FOR READING OF SEGMENT
* 
	ENB
	LD	A3,PAG:PA,A2	PAGE ADDRESS (PHYSICAL)
	LD	A4,SCTPSZ	PAGE SIZE 
	LD	A6,SEG:EL,A1	SEGMENT LENGTH 
	LDR	A9,A1	SAVE SEGMENT BLOCK ADDRESS 
	LD	A12,TTB:SP,A5	SEGTAB ADDRESS
	LD	A12,SEG:FC,A12	SEGMENT DISC FILE CODE 
* 
	IFT	CPU852=1 
	LD	A2,SEG:DS,A1	SEGMENT DISC ADDRESS 
	LDR*	A1,A1 
	XIF
* 
	IFT	CPU852=0 
	MLR	2,A9	DISC SECTOR ADDRESS 
	XIF
* 
	IFT	MMUPAG=0 
	ST*	A3,TTB:CB,A5	UPDATE CURRENT SEGMENT BASE 
	XIF
* 
	EJECT			LDTASK 
* 
* 
	IFT	SWPBLK=1 
* 
* 
**********
* LTSWB1 *
* LTSWB2 *
**********
* 
* 
*   ENTRIES USED BY LDTASK WHEN ACTIVATED AT LT:SWB.
*   BELOW THIS POINT SWB HANDLING IS SIMILAR TO 
*   DISC PAGING HANDLING. 
* 
*   INPUT:  A1 = DISC SECTOR NUMBER, PART 1 
*           A2 =  "      "      "  , PART 2 
*           A3 = MEMORY ADDRESS (LOGICAL) 
*           A4 = SWB SIZE (BYTES) 
*           A5 = TTAB ADDRESS CALLING TASK
*           A6 = SWB SIZE (BYTES) 
*           A7 = ORDER CODE, PHYSICAL WRITE (LTSWB2 ONLY) 
*           A9 = 0 (INDICATES SWB HANDLING BY SETTING SEGBLK ADDRESS = 0) 
*          A12 = DISC FILE CODE 
* 
* 
	XIF
* 
LTSWB1	EQU	*	ENTRY USED BY LT:SWB 
	ANK	A1,/FF 
	LDK	A7,/91	PHYSICAL READ 
* 
	EJECT			LDTASK 
* 
* 
LTSWB2	EQU	*	ENTRY USED BY LT:SWB 
	SRL	A4,1 
	LDR	A11,A4	PAGE/SWB SIZE (WORDS) 
	SRL	A6,1 
	LDR	A10,A6	SEGMENT/SWB SIZE (WORDS)
* 
*	SET ECB PARAMETERS
* 
	LDKL	A8,LD:ECB	LD:ECB ADDRESS
	STR	A12,A8	SET DISC FILE CODE IN ECB 
	CM	ECBEL,A8	RESET EFFECTIVE LENGTH 
	LDR	A12,A3 
	LDKL	A14,LD:STB	LDTASK STACK BASE
* 
	IFT	CPU852=1 
	ST	A1,ECBCW1,A8	SET SECTOR NUMBER IN ECB 
	ST	A2,ECBCW2,A8
	XIF
* 
	IFT	CPU852=0 
	MS	2,ECBCW1,A8	SET SECTOR NUMBER IN ECB
	XIF
* 
	EJECT			LDTASK 
* 
* 
	IFT	MMUPAG=1 
	ECR	A1,A3
* 
	IFT	SWPBLK=1 
	LDR	A9,A9	CHECK SEGBLK ADDRESS (=0 IF SWB) 
	RF(NZ)	LTD:30	DISC PAGING REQUEST
* 
	EJECT			LDTASK 
* 
*	SWB: CONVERT LOGICAL ADDRESS TO PHYSICAL
* 
	SRL	A1,3 
	ANK	A1,/1E	MMUTAB INDEX (5 BITS) 
	ADR	A1,A5	ADD TTAB ADDRESS 
	LC	A1,TTB:MT,A1	PHYSICAL PAGE ADDRESS
	LDR	A2,A1
	ANK	A2,/3C 
	SRC	A2,6 
	ANKL	A3,/FFF 
	ORR	A3,A2
	RF	LTD:40
	XIF
* 
LTD:30	EQU	*
	IFT	MMUPAG=1 
* 
*	SEGMENT: CONVERT PHYSICAL ADDRESS TO LOGICAL
* 
	SLL	A3,2 
	LD	A2,TTB:AP,A5	ACB ADDRESS
	LDR	A12,A3 
	ANKL	A12,/FFF	CONVERT PHYSICAL ADDRESS TO LOGICAL
	OR	A12,ACBLAP,A2 
* 
LTD:40	EQU	*
	SRL	A1,2 
	ANK	A1,/30 
	SCR	A1,A8
	XIF
* 
	EJECT			LDTASK 
* 
* 
	ST	A3,ECBBA,A8	SET BUFFER ADDRESS
* 
	IFT	SWPBLK=1 
	LDR	A9,A9	CHECK SEGBLK ADDRESS (=0 IF SWB) 
	RF(Z)	LTD:45	SWB HANDLING
	XIF
* 
	IFT	ASMPAG=1 
	LDR*	A1,A9	SEGMENT STATUS
	SLL	A1,1	CHECK IF ASSEMBLER SEGMENT
	RF(N)	ASSPAG	YES, ASSEMBLER SEGMENT
	XIF
* 
*	COMPUTE REQUESTED LENGTH AND
*	CHECK IF ONE OR TWO LKM:S NECCESSARY
* 
LTD:45	EQU	*
	ADKL	A10,127	NEXT HIGHER MULTIPLE OF 128 
	ANKL	A10,/7F80 
	SUR	A4,A10	CHECK IF PAGE IS LARGE ENOUGH 
	RF(NN)	LTD:50	OK, JUST ONE LKM NEEDED
	LDR	A10,A6 
	ANKL	A10,/7F80	NEXT LOWER MULTIPLE OF 128
* 
LTD:50	EQU	*
	SUR	A6,A10	REMAINING LENGTH TO MOVE IN 2ND LKM 
	ADR	A10,A10	CONVERT LENGTH TO BYTES
	RF(Z)	LTD:55	INTERMEDIATE BUFFER NEEDED
	ST	A10,ECBRL,A8	SET REQUESTED LENGTH IN ECB
* 
	EJECT			LDTASK 
* 
*	READ/WRITE SEGMENT SWB
* 
	CF	A14,LD:IO	READ/WRITE SEGMENT/SWB
	ADK	A6,0	CHECK IF ANYTHING LEFT TO READ/WRITE
	RF(NP)	LDEXIT	SEGMENT/SWB HANDLING FINISHED
* 
LTD:55	EQU	*
	CF	A14,LDSECT	READ AND MOVE LAST PART OF SEGMENT/SWB 
* 
*	COMMON EXIT FOR DISC PAGING, ASSEMBLER PAGING 
*	AND SWAPPABLE WORK BLOCK HANDLING REQUESTS. 
* 
LDEXIT	EQU	*
	IFT	SWPBLK=1 
	LDR	A9,A9	CHECK SEGBLK ADDRESS (=0 IF SWB) 
	RF(Z)	LDEXI3	SWB HANDLING
	XIF
* 
	LDKL	A4,/8000	INDICATE SEGMENT SUCCESSFULLY LOADED 
* 
LDEXI2	EQU	*
	ORRS	A4,A9 
* 
LDEXI3	EQU	*
	ABL	QMEXIT	QUEUE TASK AND EXIT LDTASK
* 
	EJECT			LDTASK 
* 
* 
**********
* LD:IO  *
**********
* 
* 
*   LDTASK I/O ROUTINE FOR READING/WRITING FROM/TO DISC.
*   IF I/O ERROR IS DETECTED LOADING IS ABORTED AND THE 
*   PAGE IS INSERTED INTO PAGQUE AGAIN. CREDIT APPLICATIONS 
*   ARE RESTARTED AT THE SPECIFIED REENTER ADDRESS. 
* 
*   INPUT:  A5 = TTAB ADDRESS OF CALLING TASK 
*	   A7 = ORDER CODE
*	   A8 = LD:ECB ADDRESS
*	   A9 = SEGBLK ADDRESS (=0 IF SWB)
* 
*   OUTPUT: A2 IS DESTROYED 
* 
* 
LD:IO	EQU	* 
	LKM
	DATA	1 
* 
*	CHECK RETURN CODE AND ABORT IF ERROR
* 
	LD	A2,ECBRC,A8	RETURN CODE 
	ANKL	A2,/FEFF	SKIP RETRY BIT 
	RF(NZ)	LDIO10	DISC ERROR 
	RTN	A14	NO, RETURN 
* 
	EJECT			LDTASK 
* 
*	ERROR: SET RETURN CODE IN A7 OF CALLING TASK
* 
LDIO10	ANK	A2,1 
	NGR	A2,A2
	SUK	A2,2	ERROR, SET RETURN CODE -2 OR -3 
 	ST	A2,TTB:SA+14,A5	SET RETURN CODE IN A7
* 
	IFT	SWPBLK=1 
	LDR	A9,A9	CHECK SEGBLK ADDRESS (=0 IF SWB) 
	RB(Z)	LDEXI3	SWB HANDLING
	XIF
* 
*	INSERT PAGE IN PAGQUE AGAIN 
* 
	LD	A3,SEG:PB,A9	PAGE BLOCK ADDRESS 
	INH
	CF	A15,RELPA2	RELEASE PAGE 
* 
	IFT	ASMPAG=1 
	LDR*	A4,A9	SEGMENT STATUS
	SLL	A4,1	CHECK IF ASSEMBLER SEGMENT
	RF(N)	LDIO20	YES, ASSEMBLER SEGMENT
	XIF
* 
	LD*	A4,TTB:AP,A5	APPLICATION RESTART ADDRESS 
	ST	A4,TTB:SA,A5	SET NEW DISPATCH ADDRESS 
* 
LDIO20	EQU	*
	LDKL	A4,/100	SEGMENT ERROR BIT 
	RB	LDEXI2
* 
	EJECT			LDTASK 
* 
* 
	IFT	ASMPAG=1 
* 
* 
**********
* ASSPAG *
**********
* 
* 
*   THIS ENTRY IS CALLED FROM THE LDTASK MAIN FLOW
*   WHEN LOADING OF AN ASSEMBLER SEGMENT IS WANTED. 
*   ASSPAG WILL READ ONE SECTOR AT A TIME AND 
*   PERFORM THE NECESSARY RELOCATIONS.
* 
*   INPUT:  A5 = TTAB ADDRESS OF CALLING TASK 
*	   A7 = ORDER CODE, PHYSICAL READ (/91) 
*	   A8 = LD:ECB ADDRESS
*	   A9 = SEGBLK ADDRESS
*	  A10 = SEGMENT LENGTH (WORDS)
*	  A11 = PAGE SIZE (WORDS) 
*	  A12 = PAGE ADDRESS (RELOCATION BASE)
* 
* 
ASSPAG	EQU	*	ASSEMBLER PAGING ENTRY 
	LDK	A1,1 
	SC	A1,ECBRL,A8	REQUESTED LENGTH := 256 
* 
	IFT	MMUPAG=1 
	ST	A12,LD:LAD	SAVE LOGICAL ADDRESS TO PAGE 
	XIF
* 
	EJECT			LDTASK 
* 
* 
	IFT	ASMPAG=1 
* 
*	PREPARE FOR RELOCATION OF ONE SECTOR AND
*	CHECK REMAINING PAGE SIZE. IF NOT LARGE ENOUGH
*	THEN READ (LAST) SECTOR TO INTERMEDIATE BUFFER, 
*	ELSE READ SECTOR DIRECTLY TO ALLOCATED PAGE.
* 
ASS:00	EQU	*	ASSEMBLER PAGING MAIN LOOP ENTRY 
	IFT	MMUPAG=0 
	LD	A1,ECBBA,A8	SEGMENT POINTER 
* 
	XIF
* 
	IFT	ASMPAG=1 
	IFT	MMUPAG=1 
	LD	A1,LD:LAD	GET LOGICAL ADDRESS POINTER 
	XIF
* 
	IFT	ASMPAG=1 
	CWK	A11,128	CHECK REMAINING PAGE SIZE
	RF(L)	ASS:85	INTERMEDIATE BUFFER NEEDED
	SUKL	A11,120	REMAINING PAGE SIZE 
	CF	A14,LD:IO	READ SECTOR 
	LDK	A2,240	CALC ADDRESS TO RELOCATION BITS 
	CWK	A10,120
	RF(NL)	ASS:02
	LDR	A2,A10 
	ADR	A2,A2
* 
ASS:02	EQU	*
	ADR	A2,A1
* 
	EJECT			LDTASK 
* 
*	RELOCATE ONE SEGMENT SECTOR 
* 
ASS:05	EQU	*
	SRL	A2,1	WORD ADDRESS
	LDR	A13,A2	RELOCATION END, THIS SECTOR 
	SLL	A2,1 
* 
ASS:10	EQU	*
	LDK	A3,16	RELOCATION BITS COUNTER
* 
	IFT	MMUPAG=1 
	LDR	A8,A8	CHECK WHERE TO FIND RELOCATION BITS
	RF(Z)	ASS:15	RELOCATION BITS IN LD:BUF 
	ELR	A4,A2	16 RELOCATION BITS 
	RF	ASS:20
	XIF
* 
	IFT	ASMPAG=1 
ASS:15	EQU	*
	LDR*	A4,A2	16 RELOCATION BITS
* 
ASS:20	EQU	*
	RF(NZ)	ASS:40	RELOCATION NEEDED
* 
ASS:25	EQU	*
	LDR	A6,A3	NUMBER OF RELOCATION BITS TO SKIP
	RF	ASS:45
* 
	EJECT			LDTASK 
* 
* 
ASS:30	EQU	*
	SLL	A4,1	NEXT RELOCATION BIT TO TEST 
	RB(Z)	ASS:25	NEXT RELOCATION WORD
* 
ASS:40	EQU	*
	RF(N)	ASS:50	RELOCATION NEEDED 
	SLN	A4,A6	SKIP ALL ZERO BITS 
	ADK	A1,2	INCREMENT SEGMENT POINTER 
* 
ASS:45	EQU	*
	SUR	A3,A6	UPDATE RELOCATION BITS COUNTER 
	SRL	A1,1	WORD ADDRESS FOR SEGMENT POINTER	=1 
	ADR	A1,A6	UPDATE SEGMENT POINTER (WORD)	=1 
	RF(O)	ASS:70	ALL RELOCATED,END OF SECTOR	=1
	SLL	A1,1	BYTE ADDRESS FOR SEGMENT POINTER	=1 
	RF	ASS:60	GO AND CHECK IF END OF SECTOR
* 
	EJECT			LDTASK 
* 
*	RELOCATE ONE WORD 
* 
ASS:50	EQU	*
	IFT	MMUPAG=0 
	ADRS	A12,A1	ADD RELOCATION BASE
	XIF
* 
	IFT	ASMPAG=1 
	IFT	MMUPAG=1 
	ELR	A6,A1	WORD TO RELOCATE 
	ADR	A6,A12	ADD RELOCATION BASE 
	ESR	A6,A1	STORE RELOCATED WORD 
	XIF
* 
	IFT	ASMPAG=1 
	ADK	A1,2	INCREMENT SEGMENT POINTER 
* 
*	CHECK IF END OF SECTOR OR IF NEW RELOCATION WORD NEEDED 
* 
ASS:60	EQU	*
	LDR	A6,A1	SEGMENT POINTER
	SRL	A6,1	WORD ADDRESS
	SUR	A6,A13	COMPARE WITH END OF REL. ADDRESS	=2 
	ADK	A6,0	SET CR	=2 
	RF(NN)	ASS:70	END OF SECTOR	=2 
	SUK	A3,1	DECREMENT RELOCATION BITS COUNTER 
	RB(P)	ASS:30	MORE RELOCATION BITS
	ADK	A2,2	INCREMENT RELOCATION BITS POINTER 
	RB	ASS:10	NEXT RELOCATION BITS WORD
* 
	EJECT			LDTASK 
* 
*	RETURN IF SEGMENT LOADING IS COMPLETED, 
*	ELSE PREPARE FOR READING OF NEXT SECTOR.
* 
ASS:70	EQU	*
	SUKL	A10,120	DECREMENT SEGMENT LENGTH
	RB(NP)	LDEXIT	SEGMENT LOADING COMPLETED
	LDK	A4,240 
* 
	IFT	MMUPAG=0 
	ADS	A4,ECBBA,A8	UPDATE PAGE ADDRESS
	XIF
* 
	IFT	ASMPAG=1 
	IFT	MMUPAG=1 
	ADS	A4,LD:LAD	UPDATE LOGICAL ADDRESS POINTER 
	LDK	A3,0 
	MLR	2,A8	BUFFER ADDRESS
	SLC	A1,4 
	DLL	1
	SRL	A2,1 
	DAR	A3 
	SLL	A2,1 
	DRL	1
	SRC	A1,4 
	MSR	2,A8	SET UPDATED BUFFER ADDRESS IN ECB 
	XIF
* 
	EJECT			LDTASK 
* 
* 
	IFT	ASMPAG=1 
	IM	ECBCW2,A8	INCREMENT SECTOR NUMBER 
	RF(O)	ASS:80	OVERFLOW
	RB	ASS:00	READ NEXT SECTOR TO PAGE 
* 
ASS:80	EQU	*
	LDKL	A4,/7FFF	OVERFLOW CORRECTION
	ANS	A4,ECBCW2,A8 
	IM	ECBCW1,A8 
	RB	ASS:00	READ NEXT SECTOR TO PAGE 
* 
	EJECT			LDTASK 
* 
*	READ LAST SECTOR TO INTERMEDIATE BUFFER.
*	MOVE CODE BUT NOT RELOCATION BITS TO PAGE.
* 
ASS:85	EQU	*
	LDR	A13,A10	SAVE REMAINING SEGMENT LENGTH
	LDR	A6,A10 
	LDR	A11,A12	SAVE RELOCATION BASE 
	LDR	A12,A1	ACTUAL PAGE ADDRESS 
	SUR	A10,A10	MEANS,DON'T UPDATE SEC NBR IN LDSEC2 
	CF	A14,LDSEC2	READ SECTOR AND MOVE IT TO PAGE
	LDR	A1,A12	LOGICAL ADDRESS OF CODE TO RELOCATE 
	LDR	A10,A13
	LDR	A2,A13	REMAINING SEGMENT LENGTH (WORDS)
	ADR	A2,A2	DISPL. IN SECTOR TO RELOCATION BITS
	ADKL	A2,LD:BUF	ADDRESS TO RELOCATION BITS
* 
	IFT	MMUPAG=1 
	SUR	A8,A8	INDICATE RELOCATION BITS IN LD:BUF 
	XIF
* 
	IFT	ASMPAG=1 
	SRL	A1,1 
	ADR	A13,A1	VIRTUAL BEGINNING OF RELOCATION BITS
	LDR	A1,A12	LOGICAL ADDRESS OF CODE TO RELOCATE 
	LDR	A12,A11	RESTORE RELOCATION BASE
	RB	ASS:10	RELOCATE LAST SECTOR AND RETURN
	XIF
* 
	EJECT			LDTASK 
* 
* 
**********
* LDSECT *
* LDSEC2 *
**********
* 
* 
*   NOT ROOM ENOUGH IN PAGE FOR LAST SECTOR:
*   READ IT TO MEMORY VIA INTERMEDIATE BUFFER 
* 
*   INPUT:  A6 = NO OF WORDS TO MOVE
*           A8 = LD:ECB ADDRESS 
*	   A9 = SEGBLK ADDRESS (=0 IF SWB)
*          A10 = EFFECTIVE LENGTH, LAST I/O 
*          A12 = LAST USED PAGE ADDRESS, LOGICAL (LDSECT ONLY)
*	      = ACTUAL PAGE ADDRESS, LOGICAL (LDSEC2 ONLY)
* 
*   OUTPUT: A6 = 0
*          A12 = ACTUAL PAGE ADDRESS (LOGICAL)
*           A1-A4, A7, A10 ARE DESTROYED
* 
* 
LDSECT	EQU	*
	ADR	A12,A10	UPDATE DESTINATION POINTER 
* 
	EJECT			LDTASK 
* 
*	SET ECB PARAMETERS
* 
LDSEC2	EQU	*
	IFT	CPU852=1 
	LDKL	A1,LD:BUF	LDTASK BUFFER ADDRESS 
	ST	A1,ECBBA,A8 
	LDK	A2,/80 
	SCR	A2,A8	INDICATE BUFFER NOW IN SYSTEM AREA 
	ADK	A2,/80	A2 := 256 
	ST	A2,ECBRL,A8	SET REQUESTED LENGTH TO ONE SECTOR
	LDKL	A4,/7FFF
	XIF
* 
	IFT	CPU852=0 
	MLK	4
	DATA	LD:BUF,256
	DATA	/80,/7FFF 
	SCR	A3,A8	INDICATE BUFFER NOW IN SYSTEM AREA 
	MS	2,ECBBA,A8	SET BUFFER AND REQUESTED LENGTH
	XIF
* 
	ECR	A2,A10 
	ADS	A2,ECBCW2,A8	UPDATE SECTOR NUMBER
	RF(O)	LDS:30	OVERFLOW
* 
LDS:10	EQU	*
	CF	A14,LD:IO	READ ONE SECTOR TO LD:BUF 
	LDR	A2,A12	DESTINATION POINTER 
	ADR	A6,A6	CONVERT LENGTH TO BYTES
* 
	EJECT			LDTASK 
* 
*	MOVE LAST PART OF SEGMENT/SWB 
* 
	IFT	MMUPAG=1 
	MVSU	A6	MOVE LAST PART OF SEGMENT/SWB
	XIF
* 
LDS:20	EQU	*
	IFT	MMUPAG=0 
	IFT	CPU852=1 
	LDR*	A10,A1	MOVE ONE WORD
	STR	A10,A2 
	ADK	A1,2	INCREMENT BUFFER POINTERS 
	ADK	A2,2 
	SUK	A6,2	DECREMENT COUNTER 
	RB(P)	LDS:20 
	XIF
* 
	IFT	MMUPAG=0 
	IFT	CPU852=0 
	IFT	CPU852=0 
	LDR*	A10,A1	MOVE ONE WORD
	STR	A10,A2 
	ADK	A1,2	INCREMENT BUFFER POINTERS 
	ADK	A2,2 
	SUK	A6,2	DECREMENT COUNTER 
	RB(P)	LDS:20 
	XIF
* 
	IFT	MMUPAG=0 
	IFT	CPU852=0 
	IFT	CPU857=1 
	MVB	A6	MOVE REMAINING PART OF SEGMENT TO PAGE
	XIF
* 
	RTN	A14
* 
LDS:30	EQU	*
	IM	ECBCW1,A8	OVERFLOW CORRECTION 
	ANS	A4,ECBCW2,A8 
	RB	LDS:10
* 
	EJECT			LDTASK 
* 
* 
**********
* QLTDSK *
* QLTSWB *
**********
* 
* 
*   THIS ROUTINE PERFORMS ACTIVATION OF THE LOAD TASK.
* 
*   ACTIVATION IS AT LT:DSK WHEN DISC PAGING REQUEST. 
*   ACTIVATION IS AT LT:SWB WHEN SWAPPABLE WORK BLOCK REQUEST.
* 
*   INPUT:  A1 = SEGMENT BLOCK ADDRESS (LT:DSK) 
*  	      = SWAPPABLE WORK BLOCK ADDRESS (LT:SWB) 
*           A3 = TTAB ADDRESS OF CALLING TASK 
*	   A4 = LKM DATA DIRECTIVE (LT:SWB) 
* 
*   OUTPUT: A2, A5 ARE DESTROYED
* 
* 
QLTSWB	EQU	*	ACTIVATE LDTASK AT ENTRY LT:SWB
	IFT	SWPBLK=1 
	LDKL	A2,LT:SWB	DISPATCH ADDRESS
	RF	QLTASK
	XIF
* 
	IFT	SWPBLK=0 
	ABL	LKMERR	INDICATE SYSGEN ERROR AND HALT SYSTEM 
	XIF
* 
QLTDSK	EQU	*	ACTIVATE LDTASK AT ENTRY LT:DSK
	LDKL	A2,LT:DSK	DISPATCH ADDRESS
* 
	EJECT			LDTASK 
* 
* 
QLTASK	EQU	*
	LDKL	A5,TTABLD	LDTASK TTAB ADDRESS 
	ABL	ACTOT	ACTIVATE LDTASK
* 
* 
* 
	END

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT LDTASK  REL 11.0 81-06-10 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005e              Head {h00=0x001c, h01=0x0050, text=»   =2,REL 11.0 81-01-26 «, t00=0x0000, t01=0x0042}
0x005e…0094              Head {h00=0x0032, h01=0x0050, text=»   =2,END OF RELOC. CHECK FAILS (SPECIAL CASE)«, t00=0x0000, t01=0x0062}
0x0094…00ba              Head {h00=0x0022, h01=0x0050, text=»   =1,PRR 11.0 80-06-12  BOFE «, t00=0x0000, t01=0x0098}
0x00ba…00e4              Head {h00=0x0026, h01=0x0050, text=»   =1,CHECK FOR END OF RELOCATION «, t00=0x0000, t01=0x00be}
0x00e4…00ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e8}
0x00ee…0128              Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x00f2}
0x0128…0132              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012c}
0x0132…015a              Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0136}
0x015a…0164              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015e}
0x0164…0182              Head {h00=0x001a, h01=0x0050, text=»*   LDTASK = LOAD TASK«, t00=0x0000, t01=0x0168}
0x0182…018c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0186}
0x018c…0196              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0190}
0x0196…01a0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000a}
0x01a0…01aa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0014}
0x01aa…01e4              Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x001e}
0x01e4…01ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0058}
0x01ee…01f8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0062}
0x01f8…0226              Head {h00=0x002a, h01=0x0050, text=»*   THIS MODULE CONTAINS THE LOAD TASK«, t00=0x0001, t01=0x006c}
0x0226…0256              Head {h00=0x002c, h01=0x0050, text=»*   FOR TOSS MEMORY MANAGEMENT SYSTEMS. «, t00=0x0001, t01=0x009a}
0x0256…0260              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ca}
0x0260…028a              Head {h00=0x0026, h01=0x0050, text=»*   IT CONTAINS TWO ENTRY POINTS: «, t00=0x0001, t01=0x00d4}
0x028a…0294              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fe}
0x0294…02c6              Head {h00=0x002e, h01=0x0050, text=»*   - LT:DSK   USED IN DISC PAGING SYSTEMS«, t00=0x0001, t01=0x0108}
0x02c6…0302              Head {h00=0x0038, h01=0x0050, text=»*   - LT:SWB   USED IN SWAPPABLE WORK BLOCK SYSTEMS «, t00=0x0001, t01=0x013a}
0x0302…030c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0176}
0x030c…0316              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0180}
0x0316…032e              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x0001, t01=0x018a}
0x032e…0338              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0012}
0x0338…0342              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001c}
0x0342…0356              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x0026}
0x0356…036a              Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x003a}
0x036a…037e              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x004e}
0x037e…0388              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0062}
0x0388…0392              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006c}
0x0392…03ba              Head {h00=0x0024, h01=0x0050, text=» ENTRY LT:DSK DISC PAGING ENTRY «, t00=0x0002, t01=0x0076}
0x03ba…03ea              Head {h00=0x002c, h01=0x0050, text=» ENTRY LT:SWB SWAPPABLE WORK BLOCK ENTRY«, t00=0x0002, t01=0x009e}
0x03ea…040e              Head {h00=0x0020, h01=0x0050, text=» ENTRY TTABLD LOAD TASK TTAB«, t00=0x0002, t01=0x00ce}
0x040e…0444              Head {h00=0x0032, h01=0x0050, text=» ENTRY QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK «, t00=0x0002, t01=0x00f2}
0x0444…047a              Head {h00=0x0032, h01=0x0050, text=» ENTRY QLTSWB ACTIVATE LDTASK AT ENTRY LT:SWB «, t00=0x0002, t01=0x0128}
0x047a…04a0              Head {h00=0x0022, h01=0x0050, text=» ENTRY QLTASK ACTIVATE LDTASK «, t00=0x0002, t01=0x015e}
0x04a0…04c6              Head {h00=0x0022, h01=0x0050, text=» ENTRY LD:ECB LDTASK ECB AREA «, t00=0x0002, t01=0x0184}
0x04c6…04ea              Head {h00=0x0020, h01=0x0050, text=» ENTRY LD:BUF LDTASK BUFFER «, t00=0x0003, t01=0x001a}
0x04ea…050e              Head {h00=0x0020, h01=0x0050, text=» ENTRY LD:BUE END OF BUFFER «, t00=0x0003, t01=0x003e}
0x050e…053a              Head {h00=0x0028, h01=0x0050, text=» ENTRY PQEMTY PAGE QUEUE EMPTY FLAG «, t00=0x0003, t01=0x0062}
0x053a…0562              Head {h00=0x0024, h01=0x0050, text=» ENTRY LD:STB LDTASK STACK BASE «, t00=0x0003, t01=0x008e}
0x0562…057a              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x0003, t01=0x00b6}
0x057a…0584              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ce}
0x0584…058e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d8}
0x058e…05a4              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x00e2}
0x05a4…05ba              Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0003, t01=0x00f8}
0x05ba…05d0              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x010e}
0x05d0…05da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0124}
0x05da…05e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x012e}
0x05e4…0614              Head {h00=0x002c, h01=0x0050, text=» EXTRN TLSEG1 UPDATE PAGQUE, CSB AND MMU«, t00=0x0003, t01=0x0138}
0x0614…063c              Head {h00=0x0024, h01=0x0050, text=» EXTRN TLSEG2 UPDATE CSB AND MMU«, t00=0x0003, t01=0x0168}
0x063c…0672              Head {h00=0x0032, h01=0x0050, text=» EXTRN QMEXIT QUEUE TASK AND EXIT MONITOR TASK«, t00=0x0003, t01=0x0190}
0x0672…06aa              Head {h00=0x0034, h01=0x0050, text=» EXTRN LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR«, t00=0x0004, t01=0x0036}
0x06aa…06cc              Head {h00=0x001e, h01=0x0050, text=» EXTRN ACTOT ACTIVATE TASK«, t00=0x0004, t01=0x006e}
0x06cc…06ee              Head {h00=0x001e, h01=0x0050, text=» EXTRN RELPA2 RELEASE PAGE«, t00=0x0004, t01=0x0090}
0x06ee…0714              Head {h00=0x0022, h01=0x0050, text=» EXTRN PAGQUE FREE PAGE QUEUE «, t00=0x0004, t01=0x00b2}
0x0714…073e              Head {h00=0x0026, h01=0x0050, text=» EXTRN PAG:QB QUEUE LINK BACKWARDS«, t00=0x0004, t01=0x00d8}
0x073e…0760              Head {h00=0x001e, h01=0x0050, text=» EXTRN PAG:PA PAGE ADDRESS«, t00=0x0004, t01=0x0102}
0x0760…078c              Head {h00=0x0028, h01=0x0050, text=» EXTRN PAG:SB SEGMENT BLOCK ADDRESS «, t00=0x0004, t01=0x0124}
0x078c…07ac              Head {h00=0x001c, h01=0x0050, text=» EXTRN SEG:FC FILE CODE «, t00=0x0004, t01=0x0150}
0x07ac…07d6              Head {h00=0x0026, h01=0x0050, text=» EXTRN SEG:DS DISC SECTOR ADDRESS «, t00=0x0004, t01=0x0170}
0x07d6…07fa              Head {h00=0x0020, h01=0x0050, text=» EXTRN SEG:EL SEGMENT LENGTH«, t00=0x0005, t01=0x000a}
0x07fa…0822              Head {h00=0x0024, h01=0x0050, text=» EXTRN SEG:PB PAGE BLOCK ADDRESS«, t00=0x0005, t01=0x002e}
0x0822…085a              Head {h00=0x0034, h01=0x0050, text=» EXTRN SWB:DS DISC SECTOR ADDRESS OF FIRST COPY «, t00=0x0005, t01=0x0056}
0x085a…0882              Head {h00=0x0024, h01=0x0050, text=» EXTRN SWB:EL SWB LENGTH (BYTES)«, t00=0x0005, t01=0x008e}
0x0882…08ac              Head {h00=0x0026, h01=0x0050, text=» EXTRN SWB:NS SWB LENGTH (SECTORS)«, t00=0x0005, t01=0x00b6}
0x08ac…08d4              Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0005, t01=0x00e0}
0x08d4…08fe              Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0005, t01=0x0108}
0x08fe…0928              Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0005, t01=0x0132}
0x0928…094c              Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBRC ECB RETURN CODE«, t00=0x0005, t01=0x015c}
0x094c…0974              Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW1 ECB CONTROL WORD 1«, t00=0x0005, t01=0x0180}
0x0974…099c              Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW2 ECB CONTROL WORD 2«, t00=0x0006, t01=0x0018}
0x099c…09be              Head {h00=0x001e, h01=0x0050, text=» EXTRN TTB:AP ACB ADDRESS «, t00=0x0006, t01=0x0040}
0x09be…09e2              Head {h00=0x0020, h01=0x0050, text=» EXTRN TTB:SA TTAB SAVE AREA«, t00=0x0006, t01=0x0062}
0x09e2…0a02              Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:MT MMU TABLE «, t00=0x0006, t01=0x0086}
0x0a02…0a2c              Head {h00=0x0026, h01=0x0050, text=» EXTRN TTB:CB CURRENT SEGMENT BASE«, t00=0x0006, t01=0x00a6}
0x0a2c…0a50              Head {h00=0x0020, h01=0x0050, text=» EXTRN TTB:SP SEGTAB ADDRESS«, t00=0x0006, t01=0x00d0}
0x0a50…0a68              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x0006, t01=0x00f4}
0x0a68…0a72              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x010c}
0x0a72…0a7c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0116}
0x0a7c…0aa8              Head {h00=0x0028, h01=0x0050, text=» EXTRN SCTIPL PROGRAM LOADING DEVICE«, t00=0x0006, t01=0x0120}
0x0aa8…0ac8              Head {h00=0x001c, h01=0x0050, text=» EXTRN SCTPSZ PAGE SIZE «, t00=0x0006, t01=0x014c}
0x0ac8…0af6              Head {h00=0x002a, h01=0x0050, text=» EXTRN ACBLAP LOGICAL ADDRESS OF PAGES«, t00=0x0006, t01=0x016c}
0x0af6…0b0e              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x0007, t01=0x000a}
0x0b0e…0b18              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0022}
0x0b18…0b22              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x002c}
0x0b22…0b54              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0007, t01=0x0036}
0x0b54…0b5e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0068}
0x0b5e…0b7c              Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0007, t01=0x0072}
0x0b7c…0b86              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0090}
0x0b86…0bb8              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0007, t01=0x009a}
0x0bb8…0bc2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00cc}
0x0bc2…0bf4              Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0007, t01=0x00d6}
0x0bf4…0c22              Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0007, t01=0x0108}
0x0c22…0c2c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0136}
0x0c2c…0c40              Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0007, t01=0x0140}
0x0c40…0c4a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0154}
0x0c4a…0c54              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x015e}
0x0c54…0c8e              Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0007, t01=0x0168}
0x0c8e…0cc0              Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0008, t01=0x0012}
0x0cc0…0cca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0044}
0x0cca…0cde              Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0008, t01=0x004e}
0x0cde…0ce8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0062}
0x0ce8…0cf2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x006c}
0x0cf2…0d2c              Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK «, t00=0x0008, t01=0x0076}
0x0d2c…0d62              Head {h00=0x0032, h01=0x0050, text=»* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. «, t00=0x0008, t01=0x00b0}
0x0d62…0d6c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e6}
0x0d6c…0d80              Head {h00=0x0010, h01=0x0050, text=»SWPBLK EQU 0«, t00=0x0008, t01=0x00f0}
0x0d80…0d8a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0104}
0x0d8a…0d94              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010e}
0x0d94…0dcc              Head {h00=0x0034, h01=0x0050, text=»* A PROGRAM VERSION SPECIALIZED FOR THE 857 CPU «, t00=0x0008, t01=0x0118}
0x0dcc…0dfa              Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING CPU857 EQU 1.«, t00=0x0008, t01=0x0150}
0x0dfa…0e04              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x017e}
0x0e04…0e16              Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0008, t01=0x0188}
0x0e16…0e2c              Head {h00=0x0012, h01=0x0050, text=»CPU857 EQU X:B«, t00=0x0009, t01=0x000a}
0x0e2c…0e36              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0020}
0x0e36…0e4e              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x0009, t01=0x002a}
0x0e4e…0e58              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0042}
0x0e58…0e62              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x004c}
0x0e62…0e9a              Head {h00=0x0034, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS ASSEMBLER PAGING «, t00=0x0009, t01=0x0056}
0x0e9a…0ec8              Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING ASMPAG EQU 1.«, t00=0x0009, t01=0x008e}
0x0ec8…0ed2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00bc}
0x0ed2…0ee4              Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0009, t01=0x00c6}
0x0ee4…0efa              Head {h00=0x0012, h01=0x0050, text=»ASMPAG EQU X:C«, t00=0x0009, t01=0x00d8}
0x0efa…0f04              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ee}
0x0f04…0f1c              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x0009, t01=0x00f8}
0x0f1c…0f26              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0110}
0x0f26…0f30              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x011a}
0x0f30…0f56              Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0009, t01=0x0124}
0x0f56…0f7c              Head {h00=0x0022, h01=0x0050, text=»* ECB, STACK AND DATA AREAS * «, t00=0x0009, t01=0x014a}
0x0f7c…0fa2              Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0009, t01=0x0170}
0x0fa2…0fac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0008}
0x0fac…0fb6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0012}
0x0fb6…0fe8              Head {h00=0x002e, h01=0x0050, text=»LD:ECB DATA 0,0,0,0,0,0,0 LDTASK ECB AREA «, t00=0x000a, t01=0x001c}
0x0fe8…0ff2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x004e}
0x0ff2…102a              Head {h00=0x0034, h01=0x0050, text=»LD:BUF RES 128 INTERMEDIATE BUFFER FOR LOAD TASK«, t00=0x000a, t01=0x0058}
0x102a…104c              Head {h00=0x001e, h01=0x0050, text=»LD:BUE EQU * END OF BUFFER«, t00=0x000a, t01=0x0090}
0x104c…1056              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b2}
0x1056…107e              Head {h00=0x0024, h01=0x0050, text=» RES 4 LDTASK STACK (TWO LEVELS)«, t00=0x000a, t01=0x00bc}
0x107e…10aa              Head {h00=0x0028, h01=0x0050, text=»LD:STB EQU *-2 LOAD TASK STACK BASE «, t00=0x000a, t01=0x00e4}
0x10aa…10b4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0110}
0x10b4…10e0              Head {h00=0x0028, h01=0x0050, text=»PQEMTY DATA 0 PAGE QUEUE EMPTY FLAG «, t00=0x000a, t01=0x011a}
0x10e0…10ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0146}
0x10ea…1100              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000a, t01=0x0150}
0x1100…112e              Head {h00=0x002a, h01=0x0050, text=»LD:LAD DATA 0 LOGICAL ADDRESS POINTER «, t00=0x000a, t01=0x0166}
0x112e…113a (11, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x0004}
0x113a…1144              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0010}
0x1144…115c              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x000b, t01=0x001a}
0x115c…1166              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0032}
0x1166…1170              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x003c}
0x1170…1182              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000b, t01=0x0046}
0x1182…1194              Head {h00=0x000e, h01=0x0050, text=»* TTABLD *«, t00=0x000b, t01=0x0058}
0x1194…11a6              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000b, t01=0x006a}
0x11a6…11b0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x007c}
0x11b0…11c6              Head {h00=0x0012, h01=0x0050, text=»* LDTASK TTAB «, t00=0x000b, t01=0x0086}
0x11c6…11d0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x009c}
0x11d0…11e6              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000b, t01=0x00a6}
0x11e6…1206              Head {h00=0x001c, h01=0x0050, text=» RES 16 LDTASK MMU TABLE«, t00=0x000b, t01=0x00bc}
0x1206…1212              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x00dc}
0x1212…121c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e8}
0x121c…1248              Head {h00=0x0028, h01=0x0050, text=» DATA 0 CURRENT SEGMENT BASE (DUMMY)«, t00=0x000b, t01=0x00f2}
0x1248…1276              Head {h00=0x002a, h01=0x0050, text=» DATA 0 SEGMENT TABLE ADDRESS (DUMMY) «, t00=0x000b, t01=0x011e}
0x1276…12a4              Head {h00=0x002a, h01=0x0050, text=» DATA 0 SEGMENT BLOCK ADDRESS (DUMMY) «, t00=0x000b, t01=0x014c}
0x12a4…12c8              Head {h00=0x0020, h01=0x0050, text=» DATA 0 ACB ADDRESS (DUMMY) «, t00=0x000b, t01=0x017a}
0x12c8…12d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x000e}
0x12d2…12f4              Head {h00=0x001e, h01=0x0050, text=»TTABLD EQU * TTABLD ENTRY «, t00=0x000c, t01=0x0018}
0x12f4…131a              Head {h00=0x0022, h01=0x0050, text=» DATA 0 DISPATCHER QUEUE LINK «, t00=0x000c, t01=0x003a}
0x131a…1340              Head {h00=0x0022, h01=0x0050, text=» DATA '#L' TASK IDENTIFICATION«, t00=0x000c, t01=0x0060}
0x1340…1360              Head {h00=0x001c, h01=0x0050, text=» DATA 49 PRIORITY LEVEL «, t00=0x000c, t01=0x0086}
0x1360…1380              Head {h00=0x001c, h01=0x0050, text=» DATA 0 PENDING POINTER «, t00=0x000c, t01=0x00a6}
0x1380…13ae              Head {h00=0x002a, h01=0x0050, text=» DATA /C4C0 PSW (PROGRAM STATUS WORD) «, t00=0x000c, t01=0x00c6}
0x13ae…13ce              Head {h00=0x001c, h01=0x0050, text=» DATA 0 DISPATCH ADDRESS«, t00=0x000c, t01=0x00f4}
0x13ce…1404              Head {h00=0x0032, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA, A1-A14«, t00=0x000c, t01=0x0114}
0x1404…1420              Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x000c, t01=0x014a}
0x1420…144a              Head {h00=0x0026, h01=0x0050, text=» DATA 2 TASK DEVICE TABLE (DUMMY) «, t00=0x000c, t01=0x0166}
0x144a…1454              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0190}
0x1454…146c              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x000d, t01=0x000a}
0x146c…1476              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0022}
0x1476…1480              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x002c}
0x1480…1492              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x0036}
0x1492…14a4              Head {h00=0x000e, h01=0x0050, text=»* LT:SWB *«, t00=0x000d, t01=0x0048}
0x14a4…14b6              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x005a}
0x14b6…14c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x006c}
0x14c0…14ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0076}
0x14ca…1512              Head {h00=0x0044, h01=0x0050, text=»*   LT:SWB HANDLES THE LOADING/STORING OF SWAPPABLE WORK BLOCKS.«, t00=0x000d, t01=0x0080}
0x1512…151c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c8}
0x151c…1552              Head {h00=0x0032, h01=0x0050, text=»*   INPUT:  A1 = SWAPPABLE WORK BLOCK ADDRESS «, t00=0x000d, t01=0x00d2}
0x1552…1588              Head {h00=0x0032, h01=0x0050, text=»*           A3 = TTAB ADDRESS OF CALLING TASK «, t00=0x000d, t01=0x0108}
0x1588…15ac              Head {h00=0x0020, h01=0x0050, text=»*    A4 = LKM DATA DIRECTIVE«, t00=0x000d, t01=0x013e}
0x15ac…15b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0162}
0x15b6…15c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x016c}
0x15c0…15ee              Head {h00=0x002a, h01=0x0050, text=»LT:SWB EQU * LDTASK SWB HANDLING ENTRY«, t00=0x000d, t01=0x0176}
0x15ee…1604              Head {h00=0x0012, h01=0x0050, text=» IFT SWPBLK=1 «, t00=0x000e, t01=0x0014}
0x1604…161a              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000e, t01=0x002a}
0x161a…1626              Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x000e, t01=0x0040}
0x1626…1652              Head {h00=0x0028, h01=0x0050, text=» LDKL A5,TTABLD LDTASK TTAB ADDRESS «, t00=0x000e, t01=0x004c}
0x1652…1682              Head {h00=0x002c, h01=0x0050, text=» TL TTB:MT,A3 LOAD MMU WITH CALLING TASK«, t00=0x000e, t01=0x0078}
0x1682…16b2              Head {h00=0x002c, h01=0x0050, text=» TS TTB:MT,A5 STORE IN LDTASK MMU TABLE «, t00=0x000e, t01=0x00a8}
0x16b2…16be              Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x000e, t01=0x00d8}
0x16be…16ca              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x00e4}
0x16ca…16d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00f0}
0x16d4…16ea              Head {h00=0x0012, h01=0x0050, text=» IFT SWPBLK=1 «, t00=0x000e, t01=0x00fa}
0x16ea…171a              Head {h00=0x002c, h01=0x0050, text=» LDR A5,A3 TTAB ADDRESS OF CALLING TASK «, t00=0x000e, t01=0x0110}
0x171a…1740              Head {h00=0x0022, h01=0x0050, text=» LDR A7,A4 LKM DATA DIRECTIVE «, t00=0x000e, t01=0x0140}
0x1740…1774              Head {h00=0x0030, h01=0x0050, text=» SUR A9,A9 INDICATE SWB HANDLING (NO SEGBLK)«, t00=0x000e, t01=0x0166}
0x1774…17a2              Head {h00=0x002a, h01=0x0050, text=» LDR* A3,A1 DISC ADDRESS OF FIRST COPY«, t00=0x000f, t01=0x000a}
0x17a2…17b6              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x000f, t01=0x0038}
0x17b6…17ce              Head {h00=0x0014, h01=0x0050, text=» LD A4,SWB:DS,A1«, t00=0x000f, t01=0x004c}
0x17ce…17fe              Head {h00=0x002c, h01=0x0050, text=» LD A6,SWB:EL,A1 SWB COPY LENGTH (BYTES)«, t00=0x000f, t01=0x0064}
0x17fe…1830              Head {h00=0x002e, h01=0x0050, text=» LD A2,SWB:NS,A1 SWB COPY LENGTH (SECTORS)«, t00=0x000f, t01=0x0094}
0x1830…183a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c6}
0x183a…1852              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x000f, t01=0x00d0}
0x1852…185c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00e8}
0x185c…188c              Head {h00=0x002c, h01=0x0050, text=»* COMPUTE DISC ADDRESS OF REQUESTED SWB «, t00=0x000f, t01=0x00f2}
0x188c…1896              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0122}
0x1896…18b2              Head {h00=0x0018, h01=0x0050, text=» LD A1,TTB:SA+14,A5 «, t00=0x000f, t01=0x012c}
0x18b2…18d4              Head {h00=0x001e, h01=0x0050, text=» ANK A1,/FF SWB COPY INDEX«, t00=0x000f, t01=0x0148}
0x18d4…18de              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x016a}
0x18de…18f2              Head {h00=0x0010, h01=0x0050, text=»LTS:10 EQU *«, t00=0x000f, t01=0x0174}
0x18f2…1904              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x000f, t01=0x0188}
0x1904…190e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x000a}
0x190e…1924              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0010, t01=0x0014}
0x1924…193a              Head {h00=0x0012, h01=0x0050, text=» RF(NP) LTS:20«, t00=0x0010, t01=0x002a}
0x193a…1972              Head {h00=0x0034, h01=0x0050, text=» ADR A4,A2 COMPUTE DISC ADDRESS OF REQUESTED SWB«, t00=0x0010, t01=0x0040}
0x1972…1990              Head {h00=0x001a, h01=0x0050, text=» RF(O) LTS:15 OVERFLOW«, t00=0x0010, t01=0x0078}
0x1990…19a2              Head {h00=0x000e, h01=0x0050, text=» RB LTS:10«, t00=0x0010, t01=0x0096}
0x19a2…19ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00a8}
0x19ac…19d4              Head {h00=0x0024, h01=0x0050, text=»LTS:15 EQU * OVERFLOW CORRECTION«, t00=0x0010, t01=0x00b2}
0x19d4…19e6              Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0010, t01=0x00da}
0x19e6…19fc              Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/7FFF«, t00=0x0010, t01=0x00ec}
0x19fc…1a0e              Head {h00=0x000e, h01=0x0050, text=» RB LTS:10«, t00=0x0010, t01=0x0102}
0x1a0e…1a18              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0114}
0x1a18…1a2c              Head {h00=0x0010, h01=0x0050, text=»LTS:20 EQU *«, t00=0x0010, t01=0x011e}
0x1a2c…1a5c              Head {h00=0x002c, h01=0x0050, text=» LDR A1,A3 DISC ADDRESS OF REQUESTED SWB«, t00=0x0010, t01=0x0132}
0x1a5c…1a6e              Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0010, t01=0x0162}
0x1a6e…1a7a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0174}
0x1a7a…1a84              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0180}
0x1a84…1a9a              Head {h00=0x0012, h01=0x0050, text=» IFT SWPBLK=1 «, t00=0x0010, t01=0x018a}
0x1a9a…1ab0              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0011, t01=0x0010}
0x1ab0…1ac0              Head {h00=0x000c, h01=0x0050, text=» MUR A1 «, t00=0x0011, t01=0x0026}
0x1ac0…1ad0              Head {h00=0x000c, h01=0x0050, text=» DAR A3 «, t00=0x0011, t01=0x0036}
0x1ad0…1adc              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0046}
0x1adc…1ae6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0052}
0x1ae6…1afe              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x0011, t01=0x005c}
0x1afe…1b08              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0074}
0x1b08…1b12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x007e}
0x1b12…1b28              Head {h00=0x0012, h01=0x0050, text=» IFT SWPBLK=1 «, t00=0x0011, t01=0x0088}
0x1b28…1b5c              Head {h00=0x0030, h01=0x0050, text=» LD A3,TTB:SA+16,A5 MEMORY ADDRESS (LOGICAL)«, t00=0x0011, t01=0x009e}
0x1b5c…1b6e              Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0011, t01=0x00d2}
0x1b6e…1b80              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A6«, t00=0x0011, t01=0x00e4}
0x1b80…1baa              Head {h00=0x0026, h01=0x0050, text=» LD A12,SCTIPL SWB DISC FILE CODE «, t00=0x0011, t01=0x00f6}
0x1baa…1bd6              Head {h00=0x0028, h01=0x0050, text=» SUK A7,19 CHECK LKM DATA DIRECTIVE «, t00=0x0011, t01=0x0120}
0x1bd6…1bf4              Head {h00=0x001a, h01=0x0050, text=» RF(Z) LTSWB1 LOAD SWB«, t00=0x0011, t01=0x014c}
0x1bf4…1c32              Head {h00=0x003a, h01=0x0050, text=» LDKL A4,/7FFF PARAMETER TO AVOID INTERMEDIATE BUFFER «, t00=0x0011, t01=0x016a}
0x1c32…1c54              Head {h00=0x001e, h01=0x0050, text=» LDK A7,/95 PHYSICAL WRITE«, t00=0x0012, t01=0x0018}
0x1c54…1c70              Head {h00=0x0018, h01=0x0050, text=» RF LTSWB2 STORE SWB«, t00=0x0012, t01=0x003a}
0x1c70…1c7c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0056}
0x1c7c…1c86              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0062}
0x1c86…1c9e              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x0012, t01=0x006c}
0x1c9e…1ca8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0084}
0x1ca8…1cb2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x008e}
0x1cb2…1cc4              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x0098}
0x1cc4…1cd6              Head {h00=0x000e, h01=0x0050, text=»* LT:DSK *«, t00=0x0012, t01=0x00aa}
0x1cd6…1ce8              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x00bc}
0x1ce8…1cf2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ce}
0x1cf2…1cfc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00d8}
0x1cfc…1d44              Head {h00=0x0044, h01=0x0050, text=»*   LT:DSK PERFORMS LOADING OF DISC RESIDENT SEGMENTS INTO CORE.«, t00=0x0012, t01=0x00e2}
0x1d44…1d4e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x012a}
0x1d4e…1d7c              Head {h00=0x002a, h01=0x0050, text=»*   INPUT:  A1 = SEGMENT BLOCK ADDRESS«, t00=0x0012, t01=0x0134}
0x1d7c…1db2              Head {h00=0x0032, h01=0x0050, text=»*           A3 = TTAB ADDRESS OF CALLING TASK «, t00=0x0012, t01=0x0162}
0x1db2…1dbc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0008}
0x1dbc…1dc6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0012}
0x1dc6…1df4              Head {h00=0x002a, h01=0x0050, text=»LT:DSK EQU * LDTASK DISC PAGING ENTRY «, t00=0x0013, t01=0x001c}
0x1df4…1e24              Head {h00=0x002c, h01=0x0050, text=» LDR A5,A3 TTAB ADDRESS OF CALLING TASK «, t00=0x0013, t01=0x004a}
0x1e24…1e46              Head {h00=0x001e, h01=0x0050, text=» LDR* A2,A1 SEGMENT STATUS«, t00=0x0013, t01=0x007a}
0x1e46…1e78              Head {h00=0x002e, h01=0x0050, text=» RF(NN) LTD:05 SEGMENT NOT LOADED IN CORE «, t00=0x0013, t01=0x009c}
0x1e78…1e82              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ce}
0x1e82…1eb8              Head {h00=0x0032, h01=0x0050, text=»* UPDATE MMU TABLE FOR CALLING TASK (IF MMU), «, t00=0x0013, t01=0x00d8}
0x1eb8…1ede              Head {h00=0x0022, h01=0x0050, text=»* UPDATE CURRENT SEGMENT BASE,«, t00=0x0013, t01=0x010e}
0x1ede…1f04              Head {h00=0x0022, h01=0x0050, text=»* AND REMOVE PAGE FROM PAGQUE.«, t00=0x0013, t01=0x0134}
0x1f04…1f0e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x015a}
0x1f0e…1f2e              Head {h00=0x001c, h01=0x0050, text=» LDR A7,A3 TTAB ADDRESS «, t00=0x0013, t01=0x0164}
0x1f2e…1f3a              Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0013, t01=0x0184}
0x1f3a…1f50              Head {h00=0x0012, h01=0x0050, text=» CF A15,TLSEG1«, t00=0x0013, t01=0x0190}
0x1f50…1f80              Head {h00=0x002c, h01=0x0050, text=» LDR A5,A7 TTAB ADDRESS OF CALLING TASK «, t00=0x0014, t01=0x0016}
0x1f80…1fae              Head {h00=0x002a, h01=0x0050, text=» ABL QMEXIT QUEUE TASK AND EXIT LDTASK«, t00=0x0014, t01=0x0046}
0x1fae…1fb8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0074}
0x1fb8…1fd0              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x0014, t01=0x007e}
0x1fd0…1fda              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0096}
0x1fda…2014              Head {h00=0x0036, h01=0x0050, text=»* NO PAGE AVAILABLE. PAUSE LDTASK UNTIL RESTARTED «, t00=0x0014, t01=0x00a0}
0x2014…2042              Head {h00=0x002a, h01=0x0050, text=»* BY RELPAG WHEN PAGE AVAILABLE AGAIN.«, t00=0x0014, t01=0x00da}
0x2042…204c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0108}
0x204c…2060              Head {h00=0x0010, h01=0x0050, text=»LTD:00 EQU *«, t00=0x0014, t01=0x0112}
0x2060…208c              Head {h00=0x0028, h01=0x0050, text=» IM PQEMTY INDICATE PAGE QUEUE EMPTY«, t00=0x0014, t01=0x0126}
0x208c…2098              Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0014, t01=0x0152}
0x2098…20b4              Head {h00=0x0018, h01=0x0050, text=» DATA 5 PAUSE LDTASK«, t00=0x0014, t01=0x015e}
0x20b4…20be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x017a}
0x20be…20f2              Head {h00=0x0030, h01=0x0050, text=»* TAKE LEAST RECENTLY USED PAGE FROM PAGQUE «, t00=0x0014, t01=0x0184}
0x20f2…20fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0028}
0x20fc…2110              Head {h00=0x0010, h01=0x0050, text=»LTD:05 EQU *«, t00=0x0015, t01=0x0032}
0x2110…2128              Head {h00=0x0014, h01=0x0050, text=» LD A2,PAGQUE+2 «, t00=0x0015, t01=0x0046}
0x2128…213e              Head {h00=0x0012, h01=0x0050, text=» CWK A2,PAGQUE«, t00=0x0015, t01=0x005e}
0x213e…2166              Head {h00=0x0024, h01=0x0050, text=» RB(E) LTD:00 NO PAGE AVAILABLE «, t00=0x0015, t01=0x0074}
0x2166…2170              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x009c}
0x2170…2188              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x0015, t01=0x00a6}
0x2188…2192              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00be}
0x2192…21ba              Head {h00=0x0024, h01=0x0050, text=»* TAKE FOUND PAGE OUT OF PAGQUE «, t00=0x0015, t01=0x00c8}
0x21ba…21c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f0}
0x21c4…21d0              Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0015, t01=0x00fa}
0x21d0…2204              Head {h00=0x0030, h01=0x0050, text=» LD A4,PAG:QB,A2 ADDRESS TO NEXT PAGE BLOCK «, t00=0x0015, t01=0x0106}
0x2204…2230              Head {h00=0x0028, h01=0x0050, text=» ST A4,PAGQUE+2 UPDATE QUEUE ANCHOR «, t00=0x0015, t01=0x013a}
0x2230…2252              Head {h00=0x001e, h01=0x0050, text=» LDR* A6,A2 PAGQUE ADDRESS«, t00=0x0015, t01=0x0166}
0x2252…228a              Head {h00=0x0034, h01=0x0050, text=» STR A6,A4 UPDATE QUEUE LINK FORWARD NEXT BLOCK «, t00=0x0015, t01=0x0188}
0x228a…22be              Head {h00=0x0030, h01=0x0050, text=» CMR A2 RESET QUEUE LINK FORWARD THIS BLOCK «, t00=0x0016, t01=0x0030}
0x22be…22f0              Head {h00=0x002e, h01=0x0050, text=» LD A4,PAG:SB,A2 OLD SEGMENT BLOCK ADDRESS«, t00=0x0016, t01=0x0064}
0x22f0…2306              Head {h00=0x0012, h01=0x0050, text=» RF(Z) LTD:10 «, t00=0x0016, t01=0x0096}
0x2306…231c              Head {h00=0x0012, h01=0x0050, text=» LDKL A6,/7FFF«, t00=0x0016, t01=0x00ac}
0x231c…2354              Head {h00=0x0034, h01=0x0050, text=» ANRS A6,A4 INDICATE SEGMENT NOT LOADED ANYMORE «, t00=0x0016, t01=0x00c2}
0x2354…235e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00fa}
0x235e…2382              Head {h00=0x0020, h01=0x0050, text=»* CONNECT PAGBLK AND SEGBLK «, t00=0x0016, t01=0x0104}
0x2382…238c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0128}
0x238c…23a0              Head {h00=0x0010, h01=0x0050, text=»LTD:10 EQU *«, t00=0x0016, t01=0x0132}
0x23a0…23d4              Head {h00=0x0030, h01=0x0050, text=» ST A2,SEG:PB,A1 SET NEW PAGE BLOCK ADDRESS «, t00=0x0016, t01=0x0146}
0x23d4…240a              Head {h00=0x0032, h01=0x0050, text=» ST A1,PAG:SB,A2 SET NEW SEGMENT BLOCK ADDRESS«, t00=0x0016, t01=0x017a}
0x240a…2414              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0020}
0x2414…242a              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0017, t01=0x002a}
0x242a…2434              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0040}
0x2434…246a              Head {h00=0x0032, h01=0x0050, text=»* UPDATE MMU TABLE FOR CALLING TASK AND LDTASK«, t00=0x0017, t01=0x004a}
0x246a…2474              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0080}
0x2474…24a0              Head {h00=0x0028, h01=0x0050, text=» LDKL A3,TTABLD LDTASK TTAB ADDRESS «, t00=0x0017, t01=0x008a}
0x24a0…24d6              Head {h00=0x0032, h01=0x0050, text=» MS 5,TTB:SA+2,A3 SAVE A1-A5 IN TTAB SAVE AREA«, t00=0x0017, t01=0x00b6}
0x24d6…2506              Head {h00=0x002c, h01=0x0050, text=» TL TTB:MT,A5 LOAD MMU WITH CALLING TASK«, t00=0x0017, t01=0x00ec}
0x2506…2536              Head {h00=0x002c, h01=0x0050, text=» TS TTB:MT,A3 STORE IN LDTASK MMU TABLE «, t00=0x0017, t01=0x011c}
0x2536…256c              Head {h00=0x0032, h01=0x0050, text=» LD A1,TTB:CB,A5 CURRENT SEGMENT BASE ADDRESS «, t00=0x0017, t01=0x014c}
0x256c…2584              Head {h00=0x0014, h01=0x0050, text=» ST A1,TTB:CB,A3«, t00=0x0017, t01=0x0182}
0x2584…25ac              Head {h00=0x0024, h01=0x0050, text=» LD A1,TTB:AP,A5 GET ACB ADDRESS«, t00=0x0018, t01=0x000a}
0x25ac…25dc              Head {h00=0x002c, h01=0x0050, text=» ST A1,TTB:AP,A3 STORE IN LDTASK'S TTAB «, t00=0x0018, t01=0x0032}
0x25dc…25ee              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0018, t01=0x0062}
0x25ee…2614              Head {h00=0x0022, h01=0x0050, text=» LDR A5,A3 LDTASK TTAB ADDRESS«, t00=0x0018, t01=0x0074}
0x2614…2646              Head {h00=0x002e, h01=0x0050, text=» CF A15,TLSEG2 UPDATE MMU TABLE FOR LDTASK«, t00=0x0018, t01=0x009a}
0x2646…2680              Head {h00=0x0036, h01=0x0050, text=» TS TTB:MT,A5 STORE NEW MMU TABLE FOR CALLING TASK«, t00=0x0018, t01=0x00cc}
0x2680…268c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0106}
0x268c…2696              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0112}
0x2696…26ae              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x0018, t01=0x011c}
0x26ae…26b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0134}
0x26b8…26e0              Head {h00=0x0024, h01=0x0050, text=»* PREPARE FOR READING OF SEGMENT«, t00=0x0018, t01=0x013e}
0x26e0…26ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0166}
0x26ea…26f6              Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0018, t01=0x0170}
0x26f6…2726              Head {h00=0x002c, h01=0x0050, text=» LD A3,PAG:PA,A2 PAGE ADDRESS (PHYSICAL)«, t00=0x0018, t01=0x017c}
0x2726…2746              Head {h00=0x001c, h01=0x0050, text=» LD A4,SCTPSZ PAGE SIZE «, t00=0x0019, t01=0x001c}
0x2746…276e              Head {h00=0x0024, h01=0x0050, text=» LD A6,SEG:EL,A1 SEGMENT LENGTH «, t00=0x0019, t01=0x003c}
0x276e…279c              Head {h00=0x002a, h01=0x0050, text=» LDR A9,A1 SAVE SEGMENT BLOCK ADDRESS «, t00=0x0019, t01=0x0064}
0x279c…27c4              Head {h00=0x0024, h01=0x0050, text=» LD A12,TTB:SP,A5 SEGTAB ADDRESS«, t00=0x0019, t01=0x0092}
0x27c4…27f6              Head {h00=0x002e, h01=0x0050, text=» LD A12,SEG:FC,A12 SEGMENT DISC FILE CODE «, t00=0x0019, t01=0x00ba}
0x27f6…2800              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ec}
0x2800…2816              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0019, t01=0x00f6}
0x2816…2844              Head {h00=0x002a, h01=0x0050, text=» LD A2,SEG:DS,A1 SEGMENT DISC ADDRESS «, t00=0x0019, t01=0x010c}
0x2844…2858              Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A1 «, t00=0x0019, t01=0x013a}
0x2858…2864              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x014e}
0x2864…286e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x015a}
0x286e…2884              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0019, t01=0x0164}
0x2884…28aa              Head {h00=0x0022, h01=0x0050, text=» MLR 2,A9 DISC SECTOR ADDRESS «, t00=0x0019, t01=0x017a}
0x28aa…28b6              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0010}
0x28b6…28c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x001c}
0x28c0…28d6              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x001a, t01=0x0026}
0x28d6…290c              Head {h00=0x0032, h01=0x0050, text=» ST* A3,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE «, t00=0x001a, t01=0x003c}
0x290c…2918              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0072}
0x2918…2922              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x007e}
0x2922…293a              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x001a, t01=0x0088}
0x293a…2944              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00a0}
0x2944…294e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00aa}
0x294e…2964              Head {h00=0x0012, h01=0x0050, text=» IFT SWPBLK=1 «, t00=0x001a, t01=0x00b4}
0x2964…296e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00ca}
0x296e…2978              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00d4}
0x2978…298a              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001a, t01=0x00de}
0x298a…299c              Head {h00=0x000e, h01=0x0050, text=»* LTSWB1 *«, t00=0x001a, t01=0x00f0}
0x299c…29ae              Head {h00=0x000e, h01=0x0050, text=»* LTSWB2 *«, t00=0x001a, t01=0x0102}
0x29ae…29c0              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001a, t01=0x0114}
0x29c0…29ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0126}
0x29ca…29d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0130}
0x29d4…2a10              Head {h00=0x0038, h01=0x0050, text=»*   ENTRIES USED BY LDTASK WHEN ACTIVATED AT LT:SWB.«, t00=0x001a, t01=0x013a}
0x2a10…2a48              Head {h00=0x0034, h01=0x0050, text=»*   BELOW THIS POINT SWB HANDLING IS SIMILAR TO «, t00=0x001a, t01=0x0176}
0x2a48…2a6a              Head {h00=0x001e, h01=0x0050, text=»*   DISC PAGING HANDLING. «, t00=0x001b, t01=0x001e}
0x2a6a…2a74              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0040}
0x2a74…2aa8              Head {h00=0x0030, h01=0x0050, text=»*   INPUT:  A1 = DISC SECTOR NUMBER, PART 1 «, t00=0x001b, t01=0x004a}
0x2aa8…2adc              Head {h00=0x0030, h01=0x0050, text=»*           A2 =  "      "      "  , PART 2 «, t00=0x001b, t01=0x007e}
0x2adc…2b0e              Head {h00=0x002e, h01=0x0050, text=»*           A3 = MEMORY ADDRESS (LOGICAL) «, t00=0x001b, t01=0x00b2}
0x2b0e…2b38              Head {h00=0x0026, h01=0x0050, text=»*           A4 = SWB SIZE (BYTES) «, t00=0x001b, t01=0x00e4}
0x2b38…2b6a              Head {h00=0x002e, h01=0x0050, text=»*           A5 = TTAB ADDRESS CALLING TASK«, t00=0x001b, t01=0x010e}
0x2b6a…2b94              Head {h00=0x0026, h01=0x0050, text=»*           A6 = SWB SIZE (BYTES) «, t00=0x001b, t01=0x0140}
0x2b94…2bd6              Head {h00=0x003e, h01=0x0050, text=»*           A7 = ORDER CODE, PHYSICAL WRITE (LTSWB2 ONLY) «, t00=0x001b, t01=0x016a}
0x2bd6…2c28              Head {h00=0x004e, h01=0x0050, text=»*           A9 = 0 (INDICATES SWB HANDLING BY SETTING SEGBLK ADDRESS = 0) «, t00=0x001c, t01=0x001c}
0x2c28…2c50              Head {h00=0x0024, h01=0x0050, text=»*          A12 = DISC FILE CODE «, t00=0x001c, t01=0x006e}
0x2c50…2c5a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0096}
0x2c5a…2c64              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00a0}
0x2c64…2c70              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x00aa}
0x2c70…2c7a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00b6}
0x2c7a…2ca4              Head {h00=0x0026, h01=0x0050, text=»LTSWB1 EQU * ENTRY USED BY LT:SWB «, t00=0x001c, t01=0x00c0}
0x2ca4…2cb8              Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001c, t01=0x00ea}
0x2cb8…2cda              Head {h00=0x001e, h01=0x0050, text=» LDK A7,/91 PHYSICAL READ «, t00=0x001c, t01=0x00fe}
0x2cda…2ce4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0120}
0x2ce4…2cfc              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x001c, t01=0x012a}
0x2cfc…2d06              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0142}
0x2d06…2d10              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x014c}
0x2d10…2d3a              Head {h00=0x0026, h01=0x0050, text=»LTSWB2 EQU * ENTRY USED BY LT:SWB «, t00=0x001c, t01=0x0156}
0x2d3a…2d4c              Head {h00=0x000e, h01=0x0050, text=» SRL A4,1 «, t00=0x001c, t01=0x0180}
0x2d4c…2d76 (29, 0, 400) Head {h00=0x0026, h01=0x0050, text=» LDR A11,A4 PAGE/SWB SIZE (WORDS) «, t00=0x001d, t01=0x0004}
0x2d76…2d88              Head {h00=0x000e, h01=0x0050, text=» SRL A6,1 «, t00=0x001d, t01=0x002e}
0x2d88…2db4              Head {h00=0x0028, h01=0x0050, text=» LDR A10,A6 SEGMENT/SWB SIZE (WORDS)«, t00=0x001d, t01=0x0040}
0x2db4…2dbe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x006c}
0x2dbe…2dda              Head {h00=0x0018, h01=0x0050, text=»* SET ECB PARAMETERS«, t00=0x001d, t01=0x0076}
0x2dda…2de4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0092}
0x2de4…2e0a              Head {h00=0x0022, h01=0x0050, text=» LDKL A8,LD:ECB LD:ECB ADDRESS«, t00=0x001d, t01=0x009c}
0x2e0a…2e38              Head {h00=0x002a, h01=0x0050, text=» STR A12,A8 SET DISC FILE CODE IN ECB «, t00=0x001d, t01=0x00c2}
0x2e38…2e64              Head {h00=0x0028, h01=0x0050, text=» CM ECBEL,A8 RESET EFFECTIVE LENGTH «, t00=0x001d, t01=0x00f0}
0x2e64…2e78              Head {h00=0x0010, h01=0x0050, text=» LDR A12,A3 «, t00=0x001d, t01=0x011c}
0x2e78…2ea2              Head {h00=0x0026, h01=0x0050, text=» LDKL A14,LD:STB LDTASK STACK BASE«, t00=0x001d, t01=0x0130}
0x2ea2…2eac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x015a}
0x2eac…2ec2              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x001d, t01=0x0164}
0x2ec2…2ef4              Head {h00=0x002e, h01=0x0050, text=» ST A1,ECBCW1,A8 SET SECTOR NUMBER IN ECB «, t00=0x001d, t01=0x017a}
0x2ef4…2f0c              Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW2,A8«, t00=0x001e, t01=0x001c}
0x2f0c…2f18              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0034}
0x2f18…2f22              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0040}
0x2f22…2f38              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001e, t01=0x004a}
0x2f38…2f68              Head {h00=0x002c, h01=0x0050, text=» MS 2,ECBCW1,A8 SET SECTOR NUMBER IN ECB«, t00=0x001e, t01=0x0060}
0x2f68…2f74              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0090}
0x2f74…2f7e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x009c}
0x2f7e…2f96              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x001e, t01=0x00a6}
0x2f96…2fa0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00be}
0x2fa0…2faa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00c8}
0x2faa…2fc0              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001e, t01=0x00d2}
0x2fc0…2fd2              Head {h00=0x000e, h01=0x0050, text=» ECR A1,A3«, t00=0x001e, t01=0x00e8}
0x2fd2…2fdc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00fa}
0x2fdc…2ff2              Head {h00=0x0012, h01=0x0050, text=» IFT SWPBLK=1 «, t00=0x001e, t01=0x0104}
0x2ff2…3026              Head {h00=0x0030, h01=0x0050, text=» LDR A9,A9 CHECK SEGBLK ADDRESS (=0 IF SWB) «, t00=0x001e, t01=0x011a}
0x3026…3050              Head {h00=0x0026, h01=0x0050, text=» RF(NZ) LTD:30 DISC PAGING REQUEST«, t00=0x001e, t01=0x014e}
0x3050…305a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0178}
0x305a…3072              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x001e, t01=0x0182}
0x3072…307c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x000a}
0x307c…30ae              Head {h00=0x002e, h01=0x0050, text=»* SWB: CONVERT LOGICAL ADDRESS TO PHYSICAL«, t00=0x001f, t01=0x0014}
0x30ae…30b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0046}
0x30b8…30ca              Head {h00=0x000e, h01=0x0050, text=» SRL A1,3 «, t00=0x001f, t01=0x0050}
0x30ca…30f4              Head {h00=0x0026, h01=0x0050, text=» ANK A1,/1E MMUTAB INDEX (5 BITS) «, t00=0x001f, t01=0x0062}
0x30f4…3118              Head {h00=0x0020, h01=0x0050, text=» ADR A1,A5 ADD TTAB ADDRESS «, t00=0x001f, t01=0x008c}
0x3118…3146              Head {h00=0x002a, h01=0x0050, text=» LC A1,TTB:MT,A1 PHYSICAL PAGE ADDRESS«, t00=0x001f, t01=0x00b0}
0x3146…3158              Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x001f, t01=0x00de}
0x3158…316c              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3C «, t00=0x001f, t01=0x00f0}
0x316c…317e              Head {h00=0x000e, h01=0x0050, text=» SRC A2,6 «, t00=0x001f, t01=0x0104}
0x317e…3194              Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FFF «, t00=0x001f, t01=0x0116}
0x3194…31a6              Head {h00=0x000e, h01=0x0050, text=» ORR A3,A2«, t00=0x001f, t01=0x012c}
0x31a6…31b8              Head {h00=0x000e, h01=0x0050, text=» RF LTD:40«, t00=0x001f, t01=0x013e}
0x31b8…31c4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0150}
0x31c4…31ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x015c}
0x31ce…31e2              Head {h00=0x0010, h01=0x0050, text=»LTD:30 EQU *«, t00=0x001f, t01=0x0166}
0x31e2…31f8              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001f, t01=0x017a}
0x31f8…3202              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0190}
0x3202…3238              Head {h00=0x0032, h01=0x0050, text=»* SEGMENT: CONVERT PHYSICAL ADDRESS TO LOGICAL«, t00=0x0020, t01=0x000a}
0x3238…3242              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0040}
0x3242…3254              Head {h00=0x000e, h01=0x0050, text=» SLL A3,2 «, t00=0x0020, t01=0x004a}
0x3254…3278              Head {h00=0x0020, h01=0x0050, text=» LD A2,TTB:AP,A5 ACB ADDRESS«, t00=0x0020, t01=0x005c}
0x3278…328c              Head {h00=0x0010, h01=0x0050, text=» LDR A12,A3 «, t00=0x0020, t01=0x0080}
0x328c…32c6              Head {h00=0x0036, h01=0x0050, text=» ANKL A12,/FFF CONVERT PHYSICAL ADDRESS TO LOGICAL«, t00=0x0020, t01=0x0094}
0x32c6…32e0              Head {h00=0x0016, h01=0x0050, text=» OR A12,ACBLAP,A2 «, t00=0x0020, t01=0x00ce}
0x32e0…32ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00e8}
0x32ea…32fe              Head {h00=0x0010, h01=0x0050, text=»LTD:40 EQU *«, t00=0x0020, t01=0x00f2}
0x32fe…3310              Head {h00=0x000e, h01=0x0050, text=» SRL A1,2 «, t00=0x0020, t01=0x0106}
0x3310…3324              Head {h00=0x0010, h01=0x0050, text=» ANK A1,/30 «, t00=0x0020, t01=0x0118}
0x3324…3336              Head {h00=0x000e, h01=0x0050, text=» SCR A1,A8«, t00=0x0020, t01=0x012c}
0x3336…3342              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x013e}
0x3342…334c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x014a}
0x334c…3364              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x0020, t01=0x0154}
0x3364…336e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x016c}
0x336e…3378              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0176}
0x3378…33a2              Head {h00=0x0026, h01=0x0050, text=» ST A3,ECBBA,A8 SET BUFFER ADDRESS«, t00=0x0020, t01=0x0180}
0x33a2…33ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x001a}
0x33ac…33c2              Head {h00=0x0012, h01=0x0050, text=» IFT SWPBLK=1 «, t00=0x0021, t01=0x0024}
0x33c2…33f6              Head {h00=0x0030, h01=0x0050, text=» LDR A9,A9 CHECK SEGBLK ADDRESS (=0 IF SWB) «, t00=0x0021, t01=0x003a}
0x33f6…3418              Head {h00=0x001e, h01=0x0050, text=» RF(Z) LTD:45 SWB HANDLING«, t00=0x0021, t01=0x006e}
0x3418…3424              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0090}
0x3424…342e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x009c}
0x342e…3444              Head {h00=0x0012, h01=0x0050, text=» IFT ASMPAG=1 «, t00=0x0021, t01=0x00a6}
0x3444…3466              Head {h00=0x001e, h01=0x0050, text=» LDR* A1,A9 SEGMENT STATUS«, t00=0x0021, t01=0x00bc}
0x3466…3492              Head {h00=0x0028, h01=0x0050, text=» SLL A1,1 CHECK IF ASSEMBLER SEGMENT«, t00=0x0021, t01=0x00de}
0x3492…34be              Head {h00=0x0028, h01=0x0050, text=» RF(N) ASSPAG YES, ASSEMBLER SEGMENT«, t00=0x0021, t01=0x010a}
0x34be…34ca              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0136}
0x34ca…34d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0142}
0x34d4…34fa              Head {h00=0x0022, h01=0x0050, text=»* COMPUTE REQUESTED LENGTH AND«, t00=0x0021, t01=0x014c}
0x34fa…3528              Head {h00=0x002a, h01=0x0050, text=»* CHECK IF ONE OR TWO LKM:S NECCESSARY«, t00=0x0021, t01=0x0172}
0x3528…3532              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0010}
0x3532…3546              Head {h00=0x0010, h01=0x0050, text=»LTD:45 EQU *«, t00=0x0022, t01=0x001a}
0x3546…3578              Head {h00=0x002e, h01=0x0050, text=» ADKL A10,127 NEXT HIGHER MULTIPLE OF 128 «, t00=0x0022, t01=0x002e}
0x3578…3590              Head {h00=0x0014, h01=0x0050, text=» ANKL A10,/7F80 «, t00=0x0022, t01=0x0060}
0x3590…35c2              Head {h00=0x002e, h01=0x0050, text=» SUR A4,A10 CHECK IF PAGE IS LARGE ENOUGH «, t00=0x0022, t01=0x0078}
0x35c2…35f0              Head {h00=0x002a, h01=0x0050, text=» RF(NN) LTD:50 OK, JUST ONE LKM NEEDED«, t00=0x0022, t01=0x00aa}
0x35f0…3604              Head {h00=0x0010, h01=0x0050, text=» LDR A10,A6 «, t00=0x0022, t01=0x00d8}
0x3604…3636              Head {h00=0x002e, h01=0x0050, text=» ANKL A10,/7F80 NEXT LOWER MULTIPLE OF 128«, t00=0x0022, t01=0x00ec}
0x3636…3640              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x011e}
0x3640…3654              Head {h00=0x0010, h01=0x0050, text=»LTD:50 EQU *«, t00=0x0022, t01=0x0128}
0x3654…368c              Head {h00=0x0034, h01=0x0050, text=» SUR A6,A10 REMAINING LENGTH TO MOVE IN 2ND LKM «, t00=0x0022, t01=0x013c}
0x368c…36b8              Head {h00=0x0028, h01=0x0050, text=» ADR A10,A10 CONVERT LENGTH TO BYTES«, t00=0x0022, t01=0x0174}
0x36b8…36e8              Head {h00=0x002c, h01=0x0050, text=» RF(Z) LTD:55 INTERMEDIATE BUFFER NEEDED«, t00=0x0023, t01=0x0010}
0x36e8…371c              Head {h00=0x0030, h01=0x0050, text=» ST A10,ECBRL,A8 SET REQUESTED LENGTH IN ECB«, t00=0x0023, t01=0x0040}
0x371c…3726              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0074}
0x3726…373e              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x0023, t01=0x007e}
0x373e…3748              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0096}
0x3748…3768              Head {h00=0x001c, h01=0x0050, text=»* READ/WRITE SEGMENT SWB«, t00=0x0023, t01=0x00a0}
0x3768…3772              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00c0}
0x3772…379e              Head {h00=0x0028, h01=0x0050, text=» CF A14,LD:IO READ/WRITE SEGMENT/SWB«, t00=0x0023, t01=0x00ca}
0x379e…37d4              Head {h00=0x0032, h01=0x0050, text=» ADK A6,0 CHECK IF ANYTHING LEFT TO READ/WRITE«, t00=0x0023, t01=0x00f6}
0x37d4…3808              Head {h00=0x0030, h01=0x0050, text=» RF(NP) LDEXIT SEGMENT/SWB HANDLING FINISHED«, t00=0x0023, t01=0x012c}
0x3808…3812              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0160}
0x3812…3826              Head {h00=0x0010, h01=0x0050, text=»LTD:55 EQU *«, t00=0x0023, t01=0x016a}
0x3826…3864              Head {h00=0x003a, h01=0x0050, text=» CF A14,LDSECT READ AND MOVE LAST PART OF SEGMENT/SWB «, t00=0x0023, t01=0x017e}
0x3864…386e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x002c}
0x386e…38a6              Head {h00=0x0034, h01=0x0050, text=»* COMMON EXIT FOR DISC PAGING, ASSEMBLER PAGING «, t00=0x0024, t01=0x0036}
0x38a6…38dc              Head {h00=0x0032, h01=0x0050, text=»* AND SWAPPABLE WORK BLOCK HANDLING REQUESTS. «, t00=0x0024, t01=0x006e}
0x38dc…38e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00a4}
0x38e6…38fa              Head {h00=0x0010, h01=0x0050, text=»LDEXIT EQU *«, t00=0x0024, t01=0x00ae}
0x38fa…3910              Head {h00=0x0012, h01=0x0050, text=» IFT SWPBLK=1 «, t00=0x0024, t01=0x00c2}
0x3910…3944              Head {h00=0x0030, h01=0x0050, text=» LDR A9,A9 CHECK SEGBLK ADDRESS (=0 IF SWB) «, t00=0x0024, t01=0x00d8}
0x3944…3966              Head {h00=0x001e, h01=0x0050, text=» RF(Z) LDEXI3 SWB HANDLING«, t00=0x0024, t01=0x010c}
0x3966…3972              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x012e}
0x3972…397c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x013a}
0x397c…39b8              Head {h00=0x0038, h01=0x0050, text=» LDKL A4,/8000 INDICATE SEGMENT SUCCESSFULLY LOADED «, t00=0x0024, t01=0x0144}
0x39b8…39c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0180}
0x39c2…39d6              Head {h00=0x0010, h01=0x0050, text=»LDEXI2 EQU *«, t00=0x0024, t01=0x018a}
0x39d6…39ea              Head {h00=0x0010, h01=0x0050, text=» ORRS A4,A9 «, t00=0x0025, t01=0x000e}
0x39ea…39f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0022}
0x39f4…3a08              Head {h00=0x0010, h01=0x0050, text=»LDEXI3 EQU *«, t00=0x0025, t01=0x002c}
0x3a08…3a36              Head {h00=0x002a, h01=0x0050, text=» ABL QMEXIT QUEUE TASK AND EXIT LDTASK«, t00=0x0025, t01=0x0040}
0x3a36…3a40              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x006e}
0x3a40…3a58              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x0025, t01=0x0078}
0x3a58…3a62              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0090}
0x3a62…3a6c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x009a}
0x3a6c…3a7e              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0025, t01=0x00a4}
0x3a7e…3a90              Head {h00=0x000e, h01=0x0050, text=»* LD:IO  *«, t00=0x0025, t01=0x00b6}
0x3a90…3aa2              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0025, t01=0x00c8}
0x3aa2…3aac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00da}
0x3aac…3ab6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00e4}
0x3ab6…3af6              Head {h00=0x003c, h01=0x0050, text=»*   LDTASK I/O ROUTINE FOR READING/WRITING FROM/TO DISC.«, t00=0x0025, t01=0x00ee}
0x3af6…3b36              Head {h00=0x003c, h01=0x0050, text=»*   IF I/O ERROR IS DETECTED LOADING IS ABORTED AND THE «, t00=0x0025, t01=0x012e}
0x3b36…3b7a              Head {h00=0x0040, h01=0x0050, text=»*   PAGE IS INSERTED INTO PAGQUE AGAIN. CREDIT APPLICATIONS «, t00=0x0025, t01=0x016e}
0x3b7a…3bb6              Head {h00=0x0038, h01=0x0050, text=»*   ARE RESTARTED AT THE SPECIFIED REENTER ADDRESS. «, t00=0x0026, t01=0x0022}
0x3bb6…3bc0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x005e}
0x3bc0…3bf6              Head {h00=0x0032, h01=0x0050, text=»*   INPUT:  A5 = TTAB ADDRESS OF CALLING TASK «, t00=0x0026, t01=0x0068}
0x3bf6…3c12              Head {h00=0x0018, h01=0x0050, text=»*    A7 = ORDER CODE«, t00=0x0026, t01=0x009e}
0x3c12…3c32              Head {h00=0x001c, h01=0x0050, text=»*    A8 = LD:ECB ADDRESS«, t00=0x0026, t01=0x00ba}
0x3c32…3c5e              Head {h00=0x0028, h01=0x0050, text=»*    A9 = SEGBLK ADDRESS (=0 IF SWB)«, t00=0x0026, t01=0x00da}
0x3c5e…3c68              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0106}
0x3c68…3c8c              Head {h00=0x0020, h01=0x0050, text=»*   OUTPUT: A2 IS DESTROYED «, t00=0x0026, t01=0x0110}
0x3c8c…3c96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0134}
0x3c96…3ca0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x013e}
0x3ca0…3cb4              Head {h00=0x0010, h01=0x0050, text=»LD:IO EQU * «, t00=0x0026, t01=0x0148}
0x3cb4…3cc0              Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0026, t01=0x015c}
0x3cc0…3cd0              Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0026, t01=0x0168}
0x3cd0…3cda              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0178}
0x3cda…3d08              Head {h00=0x002a, h01=0x0050, text=»* CHECK RETURN CODE AND ABORT IF ERROR«, t00=0x0026, t01=0x0182}
0x3d08…3d12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0020}
0x3d12…3d36              Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBRC,A8 RETURN CODE «, t00=0x0027, t01=0x002a}
0x3d36…3d5c              Head {h00=0x0022, h01=0x0050, text=» ANKL A2,/FEFF SKIP RETRY BIT «, t00=0x0027, t01=0x004e}
0x3d5c…3d7e              Head {h00=0x001e, h01=0x0050, text=» RF(NZ) LDIO10 DISC ERROR «, t00=0x0027, t01=0x0074}
0x3d7e…3d9a              Head {h00=0x0018, h01=0x0050, text=» RTN A14 NO, RETURN «, t00=0x0027, t01=0x0096}
0x3d9a…3da4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00b2}
0x3da4…3dbc              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x0027, t01=0x00bc}
0x3dbc…3dc6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00d4}
0x3dc6…3dfc              Head {h00=0x0032, h01=0x0050, text=»* ERROR: SET RETURN CODE IN A7 OF CALLING TASK«, t00=0x0027, t01=0x00de}
0x3dfc…3e06              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0114}
0x3e06…3e1e              Head {h00=0x0014, h01=0x0050, text=»LDIO10 ANK A2,1 «, t00=0x0027, t01=0x011e}
0x3e1e…3e30              Head {h00=0x000e, h01=0x0050, text=» NGR A2,A2«, t00=0x0027, t01=0x0136}
0x3e30…3e62              Head {h00=0x002e, h01=0x0050, text=» SUK A2,2 ERROR, SET RETURN CODE -2 OR -3 «, t00=0x0027, t01=0x0148}
0x3e62…3e94              Head {h00=0x002e, h01=0x0050, text=»  ST A2,TTB:SA+14,A5 SET RETURN CODE IN A7«, t00=0x0027, t01=0x017a}
0x3e94…3e9e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x001c}
0x3e9e…3eb4              Head {h00=0x0012, h01=0x0050, text=» IFT SWPBLK=1 «, t00=0x0028, t01=0x0026}
0x3eb4…3ee8              Head {h00=0x0030, h01=0x0050, text=» LDR A9,A9 CHECK SEGBLK ADDRESS (=0 IF SWB) «, t00=0x0028, t01=0x003c}
0x3ee8…3f0a              Head {h00=0x001e, h01=0x0050, text=» RB(Z) LDEXI3 SWB HANDLING«, t00=0x0028, t01=0x0070}
0x3f0a…3f16              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0092}
0x3f16…3f20              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x009e}
0x3f20…3f46              Head {h00=0x0022, h01=0x0050, text=»* INSERT PAGE IN PAGQUE AGAIN «, t00=0x0028, t01=0x00a8}
0x3f46…3f50              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00ce}
0x3f50…3f7c              Head {h00=0x0028, h01=0x0050, text=» LD A3,SEG:PB,A9 PAGE BLOCK ADDRESS «, t00=0x0028, t01=0x00d8}
0x3f7c…3f88              Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0028, t01=0x0104}
0x3f88…3fac              Head {h00=0x0020, h01=0x0050, text=» CF A15,RELPA2 RELEASE PAGE «, t00=0x0028, t01=0x0110}
0x3fac…3fb6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0134}
0x3fb6…3fcc              Head {h00=0x0012, h01=0x0050, text=» IFT ASMPAG=1 «, t00=0x0028, t01=0x013e}
0x3fcc…3fee              Head {h00=0x001e, h01=0x0050, text=» LDR* A4,A9 SEGMENT STATUS«, t00=0x0028, t01=0x0154}
0x3fee…401a              Head {h00=0x0028, h01=0x0050, text=» SLL A4,1 CHECK IF ASSEMBLER SEGMENT«, t00=0x0028, t01=0x0176}
0x401a…4046              Head {h00=0x0028, h01=0x0050, text=» RF(N) LDIO20 YES, ASSEMBLER SEGMENT«, t00=0x0029, t01=0x0012}
0x4046…4052              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x003e}
0x4052…405c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x004a}
0x405c…4092              Head {h00=0x0032, h01=0x0050, text=» LD* A4,TTB:AP,A5 APPLICATION RESTART ADDRESS «, t00=0x0029, t01=0x0054}
0x4092…40c4              Head {h00=0x002e, h01=0x0050, text=» ST A4,TTB:SA,A5 SET NEW DISPATCH ADDRESS «, t00=0x0029, t01=0x008a}
0x40c4…40ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00bc}
0x40ce…40e2              Head {h00=0x0010, h01=0x0050, text=»LDIO20 EQU *«, t00=0x0029, t01=0x00c6}
0x40e2…410a              Head {h00=0x0024, h01=0x0050, text=» LDKL A4,/100 SEGMENT ERROR BIT «, t00=0x0029, t01=0x00da}
0x410a…411c              Head {h00=0x000e, h01=0x0050, text=» RB LDEXI2«, t00=0x0029, t01=0x0102}
0x411c…4126              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0114}
0x4126…413e              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x0029, t01=0x011e}
0x413e…4148              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0136}
0x4148…4152              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0140}
0x4152…4168              Head {h00=0x0012, h01=0x0050, text=» IFT ASMPAG=1 «, t00=0x0029, t01=0x014a}
0x4168…4172              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0160}
0x4172…417c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x016a}
0x417c…418e              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0029, t01=0x0174}
0x418e…41a0              Head {h00=0x000e, h01=0x0050, text=»* ASSPAG *«, t00=0x0029, t01=0x0186}
0x41a0…41b2              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002a, t01=0x0008}
0x41b2…41bc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x001a}
0x41bc…41c6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0024}
0x41c6…4200              Head {h00=0x0036, h01=0x0050, text=»*   THIS ENTRY IS CALLED FROM THE LDTASK MAIN FLOW«, t00=0x002a, t01=0x002e}
0x4200…423c              Head {h00=0x0038, h01=0x0050, text=»*   WHEN LOADING OF AN ASSEMBLER SEGMENT IS WANTED. «, t00=0x002a, t01=0x0068}
0x423c…4272              Head {h00=0x0032, h01=0x0050, text=»*   ASSPAG WILL READ ONE SECTOR AT A TIME AND «, t00=0x002a, t01=0x00a4}
0x4272…42a0              Head {h00=0x002a, h01=0x0050, text=»*   PERFORM THE NECESSARY RELOCATIONS.«, t00=0x002a, t01=0x00da}
0x42a0…42aa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0108}
0x42aa…42e0              Head {h00=0x0032, h01=0x0050, text=»*   INPUT:  A5 = TTAB ADDRESS OF CALLING TASK «, t00=0x002a, t01=0x0112}
0x42e0…4312              Head {h00=0x002e, h01=0x0050, text=»*    A7 = ORDER CODE, PHYSICAL READ (/91) «, t00=0x002a, t01=0x0148}
0x4312…4332              Head {h00=0x001c, h01=0x0050, text=»*    A8 = LD:ECB ADDRESS«, t00=0x002a, t01=0x017a}
0x4332…4352              Head {h00=0x001c, h01=0x0050, text=»*    A9 = SEGBLK ADDRESS«, t00=0x002b, t01=0x000a}
0x4352…437a              Head {h00=0x0024, h01=0x0050, text=»*   A10 = SEGMENT LENGTH (WORDS)«, t00=0x002b, t01=0x002a}
0x437a…439e              Head {h00=0x0020, h01=0x0050, text=»*   A11 = PAGE SIZE (WORDS) «, t00=0x002b, t01=0x0052}
0x439e…43ce              Head {h00=0x002c, h01=0x0050, text=»*   A12 = PAGE ADDRESS (RELOCATION BASE)«, t00=0x002b, t01=0x0076}
0x43ce…43d8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00a6}
0x43d8…43e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00b0}
0x43e2…440e              Head {h00=0x0028, h01=0x0050, text=»ASSPAG EQU * ASSEMBLER PAGING ENTRY «, t00=0x002b, t01=0x00ba}
0x440e…4420              Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x002b, t01=0x00e6}
0x4420…4450              Head {h00=0x002c, h01=0x0050, text=» SC A1,ECBRL,A8 REQUESTED LENGTH := 256 «, t00=0x002b, t01=0x00f8}
0x4450…445a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0128}
0x445a…4470              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002b, t01=0x0132}
0x4470…44a4              Head {h00=0x0030, h01=0x0050, text=» ST A12,LD:LAD SAVE LOGICAL ADDRESS TO PAGE «, t00=0x002b, t01=0x0148}
0x44a4…44b0              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x017c}
0x44b0…44ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0188}
0x44ba…44d2 (44, 0, 400) Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x002c, t01=0x0004}
0x44d2…44dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x001c}
0x44dc…44e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0026}
0x44e6…44fc              Head {h00=0x0012, h01=0x0050, text=» IFT ASMPAG=1 «, t00=0x002c, t01=0x0030}
0x44fc…4506              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0046}
0x4506…4538              Head {h00=0x002e, h01=0x0050, text=»* PREPARE FOR RELOCATION OF ONE SECTOR AND«, t00=0x002c, t01=0x0050}
0x4538…4570              Head {h00=0x0034, h01=0x0050, text=»* CHECK REMAINING PAGE SIZE. IF NOT LARGE ENOUGH«, t00=0x002c, t01=0x0082}
0x4570…45aa              Head {h00=0x0036, h01=0x0050, text=»* THEN READ (LAST) SECTOR TO INTERMEDIATE BUFFER, «, t00=0x002c, t01=0x00ba}
0x45aa…45e0              Head {h00=0x0032, h01=0x0050, text=»* ELSE READ SECTOR DIRECTLY TO ALLOCATED PAGE.«, t00=0x002c, t01=0x00f4}
0x45e0…45ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x012a}
0x45ea…4620              Head {h00=0x0032, h01=0x0050, text=»ASS:00 EQU * ASSEMBLER PAGING MAIN LOOP ENTRY «, t00=0x002c, t01=0x0134}
0x4620…4636              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x002c, t01=0x016a}
0x4636…465e              Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBBA,A8 SEGMENT POINTER «, t00=0x002c, t01=0x0180}
0x465e…4668              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0018}
0x4668…4674              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x0022}
0x4674…467e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x002e}
0x467e…4694              Head {h00=0x0012, h01=0x0050, text=» IFT ASMPAG=1 «, t00=0x002d, t01=0x0038}
0x4694…46aa              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002d, t01=0x004e}
0x46aa…46dc              Head {h00=0x002e, h01=0x0050, text=» LD A1,LD:LAD GET LOGICAL ADDRESS POINTER «, t00=0x002d, t01=0x0064}
0x46dc…46e8              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x0096}
0x46e8…46f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00a2}
0x46f2…4708              Head {h00=0x0012, h01=0x0050, text=» IFT ASMPAG=1 «, t00=0x002d, t01=0x00ac}
0x4708…4736              Head {h00=0x002a, h01=0x0050, text=» CWK A11,128 CHECK REMAINING PAGE SIZE«, t00=0x002d, t01=0x00c2}
0x4736…4766              Head {h00=0x002c, h01=0x0050, text=» RF(L) ASS:85 INTERMEDIATE BUFFER NEEDED«, t00=0x002d, t01=0x00f0}
0x4766…4790              Head {h00=0x0026, h01=0x0050, text=» SUKL A11,120 REMAINING PAGE SIZE «, t00=0x002d, t01=0x0120}
0x4790…47b2              Head {h00=0x001e, h01=0x0050, text=» CF A14,LD:IO READ SECTOR «, t00=0x002d, t01=0x014a}
0x47b2…47e6              Head {h00=0x0030, h01=0x0050, text=» LDK A2,240 CALC ADDRESS TO RELOCATION BITS «, t00=0x002d, t01=0x016c}
0x47e6…47fa              Head {h00=0x0010, h01=0x0050, text=» CWK A10,120«, t00=0x002e, t01=0x0010}
0x47fa…4810              Head {h00=0x0012, h01=0x0050, text=» RF(NL) ASS:02«, t00=0x002e, t01=0x0024}
0x4810…4824              Head {h00=0x0010, h01=0x0050, text=» LDR A2,A10 «, t00=0x002e, t01=0x003a}
0x4824…4836              Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x002e, t01=0x004e}
0x4836…4840              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0060}
0x4840…4854              Head {h00=0x0010, h01=0x0050, text=»ASS:02 EQU *«, t00=0x002e, t01=0x006a}
0x4854…4866              Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x002e, t01=0x007e}
0x4866…4870              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0090}
0x4870…4888              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x002e, t01=0x009a}
0x4888…4892              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00b2}
0x4892…48b8              Head {h00=0x0022, h01=0x0050, text=»* RELOCATE ONE SEGMENT SECTOR «, t00=0x002e, t01=0x00bc}
0x48b8…48c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00e2}
0x48c2…48d6              Head {h00=0x0010, h01=0x0050, text=»ASS:05 EQU *«, t00=0x002e, t01=0x00ec}
0x48d6…48f4              Head {h00=0x001a, h01=0x0050, text=» SRL A2,1 WORD ADDRESS«, t00=0x002e, t01=0x0100}
0x48f4…4924              Head {h00=0x002c, h01=0x0050, text=» LDR A13,A2 RELOCATION END, THIS SECTOR «, t00=0x002e, t01=0x011e}
0x4924…4936              Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x002e, t01=0x014e}
0x4936…4940              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0160}
0x4940…4954              Head {h00=0x0010, h01=0x0050, text=»ASS:10 EQU *«, t00=0x002e, t01=0x016a}
0x4954…497e              Head {h00=0x0026, h01=0x0050, text=» LDK A3,16 RELOCATION BITS COUNTER«, t00=0x002e, t01=0x017e}
0x497e…4988              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0018}
0x4988…499e              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002f, t01=0x0022}
0x499e…49d4              Head {h00=0x0032, h01=0x0050, text=» LDR A8,A8 CHECK WHERE TO FIND RELOCATION BITS«, t00=0x002f, t01=0x0038}
0x49d4…4a04              Head {h00=0x002c, h01=0x0050, text=» RF(Z) ASS:15 RELOCATION BITS IN LD:BUF «, t00=0x002f, t01=0x006e}
0x4a04…4a2a              Head {h00=0x0022, h01=0x0050, text=» ELR A4,A2 16 RELOCATION BITS «, t00=0x002f, t01=0x009e}
0x4a2a…4a3c              Head {h00=0x000e, h01=0x0050, text=» RF ASS:20«, t00=0x002f, t01=0x00c4}
0x4a3c…4a48              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x00d6}
0x4a48…4a52              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00e2}
0x4a52…4a68              Head {h00=0x0012, h01=0x0050, text=» IFT ASMPAG=1 «, t00=0x002f, t01=0x00ec}
0x4a68…4a7c              Head {h00=0x0010, h01=0x0050, text=»ASS:15 EQU *«, t00=0x002f, t01=0x0102}
0x4a7c…4aa2              Head {h00=0x0022, h01=0x0050, text=» LDR* A4,A2 16 RELOCATION BITS«, t00=0x002f, t01=0x0116}
0x4aa2…4aac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x013c}
0x4aac…4ac0              Head {h00=0x0010, h01=0x0050, text=»ASS:20 EQU *«, t00=0x002f, t01=0x0146}
0x4ac0…4ae8              Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ASS:40 RELOCATION NEEDED«, t00=0x002f, t01=0x015a}
0x4ae8…4af2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0182}
0x4af2…4b06              Head {h00=0x0010, h01=0x0050, text=»ASS:25 EQU *«, t00=0x002f, t01=0x018c}
0x4b06…4b3a              Head {h00=0x0030, h01=0x0050, text=» LDR A6,A3 NUMBER OF RELOCATION BITS TO SKIP«, t00=0x0030, t01=0x0010}
0x4b3a…4b4c              Head {h00=0x000e, h01=0x0050, text=» RF ASS:45«, t00=0x0030, t01=0x0044}
0x4b4c…4b56              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0056}
0x4b56…4b6e              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x0030, t01=0x0060}
0x4b6e…4b78              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0078}
0x4b78…4b82              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0082}
0x4b82…4b96              Head {h00=0x0010, h01=0x0050, text=»ASS:30 EQU *«, t00=0x0030, t01=0x008c}
0x4b96…4bc4              Head {h00=0x002a, h01=0x0050, text=» SLL A4,1 NEXT RELOCATION BIT TO TEST «, t00=0x0030, t01=0x00a0}
0x4bc4…4bee              Head {h00=0x0026, h01=0x0050, text=» RB(Z) ASS:25 NEXT RELOCATION WORD«, t00=0x0030, t01=0x00ce}
0x4bee…4bf8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00f8}
0x4bf8…4c0c              Head {h00=0x0010, h01=0x0050, text=»ASS:40 EQU *«, t00=0x0030, t01=0x0102}
0x4c0c…4c34              Head {h00=0x0024, h01=0x0050, text=» RF(N) ASS:50 RELOCATION NEEDED «, t00=0x0030, t01=0x0116}
0x4c34…4c5a              Head {h00=0x0022, h01=0x0050, text=» SLN A4,A6 SKIP ALL ZERO BITS «, t00=0x0030, t01=0x013e}
0x4c5a…4c86              Head {h00=0x0028, h01=0x0050, text=» ADK A1,2 INCREMENT SEGMENT POINTER «, t00=0x0030, t01=0x0164}
0x4c86…4c90              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0190}
0x4c90…4ca4              Head {h00=0x0010, h01=0x0050, text=»ASS:45 EQU *«, t00=0x0031, t01=0x000a}
0x4ca4…4cd6              Head {h00=0x002e, h01=0x0050, text=» SUR A3,A6 UPDATE RELOCATION BITS COUNTER «, t00=0x0031, t01=0x001e}
0x4cd6…4d0c              Head {h00=0x0032, h01=0x0050, text=» SRL A1,1 WORD ADDRESS FOR SEGMENT POINTER =1 «, t00=0x0031, t01=0x0050}
0x4d0c…4d40              Head {h00=0x0030, h01=0x0050, text=» ADR A1,A6 UPDATE SEGMENT POINTER (WORD) =1 «, t00=0x0031, t01=0x0086}
0x4d40…4d74              Head {h00=0x0030, h01=0x0050, text=» RF(O) ASS:70 ALL RELOCATED,END OF SECTOR =1«, t00=0x0031, t01=0x00ba}
0x4d74…4daa              Head {h00=0x0032, h01=0x0050, text=» SLL A1,1 BYTE ADDRESS FOR SEGMENT POINTER =1 «, t00=0x0031, t01=0x00ee}
0x4daa…4dda              Head {h00=0x002c, h01=0x0050, text=» RF ASS:60 GO AND CHECK IF END OF SECTOR«, t00=0x0031, t01=0x0124}
0x4dda…4de4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0154}
0x4de4…4dfc              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x0031, t01=0x015e}
0x4dfc…4e06              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0176}
0x4e06…4e22              Head {h00=0x0018, h01=0x0050, text=»* RELOCATE ONE WORD «, t00=0x0031, t01=0x0180}
0x4e22…4e2c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x000c}
0x4e2c…4e40              Head {h00=0x0010, h01=0x0050, text=»ASS:50 EQU *«, t00=0x0032, t01=0x0016}
0x4e40…4e56              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0032, t01=0x002a}
0x4e56…4e7e              Head {h00=0x0024, h01=0x0050, text=» ADRS A12,A1 ADD RELOCATION BASE«, t00=0x0032, t01=0x0040}
0x4e7e…4e8a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x0068}
0x4e8a…4e94              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0074}
0x4e94…4eaa              Head {h00=0x0012, h01=0x0050, text=» IFT ASMPAG=1 «, t00=0x0032, t01=0x007e}
0x4eaa…4ec0              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0032, t01=0x0094}
0x4ec0…4ee4              Head {h00=0x0020, h01=0x0050, text=» ELR A6,A1 WORD TO RELOCATE «, t00=0x0032, t01=0x00aa}
0x4ee4…4f0c              Head {h00=0x0024, h01=0x0050, text=» ADR A6,A12 ADD RELOCATION BASE «, t00=0x0032, t01=0x00ce}
0x4f0c…4f34              Head {h00=0x0024, h01=0x0050, text=» ESR A6,A1 STORE RELOCATED WORD «, t00=0x0032, t01=0x00f6}
0x4f34…4f40              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x011e}
0x4f40…4f4a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x012a}
0x4f4a…4f60              Head {h00=0x0012, h01=0x0050, text=» IFT ASMPAG=1 «, t00=0x0032, t01=0x0134}
0x4f60…4f8c              Head {h00=0x0028, h01=0x0050, text=» ADK A1,2 INCREMENT SEGMENT POINTER «, t00=0x0032, t01=0x014a}
0x4f8c…4f96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0176}
0x4f96…4fd8              Head {h00=0x003e, h01=0x0050, text=»* CHECK IF END OF SECTOR OR IF NEW RELOCATION WORD NEEDED «, t00=0x0032, t01=0x0180}
0x4fd8…4fe2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0032}
0x4fe2…4ff6              Head {h00=0x0010, h01=0x0050, text=»ASS:60 EQU *«, t00=0x0033, t01=0x003c}
0x4ff6…5018              Head {h00=0x001e, h01=0x0050, text=» LDR A6,A1 SEGMENT POINTER«, t00=0x0033, t01=0x0050}
0x5018…5036              Head {h00=0x001a, h01=0x0050, text=» SRL A6,1 WORD ADDRESS«, t00=0x0033, t01=0x0072}
0x5036…506e              Head {h00=0x0034, h01=0x0050, text=» SUR A6,A13 COMPARE WITH END OF REL. ADDRESS =2 «, t00=0x0033, t01=0x0090}
0x506e…508a              Head {h00=0x0018, h01=0x0050, text=» ADK A6,0 SET CR =2 «, t00=0x0033, t01=0x00c8}
0x508a…50b2              Head {h00=0x0024, h01=0x0050, text=» RF(NN) ASS:70 END OF SECTOR =2 «, t00=0x0033, t01=0x00e4}
0x50b2…50e6              Head {h00=0x0030, h01=0x0050, text=» SUK A3,1 DECREMENT RELOCATION BITS COUNTER «, t00=0x0033, t01=0x010c}
0x50e6…5110              Head {h00=0x0026, h01=0x0050, text=» RB(P) ASS:30 MORE RELOCATION BITS«, t00=0x0033, t01=0x0140}
0x5110…5144              Head {h00=0x0030, h01=0x0050, text=» ADK A2,2 INCREMENT RELOCATION BITS POINTER «, t00=0x0033, t01=0x016a}
0x5144…5170              Head {h00=0x0028, h01=0x0050, text=» RB ASS:10 NEXT RELOCATION BITS WORD«, t00=0x0034, t01=0x000e}
0x5170…517a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x003a}
0x517a…5192              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x0034, t01=0x0044}
0x5192…519c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x005c}
0x519c…51ce              Head {h00=0x002e, h01=0x0050, text=»* RETURN IF SEGMENT LOADING IS COMPLETED, «, t00=0x0034, t01=0x0066}
0x51ce…5200              Head {h00=0x002e, h01=0x0050, text=»* ELSE PREPARE FOR READING OF NEXT SECTOR.«, t00=0x0034, t01=0x0098}
0x5200…520a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00ca}
0x520a…521e              Head {h00=0x0010, h01=0x0050, text=»ASS:70 EQU *«, t00=0x0034, t01=0x00d4}
0x521e…524c              Head {h00=0x002a, h01=0x0050, text=» SUKL A10,120 DECREMENT SEGMENT LENGTH«, t00=0x0034, t01=0x00e8}
0x524c…527c              Head {h00=0x002c, h01=0x0050, text=» RB(NP) LDEXIT SEGMENT LOADING COMPLETED«, t00=0x0034, t01=0x0116}
0x527c…5290              Head {h00=0x0010, h01=0x0050, text=» LDK A4,240 «, t00=0x0034, t01=0x0146}
0x5290…529a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x015a}
0x529a…52b0              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0034, t01=0x0164}
0x52b0…52dc              Head {h00=0x0028, h01=0x0050, text=» ADS A4,ECBBA,A8 UPDATE PAGE ADDRESS«, t00=0x0034, t01=0x017a}
0x52dc…52e8              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0016}
0x52e8…52f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0022}
0x52f2…5308              Head {h00=0x0012, h01=0x0050, text=» IFT ASMPAG=1 «, t00=0x0035, t01=0x002c}
0x5308…531e              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0035, t01=0x0042}
0x531e…5354              Head {h00=0x0032, h01=0x0050, text=» ADS A4,LD:LAD UPDATE LOGICAL ADDRESS POINTER «, t00=0x0035, t01=0x0058}
0x5354…5366              Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0035, t01=0x008e}
0x5366…5386              Head {h00=0x001c, h01=0x0050, text=» MLR 2,A8 BUFFER ADDRESS«, t00=0x0035, t01=0x00a0}
0x5386…5398              Head {h00=0x000e, h01=0x0050, text=» SLC A1,4 «, t00=0x0035, t01=0x00c0}
0x5398…53a6              Head {h00=0x000a, h01=0x0050, text=» DLL 1«, t00=0x0035, t01=0x00d2}
0x53a6…53b8              Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x0035, t01=0x00e0}
0x53b8…53c8              Head {h00=0x000c, h01=0x0050, text=» DAR A3 «, t00=0x0035, t01=0x00f2}
0x53c8…53da              Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0035, t01=0x0102}
0x53da…53e8              Head {h00=0x000a, h01=0x0050, text=» DRL 1«, t00=0x0035, t01=0x0114}
0x53e8…53fa              Head {h00=0x000e, h01=0x0050, text=» SRC A1,4 «, t00=0x0035, t01=0x0122}
0x53fa…542e              Head {h00=0x0030, h01=0x0050, text=» MSR 2,A8 SET UPDATED BUFFER ADDRESS IN ECB «, t00=0x0035, t01=0x0134}
0x542e…543a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0168}
0x543a…5444              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0174}
0x5444…545c              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x0035, t01=0x017e}
0x545c…5466              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0008}
0x5466…5470              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0012}
0x5470…5486              Head {h00=0x0012, h01=0x0050, text=» IFT ASMPAG=1 «, t00=0x0036, t01=0x001c}
0x5486…54b4              Head {h00=0x002a, h01=0x0050, text=» IM ECBCW2,A8 INCREMENT SECTOR NUMBER «, t00=0x0036, t01=0x0032}
0x54b4…54d2              Head {h00=0x001a, h01=0x0050, text=» RF(O) ASS:80 OVERFLOW«, t00=0x0036, t01=0x0060}
0x54d2…54fe              Head {h00=0x0028, h01=0x0050, text=» RB ASS:00 READ NEXT SECTOR TO PAGE «, t00=0x0036, t01=0x007e}
0x54fe…5508              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00aa}
0x5508…551c              Head {h00=0x0010, h01=0x0050, text=»ASS:80 EQU *«, t00=0x0036, t01=0x00b4}
0x551c…5546              Head {h00=0x0026, h01=0x0050, text=» LDKL A4,/7FFF OVERFLOW CORRECTION«, t00=0x0036, t01=0x00c8}
0x5546…5560              Head {h00=0x0016, h01=0x0050, text=» ANS A4,ECBCW2,A8 «, t00=0x0036, t01=0x00f2}
0x5560…5576              Head {h00=0x0012, h01=0x0050, text=» IM ECBCW1,A8 «, t00=0x0036, t01=0x010c}
0x5576…55a2              Head {h00=0x0028, h01=0x0050, text=» RB ASS:00 READ NEXT SECTOR TO PAGE «, t00=0x0036, t01=0x0122}
0x55a2…55ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x014e}
0x55ac…55c4              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x0036, t01=0x0158}
0x55c4…55ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0170}
0x55ce…5600              Head {h00=0x002e, h01=0x0050, text=»* READ LAST SECTOR TO INTERMEDIATE BUFFER.«, t00=0x0036, t01=0x017a}
0x5600…5634              Head {h00=0x0030, h01=0x0050, text=»* MOVE CODE BUT NOT RELOCATION BITS TO PAGE.«, t00=0x0037, t01=0x001c}
0x5634…563e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0050}
0x563e…5652              Head {h00=0x0010, h01=0x0050, text=»ASS:85 EQU *«, t00=0x0037, t01=0x005a}
0x5652…5684              Head {h00=0x002e, h01=0x0050, text=» LDR A13,A10 SAVE REMAINING SEGMENT LENGTH«, t00=0x0037, t01=0x006e}
0x5684…5698              Head {h00=0x0010, h01=0x0050, text=» LDR A6,A10 «, t00=0x0037, t01=0x00a0}
0x5698…56c2              Head {h00=0x0026, h01=0x0050, text=» LDR A11,A12 SAVE RELOCATION BASE «, t00=0x0037, t01=0x00b4}
0x56c2…56ea              Head {h00=0x0024, h01=0x0050, text=» LDR A12,A1 ACTUAL PAGE ADDRESS «, t00=0x0037, t01=0x00de}
0x56ea…5724              Head {h00=0x0036, h01=0x0050, text=» SUR A10,A10 MEANS,DON'T UPDATE SEC NBR IN LDSEC2 «, t00=0x0037, t01=0x0106}
0x5724…575a              Head {h00=0x0032, h01=0x0050, text=» CF A14,LDSEC2 READ SECTOR AND MOVE IT TO PAGE«, t00=0x0037, t01=0x0140}
0x575a…5792              Head {h00=0x0034, h01=0x0050, text=» LDR A1,A12 LOGICAL ADDRESS OF CODE TO RELOCATE «, t00=0x0037, t01=0x0176}
0x5792…57a6              Head {h00=0x0010, h01=0x0050, text=» LDR A10,A13«, t00=0x0038, t01=0x001e}
0x57a6…57da              Head {h00=0x0030, h01=0x0050, text=» LDR A2,A13 REMAINING SEGMENT LENGTH (WORDS)«, t00=0x0038, t01=0x0032}
0x57da…5810              Head {h00=0x0032, h01=0x0050, text=» ADR A2,A2 DISPL. IN SECTOR TO RELOCATION BITS«, t00=0x0038, t01=0x0066}
0x5810…5842              Head {h00=0x002e, h01=0x0050, text=» ADKL A2,LD:BUF ADDRESS TO RELOCATION BITS«, t00=0x0038, t01=0x009c}
0x5842…584c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00ce}
0x584c…5862              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0038, t01=0x00d8}
0x5862…5898              Head {h00=0x0032, h01=0x0050, text=» SUR A8,A8 INDICATE RELOCATION BITS IN LD:BUF «, t00=0x0038, t01=0x00ee}
0x5898…58a4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x0124}
0x58a4…58ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0130}
0x58ae…58c4              Head {h00=0x0012, h01=0x0050, text=» IFT ASMPAG=1 «, t00=0x0038, t01=0x013a}
0x58c4…58d6              Head {h00=0x000e, h01=0x0050, text=» SRL A1,1 «, t00=0x0038, t01=0x0150}
0x58d6…590e              Head {h00=0x0034, h01=0x0050, text=» ADR A13,A1 VIRTUAL BEGINNING OF RELOCATION BITS«, t00=0x0038, t01=0x0162}
0x590e…5946              Head {h00=0x0034, h01=0x0050, text=» LDR A1,A12 LOGICAL ADDRESS OF CODE TO RELOCATE «, t00=0x0039, t01=0x000a}
0x5946…5972              Head {h00=0x0028, h01=0x0050, text=» LDR A12,A11 RESTORE RELOCATION BASE«, t00=0x0039, t01=0x0042}
0x5972…59a4              Head {h00=0x002e, h01=0x0050, text=» RB ASS:10 RELOCATE LAST SECTOR AND RETURN«, t00=0x0039, t01=0x006e}
0x59a4…59b0              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x00a0}
0x59b0…59ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00ac}
0x59ba…59d2              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x0039, t01=0x00b6}
0x59d2…59dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00ce}
0x59dc…59e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00d8}
0x59e6…59f8              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0039, t01=0x00e2}
0x59f8…5a0a              Head {h00=0x000e, h01=0x0050, text=»* LDSECT *«, t00=0x0039, t01=0x00f4}
0x5a0a…5a1c              Head {h00=0x000e, h01=0x0050, text=»* LDSEC2 *«, t00=0x0039, t01=0x0106}
0x5a1c…5a2e              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0039, t01=0x0118}
0x5a2e…5a38              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x012a}
0x5a38…5a42              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0134}
0x5a42…5a76              Head {h00=0x0030, h01=0x0050, text=»*   NOT ROOM ENOUGH IN PAGE FOR LAST SECTOR:«, t00=0x0039, t01=0x013e}
0x5a76…5aac              Head {h00=0x0032, h01=0x0050, text=»*   READ IT TO MEMORY VIA INTERMEDIATE BUFFER «, t00=0x0039, t01=0x0172}
0x5aac…5ab6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0018}
0x5ab6…5ae2              Head {h00=0x0028, h01=0x0050, text=»*   INPUT:  A6 = NO OF WORDS TO MOVE«, t00=0x003a, t01=0x0022}
0x5ae2…5b0a              Head {h00=0x0024, h01=0x0050, text=»*           A8 = LD:ECB ADDRESS «, t00=0x003a, t01=0x004e}
0x5b0a…5b36              Head {h00=0x0028, h01=0x0050, text=»*    A9 = SEGBLK ADDRESS (=0 IF SWB)«, t00=0x003a, t01=0x0076}
0x5b36…5b6a              Head {h00=0x0030, h01=0x0050, text=»*          A10 = EFFECTIVE LENGTH, LAST I/O «, t00=0x003a, t01=0x00a2}
0x5b6a…5bb0              Head {h00=0x0042, h01=0x0050, text=»*          A12 = LAST USED PAGE ADDRESS, LOGICAL (LDSECT ONLY)«, t00=0x003a, t01=0x00d6}
0x5bb0…5bec              Head {h00=0x0038, h01=0x0050, text=»*       = ACTUAL PAGE ADDRESS, LOGICAL (LDSEC2 ONLY)«, t00=0x003a, t01=0x011c}
0x5bec…5bf6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0158}
0x5bf6…5c10              Head {h00=0x0016, h01=0x0050, text=»*   OUTPUT: A6 = 0«, t00=0x003a, t01=0x0162}
0x5c10…5c46              Head {h00=0x0032, h01=0x0050, text=»*          A12 = ACTUAL PAGE ADDRESS (LOGICAL)«, t00=0x003a, t01=0x017c}
0x5c46…5c76              Head {h00=0x002c, h01=0x0050, text=»*           A1-A4, A7, A10 ARE DESTROYED«, t00=0x003b, t01=0x0022}
0x5c76…5c80              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0052}
0x5c80…5c8a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x005c}
0x5c8a…5c9e              Head {h00=0x0010, h01=0x0050, text=»LDSECT EQU *«, t00=0x003b, t01=0x0066}
0x5c9e…5cce              Head {h00=0x002c, h01=0x0050, text=» ADR A12,A10 UPDATE DESTINATION POINTER «, t00=0x003b, t01=0x007a}
0x5cce…5cd8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00aa}
0x5cd8…5cf0              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x003b, t01=0x00b4}
0x5cf0…5cfa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00cc}
0x5cfa…5d16              Head {h00=0x0018, h01=0x0050, text=»* SET ECB PARAMETERS«, t00=0x003b, t01=0x00d6}
0x5d16…5d20              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00f2}
0x5d20…5d34              Head {h00=0x0010, h01=0x0050, text=»LDSEC2 EQU *«, t00=0x003b, t01=0x00fc}
0x5d34…5d4a              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x003b, t01=0x0110}
0x5d4a…5d78              Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LD:BUF LDTASK BUFFER ADDRESS «, t00=0x003b, t01=0x0126}
0x5d78…5d90              Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBBA,A8 «, t00=0x003b, t01=0x0154}
0x5d90…5da4              Head {h00=0x0010, h01=0x0050, text=» LDK A2,/80 «, t00=0x003b, t01=0x016c}
0x5da4…5dda              Head {h00=0x0032, h01=0x0050, text=» SCR A2,A8 INDICATE BUFFER NOW IN SYSTEM AREA «, t00=0x003b, t01=0x0180}
0x5dda…5df8              Head {h00=0x001a, h01=0x0050, text=» ADK A2,/80 A2 := 256 «, t00=0x003c, t01=0x0026}
0x5df8…5e32              Head {h00=0x0036, h01=0x0050, text=» ST A2,ECBRL,A8 SET REQUESTED LENGTH TO ONE SECTOR«, t00=0x003c, t01=0x0044}
0x5e32…5e48              Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/7FFF«, t00=0x003c, t01=0x007e}
0x5e48…5e54              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x0094}
0x5e54…5e5e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00a0}
0x5e5e…5e74              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x003c, t01=0x00aa}
0x5e74…5e82              Head {h00=0x000a, h01=0x0050, text=» MLK 4«, t00=0x003c, t01=0x00c0}
0x5e82…5e9a              Head {h00=0x0014, h01=0x0050, text=» DATA LD:BUF,256«, t00=0x003c, t01=0x00ce}
0x5e9a…5eb2              Head {h00=0x0014, h01=0x0050, text=» DATA /80,/7FFF «, t00=0x003c, t01=0x00e6}
0x5eb2…5ee8              Head {h00=0x0032, h01=0x0050, text=» SCR A3,A8 INDICATE BUFFER NOW IN SYSTEM AREA «, t00=0x003c, t01=0x00fe}
0x5ee8…5f1e              Head {h00=0x0032, h01=0x0050, text=» MS 2,ECBBA,A8 SET BUFFER AND REQUESTED LENGTH«, t00=0x003c, t01=0x0134}
0x5f1e…5f2a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x016a}
0x5f2a…5f34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0176}
0x5f34…5f48              Head {h00=0x0010, h01=0x0050, text=» ECR A2,A10 «, t00=0x003c, t01=0x0180}
0x5f48…5f76 (61, 0, 398) Head {h00=0x002a, h01=0x0050, text=» ADS A2,ECBCW2,A8 UPDATE SECTOR NUMBER«, t00=0x003d, t01=0x0004}
0x5f76…5f94              Head {h00=0x001a, h01=0x0050, text=» RF(O) LDS:30 OVERFLOW«, t00=0x003d, t01=0x0032}
0x5f94…5f9e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0050}
0x5f9e…5fb2              Head {h00=0x0010, h01=0x0050, text=»LDS:10 EQU *«, t00=0x003d, t01=0x005a}
0x5fb2…5fe2              Head {h00=0x002c, h01=0x0050, text=» CF A14,LD:IO READ ONE SECTOR TO LD:BUF «, t00=0x003d, t01=0x006e}
0x5fe2…600a              Head {h00=0x0024, h01=0x0050, text=» LDR A2,A12 DESTINATION POINTER «, t00=0x003d, t01=0x009e}
0x600a…6034              Head {h00=0x0026, h01=0x0050, text=» ADR A6,A6 CONVERT LENGTH TO BYTES«, t00=0x003d, t01=0x00c6}
0x6034…603e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00f0}
0x603e…6056              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x003d, t01=0x00fa}
0x6056…6060              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0112}
0x6060…6088              Head {h00=0x0024, h01=0x0050, text=»* MOVE LAST PART OF SEGMENT/SWB «, t00=0x003d, t01=0x011c}
0x6088…6092              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0144}
0x6092…60a8              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x003d, t01=0x014e}
0x60a8…60d6              Head {h00=0x002a, h01=0x0050, text=» MVSU A6 MOVE LAST PART OF SEGMENT/SWB«, t00=0x003d, t01=0x0164}
0x60d6…60e2 (62, 0, 398) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x0004}
0x60e2…60ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0010}
0x60ec…6100              Head {h00=0x0010, h01=0x0050, text=»LDS:20 EQU *«, t00=0x003e, t01=0x001a}
0x6100…6116              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x003e, t01=0x002e}
0x6116…612c              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x003e, t01=0x0044}
0x612c…614e              Head {h00=0x001e, h01=0x0050, text=» LDR* A10,A1 MOVE ONE WORD«, t00=0x003e, t01=0x005a}
0x614e…6162              Head {h00=0x0010, h01=0x0050, text=» STR A10,A2 «, t00=0x003e, t01=0x007c}
0x6162…618e              Head {h00=0x0028, h01=0x0050, text=» ADK A1,2 INCREMENT BUFFER POINTERS «, t00=0x003e, t01=0x0090}
0x618e…61a0              Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x003e, t01=0x00bc}
0x61a0…61c4              Head {h00=0x0020, h01=0x0050, text=» SUK A6,2 DECREMENT COUNTER «, t00=0x003e, t01=0x00ce}
0x61c4…61da              Head {h00=0x0012, h01=0x0050, text=» RB(P) LDS:20 «, t00=0x003e, t01=0x00f2}
0x61da…61e6              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x0108}
0x61e6…61f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0114}
0x61f0…6206              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x003e, t01=0x011e}
0x6206…621c              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x003e, t01=0x0134}
0x621c…6232              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x003e, t01=0x014a}
0x6232…6254              Head {h00=0x001e, h01=0x0050, text=» LDR* A10,A1 MOVE ONE WORD«, t00=0x003e, t01=0x0160}
0x6254…6268              Head {h00=0x0010, h01=0x0050, text=» STR A10,A2 «, t00=0x003e, t01=0x0182}
0x6268…6294              Head {h00=0x0028, h01=0x0050, text=» ADK A1,2 INCREMENT BUFFER POINTERS «, t00=0x003f, t01=0x0008}
0x6294…62a6              Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x003f, t01=0x0034}
0x62a6…62ca              Head {h00=0x0020, h01=0x0050, text=» SUK A6,2 DECREMENT COUNTER «, t00=0x003f, t01=0x0046}
0x62ca…62e0              Head {h00=0x0012, h01=0x0050, text=» RB(P) LDS:20 «, t00=0x003f, t01=0x006a}
0x62e0…62ec              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x0080}
0x62ec…62f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x008c}
0x62f6…630c              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x003f, t01=0x0096}
0x630c…6322              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x003f, t01=0x00ac}
0x6322…6338              Head {h00=0x0012, h01=0x0050, text=» IFT CPU857=1 «, t00=0x003f, t01=0x00c2}
0x6338…636e              Head {h00=0x0032, h01=0x0050, text=» MVB A6 MOVE REMAINING PART OF SEGMENT TO PAGE«, t00=0x003f, t01=0x00d8}
0x636e…637a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x010e}
0x637a…6384              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x011a}
0x6384…6394              Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003f, t01=0x0124}
0x6394…639e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0134}
0x639e…63b2              Head {h00=0x0010, h01=0x0050, text=»LDS:30 EQU *«, t00=0x003f, t01=0x013e}
0x63b2…63dc              Head {h00=0x0026, h01=0x0050, text=» IM ECBCW1,A8 OVERFLOW CORRECTION «, t00=0x003f, t01=0x0152}
0x63dc…63f6              Head {h00=0x0016, h01=0x0050, text=» ANS A4,ECBCW2,A8 «, t00=0x003f, t01=0x017c}
0x63f6…6408              Head {h00=0x000e, h01=0x0050, text=» RB LDS:10«, t00=0x0040, t01=0x0008}
0x6408…6412              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x001a}
0x6412…642a              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x0040, t01=0x0024}
0x642a…6434              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x003c}
0x6434…643e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0046}
0x643e…6450              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0040, t01=0x0050}
0x6450…6462              Head {h00=0x000e, h01=0x0050, text=»* QLTDSK *«, t00=0x0040, t01=0x0062}
0x6462…6474              Head {h00=0x000e, h01=0x0050, text=»* QLTSWB *«, t00=0x0040, t01=0x0074}
0x6474…6486              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0040, t01=0x0086}
0x6486…6490              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0098}
0x6490…649a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00a2}
0x649a…64d8              Head {h00=0x003a, h01=0x0050, text=»*   THIS ROUTINE PERFORMS ACTIVATION OF THE LOAD TASK.«, t00=0x0040, t01=0x00ac}
0x64d8…64e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00ea}
0x64e2…6520              Head {h00=0x003a, h01=0x0050, text=»*   ACTIVATION IS AT LT:DSK WHEN DISC PAGING REQUEST. «, t00=0x0040, t01=0x00f4}
0x6520…6566              Head {h00=0x0042, h01=0x0050, text=»*   ACTIVATION IS AT LT:SWB WHEN SWAPPABLE WORK BLOCK REQUEST.«, t00=0x0040, t01=0x0132}
0x6566…6570              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0178}
0x6570…65a8              Head {h00=0x0034, h01=0x0050, text=»*   INPUT:  A1 = SEGMENT BLOCK ADDRESS (LT:DSK) «, t00=0x0040, t01=0x0182}
0x65a8…65e2              Head {h00=0x0036, h01=0x0050, text=»*         = SWAPPABLE WORK BLOCK ADDRESS (LT:SWB) «, t00=0x0041, t01=0x002a}
0x65e2…6618              Head {h00=0x0032, h01=0x0050, text=»*           A3 = TTAB ADDRESS OF CALLING TASK «, t00=0x0041, t01=0x0064}
0x6618…6646              Head {h00=0x002a, h01=0x0050, text=»*    A4 = LKM DATA DIRECTIVE (LT:SWB) «, t00=0x0041, t01=0x009a}
0x6646…6650              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00c8}
0x6650…6678              Head {h00=0x0024, h01=0x0050, text=»*   OUTPUT: A2, A5 ARE DESTROYED«, t00=0x0041, t01=0x00d2}
0x6678…6682              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00fa}
0x6682…668c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0104}
0x668c…66c0              Head {h00=0x0030, h01=0x0050, text=»QLTSWB EQU * ACTIVATE LDTASK AT ENTRY LT:SWB«, t00=0x0041, t01=0x010e}
0x66c0…66d6              Head {h00=0x0012, h01=0x0050, text=» IFT SWPBLK=1 «, t00=0x0041, t01=0x0142}
0x66d6…66fe              Head {h00=0x0024, h01=0x0050, text=» LDKL A2,LT:SWB DISPATCH ADDRESS«, t00=0x0041, t01=0x0158}
0x66fe…6710              Head {h00=0x000e, h01=0x0050, text=» RF QLTASK«, t00=0x0041, t01=0x0180}
0x6710…671c (66, 0, 398) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0004}
0x671c…6726              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0010}
0x6726…673c              Head {h00=0x0012, h01=0x0050, text=» IFT SWPBLK=0 «, t00=0x0042, t01=0x001a}
0x673c…6776              Head {h00=0x0036, h01=0x0050, text=» ABL LKMERR INDICATE SYSGEN ERROR AND HALT SYSTEM «, t00=0x0042, t01=0x0030}
0x6776…6782              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x006a}
0x6782…678c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0076}
0x678c…67c0              Head {h00=0x0030, h01=0x0050, text=»QLTDSK EQU * ACTIVATE LDTASK AT ENTRY LT:DSK«, t00=0x0042, t01=0x0080}
0x67c0…67e8              Head {h00=0x0024, h01=0x0050, text=» LDKL A2,LT:DSK DISPATCH ADDRESS«, t00=0x0042, t01=0x00b4}
0x67e8…67f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00dc}
0x67f2…680a              Head {h00=0x0014, h01=0x0050, text=» EJECT   LDTASK «, t00=0x0042, t01=0x00e6}
0x680a…6814              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00fe}
0x6814…681e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0108}
0x681e…6832              Head {h00=0x0010, h01=0x0050, text=»QLTASK EQU *«, t00=0x0042, t01=0x0112}
0x6832…685e              Head {h00=0x0028, h01=0x0050, text=» LDKL A5,TTABLD LDTASK TTAB ADDRESS «, t00=0x0042, t01=0x0126}
0x685e…6880              Head {h00=0x001e, h01=0x0050, text=» ABL ACTOT ACTIVATE LDTASK«, t00=0x0042, t01=0x0152}
0x6880…688a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0174}
0x688a…6894              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x017e}
0x6894…689e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0188}
0x689e…68aa (67, 2, 20)  Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0043, t01=0x0004}
0x68aa…68ae              Head {h00=0x4004, h01=0x0000}
0x68ae…68b0              00 43                                                                                                                                                                                                                                             ┆ C┆
0x68b0…68b2              00 10                                                                                                                                                                                                                                             ┆  ┆
0x68b2…68ba (68, 1, 8)   20 04 00 00 00 44 00 04                                                                                                                                                                                                                           ┆     D  ┆

Reduced view