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

⟦c5163d53c⟧ 

    Length: 7962 (0x1f1a)
    Notes: pts_type(SC)
    Names: »TMMLKM.SC«

Derivation

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

PTS(SC)

	IDENT TMMLKM 	REL 9.2 79-11-16  870105040920 

* 
* 
**************************************************
* 
*   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 



* 
* 
************* 
* EXTERNALS * 
************* 
* 
* 
	EXTRN	FNDTID	FIND TTAB ADDRESS FROM TASK ID
	EXTRN	LKMQDI	QUEUE TASK FOR DISPATCHING
	EXTRN	LKMRQE	LKM REQUEST ERROR 
	EXTRN	TTB:MT	MMU TABLE DISPLACEMENT IN TTAB
	EXTRN	SCTSEG	SEGTAB ADDRESS
	EXTRN	SCTNOS	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 SEGMENT LOADING IS SUCCESSFUL, ELSE 
*   A7 = -1 IF REQUEST ERROR, ELSE
* 
* 
	EJECT			TMMLKM 
* 
* 
TLUSEG	EQU	*	LOCK/UNLOCK SEGMENT
	LDR	A1,A7	CHECK IF SEGMENT NUMBER < 0
	RF(NP)	TLCERR	REQUEST ERROR? 
	CW	A1,SCTNOS	CHECK IF SEGMENT NUMBER TOO BIG 
	RF(NG)	TLUS00	OK?
* 
TLCERR	EQU	*
	ABL	LKMRQE	BRANCH TO LKM REQUEST ERROR 
* 
TLUS00	EQU	*
	SLL	A1,3	ADJUST FOR INDEXING IN SEGTAB 
	AD	A1,SCTSEG	ADD SEGTAB ADDRESS
	LCR	A4,A1	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,A1	INDICATE SEGMENT TO BE CORE RESIDENT
	RB	T:DISP
* 
*	UNLOCK SEGMENT
* 
TLUS10	EQU	*
	C1R	A4,A4	A4 := /FDFF
	ANRS	A4,A1	INDICATE SEGMENT NOT CORE RESIDENT
	RB	T:DISP
* 
* 
* 
	END

