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

⟦c5c099b36⟧ 

    Length: 4544 (0x11c0)
    Notes: pts_type(SC)
    Names: »LOADER.SC«

Derivation

└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
    └─⟦this⟧ »TOSSWORK/LOADER.SC«

PTS(SC)

	IDENT LOADER 	REL 8.2 78-09-15  870105040820 

* 
**************************************************
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   LOADER = TOSS LKM-PROCESSOR FOR SEGMENT LOADING 
*            FROM DISC
* 
* 
* 
* 
* 
**************************************************
* 
*   THIS MODULE CONTAINS THE LKM-PROCESSOR
* 
*   L O A D E R 
* 
*   THIS MODULE IS ENTERED WHEN LOADING OF A SEGMENT
*   IS REQUIRED.
*   THE MODULE IS CALLED BY THE LKM-HANDLING MODULE.
* 
*   ENTRY PARAMETERS: 
*   A5= TTAB ADDRESS
*   A7= SEGMENT NUMBER
*   A8= DISPLACEMENT
* 
*   IF SEGMENT ZERO THE JOB WILL BE PUT IN
*   DIPATCHER QUEUE ELSE A LOAD-TASK IS ACTIVATED WITH ADDRESS
*   OF A LOAD PARAMETER BLOCK IN A1 AS THE ONLY PARAMETER.
* 
*   EXIT PARAMETERS TO LOAD TASK: 
*   A1= ADDRESS TO BLOCK IN MONITOR BLOCK POOL
*       CONTAINING: FIRST PARAM= SEGMENT POINTER IN LSBT
*                   SECOND PARAM= DISPLACEMNT 
*                   THIRD PARAM= TTAB-ADDRESS 
* 
*   IF AN ERROR CONDITION IS DETECTED THE ERROR 
*   RETURN WILL BE PERFORMED AT THE INSTRUCTION 
*   FOLLOWING THE LKM-REQUEST 
* 
*   EXIT PARAMETER: 
*   A7= -1
	EJECT
* 
*********** 
* ENTRIES * 
*********** 
* 
* 
	ENTRY	LOADER	SEGMENT LOAD PROCESSOR
	ENTRY	LD150	ENTRY FROM INTERPRETER 
* 
************* 
* EXTERNALS * 
************* 
* 
* 
	EXTRN	GETBLK 
	EXTRN	LDTASK 
	EXTRN	ACTOT
	EXTRN	QTJOB
	EXTRN	TDISP
	EXTRN	LKMRQE	LKM REQUEST ERROR ROUTINE 
	EXTRN	TTB:SS	START ADDRESS OF LAST SEGMENT 
	EXTRN	TTB:SP	POINTER TO LAST SEGMENT IN LSBT 
	EXTRN	TTB:SA	DISPATCH ADDRESS
	EXTRN	TTABLD	LOAD TASK TABLE 
* 
************* 
* CONSTANTS * 
************* 
* 
* 
CVTLSB	EQU	/9A	START ADDRESS OF LOAD SEGM BLK 
			FIRST WORD CONTAINS LSBT-LENGTH
CVTAPA	EQU	/94	APPLICATION ADDRESS
	EJECT
* 
*   CHECK IF WANTED SEGMENT = ROOT SEGMENT
* 
LOADER	EQU	*
	SUKL	A8,1
	ADR	A8,A8
	LDR	A7,A7	SEGMENT NBR 0? 
	RF(NZ)	LD050	NO! 
	LD	A2,CVTAPA	YES CALCULATE DISPATCH ADDRESS
	CM	TTB:SP,A5 
	CM	TTB:SS,A5 
LD010	EQU	* 
	ADR	A2,A8	GET DISPATCH ADDRESS 
	LDR*	A2,A2	ASOLUTE ADDRESS 
	ST	A2,TTB:SA,A5	UPDATE TTAB
	CF	A15,QTJOB	QUEUE JOB 
	RF	LD200 
	EJECT
* 
*   CHECK VALIDITY OF SEGMENT NBR 
* 
LD050	EQU	* 
	LDR	A3,A7	CALCULATE 12 TIMES SEGNBR
	SLL	A3,2 
	LDR	A2,A3
	SLL	A2,1 
	ADR	A3,A2
	CW*	A3,CVTLSB	CMP WITH LSB-LENGTH
	RF(NL)	LDERR 
