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

⟦5c9a3020b⟧

    Length: 10866 (0x2a72)
    Notes: pts_type(SC)
    Names: »INIMOM.SC«

Derivation

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

PTS(SC)

	IDENT INIMOM 	REL 8.2 78-09-15  870105040820 

**
*************************************************** 
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   INIMOM = INITIALIZE MONITOR 
* 
* 
* 
* 
* 
* 
*************************************************** 
*   NOTE!  THIS VERSION OF INIMON IS ONLY USED IN 
*          PROGRAM DEBUGGING PHASE
*************************************************** 
* 
* THIS MODULE IS USED TO INITIALIAZE THE MONITOR
* AND START THE DISPATCHER. IT IS STARTED AFTER 
* PROGRAM LOAD. 
* 
*  MEMORY MANAGEMENT VERSION
* 
	EJECT
* 
* THE FOLLOWING TTAB FIELDS ARE RESET:- 
* 
* TTB:SA  PROGRAM COUNTER 
* TTB:PP  PENDING PROGRAM POINTER 
* 
* 
* THE FOLLOWING DWT FIELDS ARE RESET:-
* 
* DWTST  STATUS IS SET TO /8000 
* DWTTQ   TERMINAL ON QUEUE FOR THIS DEVICE 
* DWTECB   DWT-ADDRESS
* 
* INTERTASK COM. DWT ONLY:  FIRST WORD IS RESET 
* 
* PRUN IS SET TO FIRST USER TERMINAL
* 
* THE STACKBASE IS LOADED INTO REGISTER A15 AND 
* THE STACK IS INITIATED TO PERMIT START OF 
* THE SYSTEM WITH THE FIRST USER PROGRAM IN TCTAB 
* 
* TIMER QUEUE IS RESET. 
* MOREOVER ADDRESSES TO TIMER POINTERS DECLARED 
* IN FIRST WORD IN SECOND PART OF A TIMER BLOCK 
* SECTION ARE RESET.
* 
* 
* ALL BLOCKS IN THE BLOCK SECTION ARE SET FREE. 
* 
* BUFFER QUEUE IS RESET.
* 
* ATTACH CHAIN IS RESET 
* 
	EJECT
* 
*	ENTRY POINTS
* 
	ENTRY	INIMON	MODULE ENTRY POINT
* 
*	EXTERNAL REFERENCES 
* 
	EXTRN	TCTAB
	EXTRN	TTB:SS	SEGMENT START ADDRESS 
	EXTRN	TTB:SP	POINTER TO SEGMENT IN LSBT
	EXTRN	TTB:SA	SAVE AREA FOR TERMINAL
	EXTRN	TTB:PP	PENDING PROGRAM POINTER 
	EXTRN	TTB:ST	STATUS
	EXTRN	TTB:ID	TERMINAL IDENTIFICATION 
	EXTRN	TTB:TD	TERMINAL DEVICES
	EXTRN	DWTST	STATUS 
	EXTRN	DWTADR	ACTIVATION ADDRESS
	EXTRN	DWTECB	DWT-ADDRESS 
	EXTRN	DWTTQ	TERMINAL ON QUEUE
	EXTRN	BLOCKL	LENGTH OF BLOCK POOL
	EXTRN	FREQUE	FREE BLOCK IN QUEUE 
	EXTRN	GBQUE	START OF BUFFER QUEUE
	EXTRN	STB	STACK BASE 
	EXTRN	DISQUE	JOB QUEUE ANCHOR
	EXTRN	TIMQUE	TIMER QUEUE ANCHOR
	EXTRN	PRUN	TTAB FOR RUNNING PROGRAM
	EXTRN	SRUN	RUNNING SEGMENT 
	EXTRN	LRUQUE	POINTER TO LRU-LINK 
	EXTRN	PFINIT	INIT AFTER MASTER CLEAR 
	EXTRN	CDTAB	COMMON DEVICE TABLE
	EXTRN	APL	APPLICATION LOADER 
	EXTRN	CVTMSZ	MEMORY SIZE 
	EXTRN	CVTSBA	BEGINNING OF BUFFER POOL
	EXTRN	CVTEBA	END OF BUFFER POOL
	EXTRN	CVTSTB	STACK BASE IN CVT 
	EXTRN	CVTAPS	APPLICATION START ADDRESS 
	EXTRN	INIFLG	INITIALIZATION FLAG 
	EXTRN	LOOP	IDLE LOOP 
	EXTRN	BLOCKS	COMMON BLOCK POOL 
	EXTRN	LDPEND	LOAD PENDING INDICATOR
	EXTRN	NUMPAR	NUMBER OF PARTITIONS
	EXTRN	PARLEN	PARTITION LENGTH
	EXTRN	FREPAR	FREE PARTITION LINK 
	EXTRN	CVTLSB	START ADDRESS OF LSB-TABLE
	EXTRN	ATT:CH	ATTACH CHAIN
	EXTRN	ITADI	ACTIVATION ADDRESS INTERTASK REQUEST 
	EXTRN	ITADO	ACTIVATION ADDRESS INTERTASK REQUEST 
* 
	EJECT
* 
* 
* RESET TTAB FIELDS AND TERMINAL DEVICES
* 
* 
INIMON	EQU	*
	INH		 INHIBIT INTERRUPTS 
	LDK	A7,0 
	LD*	A1,TCTAB	TCTAB LENGTH
	AD	A1,TCTAB	+ BASE ADDRESS 

INI100	SUK	A1,2 
	CW	A1,TCTAB
	RF(E)	INI200	ALL TERMINALS INITIALIZED 

	LDR*	A5,A1	TTAB ADDRESS
	SC	A7,TTB:ST,A5	RESET STATUS 
	CM	TTB:PP,A5	RESET PENDING POINTER 
	CM	TTB:SA,A5	RESET DISPATCH ADDRESS
	CM	TTB:SP,A5	RESET SEGMENT POINTER 
	CM	TTB:SS,A5	RESET SEGMENT START ADDRESS 
	LDKL	A14,INI100	RETURN ADDRESS 
	LDKL	A2,TTB:TD	
	ADR	A2,A5	TTAB CONFIGURATION PART ADDRESS
	ABL	RSTDEV	RESET TERMINAL DEVICES
	EJECT
* 
* 
* RESET COMMON DEVICES
* 
* 
INI200	EQU	*
	LDKL	A14,INI210	ACTION AFTER RESET 
	LD	A2,CDTAB	DEVICE TABLE ADDRESS 
	ABL	RSTDEV 
	EJECT
* 
* 
* RESET DEVICES FOR A TERMINAL/COMMON 
* 
* ENTRY PARAMETERS: 
* 
* A2 = TABLE ADDRESS
* A14= RETURN ADDRESS 
* 
* A1 AND A5 MAY NOT BE DESTRYED 
* 
* 
RSTDEV	EQU	*
	LDR*	A3,A2	GET TABLE LENGTH
	LDR	A4,A2
	LDKL	A8,/80
RST100	EQU	*
	SUK	A3,4 
	ABR(N)	A14	ALL DEVICES RESET 
	ADK	A4,4	ADJUST ADDRESS TO DWT 
	LDR*	A6,A4	GET DWT ADDRESS 
	RB(Z)	RST100	DWT NOT IN SYSTEM 
	LDKL	A9,ITADI
	CW	A9,DWTADR,A6	INTERTASK DWT? 
	RF(E)	RST120	YES!
	LDKL	A9,ITADO
	CW	A9,DWTADR,A6	INTERTASK DWT? 
	RF(NE)	RST130	NO!
RST120	CMR	A6	RESET WORD 0
RST130	EQU	*
	SC	A8,DWTST,A6	RESET DWT STATUS
	CM	DWTECB,A6	RESET ECB 
	CM	DWTTQ,A6	RESET TERMINAL QUEUE 
	RB	RST100	NEXT DEVICE
	EJECT
* 
* 
* RESET BLOCK POOL
* 
* 
INI210	EQU	*
	LDKL	A4,TIMQUE	TIMER QUEUE 
INI214	EQU	*
	LDR*	A4,A4	NEXT TIMER BLOCK IN QUEUE 
	RF(Z)	INI218	NO MORE 
	LD*	A3,2,A4	GET TIMER POINTER ADDRESS
	RB(Z)	INI214 
	CMR	A3	RESET TIMER POINTER 
	RB	INI214
INI218	EQU	*
	CM	TIMQUE	RESET TIMER QUEUE
	LD	A1,BLOCKL	LENGTH OF BLOCK POOL
	LD	A2,BLOCKS	BLOCK POOL ADDRESS
	ST	A2,FREQUE	INITIALIZE FREE QUEUE POINTER 
