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

⟦0fedd9ac0⟧

    Length: 7652 (0x1de4)
    Notes: pts_type(SC)
    Names: »TMMLKM.SC«

Derivation

└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
    └─⟦this⟧ »TOSSWORK/TMMLKM.SC« 
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
    └─⟦this⟧ »TOSSWORK/TMMLKM.SC« 

PTS(SC)

	IDENT TMMLKM 	REL 11.0 81-01-26 870105041100 

* 
* 
**************************************************
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   TMMLKM = TOSS MMU LKM PROCESSORS
* 
* 
* 
* 
**************************************************
* 
* 
*   THIS MODULE CONTAINS THE FOLLOWING
*   TOSS MMU LKM PROCESSORS:
* 
*   - TCHPAG = CHANGE MMU PAGE
* 
*   - TCHMMU = CHANGE MMU TABLE 
* 
*   - TLUSEG = LOCK/UNLOCK SEGMENT
* 
* 
	EJECT			TMMLKM 
* 
* 
*********** 
* ENTRIES * 
*********** 
* 
* 
	ENTRY	TCHPAG	CHANGE MMU PAGE 
	ENTRY	TCHMMU	CHANGE MMU TABLE
	ENTRY	TLUSEG	LOCK/UNLOCK SEGMENT 
	EJECT			TMMLKM 
* 
* 
************* 
* EXTERNALS * 
************* 
* 
* 
	EXTRN	FNDTID	FIND TTAB ADDRESS FROM TASK ID
	EXTRN	RELPAG	RELEASE PAGE
	EXTRN	LKMQDI	QUEUE TASK FOR DISPATCHING
	EXTRN	LKMRQE	LKM REQUEST ERROR 
	EXTRN	TTB:MT	MMU TABLE DISPLACEMENT IN TTAB
	EXTRN	TTB:SP	SEGMENT TABLE ADDRESS 
	EXTRN	SEG:NS	NUMBER OF SEGMENTS
	EJECT			TMMLKM 
* 
* 
**********
* TCHPAG *
**********
* 
* 
*   THIS IS THE CHANGE MMU PAGE LKM PROCESSOR.
* 
*   TCHPAG WILL CHANGE THE LOGICAL ADDRESSING SPACE OF A TASK.
*   ONLY ONE PHYSICAL PAGE (4 KB) CAN BE CHANGED AT A TIME. 
* 
*   IT IS ENTERED FROM THE LKM HANDLER
*   WITH THE FOLLOWING PARAMETERS:
* 
*   A5 = TTAB ADDRESS 
*   A7 = PAGE TO BE CHANGED, 0 - 15 
*   A8 = NEW LOCATION OF PAGE, 0 - 63 
* 
*   IT RETURNS TO CALLING TASK WITH A7 AND A8 UNCHANGED.
* 
TCHPAG	EQU	*	CHANGE MMU PAGE
	ANK	A7,/F	SKIP IRRELEVANT BITS (IF ANY)
	ADR	A7,A7	ADJUST FOR INDEXING IN MMU TABLE 
	ADR	A7,A5	ADD TTAB ADDRESS 
	LDR	A2,A8	NEW PAGE LOCATION
	ANK	A2,/3F	SKIP IRRELEVANT BITS (IF ANY) 
	SLL	A2,2 
	SC	A2,TTB:MT,A7	STORE NEW LOCATION OF PAGE IN MMU TABLE
* 
T:DISP	ABL	LKMQDI	QUEUE TASK FOR DISPATCHING
* 
	EJECT			TMMLKM 
* 
* 
**********
* TCHMMU *
**********
* 
* 
*   THIS IS THE CHANGE MMU TABLE LKM PROCESSOR. 
* 
*   TCHMMU WILL CHANGE THE MMU TABLE CONTENTS OF REQUESTING TASK
*   TO THE MMU TABLE CONTENTS OF SPECIFIED TASK.
* 
*   IT IS ENTERED FROM THE LKM HANDLER
*   WITH THE FOLLOWING PARAMETERS:
* 
*   A5 = TTAB ADDRESS 
*   A7 = TASK IDENTIFICATION OF SEARCHED TASK 
* 
*   IT RETURNS TO CALLING TASK WITH 
*   THE FOLLOWING PARAMETER:
* 
*   A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE
*   A7 = -1 IF TASK NOT IN SYSTEM 
* 
TCHMMU	EQU	*	CHANGE MMU TABLE 
	CF	A15,FNDTID	GET TTAB ADDRESS TO A2 
	ADK	A2,0	SET CR
	RF(Z)	TLCERR	TTAB NOT FOUND
	TL	TTB:MT,A2	LOAD SEARCHED MMU TABLE CONTENTS
	TS	TTB:MT,A5	STORE IN MMU TABLE OF CALLING TASK
	RB	T:DISP	QUEUE TASK FOR DISPATCHING 
* 
	EJECT			TMMLKM 
