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

⟦d314e72ee⟧ 

    Length: 14308 (0x37e4)
    Notes: pts_type(SC)
    Names: »DSKSUB.SC«

Derivation

└─⟦7b35573c9⟧ Bits:30009690 Philips computer tape "600402"
    └─⟦this⟧ »M:AF/DSKSUB.SC«

PTS(SC)

	IDENT DSKSUB 	REL 11.0 81-01-26 870105041100 

			=1, DM NVL BITS TAKEN AWAY 
			PRR 11.0  80-11-19  CHLO 
* 
****************************************
* 
*   PHILIPS TERMINAL SYSTEM  PTS       *
* 
*   DSKSUB = DISC SUBROUTINES          *
* 
* 
* 
* 
****************************************
* 
* 
*   DSKSUB HOLDS THE FOLLOWING DISC 
*   AND FILE MANAGEMENT SUBROUTINES:
* 
*   - VOLCLR = CLEAR VOLUME NAME(S) IN DISC DWT 
*   - VOLNAM = MOVE VOLUME NAME FROM DWT TO USER BUFFER 
*   - VOLADR = COMPUTE VOLUME NAME ADDRESS IN DWT 
*   - NVLCHK = CHECK IF NEW VOLUME LOADED FOR CALLING TASK
*   - VOLGET = MOVE VOLUME NAME FROM DISC BUFFER TO DWT 
*   - NEWVOL = SET NEW VOLUME LOADED BITS 
*   - INXDWT = COMPUTE DWT ADDRESS + DOUBLE INDEX 
*   - NVLTAB = TTAB ADDRESSES FOR TASKS TO HAVE NVL 
* 
* 
	EJECT		DSKSUB
* 
* 
*********** 
* ENTRIES * 
*********** 
* 
* 
	ENTRY	VOLCLR	CLEAR VOLUME NAMES IN DWT 
	ENTRY	VOLNAM	MOVE VOLUME NAME FROM DWT TO USER BUFFER
	ENTRY	VOLADR	COMPUTE VOLUME NAME ADDRESS IN DWT
	ENTRY	NVLCHK	CHECK FOR NEW VOLUME LOADED 
	ENTRY	VOLGET	MOVE VOLUME NAME FROM DISC BUFFER TO DWT
	ENTRY	NEWVOL	SET NEW VOLUME LOADED BITS
	ENTRY	INXDWT	COMPUTE DWT ADDRESS + DOUBLE INDEX
	ENTRY	NVLTAB	TTAB ADDRESSES FOR TASKS TO HAVE NVL
*				=1 
	ENTRY	NVLEND	END OF NVLTAB 
	ENTRY	NVLBIT	NVL BIT MASK
	EJECT		DSKSUB
* 
* 
************* 
* EXTERNALS * 
************* 
* 
* 
	EXTRN	IHRTN	RETURN WITHOUT ENABLING INTERRUPTS 
	EXTRN	TTABLD	LDTASK TTAB 
	EXTRN	TTABFM	FMTASK TTAB 
	EXTRN	SCTFWT	FWT CHAIN START ADDRESS 
	EXTRN	DWTORD	SAVE AREA INDEX AND ORDER 
	EXTRN	DWTOR	INDEX AND ORDER
	EXTRN	DWTTAB	TTAB ADDRESS
	EXTRN	DWTUEC	USER ECB ADDRESS
	EXTRN	DWTVOL	VOLUME NAME 
	EXTRN	DWTNVL	NEW VOLUME LOADED FLAG
	EXTRN	EWTVOL	VOLUME FILE CODE
	EXTRN	FWTEW1	POINTER TO 2ND EWT BLOCK IN FWT 
	EXTRN	FWTPAR	ACCESS PARAMETERS 
	EXTRN	TTB:MT	MMU TABLE 
	EXTRN	ECBBA	ECB BUFFER ADDRESS 
	EXTRN	ECBRL	ECB REQUESTED LENGTH 
	EXTRN	ECBEL	ECB EFFECTIVE LENGTH 
	EJECT		DSKSUB
* 
* 
*************************************** 
* 
*	CONDITIONAL ASSEMBLY
* 
*************************************** 
* 
* 
*	A PROGRAM VERSION USING TOSS MMU PAGING 
*	IS OBTAINED BY SETTING MMUPAG EQU 1.
* 
MMUPAG	EQU	1
* 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	0
* 
* 
*	A PROGRAM VERSION USING TOSS DISC PAGING
*	IS OBTAINED BY SETTING DSKPAG EQU 1.
* 
DSKPAG	EQU	0
* 
* 
*	A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK 
*	BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. 
* 
SWPBLK	EQU	0
* 
	EJECT			DSKSUB 
* 
* 
*	A PROGRAM VERSION SUPPORTING FILE MANAGEMENT
*	IS OBTAINED BY SETTING FILMAN EQU 1.
* 
X:A	EQU	0 
FILMAN	EQU	X:A
* 
* 
*	A PROGRAM VERSION SUPPORTING DATA MANAGEMENT
*	IS OBTAINED BY SETTING DATMAN EQU 1.
* 
X:B	EQU	0 
DATMAN	EQU	X:B
* 
	EJECT			DSKSUB 
* 
* 
**********
* VOLCLR *
**********
* 
* 
*   VOLCLR WILL CLEAR THE REQUESTED VOLUME NAME(S)
*   IN THE REQUESTED DISC DWT.
* 
*   INPUT:  A1 = NUMBER OF BYTES TO CLEAR 
*           A6 = DWT ADDRESS
* 
*   OUTPUT: A1, A2 ARE DESTROYED
* 
VOLCLR	EQU	*
	LDR	A2,A1
	CF	A15,VOLADR	VOLUME NAME ADDRESS
* 
VCLR10	EQU	*
	CMR	A1	CLEAR ONE WORD
	ADK	A1,2	INCREMENT POINTER 
	SUK	A2,2	DECREMENT LOOP COUNTER
	RB(P)	VCLR10 
	RF	RETURN
* 
	EJECT		DSKSUB
* 
* 
**********
* VOLNAM *
**********
* 
* 
*   VOLNAM WILL MOVE THE VOLUME NAME OF SELECTED DISC 
*   TO THE USER BUFFER IF REQUESTED LENGTH = 6. 
* 
*   INPUT:  A6 = DWT ADDRESS
*           A8 = ECB ADDRESS
* 
*   OUTPUT: A1-A4 ARE DESTROYED 
* 
VOLNAM	EQU	*
	LD	A1,ECBRL,A8	REQUESTED LENGTH
	SUK	A1,6 
	RF(NE)	RETURN	NO VOLUME NAME WANTED
	CF	A15,VOLADR	GET DWT VOLUME ADDRESS 
	ST	A4,ECBEL,A8	SET EFFECTIVE LENGTH
* 
	IFT	MMUPAG=0 
	LD	A2,ECBBA,A8	USER BUFFER ADDRESS 
* 
	EJECT			DSKSUB 
* 
* 
VNAM10	EQU	*
	LDR*	A3,A1	MOVE ONE WORD 
	STR	A3,A2
	ADK	A1,2	INCREMENT BUFFER POINTERS 
	ADK	A2,2 
	SUK	A4,2	DECREMENT LOOP COUNTER
	RB(P)	VNAM10 
	RF	RETURN
	XIF
* 
	IFT	MMUPAG=1 
	LD	A2,DWTTAB,A6	TTAB ADDRESS OF CALLING TASK 
	TS	-30,A15	SAVE RUNNING MMU
	TL	TTB:MT,A2	LOAD USER MMU 
	LD	A2,DWTUEC,A6	USER ECB ADDRESS 
	EL	A2,ECBBA,A2	USER BUFFER ADDRESS 
	MVSU	A4	MOVE VOLUME NAME 
	TL	-30,A15	RESTORE RUNNING MMU 
	RTN	A15
	XIF
* 
	EJECT		DSKSUB
* 
* 
**********
* VOLADR *
**********
* 
* 
*   INPUT:  A6 = DWT ADDRESS
* 
*   OUTPUT: A1 = VOLUME NAME ADDRESS
*	   A4 = 6 
* 
VOLADR	EQU	*
	LC	A4,DWTOR,A6	INDEX 
* 
VOLA05	EQU	*
	LDKL	A1,DWTVOL-6 
	ADR	A1,A6
	ANK	A4,/3
* 
VOLA10	EQU	*
	ADK	A1,6	UPDATE ADDRESS
	SUK	A4,1 
	RB(NN)	VOLA10
	LDK	A4,6 
	RF	RETURN
* 
	EJECT			DSKSUB 
* 
* 
**********
* NVLCHK *
**********
* 
* 
*   NVLCHK IS CALLED AT ACTIVATION FROM DISC DRIVER 
*   TO CHECK IF THE RETURN CODE "NEW VOLUME LOADED" 
*   IS TO BE RETURNED TO THE CALLING TASK (RC=/20). 
* 
*   INPUT:  A6 = DWT ADDRESS
* 
*   OUTPUT: A1 = RETURN CODE (/20 IF NVL, ELSE 0) 
*           A2 = DWT ADDRESS + DOUBLE INDEX 
*           A3, A4 ARE DESTROYED
* 
NVLCHK	EQU	*
	LD	A2,DWTOR,A6	INDEX AND ORDER 
	ST	A2,DWTORD,A6	SAVE FOR RECOVERY PURPOSES 
	SRL	A2,7	DOUBLE INDEX
	ADR	A2,A6
	LD	A1,DWTNVL,A2	NVL FLAG 
	ANKL	A1,/7FFF	RESET BIT 0 (FIRST REQUEST BIT)
	ST	A1,DWTNVL,A2
	ANKL	A1,/3FFF	NOT 1ST REQ. OR FIX DISK 
	RF(Z)	RETURN	RETURN IF NO NVL
	LD	A4,DWTTAB,A6	TTAB ADDRESS 
	LDK	A1,1 
	LDKL	A3,NVLTAB	NVLTAB ADDRESS