INI220	EQU	*
	SUK	A1,6 
	RF(N)	INI230	ALL DONE
	LDR	A3,A2
	ADK	A2,6 
	STR	A2,A3	STORE ADDRESS TO NEXT FREE POSITION
	RB	INI220
INI230	CMR	A3	END OF FREE BLOCKS
* 
*    RESET BUFFER QUEUE 
* 
	CM	GBQUE 
	EJECT
* 
*  RESET ATTACH CHAIN 
* 
	CM	ATT:CH
* 
*   CLEAR PENDING LOAD OF LOAD TASK 
* 
	CM	LDPEND
* 
*   CLEAR LRU-QUEUE. INDICATE SEGMENTS UNLOADED 
* 
	CM	LRUQUE	CLEAR LRU-LINK 
	LD	A4,CVTLSB	GET ADDRESS TO LSBT 
	LDR*	A3,A4	GET LENGTH OF LSBT
	ADR	A3,A4	UPPER LIMIT
INILRU	ADK	A4,12	POINTER OF SEGMENT END 
	CWR	A4,A3	END OF SEGMENTS? 
	RF(G)	INIPAR 
	LDK	A1,/80	INDICATE SEGMENT NOT LOADED 
	SC	A1,-10,A4 
	CM	-2,A4	CLEAR PRECEDENT 
	CMR	A4	CLEAR SUCCEDENT 
	RB	INILRU
* 
*   LINK FREE PARTITIONS
* 
INIPAR	EQU	*
	LDKL	A4,NUMPAR	GET NUMBER OF PARTITIONS
	LD	A3,CVTSBA 
	ST	A3,FREPAR	SET FREE PARTITION POINTER
INI240	SUK	A4,1	LAST PARTITION? 
	RF(Z)	INI245 
	LDR	A2,A3
	AD	A3,PARLEN	ADD LENGTH
	STR	A3,A2	STORE LINK 
	RB	INI240
INI245	CMR	A3 
	EJECT
* 
* 
*   INITIALIZE STACK
* 
INI250	LD	A15,CVTSTB	LOAD STACK BASE
	LDKL	A1,LOOP 
	STR	A1,A15 
	LDKL	A1,/FC00
	STR	A1,A15 
	SUKL	A15,28
	LDK	A1,0 
	STR	A1,A15 
	STR	A1,A15	SRUN IDLE-LOOP
	EJECT
* 
* 
* FIND FIRST USER PROGRAM 
* 
* 

	LD	A1,TCTAB	TCTAB ADDRESS
	LDR*	A4,A1	TCTAB LENGTH
INIM50	ADK	A1,2 
	SUK	A4,2 
	RF(NZ)	INIM60
	HLT		NO USER TASK FOUND

INIM60	LDR*	A5,A1	TTAB ADDRESS
	LD	A2,TTB:ID,A5	TASK IDENTIFICATION
	RB(N)	INIM50	MONITOR TASK
	ST	A5,PRUN	SET TTAB FOR RUNNING PROGRAM
	CM	SRUN	SET ROOTSEGMENT
	CMR	A5 
	LD	A7,TTB:ST,A5	GET USER LEVEL 
	SRC	A7,6 
	CM	DISQUE	NO JOBS ON QUEUE 
	EJECT
* 
* 
* START SYSTEM
* 
* 
INI510	EQU	*
	CM	INIFLG
	IM	INIFLG
	LDKL	A13,WAITIS
	STR	A13,A15	USER START ADDRESS 
	STR	A7,A15	AND LEVEL 
	ABL	PFINIT	INITIALIZE DEVICES
WAITIS	EQU	*
	LDKL	A8,10 
	LKM
	DATA	6 
	ABI	CVTAPS 
	END