* 
* 
**********
* TLUSEG *
**********
* 
* 
*   THIS IS THE LOCK/UNLOCK SEGMENT LKM PROCESSOR.
* 
*   THE LOCK SEGMENT REQUEST WILL MAKE A SEGMENT CORE RESIDENT, 
*   UNTIL AN UNLOCK SEGMENT REQUEST IS ISSUED FOR THAT SEGMENT. 
* 
*   IT IS ENTERED FROM THE LKM HANDLER
*   WITH THE FOLLOWING PARAMETERS:
* 
*   A5 = TTAB ADDRESS 
*   A7 = SEGMENT NUMBER 
*   A8 = 0 IF LOCK SEGMENT REQUEST
*      = 1 IF UNLOCK SEGMENT REQUEST
* 
*   IT RETURNS TO CALLING TASK WITH 
*   THE FOLLOWING PARAMETERS: 
* 
*   A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE
*   A7 = -1 IF REQUEST ERROR
* 
* 
	EJECT			TMMLKM 
* 
* 
TLUSEG	EQU	*	LOCK/UNLOCK SEGMENT
	LD	A4,TTB:SP,A5	SEGTAB ADDRESS 
	LDR	A3,A7	CHECK IF SEGMENT NUMBER < 0
	RF(NP)	TLCERR	REQUEST ERROR
	CW	A3,SEG:NS,A4	CHECK IF SEGMENT NUMBER TOO BIG
	RF(NG)	TLUS00	OK 
* 
TLCERR	EQU	*
	ABL	LKMRQE	BRANCH TO LKM REQUEST ERROR 
* 
TLUS00	EQU	*
	SLL	A3,3	ADJUST FOR INDEXING IN SEGTAB 
	ADR	A3,A4	ADD SEGTAB ADDRESS 
	LCR	A4,A3	GET SEGMENT STATUS 
	ANK	A4,/8
	RB(NZ)	TLCERR	CORE RESIDENT
* 
	LDKL	A4,/200 
	LDR	A8,A8	CHECK WHAT REQUEST IT IS 
	RF(NZ)	TLUS10	UNLOCK SEGMENT 
* 
	EJECT			TMMLKM 
* 
*	LOCK SEGMENT
* 
	ORRS	A4,A3	INDICATE SEGMENT TO BE CORE RESIDENT
	RB	T:DISP
* 
*	UNLOCK SEGMENT
* 
TLUS10	EQU	*
	C1R	A4,A4	A4 := /FDFF
	ANRS	A4,A3	INDICATE SEGMENT NOT CORE RESIDENT
	CF	A15,RELPAG	RELEASE PAGE 
	RB	T:DISP
* 
* 
* 
	END