* 
	EJECT			DSKSUB 
* 
* 
NVL:10	EQU	*
	CWK	A3,NVLEND	CHECK IF END OF TABLE REACHED
	RF(E)	NVL:20	END OF NVLTAB 
	CWR*	A4,A3	CHECK TTAB ADDRESS
	RF(E)	NVL:20	NVL FOR THIS TASK 
	SLL	A1,1	SHIFT NVL BIT MASK
	ADK	A3,2	POINT TO NEXT TTAB IN NVLTAB
	RB	NVL:10
* 
NVL:20	EQU	*
	AN	A1,DWTNVL,A2	CHECK IF NVL FOR THIS TASK 
	RF(Z)	RETURN	NO NVL FOR THIS TASK
	XRS	A1,DWTNVL,A2	RESET NVL BIT 
	LDK	A1,/20	RETURN CODE 
* 
	EJECT			DSKSUB 
* 
* 
RETURN	EQU	*	COMMON RETURN LABEL
	IFT	CPU852=1 
	ABL	IHRTN	RETURN WITHOUT ENABLING INTERRUPTS 
	XIF
* 
	IFT	CPU852=0 
	RTN	A15
	XIF
* 
	EJECT			DSKSUB 
* 
* 
**********
* VOLGET *
**********
* 
* 
*   VOLGET WILL READ VOLUME NAME FROM DISC BUFFER 
*   TO DISC DWT AND CHECK IF THERE IS A NEW VOLUME MOUNTED. 
* 
*   INPUT:  A2 = DISC BUFFER ADDRESS
*	   A3 = FILE CODE (FOR DRIVE WITH INDEX = 0)
*	        BIT 0 SET MEANS TEST STATUS ORDER 
*           A6 = DWT ADDRESS
* 
*   OUTPUT: A4 = DWT ADDRESS + DOUBLE INDEX 
*           A1-A3, A7-A8 ARE DESTROYED
* 
* 
VOLGET	EQU	*
	CF	A15,VOLADR	DWT VOLUME NAME ADDRESS
	LDK	A7,0	RESET NVL FLAG
* 
VGET10	EQU	*
	LDR*	A8,A2	ONE WORD OF NEW VOLUME NAME 
	CWR*	A8,A1	COMPARE WITH OLD VOLUME NAME
	RF(E)	VGET20 
	LDK	A7,1	SET NVL FLAG
	STR	A8,A1	STORE NEW VOLUME NAME
* 
	EJECT			DSKSUB 
* 
* 
VGET20	EQU	*
	ADK	A1,2	INCREMENT BUFFER POINTERS 
	ADK	A2,2 
	SUK	A4,2	DECREMENT LOOP COUNTER
	RB(P)	VGET10 
	CF	A15,INXDWT
	ADK	A7,0	CHECK NVL FLAG
	RB(Z)	RETURN	RETURN IF NO NVL
	SLA	A3,1	CHECK IF TEST STATUS OR RECOVERY
	RB(O)	RETURN	TEST STATUS, NO NVL 
	SRA	A3,1	FILE CODE WITHOUT SIGN BIT
	LD	A7,DWTNVL,A4	NVL FLAGS
	RB(N)	RETURN	NO REQUESTS SO FAR ON THIS DISC 
	SLL	A7,1 
	RB(N)	RETURN	FIXED DISC, NO NVL
* 
	EJECT			DSKSUB 
* 
* 
**********
* NEWVOL *
**********
* 
* 
*   NEWVOL IS ENTERED FROM THE ROUTINE VOLGET WHEN IT HAS 
*   DETECTED THAT A NEW VOLUME HAS BEEN MOUNTED.
*   THE NEW VOLUME LOADED FLAG IS THEN SET BY THIS
*   ROUTINE FOR THE CONCERNED FILE CODE AND FILES 
*   OPENED ON THAT VOLUME. TASKS REPRESENTED IN THE 
*   TABLE NVLTAB WILL GET RETURN CODE /20 AT THE
*   NEXT REQUEST ON THAT FILE CODE. 
* 
*   INPUT:  A3 = FILE CODE (DISC ONE FOR DRIVER)
*	   A4 = DWT ADDRESS + DOUBLE INDEX
*           A6 = DWT ADDRESS
* 
*   OUTPUT: A3 = ACTUAL FILE CODE 
*	   A1-A2 ARE DESTROYED
* 
NEWVOL	EQU	*
	LD	A2,NVLBIT	NVL BIT MASK
	ST	A2,DWTNVL,A4	INDICATE NEW VOLUME LOADED 
	LC	A2,DWTOR,A6	INDEX 
	ANK	A2,/3
	ADR	A3,A2	ACTUAL FILE CODE 
* 
	EJECT			DSKSUB 
* 
* 
	IFT	FILMAN=0 
	RB	RETURN
	XIF
* 
	IFT	FILMAN=1 
	LDKL	A1,SCTFWT	ADDRESS TO FWT POINTER
* 
*	SET NEW VOLUME LOADED FOR ALL FILES ON CONCERNED VOLUME 
* 
NEW:10	EQU	*
	LDR*	A2,A1	NEXT FWT ADDRESS
	RB(Z)	RETURN	NO MORE FWT:S 
	LDR	A1,A2	SAVE FWT ADDRESS 
	ADKL	A2,FWTEW1	ADDRESS TO FIRST EWT STRUCTURE
* 
NEW:20	EQU	*
	LDR*	A2,A2	ADDRESS TO 2ND EWT BLOCK
	CC	A3,EWTVOL,A2	CHECK FILE CODE
	RF(NE)	NEW:30
	LDKL	A2,/8000	NVL BIT
	ORS	A2,FWTPAR,A1	INDICATE NEW VOLUME LOADED
	RB	NEW:10
* 
NEW:30	EQU	*
	LDR*	A2,A2	ADDRESS TO NEXT EWT STRUCTURE 
	RB(Z)	NEW:10	END OF THIS EWT STRUCTURE 
	RB	NEW:20	CONTINUE WITH NEXT EXTENT
	XIF
* 
	EJECT			DSKSUB 
* 
* 
**********
* INXDWT *
**********
* 
* 
*   INXDWT WILL COMPUTE THE DWT ADDRESS ADDED TO THE DOUBLED INDEX. 
* 
*   INPUT:  A6 = DWT ADDRESS
* 
*   OUTPUT: A4 = DWT ADDRESS + DOUBLE INDEX 
*           NO REGISTERS ARE DESTROYED
* 
INXDWT	EQU	*
	LC	A4,DWTOR,A6	INDEX 
	ANK	A4,/3
	ADR	A4,A4	DOUBLE INDEX 
	ADR	A4,A6
	RB	RETURN
* 
	EJECT			DSKSUB 
* 
* 
**********
* NVLTAB *
**********
* 
* 
*   NVLTAB HOLDS THE TTAB ADDRESSES OF THE TASKS
*   THAT WILL RECEIVE NEW VOLUME LOADED WHEN A NEW
*   VOLUME HAS BEEN MOUNTED.
* 
*			           BIT NO IN DWTNVL 
NVLTAB	EQU	*
	IFT	FILMAN=1 
	DATA	TTABFM	FMTASK TTAB      15
* 
	IFF	DSKPAG+SWPBLK=0
	DATA	TTABLD	LDTASK TTAB      14
	XIF
*				=1 
	IFT	FILMAN=1 
NVLEND	EQU	*
* 
NVLBIT	DATA	0	NVL BIT MASK
	XIF
* 
	EJECT			DSKSUB 
* 
* 
	IFT	FILMAN=0 
	IFF	DSKPAG+SWPBLK=0
	DATA	TTABLD	LDTASK TTAB
* 
NVLEND	EQU	*
* 
NVLBIT	DATA	3	NVL BIT MASK
	XIF
* 
	IFT	FILMAN=0 
	IFT	DSKPAG+SWPBLK=0
* 
NVLEND	EQU	*
* 
NVLBIT	DATA	1	NVL BIT MASK
	XIF
* 
* 
* 
	END

HexDump