HexDump

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT INIMOM  REL 8.2 78-09-15  870105040820 «, t00=0x0000, t01=0x0004}
0x0036…003e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048              Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0000, t01=0x0042}
0x0048…0084              Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0000, t01=0x004c}
0x0084…008e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0088}
0x008e…00b6              Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0092}
0x00b6…00c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ba}
0x00c0…00e8              Head {h00=0x0024, h01=0x0050, text=»*   INIMOM = INITIALIZE MONITOR «, t00=0x0000, t01=0x00c4}
0x00e8…00f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ec}
0x00f2…00fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f6}
0x00fc…0106              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0100}
0x0106…0110              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010a}
0x0110…011a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0114}
0x011a…0124              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011e}
0x0124…0160              Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0000, t01=0x0128}
0x0160…019a              Head {h00=0x0036, h01=0x0050, text=»*   NOTE!  THIS VERSION OF INIMON IS ONLY USED IN «, t00=0x0000, t01=0x0164}
0x019a…01c4              Head {h00=0x0026, h01=0x0050, text=»*          PROGRAM DEBUGGING PHASE«, t00=0x0001, t01=0x000e}
0x01c4…0200              Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0001, t01=0x0038}
0x0200…020a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0074}
0x020a…0242              Head {h00=0x0034, h01=0x0050, text=»* THIS MODULE IS USED TO INITIALIAZE THE MONITOR«, t00=0x0001, t01=0x007e}
0x0242…027a              Head {h00=0x0034, h01=0x0050, text=»* AND START THE DISPATCHER. IT IS STARTED AFTER «, t00=0x0001, t01=0x00b6}
0x027a…0292              Head {h00=0x0014, h01=0x0050, text=»* PROGRAM LOAD. «, t00=0x0001, t01=0x00ee}
0x0292…029c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0106}
0x029c…02c0              Head {h00=0x0020, h01=0x0050, text=»*  MEMORY MANAGEMENT VERSION«, t00=0x0001, t01=0x0110}
0x02c0…02ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0134}
0x02ca…02d8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x013e}
0x02d8…02e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014c}
0x02e2…0312              Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING TTAB FIELDS ARE RESET:- «, t00=0x0001, t01=0x0156}
0x0312…031c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0186}
0x031c…033e              Head {h00=0x001e, h01=0x0050, text=»* TTB:SA  PROGRAM COUNTER «, t00=0x0001, t01=0x0190}
0x033e…0368              Head {h00=0x0026, h01=0x0050, text=»* TTB:PP  PENDING PROGRAM POINTER «, t00=0x0002, t01=0x0022}
0x0368…0372              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x004c}
0x0372…037c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0056}
0x037c…03aa              Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING DWT FIELDS ARE RESET:-«, t00=0x0002, t01=0x0060}
0x03aa…03b4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x008e}
0x03b4…03dc              Head {h00=0x0024, h01=0x0050, text=»* DWTST  STATUS IS SET TO /8000 «, t00=0x0002, t01=0x0098}
0x03dc…0410              Head {h00=0x0030, h01=0x0050, text=»* DWTTQ   TERMINAL ON QUEUE FOR THIS DEVICE «, t00=0x0002, t01=0x00c0}
0x0410…042e              Head {h00=0x001a, h01=0x0050, text=»* DWTECB   DWT-ADDRESS«, t00=0x0002, t01=0x00f4}
0x042e…0438              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0112}
0x0438…0470              Head {h00=0x0034, h01=0x0050, text=»* INTERTASK COM. DWT ONLY:  FIRST WORD IS RESET «, t00=0x0002, t01=0x011c}
0x0470…047a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0154}
0x047a…04a6              Head {h00=0x0028, h01=0x0050, text=»* PRUN IS SET TO FIRST USER TERMINAL«, t00=0x0002, t01=0x015e}
0x04a6…04b0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x018a}
0x04b0…04e8 (3, 0, 400)  Head {h00=0x0034, h01=0x0050, text=»* THE STACKBASE IS LOADED INTO REGISTER A15 AND «, t00=0x0003, t01=0x0004}
0x04e8…051c              Head {h00=0x0030, h01=0x0050, text=»* THE STACK IS INITIATED TO PERMIT START OF «, t00=0x0003, t01=0x003c}
0x051c…0556              Head {h00=0x0036, h01=0x0050, text=»* THE SYSTEM WITH THE FIRST USER PROGRAM IN TCTAB «, t00=0x0003, t01=0x0070}
0x0556…0560              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00aa}
0x0560…0580              Head {h00=0x001c, h01=0x0050, text=»* TIMER QUEUE IS RESET. «, t00=0x0003, t01=0x00b4}
0x0580…05b8              Head {h00=0x0034, h01=0x0050, text=»* MOREOVER ADDRESSES TO TIMER POINTERS DECLARED «, t00=0x0003, t01=0x00d4}
0x05b8…05f0              Head {h00=0x0034, h01=0x0050, text=»* IN FIRST WORD IN SECOND PART OF A TIMER BLOCK «, t00=0x0003, t01=0x010c}
0x05f0…060c              Head {h00=0x0018, h01=0x0050, text=»* SECTION ARE RESET.«, t00=0x0003, t01=0x0144}
0x060c…0616              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0160}
0x0616…0620              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x016a}
0x0620…0658              Head {h00=0x0034, h01=0x0050, text=»* ALL BLOCKS IN THE BLOCK SECTION ARE SET FREE. «, t00=0x0003, t01=0x0174}
0x0658…0662              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x001c}
0x0662…0682              Head {h00=0x001c, h01=0x0050, text=»* BUFFER QUEUE IS RESET.«, t00=0x0004, t01=0x0026}
0x0682…068c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0046}
0x068c…06ac              Head {h00=0x001c, h01=0x0050, text=»* ATTACH CHAIN IS RESET «, t00=0x0004, t01=0x0050}
0x06ac…06b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0070}
0x06b6…06c4              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x007a}
0x06c4…06ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0088}
0x06ce…06e4              Head {h00=0x0012, h01=0x0050, text=»* ENTRY POINTS«, t00=0x0004, t01=0x0092}
0x06e4…06ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a8}
0x06ee…0716              Head {h00=0x0024, h01=0x0050, text=» ENTRY INIMON MODULE ENTRY POINT«, t00=0x0004, t01=0x00b2}
0x0716…0720              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00da}
0x0720…073e              Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL REFERENCES «, t00=0x0004, t01=0x00e4}
0x073e…0748              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0102}
0x0748…075c              Head {h00=0x0010, h01=0x0050, text=» EXTRN TCTAB«, t00=0x0004, t01=0x010c}
0x075c…0788              Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:SS SEGMENT START ADDRESS «, t00=0x0004, t01=0x0120}
0x0788…07b8              Head {h00=0x002c, h01=0x0050, text=» EXTRN TTB:SP POINTER TO SEGMENT IN LSBT«, t00=0x0004, t01=0x014c}
0x07b8…07e4              Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:SA SAVE AREA FOR TERMINAL«, t00=0x0004, t01=0x017c}
0x07e4…0812              Head {h00=0x002a, h01=0x0050, text=» EXTRN TTB:PP PENDING PROGRAM POINTER «, t00=0x0005, t01=0x0018}
0x0812…082e              Head {h00=0x0018, h01=0x0050, text=» EXTRN TTB:ST STATUS«, t00=0x0005, t01=0x0046}
0x082e…085c              Head {h00=0x002a, h01=0x0050, text=» EXTRN TTB:ID TERMINAL IDENTIFICATION «, t00=0x0005, t01=0x0062}
0x085c…0882              Head {h00=0x0022, h01=0x0050, text=» EXTRN TTB:TD TERMINAL DEVICES«, t00=0x0005, t01=0x0090}
0x0882…089e              Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0005, t01=0x00b6}
0x089e…08c6              Head {h00=0x0024, h01=0x0050, text=» EXTRN DWTADR ACTIVATION ADDRESS«, t00=0x0005, t01=0x00d2}
0x08c6…08e8              Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB DWT-ADDRESS «, t00=0x0005, t01=0x00fa}
0x08e8…090e              Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTTQ TERMINAL ON QUEUE«, t00=0x0005, t01=0x011c}
0x090e…0938              Head {h00=0x0026, h01=0x0050, text=» EXTRN BLOCKL LENGTH OF BLOCK POOL«, t00=0x0005, t01=0x0142}
0x0938…0962              Head {h00=0x0026, h01=0x0050, text=» EXTRN FREQUE FREE BLOCK IN QUEUE «, t00=0x0005, t01=0x016c}
0x0962…098c              Head {h00=0x0026, h01=0x0050, text=» EXTRN GBQUE START OF BUFFER QUEUE«, t00=0x0006, t01=0x0008}
0x098c…09aa              Head {h00=0x001a, h01=0x0050, text=» EXTRN STB STACK BASE «, t00=0x0006, t01=0x0032}
0x09aa…09d0              Head {h00=0x0022, h01=0x0050, text=» EXTRN DISQUE JOB QUEUE ANCHOR«, t00=0x0006, t01=0x0050}
0x09d0…09f8              Head {h00=0x0024, h01=0x0050, text=» EXTRN TIMQUE TIMER QUEUE ANCHOR«, t00=0x0006, t01=0x0076}
0x09f8…0a24              Head {h00=0x0028, h01=0x0050, text=» EXTRN PRUN TTAB FOR RUNNING PROGRAM«, t00=0x0006, t01=0x009e}
0x0a24…0a48              Head {h00=0x0020, h01=0x0050, text=» EXTRN SRUN RUNNING SEGMENT «, t00=0x0006, t01=0x00ca}
0x0a48…0a72              Head {h00=0x0026, h01=0x0050, text=» EXTRN LRUQUE POINTER TO LRU-LINK «, t00=0x0006, t01=0x00ee}
0x0a72…0aa0              Head {h00=0x002a, h01=0x0050, text=» EXTRN PFINIT INIT AFTER MASTER CLEAR «, t00=0x0006, t01=0x0118}
0x0aa0…0ac8              Head {h00=0x0024, h01=0x0050, text=» EXTRN CDTAB COMMON DEVICE TABLE«, t00=0x0006, t01=0x0146}
0x0ac8…0aee              Head {h00=0x0022, h01=0x0050, text=» EXTRN APL APPLICATION LOADER «, t00=0x0006, t01=0x016e}
0x0aee…0b10 (7, 0, 400)  Head {h00=0x001e, h01=0x0050, text=» EXTRN CVTMSZ MEMORY SIZE «, t00=0x0007, t01=0x0004}
0x0b10…0b3e              Head {h00=0x002a, h01=0x0050, text=» EXTRN CVTSBA BEGINNING OF BUFFER POOL«, t00=0x0007, t01=0x0026}
0x0b3e…0b66              Head {h00=0x0024, h01=0x0050, text=» EXTRN CVTEBA END OF BUFFER POOL«, t00=0x0007, t01=0x0054}
0x0b66…0b8e              Head {h00=0x0024, h01=0x0050, text=» EXTRN CVTSTB STACK BASE IN CVT «, t00=0x0007, t01=0x007c}
0x0b8e…0bbe              Head {h00=0x002c, h01=0x0050, text=» EXTRN CVTAPS APPLICATION START ADDRESS «, t00=0x0007, t01=0x00a4}
0x0bbe…0be8              Head {h00=0x0026, h01=0x0050, text=» EXTRN INIFLG INITIALIZATION FLAG «, t00=0x0007, t01=0x00d4}
0x0be8…0c06              Head {h00=0x001a, h01=0x0050, text=» EXTRN LOOP IDLE LOOP «, t00=0x0007, t01=0x00fe}
0x0c06…0c2e              Head {h00=0x0024, h01=0x0050, text=» EXTRN BLOCKS COMMON BLOCK POOL «, t00=0x0007, t01=0x011c}
0x0c2e…0c5a              Head {h00=0x0028, h01=0x0050, text=» EXTRN LDPEND LOAD PENDING INDICATOR«, t00=0x0007, t01=0x0144}
0x0c5a…0c84              Head {h00=0x0026, h01=0x0050, text=» EXTRN NUMPAR NUMBER OF PARTITIONS«, t00=0x0007, t01=0x0170}
0x0c84…0caa              Head {h00=0x0022, h01=0x0050, text=» EXTRN PARLEN PARTITION LENGTH«, t00=0x0008, t01=0x000a}
0x0caa…0cd4              Head {h00=0x0026, h01=0x0050, text=» EXTRN FREPAR FREE PARTITION LINK «, t00=0x0008, t01=0x0030}
0x0cd4…0d04              Head {h00=0x002c, h01=0x0050, text=» EXTRN CVTLSB START ADDRESS OF LSB-TABLE«, t00=0x0008, t01=0x005a}
0x0d04…0d26              Head {h00=0x001e, h01=0x0050, text=» EXTRN ATT:CH ATTACH CHAIN«, t00=0x0008, t01=0x008a}
0x0d26…0d60              Head {h00=0x0036, h01=0x0050, text=» EXTRN ITADI ACTIVATION ADDRESS INTERTASK REQUEST «, t00=0x0008, t01=0x00ac}
0x0d60…0d9a              Head {h00=0x0036, h01=0x0050, text=» EXTRN ITADO ACTIVATION ADDRESS INTERTASK REQUEST «, t00=0x0008, t01=0x00e6}
0x0d9a…0da4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0120}
0x0da4…0db2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x012a}
0x0db2…0dbc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0138}
0x0dbc…0dc6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0142}
0x0dc6…0df6              Head {h00=0x002c, h01=0x0050, text=»* RESET TTAB FIELDS AND TERMINAL DEVICES«, t00=0x0008, t01=0x014c}
0x0df6…0e00              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x017c}
0x0e00…0e0a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0186}
0x0e0a…0e1e              Head {h00=0x0010, h01=0x0050, text=»INIMON EQU *«, t00=0x0008, t01=0x0190}
0x0e1e…0e40              Head {h00=0x001e, h01=0x0050, text=» INH   INHIBIT INTERRUPTS «, t00=0x0009, t01=0x0014}
0x0e40…0e52              Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0009, t01=0x0036}
0x0e52…0e74              Head {h00=0x001e, h01=0x0050, text=» LD* A1,TCTAB TCTAB LENGTH«, t00=0x0009, t01=0x0048}
0x0e74…0e98              Head {h00=0x0020, h01=0x0050, text=» AD A1,TCTAB + BASE ADDRESS «, t00=0x0009, t01=0x006a}
0x0e98…0ea0              Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x008e}
0x0ea0…0eb8              Head {h00=0x0014, h01=0x0050, text=»INI100 SUK A1,2 «, t00=0x0009, t01=0x0096}
0x0eb8…0ecc              Head {h00=0x0010, h01=0x0050, text=» CW A1,TCTAB«, t00=0x0009, t01=0x00ae}
0x0ecc…0efc              Head {h00=0x002c, h01=0x0050, text=» RF(E) INI200 ALL TERMINALS INITIALIZED «, t00=0x0009, t01=0x00c2}
0x0efc…0f04              Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x00f2}
0x0f04…0f24              Head {h00=0x001c, h01=0x0050, text=» LDR* A5,A1 TTAB ADDRESS«, t00=0x0009, t01=0x00fa}
0x0f24…0f4a              Head {h00=0x0022, h01=0x0050, text=» SC A7,TTB:ST,A5 RESET STATUS «, t00=0x0009, t01=0x011a}
0x0f4a…0f76              Head {h00=0x0028, h01=0x0050, text=» CM TTB:PP,A5 RESET PENDING POINTER «, t00=0x0009, t01=0x0140}
0x0f76…0fa2              Head {h00=0x0028, h01=0x0050, text=» CM TTB:SA,A5 RESET DISPATCH ADDRESS«, t00=0x0009, t01=0x016c}
0x0fa2…0fce              Head {h00=0x0028, h01=0x0050, text=» CM TTB:SP,A5 RESET SEGMENT POINTER «, t00=0x000a, t01=0x0008}
0x0fce…1000              Head {h00=0x002e, h01=0x0050, text=» CM TTB:SS,A5 RESET SEGMENT START ADDRESS «, t00=0x000a, t01=0x0034}
0x1000…1028              Head {h00=0x0024, h01=0x0050, text=» LDKL A14,INI100 RETURN ADDRESS «, t00=0x000a, t01=0x0066}
0x1028…1040              Head {h00=0x0014, h01=0x0050, text=» LDKL A2,TTB:TD «, t00=0x000a, t01=0x008e}
0x1040…1072              Head {h00=0x002e, h01=0x0050, text=» ADR A2,A5 TTAB CONFIGURATION PART ADDRESS«, t00=0x000a, t01=0x00a6}
0x1072…109c              Head {h00=0x0026, h01=0x0050, text=» ABL RSTDEV RESET TERMINAL DEVICES«, t00=0x000a, t01=0x00d8}
0x109c…10aa              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0102}
0x10aa…10b4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0110}
0x10b4…10be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x011a}
0x10be…10dc              Head {h00=0x001a, h01=0x0050, text=»* RESET COMMON DEVICES«, t00=0x000a, t01=0x0124}
0x10dc…10e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0142}
0x10e6…10f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x014c}
0x10f0…1104              Head {h00=0x0010, h01=0x0050, text=»INI200 EQU *«, t00=0x000a, t01=0x0156}
0x1104…1130              Head {h00=0x0028, h01=0x0050, text=» LDKL A14,INI210 ACTION AFTER RESET «, t00=0x000a, t01=0x016a}
0x1130…115a              Head {h00=0x0026, h01=0x0050, text=» LD A2,CDTAB DEVICE TABLE ADDRESS «, t00=0x000b, t01=0x0008}
0x115a…116e              Head {h00=0x0010, h01=0x0050, text=» ABL RSTDEV «, t00=0x000b, t01=0x0032}
0x116e…117c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0046}
0x117c…1186              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0054}
0x1186…1190              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x005e}
0x1190…11be              Head {h00=0x002a, h01=0x0050, text=»* RESET DEVICES FOR A TERMINAL/COMMON «, t00=0x000b, t01=0x0068}
0x11be…11c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0096}
0x11c8…11e4              Head {h00=0x0018, h01=0x0050, text=»* ENTRY PARAMETERS: «, t00=0x000b, t01=0x00a0}
0x11e4…11ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00bc}
0x11ee…120a              Head {h00=0x0018, h01=0x0050, text=»* A2 = TABLE ADDRESS«, t00=0x000b, t01=0x00c6}
0x120a…1228              Head {h00=0x001a, h01=0x0050, text=»* A14= RETURN ADDRESS «, t00=0x000b, t01=0x00e2}
0x1228…1232              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0100}
0x1232…125a              Head {h00=0x0024, h01=0x0050, text=»* A1 AND A5 MAY NOT BE DESTRYED «, t00=0x000b, t01=0x010a}
0x125a…1264              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0132}
0x1264…126e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x013c}
0x126e…1282              Head {h00=0x0010, h01=0x0050, text=»RSTDEV EQU *«, t00=0x000b, t01=0x0146}
0x1282…12a6              Head {h00=0x0020, h01=0x0050, text=» LDR* A3,A2 GET TABLE LENGTH«, t00=0x000b, t01=0x015a}
0x12a6…12b8              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x000b, t01=0x017e}
0x12b8…12cc              Head {h00=0x0010, h01=0x0050, text=» LDKL A8,/80«, t00=0x000b, t01=0x0190}
0x12cc…12e0              Head {h00=0x0010, h01=0x0050, text=»RST100 EQU *«, t00=0x000c, t01=0x0014}
0x12e0…12f2              Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x000c, t01=0x0028}
0x12f2…1318              Head {h00=0x0022, h01=0x0050, text=» ABR(N) A14 ALL DEVICES RESET «, t00=0x000c, t01=0x003a}
0x1318…1340              Head {h00=0x0024, h01=0x0050, text=» ADK A4,4 ADJUST ADDRESS TO DWT «, t00=0x000c, t01=0x0060}
0x1340…1364              Head {h00=0x0020, h01=0x0050, text=» LDR* A6,A4 GET DWT ADDRESS «, t00=0x000c, t01=0x0088}
0x1364…138c              Head {h00=0x0024, h01=0x0050, text=» RB(Z) RST100 DWT NOT IN SYSTEM «, t00=0x000c, t01=0x00ac}
0x138c…13a2              Head {h00=0x0012, h01=0x0050, text=» LDKL A9,ITADI«, t00=0x000c, t01=0x00d4}
0x13a2…13ca              Head {h00=0x0024, h01=0x0050, text=» CW A9,DWTADR,A6 INTERTASK DWT? «, t00=0x000c, t01=0x00ea}
0x13ca…13e4              Head {h00=0x0016, h01=0x0050, text=» RF(E) RST120 YES!«, t00=0x000c, t01=0x0112}
0x13e4…13fa              Head {h00=0x0012, h01=0x0050, text=» LDKL A9,ITADO«, t00=0x000c, t01=0x012c}
0x13fa…1422              Head {h00=0x0024, h01=0x0050, text=» CW A9,DWTADR,A6 INTERTASK DWT? «, t00=0x000c, t01=0x0142}
0x1422…143c              Head {h00=0x0016, h01=0x0050, text=» RF(NE) RST130 NO!«, t00=0x000c, t01=0x016a}
0x143c…145e              Head {h00=0x001e, h01=0x0050, text=»RST120 CMR A6 RESET WORD 0«, t00=0x000c, t01=0x0184}
0x145e…1472              Head {h00=0x0010, h01=0x0050, text=»RST130 EQU *«, t00=0x000d, t01=0x0016}
0x1472…149a              Head {h00=0x0024, h01=0x0050, text=» SC A8,DWTST,A6 RESET DWT STATUS«, t00=0x000d, t01=0x002a}
0x149a…14ba              Head {h00=0x001c, h01=0x0050, text=» CM DWTECB,A6 RESET ECB «, t00=0x000d, t01=0x0052}
0x14ba…14e4              Head {h00=0x0026, h01=0x0050, text=» CM DWTTQ,A6 RESET TERMINAL QUEUE «, t00=0x000d, t01=0x0072}
0x14e4…1502              Head {h00=0x001a, h01=0x0050, text=» RB RST100 NEXT DEVICE«, t00=0x000d, t01=0x009c}
0x1502…1510              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00ba}
0x1510…151a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c8}
0x151a…1524              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d2}
0x1524…153e              Head {h00=0x0016, h01=0x0050, text=»* RESET BLOCK POOL«, t00=0x000d, t01=0x00dc}
0x153e…1548              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00f6}
0x1548…1552              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0100}
0x1552…1566              Head {h00=0x0010, h01=0x0050, text=»INI210 EQU *«, t00=0x000d, t01=0x010a}
0x1566…158a              Head {h00=0x0020, h01=0x0050, text=» LDKL A4,TIMQUE TIMER QUEUE «, t00=0x000d, t01=0x011e}
0x158a…159e              Head {h00=0x0010, h01=0x0050, text=»INI214 EQU *«, t00=0x000d, t01=0x0142}
0x159e…15cc              Head {h00=0x002a, h01=0x0050, text=» LDR* A4,A4 NEXT TIMER BLOCK IN QUEUE «, t00=0x000d, t01=0x0156}
0x15cc…15ea              Head {h00=0x001a, h01=0x0050, text=» RF(Z) INI218 NO MORE «, t00=0x000d, t01=0x0184}
0x15ea…1618              Head {h00=0x002a, h01=0x0050, text=» LD* A3,2,A4 GET TIMER POINTER ADDRESS«, t00=0x000e, t01=0x0012}
0x1618…162e              Head {h00=0x0012, h01=0x0050, text=» RB(Z) INI214 «, t00=0x000e, t01=0x0040}
0x162e…1652              Head {h00=0x0020, h01=0x0050, text=» CMR A3 RESET TIMER POINTER «, t00=0x000e, t01=0x0056}
0x1652…1664              Head {h00=0x000e, h01=0x0050, text=» RB INI214«, t00=0x000e, t01=0x007a}
0x1664…1678              Head {h00=0x0010, h01=0x0050, text=»INI218 EQU *«, t00=0x000e, t01=0x008c}
0x1678…169c              Head {h00=0x0020, h01=0x0050, text=» CM TIMQUE RESET TIMER QUEUE«, t00=0x000e, t01=0x00a0}
0x169c…16c6              Head {h00=0x0026, h01=0x0050, text=» LD A1,BLOCKL LENGTH OF BLOCK POOL«, t00=0x000e, t01=0x00c4}
0x16c6…16ee              Head {h00=0x0024, h01=0x0050, text=» LD A2,BLOCKS BLOCK POOL ADDRESS«, t00=0x000e, t01=0x00ee}
0x16ee…1722              Head {h00=0x0030, h01=0x0050, text=» ST A2,FREQUE INITIALIZE FREE QUEUE POINTER «, t00=0x000e, t01=0x0116}
0x1722…1736              Head {h00=0x0010, h01=0x0050, text=»INI220 EQU *«, t00=0x000e, t01=0x014a}
0x1736…1748              Head {h00=0x000e, h01=0x0050, text=» SUK A1,6 «, t00=0x000e, t01=0x015e}
0x1748…1766              Head {h00=0x001a, h01=0x0050, text=» RF(N) INI230 ALL DONE«, t00=0x000e, t01=0x0170}
0x1766…1778              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x000e, t01=0x018e}
0x1778…178a              Head {h00=0x000e, h01=0x0050, text=» ADK A2,6 «, t00=0x000f, t01=0x0010}
0x178a…17c0              Head {h00=0x0032, h01=0x0050, text=» STR A2,A3 STORE ADDRESS TO NEXT FREE POSITION«, t00=0x000f, t01=0x0022}
0x17c0…17d2              Head {h00=0x000e, h01=0x0050, text=» RB INI220«, t00=0x000f, t01=0x0058}
0x17d2…17fa              Head {h00=0x0024, h01=0x0050, text=»INI230 CMR A3 END OF FREE BLOCKS«, t00=0x000f, t01=0x006a}
0x17fa…1804              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0092}
0x1804…1824              Head {h00=0x001c, h01=0x0050, text=»*    RESET BUFFER QUEUE «, t00=0x000f, t01=0x009c}
0x1824…182e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00bc}
0x182e…1840              Head {h00=0x000e, h01=0x0050, text=» CM GBQUE «, t00=0x000f, t01=0x00c6}
0x1840…184e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00d8}
0x184e…1858              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00e6}
0x1858…1876              Head {h00=0x001a, h01=0x0050, text=»*  RESET ATTACH CHAIN «, t00=0x000f, t01=0x00f0}
0x1876…1880              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x010e}
0x1880…1892              Head {h00=0x000e, h01=0x0050, text=» CM ATT:CH«, t00=0x000f, t01=0x0118}
0x1892…189c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x012a}
0x189c…18c8              Head {h00=0x0028, h01=0x0050, text=»*   CLEAR PENDING LOAD OF LOAD TASK «, t00=0x000f, t01=0x0134}
0x18c8…18d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0160}
0x18d2…18e4              Head {h00=0x000e, h01=0x0050, text=» CM LDPEND«, t00=0x000f, t01=0x016a}
0x18e4…18ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x017c}
0x18ee…1926              Head {h00=0x0034, h01=0x0050, text=»*   CLEAR LRU-QUEUE. INDICATE SEGMENTS UNLOADED «, t00=0x000f, t01=0x0186}
0x1926…1930              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x002e}
0x1930…1952              Head {h00=0x001e, h01=0x0050, text=» CM LRUQUE CLEAR LRU-LINK «, t00=0x0010, t01=0x0038}
0x1952…197c              Head {h00=0x0026, h01=0x0050, text=» LD A4,CVTLSB GET ADDRESS TO LSBT «, t00=0x0010, t01=0x005a}
0x197c…19a2              Head {h00=0x0022, h01=0x0050, text=» LDR* A3,A4 GET LENGTH OF LSBT«, t00=0x0010, t01=0x0084}
0x19a2…19c0              Head {h00=0x001a, h01=0x0050, text=» ADR A3,A4 UPPER LIMIT«, t00=0x0010, t01=0x00aa}
0x19c0…19f0              Head {h00=0x002c, h01=0x0050, text=»INILRU ADK A4,12 POINTER OF SEGMENT END «, t00=0x0010, t01=0x00c8}
0x19f0…1a14              Head {h00=0x0020, h01=0x0050, text=» CWR A4,A3 END OF SEGMENTS? «, t00=0x0010, t01=0x00f8}
0x1a14…1a2a              Head {h00=0x0012, h01=0x0050, text=» RF(G) INIPAR «, t00=0x0010, t01=0x011c}
0x1a2a…1a5a              Head {h00=0x002c, h01=0x0050, text=» LDK A1,/80 INDICATE SEGMENT NOT LOADED «, t00=0x0010, t01=0x0132}
0x1a5a…1a70              Head {h00=0x0012, h01=0x0050, text=» SC A1,-10,A4 «, t00=0x0010, t01=0x0162}
0x1a70…1a92              Head {h00=0x001e, h01=0x0050, text=» CM -2,A4 CLEAR PRECEDENT «, t00=0x0010, t01=0x0178}
0x1a92…1ab2              Head {h00=0x001c, h01=0x0050, text=» CMR A4 CLEAR SUCCEDENT «, t00=0x0011, t01=0x000a}
0x1ab2…1ac4              Head {h00=0x000e, h01=0x0050, text=» RB INILRU«, t00=0x0011, t01=0x002a}
0x1ac4…1ace              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x003c}
0x1ace…1aee              Head {h00=0x001c, h01=0x0050, text=»*   LINK FREE PARTITIONS«, t00=0x0011, t01=0x0046}
0x1aee…1af8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0066}
0x1af8…1b0c              Head {h00=0x0010, h01=0x0050, text=»INIPAR EQU *«, t00=0x0011, t01=0x0070}
0x1b0c…1b3c              Head {h00=0x002c, h01=0x0050, text=» LDKL A4,NUMPAR GET NUMBER OF PARTITIONS«, t00=0x0011, t01=0x0084}
0x1b3c…1b52              Head {h00=0x0012, h01=0x0050, text=» LD A3,CVTSBA «, t00=0x0011, t01=0x00b4}
0x1b52…1b82              Head {h00=0x002c, h01=0x0050, text=» ST A3,FREPAR SET FREE PARTITION POINTER«, t00=0x0011, t01=0x00ca}
0x1b82…1baa              Head {h00=0x0024, h01=0x0050, text=»INI240 SUK A4,1 LAST PARTITION? «, t00=0x0011, t01=0x00fa}
0x1baa…1bc0              Head {h00=0x0012, h01=0x0050, text=» RF(Z) INI245 «, t00=0x0011, t01=0x0122}
0x1bc0…1bd2              Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0011, t01=0x0138}
0x1bd2…1bf2              Head {h00=0x001c, h01=0x0050, text=» AD A3,PARLEN ADD LENGTH«, t00=0x0011, t01=0x014a}
0x1bf2…1c10              Head {h00=0x001a, h01=0x0050, text=» STR A3,A2 STORE LINK «, t00=0x0011, t01=0x016a}
0x1c10…1c22              Head {h00=0x000e, h01=0x0050, text=» RB INI240«, t00=0x0011, t01=0x0188}
0x1c22…1c38              Head {h00=0x0012, h01=0x0050, text=»INI245 CMR A3 «, t00=0x0012, t01=0x000a}
0x1c38…1c46              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0020}
0x1c46…1c50              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x002e}
0x1c50…1c5a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0038}
0x1c5a…1c76              Head {h00=0x0018, h01=0x0050, text=»*   INITIALIZE STACK«, t00=0x0012, t01=0x0042}
0x1c76…1c80              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x005e}
0x1c80…1cac              Head {h00=0x0028, h01=0x0050, text=»INI250 LD A15,CVTSTB LOAD STACK BASE«, t00=0x0012, t01=0x0068}
0x1cac…1cc2              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LOOP «, t00=0x0012, t01=0x0094}
0x1cc2…1cd6              Head {h00=0x0010, h01=0x0050, text=» STR A1,A15 «, t00=0x0012, t01=0x00aa}
0x1cd6…1cec              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/FC00«, t00=0x0012, t01=0x00be}
0x1cec…1d00              Head {h00=0x0010, h01=0x0050, text=» STR A1,A15 «, t00=0x0012, t01=0x00d4}
0x1d00…1d14              Head {h00=0x0010, h01=0x0050, text=» SUKL A15,28«, t00=0x0012, t01=0x00e8}
0x1d14…1d26              Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0012, t01=0x00fc}
0x1d26…1d3a              Head {h00=0x0010, h01=0x0050, text=» STR A1,A15 «, t00=0x0012, t01=0x010e}
0x1d3a…1d5c              Head {h00=0x001e, h01=0x0050, text=» STR A1,A15 SRUN IDLE-LOOP«, t00=0x0012, t01=0x0122}
0x1d5c…1d6a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0144}
0x1d6a…1d74              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0152}
0x1d74…1d7e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015c}
0x1d7e…1da0              Head {h00=0x001e, h01=0x0050, text=»* FIND FIRST USER PROGRAM «, t00=0x0012, t01=0x0166}
0x1da0…1daa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0188}
0x1daa…1db4 (19, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0004}
0x1db4…1dbc              Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x000e}
0x1dbc…1dde              Head {h00=0x001e, h01=0x0050, text=» LD A1,TCTAB TCTAB ADDRESS«, t00=0x0013, t01=0x0016}
0x1dde…1dfe              Head {h00=0x001c, h01=0x0050, text=» LDR* A4,A1 TCTAB LENGTH«, t00=0x0013, t01=0x0038}
0x1dfe…1e16              Head {h00=0x0014, h01=0x0050, text=»INIM50 ADK A1,2 «, t00=0x0013, t01=0x0058}
0x1e16…1e28              Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0013, t01=0x0070}
0x1e28…1e3e              Head {h00=0x0012, h01=0x0050, text=» RF(NZ) INIM60«, t00=0x0013, t01=0x0082}
0x1e3e…1e5e              Head {h00=0x001c, h01=0x0050, text=» HLT  NO USER TASK FOUND«, t00=0x0013, t01=0x0098}
0x1e5e…1e66              Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x00b8}
0x1e66…1e8c              Head {h00=0x0022, h01=0x0050, text=»INIM60 LDR* A5,A1 TTAB ADDRESS«, t00=0x0013, t01=0x00c0}
0x1e8c…1eb8              Head {h00=0x0028, h01=0x0050, text=» LD A2,TTB:ID,A5 TASK IDENTIFICATION«, t00=0x0013, t01=0x00e6}
0x1eb8…1eda              Head {h00=0x001e, h01=0x0050, text=» RB(N) INIM50 MONITOR TASK«, t00=0x0013, t01=0x0112}
0x1eda…1f0a              Head {h00=0x002c, h01=0x0050, text=» ST A5,PRUN SET TTAB FOR RUNNING PROGRAM«, t00=0x0013, t01=0x0134}
0x1f0a…1f2a              Head {h00=0x001c, h01=0x0050, text=» CM SRUN SET ROOTSEGMENT«, t00=0x0013, t01=0x0164}
0x1f2a…1f3a              Head {h00=0x000c, h01=0x0050, text=» CMR A5 «, t00=0x0013, t01=0x0184}
0x1f3a…1f62 (20, 0, 398) Head {h00=0x0024, h01=0x0050, text=» LD A7,TTB:ST,A5 GET USER LEVEL «, t00=0x0014, t01=0x0004}
0x1f62…1f74              Head {h00=0x000e, h01=0x0050, text=» SRC A7,6 «, t00=0x0014, t01=0x002c}
0x1f74…1f98              Head {h00=0x0020, h01=0x0050, text=» CM DISQUE NO JOBS ON QUEUE «, t00=0x0014, t01=0x003e}
0x1f98…1fa6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0062}
0x1fa6…1fb0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0070}
0x1fb0…1fba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x007a}
0x1fba…1fd0              Head {h00=0x0012, h01=0x0050, text=»* START SYSTEM«, t00=0x0014, t01=0x0084}
0x1fd0…1fda              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x009a}
0x1fda…1fe4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00a4}
0x1fe4…1ff8              Head {h00=0x0010, h01=0x0050, text=»INI510 EQU *«, t00=0x0014, t01=0x00ae}
0x1ff8…200a              Head {h00=0x000e, h01=0x0050, text=» CM INIFLG«, t00=0x0014, t01=0x00c2}
0x200a…201c              Head {h00=0x000e, h01=0x0050, text=» IM INIFLG«, t00=0x0014, t01=0x00d4}
0x201c…2034              Head {h00=0x0014, h01=0x0050, text=» LDKL A13,WAITIS«, t00=0x0014, t01=0x00e6}
0x2034…205c              Head {h00=0x0024, h01=0x0050, text=» STR A13,A15 USER START ADDRESS «, t00=0x0014, t01=0x00fe}
0x205c…207a              Head {h00=0x001a, h01=0x0050, text=» STR A7,A15 AND LEVEL «, t00=0x0014, t01=0x0126}
0x207a…20a0              Head {h00=0x0022, h01=0x0050, text=» ABL PFINIT INITIALIZE DEVICES«, t00=0x0014, t01=0x0144}
0x20a0…20b4              Head {h00=0x0010, h01=0x0050, text=»WAITIS EQU *«, t00=0x0014, t01=0x016a}
0x20b4…20c8              Head {h00=0x0010, h01=0x0050, text=» LDKL A8,10 «, t00=0x0014, t01=0x017e}
0x20c8…20d4 (21, 2, 68)  Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0015, t01=0x0004}
0x20d4…20e4              Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x0015, t01=0x0010}
0x20e4…20f8              Head {h00=0x0010, h01=0x0050, text=» ABI CVTAPS «, t00=0x0015, t01=0x0020}
0x20f8…2104              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0015, t01=0x0034}
0x2104…2108              Head {h00=0x4004, h01=0x0000}
0x2108…210c              00 15 00 40                                                                                                                                                                                                                                       ┆   @┆
0x210c…2114 (22, 1, 8)   20 04 00 00 00 16 00 04                                                                                                                                                                                                                           ┆        ┆
0x2114…2164 (23, 0, 398) 45 53 53 20 4f 46 20 50 52 4f 47 52 41 4d 20 54 4f 20 42 45 20 44 49 53 50 41 54 43 48 45 44 20 00 0e 01 7e 00 06 00 50 2a 20 00 0f 00 28 00 10 00 50 44 49 53 31 30 30 5c 45 51 55 5c 2a 00 0f 00 32 00 30 00 50 5c 4c 44 52 2a 5c 41 31 2c 41   ┆ESS OF PROGRAM TO BE DISPATCHED    ~   P*    (   PDIS100 EQU *   2 0 P LDR* A1,A┆
0x2164…21b4              35 5c 52 45 4d 4f 56 45 20 4a 4f 42 20 46 52 4f 4d 20 44 49 53 50 41 54 43 48 45 52 20 51 55 45 55 45 00 0f 00 46 00 12 00 50 5c 53 54 5c 41 31 2c 44 49 53 51 55 45 20 00 0f 00 7a 00 2a 00 50 5c 4c 44 5c 41 31 2c 54 54 42 3a 53 41 2c 41 35   ┆5 REMOVE JOB FROM DISPATCHER QUEUE   F   P ST A1,DISQUE    z * P LD A1,TTB:SA,A5┆
0x21b4…2204              5c 4c 4f 41 44 20 44 49 53 50 41 54 43 48 20 41 44 44 52 45 53 53 00 0f 00 90 00 22 00 50 5c 4c 44 5c 41 32 2c 54 54 42 3a 53 54 2b 31 2c 41 35 5c 4c 4f 41 44 20 4c 45 56 45 4c 20 00 0f 00 be 00 0e 00 50 5c 53 4c 4c 5c 41 32 2c 31 30 00 0f   ┆ LOAD DISPATCH ADDRESS     " P LD A2,TTB:ST+1,A5 LOAD LEVEL        P SLL A2,10  ┆
0x2204…2254              00 e4 00 20 00 50 5c 43 57 4b 5c 41 32 2c 2f 43 30 30 30 5c 4d 4f 4e 49 54 4f 52 20 4a 4f 42 20 3f 20 00 0f 00 f6 00 16 00 50 5c 52 46 28 45 29 5c 44 49 53 32 30 30 5c 59 45 53 20 00 0f 01 1a 00 26 00 50 5c 53 54 52 5c 41 31 2c 41 31 35 5c   ┆     P CWK A2,/C000 MONITOR JOB ?        P RF(E) DIS200 YES      & P STR A1,A15 ┆
0x2254…22a2              53 54 4f 52 45 20 44 49 53 50 41 54 43 48 20 41 44 44 52 45 53 53 00 0f 01 34 00 22 00 50 5c 53 54 52 5c 41 32 2c 41 31 35 5c 41 4e 44 20 4c 45 56 45 4c 20 4f 4e 20 53 54 41 43 4b 00 0f 01 5e 00 0e 00 50 5c 4c 44 52 5c 41 33 2c 41 35         ┆STORE DISPATCH ADDRESS   4 " P STR A2,A15 AND LEVEL ON STACK   ^   P LDR A3,A5┆
0x22a2…22f2 (24, 0, 400) 00 0f 01 84 00 2e 00 50 5c 41 44 4b 5c 41 33 2c 31 34 5c 53 45 54 20 41 44 44 52 45 53 53 20 54 4f 20 41 31 20 49 4e 20 53 41 56 45 20 41 52 45 41 20 00 10 00 08 00 1a 00 50 5c 4c 44 4b 5c 41 31 2c 31 34 5c 53 45 54 20 43 4f 55 4e 54 45 52   ┆     . P ADK A3,14 SET ADDRESS TO A1 IN SAVE AREA        P LDK A1,14 SET COUNTER┆
0x22f2…2342              00 10 00 3a 00 2c 00 50 44 49 53 31 31 30 5c 4c 44 52 2a 5c 41 32 2c 41 33 5c 53 45 54 20 55 50 20 41 31 2d 41 31 34 20 4f 4e 20 53 54 41 43 4b 00 10 00 58 00 10 00 50 5c 53 54 52 5c 41 32 2c 41 31 35 20 00 10 00 88 00 0e 00 50 5c 41 44 4b   ┆   : , PDIS110 LDR* A2,A3 SET UP A1-A14 ON STACK   X   P STR A2,A15        P ADK┆
0x2342…2392              5c 41 33 2c 32 20 00 10 00 9c 00 0e 00 50 5c 53 55 4b 5c 41 31 2c 31 20 00 10 00 ae 00 12 00 50 5c 52 42 28 4e 5a 29 5c 44 49 53 31 31 30 00 10 00 c0 00 3a 00 50 44 49 53 31 32 30 5c 53 54 5c 41 35 2c 50 52 55 4e 5c 53 45 54 20 54 41 42 42   ┆ A3,2        P SUK A1,1        P RB(NZ) DIS110     : PDIS120 ST A5,PRUN SET TABB┆
0x2392…23e2              2d 41 44 44 52 45 53 20 46 4f 52 20 44 49 53 50 41 54 43 48 45 44 20 50 52 4f 47 2e 00 10 00 d6 00 2e 00 50 5c 5c 5c 53 54 41 52 54 20 51 55 45 55 45 44 20 50 52 4f 47 52 41 4d 20 28 41 31 2d 41 31 34 20 4f 4e 20 53 54 41 43 4b 29 20 00 10   ┆-ADDRES FOR DISPATCHED PROG.     . P   START QUEUED PROGRAM (A1-A14 ON STACK)   ┆
0x23e2…2432              01 14 00 0a 00 50 5c 45 4a 45 43 54 00 10 01 46 00 06 00 50 2a 20 00 10 01 54 00 06 00 50 2a 20 00 10 01 5e 00 12 00 50 2a 20 20 20 52 20 45 20 54 20 55 20 52 20 00 10 01 68 00 06 00 50 2a 20 00 10 01 7e 00 40 00 50 2a 20 20 20 20 45 4e 54   ┆     P EJECT   F   P*    T   P*    ^   P*   R E T U R    h   P*    ~ @ P*    ENT┆
0x2432…2482 (25, 0, 400) 52 59 50 4f 49 4e 54 53 20 52 45 54 55 31 34 2d 52 45 54 55 52 31 20 3a 52 45 4c 4f 41 44 20 52 45 47 49 53 54 45 52 53 20 46 52 4f 4d 20 53 54 41 43 4b 20 00 10 01 88 00 1a 00 50 2a 20 20 20 41 4e 44 20 52 45 54 55 52 4e 20 56 49 41 20 41   ┆RYPOINTS RETU14-RETUR1 :RELOAD REGISTERS FROM STACK        P*   AND RETURN VIA A┆
0x2482…24d2              31 35 00 11 00 3c 00 06 00 50 2a 20 00 11 00 5a 00 18 00 50 52 45 54 55 31 34 5c 4c 44 52 2a 5c 41 31 34 2c 41 31 35 20 00 11 00 64 00 18 00 50 52 45 54 55 31 33 5c 4c 44 52 2a 5c 41 31 33 2c 41 31 35 20 00 11 00 80 00 18 00 50 52 45 54 55   ┆15   <   P*    Z   PRETU14 LDR* A14,A15    d   PRETU13 LDR* A13,A15        PRETU┆
0x24d2…2522              31 32 5c 4c 44 52 2a 5c 41 31 32 2c 41 31 35 20 00 11 00 9c 00 18 00 50 52 45 54 55 31 31 5c 4c 44 52 2a 5c 41 31 31 2c 41 31 35 20 00 11 00 b8 00 18 00 50 52 45 54 55 31 30 5c 4c 44 52 2a 5c 41 31 30 2c 41 31 35 20 00 11 00 d4 00 16 00 50   ┆12 LDR* A12,A15        PRETU11 LDR* A11,A15        PRETU10 LDR* A10,A15        P┆
0x2522…2572              52 45 54 55 52 39 5c 4c 44 52 2a 5c 41 39 2c 41 31 35 00 11 00 f0 00 16 00 50 52 45 54 55 52 38 5c 4c 44 52 2a 5c 41 38 2c 41 31 35 00 11 01 0a 00 16 00 50 52 45 54 55 52 37 5c 4c 44 52 2a 5c 41 37 2c 41 31 35 00 11 01 24 00 16 00 50 52 45   ┆RETUR9 LDR* A9,A15       PRETUR8 LDR* A8,A15       PRETUR7 LDR* A7,A15   $   PRE┆
0x2572…25c2              54 55 52 36 5c 4c 44 52 2a 5c 41 36 2c 41 31 35 00 11 01 3e 00 16 00 50 52 45 54 55 52 35 5c 4c 44 52 2a 5c 41 35 2c 41 31 35 00 11 01 58 00 16 00 50 52 45 54 55 52 34 5c 4c 44 52 2a 5c 41 34 2c 41 31 35 00 11 01 72 00 16 00 50 52 45 54 55   ┆TUR6 LDR* A6,A15   >   PRETUR5 LDR* A5,A15   X   PRETUR4 LDR* A4,A15   r   PRETU┆
0x25c2…2612 (26, 0, 400) 52 33 5c 4c 44 52 2a 5c 41 33 2c 41 31 35 00 11 01 8c 00 16 00 50 52 45 54 55 52 32 5c 4c 44 52 2a 5c 41 32 2c 41 31 35 00 12 00 16 00 0e 00 50 5c 52 46 5c 52 45 54 55 52 31 00 12 00 30 00 16 00 50 52 54 4e 41 31 35 5c 53 54 52 5c 41 31 2c   ┆R3 LDR* A3,A15       PRETUR2 LDR* A2,A15       P RF RETUR1   0   PRTNA15 STR A1,┆
0x2612…2662              41 31 35 20 00 12 00 42 00 1c 00 50 52 45 54 55 52 31 5c 4c 44 4b 5c 41 31 2c 2f 34 30 5c 42 49 54 20 39 20 00 12 00 5c 00 2e 00 50 5c 4f 52 53 5c 41 31 2c 34 2c 41 31 35 5c 53 45 54 20 50 53 57 20 49 4e 20 41 31 35 20 53 54 41 43 4b 20 54   ┆A15    B   PRETUR1 LDK A1,/40 BIT 9      . P ORS A1,4,A15 SET PSW IN A15 STACK T┆
0x2662…26b2              4f 20 45 4e 42 20 00 12 00 7c 00 10 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 31 35 00 12 00 ae 00 0c 00 50 5c 52 54 4e 5c 41 31 35 00 12 00 c2 00 0a 00 50 5c 45 4a 45 43 54 00 12 00 d2 00 06 00 50 2a 20 00 12 00 e0 00 06 00 50 2a 20 00 12 00 ea   ┆O ENB    |   P LDR* A1,A15       P RTN A15       P EJECT       P*        P*     ┆
0x26b2…2702              00 20 00 50 2a 20 20 20 4d 4f 4e 49 54 4f 52 20 4a 4f 42 20 44 49 53 50 41 54 43 48 49 4e 47 20 00 12 00 f4 00 06 00 50 2a 20 00 12 01 18 00 10 00 50 44 49 53 32 30 30 5c 45 51 55 5c 2a 00 12 01 22 00 40 00 50 5c 4c 44 4b 4c 5c 41 33 2c 4c   ┆   P*   MONITOR JOB DISPATCHING        P*        PDIS200 EQU *   " @ P LDKL A3,L┆
0x2702…2752              4b 4d 44 49 53 5c 53 54 4f 52 45 20 41 44 44 52 45 53 53 20 54 4f 20 42 45 20 44 49 53 50 41 54 43 48 45 44 20 41 46 54 45 52 20 4d 4f 4e 49 54 4f 52 00 12 01 36 00 1c 00 50 5c 53 54 52 5c 41 33 2c 41 31 35 5c 4a 4f 42 20 4f 4e 20 53 54 41   ┆KMDIS STORE ADDRESS TO BE DISPATCHED AFTER MONITOR   6   P STR A3,A15 JOB ON STA┆
0x2752…27a2 (27, 0, 400) 43 4b 00 12 01 7a 00 28 00 50 5c 53 54 52 5c 41 32 2c 41 31 35 5c 53 54 4f 52 45 20 4c 45 56 45 4c 20 34 38 20 4f 4e 20 53 54 41 43 4b 20 00 13 00 0a 00 26 00 50 5c 53 55 4b 4c 5c 41 31 35 2c 31 36 5c 41 44 4a 55 53 54 20 53 54 41 43 4b 20   ┆CK   z ( P STR A2,A15 STORE LEVEL 48 ON STACK      & P SUKL A15,16 ADJUST STACK ┆
0x27a2…27f2              50 4f 49 4e 54 45 52 20 00 13 00 36 00 3a 00 50 5c 53 54 52 5c 41 31 2c 41 31 35 5c 53 45 54 20 4d 4f 4e 49 54 4f 52 20 4a 4f 42 20 44 49 53 50 41 54 43 48 20 41 44 44 52 45 53 53 20 4f 4e 20 53 54 41 43 4b 20 00 13 00 60 00 1a 00 50 5c 53   ┆POINTER    6 : P STR A1,A15 SET MONITOR JOB DISPATCH ADDRESS ON STACK    `   P S┆
0x27f2…2842              54 52 5c 41 32 2c 41 31 35 5c 53 45 54 20 4c 45 56 45 4c 20 00 13 00 9e 00 2c 00 50 5c 4c 44 5c 41 31 2c 54 54 42 3a 53 41 2b 32 2c 41 35 5c 4c 4f 41 44 20 50 41 52 41 4d 45 54 45 52 20 49 4e 20 41 31 20 00 13 00 bc 00 20 00 50 5c 53 54 52   ┆TR A2,A15 SET LEVEL      , P LD A1,TTB:SA+2,A5 LOAD PARAMETER IN A1        P STR┆
0x2842…2892              5c 41 31 2c 41 31 35 5c 41 4e 44 20 53 45 54 20 4f 4e 20 53 54 41 43 4b 00 13 00 ec 00 2c 00 50 5c 43 46 5c 41 31 35 2c 45 58 49 54 5c 44 4f 20 45 58 49 54 20 4f 4e 20 4d 4f 4e 49 54 4f 52 20 4a 4f 42 20 41 4e 44 20 00 13 01 10 00 1c 00 50   ┆ A1,A15 AND SET ON STACK     , P CF A15,EXIT DO EXIT ON MONITOR JOB AND        P┆
0x2892…28e2              5c 52 42 5c 52 45 54 55 52 31 5c 54 48 45 4e 20 53 54 41 52 54 20 49 54 00 13 01 40 00 0a 00 50 5c 45 4a 45 43 54 00 13 01 60 00 06 00 50 2a 20 00 13 01 6e 00 06 00 50 2a 20 00 13 01 78 00 14 00 50 2a 20 20 20 4c 20 4b 20 4d 20 44 20 49 20   ┆ RB RETUR1 THEN START IT   @   P EJECT   `   P*    n   P*    x   P*   L K M D I ┆
0x28e2…2932 (28, 0, 400) 53 20 00 13 01 82 00 06 00 50 2a 20 00 14 00 0a 00 36 00 50 2a 20 20 20 54 48 49 53 20 50 41 52 54 20 49 53 20 44 49 53 50 41 54 43 48 45 44 20 41 46 54 45 52 20 45 41 43 48 20 4c 4b 4d 2d 52 45 51 55 45 53 54 00 14 00 14 00 1e 00 50 2a 20   ┆S        P*      6 P*   THIS PART IS DISPATCHED AFTER EACH LKM-REQUEST       P* ┆
0x2932…2982              20 20 4e 4f 20 52 45 47 49 53 54 45 52 53 20 4f 4e 20 53 54 41 43 4b 20 00 14 00 4e 00 06 00 50 2a 20 00 14 00 70 00 06 00 50 2a 20 00 14 00 7a 00 10 00 50 4c 4b 4d 44 49 53 5c 45 51 55 5c 2a 00 14 00 84 00 08 00 50 5c 49 4e 48 00 14 00 98   ┆  NO REGISTERS ON STACK    N   P*    p   P*    z   PLKMDIS EQU *       P INH    ┆
0x2982…29d2              00 12 00 50 5c 4c 44 5c 41 35 2c 44 49 53 51 55 45 20 00 14 00 a4 00 22 00 50 5c 52 46 28 5a 29 5c 44 49 53 30 31 30 5c 4e 4f 20 51 55 45 55 45 2c 52 45 54 55 52 4e 20 00 14 00 ba 00 26 00 50 5c 4c 44 5c 41 31 2c 33 32 2c 41 31 35 5c 4c 4f   ┆   P LD A5,DISQUE      " P RF(Z) DIS010 NO QUEUE,RETURN      & P LD A1,32,A15 LO┆
0x29d2…2a22              41 44 20 50 53 57 20 46 52 4f 4d 20 53 54 41 43 4b 20 00 14 00 e0 00 18 00 50 5c 53 52 4c 5c 41 31 2c 31 30 5c 47 45 54 20 4c 45 56 45 4c 00 14 01 0a 00 34 00 50 5c 43 43 5c 41 31 2c 54 54 42 3a 53 54 2b 31 2c 41 35 5c 41 4e 44 20 43 4f 4d   ┆AD PSW FROM STACK        P SRL A1,10 GET LEVEL     4 P CC A1,TTB:ST+1,A5 AND COM┆
0x2a22…2a72              50 41 52 45 20 57 49 54 48 20 51 55 45 55 45 44 20 4c 45 56 45 4c 00 14 01 26 00 26 00 50 5c 52 42 28 47 29 5c 44 49 53 31 30 30 5c 44 49 53 50 41 54 43 48 20 46 52 4f 4d 20 51 55 45 55 45 20 00 14 01 5e 00 16 00 50 44 49 53 30 31 30 5c 4c   ┆PARE WITH QUEUED LEVEL   & & P RB(G) DIS100 DISPATCH FROM QUEUE    ^   PDIS010 L┆

Reduced view