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

⟦6108ba614⟧ 

    Length: 7674 (0x1dfa)
    Notes: pts_type(SC)
    Names: »TLDSEG.SC«

Derivation

└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
    └─⟦this⟧ »TOSSWORK/TLDSEG.SC«

PTS(SC)

	IDENT TLDSEG 	REL 9.2 79-11-16  870105040920 

* 
* 
**************************************************
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   TLDSEG = LOAD SEGMENT 
* 
* 
* 
* 
**************************************************
* 
* 
*   THIS MODULE CONTAINS THE LOAD SEGMENT LKM PROCESSOR,
*   USED IN TOSS MEMORY MANAGEMENT SYSTEMS. 
* 
* 
	EJECT			TLDSEG 
* 
* 
*********** 
* ENTRIES * 
*********** 
* 
* 
	ENTRY	TLDSEG	LOAD SEGMENT
	ENTRY	TLDS15	ENTRY USED BY LDTASK
	ENTRY	TLDS20	ENTRY USED BY LDTASK
	EJECT			TLDSEG 
* 
* 
************* 
* EXTERNALS * 
************* 
* 
* 
	EXTRN	PRUN	TTAB ADDRESS OF RUNNING PROGRAM 
	EXTRN	TDISP	DISPATCHER 
	EXTRN	LKM030	LKM REQUEST ERROR 
	EXTRN	PAG:QB	QUEUE LINK BACKWARDS
	EXTRN	PAG:PA	PAGE ADDRESS
	EXTRN	SEG:DS	DISC SECTOR ADDRESS 
	EXTRN	SEG:PB	PAGE BLOCK ADDRESS
	EXTRN	T:ACSB	CURRENT SEGMENT BASE
	EXTRN	TTB:SA	TTAB SAVE AREA
	EXTRN	TTB:MT	MMU TABLE 
	EXTRN	TTB:SB	SEGMENT BLOCK ADDRESS 
	EXTRN	QLTDSK	ACTIVATE LDTASK AT ENTRY LT:DSK 
	EXTRN	SCTSEG	SEGTAB ADDRESS
	EXTRN	SCTNOS	NUMBER OF SEGMENTS
	EXTRN	SCTMMP	MMU TABLE PAGE ENTRY
	EXTRN	SCTNPE	NUMBER OF PAGE ENTRIES
	EXTRN	SCTLAP	LOGICAL ADDRESS OF PAGES
	EJECT			TLDSEG 
* 
* 
***************************************** 
* 
*	CONDITIONAL ASSEMBLY
* 
***************************************** 
* 
*	A PROGRAM VERSION USING TOSS MMU PAGING 
*	IS OBTAINED BY SETTING MMUPAG EQU 1.
* 
MMUPAG	EQU	0
* 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	1
* 
* 
*	A PROGRAM VERSION USING TOSS DISC PAGING
*	IS OBTAINED BY SETTING DSKPAG EQU 1.
* 
DSKPAG	EQU	0
* 
* 
*	A PROGRAM VERSION USING TOSS ASSEMBLER OVERLAY
*	IS OBTAINED BY SETTING ASSOLY EQU 1.
* 
ASSOLY	EQU	0
* 
	EJECT			TLDSEG 
* 
* 
**********
* TLDSEG *
**********
* 
* 
*   THIS IS THE LOAD SEGMENT LKM PROCESSOR. 
* 
*   IT IS ENTERED FROM THE LKM HANDLER
*   WITH THE FOLLOWING PARAMETERS:
* 
*   A2 = DISPATCH ADDRESS (NOT UPDATED BY IHLKM)
*   A5 = TTAB ADDRESS 
*   A7 = SEGMENT NUMBER 
*  A13 = T:A ADDRESS (FOR CREDIT APPLICATIONS)
* 
*   IT RETURNS TO CALLING TASK WITH 
*   THE FOLLOWING PARAMETERS: 
* 
*   A7 = UNCHANGED IF SEGMENT LOADING IS SUCCESSFUL, ELSE 
*   A7 = -1 IF REQUEST ERROR, ELSE
*   A7 = -2 IF DISC I/O ERROR, ELSE 
*   A7 = -3 IF DISC NOT OPERABLE
* 
*   WHEN REQUESTED SEGMENT IS ALREADY IN CORE:
*   THE REQUEST WILL NOT GO THROUGH THE DISPATCHER AFTER
*   COMPLETION, THUS NO TASK SWITCHING WILL BE PERFORMED, 
*   IN PURPOSE TO MAKE THE REQUEST AS FAST AS POSSIBLE. 
* 
*   WHEN REQUESTED SEGMENT IS NOT IN CORE TLDSEG WILL 
*   ACTIVATE LDTASK WHICH WILL LOAD SEGMENT INTO CORE.
* 
* 
	EJECT			TLDSEG 
* 
*	CHECK VALIDITY OF SEGMENT NUMBER
* 
TLDSEG	EQU	*	LOAD SEGMENT 
	LDR	A1,A7	CHECK IF SEGMENT NUMBER < 0
	RF(N)	TLDERR	REQUEST ERROR?
	CW	A1,SCTNOS	CHECK IF SEGMENT NUMBER TOO BIG 
	RF(NG)	TLDS00	OK?
* 
TLDERR	LDK	A6,/FF	INDICATE ERROR
	ABL	LKM030	BRANCH TO LKM REQUEST ERROR 