HexDump

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT TMMLKM  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…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…0360              Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x003c}
0x0360…0368              Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0044}
0x0368…0370              Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x004c}
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…043e              Head {h00=0x002c, h01=0x0050, text=» EXTRN LKMQDI QUEUE TASK FOR DISPATCHING«, t00=0x0002, t01=0x00f2}
0x043e…0466              Head {h00=0x0024, h01=0x0050, text=» EXTRN LKMRQE LKM REQUEST ERROR «, t00=0x0002, t01=0x0122}
0x0466…049a              Head {h00=0x0030, h01=0x0050, text=» EXTRN TTB:MT MMU TABLE DISPLACEMENT IN TTAB«, t00=0x0002, t01=0x014a}
0x049a…04be              Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTSEG SEGTAB ADDRESS«, t00=0x0002, t01=0x017e}
0x04be…04e6              Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTNOS NUMBER OF SEGMENTS«, t00=0x0003, t01=0x0012}
0x04e6…04fe              Head {h00=0x0014, h01=0x0050, text=» EJECT   TMMLKM «, t00=0x0003, t01=0x003a}
0x04fe…0508              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0052}
0x0508…0512              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x005c}
0x0512…0524              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0003, t01=0x0066}
0x0524…0536              Head {h00=0x000e, h01=0x0050, text=»* TCHPAG *«, t00=0x0003, t01=0x0078}
0x0536…0548              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0003, t01=0x008a}
0x0548…0552              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x009c}
0x0552…055c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a6}
0x055c…0592              Head {h00=0x0032, h01=0x0050, text=»*   THIS IS THE CHANGE MMU PAGE LKM PROCESSOR.«, t00=0x0003, t01=0x00b0}
0x0592…059c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e6}
0x059c…05e2              Head {h00=0x0042, h01=0x0050, text=»*   TCHPAG WILL CHANGE THE LOGICAL ADDRESSING SPACE OF A TASK.«, t00=0x0003, t01=0x00f0}
0x05e2…0626              Head {h00=0x0040, h01=0x0050, text=»*   ONLY ONE PHYSICAL PAGE (4 KB) CAN BE CHANGED AT A TIME. «, t00=0x0003, t01=0x0136}
0x0626…0630              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x017a}
0x0630…065e              Head {h00=0x002a, h01=0x0050, text=»*   IT IS ENTERED FROM THE LKM HANDLER«, t00=0x0003, t01=0x0184}
0x065e…0688              Head {h00=0x0026, h01=0x0050, text=»*   WITH THE FOLLOWING PARAMETERS:«, t00=0x0004, t01=0x0022}
0x0688…0692              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x004c}
0x0692…06b0              Head {h00=0x001a, h01=0x0050, text=»*   A5 = TTAB ADDRESS «, t00=0x0004, t01=0x0056}
0x06b0…06dc              Head {h00=0x0028, h01=0x0050, text=»*   A7 = PAGE TO BE CHANGED, 0 - 15 «, t00=0x0004, t01=0x0074}
0x06dc…070a              Head {h00=0x002a, h01=0x0050, text=»*   A8 = NEW LOCATION OF PAGE, 0 - 63 «, t00=0x0004, t01=0x00a0}
0x070a…0714              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ce}
0x0714…0754              Head {h00=0x003c, h01=0x0050, text=»*   IT RETURNS TO CALLING TASK WITH A7 AND A8 UNCHANGED.«, t00=0x0004, t01=0x00d8}
0x0754…075e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0118}
0x075e…0782              Head {h00=0x0020, h01=0x0050, text=»TCHPAG EQU * CHANGE MMU PAGE«, t00=0x0004, t01=0x0122}
0x0782…07b2              Head {h00=0x002c, h01=0x0050, text=» ANK A7,/F SKIP IRRELEVANT BITS (IF ANY)«, t00=0x0004, t01=0x0146}
0x07b2…07e6              Head {h00=0x0030, h01=0x0050, text=» ADR A7,A7 ADJUST FOR INDEXING IN MMU TABLE «, t00=0x0004, t01=0x0176}
0x07e6…080a              Head {h00=0x0020, h01=0x0050, text=» ADR A7,A5 ADD TTAB ADDRESS «, t00=0x0005, t01=0x001a}
0x080a…082e              Head {h00=0x0020, h01=0x0050, text=» LDR A2,A8 NEW PAGE LOCATION«, t00=0x0005, t01=0x003e}
0x082e…0860              Head {h00=0x002e, h01=0x0050, text=» ANK A2,/3F SKIP IRRELEVANT BITS (IF ANY) «, t00=0x0005, t01=0x0062}
0x0860…0872              Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0005, t01=0x0094}
0x0872…08b2              Head {h00=0x003c, h01=0x0050, text=» SC A2,TTB:MT,A7 STORE NEW LOCATION OF PAGE IN MMU TABLE«, t00=0x0005, t01=0x00a6}
0x08b2…08bc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e6}
0x08bc…08f0              Head {h00=0x0030, h01=0x0050, text=»T:DISP ABL LKMQDI QUEUE TASK FOR DISPATCHING«, t00=0x0005, t01=0x00f0}
0x08f0…08fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0124}
0x08fa…0912              Head {h00=0x0014, h01=0x0050, text=» EJECT   TMMLKM «, t00=0x0005, t01=0x012e}
0x0912…091c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0146}
0x091c…0926              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0150}
0x0926…0938              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0005, t01=0x015a}
0x0938…094a              Head {h00=0x000e, h01=0x0050, text=»* TCHMMU *«, t00=0x0005, t01=0x016c}
0x094a…095c              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0005, t01=0x017e}
0x095c…0966              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0190}
0x0966…0970              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x000a}
0x0970…09a8              Head {h00=0x0034, h01=0x0050, text=»*   THIS IS THE CHANGE MMU TABLE LKM PROCESSOR. «, t00=0x0006, t01=0x0014}
0x09a8…09b2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x004c}
0x09b2…09fa              Head {h00=0x0044, h01=0x0050, text=»*   TCHMMU WILL CHANGE THE MMU TABLE CONTENTS OF REQUESTING TASK«, t00=0x0006, t01=0x0056}
0x09fa…0a32              Head {h00=0x0034, h01=0x0050, text=»*   TO THE MMU TABLE CONTENTS OF SPECIFIED TASK.«, t00=0x0006, t01=0x009e}
0x0a32…0a3c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d6}
0x0a3c…0a6a              Head {h00=0x002a, h01=0x0050, text=»*   IT IS ENTERED FROM THE LKM HANDLER«, t00=0x0006, t01=0x00e0}
0x0a6a…0a94              Head {h00=0x0026, h01=0x0050, text=»*   WITH THE FOLLOWING PARAMETERS:«, t00=0x0006, t01=0x010e}
0x0a94…0a9e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0138}
0x0a9e…0abc              Head {h00=0x001a, h01=0x0050, text=»*   A5 = TTAB ADDRESS «, t00=0x0006, t01=0x0142}
0x0abc…0af2              Head {h00=0x0032, h01=0x0050, text=»*   A7 = TASK IDENTIFICATION OF SEARCHED TASK «, t00=0x0006, t01=0x0160}
0x0af2…0afc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0008}
0x0afc…0b28              Head {h00=0x0028, h01=0x0050, text=»*   IT RETURNS TO CALLING TASK WITH «, t00=0x0007, t01=0x0012}
0x0b28…0b4c              Head {h00=0x0020, h01=0x0050, text=»*   THE FOLLOWING PARAMETER:«, t00=0x0007, t01=0x003e}
0x0b4c…0b56              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0062}
0x0b56…0b8c              Head {h00=0x0032, h01=0x0050, text=»*   A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE«, t00=0x0007, t01=0x006c}
0x0b8c…0bb6              Head {h00=0x0026, h01=0x0050, text=»*   A7 = -1 IF TASK NOT IN SYSTEM «, t00=0x0007, t01=0x00a2}
0x0bb6…0bc0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00cc}
0x0bc0…0be6              Head {h00=0x0022, h01=0x0050, text=»TCHMMU EQU * CHANGE MMU TABLE «, t00=0x0007, t01=0x00d6}
0x0be6…0c14              Head {h00=0x002a, h01=0x0050, text=» CF A15,FNDTID GET TTAB ADDRESS TO A2 «, t00=0x0007, t01=0x00fc}
0x0c14…0c2c              Head {h00=0x0014, h01=0x0050, text=» ADK A2,0 SET CR«, t00=0x0007, t01=0x012a}
0x0c2c…0c52              Head {h00=0x0022, h01=0x0050, text=» RF(Z) TLCERR TTAB NOT FOUND? «, t00=0x0007, t01=0x0142}
0x0c52…0c88              Head {h00=0x0032, h01=0x0050, text=» TL TTB:MT,A2 LOAD SEARCHED MMU TABLE CONTENTS«, t00=0x0007, t01=0x0168}
0x0c88…0cc0              Head {h00=0x0034, h01=0x0050, text=» TS TTB:MT,A5 STORE IN MMU TABLE OF CALLING TASK«, t00=0x0008, t01=0x000e}
0x0cc0…0cee              Head {h00=0x002a, h01=0x0050, text=» RB T:DISP QUEUE TASK FOR DISPATCHING «, t00=0x0008, t01=0x0046}
0x0cee…0cf8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0074}
0x0cf8…0d10              Head {h00=0x0014, h01=0x0050, text=» EJECT   TMMLKM «, t00=0x0008, t01=0x007e}
0x0d10…0d1a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0096}
0x0d1a…0d24              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a0}
0x0d24…0d36              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0008, t01=0x00aa}
0x0d36…0d48              Head {h00=0x000e, h01=0x0050, text=»* TLUSEG *«, t00=0x0008, t01=0x00bc}
0x0d48…0d5a              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0008, t01=0x00ce}
0x0d5a…0d64              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e0}
0x0d64…0d6e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ea}
0x0d6e…0da8              Head {h00=0x0036, h01=0x0050, text=»*   THIS IS THE LOCK/UNLOCK SEGMENT LKM PROCESSOR.«, t00=0x0008, t01=0x00f4}
0x0da8…0db2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x012e}
0x0db2…0dfa              Head {h00=0x0044, h01=0x0050, text=»*   THE LOCK SEGMENT REQUEST WILL MAKE A SEGMENT CORE RESIDENT, «, t00=0x0008, t01=0x0138}
0x0dfa…0e42              Head {h00=0x0044, h01=0x0050, text=»*   UNTIL AN UNLOCK SEGMENT REQUEST IS ISSUED FOR THAT SEGMENT. «, t00=0x0008, t01=0x0180}
0x0e42…0e4c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0038}
0x0e4c…0e7a              Head {h00=0x002a, h01=0x0050, text=»*   IT IS ENTERED FROM THE LKM HANDLER«, t00=0x0009, t01=0x0042}
0x0e7a…0ea4              Head {h00=0x0026, h01=0x0050, text=»*   WITH THE FOLLOWING PARAMETERS:«, t00=0x0009, t01=0x0070}
0x0ea4…0eae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x009a}
0x0eae…0ecc              Head {h00=0x001a, h01=0x0050, text=»*   A5 = TTAB ADDRESS «, t00=0x0009, t01=0x00a4}
0x0ecc…0eec              Head {h00=0x001c, h01=0x0050, text=»*   A7 = SEGMENT NUMBER «, t00=0x0009, t01=0x00c2}
0x0eec…0f16              Head {h00=0x0026, h01=0x0050, text=»*   A8 = 0 IF LOCK SEGMENT REQUEST«, t00=0x0009, t01=0x00e2}
0x0f16…0f42              Head {h00=0x0028, h01=0x0050, text=»*      = 1 IF UNLOCK SEGMENT REQUEST«, t00=0x0009, t01=0x010c}
0x0f42…0f4c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0138}
0x0f4c…0f78              Head {h00=0x0028, h01=0x0050, text=»*   IT RETURNS TO CALLING TASK WITH «, t00=0x0009, t01=0x0142}
0x0f78…0f9e              Head {h00=0x0022, h01=0x0050, text=»*   THE FOLLOWING PARAMETERS: «, t00=0x0009, t01=0x016e}
0x0f9e…0fa8 (10, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0004}
0x0fa8…0fea              Head {h00=0x003e, h01=0x0050, text=»*   A7 = UNCHANGED IF SEGMENT LOADING IS SUCCESSFUL, ELSE «, t00=0x000a, t01=0x000e}
0x0fea…1014              Head {h00=0x0026, h01=0x0050, text=»*   A7 = -1 IF REQUEST ERROR, ELSE«, t00=0x000a, t01=0x0050}
0x1014…101e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x007a}
0x101e…1028              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0084}
0x1028…1040              Head {h00=0x0014, h01=0x0050, text=» EJECT   TMMLKM «, t00=0x000a, t01=0x008e}
0x1040…104a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a6}
0x104a…1054              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b0}
0x1054…107c              Head {h00=0x0024, h01=0x0050, text=»TLUSEG EQU * LOCK/UNLOCK SEGMENT«, t00=0x000a, t01=0x00ba}
0x107c…10aa              Head {h00=0x002a, h01=0x0050, text=» LDR A1,A7 CHECK IF SEGMENT NUMBER < 0«, t00=0x000a, t01=0x00e2}
0x10aa…10d0              Head {h00=0x0022, h01=0x0050, text=» RF(NP) TLCERR REQUEST ERROR? «, t00=0x000a, t01=0x0110}
0x10d0…1106              Head {h00=0x0032, h01=0x0050, text=» CW A1,SCTNOS CHECK IF SEGMENT NUMBER TOO BIG «, t00=0x000a, t01=0x0136}
0x1106…1120              Head {h00=0x0016, h01=0x0050, text=» RF(NG) TLUS00 OK?«, t00=0x000a, t01=0x016c}
0x1120…112a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0186}
0x112a…113e              Head {h00=0x0010, h01=0x0050, text=»TLCERR EQU *«, t00=0x000a, t01=0x0190}
0x113e…116e              Head {h00=0x002c, h01=0x0050, text=» ABL LKMRQE BRANCH TO LKM REQUEST ERROR «, t00=0x000b, t01=0x0014}
0x116e…1178              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0044}
0x1178…118c              Head {h00=0x0010, h01=0x0050, text=»TLUS00 EQU *«, t00=0x000b, t01=0x004e}
0x118c…11bc              Head {h00=0x002c, h01=0x0050, text=» SLL A1,3 ADJUST FOR INDEXING IN SEGTAB «, t00=0x000b, t01=0x0062}
0x11bc…11e4              Head {h00=0x0024, h01=0x0050, text=» AD A1,SCTSEG ADD SEGTAB ADDRESS«, t00=0x000b, t01=0x0092}
0x11e4…120a              Head {h00=0x0022, h01=0x0050, text=» LCR A4,A1 GET SEGMENT STATUS «, t00=0x000b, t01=0x00ba}
0x120a…121c              Head {h00=0x000e, h01=0x0050, text=» ANK A4,/8«, t00=0x000b, t01=0x00e0}
0x121c…1242              Head {h00=0x0022, h01=0x0050, text=» RB(NZ) TLCERR CORE RESIDENT? «, t00=0x000b, t01=0x00f2}
0x1242…124c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0118}
0x124c…1262              Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/200 «, t00=0x000b, t01=0x0122}
0x1262…128e              Head {h00=0x0028, h01=0x0050, text=» LDR A8,A8 CHECK WHAT REQUEST IT IS «, t00=0x000b, t01=0x0138}
0x128e…12b4              Head {h00=0x0022, h01=0x0050, text=» RF(NZ) TLUS10 UNLOCK SEGMENT?«, t00=0x000b, t01=0x0164}
0x12b4…12be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x018a}
0x12be…12d6 (12, 2, 356) Head {h00=0x0014, h01=0x0050, text=» EJECT   TMMLKM «, t00=0x000c, t01=0x0004}
0x12d6…12e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x001c}
0x12e0…12f6              Head {h00=0x0012, h01=0x0050, text=»* LOCK SEGMENT«, t00=0x000c, t01=0x0026}
0x12f6…1300              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x003c}
0x1300…1338              Head {h00=0x0034, h01=0x0050, text=» ORRS A4,A1 INDICATE SEGMENT TO BE CORE RESIDENT«, t00=0x000c, t01=0x0046}
0x1338…134a              Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x000c, t01=0x007e}
0x134a…1354              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0090}
0x1354…136c              Head {h00=0x0014, h01=0x0050, text=»* UNLOCK SEGMENT«, t00=0x000c, t01=0x009a}
0x136c…1376              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b2}
0x1376…138a              Head {h00=0x0010, h01=0x0050, text=»TLUS10 EQU *«, t00=0x000c, t01=0x00bc}
0x138a…13a8              Head {h00=0x001a, h01=0x0050, text=» C1R A4,A4 A4 := /FDFF«, t00=0x000c, t01=0x00d0}
0x13a8…13de              Head {h00=0x0032, h01=0x0050, text=» ANRS A4,A1 INDICATE SEGMENT NOT CORE RESIDENT«, t00=0x000c, t01=0x00ee}
0x13de…13f0              Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x000c, t01=0x0124}
0x13f0…13fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0136}
0x13fa…1404              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0140}
0x1404…140e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x014a}
0x140e…141a              Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x000c, t01=0x0154}
0x141a…141e              Head {h00=0x4004, h01=0x0000}
0x141e…1422              00 0c 01 60                                                                                                                                                                                                                                       ┆   `┆
0x1422…142a (13, 1, 8)   20 04 00 00 00 0d 00 04                                                                                                                                                                                                                           ┆        ┆
0x142a…147a (14, 0, 400) 54 42 3a 53 41 2b 31 34 2c 41 35 5c 53 45 54 20 2d 31 20 49 4e 20 53 41 56 45 20 41 52 45 41 20 41 37 00 15 01 88 00 06 00 50 2a 20 00 16 00 2a 00 06 00 50 2a 20 00 16 00 34 00 14 00 50 2a 20 20 20 4c 20 4b 20 4d 20 51 20 44 20 49 20 00 16   ┆TB:SA+14,A5 SET -1 IN SAVE AREA A7       P*    *   P*    4   P*   L K M Q D I   ┆
0x147a…14ca              00 3e 00 06 00 50 2a 20 00 16 00 56 00 28 00 50 2a 20 20 20 51 55 45 55 45 20 54 45 52 4d 49 4e 41 4c 20 4a 4f 42 20 41 4e 44 20 44 49 53 50 41 54 43 48 2e 00 16 00 60 00 06 00 50 2a 20 00 16 00 8c 00 1a 00 50 2a 20 20 20 41 35 20 3d 20 54   ┆ >   P*    V ( P*   QUEUE TERMINAL JOB AND DISPATCH.   `   P*        P*   A5 = T┆
0x14ca…151a              54 41 42 20 41 44 44 52 45 53 53 20 00 16 00 96 00 06 00 50 2a 20 00 16 00 b4 00 06 00 50 2a 20 00 16 00 be 00 10 00 50 4c 4b 4d 51 44 49 5c 45 51 55 5c 2a 00 16 00 c8 00 12 00 50 5c 43 46 5c 41 31 35 2c 51 54 4a 4f 42 20 00 16 00 dc 00 06   ┆TAB ADDRESS        P*        P*        PLKMQDI EQU *       P CF A15,QTJOB       ┆
0x151a…156a              00 50 2a 20 00 16 00 f2 00 2a 00 50 54 3a 44 49 53 50 5c 45 51 55 5c 2a 5c 43 4f 4d 4d 4f 4e 20 45 58 49 54 20 54 4f 20 44 49 53 50 41 54 43 48 45 52 00 16 00 fc 00 20 00 50 5c 41 42 4c 5c 54 44 49 53 50 5c 47 4f 20 54 4f 20 44 49 53 50 41   ┆ P*      * PT:DISP EQU * COMMON EXIT TO DISPATCHER       P ABL TDISP GO TO DISPA┆
0x156a…15ba              54 43 48 45 52 20 00 16 01 2a 00 06 00 50 2a 20 00 16 01 4e 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 4c 52 50 49 4e 54 20 00 16 01 58 00 06 00 50 2a 20 00 16 01 70 00 12 00 50 2a 20 20 20 49 20 48 20 52 20 54 20 43 20 00 16 01 7a 00 06 00 50   ┆TCHER    *   P*    N   P EJECT   LRPINT    X   P*    p   P*   I H R T C    z   P┆
0x15ba…160a (15, 0, 400) 2a 20 00 16 01 90 00 36 00 50 2a 20 20 20 54 48 49 53 20 49 53 20 54 48 45 20 52 45 41 4c 20 54 49 4d 45 20 43 4c 4f 43 4b 20 49 4e 54 45 52 52 55 50 54 20 48 41 4e 44 4c 45 52 2e 00 17 00 0a 00 36 00 50 2a 20 20 20 54 48 45 20 54 49 4d 45   ┆*      6 P*   THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER.     6 P*   THE TIME┆
0x160a…165a              52 20 51 55 45 55 45 20 57 49 4c 4c 20 42 45 20 50 52 4f 43 45 53 53 45 44 20 45 41 43 48 20 31 30 30 20 4d 53 2e 00 17 00 44 00 06 00 50 2a 20 00 17 00 7e 00 2a 00 50 49 48 52 54 43 5c 53 54 5c 50 2c 49 4e 54 53 41 56 5c 53 41 56 45 20 4c   ┆R QUEUE WILL BE PROCESSED EACH 100 MS.   D   P*    ~ * PIHRTC ST P,INTSAV SAVE L┆
0x165a…16aa              41 53 54 20 49 4e 54 45 52 52 55 50 54 20 00 17 00 88 00 22 00 50 5c 52 49 54 5c 2f 31 42 5c 52 45 53 45 54 20 49 4e 54 45 52 52 55 50 54 20 46 4c 41 47 20 00 17 00 b6 00 0e 00 50 5c 49 4d 5c 43 4f 55 4e 54 20 00 17 00 dc 00 24 00 50 5c 52   ┆AST INTERRUPT      " P RIT /1B RESET INTERRUPT FLAG        P IM COUNT      $ P R┆
0x16aa…16fa              46 28 50 29 5c 52 54 43 30 31 30 5c 43 48 45 43 4b 20 54 49 4d 45 52 20 51 55 45 55 45 3f 00 17 00 ee 00 0c 00 50 5c 52 54 4e 5c 41 31 35 00 17 01 16 00 06 00 50 2a 20 00 17 01 26 00 10 00 50 52 54 43 30 31 30 5c 45 51 55 5c 2a 00 17 01 30   ┆F(P) RTC010 CHECK TIMER QUEUE?       P RTN A15       P*    &   PRTC010 EQU *   0┆
0x16fa…174a              00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 31 20 00 17 01 44 00 26 00 50 5c 43 46 5c 41 31 35 2c 53 41 56 45 38 5c 53 41 56 45 20 41 31 2d 41 38 20 4f 4e 20 53 54 41 43 4b 20 00 17 01 5a 00 08 00 50 5c 58 49 46 00 17 01 84 00 06 00 50   ┆   P IFT CPU852=1    D & P CF A15,SAVE8 SAVE A1-A8 ON STACK    Z   P XIF       P┆
0x174a…179a (16, 0, 400) 2a 20 00 17 01 90 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 30 20 00 18 00 0a 00 22 00 50 5c 4d 53 52 5c 38 2c 41 31 35 5c 53 41 56 45 20 41 31 2d 41 38 20 4f 4e 20 53 54 41 43 4b 00 18 00 20 00 08 00 50 5c 58 49 46 00 18 00 46 00 06   ┆*        P IFT CPU852=0      " P MSR 8,A15 SAVE A1-A8 ON STACK       P XIF   F  ┆
0x179a…17ea              00 50 2a 20 00 18 00 52 00 22 00 50 5c 4c 44 4b 4c 5c 41 34 2c 2d 34 5c 53 45 54 20 31 30 30 20 4d 53 20 53 57 49 54 43 48 20 00 18 00 5c 00 10 00 50 5c 53 54 5c 41 34 2c 43 4f 55 4e 54 00 18 00 82 00 2e 00 50 5c 4c 44 4b 4c 5c 41 32 2c 43   ┆ P*    R " P LDKL A4,-4 SET 100 MS SWITCH        P ST A4,COUNT     . P LDKL A2,C┆
0x17ea…183a              4c 4f 43 4b 5c 51 55 45 55 45 20 43 4c 4f 43 4b 20 52 4f 55 54 49 4e 45 20 41 53 20 4d 4a 4f 42 00 18 00 96 00 12 00 50 5c 43 46 5c 41 31 35 2c 51 4d 4a 4f 42 20 00 18 00 c8 00 06 00 50 2a 20 00 18 00 de 00 12 00 50 5c 49 46 54 5c 4d 4f 4e   ┆LOCK QUEUE CLOCK ROUTINE AS MJOB       P CF A15,QMJOB        P*        P IFT MON┆
0x183a…188a              43 4c 4b 3d 31 20 00 18 00 e8 00 0e 00 50 5c 49 4d 5c 53 45 43 4f 4e 44 00 18 00 fe 00 28 00 50 5c 52 46 28 50 29 5c 52 54 43 30 32 35 5c 55 50 44 41 54 45 20 4d 4f 4e 49 54 4f 52 20 43 4c 4f 43 4b 3f 20 00 18 01 10 00 08 00 50 5c 58 49 46   ┆CLK=1        P IM SECOND     ( P RF(P) RTC025 UPDATE MONITOR CLOCK?        P XIF┆
0x188a…18da              00 18 01 3c 00 06 00 50 2a 20 00 18 01 48 00 10 00 50 52 54 43 30 32 30 5c 45 51 55 5c 2a 00 18 01 52 00 24 00 50 5c 43 46 5c 41 31 35 2c 53 57 4c 58 59 5c 53 57 49 54 43 48 20 54 4f 20 4c 45 56 45 4c 20 58 59 00 18 01 66 00 0e 00 50 5c 52   ┆   <   P*    H   PRTC020 EQU *   R $ P CF A15,SWLXY SWITCH TO LEVEL XY   f   P R┆
0x18da…192a (17, 0, 400) 42 5c 54 3a 44 49 53 50 00 18 01 8e 00 06 00 50 2a 20 00 19 00 10 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 4c 52 50 49 4e 54 20 00 19 00 1a 00 06 00 50 2a 20 00 19 00 32 00 06 00 50 2a 20 00 19 00 3c 00 12 00 50 5c 49 46 54 5c 4d 4f 4e 43 4c   ┆B T:DISP       P*        P EJECT   LRPINT        P*    2   P*    <   P IFT MONCL┆
0x192a…197a              4b 3d 31 20 00 19 00 46 00 06 00 50 2a 20 00 19 00 5c 00 3c 00 50 2a 20 20 20 4d 4f 4e 49 54 4f 52 20 43 4c 4f 43 4b 20 55 50 44 41 54 49 4e 47 20 52 4f 55 54 49 4e 45 20 53 54 41 52 54 45 44 20 45 41 43 48 20 53 45 43 4f 4e 44 2e 20 00 19   ┆K=1    F   P*      < P*   MONITOR CLOCK UPDATING ROUTINE STARTED EACH SECOND.   ┆
0x197a…19ca              00 66 00 06 00 50 2a 20 00 19 00 a6 00 10 00 50 4d 43 4c 4f 43 4b 5c 45 51 55 5c 2a 00 19 00 b0 00 28 00 50 52 54 43 30 32 35 5c 4c 44 4b 4c 5c 41 34 2c 2d 39 5c 53 45 54 20 53 45 43 4f 4e 44 20 53 57 49 54 43 48 20 00 19 00 c4 00 12 00 50   ┆ f   P*        PMCLOCK EQU *     ( PRTC025 LDKL A4,-9 SET SECOND SWITCH        P┆
0x19ca…1a1a              5c 53 54 5c 41 34 2c 53 45 43 4f 4e 44 20 00 19 00 f0 00 0e 00 50 5c 4c 44 4b 5c 41 34 2c 34 20 00 19 01 06 00 06 00 50 2a 20 00 19 01 18 00 32 00 50 4d 43 4c 4f 31 30 5c 4c 44 4b 5c 41 33 2c 36 30 5c 4e 55 4d 42 45 52 20 4f 46 20 4d 49 4e   ┆ ST A4,SECOND        P LDK A4,4        P*      2 PMCLO10 LDK A3,60 NUMBER OF MIN┆
0x1a1a…1a6a              55 54 45 53 20 41 4e 44 20 53 45 43 4f 4e 44 53 00 19 01 22 00 28 00 50 4d 43 4c 4f 32 30 5c 49 4d 5c 4d 4f 4e 43 4c 4f 2b 32 2c 41 34 5c 49 4e 43 52 45 4d 45 4e 54 20 54 49 4d 45 00 19 01 58 00 30 00 50 5c 58 52 5c 41 33 2c 4d 4f 4e 43 4c   ┆UTES AND SECONDS   " ( PMCLO20 IM MONCLO+2,A4 INCREMENT TIME   X 0 P XR A3,MONCL┆
0x1a6a…1aba (18, 0, 400) 4f 2b 32 2c 41 34 5c 43 48 41 4e 47 45 20 4d 49 4e 55 54 45 53 20 4f 52 20 48 4f 55 52 53 20 3f 00 19 01 84 00 24 00 50 5c 52 42 28 4e 45 29 5c 52 54 43 30 32 30 5c 47 4f 20 54 4f 20 44 49 53 50 41 54 43 48 45 52 3f 00 1a 00 28 00 28 00 50   ┆O+2,A4 CHANGE MINUTES OR HOURS ?     $ P RB(NE) RTC020 GO TO DISPATCHER?   ( ( P┆
0x1aba…1b0a              5c 43 4d 5c 4d 4f 4e 43 4c 4f 2b 32 2c 41 34 5c 52 45 53 54 41 52 54 20 54 49 4d 45 20 43 4f 55 4e 54 45 52 00 1a 00 50 00 12 00 50 5c 53 55 4b 5c 41 34 2c 32 5c 45 4e 44 3f 00 1a 00 7c 00 22 00 50 5c 52 42 28 4e 29 5c 4d 43 4c 4f 32 30 5c   ┆ CM MONCLO+2,A4 RESTART TIME COUNTER   P   P SUK A4,2 END?   | " P RB(N) MCLO20 ┆
0x1b0a…1b5a              4d 49 44 4e 49 47 48 54 20 43 41 52 52 59 3f 20 00 1a 00 92 00 22 00 50 5c 52 42 28 50 29 5c 4d 43 4c 4f 31 30 5c 55 50 44 41 54 45 20 4d 49 4e 55 54 45 53 3f 20 00 1a 00 b8 00 1c 00 50 5c 4c 44 4b 5c 41 33 2c 32 34 5c 55 50 44 41 54 45 20   ┆MIDNIGHT CARRY?      " P RB(P) MCLO10 UPDATE MINUTES?        P LDK A3,24 UPDATE ┆
0x1b5a…1baa              48 4f 55 52 53 20 00 1a 00 de 00 0e 00 50 5c 52 42 5c 4d 43 4c 4f 32 30 00 1a 00 fe 00 08 00 50 5c 58 49 46 00 1a 01 10 00 06 00 50 2a 20 00 1a 01 1c 00 06 00 50 2a 20 00 1a 01 26 00 14 00 50 2a 20 20 20 4d 20 4f 20 4e 20 43 20 4c 20 4f 20   ┆HOURS        P RB MCLO20       P XIF       P*        P*    &   P*   M O N C L O ┆
0x1baa…1bfa              00 1a 01 30 00 06 00 50 2a 20 00 1a 01 48 00 06 00 50 2a 20 00 1a 01 52 00 10 00 50 4d 4f 4e 43 4c 4f 5c 45 51 55 5c 2a 00 1a 01 5c 00 12 00 50 5c 49 46 54 5c 4d 4f 4e 43 4c 4b 3d 31 20 00 1a 01 70 00 26 00 50 5c 44 41 54 41 5c 30 5c 41 43   ┆   0   P*    H   P*    R   PMONCLO EQU *       P IFT MONCLK=1    p & P DATA 0 AC┆
0x1bfa…1c4a (19, 0, 400) 43 55 4d 55 4c 41 54 45 44 20 32 34 20 48 4f 55 52 20 43 41 52 52 59 20 00 1a 01 86 00 10 00 50 5c 44 41 54 41 5c 30 5c 48 4f 55 52 00 1b 00 20 00 12 00 50 5c 44 41 54 41 5c 30 5c 4d 49 4e 55 54 45 00 1b 00 34 00 12 00 50 5c 44 41 54 41 5c   ┆CUMULATED 24 HOUR CARRY        P DATA 0 HOUR       P DATA 0 MINUTE   4   P DATA ┆
0x1c4a…1c9a              30 5c 53 45 43 4f 4e 44 00 1b 00 4a 00 20 00 50 53 45 43 4f 4e 44 5c 44 41 54 41 5c 30 5c 53 45 43 4f 4e 44 20 53 57 49 54 43 48 20 00 1b 00 60 00 08 00 50 5c 58 49 46 00 1b 00 84 00 06 00 50 2a 20 00 1b 00 90 00 14 00 50 5c 45 4a 45 43 54   ┆0 SECOND   J   PSECOND DATA 0 SECOND SWITCH    `   P XIF       P*        P EJECT┆
0x1c9a…1cea              5c 5c 5c 4c 52 50 49 4e 54 20 00 1b 00 9a 00 06 00 50 2a 20 00 1b 00 b2 00 2a 00 50 2a 20 20 20 43 4c 4f 43 4b 20 52 4f 55 54 49 4e 45 20 53 54 41 52 54 45 44 20 45 41 43 48 20 31 30 30 20 4d 53 2e 00 1b 00 bc 00 06 00 50 2a 20 00 1b 00 ea   ┆   LRPINT        P*      * P*   CLOCK ROUTINE STARTED EACH 100 MS.       P*     ┆
0x1cea…1d3a              00 0e 00 50 43 4c 4f 43 4b 5c 49 4e 48 20 00 1b 00 f4 00 2c 00 50 5c 4c 44 4b 4c 5c 41 34 2c 54 49 4d 51 55 45 5c 4c 4f 41 44 20 46 49 52 53 54 20 54 49 4d 45 52 20 41 44 44 52 45 53 53 00 1b 01 06 00 06 00 50 2a 20 00 1b 01 36 00 14 00 50   ┆   PCLOCK INH      , P LDKL A4,TIMQUE LOAD FIRST TIMER ADDRESS       P*    6   P┆
0x1d3a…1d8a              43 4c 4b 31 30 5c 4c 44 52 5c 41 36 2c 41 34 20 00 1b 01 40 00 24 00 50 43 4c 4b 32 30 5c 4c 44 52 2a 5c 41 34 2c 41 36 5c 47 45 54 20 54 49 4d 45 52 20 42 4c 4f 43 4b 00 1b 01 58 00 1e 00 50 5c 41 42 4c 28 5a 29 5c 4d 45 58 49 54 5c 45 4e   ┆CLK10 LDR A6,A4    @ $ PCLK20 LDR* A4,A6 GET TIMER BLOCK   X   P ABL(Z) MEXIT EN┆
0x1d8a…1dda (20, 0, 400) 44 20 4f 46 20 51 55 45 55 45 00 1b 01 80 00 1c 00 50 5c 49 4d 5c 34 2c 41 34 5c 49 4e 43 52 45 4d 45 4e 54 20 54 49 4d 45 52 00 1c 00 12 00 1e 00 50 5c 52 42 28 4e 29 5c 43 4c 4b 31 30 5c 4e 4f 54 20 54 49 4d 45 20 4f 55 54 3f 00 1c 00 32   ┆D OF QUEUE       P IM 4,A4 INCREMENT TIMER       P RB(N) CLK10 NOT TIME OUT?   2┆
0x1dda…1e2a              00 1a 00 50 5c 52 46 28 5a 29 5c 43 4c 4b 33 30 5c 54 49 4d 45 20 4f 55 54 3f 00 1c 00 54 00 1e 00 50 5c 4c 44 52 2a 5c 41 33 2c 41 34 5c 52 45 4c 45 41 53 45 20 54 49 4d 45 52 20 00 1c 00 72 00 0e 00 50 5c 53 54 52 5c 41 33 2c 41 36 00 1c   ┆   P RF(Z) CLK30 TIME OUT?   T   P LDR* A3,A4 RELEASE TIMER    r   P STR A3,A6  ┆
0x1e2a…1e7a              00 94 00 12 00 50 5c 43 46 5c 41 31 35 2c 46 52 45 42 4c 4b 00 1c 00 a6 00 0e 00 50 5c 4c 44 52 5c 41 34 2c 41 32 00 1c 00 bc 00 12 00 50 5c 43 46 5c 41 31 35 2c 46 52 45 42 4c 4b 00 1c 00 ce 00 0e 00 50 5c 52 42 5c 43 4c 4b 32 30 20 00 1c   ┆     P CF A15,FREBLK       P LDR A4,A2       P CF A15,FREBLK       P RB CLK20   ┆
0x1e7a…1eca              00 e4 00 06 00 50 2a 20 00 1c 00 f6 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 4c 52 50 49 4e 54 20 00 1c 01 00 00 06 00 50 2a 20 00 1c 01 18 00 06 00 50 2a 20 00 1c 01 22 00 2c 00 50 43 4c 4b 33 30 5c 43 46 5c 41 31 35 2c 43 4c 4b 34 30 5c 43   ┆     P*        P EJECT   LRPINT        P*        P*    " , PCLK30 CF A15,CLK40 C┆
0x1eca…1f1a              41 4c 4c 20 54 49 4d 45 20 4f 55 54 20 52 4f 55 54 49 4e 45 00 1c 01 2c 00 08 00 50 5c 49 4e 48 00 1c 01 5c 00 0e 00 50 5c 52 42 5c 43 4c 4b 31 30 20 00 1c 01 68 00 06 00 50 2a 20 00 1c 01 7a 00 10 00 50 43 4c 4b 34 30 5c 45 51 55 5c 2a 20   ┆ALL TIME OUT ROUTINE   ,   P INH       P RB CLK10    h   P*    z   PCLK40 EQU * ┆

Reduced view