* 
*   SEGMENT ALREADY LOADED
* 
	AD	A3,CVTLSB	GET LOAD STATUS OF SEGMENT
	ADK	A3,2 
	LDR*	A2,A3 
	RF(N)	LD100	LOAD IF NOT LOADED 
	ST	A3,TTB:SP,A5	UPDATE POINTER 
	LD	A2,2,A3	NEW LOAD ADDRESS
	ST	A2,TTB:SS,A5	UPDATE 
	RB	LD010	QUEUE JOB AND DISPATCH
	EJECT
* 
*   GET PARAMETER BLOCK AND FILL IN 
*   SEGNBR,DISPL AND TTAB-ADDRESS 
* 
LD100	EQU	* 
	LDR	A2,A8	LOAD DISPLACEMENT
	LDR	A1,A5	LOAD TTAB-ADDRESS
LD150	EQU	* 
	CF	A15,GETBLK	GET MONITOR BLOCK
* 
*   ACTIVATE LOAD TASK AND PUT IT IN THE DISPATCHER QUEUE 
* 
	LDR	A1,A4	LOAD PARAMETER 
	LDKL	A2,LDTASK	LOAD DISPATCH ADDRESS 
	LDKL	A5,TTABLD 
	LDK	A3,0 
	CF	A15,ACTOT	ACTIVATE LOAD TASK
* 
*   EXIT TO TERMINAL DISPATCHER 
* 
LD200	EQU	* 
	ABL	TDISP
* 
*   ERROR EXIT
* 
LDERR	EQU	* 
	ABL	LKMRQE	SET A7=-1 QUE AND DISPATCH
	END

HexDump