* 
*	GET SEGMENT BLOCK ADDRESS.
*	UPDATE RETURN ADDRESS 
* 
TLDS00	EQU	*
	LDR	A3,A5	GET TTAB ADDRESS 
	SLL	A1,3	ADJUST FOR INDEXING IN SEGTAB 
	AD	A1,SCTSEG	ADD SEGTAB ADDRESS
	ADK	A2,2	UPDATE DISPATCH ADDRESS 
* 
	IFT	DSKPAG=0 
	SUKL	A15,4	ADJUST STACKPOINTER 
	ST	A2,4,A15	SET DISPATCH ADDRESS ON STACK
	XIF
* 
	ADK	A7,0	CHECK SEGMENT NUMBER
	RF(NZ)	TLDS05	NOT SEGMENT 0? 
	ST	A7,TTB:SB,A3	RESET SEGMENT BLOCK ADDRESS
	LD	A1,SEG:DS,A1	GET LOGICAL ADDRESS OF SEGMENT 0 
* 
	IFT	DSKPAG=1 
	SUKL	A15,4	ADJUST STACKPOINTER 
	ST	A2,4,A15	SET DISPATCH ADDRESS ON STACK
	XIF
* 
	RF	TLDS40
* 
	EJECT			TLDSEG 
* 
* 
TLDS05	EQU	*
	IFT	DSKPAG=1 
	ST	A1,TTB:SB,A3	UPDATE SEGMENT BLOCK ADDRESS 
	LDR*	A4,A1	GET SEGMENT STATUS
	RF(N)	TLDS10	SEGMENT LOADED IN CORE? 
	ST	A2,TTB:SA,A3
	CM	PRUN
* 
*	ACTIVATE LOAD TASK
* 
	CF	A15,QLTDSK	ACTIVATE LOAD TASK AT ENTRY LT:DSK 
	ABL	TDISP	GO TO DISPATCHER 
	XIF
* 
TLDS10	LD	A1,SEG:PB,A1	GET PAGE BLOCK ADDRESS 
* 
	IFT	DSKPAG=1 
	SUKL	A15,4	ADJUST STACKPOINTER 
	ST	A2,4,A15	SET DISPATCH ADDRESS ON STACK
* 
*	REMOVE PAGE BLOCK FROM PAGE QUEUE 
* 
	XIF
* 
TLDS15	EQU	*	ENTRY USED BY LDTASK 
	IFT	DSKPAG=1 
	LDR*	A2,A1	GET QUEUE LINK FORWARD
	RF(Z)	TLDS20	PAGE BLOCK NOT IN QUEUE?
	LD	A4,PAG:QB,A1	GET QUEUE LINK BACKWARD
	CMR	A1	RESET QUEUE LINK FORWARD OF REMOVED BLK 
	STR	A2,A4	UPDATE QUEUE LINKS 
	ST	A4,PAG:QB,A2
	XIF
* 
	EJECT			TLDSEG 
* 
*	GET PAGE ADDRESS OF REQUESTED SEGMENT 
* 
TLDS20	EQU	*	ENTRY USED BY LDTASK 
	LD	A1,PAG:PA,A1	GET PAGE ADDRESS 
* 
	IFT	MMUPAG=1 
	ECR	A2,A1
	ANK	A2,/FC 
* 
*	GET PAGE ENTRY/ENTRIES TO UPDATE IN MMU TABLE 
* 
	AD	A3,SCTMMP	POINT TO FIRST USED PAGE ENTRY
	LD	A4,SCTNPE	GET NUMBER OF PAGE ENTRIES
* 
*	UPDATE PAGE ENTRY/ENTRIES 
* 
TLDS25	EQU	*
	SCR	A2,A3	UPDATE PAGE ENTRY
	SUK	A4,1 
	RF(NP)	TLDS30	NO MORE PAGE ENTRIES?
	ADK	A3,2	POINT TO NEXT PAGE ENTRY
	ADK	A2,4	UPDATE PAGE ADDRESS 
	RB	TLDS25
* 
	EJECT			TLDSEG 
* 
* 
TLDS30	ANKL	A1,/300	COMPUTE CURRENT SEGMENT BASE
	SLL	A1,2 
	OR	A1,SCTLAP 
	TL	TTB:MT,A5	LOAD MMU REGISTERS
* 
TLDS40	EQU	*
	IFT	ASSOLY=0 
	ES	A1,T:ACSB,A13	UPDATE CURRENT SEGMENT BASE 
	XIF
* 
	IFT	MMUPAG=0 
TLDS40	EQU	*
	ST	A1,T:ACSB,A13	UPDATE CURRENT SEGMENT BASE 
	XIF
* 
	IFT	CPU852=0 
	LDR	A6,A5
	ML	6,TTB:SA+2,A6	RESTORE A1-A6 
	RTN	A15	RETURN TO CALLING TASK 
	XIF
* 
	IFT	CPU852=1 
	LD	A1,TTB:SA+2,A5	RESTORE A1-A6
	LD	A2,TTB:SA+4,A5
	LD	A3,TTB:SA+6,A5
	LD	A4,TTB:SA+8,A5
	LD	A6,TTB:SA+12,A5 
	LD	A5,TTB:SA+10,A5 
	RTN	A15	RETURN TO CALLING TASK 
	XIF
* 
* 
* 
	END