0x0000…0036 (0, 0, 398)  Head {h00=0x0032, h01=0x0050, text=» IDENT DSKSUB  REL 11.0 81-01-26 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0064              Head {h00=0x0022, h01=0x0050, text=»   =1, DM NVL BITS TAKEN AWAY «, t00=0x0000, t01=0x0042}
0x0064…0088              Head {h00=0x0020, h01=0x0050, text=»   PRR 11.0  80-11-19  CHLO «, t00=0x0000, t01=0x0068}
0x0088…0092              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008c}
0x0092…00c2              Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0000, t01=0x0096}
0x00c2…00cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c6}
0x00cc…00fc              Head {h00=0x002c, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM  PTS       *«, t00=0x0000, t01=0x00d0}
0x00fc…0106              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0100}
0x0106…0136              Head {h00=0x002c, h01=0x0050, text=»*   DSKSUB = DISC SUBROUTINES          *«, t00=0x0000, t01=0x010a}
0x0136…0140              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x013a}
0x0140…014a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0144}
0x014a…0154              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014e}
0x0154…015e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0158}
0x015e…018e              Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0000, t01=0x0162}
0x018e…0198 (1, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0004}
0x0198…01a2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000e}
0x01a2…01ce              Head {h00=0x0028, h01=0x0050, text=»*   DSKSUB HOLDS THE FOLLOWING DISC «, t00=0x0001, t01=0x0018}
0x01ce…01fa              Head {h00=0x0028, h01=0x0050, text=»*   AND FILE MANAGEMENT SUBROUTINES:«, t00=0x0001, t01=0x0044}
0x01fa…0204              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0070}
0x0204…023c              Head {h00=0x0034, h01=0x0050, text=»*   - VOLCLR = CLEAR VOLUME NAME(S) IN DISC DWT «, t00=0x0001, t01=0x007a}
0x023c…027c              Head {h00=0x003c, h01=0x0050, text=»*   - VOLNAM = MOVE VOLUME NAME FROM DWT TO USER BUFFER «, t00=0x0001, t01=0x00b2}
0x027c…02b6              Head {h00=0x0036, h01=0x0050, text=»*   - VOLADR = COMPUTE VOLUME NAME ADDRESS IN DWT «, t00=0x0001, t01=0x00f2}
0x02b6…02f8              Head {h00=0x003e, h01=0x0050, text=»*   - NVLCHK = CHECK IF NEW VOLUME LOADED FOR CALLING TASK«, t00=0x0001, t01=0x012c}
0x02f8…0338              Head {h00=0x003c, h01=0x0050, text=»*   - VOLGET = MOVE VOLUME NAME FROM DISC BUFFER TO DWT «, t00=0x0001, t01=0x016e}
0x0338…036a              Head {h00=0x002e, h01=0x0050, text=»*   - NEWVOL = SET NEW VOLUME LOADED BITS «, t00=0x0002, t01=0x001e}
0x036a…03a4              Head {h00=0x0036, h01=0x0050, text=»*   - INXDWT = COMPUTE DWT ADDRESS + DOUBLE INDEX «, t00=0x0002, t01=0x0050}
0x03a4…03e0              Head {h00=0x0038, h01=0x0050, text=»*   - NVLTAB = TTAB ADDRESSES FOR TASKS TO HAVE NVL «, t00=0x0002, t01=0x008a}
0x03e0…03ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c6}
0x03ea…03f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d0}
0x03f4…040a              Head {h00=0x0012, h01=0x0050, text=» EJECT  DSKSUB«, t00=0x0002, t01=0x00da}
0x040a…0414              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f0}
0x0414…041e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fa}
0x041e…0432              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x0104}
0x0432…0446              Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x0118}
0x0446…045a              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x012c}
0x045a…0464              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0140}
0x0464…046e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x014a}
0x046e…049e              Head {h00=0x002c, h01=0x0050, text=» ENTRY VOLCLR CLEAR VOLUME NAMES IN DWT «, t00=0x0002, t01=0x0154}
0x049e…04dc              Head {h00=0x003a, h01=0x0050, text=» ENTRY VOLNAM MOVE VOLUME NAME FROM DWT TO USER BUFFER«, t00=0x0002, t01=0x0184}
0x04dc…0514              Head {h00=0x0034, h01=0x0050, text=» ENTRY VOLADR COMPUTE VOLUME NAME ADDRESS IN DWT«, t00=0x0003, t01=0x0032}
0x0514…0546              Head {h00=0x002e, h01=0x0050, text=» ENTRY NVLCHK CHECK FOR NEW VOLUME LOADED «, t00=0x0003, t01=0x006a}
0x0546…0584              Head {h00=0x003a, h01=0x0050, text=» ENTRY VOLGET MOVE VOLUME NAME FROM DISC BUFFER TO DWT«, t00=0x0003, t01=0x009c}
0x0584…05b4              Head {h00=0x002c, h01=0x0050, text=» ENTRY NEWVOL SET NEW VOLUME LOADED BITS«, t00=0x0003, t01=0x00da}
0x05b4…05ec              Head {h00=0x0034, h01=0x0050, text=» ENTRY INXDWT COMPUTE DWT ADDRESS + DOUBLE INDEX«, t00=0x0003, t01=0x010a}
0x05ec…0626              Head {h00=0x0036, h01=0x0050, text=» ENTRY NVLTAB TTAB ADDRESSES FOR TASKS TO HAVE NVL«, t00=0x0003, t01=0x0142}
0x0626…0636              Head {h00=0x000c, h01=0x0050, text=»*    =1 «, t00=0x0003, t01=0x017c}
0x0636…065a              Head {h00=0x0020, h01=0x0050, text=» ENTRY NVLEND END OF NVLTAB «, t00=0x0003, t01=0x018c}
0x065a…067c              Head {h00=0x001e, h01=0x0050, text=» ENTRY NVLBIT NVL BIT MASK«, t00=0x0004, t01=0x0020}
0x067c…0692              Head {h00=0x0012, h01=0x0050, text=» EJECT  DSKSUB«, t00=0x0004, t01=0x0042}
0x0692…069c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0058}
0x069c…06a6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0062}
0x06a6…06bc              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x006c}
0x06bc…06d2              Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0004, t01=0x0082}
0x06d2…06e8              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x0098}
0x06e8…06f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ae}
0x06f2…06fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00b8}
0x06fc…0734              Head {h00=0x0034, h01=0x0050, text=» EXTRN IHRTN RETURN WITHOUT ENABLING INTERRUPTS «, t00=0x0004, t01=0x00c2}
0x0734…0756              Head {h00=0x001e, h01=0x0050, text=» EXTRN TTABLD LDTASK TTAB «, t00=0x0004, t01=0x00fa}
0x0756…0778              Head {h00=0x001e, h01=0x0050, text=» EXTRN TTABFM FMTASK TTAB «, t00=0x0004, t01=0x011c}
0x0778…07a6              Head {h00=0x002a, h01=0x0050, text=» EXTRN SCTFWT FWT CHAIN START ADDRESS «, t00=0x0004, t01=0x013e}
0x07a6…07d6              Head {h00=0x002c, h01=0x0050, text=» EXTRN DWTORD SAVE AREA INDEX AND ORDER «, t00=0x0004, t01=0x016c}
0x07d6…07fa              Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTOR INDEX AND ORDER«, t00=0x0005, t01=0x000c}
0x07fa…081c              Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTTAB TTAB ADDRESS«, t00=0x0005, t01=0x0030}
0x081c…0842              Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTUEC USER ECB ADDRESS«, t00=0x0005, t01=0x0052}
0x0842…0864              Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTVOL VOLUME NAME «, t00=0x0005, t01=0x0078}
0x0864…0890              Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTNVL NEW VOLUME LOADED FLAG«, t00=0x0005, t01=0x009a}
0x0890…08b6              Head {h00=0x0022, h01=0x0050, text=» EXTRN EWTVOL VOLUME FILE CODE«, t00=0x0005, t01=0x00c6}
0x08b6…08ec              Head {h00=0x0032, h01=0x0050, text=» EXTRN FWTEW1 POINTER TO 2ND EWT BLOCK IN FWT «, t00=0x0005, t01=0x00ec}
0x08ec…0914              Head {h00=0x0024, h01=0x0050, text=» EXTRN FWTPAR ACCESS PARAMETERS «, t00=0x0005, t01=0x0122}
0x0914…0934              Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:MT MMU TABLE «, t00=0x0005, t01=0x014a}
0x0934…095c              Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0005, t01=0x016a}
0x095c…0986 (6, 0, 398)  Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0006, t01=0x0004}
0x0986…09b0              Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0006, t01=0x002e}
0x09b0…09c6              Head {h00=0x0012, h01=0x0050, text=» EJECT  DSKSUB«, t00=0x0006, t01=0x0058}
0x09c6…09d0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x006e}
0x09d0…09da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0078}
0x09da…0a0a              Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0006, t01=0x0082}
0x0a0a…0a14              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00b2}
0x0a14…0a32              Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0006, t01=0x00bc}
0x0a32…0a3c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00da}
0x0a3c…0a6c              Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0006, t01=0x00e4}
0x0a6c…0a76              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0114}
0x0a76…0a80              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x011e}
0x0a80…0ab2              Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0006, t01=0x0128}
0x0ab2…0ae0              Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0006, t01=0x015a}
0x0ae0…0aea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0188}
0x0aea…0afe (7, 0, 398)  Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0007, t01=0x0004}
0x0afe…0b08              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0018}
0x0b08…0b12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0022}
0x0b12…0b4c              Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0007, t01=0x002c}
0x0b4c…0b7e              Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0007, t01=0x0066}
0x0b7e…0b88              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0098}
0x0b88…0b9c              Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0007, t01=0x00a2}
0x0b9c…0ba6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b6}
0x0ba6…0bb0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c0}
0x0bb0…0be2              Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0007, t01=0x00ca}
0x0be2…0c10              Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0007, t01=0x00fc}
0x0c10…0c1a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012a}
0x0c1a…0c2e              Head {h00=0x0010, h01=0x0050, text=»DSKPAG EQU 0«, t00=0x0007, t01=0x0134}
0x0c2e…0c38              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0148}
0x0c38…0c42              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0152}
0x0c42…0c7c              Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK «, t00=0x0007, t01=0x015c}
0x0c7c…0cb2              Head {h00=0x0032, h01=0x0050, text=»* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. «, t00=0x0008, t01=0x0008}
0x0cb2…0cbc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x003e}
0x0cbc…0cd0              Head {h00=0x0010, h01=0x0050, text=»SWPBLK EQU 0«, t00=0x0008, t01=0x0048}
0x0cd0…0cda              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x005c}
0x0cda…0cf2              Head {h00=0x0014, h01=0x0050, text=» EJECT   DSKSUB «, t00=0x0008, t01=0x0066}
0x0cf2…0cfc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x007e}
0x0cfc…0d06              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0088}
0x0d06…0d3c              Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION SUPPORTING FILE MANAGEMENT«, t00=0x0008, t01=0x0092}
0x0d3c…0d6a              Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING FILMAN EQU 1.«, t00=0x0008, t01=0x00c8}
0x0d6a…0d74              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f6}
0x0d74…0d86              Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0008, t01=0x0100}
0x0d86…0d9c              Head {h00=0x0012, h01=0x0050, text=»FILMAN EQU X:A«, t00=0x0008, t01=0x0112}
0x0d9c…0da6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0128}
0x0da6…0db0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0132}
0x0db0…0de6              Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION SUPPORTING DATA MANAGEMENT«, t00=0x0008, t01=0x013c}
0x0de6…0e14              Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING DATMAN EQU 1.«, t00=0x0008, t01=0x0172}
0x0e14…0e1e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0010}
0x0e1e…0e30              Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0009, t01=0x001a}
0x0e30…0e46              Head {h00=0x0012, h01=0x0050, text=»DATMAN EQU X:B«, t00=0x0009, t01=0x002c}
0x0e46…0e50              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0042}
0x0e50…0e68              Head {h00=0x0014, h01=0x0050, text=» EJECT   DSKSUB «, t00=0x0009, t01=0x004c}
0x0e68…0e72              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0064}
0x0e72…0e7c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x006e}
0x0e7c…0e8e              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0009, t01=0x0078}
0x0e8e…0ea0              Head {h00=0x000e, h01=0x0050, text=»* VOLCLR *«, t00=0x0009, t01=0x008a}
0x0ea0…0eb2              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0009, t01=0x009c}
0x0eb2…0ebc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ae}
0x0ebc…0ec6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b8}
0x0ec6…0f00              Head {h00=0x0036, h01=0x0050, text=»*   VOLCLR WILL CLEAR THE REQUESTED VOLUME NAME(S)«, t00=0x0009, t01=0x00c2}
0x0f00…0f26              Head {h00=0x0022, h01=0x0050, text=»*   IN THE REQUESTED DISC DWT.«, t00=0x0009, t01=0x00fc}
0x0f26…0f30              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0122}
0x0f30…0f62              Head {h00=0x002e, h01=0x0050, text=»*   INPUT:  A1 = NUMBER OF BYTES TO CLEAR «, t00=0x0009, t01=0x012c}
0x0f62…0f86              Head {h00=0x0020, h01=0x0050, text=»*           A6 = DWT ADDRESS«, t00=0x0009, t01=0x015e}
0x0f86…0f90              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0182}
0x0f90…0fb8              Head {h00=0x0024, h01=0x0050, text=»*   OUTPUT: A1, A2 ARE DESTROYED«, t00=0x0009, t01=0x018c}
0x0fb8…0fc2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0024}
0x0fc2…0fd6              Head {h00=0x0010, h01=0x0050, text=»VOLCLR EQU *«, t00=0x000a, t01=0x002e}
0x0fd6…0fe8              Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x000a, t01=0x0042}
0x0fe8…1012              Head {h00=0x0026, h01=0x0050, text=» CF A15,VOLADR VOLUME NAME ADDRESS«, t00=0x000a, t01=0x0054}
0x1012…101c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x007e}
0x101c…1030              Head {h00=0x0010, h01=0x0050, text=»VCLR10 EQU *«, t00=0x000a, t01=0x0088}
0x1030…104e              Head {h00=0x001a, h01=0x0050, text=» CMR A1 CLEAR ONE WORD«, t00=0x000a, t01=0x009c}
0x104e…1072              Head {h00=0x0020, h01=0x0050, text=» ADK A1,2 INCREMENT POINTER «, t00=0x000a, t01=0x00ba}
0x1072…109a              Head {h00=0x0024, h01=0x0050, text=» SUK A2,2 DECREMENT LOOP COUNTER«, t00=0x000a, t01=0x00de}
0x109a…10b0              Head {h00=0x0012, h01=0x0050, text=» RB(P) VCLR10 «, t00=0x000a, t01=0x0106}
0x10b0…10c2              Head {h00=0x000e, h01=0x0050, text=» RF RETURN«, t00=0x000a, t01=0x011c}
0x10c2…10cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x012e}
0x10cc…10e2              Head {h00=0x0012, h01=0x0050, text=» EJECT  DSKSUB«, t00=0x000a, t01=0x0138}
0x10e2…10ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x014e}
0x10ec…10f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0158}
0x10f6…1108              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000a, t01=0x0162}
0x1108…111a              Head {h00=0x000e, h01=0x0050, text=»* VOLNAM *«, t00=0x000a, t01=0x0174}
0x111a…112c              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000a, t01=0x0186}
0x112c…1136              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0008}
0x1136…1140              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0012}
0x1140…117e              Head {h00=0x003a, h01=0x0050, text=»*   VOLNAM WILL MOVE THE VOLUME NAME OF SELECTED DISC «, t00=0x000b, t01=0x001c}
0x117e…11b6              Head {h00=0x0034, h01=0x0050, text=»*   TO THE USER BUFFER IF REQUESTED LENGTH = 6. «, t00=0x000b, t01=0x005a}
0x11b6…11c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0092}
0x11c0…11e4              Head {h00=0x0020, h01=0x0050, text=»*   INPUT:  A6 = DWT ADDRESS«, t00=0x000b, t01=0x009c}
0x11e4…1208              Head {h00=0x0020, h01=0x0050, text=»*           A8 = ECB ADDRESS«, t00=0x000b, t01=0x00c0}
0x1208…1212              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e4}
0x1212…123a              Head {h00=0x0024, h01=0x0050, text=»*   OUTPUT: A1-A4 ARE DESTROYED «, t00=0x000b, t01=0x00ee}
0x123a…1244              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0116}
0x1244…1258              Head {h00=0x0010, h01=0x0050, text=»VOLNAM EQU *«, t00=0x000b, t01=0x0120}
0x1258…1280              Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRL,A8 REQUESTED LENGTH«, t00=0x000b, t01=0x0134}
0x1280…1292              Head {h00=0x000e, h01=0x0050, text=» SUK A1,6 «, t00=0x000b, t01=0x015c}
0x1292…12be              Head {h00=0x0028, h01=0x0050, text=» RF(NE) RETURN NO VOLUME NAME WANTED«, t00=0x000b, t01=0x016e}
0x12be…12ec              Head {h00=0x002a, h01=0x0050, text=» CF A15,VOLADR GET DWT VOLUME ADDRESS «, t00=0x000c, t01=0x000a}
0x12ec…1318              Head {h00=0x0028, h01=0x0050, text=» ST A4,ECBEL,A8 SET EFFECTIVE LENGTH«, t00=0x000c, t01=0x0038}
0x1318…1322              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0064}
0x1322…1338              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000c, t01=0x006e}
0x1338…1364              Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBBA,A8 USER BUFFER ADDRESS «, t00=0x000c, t01=0x0084}
0x1364…136e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b0}
0x136e…1386              Head {h00=0x0014, h01=0x0050, text=» EJECT   DSKSUB «, t00=0x000c, t01=0x00ba}
0x1386…1390              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d2}
0x1390…139a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00dc}
0x139a…13ae              Head {h00=0x0010, h01=0x0050, text=»VNAM10 EQU *«, t00=0x000c, t01=0x00e6}
0x13ae…13d0              Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A1 MOVE ONE WORD «, t00=0x000c, t01=0x00fa}
0x13d0…13e2              Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x000c, t01=0x011c}
0x13e2…140e              Head {h00=0x0028, h01=0x0050, text=» ADK A1,2 INCREMENT BUFFER POINTERS «, t00=0x000c, t01=0x012e}
0x140e…1420              Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x000c, t01=0x015a}
0x1420…1448              Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 DECREMENT LOOP COUNTER«, t00=0x000c, t01=0x016c}
0x1448…145e (13, 0, 398) Head {h00=0x0012, h01=0x0050, text=» RB(P) VNAM10 «, t00=0x000d, t01=0x0004}
0x145e…1470              Head {h00=0x000e, h01=0x0050, text=» RF RETURN«, t00=0x000d, t01=0x001a}
0x1470…147c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x002c}
0x147c…1486              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0038}
0x1486…149c              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000d, t01=0x0042}
0x149c…14d2              Head {h00=0x0032, h01=0x0050, text=» LD A2,DWTTAB,A6 TTAB ADDRESS OF CALLING TASK «, t00=0x000d, t01=0x0058}
0x14d2…14f6              Head {h00=0x0020, h01=0x0050, text=» TS -30,A15 SAVE RUNNING MMU«, t00=0x000d, t01=0x008e}
0x14f6…151a              Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A2 LOAD USER MMU «, t00=0x000d, t01=0x00b2}
0x151a…1544              Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTUEC,A6 USER ECB ADDRESS «, t00=0x000d, t01=0x00d6}
0x1544…1570              Head {h00=0x0028, h01=0x0050, text=» EL A2,ECBBA,A2 USER BUFFER ADDRESS «, t00=0x000d, t01=0x0100}
0x1570…1592              Head {h00=0x001e, h01=0x0050, text=» MVSU A4 MOVE VOLUME NAME «, t00=0x000d, t01=0x012c}
0x1592…15ba              Head {h00=0x0024, h01=0x0050, text=» TL -30,A15 RESTORE RUNNING MMU «, t00=0x000d, t01=0x014e}
0x15ba…15ca              Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x000d, t01=0x0176}
0x15ca…15d6              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0186}
0x15d6…15e0 (14, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0004}
0x15e0…15f6              Head {h00=0x0012, h01=0x0050, text=» EJECT  DSKSUB«, t00=0x000e, t01=0x000e}
0x15f6…1600              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0024}
0x1600…160a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x002e}
0x160a…161c              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x0038}
0x161c…162e              Head {h00=0x000e, h01=0x0050, text=»* VOLADR *«, t00=0x000e, t01=0x004a}
0x162e…1640              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x005c}
0x1640…164a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x006e}
0x164a…1654              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0078}
0x1654…1678              Head {h00=0x0020, h01=0x0050, text=»*   INPUT:  A6 = DWT ADDRESS«, t00=0x000e, t01=0x0082}
0x1678…1682              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00a6}
0x1682…16ae              Head {h00=0x0028, h01=0x0050, text=»*   OUTPUT: A1 = VOLUME NAME ADDRESS«, t00=0x000e, t01=0x00b0}
0x16ae…16c2              Head {h00=0x0010, h01=0x0050, text=»*    A4 = 6 «, t00=0x000e, t01=0x00dc}
0x16c2…16cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00f0}
0x16cc…16e0              Head {h00=0x0010, h01=0x0050, text=»VOLADR EQU *«, t00=0x000e, t01=0x00fa}
0x16e0…16fe              Head {h00=0x001a, h01=0x0050, text=» LC A4,DWTOR,A6 INDEX «, t00=0x000e, t01=0x010e}
0x16fe…1708              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x012c}
0x1708…171c              Head {h00=0x0010, h01=0x0050, text=»VOLA05 EQU *«, t00=0x000e, t01=0x0136}
0x171c…1736              Head {h00=0x0016, h01=0x0050, text=» LDKL A1,DWTVOL-6 «, t00=0x000e, t01=0x014a}
0x1736…1748              Head {h00=0x000e, h01=0x0050, text=» ADR A1,A6«, t00=0x000e, t01=0x0164}
0x1748…175a              Head {h00=0x000e, h01=0x0050, text=» ANK A4,/3«, t00=0x000e, t01=0x0176}
0x175a…1764              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0188}
0x1764…1778 (15, 0, 400) Head {h00=0x0010, h01=0x0050, text=»VOLA10 EQU *«, t00=0x000f, t01=0x0004}
0x1778…1798              Head {h00=0x001c, h01=0x0050, text=» ADK A1,6 UPDATE ADDRESS«, t00=0x000f, t01=0x0018}
0x1798…17aa              Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x000f, t01=0x0038}
0x17aa…17c0              Head {h00=0x0012, h01=0x0050, text=» RB(NN) VOLA10«, t00=0x000f, t01=0x004a}
0x17c0…17d2              Head {h00=0x000e, h01=0x0050, text=» LDK A4,6 «, t00=0x000f, t01=0x0060}
0x17d2…17e4              Head {h00=0x000e, h01=0x0050, text=» RF RETURN«, t00=0x000f, t01=0x0072}
0x17e4…17ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0084}
0x17ee…1806              Head {h00=0x0014, h01=0x0050, text=» EJECT   DSKSUB «, t00=0x000f, t01=0x008e}
0x1806…1810              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a6}
0x1810…181a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b0}
0x181a…182c              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000f, t01=0x00ba}
0x182c…183e              Head {h00=0x000e, h01=0x0050, text=»* NVLCHK *«, t00=0x000f, t01=0x00cc}
0x183e…1850              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000f, t01=0x00de}
0x1850…185a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f0}
0x185a…1864              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00fa}
0x1864…18a0              Head {h00=0x0038, h01=0x0050, text=»*   NVLCHK IS CALLED AT ACTIVATION FROM DISC DRIVER «, t00=0x000f, t01=0x0104}
0x18a0…18dc              Head {h00=0x0038, h01=0x0050, text=»*   TO CHECK IF THE RETURN CODE "NEW VOLUME LOADED" «, t00=0x000f, t01=0x0140}
0x18dc…1918              Head {h00=0x0038, h01=0x0050, text=»*   IS TO BE RETURNED TO THE CALLING TASK (RC=/20). «, t00=0x000f, t01=0x017c}
0x1918…1922              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0028}
0x1922…1946              Head {h00=0x0020, h01=0x0050, text=»*   INPUT:  A6 = DWT ADDRESS«, t00=0x0010, t01=0x0032}
0x1946…1950              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0056}
0x1950…198a              Head {h00=0x0036, h01=0x0050, text=»*   OUTPUT: A1 = RETURN CODE (/20 IF NVL, ELSE 0) «, t00=0x0010, t01=0x0060}
0x198a…19be              Head {h00=0x0030, h01=0x0050, text=»*           A2 = DWT ADDRESS + DOUBLE INDEX «, t00=0x0010, t01=0x009a}
0x19be…19e6              Head {h00=0x0024, h01=0x0050, text=»*           A3, A4 ARE DESTROYED«, t00=0x0010, t01=0x00ce}
0x19e6…19f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00f6}
0x19f0…1a04              Head {h00=0x0010, h01=0x0050, text=»NVLCHK EQU *«, t00=0x0010, t01=0x0100}
0x1a04…1a2c              Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTOR,A6 INDEX AND ORDER «, t00=0x0010, t01=0x0114}
0x1a2c…1a60              Head {h00=0x0030, h01=0x0050, text=» ST A2,DWTORD,A6 SAVE FOR RECOVERY PURPOSES «, t00=0x0010, t01=0x013c}
0x1a60…1a7e              Head {h00=0x001a, h01=0x0050, text=» SRL A2,7 DOUBLE INDEX«, t00=0x0010, t01=0x0170}
0x1a7e…1a90              Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0010, t01=0x018e}
0x1a90…1ab2              Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTNVL,A2 NVL FLAG «, t00=0x0011, t01=0x0010}
0x1ab2…1ae8              Head {h00=0x0032, h01=0x0050, text=» ANKL A1,/7FFF RESET BIT 0 (FIRST REQUEST BIT)«, t00=0x0011, t01=0x0032}
0x1ae8…1b00              Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTNVL,A2«, t00=0x0011, t01=0x0068}
0x1b00…1b30              Head {h00=0x002c, h01=0x0050, text=» ANKL A1,/3FFF NOT 1ST REQ. OR FIX DISK «, t00=0x0011, t01=0x0080}
0x1b30…1b56              Head {h00=0x0022, h01=0x0050, text=» RF(Z) RETURN RETURN IF NO NVL«, t00=0x0011, t01=0x00b0}
0x1b56…1b7c              Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTTAB,A6 TTAB ADDRESS «, t00=0x0011, t01=0x00d6}
0x1b7c…1b8e              Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0011, t01=0x00fc}
0x1b8e…1bb4              Head {h00=0x0022, h01=0x0050, text=» LDKL A3,NVLTAB NVLTAB ADDRESS«, t00=0x0011, t01=0x010e}
0x1bb4…1bbe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0134}
0x1bbe…1bd6              Head {h00=0x0014, h01=0x0050, text=» EJECT   DSKSUB «, t00=0x0011, t01=0x013e}
0x1bd6…1be0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0156}
0x1be0…1bea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0160}
0x1bea…1bfe              Head {h00=0x0010, h01=0x0050, text=»NVL:10 EQU *«, t00=0x0011, t01=0x016a}
0x1bfe…1c32              Head {h00=0x0030, h01=0x0050, text=» CWK A3,NVLEND CHECK IF END OF TABLE REACHED«, t00=0x0011, t01=0x017e}
0x1c32…1c56              Head {h00=0x0020, h01=0x0050, text=» RF(E) NVL:20 END OF NVLTAB «, t00=0x0012, t01=0x0022}
0x1c56…1c7c              Head {h00=0x0022, h01=0x0050, text=» CWR* A4,A3 CHECK TTAB ADDRESS«, t00=0x0012, t01=0x0046}
0x1c7c…1ca4              Head {h00=0x0024, h01=0x0050, text=» RF(E) NVL:20 NVL FOR THIS TASK «, t00=0x0012, t01=0x006c}
0x1ca4…1cc8              Head {h00=0x0020, h01=0x0050, text=» SLL A1,1 SHIFT NVL BIT MASK«, t00=0x0012, t01=0x0094}
0x1cc8…1cf6              Head {h00=0x002a, h01=0x0050, text=» ADK A3,2 POINT TO NEXT TTAB IN NVLTAB«, t00=0x0012, t01=0x00b8}
0x1cf6…1d08              Head {h00=0x000e, h01=0x0050, text=» RB NVL:10«, t00=0x0012, t01=0x00e6}
0x1d08…1d12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00f8}
0x1d12…1d26              Head {h00=0x0010, h01=0x0050, text=»NVL:20 EQU *«, t00=0x0012, t01=0x0102}
0x1d26…1d5a              Head {h00=0x0030, h01=0x0050, text=» AN A1,DWTNVL,A2 CHECK IF NVL FOR THIS TASK «, t00=0x0012, t01=0x0116}
0x1d5a…1d84              Head {h00=0x0026, h01=0x0050, text=» RF(Z) RETURN NO NVL FOR THIS TASK«, t00=0x0012, t01=0x014a}
0x1d84…1dac              Head {h00=0x0024, h01=0x0050, text=» XRS A1,DWTNVL,A2 RESET NVL BIT «, t00=0x0012, t01=0x0174}
0x1dac…1dcc              Head {h00=0x001c, h01=0x0050, text=» LDK A1,/20 RETURN CODE «, t00=0x0013, t01=0x000c}
0x1dcc…1dd6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x002c}
0x1dd6…1dee              Head {h00=0x0014, h01=0x0050, text=» EJECT   DSKSUB «, t00=0x0013, t01=0x0036}
0x1dee…1df8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x004e}
0x1df8…1e02              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0058}
0x1e02…1e2a              Head {h00=0x0024, h01=0x0050, text=»RETURN EQU * COMMON RETURN LABEL«, t00=0x0013, t01=0x0062}
0x1e2a…1e40              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0013, t01=0x008a}
0x1e40…1e76              Head {h00=0x0032, h01=0x0050, text=» ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS «, t00=0x0013, t01=0x00a0}
0x1e76…1e82              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00d6}
0x1e82…1e8c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00e2}
0x1e8c…1ea2              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0013, t01=0x00ec}
0x1ea2…1eb2              Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0013, t01=0x0102}
0x1eb2…1ebe              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0112}
0x1ebe…1ec8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x011e}
0x1ec8…1ee0              Head {h00=0x0014, h01=0x0050, text=» EJECT   DSKSUB «, t00=0x0013, t01=0x0128}
0x1ee0…1eea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0140}
0x1eea…1ef4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x014a}
0x1ef4…1f06              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x0154}
0x1f06…1f18              Head {h00=0x000e, h01=0x0050, text=»* VOLGET *«, t00=0x0013, t01=0x0166}
0x1f18…1f2a              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x0178}
0x1f2a…1f34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x018a}
0x1f34…1f3e (20, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0004}
0x1f3e…1f78              Head {h00=0x0036, h01=0x0050, text=»*   VOLGET WILL READ VOLUME NAME FROM DISC BUFFER «, t00=0x0014, t01=0x000e}
0x1f78…1fbc              Head {h00=0x0040, h01=0x0050, text=»*   TO DISC DWT AND CHECK IF THERE IS A NEW VOLUME MOUNTED. «, t00=0x0014, t01=0x0048}
0x1fbc…1fc6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x008c}
0x1fc6…1ff2              Head {h00=0x0028, h01=0x0050, text=»*   INPUT:  A2 = DISC BUFFER ADDRESS«, t00=0x0014, t01=0x0096}
0x1ff2…2028              Head {h00=0x0032, h01=0x0050, text=»*    A3 = FILE CODE (FOR DRIVE WITH INDEX = 0)«, t00=0x0014, t01=0x00c2}
0x2028…205c              Head {h00=0x0030, h01=0x0050, text=»*         BIT 0 SET MEANS TEST STATUS ORDER «, t00=0x0014, t01=0x00f8}
0x205c…2080              Head {h00=0x0020, h01=0x0050, text=»*           A6 = DWT ADDRESS«, t00=0x0014, t01=0x012c}
0x2080…208a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0150}
0x208a…20be              Head {h00=0x0030, h01=0x0050, text=»*   OUTPUT: A4 = DWT ADDRESS + DOUBLE INDEX «, t00=0x0014, t01=0x015a}
0x20be…20ec              Head {h00=0x002a, h01=0x0050, text=»*           A1-A3, A7-A8 ARE DESTROYED«, t00=0x0014, t01=0x018e}
0x20ec…20f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x002c}
0x20f6…2100              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0036}
0x2100…2114              Head {h00=0x0010, h01=0x0050, text=»VOLGET EQU *«, t00=0x0015, t01=0x0040}
0x2114…2142              Head {h00=0x002a, h01=0x0050, text=» CF A15,VOLADR DWT VOLUME NAME ADDRESS«, t00=0x0015, t01=0x0054}
0x2142…2162              Head {h00=0x001c, h01=0x0050, text=» LDK A7,0 RESET NVL FLAG«, t00=0x0015, t01=0x0082}
0x2162…216c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a2}
0x216c…2180              Head {h00=0x0010, h01=0x0050, text=»VGET10 EQU *«, t00=0x0015, t01=0x00ac}
0x2180…21b0              Head {h00=0x002c, h01=0x0050, text=» LDR* A8,A2 ONE WORD OF NEW VOLUME NAME «, t00=0x0015, t01=0x00c0}
0x21b0…21e0              Head {h00=0x002c, h01=0x0050, text=» CWR* A8,A1 COMPARE WITH OLD VOLUME NAME«, t00=0x0015, t01=0x00f0}
0x21e0…21f6              Head {h00=0x0012, h01=0x0050, text=» RF(E) VGET20 «, t00=0x0015, t01=0x0120}
0x21f6…2214              Head {h00=0x001a, h01=0x0050, text=» LDK A7,1 SET NVL FLAG«, t00=0x0015, t01=0x0136}
0x2214…223c              Head {h00=0x0024, h01=0x0050, text=» STR A8,A1 STORE NEW VOLUME NAME«, t00=0x0015, t01=0x0154}
0x223c…2246              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x017c}
0x2246…225e              Head {h00=0x0014, h01=0x0050, text=» EJECT   DSKSUB «, t00=0x0015, t01=0x0186}
0x225e…2268              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x000e}
0x2268…2272              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0018}
0x2272…2286              Head {h00=0x0010, h01=0x0050, text=»VGET20 EQU *«, t00=0x0016, t01=0x0022}
0x2286…22b2              Head {h00=0x0028, h01=0x0050, text=» ADK A1,2 INCREMENT BUFFER POINTERS «, t00=0x0016, t01=0x0036}
0x22b2…22c4              Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0016, t01=0x0062}
0x22c4…22ec              Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 DECREMENT LOOP COUNTER«, t00=0x0016, t01=0x0074}
0x22ec…2302              Head {h00=0x0012, h01=0x0050, text=» RB(P) VGET10 «, t00=0x0016, t01=0x009c}
0x2302…2318              Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x0016, t01=0x00b2}
0x2318…2338              Head {h00=0x001c, h01=0x0050, text=» ADK A7,0 CHECK NVL FLAG«, t00=0x0016, t01=0x00c8}
0x2338…235e              Head {h00=0x0022, h01=0x0050, text=» RB(Z) RETURN RETURN IF NO NVL«, t00=0x0016, t01=0x00e8}
0x235e…2390              Head {h00=0x002e, h01=0x0050, text=» SLA A3,1 CHECK IF TEST STATUS OR RECOVERY«, t00=0x0016, t01=0x010e}
0x2390…23ba              Head {h00=0x0026, h01=0x0050, text=» RB(O) RETURN TEST STATUS, NO NVL «, t00=0x0016, t01=0x0140}
0x23ba…23e6              Head {h00=0x0028, h01=0x0050, text=» SRA A3,1 FILE CODE WITHOUT SIGN BIT«, t00=0x0016, t01=0x016a}
0x23e6…2408              Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTNVL,A4 NVL FLAGS«, t00=0x0017, t01=0x0008}
0x2408…243e              Head {h00=0x0032, h01=0x0050, text=» RB(N) RETURN NO REQUESTS SO FAR ON THIS DISC «, t00=0x0017, t01=0x002a}
0x243e…2450              Head {h00=0x000e, h01=0x0050, text=» SLL A7,1 «, t00=0x0017, t01=0x0060}
0x2450…2478              Head {h00=0x0024, h01=0x0050, text=» RB(N) RETURN FIXED DISC, NO NVL«, t00=0x0017, t01=0x0072}
0x2478…2482              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x009a}
0x2482…249a              Head {h00=0x0014, h01=0x0050, text=» EJECT   DSKSUB «, t00=0x0017, t01=0x00a4}
0x249a…24a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00bc}
0x24a4…24ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00c6}
0x24ae…24c0              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0017, t01=0x00d0}
0x24c0…24d2              Head {h00=0x000e, h01=0x0050, text=»* NEWVOL *«, t00=0x0017, t01=0x00e2}
0x24d2…24e4              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0017, t01=0x00f4}
0x24e4…24ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0106}
0x24ee…24f8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0110}
0x24f8…253a              Head {h00=0x003e, h01=0x0050, text=»*   NEWVOL IS ENTERED FROM THE ROUTINE VOLGET WHEN IT HAS «, t00=0x0017, t01=0x011a}
0x253a…2572              Head {h00=0x0034, h01=0x0050, text=»*   DETECTED THAT A NEW VOLUME HAS BEEN MOUNTED.«, t00=0x0017, t01=0x015c}
0x2572…25ac (24, 0, 400) Head {h00=0x0036, h01=0x0050, text=»*   THE NEW VOLUME LOADED FLAG IS THEN SET BY THIS«, t00=0x0018, t01=0x0004}
0x25ac…25e6              Head {h00=0x0036, h01=0x0050, text=»*   ROUTINE FOR THE CONCERNED FILE CODE AND FILES «, t00=0x0018, t01=0x003e}
0x25e6…2622              Head {h00=0x0038, h01=0x0050, text=»*   OPENED ON THAT VOLUME. TASKS REPRESENTED IN THE «, t00=0x0018, t01=0x0078}
0x2622…265a              Head {h00=0x0034, h01=0x0050, text=»*   TABLE NVLTAB WILL GET RETURN CODE /20 AT THE«, t00=0x0018, t01=0x00b4}
0x265a…2686              Head {h00=0x0028, h01=0x0050, text=»*   NEXT REQUEST ON THAT FILE CODE. «, t00=0x0018, t01=0x00ec}
0x2686…2690              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0118}
0x2690…26c8              Head {h00=0x0034, h01=0x0050, text=»*   INPUT:  A3 = FILE CODE (DISC ONE FOR DRIVER)«, t00=0x0018, t01=0x0122}
0x26c8…26f4              Head {h00=0x0028, h01=0x0050, text=»*    A4 = DWT ADDRESS + DOUBLE INDEX«, t00=0x0018, t01=0x015a}
0x26f4…2718              Head {h00=0x0020, h01=0x0050, text=»*           A6 = DWT ADDRESS«, t00=0x0018, t01=0x0186}
0x2718…2722              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x001a}
0x2722…274c              Head {h00=0x0026, h01=0x0050, text=»*   OUTPUT: A3 = ACTUAL FILE CODE «, t00=0x0019, t01=0x0024}
0x274c…276c              Head {h00=0x001c, h01=0x0050, text=»*    A1-A2 ARE DESTROYED«, t00=0x0019, t01=0x004e}
0x276c…2776              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x006e}
0x2776…278a              Head {h00=0x0010, h01=0x0050, text=»NEWVOL EQU *«, t00=0x0019, t01=0x0078}
0x278a…27ac              Head {h00=0x001e, h01=0x0050, text=» LD A2,NVLBIT NVL BIT MASK«, t00=0x0019, t01=0x008c}
0x27ac…27e0              Head {h00=0x0030, h01=0x0050, text=» ST A2,DWTNVL,A4 INDICATE NEW VOLUME LOADED «, t00=0x0019, t01=0x00ae}
0x27e0…27fe              Head {h00=0x001a, h01=0x0050, text=» LC A2,DWTOR,A6 INDEX «, t00=0x0019, t01=0x00e2}
0x27fe…2810              Head {h00=0x000e, h01=0x0050, text=» ANK A2,/3«, t00=0x0019, t01=0x0100}
0x2810…2834              Head {h00=0x0020, h01=0x0050, text=» ADR A3,A2 ACTUAL FILE CODE «, t00=0x0019, t01=0x0112}
0x2834…283e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0136}
0x283e…2856              Head {h00=0x0014, h01=0x0050, text=» EJECT   DSKSUB «, t00=0x0019, t01=0x0140}
0x2856…2860              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0158}
0x2860…286a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0162}
0x286a…2880              Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=0 «, t00=0x0019, t01=0x016c}
0x2880…2892              Head {h00=0x000e, h01=0x0050, text=» RB RETURN«, t00=0x0019, t01=0x0182}
0x2892…289e (26, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0004}
0x289e…28a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0010}
0x28a8…28be              Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=1 «, t00=0x001a, t01=0x001a}
0x28be…28ec              Head {h00=0x002a, h01=0x0050, text=» LDKL A1,SCTFWT ADDRESS TO FWT POINTER«, t00=0x001a, t01=0x0030}
0x28ec…28f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x005e}
0x28f6…2938              Head {h00=0x003e, h01=0x0050, text=»* SET NEW VOLUME LOADED FOR ALL FILES ON CONCERNED VOLUME «, t00=0x001a, t01=0x0068}
0x2938…2942              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00aa}
0x2942…2956              Head {h00=0x0010, h01=0x0050, text=»NEW:10 EQU *«, t00=0x001a, t01=0x00b4}
0x2956…297a              Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A1 NEXT FWT ADDRESS«, t00=0x001a, t01=0x00c8}
0x297a…299e              Head {h00=0x0020, h01=0x0050, text=» RB(Z) RETURN NO MORE FWT:S «, t00=0x001a, t01=0x00ec}
0x299e…29c2              Head {h00=0x0020, h01=0x0050, text=» LDR A1,A2 SAVE FWT ADDRESS «, t00=0x001a, t01=0x0110}
0x29c2…29f8              Head {h00=0x0032, h01=0x0050, text=» ADKL A2,FWTEW1 ADDRESS TO FIRST EWT STRUCTURE«, t00=0x001a, t01=0x0134}
0x29f8…2a02              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x016a}
0x2a02…2a16              Head {h00=0x0010, h01=0x0050, text=»NEW:20 EQU *«, t00=0x001a, t01=0x0174}
0x2a16…2a42              Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A2 ADDRESS TO 2ND EWT BLOCK«, t00=0x001a, t01=0x0188}
0x2a42…2a6a              Head {h00=0x0024, h01=0x0050, text=» CC A3,EWTVOL,A2 CHECK FILE CODE«, t00=0x001b, t01=0x0024}
0x2a6a…2a80              Head {h00=0x0012, h01=0x0050, text=» RF(NE) NEW:30«, t00=0x001b, t01=0x004c}
0x2a80…2a9e              Head {h00=0x001a, h01=0x0050, text=» LDKL A2,/8000 NVL BIT«, t00=0x001b, t01=0x0062}
0x2a9e…2ad2              Head {h00=0x0030, h01=0x0050, text=» ORS A2,FWTPAR,A1 INDICATE NEW VOLUME LOADED«, t00=0x001b, t01=0x0080}
0x2ad2…2ae4              Head {h00=0x000e, h01=0x0050, text=» RB NEW:10«, t00=0x001b, t01=0x00b4}
0x2ae4…2aee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00c6}
0x2aee…2b02              Head {h00=0x0010, h01=0x0050, text=»NEW:30 EQU *«, t00=0x001b, t01=0x00d0}
0x2b02…2b34              Head {h00=0x002e, h01=0x0050, text=» LDR* A2,A2 ADDRESS TO NEXT EWT STRUCTURE «, t00=0x001b, t01=0x00e4}
0x2b34…2b64              Head {h00=0x002c, h01=0x0050, text=» RB(Z) NEW:10 END OF THIS EWT STRUCTURE «, t00=0x001b, t01=0x0116}
0x2b64…2b90              Head {h00=0x0028, h01=0x0050, text=» RB NEW:20 CONTINUE WITH NEXT EXTENT«, t00=0x001b, t01=0x0146}
0x2b90…2b9c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0172}
0x2b9c…2ba6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x017e}
0x2ba6…2bbe              Head {h00=0x0014, h01=0x0050, text=» EJECT   DSKSUB «, t00=0x001b, t01=0x0188}
0x2bbe…2bc8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0010}
0x2bc8…2bd2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x001a}
0x2bd2…2be4              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001c, t01=0x0024}
0x2be4…2bf6              Head {h00=0x000e, h01=0x0050, text=»* INXDWT *«, t00=0x001c, t01=0x0036}
0x2bf6…2c08              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001c, t01=0x0048}
0x2c08…2c12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x005a}
0x2c12…2c1c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0064}
0x2c1c…2c68              Head {h00=0x0048, h01=0x0050, text=»*   INXDWT WILL COMPUTE THE DWT ADDRESS ADDED TO THE DOUBLED INDEX. «, t00=0x001c, t01=0x006e}
0x2c68…2c72              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ba}
0x2c72…2c96              Head {h00=0x0020, h01=0x0050, text=»*   INPUT:  A6 = DWT ADDRESS«, t00=0x001c, t01=0x00c4}
0x2c96…2ca0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00e8}
0x2ca0…2cd4              Head {h00=0x0030, h01=0x0050, text=»*   OUTPUT: A4 = DWT ADDRESS + DOUBLE INDEX «, t00=0x001c, t01=0x00f2}
0x2cd4…2d02              Head {h00=0x002a, h01=0x0050, text=»*           NO REGISTERS ARE DESTROYED«, t00=0x001c, t01=0x0126}
0x2d02…2d0c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0154}
0x2d0c…2d20              Head {h00=0x0010, h01=0x0050, text=»INXDWT EQU *«, t00=0x001c, t01=0x015e}
0x2d20…2d3e              Head {h00=0x001a, h01=0x0050, text=» LC A4,DWTOR,A6 INDEX «, t00=0x001c, t01=0x0172}
0x2d3e…2d50              Head {h00=0x000e, h01=0x0050, text=» ANK A4,/3«, t00=0x001c, t01=0x0190}
0x2d50…2d70              Head {h00=0x001c, h01=0x0050, text=» ADR A4,A4 DOUBLE INDEX «, t00=0x001d, t01=0x0012}
0x2d70…2d82              Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x001d, t01=0x0032}
0x2d82…2d94              Head {h00=0x000e, h01=0x0050, text=» RB RETURN«, t00=0x001d, t01=0x0044}
0x2d94…2d9e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0056}
0x2d9e…2db6              Head {h00=0x0014, h01=0x0050, text=» EJECT   DSKSUB «, t00=0x001d, t01=0x0060}
0x2db6…2dc0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0078}
0x2dc0…2dca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0082}
0x2dca…2ddc              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001d, t01=0x008c}
0x2ddc…2dee              Head {h00=0x000e, h01=0x0050, text=»* NVLTAB *«, t00=0x001d, t01=0x009e}
0x2dee…2e00              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001d, t01=0x00b0}
0x2e00…2e0a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00c2}
0x2e0a…2e14              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00cc}
0x2e14…2e4c              Head {h00=0x0034, h01=0x0050, text=»*   NVLTAB HOLDS THE TTAB ADDRESSES OF THE TASKS«, t00=0x001d, t01=0x00d6}
0x2e4c…2e86              Head {h00=0x0036, h01=0x0050, text=»*   THAT WILL RECEIVE NEW VOLUME LOADED WHEN A NEW«, t00=0x001d, t01=0x010e}
0x2e86…2eaa              Head {h00=0x0020, h01=0x0050, text=»*   VOLUME HAS BEEN MOUNTED.«, t00=0x001d, t01=0x0148}
0x2eaa…2eb4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x016c}
0x2eb4…2edc              Head {h00=0x0024, h01=0x0050, text=»*              BIT NO IN DWTNVL «, t00=0x001d, t01=0x0176}
0x2edc…2ef0              Head {h00=0x0010, h01=0x0050, text=»NVLTAB EQU *«, t00=0x001e, t01=0x000e}
0x2ef0…2f06              Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=1 «, t00=0x001e, t01=0x0022}
0x2f06…2f2e              Head {h00=0x0024, h01=0x0050, text=» DATA TTABFM FMTASK TTAB      15«, t00=0x001e, t01=0x0038}
0x2f2e…2f38              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0060}
0x2f38…2f54              Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x001e, t01=0x006a}
0x2f54…2f7c              Head {h00=0x0024, h01=0x0050, text=» DATA TTABLD LDTASK TTAB      14«, t00=0x001e, t01=0x0086}
0x2f7c…2f88              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00ae}
0x2f88…2f98              Head {h00=0x000c, h01=0x0050, text=»*    =1 «, t00=0x001e, t01=0x00ba}
0x2f98…2fae              Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=1 «, t00=0x001e, t01=0x00ca}
0x2fae…2fc2              Head {h00=0x0010, h01=0x0050, text=»NVLEND EQU *«, t00=0x001e, t01=0x00e0}
0x2fc2…2fcc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00f4}
0x2fcc…2fee              Head {h00=0x001e, h01=0x0050, text=»NVLBIT DATA 0 NVL BIT MASK«, t00=0x001e, t01=0x00fe}
0x2fee…2ffa              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0120}
0x2ffa…3004              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x012c}
0x3004…301c              Head {h00=0x0014, h01=0x0050, text=» EJECT   DSKSUB «, t00=0x001e, t01=0x0136}
0x301c…3026              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x014e}
0x3026…3030              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0158}
0x3030…3046              Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=0 «, t00=0x001e, t01=0x0162}
0x3046…3062              Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x001e, t01=0x0178}
0x3062…3082 (31, 2, 314) Head {h00=0x001c, h01=0x0050, text=» DATA TTABLD LDTASK TTAB«, t00=0x001f, t01=0x0004}
0x3082…308c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0024}
0x308c…30a0              Head {h00=0x0010, h01=0x0050, text=»NVLEND EQU *«, t00=0x001f, t01=0x002e}
0x30a0…30aa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0042}
0x30aa…30cc              Head {h00=0x001e, h01=0x0050, text=»NVLBIT DATA 3 NVL BIT MASK«, t00=0x001f, t01=0x004c}
0x30cc…30d8              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x006e}
0x30d8…30e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x007a}
0x30e2…30f8              Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=0 «, t00=0x001f, t01=0x0084}
0x30f8…3114              Head {h00=0x0018, h01=0x0050, text=» IFT DSKPAG+SWPBLK=0«, t00=0x001f, t01=0x009a}
0x3114…311e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00b6}
0x311e…3132              Head {h00=0x0010, h01=0x0050, text=»NVLEND EQU *«, t00=0x001f, t01=0x00c0}
0x3132…313c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00d4}
0x313c…315e              Head {h00=0x001e, h01=0x0050, text=»NVLBIT DATA 1 NVL BIT MASK«, t00=0x001f, t01=0x00de}
0x315e…316a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0100}
0x316a…3174              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x010c}
0x3174…317e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0116}
0x317e…3188              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0120}
0x3188…3194              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x001f, t01=0x012a}
0x3194…3198              Head {h00=0x4004, h01=0x0000}
0x3198…319c              00 1f 01 36                                                                                                                                                                                                                                       ┆   6┆
0x319c…31a4 (32, 1, 8)   20 04 00 00 00 20 00 04                                                                                                                                                                                                                           ┆        ┆
0x31a4…31f4 (33, 0, 400) 54 20 54 20 41 20 42 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 48 01 7c 00 32 00 50 2a 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 2a 2a   ┆T T A B                 ** H | 2 P**                                          **┆
0x31f4…3244              00 49 00 22 00 32 00 50 2a 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 2a 2a 00 49 00 58 00 32 00 50 2a 2a 20 20 46 49 4e 44 20 54 54 41 42 20 41 44 44 52   ┆ I " 2 P**                                          ** I X 2 P**  FIND TTAB ADDR┆
0x3244…3294              45 53 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 49 00 8e 00 32 00 50 2a 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   ┆ESS                       ** I   2 P**                                          ┆
0x3294…32e4              2a 2a 00 49 00 c4 00 32 00 50 2a 2a 20 20 49 4e 50 55 54 20 3a 41 38 3d 50 4f 49 4e 54 45 52 20 54 4f 20 54 3a 41 20 49 4e 20 54 3a 41 54 41 42 20 20 20 20 20 20 2a 2a 00 49 00 fa 00 32 00 50 2a 2a 20 20 4f 55 54 50 55 54 3a 41 32 3d 54 54   ┆** I   2 P**  INPUT :A8=POINTER TO T:A IN T:ATAB      ** I   2 P**  OUTPUT:A2=TT┆
0x32e4…3334              41 42 2d 41 44 44 52 45 53 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 49 01 30 00 32 00 50 2a 2a 20 20 20 20 20 20 20 20 20 41 31 3d 54 49 44 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   ┆AB-ADDRESS                  ** I 0 2 P**         A1=TID                         ┆
0x3334…3384 (34, 0, 400) 20 20 2a 2a 00 49 01 66 00 32 00 50 2a 2a 20 20 57 4f 52 4b 52 45 47 53 3a 41 33 2c 41 34 2c 41 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 4a 00 0c 00 32 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆  ** I f 2 P**  WORKREGS:A3,A4,A10                      ** J   2 P**************┆
0x3384…33d4              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 00 4a 00 42 00 04 00 50 00 4a 00 78 00 10 00 50 47 45 54 54 41 42 5c 45 51 55 5c 2a 00 4a 00 80 00 12 00 50 5c 49 46 54 20 4d 4d 55 50 41 47 3d   ┆******************************** J B   P J x   PGETTAB EQU * J     P IFT MMUPAG=┆
0x33d4…3424              30 20 00 4a 00 94 00 1c 00 50 5c 4c 44 52 2a 5c 41 33 2c 41 38 5c 54 3a 41 20 41 44 44 52 45 53 53 20 00 4a 00 aa 00 26 00 50 5c 4c 44 5c 41 31 2c 54 3a 41 54 49 44 2c 41 33 5c 47 45 54 20 54 49 44 20 54 4f 20 4d 41 54 43 48 20 00 4a 00 ca   ┆0  J     P LDR* A3,A8 T:A ADDRESS  J   & P LD A1,T:ATID,A3 GET TID TO MATCH  J  ┆
0x3424…3474              00 20 00 50 5c 4c 44 5c 41 31 32 2c 54 3a 44 41 44 2c 41 33 5c 54 3a 44 2d 41 44 44 52 45 53 53 00 4a 00 f4 00 08 00 50 5c 58 49 46 00 4a 01 18 00 12 00 50 5c 49 46 54 20 4d 4d 55 50 41 47 3d 31 20 00 4a 01 24 00 1a 00 50 5c 45 4c 52 5c 41   ┆   P LD A12,T:DAD,A3 T:D-ADDRESS J     P XIF J     P IFT MMUPAG=1  J $   P ELR A┆
0x3474…34c4              33 2c 41 38 5c 54 3a 41 2d 41 44 44 52 45 53 53 00 4a 01 3a 00 1c 00 50 5c 45 4c 5c 41 31 2c 54 3a 41 54 49 44 2c 41 33 5c 47 45 54 20 54 49 44 00 4a 01 58 00 14 00 50 5c 45 4c 5c 41 31 32 2c 54 3a 44 41 44 2c 41 33 00 4a 01 78 00 08 00 50   ┆3,A8 T:A-ADDRESS J :   P EL A1,T:ATID,A3 GET TID J X   P EL A12,T:DAD,A3 J x   P┆
0x34c4…3514 (35, 0, 400) 5c 58 49 46 00 4a 01 90 00 26 00 50 47 45 54 54 54 42 5c 45 51 55 5c 2a 5c 45 4e 54 52 59 2e 20 49 4e 50 55 54 3a 20 41 31 3d 54 49 44 20 00 4b 00 0c 00 22 00 50 5c 53 54 5c 41 31 30 2c 43 4f 4d 30 34 2b 53 54 4b 43 4f 4d 5c 53 41 56 45 20   ┆ XIF J   & PGETTTB EQU * ENTRY. INPUT: A1=TID  K   " P ST A10,COM04+STKCOM SAVE ┆
0x3514…3564              41 31 30 20 00 4b 00 36 00 24 00 50 5c 4c 44 5c 41 34 2c 53 43 54 54 43 54 5c 47 45 54 20 54 43 3a 54 41 42 20 41 44 44 52 45 53 53 00 4b 00 5c 00 1e 00 50 5c 4c 44 52 2a 5c 41 31 30 2c 41 34 5c 54 43 54 41 42 20 4c 45 4e 47 54 48 20 00 4b   ┆A10  K 6 $ P LD A4,SCTTCT GET TC:TAB ADDRESS K     P LDR* A10,A4 TCTAB LENGTH  K┆
0x3564…35b4              00 84 00 14 00 50 47 45 54 54 31 30 5c 41 44 4b 5c 41 34 2c 32 20 00 4b 00 a6 00 14 00 50 5c 53 55 4b 4c 5c 41 31 30 2c 32 5c 41 4c 4c 3f 00 4b 00 be 00 16 00 50 5c 52 46 28 4e 4e 29 5c 47 45 54 54 32 30 5c 4e 4f 21 00 4b 00 d6 00 2a 00 50   ┆     PGETT10 ADK A4,2  K     P SUKL A10,2 ALL? K     P RF(NN) GETT20 NO! K   * P┆
0x35b4…3604              5c 4c 44 52 5c 41 33 2c 41 31 5c 53 41 56 45 20 41 31 20 28 44 45 42 55 47 47 49 4e 47 20 50 55 52 50 4f 53 29 20 00 4b 00 f0 00 1a 00 50 5c 4c 44 4b 5c 41 31 2c 4c 4d 50 35 5c 54 49 44 20 45 52 52 4f 52 00 4b 01 1e 00 10 00 50 5c 43 41 4c   ┆ LDR A3,A1 SAVE A1 (DEBUGGING PURPOS)  K     P LDK A1,LMP5 TID ERROR K     P CAL┆
0x3604…3654              4c 5c 45 52 52 4f 52 20 00 4b 01 3c 00 22 00 50 47 45 54 54 32 30 5c 4c 44 52 2a 5c 41 32 2c 41 34 5c 54 54 41 42 2d 41 44 44 52 45 53 53 00 4b 01 50 00 20 00 50 5c 43 57 5c 41 31 2c 54 54 42 3a 50 50 2c 41 32 5c 54 43 4c 20 45 51 55 41 4c   ┆L ERROR  K < " PGETT20 LDR* A2,A4 TTAB-ADDRESS K P   P CW A1,TTB:PP,A2 TCL EQUAL┆
0x3654…36a4 (36, 0, 400) 3f 20 00 4b 01 76 00 16 00 50 5c 52 42 28 4e 45 29 5c 47 45 54 54 31 30 5c 4e 4f 21 00 4c 00 0a 00 1c 00 50 5c 53 54 5c 41 32 2c 54 54 41 42 2b 53 54 4b 43 4f 4d 5c 53 41 56 45 20 00 4c 00 24 00 18 00 50 5c 4c 44 5c 41 31 30 2c 43 4f 4d 30   ┆?  K v   P RB(NE) GETT10 NO! L     P ST A2,TTAB+STKCOM SAVE  L $   P LD A10,COM0┆
0x36a4…36f4              34 2b 53 54 4b 43 4f 4d 00 4c 00 44 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 4c 00 60 00 0a 00 50 5c 45 4a 45 43 54 00 4c 00 70 00 3e 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   ┆4+STKCOM L D   P RTN A14 L `   P EJECT L p > P**********************************┆
0x36f4…3744              2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 4c 00 7e 00 3e 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 20 20   ┆************************ L ~ > P*                                               ┆
0x3744…3794              20 20 20 20 20 20 20 20 20 2a 00 4c 00 c0 00 3e 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4e 42 49 4d 41 20 2d 20 49 4e 49 54 20 42 49 54 20 4d 41 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 4c 01 02   ┆         * L   > P*               INBIMA - INIT BIT MAP                    * L  ┆
0x3794…37e4              00 3e 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 4c 01 44 00 3e 00 50 2a 20 20 20 20 20 20 20 20 20   ┆ > P*               =====================                    * L D > P*         ┆

Reduced view