HexDump

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT TMMLKM  REL 11.0 81-01-26 870105041100 «, 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…00f4              Head {h00=0x0028, h01=0x0050, text=»*   TMMLKM = TOSS MMU LKM PROCESSORS«, t00=0x0000, t01=0x00cc}
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…011c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0116}
0x011c…0156              Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0120}
0x0156…0160              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015a}
0x0160…016a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0164}
0x016a…0198              Head {h00=0x002a, h01=0x0050, text=»*   THIS MODULE CONTAINS THE FOLLOWING«, t00=0x0000, t01=0x016e}
0x0198…01bc              Head {h00=0x0020, h01=0x0050, text=»*   TOSS MMU LKM PROCESSORS:«, t00=0x0001, t01=0x000c}
0x01bc…01c6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0030}
0x01c6…01ec              Head {h00=0x0022, h01=0x0050, text=»*   - TCHPAG = CHANGE MMU PAGE«, t00=0x0001, t01=0x003a}
0x01ec…01f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0060}
0x01f6…021e              Head {h00=0x0024, h01=0x0050, text=»*   - TCHMMU = CHANGE MMU TABLE «, t00=0x0001, t01=0x006a}
0x021e…0228              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0092}
0x0228…0252              Head {h00=0x0026, h01=0x0050, text=»*   - TLUSEG = LOCK/UNLOCK SEGMENT«, t00=0x0001, t01=0x009c}
0x0252…025c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c6}
0x025c…0266              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d0}
0x0266…027e              Head {h00=0x0014, h01=0x0050, text=» EJECT   TMMLKM «, t00=0x0001, t01=0x00da}
0x027e…0288              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f2}
0x0288…0292              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fc}
0x0292…02a6              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x0106}
0x02a6…02ba              Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0001, t01=0x011a}
0x02ba…02ce              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x012e}
0x02ce…02d8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0142}
0x02d8…02e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014c}
0x02e2…0308              Head {h00=0x0022, h01=0x0050, text=» ENTRY TCHPAG CHANGE MMU PAGE «, t00=0x0001, t01=0x0156}
0x0308…032e              Head {h00=0x0022, h01=0x0050, text=» ENTRY TCHMMU CHANGE MMU TABLE«, t00=0x0001, t01=0x017c}
0x032e…0358              Head {h00=0x0026, h01=0x0050, text=» ENTRY TLUSEG LOCK/UNLOCK SEGMENT «, t00=0x0002, t01=0x0012}
0x0358…0370              Head {h00=0x0014, h01=0x0050, text=» EJECT   TMMLKM «, t00=0x0002, t01=0x003c}
0x0370…037a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0054}
0x037a…0384              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x005e}
0x0384…039a              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0002, t01=0x0068}
0x039a…03b0              Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0002, t01=0x007e}
0x03b0…03c6              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0002, t01=0x0094}
0x03c6…03d0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00aa}
0x03d0…03da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b4}
0x03da…040e              Head {h00=0x0030, h01=0x0050, text=» EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID«, t00=0x0002, t01=0x00be}
0x040e…0430              Head {h00=0x001e, h01=0x0050, text=» EXTRN RELPAG RELEASE PAGE«, t00=0x0002, t01=0x00f2}
0x0430…0460              Head {h00=0x002c, h01=0x0050, text=» EXTRN LKMQDI QUEUE TASK FOR DISPATCHING«, t00=0x0002, t01=0x0114}
0x0460…0488              Head {h00=0x0024, h01=0x0050, text=» EXTRN LKMRQE LKM REQUEST ERROR «, t00=0x0002, t01=0x0144}
0x0488…04bc              Head {h00=0x0030, h01=0x0050, text=» EXTRN TTB:MT MMU TABLE DISPLACEMENT IN TTAB«, t00=0x0002, t01=0x016c}
0x04bc…04e8              Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:SP SEGMENT TABLE ADDRESS «, t00=0x0003, t01=0x0010}
0x04e8…0510              Head {h00=0x0024, h01=0x0050, text=» EXTRN SEG:NS NUMBER OF SEGMENTS«, t00=0x0003, t01=0x003c}
0x0510…0528              Head {h00=0x0014, h01=0x0050, text=» EJECT   TMMLKM «, t00=0x0003, t01=0x0064}
0x0528…0532              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x007c}
0x0532…053c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0086}
0x053c…054e              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0003, t01=0x0090}
0x054e…0560              Head {h00=0x000e, h01=0x0050, text=»* TCHPAG *«, t00=0x0003, t01=0x00a2}
0x0560…0572              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0003, t01=0x00b4}
0x0572…057c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c6}
0x057c…0586              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d0}
0x0586…05bc              Head {h00=0x0032, h01=0x0050, text=»*   THIS IS THE CHANGE MMU PAGE LKM PROCESSOR.«, t00=0x0003, t01=0x00da}
0x05bc…05c6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0110}
0x05c6…060c              Head {h00=0x0042, h01=0x0050, text=»*   TCHPAG WILL CHANGE THE LOGICAL ADDRESSING SPACE OF A TASK.«, t00=0x0003, t01=0x011a}
0x060c…0650              Head {h00=0x0040, h01=0x0050, text=»*   ONLY ONE PHYSICAL PAGE (4 KB) CAN BE CHANGED AT A TIME. «, t00=0x0003, t01=0x0160}
0x0650…065a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0014}
0x065a…0688              Head {h00=0x002a, h01=0x0050, text=»*   IT IS ENTERED FROM THE LKM HANDLER«, t00=0x0004, t01=0x001e}
0x0688…06b2              Head {h00=0x0026, h01=0x0050, text=»*   WITH THE FOLLOWING PARAMETERS:«, t00=0x0004, t01=0x004c}
0x06b2…06bc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0076}
0x06bc…06da              Head {h00=0x001a, h01=0x0050, text=»*   A5 = TTAB ADDRESS «, t00=0x0004, t01=0x0080}
0x06da…0706              Head {h00=0x0028, h01=0x0050, text=»*   A7 = PAGE TO BE CHANGED, 0 - 15 «, t00=0x0004, t01=0x009e}
0x0706…0734              Head {h00=0x002a, h01=0x0050, text=»*   A8 = NEW LOCATION OF PAGE, 0 - 63 «, t00=0x0004, t01=0x00ca}
0x0734…073e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00f8}
0x073e…077e              Head {h00=0x003c, h01=0x0050, text=»*   IT RETURNS TO CALLING TASK WITH A7 AND A8 UNCHANGED.«, t00=0x0004, t01=0x0102}
0x077e…0788              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0142}
0x0788…07ac              Head {h00=0x0020, h01=0x0050, text=»TCHPAG EQU * CHANGE MMU PAGE«, t00=0x0004, t01=0x014c}
0x07ac…07dc              Head {h00=0x002c, h01=0x0050, text=» ANK A7,/F SKIP IRRELEVANT BITS (IF ANY)«, t00=0x0004, t01=0x0170}
0x07dc…0810              Head {h00=0x0030, h01=0x0050, text=» ADR A7,A7 ADJUST FOR INDEXING IN MMU TABLE «, t00=0x0005, t01=0x0010}
0x0810…0834              Head {h00=0x0020, h01=0x0050, text=» ADR A7,A5 ADD TTAB ADDRESS «, t00=0x0005, t01=0x0044}
0x0834…0858              Head {h00=0x0020, h01=0x0050, text=» LDR A2,A8 NEW PAGE LOCATION«, t00=0x0005, t01=0x0068}
0x0858…088a              Head {h00=0x002e, h01=0x0050, text=» ANK A2,/3F SKIP IRRELEVANT BITS (IF ANY) «, t00=0x0005, t01=0x008c}
0x088a…089c              Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0005, t01=0x00be}
0x089c…08dc              Head {h00=0x003c, h01=0x0050, text=» SC A2,TTB:MT,A7 STORE NEW LOCATION OF PAGE IN MMU TABLE«, t00=0x0005, t01=0x00d0}
0x08dc…08e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0110}
0x08e6…091a              Head {h00=0x0030, h01=0x0050, text=»T:DISP ABL LKMQDI QUEUE TASK FOR DISPATCHING«, t00=0x0005, t01=0x011a}
0x091a…0924              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x014e}
0x0924…093c              Head {h00=0x0014, h01=0x0050, text=» EJECT   TMMLKM «, t00=0x0005, t01=0x0158}
0x093c…0946              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0170}
0x0946…0950              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x017a}
0x0950…0962              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0005, t01=0x0184}
0x0962…0974              Head {h00=0x000e, h01=0x0050, text=»* TCHMMU *«, t00=0x0006, t01=0x0008}
0x0974…0986              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0006, t01=0x001a}
0x0986…0990              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x002c}
0x0990…099a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0036}
0x099a…09d2              Head {h00=0x0034, h01=0x0050, text=»*   THIS IS THE CHANGE MMU TABLE LKM PROCESSOR. «, t00=0x0006, t01=0x0040}
0x09d2…09dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0078}
0x09dc…0a24              Head {h00=0x0044, h01=0x0050, text=»*   TCHMMU WILL CHANGE THE MMU TABLE CONTENTS OF REQUESTING TASK«, t00=0x0006, t01=0x0082}
0x0a24…0a5c              Head {h00=0x0034, h01=0x0050, text=»*   TO THE MMU TABLE CONTENTS OF SPECIFIED TASK.«, t00=0x0006, t01=0x00ca}
0x0a5c…0a66              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0102}
0x0a66…0a94              Head {h00=0x002a, h01=0x0050, text=»*   IT IS ENTERED FROM THE LKM HANDLER«, t00=0x0006, t01=0x010c}
0x0a94…0abe              Head {h00=0x0026, h01=0x0050, text=»*   WITH THE FOLLOWING PARAMETERS:«, t00=0x0006, t01=0x013a}
0x0abe…0ac8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0164}
0x0ac8…0ae6              Head {h00=0x001a, h01=0x0050, text=»*   A5 = TTAB ADDRESS «, t00=0x0006, t01=0x016e}
0x0ae6…0b1c              Head {h00=0x0032, h01=0x0050, text=»*   A7 = TASK IDENTIFICATION OF SEARCHED TASK «, t00=0x0006, t01=0x018c}
0x0b1c…0b26              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0032}
0x0b26…0b52              Head {h00=0x0028, h01=0x0050, text=»*   IT RETURNS TO CALLING TASK WITH «, t00=0x0007, t01=0x003c}
0x0b52…0b76              Head {h00=0x0020, h01=0x0050, text=»*   THE FOLLOWING PARAMETER:«, t00=0x0007, t01=0x0068}
0x0b76…0b80              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x008c}
0x0b80…0bb6              Head {h00=0x0032, h01=0x0050, text=»*   A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE«, t00=0x0007, t01=0x0096}
0x0bb6…0be0              Head {h00=0x0026, h01=0x0050, text=»*   A7 = -1 IF TASK NOT IN SYSTEM «, t00=0x0007, t01=0x00cc}
0x0be0…0bea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00f6}
0x0bea…0c10              Head {h00=0x0022, h01=0x0050, text=»TCHMMU EQU * CHANGE MMU TABLE «, t00=0x0007, t01=0x0100}
0x0c10…0c3e              Head {h00=0x002a, h01=0x0050, text=» CF A15,FNDTID GET TTAB ADDRESS TO A2 «, t00=0x0007, t01=0x0126}
0x0c3e…0c56              Head {h00=0x0014, h01=0x0050, text=» ADK A2,0 SET CR«, t00=0x0007, t01=0x0154}
0x0c56…0c7a              Head {h00=0x0020, h01=0x0050, text=» RF(Z) TLCERR TTAB NOT FOUND«, t00=0x0007, t01=0x016c}
0x0c7a…0cb0              Head {h00=0x0032, h01=0x0050, text=» TL TTB:MT,A2 LOAD SEARCHED MMU TABLE CONTENTS«, t00=0x0007, t01=0x0190}
0x0cb0…0ce8              Head {h00=0x0034, h01=0x0050, text=» TS TTB:MT,A5 STORE IN MMU TABLE OF CALLING TASK«, t00=0x0008, t01=0x0036}
0x0ce8…0d16              Head {h00=0x002a, h01=0x0050, text=» RB T:DISP QUEUE TASK FOR DISPATCHING «, t00=0x0008, t01=0x006e}
0x0d16…0d20              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x009c}
0x0d20…0d38              Head {h00=0x0014, h01=0x0050, text=» EJECT   TMMLKM «, t00=0x0008, t01=0x00a6}
0x0d38…0d42              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00be}
0x0d42…0d4c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c8}
0x0d4c…0d5e              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0008, t01=0x00d2}
0x0d5e…0d70              Head {h00=0x000e, h01=0x0050, text=»* TLUSEG *«, t00=0x0008, t01=0x00e4}
0x0d70…0d82              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0008, t01=0x00f6}
0x0d82…0d8c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0108}
0x0d8c…0d96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0112}
0x0d96…0dd0              Head {h00=0x0036, h01=0x0050, text=»*   THIS IS THE LOCK/UNLOCK SEGMENT LKM PROCESSOR.«, t00=0x0008, t01=0x011c}
0x0dd0…0dda              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0156}
0x0dda…0e22              Head {h00=0x0044, h01=0x0050, text=»*   THE LOCK SEGMENT REQUEST WILL MAKE A SEGMENT CORE RESIDENT, «, t00=0x0008, t01=0x0160}
0x0e22…0e6a              Head {h00=0x0044, h01=0x0050, text=»*   UNTIL AN UNLOCK SEGMENT REQUEST IS ISSUED FOR THAT SEGMENT. «, t00=0x0009, t01=0x0018}
0x0e6a…0e74              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0060}
0x0e74…0ea2              Head {h00=0x002a, h01=0x0050, text=»*   IT IS ENTERED FROM THE LKM HANDLER«, t00=0x0009, t01=0x006a}
0x0ea2…0ecc              Head {h00=0x0026, h01=0x0050, text=»*   WITH THE FOLLOWING PARAMETERS:«, t00=0x0009, t01=0x0098}
0x0ecc…0ed6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c2}
0x0ed6…0ef4              Head {h00=0x001a, h01=0x0050, text=»*   A5 = TTAB ADDRESS «, t00=0x0009, t01=0x00cc}
0x0ef4…0f14              Head {h00=0x001c, h01=0x0050, text=»*   A7 = SEGMENT NUMBER «, t00=0x0009, t01=0x00ea}
0x0f14…0f3e              Head {h00=0x0026, h01=0x0050, text=»*   A8 = 0 IF LOCK SEGMENT REQUEST«, t00=0x0009, t01=0x010a}
0x0f3e…0f6a              Head {h00=0x0028, h01=0x0050, text=»*      = 1 IF UNLOCK SEGMENT REQUEST«, t00=0x0009, t01=0x0134}
0x0f6a…0f74              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0160}
0x0f74…0fa0              Head {h00=0x0028, h01=0x0050, text=»*   IT RETURNS TO CALLING TASK WITH «, t00=0x0009, t01=0x016a}
0x0fa0…0fc6              Head {h00=0x0022, h01=0x0050, text=»*   THE FOLLOWING PARAMETERS: «, t00=0x000a, t01=0x0008}
0x0fc6…0fd0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x002e}
0x0fd0…1006              Head {h00=0x0032, h01=0x0050, text=»*   A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE«, t00=0x000a, t01=0x0038}
0x1006…102a              Head {h00=0x0020, h01=0x0050, text=»*   A7 = -1 IF REQUEST ERROR«, t00=0x000a, t01=0x006e}
0x102a…1034              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0092}
0x1034…103e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x009c}
0x103e…1056              Head {h00=0x0014, h01=0x0050, text=» EJECT   TMMLKM «, t00=0x000a, t01=0x00a6}
0x1056…1060              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00be}
0x1060…106a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c8}
0x106a…1092              Head {h00=0x0024, h01=0x0050, text=»TLUSEG EQU * LOCK/UNLOCK SEGMENT«, t00=0x000a, t01=0x00d2}
0x1092…10ba              Head {h00=0x0024, h01=0x0050, text=» LD A4,TTB:SP,A5 SEGTAB ADDRESS «, t00=0x000a, t01=0x00fa}
0x10ba…10e8              Head {h00=0x002a, h01=0x0050, text=» LDR A3,A7 CHECK IF SEGMENT NUMBER < 0«, t00=0x000a, t01=0x0122}
0x10e8…110c              Head {h00=0x0020, h01=0x0050, text=» RF(NP) TLCERR REQUEST ERROR«, t00=0x000a, t01=0x0150}
0x110c…1144              Head {h00=0x0034, h01=0x0050, text=» CW A3,SEG:NS,A4 CHECK IF SEGMENT NUMBER TOO BIG«, t00=0x000a, t01=0x0174}
0x1144…115e              Head {h00=0x0016, h01=0x0050, text=» RF(NG) TLUS00 OK «, t00=0x000b, t01=0x001c}
0x115e…1168              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0036}
0x1168…117c              Head {h00=0x0010, h01=0x0050, text=»TLCERR EQU *«, t00=0x000b, t01=0x0040}
0x117c…11ac              Head {h00=0x002c, h01=0x0050, text=» ABL LKMRQE BRANCH TO LKM REQUEST ERROR «, t00=0x000b, t01=0x0054}
0x11ac…11b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0084}
0x11b6…11ca              Head {h00=0x0010, h01=0x0050, text=»TLUS00 EQU *«, t00=0x000b, t01=0x008e}
0x11ca…11fa              Head {h00=0x002c, h01=0x0050, text=» SLL A3,3 ADJUST FOR INDEXING IN SEGTAB «, t00=0x000b, t01=0x00a2}
0x11fa…1220              Head {h00=0x0022, h01=0x0050, text=» ADR A3,A4 ADD SEGTAB ADDRESS «, t00=0x000b, t01=0x00d2}
0x1220…1246              Head {h00=0x0022, h01=0x0050, text=» LCR A4,A3 GET SEGMENT STATUS «, t00=0x000b, t01=0x00f8}
0x1246…1258              Head {h00=0x000e, h01=0x0050, text=» ANK A4,/8«, t00=0x000b, t01=0x011e}
0x1258…127c              Head {h00=0x0020, h01=0x0050, text=» RB(NZ) TLCERR CORE RESIDENT«, t00=0x000b, t01=0x0130}
0x127c…1286              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0154}
0x1286…129c              Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/200 «, t00=0x000b, t01=0x015e}
0x129c…12c8              Head {h00=0x0028, h01=0x0050, text=» LDR A8,A8 CHECK WHAT REQUEST IT IS «, t00=0x000b, t01=0x0174}
0x12c8…12ee              Head {h00=0x0022, h01=0x0050, text=» RF(NZ) TLUS10 UNLOCK SEGMENT «, t00=0x000c, t01=0x0010}
0x12ee…12f8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0036}
0x12f8…1310              Head {h00=0x0014, h01=0x0050, text=» EJECT   TMMLKM «, t00=0x000c, t01=0x0040}
0x1310…131a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0058}
0x131a…1330              Head {h00=0x0012, h01=0x0050, text=»* LOCK SEGMENT«, t00=0x000c, t01=0x0062}
0x1330…133a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0078}
0x133a…1372              Head {h00=0x0034, h01=0x0050, text=» ORRS A4,A3 INDICATE SEGMENT TO BE CORE RESIDENT«, t00=0x000c, t01=0x0082}
0x1372…1384              Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x000c, t01=0x00ba}
0x1384…138e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00cc}
0x138e…13a6              Head {h00=0x0014, h01=0x0050, text=»* UNLOCK SEGMENT«, t00=0x000c, t01=0x00d6}
0x13a6…13b0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ee}
0x13b0…13c4              Head {h00=0x0010, h01=0x0050, text=»TLUS10 EQU *«, t00=0x000c, t01=0x00f8}
0x13c4…13e2              Head {h00=0x001a, h01=0x0050, text=» C1R A4,A4 A4 := /FDFF«, t00=0x000c, t01=0x010c}
0x13e2…1418              Head {h00=0x0032, h01=0x0050, text=» ANRS A4,A3 INDICATE SEGMENT NOT CORE RESIDENT«, t00=0x000c, t01=0x012a}
0x1418…143c              Head {h00=0x0020, h01=0x0050, text=» CF A15,RELPAG RELEASE PAGE «, t00=0x000c, t01=0x0160}
0x143c…144e              Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x000c, t01=0x0184}
0x144e…1458              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0008}
0x1458…1462              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0012}
0x1462…146c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x001c}
0x146c…1478              Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x000d, t01=0x0026}
0x1478…147c              Head {h00=0x4004, h01=0x0000}
0x147c…1480              00 0d 00 32                                                                                                                                                                                                                                       ┆   2┆
0x1480…1488 (14, 1, 8)   20 04 00 00 00 0e 00 04                                                                                                                                                                                                                           ┆        ┆
0x1488…14d8 (15, 0, 400) 41 31 31 2c 44 49 53 43 41 44 5c 52 45 53 4f 52 45 20 43 55 52 52 45 4e 54 20 53 45 43 54 4f 52 2f 42 4c 4f 43 4b 00 5e 01 8c 00 1c 00 50 5c 4c 44 5c 41 31 32 2c 44 49 53 43 41 44 2b 32 5c 41 44 44 52 45 53 53 00 5f 00 2e 00 0c 00 50 5c 52   ┆A11,DISCAD RESORE CURRENT SECTOR/BLOCK ^     P LD A12,DISCAD+2 ADDRESS _ .   P R┆
0x14d8…1528              54 4e 5c 41 31 34 00 5f 00 4e 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 5f 00 5e 00 0a 00 50 5c 45 4a 45 43 54 00 5f 00 74 00 34 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆TN A14 _ N   P IFT MMUPAG=1  _ ^   P EJECT _ t 4 P******************************┆
0x1528…1578              2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 5f 00 82 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 5f 00 ba 00 34   ┆*****************  _   4 P*                                             *  _   4┆
0x1578…15c8              00 50 2a 20 20 4c 4f 44 4d 45 58 20 2d 20 4c 4f 41 44 20 4d 4f 4e 49 54 4f 52 20 45 58 54 45 4e 54 28 53 29 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 5f 00 f2 00 34 00 50 2a 20 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d   ┆ P*  LODMEX - LOAD MONITOR EXTENT(S)            *  _   4 P*  ===================┆
0x15c8…1618              3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 5f 01 2a 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆============            *  _ * 4 P*                                             ┆
0x1618…1668 (16, 0, 398) 2a 20 00 5f 01 62 00 34 00 50 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 53 59 53 4c 4f 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 60 00 0a 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆*  _ b 4 P*  REFERENCED IN:  SYSLOD                     *  `   4 P*             ┆
0x1668…16b8              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 60 00 42 00 34 00 50 2a 20 20 45 4e 54 52 59 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆                                *  ` B 4 P*  ENTRY:                             ┆
0x16b8…1708              20 20 20 20 20 20 20 20 2a 20 00 60 00 7a 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 60 00 b2 00 34 00 50 2a 20 20 45 58 49   ┆        *  ` z 4 P*                                             *  `   4 P*  EXI┆
0x1708…1758              54 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 60 00 ea 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆T:                                      *  `   4 P*                             ┆
0x1758…17a6              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 60 01 22 00 34 00 50 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 31 2d 41 31 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 60 01 5a         ┆                *  ` " 4 P*  WORK REGISTERS:  A1-A12                    *  ` Z┆
0x17a6…17f6 (17, 0, 400) 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 61 00 04 00 34 00 50 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 4c 4f 44   ┆ 4 P*                                             *  a   4 P*  SUBROUTINES:  LOD┆
0x17f6…1846              43 4f 4d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 61 00 3c 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆COM                       *  a < 4 P*                                           ┆
0x1846…1896              20 20 2a 20 00 61 00 74 00 34 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 61 00 ac 00 10 00 50 4c 4f 44 4d 45 58 5c 45 51 55 5c 2a   ┆  *  a t 4 P***********************************************  a     PLODMEX EQU *┆
0x1896…18e6              00 61 00 e4 00 26 00 50 5c 4c 44 5c 41 31 2c 53 43 54 4d 58 53 5c 4d 4f 4e 49 54 4f 52 20 45 58 54 45 4e 54 20 54 41 42 4c 45 00 61 00 f8 00 10 00 50 4d 53 58 31 30 5c 45 51 55 5c 2a 20 00 61 01 22 00 10 00 50 5c 52 46 28 5a 29 5c 4d 53 58   ┆ a   & P LD A1,SCTMXS MONITOR EXTENT TABLE a     PMSX10 EQU *  a "   P RF(Z) MSX┆
0x18e6…1936              39 39 00 61 01 36 00 06 00 50 2a 20 00 61 01 4a 00 2c 00 50 5c 43 46 5c 41 31 34 2c 47 45 54 4d 4f 4e 5c 47 45 54 20 4d 4f 4e 49 54 4f 52 20 44 49 53 43 20 41 44 44 52 45 53 53 20 00 61 01 54 00 2a 00 50 5c 4c 44 5c 41 33 2c 4d 58 3a 4e 4f   ┆99 a 6   P*  a J , P CF A14,GETMON GET MONITOR DISC ADDRESS  a T * P LD A3,MX:NO┆
0x1936…1986 (18, 0, 400) 58 2c 41 31 5c 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 45 58 54 45 4e 54 53 00 61 01 84 00 34 00 50 5c 4c 44 5c 41 36 2c 4d 58 3a 4e 4f 53 2c 41 31 5c 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 53 45 47 4d 45 4e 54 20 43 4c 55 53 54 45 52   ┆X,A1 GET NUMBER OF EXTENTS a   4 P LD A6,MX:NOS,A1 GET NUMBER OF SEGMENT CLUSTER┆
0x1986…19d6              53 20 00 62 00 22 00 24 00 50 5c 53 4c 4c 5c 41 36 2c 31 5c 4d 41 4b 45 20 42 59 54 45 20 44 49 53 50 4c 41 43 45 4d 45 4e 54 00 62 00 5a 00 0e 00 50 5c 41 44 4b 5c 41 36 2c 34 20 00 62 00 82 00 22 00 50 5c 41 44 52 5c 41 36 2c 41 31 5c 46   ┆S  b " $ P SLL A6,1 MAKE BYTE DISPLACEMENT b Z   P ADK A6,4  b   " P ADR A6,A1 F┆
0x19d6…1a26              49 52 53 54 20 45 58 54 45 4e 54 20 42 4c 4f 43 4b 20 00 62 00 94 00 10 00 50 4d 53 58 32 30 5c 45 51 55 5c 2a 20 00 62 00 ba 00 26 00 50 5c 53 55 4b 5c 41 33 2c 31 5c 44 45 43 52 45 4d 45 4e 54 20 45 58 54 45 4e 54 20 43 4f 55 4e 54 45 52   ┆IRST EXTENT BLOCK  b     PMSX20 EQU *  b   & P SUK A3,1 DECREMENT EXTENT COUNTER┆
0x1a26…1a76              00 62 00 ce 00 20 00 50 5c 52 46 28 4e 29 5c 4d 53 58 39 39 5c 4e 4f 20 4d 4f 52 45 20 45 58 54 45 4e 54 53 00 62 00 f8 00 06 00 50 2a 20 00 62 01 1c 00 22 00 50 5c 53 54 52 5c 41 33 2c 41 31 35 5c 53 41 56 45 20 4e 4f 20 4f 46 20 45 58 54   ┆ b     P RF(N) MSX99 NO MORE EXTENTS b     P*  b   " P STR A3,A15 SAVE NO OF EXT┆
0x1a76…1ac6              45 4e 54 53 00 62 01 26 00 20 00 50 5c 41 44 4b 5c 41 36 2c 36 5c 4e 45 58 54 20 45 58 54 45 4e 54 20 42 4c 4f 43 4b 20 00 62 01 4c 00 24 00 50 5c 4c 44 5c 41 37 2c 53 43 54 45 46 41 5c 52 45 53 54 4f 52 45 20 41 44 44 52 45 53 53 20 54 4f   ┆ENTS b &   P ADK A6,6 NEXT EXTENT BLOCK  b L $ P LD A7,SCTEFA RESTORE ADDRESS TO┆
0x1ac6…1b16 (19, 0, 398) 00 62 01 70 00 24 00 50 5c 4c 44 5c 41 35 2c 53 43 54 45 46 41 2b 32 5c 45 4e 44 20 4f 46 20 46 52 45 45 20 41 52 45 41 00 63 00 08 00 12 00 50 5c 52 46 28 4e 5a 29 5c 4d 53 58 32 35 20 00 63 00 30 00 06 00 50 2a 20 00 63 00 46 00 32 00 50   ┆ b p $ P LD A5,SCTEFA+2 END OF FREE AREA c     P RF(NZ) MSX25  c 0   P*  c F 2 P┆
0x1b16…1b66              5c 4c 44 4b 4c 5c 41 35 2c 50 41 47 53 49 5a 5c 45 4d 50 54 59 20 46 52 41 4d 45 2c 20 53 54 41 52 54 20 4f 4e 20 4e 45 58 54 20 4f 4e 45 00 63 00 50 00 12 00 50 5c 53 55 4b 4c 5c 41 37 2c 2f 34 30 30 20 00 63 00 86 00 10 00 50 4d 53 58 32   ┆ LDKL A5,PAGSIZ EMPTY FRAME, START ON NEXT ONE c P   P SUKL A7,/400  c     PMSX2┆
0x1b66…1bb6              35 5c 45 51 55 5c 2a 20 00 63 00 9c 00 28 00 50 5c 4c 44 5c 41 32 2c 45 58 4c 45 4e 2c 41 36 5c 47 45 54 20 4c 45 4e 47 54 48 20 4f 46 20 45 58 54 45 4e 54 00 63 00 b0 00 26 00 50 5c 41 44 4b 5c 41 32 2c 31 31 5c 52 45 53 45 52 56 20 46 49   ┆5 EQU *  c   ( P LD A2,EXLEN,A6 GET LENGTH OF EXTENT c   & P ADK A2,11 RESERV FI┆
0x1bb6…1c06              56 45 20 45 58 54 52 41 20 57 4f 52 44 53 00 63 00 dc 00 24 00 50 5c 41 4e 4b 4c 5c 41 32 2c 2f 46 46 46 45 5c 4d 41 4b 45 20 45 56 45 4e 20 4c 45 4e 47 54 48 20 00 63 01 06 00 2c 00 50 5c 53 52 4c 5c 41 37 2c 31 30 5c 46 52 41 4d 45 20 41   ┆VE EXTRA WORDS c   $ P ANKL A2,/FFFE MAKE EVEN LENGTH  c   , P SRL A7,10 FRAME A┆
0x1c06…1c54              44 44 52 45 53 53 20 41 53 20 46 52 41 4d 45 20 43 4f 55 4e 54 20 00 63 01 2e 00 30 00 50 5c 41 44 4b 5c 41 32 2c 30 5c 45 58 54 45 4e 54 20 4c 45 4e 47 54 48 20 4c 45 53 53 20 54 48 41 4e 20 33 32 4b 20 42 59 54 45 53 3f 00 63 01 5e         ┆DDRESS AS FRAME COUNT  c . 0 P ADK A2,0 EXTENT LENGTH LESS THAN 32K BYTES? c ^┆
0x1c54…1ca4 (20, 0, 400) 00 14 00 50 5c 52 46 28 4e 29 5c 4d 53 58 33 30 5c 4e 4f 20 00 64 00 04 00 06 00 50 2a 20 00 64 00 1c 00 32 00 50 5c 43 57 52 5c 41 32 2c 41 35 5c 45 58 54 45 4e 54 20 4c 45 53 53 20 54 48 41 4e 20 41 52 45 41 20 4c 45 46 54 20 49 4e 20 46   ┆   P RF(N) MSX30 NO  d     P*  d   2 P CWR A2,A5 EXTENT LESS THAN AREA LEFT IN F┆
0x1ca4…1cf4              52 41 4d 45 00 64 00 26 00 16 00 50 5c 52 46 28 4c 29 5c 4d 53 58 34 30 5c 59 45 53 21 20 00 64 00 5c 00 06 00 50 2a 20 00 64 00 76 00 10 00 50 4d 53 58 33 30 5c 45 51 55 5c 2a 20 00 64 00 80 00 0e 00 50 5c 4c 44 52 5c 41 31 2c 41 32 00 64   ┆RAME d &   P RF(L) MSX40 YES!  d     P*  d v   PMSX30 EQU *  d     P LDR A1,A2 d┆
0x1cf4…1d44              00 94 00 2e 00 50 5c 53 52 4c 5c 41 31 2c 31 32 5c 43 4f 4e 56 45 52 54 20 4c 45 4e 47 54 48 20 54 4f 20 4e 4f 20 4f 46 20 46 52 41 4d 45 53 20 00 64 00 a6 00 1a 00 50 5c 43 57 4b 5c 41 31 2c 31 34 5c 3c 36 30 4b 20 42 59 54 45 53 3f 00 64   ┆   . P SRL A1,12 CONVERT LENGTH TO NO OF FRAMES  d     P CWK A1,14 <60K BYTES? d┆
0x1d44…1d94              00 d8 00 16 00 50 5c 52 46 28 4c 29 5c 4d 53 58 33 35 5c 59 45 53 21 20 00 64 00 f6 00 06 00 50 2a 20 00 64 01 10 00 2c 00 50 5c 43 57 4b 5c 41 35 2c 50 41 47 53 49 5a 5c 41 4c 52 45 41 44 59 20 4f 4e 20 41 20 34 4b 20 42 4f 55 4e 44 41 52   ┆     P RF(L) MSX35 YES!  d     P*  d   , P CWK A5,PAGSIZ ALREADY ON A 4K BOUNDAR┆
0x1d94…1de4              59 20 00 64 01 1a 00 16 00 50 5c 52 46 28 45 29 5c 4d 53 58 33 35 5c 59 45 53 21 20 00 64 01 4a 00 06 00 50 2a 20 00 64 01 64 00 28 00 50 5c 4c 44 4b 4c 5c 41 35 2c 50 41 47 53 49 5a 5c 53 54 41 52 54 20 4f 4e 20 34 4b 20 42 4f 55 4e 44 41   ┆Y  d     P RF(E) MSX35 YES!  d J   P*  d d ( P LDKL A5,PAGSIZ START ON 4K BOUNDA┆

Reduced view