HexDump

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT TLDSEG  REL 9.2 79-11-16  870105040920 «, 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…0052              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004c}
0x0052…008c              Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0056}
0x008c…0096              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0090}
0x0096…00be              Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x009a}
0x00be…00c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c2}
0x00c8…00ea              Head {h00=0x001e, h01=0x0050, text=»*   TLDSEG = LOAD SEGMENT «, t00=0x0000, t01=0x00cc}
0x00ea…00f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ee}
0x00f4…00fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f8}
0x00fe…0108              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0102}
0x0108…0112              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010c}
0x0112…014c              Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0116}
0x014c…0156              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0150}
0x0156…0160              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015a}
0x0160…01a0              Head {h00=0x003c, h01=0x0050, text=»*   THIS MODULE CONTAINS THE LOAD SEGMENT LKM PROCESSOR,«, t00=0x0000, t01=0x0164}
0x01a0…01d4              Head {h00=0x0030, h01=0x0050, text=»*   USED IN TOSS MEMORY MANAGEMENT SYSTEMS. «, t00=0x0001, t01=0x0014}
0x01d4…01de              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0048}
0x01de…01e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0052}
0x01e8…0200              Head {h00=0x0014, h01=0x0050, text=» EJECT   TLDSEG «, t00=0x0001, t01=0x005c}
0x0200…020a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0074}
0x020a…0214              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007e}
0x0214…0228              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x0088}
0x0228…023c              Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0001, t01=0x009c}
0x023c…0250              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x00b0}
0x0250…025a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c4}
0x025a…0264              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ce}
0x0264…0286              Head {h00=0x001e, h01=0x0050, text=» ENTRY TLDSEG LOAD SEGMENT«, t00=0x0001, t01=0x00d8}
0x0286…02b0              Head {h00=0x0026, h01=0x0050, text=» ENTRY TLDS15 ENTRY USED BY LDTASK«, t00=0x0001, t01=0x00fa}
0x02b0…02da              Head {h00=0x0026, h01=0x0050, text=» ENTRY TLDS20 ENTRY USED BY LDTASK«, t00=0x0001, t01=0x0124}
0x02da…02f2              Head {h00=0x0014, h01=0x0050, text=» EJECT   TLDSEG «, t00=0x0001, t01=0x014e}
0x02f2…02fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0166}
0x02fc…0306              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0170}
0x0306…031c              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0001, t01=0x017a}
0x031c…0332              Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0001, t01=0x0190}
0x0332…0348              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0002, t01=0x0016}
0x0348…0352              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x002c}
0x0352…035c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0036}
0x035c…0390              Head {h00=0x0030, h01=0x0050, text=» EXTRN PRUN TTAB ADDRESS OF RUNNING PROGRAM «, t00=0x0002, t01=0x0040}
0x0390…03b0              Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0002, t01=0x0074}
0x03b0…03d8              Head {h00=0x0024, h01=0x0050, text=» EXTRN LKM030 LKM REQUEST ERROR «, t00=0x0002, t01=0x0094}
0x03d8…0402              Head {h00=0x0026, h01=0x0050, text=» EXTRN PAG:QB QUEUE LINK BACKWARDS«, t00=0x0002, t01=0x00bc}
0x0402…0424              Head {h00=0x001e, h01=0x0050, text=» EXTRN PAG:PA PAGE ADDRESS«, t00=0x0002, t01=0x00e6}
0x0424…044e              Head {h00=0x0026, h01=0x0050, text=» EXTRN SEG:DS DISC SECTOR ADDRESS «, t00=0x0002, t01=0x0108}
0x044e…0476              Head {h00=0x0024, h01=0x0050, text=» EXTRN SEG:PB PAGE BLOCK ADDRESS«, t00=0x0002, t01=0x0132}
0x0476…04a0              Head {h00=0x0026, h01=0x0050, text=» EXTRN T:ACSB CURRENT SEGMENT BASE«, t00=0x0002, t01=0x015a}
0x04a0…04c4              Head {h00=0x0020, h01=0x0050, text=» EXTRN TTB:SA TTAB SAVE AREA«, t00=0x0002, t01=0x0184}
0x04c4…04e4              Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:MT MMU TABLE «, t00=0x0003, t01=0x0018}
0x04e4…0510              Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:SB SEGMENT BLOCK ADDRESS «, t00=0x0003, t01=0x0038}
0x0510…0546              Head {h00=0x0032, h01=0x0050, text=» EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK «, t00=0x0003, t01=0x0064}
0x0546…056a              Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTSEG SEGTAB ADDRESS«, t00=0x0003, t01=0x009a}
0x056a…0592              Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTNOS NUMBER OF SEGMENTS«, t00=0x0003, t01=0x00be}
0x0592…05bc              Head {h00=0x0026, h01=0x0050, text=» EXTRN SCTMMP MMU TABLE PAGE ENTRY«, t00=0x0003, t01=0x00e6}
0x05bc…05e8              Head {h00=0x0028, h01=0x0050, text=» EXTRN SCTNPE NUMBER OF PAGE ENTRIES«, t00=0x0003, t01=0x0110}
0x05e8…0616              Head {h00=0x002a, h01=0x0050, text=» EXTRN SCTLAP LOGICAL ADDRESS OF PAGES«, t00=0x0003, t01=0x013c}
0x0616…062e              Head {h00=0x0014, h01=0x0050, text=» EJECT   TLDSEG «, t00=0x0003, t01=0x016a}
0x062e…0638              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0182}
0x0638…0642              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x018c}
0x0642…0674              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0004, t01=0x0008}
0x0674…067e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x003a}
0x067e…069c              Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0004, t01=0x0044}
0x069c…06a6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0062}
0x06a6…06d8              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0004, t01=0x006c}
0x06d8…06e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x009e}
0x06e2…0714              Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0004, t01=0x00a8}
0x0714…0742              Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0004, t01=0x00da}
0x0742…074c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0108}
0x074c…0760              Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0004, t01=0x0112}
0x0760…076a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0126}
0x076a…0774              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0130}
0x0774…07ae              Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0004, t01=0x013a}
0x07ae…07e0              Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0004, t01=0x0174}
0x07e0…07ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0016}
0x07ea…07fe              Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0005, t01=0x0020}
0x07fe…0808              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0034}
0x0808…0812              Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0005, t01=0x003e}
0x0812…0844              Head {h00=0x002e, h01=0x002a, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0005, t01=0x0048}
0x0844…0872              Head {h00=0x002a, h01=0x0026, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0005, t01=0x007a}
0x0872…087c              Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0005, t01=0x00a8}
0x087c…0890              Head {h00=0x0010, h01=0x0050, text=»DSKPAG EQU 0«, t00=0x0005, t01=0x00b2}
0x0890…089a              Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0005, t01=0x00c6}
0x089a…08a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d0}
0x08a4…08dc              Head {h00=0x0034, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS ASSEMBLER OVERLAY«, t00=0x0005, t01=0x00da}
0x08dc…090a              Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING ASSOLY EQU 1.«, t00=0x0005, t01=0x0112}
0x090a…0914              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0140}
0x0914…0928              Head {h00=0x0010, h01=0x0050, text=»ASSOLY EQU 0«, t00=0x0005, t01=0x014a}
0x0928…0932              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x015e}
0x0932…094a              Head {h00=0x0014, h01=0x0050, text=» EJECT   TLDSEG «, t00=0x0005, t01=0x0168}
0x094a…0954              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0180}
0x0954…095e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x018a}
0x095e…0970 (6, 0, 400)  Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0006, t01=0x0004}
0x0970…0982              Head {h00=0x000e, h01=0x0050, text=»* TLDSEG *«, t00=0x0006, t01=0x0016}
0x0982…0994              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0006, t01=0x0028}
0x0994…099e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x003a}
0x099e…09a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0044}
0x09a8…09dc              Head {h00=0x0030, h01=0x0050, text=»*   THIS IS THE LOAD SEGMENT LKM PROCESSOR. «, t00=0x0006, t01=0x004e}
0x09dc…09e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0082}
0x09e6…0a14              Head {h00=0x002a, h01=0x0050, text=»*   IT IS ENTERED FROM THE LKM HANDLER«, t00=0x0006, t01=0x008c}
0x0a14…0a3e              Head {h00=0x0026, h01=0x0050, text=»*   WITH THE FOLLOWING PARAMETERS:«, t00=0x0006, t01=0x00ba}
0x0a3e…0a48              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e4}
0x0a48…0a80              Head {h00=0x0034, h01=0x0050, text=»*   A2 = DISPATCH ADDRESS (NOT UPDATED BY IHLKM)«, t00=0x0006, t01=0x00ee}
0x0a80…0a9e              Head {h00=0x001a, h01=0x0050, text=»*   A5 = TTAB ADDRESS «, t00=0x0006, t01=0x0126}
0x0a9e…0abe              Head {h00=0x001c, h01=0x0050, text=»*   A7 = SEGMENT NUMBER «, t00=0x0006, t01=0x0144}
0x0abe…0af4              Head {h00=0x0032, h01=0x0050, text=»*  A13 = T:A ADDRESS (FOR CREDIT APPLICATIONS)«, t00=0x0006, t01=0x0164}
0x0af4…0afe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x000a}
0x0afe…0b2a              Head {h00=0x0028, h01=0x0050, text=»*   IT RETURNS TO CALLING TASK WITH «, t00=0x0007, t01=0x0014}
0x0b2a…0b50              Head {h00=0x0022, h01=0x0050, text=»*   THE FOLLOWING PARAMETERS: «, t00=0x0007, t01=0x0040}
0x0b50…0b5a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0066}
0x0b5a…0b9c              Head {h00=0x003e, h01=0x0050, text=»*   A7 = UNCHANGED IF SEGMENT LOADING IS SUCCESSFUL, ELSE «, t00=0x0007, t01=0x0070}
0x0b9c…0bc6              Head {h00=0x0026, h01=0x0050, text=»*   A7 = -1 IF REQUEST ERROR, ELSE«, t00=0x0007, t01=0x00b2}
0x0bc6…0bf2              Head {h00=0x0028, h01=0x0050, text=»*   A7 = -2 IF DISC I/O ERROR, ELSE «, t00=0x0007, t01=0x00dc}
0x0bf2…0c1a              Head {h00=0x0024, h01=0x0050, text=»*   A7 = -3 IF DISC NOT OPERABLE«, t00=0x0007, t01=0x0108}
0x0c1a…0c24              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0130}
0x0c24…0c5a              Head {h00=0x0032, h01=0x0050, text=»*   WHEN REQUESTED SEGMENT IS ALREADY IN CORE:«, t00=0x0007, t01=0x013a}
0x0c5a…0c9a              Head {h00=0x003c, h01=0x0050, text=»*   THE REQUEST WILL NOT GO THROUGH THE DISPATCHER AFTER«, t00=0x0007, t01=0x0170}
0x0c9a…0cdc              Head {h00=0x003e, h01=0x0050, text=»*   COMPLETION, THUS NO TASK SWITCHING WILL BE PERFORMED, «, t00=0x0008, t01=0x0020}
0x0cdc…0d1c              Head {h00=0x003c, h01=0x0050, text=»*   IN PURPOSE TO MAKE THE REQUEST AS FAST AS POSSIBLE. «, t00=0x0008, t01=0x0062}
0x0d1c…0d26              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a2}
0x0d26…0d64              Head {h00=0x003a, h01=0x0050, text=»*   WHEN REQUESTED SEGMENT IS NOT IN CORE TLDSEG WILL «, t00=0x0008, t01=0x00ac}
0x0d64…0da2              Head {h00=0x003a, h01=0x0050, text=»*   ACTIVATE LDTASK WHICH WILL LOAD SEGMENT INTO CORE.«, t00=0x0008, t01=0x00ea}
0x0da2…0dac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0128}
0x0dac…0db6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0132}
0x0db6…0dce              Head {h00=0x0014, h01=0x0050, text=» EJECT   TLDSEG «, t00=0x0008, t01=0x013c}
0x0dce…0dd8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0154}
0x0dd8…0e02              Head {h00=0x0026, h01=0x0050, text=»* CHECK VALIDITY OF SEGMENT NUMBER«, t00=0x0008, t01=0x015e}
0x0e02…0e0c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0188}
0x0e0c…0e2e (9, 0, 398)  Head {h00=0x001e, h01=0x0050, text=»TLDSEG EQU * LOAD SEGMENT «, t00=0x0009, t01=0x0004}
0x0e2e…0e5c              Head {h00=0x002a, h01=0x0050, text=» LDR A1,A7 CHECK IF SEGMENT NUMBER < 0«, t00=0x0009, t01=0x0026}
0x0e5c…0e80              Head {h00=0x0020, h01=0x0050, text=» RF(N) TLDERR REQUEST ERROR?«, t00=0x0009, t01=0x0054}
0x0e80…0eb6              Head {h00=0x0032, h01=0x0050, text=» CW A1,SCTNOS CHECK IF SEGMENT NUMBER TOO BIG «, t00=0x0009, t01=0x0078}
0x0eb6…0ed0              Head {h00=0x0016, h01=0x0050, text=» RF(NG) TLDS00 OK?«, t00=0x0009, t01=0x00ae}
0x0ed0…0eda              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c8}
0x0eda…0f02              Head {h00=0x0024, h01=0x0050, text=»TLDERR LDK A6,/FF INDICATE ERROR«, t00=0x0009, t01=0x00d2}
0x0f02…0f32              Head {h00=0x002c, h01=0x0050, text=» ABL LKM030 BRANCH TO LKM REQUEST ERROR «, t00=0x0009, t01=0x00fa}
0x0f32…0f3c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x012a}
0x0f3c…0f60              Head {h00=0x0020, h01=0x0050, text=»* GET SEGMENT BLOCK ADDRESS.«, t00=0x0009, t01=0x0134}
0x0f60…0f80              Head {h00=0x001c, h01=0x0050, text=»* UPDATE RETURN ADDRESS «, t00=0x0009, t01=0x0158}
0x0f80…0f8a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0178}
0x0f8a…0f9e              Head {h00=0x0010, h01=0x0050, text=»TLDS00 EQU *«, t00=0x0009, t01=0x0182}
0x0f9e…0fc2              Head {h00=0x0020, h01=0x0050, text=» LDR A3,A5 GET TTAB ADDRESS «, t00=0x000a, t01=0x0008}
0x0fc2…0ff2              Head {h00=0x002c, h01=0x0050, text=» SLL A1,3 ADJUST FOR INDEXING IN SEGTAB «, t00=0x000a, t01=0x002c}
0x0ff2…101a              Head {h00=0x0024, h01=0x0050, text=» AD A1,SCTSEG ADD SEGTAB ADDRESS«, t00=0x000a, t01=0x005c}
0x101a…1044              Head {h00=0x0026, h01=0x0050, text=» ADK A2,2 UPDATE DISPATCH ADDRESS «, t00=0x000a, t01=0x0084}
0x1044…104e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ae}
0x104e…1064              Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=0 «, t00=0x000a, t01=0x00b8}
0x1064…108c              Head {h00=0x0024, h01=0x0050, text=» SUKL A15,4 ADJUST STACKPOINTER «, t00=0x000a, t01=0x00ce}
0x108c…10be              Head {h00=0x002e, h01=0x0050, text=» ST A2,4,A15 SET DISPATCH ADDRESS ON STACK«, t00=0x000a, t01=0x00f6}
0x10be…10ca              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0128}
0x10ca…10d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0134}
0x10d4…10fa              Head {h00=0x0022, h01=0x0050, text=» ADK A7,0 CHECK SEGMENT NUMBER«, t00=0x000a, t01=0x013e}
0x10fa…1120              Head {h00=0x0022, h01=0x0050, text=» RF(NZ) TLDS05 NOT SEGMENT 0? «, t00=0x000a, t01=0x0164}
0x1120…1154              Head {h00=0x0030, h01=0x0050, text=» ST A7,TTB:SB,A3 RESET SEGMENT BLOCK ADDRESS«, t00=0x000a, t01=0x018a}
0x1154…118e              Head {h00=0x0036, h01=0x0050, text=» LD A1,SEG:DS,A1 GET LOGICAL ADDRESS OF SEGMENT 0 «, t00=0x000b, t01=0x002e}
0x118e…1198              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0068}
0x1198…11ae              Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x000b, t01=0x0072}
0x11ae…11d6              Head {h00=0x0024, h01=0x0050, text=» SUKL A15,4 ADJUST STACKPOINTER «, t00=0x000b, t01=0x0088}
0x11d6…1208              Head {h00=0x002e, h01=0x0050, text=» ST A2,4,A15 SET DISPATCH ADDRESS ON STACK«, t00=0x000b, t01=0x00b0}
0x1208…1214              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x00e2}
0x1214…121e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ee}
0x121e…1230              Head {h00=0x000e, h01=0x0050, text=» RF TLDS40«, t00=0x000b, t01=0x00f8}
0x1230…123a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x010a}
0x123a…1252              Head {h00=0x0014, h01=0x0050, text=» EJECT   TLDSEG «, t00=0x000b, t01=0x0114}
0x1252…125c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x012c}
0x125c…1266              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0136}
0x1266…127a              Head {h00=0x0010, h01=0x0050, text=»TLDS05 EQU *«, t00=0x000b, t01=0x0140}
0x127a…1290              Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x000b, t01=0x0154}
0x1290…12c6              Head {h00=0x0032, h01=0x0050, text=» ST A1,TTB:SB,A3 UPDATE SEGMENT BLOCK ADDRESS «, t00=0x000b, t01=0x016a}
0x12c6…12ec              Head {h00=0x0022, h01=0x0050, text=» LDR* A4,A1 GET SEGMENT STATUS«, t00=0x000c, t01=0x0010}
0x12ec…131a              Head {h00=0x002a, h01=0x0050, text=» RF(N) TLDS10 SEGMENT LOADED IN CORE? «, t00=0x000c, t01=0x0036}
0x131a…1332              Head {h00=0x0014, h01=0x0050, text=» ST A2,TTB:SA,A3«, t00=0x000c, t01=0x0064}
0x1332…1342              Head {h00=0x000c, h01=0x0050, text=» CM PRUN«, t00=0x000c, t01=0x007c}
0x1342…134c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x008c}
0x134c…1368              Head {h00=0x0018, h01=0x0050, text=»* ACTIVATE LOAD TASK«, t00=0x000c, t01=0x0096}
0x1368…1372              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b2}
0x1372…13ac              Head {h00=0x0036, h01=0x0050, text=» CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK «, t00=0x000c, t01=0x00bc}
0x13ac…13d0              Head {h00=0x0020, h01=0x0050, text=» ABL TDISP GO TO DISPATCHER «, t00=0x000c, t01=0x00f6}
0x13d0…13dc              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x011a}
0x13dc…13e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0126}
0x13e6…141c              Head {h00=0x0032, h01=0x0050, text=»TLDS10 LD A1,SEG:PB,A1 GET PAGE BLOCK ADDRESS «, t00=0x000c, t01=0x0130}
0x141c…1426              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0166}
0x1426…143c              Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x000c, t01=0x0170}
0x143c…1464              Head {h00=0x0024, h01=0x0050, text=» SUKL A15,4 ADJUST STACKPOINTER «, t00=0x000c, t01=0x0186}
0x1464…1496              Head {h00=0x002e, h01=0x0050, text=» ST A2,4,A15 SET DISPATCH ADDRESS ON STACK«, t00=0x000d, t01=0x001e}
0x1496…14a0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0050}
0x14a0…14cc              Head {h00=0x0028, h01=0x0050, text=»* REMOVE PAGE BLOCK FROM PAGE QUEUE «, t00=0x000d, t01=0x005a}
0x14cc…14d6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0086}
0x14d6…14e2              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0090}
0x14e2…14ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x009c}
0x14ec…1516              Head {h00=0x0026, h01=0x0050, text=»TLDS15 EQU * ENTRY USED BY LDTASK «, t00=0x000d, t01=0x00a6}
0x1516…152c              Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x000d, t01=0x00d0}
0x152c…1556              Head {h00=0x0026, h01=0x0050, text=» LDR* A2,A1 GET QUEUE LINK FORWARD«, t00=0x000d, t01=0x00e6}
0x1556…1584              Head {h00=0x002a, h01=0x0050, text=» RF(Z) TLDS20 PAGE BLOCK NOT IN QUEUE?«, t00=0x000d, t01=0x0110}
0x1584…15b4              Head {h00=0x002c, h01=0x0050, text=» LD A4,PAG:QB,A1 GET QUEUE LINK BACKWARD«, t00=0x000d, t01=0x013e}
0x15b4…15ec              Head {h00=0x0034, h01=0x0050, text=» CMR A1 RESET QUEUE LINK FORWARD OF REMOVED BLK «, t00=0x000d, t01=0x016e}
0x15ec…1612              Head {h00=0x0022, h01=0x0050, text=» STR A2,A4 UPDATE QUEUE LINKS «, t00=0x000e, t01=0x0016}
0x1612…162a              Head {h00=0x0014, h01=0x0050, text=» ST A4,PAG:QB,A2«, t00=0x000e, t01=0x003c}
0x162a…1636              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0054}
0x1636…1640              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0060}
0x1640…1658              Head {h00=0x0014, h01=0x0050, text=» EJECT   TLDSEG «, t00=0x000e, t01=0x006a}
0x1658…1662              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0082}
0x1662…1692              Head {h00=0x002c, h01=0x0050, text=»* GET PAGE ADDRESS OF REQUESTED SEGMENT «, t00=0x000e, t01=0x008c}
0x1692…169c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00bc}
0x169c…16c6              Head {h00=0x0026, h01=0x0050, text=»TLDS20 EQU * ENTRY USED BY LDTASK «, t00=0x000e, t01=0x00c6}
0x16c6…16f0              Head {h00=0x0026, h01=0x0050, text=» LD A1,PAG:PA,A1 GET PAGE ADDRESS «, t00=0x000e, t01=0x00f0}
0x16f0…16fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x011a}
0x16fa…1710              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000e, t01=0x0124}
0x1710…1722              Head {h00=0x000e, h01=0x0050, text=» ECR A2,A1«, t00=0x000e, t01=0x013a}
0x1722…1736              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FC «, t00=0x000e, t01=0x014c}
0x1736…1740              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0160}
0x1740…1778              Head {h00=0x0034, h01=0x0050, text=»* GET PAGE ENTRY/ENTRIES TO UPDATE IN MMU TABLE «, t00=0x000e, t01=0x016a}
0x1778…1782              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0012}
0x1782…17b6              Head {h00=0x0030, h01=0x0050, text=» AD A3,SCTMMP POINT TO FIRST USED PAGE ENTRY«, t00=0x000f, t01=0x001c}
0x17b6…17e6              Head {h00=0x002c, h01=0x0050, text=» LD A4,SCTNPE GET NUMBER OF PAGE ENTRIES«, t00=0x000f, t01=0x0050}
0x17e6…17f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0080}
0x17f0…1814              Head {h00=0x0020, h01=0x0050, text=»* UPDATE PAGE ENTRY/ENTRIES «, t00=0x000f, t01=0x008a}
0x1814…181e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ae}
0x181e…1832              Head {h00=0x0010, h01=0x0050, text=»TLDS25 EQU *«, t00=0x000f, t01=0x00b8}
0x1832…1856              Head {h00=0x0020, h01=0x0050, text=» SCR A2,A3 UPDATE PAGE ENTRY«, t00=0x000f, t01=0x00cc}
0x1856…1868              Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x000f, t01=0x00f0}
0x1868…1894              Head {h00=0x0028, h01=0x0050, text=» RF(NP) TLDS30 NO MORE PAGE ENTRIES?«, t00=0x000f, t01=0x0102}
0x1894…18be              Head {h00=0x0026, h01=0x0050, text=» ADK A3,2 POINT TO NEXT PAGE ENTRY«, t00=0x000f, t01=0x012e}
0x18be…18e4              Head {h00=0x0022, h01=0x0050, text=» ADK A2,4 UPDATE PAGE ADDRESS «, t00=0x000f, t01=0x0158}
0x18e4…18f6              Head {h00=0x000e, h01=0x0050, text=» RB TLDS25«, t00=0x000f, t01=0x017e}
0x18f6…1900              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0190}
0x1900…1918              Head {h00=0x0014, h01=0x0050, text=» EJECT   TLDSEG «, t00=0x0010, t01=0x000a}
0x1918…1922              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0022}
0x1922…192c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x002c}
0x192c…1964              Head {h00=0x0034, h01=0x0050, text=»TLDS30 ANKL A1,/300 COMPUTE CURRENT SEGMENT BASE«, t00=0x0010, t01=0x0036}
0x1964…1976              Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0010, t01=0x006e}
0x1976…198c              Head {h00=0x0012, h01=0x0050, text=» OR A1,SCTLAP «, t00=0x0010, t01=0x0080}
0x198c…19b4              Head {h00=0x0024, h01=0x0050, text=» TL TTB:MT,A5 LOAD MMU REGISTERS«, t00=0x0010, t01=0x0096}
0x19b4…19be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00be}
0x19be…19d2              Head {h00=0x0010, h01=0x0050, text=»TLDS40 EQU *«, t00=0x0010, t01=0x00c8}
0x19d2…19e8              Head {h00=0x0012, h01=0x0050, text=» IFT ASSOLY=0 «, t00=0x0010, t01=0x00dc}
0x19e8…1a1e              Head {h00=0x0032, h01=0x0050, text=» ES A1,T:ACSB,A13 UPDATE CURRENT SEGMENT BASE «, t00=0x0010, t01=0x00f2}
0x1a1e…1a2a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0128}
0x1a2a…1a34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0134}
0x1a34…1a4a              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0010, t01=0x013e}
0x1a4a…1a5e              Head {h00=0x0010, h01=0x0050, text=»TLDS40 EQU *«, t00=0x0010, t01=0x0154}
0x1a5e…1a94              Head {h00=0x0032, h01=0x0050, text=» ST A1,T:ACSB,A13 UPDATE CURRENT SEGMENT BASE «, t00=0x0010, t01=0x0168}
0x1a94…1aa0              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x000e}
0x1aa0…1aaa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x001a}
0x1aaa…1ac0              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0011, t01=0x0024}
0x1ac0…1ad2              Head {h00=0x000e, h01=0x0050, text=» LDR A6,A5«, t00=0x0011, t01=0x003a}
0x1ad2…1afa              Head {h00=0x0024, h01=0x0050, text=» ML 6,TTB:SA+2,A6 RESTORE A1-A6 «, t00=0x0011, t01=0x004c}
0x1afa…1b22              Head {h00=0x0024, h01=0x0050, text=» RTN A15 RETURN TO CALLING TASK «, t00=0x0011, t01=0x0074}
0x1b22…1b2e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x009c}
0x1b2e…1b38              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a8}
0x1b38…1b4e              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0011, t01=0x00b2}
0x1b4e…1b76              Head {h00=0x0024, h01=0x0050, text=» LD A1,TTB:SA+2,A5 RESTORE A1-A6«, t00=0x0011, t01=0x00c8}
0x1b76…1b90              Head {h00=0x0016, h01=0x0050, text=» LD A2,TTB:SA+4,A5«, t00=0x0011, t01=0x00f0}
0x1b90…1baa              Head {h00=0x0016, h01=0x0050, text=» LD A3,TTB:SA+6,A5«, t00=0x0011, t01=0x010a}
0x1baa…1bc4              Head {h00=0x0016, h01=0x0050, text=» LD A4,TTB:SA+8,A5«, t00=0x0011, t01=0x0124}
0x1bc4…1be0              Head {h00=0x0018, h01=0x0050, text=» LD A6,TTB:SA+12,A5 «, t00=0x0011, t01=0x013e}
0x1be0…1bfc              Head {h00=0x0018, h01=0x0050, text=» LD A5,TTB:SA+10,A5 «, t00=0x0011, t01=0x015a}
0x1bfc…1c24              Head {h00=0x0024, h01=0x0050, text=» RTN A15 RETURN TO CALLING TASK «, t00=0x0011, t01=0x0176}
0x1c24…1c30              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x000e}
0x1c30…1c3a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x001a}
0x1c3a…1c44              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0024}
0x1c44…1c4e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x002e}
0x1c4e…1c5a              Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0012, t01=0x0038}
0x1c5a…1c5e              Head {h00=0x4004, h01=0x0000}
0x1c5e…1c62              00 12 00 44                                                                                                                                                                                                                                       ┆   D┆
0x1c62…1c6a (19, 1, 8)   20 04 00 00 00 13 00 04                                                                                                                                                                                                                           ┆        ┆
0x1c6a…1cba (20, 0, 400) 41 52 5c 20 00 83 01 7e 00 0c 00 50 5c 58 49 46 5c 5c 5c 20 00 84 00 0c 00 06 00 50 2a 20 00 84 00 1c 00 06 00 50 2a 20 00 84 00 26 00 06 00 50 2a 20 00 84 00 30 00 0e 00 50 2a 2a 2a 5c 52 45 41 44 50 20 00 84 00 3a 00 06 00 50 2a 20 00 84   ┆AR     ~   P XIF           P*        P*    &   P*    0   P*** READP    :   P*   ┆
0x1cba…1d0a              00 4c 00 2e 00 50 2a 20 20 20 52 45 41 44 20 43 48 41 52 41 43 54 45 52 20 54 4f 20 41 32 20 41 4e 44 20 43 48 45 43 4b 20 50 41 52 49 54 59 20 00 84 00 56 00 06 00 50 2a 20 00 84 00 88 00 06 00 50 2a 20 00 84 00 92 00 14 00 50 52 45 41 44   ┆ L . P*   READ CHARACTER TO A2 AND CHECK PARITY    V   P*        P*        PREAD┆
0x1d0a…1d5a              50 5c 43 46 5c 41 35 2c 52 45 41 44 00 84 00 9c 00 14 00 50 5c 49 46 54 5c 53 41 4c 43 55 5a 3d 30 5c 5c 20 00 84 00 b4 00 0e 00 50 5c 45 43 52 5c 41 31 2c 41 32 00 84 00 cc 00 12 00 50 52 45 31 30 30 5c 53 4c 4c 5c 41 31 2c 31 00 84 00 de   ┆P CF A5,READ       P IFT SALCUZ=0          P ECR A1,A2       PRE100 SLL A1,1    ┆
0x1d5a…1daa              00 10 00 50 5c 52 46 28 5a 29 5c 52 45 31 31 30 00 84 00 f4 00 12 00 50 5c 52 42 28 4e 4e 29 5c 52 45 31 30 30 20 00 84 01 08 00 10 00 50 5c 58 52 4b 5c 41 32 2c 2f 38 30 20 00 84 01 1e 00 0e 00 50 5c 52 42 5c 52 45 31 30 30 20 00 84 01 32   ┆   P RF(Z) RE110       P RB(NN) RE100        P XRK A2,/80        P RB RE100    2┆
0x1daa…1dfa              00 14 00 50 52 45 31 31 30 5c 4c 44 52 5c 41 31 2c 41 32 20 00 84 01 44 00 10 00 50 5c 41 4e 4b 5c 41 32 2c 2f 37 46 20 00 84 01 5c 00 0c 00 50 5c 58 49 46 5c 5c 5c 20 00 84 01 70 00 14 00 50 5c 49 46 54 5c 53 41 4c 43 55 5a 3d 31 5c 5c 20   ┆   PRE110 LDR A1,A2    D   P ANK A2,/7F        P XIF       p   P IFT SALCUZ=1   ┆

Reduced view