0x0000…0036 (0, 0, 398)  Head {h00=0x0032, h01=0x0050, text=» IDENT LOADER  REL 8.2 78-09-15  870105040820 «, t00=0x0000, t01=0x0004}
0x0036…003e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0082              Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x004c}
0x0082…008c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0086}
0x008c…00b4              Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0090}
0x00b4…00be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b8}
0x00be…00fa              Head {h00=0x0038, h01=0x0050, text=»*   LOADER = TOSS LKM-PROCESSOR FOR SEGMENT LOADING «, t00=0x0000, t01=0x00c2}
0x00fa…0118              Head {h00=0x001a, h01=0x0050, text=»*            FROM DISC«, t00=0x0000, t01=0x00fe}
0x0118…0122              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011c}
0x0122…012c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0126}
0x012c…0136              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0130}
0x0136…0140              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x013a}
0x0140…014a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0144}
0x014a…0184              Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x014e}
0x0184…018e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0188}
0x018e…01c0 (1, 0, 400)  Head {h00=0x002e, h01=0x0050, text=»*   THIS MODULE CONTAINS THE LKM-PROCESSOR«, t00=0x0001, t01=0x0004}
0x01c0…01ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0036}
0x01ca…01e2              Head {h00=0x0014, h01=0x0050, text=»*   L O A D E R «, t00=0x0001, t01=0x0040}
0x01e2…01ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0058}
0x01ec…0228              Head {h00=0x0038, h01=0x0050, text=»*   THIS MODULE IS ENTERED WHEN LOADING OF A SEGMENT«, t00=0x0001, t01=0x0062}
0x0228…0240              Head {h00=0x0014, h01=0x0050, text=»*   IS REQUIRED.«, t00=0x0001, t01=0x009e}
0x0240…027c              Head {h00=0x0038, h01=0x0050, text=»*   THE MODULE IS CALLED BY THE LKM-HANDLING MODULE.«, t00=0x0001, t01=0x00b6}
0x027c…0286              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f2}
0x0286…02a4              Head {h00=0x001a, h01=0x0050, text=»*   ENTRY PARAMETERS: «, t00=0x0001, t01=0x00fc}
0x02a4…02c0              Head {h00=0x0018, h01=0x0050, text=»*   A5= TTAB ADDRESS«, t00=0x0001, t01=0x011a}
0x02c0…02de              Head {h00=0x001a, h01=0x0050, text=»*   A7= SEGMENT NUMBER«, t00=0x0001, t01=0x0136}
0x02de…02fa              Head {h00=0x0018, h01=0x0050, text=»*   A8= DISPLACEMENT«, t00=0x0001, t01=0x0154}
0x02fa…0304              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0170}
0x0304…0336              Head {h00=0x002e, h01=0x0050, text=»*   IF SEGMENT ZERO THE JOB WILL BE PUT IN«, t00=0x0001, t01=0x017a}
0x0336…037c              Head {h00=0x0042, h01=0x0050, text=»*   DIPATCHER QUEUE ELSE A LOAD-TASK IS ACTIVATED WITH ADDRESS«, t00=0x0002, t01=0x001c}
0x037c…03be              Head {h00=0x003e, h01=0x0050, text=»*   OF A LOAD PARAMETER BLOCK IN A1 AS THE ONLY PARAMETER.«, t00=0x0002, t01=0x0062}
0x03be…03c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a4}
0x03c8…03f2              Head {h00=0x0026, h01=0x0050, text=»*   EXIT PARAMETERS TO LOAD TASK: «, t00=0x0002, t01=0x00ae}
0x03f2…0428              Head {h00=0x0032, h01=0x0050, text=»*   A1= ADDRESS TO BLOCK IN MONITOR BLOCK POOL«, t00=0x0002, t01=0x00d8}
0x0428…0468              Head {h00=0x003c, h01=0x0050, text=»*       CONTAINING: FIRST PARAM= SEGMENT POINTER IN LSBT«, t00=0x0002, t01=0x010e}
0x0468…049e              Head {h00=0x0032, h01=0x0050, text=»*                   SECOND PARAM= DISPLACEMNT «, t00=0x0002, t01=0x014e}
0x049e…04d4              Head {h00=0x0032, h01=0x0050, text=»*                   THIRD PARAM= TTAB-ADDRESS «, t00=0x0002, t01=0x0184}
0x04d4…04de              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x002a}
0x04de…0516              Head {h00=0x0034, h01=0x0050, text=»*   IF AN ERROR CONDITION IS DETECTED THE ERROR «, t00=0x0003, t01=0x0034}
0x0516…054e              Head {h00=0x0034, h01=0x0050, text=»*   RETURN WILL BE PERFORMED AT THE INSTRUCTION «, t00=0x0003, t01=0x006c}
0x054e…0574              Head {h00=0x0022, h01=0x0050, text=»*   FOLLOWING THE LKM-REQUEST «, t00=0x0003, t01=0x00a4}
0x0574…057e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ca}
0x057e…059a              Head {h00=0x0018, h01=0x0050, text=»*   EXIT PARAMETER: «, t00=0x0003, t01=0x00d4}
0x059a…05ac              Head {h00=0x000e, h01=0x0050, text=»*   A7= -1«, t00=0x0003, t01=0x00f0}
0x05ac…05ba              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0102}
0x05ba…05c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0110}
0x05c4…05d8              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x011a}
0x05d8…05ec              Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0003, t01=0x012e}
0x05ec…0600              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x0142}
0x0600…060a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0156}
0x060a…0614              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0160}
0x0614…0640              Head {h00=0x0028, h01=0x0050, text=» ENTRY LOADER SEGMENT LOAD PROCESSOR«, t00=0x0003, t01=0x016a}
0x0640…066c              Head {h00=0x0028, h01=0x0050, text=» ENTRY LD150 ENTRY FROM INTERPRETER «, t00=0x0004, t01=0x0008}
0x066c…0676              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0034}
0x0676…068c              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x003e}
0x068c…06a2              Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0004, t01=0x0054}
0x06a2…06b8              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x006a}
0x06b8…06c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0080}
0x06c2…06cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008a}
0x06cc…06e2              Head {h00=0x0012, h01=0x0050, text=» EXTRN GETBLK «, t00=0x0004, t01=0x0094}
0x06e2…06f8              Head {h00=0x0012, h01=0x0050, text=» EXTRN LDTASK «, t00=0x0004, t01=0x00aa}
0x06f8…070c              Head {h00=0x0010, h01=0x0050, text=» EXTRN ACTOT«, t00=0x0004, t01=0x00c0}
0x070c…0720              Head {h00=0x0010, h01=0x0050, text=» EXTRN QTJOB«, t00=0x0004, t01=0x00d4}
0x0720…0734              Head {h00=0x0010, h01=0x0050, text=» EXTRN TDISP«, t00=0x0004, t01=0x00e8}
0x0734…0764              Head {h00=0x002c, h01=0x0050, text=» EXTRN LKMRQE LKM REQUEST ERROR ROUTINE «, t00=0x0004, t01=0x00fc}
0x0764…0798              Head {h00=0x0030, h01=0x0050, text=» EXTRN TTB:SS START ADDRESS OF LAST SEGMENT «, t00=0x0004, t01=0x012c}
0x0798…07ce              Head {h00=0x0032, h01=0x0050, text=» EXTRN TTB:SP POINTER TO LAST SEGMENT IN LSBT «, t00=0x0004, t01=0x0160}
0x07ce…07f4              Head {h00=0x0022, h01=0x0050, text=» EXTRN TTB:SA DISPATCH ADDRESS«, t00=0x0005, t01=0x0008}
0x07f4…081a              Head {h00=0x0022, h01=0x0050, text=» EXTRN TTABLD LOAD TASK TABLE «, t00=0x0005, t01=0x002e}
0x081a…0824              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0054}
0x0824…083a              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x005e}
0x083a…0850              Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0005, t01=0x0074}
0x0850…0866              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x008a}
0x0866…0870              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00a0}
0x0870…087a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00aa}
0x087a…08b0              Head {h00=0x0032, h01=0x0050, text=»CVTLSB EQU /9A START ADDRESS OF LOAD SEGM BLK «, t00=0x0005, t01=0x00b4}
0x08b0…08da              Head {h00=0x0026, h01=0x0050, text=»   FIRST WORD CONTAINS LSBT-LENGTH«, t00=0x0005, t01=0x00ea}
0x08da…0904              Head {h00=0x0026, h01=0x0050, text=»CVTAPA EQU /94 APPLICATION ADDRESS«, t00=0x0005, t01=0x0114}
0x0904…0912              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x013e}
0x0912…091c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x014c}
0x091c…094e              Head {h00=0x002e, h01=0x0050, text=»*   CHECK IF WANTED SEGMENT = ROOT SEGMENT«, t00=0x0005, t01=0x0156}
0x094e…0958              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0188}
0x0958…096c (6, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»LOADER EQU *«, t00=0x0006, t01=0x0004}
0x096c…097e              Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x0006, t01=0x0018}
0x097e…0990              Head {h00=0x000e, h01=0x0050, text=» ADR A8,A8«, t00=0x0006, t01=0x002a}
0x0990…09b2              Head {h00=0x001e, h01=0x0050, text=» LDR A7,A7 SEGMENT NBR 0? «, t00=0x0006, t01=0x003c}
0x09b2…09cc              Head {h00=0x0016, h01=0x0050, text=» RF(NZ) LD050 NO! «, t00=0x0006, t01=0x005e}
0x09cc…0a00              Head {h00=0x0030, h01=0x0050, text=» LD A2,CVTAPA YES CALCULATE DISPATCH ADDRESS«, t00=0x0006, t01=0x0078}
0x0a00…0a16              Head {h00=0x0012, h01=0x0050, text=» CM TTB:SP,A5 «, t00=0x0006, t01=0x00ac}
0x0a16…0a2c              Head {h00=0x0012, h01=0x0050, text=» CM TTB:SS,A5 «, t00=0x0006, t01=0x00c2}
0x0a2c…0a40              Head {h00=0x0010, h01=0x0050, text=»LD010 EQU * «, t00=0x0006, t01=0x00d8}
0x0a40…0a68              Head {h00=0x0024, h01=0x0050, text=» ADR A2,A8 GET DISPATCH ADDRESS «, t00=0x0006, t01=0x00ec}
0x0a68…0a8c              Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A2 ASOLUTE ADDRESS «, t00=0x0006, t01=0x0114}
0x0a8c…0ab0              Head {h00=0x0020, h01=0x0050, text=» ST A2,TTB:SA,A5 UPDATE TTAB«, t00=0x0006, t01=0x0138}
0x0ab0…0ad0              Head {h00=0x001c, h01=0x0050, text=» CF A15,QTJOB QUEUE JOB «, t00=0x0006, t01=0x015c}
0x0ad0…0ae2              Head {h00=0x000e, h01=0x0050, text=» RF LD200 «, t00=0x0006, t01=0x017c}
0x0ae2…0af0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x018e}
0x0af0…0afa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x000c}
0x0afa…0b24              Head {h00=0x0026, h01=0x0050, text=»*   CHECK VALIDITY OF SEGMENT NBR «, t00=0x0007, t01=0x0016}
0x0b24…0b2e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0040}
0x0b2e…0b42              Head {h00=0x0010, h01=0x0050, text=»LD050 EQU * «, t00=0x0007, t01=0x004a}
0x0b42…0b6e              Head {h00=0x0028, h01=0x0050, text=» LDR A3,A7 CALCULATE 12 TIMES SEGNBR«, t00=0x0007, t01=0x005e}
0x0b6e…0b80              Head {h00=0x000e, h01=0x0050, text=» SLL A3,2 «, t00=0x0007, t01=0x008a}
0x0b80…0b92              Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0007, t01=0x009c}
0x0b92…0ba4              Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0007, t01=0x00ae}
0x0ba4…0bb6              Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0007, t01=0x00c0}
0x0bb6…0be0              Head {h00=0x0026, h01=0x0050, text=» CW* A3,CVTLSB CMP WITH LSB-LENGTH«, t00=0x0007, t01=0x00d2}
0x0be0…0bf6              Head {h00=0x0012, h01=0x0050, text=» RF(NL) LDERR «, t00=0x0007, t01=0x00fc}
0x0bf6…0c00              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0112}
0x0c00…0c22              Head {h00=0x001e, h01=0x0050, text=»*   SEGMENT ALREADY LOADED«, t00=0x0007, t01=0x011c}
0x0c22…0c2c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x013e}
0x0c2c…0c5c              Head {h00=0x002c, h01=0x0050, text=» AD A3,CVTLSB GET LOAD STATUS OF SEGMENT«, t00=0x0007, t01=0x0148}
0x0c5c…0c6e              Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0007, t01=0x0178}
0x0c6e…0c82              Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A3 «, t00=0x0007, t01=0x018a}
0x0c82…0caa              Head {h00=0x0024, h01=0x0050, text=» RF(N) LD100 LOAD IF NOT LOADED «, t00=0x0008, t01=0x000e}
0x0caa…0cd2              Head {h00=0x0024, h01=0x0050, text=» ST A3,TTB:SP,A5 UPDATE POINTER «, t00=0x0008, t01=0x0036}
0x0cd2…0cf6              Head {h00=0x0020, h01=0x0050, text=» LD A2,2,A3 NEW LOAD ADDRESS«, t00=0x0008, t01=0x005e}
0x0cf6…0d16              Head {h00=0x001c, h01=0x0050, text=» ST A2,TTB:SS,A5 UPDATE «, t00=0x0008, t01=0x0082}
0x0d16…0d3e              Head {h00=0x0024, h01=0x0050, text=» RB LD010 QUEUE JOB AND DISPATCH«, t00=0x0008, t01=0x00a2}
0x0d3e…0d4c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00ca}
0x0d4c…0d56              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00d8}
0x0d56…0d82              Head {h00=0x0028, h01=0x0050, text=»*   GET PARAMETER BLOCK AND FILL IN «, t00=0x0008, t01=0x00e2}
0x0d82…0dac              Head {h00=0x0026, h01=0x0050, text=»*   SEGNBR,DISPL AND TTAB-ADDRESS «, t00=0x0008, t01=0x010e}
0x0dac…0db6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0138}
0x0db6…0dca              Head {h00=0x0010, h01=0x0050, text=»LD100 EQU * «, t00=0x0008, t01=0x0142}
0x0dca…0dee              Head {h00=0x0020, h01=0x0050, text=» LDR A2,A8 LOAD DISPLACEMENT«, t00=0x0008, t01=0x0156}
0x0dee…0e12              Head {h00=0x0020, h01=0x0050, text=» LDR A1,A5 LOAD TTAB-ADDRESS«, t00=0x0008, t01=0x017a}
0x0e12…0e26              Head {h00=0x0010, h01=0x0050, text=»LD150 EQU * «, t00=0x0009, t01=0x000e}
0x0e26…0e4e              Head {h00=0x0024, h01=0x0050, text=» CF A15,GETBLK GET MONITOR BLOCK«, t00=0x0009, t01=0x0022}
0x0e4e…0e58              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x004a}
0x0e58…0e9a              Head {h00=0x003e, h01=0x0050, text=»*   ACTIVATE LOAD TASK AND PUT IT IN THE DISPATCHER QUEUE «, t00=0x0009, t01=0x0054}
0x0e9a…0ea4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0096}
0x0ea4…0ec6              Head {h00=0x001e, h01=0x0050, text=» LDR A1,A4 LOAD PARAMETER «, t00=0x0009, t01=0x00a0}
0x0ec6…0ef4              Head {h00=0x002a, h01=0x0050, text=» LDKL A2,LDTASK LOAD DISPATCH ADDRESS «, t00=0x0009, t01=0x00c2}
0x0ef4…0f0c              Head {h00=0x0014, h01=0x0050, text=» LDKL A5,TTABLD «, t00=0x0009, t01=0x00f0}
0x0f0c…0f1e              Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0009, t01=0x0108}
0x0f1e…0f46              Head {h00=0x0024, h01=0x0050, text=» CF A15,ACTOT ACTIVATE LOAD TASK«, t00=0x0009, t01=0x011a}
0x0f46…0f50              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0142}
0x0f50…0f78              Head {h00=0x0024, h01=0x0050, text=»*   EXIT TO TERMINAL DISPATCHER «, t00=0x0009, t01=0x014c}
0x0f78…0f82              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0174}
0x0f82…0f96              Head {h00=0x0010, h01=0x0050, text=»LD200 EQU * «, t00=0x0009, t01=0x017e}
0x0f96…0fa8 (10, 2, 146) Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x000a, t01=0x0004}
0x0fa8…0fb2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0016}
0x0fb2…0fc8              Head {h00=0x0012, h01=0x0050, text=»*   ERROR EXIT«, t00=0x000a, t01=0x0020}
0x0fc8…0fd2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0036}
0x0fd2…0fe6              Head {h00=0x0010, h01=0x0050, text=»LDERR EQU * «, t00=0x000a, t01=0x0040}
0x0fe6…1014              Head {h00=0x002a, h01=0x0050, text=» ABL LKMRQE SET A7=-1 QUE AND DISPATCH«, t00=0x000a, t01=0x0054}
0x1014…1020              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x000a, t01=0x0082}
0x1020…1024              Head {h00=0x4004, h01=0x0000}
0x1024…1028              00 0a 00 8e                                                                                                                                                                                                                                       ┆    ┆
0x1028…1030 (11, 1, 8)   20 04 00 00 00 0b 00 04                                                                                                                                                                                                                           ┆        ┆
0x1030…1080 (12, 0, 400) 00 13 01 88 00 04 00 50 00 14 00 08 00 06 00 50 2a 20 00 14 00 10 00 12 00 50 2a 5c 53 54 41 52 54 20 53 59 53 54 45 4d 00 14 00 1a 00 06 00 50 2a 20 00 14 00 30 00 04 00 50 00 14 00 3a 00 14 00 50 5c 4c 44 4b 4c 5c 41 31 33 2c 57 41 49 54   ┆       P       P*        P* START SYSTEM       P*    0   P   :   P LDKL A13,WAIT┆
0x1080…10d0              49 53 00 14 00 42 00 2a 00 50 5c 53 54 52 5c 41 31 33 2c 41 31 35 5c 53 54 4f 52 45 20 55 53 45 52 20 53 54 41 52 54 20 41 44 44 52 45 53 53 20 00 14 00 5a 00 22 00 50 5c 53 54 52 5c 41 37 2c 41 31 35 5c 41 4e 44 20 4c 45 56 45 4c 20 4f 4e   ┆IS   B * P STR A13,A15 STORE USER START ADDRESS    Z " P STR A7,A15 AND LEVEL ON┆
0x10d0…1120              20 53 54 41 43 4b 00 14 00 88 00 22 00 50 5c 41 42 4c 5c 50 46 49 4e 49 54 5c 49 4e 49 54 49 41 4c 49 5a 45 20 44 45 56 49 43 45 53 00 14 00 ae 00 0c 00 50 5c 52 45 53 5c 38 30 20 00 14 00 d4 00 1a 00 50 53 54 42 5c 45 51 55 5c 2a 2d 32 5c   ┆ STACK     " P ABL PFINIT INITIALIZE DEVICES       P RES 80        PSTB EQU *-2 ┆
0x1120…1170              53 54 41 43 4b 20 42 41 53 45 00 14 00 e4 00 04 00 50 00 14 01 02 00 04 00 50 00 14 01 0a 00 04 00 50 00 14 01 12 00 06 00 50 2a 20 00 14 01 1a 00 10 00 50 2a 5c 49 44 4c 45 20 4c 4f 4f 50 20 00 14 01 24 00 06 00 50 2a 20 00 14 01 38 00 04   ┆STACK BASE       P       P       P       P*        P* IDLE LOOP    $   P*    8  ┆
0x1170…11c0              00 50 00 14 01 42 00 0e 00 50 4c 4f 4f 50 5c 52 42 5c 2a 20 00 14 01 4a 00 10 00 50 57 41 49 54 49 53 5c 45 51 55 5c 2a 00 14 01 5c 00 10 00 50 5c 4c 44 4b 4c 5c 41 38 2c 31 30 20 00 14 01 70 00 08 00 50 5c 4c 4b 4d 00 14 01 84 00 0c 00 50   ┆ P   B   PLOOP RB *    J   PWAITIS EQU *       P LDKL A8,10    p   P LKM       P┆

Reduced view