⟦b803f9532⟧

PTS(SC)

	IDENT SYSLOD 	REL 11.0 81-12-17 870105041100 

			=15, LOADING SEVERAL APPL. FROM 80M DISC 
			=15, REL 11.0 81-11-10 
			=14,LOADING SEGMENTS FROM CASSETTE 
			=14,REL 11.0 81-09-25 SVBU 
			=13, ERROR WHEN SEGMENT SIZE>32K 
			=13 REL 11.0 81-05-22
			=12,COND. ASSEMBLY EDM INTRODUCED
			=12,REL 11.0 81-05-19
			=11,ERROR IN READ ROUT. FOR 16M,80M
			=11,REL 11.0 81-05-11
			=10,TWO WORDS IN INTERRUPT TABLE ARE 
			=10,DESTROYED
			=10,REL 11.0 81-04-08
			=9,NEW CONTROL UNIT 16M,80M DISC 
			=9,REL 11.0 81-04-06 
			=8,WHEN CFTEST=1 TEST ALSO RWSI CONNECTION 
			=8,REL 11.0 81-03-31 
			=7,WRONG VTOC-SECTOR POINTER 
			=7,REL 11.0 81-03-12 
			=6,DC BLOCK DESTROYED WHEN CFTEST=0
			=6,REL 11.0 81-02-06 
			=5,SUPPORTS LOADING FROM TWO HARDDISC UNITS
			=5,REL 11.0 81-01-29 
			=4,FLOPPY MUX CORRECTED
			=4,REL 11.0 81-01-26 
			=3,IF 256 KBYTE MEMORY OVERFLOW
			=3,WILL OCCUR IN SEGMENT ALLOCATION
			=3,PRR 11.0 80-12-03 
			=2,LOOK IF APPL. TYPE ALLOWED IN MONITOR 
			=2,REDESIGNED SEGMENT ALLOCATION ALGORITM
			=2,PRR 11.0 80-11-20 
			=1,MXSTAB ADDR. NOT REL IF CFTEST=0
			=1,PRR 11.0 80-11-19 
	ENTRY	SYSLOD 
	ENTRY	SYSBAS 
	ENTRY	NUMSEG 
	ENTRY	PRGLG1 
	ENTRY	APLADA 
	ENTRY	APLLAC 
	ENTRY	APLLAP 
	ENTRY	APLLDA 
	ENTRY	APLMMC 
	ENTRY	APLMMP 
	ENTRY	APLNPE 
	ENTRY	APLREL 
	ENTRY	APLSTA 
	ENTRY	APLTYP 
	ENTRY	APLIOE 
	ENTRY	APLSEG 
	ENTRY	APLSWB 
*************************** 
*                         * 
*  ENTRIES AND EXTERNALS  * 
*                         * 
*************************** 
	EXTRN	CONVRT 
	EXTRN	POB	RESTORE REGISTER CONTENTS
	EXTRN PUSH	SAVE REGISTER CONTENTS
	EXTRN	SYSLDM 
	EXTRN	SCTANO 
	EXTRN	SCTBUG 
	EXTRN	SCTEFA 
	EXTRN	SCTMSZ 
	EXTRN	SCTMXS	ADDRESS TO MONITOR EXTENT TABLE 
	EXTRN	SCTNOP 
	EXTRN	SCTOPT 
	EXTRN	SCTIPL 
	EXTRN	SCTPSZ 
	EXTRN	SCTSFA 
	EXTRN	SCTSTB 
	EJECT
	EXTRN	REL
	EXTRN	ERROR
	EXTRN	MMDDIV 
	EXTRN	TABBE
	EXTRN	MMEND
	EXTRN	CMPADR 
	EXTRN	MOVE 
	EXTRN	TTB:MT	DISPLACEMENT TO MMU TABLE IN TTAB 
	EXTRN	TTB:CB 
	EXTRN	STKCOM 
	EXTRN	STKEND 
	EJECT
				
				
******************************* 
* CONFIGURATION FILE (CONFIG) * 
******************************* 
			 
* TASK DEFINITION BLOCK:
TDBBT	EQU	0	1A BLOCK TYPE 
TDBNT	EQU	TDBBT+1	2N NUMBER OF TASKS
TDBID	EQU	TDBNT+2	6A TASK ID START VALUE
TDBMC	EQU	TDBID+6	6A MATCHING TASK CLASS
TDBTL	EQU	TDBMC+6	6A TASK LEVEL 
TDBNC	EQU	TDBTL+6	2N NUMBER OF TERMINAL DEVICE CLASSES
* 
TDBFST	EQU	TDBNC+2	SAVE05 TERM DEF
TDC	EQU	7	TERMINAL DEVICE CLASS 
TLC	EQU	7	LINE CONNECTION 
TDBREC	EQU	TDC+TLC	TDB-RECORD LENGTH
* 
SDC	EQU	7	SPECIAL DEVICE CLASS-RECORD 
* 
* COMMON DEVICE DEF. BLOCK: 
CDBBT	EQU	0	1A BLOCK TYPE 
CDBNC	EQU	CDBBT+1	2N NUMBER OF SPEC. DEV. CLASSES 
SDCFST	EQU	CDBNC+2	SAVE05 SDC-RECORD
* 
* 
* USER WORK BLOCK TYPE DEF. BLOCK 
UDBBT	EQU	0	1A BLOCK TYPE 
UDBNU	EQU	UDBBT+1	3A NUMBER OF UWB TYPES
* 
UDBFST	EQU	UDBNU+3	SAVE05 UDB-RECORD
NAMUWB	EQU	3	NAME OF UWB
NUMUBL	EQU	3	NUMBER OF BLOCKS 
UDBREC	EQU	NAMUWB+NUMUBL	UDB RECORD-LENGTH
	EJECT
****************
* SOP-HANDLING *
****************
SOP	EQU	/2E	DEVICE ADDRESS

LMP1	EQU	/400	LAMP 1 CODE 
LMP2	EQU	/200 
LMP3	EQU	/100 
LMP4	EQU	/80
LMP5	EQU	/40
LMP6	EQU	/20
LMP7	EQU	/10
LMP8	EQU	8
LMP9	EQU	4
LMP10	EQU	2 
LMP11	EQU	1 
	EJECT


*********************************** 
*  MXSTAB DISPLACEMENTS           * 
*********************************** 


MX:NOX	EQU	6
MX:NOS	EQU	8	NUMBER OF SEGMENT CLUSTERS 


********************************************* 
*                                           * 
*    APCTAB DISPLACEMENTS                   * 
*    ====================                   * 
*                                           * 
********************************************* 


APLADA	EQU	22	APPLICATION DISC FILE ADDRESS	=2
APLREL	EQU	18	APPLICATION RELOCATION BASE 
APLIOE	EQU	0	APPLICATION RESTART ADDRESS
APLLAC	EQU	14	APPLICATION LOAD ADDR. (LOGICAL ADDR.)
APLLAP	EQU	12	LOGICAL PAGE ADDRESS
APLLDA	EQU	0	APPLICATION LOAD ADDR. (PHYSICAL ADDR.)
APLMMC	EQU	10	APPLICATION MMU START ENTRY 
APLMMP	EQU	8	SEGMENT START MMU ENTRY
APLSEG	EQU	4	PHYSICAL START OF 1ST SEGMENT
APLNPE	EQU	6	NUMBER OF PAGE ENTRIES IN MMU
APLPSZ	EQU	20	APPLICATION SEGMENT SIZE	=2 
APLSWB	EQU	2	APPLICATION SWB
APLSTA	EQU	16	APPL. PGM START ADDRESS 
APLTYP	EQU	8	APPLICATION TYPE 
	EJECT
******************************
*                            *
*  COMMON DISPLACEMENTS      *
*  AND CONSTANTS             *
*                            *
******************************
			 
			 
ACBLEN	EQU	26	APPLICATION CONTROL BLOCK LENGTH	=2 
APLTAB	EQU	12	ADDRESS TO APPL. CONTROL TABLE
APPLNO	EQU	18	APPLICATION NUMBER
BUFSIZ	EQU	14	TEMPORARY BUFFER SIZE 
CONLEN	EQU	0	LENGTH OF CONFIGURATION DATA 
CONSTA	EQU	2	START OF CONFIGURATION DATA
DATEND	EQU	34	END OF DDIV PROTOTYPE 
FSTADR	EQU	20	1ST FREE ADDRESS WHEN ALLOCATING BUFFER 
FSTPAG	EQU	22	1ST FREE PAGE (PHYSICAL)
FYSPAG	EQU	24	LAST PHYSICAL PAGE NUMBER 
LSTADR	EQU	26	LAST ADDRESS WHEN BUILDING DATA PART
MAPLEN	EQU	30	LENGTH OF AREA TO MAP 
MMFROM	EQU	36	2ND MMU TABLE WORK AREA 
MMTO	EQU	38	1:ST MMU TABLE WORK AREA
M:REL	EQU	16	RELOCATION CONSTANT
SYSBUF	EQU	28	START OF TEMPORARY BUFFER 
SWBFSA	EQU	4	SWB-FILE START ADDRESS (2 WORDS) 
SWBFSE	EQU	8	SWB-FILE END ADDRESS (2 WORDS) 
TTAB	EQU	32	WORK AREA FOR MMU TABLE 
COM01	EQU	40	COMMON SAVE AREA 1 
COM02	EQU	42	COMMON SAVE AREA 2 
COM03	EQU	44	COMMON SAVE AREA 3 
TOTSGM	EQU	46	TOTAL NUMBER OF SEGMENTS
SWBFLG	EQU	48	SWAPPPABLE WORK BLOCK FLAG
COM04	EQU	50	COMMON SAVE AREA 4 
DCBLK	EQU	54	START OF DC CONF. DATA 
	EJECT
******************************
*                            *
*  LOCAL DISPLACEMENTS       *
*  AND CONSTANTS             *
*                            *
******************************
			 
			 
APLCNT	EQU	4	NO OF APPLICATIONS TO LOAD 
BLKLEN	EQU	6	SEGMENT BLOCK LENGTH 
CARFIX	EQU	54	CARTRIDGE OR FIX INDICATOR 16M DISC	=9
CBLEN	EQU	256	CASSETTE BUFFER LENGTH
COMLG	EQU	4	LENGTH OF CORE RESIDENT PART
CONDAD	EQU	44	CONF. FILE DISC ADDRESS 
*	EQU	46
CONDEV	EQU	32	SAVE AREA FOR CONF. DATA DEV. 
CURAPL	EQU	24	CURRENT APPL. CONTR. BLOCK
DEVTYP	EQU	50	DEVICE TYPE 
DISCAD	EQU	28	SAVE AREA FOR DISC ADDRESS (2 WORDS)
ECNFBF	EQU	6	END OF CONF. BUFFER
EINPBF	EQU	2	END OF INPUT BUFFER
ESYSTA	EQU	0	END OF SYSTEM AREA 
EXLEN	EQU	4	MONITOR EXTENT LENGTH 
FILCOD	EQU	36	LOAD DEVICE FILE CODE (NOT CASSETTE)
FSTSEC	EQU	16	FIRST SECTOR INDICATOR
IPLDEV	EQU	34	SAVE AREA FOR PGM LOAD DEVICE 
IPLTYP	EQU	48	PGM LOAD DEVICE TYPE
LLDADR	EQU	12	LOGICAL LOAD ADDRESS
LSTREC	EQU	20	LAST RECORD OF CONF. FILE 
LSTASG	EQU	8	LOGICAL START OF FIRST SEGMENT 
MONNO	EQU	22	MONITOR NUMBER 
NCHAID	EQU	8	NO OF CHAR. IN APPL. NAME
NCHTID	EQU	5	NO OF CHAR IN TID RECORD 
NDEVCL	EQU	18	NO OF DEVICE CLASSES
NUMSEG	EQU	10	DISPL. TO NO OF SEGM. IN S:GTAB 
OPTION	EQU	52	SAVE AREA FOR OPTOIN WORD	=2
PAGLG	EQU	8	PAGE LENGTH IN S:GTAB 
PAGSIZ	EQU	/1000	PHYSICAL PAGE SIZE 
PLDADR	EQU	14	PHYSICAL LOAD ADDRESS 
PRGLG1	EQU	2	PROGRAM LENGTH DISPLACEMENT
PSECNL	EQU	40	PHYSICAL SECTOR NUMBER LEAST SIGNIFICANT
PSECNM	EQU	42	PHYSICAL SECTOR NUMBER MOST SIGNIFICANT 
PSECPA	EQU	38	PHYSICAL SECTOR PART (0-2)
REWFLG	EQU	56	REWIND INDICATION	=14 
SEGCNT	EQU	10	SEGMENT COUNTER 
SWPFEL	EQU	14	FILE EXTENT LENGTH
TNBRSG	EQU	26	TOTAL NUMBER OF SEGMENTS
	EJECT
*********************** 
*  CASSETTE HANDLING  * 
*********************** 
CHCR	EQU	/E	DEVICE ADDRESS FOR CASSETTE 
LOCK	EQU	/2	LOCK CASSETTE 
SBOT	EQU	8	SEARCH BEGINNING OF TAPE 
STMF	EQU	/C	SEARCH TAPEMARK FORWARD 
* 
*  DISC/FLEXIBLE DISC HANDLING
* 
BUFLEN	EQU	256	LENGTH OF READ BUFFER
DKBA3	EQU	514	BUFFER LENGTH VERSION A3
RECLEN	EQU	9	CONFIGURATION FILE RECORD LENGTH 
FDCU	EQU	/09	FLEXIBLE DISC CU ADDRESS 
FDIOP	EQU	FDCU+FDCU	MUX ADDRESS 
FORDEV	EQU	48	DISC FORMAT 
MUXCC	EQU	/8080	1:ST MUX WORD 
MXCCD3	EQU	/80C1	BYTE2=NUMBER OF WORDS
QBLFAC	EQU	6	BLOCKING FACTOR
CIO	EQU	/41C0	I/O INSTR. CONF. CONSTANT 
	EJECT
			 
***************************************************************** 
*  CALL-FORMAT, PERFORMS:  CFR      A14,A13                     * 
*                          DATA     [REL-ADDRESS]               * 
*                                                               * 
***************************************************************** 
			 
			 
			 
CALL	FORM	16=/F697,16 
	EJECT
**************************
*  CONDITIONAL ASSEMBLY  *
**************************


* 
*  CONSTANTS EDITED BY SYSGEN 
* 


X:A	EQU	1 
X:B	EQU	1 
X:C	EQU	1 
X:D	EQU	0 
X:E	EQU	0 
X:F	EQU	0		=9 
X:G	EQU	1		=9 

MMUPAG	EQU	0	1-MMU HARDWARE PRESENT 
EDM	EQU	0	1-SUPPORTS EXTENDED MONITORS	=12
CASS	EQU	X:A	1-PROGRAM LOAD DEVICE = CASSETTE 
DISC	EQU	X:B	1-PROGRAM LOAD DEVICE = DISC 
FLDISC	EQU	X:C	1= PROGRAM LOAD DEVICE = FLEXIBLE DISC 
MFDISC	EQU	X:D	1-PROGRAM LOAD DEVICE = MINI FIXED DISC
CDDISC	EQU	X:E	1-PROGRAM LOAD DEVICE=80M CDC DISC 
CDDI16	EQU	X:F	1-PROGRAM LOAD DEVICE = 16M CDC DISC	=9
CFTEST	EQU	X:G	1-TEST OF CONFIGURATION FILE	=9
CFTCAS	EQU	CFTEST+CASS
CFTFLD	EQU	CFTEST+FLDISC
	EJECT
******************************************************
*                                                    *
*          APPLICATION LOAD PART OF SYSLOD           *
*          ===============================           *
*                                                    *
*  ENTRY:  A1 - FORMAT AND DEVICE TYPE             *
*          A2 - PROGRAM LOAD DEVICE                  *
*          A3 - APPLICATION NUMBER                   *
*          A7 - APPLICATION DISC ADDRESS BIT 16-31  * 
*          A8 - APPLICATION DISC ADDRESS BIT  0-15  * 
*          A9 - START OF FREE AREA                   *
*         A13 - MONITOR START ADDRESS                *
*                                                    *
*  EXIT:                                             *
*                                                    *
*  SUBROUTINES:  CASSIN,SOPIN,CHCRIO,LODCOM          *
*                LODSEG,REBUF,MOVBUF,RDBLK,          *
*                CONLOD,CONEX,MOVREV                 *
*                                                    *
******************************************************
SYSLOD	EQU	*
* 
*  SAVE REGISTERS 
* 
	ST	A1,IPLTYP+STKEND	SAVE FORMAT AND DEVICE TYPE
	ST	A2,SCTIPL	SAVE PROGRAM LOAD DEVICE
	ST	A2,IPLDEV+STKEND
	CM	CONDEV+STKEND	RESET CONF. DATA DEV. ADDR. 
	ST	A3,SCTANO	APPLICATION NUMBER
	LDR	A3,P	USE BEGINNING OF SYSLOD 
	SUK	A3,TBLBAS
TBLBAS	EQU	*-2-SYSLOD 
	ST	A3,APLTAB+STKCOM	AS TABLE AREA
	LDK	A1,1	INITIATE NO OF APPL.
	STR	A1,A3	AND SAVE IN TABLE
	ST	A8,APLADA+2,A3	SAVE APPLICATION DISC ADDRESS BIT 0-15 
	ST	A7,APLADA+4,A3	SAVE APPLICATION DISC ADDRESS BIT 16-31
	ST	A9,SCTSFA	SAVE START OF FREE AREA 
	LDKL	A14,SYSLOD
	LDR	A13,P
SYS100	ADKL	A13,SYS110-SYS100	POINTER TO SYS110 
	LD	A1,SCTBUG 
	LDR	A2,A1
	ANK	A2,1	TEST IF DEBUG ADDRESS IS ODD,IF TRUE START
	ABR(NZ)	A1 
* 
SYS110	EQU	*
	LD	A15,SCTSTB	LOAD STACK BASE
	SUKL	A15,4	ADJUST STACK BASE 
* 
*  INDICATE SYSLOD RUNS 
* 
	LDKL	A1,LMP1 
	OTR	A1,0,SOP 
* 
*  INIT POINTER TO SUBROUTINE HANDLER (A13), STACK BASE (A14) 
*  AND ADDRESS TO GETPSW-ROUTINE
* 
	LDR	A8,P	RETURN ADDRESS
	LDKL	A3,REL+2	RELOCATION ROUTINE 
	CFR	A8,A3
	LDKL	A5,/5555	LOAD TEST PATTERN
	LDK	A6,64	INIT PAGE COUNTER
	IFT	MMUPAG=1 
	EJECT
* 
*  EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY 
* 
	SLL	A6,2	UPPER SAVE20=256 KB 
	LDK	A1,0	MMU ENTRY POINTER 
AP:010	EQU	*
	LD	A2,TABBE	GET PAGE ADDRESS 
	SUKL	A2,/400	DECREMENT PHYSICAL PAGE ADDRESS 
	ST	A2,TABBE	STORE IT BACK
	TL	TABBE	LOAD MMU REGISTERS
	EL	A3,PAGSIZ-2,A1	SAVE OLD MEMORY CONTENTS 
	ES	A5,PAGSIZ-2,A1	STORE TEST PATTERN 
	EL	A2,PAGSIZ-2,A1	GET MEMORY CONTENT 
	ES	A3,PAGSIZ-2,A1	RESTORE OLD MEMORY CONTENTS
	CWR	A2,A5	COMPARE WITH TEST PATTERN
	RF(E)	AP:020 
	SUK	A6,4	DECREMENT NUMBER OF PAGES 
	RB	AP:010
* 
*  CHECK IF MMU HARDWARE PRESENT
* 
AP:020	LDKL	A1,/FC00
	ST	A1,MMDDIV,A13	SET 1ST ENTRY IN MMU TABLE AREA 
	TL	MMDDIV,A13	TRY TO LOAD MMU REGISTERS
	TS	MMDDIV,A13	SAVE REGISTERS IN MMU TABLE
	CW	A1,MMDDIV,A13	SUCCESSFUL? 
	RF(E)	AP:030	YES! MMU PRESENT
	LDKL	A1,LMP9 
	CALL	ERROR	INDICATE HARDWARE NOT PRESENT 
AP:030	CM	TABBE	RESET MMU TABLE 
* 
*  END OF EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY
* 
	XIF
	IFT	MMUPAG=0 
	EJECT
AP:100	EQU	*
* 
*  EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY
* 
	LDKL	A1,PAGSIZ-2	START AT /FFFE
AP:110	EQU	*
	SUKL	A1,PAGSIZ	NEXT PHYSICAL PAGE
	LDR*	A2,A1	SAVE OLD MEMORY CONTENT 
	STR	A5,A1	STORE TEST PATTERN 
	CWR*	A5,A1	CHECK IF MEMORY 
	RF(E)	AP:120	MEMORY END FOUND
	SUK	A6,4	DECREMENT NUMBER OF PHYSICAL PAGES
	RB	AP:110
AP:120	EQU	*
	STR	A2,A1	RESTORE OLD MEMORY CONTENT 
* 
*  END OF EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY 
* 
	XIF
	EJECT
* 
*  COMMON EXECUTION PATH
* 
AP:200	EQU	*
	ST	A6,SCTMSZ	SAVE NUMBER OF PHYSICAL PAGES 
	SRL	A6,2	MAKE NO OF 4K FRAMES
	SLL	A6,10	MAKE FRAME ADDRESS 
	ST	A6,SCTEFA	FIRST FRAME TO BE USED
	LDK	A3,0 
	ST	A3,SCTEFA+2	AREA EMPTY IN FIRST FRAME 
	LD	A1,SCTOPT	GET OPTION WORD	=2
	ST	A1,OPTION+STKEND	 	=2 
	ANKL	A1,/FFF	RESET TYPE BITS	=2
	ST	A1,SCTOPT	AND SET AS NEW OPTION	=2
* 
*  INIT POINTER TO READ BUFFER. INIT DEVICE ADDRESS FOR READ-ROUTINE
	LD	A9,SCTSFA	POINTER TO READ BUFFER
	ST	A9,MXBUF	ADDRESS TO READ-BUFFER 
	LD	A1,SCTIPL	GET PROGRAM LOAD DEVICE 
* 
*  INITIALIZE PROGRAM LOAD DEVICE 
* 
	CF	A14,LODDEV
	LDR	A3,A9	SAVE 
	AD	A3,SAVCON	COMPUTE START OF APPL. TABLE
	ST	A3,SCTSFA	STORE IN SYSTAB 
	LDR	A1,A1
	RF(Z)	AP:233	CASSETTE LOADING
* 
	ST	A2,SCTIPL	SET FILE CODE IF RAND. ACC. DEV.
	EJECT
AP:232	EQU	*
	IFT	EDM=1		=12 
* 
*  LOAD MONITOR EXTENTS IF PRESENT
* 
	CF	A14,LODMEX	 LOAD MONITOR EXTENTS
	XIF
* 
*  SCAN CONF. FILE FOR POSSIBLE 
*  APPLICATION DEFINITION BLOCKS
* 
	CF	A14,SCNCON
	LD	A1,APLTAB+STKCOM	GET ADDRESS TO 
	ADK	A1,2	CURRENT APPL. CONTR. BLOCK
	LD	A12,APLADA,A1	MOST SIGN. PART OF DISC ADDRESS 
	LD	A11,APLADA+2,A1	LEAST SIGN. PART OF DISC ADDRESS
	LD	A10,READ	GET SUBROUTINE ADDRESS 
	CFR	A14,A10	READ FIRST SECTOR
AP:233	EQU	*
	LD	A1,APLTAB+STKCOM	GET APPL. TABLE ADDRESS
	LDR*	A6,A1	GET NO OF APPL. TO LOAD 
	NGR	A6,A6	NEGATE AND SAVE
	ST	A6,APLCNT+STKEND	AS COUNTER 
	ADK	A1,2 
	ST	A1,CURAPL+STKEND	CURRENT APPL. CONTROL BLOCK
AP:234	EQU	*
	LD	A7,SCTEFA	GET FIRST FRAME TO USE
	LD	A5,SCTEFA+2	AND AREA EMPTY IN IT
	LD	A1,CURAPL+STKEND	RESTORE APPL. CONTROL BLOCK ADDR.
	EJECT
AP:235	EQU	*
* 
*  SAVE INFORMATION ABOUT THE LOAD MODULE 
* 
	CM	APLLAP,A1	RESET NO OF MMU ENTRIES TO UPDATE 
	CM	APLSEG,A1	RESET PHYSICAL ADDRESS TO FIRST 
	CM	APLSEG+2,A1	CORE RESIDENT SEGMENT 
	CM	APLMMC,A1	CLEAR REL. POSITION OF CONF. DATA 
	CM	APLPSZ,A1	CLEAR SEGMENT SIZE ENTRY	=2 
	CM	TNBRSG+STKEND	CLEAR NBR. OF SEGMENTS	=5 
	LDR*	A6,A9	GET PGM. START ADDRESS (UNSEGMENTED APPL.)
	ST	A6,APLSTA,A1	SAVE 
	LD	A2,SCTOPT	GET OPTION WORD 
	LD	A6,PRGLG1+8,A9	GET PROGRAM TYPE 
	LDKL	A4,/1000	INITIALIZE BIT SETTING (BIT 3=1) 
	CWK	A6,'CR'	CREDIT APPLICATION?
	RF(E)	AP2340 
* 
	SLL	A4,1	BIT SETTING FOR COBOL (BIT 2=1) 
	CWK	A6,'CO'	COBOL APPLICATION? 
	RF(E)	AP2340 
* 
	SLL	A4,1	BIT SETTING FOR BASIC (BIT 1=1) 
	CWK	A6,'BA'	BASIC APLICATION?
	RF(E)	AP2340 
* 
	LDKL	A6,'AS'	SET ASSEMBLER TYPE
	SLL	A4,1	BIT SETTING FOR ASSEMBLER (BIT 0=1) 
AP2340	EQU	*
	ST	A6,APLTYP,A1	SAVE APPLICATION TYPE
	CWK	A6,'AS'	ASSEMBLER ALWAYS ALLOWED	=2
	RF(E)	AP2345	 	=2
	AN	A4,OPTION+STKEND	LOOK IF THIS TYPE ALLOWED	=2 
	RF(NZ)	AP2345	YES	=2 
	LDK	A1,LMP9	NO, WRONG MONITOR OPTION	=2
	CALL	ERROR	 	=2
AP2345	EQU	*	 	=2 
	ORR	A2,A4	SET BIT IN OPTION WORD 
	ST	A2,SCTOPT	AND SAVE
	CWK	A6,'AS'
	RF(E)	AP2350	SKIP IF ASSEMBLER APPL. 
* 
	LD	A3,PAGLG+8,A9	GET DEFINED PAGE SIZE 
	LD	A2,SCTPSZ	GET PREVIOUS VALUE	=13
	SRL	A2,1	MAKE WORD COUNT	=13 
	SRL	A3,1	NEW SIZE IN WORDS	=13 
	CWR	A3,A2	MEW SIZE > OLD?	=13
	RF(NG)	AP2350	NO! USE OLD VALUE	=13
	SLL	A3,1	RESTORE BYTE SIZE	=13 
	ST	A3,SCTPSZ	AND SAVE	=13
	RF	AP2352		=13 
AP2350	EQU	*		=13 
	SLL	A3,1		=13
AP2352	EQU	*		=13 
	IFT	MMUPAG=1 
	EJECT
* 
*  EXECUTION PATH FOR SYSTEMS WITH MMU OPTION 
* 
	CWK	A6,'AS'	ASSEMBLER APPLICATION? 
	ABL(E)	AP:330	YES! NO SEGMENTS 
	LDR	A4,A3	SAVE 
	ANKL	A4,/3FF	EVEN 1K MULTIPLE? 
	RF(Z)	AP:237	YES!
* 
	LDK	A1,LMP8
	CALL	ERROR	INDICATE PAGE SIZE ERROR
* 
AP:237	EQU	*
	LD	A2,NUMSEG+8,A9	NUMBER OF SEGMENTS DEFINED 
* 
AP:238	EQU	*
	ABL(Z)	AP:330	NO SEGMENTS! 
* 
	CF	A14,ALOCSG	RESERVE AREA FOR RESIDENT SEGM.
* 
*  A1 - POINTER TO CURRENT APPL. CONTR. BLOCK 
*  A3 - PAGESIZE IN 1K BLOCKS 
*  A5 - OFFSET WITHIN 4K PAGE 
*  A7 - PAGE FRAME ADDR. (PHYS. ADDR.)
*  A4 - AREA LEFT IN LAST 4K PAGE FRAME 
* 
*  STORE ADDRESS(ES) TO PAGE FRAMES 
*  HOLDING THE FIRST LOGICAL PAGE 
* 
	SRL	A3,10	SEGMENT SIZE IN 1K BLOCKS	=2 
	LDKL	A6,MMEND	GET END OF MMU-TABLE 
	LDKL	A8,16	AND NO OF ENTRIES 
	LDR A4,A5	GET AREA LEFT IN LAST FRAME
AP:295	EQU	*
	SUK	A6,2	DECREMENT MMU ENTRY ADDR. 
	SUKL	A8,1	DECREMENT MMU ENTRY POINTER
	SUK	A3,4	DECREMENT PAGE SIZE WITH FRAME SIZE 
	RB(P)	AP:295 
	RF(Z)	AP:300	EVEN 4K BYTES PAGE
* 
*  RESERVE ONE EXTRA MMU ENTRY
*  WHEN PAGE SIZE IS NOT AN 
*  EVEN MULTIPLE OF 4K
* 
	LD	A3,PAGLG+8,A9	GET PAGE SIZE 
	ANKL	A3,/C00	GET LENGTH IN MODULO 4K 
	CWK	A3,/400	PAGE SIZE = 1K?
	RF(E)	AP:300	YES! ONE ENTRY ENOUGH 
* 
	SUK	A6,2	ALLOCATE ONE ENTRY EXTRA
	SUKL	A8,1
* 
AP:300	EQU	*
	LD	A3,SEGCNT+STKEND	ANY CORE RESIDENT SEGMENTS?
	RF(Z)	AP:310	NO! 
* 
	LDR	A2,A7	GET SEGMENT FRAME ADDRESS
	LDR	A3,A6	SAVE MMU ENTRY 
* 
AP:305	EQU	*
	STR	A2,A3	STORE ADDRESS TO PAGE FRAME
	ADK	A3,2	INCREMENT MMU ENTRY ADDRESS 
	CWK	A3,MMEND	END OF MMU TABLE? 
	RF(E)	AP:310	YES!
* 
	ADKL	A2,/400	INCREMENT PAGE FRAME ADDR.
	RB	AP:305
* 
AP:310	EQU	*
* 
*  SAVE LOGICAL ADDRESS 
*  TO SEGMENT 
* 
	LDR	A2,A8	GET MMU ENTRY
	SLL	A2,12	MOVE TO 4 LEFTMOST BITS
	ST	A2,APLLAP,A1	SAVE IN APPLICATION CONTROL BLOCK
	ORR	A2,A4	CONCATENATE DISPLACEMENT 
	ST	A2,LSTASG+STKEND	AND SAVE AS LOGICAL START ADDR.
	RF	AP:335
* 
*  NO SEGMENTS DEFINED
* 
AP:330	EQU	*
	LDK	A3,0	RESET NO OF MMU ENTRIES TO UPDATE 
	LDKL	A6,MMEND	INITIATE MMU POINTER 
	LDKL	A8,16	AND MMU ENTRY POINTER 
	LDR	A4,A5	AREA LEFT IN LAST FRAME
AP:335	EQU	*
* 
* COMPUTE APPLICATION START ADDRESS 
* 
*  A1 - POINTER TO APPLICATION CONTROL BLOCK
*  A4 - AREA LEFT IN CURRENT PAGE FRAME 
*  A7 - PHYSICAL PAGE ADDRESS 
*  A6 - MMU ENTRY ADDRESS 
*  A8 - CURRENT MMU ENTRY 
* 
	LD	A2,COMLG,A9	COMLG OF CORE RESIDENT PART 
	LD	A3,APLTYP,A1	GET APPLICATION TYPE 
	CWK	A3,'AS'	ASSEMBLER? 
	RF(NE)	AP:336	NO!
* 
	ADK	A2,10	YES, ADD 5 WORDS FOR DEBUGGER
AP:336	EQU	*
	ADK	A2,1 
	ANKL	A2,/FFFE	MAKE EVEN LENGTH 
* 
*  IF APPLICATION IS LARGER THAN
*  60 K BYTES, START ON A 4K
*  BOUNDARY, TO MAKE SURE THAT
*  LOGICAL MEMORY WILL BE 
*  MAXIMAL POSSIBLE.
* 
	LDR	A5,A2
	SRL	A5,12	NO OF 4K BLOCKS
	CWK	A5,15	>60 KBYTES?
	RF(L)	AP:337	NO! 
* 
	LDK	A4,0	START ON A 4K BOUNDARY
	RF	AP:341
* 
AP:337	EQU	*
	ADK	A2,0	RESTORE LENGTH CONDITION
	RF(N)	AP:340	LARGER THAN ONE PAGE
* 
* APPLICATION IS SMALLER THAN 32 K
* BUT IS IT SMALLER THAN AREA LEFT
* IN LAST ALLOCATED PAGE? 
* 
	CWR	A2,A4
	RF(G)	AP:340	LARGER
* 
* APPLICATION LENGTH LESS THAN AREA 
* LEFT IN LAST PAGE 
* COPY FRAME ADDRESS IN NEXT
* MMU ENTRY 
* 
* 
	SUKL	A8,1
	RF(N)	TABOVF	TABBE OVERFLOW! 
* 
	SUK	A6,2 
	STR	A7,A6	UPDATE MMU ENTRY 
	LDR	A5,A2	RESTORE LENGTH OF COMMON PART
	RF	AP:351
* 
AP:340	EQU	*
* 
*  RESERVE ENTRIES IN MMU TABLE FOR 
*  COMMON PART OF APPLICATION 
* 
*  A4 - AREA MAPPED BUT NOT USED
*       IN LAST MMU ENTRY 
*  A2 - LENGTH OF COMMON PART 
	LDR	A4,A4	EMPTY FRAME? 
	RF(Z)	AP:341	YES!
* 
	SUKL	A8,1	NO, ANY MMU ENTRIES LEFT?
	RF(N)	TABOVF	NO! 
* 
	SUK	A6,2	ADVANCE TO NEXT MMU ENTRY 
	STR	A7,A6	AND COPY FRAME ADDRESS 
AP:341	EQU	*
	SUR	A2,A4	SUBTRACT AREA LEFT IN CURRENT FRAME
	LDK	A4,0	RESET AREA LEFT IN LAST FRAME 
	LDR	A5,A2	SAVE REMAINING AREA NEEDED 
	RF(Z)	AP:351	NOTHING LEFT
* 
	SRL	A2,12	CONVERT TO NO OF 4K FRAMES 
	ANKL	A5,/0FFF
	RF(Z)	AP:342	NO REMAINDER
* 
	ADK	A2,1	ALLOCATE ONE MORE ENTRY 
* 
*  UPDTE MMU ENTRIES
* 
AP:342	EQU	*
	SUK	A2,1	MORE ENTRIES TO UPDATE? 
	RF(N)	AP:350	NO! 
* 
	SUKL	A8,1	DECREMENT MMU ENTRY POINTER
	RF(N)	TABOVF	TABLE OVERFLOW! 
* 
	SUK	A6,2	DECREMENT MMU ENTRY ADDR. 
	SUKL	A7,/400	DECREMENT FRAME ADDRESS 
	STR	A7,A6	STORE FRAME ADDRESS
	RB	AP:342
* 
TABOVF	EQU	*
	LDK	A1,LMP7
	CALL	ERROR	SIGNAL TABBE OVERFLOW!
MEMOVF	EQU	*
	LDKL	A1,LMP3 
	CALL ERROR	MEMORY OVERFLOW!
* 
AP:350	EQU	*
* 
	LDR	A5,A5	RESTORE AREA TO USE IN LAST FRAME
	RF(Z)	AP:351 
* 
	LDKL	A4,PAGSIZ	GET FRAME SIZE
AP:351	EQU	*
	SUR	A4,A5	ALLOCATE REMAINIG AREA IN LAST FRAME 
	LDR	A2,A8	GET MMU ENTRY
	SLL	A2,12	MOVE TO FOUR LEFTMOST BITS 
	LDR	A8,A2
	ORR	A8,A4	LOGICAL START ADDRESS
	CWK	A3,'AS'	ASSEMBLER APPLICATION? 
	RF(NE)	AP:352	NO!
* 
	ADKL	A8,10	SKIP FIVE PRECEEDING WORDS
AP:352	EQU	*
	ST	A8,LLDADR+STKEND	SAVE 
	ST	A7,SCTEFA	AND SAVE
	ST	A4,SCTEFA+2	SAVE OFFSET WITHIN FRAME
	ST	A7,APLLDA,A1	SAVE APPLICATION LOAD ADDR. (BIT 0-5)
	ST	A4,APLLDA+2,A1	AND BIT 6-17 
	ST	A7,FYSPAG+STKCOM	SAVE LAST PHYSICAL 
	ST	A4,LSTADR+STKCOM	ADDRESS USED 
	LDR*	A1,A6	GET ADDRESS TO PHYSICAL PAGE
	ANKL	A1,/C000	GREATER THAN 64K?
	RF(Z)	AP:353	NO! 
	LDK	A1,0	UPPER LIMIT 64 KB 
	RF	AP:354
AP:353	EQU	*
	LDR*	A1,A6	GET PHYSICAL ADDRESS
	SLL	A1,2 
	ADR	A1,A4	ADD DISPLACEMENT 
	LD	A2,SCTSFA	GET START OF FREE AREA
	TNM	A1,A2	ON SAME SIDE OF 32K-LIMIT
	RF(NN)	AP3532	YES! 
	CWR	A2,A1
	RF	AP3534
AP3532	CWR	A1,A2
AP3534	EQU	*
	RB(L)	MEMOVF	MEMORY OVERFLOW!
AP:354	EQU	*
	ST	A1,ESYSTA+STKEND	SAVE 
	LD	A10,COMLG,A9	LOAD COMLG OF COMMON PART
	TL	TABBE	LOAD MMU REGISTERS
	XIF
	IFT	MMUPAG=0 
	EJECT
AP:240	EQU	*
* 
*  EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITHOUT MMU OPTION
* 
* 
*  CHECK IF ASSEMBLER APPLICATION 
* 
	CWK	A6,'AS'	ASSEMBLER APPLICATION? 
	RF(E)	AP:275	YES!
	LD	A2,NUMSEG+8,A9	NUMBER OF SEGMENTS 
	RF(Z)	AP:275	NO SEGMENTS!
	CF	A14,ALOCSG	RESERVE AREA FOR SEGMENTS
	LDR	A2,A7	CONFIGURE LOGICAL START ADDR.
	SLL	A2,2	TO FIRST SEGMENT
	ORR	A2,A5
	ST	A2,LSTASG+STKEND
AP:275	EQU	*
	LD	A10,COMLG,A9	GET LENGTH OF COMMON PART
	LD	A3,APLTYP,A1	GET APPLICATION TYPE 
	CWK	A3,'AS'	ASSEMBLER? 
	RF(NE)	AP:276	NO!
* 
	ADKL	A10,10	YES, ADD 5 WORDS FOR DEBUGGER
AP:276	EQU	*
	ADKL	A10,1 
	ANKL	A10,/FFFE	MAKE EVEN LENGTH
	RF(N)	AP:278	APPLICATION IS LARGER THAN FRAME SIZE 
* 
	CWR	A10,A5	APPL. IS SMALLER THAN AREA LEFT IN LAST FRAME 
	RF(NG)	AP:280	YES! 
* 
AP:278	EQU	*
	SUR	A10,A5	SUBTRACT AREA UNUSED IN LAST FRAME
	LDK	A5,0	NO AREA LEFT IN CURRENT FRAME 
	LDR	A2,A10	GET REMAINING LENGTH
	SRL	A2,12	COUNT NO OF 4K BLOCKS
	SRL	A7,10	FRAME ADDRESS AS BLOCK COUNT 
	SUR	A7,A2	SUBTRACT AREA NEEDED 
	RF(N)	MEMOVF	MEMORY OVERFLOW!
* 
	ANKL	A10,/0FFF	ISOLATE POSSIBLE REMAINDER
	RF(Z)	AP:279	NO REMAINDER
* 
	LDKL	A5,PAGSIZ	RESERVE ONE NEW FRAME 
	SUK	A7,1 
	RF(N)	MEMOVF	MEMORY OVERFLOW!
* 
AP:279	EQU	*
	SLL	A7,10	RESTORE FRAME ADDRESS
AP:280	EQU	*
	SUR	A5,A10	ALLOCATE AREA NEEDED IN LAST FRAME
	LDR	A4,A9	SAVE A9
	LDR	A8,A11	SAVE A11
	ST	A7,SCTEFA	AND SAVE
	ST	A5,SCTEFA+2	SAVE DISPLACEMENT WITHIN PAGE 
	ST	A7,APLLDA,A1	SAVE PHYSICAL LOAD ADDR (BIT 0-5)
	ST	A5,APLLDA+2,A1	AND BIT 6-17 OF APPLICATION
	ST	A7,FYSPAG+STKCOM	SAVE LAST PHYSICAL 
	ST	A5,LSTADR+STKCOM	ADDRESS USED 
	SLL	A7,2 
	LDR	A11,A7 
	ORR	A11,A5	MAKE ADDRESS AS A 16 BIT ADDR.
	LD	A9,SCTSFA	GET START OF FREE AREA
	CALL	CMPADR	A11 COMPARED TO A9 
	RF(G)	AP:290 
* 
MEMOVF	EQU	*
	LDKL	A1,LMP3	MEMORY OVERFLOW!
	CALL	ERROR 
* 
AP:290	EQU	*
	CWK	A3,'AS'	ASSEMBLER APPLICATION? 
	RF(NE)	AP:295	NO!
* 
	ADKL	A11,10	SKIP 5 PRECEEDING WORDS
AP:295	EQU	*
	ST	A11,LLDADR+STKEND	SAVE APPL. LOAD ADDRESS 
	LDR	A9,A4	RESTORE A9 
	LDR	A11,A8	RESTORE A11 
	LD	A8,LLDADR+STKEND	A8 - LOGICAL LOAD ADDRESS
	ST	A8,ESYSTA+STKEND	SAVE APPLICATION LOAD-ADDRESS
	LD	A10,COMLG,A9	GET LENGTH OF COMMON PART
	XIF
	EJECT
* 
*  COMMON EXECUTION PATH
* 
*  READ AND RELOCATE CORE RESIDENT PART OF APPLICATION
* 
*  A8 - APPLICATION LOAD ADDRESS
*  A10 - LENGTH OF CORE RESIDENT PART 
* 
AP:355	EQU	*
	LD	A1,CURAPL+STKEND	RESTORE APPL. CONTROL BLOCK POINTER
	ST	A8,APLLAC,A1	SAVE LOGICAL ADDRESS 
	ST	A8,APLREL,A1	SAVE APPLICATION RELOCATION BASE 
	CM	FSTSEC+STKEND	RESET FIRST SECTOR/BLOCK IND. 
	LDKL	A7,240	INITIATE NR OF CODE WORDS/SECT/BLOCK 
	ST	A7,LOD:10	MODIFY INSTRUCTION
	CF	A14,LODCOM	LOAD CORE RESIDENT PART
* 
*  CHECK IF ASSEMBLER APPLICATION 
* 
	LD	A1,CURAPL+STKEND	GET CURRENT APPL. CONTR. BLOCK 
	LD	A2,APLTYP,A1	AND TYPE OF THIS APPL. 
	CWK	A2,'AS'	ASSEMBLER APPLICATION? 
	ABL(E)	AP:400	YES
	LD	A8,LSTASG+STKEND	GET LOGICAL ADDRESS TO FIRST PAGE
	LD	A2,TNBRSG+STKEND	GET NUMBER OF SEGMENTS 
	ABL(Z)	AP:400	NO SEGMENTS IN APPLICATION 
* 
	CM	SEGCNT+STKEND	CLEAR NO OF SEGMENTS PROCESSED
	IFT	MMUPAG=1 
	TS	MMDDIV,A13	SAVE MMU REGISTER CONTENTS 
	XIF
AP:360	EQU	*
* 
*  READ AND RELOCATE THE SEGMENTS 
* 
*  A8 - LOGICAL ADDRESS OF SAVE05 SEGMENT 
*  A10 - SEGMENT LENGTH 
* 
	LD	A3,CURAPL+STKEND	GET APPL. CONTROL BLOCK ADDR.
	LD	A2,APLLAC,A3	GET LOGICAL ADDR. TO APPL. 
	ADKL	A2,BLKLEN+BLKLEN
	LD	A1,SEGCNT+STKEND	GET SEGMENT COUNTER
AP:365	EQU	*
	RF(Z)	AP:370 
	ADK	A2,BLKLEN	NEXT BLOCK 
	SUK	A1,1	DECREMENT BLOCK COUNTER 
	RB	AP:365
AP:370	EQU	*
	LD	A1,SCTIPL	IF LOADING FROM CASSETTE	=14
	SUK	A1,/F0	.	=14 
	RF(N)	AP:376	LOAD THE SEGMENT	=14
* 
*  CHECK IF DISC PAGING 
* 
	LD	A1,SCTOPT	GET OPTION WORD 
	ANK	A1,2	DISC PAGING?
	RF(Z)	AP:376	NO! 
* 
*  CHECK IF CORE RESIDENT SEGMENT 
* 
	CALL	GETCON	GET SEGMENT TYPE 
	LDR	A12,A1	GET MOST SIGNIFICANT PART 
	ANKL	A12,/FF	OF DISC ADDRESS 
	SRL	A1,8	SEGMENT TYPE TO RIGHT BYTE	 
	CCK	A1,'RR'	CORE RESIDENT SEGMENT? 
	RF(E)	AP:376	YES: LOAD THIS SEGMENT! 
* 
*  BYPASS THIS SEGMENT AND CHECK NEXT 
* 
	LD	A1,SEGCNT+STKEND	GET SEGMENT COUNTER
	LD	A2,TNBRSG+STKEND	GET TOTAL NUMBER OF SEGMENTS 
	ADK	A1,1	INCREMENT 
	CWR	A1,A2	LAST SEGMENT?
	ABL(E)	AP:400	YES! 
	ST	A1,SEGCNT+STKEND	SAVE CURRENT SEGMENT NUMBER
	RB	AP:360
AP:375	LDKL	A1,LMP2	DISC I/O ERROR
	CALL	ERROR 
	EJECT
AP:376	EQU	*
	ADK	A2,2	DISC SECTOR ADDRESS 
	LD	A1,SCTIPL	IF CASSETTE LOADING	=14 
	SUK	A1,/F0	.	=14 
	RF(N)	AP378B	SKIP DISC ADDRESS CALCULATION	=14 
	CALL	GETCON	GET DISC SECTOR ADDRESS
	LDR	A11,A1	SAVE
	AD	A11,APLADA+2,A3	ADD LEAST SIGN. PART OF A.D.A.? 
	RF(O)	AP:377	OVERFLOW
	RF	AP:378	NOT OVERFLOW 
AP:377	ADKL	A12,1	INCR. M. S. P. OF DISC ADDRESS
	ANKL	A11,/7FFF	RESET OVERFLOW
AP:378	AD	A12,APLADA,A3	ADD M. S. P. OF A. D. A.
	CWK	A12,255	OVERFLOW?
	RB(G)	AP:375	YES: ILLEGAL DISC ADDRESS!
AP378B	EQU	*	.	=14
	ADK	A2,2	SEGMENT LENGTH
	CALL	GETCON	GET SEGMENT LENGTH 
	LDR	A10,A1	SAVE
	ADKL	A10,1 
	ANKL	A10,/FFFE	MAKE EVEN LENGTH
	ST	A8,LLDADR+STKEND
	CF	A14,LODSEG	LOAD SEGMENT 
	LD	A1,SEGCNT+STKEND	GET SEGMENT COUNTER
	LD	A2,TNBRSG+STKEND	GET TOTAL NUMBER OF SEGMENTS 
	ADK	A1,1	INCREMENT SEGMENT COUNTER 
	CWR	A1,A2	ALL SEGMENTS LOADED? 
	ABL(E)	AP:400	YES! 
	ST	A1,SEGCNT+STKEND	STORE SEGMENT COUNTER
	LD	A3,CURAPL+STKEND	GET CURRENT APPL. CONTROL BLOCK	=2 
	LD	A4,APLPSZ,A3	AND SEGMENT SIZE DEFINED	=2
	IFT	MMUPAG=0 
	ADR	A8,A4	COMPUTE ADDRESS TO NEXT PAGE 
	RB	AP:360
	XIF
	IFT	MMUPAG=1 
	EJECT
AP:379	EQU	*
	LDR	A1,A4	SAVE 
	ANKL	A4,/0C00	GET MODULO 4K DISCRIMINANT 
	RF(Z)	AP:380	NO DISCRIMINANT!
	ADR	A1,A8	COMPUTE LOGICAL ADDRESS TO NEXT PAGE 
	LDR	A4,A1	SAVE 
	ANKL	A4,/0C00	GET MODULO 4K DISCRIMINANT 
	ANKL	A1,/F000	LOGICAL ADDRESS TO NEXT PAGE 
	ANKL	A8,/F000	LOGICAL ADDRESS TO CURRENT PAGE
	SUR	A1,A8	COMPUTE PHYSICAL INCREMENT 
AP:380	EQU	*
	LD	A8,APLLAP,A3	LOGICAL PAGE ADDRESS 
	LDR	A2,A8	SAVE 
	ADR	A8,A4	COMPUTE LOGICAL ADDRESS TO NEXT PAGE 
	SRL	A2,12	MOVE TO 4 RIGHTMOST BITS 
	ADR	A2,A2	2*MMU ENTRY
	ADR	A2,A13 
	ADKL	A2,MMDDIV	MMU ENTRY ADDRESS 
	LDR	A3,A13 
	ADKL	A3,MMDDIV+32
	SRL	A1,2	MAP PHYSICAL ADDRESS ON MMU 
AP:385	EQU	*
	ADRS	A1,A2	LOGICAL ADDRESS TO NEXT PAGE
	ADK	A2,2	NEXT MMU ENTRY
	CWR	A2,A3
	RB(NE)	AP:385
	TL	MMDDIV,A13	LOAD MMU REGISTERS 
	RB	AP:360
* 
	XIF
	EJECT
AP:400	EQU	*
	LD	A1,CURAPL+STKEND	GET CURRENT APPL.CONTROL BLOCK 
	IM	APLCNT+STKEND 
	ABL(Z)	CONLOD	ALL APPLICATIONS LOADED
* 
	ADK	A1,ACBLEN	ADVANCE TO NEXT APPLICATION
	ST	A1,CURAPL+STKEND	APPLICATION CONTROL BLOCK
	LD	A12,APLADA,A1	MOST SIGN. PART OF DISC ADDR. 
	LD	A11,APLADA+2,A1	LEAST SIGN. PART OF DISC ADDR.
	LD	A10,READ	GET SUBROUTINE ADDRESS 
	CFR	A14,A10	READ FIRST SECTOR
	ABL	AP:234 
	EJECT
********************************************* 
*                                           * 
*                                           * 
*                ALOCSG                     * 
*                ======                     * 
*                                           * 
*   RESERVE PAGES FOR RESIDENT SEGMENTS     * 
*                                           * 
*                                           * 
********************************************* 
* 
* 
ALOCSG	EQU	*
	ST	A2,TNBRSG+STKEND	SAVE NUMBER OF SEGMENTS
	CM	REWFLG+STKEND	CLEAR REWIND INDICATION	=14 
	CM	SEGCNT+STKEND	RESET NO OF CORE RESIDENT SEGMENTS
	ST	A3,APLPSZ,A1	SAVE SEGMENT SIZE	=2 
	LD	A4,SCTOPT	GET OPTION WORD 
	SRC	A4,2	DISC PAGING?
	RF(NN)	ALSG04	NO!
* 
	LD	A4,SCTIPL	GET PROGRAM LOAD DEVICE 
	SUK	A4,/F0	CHECK IF CASSETTE 
	RF(N)	ALSG04	CASSETTE - LOAD ALL SEGMENTS! 
* 
*  COMPUTE NUMBER OF CORE RESIDENT PAGES
* 
	LDR	A6,A9	START OF APPLICATION 
	ADK	A6,14	START OF SEGMENT BLOCKS
ALSG00	EQU	*
	ADK	A6,6	NEXT SEGMENT BLOCK
*  LOOK IF OUTSIDE BUFFER 
*  IF SO READ NEXT
*  SECTOR BLOCK 
* 
	LDR	A4,A6	SAVE BUFFER POSITION 
	SUR	A4,A9	RELATIVE POSITION
	CWK	A4,BUFLEN-16	OUTSIDE BUFFER?	=5
	RF(NG)	ALSG01	NO!
* 
	IM	REWFLG+STKEND	SET REWIND INDICATION	=14 
	CF	A14,NXTSEC	READ NEXT SECTOR 
	SUK	A6,BUFLEN-16	COMPENSATE FOR RELOCATION BITS	=5 
			AND RESET BUFFER POSITION	=5 
* 
ALSG01	EQU	*
	LCR	A4,A6	GET SEGMENT TYPE 
	CCK	A4,'RR'	CORE RESIDENT SEGMENT? 
	RF(NE)	ALSG02	NO!
	IM	SEGCNT+STKEND	INCREMENT RESIDENT SEGMENT COUNTER
ALSG02	EQU	*
	SUK	A2,1	MOORE SEGMENTS? 
	RB(NZ)	ALSG00	YES! 
	LD	A2,SEGCNT+STKEND	NUMBER OF RESIDENT SEGMENTS
	RF(Z)	ALSG12	NO RESIDENT SEGMENTS! 
ALSG04	EQU	*
	ST	A2,SEGCNT+STKEND	SAVE NBR OF RESIDENT SEGMENTS
	ADS	A2,SCTNOP	ACKUMULATE NO OF CORE RES. SEGM. 
	LD	A6,SCTOPT	GET OPTION WORD 
	SRC	A6,1 
	RF(NN)	ALSG08	NO MMU IN SYSTEM 
* 
	LDR	A6,A3	GET SEGMENT SIZE 
	ANKL	A6,/FFF 
	RF(NZ)	ALSG08	NOT A MULTIPLE OF 4K BYTES 
* 
	LDR	A5,A5	LOOK IF ALREADY ON A 4K BOUNDARY 
	RF(Z)	ALSG08	YES 
* 
	LDK	A5,0	START ON A 4K BOUNDARY
ALSG08	EQU	*
	LDR	A7,A7	LOOK IF 256 KBYTE MEMORY	=3
	RF(NZ)	ALSG8B	NO!	=3 
	LDKL	A5,PAGSIZ	YES LAST FRAME EMPTY	=3 
	SUKL	A7,/400	BEGINNING OF LAST FRAME	=3
ALSG8B	EQU	*
	ANKL	A5,/1C00	ALWAYS START ON 1K BOUNDARY
	SRL	A3,1	MAKE SEGMENT LENGTH IN WORDS	=2 
	SRL	A5,1	AND REMAINING AREA TOO	=2 
	SRL	A7,10	CONVERT TO NO OF FRAMES	=2 
	LDR	A4,A3	GET SEGMENT SIZE	=2
	NGR	A4,A4	AND CORRESPONDING NEG. VALUE	=2
ALSG09	EQU	*	=2 
	CWR	A5,A3	ENOUGH SPACE LEFT?	=2
	RF(NL)	ALSG10	YES	=2 
	SUK	A7,1	DECREMENT FRAME COUNT	=2
	ADKL	A5,/800	ALLOCATE ANOTHER FRAME	=2 
	RB(P)	ALSG09	LOOK IF ENOUGH	=2 
ALSG10	EQU	*	=2 
	TNM	A5,A3	FREE AREA GREATER THAN 32K WORDS?	=2 
	RF(N)	ALS11A	YES	=2
	SUR	A5,A3	ALLOCATE AREA TO ONE SEGMENT	=2
	RF	ALS11B	=2 
ALS11A	EQU	*	=2 
	ADR	A5,A4	ALLOCATE AREA TO ONE SEGMENT	=2
ALS11B	EQU	*	=2 
	SUK	A2,1	DECREMENT SEGMENT COUNTS	=2 
	RB(NZ)	ALSG09	MORE SEGMENTS	=2 
	LDR	A7,A7	=2 
	ABL(N)	MEMOVF	MEMORY OVERFLOW! 
* 
	SLL	A7,10	RESTORE FRAME ADDRESS
	ST	A7,APLSEG,A1	SAVE PHYSICAL ADDRESS TO 
	SLL	A5,1	RESTORE AREA LEFT IN BYTES	=2 
	SLL	A3,1	RESTORE SEGMENT SIZE IN BYTES	=2
	ST	A5,APLSEG+2,A1	FIRST RESIDENT SEGMENT 
ALSG12	EQU	*
* 
*  REREAD FIRST SECTOR OF APPLICATION 
*  IF S:GTAB IS LARGER THAN ONE SECTOR
* 
	LD	A2,REWFLG+STKEND	DO WE HAVE TO REWIND THE FILE?	=14 
	RF(Z)	ALSG30	NO!	=14 
* 
	IFT	CASS=1		=14
	LD	A2,SCTIPL	IF CASSETTE LOADING	=14 
	SUK	A2,/F0	.	=14 
	RF(NN)	ALSG14	.	=14
* 
*   WE MUST REWIND THE TAPE TO	=14
*   BEGINNING OF APPLICATION	=14
* 
	CALL	PUSH	SAVE REGISTERS	=14 
	LDK	A1,SBOT	SEARCH BEGINNING OF TAPE	=14 
	CF	A14,CHCRIO	.	=14
	LDK	A1,STMF	.	=14
	CF	A14,CHCRIO	SEARCH START OF MONITOR	=14
	LDK	A1,STMF	.	=14
	CF	A14,CHCRIO	SEARCH START OF APPLICATION	=14
	CF	A14,RDBLK	REREAD START OF APPLICATION	=14 
	CALL	POB	RESTORE REGISTERS	=14 
	RF	ALSG30	.	=14
ALSG14	EQU	*	.	=14
	XIF		=14 
	LD	A12,APLADA,A1	GET MOST SIGN. PART OF DISC ADDR. 
	LD	A11,APLADA+2,A1	AND LEAST SIGNIFICANT PART
	CF	A14,NXTSEC	REREAD FIRST SECTOR
ALSG30	EQU	*	.	=14
	RTN	A14
			 
			 
NXTSEC	EQU	*
	CALL	PUSH	SAVE REGISTER CONTENTS 
	LD	A10,READ	READ NEXT SECTOR 
	CFR	A14,A10
	ST	A11,DISCAD+STKEND	SAVE CURRENT SECTOR/BLOCK	=10 
	ST	A12,DISCAD+2+STKEND	ADDRESS	=10 
	CALL	POB	RESTORE FORMER REGISTER CONTENTS
	LD	A11,DISCAD+STKEND	RESTORE CURRENT SECTOR/BLOCK	=10
	LD	A12,DISCAD+2+STKEND	ADDRESS	=10 
	RTN	A14
	IFT	EDM=1		=12 
	EJECT
*********************************************** 
*                                             * 
*  LODMEX - LOAD MONITOR EXTENT(S)            * 
*  ===============================            * 
*                                             * 
*  REFERENCED IN:  SYSLOD                     * 
*                                             * 
*  ENTRY:                                     * 
*                                             * 
*  EXIT:                                      * 
*                                             * 
*  WORK REGISTERS:  A1-A12                    * 
*                                             * 
*  SUBROUTINES:  LODCOM                       * 
*                                             * 
*********************************************** 
LODMEX	EQU	*
	LD	A1,SCTMXS	MONITOR EXTENT TABLE
MSX10	EQU	* 
	RF(Z)	MSX99
* 
	LD	A1,SCTOPT	GET MONITOR OPTION	=12
	SRC	A1,1	LOOK IF MMU OPTION ON	=12 
	RF(N)	MSX15	YES	=12
	LDKL	A1,LMP9	NO, SET ILLEGAL MONITOR OPTION	=12
	CALL	ERROR	.	=12 
MSX15	EQU	*	.	=12 
	CF	A14,GETMON	GET MONITOR DISC ADDRESS 
	LD	A3,MX:NOX,A1	GET NUMBER OF EXTENTS
	LD	A6,MX:NOS,A1	GET NUMBER OF SEGMENT CLUSTERS 
	SLL	A6,1	MAKE BYTE DISPLACEMENT
	ADK	A6,4 
	ADR	A6,A1	FIRST EXTENT BLOCK 
MSX20	EQU	* 
	SUK	A3,1	DECREMENT EXTENT COUNTER
	RF(N)	MSX99	NO MORE EXTENTS
* 
	STR	A3,A15	SAVE NO OF EXTENTS
	ADK	A6,6	NEXT EXTENT BLOCK 
	LD	A7,SCTEFA	RESTORE ADDRESS TO
	LD	A5,SCTEFA+2	END OF FREE AREA
	RF(NZ)	MSX25 
* 
	LDKL	A5,PAGSIZ	EMPTY FRAME, START ON NEXT ONE
	SUKL	A7,/400 
MSX25	EQU	* 
	LD	A2,EXLEN,A6	GET LENGTH OF EXTENT
	ADK	A2,11	RESERV FIVE EXTRA WORDS
	ANKL	A2,/FFFE	MAKE EVEN LENGTH 
	SRL	A7,10	FRAME ADDRESS AS FRAME COUNT 
	ADK	A2,0	EXTENT LENGTH LESS THAN 32K BYTES?
	RF(N)	MSX30	NO 
* 
	CWR	A2,A5	EXTENT LESS THAN AREA LEFT IN FRAME
	RF(L)	MSX40	YES! 
* 
MSX30	EQU	* 
	LDR	A1,A2
	SRL	A1,12	CONVERT LENGTH TO NO OF FRAMES 
	CWK	A1,14	<60K BYTES?
	RF(L)	MSX35	YES! 
* 
	CWK	A5,PAGSIZ	ALREADY ON A 4K BOUNDARY 
	RF(E)	MSX35	YES! 
* 
	LDKL	A5,PAGSIZ	START ON 4K BOUNDARY
	SUK	A7,1 
MSX35	EQU	* 
	SUR	A2,A5	SUBTRACT AREA LEFT IN LAST FRAME 
	LDK	A5,0	AND SET EMPTY FRAME 
	LDR	A1,A2
	SRL	A1,12	CONVERT LENGTH TO NO OF FRAMES 
	SUR	A7,A1	AND SUBTRACT FROM FRAME COUNT
	ABL(N)	MEMOVF	MEMORY OVERFLOW! 
* 
	ANKL	A2,/FFF	ISOLATE AREA LEFT 
	RF(Z)	MSX45
* 
	LDKL	A5,PAGSIZ	TAKE NEXT EMPTY FRAME 
	SUK	A7,1 
MSX40	EQU	* 
	SUR	A5,A2	SUBTACT FROM AREA LEFT IN LAST FRAME 
MSX45	EQU	* 
	CWK	A7,15	LOOK IF FIRST PARTITION
	ABL(NG)	MEMOVF	YES, MEMORY OVERFNGOW!
* 
	ANKL	A5,/FFFC	START ON A 4 BYTE BOUNDARY 
	SLL	A7,10	RESTORE FRAME ADDRESS
	ST	A5,SCTEFA+2	SAVE PHYSICAL ADDRESS 
	ST	A7,SCTEFA	TO END OF FREE AREA 
* 
	LD	A4,SCTMXS	GET MXSTAB ADDRESS
	ADK	A4,2	MONITOR DISC ADDRESS
	XRR	A1,A1	RESET REG. A1
	LDR*	A2,A6	GET MONITOR EXTENT ADDRESS
	DAR*	A4	AND RELOCATE EXTENT ADDRESS
	LDR	A11,A2	GET LEAST SIGNIFICANT PART
	LDR	A12,A1	AND MOST SIGNIFICANT PART 
	LDR	A1,A5
	SRL	A1,2	CONVERT PHYSICAL LOAD ADDRESS 
	ORR	A1,A7	TO A 16 BITS ADDRESS 
	STR	A1,A6	AND SAVE IN MXSTAB 
* 
	ADK	A5,10	SKIP PRECCEDING FIVE WORDS 
	ST	A5,LLDADR+STKEND	SAVE AS PGM LOAD ADDR. (LOGICAL) 
	LDR	A8,A5	SAVE RELOCATION BASE 
	ADS	A5,2,A6	RELOCATE PROGRAM START ADDRESS 
* 
	LD	A10,EXLEN,A6	GET LENGTH OF EXTENT 
	LDK	A3,0	RESET MMU ENTRY COUNTER 
	LDKL	A2,TABBE	GET ADDRESS TO MMU TABLE 
	ST	A3,FSTSEC+STKEND	RESET FIRST SECTOR INDICATOR 
MSX50	EQU	* 
	STR	A7,A2	STORE PAGE ADDRESS 
	ADKL	A7,/400	NEXT PAGE ADDRESS 
	ADK	A2,2	NEXT MMU ENTRY
	ADK	A3,1	INCREMENT ENTRY COUNTER 
	CWK	A3,16	ALL ENTRIES INITIALIZED? 
	RB(NE)	MSX50	NO
* 
	TL	TABBE	LOAD MMU REGISTERS
	CALL	LOD:70	LOAD EXTENT
	LDR*	A3,A15	RESTORE NO OF EXTENTS
	RB	MSX20 
* 
MSX99	EQU	* 
	RTN	A14
	EJECT
*********************************************** 
* 
*               GETMON
*               ======
* 
*   SEARCH FOR MONITOR TO BE USED 
*   AND UPDATE IT'S DISC ADDRESS
*   IN MXSTAB ENTRIES.
* 
************************************************
* 
* 
GETMON	EQU	*
	LD	A1,SCTANO	GET APPLICATION NUMBER
	ST	A1,MONNO+STKEND	SAVE
	CF	A14,GETNBR	GET CORRESPONDING ENTRY IN VTOC
	LC	A1,8,A4	GET CORRESPONDING MONITOR NUMBER
	SLL	A1,8	FORM MONITOR NBR. AND APPL. NBR. '0'
	ST	A1,MONNO+STKEND	AND SAVE
	CF	A14,GETNBR	SEARCH FOR APPL. NBR. 0 (MONITOR)
* 
GTMON2	EQU	*
	LD	A1,MONNO+STKEND	GET MONITOR NO (BIT 0-7)
	CW	A1,8,A4	IS IT THE RIGHT MONITOR?
	RF(E)	GTMON4	YES!
* 
	CF	A14,GTNBR4	NO, CONTINUE TO NEXT MONITOR IN VTOC 
	RB	GTMON2
* 
GTMON4	EQU	*
	LD	A1,SCTMXS	GET MXSTAB ADDRESS
	LD	A2,16,A4	GET MONITOR DISC ADDRESS (BIT 0-15)
	ST	A2,2,A1	AND SAVE IN MXSTAB
	LD	A2,18,A4	AND MONITOR DISC ADDRESS (BIT 16-31) 
	ST	A2,4,A1	AND SAVE IN MXSTAB
	RTN	A14	RETURN 
	EJECT
GETNBR	EQU	*
	CF	A14,GETVLB	READ VOLUME LABEL
GTNBR0	EQU	*
	CF	A14,RDSEC	READ SECTOR 
	LDK	A7,QBLFAC	VTOC BLOCKING FACTOR 
	LDR	A4,A9	START OF RECORD
	LD	A1,MONNO+STKEND	GET APPLICATION NUMBER
GTNBR2	EQU	*
	LCR	A2,A4	GET 1ST CHARACTER IN FILE NAME 
	CCK	A2,/2020	UNUSED? 
	RF(E)	GTNBR4	YES!
* 
	CC	A1,9,A4	SAME APPLICATION NUMBER?
	RF(E)	GTNBR6	YES, RETURN 
* 
GTNBR4	EQU	*
	ADR	A4,A8	GET NEXT RECORD
	ADK	A4,1	BYPASS STATUS CHARACTER 
	SUK	A7,1	MORE RECORDS IN THIS SECTOR?
	RB(P)	GTNBR2	YES!
* 
	RB	GTNBR0	NO, READ NEXT SECTOR 
* 
GTNBR6	EQU	*
	RTN	A14
	XIF
	EJECT
**********************************************************
*                                                        *
*           LOAD CONFIGURATION PART OF SYSLOD            *
*           =================================            *
*                                                        *
*  ENTRY:  A9 - BUFFER ADDRESS                           *
*                                                        *
*  EXIT:                                                 *
*                                                        *
*  SUBROUTINES:  CASSIN,RDBLK,MOVBUF                     *
*                                                        *
**********************************************************
CONLOD	EQU	*
	LD	A1,SCTEFA	GET END OF FREE AREA
	LDR	A2,A1	SAVE 
	ANKL	A1,/3C00	ISOLATE BIT 2-5
	SLL	A1,2	ROTATE TO BIT 0-3 
	ORS	A1,SCTEFA+2	CONCATENATE WITH DISPLACEMENT
	SLC	A2,2	PARTITION NR TO BIT 14,15 
	ANK	A2,3	ISOLATE IT
	ST	A2,SCTEFA	AND SAVE
	LD	A1,CURAPL+STKEND	START OF LAST APPL. CTRL. BLOCK
	ADK	A1,ACBLEN	END OF LAST APPL. CTRL. BLOCK
	ST	A1,SCTSFA	UPDATE START OF FREE AREA 
	LD	A1,APLTAB+STKCOM	GET START OF APPL. CONTR. TABLE
	ADK	A1,2	ADVANCE TO FIRST CONTROL BLOCK
	CM	APLMMC,A1	SET REL. START OF APPL. CONF. DATA
	ADK	A1,ACBLEN	ADVANCE TO NEXT APPLICATION
	ST	A1,CURAPL+STKEND	CONTROL BLOCK
	LD	A1,SCTIPL	GET PROGRAM LOAD DEVICE 
	SUK	A1,/F0	CHECK DEVICE TYPE 
	RF(NN)	CONRAD	NOT CASSETTE 
	IFT	CFTEST+CASS=2
* 
*  PROGRAM LOAD DEVICE = CASSETTE 
* 
CON:30	EQU	*
	LDKL	A1,CON:40-2 
	SUKL	A1,COR:48 
	ADKL	A1,/5700
	ST	A1,COR:48	MODIFY INSTRUCTION
	LDKL	A1,/0100
	ST A1,COR:38	MODIFY
	LDR	A1,A9	START OF BUFFER
	ADKL	A1,BUFLEN	END OF BUFFER 
	ST	A1,PLDADR+STKEND	SAVE END OF BUFFER 
	ST	A1,EINPBF+STKEND	SAVE 
	ST	A1,CONSTA+STKCOM	START OF CONF. DATA
	CF	A14,RDBLK	READ ONE BLOCK
	CF	A14,RDBLK	READ NEXT BLOCK 
	LDR	A8,A9
	LDR	A4,A8	GET START OF BUFFER
	LDR	A1,A1	TAPEMARK?
	RF(Z)	TST:10	NO! 
	CF	A14,CASSIN	INIT CONFIGURATION CASSETTE
	CALL	CON:40
	RF	TST:10
CONEX	EQU	* 
* 
*  UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE
* 
	CF	A14,RDBLK	READ NEXT BLOCK 
	LDR	A1,A1	APPLICATION DATA?
	RF(NZ)	CON:80	NO!
	LDK	A1,/D
	CF	A14,CHCRIO	SEARCH TAPEMARK REVERSE
	CF	A14,RDBLK	BYPASS TAPEMARK 
	RF	CON:90
CON:80	EQU	*
	LDK	A1,/F
	CF	A14,CHCRIO	UNLOAD CASSETTE
CON:90	EQU	*
	ABL	CONMOV 
	XIF
	IFT	CFTEST=1 
	EJECT
CONRAD	EQU	*
* 
*  LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC
* 
	LD	A1,CONDEV+STKEND	GET LOAD DEVICE FOR CONF. DATA 
	RF(Z)	CONRA0	SAME AS PGM LOAD DEVICE 
* 
	CF	A14,CONFLD	INITIATE CONF. DATA LOAD DEV.
CONRA0	EQU	*
	LD	A11,CONDAD+STKEND	GET START SECTOR
	LD	A12,CONDAD+2+STKEND	MOST SIGNIFICANT PART 
	LDR	A1,A9	GET START OF BUFFER
	ADKL	A1,BUFLEN-6	END OF BUFFER 
	ST	A1,PLDADR+STKEND	SAVE END OF BUFFER 
	LDR	A1,A9	GET START OF BUFFER
	AD	A1,SAVCON	START OF SAVE BUFFER
	ST	A1,EINPBF+STKEND	SAVE	=2
	ST	A1,CONSTA+STKCOM	START OF CONF. DATA
	LDKL	A10,0	RESET RECORD COUNTER
* 
*  READ ONE SECTOR FROM RANDOM ACCESS DEVICE
* 
	CALL	READC	READ SECTOR 
* 
*	TEST THE SYNTAX OF THE CONFIGURATION FILE 
* 
TST:10	CALL	T 
	CALL	CONRD 
	CALL	NN
	CALL	CONRD 
	CALL	TID 
	CALL	TEST
	CALL	AA
	CALL	CONRD 
	CALL	TCL 
	CALL	TEST
	CALL	AA
	CALL	CONRD 
	CALL	LEV 
	CALL	TEST
	CALL	NN1 
TST:20	CALL	CONRD 
	CALL	NN1 
	CALL	CONRD 
TST:30	LD	A5,NDEVCL+STKEND	GET NUMBER OF TERMINAL DEV. CLASSES
	CWK	A5,/3030	ZERO? 
	RF(E)	TST:40	YES!
	CALL	SUKASC
	CALL	TDCT
	CALL	TEST
	CALL	NN
	CALL	CONRD 
	CALL	LC
	CALL	TEST
	CALL	NNL 
	CALL	CONRD 
	RB	TST:30
TST:40	EQU	*
	CALL	NN1 
	CALL	CONRD 
TST:50	EQU	*
	LD	A5,NDEVCL+STKEND	GET NUMBER OF SPECIAL DEV. CLASSES 
	CWK	A5,/3030	ZERO? 
	RF(E)	TST:60	YES!
	CALL	SUKASC
	CALL	SDCS
	CALL	TEST
	CALL	NN
	CALL	CONRD 
	RB	TST:50
TST:60	EQU	*
	LCR	A5,A4	GET CHARACTER
	CCK	A5,'TT'	BLOCK TYPE T? (MOD. INSTR.)
TST:70	EQU	*-2
	RB(E)	TST:10	YES!
	LDKL	A3,/FFFF
	ST	A3,TST:70	MODIFY INSTRUCTION TO RF
	CCK	A5,'CC'	BLOCK TYPE C ? 
	RF(NE)	TST:80	NO!
	LDKL	A3,'CC' 
	ST	A3,T:10	MODIFY INSTRUCTION
	CALL	T 
	RB	TST:20
TST:80	EQU	*
	LDR	A1,A5	SAVE FIRST CHARACTER IN RECORD 
	ADK	A4,1	INCREMENT BUFFER POINTER
	LCR	A5,A4	GET CHARACTER
	CCK	A5,';;'	END OF RECORD
	ABL(NE)	CONERR	NO! 
TST:85	EQU	*
	CCK	A1,'AA'	START OF APPL. CONTR. BLOCK? 
	RF(E)	TST:90	YES 
* 
	CCK	A1,'DD'	DATA COMMUNICATION BLOCK?
	RF(NE)	TST:87	NO!
* 
	LD	A1,EINPBF+STKEND	CURRENT POSITION IN CONF. DATA 
	SU	A1,CONSTA+STKCOM	CALCULATE RELATIVE POSITION
	ST	A1,DCBLK+STKCOM	SAVE
TST:87	EQU	*
	CALL	CONRD	MOVE AND GET NEXT RECORD
	LCR	A1,A4	AND FIRST CHAR. IN IT
	RB	TST:85
* 
TST:90	EQU	*
* 
*  APPLICATION CONTROL BLOCK
*  SKIP NAME RECORD AND 
*  SCAN CONFIGURATION DATA
* 
	LDKL	A1,/FF3B	SUBSTITUTE 'A;' WITH 'HEX. FF' AND ';' 
	STR	A1,A8
	LD	A2,CURAPL+STKEND	CURRENT APPL. CONTR. BLOCK 
	LD	A1,EINPBF+STKEND	CURRENT POSITION IN CONF. DATA 
	ADK	A1,1	SKIP BLOCK MARKER 
	SU	A1,CONSTA+STKCOM	CALCULATE RELATIVE POSITION
	ST	A1,APLMMC,A2	AND SAVE AS START OF APPL. CONF. DATA
	ADK	A2,ACBLEN
	ST	A2,CURAPL+STKEND	ADVANCE TO NEXT APPL. CONTR. BLOCK 
	CALL	CONRD	MOVE AND PACK RECORD
	ADKL	A10,1	INCREMENT RECORD COUNTER
	CW	A10,LSTREC+STKEND	LAST RECORD 
	RF(E)	COR:50	YES!
	ADKL	A8,RECLEN+1	INCREMENT RECORD POINTER
	CW	A8,PLDADR+STKEND	END OF BUFFER
	RF(NE)	TST:95
* 
	CALL	READC	READ SECTOR 
TST:95	EQU	*
	LDKL	A1,'TT'	LOOK FOR TASK DEF. BLOCK
	ST	A1,TST:70	MODIFY INSTR. 
	ST	A1,T:10 
	LDR	A4,A8
	ABL	TST:10	SCAN CONF. DATA 
* 
COR:50	EQU	*
	LD	A1,SCTOPT	GET OPTION WORD 
	ANK	A1,8	SWB:S?
	RF(Z)	COR:55	NO
	LDK	A3,'S' 
	SC	A3,GET:25+1	MODIFY INSTRUCTION
	SC	A3,GET:60+1	MODIFY INSTRUCTION
	LD	A1,IPLDEV+STKEND
	CF	A14,LODDEV	INITIALIZE PGM LOAD DEVICE 
	CF	A14,GETFIL
* 
*  UNLOCK FLEXIBLE DISC 
* 
COR:55	EQU	*
	LD	A1,CONDEV+STKEND	GET CONF. DATA LOAD DEVICE 
	RF(Z)	COR:58	SAME AS APPL. LOAD DEVICE 
* 
	LDR	A2,A1
	ANK	A2,/F
	SUK	A2,9 
	RF(NZ)	COR:58	NOT FLEXIBLE DISC
* 
	XIF
	IFT	CFTEST+FLDISC=2
	CF	A14,UNLOCK	UNLOCK FLEXIBLE DISC 
	XIF
	IFT	CFTEST=1 
COR:58	EQU	*
	LD	A1,SCTIPL	GET PROGRAM LOAD DEVICE 
	SUK	A1,/F8	CHECK TYPE
	RF(N)	COR:60	NOT FLEXIBLE DISC 
* 
	XIF
	SUK	A1,/FC-/F8	FLEXIBLE DISC?
	ABL(NN)	COR:60	NO! 
* 
	IFT	CFTEST+FLDISC=2
	LD	A2,SCTOPT	GET OPTION WORD 
	ANK	A1,2	DISC PAGING?
	RF(NZ)	COR:60	YES! DON'T UNLOCK
* 
	LD	A1,IPLDEV+STKEND
	CF	A14,UNLOCK	UNLOCK FLEXIBLE DISC 
	XIF
	IFT	CFTEST=1 
COR:60	EQU	*
	EJECT
CONMOV	EQU	*
* 
*  MOVE CONFIGURATION DATA TO END OF SYSTEM AREA
* 
	CIO	A1,0,SOP	INHIBIT SOP SWITCHES
	LD	A1,CONSTA+STKCOM	GET START OF CONF. DATA
CMOV10	LD	A3,EINPBF+STKEND	GET END OF CONFIGURATION DATA
	LD	A2,ESYSTA+STKEND	GET END OF SYSTEM AREA 
	CM	-2,A2	MAKE SURE CONFIGURATION FILE
	SUK	A2,1	IS FOLLOWED BY X'00'
	SUR	A3,A1	LENGTH OF CONFIGURATION DATA 
	ST	A3,CONLEN+STKCOM	SAVE LENGTH OF CONF. DATA

	SUR	A2,A3	TO-ADDRESS 
* 
	ANKL	A2,/FFFE	MAKE EVEN ADDRESS
	CALL	MOVE
	ST	A2,CONSTA+STKCOM	SAVE START OF CONFIGURATION DATA 
	LD	A1,CONLEN+STKCOM	GET LENGTH OF CONF. DATA 
	ADK	A1,2	INCLUDE TRAILING ZEROES IN LENGTH 
	ANKL	A1,/FFFE	AND MAKE EVEN
	ST	A1,CONLEN+STKCOM
	LDR	A1,A9	GET START OF FREE AREA 
	LDR	A12,A2	END OF FREE AREA
	SUR	A12,A1	SUBTRACT MONITOR END
	ST	A12,M:REL+STKCOM	SAVE RELOCATION CONSTANT 
	LD	A2,SCTMXS	GET MXSTAB ADDRESS
	RF(Z)	CMOV20	NO MXSTAB PRESENT 
* 
	AD	A2,M:REL+STKCOM	RELOCATE MXSTAB ADDRESS 
	ST	A2,SCTMXS	AND SAVE AS NEW ADDRESS 
CMOV20	EQU	*
	LD	A2,CONSTA+STKCOM	GET START OF CONFF 
* 
*  MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA
* 
MOPRO	EQU	* 
	LDKL	A13,SYSLDM
	SUK	A1,2 
	SUK	A2,2 
	LDR*	A4,A1 
	STR	A4,A2
	CWR	A1,A13 
	RB(NE)	MOPRO 
	ABR	A2	CONTINUE EXECUTION IN SYSLDM
	EJECT
*************************************************************** 
*  SUROUTINES USED TO TEST THE SYNTAX OF THE CONFIGURATION FILE 
*************************************************************** 
	EJECT
CONRD	EQU	* 
* 
*  COMPUTE NUMBER OF CHARACTERS IN THIS RECORD
* 
	LD	A1,EINPBF+STKEND	GET CURRENT POINTER IN BUFFER
	LDR	A2,A1	SAVE 
	LDK	A3,0	RESET CHARACTER COUNTER 
	LDR	A4,A8	START OF RECORD
COR:30	EQU	*
	LCR	A5,A4	GET CHARACTER
	CCK	A5,';;'	END OF RECORD? 
	RF(E)	COR:40	YES!
COR:35	EQU	*
	CWK	A3,RECLEN	MAXIMUM SIZE ACHIEVED? 
COR:38	EQU	*-2
	RF(E)	COR:40	YES!
	CW	A1,ESYSTA+STKEND	MEMORY OVERFLOW? 
	RF(E)	MEMOFL	YES!
	ADK	A1,1	INCREMENT BUFFER POINTER
	ADK	A3,1	INCREMENT CHARACTER COUNTER 
	ADK	A4,1	INCREMENT RECORD POINTER
	RB	COR:30	LOOP 
COR:40	EQU	*
	LC	A5,1,A4	GET NEXT CHARACTER
	CCK	A5,';;'	TWO SEMICOLONS?
	RF(NE)	COR:45	NO!
	CWK	A3,NCHTID	CHECK IF END OF RECORD 
	RB(E)	COR:35	NO: SEMICOLON CHARACTER IN RECORD 
COR:45	EQU	*
	ST	A1,EINPBF+STKEND	SAVE CURRENT DESTINATION 
	LDR	A1,A8	START OF RECORD
	CALL	MOVE
COR:48	EQU	*
	ADKL	A10,1	INCREMENT RECORD COUNTER
	CW	A10,LSTREC+STKEND	LAST RECORD 
	ABL(E)	COR:50	YES! 
	ADKL	A8,RECLEN+1	INCREMENT RECORD POINTER
	CW	A8,PLDADR+STKEND	END OF BUFFER
	RF(NE)	COR:10	NO!
	CALL	READC	READ SECTOR 
COR:10	LDR	A4,A8	START OF RECORD
	RTN	A14
	XIF
	IFT	CFTEST+CASS=2
CON:40	EQU	*
	CF	A14,RDBLK	READ NEXT BLOCK 
	LDR	A1,A1	TAPEMARK?
	ABL(NZ)	CONEX	YES! 
	LDR	A8,A9
	LDR	A4,A8	GET START OF BUFFER
	RTN	A14
	XIF
	IFT	CFTEST=1 
MEMOFL	EQU	*
	LDKL	A1,LMP3	INDICATE MEMORY OVERFLOW
	CALL	ERROR 
	EJECT
READC	EQU	* 
	CF	A14,RDSEC	READ SECTOR 
	LDR	A8,A9
	LDR	A4,A8	GET START OF BUFFER
	RTN	A14
T	EQU	* 
	LCR	A5,A4	GET CHARACTER
	CCK	A5,'TT'	BLOCK TYPE T?
T:10	EQU	*-2
	ABL(NE)	CONERR 
	ADK	A4,1	INCREMENT BUFFER POINTER
	LCR A5,A4	GET NEXT CHARACTER 
	CCK	A5,';;'	END OF RECORD? 
	ABL(NE)	CONERR	NO! 
	RTN	A14
	EJECT
NNL	EQU	* 
	LDK	A3,3	NO OF DIGITS IN LINE NUMBER 
	CF	A14,NUMB	LOOK IF LEGAL DIGITS 
	LDR	A1,A1	SET RETURN CONDITION 
	ABL(Z)	CONERR	LINE NUMBER '000' NOT ALLOWED
* 
	LCR	A5,A4	GET NEXT CHARACTER 
	CCK	A5,'LL'	LINE L?
	RF(E)	NN:40	YES! 
	CCK	A5,'RR'	LINE R?
	RF(E)	NN:40	YES! 
	CCK	A5,'AA'	LINE A?
	RF(E)	NN:40	YES! 
	CCK	A5,'SS'	LINE S?
	RF(E)	NN:40	YES! 
	CCK	A5,'PP'	LINE P?
	RF(E)	NN:40	YES! 
	CCK	A5,'VV'	LINE V?
	RF(E)	NN:40
	CCK	A5,'QQ'	LINE Q?
	RF(E)	NN:40	YES! 
	RF	CONERR
NN:40	EQU	* 
	ADK	A4,1	INCREMENT BUFFER POINTER
	RF	NN:50 
* 
NN	EQU	*
	LDK	A3,2	NO OF DIGITS IN NUMBER
	CF	A14,NUMB	LOOK IF LEGAL DIGITS 
	LDR	A1,A1	SET RETURN CONDITION 
	RF(Z)	CONERR	'00' NOT ALLOWED
* 
	RF	NN:50	LOOK IF END IF RECORD 
* 
NN1	EQU	* 
	LDK	A3,2	NO OF DIGITS IN NUMBER
	CF	A14,NUMB	LOOK IF LEGAL DIGITS 
	ST	A5,NDEVCL+STKEND	SAVE NUMBER
NN:50	LCR	A5,A4	GET CHARACTER 
	CCK	A5,';;'	END OF RECORD? 
	RF(NE)	CONERR	NO!
	RTN	A14
	EJECT
AA	EQU	*
	LDK	A3,2 
AA:10	EQU	* 
	LCR	A5,A4	GET CHARACTER
	CCK	A5,/3030	ALPHA-NUMERIC CHARACTER <30?
	RF(L)	CONERR	YES!
	CCK	A5,/3939	ALPHA-NUMERIC CHARACTER > 39? 
	RF(NG)	AA:20	NO! 
	CCK	A5,/4141	ALPHA-NUMERIC CHARACTER < 41? 
	RF(L)	CONERR 
	CCK	A5,/5A5A	ALPHA-NUMERIC CHARACTER > 5A? 
	RF(G)	CONERR 
AA:20	EQU	* 
	ADK	A4,1	INCREMENT BUFFER POINTER
	SUK	A3,1 
	RB(NZ)	AA:10 
	LCR	A5,A4	GET NEXT CHARACTER 
	CCK	A5,';;'	END OF RECORD? 
	RF(NE)	CONERR	NO!
	RTN	A14
	EJECT
TID	EQU	* 
	LDKL	A2,SEQ1	SELECT SEQUENCE 
	LDK	A3,4	GET NUMBER OF CHARACTERS
	RTN	A14
TCL	EQU	* 
	LDKL	A2,SEQ2	SELECT SEQUENCE 
	LDK	A3,4	GET NUMBER OF CHARACTERS
	RTN	A14
LEV	EQU	* 
	LDKL	A2,SEQ3	SELECT SEQUENCE 
	LDK	A3,4	GET NUMBER OF CHARACTERS
	RTN	A14
	EJECT
TDCT	EQU	*
	LDKL	A2,SEQ4	SELECT SEQUENCE 
	LDK	A3,5	GET NUMBER OF CHARACTERS
	RTN	A14
LC	EQU	*
	LDKL	A2,SEQ5	SELECT SEQUENCE 
	LDK	A3,3	GET NUMBER OF CHARACTERS
	RTN	A14
SDCS	EQU	*
	LDKL	A2,SEQ6	SELECT SEQUENCE 
	LDK	A3,5	GET NUMBER OF CHARACTERS
	RTN	A14
	EJECT
TEST	EQU	*
	LCR	A5,A4	GET CHARACTER
	CCR	A5,A2
	RF(NE)	CONERR
	ADK	A4,1	INCREMENT BUFFER POINTER
	ADK	A2,1	INCREMENT SEQUENCE POINTER
	SUK	A3,1	MORE CHARACTERS IN THE SEQUENCE?
	RB(NZ)	TEST	YES! 
	RTN	A14
	EJECT
SUKASC	EQU	*
	CCK	A5,/3030	NUMBER OF NUMERIC CHARACTERS<10?
	RF(NE)	SUK:10	YES! 
	SUK	A5,/F6	N0! 
SUK:10	SUK	A5,1 
	ST	A5,NDEVCL+STKEND	STORE NUMBER OF CLASSES
	RTN	A14
	EJECT
NUMB	EQU	*
	LDK	A1,0	RESET NO OF NON ZERO DIGITS 
NUMB00	EQU	*
	LCR	A5,A4	GET DIGIT IN NUMBER
	ADK	A4,1	INCREMENT BUFFER POINTER
	CCK	A5,/3939	NUMERIC CHARACTER >9? 
	RF(G)	CONERR	YES!
* 
	CCK	A5,/3030	NUMERIC CHARACTER <0? 
	RF(L)	CONERR	YES!
	RF(Z)	NUMB10	NUMERIC CHARACTER =0
* 
	ADK	A1,1	INCREMENT NO OF NON ZERO DIGITS 
NUMB10	EQU	*
	SUK	A3,1	DECREMENT DIGIT COUNTER 
	RF(Z)	NUMB20	ALL DIGITS PROCESSED
* 
	SLL	A5,8	LAST DIGIT TO LEAST SIGN. BYTE
	RB	NUMB00	PROCESS NEXT DIGIT 
* 
NUMB20	EQU	*
	RTN	A14	RETURN 
	EJECT
* 
* 
**************************************************
*                                                *
*     SEQUENCES                                  *
*                                                *
**************************************************
* 
* 
* 
* 
SEQ1	EQU	*	TID= 
	DATA	'TI'
	DATA	'D='
SEQ2	EQU	*	TCL= 
	DATA	'TC'
	DATA	'L='
SEQ3	EQU	*	LEV= 
	DATA	'LE'
	DATA	'V='
SEQ4	EQU	*	TDC=T
	DATA	'TD'
	DATA	'C='
	DATA	'T0'
SEQ5	EQU	*	LC=
	DATA	'LC'
	DATA	'=0'
SEQ6	EQU	*	SDC=S
	DATA	'SD'
	DATA	'C='
	DATA	'S0'
	XIF
	IFT	CFTCAS+CASS=2
* 
*  PROGRAM LOAD DEVICE = CASSETTE 
* 
CON:30	EQU	*
	LDR	A1,A9	START OF BUFFER
	ADKL	A1,BUFLEN	END OF BUFFER 
	ST	A1,PLDADR+STKEND	SAVE END OF BUFFER 
	ST	A1,EINPBF+STKEND	SAVE 
	ST	A1,CONSTA+STKCOM	START OF CONFIGURATION DATA
	CF	A14,RDBLK	READ ONE BLOCK
	CF	A14,RDBLK	READ NEXT BLOCK 
	LDR	A1,A1	TAPEMARK?
	RF(Z)	CON:50	NO! 
	CF	A14,CASSIN	INIT CONFIGURATION CASSETTE
CON:40	EQU	*
	CF	A14,RDBLK	READ NEXT BLOCK 
	LDR	A1,A1	TAPEMARK?
	RF(NZ)	CONEX	YES!
CON:50	EQU	*
* 
*  COMPUTE NUMBER OF CHARACTERS IN THIS BLOCK 
* 
	LD	A1,EINPBF+STKEND	GET CURRENT POINTER IN BUFFER
	LDR	A2,A1	SAVE 
	LDK	A3,0	RESET CHARACTER COUNTER 
	LDR	A4,A9	GET START OF BUFFER
CON:60	EQU	*
	LCR	A5,A4	GET CHARACTER IN BUFFER
	CCK	A5,';;'	CHECK IF SPACE 
	RF(E)	CON:70	NO MOORE CHARACTERS 
CON:65	EQU	*
	CWK	A3,CBLEN	END OF BUFFER?
	RF(E)	CON:75	YES!
	CW	A1,ESYSTA+STKEND	MEMORY OVERFLOW? 
	RF(E)	MEMOFL	YES!
	ADK	A1,1	INCREMENT DESTINATION POINTER 
	ADK	A3,1	INCREMENT CHARACTER COUNTER 
	ADK	A4,1	INCREMENT BUFFER POINTER
	RB	CON:60
CON:70	EQU	*
	LC	A5,1,A4	GET NEXT CHARACTER
	CCK	A5,';;'	TWO SEMI-COLONS? 
	RF(NE)	CON:75	NO!
	CWK	A3,NCHTID	CHECK IF END OF RECORD 
	RB(E)	CON:65	NO: SEMI-COLON CHARACTER IN RECORD
CON:75	EQU	*
	ST	A1,EINPBF+STKEND	SAVE CURRENT DESTINATION 
	LDR	A1,A9	GET START OF BUFFER
	CALL	MOVE
	RB	CON:40
CONEX	EQU	* 
* 
*  UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE
* 
	CF	A14,RDBLK	READ NEXT BLOCK 
	LDR	A1,A1	APPLICATION DATA?
	RF(NZ)	CON:80	NO!
	LDK	A1,/D
	CF	A14,CHCRIO	SEARCH TAPEMARK REVERSE
	CF	A14,RDBLK	BYPASS TAPEMARK 
	RF	CON:90
CON:80	EQU	*
	LDK	A1,/F
	CF	A14,CHCRIO	UNLOAD CASSETTE
CON:90	EQU	*
	ABL	CONMOV 
	XIF
CONERR	EQU	*
	LDKL	A1,LMP4 
	CALL	ERROR 
	IFF	CFTEST=1 
MEMOFL	EQU	*
	LDKL	A1,LMP3	INDICATE MEMORY OVERFLOW
	CALL	ERROR 
	EJECT
CONRAD	EQU	*
* 
*  LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC
* 
	LD	A1,CONDEV+STKEND	GET LOAD DEVICE FOR CONF. DATA 
	RF(Z)	CONRA0	SAME AS PGM LOAD DEVICE 
* 
	CF	A14,CONFLD	INITIATE CONF. DATA LOAD DEV.
CONRA0	EQU	*
	LD	A11,CONDAD+STKEND	GET START SECTOR
	LD	A12,CONDAD+2+STKEND	MOST SIGNIFICANT PART 
	LDR	A1,A9	GET START OF BUFFER
	ADKL	A1,BUFLEN-6	END OF BUFFER 
	ST	A1,PLDADR+STKEND	SAVE END OF BUFFER 
	LDR	A1,A9	GET START OF BUFFER
	AD	A1,SAVCON	START OF SAVE BUFFER
	ST	A1,EINPBF+STKEND	SAVE	=2
	ST	A1,CONSTA+STKCOM
	LDKL	A10,0	RESET RECORD COUNTER
COR:10	EQU	*
* 
*  READ ONE SECTOR FROM RANDOM ACCESS DEVICE
* 
	CF	A14,RDSEC	READ SECTOR 
	LDR	A8,A9	GET START OF BUFFER
COR:20	EQU	*
* 
*  COMPUTE NUMBER OF CHARACTERS IN THIS RECORD
* 
	LD	A1,EINPBF+STKEND	GET CURRENT POINTER IN BUFFER
	LDR	A2,A1	SAVE 
	LDK	A3,0	RESET CHARACTER COUNTER 
	LDR	A4,A8	START OF RECORD
* 
*  LOOK IF WE HAVE AN 
*  APPLICATION CONTROL BLOCK
* 
	LDR*	A5,A4	GET 1ST WORD IN BUFFER
	CWK	A5,'D;'	DATA COMMUNICATION DEF. BLOCK? 
	RF(E)	COR:25	YES!
* 
	CWK	A5,'A;'	AND LOOK IF IT IS 'A;' 
	RF(NE)	COR:30	NO!
* 
	LDKL	A5,/FF3B	YES, SUBSTITUTE A; WITH
	STR	A5,A4	'HEX FF' AND ';' 
	LD	A5,CURAPL+STKEND	GET CURRENT APPL. CONTR. BLOCK 
	ADK	A1,1	SKIP BLOCK MARKER 
	ST	A1,EINPBF+STKEND	SAVE CURRENT BUFFER POSITION 
	SU	A1,CONSTA+STKCOM	AND CALCULATE RELATIVE POSITION
	ST	A1,APLMMC,A5	SAVE IN APPL. CONTROL BLOCK
	LDR	A1,A8	START OF RECORD
	ADK	A3,1	INCREMENT NO OF CHARACTERS TO MOVE
	CALL	MOVE
	ADKL	A10,2	SKIP NEXT RECORD
* 
	ADKL	A8,RECLEN+1	INCREMENT RECORD POINTER
	CW	A8,PLDADR+STKEND	END OF BUFFER? 
	RF(L)	COR:48	NO! 
* 
	CF	A14,RDSEC	YES, READ NEXT SECTOR 
	LDR	A8,A9	AND GET START OF BUFFER
	RF	COR:48
* 
COR:25	EQU	*
	LD	A5,EINPBF+STKEND	CURRENT POSITION IN CONF. DATA	=6
	SU	A5,CONSTA+STKCOM	CALCULATE RELATIVE POSITION	=6 
	ST	A5,DCBLK+STKCOM	SAVE	=6 
COR:30	EQU	*
	LCR	A5,A4	GET CHARACTER
	CCK	A5,';;'	END OF RECORD? 
	RF(E)	COR:40	YES!
COR:35	EQU	*
	CWK	A3,RECLEN	MAXIMUM SIZE ACHIEVED? 
	RF(E)	COR:40	YES!
	CW	A1,ESYSTA+STKEND	MEMORY OVERFLOW? 
	RB(E)	MEMOFL	YES!
	ADK	A1,1	INCREMENT BUFFER POINTER
	ADK	A3,1	INCREMENT CHARACTER COUNTER 
	ADK	A4,1	INCREMENT RECORD POINTER
	RB	COR:30	LOOP 
COR:40	EQU	*
	LC	A5,1,A4	GET NEXT CHARACTER
	CCK	A5,';;'	TWO SEMICOLONS?
	RF(NE)	COR:45	NO!
	CWK	A3,NCHTID	CHECK IF END OF RECORD 
	RB(E)	COR:35	NO: SEMICOLON CHARACTER IN RECORD 
COR:45	EQU	*
	ST	A1,EINPBF+STKEND	SAVE CURRENT DESTINATION 
	LDR	A1,A8	START OF RECORD
	CALL	MOVE
	ADKL	A10,1	INCREMENT RECORD COUNTER
	CW	A10,LSTREC+STKEND	LAST RECORD 
	RF(E)	COR:50	YES!
COR:48	EQU	*
	ADKL	A8,RECLEN+1	INCREMENT RECORD POINTER
	CW	A8,PLDADR+STKEND	END OF BUFFER
	RB(E)	COR:10	NEXT SECTOR 
	RB	COR:20	NEXT RECORD
COR:50	EQU	*
	LD	A1,SCTOPT	GET OPTION WORD 
	ANK	A1,8	SWB:S?
	RF(Z)	COR:55	NO
	LDK	A3,'S' 
	SC	A3,GET:25+1	MODIFY INSTRUCTION
	SC	A3,GET:60+1	MODIFY INSTRUCTION
	LD	A1,IPLDEV+STKEND
	CF	A14,LODDEV	INITIALIZE PGM LOAD DEVICE 
	CF	A14,GETFIL
* 
*  UNLOCK FLEXIBLE DISC 
* 
COR:55	EQU	*
	LD	A1,CONDEV+STKEND	GET CONF. DATA LOAD DEVICE 
	RF(Z)	COR:58	SAME AS APPL. LOAD DEVICE 
* 
	LDR	A2,A1
	ANK	A2,/F
	SUK	A2,9 
	RF(NZ)	COR:58	NOT FLEXIBLE DISC
	XIF
	IFT	CFTFLD+FLDISC=2
	CF	A14,UNLOCK	UNLOCK FLEXIBLE DISC 
	XIF
	IFF	CFTEST=1 
COR:58	EQU	*
	LD	A1,SCTIPL	GET PROGRAM LOAD DEVICE 
	SUK	A1,/F8	CHECK TYPE
	RF(N)	COR:60	NOT FLEXIBLE DISC 
* 
	SUK	A1,/FC-/F8	FLEXIBLE DISC?
	RF(NN)	COR:60	NO!
* 
	XIF
	IFT	CFTFLD+FLDISC=2
	LD	A2,SCTOPT	GET OPTION WORD 
	ANK	A1,2	DISC PAGING?
	RF(NZ)	COR:60	YES! DON'T UNLOCK
* 
	LD	A1,IPLDEV+STKEND
	CF	A14,UNLOCK	UNLOCK FLEXIBLE DISC 
	XIF
	IFF	CFTEST=1 
	IFF	CFTEST=1 
COR:60	EQU	*
	EJECT
CONMOV	EQU	*
* 
*  MOVE CONFIGURATION DATA TO END OF SYSTEM AREA
* 
	CIO	A1,0,SOP	INHIBIT SOP SWITCHES
	LDR	A1,A9	GET START OF BUFFER
	AD	A1,SAVCON	COMPUTE END OF BUFFER 
CMOV10	LD	A3,EINPBF+STKEND	GET END OF CONFIGURATION DATA
	LD	A2,ESYSTA+STKEND	GET END OF SYSTEM AREA 
	CM	-2,A2	MAKE SURE CONFIGURATION FILE
	SUK	A2,1	IS FOLLOWED BY X'00'
	SUR	A3,A1	LENGTH OF CONFIGURATION DATA 
	ST	A3,CONLEN+STKCOM	SAVE LENGTH OF CONF. DATA
	SUR	A2,A3	TO-ADDRESS 
* 
	ANKL	A2,/FFFE	MAKE EVEN ADDRESS
	CALL	MOVE
	ST	A2,CONSTA+STKCOM	SAVE START OF CONFIGURATION DATA 
	LD	A1,CONLEN+STKCOM	GET LENGTH OF CONF. DATA 
	ADK	A1,2	INCLUDE TRAILING ZEROES IN LENGTH 
	ANKL	A1,/FFFE	AND MAKE EVEN
	ST	A1,CONLEN+STKCOM
	LDR	A1,A9	GET START OF FREE AREA 
	LDR	A12,A2	END OF FREE AREA
	SUR	A12,A1	SUBTRACT MONITOR END
	ST	A12,M:REL+STKCOM	SAVE RELOCATION CONSTANT 
	LD	A2,SCTMXS	GET MXSTAB ADDRESS	=1 
	RF(Z)	CMOV20	NO MXSTAB PRESENT	=1
*		 	=1 
	ADR	A2,A12	RELOCATE MXSTAB ADDRESS	=1
	ST	A2,SCTMXS	AND SAVE AS NEW ADDRESS	=1
CMOV20	EQU	*	 	=1 
	LD	A2,CONSTA+STKCOM	GET START OF CONFF 
* 
*  MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA
* 
MOPRO	EQU	* 
	LDKL	A13,SYSLDM
	SUK	A1,2 
	SUK	A2,2 
	LDR*	A4,A1 
	STR	A4,A2
	CWR	A1,A13 
	RB(NE)	MOPRO 
	ABR	A2	CONTINUE EXECUTION IN SYSLDM
	XIF
	EJECT
************************************************************************
*  SUBROUTINES USED IN THE APPLICATION AND CONFIGURATION LOADING PHASE O
************************************************************************
******************************* 
*  SOPIN - READ SOP SWITCHES  * 
*  =========================  * 
*                             * 
*  ENTRY:                     * 
*                             * 
*  EXIT:  A1 - SOP INPUT      * 
*         BIT 6 - SWITCH 1    * 
*         BIT 15 - SWITCH 10  * 
*                             * 
*  WORK REGISTERS:  A1        * 
*                             * 
*  SUBROUTINES:               * 
*                             * 
******************************* 
SOPIN	EQU	* 
	CIO	A1,1,SOP 
	INR	A1,0,SOP 
	RB(NA)	*-2 
	RTN	A14
	EJECT
*********************************** 
*                                 * 
*	LODDEV - INITIAZE LOAD UNIT     * 
*	===========================     * 
*                                 * 
*	USED FOR CONFIGURATION OF       * 
*	PROGRAM LOAD DEVICE AND         * 
*	CONFIGURATION DATA LOAD         * 
*	DEVICE (IF DIFFERENT).          * 
*                                 * 
*	ON ENTRY: A1=DEVICE ADDRESS     * 
*	ON EXIT:  A2=FILE CODE          * 
*                                 * 
*********************************** 


LODDEV	EQU	*
	LDKL	A3,BUFLEN 
	ST	A3,SAVCON	INITIALIZE BUFFER LENGTH
	LDKL	A2,-1 
	ST	A2,CYLNBR	SET SEEK CONDITION
	LDR	A2,A1
	ANK	A2,/80	CHECK IF CASSETTE	=9
	RF(P)	CASS:0	YES!
* 
	LDR	A2,A1	GET PROGRAM LOAD DEVICE
	SRL	A2,4	BIT15 INDICATE UNIT 1 OR 2
	LC	A3,IPLTYP+1+STKEND	GET DEVICE TYPE
	ANK	A3,/FF 
	SUK	A3,3 
	RF(N)	DISC:0	DISC
	RF(Z)	MFD:0	MINI FIXED DISC
	SUK	A3,3		=9 
	RF(N)	CDC:0	80M CDC DISC 
	RF	FLEX:0	FLEXIBLE DISC
	EJECT
CASS:0	EQU	*
	IFT	CASS=1 
* 
*  PROGRAM LOAD DEVICE = CASSETTE 
* 
	LD	A1,APLTAB+STKCOM	GET CURRENT APPLICATION CONTR. BLOCK 
	CM	APLADA+2,A1	CLEAR APPLICATION DISC
	CM	APLADA+4,A1	FILE ADDRESS ENTRIES
	LDKL	A1,RDBLK	GET SUBROUTINE ADDRESS 
	LDR	A10,A1 
	ST	A1,READ	STORE IN PROGRAM LOAD SUBROUTINE
CASS:2	EQU	*
	CF	A14,RDBLK	READ ONE CASSETTE BLOCK 
	LDR	A1,A1	TAPE MARK? 
	RF(Z)	FINIS	RETURN 
* 
	CF	A14,CASSIN	INIT APPLICATION CASSETTE
	RB	CASS:2
	XIF
	IFF	CASS=1 
	LDKL	A1,LMP9 
	CALL	ERROR	ILLEGAL MONITOR OPTION
	XIF
	EJECT
FLEX:0	EQU	*
	IFT	FLDISC=1 
* 
*  PROGRAM LOAD DEVICE = FLEXIBLE DISC
* 
* 
*  MODIFY SCTIPL: /F8 - DRIVE 1, /F9 - DRIVE 2
* 
	ORK 	A2,/F8
	ST	A2,FILCOD+STKEND	SAVE FILE CODE 
* 
*  INIT FLEXIBLE DISC 
* 
	CF	A14,FDINIT
	RF	FINISH
* 
	XIF
	IFF	FLDISC=1 
	LDKL	A1,LMP9 
	CALL	ERROR	ILLEGAL MONITOR OPTION
	XIF
	EJECT
MFD:0	EQU	* 
	IFT	MFDISC=1 
* 
*	PROGRAM LOAD DEVICE = MINI FIXED DISC 
* 
*	MODIFY SCTIPL:/F4-DRIVE 1,/F5-DRIVE 2 
* 
	ORK	A2,/F4 
	ST	A2,FILCOD+STKEND	SAVE FILE CODE 
* 
*	INIT MINI FIXED DISC
* 
	CF	A14,MDINIT
	RF	FINISH	RETURN 
* 
	XIF
	IFF	MFDISC=1 
	LDKL	A1,LMP9 
	CALL	ERROR	ILLEGAL MONITOR OPTION
	XIF
	EJECT
DISC:0	EQU	*
	IFT	DISC=1 
* 
*  PROGRAM LOAD DEVICE = DISC 
* 
* 
*  MODIFY SCTIPL: /F1 - CARTRIDGE DISC /F0 - FIX DISC 
* 
	LC	A2,FCTAB,A2	LOAD FILE CODE	=5 
	ST	A2,FILCOD+STKEND	SAVE FILE CODE 
* 
*  INITIALIZE DISC COMMANDS 
* 
	CF	A14,DUINIT
	XIF
	IFF	DISC=1 
	LDKL	A1,LMP9 
	CALL	ERROR 
	XIF
FINISH	EQU	*
	LDK	A1,1	A1#0 MEANS RANDOM ACCESS DEVICE 
FINIS	EQU	* 
	LD	A2,FILCOD+STKEND	RESTORE FILE CODE
	RTN	A14
	EJECT
CDC:0	EQU	* 
	IFF	CDDISC+CDDI16=0
* 
*	PROGRAM LOAD DEVICE = 16M OR 80M CDC DISC 
* 
* 
*	MODIFY SCTIPL: /FC - /FD
* 
	SRC	A2,2	TEST IF UNIT 1 OR 2	=9
	RF(NN)	CDC:1	UNIT 1	=9 
	ADK	A2,2		=9 
CDC:1	EQU	*		=9 
	ANK	A2,7	MASK BITS NOT USED	=9 
	ORK	A2,/FC	FILE CODE 
	ST	A2,FILCOD+STKEND	SAVE FILE CODE 
* 
*	INITIALISE DISC COMMANDS
* 
	CF	A14,CDINIT	INIT DEVICE
	RB	FINISH	RETURN 
	XIF
	IFT	CDDISC+CDDI16=0		=9
	LDKL	A1,LMP9 
	CALL	ERROR	ILLEGAL MONITOR OPTION
	XIF
	EJECT
******************************************************* 
*                                                     * 
*      CONFLD - SELECT LOAD UNIT FOR CONF. DATA       * 
*      ========================================       * 
*                                                     * 
*      ON ENTRY:  A1 = DEVICE ADDRESS                 * 
*                                                     * 
******************************************************* 


CONFLD	EQU	*
	LDKL	A2,-1 
	ST	A2,CYLNBR	SET SEEK CONDITION
	LDR	A2,A1	SAVE DEVICE ADDRESS
	ANK	A2,/F	ISOLATE LAST DIGIT 
	SUK	A2,7 
	RB(N)	MFD:0	MINI FIXED DISC
* 
	RB(Z)	CDC:0	80M CDC DISC 
* 
	SUK	A2,1 
	RB(Z)	DISC:0	DISC DEVICE 
* 
	RB	FLEX:0	FLEXIBLE DISC DEVICE 
	EJECT
	IFT	CASS=1 
******************************************************* 
*        CASSIN - CASSETTE INITIATING ROUTINE         * 
*        ====================================         * 
*                                                     * 
*  REFERENCED IN:  SYSLOD -LOADING PART-              * 
*                                                     * 
*  ENTRY:                                             * 
*                                                     * 
*  EXIT:                                              * 
*                                                     * 
*  WORK REGISTERS:  A1,A3                             * 
*                                                     * 
*  SUBROUTINES:  SOPIN,CHCRIO                         * 
*                                                     * 
******************************************************* 
CASSIN	EQU	*
	LDK	A1,/F
	CF	A14,CHCRIO	UNLOAD CASSETTE
	LDKL	A3,LMP1+LMP2	INDICATE EXPECTED SWITCHES 
	OTR	A3,0,SOP 
CAS:10	EQU	*
	CF	A14,SOPIN	READ SOP
	ANKL	A1,/0300	ALLOWED SWITCHES?
	RB(Z)	CAS:10	NO! 
	LDKL	A3,LMP1	SWITCH ON LOAD LAMP 
	OTR	A3,0,SOP 
	SRL	A1,8	RIGHT ALIGN 
	ANK	A1,1	SELECT UNIT 
	CF	A14,CHCRIO	SELECT UNIT
	LDK	A1,LOCK
	CF	A14,CHCRIO	LOCK CASSETTE
	ANK	A3,1	CASSETTE OPERABLE?
	RB(NZ)	CAS:10	NO!
	LDK	A1,SBOT		
	CF	A14,CHCRIO	SEARCH BEGINNING OF TAPE 
	LDK	A1,STMF
	CF	A14,CHCRIO	SEARCH TAPEMARK FORWARD
	RTN	A14
	EJECT
********************************************* 
*  CHCRIO - CASSETTE I/O EXECUTING ROUTINE  * 
*  =======================================  * 
*                                           * 
*  REFERENCED IN:  CASSIN,SYSLOD            * 
*                                           * 
*  ENTRY:  A1 - I/O INSTRUCTION COMMAND     * 
*                                           * 
*  EXIT:                                    * 
*                                           * 
*  WORK REGISTERS:  A1,A3                   * 
*                                           * 
*  SUBROUTINES:                             * 
*                                           * 
********************************************* 
CHCRIO	EQU	*
	CIO	A1,1,CHCR
	SST	A3,CHCR
	RB(NA)	CHCRIO
	RTN	A14
	EJECT
**************************************************
*                                                *
*        RDBLK - READ ONE CASSETTE BLOCK         *
*        ===============================         *
*                                                *
*  REFERENCED IN:  SYSLOD                        *
*                                                *
*  ENTRY:  A9 - CASSETTE BUFFER POINTER          *
*                                                *
*  EXIT:  A2 - NUMBER OF CHARACTERS IN BLOCK     *
*                                                *
*  WORK REGISTERS: A1,A2,A3,A4,A5                   * 
*                                                *
*  SUBROUTINES:                                  *
**************************************************
RDBLK	EQU	* 
	LDK	A5,0 
RDB:10	EQU	*
	LDR	A3,A9	START OF BUFFER
	LDK	A2,0	RESET CHARACTER COUNTER 
	LDR	A4,A3	SAVE START OF BUFFER 
	ADKL	A3,CBLEN	END OF BUFFER
	LDK	A1,/A
	CIO	A1,1,CHCR	READ BLOCK 
	RF(NA)	RDERR3
RDB:20	EQU	*
	INR	A1,0,CHCR
	RF(NA)	RDB:30
	CWR	A4,A3	END OF BUFFER? 
	RF(E)	RDERR	YES! 
	SCR	A1,A4	STORE CHARACTER
	ADK	A2,1	INCREMENT CHARACTER COUNTER 
	ADK	A4,1	INCREMENT BUFFER POINTER
RDB:30	EQU	*
	SST	A1,CHCR		
	RB(NA)	RDB:20
	ANKL	A1,/FCFF	CHECK STATUS 
	LDR	A4,A1	SAVE STATUS
	RF(Z)	RDBEX	OK 
	SLC	A4,3	CHECK IF TAPEMARK 
	RF(N)	RDBEX	OK IF TAPEMARK 
RDERR	EQU	* 
* 
*  READ ERROR HAS OCCURRED: MAKE ANOTHER ATTEMPT TO READ
*  THE SAME BLOCK IF NOT 3 ATTEMPTS ALREADY HAS BEEN MADE 
* 
	ADK	A5,1	NEXT ATTEMPT
	CWK	A5,3	THIRD ATTEMPT?
	RF(E)	RDERR3	YES - GIVE UP!
	LDK	A1,/E	REVERSE ONE BLOCK
	CIO	A1,1,CHCR	EXECUTE ORDER
	RB(NA)	*-2	LOOP UNTIL ACCEPTED 
	RB	RDB:10
RDERR3	EQU	*
	LDKL	A1,LMP2 
	CALL	ERROR 
RDBEX	EQU	* 
	RTN	A14
	XIF
	IFT	DISC=1 
	EJECT
*********************************** 
*                                 * 
*  DUINIT - INITIALIZE DISC UNIT  * 
*  =============================  * 
*                                 * 
*  REFERENCED IN: SYSLOD,GETFIL   * 
*                                 * 
*  ENTRY: A1 - DEVICE ADDRESS     * 
*                                 * 
*  EXIT:                          * 
*                                 * 
*  WORK REGISTERS: A2,A3             *
*                                 * 
*  SUBROUTINES:                   * 
*                                 * 
*********************************** 

DUINIT	EQU	*
	LDKL	A2,RDSEC2	GET SUBROUTINE ADDRESS
	LDR	A5,A1	SAVE FILE CODE 
	EJECT
* 
*	INIT DISC COMMANDS VERSION A2 
* 
	ORKL	A1,CIO+8	CONF. CIO A1,1,XX INSTR. 
	ST	A1,SEEK20 
	ORKL	A1,/800	FORM SST A1,XX INSTR. 
	ST	A1,SEEK21 
	XRKL	A1,/B00	FORM CIO A2,1,XX INSTR. 
	ST	A1,READ21 
	ORKL	A1,/800	FORM SST A2,XX INSTR
	ST	A1,READ22 
	ST	A2,READ	INIT SUBROUTINE ADDRESSES 
	ST	A2,READS
	LDK	A2,4 
	XRS	A2,CRCCHK	DISCARD CRC CHECK
	CF	A14,GETVLB	GET VOLUME LABEL 
	LDK	A2,4 
	ORS	A2,CRCCHK	SET CRC CHECK
	LC	A2,FORDEV,A9	GET FORMAT 
	ANK	A2,1 
	RF(Z)	DUI:50	FORMAT A2 
* 
	LDR	A1,A5	RESTORE FILE  CODE 
	LDKL	A2,RDSEC3	GET SUBROUTINE ADDRESS
* 
*	INIT DISC COMMANDS VERSION A3 
* 
	LDKL	A3,DKBA3	BUFFER LENGTH VERSION A3 
	ST	A3,SAVCON	BUFFER LENGTH VERSION A3
	ORKL	A1,CIO+8
	XRKL	A1,/500	CONFIG. CIO A4,1,XX INSTR.
	ST	A1,SEEK30 
	ORKL	A1,/800	FORM SST A4,XX INSTR. 
	ST	A1,SEEK31 
	XRKL	A1,/E00	FORM CIO A2,1,XX INSTR. 
	ST	A1,READ30 
	ORKL	A1,/800	FORM SST A2,XX INSTR. 
	ST	A1,READ31 
* 
*  INIT SUBROUTINE ADDRESSES
* 
DUI:40	ST	A2,READ	READ PROGRAM
	ST	A2,READS	READ CONFIGURATION DATA
DUI:50	EQU	*
	RTN	A14
	EJECT
*********************************************** 
*                                             * 
*  RDSEC - READ ONE SECTOR FROM DISC          * 
*  =================================          * 
*                                             * 
*  REFERENCED IN: SYSLOD                      * 
*                                             * 
*  ENTRY:  A9 = BUFFER ADDRESS
*                                             * 
*         A11 - SECTOR NUMBER                 * 
*                                             * 
*  EXIT:                                      * 
*                                             * 
*   WORK REGISTERS:  A1,A2,A3,A4,A7 
*                                             * 
*  SUBROUTINES:  ERROR                        * 
*                                             * 
*********************************************** 
* 
	EJECT
* 
*	READ DISC SECTOR VERSION A2 
* 
RDSEC2	EQU	*
	LDK	A2,0 
	LDR	A1,A11	GET LOGICAL SECTOR NUMBER 
DIV200	EQU	*
	ADR	A2,A1
	SRL	A1,5 
	RB(NZ)	DIV200	MORE IN SERIE TO ADD 
	LDR	A1,A2
	ANKL	A1,/FFE0
	SRL	A2,5 
	SUR	A1,A2
	SUR	A1,A11 
	ADK	A1,31
	RF(P)	DIV210	NO CORRECTION OF RESULT 
	ADK	A2,1 
DIV210	EQU	*
	LDR	A2,A2	A2:=CYL NBR = LOG SEC NBR / 31 
	RF(Z)	DIV220	CYLINDER 0
	ADK	A2,1 
DIV220	EQU	*
	ADR	A2,A11	A2:=PHYS. SEC NBR BEFORE INTERLACING
* 
	LDR	A1,A2
	SRL	A1,5 
	CW	A1,CYLNBR 
	RF(E)	INT200	SAME CYLINDER NUMBER
	ST	A1,CYLNBR 
	SLL	A1,3 
	ORK	A1,2	SET BIT 14
	EJECT
* 
*	SEEK CYLINDER 
* 
SEEK20	CIO	A1,1,0 
	RB(NA)	SEEK20
* 
SEEK21	SST	A1,0 
	RB(NA)	SEEK21
* 
*	INTERLACING 
* 
INT200	EQU	*
	LDR	A1,A2
	ADR	A2,A2
	ADR	A2,A1	INTERLACING FACTOR 3 
	ANK	A2,/1F 
	LD	A1,CYLNBR	GET CYLINDER NUMBER 
	ANK	A1,1 
	RF(Z)	INT210	EVEN CYLINDER 
	ADK	A2,8 
INT210	EQU	*
	ANK	A2,/1F 
	SLL	A2,2	PHYSICAL SECTOR AND ORDER CODE
	ST	A2,SECNBR 
	EJECT
* 
*	READ SECTOR 
* 
	LDR	A1,A9	BUFFER ADDRESS 
READ20	LDKL	A4,MUXCC	NUMBER OF WORDS
WERIO2	WER	A4,/10	WRITE NUMBER OF WORDS 
	WER	A1,/11	WRITE BUFFER ADDRESS
READ21	CIO	A2,1,0	READ SECTOR 
	RB(NA)	READ21	LOOP UNTIL ACCEPTED
READ22	SST	A2,0	STATUS
	RB(NA)	READ22	LOOP UNTIL ACCEPTED
CRCCHK	EQU	*
	ANK	A2,/1F	STATUS
	RF(NZ)	DUERR	READING ERROR 
	ADKL	A11,1	INCREMENT SECTOR COUNTER
	RTN	A14
	EJECT
* 
*	READ DISC SECTOR VERSION A3 
* 
RDSEC3	EQU	*
	LDK	A2,0 
	LDR	A1,A11	GET LOGICAL SECTOR NUMBER 
	LDKL	A7,/1000
	LDKL	A4,/3000
DIV300	EQU	*
	SUR	A1,A4
	RF(N)	DIV310 
	ADR	A2,A7
	RB	DIV300
DIV310	EQU	*
	ADR	A1,A4	ADJUST DIVIDEND
	SRL	A4,4 
	SRL	A7,4 
	RB(NZ)	DIV300
	ADR	A2,A2
* 
	SUK	A1,1 
	ST	A1,SAVMEM 
	RF(NP)	CASE10	,XXXX  ,      , OR ,    XX,XX    , 
	ADK	A2,1	,      ,  XXXX, 
CASE10	EQU	*
	LDR	A4,A2
	SRL	A4,5 
	CW	A4,CYLNBR 
	RF(E)	INT300 
	ST	A4,CYLNBR	STORE NEW CYLINDER NUMBER 
	SLL	A4,3 
	ORK	A4,2	SET BIT 14
	EJECT
* 
*	SEEK CYLINDER 
* 
SEEK30	CIO	A4,1,0 
	RB(NA)	SEEK30
* 
SEEK31	SST	A4,0	GET STATUS
	RB(NA)	SEEK31
* 
*	INTERLACING 
* 
INT300	EQU	*
	LDR	A3,A2
	ADR	A2,A2
	ADR	A2,A3	INTERLACING FACTOR 3 
	ANK	A2,/1F 
	LD	A4,CYLNBR	GET CYLINDER NUMBER 
	ANK	A4,1 
	RF(Z)	INT310	EVEN CYLINDER NUMBER
	ADK	A2,8	SKEW FACTOR 180 DEG.
* 
INT310	EQU	*
	ANK	A2,/1F 
	SLL	A2,2	INTERLACED SECTOR NUMBER
	ST	A2,SECNBR	STORE PHYSICAL SECTOR NUMBER
	EJECT
* 
*	READ SECTOR 
* 
	LDR	A7,A9	BUFFER ADDRESS 
READ34	LDKL	A4,MXCCD3	NUMBER OF WORDS 
WERIO3	WER	A4,/10	WRITE NUMBER OF WORDS 
	WER	A7,/11	WRITE BUFFER ADDRESS
* 
READ30	CIO	A2,1,0	READ SECTOR 
	RB(NA)	READ30	LOOP UNTIL ACCEPTED
* 
READ31	SST	A2,0	GET STATUS
	RB(NA)	READ31	LOOP UNTIL ACCEPTED
	ANK	A2,/1F	STATUS
	RF(NZ)	DUERR	READING ERROR 
	LDR	A2,A9	BUFFER ADDRESS 
	LDR	A1,A1
	RF(N)	RETURN	,XXXX  ,      , 
	RF(P)	READ33	,      ,  XXXX, 
	ADKL	A2,256	SOURCE POINTER 
	LDK	A4,64	NUMBER OF WORDS TO MOVE
READ32	EQU	*	,    XX,XX    ,
	LDR*	A1,A2 
	STR	A1,A7
	ADK	A2,2 
	ADK	A7,2 
	SUK	A4,1 
	RB(NZ)	READ32	CONTINUE MOVING
	LD	A1,SAVMEM 
	RF(P)	RETURN 
	LD	A2,SECNBR	PHYSICAL SECTOR NUMBER
	ADK	A2,/C	NEW SECTOR TO READ 
	ANK	A2,/7C 
	SUK	A1,1 
	RB	READ34
	EJECT
READ33	EQU	*
	ADK	A2,128	SOURCE POINTER
	LDK	A4,128	NUMBER OF WORDS TO MOVE 
	RB	READ32
RETURN	ADKL	A11,1	INCREMENT SECTOR NUMBER 
	RTN	A14

DUERR	EQU	* 
	LDKL	A1,LMP2 
	CALL	ERROR 
	XIF
	IFT	MFDISC=1 
	EJECT
********************************************************
*                                                      *
*  MDINIT - INITIALIZE MINI FIXED DISC UNIT            *
*  =======================================             *
*                                                      *
*  REFERENCED IN: SYSLOD,GETFIL                        *
*                                                      *
*  ENTRY:  A1 = DEVICE ADDRESS                         *
*                                                      *
*  EXIT:                                               *
*                                                      *
*  WORK REGISTERS:                                     *
*                                                      *
*  SUBROUTINES: ERROR                                  *
*                                                      *
********************************************************
MDINIT	EQU	*
* 
*	INIT MINI FIXED DISC COMMANDS 
* 
MDI:00	EQU	*
	ORKL	A1,CIO	CONFIG. CIO A1,1,XX INSTR. 
	ST	A1,READM2 
	ORKL	A1,/800	FORM SST A1,XX INSTR. 
	ST	A1,READM3 
	XRKL	A1,/B00	FORM CIO A2,1,XX INSTR. 
	ST	A1,SEEKM1 
	ORKL	A1,/800	FORM SST A2,XX INSTR. 
	ST	A1,SEEKM2 
	EJECT
* 
	LDKL	A2,MRDSEC	GET SUBROUTINE ADDRESS
	ST	A2,READ 
	ST	A2,READS
	RTN	A14
	EJECT
******************************************************
*                                                    *
*  MRDSEC - READ ONE SECTOR FROM MINI FIXED DISC     *
*  =============================================     *
*                                                    *
*  REFERENCED IN: SYSLOD                             *
*                                                    *
*  ENTRY:  A9 = BUFFER ADDRESS                       *
*          A11 = SECTOR NUMBER                       *
*                                                    *
*  EXIT:                                             *
*                                                    *
*  WORK REGISTERS:                                   *
*                                                    *
*  SUBROUTINES:                                      *
*                                                    *
***************************************************** 
MRDSEC	EQU	*
	LDK	A1,0	PREPARE FOR DIVISION
	LDR	A2,A11	GET LOGICAL SECTOR NUMBER 
	DVK	104	DIVIDE BY 104
	SLL	A2,2 
	ORK	A2,3	SET BIT 14 AND 15 
* 
*	A1=SECTOR NUMBER ON CYLINDER
*	A2=CYLINDER NUMBER
* 
	ST	A1,SECNBR	STORE SECTOR NUMBER 
	CW	A2,CYLNBR 
	RF(E)	INTM10	SAME CYLINDER NUMBER
	ST	A2,CYLNBR	STORE CYLINDER NUMBER 
	EJECT
* 
*	SEEK CYLINDER 
* 
SEEKM1	CIO	A2,1,0	SEEK COMMAND
	RB(NA)	SEEKM1	LOOP UNTIL ACCEPTED
* 
SEEKM2	SST	A2,0	GET STATUS
	RB(NA)	SEEKM2	WAIT UNTIL ACCEPTED
* 
*	INTERLACING 
* 
INTM10	EQU	*
	CWK	A1,52
	RF(L)	INTM20	SECTOR 0-51 
	SUK	A1,52	SECTOR 52-103
INTM20	EQU	*
	LDR	A2,A1
	SLL	A2,2	A2:=4*SECTOR NUMBER 
	LDK	A1,0	PREPARE FOR DIVISION
	DVK	52 
	ADR	A1,A2	A1:=INTERLACED SECTOR NUMBER 
* 
*	A1:=INTERLACED SECTOR NUMBER
* 
	LD	A2,CYLNBR	GET CYLINDER NUMBER 
	SRC	A2,3 
	RF(NN)	INTM30	EVEN CYLINDER NUMBER 
	SUK	A1,26	SKEW FACTOR 26 
	RF(NN)	INTM30
	ADK	A1,52
INTM30	EQU	*
	SLL	A1,2 
	LD	A2,SECNBR	GET SECTOR NUMBER BEFORE INTERLACING
	CWK	A2,52
	RF(L)	INTM40	HEAD NUMBER 0 
	ORKL	A1,/4000	HEAD NUMBER 1
INTM40	EQU	*
* 
*	READ SECTOR 
* 
READM1	EQU	*
	LDKL	A4,MUXCC	NUMBER OF WORDS
	LDR	A7,A9	BUFFER ADDRESS 
* 
WERIOM	WER	A4,8	WRITE NUMBER OF WORDS 
	WER	A7,9	WRITE BUFFER ADDRESS
* 
READM2	CIO	A1,1,0	READ SECTOR 
	RB(NA)	READM2	LOOP UNTIL ACCEPTED
* 
READM3	SST	A1,0	GET STATUS
	RB(NA)	READM3	LOOP UNTIL ACCEPTED
	ANK	A1,/1F	STATUS
	RF(NZ)	MFDERR	READING ERROR
	ADKL	A11,1	INCREMENT SECTOR NUMBER 
	RTN	A14

MFDERR	EQU	*
	LDKL	A1,LMP2 
	CALL	ERROR 
	XIF
	IFT	FLDISC=1 
	EJECT
************************************************
*                                              *
*  FDINIT - INITIALIZE FLEXIBLE DISC           *
*  =================================           *
*                                              *
*  REFERENCED IN: SYSLOD,GETFIL                *
*                                              *
*  ENTRY:  A1 - DEVICE ADDRESS                 *
*                                              *
*  EXIT:                                       *
*                                              *
*  WORK REGISTERS:                             *
*                                              *
*  SUBROUTINES:                                *
*                                              *
************************************************
FDINIT	EQU	*
	ANK	A1,/10 
	ORKL	A1,CIO+9	CONFIG. CIO+9 A1,1,XX INSTR. 
	ST	A1,FRD:10 
	LDKL	A2,FRDS25	ADDRESS TO READ ON 0,25 MEG FLOPPY DRIVE
	LDK	A1,3	SEEK ORDER
	EX	FRD:10	SEEK TO ZERO 
FDI:05	EQU	*
	EX	SEKSST
	RB(NA)	FDI:05
* 
	ANK	A1,/10 
	RF(NZ)	FDI:10	0.25 MEG FLOPPY DRIVE
* 
	LDKL	A1,FRD:B1+/5700	RF FRD:40 INSTR.	=4 
	ST	A1,FRD:20	MODIFY INR INSTRUCTION
	LDKL	A1,/41F 
	ST	A1,FRD:42	MODIFY SST MASK 
	LDKL	A1,/C00 
	ST	A1,RELEAS	MODIFY RELEAS ORDER 
	LDKL	A2,FRDSEC	ADDRESS TO READ ON 1 MEG FLOPPY DRIVE 
FDI:10	EQU	*
	ST	A2,READ 
	ST	A2,READS
	CF	A14,GETVLB	GET VOLUME LABEL 
	LD	A1,FORDEV,A9	GET FORMAT 
	ST	A1,DEVTYP+STKEND
	RTN	A14
	EJECT
********************************************
*                                          *
*                                          *
*     UNLOCK - UNLOCK FLEXIBLE DISC        *
*     =============================        *
*                                          *
*     ON ENTRY: A1 = DEVICE ADDRESS        *
*                                          *
********************************************


UNLOCK	EQU	*
	CF	A14,FDINIT	INIT UNLOCK ORDER
RELEAS	EQU	*+2
	LDKL	A1,/C 
	EX	FRD:10	EXECUTE UNLOCK COMMAND 
	RB(NA)	*-4	LOOP UNTIL ACCEPTED 
* 
	EX	FRD:40	SENSE STATUS 
	RB(NA)	*-4	LOOP UNTIL ACCEPTED 
	RTN	A14
	EJECT
*********************************************************** 
*                                                         * 
*        FRDSEC - READ SECTOR FROM FLEXIBLE DISC          * 
*        =======================================          * 
*                                                         * 
*  REFERENCED IN:  SYSLOD                                 * 
*                                                         * 
*  ENTRY:  A9 - BUFFER ADDRESS                            * 
*         A11 - SECTOR NUMBER                             * 
*                                                         * 
*  EXIT:                                                  * 
*                                                         * 
*  WORK REGISTERS:  A1,A2,A3                              * 
*                                                         * 
*  SUBROUTINES:  ERROR                                    * 
*                                                         * 
*********************************************************** 
FRDSEC	EQU	*
	LDR	A2,A11	GET SECTOR NUMBER 
	LDKL	A4,/340	26 SHIFTED 10 STEPS LEFT
	LD	A1,DEVTYP+STKEND	DEVICE TYPE
	ANK	A1,1 
	RF(Z)	SNHEAD	0,25 MEG FLOPPY DISC
	CWK	A2,13
	RF(NL)	NOTCY0	NOT CYLINDER 0 
SNHEAD	EQU	*
	SLL	A2,1	A2=0-25,PHYSICAL SECTOR NBR 
	RF	DVK26 
NOTCY0	EQU	*
	ADK	A2,13
	EJECT
* 
*	A2=PHYSICAL SECTOR NUMBER 
* 
DVK26	EQU	* 
	LDK	A1,0 
DVK26A	EQU	*
	SLL	A1,5 
DVK26B	EQU	*
	SUR	A2,A4
	RF(N)	DVK26C 
	ADK	A1,1 
	RB	DVK26B
DVK26C	EQU	*
	ADR	A2,A4
	SRL	A4,5 
	RB(NZ)	DVK26A	NEXT FIVE BITS 
	EJECT
* 
*	A2=SECTOR NUMBER
*	A1=CYLINDER NUMBER
* 
	LD	A4,DEVTYP+STKEND	DEVICE TYPE
	ANK	A4,1 
	RF(NZ)	DBHEAD	1 MEG FLOPPY,DOUBLE HEAD 
	SLL	A1,1	ONLY ONE HEAD 
DBHEAD	EQU	*
	LDR	A4,A1
	ANK	A4,1 
	SRC	A4,2	HEAD NUMBER IN CORRECT POSITION 
	SLL	A2,2	SECTOR NUMBER IN CORRECT POSITION 
	ORR	A2,A4	A2=CIO READ REGISTER 
	SLL	A1,1	CYLINDER NUMBER IN CORRECT POSITION 
	ORK	A1,3	A1=CIO SEEK REGISTER
	CW	A1,CYLNBR	COMPARE OLD AN NEW CYLINDER NUMBER
	RF(E)	NOSEEK	NO SEEK NEEDED
	ST	A1,CYLNBR	SAVE CYLINDER NUMBER
FDSEEK	EX	FRD:10	CIO START
	RB(NA)	FDSEEK
SEKSST	SST	A1,FDCU
	RB(NA)	SEKSST
	ANKL	A1,/611 
	RF(NZ)	FRD:50	SEEK ERROR 
NOSEEK	EQU	*
	LDR	A1,A2
	RF	FRD:05
	EJECT
FRDS25	EQU	*
	LDR	A1,A11	SECTOR NO 
	SLL	A1,4 
	ORKL	A1,/4000	NUMBER OF SECTORS=2  (BIT 0 - BIT 1) 
FRD:05	EQU	*
	LDKL	A2,MUXCC
	LD	A3,MXBUF	BUFFER ADDRESS 
	WER	A2,FDIOP	1:ST WER
	WER	A3,FDIOP+1	SECOND WER

	LDR	A2,A3	BUFFER START ADDRESS 
	AD	A2,SAVCON	BUFFER END ADDRESS
* 
FRD:10	CIO	A1,1,FDCU	START READ 
	RB(NA)	FRD:10
* 
	EJECT			CRVOL
* 
* 
FRD:20	INR	A1,0,FDCU
	RF(NA)	FRD:40		=4
	STR	A1,A3
	ADK	A3,2 
	CWR	A3,A2
	RB(NE)	FRD:20
* 
FRD:25	CIO	A1,0,FDCU	STOP READ
	RB	FRD:20
FRD:40	SST	A1,FDCU
	RB(NA)	FRD:20
FRD:42	EQU	*+2
	ANKL	A1,/4E15	FATAL ERROR ?
	RF(NZ)	FRD:50	YES! 
FRD:43	CWR	A3,A2		=4
	RF(E)	FRD:44	PROGRAMMED CHANNEL	=4 
	LDKL	A1,FRD:B1+/5700	RF FRD:40 INSTR.	=4 
	ST	A1,FRD:20	UPDATE INR ISTR.	=4 
FRD:44	EQU	*		=4
	LDKL	A1,FRD:B2+/5700	RF FRD:45 INSTR.	=4 
	ST	A1,FRD:43	UPDATE CWR INSTR.	=4
	ABI	READ	READ AGAIN	=4 
FRD:45	EQU	*
	ADKL	A11,1	INCRMENT SECTOR ADDRESS 
	RF(NN)	FRD:48
	SUR	A11,A11	RESET LEAST SIGN. PART OF D.A. 
	ADKL	A12,1	INCREMENT MOST SIGN. PART OF D.A. 
	RF(O)	FRD:50	DISC ADDRESS ERROR
FRD:48	EQU	*
	RTN	A14
FRD:50	EQU	*
	LDKL	A1,LMP2 
	CALL	ERROR 
FRD:B1	EQU	FRD:40-FRD:20-2		=4
FRD:B2	EQU	FRD:45-FRD:43-2		=4
	XIF
	IFT	CDDISC=1 
	IFT	CDDI16=0		=9 
	EJECT
*********************************** 
*                                 * 
*  CDINIT - INITIALIZE DISC UNIT  * 
*  =============================  * 
*                                 * 
*  REFERENCED IN: SYSLOD,GETFIL   * 
*                                 * 
*  ENTRY: A1 - DEVICE ADDRESS     * 
*                                 * 
*  EXIT:                          * 
*                                 * 
*  WORK REGISTERS:  A1,A2          *
*                                 * 
*  SUBROUTINES:                   * 
*                                 * 
*********************************** 

CDINIT	EQU	*
* 
*	INIT 80M CDC DISC COMMANDS
* 
	ORKL	A1,CIO	CONFIG CIO A1,1,XX  INSTR. 
	ST	A1,READC1 
	ORKL	A1,/800	FORM SST A1,XX  INSTR.
	ST	A1,READC2 
	XRKL	A1,/B00	FORM CIO A2,1,XX  INSTR.
	ST	A1,SEEKC1 
	ORKL	A1,/800	FORM SST A2,XX  INSTR.
	ST	A1,SEEKC2 
	LDKL	A2,-1 
	ST	A2,PSECNL+STKEND	INIT VALUE FOR SECTOR NBR
	LDKL	A2,/300	BUFLEN 80M CDC DISC 
	ST	A2,SAVCON	SAVE LENGTH 
	LDKL	A2,CRDSEC	GET READ SECTOR SUBROUTINE ADDR.
	ST	A2,READ 
	ST	A2,READS
	RTN	A14
	EJECT
*********************************************** 
*                                             * 
*  CRDSEC- READ ONE SECTOR FROM DISC          * 
*  =================================          * 
*                                             * 
*  REFERENCED IN: SYSLOD                      * 
*                                             * 
*  ENTRY:  A9 = BUFFER ADDRESS                * 
*                                             * 
*         A11 - SECTOR NBR LEAST SIGNIFICANT  * 
*         A12 - SECTOR NBR MOST SIGNIFICANT   * 
*                                             * 
*  EXIT: A12,A11 = A12,A11 + 1                * 
*                                             * 
*   WORK REGISTERS:  A1,A2,A3,A4              * 
*                                             * 
*  SUBROUTINES:  ERROR                        * 
*                                             * 
*********************************************** 
* 
CRDSEC	EQU	*
* 
*	SET BUFFER ADDRESS
* 
	LDR	A1,A9	BUFFER ADDRESS 
	ADKL	A1,256
	ST	A1,CIOAD2	ADDRESS 2 
	ADKL	A1,256
	ST	A1,CIOAD3	ADDRESS 3 
	LDKL	A1,/3FFF
	ANS	A1,CIOTAB	RESET BITS 
	ANS	A1,CIOTOT	RESET BITS 
	LDR	A1,A12	SECTOR NUMBER MOST SIGNIFICANT
	LDR	A2,A11	SECTOR NUMBER LEAST SIGNIFICANT 
	EJECT
* 
*	DIVIDE LOGICAL WITH 3 
* 
	LDK	A3,0 
RED100	EQU	*
	ADK	A3,1 
	SUK	A1,3 
	RB(NN)	RED100
	ADK	A1,3 
	SUK	A3,1 
	DVK	3
	CW	A9,CIOAD1 
	RF(NE)	RED110	NOT SAME BUFFER ADDRESS MEANS NEW READ 
	CW	A2,PSECNL+STKEND
	RF(NE)	RED110	NOT SAME PHYSICAL SEC NBR
	CW	A3,PSECNM+STKEND
	RF(NE)	RED110	NOT SAME PHYSICAL SEC NBR
	CW	A1,PSECPA+STKEND
	RF(E)	TURN	SAME LOG SEC AS BEFORE
	RF(G)	REDMOV	MOVE UP NEXT LOGICAL SECTOR 
RED110	EQU	*
	ST	A9,CIOAD1	ADDRESS 1 
	MS	3,PSECPA+STKEND	SAVE NEW VALUES 
	LDR	A1,A3
	DVK	115
	EJECT
*	A1=HEAD NBR * SECTOR NBR
*	A2=CYLINDER NBR 
	LDR	A3,A2
	LDR	A2,A1
	LDK	A1,0 
	DVK	23 
*	A1=SECTOR NBR 
*	A2=HEAD NBR 
	ORKL	A2,/800	SET INTERRUPT BIT 
	ST	A2,CIOTAB	UPDATE CIO TABLE
	EJECT
* 
*	INTERLACING 
* 
	LDR	A2,A1
	MUK	5	INTERLACING 5
	SLC	A3,1 
	RF(NN)	INT100	EVEN CYLINDER NUMBER 
	ADK	A2,12	SKEW FACTOR
INT100	EQU	*
	DVK	23 
	SLL	A1,5	IN POSITION 
	ORS	A1,CIOTAB	UPDATE CIO TABLE 
	SRC	A3,1	RESTORE A3
	CW	A3,CYLNBR 
	RF(E)	READER	SAME CYLINDER NUMBER
	EJECT
* 
*	SEEK
* 
	ST	A3,CYLNBR	SAVE CYLINDER NBR 
	ADKL	A3,/A800	SEEK COMMAND 
	ST	A3,SEKTAB 
	LDKL	A2,SEKTAB 
SEEKC1	EQU	*
	CIO	A2,1,0	SEEK
	RB(NA)	SEEKC1
SEEKC2	EQU	*
	SST	A2,0 
	RB(NA)	SEEKC2
	EJECT
* 
*    READ 
* 
READER	EQU	*
	LDK	A4,3	NUMBER OF RETRIES	=15 
REA100	EQU	*
	LDKL	A1,CIOTAB	POINTER TO CIO TABLE
READC1	CIO	A1,1,0	READ
	RB(NA)	READC1	LOOP UNTIL ACCEPTED
* 
READC2	SST	A1,0	STATUS
	RB(NA)	READC2	LOOP UNTIL ACCEPTED
	ANKL	A1,/FF0F	STATUS 
	RF(NZ)	RET30	READING ERROR 
	LD	A1,PSECPA+STKEND	GET RELATIV LOG SECT IN PHYSICAL	=11 
	RF(NZ)	REDMOV	NOT FIRST REL LOG SECTOR	=11 

TURN	EQU	*
	ADKL	A11,1	INCREMENT LOGICAL SECTOR NUMBER 
	RF(O)	TURN10	OVERFLOW
	RF	TURN20
TURN10	EQU	*
	SUR	A11,A11	RESET A11
	ADKL	A12,1 
TURN20	EQU	*
	RTN	A14
	EJECT
* 
*	MOVE UP NEXT LOGICAL SECTOR 
* 
REDMOV	EQU	*
	ST	A1,PSECPA+STKEND	SAVE NEW LOGICAL SECTOR PART 
	SLL	A1,2	INDEX TO TABLE
	LD	A1,CIOAD1,A1	SOURCE ADDRESS 
	LDR	A2,A9	DESTINATION ADDRESS
	LDK	A3,128	LENGTH IN WORDS 
RMOV10	EQU	*
	LDR*	A4,A1	.	=15 
	STR	A4,A2	.	=15
	ADK	A1,2 
	ADK	A2,2 
	SUK	A3,1 
	RB(P)	RMOV10	NEXT WORD 
	RB	TURN



NOFOND	EQU	*
	LDKL	A1,LMP2 
	CALL	ERROR	INDICATE READING ERROR
	EJECT
* 
*	IO ERROR IN READING 
* 
RET30	EQU	* 
	SUK	A4,1	.	=15 
	RB(NZ)	REA100	NEW TRY
	LC	A1,CIOTAB 
	ANK	A1,/C0 
	RF(NZ)	RET31	LAST RETRY WITH EARLY OR LATE D.S 
	LDKL	A2,/8000
	ORS	A2,CIOTAB	PREPARE FOR EARLY DATA STROBE
	RB	READER
RET31	EQU	* 
	ANK	A1,/80 
	RF(Z)	RET32	LAST RETRY WITH LATE DATA STROBE 
	LDKL	A2,/C000
	XRS	A2,CIOTAB	CHANGE FROM EARLY TO LATE D.S
	RB	READER
RET32	EQU	* 
	LDKL	A2,/3FFF
	ANS	A2,CIOTAB	RESET LATE DATA STROBE 
	LC	A1,CIOTOT 
	ANK	A1,/C0 
	RF(NZ)	RET33	LAST RETRY CARRIAGE+ OR CARRIAGE- 
	LDKL	A2,/8000
	ORS	A2,CIOTOT	PREPARE FOR CARRIAGE+
	RB	READER
RET33	EQU	* 
	ANK	A1,/80 
	RB(Z)	NOFOND	READING ERROR 
	LDKL	A2,/C000
	XRS	A2,CIOTOT	FROM CARRIAGE+ TO CARRIGE- 
	RB	READER
	EJECT
* 
*	SEEK TABLE
* 
SEKTAB	EQU	*
	DATA	0 
* 
*	CIO TABLE 
* 
CIOTAB	EQU	*
	DATA	0	ORDER,SECTOR NBR,HEAD NBR 
CIOTOT	EQU	*
	DATA	384	TOTAL NUMBER OF WORDS(1 PHYSICAL SECTOR)
CIOPA1	EQU	*
	DATA	/4000+128	DATA CHAINING BIT,NUMBER OF WORDS 
CIOAD1	EQU	*
	DATA	0	ADDRESS 1 
CIOPA2	EQU	*
	DATA	/4000+128 
CIOAD2	EQU	*
	DATA	0	ADDRESS 2 
CIOPA3	EQU	*
	DATA	128 
CIOAD3	EQU	*
	DATA	0	ADDRESS 3 
	XIF
	IFT	CDDI16=1		=9 
	EJECT
*********************************** 
*                                 * 
*  CDINIT - INITIALIZE DISC UNIT  * 
*  =============================  * 
*                                 * 
*  REFERENCED IN: SYSLOD,GETFIL   * 
*                                 * 
*  ENTRY: A1 - DEVICE ADDRESS     * 
*                                 * 
*  EXIT:                          * 
*                                 * 
*  WORK REGISTERS:  A1,A2          *
*                                 * 
*  SUBROUTINES:                   * 
*                                 * 
*********************************** 

CDINIT	EQU	*
* 
*	INIT 16M OR 80M CDC DISC COMMANDS 
* 
	LDR	A2,A1		=9
	ANK	A1,/3F	MASK DEVICE ADDRESS	=9
	SRL	A2,2	FIX OR CARTRIDGE IN POSITION	=9 
	ANK	A2,/10		=9 
	ST	A2,CARFIX+STKEND	SAVE FIX OR CARTRIDGE INDICATOR	=9 
	ORKL	A1,CIO	CONFIG CIO A1,1,XX  INSTR. 
	ST	A1,READC1 
	ORKL	A1,/800	FORM SST A1,XX  INSTR.
	ST	A1,READC2 
	XRKL	A1,/B00	FORM CIO A2,1,XX  INSTR.
	ST	A1,SEEKC1 
	ORKL	A1,/800	FORM SST A2,XX  INSTR.
	ST	A1,SEEKC2 
	LDKL	A2,-1 
	ST	A2,PSECNL+STKEND	INIT VALUE FOR SECTOR NBR
	LDKL	A2,/300	BUFLEN 80M CDC DISC 
	ST	A2,SAVCON	SAVE LENGTH 
	LDKL	A2,CRDSEC	GET READ SECTOR SUBROUTINE ADDR.
	ST	A2,READ 
	ST	A2,READS
	CF	A14,GETVLB	GET VOLUME LABEL	=9
	LC	A2,FORDEV+1,A9	GET FORMAT	=9
	ANK	A2,1	FORMAT 4 OR 5	=9
	LDK	A2,23	CONSTANT FOR 16M DISC	=9 
	RF(NZ)	CDI:10	16M DISC	=9
	LDK	A2,115	CONSTANT FOR 80M DISC	=9
CDI:10	EQU	*		=9
	ST	A2,DIVCON	SET DIVIDE CONSTANT	=9
	RTN	A14
	EJECT
*********************************************** 
*                                             * 
*  CRDSEC- READ ONE SECTOR FROM DISC          * 
*  =================================          * 
*                                             * 
*  REFERENCED IN: SYSLOD                      * 
*                                             * 
*  ENTRY:  A9 = BUFFER ADDRESS                * 
*                                             * 
*         A11 - SECTOR NBR LEAST SIGNIFICANT  * 
*         A12 - SECTOR NBR MOST SIGNIFICANT   * 
*                                             * 
*  EXIT: A12,A11 = A12,A11 + 1                * 
*                                             * 
*   WORK REGISTERS:  A1,A2,A3,A4              * 
*                                             * 
*  SUBROUTINES:  ERROR                        * 
*                                             * 
*********************************************** 
* 
CRDSEC	EQU	*
* 
*	SET BUFFER ADDRESS
* 
	LDR	A1,A9	BUFFER ADDRESS 
	ADKL	A1,256
	ST	A1,CIOAD2	ADDRESS 2 
	ADKL	A1,256
	ST	A1,CIOAD3	ADDRESS 3 
	LDKL	A1,/3FFF
	ANS	A1,CIOTAB	RESET BITS 
	ANS	A1,CIOTOT	RESET BITS 
	LDR	A1,A12	SECTOR NUMBER MOST SIGNIFICANT
	LDR	A2,A11	SECTOR NUMBER LEAST SIGNIFICANT 
	EJECT
* 
*	DIVIDE LOGICAL WITH 3 
* 
	LDK	A3,0 
RED100	EQU	*
	ADK	A3,1 
	SUK	A1,3 
	RB(NN)	RED100
	ADK	A1,3 
	SUK	A3,1 
	DVK	3
	CW	A9,CIOAD1 
	RF(NE)	RED110	NOT SAME BUFFER ADDRESS MEANS NEW READ 
	CW	A2,PSECNL+STKEND
	RF(NE)	RED110	NOT SAME PHYSICAL SEC NBR
	CW	A3,PSECNM+STKEND
	RF(NE)	RED110	NOT SAME PHYSICAL SEC NBR
	CW	A1,PSECPA+STKEND
	RF(E)	TURN	SAME LOG SEC AS BEFORE
	RF(G)	REDMOV	MOVE UP NEXT LOGICAL SECTOR 
RED110	EQU	*
	ST	A9,CIOAD1	ADDRESS 1 
	MS	3,PSECPA+STKEND	SAVE NEW VALUES 
	LDR	A1,A3
DIVCON	EQU	*+2		=9
	DVK	23		=9 
	EJECT
*	A1=HEAD NBR * SECTOR NBR
*	A2=CYLINDER NBR 
	LDR	A3,A2
	LDR	A2,A1
	LDK	A1,0 
	DVK	23 
*	A1=SECTOR NBR 
*	A2=HEAD NBR 
	ORKL	A2,/800	SET INTERRUPT BIT 
	OR	A2,CARFIX+STKEND	FIX OR CARTRIDGE	=9
	ST	A2,CIOTAB	UPDATE CIO TABLE
	EJECT
* 
*	INTERLACING 
* 
	LDR	A2,A1
	MUK	5	INTERLACING 5
	SRC	A3,1		=9 
	RF(NN)	INT100	EVEN CYLINDER NUMBER 
	ADK	A2,12	SKEW FACTOR
INT100	EQU	*
	DVK	23 
	SLL	A1,5	IN POSITION 
	ORS	A1,CIOTAB	UPDATE CIO TABLE 
	SLC	A3,1	RESTORE A3	=9 
	CW	A3,CYLNBR 
	RF(E)	READER	SAME CYLINDER NUMBER
	EJECT
* 
*	SEEK
* 
	ST	A3,CYLNBR	SAVE CYLINDER NBR 
	ADKL	A3,/A800	SEEK COMMAND 
	ST	A3,SEKTAB 
	LDKL	A2,SEKTAB 
SEEKC1	EQU	*
	CIO	A2,1,0	SEEK
	RB(NA)	SEEKC1
SEEKC2	EQU	*
	SST	A2,0 
	RB(NA)	SEEKC2
	EJECT
* 
*    READ 
* 
READER	EQU	*
	LDK	A4,3	NUMBER OF RETRIES	=15 
REA100	EQU	*
	LDKL	A1,CIOTAB	POINTER TO CIO TABLE
READC1	CIO	A1,1,0	READ
	RB(NA)	READC1	LOOP UNTIL ACCEPTED
* 
READC2	SST	A1,0	STATUS
	RB(NA)	READC2	LOOP UNTIL ACCEPTED
	ANKL	A1,/FF0F	STATUS 
	RF(NZ)	RET30	READING ERROR 
	LD	A1,PSECPA+STKEND	GET LOGICAL SECT. IN PHYSICAL	=11
	RF(NZ)	REDMOV	NOT FIRST LOGICAL SECT. IN PHYSICAL	=11

TURN	EQU	*
	ADKL	A11,1	INCREMENT LOGICAL SECTOR NUMBER 
	RF(O)	TURN10	OVERFLOW
	RF	TURN20
TURN10	EQU	*
	SUR	A11,A11	RESET A11
	ADKL	A12,1 
TURN20	EQU	*
	RTN	A14
	EJECT
* 
*	MOVE UP NEXT LOGICAL SECTOR 
* 
REDMOV	EQU	*
	ST	A1,PSECPA+STKEND	SAVE NEW LOGICAL SECTOR PART 
	SLL	A1,1		=9 
	LDR	A2,A1		=9
	ADR	A1,A1		=9
	ADR	A1,A2	A1 MULTIPIED WITH 6	=9 
	LD	A1,CIOAD1,A1	SOURCE ADDRESS 
	LDR	A2,A9	DESTINATION ADDRESS
	LDK	A3,128	LENGTH IN WORDS 
RMOV10	EQU	*
	LDR*	A4,A1	.	=15 
	STR	A4,A2	.	=15
	ADK	A1,2 
	ADK	A2,2 
	SUK	A3,1 
	RB(P)	RMOV10	NEXT WORD 
	RB	TURN



NOFOND	EQU	*
	LDKL	A1,LMP2 
	CALL	ERROR	INDICATE READING ERROR
	EJECT
* 
*	IO ERROR IN READING 
* 
RET30	EQU	* 
	SUK	A4,1	.	=15 
	RB(NZ)	REA100	NEW TRY
	LC	A1,CIOTAB 
	ANK	A1,/C0 
	RF(NZ)	RET31	LAST RETRY WITH EARLY OR LATE D.S 
	LDKL	A2,/8000
	ORS	A2,CIOTAB	PREPARE FOR EARLY DATA STROBE
	RB	READER
RET31	EQU	* 
	ANK	A1,/80 
	RF(Z)	RET32	LAST RETRY WITH LATE DATA STROBE 
	LDKL	A2,/C000
	XRS	A2,CIOTAB	CHANGE FROM EARLY TO LATE D.S
	RB	READER
RET32	EQU	* 
	LDKL	A2,/3FFF
	ANS	A2,CIOTAB	RESET LATE DATA STROBE 
	LC	A1,CIOTOT 
	ANK	A1,/C0 
	RF(NZ)	RET33	LAST RETRY CARRIAGE+ OR CARRIAGE- 
	LDKL	A2,/8000
	ORS	A2,CIOTOT	PREPARE FOR CARRIAGE+
	RB	READER
RET33	EQU	* 
	ANK	A1,/80 
	RB(Z)	NOFOND	READING ERROR 
	LDKL	A2,/C000
	XRS	A2,CIOTOT	FROM CARRIAGE+ TO CARRIGE- 
	RB	READER
	EJECT
* 
*	SEEK TABLE
* 
SEKTAB	EQU	*
	DATA	0 
* 
*	CIO TABLE 
* 
CIOTAB	EQU	*
	DATA	0	ORDER,SECTOR NBR,HEAD NBR 
CIOTOT	EQU	*
	DATA	384	TOTAL NUMBER OF WORDS(1 PHYSICAL SECTOR)
CIOPA1	EQU	*
	DATA	/4000+128	DATA CHAINING BIT,NUMBER OF WORDS 
	DATA	0	ADDRESS1 MOST SIGN.	=9
CIOAD1	EQU	*
	DATA	0	ADDRESS 1 
CIOPA2	EQU	*
	DATA	/4000+128 
	DATA	0	ADDRESS 2 MOST SIGN.	=9 
CIOAD2	EQU	*
	DATA	0	ADDRESS 2 
CIOPA3	EQU	*
	DATA	128 
	DATA	0	ADDRESS 3 MOST SIGN.	=9 
CIOAD3	EQU	*
	DATA	0	ADDRESS 3 
	XIF
	EJECT
*************************************************** 
*                                                 * 
*        GETFIL - GET CONFIGURATION FILE          * 
*        ===============================          * 
*                                                 * 
*  REFERENCED IN:  SYSLOD                         * 
*                                                 * 
*  ENTRY:  A9 - BUFFER ADDRESS                    * 
*                                                 * 
*  EXIT:  A11 - SECTOR ADDRESS TO CONF. FILE      * 
*                                                 * 
*  WORK REGISTERS:  A1,A2,A3,A4,A5,A6,A7,A8,A10  *
*                                                 * 
*  SUBROUTINES:  READVL,READCF                    * 
*                                                 * 
*************************************************** 
GETFIL	EQU	*
	CF	A14,GETVLB
GET:10	EQU	*
	CF	A14,RDSEC	GET VOLUME LABEL
	LDK	A7,QBLFAC	VTOC BLOCKING FACTOR 
	LDR	A6,A9	GET START OF BUFFER
GET:20	EQU	*
	LDK	A5,/20	LOAD SPACE
	CCR	A5,A6	UNUSED FILE? 
	RF(E)	GET:50	YES!
	LDR	A4,A6	START OF RECORD
	LDK	A5,'S'	STANDARD FILE CHARACTER 
	CC	A5,27,A6	STANDARD FILE? 
	RF(NE)	GET:50	NO!
	LDK	A5,'$'	LEADING CHAR IN CONF. FILE
	CCR	A5,A4	CONFIGURATION FILE?
	RF(NE)	GET:50	NO!
GET:25	LDK	A3,'C'	THIS INSTRUCTION IS MODIFIED
	CCK	A3,'CC'	LOOKING FOR CONF. FILE?
	RF(NE)	GET:85	NO!
	ADK	A4,5	SIXTH CHARACTER 
	LDK	A5,':'	CHARACTER TO PRECEED NUMBER 
GET:30	CCR	A5,A4	CONFIGURATION FILE?
	RF(E)	GET:40	YES!
	SUK	A4,1	TRY NEXT CHARACTER
	CWR	A4,A6	FIRST IN NAME? 
	RF(E)	GET:50	YES!
	RB	GET:30
GET:40	EQU	*
* 
*  CHECK APPLICATION NUMBER 
* 
	LC	A5,1,A4	GET LEFT DIGIT
	SLL	A5,8	SHIFT TO LEFT BYTE
	LC	A5,2,A4	GET RIGHT DIGIT 
	CALL	CONVRT	CONVERT TO BINARY
	CW	A1,SCTANO	SAME AS APPLICATION NUMBER
	RF(NE)	GET:50
* 
*  CONFIGURATION FILE FOUND 
* 
	LD	A1,22,A6	LAST RECORD NUMBER 
	ST	A1,LSTREC+STKEND	SAVE 
	LD	A12,16,A6	GET 
	LD	A11,18,A6	SECTOR ADDRESS
	RTN	A14
* 
GET:50	EQU	*
	ADR	A6,A8	NEXT VTOC RECORD 
	ADK	A6,1	BYPASS STATUS CHARACTER 
	SUK	A7,1	MOORE RECORDS IN THIS SECTOR? 
	RB(P)	GET:20	YES!
	CWR	A11,A10	LAST VTOC SECTOR?
	RB(NE)	GET:10	NO!
GET:60	LDK	A3,'C'	THIS INSTRUCTION IS MODIFIED
	CCK	A3,'CC'	LOOKING FOR CONF. FILE?
	RF(NE)	GET:99	NO!
* 
*  CONFIGURATION FILE NOT FOUND - READ SOP AND SELECT 
*  LOAD MEDIUM FOR CONFIGURATION FILE 
* 
* 
	LDKL	A2,/7F8 
	OTR	A2,0,SOP	SWITCH ON SOP LAMPS 
GET:70	EQU	*
	CF	A14,SOPIN 
	ANKL	A1,/7FC	ALLOWED SWITCH? 
	RB(Z)	GET:70	NO! 
	LDKL	A2,LMP1 
	OTR	A2,0,SOP	SWITCH ON LOAD LAMP 
	SRN	A1,A2
	LC	A1,DEVTAB,A2	GET DEVICE ADDRESS 
GET:75	EQU	*
	SC	A1,CONDEV+1+STKEND	SAVE CONF. DATA LOAD DEVICE
	CF	A14,CONFLD	CONFIGURE LOAD DEVICE
	RB	GETFIL
GET:85	EQU	*
	CCK	A3,'SS'	LOOKING FOR $SWAPP?
	RF(NE)	GET:99	NO!
	LDK	A5,0	RESET CHARACTER COUNTER 
GET:90	LCR	A1,A4	GET CHAR IN FILENAME 
	CC	A1,SWPTAB,A5	CHECK IF PRESCIBED CHAR. 
	RB(NE)	GET:50	NO!
	ADK	A4,1	NEXT CHARACTER
	ADK	A5,1	INCREMENT CHARACTER COUNTER 
	CWK	A5,8	ALL CHARACTERS CHECKED? 
	RB(NE)	GET:90	NO!
* 
*  SWAPPABLE WORK BLOCK FILE FOUND - SAVE DISC ADDRESS
*  TO FILE AND TO NEXT SECTOR AFTER FILE
* 
	LD	A1,18,A6	GET BIT 16-31 OF D.A.
	LD	A2,16,A6	GET BIT 0-15 OF D.A. 
	ST	A1,SWBFSA+STKCOM	SAVE 
	ST	A2,SWBFSA+STKCOM+2	SAVE 
	LD	A3,SWPFEL,A6	GET BIT 16-31 OF LENGTH
	LD	A4,SWPFEL-2,A6	GET BIT 0-15 OF LENGTH 
	ADR	A4,A2	ADD MOST SIGNIFICANT PART
	ADR	A3,A1	ADD LEAST SIGNIFICANT PART 
	RF(O)	GET:92	OVERFLOW - ADD CARRY
	RF	GET:98
GET:92	ADK	A4,1	ADD CARRY 
	ANKL	A3,/7FFF	RESET OVERFLOW 
GET:98	ST	A3,SWBFSE+STKCOM	SAVE BIT 16-31 OF D.A. 
	ST	A4,SWBFSE+STKCOM+2	SAVE BIT 0-15 OF D.A.
	IM	SWBFLG+STKCOM	INDICATE SWB-FILE FOUND 
GET:99	RTN	A14
	EJECT
***************************************************** 
*                                                   * 
*  LODCOM - LOAD CORE RESIDENT PART OF APPLICATION  * 
*  ===============================================  * 
*                                                   * 
*  LODSEG - LOAD ONE SEGMENT                        * 
*  =========================                        * 
*                                                   * 
*  ENTRY:  A8 - RELOCATION BASE                     * 
*         A10 - EFFECTIVE LENGTH                    * 
*                                                   * 
*  EXIT:                                            * 
*                                                   * 
*  WORK REGISTERS:  A1,A2,A3,A4,A7                  * 
*                                                   * 
*  SUBROUTINES:  MOVE,READ                          * 
*                                                   * 
***************************************************** 
LODCOM	EQU	*
	LD	A9,MXBUF	GET ADDRESS TO READ BUFFER 
	LDR	A3,A9	GET START OF BUFFER
	LDR	A2,A3	SAVE 
	LDKL	A7,240	NUMBER OF CODE WORDS 
LOD:10	EQU	*-2
	LDR	A10,A10	APP >32 KB?
	RF(NN)	LOD:20	NO!
	SUR	A10,A7	DEC. LENGTH 
	RF	LOD:50
LOD:20	EQU	*
	SUR	A10,A7	CHECK IF IN END OF OF SEGMENT 
	RF(P)	LOD:50	NO YET! 
	CWK	A7,256	128 WORDS/SECTOR? 
	RF(NE)	LOD:30	NO!
	ADR	A7,A10	COMPUTE NUMBER OF CODE WORDS
	LDKL	A10,0	INDICATE END OF SEGMENT 
	RF	LOD:52
LOD:30	EQU	*
	ADR	A7,A10	JUST MOVE SIGNIFICANT CHARACTERS! 
	LDKL	A10,0	INDICATE END OF SEGMENT 
	LD	A1,FSTSEC+STKEND	LOOK IF FIRST SECTOR/BLOCK 
	RF(NZ)	LOD:50	NO!
* 
	ADK	A7,8	YES, ADD 8 TO COMPENSATE FOR HEADER 
	CWK	A7,240	LOOK IF OUTSIDE CODE PART OF SECTOR/BLOCK 
	RF(L)	LOD:50	NO! 
* 
	SUK	A7,240	YES, GET WORDS REMAINING
	LDR	A10,A7	AND SAVE
	LDK	A7,240	START OF RELOCATION BITS
LOD:50	EQU	*
	CWK	A7,256	128 WORDS/SECTOR? 
	RF(E)	LOD:52	YES!
	ADR	A2,A7	START OF RELOCATION BITS 
	CF	A14,REBUF	RELOCATE
LOD:52	EQU	*
	LDR	A1,A9	START OF CODE PART 
	LD	A4,FSTSEC+STKEND	FIRST SECTOR/BLOCK?
	RF(NZ)	LOD:55	NO!
	IM	FSTSEC+STKEND	INDICATE NOT FIRST SECTOR/BLOCK 
	ADK	A1,8	SKIP 4 WORDS IN FIRST SECTOR/BLOCK
	SUK	A7,8	DECREMENT NUMBER OF CHAR. TO MOVE 
	LD	A3,COMLG,A9	GET LENGTH
	RF(N)	LOD:54	APPL. LARGER THAN ONE SECTOR/BLOCK
* 
	CWK	A3,240	SINGLE SECTOR/BLOCK APPLICATION?
	RF(NG)	LOD:55	YES! 
* 
LOD:54	ADKL	A10,8 
LOD:55	EQU	*
	LDR	A3,A7	NUMBER OF CHARACTERS TO MOVE 
	LD	A2,LLDADR+STKEND	GET TO-ADDRESS 
	ADS	A3,LLDADR+STKEND	UPDATE MEMORY ADDRESS 
	IFT	MMUPAG=1 
	MVSU	A3	MOVE TABLE FROM SYSTEM 
	XIF
	IFT	MMUPAG=0 
	CALL	MOVE
	XIF
	LDR	A10,A10	END OF SEGMENT?
	RF(NZ)	LOD:70
	RTN	A14	EXIT 
LODSEG	EQU	*
	LDKL	A1,256	NUMBER OF WORDS/SECTOR 
	ST	A1,LOD:10	MODIFY INSTRUCTION
LOD:70	EQU	*
	CF	A14,READ
READ	EQU	*-2
	RB	LODCOM
	EJECT
************************************************* 
*                                               * 
*        REBUF - RELOCATE BUFFER ROUTINE        * 
*        ===============================        * 
*                                               * 
*  REFERENCED IN:  LODCOM/LODSEG                * 
*                                               * 
*  ENTRY:  A3 - START OF BUFFER                 * 
*          A2 - START OF RELOCATION TABLE       * 
*                                               * 
*  EXIT:                                        * 
*                                               * 
*  WORK REGISTERS:  A1,A4,A5,A6                 * 
*                                               * 
*  SUBROUTINES:                                 * 
*                                               * 
************************************************* 
REBUF	EQU	* 
	LDR	A4,A2	GET START OPF RELOCATION TABLE 
	SUK	A4,2 
REB:10	EQU	*
	ADK	A4,2	NEXT RELOCATION WORD
	LDK	A6,16	NUMBER OF RELOCATION BITS
	LDR*	A1,A4	GET RELOCATION WORD 
REB:20	EQU	*
	RF(NN)	REB:30	DON'T RELOCATE THIS WORD!
	LDR*	A5,A3	GET CODE WORD 
	ADR	A5,A8	RELOCATE 
	STR	A5,A3	STORE IT BACK
REB:30	EQU	*
	ADK	A3,2	NEXT CODE WORD
	CWR	A3,A2	END OF CODE WORD PART? 
	RF(E)	EXREL	YES! 
	SUK	A6,1	MOORE RELOCATION BITS?
	RB(Z)	REB:10	NO! 
	SLL	A1,1	NEXT RELOCATION BIT 
	RB	REB:20
EXREL	EQU	* 
	RTN	A14
	EJECT
***************************************** 
*  GETCON - GET CONTENT IN MEMORY WORD  * 
***************************************** 
* 
*  REFERENCED IN:  SEGGEN 
* 
*  ENTRY:  A2 - MEMORY ADDRESS
*          MMUOPT - MMU OPTION SWITCH (X) 
* 
*  EXIT:  A1 - CONTENT OF MEMORY ADDRESS
* 
*  WORK REGISTER: 
* 
*  SUBROUTINES: 
* 
GETCON	EQU	*
	LD	A1,SCTOPT	GET OPTION WORD 
	ANK	A1,1	MMU OPTION
	RF(Z)	GCON10	NO MMU
	ELR	A1,A2
	RF	GCON20
GCON10	EQU	*
	LDR*	A1,A2 
GCON20	EQU	*
	RTN	A14	RETURN 
	EJECT
********************************************* 
*                                           * 
*               SCNCON                      * 
*               ======                      * 
*                                           * 
*  SCAN CONFIGURATION FILE FOR POSSIBLE     * 
*  APPLICATION DEFINITION BLOCKS. IF        * 
*  FOUND APLTAB+STKCOM IS UPDATED WITH DISC        *
*  ADDRESSES.                               * 
*                                           * 
*  ENTRY: A9 INPUT BUFFER ADDRESS           * 
*                                           * 
*  WORK REGISTERS  A1-A8,A10                * 
*                                           * 
*  ROUTINES REFERENCED: GETFIL, APLID       * 
*                                           * 
*  REFERENCED IN SYSLOD                     * 
*                                           * 
********************************************* 
* 
* 
SCNCON	EQU	*
	CF	A14,GETFIL	GET CONFIGURATION FILE 
	ST	A11,CONDAD+STKEND	SAVE CONF. DISC FILE ADDRESS
	ST	A12,CONDAD+2+STKEND	MOST SIGN. PART 
	LDR	A8,A9	GET START OF BUFFER
	ADKL	A8,BUFLEN-6	ADD SECTOR LENGTH USED
	ST	A8,ECNFBF+STKEND	AND SAVE BUFFER END
* 
	LDKL	A10,0	RESET RECORD COUNTER
	LD	A6,APLTAB+STKCOM	GET APLTAB+STKCOM ADDRESS
	ADK	A6,ACBLEN+2	SKIP 1ST TABLE BLOCK 
	CF	A14,RDSEC	READ FIRST SECTOR 
	LDR	A4,A9	GET START OF RECORD
	LDR	A8,A9	SAVE RECORD START
* 
SCAN00	EQU	*
	LDR*	A1,A4	GET FIRST WORD IN RECORD
	CWK	A1,'A;'	APPLICATION DEFINITION BLOCK?
	RF(NE)	SCAN10	NO!
* 
	CF	A14,APLID	YES GET APPLICATION NAME
SCAN10	EQU	*
	ADKL	A10,1	INCREMENT RECORD COUNTER
	CW	A10,LSTREC+STKEND	LAST RECORD?
	RF(E)	SCNEND	YES!
* 
	ADKL	A8,RECLEN+1	INCREMENT RECORD POINTER
	CW	A8,ECNFBF+STKEND	OUTSIDE SECTOR?
	RF(NE)	SCAN20	NO!
* 
	CF	A14,RDSEC	READ NEXT SECTOR
	LDR	A8,A9	RESET RECORD ADDRESS 
SCAN20	EQU	*
	LDR	A4,A8	GET RECORD START 
	RB	SCAN00	CONTINUE SCAN PROCESS
* 
*  THE WHOLE CONFIGURATION FILE 
*  IS PROCESSED. SEARCH VTOC FOR
*  GIVEN FILE NAMES AND UPDATE
*  APLTAB+STKCOM WITH CORRESPONDING 
*  DISC ADDRESSES.
* 
SCNEND	EQU	*
	LD	A1,IPLDEV+STKEND	CONFIGURE PGM LOAD DEV.
	CF	A14,LODDEV
	LD	A6,APLTAB+STKCOM	GET APLTAB+STKCOM START ADDRESS
	ADK	A6,ACBLEN+2	SKIP 1ST TABLE BLOCK 
	LD*	A1,APLTAB+STKCOM	GET NO OF APPLICATIONS
	SUK	A1,1	DECREMENT 
	RF(Z)	RTRN	ONLY ONE APPLICATION
	NGR	A1,A1	NEGATE 
	ST	A1,APLCNT+STKEND	AND SAVE AS APPL. COUNTER
	CF	A14,GETAPL	UPDATE APPLIC. DISC ADDR.
* 
RTRN	EQU	*
	RTN	A14	END OF SCNCON
	EJECT
********************************************* 
*                                           * 
*                                           * 
*                 APLID                     * 
*                 =====                     * 
*                                           * 
*  APLID TAKES THE NAME OF APPLICATION      * 
*  AND MOVES IT FROM CONF. FILE TO          * 
*  APLTAB+STKCOM. FOR EACH APPLICATION A ENTRY     *
*  IN APLTAB+STKCOM IS CREATED ACCORDINGLY:        *
*                                           * 
*       LENGTH OF NAME (BYTES)              * 
*       NAME                                * 
*                                           * 
*  THE NAME ENTRY CONSISTS OF 1-4 WORDS     * 
*                                           * 
*  ENTRY: A6 POINTER INTO APLTAB+STKCOM            *
*         A8 RECORD POINTER                 * 
*         A10 RECORD COUNTER                * 
*                                           * 
*  WORK REGISTERS: A1-A5                    * 
*                                           * 
********************************************* 
* 
* 
APLID	EQU	* 
	ADKL	A10,1	INCREMENT RECORD COUNTER
	CW	A10,LSTREC+STKEND	LAST RECORD 
	ABL(E)	CONERR	YES! ERROR IN CONFIGURATION FILE 
* 
	ADKL	A8,RECLEN+1	INCREMENT RECORD POINTER
	CW	A8,ECNFBF+STKEND	OUTSIDE SECTOR?
	RF(NE)	APLID0	NO!
* 
	CF	A14,RDSEC	READ NEXT SECTOR
	LDR	A8,A9	GET RECORD START 
APLID0	EQU	*
	LDR	A4,A8	RECORD START 
	LDK	A5,0	RESET CHARACTER COUNTER 
APLID2	EQU	*
	LCR	A1,A4	GET CHARACTER
	CCK	A1,';;'	DELIMITER CHARACTER? 
	RF(E)	APLID4	YES! END OF NAME
* 
	ADK	A4,1	INCREMENT CHARACTER POINTER 
	ADK	A5,1	INCREMENT CHARACTER COUNT 
	CWK	A5,NCHAID	END OF THIS RECORD?
	RB(NE)	APLID2	NO GET NEXT CHARACTER
* 
*  END OF NAME RECORD, LOOK IF
*  NEXT CHARACTER IS A DELIMITER
* 
	LCR	A1,A4
	CCK	A1,';;'
	ABL(NE)	CONERR	NO DELIMITER, ERROR IN CONF. FILE 
* 
APLID4	EQU	*
	ADK	A5,0 
	ABL(Z)	CONERR	NO LEGAL CHARACTER IN NAME 
* 
	LDR	A3,A6	SAVE BLOCK START 
	STR	A5,A3	SAVE NAME LENGTH IN APLTAB+STKCOM
	IM*	APLTAB+STKCOM	INCREMENT NO OF APPLIC.
	LDR	A4,A8	GET START OF NAME RECORD 
	ADK	A5,1	INCREMENT CHARACTER COUNT 
	SRA	A5,1	AND MAKE WORD COUNT 
* 
APLID6	EQU	*
	ADK	A3,2	ADVANCE TABLE POINTER 
	LDR*	A1,A4	MOVE 2 CHARACTERS OF NAME 
	STR	A1,A3	TO APLTAB+STKCOM 
	ADK	A4,2	ADVANCE CHARACTER POINTER 
	SUK	A5,1	DECREMENT WORD COUNT
	RB(P)	APLID6	MORE CHARACTERS TO MOVE 
* 
	ADK	A6,ACBLEN	PREPARE FOR NEXT TABLE ENTRY 
	RTN	A14	NO, RETURN 
	EJECT
********************************************* 
*                                           * 
*                                           * 
*              GETAPL                       * 
*              ======                       * 
*                                           * 
*  SCANS VTOC FOR FILE NAMES LISTED IN      * 
*  APLTAB+STKCOM. APLTAB+STKCOM IS UPDATED WITH CORRE-    * 
*  SPONDING DISC ADDRESSE AND THE LENGTH    * 
*  OF APLTAB+STKCOM IS THEN USED TO CALCULATE      *
*  START OF FREE AREA.                      * 
*                                           * 
*  ENTRY: A6 - 1ST ENTRY IN APLTAB+STKCOM          *
*         APLCNT+STKEND - NO OF ENTRIES IN APLTAB+STKCOM  * 
*                                           * 
********************************************* 
* 
* 
GETAPL	EQU	*
	CF	A14,GETVLB	READ VOLUME LABEL
GETAP0	EQU	*
	CF	A14,RDSEC	READ SECTOR 
	LDK	A7,QBLFAC	VTOC BLOCKING FACTOR 
	LDR	A4,A9	GET START OF RECORD
GETAP2	EQU	*
	LDR*	A5,A6	GET LENGTH OF APPL. NAME
	LDR	A3,A4	SAVE RECORD START
	LDR	A1,A6	AND TABLE POINTER
	ADK	A1,2	SKIP NO OF CHAR. ENTRY
	LCR	A2,A4	GET 1ST CHARACTER IN FILE NAME 
	CCK	A2,/2020	UNUSED? 
	RF(E)	GETAP4	YES!
* 
	CF	A14,CMPSYM	COMPARE SYMBOLS
	ADK	A5,0 
	RF(Z)	FOUND	EQUAL
* 
*  NO MATCH, TRY NEXT VTOC ENTRY
* 
GETAP4	EQU	*
	ADR	A4,A8	GET NEXT RECORD
	ADK	A4,1	BYPASS STATUS CHARACTER 
	SUK	A7,1	MORE RECORDS IN THIS SECTOR 
	RB(P)	GETAP2	YES!
* 
	CWR	A11,A10	LAST VTOC SECTOR?
	ABL(E)	CONERR	ERROR IN CONF. FILE
* 
	RB	GETAP0
* 
FOUND	EQU	* 
	LDK	A2,'L'	LOAD FILE CHARACTER 
	CC	A2,27,A4	LOAD FILE? 
	ABL(NE)	CONERR	NO ERROR IN CONF. FILE
* 
	LD	A2,16,A4	GET DISC ADDRESS (BITS 0-15) 
	ST	A2,APLADA,A6	SAVE IN APLTAB+STKCOM
	LD	A2,18,A4	GET DISC ADDRESS (BITS 16-31)
	ST	A2,APLADA+2,A6	AND SAVE IN APLTAB+STKCOM
	ADK	A6,ACBLEN	ADVANCE TO NEXT TABLE BLOCK
* 
	IM	APLCNT+STKEND	INCREMENT APPLICATION COUNT 
	RB(NZ)	GETAPL	MORE TO DO!
* 
	RTN	A14	END OF GETAPL
	EJECT
********************************************* 
*                                           * 
*                                           * 
*            CMPSYM                         * 
*            ======                         * 
*                                           * 
*  COMPARE TWO SYMBOLS WITH EACH OTHER      * 
*                                           * 
*  ENTRY: A3 - START OF SYMBOL 1            * 
*         A1 - START OF SYMBOL 2            * 
*         A5 - LENGTH OF SYMBOL 2           * 
*                                           * 
*  EXIT:  A5 = 0 IF SYMBOLS EQUAL           * 
*                                           * 
********************************************* 
* 
* 
CMPSYM	EQU	*
	LCR	A2,A3	GET CHARACTER IN SYMBOL 1
	CCR	A2,A1	COMPARE WITH CHARACTER IN SYMBOL 2 
	RF(NE)	CMPEND	IF NOT EQUAL, RETURN 
* 
	ADK	A3,1	ADVANCE CHARACTER POINTERS
	ADK	A1,1 
	SUK	A5,1	DECREMENT CHARACTER COUNT 
	RB(NZ)	CMPSYM	CONTINUE THE COMPARISION 
* 
	LDR*	A2,A6	RESTORE NAME LENGTH 
	CWK	A2,8	LOOK IF MAX. LENGTH 
	RF(E)	CMPEND	YES! FINISHED 
* 
	LCR	A2,A3	GET NEXT CHARACTER IN FILE NAME
	CCK	A2,/2020	END OF FILE NAME? 
	RF(E)	CMPEND	YES!
* 
	LDK	A5,1	NO, NOT EQUAL!
CMPEND	EQU	*
	RTN	A14	END OF CMPSYM
	EJECT
********************************************* 
*                                           * 
*                                           * 
*               GETVLB                      * 
*               ======                      * 
*                                           * 
*  READ SECTOR CONTAINIG VOLUME LABEL       * 
*                                           * 
*  EXIT: A10 - LAST VTOC SECTOR             * 
*        A11 - FIRST VTOC SECTOR            * 
*        A8  - VTOC RECORD LENGTH           * 
*                                           * 
********************************************* 
* 
* 
GETVLB	EQU	*
	SUR	A11,A11	VOLUME LABEL 
	SUR	A12,A12
	CF	A14,RDSEC	GET VOLUME LABEL
	LD	A10,10,A9	GET VTOC BASE 
	LDR	A11,A10	SAVE 
	AD	A10,6,A9	LAST VTOC SECTOR 
	LD	A8,12,A9	GET VTOC RECORD LENGTH 
	AD	A11,46,A9	FIRST FILE SECTOR IN VTOC	=7
	RTN	A14	END OF GETVLB
* 
	EJECT
********************************************* 
*                                           * 
*                                           * 
*                  RDSEC                    * 
*                  =====                    * 
*                                           * 
*  READS A SECTOR FROM INPUT DISC.          * 
*                                           * 
*  ENTRY: A9 - BUFFER ADDRESS               * 
*         A11- SECTOR ADDRESS               * 
*         A12- SECTOR ADDRESS               * 
*                                           * 
********************************************* 
* 
* 
RDSEC	EQU	* 
	CF	A14,READS	MODIFIED ADDRESS
READS	EQU	*-2 
	RTN	A14
	EJECT
* 
*  DATA AREA DEFINITION 
* 
SYSBAS	EQU	*
SAVCON	DATA	BUFLEN
MXBUF	DATA	0	DISC/FLEXIBLE DISC BUFFER ADDRESS
SAVMEM	DATA	0	SAVE AREA 
CYLNBR	DATA	/FFFF	CYLINDER NUMBER 
SECNBR	DATA	0	PHYSICAL SECTOR NUMBER
	IFT	CDDISC=1		=9 
	IFT	CDDI16=0		=9 
DEVTAB	DATA	0,/1909,/3717,/2808,/1404 
	XIF			=9 
	IFF	CDDISC-CDDI16=1		=9
DEVTAB	DATA	0,/1909,/3717,/2808,/5717	=9
	XIF			=9 
SWPTAB	DATA	'$S','WA','P ','  ' 
FCTAB	EQU	*	=5
	DATA	/F1F3,/F0F2		=5 
* 
	END	SYSLOD

HexDump

0x00000…00036 (0, 0, 400)   Head {h00=0x0032, h01=0x0050, text=» IDENT SYSLOD  REL 11.0 81-12-17 870105041100 «, t00=0x0000, t01=0x0004}
0x00036…0003e               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x0003e…00072               Head {h00=0x0030, h01=0x0050, text=»   =15, LOADING SEVERAL APPL. FROM 80M DISC «, t00=0x0000, t01=0x0042}
0x00072…00094               Head {h00=0x001e, h01=0x0050, text=»   =15, REL 11.0 81-11-10 «, t00=0x0000, t01=0x0076}
0x00094…000c2               Head {h00=0x002a, h01=0x0050, text=»   =14,LOADING SEGMENTS FROM CASSETTE «, t00=0x0000, t01=0x0098}
0x000c2…000e8               Head {h00=0x0022, h01=0x0050, text=»   =14,REL 11.0 81-09-25 SVBU «, t00=0x0000, t01=0x00c6}
0x000e8…00114               Head {h00=0x0028, h01=0x0050, text=»   =13, ERROR WHEN SEGMENT SIZE>32K «, t00=0x0000, t01=0x00ec}
0x00114…00134               Head {h00=0x001c, h01=0x0050, text=»   =13 REL 11.0 81-05-22«, t00=0x0000, t01=0x0118}
0x00134…00160               Head {h00=0x0028, h01=0x0050, text=»   =12,COND. ASSEMBLY EDM INTRODUCED«, t00=0x0000, t01=0x0138}
0x00160…00180               Head {h00=0x001c, h01=0x0050, text=»   =12,REL 11.0 81-05-19«, t00=0x0000, t01=0x0164}
0x00180…001ae               Head {h00=0x002a, h01=0x0050, text=»   =11,ERROR IN READ ROUT. FOR 16M,80M«, t00=0x0000, t01=0x0184}
0x001ae…001ce               Head {h00=0x001c, h01=0x0050, text=»   =11,REL 11.0 81-05-11«, t00=0x0001, t01=0x0022}
0x001ce…001fe               Head {h00=0x002c, h01=0x0050, text=»   =10,TWO WORDS IN INTERRUPT TABLE ARE «, t00=0x0001, t01=0x0042}
0x001fe…00216               Head {h00=0x0014, h01=0x0050, text=»   =10,DESTROYED«, t00=0x0001, t01=0x0072}
0x00216…00236               Head {h00=0x001c, h01=0x0050, text=»   =10,REL 11.0 81-04-08«, t00=0x0001, t01=0x008a}
0x00236…00262               Head {h00=0x0028, h01=0x0050, text=»   =9,NEW CONTROL UNIT 16M,80M DISC «, t00=0x0001, t01=0x00aa}
0x00262…00282               Head {h00=0x001c, h01=0x0050, text=»   =9,REL 11.0 81-04-06 «, t00=0x0001, t01=0x00d6}
0x00282…002b8               Head {h00=0x0032, h01=0x0050, text=»   =8,WHEN CFTEST=1 TEST ALSO RWSI CONNECTION «, t00=0x0001, t01=0x00f6}
0x002b8…002d8               Head {h00=0x001c, h01=0x0050, text=»   =8,REL 11.0 81-03-31 «, t00=0x0001, t01=0x012c}
0x002d8…00300               Head {h00=0x0024, h01=0x0050, text=»   =7,WRONG VTOC-SECTOR POINTER «, t00=0x0001, t01=0x014c}
0x00300…00320               Head {h00=0x001c, h01=0x0050, text=»   =7,REL 11.0 81-03-12 «, t00=0x0001, t01=0x0174}
0x00320…0034e (2, 0, 398)   Head {h00=0x002a, h01=0x0050, text=»   =6,DC BLOCK DESTROYED WHEN CFTEST=0«, t00=0x0002, t01=0x0004}
0x0034e…0036e               Head {h00=0x001c, h01=0x0050, text=»   =6,REL 11.0 81-02-06 «, t00=0x0002, t01=0x0032}
0x0036e…003a4               Head {h00=0x0032, h01=0x0050, text=»   =5,SUPPORTS LOADING FROM TWO HARDDISC UNITS«, t00=0x0002, t01=0x0052}
0x003a4…003c4               Head {h00=0x001c, h01=0x0050, text=»   =5,REL 11.0 81-01-29 «, t00=0x0002, t01=0x0088}
0x003c4…003e6               Head {h00=0x001e, h01=0x0050, text=»   =4,FLOPPY MUX CORRECTED«, t00=0x0002, t01=0x00a8}
0x003e6…00406               Head {h00=0x001c, h01=0x0050, text=»   =4,REL 11.0 81-01-26 «, t00=0x0002, t01=0x00ca}
0x00406…00430               Head {h00=0x0026, h01=0x0050, text=»   =3,IF 256 KBYTE MEMORY OVERFLOW«, t00=0x0002, t01=0x00ea}
0x00430…0045e               Head {h00=0x002a, h01=0x0050, text=»   =3,WILL OCCUR IN SEGMENT ALLOCATION«, t00=0x0002, t01=0x0114}
0x0045e…0047e               Head {h00=0x001c, h01=0x0050, text=»   =3,PRR 11.0 80-12-03 «, t00=0x0002, t01=0x0142}
0x0047e…004b2               Head {h00=0x0030, h01=0x0050, text=»   =2,LOOK IF APPL. TYPE ALLOWED IN MONITOR «, t00=0x0002, t01=0x0162}
0x004b2…004e6               Head {h00=0x0030, h01=0x0050, text=»   =2,REDESIGNED SEGMENT ALLOCATION ALGORITM«, t00=0x0003, t01=0x0008}
0x004e6…00506               Head {h00=0x001c, h01=0x0050, text=»   =2,PRR 11.0 80-11-20 «, t00=0x0003, t01=0x003c}
0x00506…00534               Head {h00=0x002a, h01=0x0050, text=»   =1,MXSTAB ADDR. NOT REL IF CFTEST=0«, t00=0x0003, t01=0x005c}
0x00534…00554               Head {h00=0x001c, h01=0x0050, text=»   =1,PRR 11.0 80-11-19 «, t00=0x0003, t01=0x008a}
0x00554…0056a               Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSLOD «, t00=0x0003, t01=0x00aa}
0x0056a…00580               Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSBAS «, t00=0x0003, t01=0x00c0}
0x00580…00596               Head {h00=0x0012, h01=0x0050, text=» ENTRY NUMSEG «, t00=0x0003, t01=0x00d6}
0x00596…005ac               Head {h00=0x0012, h01=0x0050, text=» ENTRY PRGLG1 «, t00=0x0003, t01=0x00ec}
0x005ac…005c2               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLADA «, t00=0x0003, t01=0x0102}
0x005c2…005d8               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLLAC «, t00=0x0003, t01=0x0118}
0x005d8…005ee               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLLAP «, t00=0x0003, t01=0x012e}
0x005ee…00604               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLLDA «, t00=0x0003, t01=0x0144}
0x00604…0061a               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLMMC «, t00=0x0003, t01=0x015a}
0x0061a…00630               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLMMP «, t00=0x0003, t01=0x0170}
0x00630…00646               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLNPE «, t00=0x0003, t01=0x0186}
0x00646…0065c               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLREL «, t00=0x0004, t01=0x000c}
0x0065c…00672               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLSTA «, t00=0x0004, t01=0x0022}
0x00672…00688               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLTYP «, t00=0x0004, t01=0x0038}
0x00688…0069e               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLIOE «, t00=0x0004, t01=0x004e}
0x0069e…006b4               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLSEG «, t00=0x0004, t01=0x0064}
0x006b4…006ca               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLSWB «, t00=0x0004, t01=0x007a}
0x006ca…006ee               Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0004, t01=0x0090}
0x006ee…00712               Head {h00=0x0020, h01=0x0050, text=»*                         * «, t00=0x0004, t01=0x00b4}
0x00712…00736               Head {h00=0x0020, h01=0x0050, text=»*  ENTRIES AND EXTERNALS  * «, t00=0x0004, t01=0x00d8}
0x00736…0075a               Head {h00=0x0020, h01=0x0050, text=»*                         * «, t00=0x0004, t01=0x00fc}
0x0075a…0077e               Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0004, t01=0x0120}
0x0077e…00794               Head {h00=0x0012, h01=0x0050, text=» EXTRN CONVRT «, t00=0x0004, t01=0x0144}
0x00794…007c0               Head {h00=0x0028, h01=0x0050, text=» EXTRN POB RESTORE REGISTER CONTENTS«, t00=0x0004, t01=0x015a}
0x007c0…007ea               Head {h00=0x0026, h01=0x0050, text=» EXTRN PUSH SAVE REGISTER CONTENTS«, t00=0x0004, t01=0x0186}
0x007ea…00800               Head {h00=0x0012, h01=0x0050, text=» EXTRN SYSLDM «, t00=0x0005, t01=0x0020}
0x00800…00816               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTANO «, t00=0x0005, t01=0x0036}
0x00816…0082c               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTBUG «, t00=0x0005, t01=0x004c}
0x0082c…00842               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTEFA «, t00=0x0005, t01=0x0062}
0x00842…00858               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTMSZ «, t00=0x0005, t01=0x0078}
0x00858…0088e               Head {h00=0x0032, h01=0x0050, text=» EXTRN SCTMXS ADDRESS TO MONITOR EXTENT TABLE «, t00=0x0005, t01=0x008e}
0x0088e…008a4               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTNOP «, t00=0x0005, t01=0x00c4}
0x008a4…008ba               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTOPT «, t00=0x0005, t01=0x00da}
0x008ba…008d0               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTIPL «, t00=0x0005, t01=0x00f0}
0x008d0…008e6               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTPSZ «, t00=0x0005, t01=0x0106}
0x008e6…008fc               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTSFA «, t00=0x0005, t01=0x011c}
0x008fc…00912               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTSTB «, t00=0x0005, t01=0x0132}
0x00912…00920               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0148}
0x00920…00932               Head {h00=0x000e, h01=0x0050, text=» EXTRN REL«, t00=0x0005, t01=0x0156}
0x00932…00946               Head {h00=0x0010, h01=0x0050, text=» EXTRN ERROR«, t00=0x0005, t01=0x0168}
0x00946…0095c               Head {h00=0x0012, h01=0x0050, text=» EXTRN MMDDIV «, t00=0x0005, t01=0x017c}
0x0095c…00970 (6, 0, 400)   Head {h00=0x0010, h01=0x0050, text=» EXTRN TABBE«, t00=0x0006, t01=0x0004}
0x00970…00984               Head {h00=0x0010, h01=0x0050, text=» EXTRN MMEND«, t00=0x0006, t01=0x0018}
0x00984…0099a               Head {h00=0x0012, h01=0x0050, text=» EXTRN CMPADR «, t00=0x0006, t01=0x002c}
0x0099a…009ae               Head {h00=0x0010, h01=0x0050, text=» EXTRN MOVE «, t00=0x0006, t01=0x0042}
0x009ae…009e6               Head {h00=0x0034, h01=0x0050, text=» EXTRN TTB:MT DISPLACEMENT TO MMU TABLE IN TTAB «, t00=0x0006, t01=0x0056}
0x009e6…009fc               Head {h00=0x0012, h01=0x0050, text=» EXTRN TTB:CB «, t00=0x0006, t01=0x008e}
0x009fc…00a12               Head {h00=0x0012, h01=0x0050, text=» EXTRN STKCOM «, t00=0x0006, t01=0x00a4}
0x00a12…00a28               Head {h00=0x0012, h01=0x0050, text=» EXTRN STKEND «, t00=0x0006, t01=0x00ba}
0x00a28…00a36               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x00d0}
0x00a36…00a42               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0006, t01=0x00de}
0x00a42…00a4e               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0006, t01=0x00ea}
0x00a4e…00a76               Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0006, t01=0x00f6}
0x00a76…00a9e               Head {h00=0x0024, h01=0x0050, text=»* CONFIGURATION FILE (CONFIG) * «, t00=0x0006, t01=0x011e}
0x00a9e…00ac6               Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0006, t01=0x0146}
0x00ac6…00ad2               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0006, t01=0x016e}
0x00ad2…00af2               Head {h00=0x001c, h01=0x0050, text=»* TASK DEFINITION BLOCK:«, t00=0x0006, t01=0x017a}
0x00af2…00b14               Head {h00=0x001e, h01=0x0050, text=»TDBBT EQU 0 1A BLOCK TYPE «, t00=0x0007, t01=0x000a}
0x00b14…00b40               Head {h00=0x0028, h01=0x0050, text=»TDBNT EQU TDBBT+1 2N NUMBER OF TASKS«, t00=0x0007, t01=0x002c}
0x00b40…00b70               Head {h00=0x002c, h01=0x0050, text=»TDBID EQU TDBNT+2 6A TASK ID START VALUE«, t00=0x0007, t01=0x0058}
0x00b70…00ba0               Head {h00=0x002c, h01=0x0050, text=»TDBMC EQU TDBID+6 6A MATCHING TASK CLASS«, t00=0x0007, t01=0x0088}
0x00ba0…00bc8               Head {h00=0x0024, h01=0x0050, text=»TDBTL EQU TDBMC+6 6A TASK LEVEL «, t00=0x0007, t01=0x00b8}
0x00bc8…00c06               Head {h00=0x003a, h01=0x0050, text=»TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x0007, t01=0x00e0}
0x00c06…00c10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x011e}
0x00c10…00c3a               Head {h00=0x0026, h01=0x0050, text=»TDBFST EQU TDBNC+2 SAVE05 TERM DEF«, t00=0x0007, t01=0x0128}
0x00c3a…00c62               Head {h00=0x0024, h01=0x0050, text=»TDC EQU 7 TERMINAL DEVICE CLASS «, t00=0x0007, t01=0x0152}
0x00c62…00c84               Head {h00=0x001e, h01=0x0050, text=»TLC EQU 7 LINE CONNECTION «, t00=0x0007, t01=0x017a}
0x00c84…00cb0               Head {h00=0x0028, h01=0x0050, text=»TDBREC EQU TDC+TLC TDB-RECORD LENGTH«, t00=0x0008, t01=0x000c}
0x00cb0…00cba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0038}
0x00cba…00ce8               Head {h00=0x002a, h01=0x0050, text=»SDC EQU 7 SPECIAL DEVICE CLASS-RECORD «, t00=0x0008, t01=0x0042}
0x00ce8…00cf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0070}
0x00cf2…00d16               Head {h00=0x0020, h01=0x0050, text=»* COMMON DEVICE DEF. BLOCK: «, t00=0x0008, t01=0x007a}
0x00d16…00d38               Head {h00=0x001e, h01=0x0050, text=»CDBBT EQU 0 1A BLOCK TYPE «, t00=0x0008, t01=0x009e}
0x00d38…00d72               Head {h00=0x0036, h01=0x0050, text=»CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES «, t00=0x0008, t01=0x00c0}
0x00d72…00d9e               Head {h00=0x0028, h01=0x0050, text=»SDCFST EQU CDBNC+2 SAVE05 SDC-RECORD«, t00=0x0008, t01=0x00fa}
0x00d9e…00da8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0126}
0x00da8…00db2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0130}
0x00db2…00ddc               Head {h00=0x0026, h01=0x0050, text=»* USER WORK BLOCK TYPE DEF. BLOCK «, t00=0x0008, t01=0x013a}
0x00ddc…00dfe               Head {h00=0x001e, h01=0x0050, text=»UDBBT EQU 0 1A BLOCK TYPE «, t00=0x0008, t01=0x0164}
0x00dfe…00e2e               Head {h00=0x002c, h01=0x0050, text=»UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES«, t00=0x0008, t01=0x0186}
0x00e2e…00e38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0026}
0x00e38…00e64               Head {h00=0x0028, h01=0x0050, text=»UDBFST EQU UDBNU+3 SAVE05 UDB-RECORD«, t00=0x0009, t01=0x0030}
0x00e64…00e84               Head {h00=0x001c, h01=0x0050, text=»NAMUWB EQU 3 NAME OF UWB«, t00=0x0009, t01=0x005c}
0x00e84…00eaa               Head {h00=0x0022, h01=0x0050, text=»NUMUBL EQU 3 NUMBER OF BLOCKS «, t00=0x0009, t01=0x007c}
0x00eaa…00edc               Head {h00=0x002e, h01=0x0050, text=»UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH«, t00=0x0009, t01=0x00a2}
0x00edc…00eea               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00d4}
0x00eea…00f02               Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0009, t01=0x00e2}
0x00f02…00f1a               Head {h00=0x0014, h01=0x0050, text=»* SOP-HANDLING *«, t00=0x0009, t01=0x00fa}
0x00f1a…00f32               Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0009, t01=0x0112}
0x00f32…00f54               Head {h00=0x001e, h01=0x0050, text=»SOP EQU /2E DEVICE ADDRESS«, t00=0x0009, t01=0x012a}
0x00f54…00f5c               Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x014c}
0x00f5c…00f7e               Head {h00=0x001e, h01=0x0050, text=»LMP1 EQU /400 LAMP 1 CODE «, t00=0x0009, t01=0x0154}
0x00f7e…00f94               Head {h00=0x0012, h01=0x0050, text=»LMP2 EQU /200 «, t00=0x0009, t01=0x0176}
0x00f94…00faa               Head {h00=0x0012, h01=0x0050, text=»LMP3 EQU /100 «, t00=0x0009, t01=0x018c}
0x00faa…00fbe               Head {h00=0x0010, h01=0x0050, text=»LMP4 EQU /80«, t00=0x000a, t01=0x0012}
0x00fbe…00fd2               Head {h00=0x0010, h01=0x0050, text=»LMP5 EQU /40«, t00=0x000a, t01=0x0026}
0x00fd2…00fe6               Head {h00=0x0010, h01=0x0050, text=»LMP6 EQU /20«, t00=0x000a, t01=0x003a}
0x00fe6…00ffa               Head {h00=0x0010, h01=0x0050, text=»LMP7 EQU /10«, t00=0x000a, t01=0x004e}
0x00ffa…0100c               Head {h00=0x000e, h01=0x0050, text=»LMP8 EQU 8«, t00=0x000a, t01=0x0062}
0x0100c…0101e               Head {h00=0x000e, h01=0x0050, text=»LMP9 EQU 4«, t00=0x000a, t01=0x0074}
0x0101e…01032               Head {h00=0x0010, h01=0x0050, text=»LMP10 EQU 2 «, t00=0x000a, t01=0x0086}
0x01032…01046               Head {h00=0x0010, h01=0x0050, text=»LMP11 EQU 1 «, t00=0x000a, t01=0x009a}
0x01046…01054               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00ae}
0x01054…0105c               Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00bc}
0x0105c…01064               Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00c4}
0x01064…01090               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x000a, t01=0x00cc}
0x01090…010bc               Head {h00=0x0028, h01=0x0050, text=»*  MXSTAB DISPLACEMENTS           * «, t00=0x000a, t01=0x00f8}
0x010bc…010e8               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x000a, t01=0x0124}
0x010e8…010f0               Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0150}
0x010f0…010f8               Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0158}
0x010f8…0110c               Head {h00=0x0010, h01=0x0050, text=»MX:NOX EQU 6«, t00=0x000a, t01=0x0160}
0x0110c…0113c               Head {h00=0x002c, h01=0x0050, text=»MX:NOS EQU 8 NUMBER OF SEGMENT CLUSTERS «, t00=0x000a, t01=0x0174}
0x0113c…01144               Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0014}
0x01144…0114c               Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x001c}
0x0114c…01182               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x000b, t01=0x0024}
0x01182…011b8               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x000b, t01=0x005a}
0x011b8…011ee               Head {h00=0x0032, h01=0x0050, text=»*    APCTAB DISPLACEMENTS                   * «, t00=0x000b, t01=0x0090}
0x011ee…01224               Head {h00=0x0032, h01=0x0050, text=»*    ====================                   * «, t00=0x000b, t01=0x00c6}
0x01224…0125a               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x000b, t01=0x00fc}
0x0125a…01290               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x000b, t01=0x0132}
0x01290…01298               Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0168}
0x01298…012a0               Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0170}
0x012a0…012d6               Head {h00=0x0032, h01=0x0050, text=»APLADA EQU 22 APPLICATION DISC FILE ADDRESS =2«, t00=0x000b, t01=0x0178}
0x012d6…01308               Head {h00=0x002e, h01=0x0050, text=»APLREL EQU 18 APPLICATION RELOCATION BASE «, t00=0x000c, t01=0x001e}
0x01308…01338               Head {h00=0x002c, h01=0x0050, text=»APLIOE EQU 0 APPLICATION RESTART ADDRESS«, t00=0x000c, t01=0x0050}
0x01338…01374               Head {h00=0x0038, h01=0x0050, text=»APLLAC EQU 14 APPLICATION LOAD ADDR. (LOGICAL ADDR.)«, t00=0x000c, t01=0x0080}
0x01374…0139e               Head {h00=0x0026, h01=0x0050, text=»APLLAP EQU 12 LOGICAL PAGE ADDRESS«, t00=0x000c, t01=0x00bc}
0x0139e…013da               Head {h00=0x0038, h01=0x0050, text=»APLLDA EQU 0 APPLICATION LOAD ADDR. (PHYSICAL ADDR.)«, t00=0x000c, t01=0x00e6}
0x013da…0140c               Head {h00=0x002e, h01=0x0050, text=»APLMMC EQU 10 APPLICATION MMU START ENTRY «, t00=0x000c, t01=0x0122}
0x0140c…01438               Head {h00=0x0028, h01=0x0050, text=»APLMMP EQU 8 SEGMENT START MMU ENTRY«, t00=0x000c, t01=0x0154}
0x01438…0146a               Head {h00=0x002e, h01=0x0050, text=»APLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT«, t00=0x000c, t01=0x0180}
0x0146a…0149c               Head {h00=0x002e, h01=0x0050, text=»APLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU«, t00=0x000d, t01=0x0022}
0x0149c…014ce               Head {h00=0x002e, h01=0x0050, text=»APLPSZ EQU 20 APPLICATION SEGMENT SIZE =2 «, t00=0x000d, t01=0x0054}
0x014ce…014f2               Head {h00=0x0020, h01=0x0050, text=»APLSWB EQU 2 APPLICATION SWB«, t00=0x000d, t01=0x0086}
0x014f2…01520               Head {h00=0x002a, h01=0x0050, text=»APLSTA EQU 16 APPL. PGM START ADDRESS «, t00=0x000d, t01=0x00aa}
0x01520…01546               Head {h00=0x0022, h01=0x0050, text=»APLTYP EQU 8 APPLICATION TYPE «, t00=0x000d, t01=0x00d8}
0x01546…01554               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00fe}
0x01554…0157a               Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000d, t01=0x010c}
0x0157a…015a0               Head {h00=0x0022, h01=0x0050, text=»*                            *«, t00=0x000d, t01=0x0132}
0x015a0…015c6               Head {h00=0x0022, h01=0x0050, text=»*  COMMON DISPLACEMENTS      *«, t00=0x000d, t01=0x0158}
0x015c6…015ec               Head {h00=0x0022, h01=0x0050, text=»*  AND CONSTANTS             *«, t00=0x000d, t01=0x017e}
0x015ec…01612               Head {h00=0x0022, h01=0x0050, text=»*                            *«, t00=0x000e, t01=0x0014}
0x01612…01638               Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000e, t01=0x003a}
0x01638…01644               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x000e, t01=0x0060}
0x01644…01650               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x000e, t01=0x006c}
0x01650…0168a               Head {h00=0x0036, h01=0x0050, text=»ACBLEN EQU 26 APPLICATION CONTROL BLOCK LENGTH =2 «, t00=0x000e, t01=0x0078}
0x0168a…016be               Head {h00=0x0030, h01=0x0050, text=»APLTAB EQU 12 ADDRESS TO APPL. CONTROL TABLE«, t00=0x000e, t01=0x00b2}
0x016be…016e6               Head {h00=0x0024, h01=0x0050, text=»APPLNO EQU 18 APPLICATION NUMBER«, t00=0x000e, t01=0x00e6}
0x016e6…01712               Head {h00=0x0028, h01=0x0050, text=»BUFSIZ EQU 14 TEMPORARY BUFFER SIZE «, t00=0x000e, t01=0x010e}
0x01712…01744               Head {h00=0x002e, h01=0x0050, text=»CONLEN EQU 0 LENGTH OF CONFIGURATION DATA «, t00=0x000e, t01=0x013a}
0x01744…01774               Head {h00=0x002c, h01=0x0050, text=»CONSTA EQU 2 START OF CONFIGURATION DATA«, t00=0x000e, t01=0x016c}
0x01774…017a0               Head {h00=0x0028, h01=0x0050, text=»DATEND EQU 34 END OF DDIV PROTOTYPE «, t00=0x000f, t01=0x000c}
0x017a0…017de               Head {h00=0x003a, h01=0x0050, text=»FSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER «, t00=0x000f, t01=0x0038}
0x017de…0180c               Head {h00=0x002a, h01=0x0050, text=»FSTPAG EQU 22 1ST FREE PAGE (PHYSICAL)«, t00=0x000f, t01=0x0076}
0x0180c…0183c               Head {h00=0x002c, h01=0x0050, text=»FYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER «, t00=0x000f, t01=0x00a4}
0x0183c…01876               Head {h00=0x0036, h01=0x0050, text=»LSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART«, t00=0x000f, t01=0x00d4}
0x01876…018a2               Head {h00=0x0028, h01=0x0050, text=»MAPLEN EQU 30 LENGTH OF AREA TO MAP «, t00=0x000f, t01=0x010e}
0x018a2…018d0               Head {h00=0x002a, h01=0x0050, text=»MMFROM EQU 36 2ND MMU TABLE WORK AREA «, t00=0x000f, t01=0x013a}
0x018d0…018fc               Head {h00=0x0028, h01=0x0050, text=»MMTO EQU 38 1:ST MMU TABLE WORK AREA«, t00=0x000f, t01=0x0168}
0x018fc…01924 (16, 0, 400)  Head {h00=0x0024, h01=0x0050, text=»M:REL EQU 16 RELOCATION CONSTANT«, t00=0x0010, t01=0x0004}
0x01924…01954               Head {h00=0x002c, h01=0x0050, text=»SYSBUF EQU 28 START OF TEMPORARY BUFFER «, t00=0x0010, t01=0x002c}
0x01954…0198a               Head {h00=0x0032, h01=0x0050, text=»SWBFSA EQU 4 SWB-FILE START ADDRESS (2 WORDS) «, t00=0x0010, t01=0x005c}
0x0198a…019be               Head {h00=0x0030, h01=0x0050, text=»SWBFSE EQU 8 SWB-FILE END ADDRESS (2 WORDS) «, t00=0x0010, t01=0x0092}
0x019be…019ea               Head {h00=0x0028, h01=0x0050, text=»TTAB EQU 32 WORK AREA FOR MMU TABLE «, t00=0x0010, t01=0x00c6}
0x019ea…01a12               Head {h00=0x0024, h01=0x0050, text=»COM01 EQU 40 COMMON SAVE AREA 1 «, t00=0x0010, t01=0x00f2}
0x01a12…01a3a               Head {h00=0x0024, h01=0x0050, text=»COM02 EQU 42 COMMON SAVE AREA 2 «, t00=0x0010, t01=0x011a}
0x01a3a…01a62               Head {h00=0x0024, h01=0x0050, text=»COM03 EQU 44 COMMON SAVE AREA 3 «, t00=0x0010, t01=0x0142}
0x01a62…01a90               Head {h00=0x002a, h01=0x0050, text=»TOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS«, t00=0x0010, t01=0x016a}
0x01a90…01ac0               Head {h00=0x002c, h01=0x0050, text=»SWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG«, t00=0x0011, t01=0x0008}
0x01ac0…01ae8               Head {h00=0x0024, h01=0x0050, text=»COM04 EQU 50 COMMON SAVE AREA 4 «, t00=0x0011, t01=0x0038}
0x01ae8…01b14               Head {h00=0x0028, h01=0x0050, text=»DCBLK EQU 54 START OF DC CONF. DATA «, t00=0x0011, t01=0x0060}
0x01b14…01b22               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x008c}
0x01b22…01b48               Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0011, t01=0x009a}
0x01b48…01b6e               Head {h00=0x0022, h01=0x0050, text=»*                            *«, t00=0x0011, t01=0x00c0}
0x01b6e…01b94               Head {h00=0x0022, h01=0x0050, text=»*  LOCAL DISPLACEMENTS       *«, t00=0x0011, t01=0x00e6}
0x01b94…01bba               Head {h00=0x0022, h01=0x0050, text=»*  AND CONSTANTS             *«, t00=0x0011, t01=0x010c}
0x01bba…01be0               Head {h00=0x0022, h01=0x0050, text=»*                            *«, t00=0x0011, t01=0x0132}
0x01be0…01c06               Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0011, t01=0x0158}
0x01c06…01c12               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0011, t01=0x017e}
0x01c12…01c1e               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0011, t01=0x018a}
0x01c1e…01c4e               Head {h00=0x002c, h01=0x0050, text=»APLCNT EQU 4 NO OF APPLICATIONS TO LOAD «, t00=0x0012, t01=0x0008}
0x01c4e…01c78               Head {h00=0x0026, h01=0x0050, text=»BLKLEN EQU 6 SEGMENT BLOCK LENGTH «, t00=0x0012, t01=0x0038}
0x01c78…01cb4               Head {h00=0x0038, h01=0x0050, text=»CARFIX EQU 54 CARTRIDGE OR FIX INDICATOR 16M DISC =9«, t00=0x0012, t01=0x0062}
0x01cb4…01ce0               Head {h00=0x0028, h01=0x0050, text=»CBLEN EQU 256 CASSETTE BUFFER LENGTH«, t00=0x0012, t01=0x009e}
0x01ce0…01d10               Head {h00=0x002c, h01=0x0050, text=»COMLG EQU 4 LENGTH OF CORE RESIDENT PART«, t00=0x0012, t01=0x00ca}
0x01d10…01d3e               Head {h00=0x002a, h01=0x0050, text=»CONDAD EQU 44 CONF. FILE DISC ADDRESS «, t00=0x0012, t01=0x00fa}
0x01d3e…01d4e               Head {h00=0x000c, h01=0x0050, text=»* EQU 46«, t00=0x0012, t01=0x0128}
0x01d4e…01d82               Head {h00=0x0030, h01=0x0050, text=»CONDEV EQU 32 SAVE AREA FOR CONF. DATA DEV. «, t00=0x0012, t01=0x0138}
0x01d82…01db2               Head {h00=0x002c, h01=0x0050, text=»CURAPL EQU 24 CURRENT APPL. CONTR. BLOCK«, t00=0x0012, t01=0x016c}
0x01db2…01dd4               Head {h00=0x001e, h01=0x0050, text=»DEVTYP EQU 50 DEVICE TYPE «, t00=0x0013, t01=0x000c}
0x01dd4…01e0e               Head {h00=0x0036, h01=0x0050, text=»DISCAD EQU 28 SAVE AREA FOR DISC ADDRESS (2 WORDS)«, t00=0x0013, t01=0x002e}
0x01e0e…01e36               Head {h00=0x0024, h01=0x0050, text=»ECNFBF EQU 6 END OF CONF. BUFFER«, t00=0x0013, t01=0x0068}
0x01e36…01e5e               Head {h00=0x0024, h01=0x0050, text=»EINPBF EQU 2 END OF INPUT BUFFER«, t00=0x0013, t01=0x0090}
0x01e5e…01e86               Head {h00=0x0024, h01=0x0050, text=»ESYSTA EQU 0 END OF SYSTEM AREA «, t00=0x0013, t01=0x00b8}
0x01e86…01eb0               Head {h00=0x0026, h01=0x0050, text=»EXLEN EQU 4 MONITOR EXTENT LENGTH «, t00=0x0013, t01=0x00e0}
0x01eb0…01eea               Head {h00=0x0036, h01=0x0050, text=»FILCOD EQU 36 LOAD DEVICE FILE CODE (NOT CASSETTE)«, t00=0x0013, t01=0x010a}
0x01eea…01f16               Head {h00=0x0028, h01=0x0050, text=»FSTSEC EQU 16 FIRST SECTOR INDICATOR«, t00=0x0013, t01=0x0144}
0x01f16…01f4a               Head {h00=0x0030, h01=0x0050, text=»IPLDEV EQU 34 SAVE AREA FOR PGM LOAD DEVICE «, t00=0x0013, t01=0x0170}
0x01f4a…01f74               Head {h00=0x0026, h01=0x0050, text=»IPLTYP EQU 48 PGM LOAD DEVICE TYPE«, t00=0x0014, t01=0x0014}
0x01f74…01f9e               Head {h00=0x0026, h01=0x0050, text=»LLDADR EQU 12 LOGICAL LOAD ADDRESS«, t00=0x0014, t01=0x003e}
0x01f9e…01fce               Head {h00=0x002c, h01=0x0050, text=»LSTREC EQU 20 LAST RECORD OF CONF. FILE «, t00=0x0014, t01=0x0068}
0x01fce…02002               Head {h00=0x0030, h01=0x0050, text=»LSTASG EQU 8 LOGICAL START OF FIRST SEGMENT «, t00=0x0014, t01=0x0098}
0x02002…02026               Head {h00=0x0020, h01=0x0050, text=»MONNO EQU 22 MONITOR NUMBER «, t00=0x0014, t01=0x00cc}
0x02026…02054               Head {h00=0x002a, h01=0x0050, text=»NCHAID EQU 8 NO OF CHAR. IN APPL. NAME«, t00=0x0014, t01=0x00f0}
0x02054…02082               Head {h00=0x002a, h01=0x0050, text=»NCHTID EQU 5 NO OF CHAR IN TID RECORD «, t00=0x0014, t01=0x011e}
0x02082…020ac               Head {h00=0x0026, h01=0x0050, text=»NDEVCL EQU 18 NO OF DEVICE CLASSES«, t00=0x0014, t01=0x014c}
0x020ac…020e2               Head {h00=0x0032, h01=0x0050, text=»NUMSEG EQU 10 DISPL. TO NO OF SEGM. IN S:GTAB «, t00=0x0014, t01=0x0176}
0x020e2…02114               Head {h00=0x002e, h01=0x0050, text=»OPTION EQU 52 SAVE AREA FOR OPTOIN WORD =2«, t00=0x0015, t01=0x001c}
0x02114…0213e               Head {h00=0x0026, h01=0x0050, text=»PAGLG EQU 8 PAGE LENGTH IN S:GTAB «, t00=0x0015, t01=0x004e}
0x0213e…0216a               Head {h00=0x0028, h01=0x0050, text=»PAGSIZ EQU /1000 PHYSICAL PAGE SIZE «, t00=0x0015, t01=0x0078}
0x0216a…02196               Head {h00=0x0028, h01=0x0050, text=»PLDADR EQU 14 PHYSICAL LOAD ADDRESS «, t00=0x0015, t01=0x00a4}
0x02196…021c6               Head {h00=0x002c, h01=0x0050, text=»PRGLG1 EQU 2 PROGRAM LENGTH DISPLACEMENT«, t00=0x0015, t01=0x00d0}
0x021c6…02204               Head {h00=0x003a, h01=0x0050, text=»PSECNL EQU 40 PHYSICAL SECTOR NUMBER LEAST SIGNIFICANT«, t00=0x0015, t01=0x0100}
0x02204…02242               Head {h00=0x003a, h01=0x0050, text=»PSECNM EQU 42 PHYSICAL SECTOR NUMBER MOST SIGNIFICANT «, t00=0x0015, t01=0x013e}
0x02242…02272               Head {h00=0x002c, h01=0x0050, text=»PSECPA EQU 38 PHYSICAL SECTOR PART (0-2)«, t00=0x0015, t01=0x017c}
0x02272…0229e               Head {h00=0x0028, h01=0x0050, text=»REWFLG EQU 56 REWIND INDICATION =14 «, t00=0x0016, t01=0x001c}
0x0229e…022c4               Head {h00=0x0022, h01=0x0050, text=»SEGCNT EQU 10 SEGMENT COUNTER «, t00=0x0016, t01=0x0048}
0x022c4…022ec               Head {h00=0x0024, h01=0x0050, text=»SWPFEL EQU 14 FILE EXTENT LENGTH«, t00=0x0016, t01=0x006e}
0x022ec…0231a               Head {h00=0x002a, h01=0x0050, text=»TNBRSG EQU 26 TOTAL NUMBER OF SEGMENTS«, t00=0x0016, t01=0x0096}
0x0231a…02328               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x00c4}
0x02328…02348               Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0016, t01=0x00d2}
0x02348…02368               Head {h00=0x001c, h01=0x0050, text=»*  CASSETTE HANDLING  * «, t00=0x0016, t01=0x00f2}
0x02368…02388               Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0016, t01=0x0112}
0x02388…023b8               Head {h00=0x002c, h01=0x0050, text=»CHCR EQU /E DEVICE ADDRESS FOR CASSETTE «, t00=0x0016, t01=0x0132}
0x023b8…023da               Head {h00=0x001e, h01=0x0050, text=»LOCK EQU /2 LOCK CASSETTE «, t00=0x0016, t01=0x0162}
0x023da…02406               Head {h00=0x0028, h01=0x0050, text=»SBOT EQU 8 SEARCH BEGINNING OF TAPE «, t00=0x0016, t01=0x0184}
0x02406…02432               Head {h00=0x0028, h01=0x0050, text=»STMF EQU /C SEARCH TAPEMARK FORWARD «, t00=0x0017, t01=0x0020}
0x02432…0243c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x004c}
0x0243c…02462               Head {h00=0x0022, h01=0x0050, text=»*  DISC/FLEXIBLE DISC HANDLING«, t00=0x0017, t01=0x0056}
0x02462…0246c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x007c}
0x0246c…02498               Head {h00=0x0028, h01=0x0050, text=»BUFLEN EQU 256 LENGTH OF READ BUFFER«, t00=0x0017, t01=0x0086}
0x02498…024c6               Head {h00=0x002a, h01=0x0050, text=»DKBA3 EQU 514 BUFFER LENGTH VERSION A3«, t00=0x0017, t01=0x00b2}
0x024c6…024fc               Head {h00=0x0032, h01=0x0050, text=»RECLEN EQU 9 CONFIGURATION FILE RECORD LENGTH «, t00=0x0017, t01=0x00e0}
0x024fc…0252a               Head {h00=0x002a, h01=0x0050, text=»FDCU EQU /09 FLEXIBLE DISC CU ADDRESS «, t00=0x0017, t01=0x0116}
0x0252a…02552               Head {h00=0x0024, h01=0x0050, text=»FDIOP EQU FDCU+FDCU MUX ADDRESS «, t00=0x0017, t01=0x0144}
0x02552…02574               Head {h00=0x001e, h01=0x0050, text=»FORDEV EQU 48 DISC FORMAT «, t00=0x0017, t01=0x016c}
0x02574…0259a               Head {h00=0x0022, h01=0x0050, text=»MUXCC EQU /8080 1:ST MUX WORD «, t00=0x0017, t01=0x018e}
0x0259a…025c8               Head {h00=0x002a, h01=0x0050, text=»MXCCD3 EQU /80C1 BYTE2=NUMBER OF WORDS«, t00=0x0018, t01=0x0024}
0x025c8…025ec               Head {h00=0x0020, h01=0x0050, text=»QBLFAC EQU 6 BLOCKING FACTOR«, t00=0x0018, t01=0x0052}
0x025ec…0261c               Head {h00=0x002c, h01=0x0050, text=»CIO EQU /41C0 I/O INSTR. CONF. CONSTANT «, t00=0x0018, t01=0x0076}
0x0261c…0262a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00a6}
0x0262a…02636               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0018, t01=0x00b4}
0x02636…02680               Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0018, t01=0x00c0}
0x02680…026ca               Head {h00=0x0046, h01=0x0050, text=»*  CALL-FORMAT, PERFORMS:  CFR      A14,A13                     * «, t00=0x0018, t01=0x010a}
0x026ca…02714               Head {h00=0x0046, h01=0x0050, text=»*                          DATA     [REL-ADDRESS]               * «, t00=0x0018, t01=0x0154}
0x02714…0275e               Head {h00=0x0046, h01=0x0050, text=»*                                                               * «, t00=0x0019, t01=0x000e}
0x0275e…027a8               Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0019, t01=0x0058}
0x027a8…027b4               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0019, t01=0x00a2}
0x027b4…027c0               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0019, t01=0x00ae}
0x027c0…027cc               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0019, t01=0x00ba}
0x027cc…027ea               Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F697,16 «, t00=0x0019, t01=0x00c6}
0x027ea…027f8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x00e4}
0x027f8…0281a               Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0019, t01=0x00f2}
0x0281a…0283c               Head {h00=0x001e, h01=0x0050, text=»*  CONDITIONAL ASSEMBLY  *«, t00=0x0019, t01=0x0114}
0x0283c…0285e               Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0019, t01=0x0136}
0x0285e…02866               Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0158}
0x02866…0286e               Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0160}
0x0286e…02878               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0168}
0x02878…0289e               Head {h00=0x0022, h01=0x0050, text=»*  CONSTANTS EDITED BY SYSGEN «, t00=0x0019, t01=0x0172}
0x0289e…028a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0008}
0x028a8…028b0               Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x0012}
0x028b0…028b8               Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x001a}
0x028b8…028ca               Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x001a, t01=0x0022}
0x028ca…028dc               Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x001a, t01=0x0034}
0x028dc…028ee               Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x001a, t01=0x0046}
0x028ee…02900               Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x001a, t01=0x0058}
0x02900…02912               Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x001a, t01=0x006a}
0x02912…02928               Head {h00=0x0012, h01=0x0050, text=»X:F EQU 0  =9 «, t00=0x001a, t01=0x007c}
0x02928…0293e               Head {h00=0x0012, h01=0x0050, text=»X:G EQU 1  =9 «, t00=0x001a, t01=0x0092}
0x0293e…02946               Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x00a8}
0x02946…02972               Head {h00=0x0028, h01=0x0050, text=»MMUPAG EQU 0 1-MMU HARDWARE PRESENT «, t00=0x001a, t01=0x00b0}
0x02972…029a4               Head {h00=0x002e, h01=0x0050, text=»EDM EQU 0 1-SUPPORTS EXTENDED MONITORS =12«, t00=0x001a, t01=0x00dc}
0x029a4…029da               Head {h00=0x0032, h01=0x0050, text=»CASS EQU X:A 1-PROGRAM LOAD DEVICE = CASSETTE «, t00=0x001a, t01=0x010e}
0x029da…02a0c               Head {h00=0x002e, h01=0x0050, text=»DISC EQU X:B 1-PROGRAM LOAD DEVICE = DISC «, t00=0x001a, t01=0x0144}
0x02a0c…02a4a               Head {h00=0x003a, h01=0x0050, text=»FLDISC EQU X:C 1= PROGRAM LOAD DEVICE = FLEXIBLE DISC «, t00=0x001a, t01=0x0176}
0x02a4a…02a88               Head {h00=0x003a, h01=0x0050, text=»MFDISC EQU X:D 1-PROGRAM LOAD DEVICE = MINI FIXED DISC«, t00=0x001b, t01=0x0024}
0x02a88…02ac2               Head {h00=0x0036, h01=0x0050, text=»CDDISC EQU X:E 1-PROGRAM LOAD DEVICE=80M CDC DISC «, t00=0x001b, t01=0x0062}
0x02ac2…02b00               Head {h00=0x003a, h01=0x0050, text=»CDDI16 EQU X:F 1-PROGRAM LOAD DEVICE = 16M CDC DISC =9«, t00=0x001b, t01=0x009c}
0x02b00…02b36               Head {h00=0x0032, h01=0x0050, text=»CFTEST EQU X:G 1-TEST OF CONFIGURATION FILE =9«, t00=0x001b, t01=0x00da}
0x02b36…02b54               Head {h00=0x001a, h01=0x0050, text=»CFTCAS EQU CFTEST+CASS«, t00=0x001b, t01=0x0110}
0x02b54…02b74               Head {h00=0x001c, h01=0x0050, text=»CFTFLD EQU CFTEST+FLDISC«, t00=0x001b, t01=0x012e}
0x02b74…02b82               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x014e}
0x02b82…02bc0               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x001b, t01=0x015c}
0x02bc0…02bfe               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x001c, t01=0x000a}
0x02bfe…02c3c               Head {h00=0x003a, h01=0x0050, text=»*          APPLICATION LOAD PART OF SYSLOD           *«, t00=0x001c, t01=0x0048}
0x02c3c…02c7a               Head {h00=0x003a, h01=0x0050, text=»*          ===============================           *«, t00=0x001c, t01=0x0086}
0x02c7a…02cb8               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x001c, t01=0x00c4}
0x02cb8…02cf4               Head {h00=0x0038, h01=0x0050, text=»*  ENTRY:  A1 - FORMAT AND DEVICE TYPE             *«, t00=0x001c, t01=0x0102}
0x02cf4…02d32               Head {h00=0x003a, h01=0x0050, text=»*          A2 - PROGRAM LOAD DEVICE                  *«, t00=0x001c, t01=0x013e}
0x02d32…02d70               Head {h00=0x003a, h01=0x0050, text=»*          A3 - APPLICATION NUMBER                   *«, t00=0x001c, t01=0x017c}
0x02d70…02dae               Head {h00=0x003a, h01=0x0050, text=»*          A7 - APPLICATION DISC ADDRESS BIT 16-31  * «, t00=0x001d, t01=0x002a}
0x02dae…02dec               Head {h00=0x003a, h01=0x0050, text=»*          A8 - APPLICATION DISC ADDRESS BIT  0-15  * «, t00=0x001d, t01=0x0068}
0x02dec…02e2a               Head {h00=0x003a, h01=0x0050, text=»*          A9 - START OF FREE AREA                   *«, t00=0x001d, t01=0x00a6}
0x02e2a…02e68               Head {h00=0x003a, h01=0x0050, text=»*         A13 - MONITOR START ADDRESS                *«, t00=0x001d, t01=0x00e4}
0x02e68…02ea6               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x001d, t01=0x0122}
0x02ea6…02ee4               Head {h00=0x003a, h01=0x0050, text=»*  EXIT:                                             *«, t00=0x001d, t01=0x0160}
0x02ee4…02f22               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x001e, t01=0x000e}
0x02f22…02f60               Head {h00=0x003a, h01=0x0050, text=»*  SUBROUTINES:  CASSIN,SOPIN,CHCRIO,LODCOM          *«, t00=0x001e, t01=0x004c}
0x02f60…02f9e               Head {h00=0x003a, h01=0x0050, text=»*                LODSEG,REBUF,MOVBUF,RDBLK,          *«, t00=0x001e, t01=0x008a}
0x02f9e…02fdc               Head {h00=0x003a, h01=0x0050, text=»*                CONLOD,CONEX,MOVREV                 *«, t00=0x001e, t01=0x00c8}
0x02fdc…0301a               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x001e, t01=0x0106}
0x0301a…03058               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x001e, t01=0x0144}
0x03058…0306c               Head {h00=0x0010, h01=0x0050, text=»SYSLOD EQU *«, t00=0x001e, t01=0x0182}
0x0306c…03076               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0008}
0x03076…03090               Head {h00=0x0016, h01=0x0050, text=»*  SAVE REGISTERS «, t00=0x001f, t01=0x0012}
0x03090…0309a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x002c}
0x0309a…030d2               Head {h00=0x0034, h01=0x0050, text=» ST A1,IPLTYP+STKEND SAVE FORMAT AND DEVICE TYPE«, t00=0x001f, t01=0x0036}
0x030d2…03100               Head {h00=0x002a, h01=0x0050, text=» ST A2,SCTIPL SAVE PROGRAM LOAD DEVICE«, t00=0x001f, t01=0x006e}
0x03100…0311c               Head {h00=0x0018, h01=0x0050, text=» ST A2,IPLDEV+STKEND«, t00=0x001f, t01=0x009c}
0x0311c…03152               Head {h00=0x0032, h01=0x0050, text=» CM CONDEV+STKEND RESET CONF. DATA DEV. ADDR. «, t00=0x001f, t01=0x00b8}
0x03152…0317a               Head {h00=0x0024, h01=0x0050, text=» ST A3,SCTANO APPLICATION NUMBER«, t00=0x001f, t01=0x00ee}
0x0317a…031a4               Head {h00=0x0026, h01=0x0050, text=» LDR A3,P USE BEGINNING OF SYSLOD «, t00=0x001f, t01=0x0116}
0x031a4…031ba               Head {h00=0x0012, h01=0x0050, text=» SUK A3,TBLBAS«, t00=0x001f, t01=0x0140}
0x031ba…031d8               Head {h00=0x001a, h01=0x0050, text=»TBLBAS EQU *-2-SYSLOD «, t00=0x001f, t01=0x0156}
0x031d8…03202               Head {h00=0x0026, h01=0x0050, text=» ST A3,APLTAB+STKCOM AS TABLE AREA«, t00=0x001f, t01=0x0174}
0x03202…03228               Head {h00=0x0022, h01=0x0050, text=» LDK A1,1 INITIATE NO OF APPL.«, t00=0x0020, t01=0x000e}
0x03228…0324c               Head {h00=0x0020, h01=0x0050, text=» STR A1,A3 AND SAVE IN TABLE«, t00=0x0020, t01=0x0034}
0x0324c…0328e               Head {h00=0x003e, h01=0x0050, text=» ST A8,APLADA+2,A3 SAVE APPLICATION DISC ADDRESS BIT 0-15 «, t00=0x0020, t01=0x0058}
0x0328e…032d0               Head {h00=0x003e, h01=0x0050, text=» ST A7,APLADA+4,A3 SAVE APPLICATION DISC ADDRESS BIT 16-31«, t00=0x0020, t01=0x009a}
0x032d0…032fe               Head {h00=0x002a, h01=0x0050, text=» ST A9,SCTSFA SAVE START OF FREE AREA «, t00=0x0020, t01=0x00dc}
0x032fe…03316               Head {h00=0x0014, h01=0x0050, text=» LDKL A14,SYSLOD«, t00=0x0020, t01=0x010a}
0x03316…03328               Head {h00=0x000e, h01=0x0050, text=» LDR A13,P«, t00=0x0020, t01=0x0122}
0x03328…03360               Head {h00=0x0034, h01=0x0050, text=»SYS100 ADKL A13,SYS110-SYS100 POINTER TO SYS110 «, t00=0x0020, t01=0x0134}
0x03360…03376               Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTBUG «, t00=0x0020, t01=0x016c}
0x03376…03388               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0020, t01=0x0182}
0x03388…033c4 (33, 0, 398)  Head {h00=0x0038, h01=0x0050, text=» ANK A2,1 TEST IF DEBUG ADDRESS IS ODD,IF TRUE START«, t00=0x0021, t01=0x0004}
0x033c4…033d8               Head {h00=0x0010, h01=0x0050, text=» ABR(NZ) A1 «, t00=0x0021, t01=0x0040}
0x033d8…033e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0054}
0x033e2…033f6               Head {h00=0x0010, h01=0x0050, text=»SYS110 EQU *«, t00=0x0021, t01=0x005e}
0x033f6…0341c               Head {h00=0x0022, h01=0x0050, text=» LD A15,SCTSTB LOAD STACK BASE«, t00=0x0021, t01=0x0072}
0x0341c…03442               Head {h00=0x0022, h01=0x0050, text=» SUKL A15,4 ADJUST STACK BASE «, t00=0x0021, t01=0x0098}
0x03442…0344c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00be}
0x0344c…0346c               Head {h00=0x001c, h01=0x0050, text=»*  INDICATE SYSLOD RUNS «, t00=0x0021, t01=0x00c8}
0x0346c…03476               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00e8}
0x03476…0348c               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP1 «, t00=0x0021, t01=0x00f2}
0x0348c…034a2               Head {h00=0x0012, h01=0x0050, text=» OTR A1,0,SOP «, t00=0x0021, t01=0x0108}
0x034a2…034ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x011e}
0x034ac…034f2               Head {h00=0x0042, h01=0x0050, text=»*  INIT POINTER TO SUBROUTINE HANDLER (A13), STACK BASE (A14) «, t00=0x0021, t01=0x0128}
0x034f2…0351a               Head {h00=0x0024, h01=0x0050, text=»*  AND ADDRESS TO GETPSW-ROUTINE«, t00=0x0021, t01=0x016e}
0x0351a…03524               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0008}
0x03524…03544               Head {h00=0x001c, h01=0x0050, text=» LDR A8,P RETURN ADDRESS«, t00=0x0022, t01=0x0012}
0x03544…0356e               Head {h00=0x0026, h01=0x0050, text=» LDKL A3,REL+2 RELOCATION ROUTINE «, t00=0x0022, t01=0x0032}
0x0356e…03580               Head {h00=0x000e, h01=0x0050, text=» CFR A8,A3«, t00=0x0022, t01=0x005c}
0x03580…035a8               Head {h00=0x0024, h01=0x0050, text=» LDKL A5,/5555 LOAD TEST PATTERN«, t00=0x0022, t01=0x006e}
0x035a8…035cc               Head {h00=0x0020, h01=0x0050, text=» LDK A6,64 INIT PAGE COUNTER«, t00=0x0022, t01=0x0096}
0x035cc…035e2               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0022, t01=0x00ba}
0x035e2…035f0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x00d0}
0x035f0…035fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00de}
0x035fa…0363c               Head {h00=0x003e, h01=0x0050, text=»*  EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY «, t00=0x0022, t01=0x00e8}
0x0363c…03646               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x012a}
0x03646…0366c               Head {h00=0x0022, h01=0x0050, text=» SLL A6,2 UPPER SAVE20=256 KB «, t00=0x0022, t01=0x0134}
0x0366c…03690               Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 MMU ENTRY POINTER «, t00=0x0022, t01=0x015a}
0x03690…036a4               Head {h00=0x0010, h01=0x0050, text=»AP:010 EQU *«, t00=0x0022, t01=0x017e}
0x036a4…036ca (35, 0, 400)  Head {h00=0x0022, h01=0x0050, text=» LD A2,TABBE GET PAGE ADDRESS «, t00=0x0023, t01=0x0004}
0x036ca…03700               Head {h00=0x0032, h01=0x0050, text=» SUKL A2,/400 DECREMENT PHYSICAL PAGE ADDRESS «, t00=0x0023, t01=0x002a}
0x03700…03722               Head {h00=0x001e, h01=0x0050, text=» ST A2,TABBE STORE IT BACK«, t00=0x0023, t01=0x0060}
0x03722…03746               Head {h00=0x0020, h01=0x0050, text=» TL TABBE LOAD MMU REGISTERS«, t00=0x0023, t01=0x0082}
0x03746…0377a               Head {h00=0x0030, h01=0x0050, text=» EL A3,PAGSIZ-2,A1 SAVE OLD MEMORY CONTENTS «, t00=0x0023, t01=0x00a6}
0x0377a…037a8               Head {h00=0x002a, h01=0x0050, text=» ES A5,PAGSIZ-2,A1 STORE TEST PATTERN «, t00=0x0023, t01=0x00da}
0x037a8…037d6               Head {h00=0x002a, h01=0x0050, text=» EL A2,PAGSIZ-2,A1 GET MEMORY CONTENT «, t00=0x0023, t01=0x0108}
0x037d6…0380c               Head {h00=0x0032, h01=0x0050, text=» ES A3,PAGSIZ-2,A1 RESTORE OLD MEMORY CONTENTS«, t00=0x0023, t01=0x0136}
0x0380c…03838               Head {h00=0x0028, h01=0x0050, text=» CWR A2,A5 COMPARE WITH TEST PATTERN«, t00=0x0023, t01=0x016c}
0x03838…0384e               Head {h00=0x0012, h01=0x0050, text=» RF(E) AP:020 «, t00=0x0024, t01=0x0008}
0x0384e…0387a               Head {h00=0x0028, h01=0x0050, text=» SUK A6,4 DECREMENT NUMBER OF PAGES «, t00=0x0024, t01=0x001e}
0x0387a…0388c               Head {h00=0x000e, h01=0x0050, text=» RB AP:010«, t00=0x0024, t01=0x004a}
0x0388c…03896               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x005c}
0x03896…038be               Head {h00=0x0024, h01=0x0050, text=»*  CHECK IF MMU HARDWARE PRESENT«, t00=0x0024, t01=0x0066}
0x038be…038c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x008e}
0x038c8…038e4               Head {h00=0x0018, h01=0x0050, text=»AP:020 LDKL A1,/FC00«, t00=0x0024, t01=0x0098}
0x038e4…0391e               Head {h00=0x0036, h01=0x0050, text=» ST A1,MMDDIV,A13 SET 1ST ENTRY IN MMU TABLE AREA «, t00=0x0024, t01=0x00b4}
0x0391e…0394e               Head {h00=0x002c, h01=0x0050, text=» TL MMDDIV,A13 TRY TO LOAD MMU REGISTERS«, t00=0x0024, t01=0x00ee}
0x0394e…03980               Head {h00=0x002e, h01=0x0050, text=» TS MMDDIV,A13 SAVE REGISTERS IN MMU TABLE«, t00=0x0024, t01=0x011e}
0x03980…039a6               Head {h00=0x0022, h01=0x0050, text=» CW A1,MMDDIV,A13 SUCCESSFUL? «, t00=0x0024, t01=0x0150}
0x039a6…039cc               Head {h00=0x0022, h01=0x0050, text=» RF(E) AP:030 YES! MMU PRESENT«, t00=0x0024, t01=0x0176}
0x039cc…039e2               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x0025, t01=0x000c}
0x039e2…03a14               Head {h00=0x002e, h01=0x0050, text=» CALL ERROR INDICATE HARDWARE NOT PRESENT «, t00=0x0025, t01=0x0022}
0x03a14…03a3c               Head {h00=0x0024, h01=0x0050, text=»AP:030 CM TABBE RESET MMU TABLE «, t00=0x0025, t01=0x0054}
0x03a3c…03a46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x007c}
0x03a46…03a8e               Head {h00=0x0044, h01=0x0050, text=»*  END OF EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY«, t00=0x0025, t01=0x0086}
0x03a8e…03a98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00ce}
0x03a98…03aa4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x00d8}
0x03aa4…03aba               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0025, t01=0x00e4}
0x03aba…03ac8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x00fa}
0x03ac8…03adc               Head {h00=0x0010, h01=0x0050, text=»AP:100 EQU *«, t00=0x0025, t01=0x0108}
0x03adc…03ae6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x011c}
0x03ae6…03b2a               Head {h00=0x0040, h01=0x0050, text=»*  EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY«, t00=0x0025, t01=0x0126}
0x03b2a…03b34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x016a}
0x03b34…03b5c               Head {h00=0x0024, h01=0x0050, text=» LDKL A1,PAGSIZ-2 START AT /FFFE«, t00=0x0025, t01=0x0174}
0x03b5c…03b70               Head {h00=0x0010, h01=0x0050, text=»AP:110 EQU *«, t00=0x0026, t01=0x000c}
0x03b70…03b9a               Head {h00=0x0026, h01=0x0050, text=» SUKL A1,PAGSIZ NEXT PHYSICAL PAGE«, t00=0x0026, t01=0x0020}
0x03b9a…03bc6               Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A1 SAVE OLD MEMORY CONTENT «, t00=0x0026, t01=0x004a}
0x03bc6…03bec               Head {h00=0x0022, h01=0x0050, text=» STR A5,A1 STORE TEST PATTERN «, t00=0x0026, t01=0x0076}
0x03bec…03c10               Head {h00=0x0020, h01=0x0050, text=» CWR* A5,A1 CHECK IF MEMORY «, t00=0x0026, t01=0x009c}
0x03c10…03c36               Head {h00=0x0022, h01=0x0050, text=» RF(E) AP:120 MEMORY END FOUND«, t00=0x0026, t01=0x00c0}
0x03c36…03c6a               Head {h00=0x0030, h01=0x0050, text=» SUK A6,4 DECREMENT NUMBER OF PHYSICAL PAGES«, t00=0x0026, t01=0x00e6}
0x03c6a…03c7c               Head {h00=0x000e, h01=0x0050, text=» RB AP:110«, t00=0x0026, t01=0x011a}
0x03c7c…03c90               Head {h00=0x0010, h01=0x0050, text=»AP:120 EQU *«, t00=0x0026, t01=0x012c}
0x03c90…03cbe               Head {h00=0x002a, h01=0x0050, text=» STR A2,A1 RESTORE OLD MEMORY CONTENT «, t00=0x0026, t01=0x0140}
0x03cbe…03cc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x016e}
0x03cc8…03d14               Head {h00=0x0048, h01=0x0050, text=»*  END OF EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY «, t00=0x0026, t01=0x0178}
0x03d14…03d1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0034}
0x03d1e…03d2a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x003e}
0x03d2a…03d38               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x004a}
0x03d38…03d42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0058}
0x03d42…03d62               Head {h00=0x001c, h01=0x0050, text=»*  COMMON EXECUTION PATH«, t00=0x0027, t01=0x0062}
0x03d62…03d6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0082}
0x03d6c…03d80               Head {h00=0x0010, h01=0x0050, text=»AP:200 EQU *«, t00=0x0027, t01=0x008c}
0x03d80…03db4               Head {h00=0x0030, h01=0x0050, text=» ST A6,SCTMSZ SAVE NUMBER OF PHYSICAL PAGES «, t00=0x0027, t01=0x00a0}
0x03db4…03dda               Head {h00=0x0022, h01=0x0050, text=» SRL A6,2 MAKE NO OF 4K FRAMES«, t00=0x0027, t01=0x00d4}
0x03dda…03e00               Head {h00=0x0022, h01=0x0050, text=» SLL A6,10 MAKE FRAME ADDRESS «, t00=0x0027, t01=0x00fa}
0x03e00…03e2c               Head {h00=0x0028, h01=0x0050, text=» ST A6,SCTEFA FIRST FRAME TO BE USED«, t00=0x0027, t01=0x0120}
0x03e2c…03e3e               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0027, t01=0x014c}
0x03e3e…03e70               Head {h00=0x002e, h01=0x0050, text=» ST A3,SCTEFA+2 AREA EMPTY IN FIRST FRAME «, t00=0x0027, t01=0x015e}
0x03e70…03e98               Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD =2«, t00=0x0027, t01=0x0190}
0x03e98…03eba               Head {h00=0x001e, h01=0x0050, text=» ST A1,OPTION+STKEND   =2 «, t00=0x0028, t01=0x0028}
0x03eba…03ee2               Head {h00=0x0024, h01=0x0050, text=» ANKL A1,/FFF RESET TYPE BITS =2«, t00=0x0028, t01=0x004a}
0x03ee2…03f10               Head {h00=0x002a, h01=0x0050, text=» ST A1,SCTOPT AND SET AS NEW OPTION =2«, t00=0x0028, t01=0x0072}
0x03f10…03f1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00a0}
0x03f1a…03f66               Head {h00=0x0048, h01=0x0050, text=»*  INIT POINTER TO READ BUFFER. INIT DEVICE ADDRESS FOR READ-ROUTINE«, t00=0x0028, t01=0x00aa}
0x03f66…03f92               Head {h00=0x0028, h01=0x0050, text=» LD A9,SCTSFA POINTER TO READ BUFFER«, t00=0x0028, t01=0x00f6}
0x03f92…03fbe               Head {h00=0x0028, h01=0x0050, text=» ST A9,MXBUF ADDRESS TO READ-BUFFER «, t00=0x0028, t01=0x0122}
0x03fbe…03fec               Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x0028, t01=0x014e}
0x03fec…03ff6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x017c}
0x03ff6…04020               Head {h00=0x0026, h01=0x0050, text=»*  INITIALIZE PROGRAM LOAD DEVICE «, t00=0x0028, t01=0x0186}
0x04020…0402a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0020}
0x0402a…04040               Head {h00=0x0012, h01=0x0050, text=» CF A14,LODDEV«, t00=0x0029, t01=0x002a}
0x04040…04058               Head {h00=0x0014, h01=0x0050, text=» LDR A3,A9 SAVE «, t00=0x0029, t01=0x0040}
0x04058…0408a               Head {h00=0x002e, h01=0x0050, text=» AD A3,SAVCON COMPUTE START OF APPL. TABLE«, t00=0x0029, t01=0x0058}
0x0408a…040b0               Head {h00=0x0022, h01=0x0050, text=» ST A3,SCTSFA STORE IN SYSTAB «, t00=0x0029, t01=0x008a}
0x040b0…040c2               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0029, t01=0x00b0}
0x040c2…040e8               Head {h00=0x0022, h01=0x0050, text=» RF(Z) AP:233 CASSETTE LOADING«, t00=0x0029, t01=0x00c2}
0x040e8…040f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00e8}
0x040f2…04128               Head {h00=0x0032, h01=0x0050, text=» ST A2,SCTIPL SET FILE CODE IF RAND. ACC. DEV.«, t00=0x0029, t01=0x00f2}
0x04128…04136               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x0128}
0x04136…0414a               Head {h00=0x0010, h01=0x0050, text=»AP:232 EQU *«, t00=0x0029, t01=0x0136}
0x0414a…04162               Head {h00=0x0014, h01=0x0050, text=» IFT EDM=1  =12 «, t00=0x0029, t01=0x014a}
0x04162…0416c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0162}
0x0416c…04196               Head {h00=0x0026, h01=0x0050, text=»*  LOAD MONITOR EXTENTS IF PRESENT«, t00=0x0029, t01=0x016c}
0x04196…041a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0008}
0x041a0…041cc               Head {h00=0x0028, h01=0x0050, text=» CF A14,LODMEX  LOAD MONITOR EXTENTS«, t00=0x002a, t01=0x0012}
0x041cc…041d8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x003e}
0x041d8…041e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x004a}
0x041e2…0420a               Head {h00=0x0024, h01=0x0050, text=»*  SCAN CONF. FILE FOR POSSIBLE «, t00=0x002a, t01=0x0054}
0x0420a…04232               Head {h00=0x0024, h01=0x0050, text=»*  APPLICATION DEFINITION BLOCKS«, t00=0x002a, t01=0x007c}
0x04232…0423c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00a4}
0x0423c…04252               Head {h00=0x0012, h01=0x0050, text=» CF A14,SCNCON«, t00=0x002a, t01=0x00ae}
0x04252…0427e               Head {h00=0x0028, h01=0x0050, text=» LD A1,APLTAB+STKCOM GET ADDRESS TO «, t00=0x002a, t01=0x00c4}
0x0427e…042aa               Head {h00=0x0028, h01=0x0050, text=» ADK A1,2 CURRENT APPL. CONTR. BLOCK«, t00=0x002a, t01=0x00f0}
0x042aa…042e4               Head {h00=0x0036, h01=0x0050, text=» LD A12,APLADA,A1 MOST SIGN. PART OF DISC ADDRESS «, t00=0x002a, t01=0x011c}
0x042e4…04320               Head {h00=0x0038, h01=0x0050, text=» LD A11,APLADA+2,A1 LEAST SIGN. PART OF DISC ADDRESS«, t00=0x002a, t01=0x0156}
0x04320…0434c (43, 0, 400)  Head {h00=0x0028, h01=0x0050, text=» LD A10,READ GET SUBROUTINE ADDRESS «, t00=0x002b, t01=0x0004}
0x0434c…04372               Head {h00=0x0022, h01=0x0050, text=» CFR A14,A10 READ FIRST SECTOR«, t00=0x002b, t01=0x0030}
0x04372…04386               Head {h00=0x0010, h01=0x0050, text=»AP:233 EQU *«, t00=0x002b, t01=0x0056}
0x04386…043ba               Head {h00=0x0030, h01=0x0050, text=» LD A1,APLTAB+STKCOM GET APPL. TABLE ADDRESS«, t00=0x002b, t01=0x006a}
0x043ba…043e6               Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A1 GET NO OF APPL. TO LOAD «, t00=0x002b, t01=0x009e}
0x043e6…04408               Head {h00=0x001e, h01=0x0050, text=» NGR A6,A6 NEGATE AND SAVE«, t00=0x002b, t01=0x00ca}
0x04408…04430               Head {h00=0x0024, h01=0x0050, text=» ST A6,APLCNT+STKEND AS COUNTER «, t00=0x002b, t01=0x00ec}
0x04430…04442               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x002b, t01=0x0114}
0x04442…0447a               Head {h00=0x0034, h01=0x0050, text=» ST A1,CURAPL+STKEND CURRENT APPL. CONTROL BLOCK«, t00=0x002b, t01=0x0126}
0x0447a…0448e               Head {h00=0x0010, h01=0x0050, text=»AP:234 EQU *«, t00=0x002b, t01=0x015e}
0x0448e…044ba               Head {h00=0x0028, h01=0x0050, text=» LD A7,SCTEFA GET FIRST FRAME TO USE«, t00=0x002b, t01=0x0172}
0x044ba…044e6               Head {h00=0x0028, h01=0x0050, text=» LD A5,SCTEFA+2 AND AREA EMPTY IN IT«, t00=0x002c, t01=0x000e}
0x044e6…04524               Head {h00=0x003a, h01=0x0050, text=» LD A1,CURAPL+STKEND RESTORE APPL. CONTROL BLOCK ADDR.«, t00=0x002c, t01=0x003a}
0x04524…04532               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0078}
0x04532…04546               Head {h00=0x0010, h01=0x0050, text=»AP:235 EQU *«, t00=0x002c, t01=0x0086}
0x04546…04550               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x009a}
0x04550…04582               Head {h00=0x002e, h01=0x0050, text=»*  SAVE INFORMATION ABOUT THE LOAD MODULE «, t00=0x002c, t01=0x00a4}
0x04582…0458c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00d6}
0x0458c…045c4               Head {h00=0x0034, h01=0x0050, text=» CM APLLAP,A1 RESET NO OF MMU ENTRIES TO UPDATE «, t00=0x002c, t01=0x00e0}
0x045c4…045fa               Head {h00=0x0032, h01=0x0050, text=» CM APLSEG,A1 RESET PHYSICAL ADDRESS TO FIRST «, t00=0x002c, t01=0x0118}
0x045fa…04628               Head {h00=0x002a, h01=0x0050, text=» CM APLSEG+2,A1 CORE RESIDENT SEGMENT «, t00=0x002c, t01=0x014e}
0x04628…04660               Head {h00=0x0034, h01=0x0050, text=» CM APLMMC,A1 CLEAR REL. POSITION OF CONF. DATA «, t00=0x002c, t01=0x017c}
0x04660…04692               Head {h00=0x002e, h01=0x0050, text=» CM APLPSZ,A1 CLEAR SEGMENT SIZE ENTRY =2 «, t00=0x002d, t01=0x0024}
0x04692…046c6               Head {h00=0x0030, h01=0x0050, text=» CM TNBRSG+STKEND CLEAR NBR. OF SEGMENTS =5 «, t00=0x002d, t01=0x0056}
0x046c6…04704               Head {h00=0x003a, h01=0x0050, text=» LDR* A6,A9 GET PGM. START ADDRESS (UNSEGMENTED APPL.)«, t00=0x002d, t01=0x008a}
0x04704…04722               Head {h00=0x001a, h01=0x0050, text=» ST A6,APLSTA,A1 SAVE «, t00=0x002d, t01=0x00c8}
0x04722…04748               Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x002d, t01=0x00e6}
0x04748…04774               Head {h00=0x0028, h01=0x0050, text=» LD A6,PRGLG1+8,A9 GET PROGRAM TYPE «, t00=0x002d, t01=0x010c}
0x04774…047ac               Head {h00=0x0034, h01=0x0050, text=» LDKL A4,/1000 INITIALIZE BIT SETTING (BIT 3=1) «, t00=0x002d, t01=0x0138}
0x047ac…047d4               Head {h00=0x0024, h01=0x0050, text=» CWK A6,'CR' CREDIT APPLICATION?«, t00=0x002d, t01=0x0170}
0x047d4…047ea               Head {h00=0x0012, h01=0x0050, text=» RF(E) AP2340 «, t00=0x002e, t01=0x0008}
0x047ea…047f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x001e}
0x047f4…04826               Head {h00=0x002e, h01=0x0050, text=» SLL A4,1 BIT SETTING FOR COBOL (BIT 2=1) «, t00=0x002e, t01=0x0028}
0x04826…0484e               Head {h00=0x0024, h01=0x0050, text=» CWK A6,'CO' COBOL APPLICATION? «, t00=0x002e, t01=0x005a}
0x0484e…04864               Head {h00=0x0012, h01=0x0050, text=» RF(E) AP2340 «, t00=0x002e, t01=0x0082}
0x04864…0486e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0098}
0x0486e…048a0               Head {h00=0x002e, h01=0x0050, text=» SLL A4,1 BIT SETTING FOR BASIC (BIT 1=1) «, t00=0x002e, t01=0x00a2}
0x048a0…048c6               Head {h00=0x0022, h01=0x0050, text=» CWK A6,'BA' BASIC APLICATION?«, t00=0x002e, t01=0x00d4}
0x048c6…048dc               Head {h00=0x0012, h01=0x0050, text=» RF(E) AP2340 «, t00=0x002e, t01=0x00fa}
0x048dc…048e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0110}
0x048e6…0490e               Head {h00=0x0024, h01=0x0050, text=» LDKL A6,'AS' SET ASSEMBLER TYPE«, t00=0x002e, t01=0x011a}
0x0490e…04944               Head {h00=0x0032, h01=0x0050, text=» SLL A4,1 BIT SETTING FOR ASSEMBLER (BIT 0=1) «, t00=0x002e, t01=0x0142}
0x04944…04958               Head {h00=0x0010, h01=0x0050, text=»AP2340 EQU *«, t00=0x002e, t01=0x0178}
0x04958…04986               Head {h00=0x002a, h01=0x0050, text=» ST A6,APLTYP,A1 SAVE APPLICATION TYPE«, t00=0x002e, t01=0x018c}
0x04986…049b6               Head {h00=0x002c, h01=0x0050, text=» CWK A6,'AS' ASSEMBLER ALWAYS ALLOWED =2«, t00=0x002f, t01=0x002a}
0x049b6…049d0               Head {h00=0x0016, h01=0x0050, text=» RF(E) AP2345   =2«, t00=0x002f, t01=0x005a}
0x049d0…04a0a               Head {h00=0x0036, h01=0x0050, text=» AN A4,OPTION+STKEND LOOK IF THIS TYPE ALLOWED =2 «, t00=0x002f, t01=0x0074}
0x04a0a…04a28               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) AP2345 YES =2 «, t00=0x002f, t01=0x00ae}
0x04a28…04a58               Head {h00=0x002c, h01=0x0050, text=» LDK A1,LMP9 NO, WRONG MONITOR OPTION =2«, t00=0x002f, t01=0x00cc}
0x04a58…04a70               Head {h00=0x0014, h01=0x0050, text=» CALL ERROR   =2«, t00=0x002f, t01=0x00fc}
0x04a70…04a8a               Head {h00=0x0016, h01=0x0050, text=»AP2345 EQU *   =2 «, t00=0x002f, t01=0x0114}
0x04a8a…04ab4               Head {h00=0x0026, h01=0x0050, text=» ORR A2,A4 SET BIT IN OPTION WORD «, t00=0x002f, t01=0x012e}
0x04ab4…04ad2               Head {h00=0x001a, h01=0x0050, text=» ST A2,SCTOPT AND SAVE«, t00=0x002f, t01=0x0158}
0x04ad2…04ae6               Head {h00=0x0010, h01=0x0050, text=» CWK A6,'AS'«, t00=0x002f, t01=0x0176}
0x04ae6…04b14               Head {h00=0x002a, h01=0x0050, text=» RF(E) AP2350 SKIP IF ASSEMBLER APPL. «, t00=0x002f, t01=0x018a}
0x04b14…04b1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0028}
0x04b1e…04b4e               Head {h00=0x002c, h01=0x0050, text=» LD A3,PAGLG+8,A9 GET DEFINED PAGE SIZE «, t00=0x0030, t01=0x0032}
0x04b4e…04b7a               Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTPSZ GET PREVIOUS VALUE =13«, t00=0x0030, t01=0x0062}
0x04b7a…04ba0               Head {h00=0x0022, h01=0x0050, text=» SRL A2,1 MAKE WORD COUNT =13 «, t00=0x0030, t01=0x008e}
0x04ba0…04bc8               Head {h00=0x0024, h01=0x0050, text=» SRL A3,1 NEW SIZE IN WORDS =13 «, t00=0x0030, t01=0x00b4}
0x04bc8…04bee               Head {h00=0x0022, h01=0x0050, text=» CWR A3,A2 MEW SIZE > OLD? =13«, t00=0x0030, t01=0x00dc}
0x04bee…04c1a               Head {h00=0x0028, h01=0x0050, text=» RF(NG) AP2350 NO! USE OLD VALUE =13«, t00=0x0030, t01=0x0102}
0x04c1a…04c42               Head {h00=0x0024, h01=0x0050, text=» SLL A3,1 RESTORE BYTE SIZE =13 «, t00=0x0030, t01=0x012e}
0x04c42…04c64               Head {h00=0x001e, h01=0x0050, text=» ST A3,SCTPSZ AND SAVE =13«, t00=0x0030, t01=0x0156}
0x04c64…04c7c               Head {h00=0x0014, h01=0x0050, text=» RF AP2352  =13 «, t00=0x0030, t01=0x0178}
0x04c7c…04c96               Head {h00=0x0016, h01=0x0050, text=»AP2350 EQU *  =13 «, t00=0x0030, t01=0x0190}
0x04c96…04cac               Head {h00=0x0012, h01=0x0050, text=» SLL A3,1  =13«, t00=0x0031, t01=0x001a}
0x04cac…04cc6               Head {h00=0x0016, h01=0x0050, text=»AP2352 EQU *  =13 «, t00=0x0031, t01=0x0030}
0x04cc6…04cdc               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0031, t01=0x004a}
0x04cdc…04cea               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0060}
0x04cea…04cf4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x006e}
0x04cf4…04d2a               Head {h00=0x0032, h01=0x0050, text=»*  EXECUTION PATH FOR SYSTEMS WITH MMU OPTION «, t00=0x0031, t01=0x0078}
0x04d2a…04d34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00ae}
0x04d34…04d60               Head {h00=0x0028, h01=0x0050, text=» CWK A6,'AS' ASSEMBLER APPLICATION? «, t00=0x0031, t01=0x00b8}
0x04d60…04d88               Head {h00=0x0024, h01=0x0050, text=» ABL(E) AP:330 YES! NO SEGMENTS «, t00=0x0031, t01=0x00e4}
0x04d88…04da0               Head {h00=0x0014, h01=0x0050, text=» LDR A4,A3 SAVE «, t00=0x0031, t01=0x010c}
0x04da0…04dc8               Head {h00=0x0024, h01=0x0050, text=» ANKL A4,/3FF EVEN 1K MULTIPLE? «, t00=0x0031, t01=0x0124}
0x04dc8…04de2               Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:237 YES!«, t00=0x0031, t01=0x014c}
0x04de2…04dec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0166}
0x04dec…04e00               Head {h00=0x0010, h01=0x0050, text=» LDK A1,LMP8«, t00=0x0031, t01=0x0170}
0x04e00…04e2c               Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE PAGE SIZE ERROR«, t00=0x0031, t01=0x0184}
0x04e2c…04e36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0020}
0x04e36…04e4a               Head {h00=0x0010, h01=0x0050, text=»AP:237 EQU *«, t00=0x0032, t01=0x002a}
0x04e4a…04e80               Head {h00=0x0032, h01=0x0050, text=» LD A2,NUMSEG+8,A9 NUMBER OF SEGMENTS DEFINED «, t00=0x0032, t01=0x003e}
0x04e80…04e8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0074}
0x04e8a…04e9e               Head {h00=0x0010, h01=0x0050, text=»AP:238 EQU *«, t00=0x0032, t01=0x007e}
0x04e9e…04ec2               Head {h00=0x0020, h01=0x0050, text=» ABL(Z) AP:330 NO SEGMENTS! «, t00=0x0032, t01=0x0092}
0x04ec2…04ecc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00b6}
0x04ecc…04f02               Head {h00=0x0032, h01=0x0050, text=» CF A14,ALOCSG RESERVE AREA FOR RESIDENT SEGM.«, t00=0x0032, t01=0x00c0}
0x04f02…04f0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00f6}
0x04f0c…04f42               Head {h00=0x0032, h01=0x0050, text=»*  A1 - POINTER TO CURRENT APPL. CONTR. BLOCK «, t00=0x0032, t01=0x0100}
0x04f42…04f68               Head {h00=0x0022, h01=0x0050, text=»*  A3 - PAGESIZE IN 1K BLOCKS «, t00=0x0032, t01=0x0136}
0x04f68…04f8e               Head {h00=0x0022, h01=0x0050, text=»*  A5 - OFFSET WITHIN 4K PAGE «, t00=0x0032, t01=0x015c}
0x04f8e…04fbc               Head {h00=0x002a, h01=0x0050, text=»*  A7 - PAGE FRAME ADDR. (PHYS. ADDR.)«, t00=0x0032, t01=0x0182}
0x04fbc…04fec               Head {h00=0x002c, h01=0x0050, text=»*  A4 - AREA LEFT IN LAST 4K PAGE FRAME «, t00=0x0033, t01=0x0020}
0x04fec…04ff6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0050}
0x04ff6…05022               Head {h00=0x0028, h01=0x0050, text=»*  STORE ADDRESS(ES) TO PAGE FRAMES «, t00=0x0033, t01=0x005a}
0x05022…0504c               Head {h00=0x0026, h01=0x0050, text=»*  HOLDING THE FIRST LOGICAL PAGE «, t00=0x0033, t01=0x0086}
0x0504c…05056               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00b0}
0x05056…05086               Head {h00=0x002c, h01=0x0050, text=» SRL A3,10 SEGMENT SIZE IN 1K BLOCKS =2 «, t00=0x0033, t01=0x00ba}
0x05086…050b2               Head {h00=0x0028, h01=0x0050, text=» LDKL A6,MMEND GET END OF MMU-TABLE «, t00=0x0033, t01=0x00ea}
0x050b2…050d8               Head {h00=0x0022, h01=0x0050, text=» LDKL A8,16 AND NO OF ENTRIES «, t00=0x0033, t01=0x0116}
0x050d8…05106               Head {h00=0x002a, h01=0x0050, text=» LDR A4,A5 GET AREA LEFT IN LAST FRAME«, t00=0x0033, t01=0x013c}
0x05106…0511a               Head {h00=0x0010, h01=0x0050, text=»AP:295 EQU *«, t00=0x0033, t01=0x016a}
0x0511a…05146               Head {h00=0x0028, h01=0x0050, text=» SUK A6,2 DECREMENT MMU ENTRY ADDR. «, t00=0x0033, t01=0x017e}
0x05146…05174               Head {h00=0x002a, h01=0x0050, text=» SUKL A8,1 DECREMENT MMU ENTRY POINTER«, t00=0x0034, t01=0x001a}
0x05174…051aa               Head {h00=0x0032, h01=0x0050, text=» SUK A3,4 DECREMENT PAGE SIZE WITH FRAME SIZE «, t00=0x0034, t01=0x0048}
0x051aa…051c0               Head {h00=0x0012, h01=0x0050, text=» RB(P) AP:295 «, t00=0x0034, t01=0x007e}
0x051c0…051e8               Head {h00=0x0024, h01=0x0050, text=» RF(Z) AP:300 EVEN 4K BYTES PAGE«, t00=0x0034, t01=0x0094}
0x051e8…051f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00bc}
0x051f2…05218               Head {h00=0x0022, h01=0x0050, text=»*  RESERVE ONE EXTRA MMU ENTRY«, t00=0x0034, t01=0x00c6}
0x05218…0523c               Head {h00=0x0020, h01=0x0050, text=»*  WHEN PAGE SIZE IS NOT AN «, t00=0x0034, t01=0x00ec}
0x0523c…0525a               Head {h00=0x001a, h01=0x0050, text=»*  EVEN MULTIPLE OF 4K«, t00=0x0034, t01=0x0110}
0x0525a…05264               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x012e}
0x05264…0528c               Head {h00=0x0024, h01=0x0050, text=» LD A3,PAGLG+8,A9 GET PAGE SIZE «, t00=0x0034, t01=0x0138}
0x0528c…052ba               Head {h00=0x002a, h01=0x0050, text=» ANKL A3,/C00 GET LENGTH IN MODULO 4K «, t00=0x0034, t01=0x0160}
0x052ba…052de               Head {h00=0x0020, h01=0x0050, text=» CWK A3,/400 PAGE SIZE = 1K?«, t00=0x0034, t01=0x018e}
0x052de…0530a               Head {h00=0x0028, h01=0x0050, text=» RF(E) AP:300 YES! ONE ENTRY ENOUGH «, t00=0x0035, t01=0x0022}
0x0530a…05314               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x004e}
0x05314…0533e               Head {h00=0x0026, h01=0x0050, text=» SUK A6,2 ALLOCATE ONE ENTRY EXTRA«, t00=0x0035, t01=0x0058}
0x0533e…05350               Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x0035, t01=0x0082}
0x05350…0535a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0094}
0x0535a…0536e               Head {h00=0x0010, h01=0x0050, text=»AP:300 EQU *«, t00=0x0035, t01=0x009e}
0x0536e…053a6               Head {h00=0x0034, h01=0x0050, text=» LD A3,SEGCNT+STKEND ANY CORE RESIDENT SEGMENTS?«, t00=0x0035, t01=0x00b2}
0x053a6…053c0               Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:310 NO! «, t00=0x0035, t01=0x00ea}
0x053c0…053ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0104}
0x053ca…053f6               Head {h00=0x0028, h01=0x0050, text=» LDR A2,A7 GET SEGMENT FRAME ADDRESS«, t00=0x0035, t01=0x010e}
0x053f6…05418               Head {h00=0x001e, h01=0x0050, text=» LDR A3,A6 SAVE MMU ENTRY «, t00=0x0035, t01=0x013a}
0x05418…05422               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x015c}
0x05422…05436               Head {h00=0x0010, h01=0x0050, text=»AP:305 EQU *«, t00=0x0035, t01=0x0166}
0x05436…05464               Head {h00=0x002a, h01=0x0050, text=» STR A2,A3 STORE ADDRESS TO PAGE FRAME«, t00=0x0035, t01=0x017a}
0x05464…05492               Head {h00=0x002a, h01=0x0050, text=» ADK A3,2 INCREMENT MMU ENTRY ADDRESS «, t00=0x0036, t01=0x0018}
0x05492…054ba               Head {h00=0x0024, h01=0x0050, text=» CWK A3,MMEND END OF MMU TABLE? «, t00=0x0036, t01=0x0046}
0x054ba…054d4               Head {h00=0x0016, h01=0x0050, text=» RF(E) AP:310 YES!«, t00=0x0036, t01=0x006e}
0x054d4…054de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0088}
0x054de…0550e               Head {h00=0x002c, h01=0x0050, text=» ADKL A2,/400 INCREMENT PAGE FRAME ADDR.«, t00=0x0036, t01=0x0092}
0x0550e…05520               Head {h00=0x000e, h01=0x0050, text=» RB AP:305«, t00=0x0036, t01=0x00c2}
0x05520…0552a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00d4}
0x0552a…0553e               Head {h00=0x0010, h01=0x0050, text=»AP:310 EQU *«, t00=0x0036, t01=0x00de}
0x0553e…05548               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00f2}
0x05548…05568               Head {h00=0x001c, h01=0x0050, text=»*  SAVE LOGICAL ADDRESS «, t00=0x0036, t01=0x00fc}
0x05568…0557e               Head {h00=0x0012, h01=0x0050, text=»*  TO SEGMENT «, t00=0x0036, t01=0x011c}
0x0557e…05588               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0132}
0x05588…055a8               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A8 GET MMU ENTRY«, t00=0x0036, t01=0x013c}
0x055a8…055d2               Head {h00=0x0026, h01=0x0050, text=» SLL A2,12 MOVE TO 4 LEFTMOST BITS«, t00=0x0036, t01=0x015c}
0x055d2…0560c               Head {h00=0x0036, h01=0x0050, text=» ST A2,APLLAP,A1 SAVE IN APPLICATION CONTROL BLOCK«, t00=0x0036, t01=0x0186}
0x0560c…05638               Head {h00=0x0028, h01=0x0050, text=» ORR A2,A4 CONCATENATE DISPLACEMENT «, t00=0x0037, t01=0x0030}
0x05638…05674               Head {h00=0x0038, h01=0x0050, text=» ST A2,LSTASG+STKEND AND SAVE AS LOGICAL START ADDR.«, t00=0x0037, t01=0x005c}
0x05674…05686               Head {h00=0x000e, h01=0x0050, text=» RF AP:335«, t00=0x0037, t01=0x0098}
0x05686…05690               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00aa}
0x05690…056ae               Head {h00=0x001a, h01=0x0050, text=»*  NO SEGMENTS DEFINED«, t00=0x0037, t01=0x00b4}
0x056ae…056b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00d2}
0x056b8…056cc               Head {h00=0x0010, h01=0x0050, text=»AP:330 EQU *«, t00=0x0037, t01=0x00dc}
0x056cc…05700               Head {h00=0x0030, h01=0x0050, text=» LDK A3,0 RESET NO OF MMU ENTRIES TO UPDATE «, t00=0x0037, t01=0x00f0}
0x05700…0572c               Head {h00=0x0028, h01=0x0050, text=» LDKL A6,MMEND INITIATE MMU POINTER «, t00=0x0037, t01=0x0124}
0x0572c…05756               Head {h00=0x0026, h01=0x0050, text=» LDKL A8,16 AND MMU ENTRY POINTER «, t00=0x0037, t01=0x0150}
0x05756…05780               Head {h00=0x0026, h01=0x0050, text=» LDR A4,A5 AREA LEFT IN LAST FRAME«, t00=0x0037, t01=0x017a}
0x05780…05794               Head {h00=0x0010, h01=0x0050, text=»AP:335 EQU *«, t00=0x0038, t01=0x0014}
0x05794…0579e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0028}
0x0579e…057ca               Head {h00=0x0028, h01=0x0050, text=»* COMPUTE APPLICATION START ADDRESS «, t00=0x0038, t01=0x0032}
0x057ca…057d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x005e}
0x057d4…05808               Head {h00=0x0030, h01=0x0050, text=»*  A1 - POINTER TO APPLICATION CONTROL BLOCK«, t00=0x0038, t01=0x0068}
0x05808…05838               Head {h00=0x002c, h01=0x0050, text=»*  A4 - AREA LEFT IN CURRENT PAGE FRAME «, t00=0x0038, t01=0x009c}
0x05838…0585e               Head {h00=0x0022, h01=0x0050, text=»*  A7 - PHYSICAL PAGE ADDRESS «, t00=0x0038, t01=0x00cc}
0x0585e…05880               Head {h00=0x001e, h01=0x0050, text=»*  A6 - MMU ENTRY ADDRESS «, t00=0x0038, t01=0x00f2}
0x05880…058a2               Head {h00=0x001e, h01=0x0050, text=»*  A8 - CURRENT MMU ENTRY «, t00=0x0038, t01=0x0114}
0x058a2…058ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0136}
0x058ac…058e0               Head {h00=0x0030, h01=0x0050, text=» LD A2,COMLG,A9 COMLG OF CORE RESIDENT PART «, t00=0x0038, t01=0x0140}
0x058e0…0590e               Head {h00=0x002a, h01=0x0050, text=» LD A3,APLTYP,A1 GET APPLICATION TYPE «, t00=0x0038, t01=0x0174}
0x0590e…0592e               Head {h00=0x001c, h01=0x0050, text=» CWK A3,'AS' ASSEMBLER? «, t00=0x0039, t01=0x0012}
0x0592e…05948               Head {h00=0x0016, h01=0x0050, text=» RF(NE) AP:336 NO!«, t00=0x0039, t01=0x0032}
0x05948…05952               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x004c}
0x05952…05982               Head {h00=0x002c, h01=0x0050, text=» ADK A2,10 YES, ADD 5 WORDS FOR DEBUGGER«, t00=0x0039, t01=0x0056}
0x05982…05996               Head {h00=0x0010, h01=0x0050, text=»AP:336 EQU *«, t00=0x0039, t01=0x0086}
0x05996…059a8               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0039, t01=0x009a}
0x059a8…059d0               Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN LENGTH «, t00=0x0039, t01=0x00ac}
0x059d0…059da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00d4}
0x059da…05a02               Head {h00=0x0024, h01=0x0050, text=»*  IF APPLICATION IS LARGER THAN«, t00=0x0039, t01=0x00de}
0x05a02…05a26               Head {h00=0x0020, h01=0x0050, text=»*  60 K BYTES, START ON A 4K«, t00=0x0039, t01=0x0106}
0x05a26…05a4c               Head {h00=0x0022, h01=0x0050, text=»*  BOUNDARY, TO MAKE SURE THAT«, t00=0x0039, t01=0x012a}
0x05a4c…05a6e               Head {h00=0x001e, h01=0x0050, text=»*  LOGICAL MEMORY WILL BE «, t00=0x0039, t01=0x0150}
0x05a6e…05a8a               Head {h00=0x0018, h01=0x0050, text=»*  MAXIMAL POSSIBLE.«, t00=0x0039, t01=0x0172}
0x05a8a…05a94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x018e}
0x05a94…05aa6               Head {h00=0x000e, h01=0x0050, text=» LDR A5,A2«, t00=0x003a, t01=0x0008}
0x05aa6…05ac8               Head {h00=0x001e, h01=0x0050, text=» SRL A5,12 NO OF 4K BLOCKS«, t00=0x003a, t01=0x001a}
0x05ac8…05ae6               Head {h00=0x001a, h01=0x0050, text=» CWK A5,15 >60 KBYTES?«, t00=0x003a, t01=0x003c}
0x05ae6…05b00               Head {h00=0x0016, h01=0x0050, text=» RF(L) AP:337 NO! «, t00=0x003a, t01=0x005a}
0x05b00…05b0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0074}
0x05b0a…05b32               Head {h00=0x0024, h01=0x0050, text=» LDK A4,0 START ON A 4K BOUNDARY«, t00=0x003a, t01=0x007e}
0x05b32…05b44               Head {h00=0x000e, h01=0x0050, text=» RF AP:341«, t00=0x003a, t01=0x00a6}
0x05b44…05b4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00b8}
0x05b4e…05b62               Head {h00=0x0010, h01=0x0050, text=»AP:337 EQU *«, t00=0x003a, t01=0x00c2}
0x05b62…05b8c               Head {h00=0x0026, h01=0x0050, text=» ADK A2,0 RESTORE LENGTH CONDITION«, t00=0x003a, t01=0x00d6}
0x05b8c…05bb6               Head {h00=0x0026, h01=0x0050, text=» RF(N) AP:340 LARGER THAN ONE PAGE«, t00=0x003a, t01=0x0100}
0x05bb6…05bc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x012a}
0x05bc0…05bea               Head {h00=0x0026, h01=0x0050, text=»* APPLICATION IS SMALLER THAN 32 K«, t00=0x003a, t01=0x0134}
0x05bea…05c14               Head {h00=0x0026, h01=0x0050, text=»* BUT IS IT SMALLER THAN AREA LEFT«, t00=0x003a, t01=0x015e}
0x05c14…05c36               Head {h00=0x001e, h01=0x0050, text=»* IN LAST ALLOCATED PAGE? «, t00=0x003a, t01=0x0188}
0x05c36…05c40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x001a}
0x05c40…05c52               Head {h00=0x000e, h01=0x0050, text=» CWR A2,A4«, t00=0x003b, t01=0x0024}
0x05c52…05c6e               Head {h00=0x0018, h01=0x0050, text=» RF(G) AP:340 LARGER«, t00=0x003b, t01=0x0036}
0x05c6e…05c78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0052}
0x05c78…05ca4               Head {h00=0x0028, h01=0x0050, text=»* APPLICATION LENGTH LESS THAN AREA «, t00=0x003b, t01=0x005c}
0x05ca4…05cc0               Head {h00=0x0018, h01=0x0050, text=»* LEFT IN LAST PAGE «, t00=0x003b, t01=0x0088}
0x05cc0…05ce4               Head {h00=0x0020, h01=0x0050, text=»* COPY FRAME ADDRESS IN NEXT«, t00=0x003b, t01=0x00a4}
0x05ce4…05cf8               Head {h00=0x0010, h01=0x0050, text=»* MMU ENTRY «, t00=0x003b, t01=0x00c8}
0x05cf8…05d02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00dc}
0x05d02…05d0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00e6}
0x05d0c…05d1e               Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x003b, t01=0x00f0}
0x05d1e…05d44               Head {h00=0x0022, h01=0x0050, text=» RF(N) TABOVF TABBE OVERFLOW! «, t00=0x003b, t01=0x0102}
0x05d44…05d4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0128}
0x05d4e…05d60               Head {h00=0x000e, h01=0x0050, text=» SUK A6,2 «, t00=0x003b, t01=0x0132}
0x05d60…05d84               Head {h00=0x0020, h01=0x0050, text=» STR A7,A6 UPDATE MMU ENTRY «, t00=0x003b, t01=0x0144}
0x05d84…05db4               Head {h00=0x002c, h01=0x0050, text=» LDR A5,A2 RESTORE LENGTH OF COMMON PART«, t00=0x003b, t01=0x0168}
0x05db4…05dc6               Head {h00=0x000e, h01=0x0050, text=» RF AP:351«, t00=0x003c, t01=0x0008}
0x05dc6…05dd0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x001a}
0x05dd0…05de4               Head {h00=0x0010, h01=0x0050, text=»AP:340 EQU *«, t00=0x003c, t01=0x0024}
0x05de4…05dee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0038}
0x05dee…05e1a               Head {h00=0x0028, h01=0x0050, text=»*  RESERVE ENTRIES IN MMU TABLE FOR «, t00=0x003c, t01=0x0042}
0x05e1a…05e40               Head {h00=0x0022, h01=0x0050, text=»*  COMMON PART OF APPLICATION «, t00=0x003c, t01=0x006e}
0x05e40…05e4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0094}
0x05e4a…05e72               Head {h00=0x0024, h01=0x0050, text=»*  A4 - AREA MAPPED BUT NOT USED«, t00=0x003c, t01=0x009e}
0x05e72…05e94               Head {h00=0x001e, h01=0x0050, text=»*       IN LAST MMU ENTRY «, t00=0x003c, t01=0x00c6}
0x05e94…05eba               Head {h00=0x0022, h01=0x0050, text=»*  A2 - LENGTH OF COMMON PART «, t00=0x003c, t01=0x00e8}
0x05eba…05eda               Head {h00=0x001c, h01=0x0050, text=» LDR A4,A4 EMPTY FRAME? «, t00=0x003c, t01=0x010e}
0x05eda…05ef4               Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:341 YES!«, t00=0x003c, t01=0x012e}
0x05ef4…05efe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0148}
0x05efe…05f2a               Head {h00=0x0028, h01=0x0050, text=» SUKL A8,1 NO, ANY MMU ENTRIES LEFT?«, t00=0x003c, t01=0x0152}
0x05f2a…05f44               Head {h00=0x0016, h01=0x0050, text=» RF(N) TABOVF NO! «, t00=0x003c, t01=0x017e}
0x05f44…05f4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0008}
0x05f4e…05f7a               Head {h00=0x0028, h01=0x0050, text=» SUK A6,2 ADVANCE TO NEXT MMU ENTRY «, t00=0x003d, t01=0x0012}
0x05f7a…05fa4               Head {h00=0x0026, h01=0x0050, text=» STR A7,A6 AND COPY FRAME ADDRESS «, t00=0x003d, t01=0x003e}
0x05fa4…05fb8               Head {h00=0x0010, h01=0x0050, text=»AP:341 EQU *«, t00=0x003d, t01=0x0068}
0x05fb8…05fee               Head {h00=0x0032, h01=0x0050, text=» SUR A2,A4 SUBTRACT AREA LEFT IN CURRENT FRAME«, t00=0x003d, t01=0x007c}
0x05fee…0601e               Head {h00=0x002c, h01=0x0050, text=» LDK A4,0 RESET AREA LEFT IN LAST FRAME «, t00=0x003d, t01=0x00b2}
0x0601e…0604c               Head {h00=0x002a, h01=0x0050, text=» LDR A5,A2 SAVE REMAINING AREA NEEDED «, t00=0x003d, t01=0x00e2}
0x0604c…0606e               Head {h00=0x001e, h01=0x0050, text=» RF(Z) AP:351 NOTHING LEFT«, t00=0x003d, t01=0x0110}
0x0606e…06078               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0132}
0x06078…060a6               Head {h00=0x002a, h01=0x0050, text=» SRL A2,12 CONVERT TO NO OF 4K FRAMES «, t00=0x003d, t01=0x013c}
0x060a6…060bc               Head {h00=0x0012, h01=0x0050, text=» ANKL A5,/0FFF«, t00=0x003d, t01=0x016a}
0x060bc…060de               Head {h00=0x001e, h01=0x0050, text=» RF(Z) AP:342 NO REMAINDER«, t00=0x003d, t01=0x0180}
0x060de…060e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0012}
0x060e8…06112               Head {h00=0x0026, h01=0x0050, text=» ADK A2,1 ALLOCATE ONE MORE ENTRY «, t00=0x003e, t01=0x001c}
0x06112…0611c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0046}
0x0611c…06138               Head {h00=0x0018, h01=0x0050, text=»*  UPDTE MMU ENTRIES«, t00=0x003e, t01=0x0050}
0x06138…06142               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x006c}
0x06142…06156               Head {h00=0x0010, h01=0x0050, text=»AP:342 EQU *«, t00=0x003e, t01=0x0076}
0x06156…06180               Head {h00=0x0026, h01=0x0050, text=» SUK A2,1 MORE ENTRIES TO UPDATE? «, t00=0x003e, t01=0x008a}
0x06180…0619a               Head {h00=0x0016, h01=0x0050, text=» RF(N) AP:350 NO! «, t00=0x003e, t01=0x00b4}
0x0619a…061a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00ce}
0x061a4…061d2               Head {h00=0x002a, h01=0x0050, text=» SUKL A8,1 DECREMENT MMU ENTRY POINTER«, t00=0x003e, t01=0x00d8}
0x061d2…061f8               Head {h00=0x0022, h01=0x0050, text=» RF(N) TABOVF TABLE OVERFLOW! «, t00=0x003e, t01=0x0106}
0x061f8…06202               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x012c}
0x06202…0622e               Head {h00=0x0028, h01=0x0050, text=» SUK A6,2 DECREMENT MMU ENTRY ADDR. «, t00=0x003e, t01=0x0136}
0x0622e…0625c               Head {h00=0x002a, h01=0x0050, text=» SUKL A7,/400 DECREMENT FRAME ADDRESS «, t00=0x003e, t01=0x0162}
0x0625c…06282               Head {h00=0x0022, h01=0x0050, text=» STR A7,A6 STORE FRAME ADDRESS«, t00=0x003e, t01=0x0190}
0x06282…06294               Head {h00=0x000e, h01=0x0050, text=» RB AP:342«, t00=0x003f, t01=0x0026}
0x06294…0629e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0038}
0x0629e…062b2               Head {h00=0x0010, h01=0x0050, text=»TABOVF EQU *«, t00=0x003f, t01=0x0042}
0x062b2…062c6               Head {h00=0x0010, h01=0x0050, text=» LDK A1,LMP7«, t00=0x003f, t01=0x0056}
0x062c6…062f0               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR SIGNAL TABBE OVERFLOW!«, t00=0x003f, t01=0x006a}
0x062f0…06304               Head {h00=0x0010, h01=0x0050, text=»MEMOVF EQU *«, t00=0x003f, t01=0x0094}
0x06304…0631a               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x003f, t01=0x00a8}
0x0631a…0633e               Head {h00=0x0020, h01=0x0050, text=» CALL ERROR MEMORY OVERFLOW!«, t00=0x003f, t01=0x00be}
0x0633e…06348               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00e2}
0x06348…0635c               Head {h00=0x0010, h01=0x0050, text=»AP:350 EQU *«, t00=0x003f, t01=0x00ec}
0x0635c…06366               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0100}
0x06366…0639a               Head {h00=0x0030, h01=0x0050, text=» LDR A5,A5 RESTORE AREA TO USE IN LAST FRAME«, t00=0x003f, t01=0x010a}
0x0639a…063b0               Head {h00=0x0012, h01=0x0050, text=» RF(Z) AP:351 «, t00=0x003f, t01=0x013e}
0x063b0…063ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0154}
0x063ba…063e0               Head {h00=0x0022, h01=0x0050, text=» LDKL A4,PAGSIZ GET FRAME SIZE«, t00=0x003f, t01=0x015e}
0x063e0…063f4               Head {h00=0x0010, h01=0x0050, text=»AP:351 EQU *«, t00=0x003f, t01=0x0184}
0x063f4…0642c               Head {h00=0x0034, h01=0x0050, text=» SUR A4,A5 ALLOCATE REMAINIG AREA IN LAST FRAME «, t00=0x0040, t01=0x0008}
0x0642c…0644c               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A8 GET MMU ENTRY«, t00=0x0040, t01=0x0040}
0x0644c…0647a               Head {h00=0x002a, h01=0x0050, text=» SLL A2,12 MOVE TO FOUR LEFTMOST BITS «, t00=0x0040, t01=0x0060}
0x0647a…0648c               Head {h00=0x000e, h01=0x0050, text=» LDR A8,A2«, t00=0x0040, t01=0x008e}
0x0648c…064b4               Head {h00=0x0024, h01=0x0050, text=» ORR A8,A4 LOGICAL START ADDRESS«, t00=0x0040, t01=0x00a0}
0x064b4…064e0               Head {h00=0x0028, h01=0x0050, text=» CWK A3,'AS' ASSEMBLER APPLICATION? «, t00=0x0040, t01=0x00c8}
0x064e0…064fa               Head {h00=0x0016, h01=0x0050, text=» RF(NE) AP:352 NO!«, t00=0x0040, t01=0x00f4}
0x064fa…06504               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x010e}
0x06504…06532               Head {h00=0x002a, h01=0x0050, text=» ADKL A8,10 SKIP FIVE PRECEEDING WORDS«, t00=0x0040, t01=0x0118}
0x06532…06546               Head {h00=0x0010, h01=0x0050, text=»AP:352 EQU *«, t00=0x0040, t01=0x0146}
0x06546…06568               Head {h00=0x001e, h01=0x0050, text=» ST A8,LLDADR+STKEND SAVE «, t00=0x0040, t01=0x015a}
0x06568…06586               Head {h00=0x001a, h01=0x0050, text=» ST A7,SCTEFA AND SAVE«, t00=0x0040, t01=0x017c}
0x06586…065b6               Head {h00=0x002c, h01=0x0050, text=» ST A4,SCTEFA+2 SAVE OFFSET WITHIN FRAME«, t00=0x0041, t01=0x000a}
0x065b6…065f4               Head {h00=0x003a, h01=0x0050, text=» ST A7,APLLDA,A1 SAVE APPLICATION LOAD ADDR. (BIT 0-5)«, t00=0x0041, t01=0x003a}
0x065f4…0661c               Head {h00=0x0024, h01=0x0050, text=» ST A4,APLLDA+2,A1 AND BIT 6-17 «, t00=0x0041, t01=0x0078}
0x0661c…0664c               Head {h00=0x002c, h01=0x0050, text=» ST A7,FYSPAG+STKCOM SAVE LAST PHYSICAL «, t00=0x0041, t01=0x00a0}
0x0664c…06676               Head {h00=0x0026, h01=0x0050, text=» ST A4,LSTADR+STKCOM ADDRESS USED «, t00=0x0041, t01=0x00d0}
0x06676…066a6               Head {h00=0x002c, h01=0x0050, text=» LDR* A1,A6 GET ADDRESS TO PHYSICAL PAGE«, t00=0x0041, t01=0x00fa}
0x066a6…066ce               Head {h00=0x0024, h01=0x0050, text=» ANKL A1,/C000 GREATER THAN 64K?«, t00=0x0041, t01=0x012a}
0x066ce…066e8               Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:353 NO! «, t00=0x0041, t01=0x0152}
0x066e8…0670c               Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 UPPER LIMIT 64 KB «, t00=0x0041, t01=0x016c}
0x0670c…0671e               Head {h00=0x000e, h01=0x0050, text=» RF AP:354«, t00=0x0041, t01=0x0190}
0x0671e…06732               Head {h00=0x0010, h01=0x0050, text=»AP:353 EQU *«, t00=0x0042, t01=0x0012}
0x06732…0675a               Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A6 GET PHYSICAL ADDRESS«, t00=0x0042, t01=0x0026}
0x0675a…0676c               Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0042, t01=0x004e}
0x0676c…06790               Head {h00=0x0020, h01=0x0050, text=» ADR A1,A4 ADD DISPLACEMENT «, t00=0x0042, t01=0x0060}
0x06790…067bc               Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTSFA GET START OF FREE AREA«, t00=0x0042, t01=0x0084}
0x067bc…067e8               Head {h00=0x0028, h01=0x0050, text=» TNM A1,A2 ON SAME SIDE OF 32K-LIMIT«, t00=0x0042, t01=0x00b0}
0x067e8…06804               Head {h00=0x0018, h01=0x0050, text=» RF(NN) AP3532 YES! «, t00=0x0042, t01=0x00dc}
0x06804…06816               Head {h00=0x000e, h01=0x0050, text=» CWR A2,A1«, t00=0x0042, t01=0x00f8}
0x06816…06828               Head {h00=0x000e, h01=0x0050, text=» RF AP3534«, t00=0x0042, t01=0x010a}
0x06828…06840               Head {h00=0x0014, h01=0x0050, text=»AP3532 CWR A1,A2«, t00=0x0042, t01=0x011c}
0x06840…06854               Head {h00=0x0010, h01=0x0050, text=»AP3534 EQU *«, t00=0x0042, t01=0x0134}
0x06854…0687a               Head {h00=0x0022, h01=0x0050, text=» RB(L) MEMOVF MEMORY OVERFLOW!«, t00=0x0042, t01=0x0148}
0x0687a…0688e               Head {h00=0x0010, h01=0x0050, text=»AP:354 EQU *«, t00=0x0042, t01=0x016e}
0x0688e…068b0               Head {h00=0x001e, h01=0x0050, text=» ST A1,ESYSTA+STKEND SAVE «, t00=0x0042, t01=0x0182}
0x068b0…068e2               Head {h00=0x002e, h01=0x0050, text=» LD A10,COMLG,A9 LOAD COMLG OF COMMON PART«, t00=0x0043, t01=0x0014}
0x068e2…06906               Head {h00=0x0020, h01=0x0050, text=» TL TABBE LOAD MMU REGISTERS«, t00=0x0043, t01=0x0046}
0x06906…06912               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x006a}
0x06912…06928               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0043, t01=0x0076}
0x06928…06936               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x008c}
0x06936…0694a               Head {h00=0x0010, h01=0x0050, text=»AP:240 EQU *«, t00=0x0043, t01=0x009a}
0x0694a…06954               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00ae}
0x06954…06998               Head {h00=0x0040, h01=0x0050, text=»*  EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITHOUT MMU OPTION«, t00=0x0043, t01=0x00b8}
0x06998…069a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00fc}
0x069a2…069ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0106}
0x069ac…069d6               Head {h00=0x0026, h01=0x0050, text=»*  CHECK IF ASSEMBLER APPLICATION «, t00=0x0043, t01=0x0110}
0x069d6…069e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x013a}
0x069e0…06a0c               Head {h00=0x0028, h01=0x0050, text=» CWK A6,'AS' ASSEMBLER APPLICATION? «, t00=0x0043, t01=0x0144}
0x06a0c…06a26               Head {h00=0x0016, h01=0x0050, text=» RF(E) AP:275 YES!«, t00=0x0043, t01=0x0170}
0x06a26…06a54               Head {h00=0x002a, h01=0x0050, text=» LD A2,NUMSEG+8,A9 NUMBER OF SEGMENTS «, t00=0x0043, t01=0x018a}
0x06a54…06a76               Head {h00=0x001e, h01=0x0050, text=» RF(Z) AP:275 NO SEGMENTS!«, t00=0x0044, t01=0x0028}
0x06a76…06aa6               Head {h00=0x002c, h01=0x0050, text=» CF A14,ALOCSG RESERVE AREA FOR SEGMENTS«, t00=0x0044, t01=0x004a}
0x06aa6…06ad6               Head {h00=0x002c, h01=0x0050, text=» LDR A2,A7 CONFIGURE LOGICAL START ADDR.«, t00=0x0044, t01=0x007a}
0x06ad6…06af8               Head {h00=0x001e, h01=0x0050, text=» SLL A2,2 TO FIRST SEGMENT«, t00=0x0044, t01=0x00aa}
0x06af8…06b0a               Head {h00=0x000e, h01=0x0050, text=» ORR A2,A5«, t00=0x0044, t01=0x00cc}
0x06b0a…06b26               Head {h00=0x0018, h01=0x0050, text=» ST A2,LSTASG+STKEND«, t00=0x0044, t01=0x00de}
0x06b26…06b3a               Head {h00=0x0010, h01=0x0050, text=»AP:275 EQU *«, t00=0x0044, t01=0x00fa}
0x06b3a…06b6c               Head {h00=0x002e, h01=0x0050, text=» LD A10,COMLG,A9 GET LENGTH OF COMMON PART«, t00=0x0044, t01=0x010e}
0x06b6c…06b9a               Head {h00=0x002a, h01=0x0050, text=» LD A3,APLTYP,A1 GET APPLICATION TYPE «, t00=0x0044, t01=0x0140}
0x06b9a…06bba               Head {h00=0x001c, h01=0x0050, text=» CWK A3,'AS' ASSEMBLER? «, t00=0x0044, t01=0x016e}
0x06bba…06bd4               Head {h00=0x0016, h01=0x0050, text=» RF(NE) AP:276 NO!«, t00=0x0044, t01=0x018e}
0x06bd4…06bde               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0018}
0x06bde…06c10               Head {h00=0x002e, h01=0x0050, text=» ADKL A10,10 YES, ADD 5 WORDS FOR DEBUGGER«, t00=0x0045, t01=0x0022}
0x06c10…06c24               Head {h00=0x0010, h01=0x0050, text=»AP:276 EQU *«, t00=0x0045, t01=0x0054}
0x06c24…06c38               Head {h00=0x0010, h01=0x0050, text=» ADKL A10,1 «, t00=0x0045, t01=0x0068}
0x06c38…06c60               Head {h00=0x0024, h01=0x0050, text=» ANKL A10,/FFFE MAKE EVEN LENGTH«, t00=0x0045, t01=0x007c}
0x06c60…06c9c               Head {h00=0x0038, h01=0x0050, text=» RF(N) AP:278 APPLICATION IS LARGER THAN FRAME SIZE «, t00=0x0045, t01=0x00a4}
0x06c9c…06ca6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00e0}
0x06ca6…06ce8               Head {h00=0x003e, h01=0x0050, text=» CWR A10,A5 APPL. IS SMALLER THAN AREA LEFT IN LAST FRAME «, t00=0x0045, t01=0x00ea}
0x06ce8…06d04               Head {h00=0x0018, h01=0x0050, text=» RF(NG) AP:280 YES! «, t00=0x0045, t01=0x012c}
0x06d04…06d0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0148}
0x06d0e…06d22               Head {h00=0x0010, h01=0x0050, text=»AP:278 EQU *«, t00=0x0045, t01=0x0152}
0x06d22…06d58               Head {h00=0x0032, h01=0x0050, text=» SUR A10,A5 SUBTRACT AREA UNUSED IN LAST FRAME«, t00=0x0045, t01=0x0166}
0x06d58…06d88               Head {h00=0x002c, h01=0x0050, text=» LDK A5,0 NO AREA LEFT IN CURRENT FRAME «, t00=0x0046, t01=0x000c}
0x06d88…06db0               Head {h00=0x0024, h01=0x0050, text=» LDR A2,A10 GET REMAINING LENGTH«, t00=0x0046, t01=0x003c}
0x06db0…06dd8               Head {h00=0x0024, h01=0x0050, text=» SRL A2,12 COUNT NO OF 4K BLOCKS«, t00=0x0046, t01=0x0064}
0x06dd8…06e08               Head {h00=0x002c, h01=0x0050, text=» SRL A7,10 FRAME ADDRESS AS BLOCK COUNT «, t00=0x0046, t01=0x008c}
0x06e08…06e30               Head {h00=0x0024, h01=0x0050, text=» SUR A7,A2 SUBTRACT AREA NEEDED «, t00=0x0046, t01=0x00bc}
0x06e30…06e56               Head {h00=0x0022, h01=0x0050, text=» RF(N) MEMOVF MEMORY OVERFLOW!«, t00=0x0046, t01=0x00e4}
0x06e56…06e60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x010a}
0x06e60…06e92               Head {h00=0x002e, h01=0x0050, text=» ANKL A10,/0FFF ISOLATE POSSIBLE REMAINDER«, t00=0x0046, t01=0x0114}
0x06e92…06eb4               Head {h00=0x001e, h01=0x0050, text=» RF(Z) AP:279 NO REMAINDER«, t00=0x0046, t01=0x0146}
0x06eb4…06ebe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0168}
0x06ebe…06eec               Head {h00=0x002a, h01=0x0050, text=» LDKL A5,PAGSIZ RESERVE ONE NEW FRAME «, t00=0x0046, t01=0x0172}
0x06eec…06efe               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0047, t01=0x0010}
0x06efe…06f24               Head {h00=0x0022, h01=0x0050, text=» RF(N) MEMOVF MEMORY OVERFLOW!«, t00=0x0047, t01=0x0022}
0x06f24…06f2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0048}
0x06f2e…06f42               Head {h00=0x0010, h01=0x0050, text=»AP:279 EQU *«, t00=0x0047, t01=0x0052}
0x06f42…06f6a               Head {h00=0x0024, h01=0x0050, text=» SLL A7,10 RESTORE FRAME ADDRESS«, t00=0x0047, t01=0x0066}
0x06f6a…06f7e               Head {h00=0x0010, h01=0x0050, text=»AP:280 EQU *«, t00=0x0047, t01=0x008e}
0x06f7e…06fb4               Head {h00=0x0032, h01=0x0050, text=» SUR A5,A10 ALLOCATE AREA NEEDED IN LAST FRAME«, t00=0x0047, t01=0x00a2}
0x06fb4…06fce               Head {h00=0x0016, h01=0x0050, text=» LDR A4,A9 SAVE A9«, t00=0x0047, t01=0x00d8}
0x06fce…06fea               Head {h00=0x0018, h01=0x0050, text=» LDR A8,A11 SAVE A11«, t00=0x0047, t01=0x00f2}
0x06fea…07008               Head {h00=0x001a, h01=0x0050, text=» ST A7,SCTEFA AND SAVE«, t00=0x0047, t01=0x010e}
0x07008…0703e               Head {h00=0x0032, h01=0x0050, text=» ST A5,SCTEFA+2 SAVE DISPLACEMENT WITHIN PAGE «, t00=0x0047, t01=0x012c}
0x0703e…07078               Head {h00=0x0036, h01=0x0050, text=» ST A7,APLLDA,A1 SAVE PHYSICAL LOAD ADDR (BIT 0-5)«, t00=0x0047, t01=0x0162}
0x07078…070ae               Head {h00=0x0032, h01=0x0050, text=» ST A5,APLLDA+2,A1 AND BIT 6-17 OF APPLICATION«, t00=0x0048, t01=0x000c}
0x070ae…070de               Head {h00=0x002c, h01=0x0050, text=» ST A7,FYSPAG+STKCOM SAVE LAST PHYSICAL «, t00=0x0048, t01=0x0042}
0x070de…07108               Head {h00=0x0026, h01=0x0050, text=» ST A5,LSTADR+STKCOM ADDRESS USED «, t00=0x0048, t01=0x0072}
0x07108…0711a               Head {h00=0x000e, h01=0x0050, text=» SLL A7,2 «, t00=0x0048, t01=0x009c}
0x0711a…0712e               Head {h00=0x0010, h01=0x0050, text=» LDR A11,A7 «, t00=0x0048, t01=0x00ae}
0x0712e…07160               Head {h00=0x002e, h01=0x0050, text=» ORR A11,A5 MAKE ADDRESS AS A 16 BIT ADDR.«, t00=0x0048, t01=0x00c2}
0x07160…0718c               Head {h00=0x0028, h01=0x0050, text=» LD A9,SCTSFA GET START OF FREE AREA«, t00=0x0048, t01=0x00f4}
0x0718c…071b4               Head {h00=0x0024, h01=0x0050, text=» CALL CMPADR A11 COMPARED TO A9 «, t00=0x0048, t01=0x0120}
0x071b4…071ca               Head {h00=0x0012, h01=0x0050, text=» RF(G) AP:290 «, t00=0x0048, t01=0x0148}
0x071ca…071d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x015e}
0x071d4…071e8               Head {h00=0x0010, h01=0x0050, text=»MEMOVF EQU *«, t00=0x0048, t01=0x0168}
0x071e8…0720e               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP3 MEMORY OVERFLOW!«, t00=0x0048, t01=0x017c}
0x0720e…07222               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0049, t01=0x0012}
0x07222…0722c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0026}
0x0722c…07240               Head {h00=0x0010, h01=0x0050, text=»AP:290 EQU *«, t00=0x0049, t01=0x0030}
0x07240…0726c               Head {h00=0x0028, h01=0x0050, text=» CWK A3,'AS' ASSEMBLER APPLICATION? «, t00=0x0049, t01=0x0044}
0x0726c…07286               Head {h00=0x0016, h01=0x0050, text=» RF(NE) AP:295 NO!«, t00=0x0049, t01=0x0070}
0x07286…07290               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x008a}
0x07290…072bc               Head {h00=0x0028, h01=0x0050, text=» ADKL A11,10 SKIP 5 PRECEEDING WORDS«, t00=0x0049, t01=0x0094}
0x072bc…072d0               Head {h00=0x0010, h01=0x0050, text=»AP:295 EQU *«, t00=0x0049, t01=0x00c0}
0x072d0…07306               Head {h00=0x0032, h01=0x0050, text=» ST A11,LLDADR+STKEND SAVE APPL. LOAD ADDRESS «, t00=0x0049, t01=0x00d4}
0x07306…07324               Head {h00=0x001a, h01=0x0050, text=» LDR A9,A4 RESTORE A9 «, t00=0x0049, t01=0x010a}
0x07324…07344               Head {h00=0x001c, h01=0x0050, text=» LDR A11,A8 RESTORE A11 «, t00=0x0049, t01=0x0128}
0x07344…0737a               Head {h00=0x0032, h01=0x0050, text=» LD A8,LLDADR+STKEND A8 - LOGICAL LOAD ADDRESS«, t00=0x0049, t01=0x0148}
0x0737a…073b4               Head {h00=0x0036, h01=0x0050, text=» ST A8,ESYSTA+STKEND SAVE APPLICATION LOAD-ADDRESS«, t00=0x0049, t01=0x017e}
0x073b4…073e6               Head {h00=0x002e, h01=0x0050, text=» LD A10,COMLG,A9 GET LENGTH OF COMMON PART«, t00=0x004a, t01=0x0028}
0x073e6…073f2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004a, t01=0x005a}
0x073f2…07400               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x0066}
0x07400…0740a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0074}
0x0740a…0742a               Head {h00=0x001c, h01=0x0050, text=»*  COMMON EXECUTION PATH«, t00=0x004a, t01=0x007e}
0x0742a…07434               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x009e}
0x07434…07472               Head {h00=0x003a, h01=0x0050, text=»*  READ AND RELOCATE CORE RESIDENT PART OF APPLICATION«, t00=0x004a, t01=0x00a8}
0x07472…0747c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00e6}
0x0747c…074a4               Head {h00=0x0024, h01=0x0050, text=»*  A8 - APPLICATION LOAD ADDRESS«, t00=0x004a, t01=0x00f0}
0x074a4…074d2               Head {h00=0x002a, h01=0x0050, text=»*  A10 - LENGTH OF CORE RESIDENT PART «, t00=0x004a, t01=0x0118}
0x074d2…074dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0146}
0x074dc…074f0               Head {h00=0x0010, h01=0x0050, text=»AP:355 EQU *«, t00=0x004a, t01=0x0150}
0x074f0…07530               Head {h00=0x003c, h01=0x0050, text=» LD A1,CURAPL+STKEND RESTORE APPL. CONTROL BLOCK POINTER«, t00=0x004a, t01=0x0164}
0x07530…0755e               Head {h00=0x002a, h01=0x0050, text=» ST A8,APLLAC,A1 SAVE LOGICAL ADDRESS «, t00=0x004b, t01=0x0014}
0x0755e…07598               Head {h00=0x0036, h01=0x0050, text=» ST A8,APLREL,A1 SAVE APPLICATION RELOCATION BASE «, t00=0x004b, t01=0x0042}
0x07598…075d0               Head {h00=0x0034, h01=0x0050, text=» CM FSTSEC+STKEND RESET FIRST SECTOR/BLOCK IND. «, t00=0x004b, t01=0x007c}
0x075d0…0760a               Head {h00=0x0036, h01=0x0050, text=» LDKL A7,240 INITIATE NR OF CODE WORDS/SECT/BLOCK «, t00=0x004b, t01=0x00b4}
0x0760a…07632               Head {h00=0x0024, h01=0x0050, text=» ST A7,LOD:10 MODIFY INSTRUCTION«, t00=0x004b, t01=0x00ee}
0x07632…07660               Head {h00=0x002a, h01=0x0050, text=» CF A14,LODCOM LOAD CORE RESIDENT PART«, t00=0x004b, t01=0x0116}
0x07660…0766a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0144}
0x0766a…07694               Head {h00=0x0026, h01=0x0050, text=»*  CHECK IF ASSEMBLER APPLICATION «, t00=0x004b, t01=0x014e}
0x07694…0769e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0178}
0x0769e…076da               Head {h00=0x0038, h01=0x0050, text=» LD A1,CURAPL+STKEND GET CURRENT APPL. CONTR. BLOCK «, t00=0x004b, t01=0x0182}
0x076da…0770a               Head {h00=0x002c, h01=0x0050, text=» LD A2,APLTYP,A1 AND TYPE OF THIS APPL. «, t00=0x004c, t01=0x002e}
0x0770a…07736               Head {h00=0x0028, h01=0x0050, text=» CWK A2,'AS' ASSEMBLER APPLICATION? «, t00=0x004c, t01=0x005e}
0x07736…07750               Head {h00=0x0016, h01=0x0050, text=» ABL(E) AP:400 YES«, t00=0x004c, t01=0x008a}
0x07750…0778e               Head {h00=0x003a, h01=0x0050, text=» LD A8,LSTASG+STKEND GET LOGICAL ADDRESS TO FIRST PAGE«, t00=0x004c, t01=0x00a4}
0x0778e…077c2               Head {h00=0x0030, h01=0x0050, text=» LD A2,TNBRSG+STKEND GET NUMBER OF SEGMENTS «, t00=0x004c, t01=0x00e2}
0x077c2…077f4               Head {h00=0x002e, h01=0x0050, text=» ABL(Z) AP:400 NO SEGMENTS IN APPLICATION «, t00=0x004c, t01=0x0116}
0x077f4…077fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0148}
0x077fe…07836               Head {h00=0x0034, h01=0x0050, text=» CM SEGCNT+STKEND CLEAR NO OF SEGMENTS PROCESSED«, t00=0x004c, t01=0x0152}
0x07836…0784c               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004c, t01=0x018a}
0x0784c…0787e               Head {h00=0x002e, h01=0x0050, text=» TS MMDDIV,A13 SAVE MMU REGISTER CONTENTS «, t00=0x004d, t01=0x0010}
0x0787e…0788a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x0042}
0x0788a…0789e               Head {h00=0x0010, h01=0x0050, text=»AP:360 EQU *«, t00=0x004d, t01=0x004e}
0x0789e…078a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0062}
0x078a8…078d2               Head {h00=0x0026, h01=0x0050, text=»*  READ AND RELOCATE THE SEGMENTS «, t00=0x004d, t01=0x006c}
0x078d2…078dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0096}
0x078dc…0790e               Head {h00=0x002e, h01=0x0050, text=»*  A8 - LOGICAL ADDRESS OF SAVE05 SEGMENT «, t00=0x004d, t01=0x00a0}
0x0790e…0792e               Head {h00=0x001c, h01=0x0050, text=»*  A10 - SEGMENT LENGTH «, t00=0x004d, t01=0x00d2}
0x0792e…07938               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00f2}
0x07938…07972               Head {h00=0x0036, h01=0x0050, text=» LD A3,CURAPL+STKEND GET APPL. CONTROL BLOCK ADDR.«, t00=0x004d, t01=0x00fc}
0x07972…079a6               Head {h00=0x0030, h01=0x0050, text=» LD A2,APLLAC,A3 GET LOGICAL ADDR. TO APPL. «, t00=0x004d, t01=0x0136}
0x079a6…079c4               Head {h00=0x001a, h01=0x0050, text=» ADKL A2,BLKLEN+BLKLEN«, t00=0x004d, t01=0x016a}
0x079c4…079f4               Head {h00=0x002c, h01=0x0050, text=» LD A1,SEGCNT+STKEND GET SEGMENT COUNTER«, t00=0x004d, t01=0x0188}
0x079f4…07a08               Head {h00=0x0010, h01=0x0050, text=»AP:365 EQU *«, t00=0x004e, t01=0x0028}
0x07a08…07a1e               Head {h00=0x0012, h01=0x0050, text=» RF(Z) AP:370 «, t00=0x004e, t01=0x003c}
0x07a1e…07a40               Head {h00=0x001e, h01=0x0050, text=» ADK A2,BLKLEN NEXT BLOCK «, t00=0x004e, t01=0x0052}
0x07a40…07a6a               Head {h00=0x0026, h01=0x0050, text=» SUK A1,1 DECREMENT BLOCK COUNTER «, t00=0x004e, t01=0x0074}
0x07a6a…07a7c               Head {h00=0x000e, h01=0x0050, text=» RB AP:365«, t00=0x004e, t01=0x009e}
0x07a7c…07a90               Head {h00=0x0010, h01=0x0050, text=»AP:370 EQU *«, t00=0x004e, t01=0x00b0}
0x07a90…07ac2               Head {h00=0x002e, h01=0x0050, text=» LD A1,SCTIPL IF LOADING FROM CASSETTE =14«, t00=0x004e, t01=0x00c4}
0x07ac2…07adc               Head {h00=0x0016, h01=0x0050, text=» SUK A1,/F0 . =14 «, t00=0x004e, t01=0x00f6}
0x07adc…07b06               Head {h00=0x0026, h01=0x0050, text=» RF(N) AP:376 LOAD THE SEGMENT =14«, t00=0x004e, t01=0x0110}
0x07b06…07b10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x013a}
0x07b10…07b30               Head {h00=0x001c, h01=0x0050, text=»*  CHECK IF DISC PAGING «, t00=0x004e, t01=0x0144}
0x07b30…07b3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0164}
0x07b3a…07b60               Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x004e, t01=0x016e}
0x07b60…07b7e (79, 0, 400)  Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x004f, t01=0x0004}
0x07b7e…07b98               Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:376 NO! «, t00=0x004f, t01=0x0022}
0x07b98…07ba2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x003c}
0x07ba2…07bcc               Head {h00=0x0026, h01=0x0050, text=»*  CHECK IF CORE RESIDENT SEGMENT «, t00=0x004f, t01=0x0046}
0x07bcc…07bd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0070}
0x07bd6…07bfc               Head {h00=0x0022, h01=0x0050, text=» CALL GETCON GET SEGMENT TYPE «, t00=0x004f, t01=0x007a}
0x07bfc…07c2a               Head {h00=0x002a, h01=0x0050, text=» LDR A12,A1 GET MOST SIGNIFICANT PART «, t00=0x004f, t01=0x00a0}
0x07c2a…07c50               Head {h00=0x0022, h01=0x0050, text=» ANKL A12,/FF OF DISC ADDRESS «, t00=0x004f, t01=0x00ce}
0x07c50…07c7e               Head {h00=0x002a, h01=0x0050, text=» SRL A1,8 SEGMENT TYPE TO RIGHT BYTE  «, t00=0x004f, t01=0x00f4}
0x07c7e…07caa               Head {h00=0x0028, h01=0x0050, text=» CCK A1,'RR' CORE RESIDENT SEGMENT? «, t00=0x004f, t01=0x0122}
0x07caa…07cd8               Head {h00=0x002a, h01=0x0050, text=» RF(E) AP:376 YES: LOAD THIS SEGMENT! «, t00=0x004f, t01=0x014e}
0x07cd8…07ce2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x017c}
0x07ce2…07d10               Head {h00=0x002a, h01=0x0050, text=»*  BYPASS THIS SEGMENT AND CHECK NEXT «, t00=0x004f, t01=0x0186}
0x07d10…07d1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0024}
0x07d1a…07d4a               Head {h00=0x002c, h01=0x0050, text=» LD A1,SEGCNT+STKEND GET SEGMENT COUNTER«, t00=0x0050, t01=0x002e}
0x07d4a…07d84               Head {h00=0x0036, h01=0x0050, text=» LD A2,TNBRSG+STKEND GET TOTAL NUMBER OF SEGMENTS «, t00=0x0050, t01=0x005e}
0x07d84…07da0               Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 INCREMENT «, t00=0x0050, t01=0x0098}
0x07da0…07dc0               Head {h00=0x001c, h01=0x0050, text=» CWR A1,A2 LAST SEGMENT?«, t00=0x0050, t01=0x00b4}
0x07dc0…07ddc               Head {h00=0x0018, h01=0x0050, text=» ABL(E) AP:400 YES! «, t00=0x0050, t01=0x00d4}
0x07ddc…07e14               Head {h00=0x0034, h01=0x0050, text=» ST A1,SEGCNT+STKEND SAVE CURRENT SEGMENT NUMBER«, t00=0x0050, t01=0x00f0}
0x07e14…07e26               Head {h00=0x000e, h01=0x0050, text=» RB AP:360«, t00=0x0050, t01=0x0128}
0x07e26…07e50               Head {h00=0x0026, h01=0x0050, text=»AP:375 LDKL A1,LMP2 DISC I/O ERROR«, t00=0x0050, t01=0x013a}
0x07e50…07e64               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0050, t01=0x0164}
0x07e64…07e72               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x0178}
0x07e72…07e86               Head {h00=0x0010, h01=0x0050, text=»AP:376 EQU *«, t00=0x0050, t01=0x0186}
0x07e86…07eac               Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 DISC SECTOR ADDRESS «, t00=0x0051, t01=0x000a}
0x07eac…07eda               Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTIPL IF CASSETTE LOADING =14 «, t00=0x0051, t01=0x0030}
0x07eda…07ef4               Head {h00=0x0016, h01=0x0050, text=» SUK A1,/F0 . =14 «, t00=0x0051, t01=0x005e}
0x07ef4…07f2c               Head {h00=0x0034, h01=0x0050, text=» RF(N) AP378B SKIP DISC ADDRESS CALCULATION =14 «, t00=0x0051, t01=0x0078}
0x07f2c…07f58               Head {h00=0x0028, h01=0x0050, text=» CALL GETCON GET DISC SECTOR ADDRESS«, t00=0x0051, t01=0x00b0}
0x07f58…07f70               Head {h00=0x0014, h01=0x0050, text=» LDR A11,A1 SAVE«, t00=0x0051, t01=0x00dc}
0x07f70…07fac               Head {h00=0x0038, h01=0x0050, text=» AD A11,APLADA+2,A3 ADD LEAST SIGN. PART OF A.D.A.? «, t00=0x0051, t01=0x00f4}
0x07fac…07fca               Head {h00=0x001a, h01=0x0050, text=» RF(O) AP:377 OVERFLOW«, t00=0x0051, t01=0x0130}
0x07fca…07fea               Head {h00=0x001c, h01=0x0050, text=» RF AP:378 NOT OVERFLOW «, t00=0x0051, t01=0x014e}
0x07fea…08022               Head {h00=0x0034, h01=0x0050, text=»AP:377 ADKL A12,1 INCR. M. S. P. OF DISC ADDRESS«, t00=0x0051, t01=0x016e}
0x08022…08048               Head {h00=0x0022, h01=0x0050, text=» ANKL A11,/7FFF RESET OVERFLOW«, t00=0x0052, t01=0x0016}
0x08048…08080               Head {h00=0x0034, h01=0x0050, text=»AP:378 AD A12,APLADA,A3 ADD M. S. P. OF A. D. A.«, t00=0x0052, t01=0x003c}
0x08080…0809e               Head {h00=0x001a, h01=0x0050, text=» CWK A12,255 OVERFLOW?«, t00=0x0052, t01=0x0074}
0x0809e…080ce               Head {h00=0x002c, h01=0x0050, text=» RB(G) AP:375 YES: ILLEGAL DISC ADDRESS!«, t00=0x0052, t01=0x0092}
0x080ce…080e8               Head {h00=0x0016, h01=0x0050, text=»AP378B EQU * . =14«, t00=0x0052, t01=0x00c2}
0x080e8…08108               Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 SEGMENT LENGTH«, t00=0x0052, t01=0x00dc}
0x08108…08130               Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET SEGMENT LENGTH «, t00=0x0052, t01=0x00fc}
0x08130…08148               Head {h00=0x0014, h01=0x0050, text=» LDR A10,A1 SAVE«, t00=0x0052, t01=0x0124}
0x08148…0815c               Head {h00=0x0010, h01=0x0050, text=» ADKL A10,1 «, t00=0x0052, t01=0x013c}
0x0815c…08184               Head {h00=0x0024, h01=0x0050, text=» ANKL A10,/FFFE MAKE EVEN LENGTH«, t00=0x0052, t01=0x0150}
0x08184…081a0               Head {h00=0x0018, h01=0x0050, text=» ST A8,LLDADR+STKEND«, t00=0x0052, t01=0x0178}
0x081a0…081c4 (83, 0, 400)  Head {h00=0x0020, h01=0x0050, text=» CF A14,LODSEG LOAD SEGMENT «, t00=0x0053, t01=0x0004}
0x081c4…081f4               Head {h00=0x002c, h01=0x0050, text=» LD A1,SEGCNT+STKEND GET SEGMENT COUNTER«, t00=0x0053, t01=0x0028}
0x081f4…0822e               Head {h00=0x0036, h01=0x0050, text=» LD A2,TNBRSG+STKEND GET TOTAL NUMBER OF SEGMENTS «, t00=0x0053, t01=0x0058}
0x0822e…0825a               Head {h00=0x0028, h01=0x0050, text=» ADK A1,1 INCREMENT SEGMENT COUNTER «, t00=0x0053, t01=0x0092}
0x0825a…08282               Head {h00=0x0024, h01=0x0050, text=» CWR A1,A2 ALL SEGMENTS LOADED? «, t00=0x0053, t01=0x00be}
0x08282…0829e               Head {h00=0x0018, h01=0x0050, text=» ABL(E) AP:400 YES! «, t00=0x0053, t01=0x00e6}
0x0829e…082d0               Head {h00=0x002e, h01=0x0050, text=» ST A1,SEGCNT+STKEND STORE SEGMENT COUNTER«, t00=0x0053, t01=0x0102}
0x082d0…08310               Head {h00=0x003c, h01=0x0050, text=» LD A3,CURAPL+STKEND GET CURRENT APPL. CONTROL BLOCK =2 «, t00=0x0053, t01=0x0134}
0x08310…08344               Head {h00=0x0030, h01=0x0050, text=» LD A4,APLPSZ,A3 AND SEGMENT SIZE DEFINED =2«, t00=0x0053, t01=0x0174}
0x08344…0835a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0054, t01=0x0018}
0x0835a…0838a               Head {h00=0x002c, h01=0x0050, text=» ADR A8,A4 COMPUTE ADDRESS TO NEXT PAGE «, t00=0x0054, t01=0x002e}
0x0838a…0839c               Head {h00=0x000e, h01=0x0050, text=» RB AP:360«, t00=0x0054, t01=0x005e}
0x0839c…083a8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x0070}
0x083a8…083be               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0054, t01=0x007c}
0x083be…083cc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x0092}
0x083cc…083e0               Head {h00=0x0010, h01=0x0050, text=»AP:379 EQU *«, t00=0x0054, t01=0x00a0}
0x083e0…083f8               Head {h00=0x0014, h01=0x0050, text=» LDR A1,A4 SAVE «, t00=0x0054, t01=0x00b4}
0x083f8…0842a               Head {h00=0x002e, h01=0x0050, text=» ANKL A4,/0C00 GET MODULO 4K DISCRIMINANT «, t00=0x0054, t01=0x00cc}
0x0842a…08450               Head {h00=0x0022, h01=0x0050, text=» RF(Z) AP:380 NO DISCRIMINANT!«, t00=0x0054, t01=0x00fe}
0x08450…08488               Head {h00=0x0034, h01=0x0050, text=» ADR A1,A8 COMPUTE LOGICAL ADDRESS TO NEXT PAGE «, t00=0x0054, t01=0x0124}
0x08488…084a0               Head {h00=0x0014, h01=0x0050, text=» LDR A4,A1 SAVE «, t00=0x0054, t01=0x015c}
0x084a0…084d2               Head {h00=0x002e, h01=0x0050, text=» ANKL A4,/0C00 GET MODULO 4K DISCRIMINANT «, t00=0x0054, t01=0x0174}
0x084d2…08506               Head {h00=0x0030, h01=0x0050, text=» ANKL A1,/F000 LOGICAL ADDRESS TO NEXT PAGE «, t00=0x0055, t01=0x0016}
0x08506…0853c               Head {h00=0x0032, h01=0x0050, text=» ANKL A8,/F000 LOGICAL ADDRESS TO CURRENT PAGE«, t00=0x0055, t01=0x004a}
0x0853c…0856a               Head {h00=0x002a, h01=0x0050, text=» SUR A1,A8 COMPUTE PHYSICAL INCREMENT «, t00=0x0055, t01=0x0080}
0x0856a…0857e               Head {h00=0x0010, h01=0x0050, text=»AP:380 EQU *«, t00=0x0055, t01=0x00ae}
0x0857e…085ac               Head {h00=0x002a, h01=0x0050, text=» LD A8,APLLAP,A3 LOGICAL PAGE ADDRESS «, t00=0x0055, t01=0x00c2}
0x085ac…085c4               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A8 SAVE «, t00=0x0055, t01=0x00f0}
0x085c4…085fc               Head {h00=0x0034, h01=0x0050, text=» ADR A8,A4 COMPUTE LOGICAL ADDRESS TO NEXT PAGE «, t00=0x0055, t01=0x0108}
0x085fc…08628               Head {h00=0x0028, h01=0x0050, text=» SRL A2,12 MOVE TO 4 RIGHTMOST BITS «, t00=0x0055, t01=0x0140}
0x08628…08646               Head {h00=0x001a, h01=0x0050, text=» ADR A2,A2 2*MMU ENTRY«, t00=0x0055, t01=0x016c}
0x08646…0865a               Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x0055, t01=0x018a}
0x0865a…08684               Head {h00=0x0026, h01=0x0050, text=» ADKL A2,MMDDIV MMU ENTRY ADDRESS «, t00=0x0056, t01=0x000e}
0x08684…08698               Head {h00=0x0010, h01=0x0050, text=» LDR A3,A13 «, t00=0x0056, t01=0x0038}
0x08698…086b2               Head {h00=0x0016, h01=0x0050, text=» ADKL A3,MMDDIV+32«, t00=0x0056, t01=0x004c}
0x086b2…086e0               Head {h00=0x002a, h01=0x0050, text=» SRL A1,2 MAP PHYSICAL ADDRESS ON MMU «, t00=0x0056, t01=0x0066}
0x086e0…086f4               Head {h00=0x0010, h01=0x0050, text=»AP:385 EQU *«, t00=0x0056, t01=0x0094}
0x086f4…08724               Head {h00=0x002c, h01=0x0050, text=» ADRS A1,A2 LOGICAL ADDRESS TO NEXT PAGE«, t00=0x0056, t01=0x00a8}
0x08724…08744               Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 NEXT MMU ENTRY«, t00=0x0056, t01=0x00d8}
0x08744…08756               Head {h00=0x000e, h01=0x0050, text=» CWR A2,A3«, t00=0x0056, t01=0x00f8}
0x08756…0876c               Head {h00=0x0012, h01=0x0050, text=» RB(NE) AP:385«, t00=0x0056, t01=0x010a}
0x0876c…08796               Head {h00=0x0026, h01=0x0050, text=» TL MMDDIV,A13 LOAD MMU REGISTERS «, t00=0x0056, t01=0x0120}
0x08796…087a8               Head {h00=0x000e, h01=0x0050, text=» RB AP:360«, t00=0x0056, t01=0x014a}
0x087a8…087b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x015c}
0x087b2…087be               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0056, t01=0x0166}
0x087be…087cc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x0172}
0x087cc…087e0               Head {h00=0x0010, h01=0x0050, text=»AP:400 EQU *«, t00=0x0056, t01=0x0180}
0x087e0…0881c (87, 0, 400)  Head {h00=0x0038, h01=0x0050, text=» LD A1,CURAPL+STKEND GET CURRENT APPL.CONTROL BLOCK «, t00=0x0057, t01=0x0004}
0x0881c…08836               Head {h00=0x0016, h01=0x0050, text=» IM APLCNT+STKEND «, t00=0x0057, t01=0x0040}
0x08836…08864               Head {h00=0x002a, h01=0x0050, text=» ABL(Z) CONLOD ALL APPLICATIONS LOADED«, t00=0x0057, t01=0x005a}
0x08864…0886e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0088}
0x0886e…088a0               Head {h00=0x002e, h01=0x0050, text=» ADK A1,ACBLEN ADVANCE TO NEXT APPLICATION«, t00=0x0057, t01=0x0092}
0x088a0…088d6               Head {h00=0x0032, h01=0x0050, text=» ST A1,CURAPL+STKEND APPLICATION CONTROL BLOCK«, t00=0x0057, t01=0x00c4}
0x088d6…0890e               Head {h00=0x0034, h01=0x0050, text=» LD A12,APLADA,A1 MOST SIGN. PART OF DISC ADDR. «, t00=0x0057, t01=0x00fa}
0x0890e…08948               Head {h00=0x0036, h01=0x0050, text=» LD A11,APLADA+2,A1 LEAST SIGN. PART OF DISC ADDR.«, t00=0x0057, t01=0x0132}
0x08948…08974               Head {h00=0x0028, h01=0x0050, text=» LD A10,READ GET SUBROUTINE ADDRESS «, t00=0x0057, t01=0x016c}
0x08974…0899a               Head {h00=0x0022, h01=0x0050, text=» CFR A14,A10 READ FIRST SECTOR«, t00=0x0058, t01=0x0008}
0x0899a…089ae               Head {h00=0x0010, h01=0x0050, text=» ABL AP:234 «, t00=0x0058, t01=0x002e}
0x089ae…089bc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0058, t01=0x0042}
0x089bc…089f2               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0058, t01=0x0050}
0x089f2…08a28               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0058, t01=0x0086}
0x08a28…08a5e               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0058, t01=0x00bc}
0x08a5e…08a94               Head {h00=0x0032, h01=0x0050, text=»*                ALOCSG                     * «, t00=0x0058, t01=0x00f2}
0x08a94…08aca               Head {h00=0x0032, h01=0x0050, text=»*                ======                     * «, t00=0x0058, t01=0x0128}
0x08aca…08b00               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0058, t01=0x015e}
0x08b00…08b36 (89, 0, 400)  Head {h00=0x0032, h01=0x0050, text=»*   RESERVE PAGES FOR RESIDENT SEGMENTS     * «, t00=0x0059, t01=0x0004}
0x08b36…08b6c               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0059, t01=0x003a}
0x08b6c…08ba2               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0059, t01=0x0070}
0x08ba2…08bd8               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0059, t01=0x00a6}
0x08bd8…08be2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00dc}
0x08be2…08bec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00e6}
0x08bec…08c00               Head {h00=0x0010, h01=0x0050, text=»ALOCSG EQU *«, t00=0x0059, t01=0x00f0}
0x08c00…08c34               Head {h00=0x0030, h01=0x0050, text=» ST A2,TNBRSG+STKEND SAVE NUMBER OF SEGMENTS«, t00=0x0059, t01=0x0104}
0x08c34…08c6a               Head {h00=0x0032, h01=0x0050, text=» CM REWFLG+STKEND CLEAR REWIND INDICATION =14 «, t00=0x0059, t01=0x0138}
0x08c6a…08ca6               Head {h00=0x0038, h01=0x0050, text=» CM SEGCNT+STKEND RESET NO OF CORE RESIDENT SEGMENTS«, t00=0x0059, t01=0x016e}
0x08ca6…08cd4               Head {h00=0x002a, h01=0x0050, text=» ST A3,APLPSZ,A1 SAVE SEGMENT SIZE =2 «, t00=0x005a, t01=0x001a}
0x08cd4…08cfa               Head {h00=0x0022, h01=0x0050, text=» LD A4,SCTOPT GET OPTION WORD «, t00=0x005a, t01=0x0048}
0x08cfa…08d18               Head {h00=0x001a, h01=0x0050, text=» SRC A4,2 DISC PAGING?«, t00=0x005a, t01=0x006e}
0x08d18…08d32               Head {h00=0x0016, h01=0x0050, text=» RF(NN) ALSG04 NO!«, t00=0x005a, t01=0x008c}
0x08d32…08d3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00a6}
0x08d3c…08d6a               Head {h00=0x002a, h01=0x0050, text=» LD A4,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x005a, t01=0x00b0}
0x08d6a…08d90               Head {h00=0x0022, h01=0x0050, text=» SUK A4,/F0 CHECK IF CASSETTE «, t00=0x005a, t01=0x00de}
0x08d90…08dc4               Head {h00=0x0030, h01=0x0050, text=» RF(N) ALSG04 CASSETTE - LOAD ALL SEGMENTS! «, t00=0x005a, t01=0x0104}
0x08dc4…08dce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0138}
0x08dce…08dfe               Head {h00=0x002c, h01=0x0050, text=»*  COMPUTE NUMBER OF CORE RESIDENT PAGES«, t00=0x005a, t01=0x0142}
0x08dfe…08e08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0172}
0x08e08…08e30               Head {h00=0x0024, h01=0x0050, text=» LDR A6,A9 START OF APPLICATION «, t00=0x005a, t01=0x017c}
0x08e30…08e5a               Head {h00=0x0026, h01=0x0050, text=» ADK A6,14 START OF SEGMENT BLOCKS«, t00=0x005b, t01=0x0014}
0x08e5a…08e6e               Head {h00=0x0010, h01=0x0050, text=»ALSG00 EQU *«, t00=0x005b, t01=0x003e}
0x08e6e…08e92               Head {h00=0x0020, h01=0x0050, text=» ADK A6,6 NEXT SEGMENT BLOCK«, t00=0x005b, t01=0x0052}
0x08e92…08eb4               Head {h00=0x001e, h01=0x0050, text=»*  LOOK IF OUTSIDE BUFFER «, t00=0x005b, t01=0x0076}
0x08eb4…08ece               Head {h00=0x0016, h01=0x0050, text=»*  IF SO READ NEXT«, t00=0x005b, t01=0x0098}
0x08ece…08ee6               Head {h00=0x0014, h01=0x0050, text=»*  SECTOR BLOCK «, t00=0x005b, t01=0x00b2}
0x08ee6…08ef0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00ca}
0x08ef0…08f18               Head {h00=0x0024, h01=0x0050, text=» LDR A4,A6 SAVE BUFFER POSITION «, t00=0x005b, t01=0x00d4}
0x08f18…08f3c               Head {h00=0x0020, h01=0x0050, text=» SUR A4,A9 RELATIVE POSITION«, t00=0x005b, t01=0x00fc}
0x08f3c…08f68               Head {h00=0x0028, h01=0x0050, text=» CWK A4,BUFLEN-16 OUTSIDE BUFFER? =5«, t00=0x005b, t01=0x0120}
0x08f68…08f82               Head {h00=0x0016, h01=0x0050, text=» RF(NG) ALSG01 NO!«, t00=0x005b, t01=0x014c}
0x08f82…08f8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0166}
0x08f8c…08fc0               Head {h00=0x0030, h01=0x0050, text=» IM REWFLG+STKEND SET REWIND INDICATION =14 «, t00=0x005b, t01=0x0170}
0x08fc0…08fe8               Head {h00=0x0024, h01=0x0050, text=» CF A14,NXTSEC READ NEXT SECTOR «, t00=0x005c, t01=0x0014}
0x08fe8…09024               Head {h00=0x0038, h01=0x0050, text=» SUK A6,BUFLEN-16 COMPENSATE FOR RELOCATION BITS =5 «, t00=0x005c, t01=0x003c}
0x09024…0904c               Head {h00=0x0024, h01=0x0050, text=»   AND RESET BUFFER POSITION =5 «, t00=0x005c, t01=0x0078}
0x0904c…09056               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00a0}
0x09056…0906a               Head {h00=0x0010, h01=0x0050, text=»ALSG01 EQU *«, t00=0x005c, t01=0x00aa}
0x0906a…0908e               Head {h00=0x0020, h01=0x0050, text=» LCR A4,A6 GET SEGMENT TYPE «, t00=0x005c, t01=0x00be}
0x0908e…090ba               Head {h00=0x0028, h01=0x0050, text=» CCK A4,'RR' CORE RESIDENT SEGMENT? «, t00=0x005c, t01=0x00e2}
0x090ba…090d4               Head {h00=0x0016, h01=0x0050, text=» RF(NE) ALSG02 NO!«, t00=0x005c, t01=0x010e}
0x090d4…09110               Head {h00=0x0038, h01=0x0050, text=» IM SEGCNT+STKEND INCREMENT RESIDENT SEGMENT COUNTER«, t00=0x005c, t01=0x0128}
0x09110…09124               Head {h00=0x0010, h01=0x0050, text=»ALSG02 EQU *«, t00=0x005c, t01=0x0164}
0x09124…09146               Head {h00=0x001e, h01=0x0050, text=» SUK A2,1 MOORE SEGMENTS? «, t00=0x005c, t01=0x0178}
0x09146…09162               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) ALSG00 YES! «, t00=0x005d, t01=0x000a}
0x09162…0919a               Head {h00=0x0034, h01=0x0050, text=» LD A2,SEGCNT+STKEND NUMBER OF RESIDENT SEGMENTS«, t00=0x005d, t01=0x0026}
0x0919a…091c6               Head {h00=0x0028, h01=0x0050, text=» RF(Z) ALSG12 NO RESIDENT SEGMENTS! «, t00=0x005d, t01=0x005e}
0x091c6…091da               Head {h00=0x0010, h01=0x0050, text=»ALSG04 EQU *«, t00=0x005d, t01=0x008a}
0x091da…09214               Head {h00=0x0036, h01=0x0050, text=» ST A2,SEGCNT+STKEND SAVE NBR OF RESIDENT SEGMENTS«, t00=0x005d, t01=0x009e}
0x09214…0924c               Head {h00=0x0034, h01=0x0050, text=» ADS A2,SCTNOP ACKUMULATE NO OF CORE RES. SEGM. «, t00=0x005d, t01=0x00d8}
0x0924c…09272               Head {h00=0x0022, h01=0x0050, text=» LD A6,SCTOPT GET OPTION WORD «, t00=0x005d, t01=0x0110}
0x09272…09284               Head {h00=0x000e, h01=0x0050, text=» SRC A6,1 «, t00=0x005d, t01=0x0136}
0x09284…092ac               Head {h00=0x0024, h01=0x0050, text=» RF(NN) ALSG08 NO MMU IN SYSTEM «, t00=0x005d, t01=0x0148}
0x092ac…092b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0170}
0x092b6…092da               Head {h00=0x0020, h01=0x0050, text=» LDR A6,A3 GET SEGMENT SIZE «, t00=0x005d, t01=0x017a}
0x092da…092f0               Head {h00=0x0012, h01=0x0050, text=» ANKL A6,/FFF «, t00=0x005e, t01=0x000e}
0x092f0…09322               Head {h00=0x002e, h01=0x0050, text=» RF(NZ) ALSG08 NOT A MULTIPLE OF 4K BYTES «, t00=0x005e, t01=0x0024}
0x09322…0932c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0056}
0x0932c…09360               Head {h00=0x0030, h01=0x0050, text=» LDR A5,A5 LOOK IF ALREADY ON A 4K BOUNDARY «, t00=0x005e, t01=0x0060}
0x09360…0937a               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ALSG08 YES «, t00=0x005e, t01=0x0094}
0x0937a…09384               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00ae}
0x09384…093ac               Head {h00=0x0024, h01=0x0050, text=» LDK A5,0 START ON A 4K BOUNDARY«, t00=0x005e, t01=0x00b8}
0x093ac…093c0               Head {h00=0x0010, h01=0x0050, text=»ALSG08 EQU *«, t00=0x005e, t01=0x00e0}
0x093c0…093ee               Head {h00=0x002a, h01=0x0050, text=» LDR A7,A7 LOOK IF 256 KBYTE MEMORY =3«, t00=0x005e, t01=0x00f4}
0x093ee…0940c               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ALSG8B NO! =3 «, t00=0x005e, t01=0x0122}
0x0940c…0943c               Head {h00=0x002c, h01=0x0050, text=» LDKL A5,PAGSIZ YES LAST FRAME EMPTY =3 «, t00=0x005e, t01=0x0140}
0x0943c…0946c               Head {h00=0x002c, h01=0x0050, text=» SUKL A7,/400 BEGINNING OF LAST FRAME =3«, t00=0x005e, t01=0x0170}
0x0946c…09480               Head {h00=0x0010, h01=0x0050, text=»ALSG8B EQU *«, t00=0x005f, t01=0x0010}
0x09480…094b2               Head {h00=0x002e, h01=0x0050, text=» ANKL A5,/1C00 ALWAYS START ON 1K BOUNDARY«, t00=0x005f, t01=0x0024}
0x094b2…094e4               Head {h00=0x002e, h01=0x0050, text=» SRL A3,1 MAKE SEGMENT LENGTH IN WORDS =2 «, t00=0x005f, t01=0x0056}
0x094e4…09510               Head {h00=0x0028, h01=0x0050, text=» SRL A5,1 AND REMAINING AREA TOO =2 «, t00=0x005f, t01=0x0088}
0x09510…0953e               Head {h00=0x002a, h01=0x0050, text=» SRL A7,10 CONVERT TO NO OF FRAMES =2 «, t00=0x005f, t01=0x00b4}
0x0953e…09564               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A3 GET SEGMENT SIZE =2«, t00=0x005f, t01=0x00e2}
0x09564…09596               Head {h00=0x002e, h01=0x0050, text=» NGR A4,A4 AND CORRESPONDING NEG. VALUE =2«, t00=0x005f, t01=0x0108}
0x09596…095ae               Head {h00=0x0014, h01=0x0050, text=»ALSG09 EQU * =2 «, t00=0x005f, t01=0x013a}
0x095ae…095d6               Head {h00=0x0024, h01=0x0050, text=» CWR A5,A3 ENOUGH SPACE LEFT? =2«, t00=0x005f, t01=0x0152}
0x095d6…095f4               Head {h00=0x001a, h01=0x0050, text=» RF(NL) ALSG10 YES =2 «, t00=0x005f, t01=0x017a}
0x095f4…0961e               Head {h00=0x0026, h01=0x0050, text=» SUK A7,1 DECREMENT FRAME COUNT =2«, t00=0x0060, t01=0x0008}
0x0961e…0964e               Head {h00=0x002c, h01=0x0050, text=» ADKL A5,/800 ALLOCATE ANOTHER FRAME =2 «, t00=0x0060, t01=0x0032}
0x0964e…09676               Head {h00=0x0024, h01=0x0050, text=» RB(P) ALSG09 LOOK IF ENOUGH =2 «, t00=0x0060, t01=0x0062}
0x09676…0968e               Head {h00=0x0014, h01=0x0050, text=»ALSG10 EQU * =2 «, t00=0x0060, t01=0x008a}
0x0968e…096c6               Head {h00=0x0034, h01=0x0050, text=» TNM A5,A3 FREE AREA GREATER THAN 32K WORDS? =2 «, t00=0x0060, t01=0x00a2}
0x096c6…096e2               Head {h00=0x0018, h01=0x0050, text=» RF(N) ALS11A YES =2«, t00=0x0060, t01=0x00da}
0x096e2…09714               Head {h00=0x002e, h01=0x0050, text=» SUR A5,A3 ALLOCATE AREA TO ONE SEGMENT =2«, t00=0x0060, t01=0x00f6}
0x09714…0972a               Head {h00=0x0012, h01=0x0050, text=» RF ALS11B =2 «, t00=0x0060, t01=0x0128}
0x0972a…09742               Head {h00=0x0014, h01=0x0050, text=»ALS11A EQU * =2 «, t00=0x0060, t01=0x013e}
0x09742…09774               Head {h00=0x002e, h01=0x0050, text=» ADR A5,A4 ALLOCATE AREA TO ONE SEGMENT =2«, t00=0x0060, t01=0x0156}
0x09774…0978c               Head {h00=0x0014, h01=0x0050, text=»ALS11B EQU * =2 «, t00=0x0060, t01=0x0188}
0x0978c…097ba               Head {h00=0x002a, h01=0x0050, text=» SUK A2,1 DECREMENT SEGMENT COUNTS =2 «, t00=0x0061, t01=0x0010}
0x097ba…097e2               Head {h00=0x0024, h01=0x0050, text=» RB(NZ) ALSG09 MORE SEGMENTS =2 «, t00=0x0061, t01=0x003e}
0x097e2…097f8               Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 =2 «, t00=0x0061, t01=0x0066}
0x097f8…09820               Head {h00=0x0024, h01=0x0050, text=» ABL(N) MEMOVF MEMORY OVERFLOW! «, t00=0x0061, t01=0x007c}
0x09820…0982a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x00a4}
0x0982a…09852               Head {h00=0x0024, h01=0x0050, text=» SLL A7,10 RESTORE FRAME ADDRESS«, t00=0x0061, t01=0x00ae}
0x09852…09884               Head {h00=0x002e, h01=0x0050, text=» ST A7,APLSEG,A1 SAVE PHYSICAL ADDRESS TO «, t00=0x0061, t01=0x00d6}
0x09884…098b4               Head {h00=0x002c, h01=0x0050, text=» SLL A5,1 RESTORE AREA LEFT IN BYTES =2 «, t00=0x0061, t01=0x0108}
0x098b4…098e6               Head {h00=0x002e, h01=0x0050, text=» SLL A3,1 RESTORE SEGMENT SIZE IN BYTES =2«, t00=0x0061, t01=0x0138}
0x098e6…09918               Head {h00=0x002e, h01=0x0050, text=» ST A5,APLSEG+2,A1 FIRST RESIDENT SEGMENT «, t00=0x0061, t01=0x016a}
0x09918…0992c               Head {h00=0x0010, h01=0x0050, text=»ALSG12 EQU *«, t00=0x0062, t01=0x000c}
0x0992c…09936               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0020}
0x09936…09964               Head {h00=0x002a, h01=0x0050, text=»*  REREAD FIRST SECTOR OF APPLICATION «, t00=0x0062, t01=0x002a}
0x09964…09992               Head {h00=0x002a, h01=0x0050, text=»*  IF S:GTAB IS LARGER THAN ONE SECTOR«, t00=0x0062, t01=0x0058}
0x09992…0999c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0086}
0x0999c…099dc               Head {h00=0x003c, h01=0x0050, text=» LD A2,REWFLG+STKEND DO WE HAVE TO REWIND THE FILE? =14 «, t00=0x0062, t01=0x0090}
0x099dc…099fa               Head {h00=0x001a, h01=0x0050, text=» RF(Z) ALSG30 NO! =14 «, t00=0x0062, t01=0x00d0}
0x099fa…09a04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00ee}
0x09a04…09a1c               Head {h00=0x0014, h01=0x0050, text=» IFT CASS=1  =14«, t00=0x0062, t01=0x00f8}
0x09a1c…09a4a               Head {h00=0x002a, h01=0x0050, text=» LD A2,SCTIPL IF CASSETTE LOADING =14 «, t00=0x0062, t01=0x0110}
0x09a4a…09a64               Head {h00=0x0016, h01=0x0050, text=» SUK A2,/F0 . =14 «, t00=0x0062, t01=0x013e}
0x09a64…09a80               Head {h00=0x0018, h01=0x0050, text=» RF(NN) ALSG14 . =14«, t00=0x0062, t01=0x0158}
0x09a80…09a8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0174}
0x09a8a…09ab4               Head {h00=0x0026, h01=0x0050, text=»*   WE MUST REWIND THE TAPE TO =14«, t00=0x0062, t01=0x017e}
0x09ab4…09adc               Head {h00=0x0024, h01=0x0050, text=»*   BEGINNING OF APPLICATION =14«, t00=0x0063, t01=0x0018}
0x09adc…09ae6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0040}
0x09ae6…09b0c               Head {h00=0x0022, h01=0x0050, text=» CALL PUSH SAVE REGISTERS =14 «, t00=0x0063, t01=0x004a}
0x09b0c…09b3e               Head {h00=0x002e, h01=0x0050, text=» LDK A1,SBOT SEARCH BEGINNING OF TAPE =14 «, t00=0x0063, t01=0x0070}
0x09b3e…09b5a               Head {h00=0x0018, h01=0x0050, text=» CF A14,CHCRIO . =14«, t00=0x0063, t01=0x00a2}
0x09b5a…09b74               Head {h00=0x0016, h01=0x0050, text=» LDK A1,STMF . =14«, t00=0x0063, t01=0x00be}
0x09b74…09ba6               Head {h00=0x002e, h01=0x0050, text=» CF A14,CHCRIO SEARCH START OF MONITOR =14«, t00=0x0063, t01=0x00d8}
0x09ba6…09bc0               Head {h00=0x0016, h01=0x0050, text=» LDK A1,STMF . =14«, t00=0x0063, t01=0x010a}
0x09bc0…09bf6               Head {h00=0x0032, h01=0x0050, text=» CF A14,CHCRIO SEARCH START OF APPLICATION =14«, t00=0x0063, t01=0x0124}
0x09bf6…09c2c               Head {h00=0x0032, h01=0x0050, text=» CF A14,RDBLK REREAD START OF APPLICATION =14 «, t00=0x0063, t01=0x015a}
0x09c2c…09c54               Head {h00=0x0024, h01=0x0050, text=» CALL POB RESTORE REGISTERS =14 «, t00=0x0063, t01=0x0190}
0x09c54…09c6c               Head {h00=0x0014, h01=0x0050, text=» RF ALSG30 . =14«, t00=0x0064, t01=0x0028}
0x09c6c…09c86               Head {h00=0x0016, h01=0x0050, text=»ALSG14 EQU * . =14«, t00=0x0064, t01=0x0040}
0x09c86…09c98               Head {h00=0x000e, h01=0x0050, text=» XIF  =14 «, t00=0x0064, t01=0x005a}
0x09c98…09cd4               Head {h00=0x0038, h01=0x0050, text=» LD A12,APLADA,A1 GET MOST SIGN. PART OF DISC ADDR. «, t00=0x0064, t01=0x006c}
0x09cd4…09d0a               Head {h00=0x0032, h01=0x0050, text=» LD A11,APLADA+2,A1 AND LEAST SIGNIFICANT PART«, t00=0x0064, t01=0x00a8}
0x09d0a…09d34               Head {h00=0x0026, h01=0x0050, text=» CF A14,NXTSEC REREAD FIRST SECTOR«, t00=0x0064, t01=0x00de}
0x09d34…09d4e               Head {h00=0x0016, h01=0x0050, text=»ALSG30 EQU * . =14«, t00=0x0064, t01=0x0108}
0x09d4e…09d5e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0064, t01=0x0122}
0x09d5e…09d6a               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0064, t01=0x0132}
0x09d6a…09d76               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0064, t01=0x013e}
0x09d76…09d8a               Head {h00=0x0010, h01=0x0050, text=»NXTSEC EQU *«, t00=0x0064, t01=0x014a}
0x09d8a…09db4               Head {h00=0x0026, h01=0x0050, text=» CALL PUSH SAVE REGISTER CONTENTS «, t00=0x0064, t01=0x015e}
0x09db4…09dda               Head {h00=0x0022, h01=0x0050, text=» LD A10,READ READ NEXT SECTOR «, t00=0x0064, t01=0x0188}
0x09dda…09dee               Head {h00=0x0010, h01=0x0050, text=» CFR A14,A10«, t00=0x0065, t01=0x001e}
0x09dee…09e2a               Head {h00=0x0038, h01=0x0050, text=» ST A11,DISCAD+STKEND SAVE CURRENT SECTOR/BLOCK =10 «, t00=0x0065, t01=0x0032}
0x09e2a…09e56               Head {h00=0x0028, h01=0x0050, text=» ST A12,DISCAD+2+STKEND ADDRESS =10 «, t00=0x0065, t01=0x006e}
0x09e56…09e88               Head {h00=0x002e, h01=0x0050, text=» CALL POB RESTORE FORMER REGISTER CONTENTS«, t00=0x0065, t01=0x009a}
0x09e88…09ec6               Head {h00=0x003a, h01=0x0050, text=» LD A11,DISCAD+STKEND RESTORE CURRENT SECTOR/BLOCK =10«, t00=0x0065, t01=0x00cc}
0x09ec6…09ef2               Head {h00=0x0028, h01=0x0050, text=» LD A12,DISCAD+2+STKEND ADDRESS =10 «, t00=0x0065, t01=0x010a}
0x09ef2…09f02               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0065, t01=0x0136}
0x09f02…09f1a               Head {h00=0x0014, h01=0x0050, text=» IFT EDM=1  =12 «, t00=0x0065, t01=0x0146}
0x09f1a…09f28               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0065, t01=0x015e}
0x09f28…09f60               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0065, t01=0x016c}
0x09f60…09f98               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0066, t01=0x0014}
0x09f98…09fd0               Head {h00=0x0034, h01=0x0050, text=»*  LODMEX - LOAD MONITOR EXTENT(S)            * «, t00=0x0066, t01=0x004c}
0x09fd0…0a008               Head {h00=0x0034, h01=0x0050, text=»*  ===============================            * «, t00=0x0066, t01=0x0084}
0x0a008…0a040               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0066, t01=0x00bc}
0x0a040…0a078               Head {h00=0x0034, h01=0x0050, text=»*  REFERENCED IN:  SYSLOD                     * «, t00=0x0066, t01=0x00f4}
0x0a078…0a0b0               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0066, t01=0x012c}
0x0a0b0…0a0e8               Head {h00=0x0034, h01=0x0050, text=»*  ENTRY:                                     * «, t00=0x0066, t01=0x0164}
0x0a0e8…0a120               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0067, t01=0x000c}
0x0a120…0a158               Head {h00=0x0034, h01=0x0050, text=»*  EXIT:                                      * «, t00=0x0067, t01=0x0044}
0x0a158…0a190               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0067, t01=0x007c}
0x0a190…0a1c8               Head {h00=0x0034, h01=0x0050, text=»*  WORK REGISTERS:  A1-A12                    * «, t00=0x0067, t01=0x00b4}
0x0a1c8…0a200               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0067, t01=0x00ec}
0x0a200…0a238               Head {h00=0x0034, h01=0x0050, text=»*  SUBROUTINES:  LODCOM                       * «, t00=0x0067, t01=0x0124}
0x0a238…0a270               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0067, t01=0x015c}
0x0a270…0a2a8 (104, 0, 400) Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0068, t01=0x0004}
0x0a2a8…0a2bc               Head {h00=0x0010, h01=0x0050, text=»LODMEX EQU *«, t00=0x0068, t01=0x003c}
0x0a2bc…0a2e6               Head {h00=0x0026, h01=0x0050, text=» LD A1,SCTMXS MONITOR EXTENT TABLE«, t00=0x0068, t01=0x0050}
0x0a2e6…0a2fa               Head {h00=0x0010, h01=0x0050, text=»MSX10 EQU * «, t00=0x0068, t01=0x007a}
0x0a2fa…0a30e               Head {h00=0x0010, h01=0x0050, text=» RF(Z) MSX99«, t00=0x0068, t01=0x008e}
0x0a30e…0a318               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00a2}
0x0a318…0a344               Head {h00=0x0028, h01=0x0050, text=» LD A1,SCTOPT GET MONITOR OPTION =12«, t00=0x0068, t01=0x00ac}
0x0a344…0a370               Head {h00=0x0028, h01=0x0050, text=» SRC A1,1 LOOK IF MMU OPTION ON =12 «, t00=0x0068, t01=0x00d8}
0x0a370…0a38c               Head {h00=0x0018, h01=0x0050, text=» RF(N) MSX15 YES =12«, t00=0x0068, t01=0x0104}
0x0a38c…0a3c4               Head {h00=0x0034, h01=0x0050, text=» LDKL A1,LMP9 NO, SET ILLEGAL MONITOR OPTION =12«, t00=0x0068, t01=0x0120}
0x0a3c4…0a3de               Head {h00=0x0016, h01=0x0050, text=» CALL ERROR . =12 «, t00=0x0068, t01=0x0158}
0x0a3de…0a3f8               Head {h00=0x0016, h01=0x0050, text=»MSX15 EQU * . =12 «, t00=0x0068, t01=0x0172}
0x0a3f8…0a428               Head {h00=0x002c, h01=0x0050, text=» CF A14,GETMON GET MONITOR DISC ADDRESS «, t00=0x0068, t01=0x018c}
0x0a428…0a456               Head {h00=0x002a, h01=0x0050, text=» LD A3,MX:NOX,A1 GET NUMBER OF EXTENTS«, t00=0x0069, t01=0x002c}
0x0a456…0a48e               Head {h00=0x0034, h01=0x0050, text=» LD A6,MX:NOS,A1 GET NUMBER OF SEGMENT CLUSTERS «, t00=0x0069, t01=0x005a}
0x0a48e…0a4b6               Head {h00=0x0024, h01=0x0050, text=» SLL A6,1 MAKE BYTE DISPLACEMENT«, t00=0x0069, t01=0x0092}
0x0a4b6…0a4c8               Head {h00=0x000e, h01=0x0050, text=» ADK A6,4 «, t00=0x0069, t01=0x00ba}
0x0a4c8…0a4ee               Head {h00=0x0022, h01=0x0050, text=» ADR A6,A1 FIRST EXTENT BLOCK «, t00=0x0069, t01=0x00cc}
0x0a4ee…0a502               Head {h00=0x0010, h01=0x0050, text=»MSX20 EQU * «, t00=0x0069, t01=0x00f2}
0x0a502…0a52c               Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DECREMENT EXTENT COUNTER«, t00=0x0069, t01=0x0106}
0x0a52c…0a550               Head {h00=0x0020, h01=0x0050, text=» RF(N) MSX99 NO MORE EXTENTS«, t00=0x0069, t01=0x0130}
0x0a550…0a55a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0154}
0x0a55a…0a580               Head {h00=0x0022, h01=0x0050, text=» STR A3,A15 SAVE NO OF EXTENTS«, t00=0x0069, t01=0x015e}
0x0a580…0a5a4               Head {h00=0x0020, h01=0x0050, text=» ADK A6,6 NEXT EXTENT BLOCK «, t00=0x0069, t01=0x0184}
0x0a5a4…0a5cc               Head {h00=0x0024, h01=0x0050, text=» LD A7,SCTEFA RESTORE ADDRESS TO«, t00=0x006a, t01=0x0018}
0x0a5cc…0a5f4               Head {h00=0x0024, h01=0x0050, text=» LD A5,SCTEFA+2 END OF FREE AREA«, t00=0x006a, t01=0x0040}
0x0a5f4…0a60a               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) MSX25 «, t00=0x006a, t01=0x0068}
0x0a60a…0a614               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x007e}
0x0a614…0a64a               Head {h00=0x0032, h01=0x0050, text=» LDKL A5,PAGSIZ EMPTY FRAME, START ON NEXT ONE«, t00=0x006a, t01=0x0088}
0x0a64a…0a660               Head {h00=0x0012, h01=0x0050, text=» SUKL A7,/400 «, t00=0x006a, t01=0x00be}
0x0a660…0a674               Head {h00=0x0010, h01=0x0050, text=»MSX25 EQU * «, t00=0x006a, t01=0x00d4}
0x0a674…0a6a0               Head {h00=0x0028, h01=0x0050, text=» LD A2,EXLEN,A6 GET LENGTH OF EXTENT«, t00=0x006a, t01=0x00e8}
0x0a6a0…0a6ca               Head {h00=0x0026, h01=0x0050, text=» ADK A2,11 RESERV FIVE EXTRA WORDS«, t00=0x006a, t01=0x0114}
0x0a6ca…0a6f2               Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN LENGTH «, t00=0x006a, t01=0x013e}
0x0a6f2…0a722               Head {h00=0x002c, h01=0x0050, text=» SRL A7,10 FRAME ADDRESS AS FRAME COUNT «, t00=0x006a, t01=0x0166}
0x0a722…0a756               Head {h00=0x0030, h01=0x0050, text=» ADK A2,0 EXTENT LENGTH LESS THAN 32K BYTES?«, t00=0x006b, t01=0x0008}
0x0a756…0a76e               Head {h00=0x0014, h01=0x0050, text=» RF(N) MSX30 NO «, t00=0x006b, t01=0x003c}
0x0a76e…0a778               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0054}
0x0a778…0a7ae               Head {h00=0x0032, h01=0x0050, text=» CWR A2,A5 EXTENT LESS THAN AREA LEFT IN FRAME«, t00=0x006b, t01=0x005e}
0x0a7ae…0a7c8               Head {h00=0x0016, h01=0x0050, text=» RF(L) MSX40 YES! «, t00=0x006b, t01=0x0094}
0x0a7c8…0a7d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x00ae}
0x0a7d2…0a7e6               Head {h00=0x0010, h01=0x0050, text=»MSX30 EQU * «, t00=0x006b, t01=0x00b8}
0x0a7e6…0a7f8               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x006b, t01=0x00cc}
0x0a7f8…0a82a               Head {h00=0x002e, h01=0x0050, text=» SRL A1,12 CONVERT LENGTH TO NO OF FRAMES «, t00=0x006b, t01=0x00de}
0x0a82a…0a848               Head {h00=0x001a, h01=0x0050, text=» CWK A1,14 <60K BYTES?«, t00=0x006b, t01=0x0110}
0x0a848…0a862               Head {h00=0x0016, h01=0x0050, text=» RF(L) MSX35 YES! «, t00=0x006b, t01=0x012e}
0x0a862…0a86c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0148}
0x0a86c…0a89c               Head {h00=0x002c, h01=0x0050, text=» CWK A5,PAGSIZ ALREADY ON A 4K BOUNDARY «, t00=0x006b, t01=0x0152}
0x0a89c…0a8b6               Head {h00=0x0016, h01=0x0050, text=» RF(E) MSX35 YES! «, t00=0x006b, t01=0x0182}
0x0a8b6…0a8c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x000c}
0x0a8c0…0a8ec               Head {h00=0x0028, h01=0x0050, text=» LDKL A5,PAGSIZ START ON 4K BOUNDARY«, t00=0x006c, t01=0x0016}
0x0a8ec…0a8fe               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x006c, t01=0x0042}
0x0a8fe…0a912               Head {h00=0x0010, h01=0x0050, text=»MSX35 EQU * «, t00=0x006c, t01=0x0054}
0x0a912…0a946               Head {h00=0x0030, h01=0x0050, text=» SUR A2,A5 SUBTRACT AREA LEFT IN LAST FRAME «, t00=0x006c, t01=0x0068}
0x0a946…0a96c               Head {h00=0x0022, h01=0x0050, text=» LDK A5,0 AND SET EMPTY FRAME «, t00=0x006c, t01=0x009c}
0x0a96c…0a97e               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x006c, t01=0x00c2}
0x0a97e…0a9b0               Head {h00=0x002e, h01=0x0050, text=» SRL A1,12 CONVERT LENGTH TO NO OF FRAMES «, t00=0x006c, t01=0x00d4}
0x0a9b0…0a9e0               Head {h00=0x002c, h01=0x0050, text=» SUR A7,A1 AND SUBTRACT FROM FRAME COUNT«, t00=0x006c, t01=0x0106}
0x0a9e0…0aa08               Head {h00=0x0024, h01=0x0050, text=» ABL(N) MEMOVF MEMORY OVERFLOW! «, t00=0x006c, t01=0x0136}
0x0aa08…0aa12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x015e}
0x0aa12…0aa3a               Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFF ISOLATE AREA LEFT «, t00=0x006c, t01=0x0168}
0x0aa3a…0aa4e               Head {h00=0x0010, h01=0x0050, text=» RF(Z) MSX45«, t00=0x006c, t01=0x0190}
0x0aa4e…0aa58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0014}
0x0aa58…0aa86               Head {h00=0x002a, h01=0x0050, text=» LDKL A5,PAGSIZ TAKE NEXT EMPTY FRAME «, t00=0x006d, t01=0x001e}
0x0aa86…0aa98               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x006d, t01=0x004c}
0x0aa98…0aaac               Head {h00=0x0010, h01=0x0050, text=»MSX40 EQU * «, t00=0x006d, t01=0x005e}
0x0aaac…0aae4               Head {h00=0x0034, h01=0x0050, text=» SUR A5,A2 SUBTACT FROM AREA LEFT IN LAST FRAME «, t00=0x006d, t01=0x0072}
0x0aae4…0aaf8               Head {h00=0x0010, h01=0x0050, text=»MSX45 EQU * «, t00=0x006d, t01=0x00aa}
0x0aaf8…0ab22               Head {h00=0x0026, h01=0x0050, text=» CWK A7,15 LOOK IF FIRST PARTITION«, t00=0x006d, t01=0x00be}
0x0ab22…0ab50               Head {h00=0x002a, h01=0x0050, text=» ABL(NG) MEMOVF YES, MEMORY OVERFNGOW!«, t00=0x006d, t01=0x00e8}
0x0ab50…0ab5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0116}
0x0ab5a…0ab8c               Head {h00=0x002e, h01=0x0050, text=» ANKL A5,/FFFC START ON A 4 BYTE BOUNDARY «, t00=0x006d, t01=0x0120}
0x0ab8c…0abb4               Head {h00=0x0024, h01=0x0050, text=» SLL A7,10 RESTORE FRAME ADDRESS«, t00=0x006d, t01=0x0152}
0x0abb4…0abe2               Head {h00=0x002a, h01=0x0050, text=» ST A5,SCTEFA+2 SAVE PHYSICAL ADDRESS «, t00=0x006d, t01=0x017a}
0x0abe2…0ac0c               Head {h00=0x0026, h01=0x0050, text=» ST A7,SCTEFA TO END OF FREE AREA «, t00=0x006e, t01=0x0018}
0x0ac0c…0ac16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0042}
0x0ac16…0ac3e               Head {h00=0x0024, h01=0x0050, text=» LD A4,SCTMXS GET MXSTAB ADDRESS«, t00=0x006e, t01=0x004c}
0x0ac3e…0ac64               Head {h00=0x0022, h01=0x0050, text=» ADK A4,2 MONITOR DISC ADDRESS«, t00=0x006e, t01=0x0074}
0x0ac64…0ac84               Head {h00=0x001c, h01=0x0050, text=» XRR A1,A1 RESET REG. A1«, t00=0x006e, t01=0x009a}
0x0ac84…0acb2               Head {h00=0x002a, h01=0x0050, text=» LDR* A2,A6 GET MONITOR EXTENT ADDRESS«, t00=0x006e, t01=0x00ba}
0x0acb2…0acde               Head {h00=0x0028, h01=0x0050, text=» DAR* A4 AND RELOCATE EXTENT ADDRESS«, t00=0x006e, t01=0x00e8}
0x0acde…0ad0c               Head {h00=0x002a, h01=0x0050, text=» LDR A11,A2 GET LEAST SIGNIFICANT PART«, t00=0x006e, t01=0x0114}
0x0ad0c…0ad3a               Head {h00=0x002a, h01=0x0050, text=» LDR A12,A1 AND MOST SIGNIFICANT PART «, t00=0x006e, t01=0x0142}
0x0ad3a…0ad4c               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x006e, t01=0x0170}
0x0ad4c…0ad7c               Head {h00=0x002c, h01=0x0050, text=» SRL A1,2 CONVERT PHYSICAL LOAD ADDRESS «, t00=0x006e, t01=0x0182}
0x0ad7c…0ada4               Head {h00=0x0024, h01=0x0050, text=» ORR A1,A7 TO A 16 BITS ADDRESS «, t00=0x006f, t01=0x0022}
0x0ada4…0adca               Head {h00=0x0022, h01=0x0050, text=» STR A1,A6 AND SAVE IN MXSTAB «, t00=0x006f, t01=0x004a}
0x0adca…0add4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0070}
0x0add4…0ae02               Head {h00=0x002a, h01=0x0050, text=» ADK A5,10 SKIP PRECCEDING FIVE WORDS «, t00=0x006f, t01=0x007a}
0x0ae02…0ae40               Head {h00=0x003a, h01=0x0050, text=» ST A5,LLDADR+STKEND SAVE AS PGM LOAD ADDR. (LOGICAL) «, t00=0x006f, t01=0x00a8}
0x0ae40…0ae68               Head {h00=0x0024, h01=0x0050, text=» LDR A8,A5 SAVE RELOCATION BASE «, t00=0x006f, t01=0x00e6}
0x0ae68…0ae9c               Head {h00=0x0030, h01=0x0050, text=» ADS A5,2,A6 RELOCATE PROGRAM START ADDRESS «, t00=0x006f, t01=0x010e}
0x0ae9c…0aea6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0142}
0x0aea6…0aed4               Head {h00=0x002a, h01=0x0050, text=» LD A10,EXLEN,A6 GET LENGTH OF EXTENT «, t00=0x006f, t01=0x014c}
0x0aed4…0aefe               Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET MMU ENTRY COUNTER «, t00=0x006f, t01=0x017a}
0x0aefe…0af2e               Head {h00=0x002c, h01=0x0050, text=» LDKL A2,TABBE GET ADDRESS TO MMU TABLE «, t00=0x0070, t01=0x0014}
0x0af2e…0af68               Head {h00=0x0036, h01=0x0050, text=» ST A3,FSTSEC+STKEND RESET FIRST SECTOR INDICATOR «, t00=0x0070, t01=0x0044}
0x0af68…0af7c               Head {h00=0x0010, h01=0x0050, text=»MSX50 EQU * «, t00=0x0070, t01=0x007e}
0x0af7c…0afa2               Head {h00=0x0022, h01=0x0050, text=» STR A7,A2 STORE PAGE ADDRESS «, t00=0x0070, t01=0x0092}
0x0afa2…0afca               Head {h00=0x0024, h01=0x0050, text=» ADKL A7,/400 NEXT PAGE ADDRESS «, t00=0x0070, t01=0x00b8}
0x0afca…0afea               Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 NEXT MMU ENTRY«, t00=0x0070, t01=0x00e0}
0x0afea…0b014               Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 INCREMENT ENTRY COUNTER «, t00=0x0070, t01=0x0100}
0x0b014…0b040               Head {h00=0x0028, h01=0x0050, text=» CWK A3,16 ALL ENTRIES INITIALIZED? «, t00=0x0070, t01=0x012a}
0x0b040…0b058               Head {h00=0x0014, h01=0x0050, text=» RB(NE) MSX50 NO«, t00=0x0070, t01=0x0156}
0x0b058…0b062               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x016e}
0x0b062…0b086               Head {h00=0x0020, h01=0x0050, text=» TL TABBE LOAD MMU REGISTERS«, t00=0x0070, t01=0x0178}
0x0b086…0b0a6               Head {h00=0x001c, h01=0x0050, text=» CALL LOD:70 LOAD EXTENT«, t00=0x0071, t01=0x000c}
0x0b0a6…0b0d0               Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A15 RESTORE NO OF EXTENTS«, t00=0x0071, t01=0x002c}
0x0b0d0…0b0e2               Head {h00=0x000e, h01=0x0050, text=» RB MSX20 «, t00=0x0071, t01=0x0056}
0x0b0e2…0b0ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0068}
0x0b0ec…0b100               Head {h00=0x0010, h01=0x0050, text=»MSX99 EQU * «, t00=0x0071, t01=0x0072}
0x0b100…0b110               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0071, t01=0x0086}
0x0b110…0b11e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0071, t01=0x0096}
0x0b11e…0b156               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0071, t01=0x00a4}
0x0b156…0b160               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00dc}
0x0b160…0b17e               Head {h00=0x001a, h01=0x0050, text=»*               GETMON«, t00=0x0071, t01=0x00e6}
0x0b17e…0b19c               Head {h00=0x001a, h01=0x0050, text=»*               ======«, t00=0x0071, t01=0x0104}
0x0b19c…0b1a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0122}
0x0b1a6…0b1d0               Head {h00=0x0026, h01=0x0050, text=»*   SEARCH FOR MONITOR TO BE USED «, t00=0x0071, t01=0x012c}
0x0b1d0…0b1f8               Head {h00=0x0024, h01=0x0050, text=»*   AND UPDATE IT'S DISC ADDRESS«, t00=0x0071, t01=0x0156}
0x0b1f8…0b216               Head {h00=0x001a, h01=0x0050, text=»*   IN MXSTAB ENTRIES.«, t00=0x0071, t01=0x017e}
0x0b216…0b220               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x000c}
0x0b220…0b258               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0072, t01=0x0016}
0x0b258…0b262               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x004e}
0x0b262…0b26c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0058}
0x0b26c…0b280               Head {h00=0x0010, h01=0x0050, text=»GETMON EQU *«, t00=0x0072, t01=0x0062}
0x0b280…0b2ac               Head {h00=0x0028, h01=0x0050, text=» LD A1,SCTANO GET APPLICATION NUMBER«, t00=0x0072, t01=0x0076}
0x0b2ac…0b2cc               Head {h00=0x001c, h01=0x0050, text=» ST A1,MONNO+STKEND SAVE«, t00=0x0072, t01=0x00a2}
0x0b2cc…0b302               Head {h00=0x0032, h01=0x0050, text=» CF A14,GETNBR GET CORRESPONDING ENTRY IN VTOC«, t00=0x0072, t01=0x00c2}
0x0b302…0b336               Head {h00=0x0030, h01=0x0050, text=» LC A1,8,A4 GET CORRESPONDING MONITOR NUMBER«, t00=0x0072, t01=0x00f8}
0x0b336…0b36c               Head {h00=0x0032, h01=0x0050, text=» SLL A1,8 FORM MONITOR NBR. AND APPL. NBR. '0'«, t00=0x0072, t01=0x012c}
0x0b36c…0b390               Head {h00=0x0020, h01=0x0050, text=» ST A1,MONNO+STKEND AND SAVE«, t00=0x0072, t01=0x0162}
0x0b390…0b3c8               Head {h00=0x0034, h01=0x0050, text=» CF A14,GETNBR SEARCH FOR APPL. NBR. 0 (MONITOR)«, t00=0x0072, t01=0x0186}
0x0b3c8…0b3d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x002e}
0x0b3d2…0b3e6               Head {h00=0x0010, h01=0x0050, text=»GTMON2 EQU *«, t00=0x0073, t01=0x0038}
0x0b3e6…0b41a               Head {h00=0x0030, h01=0x0050, text=» LD A1,MONNO+STKEND GET MONITOR NO (BIT 0-7)«, t00=0x0073, t01=0x004c}
0x0b41a…0b446               Head {h00=0x0028, h01=0x0050, text=» CW A1,8,A4 IS IT THE RIGHT MONITOR?«, t00=0x0073, t01=0x0080}
0x0b446…0b460               Head {h00=0x0016, h01=0x0050, text=» RF(E) GTMON4 YES!«, t00=0x0073, t01=0x00ac}
0x0b460…0b46a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00c6}
0x0b46a…0b4a6               Head {h00=0x0038, h01=0x0050, text=» CF A14,GTNBR4 NO, CONTINUE TO NEXT MONITOR IN VTOC «, t00=0x0073, t01=0x00d0}
0x0b4a6…0b4b8               Head {h00=0x000e, h01=0x0050, text=» RB GTMON2«, t00=0x0073, t01=0x010c}
0x0b4b8…0b4c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x011e}
0x0b4c2…0b4d6               Head {h00=0x0010, h01=0x0050, text=»GTMON4 EQU *«, t00=0x0073, t01=0x0128}
0x0b4d6…0b4fe               Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTMXS GET MXSTAB ADDRESS«, t00=0x0073, t01=0x013c}
0x0b4fe…0b536               Head {h00=0x0034, h01=0x0050, text=» LD A2,16,A4 GET MONITOR DISC ADDRESS (BIT 0-15)«, t00=0x0073, t01=0x0164}
0x0b536…0b55c               Head {h00=0x0022, h01=0x0050, text=» ST A2,2,A1 AND SAVE IN MXSTAB«, t00=0x0074, t01=0x000c}
0x0b55c…0b596               Head {h00=0x0036, h01=0x0050, text=» LD A2,18,A4 AND MONITOR DISC ADDRESS (BIT 16-31) «, t00=0x0074, t01=0x0032}
0x0b596…0b5bc               Head {h00=0x0022, h01=0x0050, text=» ST A2,4,A1 AND SAVE IN MXSTAB«, t00=0x0074, t01=0x006c}
0x0b5bc…0b5d4               Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0074, t01=0x0092}
0x0b5d4…0b5e2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0074, t01=0x00aa}
0x0b5e2…0b5f6               Head {h00=0x0010, h01=0x0050, text=»GETNBR EQU *«, t00=0x0074, t01=0x00b8}
0x0b5f6…0b61e               Head {h00=0x0024, h01=0x0050, text=» CF A14,GETVLB READ VOLUME LABEL«, t00=0x0074, t01=0x00cc}
0x0b61e…0b632               Head {h00=0x0010, h01=0x0050, text=»GTNBR0 EQU *«, t00=0x0074, t01=0x00f4}
0x0b632…0b654               Head {h00=0x001e, h01=0x0050, text=» CF A14,RDSEC READ SECTOR «, t00=0x0074, t01=0x0108}
0x0b654…0b680               Head {h00=0x0028, h01=0x0050, text=» LDK A7,QBLFAC VTOC BLOCKING FACTOR «, t00=0x0074, t01=0x012a}
0x0b680…0b6a2               Head {h00=0x001e, h01=0x0050, text=» LDR A4,A9 START OF RECORD«, t00=0x0074, t01=0x0156}
0x0b6a2…0b6d4               Head {h00=0x002e, h01=0x0050, text=» LD A1,MONNO+STKEND GET APPLICATION NUMBER«, t00=0x0074, t01=0x0178}
0x0b6d4…0b6e8               Head {h00=0x0010, h01=0x0050, text=»GTNBR2 EQU *«, t00=0x0075, t01=0x001a}
0x0b6e8…0b71a               Head {h00=0x002e, h01=0x0050, text=» LCR A2,A4 GET 1ST CHARACTER IN FILE NAME «, t00=0x0075, t01=0x002e}
0x0b71a…0b738               Head {h00=0x001a, h01=0x0050, text=» CCK A2,/2020 UNUSED? «, t00=0x0075, t01=0x0060}
0x0b738…0b752               Head {h00=0x0016, h01=0x0050, text=» RF(E) GTNBR4 YES!«, t00=0x0075, t01=0x007e}
0x0b752…0b75c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0098}
0x0b75c…0b788               Head {h00=0x0028, h01=0x0050, text=» CC A1,9,A4 SAME APPLICATION NUMBER?«, t00=0x0075, t01=0x00a2}
0x0b788…0b7aa               Head {h00=0x001e, h01=0x0050, text=» RF(E) GTNBR6 YES, RETURN «, t00=0x0075, t01=0x00ce}
0x0b7aa…0b7b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00f0}
0x0b7b4…0b7c8               Head {h00=0x0010, h01=0x0050, text=»GTNBR4 EQU *«, t00=0x0075, t01=0x00fa}
0x0b7c8…0b7ea               Head {h00=0x001e, h01=0x0050, text=» ADR A4,A8 GET NEXT RECORD«, t00=0x0075, t01=0x010e}
0x0b7ea…0b814               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 BYPASS STATUS CHARACTER «, t00=0x0075, t01=0x0130}
0x0b814…0b842               Head {h00=0x002a, h01=0x0050, text=» SUK A7,1 MORE RECORDS IN THIS SECTOR?«, t00=0x0075, t01=0x015a}
0x0b842…0b85c               Head {h00=0x0016, h01=0x0050, text=» RB(P) GTNBR2 YES!«, t00=0x0075, t01=0x0188}
0x0b85c…0b866               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0012}
0x0b866…0b88e               Head {h00=0x0024, h01=0x0050, text=» RB GTNBR0 NO, READ NEXT SECTOR «, t00=0x0076, t01=0x001c}
0x0b88e…0b898               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0044}
0x0b898…0b8ac               Head {h00=0x0010, h01=0x0050, text=»GTNBR6 EQU *«, t00=0x0076, t01=0x004e}
0x0b8ac…0b8bc               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0076, t01=0x0062}
0x0b8bc…0b8c8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0076, t01=0x0072}
0x0b8c8…0b8d6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0076, t01=0x007e}
0x0b8d6…0b918               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0076, t01=0x008c}
0x0b918…0b95a               Head {h00=0x003e, h01=0x0050, text=»*                                                        *«, t00=0x0076, t01=0x00ce}
0x0b95a…0b99c               Head {h00=0x003e, h01=0x0050, text=»*           LOAD CONFIGURATION PART OF SYSLOD            *«, t00=0x0076, t01=0x0110}
0x0b99c…0b9de               Head {h00=0x003e, h01=0x0050, text=»*           =================================            *«, t00=0x0076, t01=0x0152}
0x0b9de…0ba20 (119, 0, 400) Head {h00=0x003e, h01=0x0050, text=»*                                                        *«, t00=0x0077, t01=0x0004}
0x0ba20…0ba62               Head {h00=0x003e, h01=0x0050, text=»*  ENTRY:  A9 - BUFFER ADDRESS                           *«, t00=0x0077, t01=0x0046}
0x0ba62…0baa4               Head {h00=0x003e, h01=0x0050, text=»*                                                        *«, t00=0x0077, t01=0x0088}
0x0baa4…0bae6               Head {h00=0x003e, h01=0x0050, text=»*  EXIT:                                                 *«, t00=0x0077, t01=0x00ca}
0x0bae6…0bb28               Head {h00=0x003e, h01=0x0050, text=»*                                                        *«, t00=0x0077, t01=0x010c}
0x0bb28…0bb6a               Head {h00=0x003e, h01=0x0050, text=»*  SUBROUTINES:  CASSIN,RDBLK,MOVBUF                     *«, t00=0x0077, t01=0x014e}
0x0bb6a…0bbac               Head {h00=0x003e, h01=0x0050, text=»*                                                        *«, t00=0x0077, t01=0x0190}
0x0bbac…0bbee               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0078, t01=0x0042}
0x0bbee…0bc02               Head {h00=0x0010, h01=0x0050, text=»CONLOD EQU *«, t00=0x0078, t01=0x0084}
0x0bc02…0bc2c               Head {h00=0x0026, h01=0x0050, text=» LD A1,SCTEFA GET END OF FREE AREA«, t00=0x0078, t01=0x0098}
0x0bc2c…0bc44               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x0078, t01=0x00c2}
0x0bc44…0bc6a               Head {h00=0x0022, h01=0x0050, text=» ANKL A1,/3C00 ISOLATE BIT 2-5«, t00=0x0078, t01=0x00da}
0x0bc6a…0bc8e               Head {h00=0x0020, h01=0x0050, text=» SLL A1,2 ROTATE TO BIT 0-3 «, t00=0x0078, t01=0x0100}
0x0bc8e…0bcc4               Head {h00=0x0032, h01=0x0050, text=» ORS A1,SCTEFA+2 CONCATENATE WITH DISPLACEMENT«, t00=0x0078, t01=0x0124}
0x0bcc4…0bcf0               Head {h00=0x0028, h01=0x0050, text=» SLC A2,2 PARTITION NR TO BIT 14,15 «, t00=0x0078, t01=0x015a}
0x0bcf0…0bd0c               Head {h00=0x0018, h01=0x0050, text=» ANK A2,3 ISOLATE IT«, t00=0x0078, t01=0x0186}
0x0bd0c…0bd2a               Head {h00=0x001a, h01=0x0050, text=» ST A2,SCTEFA AND SAVE«, t00=0x0079, t01=0x0012}
0x0bd2a…0bd66               Head {h00=0x0038, h01=0x0050, text=» LD A1,CURAPL+STKEND START OF LAST APPL. CTRL. BLOCK«, t00=0x0079, t01=0x0030}
0x0bd66…0bd9a               Head {h00=0x0030, h01=0x0050, text=» ADK A1,ACBLEN END OF LAST APPL. CTRL. BLOCK«, t00=0x0079, t01=0x006c}
0x0bd9a…0bdca               Head {h00=0x002c, h01=0x0050, text=» ST A1,SCTSFA UPDATE START OF FREE AREA «, t00=0x0079, t01=0x00a0}
0x0bdca…0be06               Head {h00=0x0038, h01=0x0050, text=» LD A1,APLTAB+STKCOM GET START OF APPL. CONTR. TABLE«, t00=0x0079, t01=0x00d0}
0x0be06…0be36               Head {h00=0x002c, h01=0x0050, text=» ADK A1,2 ADVANCE TO FIRST CONTROL BLOCK«, t00=0x0079, t01=0x010c}
0x0be36…0be6e               Head {h00=0x0034, h01=0x0050, text=» CM APLMMC,A1 SET REL. START OF APPL. CONF. DATA«, t00=0x0079, t01=0x013c}
0x0be6e…0bea0               Head {h00=0x002e, h01=0x0050, text=» ADK A1,ACBLEN ADVANCE TO NEXT APPLICATION«, t00=0x0079, t01=0x0174}
0x0bea0…0beca               Head {h00=0x0026, h01=0x0050, text=» ST A1,CURAPL+STKEND CONTROL BLOCK«, t00=0x007a, t01=0x0016}
0x0beca…0bef8               Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x007a, t01=0x0040}
0x0bef8…0bf1e               Head {h00=0x0022, h01=0x0050, text=» SUK A1,/F0 CHECK DEVICE TYPE «, t00=0x007a, t01=0x006e}
0x0bf1e…0bf42               Head {h00=0x0020, h01=0x0050, text=» RF(NN) CONRAD NOT CASSETTE «, t00=0x007a, t01=0x0094}
0x0bf42…0bf5c               Head {h00=0x0016, h01=0x0050, text=» IFT CFTEST+CASS=2«, t00=0x007a, t01=0x00b8}
0x0bf5c…0bf66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00d2}
0x0bf66…0bf90               Head {h00=0x0026, h01=0x0050, text=»*  PROGRAM LOAD DEVICE = CASSETTE «, t00=0x007a, t01=0x00dc}
0x0bf90…0bf9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0106}
0x0bf9a…0bfae               Head {h00=0x0010, h01=0x0050, text=»CON:30 EQU *«, t00=0x007a, t01=0x0110}
0x0bfae…0bfc8               Head {h00=0x0016, h01=0x0050, text=» LDKL A1,CON:40-2 «, t00=0x007a, t01=0x0124}
0x0bfc8…0bfe0               Head {h00=0x0014, h01=0x0050, text=» SUKL A1,COR:48 «, t00=0x007a, t01=0x013e}
0x0bfe0…0bff6               Head {h00=0x0012, h01=0x0050, text=» ADKL A1,/5700«, t00=0x007a, t01=0x0156}
0x0bff6…0c01e               Head {h00=0x0024, h01=0x0050, text=» ST A1,COR:48 MODIFY INSTRUCTION«, t00=0x007a, t01=0x016c}
0x0c01e…0c034 (123, 0, 400) Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/0100«, t00=0x007b, t01=0x0004}
0x0c034…0c050               Head {h00=0x0018, h01=0x0050, text=» ST A1,COR:38 MODIFY«, t00=0x007b, t01=0x001a}
0x0c050…0c072               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 START OF BUFFER«, t00=0x007b, t01=0x0036}
0x0c072…0c098               Head {h00=0x0022, h01=0x0050, text=» ADKL A1,BUFLEN END OF BUFFER «, t00=0x007b, t01=0x0058}
0x0c098…0c0c8               Head {h00=0x002c, h01=0x0050, text=» ST A1,PLDADR+STKEND SAVE END OF BUFFER «, t00=0x007b, t01=0x007e}
0x0c0c8…0c0ea               Head {h00=0x001e, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE «, t00=0x007b, t01=0x00ae}
0x0c0ea…0c11a               Head {h00=0x002c, h01=0x0050, text=» ST A1,CONSTA+STKCOM START OF CONF. DATA«, t00=0x007b, t01=0x00d0}
0x0c11a…0c13e               Head {h00=0x0020, h01=0x0050, text=» CF A14,RDBLK READ ONE BLOCK«, t00=0x007b, t01=0x0100}
0x0c13e…0c164               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x007b, t01=0x0124}
0x0c164…0c176               Head {h00=0x000e, h01=0x0050, text=» LDR A8,A9«, t00=0x007b, t01=0x014a}
0x0c176…0c19c               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A8 GET START OF BUFFER«, t00=0x007b, t01=0x015c}
0x0c19c…0c1b8               Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x007b, t01=0x0182}
0x0c1b8…0c1d2               Head {h00=0x0016, h01=0x0050, text=» RF(Z) TST:10 NO! «, t00=0x007c, t01=0x000e}
0x0c1d2…0c204               Head {h00=0x002e, h01=0x0050, text=» CF A14,CASSIN INIT CONFIGURATION CASSETTE«, t00=0x007c, t01=0x0028}
0x0c204…0c218               Head {h00=0x0010, h01=0x0050, text=» CALL CON:40«, t00=0x007c, t01=0x005a}
0x0c218…0c22a               Head {h00=0x000e, h01=0x0050, text=» RF TST:10«, t00=0x007c, t01=0x006e}
0x0c22a…0c23e               Head {h00=0x0010, h01=0x0050, text=»CONEX EQU * «, t00=0x007c, t01=0x0080}
0x0c23e…0c248               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0094}
0x0c248…0c28a               Head {h00=0x003e, h01=0x0050, text=»*  UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE«, t00=0x007c, t01=0x009e}
0x0c28a…0c294               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00e0}
0x0c294…0c2ba               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x007c, t01=0x00ea}
0x0c2ba…0c2de               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 APPLICATION DATA?«, t00=0x007c, t01=0x0110}
0x0c2de…0c2f8               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CON:80 NO!«, t00=0x007c, t01=0x0134}
0x0c2f8…0c30a               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/D«, t00=0x007c, t01=0x014e}
0x0c30a…0c338               Head {h00=0x002a, h01=0x0050, text=» CF A14,CHCRIO SEARCH TAPEMARK REVERSE«, t00=0x007c, t01=0x0160}
0x0c338…0c35e               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK BYPASS TAPEMARK «, t00=0x007c, t01=0x018e}
0x0c35e…0c370               Head {h00=0x000e, h01=0x0050, text=» RF CON:90«, t00=0x007d, t01=0x0024}
0x0c370…0c384               Head {h00=0x0010, h01=0x0050, text=»CON:80 EQU *«, t00=0x007d, t01=0x0036}
0x0c384…0c396               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/F«, t00=0x007d, t01=0x004a}
0x0c396…0c3bc               Head {h00=0x0022, h01=0x0050, text=» CF A14,CHCRIO UNLOAD CASSETTE«, t00=0x007d, t01=0x005c}
0x0c3bc…0c3d0               Head {h00=0x0010, h01=0x0050, text=»CON:90 EQU *«, t00=0x007d, t01=0x0082}
0x0c3d0…0c3e4               Head {h00=0x0010, h01=0x0050, text=» ABL CONMOV «, t00=0x007d, t01=0x0096}
0x0c3e4…0c3f0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007d, t01=0x00aa}
0x0c3f0…0c406               Head {h00=0x0012, h01=0x0050, text=» IFT CFTEST=1 «, t00=0x007d, t01=0x00b6}
0x0c406…0c414               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007d, t01=0x00cc}
0x0c414…0c428               Head {h00=0x0010, h01=0x0050, text=»CONRAD EQU *«, t00=0x007d, t01=0x00da}
0x0c428…0c432               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x00ee}
0x0c432…0c46c               Head {h00=0x0036, h01=0x0050, text=»*  LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC«, t00=0x007d, t01=0x00f8}
0x0c46c…0c476               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0132}
0x0c476…0c4b2               Head {h00=0x0038, h01=0x0050, text=» LD A1,CONDEV+STKEND GET LOAD DEVICE FOR CONF. DATA «, t00=0x007d, t01=0x013c}
0x0c4b2…0c4e0               Head {h00=0x002a, h01=0x0050, text=» RF(Z) CONRA0 SAME AS PGM LOAD DEVICE «, t00=0x007d, t01=0x0178}
0x0c4e0…0c4ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0016}
0x0c4ea…0c51e               Head {h00=0x0030, h01=0x0050, text=» CF A14,CONFLD INITIATE CONF. DATA LOAD DEV.«, t00=0x007e, t01=0x0020}
0x0c51e…0c532               Head {h00=0x0010, h01=0x0050, text=»CONRA0 EQU *«, t00=0x007e, t01=0x0054}
0x0c532…0c560               Head {h00=0x002a, h01=0x0050, text=» LD A11,CONDAD+STKEND GET START SECTOR«, t00=0x007e, t01=0x0068}
0x0c560…0c596               Head {h00=0x0032, h01=0x0050, text=» LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART «, t00=0x007e, t01=0x0096}
0x0c596…0c5bc               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x007e, t01=0x00cc}
0x0c5bc…0c5e4               Head {h00=0x0024, h01=0x0050, text=» ADKL A1,BUFLEN-6 END OF BUFFER «, t00=0x007e, t01=0x00f2}
0x0c5e4…0c614               Head {h00=0x002c, h01=0x0050, text=» ST A1,PLDADR+STKEND SAVE END OF BUFFER «, t00=0x007e, t01=0x011a}
0x0c614…0c63a               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x007e, t01=0x014a}
0x0c63a…0c664               Head {h00=0x0026, h01=0x0050, text=» AD A1,SAVCON START OF SAVE BUFFER«, t00=0x007e, t01=0x0170}
0x0c664…0c688               Head {h00=0x0020, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE =2«, t00=0x007f, t01=0x000a}
0x0c688…0c6b8               Head {h00=0x002c, h01=0x0050, text=» ST A1,CONSTA+STKCOM START OF CONF. DATA«, t00=0x007f, t01=0x002e}
0x0c6b8…0c6e0               Head {h00=0x0024, h01=0x0050, text=» LDKL A10,0 RESET RECORD COUNTER«, t00=0x007f, t01=0x005e}
0x0c6e0…0c6ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0086}
0x0c6ea…0c71e               Head {h00=0x0030, h01=0x0050, text=»*  READ ONE SECTOR FROM RANDOM ACCESS DEVICE«, t00=0x007f, t01=0x0090}
0x0c71e…0c728               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x00c4}
0x0c728…0c748               Head {h00=0x001c, h01=0x0050, text=» CALL READC READ SECTOR «, t00=0x007f, t01=0x00ce}
0x0c748…0c752               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x00ee}
0x0c752…0c786               Head {h00=0x0030, h01=0x0050, text=»* TEST THE SYNTAX OF THE CONFIGURATION FILE «, t00=0x007f, t01=0x00f8}
0x0c786…0c790               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x012c}
0x0c790…0c7a6               Head {h00=0x0012, h01=0x0050, text=»TST:10 CALL T «, t00=0x007f, t01=0x0136}
0x0c7a6…0c7ba               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007f, t01=0x014c}
0x0c7ba…0c7ca               Head {h00=0x000c, h01=0x0050, text=» CALL NN«, t00=0x007f, t01=0x0160}
0x0c7ca…0c7de               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007f, t01=0x0170}
0x0c7de…0c7f0               Head {h00=0x000e, h01=0x0050, text=» CALL TID «, t00=0x007f, t01=0x0184}
0x0c7f0…0c802               Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x0080, t01=0x0008}
0x0c802…0c812               Head {h00=0x000c, h01=0x0050, text=» CALL AA«, t00=0x0080, t01=0x001a}
0x0c812…0c826               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x0080, t01=0x002a}
0x0c826…0c838               Head {h00=0x000e, h01=0x0050, text=» CALL TCL «, t00=0x0080, t01=0x003e}
0x0c838…0c84a               Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x0080, t01=0x0050}
0x0c84a…0c85a               Head {h00=0x000c, h01=0x0050, text=» CALL AA«, t00=0x0080, t01=0x0062}
0x0c85a…0c86e               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x0080, t01=0x0072}
0x0c86e…0c880               Head {h00=0x000e, h01=0x0050, text=» CALL LEV «, t00=0x0080, t01=0x0086}
0x0c880…0c892               Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x0080, t01=0x0098}
0x0c892…0c8a4               Head {h00=0x000e, h01=0x0050, text=» CALL NN1 «, t00=0x0080, t01=0x00aa}
0x0c8a4…0c8be               Head {h00=0x0016, h01=0x0050, text=»TST:20 CALL CONRD «, t00=0x0080, t01=0x00bc}
0x0c8be…0c8d0               Head {h00=0x000e, h01=0x0050, text=» CALL NN1 «, t00=0x0080, t01=0x00d6}
0x0c8d0…0c8e4               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x0080, t01=0x00e8}
0x0c8e4…0c92a               Head {h00=0x0042, h01=0x0050, text=»TST:30 LD A5,NDEVCL+STKEND GET NUMBER OF TERMINAL DEV. CLASSES«, t00=0x0080, t01=0x00fc}
0x0c92a…0c946               Head {h00=0x0018, h01=0x0050, text=» CWK A5,/3030 ZERO? «, t00=0x0080, t01=0x0142}
0x0c946…0c960               Head {h00=0x0016, h01=0x0050, text=» RF(E) TST:40 YES!«, t00=0x0080, t01=0x015e}
0x0c960…0c974               Head {h00=0x0010, h01=0x0050, text=» CALL SUKASC«, t00=0x0080, t01=0x0178}
0x0c974…0c986               Head {h00=0x000e, h01=0x0050, text=» CALL TDCT«, t00=0x0080, t01=0x018c}
0x0c986…0c998               Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x0081, t01=0x000e}
0x0c998…0c9a8               Head {h00=0x000c, h01=0x0050, text=» CALL NN«, t00=0x0081, t01=0x0020}
0x0c9a8…0c9bc               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x0081, t01=0x0030}
0x0c9bc…0c9cc               Head {h00=0x000c, h01=0x0050, text=» CALL LC«, t00=0x0081, t01=0x0044}
0x0c9cc…0c9de               Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x0081, t01=0x0054}
0x0c9de…0c9f0               Head {h00=0x000e, h01=0x0050, text=» CALL NNL «, t00=0x0081, t01=0x0066}
0x0c9f0…0ca04               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x0081, t01=0x0078}
0x0ca04…0ca16               Head {h00=0x000e, h01=0x0050, text=» RB TST:30«, t00=0x0081, t01=0x008c}
0x0ca16…0ca2a               Head {h00=0x0010, h01=0x0050, text=»TST:40 EQU *«, t00=0x0081, t01=0x009e}
0x0ca2a…0ca3c               Head {h00=0x000e, h01=0x0050, text=» CALL NN1 «, t00=0x0081, t01=0x00b2}
0x0ca3c…0ca50               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x0081, t01=0x00c4}
0x0ca50…0ca64               Head {h00=0x0010, h01=0x0050, text=»TST:50 EQU *«, t00=0x0081, t01=0x00d8}
0x0ca64…0caa4               Head {h00=0x003c, h01=0x0050, text=» LD A5,NDEVCL+STKEND GET NUMBER OF SPECIAL DEV. CLASSES «, t00=0x0081, t01=0x00ec}
0x0caa4…0cac0               Head {h00=0x0018, h01=0x0050, text=» CWK A5,/3030 ZERO? «, t00=0x0081, t01=0x012c}
0x0cac0…0cada               Head {h00=0x0016, h01=0x0050, text=» RF(E) TST:60 YES!«, t00=0x0081, t01=0x0148}
0x0cada…0caee               Head {h00=0x0010, h01=0x0050, text=» CALL SUKASC«, t00=0x0081, t01=0x0162}
0x0caee…0cb00               Head {h00=0x000e, h01=0x0050, text=» CALL SDCS«, t00=0x0081, t01=0x0176}
0x0cb00…0cb12               Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x0081, t01=0x0188}
0x0cb12…0cb22               Head {h00=0x000c, h01=0x0050, text=» CALL NN«, t00=0x0082, t01=0x000a}
0x0cb22…0cb36               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x0082, t01=0x001a}
0x0cb36…0cb48               Head {h00=0x000e, h01=0x0050, text=» RB TST:50«, t00=0x0082, t01=0x002e}
0x0cb48…0cb5c               Head {h00=0x0010, h01=0x0050, text=»TST:60 EQU *«, t00=0x0082, t01=0x0040}
0x0cb5c…0cb7c               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x0082, t01=0x0054}
0x0cb7c…0cbac               Head {h00=0x002c, h01=0x0050, text=» CCK A5,'TT' BLOCK TYPE T? (MOD. INSTR.)«, t00=0x0082, t01=0x0074}
0x0cbac…0cbc2               Head {h00=0x0012, h01=0x0050, text=»TST:70 EQU *-2«, t00=0x0082, t01=0x00a4}
0x0cbc2…0cbdc               Head {h00=0x0016, h01=0x0050, text=» RB(E) TST:10 YES!«, t00=0x0082, t01=0x00ba}
0x0cbdc…0cbf2               Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/FFFF«, t00=0x0082, t01=0x00d4}
0x0cbf2…0cc20               Head {h00=0x002a, h01=0x0050, text=» ST A3,TST:70 MODIFY INSTRUCTION TO RF«, t00=0x0082, t01=0x00ea}
0x0cc20…0cc44               Head {h00=0x0020, h01=0x0050, text=» CCK A5,'CC' BLOCK TYPE C ? «, t00=0x0082, t01=0x0118}
0x0cc44…0cc5e               Head {h00=0x0016, h01=0x0050, text=» RF(NE) TST:80 NO!«, t00=0x0082, t01=0x013c}
0x0cc5e…0cc74               Head {h00=0x0012, h01=0x0050, text=» LDKL A3,'CC' «, t00=0x0082, t01=0x0156}
0x0cc74…0cc9a               Head {h00=0x0022, h01=0x0050, text=» ST A3,T:10 MODIFY INSTRUCTION«, t00=0x0082, t01=0x016c}
0x0cc9a…0ccaa (131, 0, 400) Head {h00=0x000c, h01=0x0050, text=» CALL T «, t00=0x0083, t01=0x0004}
0x0ccaa…0ccbc               Head {h00=0x000e, h01=0x0050, text=» RB TST:20«, t00=0x0083, t01=0x0014}
0x0ccbc…0ccd0               Head {h00=0x0010, h01=0x0050, text=»TST:80 EQU *«, t00=0x0083, t01=0x0026}
0x0ccd0…0cd02               Head {h00=0x002e, h01=0x0050, text=» LDR A1,A5 SAVE FIRST CHARACTER IN RECORD «, t00=0x0083, t01=0x003a}
0x0cd02…0cd2c               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0083, t01=0x006c}
0x0cd2c…0cd4c               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x0083, t01=0x0096}
0x0cd4c…0cd6e               Head {h00=0x001e, h01=0x0050, text=» CCK A5,';;' END OF RECORD«, t00=0x0083, t01=0x00b6}
0x0cd6e…0cd8a               Head {h00=0x0018, h01=0x0050, text=» ABL(NE) CONERR NO! «, t00=0x0083, t01=0x00d8}
0x0cd8a…0cd9e               Head {h00=0x0010, h01=0x0050, text=»TST:85 EQU *«, t00=0x0083, t01=0x00f4}
0x0cd9e…0cdd0               Head {h00=0x002e, h01=0x0050, text=» CCK A1,'AA' START OF APPL. CONTR. BLOCK? «, t00=0x0083, t01=0x0108}
0x0cdd0…0cdea               Head {h00=0x0016, h01=0x0050, text=» RF(E) TST:90 YES «, t00=0x0083, t01=0x013a}
0x0cdea…0cdf4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0154}
0x0cdf4…0ce22               Head {h00=0x002a, h01=0x0050, text=» CCK A1,'DD' DATA COMMUNICATION BLOCK?«, t00=0x0083, t01=0x015e}
0x0ce22…0ce3c               Head {h00=0x0016, h01=0x0050, text=» RF(NE) TST:87 NO!«, t00=0x0083, t01=0x018c}
0x0ce3c…0ce46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0016}
0x0ce46…0ce82               Head {h00=0x0038, h01=0x0050, text=» LD A1,EINPBF+STKEND CURRENT POSITION IN CONF. DATA «, t00=0x0084, t01=0x0020}
0x0ce82…0ceba               Head {h00=0x0034, h01=0x0050, text=» SU A1,CONSTA+STKCOM CALCULATE RELATIVE POSITION«, t00=0x0084, t01=0x005c}
0x0ceba…0ceda               Head {h00=0x001c, h01=0x0050, text=» ST A1,DCBLK+STKCOM SAVE«, t00=0x0084, t01=0x0094}
0x0ceda…0ceee               Head {h00=0x0010, h01=0x0050, text=»TST:87 EQU *«, t00=0x0084, t01=0x00b4}
0x0ceee…0cf1a               Head {h00=0x0028, h01=0x0050, text=» CALL CONRD MOVE AND GET NEXT RECORD«, t00=0x0084, t01=0x00c8}
0x0cf1a…0cf42               Head {h00=0x0024, h01=0x0050, text=» LCR A1,A4 AND FIRST CHAR. IN IT«, t00=0x0084, t01=0x00f4}
0x0cf42…0cf54               Head {h00=0x000e, h01=0x0050, text=» RB TST:85«, t00=0x0084, t01=0x011c}
0x0cf54…0cf5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x012e}
0x0cf5e…0cf72               Head {h00=0x0010, h01=0x0050, text=»TST:90 EQU *«, t00=0x0084, t01=0x0138}
0x0cf72…0cf7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x014c}
0x0cf7c…0cfa0               Head {h00=0x0020, h01=0x0050, text=»*  APPLICATION CONTROL BLOCK«, t00=0x0084, t01=0x0156}
0x0cfa0…0cfc0               Head {h00=0x001c, h01=0x0050, text=»*  SKIP NAME RECORD AND «, t00=0x0084, t01=0x017a}
0x0cfc0…0cfe2               Head {h00=0x001e, h01=0x0050, text=»*  SCAN CONFIGURATION DATA«, t00=0x0085, t01=0x000a}
0x0cfe2…0cfec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x002c}
0x0cfec…0d02a               Head {h00=0x003a, h01=0x0050, text=» LDKL A1,/FF3B SUBSTITUTE 'A;' WITH 'HEX. FF' AND ';' «, t00=0x0085, t01=0x0036}
0x0d02a…0d03c               Head {h00=0x000e, h01=0x0050, text=» STR A1,A8«, t00=0x0085, t01=0x0074}
0x0d03c…0d074               Head {h00=0x0034, h01=0x0050, text=» LD A2,CURAPL+STKEND CURRENT APPL. CONTR. BLOCK «, t00=0x0085, t01=0x0086}
0x0d074…0d0b0               Head {h00=0x0038, h01=0x0050, text=» LD A1,EINPBF+STKEND CURRENT POSITION IN CONF. DATA «, t00=0x0085, t01=0x00be}
0x0d0b0…0d0d4               Head {h00=0x0020, h01=0x0050, text=» ADK A1,1 SKIP BLOCK MARKER «, t00=0x0085, t01=0x00fa}
0x0d0d4…0d10c               Head {h00=0x0034, h01=0x0050, text=» SU A1,CONSTA+STKCOM CALCULATE RELATIVE POSITION«, t00=0x0085, t01=0x011e}
0x0d10c…0d14a               Head {h00=0x003a, h01=0x0050, text=» ST A1,APLMMC,A2 AND SAVE AS START OF APPL. CONF. DATA«, t00=0x0085, t01=0x0156}
0x0d14a…0d160 (134, 0, 400) Head {h00=0x0012, h01=0x0050, text=» ADK A2,ACBLEN«, t00=0x0086, t01=0x0004}
0x0d160…0d1a0               Head {h00=0x003c, h01=0x0050, text=» ST A2,CURAPL+STKEND ADVANCE TO NEXT APPL. CONTR. BLOCK «, t00=0x0086, t01=0x001a}
0x0d1a0…0d1c8               Head {h00=0x0024, h01=0x0050, text=» CALL CONRD MOVE AND PACK RECORD«, t00=0x0086, t01=0x005a}
0x0d1c8…0d1f4               Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x0086, t01=0x0082}
0x0d1f4…0d21e               Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD «, t00=0x0086, t01=0x00ae}
0x0d21e…0d238               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:50 YES!«, t00=0x0086, t01=0x00d8}
0x0d238…0d26a               Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x0086, t01=0x00f2}
0x0d26a…0d294               Head {h00=0x0026, h01=0x0050, text=» CW A8,PLDADR+STKEND END OF BUFFER«, t00=0x0086, t01=0x0124}
0x0d294…0d2aa               Head {h00=0x0012, h01=0x0050, text=» RF(NE) TST:95«, t00=0x0086, t01=0x014e}
0x0d2aa…0d2b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0164}
0x0d2b4…0d2d4               Head {h00=0x001c, h01=0x0050, text=» CALL READC READ SECTOR «, t00=0x0086, t01=0x016e}
0x0d2d4…0d2e8               Head {h00=0x0010, h01=0x0050, text=»TST:95 EQU *«, t00=0x0086, t01=0x018e}
0x0d2e8…0d316               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,'TT' LOOK FOR TASK DEF. BLOCK«, t00=0x0087, t01=0x0012}
0x0d316…0d33a               Head {h00=0x0020, h01=0x0050, text=» ST A1,TST:70 MODIFY INSTR. «, t00=0x0087, t01=0x0040}
0x0d33a…0d34e               Head {h00=0x0010, h01=0x0050, text=» ST A1,T:10 «, t00=0x0087, t01=0x0064}
0x0d34e…0d360               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A8«, t00=0x0087, t01=0x0078}
0x0d360…0d384               Head {h00=0x0020, h01=0x0050, text=» ABL TST:10 SCAN CONF. DATA «, t00=0x0087, t01=0x008a}
0x0d384…0d38e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x00ae}
0x0d38e…0d3a2               Head {h00=0x0010, h01=0x0050, text=»COR:50 EQU *«, t00=0x0087, t01=0x00b8}
0x0d3a2…0d3c8               Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0087, t01=0x00cc}
0x0d3c8…0d3e0               Head {h00=0x0014, h01=0x0050, text=» ANK A1,8 SWB:S?«, t00=0x0087, t01=0x00f2}
0x0d3e0…0d3f8               Head {h00=0x0014, h01=0x0050, text=» RF(Z) COR:55 NO«, t00=0x0087, t01=0x010a}
0x0d3f8…0d40c               Head {h00=0x0010, h01=0x0050, text=» LDK A3,'S' «, t00=0x0087, t01=0x0122}
0x0d40c…0d436               Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:25+1 MODIFY INSTRUCTION«, t00=0x0087, t01=0x0136}
0x0d436…0d460               Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:60+1 MODIFY INSTRUCTION«, t00=0x0087, t01=0x0160}
0x0d460…0d47c               Head {h00=0x0018, h01=0x0050, text=» LD A1,IPLDEV+STKEND«, t00=0x0087, t01=0x018a}
0x0d47c…0d4ae               Head {h00=0x002e, h01=0x0050, text=» CF A14,LODDEV INITIALIZE PGM LOAD DEVICE «, t00=0x0088, t01=0x0016}
0x0d4ae…0d4c4               Head {h00=0x0012, h01=0x0050, text=» CF A14,GETFIL«, t00=0x0088, t01=0x0048}
0x0d4c4…0d4ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x005e}
0x0d4ce…0d4ee               Head {h00=0x001c, h01=0x0050, text=»*  UNLOCK FLEXIBLE DISC «, t00=0x0088, t01=0x0068}
0x0d4ee…0d4f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x0088}
0x0d4f8…0d50c               Head {h00=0x0010, h01=0x0050, text=»COR:55 EQU *«, t00=0x0088, t01=0x0092}
0x0d50c…0d544               Head {h00=0x0034, h01=0x0050, text=» LD A1,CONDEV+STKEND GET CONF. DATA LOAD DEVICE «, t00=0x0088, t01=0x00a6}
0x0d544…0d574               Head {h00=0x002c, h01=0x0050, text=» RF(Z) COR:58 SAME AS APPL. LOAD DEVICE «, t00=0x0088, t01=0x00de}
0x0d574…0d57e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x010e}
0x0d57e…0d590               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0088, t01=0x0118}
0x0d590…0d5a2               Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0088, t01=0x012a}
0x0d5a2…0d5b4               Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x0088, t01=0x013c}
0x0d5b4…0d5dc               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COR:58 NOT FLEXIBLE DISC«, t00=0x0088, t01=0x014e}
0x0d5dc…0d5e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x0176}
0x0d5e6…0d5f2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0088, t01=0x0180}
0x0d5f2…0d60e               Head {h00=0x0018, h01=0x0050, text=» IFT CFTEST+FLDISC=2«, t00=0x0088, t01=0x018c}
0x0d60e…0d63a               Head {h00=0x0028, h01=0x0050, text=» CF A14,UNLOCK UNLOCK FLEXIBLE DISC «, t00=0x0089, t01=0x0018}
0x0d63a…0d646               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0089, t01=0x0044}
0x0d646…0d65c               Head {h00=0x0012, h01=0x0050, text=» IFT CFTEST=1 «, t00=0x0089, t01=0x0050}
0x0d65c…0d670               Head {h00=0x0010, h01=0x0050, text=»COR:58 EQU *«, t00=0x0089, t01=0x0066}
0x0d670…0d69e               Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x0089, t01=0x007a}
0x0d69e…0d6bc               Head {h00=0x001a, h01=0x0050, text=» SUK A1,/F8 CHECK TYPE«, t00=0x0089, t01=0x00a8}
0x0d6bc…0d6e4               Head {h00=0x0024, h01=0x0050, text=» RF(N) COR:60 NOT FLEXIBLE DISC «, t00=0x0089, t01=0x00c6}
0x0d6e4…0d6ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x00ee}
0x0d6ee…0d6fa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0089, t01=0x00f8}
0x0d6fa…0d720               Head {h00=0x0022, h01=0x0050, text=» SUK A1,/FC-/F8 FLEXIBLE DISC?«, t00=0x0089, t01=0x0104}
0x0d720…0d73c               Head {h00=0x0018, h01=0x0050, text=» ABL(NN) COR:60 NO! «, t00=0x0089, t01=0x012a}
0x0d73c…0d746               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0146}
0x0d746…0d762               Head {h00=0x0018, h01=0x0050, text=» IFT CFTEST+FLDISC=2«, t00=0x0089, t01=0x0150}
0x0d762…0d788               Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x0089, t01=0x016c}
0x0d788…0d7a6 (138, 0, 400) Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x008a, t01=0x0004}
0x0d7a6…0d7ce               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COR:60 YES! DON'T UNLOCK«, t00=0x008a, t01=0x0022}
0x0d7ce…0d7d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x004a}
0x0d7d8…0d7f4               Head {h00=0x0018, h01=0x0050, text=» LD A1,IPLDEV+STKEND«, t00=0x008a, t01=0x0054}
0x0d7f4…0d820               Head {h00=0x0028, h01=0x0050, text=» CF A14,UNLOCK UNLOCK FLEXIBLE DISC «, t00=0x008a, t01=0x0070}
0x0d820…0d82c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008a, t01=0x009c}
0x0d82c…0d842               Head {h00=0x0012, h01=0x0050, text=» IFT CFTEST=1 «, t00=0x008a, t01=0x00a8}
0x0d842…0d856               Head {h00=0x0010, h01=0x0050, text=»COR:60 EQU *«, t00=0x008a, t01=0x00be}
0x0d856…0d864               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008a, t01=0x00d2}
0x0d864…0d878               Head {h00=0x0010, h01=0x0050, text=»CONMOV EQU *«, t00=0x008a, t01=0x00e0}
0x0d878…0d882               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x00f4}
0x0d882…0d8ba               Head {h00=0x0034, h01=0x0050, text=»*  MOVE CONFIGURATION DATA TO END OF SYSTEM AREA«, t00=0x008a, t01=0x00fe}
0x0d8ba…0d8c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0136}
0x0d8c4…0d8ee               Head {h00=0x0026, h01=0x0050, text=» CIO A1,0,SOP INHIBIT SOP SWITCHES«, t00=0x008a, t01=0x0140}
0x0d8ee…0d922               Head {h00=0x0030, h01=0x0050, text=» LD A1,CONSTA+STKCOM GET START OF CONF. DATA«, t00=0x008a, t01=0x016a}
0x0d922…0d962               Head {h00=0x003c, h01=0x0050, text=»CMOV10 LD A3,EINPBF+STKEND GET END OF CONFIGURATION DATA«, t00=0x008b, t01=0x000e}
0x0d962…0d996               Head {h00=0x0030, h01=0x0050, text=» LD A2,ESYSTA+STKEND GET END OF SYSTEM AREA «, t00=0x008b, t01=0x004e}
0x0d996…0d9c4               Head {h00=0x002a, h01=0x0050, text=» CM -2,A2 MAKE SURE CONFIGURATION FILE«, t00=0x008b, t01=0x0082}
0x0d9c4…0d9ea               Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 IS FOLLOWED BY X'00'«, t00=0x008b, t01=0x00b0}
0x0d9ea…0da1a               Head {h00=0x002c, h01=0x0050, text=» SUR A3,A1 LENGTH OF CONFIGURATION DATA «, t00=0x008b, t01=0x00d6}
0x0da1a…0da50               Head {h00=0x0032, h01=0x0050, text=» ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA«, t00=0x008b, t01=0x0106}
0x0da50…0da58               Head {h00=0x0004, h01=0x0050, t00=0x008b, t01=0x013c}
0x0da58…0da76               Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x008b, t01=0x0144}
0x0da76…0da80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x0162}
0x0da80…0daa8               Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN ADDRESS«, t00=0x008b, t01=0x016c}
0x0daa8…0daba (140, 0, 400) Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x008c, t01=0x0004}
0x0daba…0daf8               Head {h00=0x003a, h01=0x0050, text=» ST A2,CONSTA+STKCOM SAVE START OF CONFIGURATION DATA «, t00=0x008c, t01=0x0016}
0x0daf8…0db2e               Head {h00=0x0032, h01=0x0050, text=» LD A1,CONLEN+STKCOM GET LENGTH OF CONF. DATA «, t00=0x008c, t01=0x0054}
0x0db2e…0db62               Head {h00=0x0030, h01=0x0050, text=» ADK A1,2 INCLUDE TRAILING ZEROES IN LENGTH «, t00=0x008c, t01=0x008a}
0x0db62…0db86               Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFE AND MAKE EVEN«, t00=0x008c, t01=0x00be}
0x0db86…0dba2               Head {h00=0x0018, h01=0x0050, text=» ST A1,CONLEN+STKCOM«, t00=0x008c, t01=0x00e2}
0x0dba2…0dbcc               Head {h00=0x0026, h01=0x0050, text=» LDR A1,A9 GET START OF FREE AREA «, t00=0x008c, t01=0x00fe}
0x0dbcc…0dbf0               Head {h00=0x0020, h01=0x0050, text=» LDR A12,A2 END OF FREE AREA«, t00=0x008c, t01=0x0128}
0x0dbf0…0dc18               Head {h00=0x0024, h01=0x0050, text=» SUR A12,A1 SUBTRACT MONITOR END«, t00=0x008c, t01=0x014c}
0x0dc18…0dc4e               Head {h00=0x0032, h01=0x0050, text=» ST A12,M:REL+STKCOM SAVE RELOCATION CONSTANT «, t00=0x008c, t01=0x0174}
0x0dc4e…0dc76               Head {h00=0x0024, h01=0x0050, text=» LD A2,SCTMXS GET MXSTAB ADDRESS«, t00=0x008d, t01=0x001a}
0x0dc76…0dc9e               Head {h00=0x0024, h01=0x0050, text=» RF(Z) CMOV20 NO MXSTAB PRESENT «, t00=0x008d, t01=0x0042}
0x0dc9e…0dca8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x006a}
0x0dca8…0dcdc               Head {h00=0x0030, h01=0x0050, text=» AD A2,M:REL+STKCOM RELOCATE MXSTAB ADDRESS «, t00=0x008d, t01=0x0074}
0x0dcdc…0dd0a               Head {h00=0x002a, h01=0x0050, text=» ST A2,SCTMXS AND SAVE AS NEW ADDRESS «, t00=0x008d, t01=0x00a8}
0x0dd0a…0dd1e               Head {h00=0x0010, h01=0x0050, text=»CMOV20 EQU *«, t00=0x008d, t01=0x00d6}
0x0dd1e…0dd4e               Head {h00=0x002c, h01=0x0050, text=» LD A2,CONSTA+STKCOM GET START OF CONFF «, t00=0x008d, t01=0x00ea}
0x0dd4e…0dd58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x011a}
0x0dd58…0dd98               Head {h00=0x003c, h01=0x0050, text=»*  MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA«, t00=0x008d, t01=0x0124}
0x0dd98…0dda2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x0164}
0x0dda2…0ddb6               Head {h00=0x0010, h01=0x0050, text=»MOPRO EQU * «, t00=0x008d, t01=0x016e}
0x0ddb6…0ddce               Head {h00=0x0014, h01=0x0050, text=» LDKL A13,SYSLDM«, t00=0x008d, t01=0x0182}
0x0ddce…0dde0               Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x008e, t01=0x000a}
0x0dde0…0ddf2               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x008e, t01=0x001c}
0x0ddf2…0de06               Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A1 «, t00=0x008e, t01=0x002e}
0x0de06…0de18               Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x008e, t01=0x0042}
0x0de18…0de2c               Head {h00=0x0010, h01=0x0050, text=» CWR A1,A13 «, t00=0x008e, t01=0x0054}
0x0de2c…0de42               Head {h00=0x0012, h01=0x0050, text=» RB(NE) MOPRO «, t00=0x008e, t01=0x0068}
0x0de42…0de6e               Head {h00=0x0028, h01=0x0050, text=» ABR A2 CONTINUE EXECUTION IN SYSLDM«, t00=0x008e, t01=0x007e}
0x0de6e…0de7c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008e, t01=0x00aa}
0x0de7c…0dec4               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x008e, t01=0x00b8}
0x0dec4…0df0c               Head {h00=0x0044, h01=0x0050, text=»*  SUROUTINES USED TO TEST THE SYNTAX OF THE CONFIGURATION FILE «, t00=0x008e, t01=0x0100}
0x0df0c…0df54               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x008e, t01=0x0148}
0x0df54…0df62               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008e, t01=0x0190}
0x0df62…0df76               Head {h00=0x0010, h01=0x0050, text=»CONRD EQU * «, t00=0x008f, t01=0x000e}
0x0df76…0df80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x0022}
0x0df80…0dfb6               Head {h00=0x0032, h01=0x0050, text=»*  COMPUTE NUMBER OF CHARACTERS IN THIS RECORD«, t00=0x008f, t01=0x002c}
0x0dfb6…0dfc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x0062}
0x0dfc0…0dffa               Head {h00=0x0036, h01=0x0050, text=» LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER«, t00=0x008f, t01=0x006c}
0x0dffa…0e012               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x008f, t01=0x00a6}
0x0e012…0e03c               Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET CHARACTER COUNTER «, t00=0x008f, t01=0x00be}
0x0e03c…0e05e               Head {h00=0x001e, h01=0x0050, text=» LDR A4,A8 START OF RECORD«, t00=0x008f, t01=0x00e8}
0x0e05e…0e072               Head {h00=0x0010, h01=0x0050, text=»COR:30 EQU *«, t00=0x008f, t01=0x010a}
0x0e072…0e092               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x008f, t01=0x011e}
0x0e092…0e0b6               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x008f, t01=0x013e}
0x0e0b6…0e0d0               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x008f, t01=0x0162}
0x0e0d0…0e0e4               Head {h00=0x0010, h01=0x0050, text=»COR:35 EQU *«, t00=0x008f, t01=0x017c}
0x0e0e4…0e112               Head {h00=0x002a, h01=0x0050, text=» CWK A3,RECLEN MAXIMUM SIZE ACHIEVED? «, t00=0x008f, t01=0x0190}
0x0e112…0e128               Head {h00=0x0012, h01=0x0050, text=»COR:38 EQU *-2«, t00=0x0090, t01=0x002e}
0x0e128…0e142               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x0090, t01=0x0044}
0x0e142…0e170               Head {h00=0x002a, h01=0x0050, text=» CW A1,ESYSTA+STKEND MEMORY OVERFLOW? «, t00=0x0090, t01=0x005e}
0x0e170…0e18a               Head {h00=0x0016, h01=0x0050, text=» RF(E) MEMOFL YES!«, t00=0x0090, t01=0x008c}
0x0e18a…0e1b4               Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 INCREMENT BUFFER POINTER«, t00=0x0090, t01=0x00a6}
0x0e1b4…0e1e2               Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT CHARACTER COUNTER «, t00=0x0090, t01=0x00d0}
0x0e1e2…0e20c               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT RECORD POINTER«, t00=0x0090, t01=0x00fe}
0x0e20c…0e224               Head {h00=0x0014, h01=0x0050, text=» RB COR:30 LOOP «, t00=0x0090, t01=0x0128}
0x0e224…0e238               Head {h00=0x0010, h01=0x0050, text=»COR:40 EQU *«, t00=0x0090, t01=0x0140}
0x0e238…0e25e               Head {h00=0x0022, h01=0x0050, text=» LC A5,1,A4 GET NEXT CHARACTER«, t00=0x0090, t01=0x0154}
0x0e25e…0e282               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' TWO SEMICOLONS?«, t00=0x0090, t01=0x017a}
0x0e282…0e29c               Head {h00=0x0016, h01=0x0050, text=» RF(NE) COR:45 NO!«, t00=0x0091, t01=0x000e}
0x0e29c…0e2ca               Head {h00=0x002a, h01=0x0050, text=» CWK A3,NCHTID CHECK IF END OF RECORD «, t00=0x0091, t01=0x0028}
0x0e2ca…0e302               Head {h00=0x0034, h01=0x0050, text=» RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD «, t00=0x0091, t01=0x0056}
0x0e302…0e316               Head {h00=0x0010, h01=0x0050, text=»COR:45 EQU *«, t00=0x0091, t01=0x008e}
0x0e316…0e34c               Head {h00=0x0032, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION «, t00=0x0091, t01=0x00a2}
0x0e34c…0e36e               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A8 START OF RECORD«, t00=0x0091, t01=0x00d8}
0x0e36e…0e380               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x0091, t01=0x00fa}
0x0e380…0e394               Head {h00=0x0010, h01=0x0050, text=»COR:48 EQU *«, t00=0x0091, t01=0x010c}
0x0e394…0e3c0               Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x0091, t01=0x0120}
0x0e3c0…0e3ea               Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD «, t00=0x0091, t01=0x014c}
0x0e3ea…0e406               Head {h00=0x0018, h01=0x0050, text=» ABL(E) COR:50 YES! «, t00=0x0091, t01=0x0176}
0x0e406…0e438 (146, 0, 400) Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x0092, t01=0x0004}
0x0e438…0e462               Head {h00=0x0026, h01=0x0050, text=» CW A8,PLDADR+STKEND END OF BUFFER«, t00=0x0092, t01=0x0036}
0x0e462…0e47c               Head {h00=0x0016, h01=0x0050, text=» RF(NE) COR:10 NO!«, t00=0x0092, t01=0x0060}
0x0e47c…0e49c               Head {h00=0x001c, h01=0x0050, text=» CALL READC READ SECTOR «, t00=0x0092, t01=0x007a}
0x0e49c…0e4c4               Head {h00=0x0024, h01=0x0050, text=»COR:10 LDR A4,A8 START OF RECORD«, t00=0x0092, t01=0x009a}
0x0e4c4…0e4d4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0092, t01=0x00c2}
0x0e4d4…0e4e0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0092, t01=0x00d2}
0x0e4e0…0e4fa               Head {h00=0x0016, h01=0x0050, text=» IFT CFTEST+CASS=2«, t00=0x0092, t01=0x00de}
0x0e4fa…0e50e               Head {h00=0x0010, h01=0x0050, text=»CON:40 EQU *«, t00=0x0092, t01=0x00f8}
0x0e50e…0e534               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x0092, t01=0x010c}
0x0e534…0e550               Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x0092, t01=0x0132}
0x0e550…0e56c               Head {h00=0x0018, h01=0x0050, text=» ABL(NZ) CONEX YES! «, t00=0x0092, t01=0x014e}
0x0e56c…0e57e               Head {h00=0x000e, h01=0x0050, text=» LDR A8,A9«, t00=0x0092, t01=0x016a}
0x0e57e…0e5a4               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A8 GET START OF BUFFER«, t00=0x0092, t01=0x017c}
0x0e5a4…0e5b4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0093, t01=0x0012}
0x0e5b4…0e5c0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0093, t01=0x0022}
0x0e5c0…0e5d6               Head {h00=0x0012, h01=0x0050, text=» IFT CFTEST=1 «, t00=0x0093, t01=0x002e}
0x0e5d6…0e5ea               Head {h00=0x0010, h01=0x0050, text=»MEMOFL EQU *«, t00=0x0093, t01=0x0044}
0x0e5ea…0e618               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x0093, t01=0x0058}
0x0e618…0e62c               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0093, t01=0x0086}
0x0e62c…0e63a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0093, t01=0x009a}
0x0e63a…0e64e               Head {h00=0x0010, h01=0x0050, text=»READC EQU * «, t00=0x0093, t01=0x00a8}
0x0e64e…0e670               Head {h00=0x001e, h01=0x0050, text=» CF A14,RDSEC READ SECTOR «, t00=0x0093, t01=0x00bc}
0x0e670…0e682               Head {h00=0x000e, h01=0x0050, text=» LDR A8,A9«, t00=0x0093, t01=0x00de}
0x0e682…0e6a8               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A8 GET START OF BUFFER«, t00=0x0093, t01=0x00f0}
0x0e6a8…0e6b8               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0093, t01=0x0116}
0x0e6b8…0e6c8               Head {h00=0x000c, h01=0x0050, text=»T EQU * «, t00=0x0093, t01=0x0126}
0x0e6c8…0e6e8               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x0093, t01=0x0136}
0x0e6e8…0e70a               Head {h00=0x001e, h01=0x0050, text=» CCK A5,'TT' BLOCK TYPE T?«, t00=0x0093, t01=0x0156}
0x0e70a…0e71e               Head {h00=0x0010, h01=0x0050, text=»T:10 EQU *-2«, t00=0x0093, t01=0x0178}
0x0e71e…0e736               Head {h00=0x0014, h01=0x0050, text=» ABL(NE) CONERR «, t00=0x0093, t01=0x018c}
0x0e736…0e760               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0094, t01=0x0014}
0x0e760…0e786               Head {h00=0x0022, h01=0x0050, text=» LCR A5,A4 GET NEXT CHARACTER «, t00=0x0094, t01=0x003e}
0x0e786…0e7aa               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x0094, t01=0x0064}
0x0e7aa…0e7c6               Head {h00=0x0018, h01=0x0050, text=» ABL(NE) CONERR NO! «, t00=0x0094, t01=0x0088}
0x0e7c6…0e7d6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0094, t01=0x00a4}
0x0e7d6…0e7e4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0094, t01=0x00b4}
0x0e7e4…0e7f6               Head {h00=0x000e, h01=0x0050, text=»NNL EQU * «, t00=0x0094, t01=0x00c2}
0x0e7f6…0e824               Head {h00=0x002a, h01=0x0050, text=» LDK A3,3 NO OF DIGITS IN LINE NUMBER «, t00=0x0094, t01=0x00d4}
0x0e824…0e84e               Head {h00=0x0026, h01=0x0050, text=» CF A14,NUMB LOOK IF LEGAL DIGITS «, t00=0x0094, t01=0x0102}
0x0e84e…0e876               Head {h00=0x0024, h01=0x0050, text=» LDR A1,A1 SET RETURN CONDITION «, t00=0x0094, t01=0x012c}
0x0e876…0e8aa               Head {h00=0x0030, h01=0x0050, text=» ABL(Z) CONERR LINE NUMBER '000' NOT ALLOWED«, t00=0x0094, t01=0x0154}
0x0e8aa…0e8b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0094, t01=0x0188}
0x0e8b4…0e8da (149, 0, 400) Head {h00=0x0022, h01=0x0050, text=» LCR A5,A4 GET NEXT CHARACTER «, t00=0x0095, t01=0x0004}
0x0e8da…0e8f6               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'LL' LINE L?«, t00=0x0095, t01=0x002a}
0x0e8f6…0e910               Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0095, t01=0x0046}
0x0e910…0e92c               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'RR' LINE R?«, t00=0x0095, t01=0x0060}
0x0e92c…0e946               Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0095, t01=0x007c}
0x0e946…0e962               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'AA' LINE A?«, t00=0x0095, t01=0x0096}
0x0e962…0e97c               Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0095, t01=0x00b2}
0x0e97c…0e998               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'SS' LINE S?«, t00=0x0095, t01=0x00cc}
0x0e998…0e9b2               Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0095, t01=0x00e8}
0x0e9b2…0e9ce               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'PP' LINE P?«, t00=0x0095, t01=0x0102}
0x0e9ce…0e9e8               Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0095, t01=0x011e}
0x0e9e8…0ea04               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'VV' LINE V?«, t00=0x0095, t01=0x0138}
0x0ea04…0ea18               Head {h00=0x0010, h01=0x0050, text=» RF(E) NN:40«, t00=0x0095, t01=0x0154}
0x0ea18…0ea34               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'QQ' LINE Q?«, t00=0x0095, t01=0x0168}
0x0ea34…0ea4e               Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0095, t01=0x0184}
0x0ea4e…0ea60               Head {h00=0x000e, h01=0x0050, text=» RF CONERR«, t00=0x0096, t01=0x000e}
0x0ea60…0ea74               Head {h00=0x0010, h01=0x0050, text=»NN:40 EQU * «, t00=0x0096, t01=0x0020}
0x0ea74…0ea9e               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0096, t01=0x0034}
0x0ea9e…0eab0               Head {h00=0x000e, h01=0x0050, text=» RF NN:50 «, t00=0x0096, t01=0x005e}
0x0eab0…0eaba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x0070}
0x0eaba…0eaca               Head {h00=0x000c, h01=0x0050, text=»NN EQU *«, t00=0x0096, t01=0x007a}
0x0eaca…0eaf2               Head {h00=0x0024, h01=0x0050, text=» LDK A3,2 NO OF DIGITS IN NUMBER«, t00=0x0096, t01=0x008a}
0x0eaf2…0eb1c               Head {h00=0x0026, h01=0x0050, text=» CF A14,NUMB LOOK IF LEGAL DIGITS «, t00=0x0096, t01=0x00b2}
0x0eb1c…0eb44               Head {h00=0x0024, h01=0x0050, text=» LDR A1,A1 SET RETURN CONDITION «, t00=0x0096, t01=0x00dc}
0x0eb44…0eb6a               Head {h00=0x0022, h01=0x0050, text=» RF(Z) CONERR '00' NOT ALLOWED«, t00=0x0096, t01=0x0104}
0x0eb6a…0eb74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x012a}
0x0eb74…0eb9c               Head {h00=0x0024, h01=0x0050, text=» RF NN:50 LOOK IF END IF RECORD «, t00=0x0096, t01=0x0134}
0x0eb9c…0eba6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x015c}
0x0eba6…0ebb8               Head {h00=0x000e, h01=0x0050, text=»NN1 EQU * «, t00=0x0096, t01=0x0166}
0x0ebb8…0ebe0               Head {h00=0x0024, h01=0x0050, text=» LDK A3,2 NO OF DIGITS IN NUMBER«, t00=0x0096, t01=0x0178}
0x0ebe0…0ec0a               Head {h00=0x0026, h01=0x0050, text=» CF A14,NUMB LOOK IF LEGAL DIGITS «, t00=0x0097, t01=0x0010}
0x0ec0a…0ec32               Head {h00=0x0024, h01=0x0050, text=» ST A5,NDEVCL+STKEND SAVE NUMBER«, t00=0x0097, t01=0x003a}
0x0ec32…0ec58               Head {h00=0x0022, h01=0x0050, text=»NN:50 LCR A5,A4 GET CHARACTER «, t00=0x0097, t01=0x0062}
0x0ec58…0ec7c               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x0097, t01=0x0088}
0x0ec7c…0ec96               Head {h00=0x0016, h01=0x0050, text=» RF(NE) CONERR NO!«, t00=0x0097, t01=0x00ac}
0x0ec96…0eca6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0097, t01=0x00c6}
0x0eca6…0ecb4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0097, t01=0x00d6}
0x0ecb4…0ecc4               Head {h00=0x000c, h01=0x0050, text=»AA EQU *«, t00=0x0097, t01=0x00e4}
0x0ecc4…0ecd6               Head {h00=0x000e, h01=0x0050, text=» LDK A3,2 «, t00=0x0097, t01=0x00f4}
0x0ecd6…0ecea               Head {h00=0x0010, h01=0x0050, text=»AA:10 EQU * «, t00=0x0097, t01=0x0106}
0x0ecea…0ed0a               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x0097, t01=0x011a}
0x0ed0a…0ed3c               Head {h00=0x002e, h01=0x0050, text=» CCK A5,/3030 ALPHA-NUMERIC CHARACTER <30?«, t00=0x0097, t01=0x013a}
0x0ed3c…0ed56               Head {h00=0x0016, h01=0x0050, text=» RF(L) CONERR YES!«, t00=0x0097, t01=0x016c}
0x0ed56…0ed8a               Head {h00=0x0030, h01=0x0050, text=» CCK A5,/3939 ALPHA-NUMERIC CHARACTER > 39? «, t00=0x0097, t01=0x0186}
0x0ed8a…0eda4               Head {h00=0x0016, h01=0x0050, text=» RF(NG) AA:20 NO! «, t00=0x0098, t01=0x002a}
0x0eda4…0edd8               Head {h00=0x0030, h01=0x0050, text=» CCK A5,/4141 ALPHA-NUMERIC CHARACTER < 41? «, t00=0x0098, t01=0x0044}
0x0edd8…0edee               Head {h00=0x0012, h01=0x0050, text=» RF(L) CONERR «, t00=0x0098, t01=0x0078}
0x0edee…0ee22               Head {h00=0x0030, h01=0x0050, text=» CCK A5,/5A5A ALPHA-NUMERIC CHARACTER > 5A? «, t00=0x0098, t01=0x008e}
0x0ee22…0ee38               Head {h00=0x0012, h01=0x0050, text=» RF(G) CONERR «, t00=0x0098, t01=0x00c2}
0x0ee38…0ee4c               Head {h00=0x0010, h01=0x0050, text=»AA:20 EQU * «, t00=0x0098, t01=0x00d8}
0x0ee4c…0ee76               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0098, t01=0x00ec}
0x0ee76…0ee88               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0098, t01=0x0116}
0x0ee88…0ee9e               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) AA:10 «, t00=0x0098, t01=0x0128}
0x0ee9e…0eec4               Head {h00=0x0022, h01=0x0050, text=» LCR A5,A4 GET NEXT CHARACTER «, t00=0x0098, t01=0x013e}
0x0eec4…0eee8               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x0098, t01=0x0164}
0x0eee8…0ef02               Head {h00=0x0016, h01=0x0050, text=» RF(NE) CONERR NO!«, t00=0x0098, t01=0x0188}
0x0ef02…0ef12               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0099, t01=0x0012}
0x0ef12…0ef20               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0099, t01=0x0022}
0x0ef20…0ef32               Head {h00=0x000e, h01=0x0050, text=»TID EQU * «, t00=0x0099, t01=0x0030}
0x0ef32…0ef58               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ1 SELECT SEQUENCE «, t00=0x0099, t01=0x0042}
0x0ef58…0ef82               Head {h00=0x0026, h01=0x0050, text=» LDK A3,4 GET NUMBER OF CHARACTERS«, t00=0x0099, t01=0x0068}
0x0ef82…0ef92               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0099, t01=0x0092}
0x0ef92…0efa4               Head {h00=0x000e, h01=0x0050, text=»TCL EQU * «, t00=0x0099, t01=0x00a2}
0x0efa4…0efca               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ2 SELECT SEQUENCE «, t00=0x0099, t01=0x00b4}
0x0efca…0eff4               Head {h00=0x0026, h01=0x0050, text=» LDK A3,4 GET NUMBER OF CHARACTERS«, t00=0x0099, t01=0x00da}
0x0eff4…0f004               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0099, t01=0x0104}
0x0f004…0f016               Head {h00=0x000e, h01=0x0050, text=»LEV EQU * «, t00=0x0099, t01=0x0114}
0x0f016…0f03c               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ3 SELECT SEQUENCE «, t00=0x0099, t01=0x0126}
0x0f03c…0f066               Head {h00=0x0026, h01=0x0050, text=» LDK A3,4 GET NUMBER OF CHARACTERS«, t00=0x0099, t01=0x014c}
0x0f066…0f076               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0099, t01=0x0176}
0x0f076…0f084               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0099, t01=0x0186}
0x0f084…0f096 (154, 0, 400) Head {h00=0x000e, h01=0x0050, text=»TDCT EQU *«, t00=0x009a, t01=0x0004}
0x0f096…0f0bc               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ4 SELECT SEQUENCE «, t00=0x009a, t01=0x0016}
0x0f0bc…0f0e6               Head {h00=0x0026, h01=0x0050, text=» LDK A3,5 GET NUMBER OF CHARACTERS«, t00=0x009a, t01=0x003c}
0x0f0e6…0f0f6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x009a, t01=0x0066}
0x0f0f6…0f106               Head {h00=0x000c, h01=0x0050, text=»LC EQU *«, t00=0x009a, t01=0x0076}
0x0f106…0f12c               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ5 SELECT SEQUENCE «, t00=0x009a, t01=0x0086}
0x0f12c…0f156               Head {h00=0x0026, h01=0x0050, text=» LDK A3,3 GET NUMBER OF CHARACTERS«, t00=0x009a, t01=0x00ac}
0x0f156…0f166               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x009a, t01=0x00d6}
0x0f166…0f178               Head {h00=0x000e, h01=0x0050, text=»SDCS EQU *«, t00=0x009a, t01=0x00e6}
0x0f178…0f19e               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ6 SELECT SEQUENCE «, t00=0x009a, t01=0x00f8}
0x0f19e…0f1c8               Head {h00=0x0026, h01=0x0050, text=» LDK A3,5 GET NUMBER OF CHARACTERS«, t00=0x009a, t01=0x011e}
0x0f1c8…0f1d8               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x009a, t01=0x0148}
0x0f1d8…0f1e6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009a, t01=0x0158}
0x0f1e6…0f1f8               Head {h00=0x000e, h01=0x0050, text=»TEST EQU *«, t00=0x009a, t01=0x0166}
0x0f1f8…0f218               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x009a, t01=0x0178}
0x0f218…0f22a               Head {h00=0x000e, h01=0x0050, text=» CCR A5,A2«, t00=0x009b, t01=0x0008}
0x0f22a…0f240               Head {h00=0x0012, h01=0x0050, text=» RF(NE) CONERR«, t00=0x009b, t01=0x001a}
0x0f240…0f26a               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x009b, t01=0x0030}
0x0f26a…0f296               Head {h00=0x0028, h01=0x0050, text=» ADK A2,1 INCREMENT SEQUENCE POINTER«, t00=0x009b, t01=0x005a}
0x0f296…0f2c8               Head {h00=0x002e, h01=0x0050, text=» SUK A3,1 MORE CHARACTERS IN THE SEQUENCE?«, t00=0x009b, t01=0x0086}
0x0f2c8…0f2e2               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) TEST YES! «, t00=0x009b, t01=0x00b8}
0x0f2e2…0f2f2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x009b, t01=0x00d2}
0x0f2f2…0f300               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009b, t01=0x00e2}
0x0f300…0f314               Head {h00=0x0010, h01=0x0050, text=»SUKASC EQU *«, t00=0x009b, t01=0x00f0}
0x0f314…0f34a               Head {h00=0x0032, h01=0x0050, text=» CCK A5,/3030 NUMBER OF NUMERIC CHARACTERS<10?«, t00=0x009b, t01=0x0104}
0x0f34a…0f366               Head {h00=0x0018, h01=0x0050, text=» RF(NE) SUK:10 YES! «, t00=0x009b, t01=0x013a}
0x0f366…0f37e               Head {h00=0x0014, h01=0x0050, text=» SUK A5,/F6 N0! «, t00=0x009b, t01=0x0156}
0x0f37e…0f396               Head {h00=0x0014, h01=0x0050, text=»SUK:10 SUK A5,1 «, t00=0x009b, t01=0x016e}
0x0f396…0f3ca               Head {h00=0x0030, h01=0x0050, text=» ST A5,NDEVCL+STKEND STORE NUMBER OF CLASSES«, t00=0x009b, t01=0x0186}
0x0f3ca…0f3da               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x009c, t01=0x002a}
0x0f3da…0f3e8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009c, t01=0x003a}
0x0f3e8…0f3fa               Head {h00=0x000e, h01=0x0050, text=»NUMB EQU *«, t00=0x009c, t01=0x0048}
0x0f3fa…0f428               Head {h00=0x002a, h01=0x0050, text=» LDK A1,0 RESET NO OF NON ZERO DIGITS «, t00=0x009c, t01=0x005a}
0x0f428…0f43c               Head {h00=0x0010, h01=0x0050, text=»NUMB00 EQU *«, t00=0x009c, t01=0x0088}
0x0f43c…0f462               Head {h00=0x0022, h01=0x0050, text=» LCR A5,A4 GET DIGIT IN NUMBER«, t00=0x009c, t01=0x009c}
0x0f462…0f48c               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x009c, t01=0x00c2}
0x0f48c…0f4b8               Head {h00=0x0028, h01=0x0050, text=» CCK A5,/3939 NUMERIC CHARACTER >9? «, t00=0x009c, t01=0x00ec}
0x0f4b8…0f4d2               Head {h00=0x0016, h01=0x0050, text=» RF(G) CONERR YES!«, t00=0x009c, t01=0x0118}
0x0f4d2…0f4dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x0132}
0x0f4dc…0f508               Head {h00=0x0028, h01=0x0050, text=» CCK A5,/3030 NUMERIC CHARACTER <0? «, t00=0x009c, t01=0x013c}
0x0f508…0f522               Head {h00=0x0016, h01=0x0050, text=» RF(L) CONERR YES!«, t00=0x009c, t01=0x0168}
0x0f522…0f54c               Head {h00=0x0026, h01=0x0050, text=» RF(Z) NUMB10 NUMERIC CHARACTER =0«, t00=0x009c, t01=0x0182}
0x0f54c…0f556               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x001c}
0x0f556…0f588               Head {h00=0x002e, h01=0x0050, text=» ADK A1,1 INCREMENT NO OF NON ZERO DIGITS «, t00=0x009d, t01=0x0026}
0x0f588…0f59c               Head {h00=0x0010, h01=0x0050, text=»NUMB10 EQU *«, t00=0x009d, t01=0x0058}
0x0f59c…0f5c6               Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DECREMENT DIGIT COUNTER «, t00=0x009d, t01=0x006c}
0x0f5c6…0f5f0               Head {h00=0x0026, h01=0x0050, text=» RF(Z) NUMB20 ALL DIGITS PROCESSED«, t00=0x009d, t01=0x0096}
0x0f5f0…0f5fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x00c0}
0x0f5fa…0f62a               Head {h00=0x002c, h01=0x0050, text=» SLL A5,8 LAST DIGIT TO LEAST SIGN. BYTE«, t00=0x009d, t01=0x00ca}
0x0f62a…0f650               Head {h00=0x0022, h01=0x0050, text=» RB NUMB00 PROCESS NEXT DIGIT «, t00=0x009d, t01=0x00fa}
0x0f650…0f65a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x0120}
0x0f65a…0f66e               Head {h00=0x0010, h01=0x0050, text=»NUMB20 EQU *«, t00=0x009d, t01=0x012a}
0x0f66e…0f686               Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x009d, t01=0x013e}
0x0f686…0f694               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009d, t01=0x0156}
0x0f694…0f69e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x0164}
0x0f69e…0f6a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x016e}
0x0f6a8…0f6e2               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x009d, t01=0x0178}
0x0f6e2…0f71c               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x009e, t01=0x0022}
0x0f71c…0f756               Head {h00=0x0036, h01=0x0050, text=»*     SEQUENCES                                  *«, t00=0x009e, t01=0x005c}
0x0f756…0f790               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x009e, t01=0x0096}
0x0f790…0f7ca               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x009e, t01=0x00d0}
0x0f7ca…0f7d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x010a}
0x0f7d4…0f7de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x0114}
0x0f7de…0f7e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x011e}
0x0f7e8…0f7f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009e, t01=0x0128}
0x0f7f2…0f80a               Head {h00=0x0014, h01=0x0050, text=»SEQ1 EQU * TID= «, t00=0x009e, t01=0x0132}
0x0f80a…0f81c               Head {h00=0x000e, h01=0x0050, text=» DATA 'TI'«, t00=0x009e, t01=0x014a}
0x0f81c…0f82e               Head {h00=0x000e, h01=0x0050, text=» DATA 'D='«, t00=0x009e, t01=0x015c}
0x0f82e…0f846               Head {h00=0x0014, h01=0x0050, text=»SEQ2 EQU * TCL= «, t00=0x009e, t01=0x016e}
0x0f846…0f858               Head {h00=0x000e, h01=0x0050, text=» DATA 'TC'«, t00=0x009e, t01=0x0186}
0x0f858…0f86a               Head {h00=0x000e, h01=0x0050, text=» DATA 'L='«, t00=0x009f, t01=0x0008}
0x0f86a…0f882               Head {h00=0x0014, h01=0x0050, text=»SEQ3 EQU * LEV= «, t00=0x009f, t01=0x001a}
0x0f882…0f894               Head {h00=0x000e, h01=0x0050, text=» DATA 'LE'«, t00=0x009f, t01=0x0032}
0x0f894…0f8a6               Head {h00=0x000e, h01=0x0050, text=» DATA 'V='«, t00=0x009f, t01=0x0044}
0x0f8a6…0f8be               Head {h00=0x0014, h01=0x0050, text=»SEQ4 EQU * TDC=T«, t00=0x009f, t01=0x0056}
0x0f8be…0f8d0               Head {h00=0x000e, h01=0x0050, text=» DATA 'TD'«, t00=0x009f, t01=0x006e}
0x0f8d0…0f8e2               Head {h00=0x000e, h01=0x0050, text=» DATA 'C='«, t00=0x009f, t01=0x0080}
0x0f8e2…0f8f4               Head {h00=0x000e, h01=0x0050, text=» DATA 'T0'«, t00=0x009f, t01=0x0092}
0x0f8f4…0f90a               Head {h00=0x0012, h01=0x0050, text=»SEQ5 EQU * LC=«, t00=0x009f, t01=0x00a4}
0x0f90a…0f91c               Head {h00=0x000e, h01=0x0050, text=» DATA 'LC'«, t00=0x009f, t01=0x00ba}
0x0f91c…0f92e               Head {h00=0x000e, h01=0x0050, text=» DATA '=0'«, t00=0x009f, t01=0x00cc}
0x0f92e…0f946               Head {h00=0x0014, h01=0x0050, text=»SEQ6 EQU * SDC=S«, t00=0x009f, t01=0x00de}
0x0f946…0f958               Head {h00=0x000e, h01=0x0050, text=» DATA 'SD'«, t00=0x009f, t01=0x00f6}
0x0f958…0f96a               Head {h00=0x000e, h01=0x0050, text=» DATA 'C='«, t00=0x009f, t01=0x0108}
0x0f96a…0f97c               Head {h00=0x000e, h01=0x0050, text=» DATA 'S0'«, t00=0x009f, t01=0x011a}
0x0f97c…0f988               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009f, t01=0x012c}
0x0f988…0f9a2               Head {h00=0x0016, h01=0x0050, text=» IFT CFTCAS+CASS=2«, t00=0x009f, t01=0x0138}
0x0f9a2…0f9ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x0152}
0x0f9ac…0f9d6               Head {h00=0x0026, h01=0x0050, text=»*  PROGRAM LOAD DEVICE = CASSETTE «, t00=0x009f, t01=0x015c}
0x0f9d6…0f9e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x0186}
0x0f9e0…0f9f4               Head {h00=0x0010, h01=0x0050, text=»CON:30 EQU *«, t00=0x009f, t01=0x0190}
0x0f9f4…0fa16               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 START OF BUFFER«, t00=0x00a0, t01=0x0014}
0x0fa16…0fa3c               Head {h00=0x0022, h01=0x0050, text=» ADKL A1,BUFLEN END OF BUFFER «, t00=0x00a0, t01=0x0036}
0x0fa3c…0fa6c               Head {h00=0x002c, h01=0x0050, text=» ST A1,PLDADR+STKEND SAVE END OF BUFFER «, t00=0x00a0, t01=0x005c}
0x0fa6c…0fa8e               Head {h00=0x001e, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE «, t00=0x00a0, t01=0x008c}
0x0fa8e…0fac6               Head {h00=0x0034, h01=0x0050, text=» ST A1,CONSTA+STKCOM START OF CONFIGURATION DATA«, t00=0x00a0, t01=0x00ae}
0x0fac6…0faea               Head {h00=0x0020, h01=0x0050, text=» CF A14,RDBLK READ ONE BLOCK«, t00=0x00a0, t01=0x00e6}
0x0faea…0fb10               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x00a0, t01=0x010a}
0x0fb10…0fb2c               Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x00a0, t01=0x0130}
0x0fb2c…0fb46               Head {h00=0x0016, h01=0x0050, text=» RF(Z) CON:50 NO! «, t00=0x00a0, t01=0x014c}
0x0fb46…0fb78               Head {h00=0x002e, h01=0x0050, text=» CF A14,CASSIN INIT CONFIGURATION CASSETTE«, t00=0x00a0, t01=0x0166}
0x0fb78…0fb8c               Head {h00=0x0010, h01=0x0050, text=»CON:40 EQU *«, t00=0x00a1, t01=0x0008}
0x0fb8c…0fbb2               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x00a1, t01=0x001c}
0x0fbb2…0fbce               Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x00a1, t01=0x0042}
0x0fbce…0fbe8               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CONEX YES!«, t00=0x00a1, t01=0x005e}
0x0fbe8…0fbfc               Head {h00=0x0010, h01=0x0050, text=»CON:50 EQU *«, t00=0x00a1, t01=0x0078}
0x0fbfc…0fc06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x008c}
0x0fc06…0fc3c               Head {h00=0x0032, h01=0x0050, text=»*  COMPUTE NUMBER OF CHARACTERS IN THIS BLOCK «, t00=0x00a1, t01=0x0096}
0x0fc3c…0fc46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x00cc}
0x0fc46…0fc80               Head {h00=0x0036, h01=0x0050, text=» LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER«, t00=0x00a1, t01=0x00d6}
0x0fc80…0fc98               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x00a1, t01=0x0110}
0x0fc98…0fcc2               Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET CHARACTER COUNTER «, t00=0x00a1, t01=0x0128}
0x0fcc2…0fce8               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A9 GET START OF BUFFER«, t00=0x00a1, t01=0x0152}
0x0fce8…0fcfc               Head {h00=0x0010, h01=0x0050, text=»CON:60 EQU *«, t00=0x00a1, t01=0x0178}
0x0fcfc…0fd26               Head {h00=0x0026, h01=0x0050, text=» LCR A5,A4 GET CHARACTER IN BUFFER«, t00=0x00a1, t01=0x018c}
0x0fd26…0fd4a               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' CHECK IF SPACE «, t00=0x00a2, t01=0x0026}
0x0fd4a…0fd74               Head {h00=0x0026, h01=0x0050, text=» RF(E) CON:70 NO MOORE CHARACTERS «, t00=0x00a2, t01=0x004a}
0x0fd74…0fd88               Head {h00=0x0010, h01=0x0050, text=»CON:65 EQU *«, t00=0x00a2, t01=0x0074}
0x0fd88…0fdac               Head {h00=0x0020, h01=0x0050, text=» CWK A3,CBLEN END OF BUFFER?«, t00=0x00a2, t01=0x0088}
0x0fdac…0fdc6               Head {h00=0x0016, h01=0x0050, text=» RF(E) CON:75 YES!«, t00=0x00a2, t01=0x00ac}
0x0fdc6…0fdf4               Head {h00=0x002a, h01=0x0050, text=» CW A1,ESYSTA+STKEND MEMORY OVERFLOW? «, t00=0x00a2, t01=0x00c6}
0x0fdf4…0fe0e               Head {h00=0x0016, h01=0x0050, text=» RF(E) MEMOFL YES!«, t00=0x00a2, t01=0x00f4}
0x0fe0e…0fe3e               Head {h00=0x002c, h01=0x0050, text=» ADK A1,1 INCREMENT DESTINATION POINTER «, t00=0x00a2, t01=0x010e}
0x0fe3e…0fe6c               Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT CHARACTER COUNTER «, t00=0x00a2, t01=0x013e}
0x0fe6c…0fe96               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x00a2, t01=0x016c}
0x0fe96…0fea8               Head {h00=0x000e, h01=0x0050, text=» RB CON:60«, t00=0x00a3, t01=0x0008}
0x0fea8…0febc               Head {h00=0x0010, h01=0x0050, text=»CON:70 EQU *«, t00=0x00a3, t01=0x001a}
0x0febc…0fee2               Head {h00=0x0022, h01=0x0050, text=» LC A5,1,A4 GET NEXT CHARACTER«, t00=0x00a3, t01=0x002e}
0x0fee2…0ff08               Head {h00=0x0022, h01=0x0050, text=» CCK A5,';;' TWO SEMI-COLONS? «, t00=0x00a3, t01=0x0054}
0x0ff08…0ff22               Head {h00=0x0016, h01=0x0050, text=» RF(NE) CON:75 NO!«, t00=0x00a3, t01=0x007a}
0x0ff22…0ff50               Head {h00=0x002a, h01=0x0050, text=» CWK A3,NCHTID CHECK IF END OF RECORD «, t00=0x00a3, t01=0x0094}
0x0ff50…0ff88               Head {h00=0x0034, h01=0x0050, text=» RB(E) CON:65 NO: SEMI-COLON CHARACTER IN RECORD«, t00=0x00a3, t01=0x00c2}
0x0ff88…0ff9c               Head {h00=0x0010, h01=0x0050, text=»CON:75 EQU *«, t00=0x00a3, t01=0x00fa}
0x0ff9c…0ffd2               Head {h00=0x0032, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION «, t00=0x00a3, t01=0x010e}
0x0ffd2…0fff8               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x00a3, t01=0x0144}
0x0fff8…1000a               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x00a3, t01=0x016a}
0x1000a…1001c               Head {h00=0x000e, h01=0x0050, text=» RB CON:40«, t00=0x00a3, t01=0x017c}
0x1001c…10030               Head {h00=0x0010, h01=0x0050, text=»CONEX EQU * «, t00=0x00a3, t01=0x018e}
0x10030…1003a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x0012}
0x1003a…1007c               Head {h00=0x003e, h01=0x0050, text=»*  UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE«, t00=0x00a4, t01=0x001c}
0x1007c…10086               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x005e}
0x10086…100ac               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x00a4, t01=0x0068}
0x100ac…100d0               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 APPLICATION DATA?«, t00=0x00a4, t01=0x008e}
0x100d0…100ea               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CON:80 NO!«, t00=0x00a4, t01=0x00b2}
0x100ea…100fc               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/D«, t00=0x00a4, t01=0x00cc}
0x100fc…1012a               Head {h00=0x002a, h01=0x0050, text=» CF A14,CHCRIO SEARCH TAPEMARK REVERSE«, t00=0x00a4, t01=0x00de}
0x1012a…10150               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK BYPASS TAPEMARK «, t00=0x00a4, t01=0x010c}
0x10150…10162               Head {h00=0x000e, h01=0x0050, text=» RF CON:90«, t00=0x00a4, t01=0x0132}
0x10162…10176               Head {h00=0x0010, h01=0x0050, text=»CON:80 EQU *«, t00=0x00a4, t01=0x0144}
0x10176…10188               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/F«, t00=0x00a4, t01=0x0158}
0x10188…101ae               Head {h00=0x0022, h01=0x0050, text=» CF A14,CHCRIO UNLOAD CASSETTE«, t00=0x00a4, t01=0x016a}
0x101ae…101c2               Head {h00=0x0010, h01=0x0050, text=»CON:90 EQU *«, t00=0x00a4, t01=0x0190}
0x101c2…101d6               Head {h00=0x0010, h01=0x0050, text=» ABL CONMOV «, t00=0x00a5, t01=0x0014}
0x101d6…101e2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a5, t01=0x0028}
0x101e2…101f6               Head {h00=0x0010, h01=0x0050, text=»CONERR EQU *«, t00=0x00a5, t01=0x0034}
0x101f6…1020c               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x00a5, t01=0x0048}
0x1020c…10220               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00a5, t01=0x005e}
0x10220…10236               Head {h00=0x0012, h01=0x0050, text=» IFF CFTEST=1 «, t00=0x00a5, t01=0x0072}
0x10236…1024a               Head {h00=0x0010, h01=0x0050, text=»MEMOFL EQU *«, t00=0x00a5, t01=0x0088}
0x1024a…10278               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x00a5, t01=0x009c}
0x10278…1028c               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00a5, t01=0x00ca}
0x1028c…1029a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a5, t01=0x00de}
0x1029a…102ae               Head {h00=0x0010, h01=0x0050, text=»CONRAD EQU *«, t00=0x00a5, t01=0x00ec}
0x102ae…102b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x0100}
0x102b8…102f2               Head {h00=0x0036, h01=0x0050, text=»*  LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC«, t00=0x00a5, t01=0x010a}
0x102f2…102fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x0144}
0x102fc…10338               Head {h00=0x0038, h01=0x0050, text=» LD A1,CONDEV+STKEND GET LOAD DEVICE FOR CONF. DATA «, t00=0x00a5, t01=0x014e}
0x10338…10366               Head {h00=0x002a, h01=0x0050, text=» RF(Z) CONRA0 SAME AS PGM LOAD DEVICE «, t00=0x00a5, t01=0x018a}
0x10366…10370               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x0028}
0x10370…103a4               Head {h00=0x0030, h01=0x0050, text=» CF A14,CONFLD INITIATE CONF. DATA LOAD DEV.«, t00=0x00a6, t01=0x0032}
0x103a4…103b8               Head {h00=0x0010, h01=0x0050, text=»CONRA0 EQU *«, t00=0x00a6, t01=0x0066}
0x103b8…103e6               Head {h00=0x002a, h01=0x0050, text=» LD A11,CONDAD+STKEND GET START SECTOR«, t00=0x00a6, t01=0x007a}
0x103e6…1041c               Head {h00=0x0032, h01=0x0050, text=» LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART «, t00=0x00a6, t01=0x00a8}
0x1041c…10442               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x00a6, t01=0x00de}
0x10442…1046a               Head {h00=0x0024, h01=0x0050, text=» ADKL A1,BUFLEN-6 END OF BUFFER «, t00=0x00a6, t01=0x0104}
0x1046a…1049a               Head {h00=0x002c, h01=0x0050, text=» ST A1,PLDADR+STKEND SAVE END OF BUFFER «, t00=0x00a6, t01=0x012c}
0x1049a…104c0               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x00a6, t01=0x015c}
0x104c0…104ea               Head {h00=0x0026, h01=0x0050, text=» AD A1,SAVCON START OF SAVE BUFFER«, t00=0x00a6, t01=0x0182}
0x104ea…1050e               Head {h00=0x0020, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE =2«, t00=0x00a7, t01=0x001c}
0x1050e…1052a               Head {h00=0x0018, h01=0x0050, text=» ST A1,CONSTA+STKCOM«, t00=0x00a7, t01=0x0040}
0x1052a…10552               Head {h00=0x0024, h01=0x0050, text=» LDKL A10,0 RESET RECORD COUNTER«, t00=0x00a7, t01=0x005c}
0x10552…10566               Head {h00=0x0010, h01=0x0050, text=»COR:10 EQU *«, t00=0x00a7, t01=0x0084}
0x10566…10570               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x0098}
0x10570…105a4               Head {h00=0x0030, h01=0x0050, text=»*  READ ONE SECTOR FROM RANDOM ACCESS DEVICE«, t00=0x00a7, t01=0x00a2}
0x105a4…105ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x00d6}
0x105ae…105d0               Head {h00=0x001e, h01=0x0050, text=» CF A14,RDSEC READ SECTOR «, t00=0x00a7, t01=0x00e0}
0x105d0…105f6               Head {h00=0x0022, h01=0x0050, text=» LDR A8,A9 GET START OF BUFFER«, t00=0x00a7, t01=0x0102}
0x105f6…1060a               Head {h00=0x0010, h01=0x0050, text=»COR:20 EQU *«, t00=0x00a7, t01=0x0128}
0x1060a…10614               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x013c}
0x10614…1064a               Head {h00=0x0032, h01=0x0050, text=»*  COMPUTE NUMBER OF CHARACTERS IN THIS RECORD«, t00=0x00a7, t01=0x0146}
0x1064a…10654               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x017c}
0x10654…1068e               Head {h00=0x0036, h01=0x0050, text=» LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER«, t00=0x00a7, t01=0x0186}
0x1068e…106a6               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x00a8, t01=0x0030}
0x106a6…106d0               Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET CHARACTER COUNTER «, t00=0x00a8, t01=0x0048}
0x106d0…106f2               Head {h00=0x001e, h01=0x0050, text=» LDR A4,A8 START OF RECORD«, t00=0x00a8, t01=0x0072}
0x106f2…106fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x0094}
0x106fc…1071a               Head {h00=0x001a, h01=0x0050, text=»*  LOOK IF WE HAVE AN «, t00=0x00a8, t01=0x009e}
0x1071a…1073e               Head {h00=0x0020, h01=0x0050, text=»*  APPLICATION CONTROL BLOCK«, t00=0x00a8, t01=0x00bc}
0x1073e…10748               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x00e0}
0x10748…10772               Head {h00=0x0026, h01=0x0050, text=» LDR* A5,A4 GET 1ST WORD IN BUFFER«, t00=0x00a8, t01=0x00ea}
0x10772…107a6               Head {h00=0x0030, h01=0x0050, text=» CWK A5,'D;' DATA COMMUNICATION DEF. BLOCK? «, t00=0x00a8, t01=0x0114}
0x107a6…107c0               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:25 YES!«, t00=0x00a8, t01=0x0148}
0x107c0…107ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a8, t01=0x0162}
0x107ca…107f6               Head {h00=0x0028, h01=0x0050, text=» CWK A5,'A;' AND LOOK IF IT IS 'A;' «, t00=0x00a8, t01=0x016c}
0x107f6…10810               Head {h00=0x0016, h01=0x0050, text=» RF(NE) COR:30 NO!«, t00=0x00a9, t01=0x0008}
0x10810…1081a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a9, t01=0x0022}
0x1081a…10848               Head {h00=0x002a, h01=0x0050, text=» LDKL A5,/FF3B YES, SUBSTITUTE A; WITH«, t00=0x00a9, t01=0x002c}
0x10848…1086c               Head {h00=0x0020, h01=0x0050, text=» STR A5,A4 'HEX FF' AND ';' «, t00=0x00a9, t01=0x005a}
0x1086c…108a8               Head {h00=0x0038, h01=0x0050, text=» LD A5,CURAPL+STKEND GET CURRENT APPL. CONTR. BLOCK «, t00=0x00a9, t01=0x007e}
0x108a8…108cc               Head {h00=0x0020, h01=0x0050, text=» ADK A1,1 SKIP BLOCK MARKER «, t00=0x00a9, t01=0x00ba}
0x108cc…10906               Head {h00=0x0036, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE CURRENT BUFFER POSITION «, t00=0x00a9, t01=0x00de}
0x10906…10942               Head {h00=0x0038, h01=0x0050, text=» SU A1,CONSTA+STKCOM AND CALCULATE RELATIVE POSITION«, t00=0x00a9, t01=0x0118}
0x10942…10976               Head {h00=0x0030, h01=0x0050, text=» ST A1,APLMMC,A5 SAVE IN APPL. CONTROL BLOCK«, t00=0x00a9, t01=0x0154}
0x10976…10998               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A8 START OF RECORD«, t00=0x00a9, t01=0x0188}
0x10998…109cc               Head {h00=0x0030, h01=0x0050, text=» ADK A3,1 INCREMENT NO OF CHARACTERS TO MOVE«, t00=0x00aa, t01=0x001a}
0x109cc…109de               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x00aa, t01=0x004e}
0x109de…10a02               Head {h00=0x0020, h01=0x0050, text=» ADKL A10,2 SKIP NEXT RECORD«, t00=0x00aa, t01=0x0060}
0x10a02…10a0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x0084}
0x10a0c…10a3e               Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x00aa, t01=0x008e}
0x10a3e…10a6a               Head {h00=0x0028, h01=0x0050, text=» CW A8,PLDADR+STKEND END OF BUFFER? «, t00=0x00aa, t01=0x00c0}
0x10a6a…10a84               Head {h00=0x0016, h01=0x0050, text=» RF(L) COR:48 NO! «, t00=0x00aa, t01=0x00ec}
0x10a84…10a8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x0106}
0x10a8e…10aba               Head {h00=0x0028, h01=0x0050, text=» CF A14,RDSEC YES, READ NEXT SECTOR «, t00=0x00aa, t01=0x0110}
0x10aba…10ae4               Head {h00=0x0026, h01=0x0050, text=» LDR A8,A9 AND GET START OF BUFFER«, t00=0x00aa, t01=0x013c}
0x10ae4…10af6               Head {h00=0x000e, h01=0x0050, text=» RF COR:48«, t00=0x00aa, t01=0x0166}
0x10af6…10b00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x0178}
0x10b00…10b14               Head {h00=0x0010, h01=0x0050, text=»COR:25 EQU *«, t00=0x00aa, t01=0x0182}
0x10b14…10b52               Head {h00=0x003a, h01=0x0050, text=» LD A5,EINPBF+STKEND CURRENT POSITION IN CONF. DATA =6«, t00=0x00ab, t01=0x0008}
0x10b52…10b8e               Head {h00=0x0038, h01=0x0050, text=» SU A5,CONSTA+STKCOM CALCULATE RELATIVE POSITION =6 «, t00=0x00ab, t01=0x0046}
0x10b8e…10bb2               Head {h00=0x0020, h01=0x0050, text=» ST A5,DCBLK+STKCOM SAVE =6 «, t00=0x00ab, t01=0x0082}
0x10bb2…10bc6               Head {h00=0x0010, h01=0x0050, text=»COR:30 EQU *«, t00=0x00ab, t01=0x00a6}
0x10bc6…10be6               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x00ab, t01=0x00ba}
0x10be6…10c0a               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x00ab, t01=0x00da}
0x10c0a…10c24               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x00ab, t01=0x00fe}
0x10c24…10c38               Head {h00=0x0010, h01=0x0050, text=»COR:35 EQU *«, t00=0x00ab, t01=0x0118}
0x10c38…10c66               Head {h00=0x002a, h01=0x0050, text=» CWK A3,RECLEN MAXIMUM SIZE ACHIEVED? «, t00=0x00ab, t01=0x012c}
0x10c66…10c80               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x00ab, t01=0x015a}
0x10c80…10cae               Head {h00=0x002a, h01=0x0050, text=» CW A1,ESYSTA+STKEND MEMORY OVERFLOW? «, t00=0x00ab, t01=0x0174}
0x10cae…10cc8               Head {h00=0x0016, h01=0x0050, text=» RB(E) MEMOFL YES!«, t00=0x00ac, t01=0x0012}
0x10cc8…10cf2               Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 INCREMENT BUFFER POINTER«, t00=0x00ac, t01=0x002c}
0x10cf2…10d20               Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT CHARACTER COUNTER «, t00=0x00ac, t01=0x0056}
0x10d20…10d4a               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT RECORD POINTER«, t00=0x00ac, t01=0x0084}
0x10d4a…10d62               Head {h00=0x0014, h01=0x0050, text=» RB COR:30 LOOP «, t00=0x00ac, t01=0x00ae}
0x10d62…10d76               Head {h00=0x0010, h01=0x0050, text=»COR:40 EQU *«, t00=0x00ac, t01=0x00c6}
0x10d76…10d9c               Head {h00=0x0022, h01=0x0050, text=» LC A5,1,A4 GET NEXT CHARACTER«, t00=0x00ac, t01=0x00da}
0x10d9c…10dc0               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' TWO SEMICOLONS?«, t00=0x00ac, t01=0x0100}
0x10dc0…10dda               Head {h00=0x0016, h01=0x0050, text=» RF(NE) COR:45 NO!«, t00=0x00ac, t01=0x0124}
0x10dda…10e08               Head {h00=0x002a, h01=0x0050, text=» CWK A3,NCHTID CHECK IF END OF RECORD «, t00=0x00ac, t01=0x013e}
0x10e08…10e40               Head {h00=0x0034, h01=0x0050, text=» RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD «, t00=0x00ac, t01=0x016c}
0x10e40…10e54               Head {h00=0x0010, h01=0x0050, text=»COR:45 EQU *«, t00=0x00ad, t01=0x0014}
0x10e54…10e8a               Head {h00=0x0032, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION «, t00=0x00ad, t01=0x0028}
0x10e8a…10eac               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A8 START OF RECORD«, t00=0x00ad, t01=0x005e}
0x10eac…10ebe               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x00ad, t01=0x0080}
0x10ebe…10eea               Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x00ad, t01=0x0092}
0x10eea…10f14               Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD «, t00=0x00ad, t01=0x00be}
0x10f14…10f2e               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:50 YES!«, t00=0x00ad, t01=0x00e8}
0x10f2e…10f42               Head {h00=0x0010, h01=0x0050, text=»COR:48 EQU *«, t00=0x00ad, t01=0x0102}
0x10f42…10f74               Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x00ad, t01=0x0116}
0x10f74…10f9e               Head {h00=0x0026, h01=0x0050, text=» CW A8,PLDADR+STKEND END OF BUFFER«, t00=0x00ad, t01=0x0148}
0x10f9e…10fc0               Head {h00=0x001e, h01=0x0050, text=» RB(E) COR:10 NEXT SECTOR «, t00=0x00ad, t01=0x0172}
0x10fc0…10fde (174, 0, 400) Head {h00=0x001a, h01=0x0050, text=» RB COR:20 NEXT RECORD«, t00=0x00ae, t01=0x0004}
0x10fde…10ff2               Head {h00=0x0010, h01=0x0050, text=»COR:50 EQU *«, t00=0x00ae, t01=0x0022}
0x10ff2…11018               Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00ae, t01=0x0036}
0x11018…11030               Head {h00=0x0014, h01=0x0050, text=» ANK A1,8 SWB:S?«, t00=0x00ae, t01=0x005c}
0x11030…11048               Head {h00=0x0014, h01=0x0050, text=» RF(Z) COR:55 NO«, t00=0x00ae, t01=0x0074}
0x11048…1105c               Head {h00=0x0010, h01=0x0050, text=» LDK A3,'S' «, t00=0x00ae, t01=0x008c}
0x1105c…11086               Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:25+1 MODIFY INSTRUCTION«, t00=0x00ae, t01=0x00a0}
0x11086…110b0               Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:60+1 MODIFY INSTRUCTION«, t00=0x00ae, t01=0x00ca}
0x110b0…110cc               Head {h00=0x0018, h01=0x0050, text=» LD A1,IPLDEV+STKEND«, t00=0x00ae, t01=0x00f4}
0x110cc…110fe               Head {h00=0x002e, h01=0x0050, text=» CF A14,LODDEV INITIALIZE PGM LOAD DEVICE «, t00=0x00ae, t01=0x0110}
0x110fe…11114               Head {h00=0x0012, h01=0x0050, text=» CF A14,GETFIL«, t00=0x00ae, t01=0x0142}
0x11114…1111e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x0158}
0x1111e…1113e               Head {h00=0x001c, h01=0x0050, text=»*  UNLOCK FLEXIBLE DISC «, t00=0x00ae, t01=0x0162}
0x1113e…11148               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x0182}
0x11148…1115c               Head {h00=0x0010, h01=0x0050, text=»COR:55 EQU *«, t00=0x00ae, t01=0x018c}
0x1115c…11194               Head {h00=0x0034, h01=0x0050, text=» LD A1,CONDEV+STKEND GET CONF. DATA LOAD DEVICE «, t00=0x00af, t01=0x0010}
0x11194…111c4               Head {h00=0x002c, h01=0x0050, text=» RF(Z) COR:58 SAME AS APPL. LOAD DEVICE «, t00=0x00af, t01=0x0048}
0x111c4…111ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00af, t01=0x0078}
0x111ce…111e0               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x00af, t01=0x0082}
0x111e0…111f2               Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x00af, t01=0x0094}
0x111f2…11204               Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x00af, t01=0x00a6}
0x11204…1122c               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COR:58 NOT FLEXIBLE DISC«, t00=0x00af, t01=0x00b8}
0x1122c…11238               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00af, t01=0x00e0}
0x11238…11254               Head {h00=0x0018, h01=0x0050, text=» IFT CFTFLD+FLDISC=2«, t00=0x00af, t01=0x00ec}
0x11254…11280               Head {h00=0x0028, h01=0x0050, text=» CF A14,UNLOCK UNLOCK FLEXIBLE DISC «, t00=0x00af, t01=0x0108}
0x11280…1128c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00af, t01=0x0134}
0x1128c…112a2               Head {h00=0x0012, h01=0x0050, text=» IFF CFTEST=1 «, t00=0x00af, t01=0x0140}
0x112a2…112b6               Head {h00=0x0010, h01=0x0050, text=»COR:58 EQU *«, t00=0x00af, t01=0x0156}
0x112b6…112e4               Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x00af, t01=0x016a}
0x112e4…11302               Head {h00=0x001a, h01=0x0050, text=» SUK A1,/F8 CHECK TYPE«, t00=0x00b0, t01=0x0008}
0x11302…1132a               Head {h00=0x0024, h01=0x0050, text=» RF(N) COR:60 NOT FLEXIBLE DISC «, t00=0x00b0, t01=0x0026}
0x1132a…11334               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x004e}
0x11334…1135a               Head {h00=0x0022, h01=0x0050, text=» SUK A1,/FC-/F8 FLEXIBLE DISC?«, t00=0x00b0, t01=0x0058}
0x1135a…11374               Head {h00=0x0016, h01=0x0050, text=» RF(NN) COR:60 NO!«, t00=0x00b0, t01=0x007e}
0x11374…1137e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x0098}
0x1137e…1138a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b0, t01=0x00a2}
0x1138a…113a6               Head {h00=0x0018, h01=0x0050, text=» IFT CFTFLD+FLDISC=2«, t00=0x00b0, t01=0x00ae}
0x113a6…113cc               Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x00b0, t01=0x00ca}
0x113cc…113ea               Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x00b0, t01=0x00f0}
0x113ea…11412               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COR:60 YES! DON'T UNLOCK«, t00=0x00b0, t01=0x010e}
0x11412…1141c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x0136}
0x1141c…11438               Head {h00=0x0018, h01=0x0050, text=» LD A1,IPLDEV+STKEND«, t00=0x00b0, t01=0x0140}
0x11438…11464               Head {h00=0x0028, h01=0x0050, text=» CF A14,UNLOCK UNLOCK FLEXIBLE DISC «, t00=0x00b0, t01=0x015c}
0x11464…11470               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b0, t01=0x0188}
0x11470…11486 (177, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFF CFTEST=1 «, t00=0x00b1, t01=0x0004}
0x11486…1149c               Head {h00=0x0012, h01=0x0050, text=» IFF CFTEST=1 «, t00=0x00b1, t01=0x001a}
0x1149c…114b0               Head {h00=0x0010, h01=0x0050, text=»COR:60 EQU *«, t00=0x00b1, t01=0x0030}
0x114b0…114be               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b1, t01=0x0044}
0x114be…114d2               Head {h00=0x0010, h01=0x0050, text=»CONMOV EQU *«, t00=0x00b1, t01=0x0052}
0x114d2…114dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x0066}
0x114dc…11514               Head {h00=0x0034, h01=0x0050, text=»*  MOVE CONFIGURATION DATA TO END OF SYSTEM AREA«, t00=0x00b1, t01=0x0070}
0x11514…1151e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b1, t01=0x00a8}
0x1151e…11548               Head {h00=0x0026, h01=0x0050, text=» CIO A1,0,SOP INHIBIT SOP SWITCHES«, t00=0x00b1, t01=0x00b2}
0x11548…1156e               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x00b1, t01=0x00dc}
0x1156e…1159a               Head {h00=0x0028, h01=0x0050, text=» AD A1,SAVCON COMPUTE END OF BUFFER «, t00=0x00b1, t01=0x0102}
0x1159a…115da               Head {h00=0x003c, h01=0x0050, text=»CMOV10 LD A3,EINPBF+STKEND GET END OF CONFIGURATION DATA«, t00=0x00b1, t01=0x012e}
0x115da…1160e               Head {h00=0x0030, h01=0x0050, text=» LD A2,ESYSTA+STKEND GET END OF SYSTEM AREA «, t00=0x00b1, t01=0x016e}
0x1160e…1163c               Head {h00=0x002a, h01=0x0050, text=» CM -2,A2 MAKE SURE CONFIGURATION FILE«, t00=0x00b2, t01=0x0012}
0x1163c…11662               Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 IS FOLLOWED BY X'00'«, t00=0x00b2, t01=0x0040}
0x11662…11692               Head {h00=0x002c, h01=0x0050, text=» SUR A3,A1 LENGTH OF CONFIGURATION DATA «, t00=0x00b2, t01=0x0066}
0x11692…116c8               Head {h00=0x0032, h01=0x0050, text=» ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA«, t00=0x00b2, t01=0x0096}
0x116c8…116e6               Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x00b2, t01=0x00cc}
0x116e6…116f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b2, t01=0x00ea}
0x116f0…11718               Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN ADDRESS«, t00=0x00b2, t01=0x00f4}
0x11718…1172a               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x00b2, t01=0x011c}
0x1172a…11768               Head {h00=0x003a, h01=0x0050, text=» ST A2,CONSTA+STKCOM SAVE START OF CONFIGURATION DATA «, t00=0x00b2, t01=0x012e}
0x11768…1179e               Head {h00=0x0032, h01=0x0050, text=» LD A1,CONLEN+STKCOM GET LENGTH OF CONF. DATA «, t00=0x00b2, t01=0x016c}
0x1179e…117d2               Head {h00=0x0030, h01=0x0050, text=» ADK A1,2 INCLUDE TRAILING ZEROES IN LENGTH «, t00=0x00b3, t01=0x0012}
0x117d2…117f6               Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFE AND MAKE EVEN«, t00=0x00b3, t01=0x0046}
0x117f6…11812               Head {h00=0x0018, h01=0x0050, text=» ST A1,CONLEN+STKCOM«, t00=0x00b3, t01=0x006a}
0x11812…1183c               Head {h00=0x0026, h01=0x0050, text=» LDR A1,A9 GET START OF FREE AREA «, t00=0x00b3, t01=0x0086}
0x1183c…11860               Head {h00=0x0020, h01=0x0050, text=» LDR A12,A2 END OF FREE AREA«, t00=0x00b3, t01=0x00b0}
0x11860…11888               Head {h00=0x0024, h01=0x0050, text=» SUR A12,A1 SUBTRACT MONITOR END«, t00=0x00b3, t01=0x00d4}
0x11888…118be               Head {h00=0x0032, h01=0x0050, text=» ST A12,M:REL+STKCOM SAVE RELOCATION CONSTANT «, t00=0x00b3, t01=0x00fc}
0x118be…118ea               Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTMXS GET MXSTAB ADDRESS =1 «, t00=0x00b3, t01=0x0132}
0x118ea…11914               Head {h00=0x0026, h01=0x0050, text=» RF(Z) CMOV20 NO MXSTAB PRESENT =1«, t00=0x00b3, t01=0x015e}
0x11914…11924               Head {h00=0x000c, h01=0x0050, text=»*    =1 «, t00=0x00b3, t01=0x0188}
0x11924…11952               Head {h00=0x002a, h01=0x0050, text=» ADR A2,A12 RELOCATE MXSTAB ADDRESS =1«, t00=0x00b4, t01=0x0008}
0x11952…11982               Head {h00=0x002c, h01=0x0050, text=» ST A2,SCTMXS AND SAVE AS NEW ADDRESS =1«, t00=0x00b4, t01=0x0036}
0x11982…1199c               Head {h00=0x0016, h01=0x0050, text=»CMOV20 EQU *   =1 «, t00=0x00b4, t01=0x0066}
0x1199c…119cc               Head {h00=0x002c, h01=0x0050, text=» LD A2,CONSTA+STKCOM GET START OF CONFF «, t00=0x00b4, t01=0x0080}
0x119cc…119d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b4, t01=0x00b0}
0x119d6…11a16               Head {h00=0x003c, h01=0x0050, text=»*  MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA«, t00=0x00b4, t01=0x00ba}
0x11a16…11a20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b4, t01=0x00fa}
0x11a20…11a34               Head {h00=0x0010, h01=0x0050, text=»MOPRO EQU * «, t00=0x00b4, t01=0x0104}
0x11a34…11a4c               Head {h00=0x0014, h01=0x0050, text=» LDKL A13,SYSLDM«, t00=0x00b4, t01=0x0118}
0x11a4c…11a5e               Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x00b4, t01=0x0130}
0x11a5e…11a70               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x00b4, t01=0x0142}
0x11a70…11a84               Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A1 «, t00=0x00b4, t01=0x0154}
0x11a84…11a96               Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x00b4, t01=0x0168}
0x11a96…11aaa               Head {h00=0x0010, h01=0x0050, text=» CWR A1,A13 «, t00=0x00b4, t01=0x017a}
0x11aaa…11ac0               Head {h00=0x0012, h01=0x0050, text=» RB(NE) MOPRO «, t00=0x00b4, t01=0x018e}
0x11ac0…11aec               Head {h00=0x0028, h01=0x0050, text=» ABR A2 CONTINUE EXECUTION IN SYSLDM«, t00=0x00b5, t01=0x0014}
0x11aec…11af8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b5, t01=0x0040}
0x11af8…11b06               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b5, t01=0x004c}
0x11b06…11b56               Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x00b5, t01=0x005a}
0x11b56…11ba6               Head {h00=0x004c, h01=0x0050, text=»*  SUBROUTINES USED IN THE APPLICATION AND CONFIGURATION LOADING PHASE O«, t00=0x00b5, t01=0x00aa}
0x11ba6…11bf6               Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x00b5, t01=0x00fa}
0x11bf6…11c1e               Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x00b5, t01=0x014a}
0x11c1e…11c46               Head {h00=0x0024, h01=0x0050, text=»*  SOPIN - READ SOP SWITCHES  * «, t00=0x00b5, t01=0x0172}
0x11c46…11c6e               Head {h00=0x0024, h01=0x0050, text=»*  =========================  * «, t00=0x00b6, t01=0x000a}
0x11c6e…11c96               Head {h00=0x0024, h01=0x0050, text=»*                             * «, t00=0x00b6, t01=0x0032}
0x11c96…11cbe               Head {h00=0x0024, h01=0x0050, text=»*  ENTRY:                     * «, t00=0x00b6, t01=0x005a}
0x11cbe…11ce6               Head {h00=0x0024, h01=0x0050, text=»*                             * «, t00=0x00b6, t01=0x0082}
0x11ce6…11d0e               Head {h00=0x0024, h01=0x0050, text=»*  EXIT:  A1 - SOP INPUT      * «, t00=0x00b6, t01=0x00aa}
0x11d0e…11d36               Head {h00=0x0024, h01=0x0050, text=»*         BIT 6 - SWITCH 1    * «, t00=0x00b6, t01=0x00d2}
0x11d36…11d5e               Head {h00=0x0024, h01=0x0050, text=»*         BIT 15 - SWITCH 10  * «, t00=0x00b6, t01=0x00fa}
0x11d5e…11d86               Head {h00=0x0024, h01=0x0050, text=»*                             * «, t00=0x00b6, t01=0x0122}
0x11d86…11dae               Head {h00=0x0024, h01=0x0050, text=»*  WORK REGISTERS:  A1        * «, t00=0x00b6, t01=0x014a}
0x11dae…11dd6               Head {h00=0x0024, h01=0x0050, text=»*                             * «, t00=0x00b6, t01=0x0172}
0x11dd6…11dfe               Head {h00=0x0024, h01=0x0050, text=»*  SUBROUTINES:               * «, t00=0x00b7, t01=0x000a}
0x11dfe…11e26               Head {h00=0x0024, h01=0x0050, text=»*                             * «, t00=0x00b7, t01=0x0032}
0x11e26…11e4e               Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x00b7, t01=0x005a}
0x11e4e…11e62               Head {h00=0x0010, h01=0x0050, text=»SOPIN EQU * «, t00=0x00b7, t01=0x0082}
0x11e62…11e78               Head {h00=0x0012, h01=0x0050, text=» CIO A1,1,SOP «, t00=0x00b7, t01=0x0096}
0x11e78…11e8e               Head {h00=0x0012, h01=0x0050, text=» INR A1,0,SOP «, t00=0x00b7, t01=0x00ac}
0x11e8e…11ea2               Head {h00=0x0010, h01=0x0050, text=» RB(NA) *-2 «, t00=0x00b7, t01=0x00c2}
0x11ea2…11eb2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00b7, t01=0x00d6}
0x11eb2…11ec0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b7, t01=0x00e6}
0x11ec0…11eec               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00b7, t01=0x00f4}
0x11eec…11f18               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00b7, t01=0x0120}
0x11f18…11f44               Head {h00=0x0028, h01=0x0050, text=»* LODDEV - INITIAZE LOAD UNIT     * «, t00=0x00b7, t01=0x014c}
0x11f44…11f70               Head {h00=0x0028, h01=0x0050, text=»* ===========================     * «, t00=0x00b7, t01=0x0178}
0x11f70…11f9c               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00b8, t01=0x0014}
0x11f9c…11fc8               Head {h00=0x0028, h01=0x0050, text=»* USED FOR CONFIGURATION OF       * «, t00=0x00b8, t01=0x0040}
0x11fc8…11ff4               Head {h00=0x0028, h01=0x0050, text=»* PROGRAM LOAD DEVICE AND         * «, t00=0x00b8, t01=0x006c}
0x11ff4…12020               Head {h00=0x0028, h01=0x0050, text=»* CONFIGURATION DATA LOAD         * «, t00=0x00b8, t01=0x0098}
0x12020…1204c               Head {h00=0x0028, h01=0x0050, text=»* DEVICE (IF DIFFERENT).          * «, t00=0x00b8, t01=0x00c4}
0x1204c…12078               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00b8, t01=0x00f0}
0x12078…120a4               Head {h00=0x0028, h01=0x0050, text=»* ON ENTRY: A1=DEVICE ADDRESS     * «, t00=0x00b8, t01=0x011c}
0x120a4…120d0               Head {h00=0x0028, h01=0x0050, text=»* ON EXIT:  A2=FILE CODE          * «, t00=0x00b8, t01=0x0148}
0x120d0…120fc               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00b8, t01=0x0174}
0x120fc…12128               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00b9, t01=0x0010}
0x12128…12130               Head {h00=0x0004, h01=0x0050, t00=0x00b9, t01=0x003c}
0x12130…12138               Head {h00=0x0004, h01=0x0050, t00=0x00b9, t01=0x0044}
0x12138…1214c               Head {h00=0x0010, h01=0x0050, text=»LODDEV EQU *«, t00=0x00b9, t01=0x004c}
0x1214c…12164               Head {h00=0x0014, h01=0x0050, text=» LDKL A3,BUFLEN «, t00=0x00b9, t01=0x0060}
0x12164…12192               Head {h00=0x002a, h01=0x0050, text=» ST A3,SAVCON INITIALIZE BUFFER LENGTH«, t00=0x00b9, t01=0x0078}
0x12192…121a6               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x00b9, t01=0x00a6}
0x121a6…121ce               Head {h00=0x0024, h01=0x0050, text=» ST A2,CYLNBR SET SEEK CONDITION«, t00=0x00b9, t01=0x00ba}
0x121ce…121e0               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x00b9, t01=0x00e2}
0x121e0…12208               Head {h00=0x0024, h01=0x0050, text=» ANK A2,/80 CHECK IF CASSETTE =9«, t00=0x00b9, t01=0x00f4}
0x12208…12222               Head {h00=0x0016, h01=0x0050, text=» RF(P) CASS:0 YES!«, t00=0x00b9, t01=0x011c}
0x12222…1222c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x0136}
0x1222c…12256               Head {h00=0x0026, h01=0x0050, text=» LDR A2,A1 GET PROGRAM LOAD DEVICE«, t00=0x00b9, t01=0x0140}
0x12256…12282               Head {h00=0x0028, h01=0x0050, text=» SRL A2,4 BIT15 INDICATE UNIT 1 OR 2«, t00=0x00b9, t01=0x016a}
0x12282…122b0               Head {h00=0x002a, h01=0x0050, text=» LC A3,IPLTYP+1+STKEND GET DEVICE TYPE«, t00=0x00ba, t01=0x0008}
0x122b0…122c4               Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x00ba, t01=0x0036}
0x122c4…122d6               Head {h00=0x000e, h01=0x0050, text=» SUK A3,3 «, t00=0x00ba, t01=0x004a}
0x122d6…122f0               Head {h00=0x0016, h01=0x0050, text=» RF(N) DISC:0 DISC«, t00=0x00ba, t01=0x005c}
0x122f0…12314               Head {h00=0x0020, h01=0x0050, text=» RF(Z) MFD:0 MINI FIXED DISC«, t00=0x00ba, t01=0x0076}
0x12314…1232a               Head {h00=0x0012, h01=0x0050, text=» SUK A3,3  =9 «, t00=0x00ba, t01=0x009a}
0x1232a…1234c               Head {h00=0x001e, h01=0x0050, text=» RF(N) CDC:0 80M CDC DISC «, t00=0x00ba, t01=0x00b0}
0x1234c…1236c               Head {h00=0x001c, h01=0x0050, text=» RF FLEX:0 FLEXIBLE DISC«, t00=0x00ba, t01=0x00d2}
0x1236c…1237a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ba, t01=0x00f2}
0x1237a…1238e               Head {h00=0x0010, h01=0x0050, text=»CASS:0 EQU *«, t00=0x00ba, t01=0x0100}
0x1238e…123a2               Head {h00=0x0010, h01=0x0050, text=» IFT CASS=1 «, t00=0x00ba, t01=0x0114}
0x123a2…123ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x0128}
0x123ac…123d6               Head {h00=0x0026, h01=0x0050, text=»*  PROGRAM LOAD DEVICE = CASSETTE «, t00=0x00ba, t01=0x0132}
0x123d6…123e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x015c}
0x123e0…12422               Head {h00=0x003e, h01=0x0050, text=» LD A1,APLTAB+STKCOM GET CURRENT APPLICATION CONTR. BLOCK «, t00=0x00ba, t01=0x0166}
0x12422…12450               Head {h00=0x002a, h01=0x0050, text=» CM APLADA+2,A1 CLEAR APPLICATION DISC«, t00=0x00bb, t01=0x0018}
0x12450…1247c               Head {h00=0x0028, h01=0x0050, text=» CM APLADA+4,A1 FILE ADDRESS ENTRIES«, t00=0x00bb, t01=0x0046}
0x1247c…124aa               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,RDBLK GET SUBROUTINE ADDRESS «, t00=0x00bb, t01=0x0072}
0x124aa…124be               Head {h00=0x0010, h01=0x0050, text=» LDR A10,A1 «, t00=0x00bb, t01=0x00a0}
0x124be…124f2               Head {h00=0x0030, h01=0x0050, text=» ST A1,READ STORE IN PROGRAM LOAD SUBROUTINE«, t00=0x00bb, t01=0x00b4}
0x124f2…12506               Head {h00=0x0010, h01=0x0050, text=»CASS:2 EQU *«, t00=0x00bb, t01=0x00e8}
0x12506…12534               Head {h00=0x002a, h01=0x0050, text=» CF A14,RDBLK READ ONE CASSETTE BLOCK «, t00=0x00bb, t01=0x00fc}
0x12534…12552               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 TAPE MARK? «, t00=0x00bb, t01=0x012a}
0x12552…1256e               Head {h00=0x0018, h01=0x0050, text=» RF(Z) FINIS RETURN «, t00=0x00bb, t01=0x0148}
0x1256e…12578               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x0164}
0x12578…125a8               Head {h00=0x002c, h01=0x0050, text=» CF A14,CASSIN INIT APPLICATION CASSETTE«, t00=0x00bb, t01=0x016e}
0x125a8…125ba               Head {h00=0x000e, h01=0x0050, text=» RB CASS:2«, t00=0x00bc, t01=0x000e}
0x125ba…125c6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bc, t01=0x0020}
0x125c6…125da               Head {h00=0x0010, h01=0x0050, text=» IFF CASS=1 «, t00=0x00bc, t01=0x002c}
0x125da…125f0               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00bc, t01=0x0040}
0x125f0…1261a               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x00bc, t01=0x0056}
0x1261a…12626               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bc, t01=0x0080}
0x12626…12634               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bc, t01=0x008c}
0x12634…12648               Head {h00=0x0010, h01=0x0050, text=»FLEX:0 EQU *«, t00=0x00bc, t01=0x009a}
0x12648…1265e               Head {h00=0x0012, h01=0x0050, text=» IFT FLDISC=1 «, t00=0x00bc, t01=0x00ae}
0x1265e…12668               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x00c4}
0x12668…12696               Head {h00=0x002a, h01=0x0050, text=»*  PROGRAM LOAD DEVICE = FLEXIBLE DISC«, t00=0x00bc, t01=0x00ce}
0x12696…126a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x00fc}
0x126a0…126aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x0106}
0x126aa…126e0               Head {h00=0x0032, h01=0x0050, text=»*  MODIFY SCTIPL: /F8 - DRIVE 1, /F9 - DRIVE 2«, t00=0x00bc, t01=0x0110}
0x126e0…126ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x0146}
0x126ea…126fe               Head {h00=0x0010, h01=0x0050, text=» ORK  A2,/F8«, t00=0x00bc, t01=0x0150}
0x126fe…1272a               Head {h00=0x0028, h01=0x0050, text=» ST A2,FILCOD+STKEND SAVE FILE CODE «, t00=0x00bc, t01=0x0164}
0x1272a…12734               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x0190}
0x12734…12752               Head {h00=0x001a, h01=0x0050, text=»*  INIT FLEXIBLE DISC «, t00=0x00bd, t01=0x000a}
0x12752…1275c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bd, t01=0x0028}
0x1275c…12772               Head {h00=0x0012, h01=0x0050, text=» CF A14,FDINIT«, t00=0x00bd, t01=0x0032}
0x12772…12784               Head {h00=0x000e, h01=0x0050, text=» RF FINISH«, t00=0x00bd, t01=0x0048}
0x12784…1278e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bd, t01=0x005a}
0x1278e…1279a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bd, t01=0x0064}
0x1279a…127b0               Head {h00=0x0012, h01=0x0050, text=» IFF FLDISC=1 «, t00=0x00bd, t01=0x0070}
0x127b0…127c6               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00bd, t01=0x0086}
0x127c6…127f0               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x00bd, t01=0x009c}
0x127f0…127fc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bd, t01=0x00c6}
0x127fc…1280a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bd, t01=0x00d2}
0x1280a…1281e               Head {h00=0x0010, h01=0x0050, text=»MFD:0 EQU * «, t00=0x00bd, t01=0x00e0}
0x1281e…12834               Head {h00=0x0012, h01=0x0050, text=» IFT MFDISC=1 «, t00=0x00bd, t01=0x00f4}
0x12834…1283e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bd, t01=0x010a}
0x1283e…1286e               Head {h00=0x002c, h01=0x0050, text=»* PROGRAM LOAD DEVICE = MINI FIXED DISC «, t00=0x00bd, t01=0x0114}
0x1286e…12878               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bd, t01=0x0144}
0x12878…128a8               Head {h00=0x002c, h01=0x0050, text=»* MODIFY SCTIPL:/F4-DRIVE 1,/F5-DRIVE 2 «, t00=0x00bd, t01=0x014e}
0x128a8…128b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bd, t01=0x017e}
0x128b2…128c6               Head {h00=0x0010, h01=0x0050, text=» ORK A2,/F4 «, t00=0x00bd, t01=0x0188}
0x128c6…128f2               Head {h00=0x0028, h01=0x0050, text=» ST A2,FILCOD+STKEND SAVE FILE CODE «, t00=0x00be, t01=0x000c}
0x128f2…128fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x0038}
0x128fc…1291a               Head {h00=0x001a, h01=0x0050, text=»* INIT MINI FIXED DISC«, t00=0x00be, t01=0x0042}
0x1291a…12924               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x0060}
0x12924…1293a               Head {h00=0x0012, h01=0x0050, text=» CF A14,MDINIT«, t00=0x00be, t01=0x006a}
0x1293a…12954               Head {h00=0x0016, h01=0x0050, text=» RF FINISH RETURN «, t00=0x00be, t01=0x0080}
0x12954…1295e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x009a}
0x1295e…1296a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00be, t01=0x00a4}
0x1296a…12980               Head {h00=0x0012, h01=0x0050, text=» IFF MFDISC=1 «, t00=0x00be, t01=0x00b0}
0x12980…12996               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00be, t01=0x00c6}
0x12996…129c0               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x00be, t01=0x00dc}
0x129c0…129cc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00be, t01=0x0106}
0x129cc…129da               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00be, t01=0x0112}
0x129da…129ee               Head {h00=0x0010, h01=0x0050, text=»DISC:0 EQU *«, t00=0x00be, t01=0x0120}
0x129ee…12a02               Head {h00=0x0010, h01=0x0050, text=» IFT DISC=1 «, t00=0x00be, t01=0x0134}
0x12a02…12a0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x0148}
0x12a0c…12a32               Head {h00=0x0022, h01=0x0050, text=»*  PROGRAM LOAD DEVICE = DISC «, t00=0x00be, t01=0x0152}
0x12a32…12a3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x0178}
0x12a3c…12a46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x0182}
0x12a46…12a84               Head {h00=0x003a, h01=0x0050, text=»*  MODIFY SCTIPL: /F1 - CARTRIDGE DISC /F0 - FIX DISC «, t00=0x00be, t01=0x018c}
0x12a84…12a8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x003a}
0x12a8e…12ab8               Head {h00=0x0026, h01=0x0050, text=» LC A2,FCTAB,A2 LOAD FILE CODE =5 «, t00=0x00bf, t01=0x0044}
0x12ab8…12ae4               Head {h00=0x0028, h01=0x0050, text=» ST A2,FILCOD+STKEND SAVE FILE CODE «, t00=0x00bf, t01=0x006e}
0x12ae4…12aee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x009a}
0x12aee…12b12               Head {h00=0x0020, h01=0x0050, text=»*  INITIALIZE DISC COMMANDS «, t00=0x00bf, t01=0x00a4}
0x12b12…12b1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x00c8}
0x12b1c…12b32               Head {h00=0x0012, h01=0x0050, text=» CF A14,DUINIT«, t00=0x00bf, t01=0x00d2}
0x12b32…12b3e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bf, t01=0x00e8}
0x12b3e…12b52               Head {h00=0x0010, h01=0x0050, text=» IFF DISC=1 «, t00=0x00bf, t01=0x00f4}
0x12b52…12b68               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00bf, t01=0x0108}
0x12b68…12b7c               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00bf, t01=0x011e}
0x12b7c…12b88               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bf, t01=0x0132}
0x12b88…12b9c               Head {h00=0x0010, h01=0x0050, text=»FINISH EQU *«, t00=0x00bf, t01=0x013e}
0x12b9c…12bce               Head {h00=0x002e, h01=0x0050, text=» LDK A1,1 A1#0 MEANS RANDOM ACCESS DEVICE «, t00=0x00bf, t01=0x0152}
0x12bce…12be2               Head {h00=0x0010, h01=0x0050, text=»FINIS EQU * «, t00=0x00bf, t01=0x0184}
0x12be2…12c10               Head {h00=0x002a, h01=0x0050, text=» LD A2,FILCOD+STKEND RESTORE FILE CODE«, t00=0x00c0, t01=0x0008}
0x12c10…12c20               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00c0, t01=0x0036}
0x12c20…12c2e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c0, t01=0x0046}
0x12c2e…12c42               Head {h00=0x0010, h01=0x0050, text=»CDC:0 EQU * «, t00=0x00c0, t01=0x0054}
0x12c42…12c5e               Head {h00=0x0018, h01=0x0050, text=» IFF CDDISC+CDDI16=0«, t00=0x00c0, t01=0x0068}
0x12c5e…12c68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x0084}
0x12c68…12c9c               Head {h00=0x0030, h01=0x0050, text=»* PROGRAM LOAD DEVICE = 16M OR 80M CDC DISC «, t00=0x00c0, t01=0x008e}
0x12c9c…12ca6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x00c2}
0x12ca6…12cb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x00cc}
0x12cb0…12cd2               Head {h00=0x001e, h01=0x0050, text=»* MODIFY SCTIPL: /FC - /FD«, t00=0x00c0, t01=0x00d6}
0x12cd2…12cdc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x00f8}
0x12cdc…12d04               Head {h00=0x0024, h01=0x0050, text=» SRC A2,2 TEST IF UNIT 1 OR 2 =9«, t00=0x00c0, t01=0x0102}
0x12d04…12d24               Head {h00=0x001c, h01=0x0050, text=» RF(NN) CDC:1 UNIT 1 =9 «, t00=0x00c0, t01=0x012a}
0x12d24…12d3a               Head {h00=0x0012, h01=0x0050, text=» ADK A2,2  =9 «, t00=0x00c0, t01=0x014a}
0x12d3a…12d52               Head {h00=0x0014, h01=0x0050, text=»CDC:1 EQU *  =9 «, t00=0x00c0, t01=0x0160}
0x12d52…12d7a               Head {h00=0x0024, h01=0x0050, text=» ANK A2,7 MASK BITS NOT USED =9 «, t00=0x00c0, t01=0x0178}
0x12d7a…12d98               Head {h00=0x001a, h01=0x0050, text=» ORK A2,/FC FILE CODE «, t00=0x00c1, t01=0x0010}
0x12d98…12dc4               Head {h00=0x0028, h01=0x0050, text=» ST A2,FILCOD+STKEND SAVE FILE CODE «, t00=0x00c1, t01=0x002e}
0x12dc4…12dce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c1, t01=0x005a}
0x12dce…12df0               Head {h00=0x001e, h01=0x0050, text=»* INITIALISE DISC COMMANDS«, t00=0x00c1, t01=0x0064}
0x12df0…12dfa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c1, t01=0x0086}
0x12dfa…12e1c               Head {h00=0x001e, h01=0x0050, text=» CF A14,CDINIT INIT DEVICE«, t00=0x00c1, t01=0x0090}
0x12e1c…12e36               Head {h00=0x0016, h01=0x0050, text=» RB FINISH RETURN «, t00=0x00c1, t01=0x00b2}
0x12e36…12e42               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c1, t01=0x00cc}
0x12e42…12e62               Head {h00=0x001c, h01=0x0050, text=» IFT CDDISC+CDDI16=0  =9«, t00=0x00c1, t01=0x00d8}
0x12e62…12e78               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00c1, t01=0x00f8}
0x12e78…12ea2               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x00c1, t01=0x010e}
0x12ea2…12eae               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c1, t01=0x0138}
0x12eae…12ebc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c1, t01=0x0144}
0x12ebc…12efc               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00c1, t01=0x0152}
0x12efc…12f3c (194, 0, 400) Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c2, t01=0x0004}
0x12f3c…12f7c               Head {h00=0x003c, h01=0x0050, text=»*      CONFLD - SELECT LOAD UNIT FOR CONF. DATA       * «, t00=0x00c2, t01=0x0044}
0x12f7c…12fbc               Head {h00=0x003c, h01=0x0050, text=»*      ========================================       * «, t00=0x00c2, t01=0x0084}
0x12fbc…12ffc               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c2, t01=0x00c4}
0x12ffc…1303c               Head {h00=0x003c, h01=0x0050, text=»*      ON ENTRY:  A1 = DEVICE ADDRESS                 * «, t00=0x00c2, t01=0x0104}
0x1303c…1307c               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c2, t01=0x0144}
0x1307c…130bc               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00c2, t01=0x0184}
0x130bc…130c4               Head {h00=0x0004, h01=0x0050, t00=0x00c3, t01=0x0034}
0x130c4…130cc               Head {h00=0x0004, h01=0x0050, t00=0x00c3, t01=0x003c}
0x130cc…130e0               Head {h00=0x0010, h01=0x0050, text=»CONFLD EQU *«, t00=0x00c3, t01=0x0044}
0x130e0…130f4               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x00c3, t01=0x0058}
0x130f4…1311c               Head {h00=0x0024, h01=0x0050, text=» ST A2,CYLNBR SET SEEK CONDITION«, t00=0x00c3, t01=0x006c}
0x1311c…13142               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A1 SAVE DEVICE ADDRESS«, t00=0x00c3, t01=0x0094}
0x13142…13168               Head {h00=0x0022, h01=0x0050, text=» ANK A2,/F ISOLATE LAST DIGIT «, t00=0x00c3, t01=0x00ba}
0x13168…1317a               Head {h00=0x000e, h01=0x0050, text=» SUK A2,7 «, t00=0x00c3, t01=0x00e0}
0x1317a…1319e               Head {h00=0x0020, h01=0x0050, text=» RB(N) MFD:0 MINI FIXED DISC«, t00=0x00c3, t01=0x00f2}
0x1319e…131a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c3, t01=0x0116}
0x131a8…131ca               Head {h00=0x001e, h01=0x0050, text=» RB(Z) CDC:0 80M CDC DISC «, t00=0x00c3, t01=0x0120}
0x131ca…131d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c3, t01=0x0142}
0x131d4…131e6               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x00c3, t01=0x014c}
0x131e6…13208               Head {h00=0x001e, h01=0x0050, text=» RB(Z) DISC:0 DISC DEVICE «, t00=0x00c3, t01=0x015e}
0x13208…13212               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c3, t01=0x0180}
0x13212…1323a               Head {h00=0x0024, h01=0x0050, text=» RB FLEX:0 FLEXIBLE DISC DEVICE «, t00=0x00c3, t01=0x018a}
0x1323a…13248               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c4, t01=0x0022}
0x13248…1325c               Head {h00=0x0010, h01=0x0050, text=» IFT CASS=1 «, t00=0x00c4, t01=0x0030}
0x1325c…1329c               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00c4, t01=0x0044}
0x1329c…132dc               Head {h00=0x003c, h01=0x0050, text=»*        CASSIN - CASSETTE INITIATING ROUTINE         * «, t00=0x00c4, t01=0x0084}
0x132dc…1331c               Head {h00=0x003c, h01=0x0050, text=»*        ====================================         * «, t00=0x00c4, t01=0x00c4}
0x1331c…1335c               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c4, t01=0x0104}
0x1335c…1339c               Head {h00=0x003c, h01=0x0050, text=»*  REFERENCED IN:  SYSLOD -LOADING PART-              * «, t00=0x00c4, t01=0x0144}
0x1339c…133dc               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c4, t01=0x0184}
0x133dc…1341c               Head {h00=0x003c, h01=0x0050, text=»*  ENTRY:                                             * «, t00=0x00c5, t01=0x0034}
0x1341c…1345c               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c5, t01=0x0074}
0x1345c…1349c               Head {h00=0x003c, h01=0x0050, text=»*  EXIT:                                              * «, t00=0x00c5, t01=0x00b4}
0x1349c…134dc               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c5, t01=0x00f4}
0x134dc…1351c               Head {h00=0x003c, h01=0x0050, text=»*  WORK REGISTERS:  A1,A3                             * «, t00=0x00c5, t01=0x0134}
0x1351c…1355c               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c5, t01=0x0174}
0x1355c…1359c               Head {h00=0x003c, h01=0x0050, text=»*  SUBROUTINES:  SOPIN,CHCRIO                         * «, t00=0x00c6, t01=0x0024}
0x1359c…135dc               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c6, t01=0x0064}
0x135dc…1361c               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00c6, t01=0x00a4}
0x1361c…13630               Head {h00=0x0010, h01=0x0050, text=»CASSIN EQU *«, t00=0x00c6, t01=0x00e4}
0x13630…13642               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/F«, t00=0x00c6, t01=0x00f8}
0x13642…13668               Head {h00=0x0022, h01=0x0050, text=» CF A14,CHCRIO UNLOAD CASSETTE«, t00=0x00c6, t01=0x010a}
0x13668…1369e               Head {h00=0x0032, h01=0x0050, text=» LDKL A3,LMP1+LMP2 INDICATE EXPECTED SWITCHES «, t00=0x00c6, t01=0x0130}
0x1369e…136b4               Head {h00=0x0012, h01=0x0050, text=» OTR A3,0,SOP «, t00=0x00c6, t01=0x0166}
0x136b4…136c8               Head {h00=0x0010, h01=0x0050, text=»CAS:10 EQU *«, t00=0x00c6, t01=0x017c}
0x136c8…136e6               Head {h00=0x001a, h01=0x0050, text=» CF A14,SOPIN READ SOP«, t00=0x00c6, t01=0x0190}
0x136e6…1370e               Head {h00=0x0024, h01=0x0050, text=» ANKL A1,/0300 ALLOWED SWITCHES?«, t00=0x00c7, t01=0x001e}
0x1370e…13728               Head {h00=0x0016, h01=0x0050, text=» RB(Z) CAS:10 NO! «, t00=0x00c7, t01=0x0046}
0x13728…13752               Head {h00=0x0026, h01=0x0050, text=» LDKL A3,LMP1 SWITCH ON LOAD LAMP «, t00=0x00c7, t01=0x0060}
0x13752…13768               Head {h00=0x0012, h01=0x0050, text=» OTR A3,0,SOP «, t00=0x00c7, t01=0x008a}
0x13768…13786               Head {h00=0x001a, h01=0x0050, text=» SRL A1,8 RIGHT ALIGN «, t00=0x00c7, t01=0x00a0}
0x13786…137a4               Head {h00=0x001a, h01=0x0050, text=» ANK A1,1 SELECT UNIT «, t00=0x00c7, t01=0x00be}
0x137a4…137c6               Head {h00=0x001e, h01=0x0050, text=» CF A14,CHCRIO SELECT UNIT«, t00=0x00c7, t01=0x00dc}
0x137c6…137da               Head {h00=0x0010, h01=0x0050, text=» LDK A1,LOCK«, t00=0x00c7, t01=0x00fe}
0x137da…137fe               Head {h00=0x0020, h01=0x0050, text=» CF A14,CHCRIO LOCK CASSETTE«, t00=0x00c7, t01=0x0112}
0x137fe…13822               Head {h00=0x0020, h01=0x0050, text=» ANK A3,1 CASSETTE OPERABLE?«, t00=0x00c7, t01=0x0136}
0x13822…1383c               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) CAS:10 NO!«, t00=0x00c7, t01=0x015a}
0x1383c…13852               Head {h00=0x0012, h01=0x0050, text=» LDK A1,SBOT  «, t00=0x00c7, t01=0x0174}
0x13852…13882               Head {h00=0x002c, h01=0x0050, text=» CF A14,CHCRIO SEARCH BEGINNING OF TAPE «, t00=0x00c7, t01=0x018a}
0x13882…13896               Head {h00=0x0010, h01=0x0050, text=» LDK A1,STMF«, t00=0x00c8, t01=0x002a}
0x13896…138c4               Head {h00=0x002a, h01=0x0050, text=» CF A14,CHCRIO SEARCH TAPEMARK FORWARD«, t00=0x00c8, t01=0x003e}
0x138c4…138d4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00c8, t01=0x006c}
0x138d4…138e2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c8, t01=0x007c}
0x138e2…13918               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x00c8, t01=0x008a}
0x13918…1394e               Head {h00=0x0032, h01=0x0050, text=»*  CHCRIO - CASSETTE I/O EXECUTING ROUTINE  * «, t00=0x00c8, t01=0x00c0}
0x1394e…13984               Head {h00=0x0032, h01=0x0050, text=»*  =======================================  * «, t00=0x00c8, t01=0x00f6}
0x13984…139ba               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x00c8, t01=0x012c}
0x139ba…139f0               Head {h00=0x0032, h01=0x0050, text=»*  REFERENCED IN:  CASSIN,SYSLOD            * «, t00=0x00c8, t01=0x0162}
0x139f0…13a26               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x00c9, t01=0x0008}
0x13a26…13a5c               Head {h00=0x0032, h01=0x0050, text=»*  ENTRY:  A1 - I/O INSTRUCTION COMMAND     * «, t00=0x00c9, t01=0x003e}
0x13a5c…13a92               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x00c9, t01=0x0074}
0x13a92…13ac8               Head {h00=0x0032, h01=0x0050, text=»*  EXIT:                                    * «, t00=0x00c9, t01=0x00aa}
0x13ac8…13afe               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x00c9, t01=0x00e0}
0x13afe…13b34               Head {h00=0x0032, h01=0x0050, text=»*  WORK REGISTERS:  A1,A3                   * «, t00=0x00c9, t01=0x0116}
0x13b34…13b6a               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x00c9, t01=0x014c}
0x13b6a…13ba0               Head {h00=0x0032, h01=0x0050, text=»*  SUBROUTINES:                             * «, t00=0x00c9, t01=0x0182}
0x13ba0…13bd6               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x00ca, t01=0x0028}
0x13bd6…13c0c               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x00ca, t01=0x005e}
0x13c0c…13c20               Head {h00=0x0010, h01=0x0050, text=»CHCRIO EQU *«, t00=0x00ca, t01=0x0094}
0x13c20…13c36               Head {h00=0x0012, h01=0x0050, text=» CIO A1,1,CHCR«, t00=0x00ca, t01=0x00a8}
0x13c36…13c4a               Head {h00=0x0010, h01=0x0050, text=» SST A3,CHCR«, t00=0x00ca, t01=0x00be}
0x13c4a…13c60               Head {h00=0x0012, h01=0x0050, text=» RB(NA) CHCRIO«, t00=0x00ca, t01=0x00d2}
0x13c60…13c70               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00ca, t01=0x00e8}
0x13c70…13c7e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ca, t01=0x00f8}
0x13c7e…13cb8               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x00ca, t01=0x0106}
0x13cb8…13cf2               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x00ca, t01=0x0140}
0x13cf2…13d2c               Head {h00=0x0036, h01=0x0050, text=»*        RDBLK - READ ONE CASSETTE BLOCK         *«, t00=0x00ca, t01=0x017a}
0x13d2c…13d66               Head {h00=0x0036, h01=0x0050, text=»*        ===============================         *«, t00=0x00cb, t01=0x0024}
0x13d66…13da0               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x00cb, t01=0x005e}
0x13da0…13dda               Head {h00=0x0036, h01=0x0050, text=»*  REFERENCED IN:  SYSLOD                        *«, t00=0x00cb, t01=0x0098}
0x13dda…13e14               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x00cb, t01=0x00d2}
0x13e14…13e4e               Head {h00=0x0036, h01=0x0050, text=»*  ENTRY:  A9 - CASSETTE BUFFER POINTER          *«, t00=0x00cb, t01=0x010c}
0x13e4e…13e88               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x00cb, t01=0x0146}
0x13e88…13ec2               Head {h00=0x0036, h01=0x0050, text=»*  EXIT:  A2 - NUMBER OF CHARACTERS IN BLOCK     *«, t00=0x00cb, t01=0x0180}
0x13ec2…13efc               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x00cc, t01=0x002a}
0x13efc…13f3a               Head {h00=0x003a, h01=0x0050, text=»*  WORK REGISTERS: A1,A2,A3,A4,A5                   * «, t00=0x00cc, t01=0x0064}
0x13f3a…13f74               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x00cc, t01=0x00a2}
0x13f74…13fae               Head {h00=0x0036, h01=0x0050, text=»*  SUBROUTINES:                                  *«, t00=0x00cc, t01=0x00dc}
0x13fae…13fe8               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x00cc, t01=0x0116}
0x13fe8…13ffc               Head {h00=0x0010, h01=0x0050, text=»RDBLK EQU * «, t00=0x00cc, t01=0x0150}
0x13ffc…1400e               Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x00cc, t01=0x0164}
0x1400e…14022               Head {h00=0x0010, h01=0x0050, text=»RDB:10 EQU *«, t00=0x00cc, t01=0x0176}
0x14022…14044               Head {h00=0x001e, h01=0x0050, text=» LDR A3,A9 START OF BUFFER«, t00=0x00cc, t01=0x018a}
0x14044…1406e               Head {h00=0x0026, h01=0x0050, text=» LDK A2,0 RESET CHARACTER COUNTER «, t00=0x00cd, t01=0x001c}
0x1406e…14096               Head {h00=0x0024, h01=0x0050, text=» LDR A4,A3 SAVE START OF BUFFER «, t00=0x00cd, t01=0x0046}
0x14096…140ba               Head {h00=0x0020, h01=0x0050, text=» ADKL A3,CBLEN END OF BUFFER«, t00=0x00cd, t01=0x006e}
0x140ba…140cc               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/A«, t00=0x00cd, t01=0x0092}
0x140cc…140ee               Head {h00=0x001e, h01=0x0050, text=» CIO A1,1,CHCR READ BLOCK «, t00=0x00cd, t01=0x00a4}
0x140ee…14104               Head {h00=0x0012, h01=0x0050, text=» RF(NA) RDERR3«, t00=0x00cd, t01=0x00c6}
0x14104…14118               Head {h00=0x0010, h01=0x0050, text=»RDB:20 EQU *«, t00=0x00cd, t01=0x00dc}
0x14118…1412e               Head {h00=0x0012, h01=0x0050, text=» INR A1,0,CHCR«, t00=0x00cd, t01=0x00f0}
0x1412e…14144               Head {h00=0x0012, h01=0x0050, text=» RF(NA) RDB:30«, t00=0x00cd, t01=0x0106}
0x14144…14166               Head {h00=0x001e, h01=0x0050, text=» CWR A4,A3 END OF BUFFER? «, t00=0x00cd, t01=0x011c}
0x14166…14180               Head {h00=0x0016, h01=0x0050, text=» RF(E) RDERR YES! «, t00=0x00cd, t01=0x013e}
0x14180…141a2               Head {h00=0x001e, h01=0x0050, text=» SCR A1,A4 STORE CHARACTER«, t00=0x00cd, t01=0x0158}
0x141a2…141d0               Head {h00=0x002a, h01=0x0050, text=» ADK A2,1 INCREMENT CHARACTER COUNTER «, t00=0x00cd, t01=0x017a}
0x141d0…141fa               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x00ce, t01=0x0018}
0x141fa…1420e               Head {h00=0x0010, h01=0x0050, text=»RDB:30 EQU *«, t00=0x00ce, t01=0x0042}
0x1420e…14224               Head {h00=0x0012, h01=0x0050, text=» SST A1,CHCR  «, t00=0x00ce, t01=0x0056}
0x14224…1423a               Head {h00=0x0012, h01=0x0050, text=» RB(NA) RDB:20«, t00=0x00ce, t01=0x006c}
0x1423a…1425e               Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FCFF CHECK STATUS «, t00=0x00ce, t01=0x0082}
0x1425e…1427c               Head {h00=0x001a, h01=0x0050, text=» LDR A4,A1 SAVE STATUS«, t00=0x00ce, t01=0x00a6}
0x1427c…14294               Head {h00=0x0014, h01=0x0050, text=» RF(Z) RDBEX OK «, t00=0x00ce, t01=0x00c4}
0x14294…142b8               Head {h00=0x0020, h01=0x0050, text=» SLC A4,3 CHECK IF TAPEMARK «, t00=0x00ce, t01=0x00dc}
0x142b8…142dc               Head {h00=0x0020, h01=0x0050, text=» RF(N) RDBEX OK IF TAPEMARK «, t00=0x00ce, t01=0x0100}
0x142dc…142f0               Head {h00=0x0010, h01=0x0050, text=»RDERR EQU * «, t00=0x00ce, t01=0x0124}
0x142f0…142fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x0138}
0x142fa…1433a               Head {h00=0x003c, h01=0x0050, text=»*  READ ERROR HAS OCCURRED: MAKE ANOTHER ATTEMPT TO READ«, t00=0x00ce, t01=0x0142}
0x1433a…1437c               Head {h00=0x003e, h01=0x0050, text=»*  THE SAME BLOCK IF NOT 3 ATTEMPTS ALREADY HAS BEEN MADE «, t00=0x00ce, t01=0x0182}
0x1437c…14386               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cf, t01=0x0034}
0x14386…143a4               Head {h00=0x001a, h01=0x0050, text=» ADK A5,1 NEXT ATTEMPT«, t00=0x00cf, t01=0x003e}
0x143a4…143c4               Head {h00=0x001c, h01=0x0050, text=» CWK A5,3 THIRD ATTEMPT?«, t00=0x00cf, t01=0x005c}
0x143c4…143e8               Head {h00=0x0020, h01=0x0050, text=» RF(E) RDERR3 YES - GIVE UP!«, t00=0x00cf, t01=0x007c}
0x143e8…1440c               Head {h00=0x0020, h01=0x0050, text=» LDK A1,/E REVERSE ONE BLOCK«, t00=0x00cf, t01=0x00a0}
0x1440c…14430               Head {h00=0x0020, h01=0x0050, text=» CIO A1,1,CHCR EXECUTE ORDER«, t00=0x00cf, t01=0x00c4}
0x14430…14458               Head {h00=0x0024, h01=0x0050, text=» RB(NA) *-2 LOOP UNTIL ACCEPTED «, t00=0x00cf, t01=0x00e8}
0x14458…1446a               Head {h00=0x000e, h01=0x0050, text=» RB RDB:10«, t00=0x00cf, t01=0x0110}
0x1446a…1447e               Head {h00=0x0010, h01=0x0050, text=»RDERR3 EQU *«, t00=0x00cf, t01=0x0122}
0x1447e…14494               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x00cf, t01=0x0136}
0x14494…144a8               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00cf, t01=0x014c}
0x144a8…144bc               Head {h00=0x0010, h01=0x0050, text=»RDBEX EQU * «, t00=0x00cf, t01=0x0160}
0x144bc…144cc               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00cf, t01=0x0174}
0x144cc…144d8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cf, t01=0x0184}
0x144d8…144ec               Head {h00=0x0010, h01=0x0050, text=» IFT DISC=1 «, t00=0x00cf, t01=0x0190}
0x144ec…144fa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d0, t01=0x0014}
0x144fa…14526               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00d0, t01=0x0022}
0x14526…14552               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00d0, t01=0x004e}
0x14552…1457e               Head {h00=0x0028, h01=0x0050, text=»*  DUINIT - INITIALIZE DISC UNIT  * «, t00=0x00d0, t01=0x007a}
0x1457e…145aa               Head {h00=0x0028, h01=0x0050, text=»*  =============================  * «, t00=0x00d0, t01=0x00a6}
0x145aa…145d6               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00d0, t01=0x00d2}
0x145d6…14602               Head {h00=0x0028, h01=0x0050, text=»*  REFERENCED IN: SYSLOD,GETFIL   * «, t00=0x00d0, t01=0x00fe}
0x14602…1462e               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00d0, t01=0x012a}
0x1462e…1465a               Head {h00=0x0028, h01=0x0050, text=»*  ENTRY: A1 - DEVICE ADDRESS     * «, t00=0x00d0, t01=0x0156}
0x1465a…14686               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00d0, t01=0x0182}
0x14686…146b2               Head {h00=0x0028, h01=0x0050, text=»*  EXIT:                          * «, t00=0x00d1, t01=0x001e}
0x146b2…146de               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00d1, t01=0x004a}
0x146de…1470c               Head {h00=0x002a, h01=0x0050, text=»*  WORK REGISTERS: A2,A3             *«, t00=0x00d1, t01=0x0076}
0x1470c…14738               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00d1, t01=0x00a4}
0x14738…14764               Head {h00=0x0028, h01=0x0050, text=»*  SUBROUTINES:                   * «, t00=0x00d1, t01=0x00d0}
0x14764…14790               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00d1, t01=0x00fc}
0x14790…147bc               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00d1, t01=0x0128}
0x147bc…147c4               Head {h00=0x0004, h01=0x0050, t00=0x00d1, t01=0x0154}
0x147c4…147d8               Head {h00=0x0010, h01=0x0050, text=»DUINIT EQU *«, t00=0x00d1, t01=0x015c}
0x147d8…14806               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,RDSEC2 GET SUBROUTINE ADDRESS«, t00=0x00d1, t01=0x0170}
0x14806…14828               Head {h00=0x001e, h01=0x0050, text=» LDR A5,A1 SAVE FILE CODE «, t00=0x00d2, t01=0x000e}
0x14828…14836               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d2, t01=0x0030}
0x14836…14840               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x003e}
0x14840…14868               Head {h00=0x0024, h01=0x0050, text=»* INIT DISC COMMANDS VERSION A2 «, t00=0x00d2, t01=0x0048}
0x14868…14872               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d2, t01=0x0070}
0x14872…148a2               Head {h00=0x002c, h01=0x0050, text=» ORKL A1,CIO+8 CONF. CIO A1,1,XX INSTR. «, t00=0x00d2, t01=0x007a}
0x148a2…148b8               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEK20 «, t00=0x00d2, t01=0x00aa}
0x148b8…148e4               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A1,XX INSTR. «, t00=0x00d2, t01=0x00c0}
0x148e4…148fa               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEK21 «, t00=0x00d2, t01=0x00ec}
0x148fa…14928               Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/B00 FORM CIO A2,1,XX INSTR. «, t00=0x00d2, t01=0x0102}
0x14928…1493e               Head {h00=0x0012, h01=0x0050, text=» ST A1,READ21 «, t00=0x00d2, t01=0x0130}
0x1493e…14968               Head {h00=0x0026, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX INSTR«, t00=0x00d2, t01=0x0146}
0x14968…1497e               Head {h00=0x0012, h01=0x0050, text=» ST A1,READ22 «, t00=0x00d2, t01=0x0170}
0x1497e…149ac               Head {h00=0x002a, h01=0x0050, text=» ST A2,READ INIT SUBROUTINE ADDRESSES «, t00=0x00d2, t01=0x0186}
0x149ac…149c0               Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x00d3, t01=0x0024}
0x149c0…149d2               Head {h00=0x000e, h01=0x0050, text=» LDK A2,4 «, t00=0x00d3, t01=0x0038}
0x149d2…149fa               Head {h00=0x0024, h01=0x0050, text=» XRS A2,CRCCHK DISCARD CRC CHECK«, t00=0x00d3, t01=0x004a}
0x149fa…14a22               Head {h00=0x0024, h01=0x0050, text=» CF A14,GETVLB GET VOLUME LABEL «, t00=0x00d3, t01=0x0072}
0x14a22…14a34               Head {h00=0x000e, h01=0x0050, text=» LDK A2,4 «, t00=0x00d3, t01=0x009a}
0x14a34…14a58               Head {h00=0x0020, h01=0x0050, text=» ORS A2,CRCCHK SET CRC CHECK«, t00=0x00d3, t01=0x00ac}
0x14a58…14a7c               Head {h00=0x0020, h01=0x0050, text=» LC A2,FORDEV,A9 GET FORMAT «, t00=0x00d3, t01=0x00d0}
0x14a7c…14a8e               Head {h00=0x000e, h01=0x0050, text=» ANK A2,1 «, t00=0x00d3, t01=0x00f4}
0x14a8e…14aae               Head {h00=0x001c, h01=0x0050, text=» RF(Z) DUI:50 FORMAT A2 «, t00=0x00d3, t01=0x0106}
0x14aae…14ab8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x0126}
0x14ab8…14ade               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A5 RESTORE FILE  CODE «, t00=0x00d3, t01=0x0130}
0x14ade…14b0c               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,RDSEC3 GET SUBROUTINE ADDRESS«, t00=0x00d3, t01=0x0156}
0x14b0c…14b16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x0184}
0x14b16…14b3e               Head {h00=0x0024, h01=0x0050, text=»* INIT DISC COMMANDS VERSION A3 «, t00=0x00d3, t01=0x018e}
0x14b3e…14b48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x0026}
0x14b48…14b78               Head {h00=0x002c, h01=0x0050, text=» LDKL A3,DKBA3 BUFFER LENGTH VERSION A3 «, t00=0x00d4, t01=0x0030}
0x14b78…14ba6               Head {h00=0x002a, h01=0x0050, text=» ST A3,SAVCON BUFFER LENGTH VERSION A3«, t00=0x00d4, t01=0x0060}
0x14ba6…14bbc               Head {h00=0x0012, h01=0x0050, text=» ORKL A1,CIO+8«, t00=0x00d4, t01=0x008e}
0x14bbc…14bec               Head {h00=0x002c, h01=0x0050, text=» XRKL A1,/500 CONFIG. CIO A4,1,XX INSTR.«, t00=0x00d4, t01=0x00a4}
0x14bec…14c02               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEK30 «, t00=0x00d4, t01=0x00d4}
0x14c02…14c2e               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A4,XX INSTR. «, t00=0x00d4, t01=0x00ea}
0x14c2e…14c44               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEK31 «, t00=0x00d4, t01=0x0116}
0x14c44…14c72               Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/E00 FORM CIO A2,1,XX INSTR. «, t00=0x00d4, t01=0x012c}
0x14c72…14c88               Head {h00=0x0012, h01=0x0050, text=» ST A1,READ30 «, t00=0x00d4, t01=0x015a}
0x14c88…14cb4               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX INSTR. «, t00=0x00d4, t01=0x0170}
0x14cb4…14cca               Head {h00=0x0012, h01=0x0050, text=» ST A1,READ31 «, t00=0x00d5, t01=0x000c}
0x14cca…14cd4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x0022}
0x14cd4…14cf8               Head {h00=0x0020, h01=0x0050, text=»*  INIT SUBROUTINE ADDRESSES«, t00=0x00d5, t01=0x002c}
0x14cf8…14d02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x0050}
0x14d02…14d28               Head {h00=0x0022, h01=0x0050, text=»DUI:40 ST A2,READ READ PROGRAM«, t00=0x00d5, t01=0x005a}
0x14d28…14d54               Head {h00=0x0028, h01=0x0050, text=» ST A2,READS READ CONFIGURATION DATA«, t00=0x00d5, t01=0x0080}
0x14d54…14d68               Head {h00=0x0010, h01=0x0050, text=»DUI:50 EQU *«, t00=0x00d5, t01=0x00ac}
0x14d68…14d78               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00d5, t01=0x00c0}
0x14d78…14d86               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d5, t01=0x00d0}
0x14d86…14dbe               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00d5, t01=0x00de}
0x14dbe…14df6               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d5, t01=0x0116}
0x14df6…14e2e               Head {h00=0x0034, h01=0x0050, text=»*  RDSEC - READ ONE SECTOR FROM DISC          * «, t00=0x00d5, t01=0x014e}
0x14e2e…14e66               Head {h00=0x0034, h01=0x0050, text=»*  =================================          * «, t00=0x00d5, t01=0x0186}
0x14e66…14e9e               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d6, t01=0x002e}
0x14e9e…14ed6               Head {h00=0x0034, h01=0x0050, text=»*  REFERENCED IN: SYSLOD                      * «, t00=0x00d6, t01=0x0066}
0x14ed6…14f0e               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d6, t01=0x009e}
0x14f0e…14f34               Head {h00=0x0022, h01=0x0050, text=»*  ENTRY:  A9 = BUFFER ADDRESS«, t00=0x00d6, t01=0x00d6}
0x14f34…14f6c               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d6, t01=0x00fc}
0x14f6c…14fa4               Head {h00=0x0034, h01=0x0050, text=»*         A11 - SECTOR NUMBER                 * «, t00=0x00d6, t01=0x0134}
0x14fa4…14fdc               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d6, t01=0x016c}
0x14fdc…15014               Head {h00=0x0034, h01=0x0050, text=»*  EXIT:                                      * «, t00=0x00d7, t01=0x0014}
0x15014…1504c               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d7, t01=0x004c}
0x1504c…15078               Head {h00=0x0028, h01=0x0050, text=»*   WORK REGISTERS:  A1,A2,A3,A4,A7 «, t00=0x00d7, t01=0x0084}
0x15078…150b0               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d7, t01=0x00b0}
0x150b0…150e8               Head {h00=0x0034, h01=0x0050, text=»*  SUBROUTINES:  ERROR                        * «, t00=0x00d7, t01=0x00e8}
0x150e8…15120               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d7, t01=0x0120}
0x15120…15158               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00d7, t01=0x0158}
0x15158…15162               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x0190}
0x15162…15170               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d8, t01=0x000a}
0x15170…1517a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x0018}
0x1517a…151a0               Head {h00=0x0022, h01=0x0050, text=»* READ DISC SECTOR VERSION A2 «, t00=0x00d8, t01=0x0022}
0x151a0…151aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x0048}
0x151aa…151be               Head {h00=0x0010, h01=0x0050, text=»RDSEC2 EQU *«, t00=0x00d8, t01=0x0052}
0x151be…151d0               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x00d8, t01=0x0066}
0x151d0…151fe               Head {h00=0x002a, h01=0x0050, text=» LDR A1,A11 GET LOGICAL SECTOR NUMBER «, t00=0x00d8, t01=0x0078}
0x151fe…15212               Head {h00=0x0010, h01=0x0050, text=»DIV200 EQU *«, t00=0x00d8, t01=0x00a6}
0x15212…15224               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x00d8, t01=0x00ba}
0x15224…15236               Head {h00=0x000e, h01=0x0050, text=» SRL A1,5 «, t00=0x00d8, t01=0x00cc}
0x15236…15262               Head {h00=0x0028, h01=0x0050, text=» RB(NZ) DIV200 MORE IN SERIE TO ADD «, t00=0x00d8, t01=0x00de}
0x15262…15274               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x00d8, t01=0x010a}
0x15274…1528a               Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FFE0«, t00=0x00d8, t01=0x011c}
0x1528a…1529c               Head {h00=0x000e, h01=0x0050, text=» SRL A2,5 «, t00=0x00d8, t01=0x0132}
0x1529c…152ae               Head {h00=0x000e, h01=0x0050, text=» SUR A1,A2«, t00=0x00d8, t01=0x0144}
0x152ae…152c2               Head {h00=0x0010, h01=0x0050, text=» SUR A1,A11 «, t00=0x00d8, t01=0x0156}
0x152c2…152d4               Head {h00=0x000e, h01=0x0050, text=» ADK A1,31«, t00=0x00d8, t01=0x016a}
0x152d4…15302               Head {h00=0x002a, h01=0x0050, text=» RF(P) DIV210 NO CORRECTION OF RESULT «, t00=0x00d8, t01=0x017c}
0x15302…15314               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x00d9, t01=0x001a}
0x15314…15328               Head {h00=0x0010, h01=0x0050, text=»DIV210 EQU *«, t00=0x00d9, t01=0x002c}
0x15328…1535a               Head {h00=0x002e, h01=0x0050, text=» LDR A2,A2 A2:=CYL NBR = LOG SEC NBR / 31 «, t00=0x00d9, t01=0x0040}
0x1535a…1537a               Head {h00=0x001c, h01=0x0050, text=» RF(Z) DIV220 CYLINDER 0«, t00=0x00d9, t01=0x0072}
0x1537a…1538c               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x00d9, t01=0x0092}
0x1538c…153a0               Head {h00=0x0010, h01=0x0050, text=»DIV220 EQU *«, t00=0x00d9, t01=0x00a4}
0x153a0…153d8               Head {h00=0x0034, h01=0x0050, text=» ADR A2,A11 A2:=PHYS. SEC NBR BEFORE INTERLACING«, t00=0x00d9, t01=0x00b8}
0x153d8…153e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x00f0}
0x153e2…153f4               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x00d9, t01=0x00fa}
0x153f4…15406               Head {h00=0x000e, h01=0x0050, text=» SRL A1,5 «, t00=0x00d9, t01=0x010c}
0x15406…1541c               Head {h00=0x0012, h01=0x0050, text=» CW A1,CYLNBR «, t00=0x00d9, t01=0x011e}
0x1541c…15446               Head {h00=0x0026, h01=0x0050, text=» RF(E) INT200 SAME CYLINDER NUMBER«, t00=0x00d9, t01=0x0134}
0x15446…1545c               Head {h00=0x0012, h01=0x0050, text=» ST A1,CYLNBR «, t00=0x00d9, t01=0x015e}
0x1545c…1546e               Head {h00=0x000e, h01=0x0050, text=» SLL A1,3 «, t00=0x00d9, t01=0x0174}
0x1546e…1548a               Head {h00=0x0018, h01=0x0050, text=» ORK A1,2 SET BIT 14«, t00=0x00d9, t01=0x0186}
0x1548a…15498               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00da, t01=0x0012}
0x15498…154a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x0020}
0x154a2…154ba               Head {h00=0x0014, h01=0x0050, text=»* SEEK CYLINDER «, t00=0x00da, t01=0x002a}
0x154ba…154c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x0042}
0x154c4…154de               Head {h00=0x0016, h01=0x0050, text=»SEEK20 CIO A1,1,0 «, t00=0x00da, t01=0x004c}
0x154de…154f4               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEK20«, t00=0x00da, t01=0x0066}
0x154f4…154fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x007c}
0x154fe…15516               Head {h00=0x0014, h01=0x0050, text=»SEEK21 SST A1,0 «, t00=0x00da, t01=0x0086}
0x15516…1552c               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEK21«, t00=0x00da, t01=0x009e}
0x1552c…15536               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x00b4}
0x15536…1554c               Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x00da, t01=0x00be}
0x1554c…15556               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x00d4}
0x15556…1556a               Head {h00=0x0010, h01=0x0050, text=»INT200 EQU *«, t00=0x00da, t01=0x00de}
0x1556a…1557c               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x00da, t01=0x00f2}
0x1557c…1558e               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x00da, t01=0x0104}
0x1558e…155b6               Head {h00=0x0024, h01=0x0050, text=» ADR A2,A1 INTERLACING FACTOR 3 «, t00=0x00da, t01=0x0116}
0x155b6…155ca               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x00da, t01=0x013e}
0x155ca…155f4               Head {h00=0x0026, h01=0x0050, text=» LD A1,CYLNBR GET CYLINDER NUMBER «, t00=0x00da, t01=0x0152}
0x155f4…15606               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x00da, t01=0x017c}
0x15606…1562a               Head {h00=0x0020, h01=0x0050, text=» RF(Z) INT210 EVEN CYLINDER «, t00=0x00da, t01=0x018e}
0x1562a…1563c               Head {h00=0x000e, h01=0x0050, text=» ADK A2,8 «, t00=0x00db, t01=0x0022}
0x1563c…15650               Head {h00=0x0010, h01=0x0050, text=»INT210 EQU *«, t00=0x00db, t01=0x0034}
0x15650…15664               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x00db, t01=0x0048}
0x15664…15694               Head {h00=0x002c, h01=0x0050, text=» SLL A2,2 PHYSICAL SECTOR AND ORDER CODE«, t00=0x00db, t01=0x005c}
0x15694…156aa               Head {h00=0x0012, h01=0x0050, text=» ST A2,SECNBR «, t00=0x00db, t01=0x008c}
0x156aa…156b8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00db, t01=0x00a2}
0x156b8…156c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x00b0}
0x156c2…156d8               Head {h00=0x0012, h01=0x0050, text=»* READ SECTOR «, t00=0x00db, t01=0x00ba}
0x156d8…156e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x00d0}
0x156e2…15704               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 BUFFER ADDRESS «, t00=0x00db, t01=0x00da}
0x15704…15730               Head {h00=0x0028, h01=0x0050, text=»READ20 LDKL A4,MUXCC NUMBER OF WORDS«, t00=0x00db, t01=0x00fc}
0x15730…15760               Head {h00=0x002c, h01=0x0050, text=»WERIO2 WER A4,/10 WRITE NUMBER OF WORDS «, t00=0x00db, t01=0x0128}
0x15760…15788               Head {h00=0x0024, h01=0x0050, text=» WER A1,/11 WRITE BUFFER ADDRESS«, t00=0x00db, t01=0x0158}
0x15788…157ae               Head {h00=0x0022, h01=0x0050, text=»READ21 CIO A2,1,0 READ SECTOR «, t00=0x00db, t01=0x0180}
0x157ae…157d8               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READ21 LOOP UNTIL ACCEPTED«, t00=0x00dc, t01=0x0016}
0x157d8…157f6               Head {h00=0x001a, h01=0x0050, text=»READ22 SST A2,0 STATUS«, t00=0x00dc, t01=0x0040}
0x157f6…15820               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READ22 LOOP UNTIL ACCEPTED«, t00=0x00dc, t01=0x005e}
0x15820…15834               Head {h00=0x0010, h01=0x0050, text=»CRCCHK EQU *«, t00=0x00dc, t01=0x0088}
0x15834…1584e               Head {h00=0x0016, h01=0x0050, text=» ANK A2,/1F STATUS«, t00=0x00dc, t01=0x009c}
0x1584e…15872               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DUERR READING ERROR «, t00=0x00dc, t01=0x00b6}
0x15872…1589e               Head {h00=0x0028, h01=0x0050, text=» ADKL A11,1 INCREMENT SECTOR COUNTER«, t00=0x00dc, t01=0x00da}
0x1589e…158ae               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00dc, t01=0x0106}
0x158ae…158bc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00dc, t01=0x0116}
0x158bc…158c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x0124}
0x158c6…158ec               Head {h00=0x0022, h01=0x0050, text=»* READ DISC SECTOR VERSION A3 «, t00=0x00dc, t01=0x012e}
0x158ec…158f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x0154}
0x158f6…1590a               Head {h00=0x0010, h01=0x0050, text=»RDSEC3 EQU *«, t00=0x00dc, t01=0x015e}
0x1590a…1591c               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x00dc, t01=0x0172}
0x1591c…1594a               Head {h00=0x002a, h01=0x0050, text=» LDR A1,A11 GET LOGICAL SECTOR NUMBER «, t00=0x00dc, t01=0x0184}
0x1594a…15960               Head {h00=0x0012, h01=0x0050, text=» LDKL A7,/1000«, t00=0x00dd, t01=0x0022}
0x15960…15976               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/3000«, t00=0x00dd, t01=0x0038}
0x15976…1598a               Head {h00=0x0010, h01=0x0050, text=»DIV300 EQU *«, t00=0x00dd, t01=0x004e}
0x1598a…1599c               Head {h00=0x000e, h01=0x0050, text=» SUR A1,A4«, t00=0x00dd, t01=0x0062}
0x1599c…159b2               Head {h00=0x0012, h01=0x0050, text=» RF(N) DIV310 «, t00=0x00dd, t01=0x0074}
0x159b2…159c4               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A7«, t00=0x00dd, t01=0x008a}
0x159c4…159d6               Head {h00=0x000e, h01=0x0050, text=» RB DIV300«, t00=0x00dd, t01=0x009c}
0x159d6…159ea               Head {h00=0x0010, h01=0x0050, text=»DIV310 EQU *«, t00=0x00dd, t01=0x00ae}
0x159ea…15a0c               Head {h00=0x001e, h01=0x0050, text=» ADR A1,A4 ADJUST DIVIDEND«, t00=0x00dd, t01=0x00c2}
0x15a0c…15a1e               Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x00dd, t01=0x00e4}
0x15a1e…15a30               Head {h00=0x000e, h01=0x0050, text=» SRL A7,4 «, t00=0x00dd, t01=0x00f6}
0x15a30…15a46               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DIV300«, t00=0x00dd, t01=0x0108}
0x15a46…15a58               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x00dd, t01=0x011e}
0x15a58…15a62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x0130}
0x15a62…15a74               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x00dd, t01=0x013a}
0x15a74…15a8a               Head {h00=0x0012, h01=0x0050, text=» ST A1,SAVMEM «, t00=0x00dd, t01=0x014c}
0x15a8a…15ac4               Head {h00=0x0036, h01=0x0050, text=» RF(NP) CASE10 ,XXXX  ,      , OR ,    XX,XX    , «, t00=0x00dd, t01=0x0162}
0x15ac4…15ae6               Head {h00=0x001e, h01=0x0050, text=» ADK A2,1 ,      ,  XXXX, «, t00=0x00de, t01=0x000c}
0x15ae6…15afa               Head {h00=0x0010, h01=0x0050, text=»CASE10 EQU *«, t00=0x00de, t01=0x002e}
0x15afa…15b0c               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x00de, t01=0x0042}
0x15b0c…15b1e               Head {h00=0x000e, h01=0x0050, text=» SRL A4,5 «, t00=0x00de, t01=0x0054}
0x15b1e…15b34               Head {h00=0x0012, h01=0x0050, text=» CW A4,CYLNBR «, t00=0x00de, t01=0x0066}
0x15b34…15b4a               Head {h00=0x0012, h01=0x0050, text=» RF(E) INT300 «, t00=0x00de, t01=0x007c}
0x15b4a…15b7a               Head {h00=0x002c, h01=0x0050, text=» ST A4,CYLNBR STORE NEW CYLINDER NUMBER «, t00=0x00de, t01=0x0092}
0x15b7a…15b8c               Head {h00=0x000e, h01=0x0050, text=» SLL A4,3 «, t00=0x00de, t01=0x00c2}
0x15b8c…15ba8               Head {h00=0x0018, h01=0x0050, text=» ORK A4,2 SET BIT 14«, t00=0x00de, t01=0x00d4}
0x15ba8…15bb6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00de, t01=0x00f0}
0x15bb6…15bc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x00fe}
0x15bc0…15bd8               Head {h00=0x0014, h01=0x0050, text=»* SEEK CYLINDER «, t00=0x00de, t01=0x0108}
0x15bd8…15be2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x0120}
0x15be2…15bfc               Head {h00=0x0016, h01=0x0050, text=»SEEK30 CIO A4,1,0 «, t00=0x00de, t01=0x012a}
0x15bfc…15c12               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEK30«, t00=0x00de, t01=0x0144}
0x15c12…15c1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00de, t01=0x015a}
0x15c1c…15c3e               Head {h00=0x001e, h01=0x0050, text=»SEEK31 SST A4,0 GET STATUS«, t00=0x00de, t01=0x0164}
0x15c3e…15c54               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEK31«, t00=0x00de, t01=0x0186}
0x15c54…15c5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x000c}
0x15c5e…15c74               Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x00df, t01=0x0016}
0x15c74…15c7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x002c}
0x15c7e…15c92               Head {h00=0x0010, h01=0x0050, text=»INT300 EQU *«, t00=0x00df, t01=0x0036}
0x15c92…15ca4               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x00df, t01=0x004a}
0x15ca4…15cb6               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x00df, t01=0x005c}
0x15cb6…15cde               Head {h00=0x0024, h01=0x0050, text=» ADR A2,A3 INTERLACING FACTOR 3 «, t00=0x00df, t01=0x006e}
0x15cde…15cf2               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x00df, t01=0x0096}
0x15cf2…15d1c               Head {h00=0x0026, h01=0x0050, text=» LD A4,CYLNBR GET CYLINDER NUMBER «, t00=0x00df, t01=0x00aa}
0x15d1c…15d2e               Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x00df, t01=0x00d4}
0x15d2e…15d58               Head {h00=0x0026, h01=0x0050, text=» RF(Z) INT310 EVEN CYLINDER NUMBER«, t00=0x00df, t01=0x00e6}
0x15d58…15d7e               Head {h00=0x0022, h01=0x0050, text=» ADK A2,8 SKEW FACTOR 180 DEG.«, t00=0x00df, t01=0x0110}
0x15d7e…15d88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x0136}
0x15d88…15d9c               Head {h00=0x0010, h01=0x0050, text=»INT310 EQU *«, t00=0x00df, t01=0x0140}
0x15d9c…15db0               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x00df, t01=0x0154}
0x15db0…15dda               Head {h00=0x0026, h01=0x0050, text=» SLL A2,2 INTERLACED SECTOR NUMBER«, t00=0x00df, t01=0x0168}
0x15dda…15e0c (224, 0, 400) Head {h00=0x002e, h01=0x0050, text=» ST A2,SECNBR STORE PHYSICAL SECTOR NUMBER«, t00=0x00e0, t01=0x0004}
0x15e0c…15e1a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e0, t01=0x0036}
0x15e1a…15e24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x0044}
0x15e24…15e3a               Head {h00=0x0012, h01=0x0050, text=»* READ SECTOR «, t00=0x00e0, t01=0x004e}
0x15e3a…15e44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x0064}
0x15e44…15e66               Head {h00=0x001e, h01=0x0050, text=» LDR A7,A9 BUFFER ADDRESS «, t00=0x00e0, t01=0x006e}
0x15e66…15e94               Head {h00=0x002a, h01=0x0050, text=»READ34 LDKL A4,MXCCD3 NUMBER OF WORDS «, t00=0x00e0, t01=0x0090}
0x15e94…15ec4               Head {h00=0x002c, h01=0x0050, text=»WERIO3 WER A4,/10 WRITE NUMBER OF WORDS «, t00=0x00e0, t01=0x00be}
0x15ec4…15eec               Head {h00=0x0024, h01=0x0050, text=» WER A7,/11 WRITE BUFFER ADDRESS«, t00=0x00e0, t01=0x00ee}
0x15eec…15ef6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x0116}
0x15ef6…15f1c               Head {h00=0x0022, h01=0x0050, text=»READ30 CIO A2,1,0 READ SECTOR «, t00=0x00e0, t01=0x0120}
0x15f1c…15f46               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READ30 LOOP UNTIL ACCEPTED«, t00=0x00e0, t01=0x0146}
0x15f46…15f50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e0, t01=0x0170}
0x15f50…15f72               Head {h00=0x001e, h01=0x0050, text=»READ31 SST A2,0 GET STATUS«, t00=0x00e0, t01=0x017a}
0x15f72…15f9c               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READ31 LOOP UNTIL ACCEPTED«, t00=0x00e1, t01=0x000c}
0x15f9c…15fb6               Head {h00=0x0016, h01=0x0050, text=» ANK A2,/1F STATUS«, t00=0x00e1, t01=0x0036}
0x15fb6…15fda               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DUERR READING ERROR «, t00=0x00e1, t01=0x0050}
0x15fda…15ffc               Head {h00=0x001e, h01=0x0050, text=» LDR A2,A9 BUFFER ADDRESS «, t00=0x00e1, t01=0x0074}
0x15ffc…1600e               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x00e1, t01=0x0096}
0x1600e…16034               Head {h00=0x0022, h01=0x0050, text=» RF(N) RETURN ,XXXX  ,      , «, t00=0x00e1, t01=0x00a8}
0x16034…1605a               Head {h00=0x0022, h01=0x0050, text=» RF(P) READ33 ,      ,  XXXX, «, t00=0x00e1, t01=0x00ce}
0x1605a…1607e               Head {h00=0x0020, h01=0x0050, text=» ADKL A2,256 SOURCE POINTER «, t00=0x00e1, t01=0x00f4}
0x1607e…160a8               Head {h00=0x0026, h01=0x0050, text=» LDK A4,64 NUMBER OF WORDS TO MOVE«, t00=0x00e1, t01=0x0118}
0x160a8…160cc               Head {h00=0x0020, h01=0x0050, text=»READ32 EQU * ,    XX,XX    ,«, t00=0x00e1, t01=0x0142}
0x160cc…160e0               Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A2 «, t00=0x00e1, t01=0x0166}
0x160e0…160f2               Head {h00=0x000e, h01=0x0050, text=» STR A1,A7«, t00=0x00e1, t01=0x017a}
0x160f2…16104               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00e1, t01=0x018c}
0x16104…16116               Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x00e2, t01=0x000e}
0x16116…16128               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x00e2, t01=0x0020}
0x16128…1614e               Head {h00=0x0022, h01=0x0050, text=» RB(NZ) READ32 CONTINUE MOVING«, t00=0x00e2, t01=0x0032}
0x1614e…16164               Head {h00=0x0012, h01=0x0050, text=» LD A1,SAVMEM «, t00=0x00e2, t01=0x0058}
0x16164…1617a               Head {h00=0x0012, h01=0x0050, text=» RF(P) RETURN «, t00=0x00e2, t01=0x006e}
0x1617a…161a6               Head {h00=0x0028, h01=0x0050, text=» LD A2,SECNBR PHYSICAL SECTOR NUMBER«, t00=0x00e2, t01=0x0084}
0x161a6…161cc               Head {h00=0x0022, h01=0x0050, text=» ADK A2,/C NEW SECTOR TO READ «, t00=0x00e2, t01=0x00b0}
0x161cc…161e0               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7C «, t00=0x00e2, t01=0x00d6}
0x161e0…161f2               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x00e2, t01=0x00ea}
0x161f2…16204               Head {h00=0x000e, h01=0x0050, text=» RB READ34«, t00=0x00e2, t01=0x00fc}
0x16204…16212               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e2, t01=0x010e}
0x16212…16226               Head {h00=0x0010, h01=0x0050, text=»READ33 EQU *«, t00=0x00e2, t01=0x011c}
0x16226…16248               Head {h00=0x001e, h01=0x0050, text=» ADK A2,128 SOURCE POINTER«, t00=0x00e2, t01=0x0130}
0x16248…16274               Head {h00=0x0028, h01=0x0050, text=» LDK A4,128 NUMBER OF WORDS TO MOVE «, t00=0x00e2, t01=0x0152}
0x16274…16286               Head {h00=0x000e, h01=0x0050, text=» RB READ32«, t00=0x00e2, t01=0x017e}
0x16286…162b8               Head {h00=0x002e, h01=0x0050, text=»RETURN ADKL A11,1 INCREMENT SECTOR NUMBER «, t00=0x00e2, t01=0x0190}
0x162b8…162c8               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00e3, t01=0x0032}
0x162c8…162d0               Head {h00=0x0004, h01=0x0050, t00=0x00e3, t01=0x0042}
0x162d0…162e4               Head {h00=0x0010, h01=0x0050, text=»DUERR EQU * «, t00=0x00e3, t01=0x004a}
0x162e4…162fa               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x00e3, t01=0x005e}
0x162fa…1630e               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00e3, t01=0x0074}
0x1630e…1631a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e3, t01=0x0088}
0x1631a…16330               Head {h00=0x0012, h01=0x0050, text=» IFT MFDISC=1 «, t00=0x00e3, t01=0x0094}
0x16330…1633e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e3, t01=0x00aa}
0x1633e…1637e               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x00e3, t01=0x00b8}
0x1637e…163be               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e3, t01=0x00f8}
0x163be…163fe               Head {h00=0x003c, h01=0x0050, text=»*  MDINIT - INITIALIZE MINI FIXED DISC UNIT            *«, t00=0x00e3, t01=0x0138}
0x163fe…1643e               Head {h00=0x003c, h01=0x0050, text=»*  =======================================             *«, t00=0x00e3, t01=0x0178}
0x1643e…1647e               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e4, t01=0x0028}
0x1647e…164be               Head {h00=0x003c, h01=0x0050, text=»*  REFERENCED IN: SYSLOD,GETFIL                        *«, t00=0x00e4, t01=0x0068}
0x164be…164fe               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e4, t01=0x00a8}
0x164fe…1653e               Head {h00=0x003c, h01=0x0050, text=»*  ENTRY:  A1 = DEVICE ADDRESS                         *«, t00=0x00e4, t01=0x00e8}
0x1653e…1657e               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e4, t01=0x0128}
0x1657e…165be               Head {h00=0x003c, h01=0x0050, text=»*  EXIT:                                               *«, t00=0x00e4, t01=0x0168}
0x165be…165fe               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e5, t01=0x0018}
0x165fe…1663e               Head {h00=0x003c, h01=0x0050, text=»*  WORK REGISTERS:                                     *«, t00=0x00e5, t01=0x0058}
0x1663e…1667e               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e5, t01=0x0098}
0x1667e…166be               Head {h00=0x003c, h01=0x0050, text=»*  SUBROUTINES: ERROR                                  *«, t00=0x00e5, t01=0x00d8}
0x166be…166fe               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e5, t01=0x0118}
0x166fe…1673e               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x00e5, t01=0x0158}
0x1673e…16752               Head {h00=0x0010, h01=0x0050, text=»MDINIT EQU *«, t00=0x00e6, t01=0x0008}
0x16752…1675c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x001c}
0x1675c…16784               Head {h00=0x0024, h01=0x0050, text=»* INIT MINI FIXED DISC COMMANDS «, t00=0x00e6, t01=0x0026}
0x16784…1678e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x004e}
0x1678e…167a2               Head {h00=0x0010, h01=0x0050, text=»MDI:00 EQU *«, t00=0x00e6, t01=0x0058}
0x167a2…167d2               Head {h00=0x002c, h01=0x0050, text=» ORKL A1,CIO CONFIG. CIO A1,1,XX INSTR. «, t00=0x00e6, t01=0x006c}
0x167d2…167e8               Head {h00=0x0012, h01=0x0050, text=» ST A1,READM2 «, t00=0x00e6, t01=0x009c}
0x167e8…16814               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A1,XX INSTR. «, t00=0x00e6, t01=0x00b2}
0x16814…1682a               Head {h00=0x0012, h01=0x0050, text=» ST A1,READM3 «, t00=0x00e6, t01=0x00de}
0x1682a…16858               Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/B00 FORM CIO A2,1,XX INSTR. «, t00=0x00e6, t01=0x00f4}
0x16858…1686e               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKM1 «, t00=0x00e6, t01=0x0122}
0x1686e…1689a               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX INSTR. «, t00=0x00e6, t01=0x0138}
0x1689a…168b0               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKM2 «, t00=0x00e6, t01=0x0164}
0x168b0…168be               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e6, t01=0x017a}
0x168be…168c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x0188}
0x168c8…168f6 (231, 0, 400) Head {h00=0x002a, h01=0x0050, text=» LDKL A2,MRDSEC GET SUBROUTINE ADDRESS«, t00=0x00e7, t01=0x0004}
0x168f6…1690a               Head {h00=0x0010, h01=0x0050, text=» ST A2,READ «, t00=0x00e7, t01=0x0032}
0x1690a…1691e               Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x00e7, t01=0x0046}
0x1691e…1692e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00e7, t01=0x005a}
0x1692e…1693c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e7, t01=0x006a}
0x1693c…1697a               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x00e7, t01=0x0078}
0x1697a…169b8               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e7, t01=0x00b6}
0x169b8…169f6               Head {h00=0x003a, h01=0x0050, text=»*  MRDSEC - READ ONE SECTOR FROM MINI FIXED DISC     *«, t00=0x00e7, t01=0x00f4}
0x169f6…16a34               Head {h00=0x003a, h01=0x0050, text=»*  =============================================     *«, t00=0x00e7, t01=0x0132}
0x16a34…16a72               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e7, t01=0x0170}
0x16a72…16ab0               Head {h00=0x003a, h01=0x0050, text=»*  REFERENCED IN: SYSLOD                             *«, t00=0x00e8, t01=0x001e}
0x16ab0…16aee               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e8, t01=0x005c}
0x16aee…16b2c               Head {h00=0x003a, h01=0x0050, text=»*  ENTRY:  A9 = BUFFER ADDRESS                       *«, t00=0x00e8, t01=0x009a}
0x16b2c…16b6a               Head {h00=0x003a, h01=0x0050, text=»*          A11 = SECTOR NUMBER                       *«, t00=0x00e8, t01=0x00d8}
0x16b6a…16ba8               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e8, t01=0x0116}
0x16ba8…16be6               Head {h00=0x003a, h01=0x0050, text=»*  EXIT:                                             *«, t00=0x00e8, t01=0x0154}
0x16be6…16c24 (233, 0, 400) Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e9, t01=0x0004}
0x16c24…16c62               Head {h00=0x003a, h01=0x0050, text=»*  WORK REGISTERS:                                   *«, t00=0x00e9, t01=0x0042}
0x16c62…16ca0               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e9, t01=0x0080}
0x16ca0…16cde               Head {h00=0x003a, h01=0x0050, text=»*  SUBROUTINES:                                      *«, t00=0x00e9, t01=0x00be}
0x16cde…16d1c               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e9, t01=0x00fc}
0x16d1c…16d5a               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00e9, t01=0x013a}
0x16d5a…16d6e               Head {h00=0x0010, h01=0x0050, text=»MRDSEC EQU *«, t00=0x00e9, t01=0x0178}
0x16d6e…16d94               Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 PREPARE FOR DIVISION«, t00=0x00e9, t01=0x018c}
0x16d94…16dc2               Head {h00=0x002a, h01=0x0050, text=» LDR A2,A11 GET LOGICAL SECTOR NUMBER «, t00=0x00ea, t01=0x0022}
0x16dc2…16de0               Head {h00=0x001a, h01=0x0050, text=» DVK 104 DIVIDE BY 104«, t00=0x00ea, t01=0x0050}
0x16de0…16df2               Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x00ea, t01=0x006e}
0x16df2…16e16               Head {h00=0x0020, h01=0x0050, text=» ORK A2,3 SET BIT 14 AND 15 «, t00=0x00ea, t01=0x0080}
0x16e16…16e20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x00a4}
0x16e20…16e46               Head {h00=0x0022, h01=0x0050, text=»* A1=SECTOR NUMBER ON CYLINDER«, t00=0x00ea, t01=0x00ae}
0x16e46…16e62               Head {h00=0x0018, h01=0x0050, text=»* A2=CYLINDER NUMBER«, t00=0x00ea, t01=0x00d4}
0x16e62…16e6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x00f0}
0x16e6c…16e96               Head {h00=0x0026, h01=0x0050, text=» ST A1,SECNBR STORE SECTOR NUMBER «, t00=0x00ea, t01=0x00fa}
0x16e96…16eac               Head {h00=0x0012, h01=0x0050, text=» CW A2,CYLNBR «, t00=0x00ea, t01=0x0124}
0x16eac…16ed6               Head {h00=0x0026, h01=0x0050, text=» RF(E) INTM10 SAME CYLINDER NUMBER«, t00=0x00ea, t01=0x013a}
0x16ed6…16f02               Head {h00=0x0028, h01=0x0050, text=» ST A2,CYLNBR STORE CYLINDER NUMBER «, t00=0x00ea, t01=0x0164}
0x16f02…16f10               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ea, t01=0x0190}
0x16f10…16f1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00eb, t01=0x000e}
0x16f1a…16f32               Head {h00=0x0014, h01=0x0050, text=»* SEEK CYLINDER «, t00=0x00eb, t01=0x0018}
0x16f32…16f3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00eb, t01=0x0030}
0x16f3c…16f62               Head {h00=0x0022, h01=0x0050, text=»SEEKM1 CIO A2,1,0 SEEK COMMAND«, t00=0x00eb, t01=0x003a}
0x16f62…16f8c               Head {h00=0x0026, h01=0x0050, text=» RB(NA) SEEKM1 LOOP UNTIL ACCEPTED«, t00=0x00eb, t01=0x0060}
0x16f8c…16f96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00eb, t01=0x008a}
0x16f96…16fb8               Head {h00=0x001e, h01=0x0050, text=»SEEKM2 SST A2,0 GET STATUS«, t00=0x00eb, t01=0x0094}
0x16fb8…16fe2               Head {h00=0x0026, h01=0x0050, text=» RB(NA) SEEKM2 WAIT UNTIL ACCEPTED«, t00=0x00eb, t01=0x00b6}
0x16fe2…16fec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00eb, t01=0x00e0}
0x16fec…17002               Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x00eb, t01=0x00ea}
0x17002…1700c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00eb, t01=0x0100}
0x1700c…17020               Head {h00=0x0010, h01=0x0050, text=»INTM10 EQU *«, t00=0x00eb, t01=0x010a}
0x17020…17032               Head {h00=0x000e, h01=0x0050, text=» CWK A1,52«, t00=0x00eb, t01=0x011e}
0x17032…17054               Head {h00=0x001e, h01=0x0050, text=» RF(L) INTM20 SECTOR 0-51 «, t00=0x00eb, t01=0x0130}
0x17054…17074               Head {h00=0x001c, h01=0x0050, text=» SUK A1,52 SECTOR 52-103«, t00=0x00eb, t01=0x0152}
0x17074…17088               Head {h00=0x0010, h01=0x0050, text=»INTM20 EQU *«, t00=0x00eb, t01=0x0172}
0x17088…1709a               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x00eb, t01=0x0186}
0x1709a…170c0               Head {h00=0x0022, h01=0x0050, text=» SLL A2,2 A2:=4*SECTOR NUMBER «, t00=0x00ec, t01=0x0008}
0x170c0…170e6               Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 PREPARE FOR DIVISION«, t00=0x00ec, t01=0x002e}
0x170e6…170f6               Head {h00=0x000c, h01=0x0050, text=» DVK 52 «, t00=0x00ec, t01=0x0054}
0x170f6…17126               Head {h00=0x002c, h01=0x0050, text=» ADR A1,A2 A1:=INTERLACED SECTOR NUMBER «, t00=0x00ec, t01=0x0064}
0x17126…17130               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ec, t01=0x0094}
0x17130…17156               Head {h00=0x0022, h01=0x0050, text=»* A1:=INTERLACED SECTOR NUMBER«, t00=0x00ec, t01=0x009e}
0x17156…17160               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ec, t01=0x00c4}
0x17160…1718a               Head {h00=0x0026, h01=0x0050, text=» LD A2,CYLNBR GET CYLINDER NUMBER «, t00=0x00ec, t01=0x00ce}
0x1718a…1719c               Head {h00=0x000e, h01=0x0050, text=» SRC A2,3 «, t00=0x00ec, t01=0x00f8}
0x1719c…171c8               Head {h00=0x0028, h01=0x0050, text=» RF(NN) INTM30 EVEN CYLINDER NUMBER «, t00=0x00ec, t01=0x010a}
0x171c8…171ea               Head {h00=0x001e, h01=0x0050, text=» SUK A1,26 SKEW FACTOR 26 «, t00=0x00ec, t01=0x0136}
0x171ea…17200               Head {h00=0x0012, h01=0x0050, text=» RF(NN) INTM30«, t00=0x00ec, t01=0x0158}
0x17200…17212               Head {h00=0x000e, h01=0x0050, text=» ADK A1,52«, t00=0x00ec, t01=0x016e}
0x17212…17226               Head {h00=0x0010, h01=0x0050, text=»INTM30 EQU *«, t00=0x00ec, t01=0x0180}
0x17226…17238 (237, 0, 400) Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x00ed, t01=0x0004}
0x17238…17272               Head {h00=0x0036, h01=0x0050, text=» LD A2,SECNBR GET SECTOR NUMBER BEFORE INTERLACING«, t00=0x00ed, t01=0x0016}
0x17272…17284               Head {h00=0x000e, h01=0x0050, text=» CWK A2,52«, t00=0x00ed, t01=0x0050}
0x17284…172a8               Head {h00=0x0020, h01=0x0050, text=» RF(L) INTM40 HEAD NUMBER 0 «, t00=0x00ed, t01=0x0062}
0x172a8…172cc               Head {h00=0x0020, h01=0x0050, text=» ORKL A1,/4000 HEAD NUMBER 1«, t00=0x00ed, t01=0x0086}
0x172cc…172e0               Head {h00=0x0010, h01=0x0050, text=»INTM40 EQU *«, t00=0x00ed, t01=0x00aa}
0x172e0…172ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x00be}
0x172ea…17300               Head {h00=0x0012, h01=0x0050, text=»* READ SECTOR «, t00=0x00ed, t01=0x00c8}
0x17300…1730a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x00de}
0x1730a…1731e               Head {h00=0x0010, h01=0x0050, text=»READM1 EQU *«, t00=0x00ed, t01=0x00e8}
0x1731e…17344               Head {h00=0x0022, h01=0x0050, text=» LDKL A4,MUXCC NUMBER OF WORDS«, t00=0x00ed, t01=0x00fc}
0x17344…17366               Head {h00=0x001e, h01=0x0050, text=» LDR A7,A9 BUFFER ADDRESS «, t00=0x00ed, t01=0x0122}
0x17366…17370               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x0144}
0x17370…1739e               Head {h00=0x002a, h01=0x0050, text=»WERIOM WER A4,8 WRITE NUMBER OF WORDS «, t00=0x00ed, t01=0x014e}
0x1739e…173c4               Head {h00=0x0022, h01=0x0050, text=» WER A7,9 WRITE BUFFER ADDRESS«, t00=0x00ed, t01=0x017c}
0x173c4…173ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x0012}
0x173ce…173f4               Head {h00=0x0022, h01=0x0050, text=»READM2 CIO A1,1,0 READ SECTOR «, t00=0x00ee, t01=0x001c}
0x173f4…1741e               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READM2 LOOP UNTIL ACCEPTED«, t00=0x00ee, t01=0x0042}
0x1741e…17428               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x006c}
0x17428…1744a               Head {h00=0x001e, h01=0x0050, text=»READM3 SST A1,0 GET STATUS«, t00=0x00ee, t01=0x0076}
0x1744a…17474               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READM3 LOOP UNTIL ACCEPTED«, t00=0x00ee, t01=0x0098}
0x17474…1748e               Head {h00=0x0016, h01=0x0050, text=» ANK A1,/1F STATUS«, t00=0x00ee, t01=0x00c2}
0x1748e…174b2               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) MFDERR READING ERROR«, t00=0x00ee, t01=0x00dc}
0x174b2…174de               Head {h00=0x0028, h01=0x0050, text=» ADKL A11,1 INCREMENT SECTOR NUMBER «, t00=0x00ee, t01=0x0100}
0x174de…174ee               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00ee, t01=0x012c}
0x174ee…174f6               Head {h00=0x0004, h01=0x0050, t00=0x00ee, t01=0x013c}
0x174f6…1750a               Head {h00=0x0010, h01=0x0050, text=»MFDERR EQU *«, t00=0x00ee, t01=0x0144}
0x1750a…17520               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x00ee, t01=0x0158}
0x17520…17534               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00ee, t01=0x016e}
0x17534…17540               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ee, t01=0x0182}
0x17540…17556               Head {h00=0x0012, h01=0x0050, text=» IFT FLDISC=1 «, t00=0x00ee, t01=0x018e}
0x17556…17564               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ef, t01=0x0014}
0x17564…1759c               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00ef, t01=0x0022}
0x1759c…175d4               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00ef, t01=0x005a}
0x175d4…1760c               Head {h00=0x0034, h01=0x0050, text=»*  FDINIT - INITIALIZE FLEXIBLE DISC           *«, t00=0x00ef, t01=0x0092}
0x1760c…17644               Head {h00=0x0034, h01=0x0050, text=»*  =================================           *«, t00=0x00ef, t01=0x00ca}
0x17644…1767c               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00ef, t01=0x0102}
0x1767c…176b4               Head {h00=0x0034, h01=0x0050, text=»*  REFERENCED IN: SYSLOD,GETFIL                *«, t00=0x00ef, t01=0x013a}
0x176b4…176ec               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00ef, t01=0x0172}
0x176ec…17724               Head {h00=0x0034, h01=0x0050, text=»*  ENTRY:  A1 - DEVICE ADDRESS                 *«, t00=0x00f0, t01=0x001a}
0x17724…1775c               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00f0, t01=0x0052}
0x1775c…17794               Head {h00=0x0034, h01=0x0050, text=»*  EXIT:                                       *«, t00=0x00f0, t01=0x008a}
0x17794…177cc               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00f0, t01=0x00c2}
0x177cc…17804               Head {h00=0x0034, h01=0x0050, text=»*  WORK REGISTERS:                             *«, t00=0x00f0, t01=0x00fa}
0x17804…1783c               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00f0, t01=0x0132}
0x1783c…17874               Head {h00=0x0034, h01=0x0050, text=»*  SUBROUTINES:                                *«, t00=0x00f0, t01=0x016a}
0x17874…178ac               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00f1, t01=0x0012}
0x178ac…178e4               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00f1, t01=0x004a}
0x178e4…178f8               Head {h00=0x0010, h01=0x0050, text=»FDINIT EQU *«, t00=0x00f1, t01=0x0082}
0x178f8…1790c               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/10 «, t00=0x00f1, t01=0x0096}
0x1790c…17940               Head {h00=0x0030, h01=0x0050, text=» ORKL A1,CIO+9 CONFIG. CIO+9 A1,1,XX INSTR. «, t00=0x00f1, t01=0x00aa}
0x17940…17956               Head {h00=0x0012, h01=0x0050, text=» ST A1,FRD:10 «, t00=0x00f1, t01=0x00de}
0x17956…17996               Head {h00=0x003c, h01=0x0050, text=» LDKL A2,FRDS25 ADDRESS TO READ ON 0,25 MEG FLOPPY DRIVE«, t00=0x00f1, t01=0x00f4}
0x17996…179b2               Head {h00=0x0018, h01=0x0050, text=» LDK A1,3 SEEK ORDER«, t00=0x00f1, t01=0x0134}
0x179b2…179d2               Head {h00=0x001c, h01=0x0050, text=» EX FRD:10 SEEK TO ZERO «, t00=0x00f1, t01=0x0150}
0x179d2…179e6               Head {h00=0x0010, h01=0x0050, text=»FDI:05 EQU *«, t00=0x00f1, t01=0x0170}
0x179e6…179f8               Head {h00=0x000e, h01=0x0050, text=» EX SEKSST«, t00=0x00f1, t01=0x0184}
0x179f8…17a0e               Head {h00=0x0012, h01=0x0050, text=» RB(NA) FDI:05«, t00=0x00f2, t01=0x0008}
0x17a0e…17a18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f2, t01=0x001e}
0x17a18…17a2c               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/10 «, t00=0x00f2, t01=0x0028}
0x17a2c…17a58               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) FDI:10 0.25 MEG FLOPPY DRIVE«, t00=0x00f2, t01=0x003c}
0x17a58…17a62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f2, t01=0x0068}
0x17a62…17a94               Head {h00=0x002e, h01=0x0050, text=» LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 «, t00=0x00f2, t01=0x0072}
0x17a94…17ac0               Head {h00=0x0028, h01=0x0050, text=» ST A1,FRD:20 MODIFY INR INSTRUCTION«, t00=0x00f2, t01=0x00a4}
0x17ac0…17ad6               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/41F «, t00=0x00f2, t01=0x00d0}
0x17ad6…17afc               Head {h00=0x0022, h01=0x0050, text=» ST A1,FRD:42 MODIFY SST MASK «, t00=0x00f2, t01=0x00e6}
0x17afc…17b12               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/C00 «, t00=0x00f2, t01=0x010c}
0x17b12…17b3c               Head {h00=0x0026, h01=0x0050, text=» ST A1,RELEAS MODIFY RELEAS ORDER «, t00=0x00f2, t01=0x0122}
0x17b3c…17b7a               Head {h00=0x003a, h01=0x0050, text=» LDKL A2,FRDSEC ADDRESS TO READ ON 1 MEG FLOPPY DRIVE «, t00=0x00f2, t01=0x014c}
0x17b7a…17b8e               Head {h00=0x0010, h01=0x0050, text=»FDI:10 EQU *«, t00=0x00f2, t01=0x018a}
0x17b8e…17ba2               Head {h00=0x0010, h01=0x0050, text=» ST A2,READ «, t00=0x00f3, t01=0x000e}
0x17ba2…17bb6               Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x00f3, t01=0x0022}
0x17bb6…17bde               Head {h00=0x0024, h01=0x0050, text=» CF A14,GETVLB GET VOLUME LABEL «, t00=0x00f3, t01=0x0036}
0x17bde…17c02               Head {h00=0x0020, h01=0x0050, text=» LD A1,FORDEV,A9 GET FORMAT «, t00=0x00f3, t01=0x005e}
0x17c02…17c1e               Head {h00=0x0018, h01=0x0050, text=» ST A1,DEVTYP+STKEND«, t00=0x00f3, t01=0x0082}
0x17c1e…17c2e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00f3, t01=0x009e}
0x17c2e…17c3c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f3, t01=0x00ae}
0x17c3c…17c70               Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00f3, t01=0x00bc}
0x17c70…17ca4               Head {h00=0x0030, h01=0x0050, text=»*                                          *«, t00=0x00f3, t01=0x00f0}
0x17ca4…17cd8               Head {h00=0x0030, h01=0x0050, text=»*                                          *«, t00=0x00f3, t01=0x0124}
0x17cd8…17d0c               Head {h00=0x0030, h01=0x0050, text=»*     UNLOCK - UNLOCK FLEXIBLE DISC        *«, t00=0x00f3, t01=0x0158}
0x17d0c…17d40               Head {h00=0x0030, h01=0x0050, text=»*     =============================        *«, t00=0x00f3, t01=0x018c}
0x17d40…17d74               Head {h00=0x0030, h01=0x0050, text=»*                                          *«, t00=0x00f4, t01=0x0030}
0x17d74…17da8               Head {h00=0x0030, h01=0x0050, text=»*     ON ENTRY: A1 = DEVICE ADDRESS        *«, t00=0x00f4, t01=0x0064}
0x17da8…17ddc               Head {h00=0x0030, h01=0x0050, text=»*                                          *«, t00=0x00f4, t01=0x0098}
0x17ddc…17e10               Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00f4, t01=0x00cc}
0x17e10…17e18               Head {h00=0x0004, h01=0x0050, t00=0x00f4, t01=0x0100}
0x17e18…17e20               Head {h00=0x0004, h01=0x0050, t00=0x00f4, t01=0x0108}
0x17e20…17e34               Head {h00=0x0010, h01=0x0050, text=»UNLOCK EQU *«, t00=0x00f4, t01=0x0110}
0x17e34…17e5c               Head {h00=0x0024, h01=0x0050, text=» CF A14,FDINIT INIT UNLOCK ORDER«, t00=0x00f4, t01=0x0124}
0x17e5c…17e72               Head {h00=0x0012, h01=0x0050, text=»RELEAS EQU *+2«, t00=0x00f4, t01=0x014c}
0x17e72…17e86               Head {h00=0x0010, h01=0x0050, text=» LDKL A1,/C «, t00=0x00f4, t01=0x0162}
0x17e86…17eb0               Head {h00=0x0026, h01=0x0050, text=» EX FRD:10 EXECUTE UNLOCK COMMAND «, t00=0x00f4, t01=0x0176}
0x17eb0…17ed8               Head {h00=0x0024, h01=0x0050, text=» RB(NA) *-4 LOOP UNTIL ACCEPTED «, t00=0x00f5, t01=0x0010}
0x17ed8…17ee2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x0038}
0x17ee2…17f02               Head {h00=0x001c, h01=0x0050, text=» EX FRD:40 SENSE STATUS «, t00=0x00f5, t01=0x0042}
0x17f02…17f2a               Head {h00=0x0024, h01=0x0050, text=» RB(NA) *-4 LOOP UNTIL ACCEPTED «, t00=0x00f5, t01=0x0062}
0x17f2a…17f3a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00f5, t01=0x008a}
0x17f3a…17f48               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f5, t01=0x009a}
0x17f48…17f8c               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x00f5, t01=0x00a8}
0x17f8c…17fd0               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f5, t01=0x00ec}
0x17fd0…18014               Head {h00=0x0040, h01=0x0050, text=»*        FRDSEC - READ SECTOR FROM FLEXIBLE DISC          * «, t00=0x00f5, t01=0x0130}
0x18014…18058               Head {h00=0x0040, h01=0x0050, text=»*        =======================================          * «, t00=0x00f5, t01=0x0174}
0x18058…1809c               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f6, t01=0x0028}
0x1809c…180e0               Head {h00=0x0040, h01=0x0050, text=»*  REFERENCED IN:  SYSLOD                                 * «, t00=0x00f6, t01=0x006c}
0x180e0…18124               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f6, t01=0x00b0}
0x18124…18168               Head {h00=0x0040, h01=0x0050, text=»*  ENTRY:  A9 - BUFFER ADDRESS                            * «, t00=0x00f6, t01=0x00f4}
0x18168…181ac               Head {h00=0x0040, h01=0x0050, text=»*         A11 - SECTOR NUMBER                             * «, t00=0x00f6, t01=0x0138}
0x181ac…181f0               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f6, t01=0x017c}
0x181f0…18234               Head {h00=0x0040, h01=0x0050, text=»*  EXIT:                                                  * «, t00=0x00f7, t01=0x0030}
0x18234…18278               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f7, t01=0x0074}
0x18278…182bc               Head {h00=0x0040, h01=0x0050, text=»*  WORK REGISTERS:  A1,A2,A3                              * «, t00=0x00f7, t01=0x00b8}
0x182bc…18300               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f7, t01=0x00fc}
0x18300…18344               Head {h00=0x0040, h01=0x0050, text=»*  SUBROUTINES:  ERROR                                    * «, t00=0x00f7, t01=0x0140}
0x18344…18388               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f7, t01=0x0184}
0x18388…183cc               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x00f8, t01=0x0038}
0x183cc…183e0               Head {h00=0x0010, h01=0x0050, text=»FRDSEC EQU *«, t00=0x00f8, t01=0x007c}
0x183e0…18406               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A11 GET SECTOR NUMBER «, t00=0x00f8, t01=0x0090}
0x18406…18434               Head {h00=0x002a, h01=0x0050, text=» LDKL A4,/340 26 SHIFTED 10 STEPS LEFT«, t00=0x00f8, t01=0x00b6}
0x18434…1845c               Head {h00=0x0024, h01=0x0050, text=» LD A1,DEVTYP+STKEND DEVICE TYPE«, t00=0x00f8, t01=0x00e4}
0x1845c…1846e               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x00f8, t01=0x010c}
0x1846e…18498               Head {h00=0x0026, h01=0x0050, text=» RF(Z) SNHEAD 0,25 MEG FLOPPY DISC«, t00=0x00f8, t01=0x011e}
0x18498…184aa               Head {h00=0x000e, h01=0x0050, text=» CWK A2,13«, t00=0x00f8, t01=0x0148}
0x184aa…184d0               Head {h00=0x0022, h01=0x0050, text=» RF(NL) NOTCY0 NOT CYLINDER 0 «, t00=0x00f8, t01=0x015a}
0x184d0…184e4               Head {h00=0x0010, h01=0x0050, text=»SNHEAD EQU *«, t00=0x00f8, t01=0x0180}
0x184e4…18512 (249, 0, 400) Head {h00=0x002a, h01=0x0050, text=» SLL A2,1 A2=0-25,PHYSICAL SECTOR NBR «, t00=0x00f9, t01=0x0004}
0x18512…18524               Head {h00=0x000e, h01=0x0050, text=» RF DVK26 «, t00=0x00f9, t01=0x0032}
0x18524…18538               Head {h00=0x0010, h01=0x0050, text=»NOTCY0 EQU *«, t00=0x00f9, t01=0x0044}
0x18538…1854a               Head {h00=0x000e, h01=0x0050, text=» ADK A2,13«, t00=0x00f9, t01=0x0058}
0x1854a…18558               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f9, t01=0x006a}
0x18558…18562               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x0078}
0x18562…18586               Head {h00=0x0020, h01=0x0050, text=»* A2=PHYSICAL SECTOR NUMBER «, t00=0x00f9, t01=0x0082}
0x18586…18590               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x00a6}
0x18590…185a4               Head {h00=0x0010, h01=0x0050, text=»DVK26 EQU * «, t00=0x00f9, t01=0x00b0}
0x185a4…185b6               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x00f9, t01=0x00c4}
0x185b6…185ca               Head {h00=0x0010, h01=0x0050, text=»DVK26A EQU *«, t00=0x00f9, t01=0x00d6}
0x185ca…185dc               Head {h00=0x000e, h01=0x0050, text=» SLL A1,5 «, t00=0x00f9, t01=0x00ea}
0x185dc…185f0               Head {h00=0x0010, h01=0x0050, text=»DVK26B EQU *«, t00=0x00f9, t01=0x00fc}
0x185f0…18602               Head {h00=0x000e, h01=0x0050, text=» SUR A2,A4«, t00=0x00f9, t01=0x0110}
0x18602…18618               Head {h00=0x0012, h01=0x0050, text=» RF(N) DVK26C «, t00=0x00f9, t01=0x0122}
0x18618…1862a               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x00f9, t01=0x0138}
0x1862a…1863c               Head {h00=0x000e, h01=0x0050, text=» RB DVK26B«, t00=0x00f9, t01=0x014a}
0x1863c…18650               Head {h00=0x0010, h01=0x0050, text=»DVK26C EQU *«, t00=0x00f9, t01=0x015c}
0x18650…18662               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x00f9, t01=0x0170}
0x18662…18674               Head {h00=0x000e, h01=0x0050, text=» SRL A4,5 «, t00=0x00f9, t01=0x0182}
0x18674…1869a (250, 0, 400) Head {h00=0x0022, h01=0x0050, text=» RB(NZ) DVK26A NEXT FIVE BITS «, t00=0x00fa, t01=0x0004}
0x1869a…186a8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fa, t01=0x002a}
0x186a8…186b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fa, t01=0x0038}
0x186b2…186cc               Head {h00=0x0016, h01=0x0050, text=»* A2=SECTOR NUMBER«, t00=0x00fa, t01=0x0042}
0x186cc…186e8               Head {h00=0x0018, h01=0x0050, text=»* A1=CYLINDER NUMBER«, t00=0x00fa, t01=0x005c}
0x186e8…186f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fa, t01=0x0078}
0x186f2…1871a               Head {h00=0x0024, h01=0x0050, text=» LD A4,DEVTYP+STKEND DEVICE TYPE«, t00=0x00fa, t01=0x0082}
0x1871a…1872c               Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x00fa, t01=0x00aa}
0x1872c…1875c               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) DBHEAD 1 MEG FLOPPY,DOUBLE HEAD «, t00=0x00fa, t01=0x00bc}
0x1875c…1877c               Head {h00=0x001c, h01=0x0050, text=» SLL A1,1 ONLY ONE HEAD «, t00=0x00fa, t01=0x00ec}
0x1877c…18790               Head {h00=0x0010, h01=0x0050, text=»DBHEAD EQU *«, t00=0x00fa, t01=0x010c}
0x18790…187a2               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x00fa, t01=0x0120}
0x187a2…187b4               Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x00fa, t01=0x0132}
0x187b4…187e6               Head {h00=0x002e, h01=0x0050, text=» SRC A4,2 HEAD NUMBER IN CORRECT POSITION «, t00=0x00fa, t01=0x0144}
0x187e6…1881a               Head {h00=0x0030, h01=0x0050, text=» SLL A2,2 SECTOR NUMBER IN CORRECT POSITION «, t00=0x00fa, t01=0x0176}
0x1881a…18842               Head {h00=0x0024, h01=0x0050, text=» ORR A2,A4 A2=CIO READ REGISTER «, t00=0x00fb, t01=0x001a}
0x18842…18878               Head {h00=0x0032, h01=0x0050, text=» SLL A1,1 CYLINDER NUMBER IN CORRECT POSITION «, t00=0x00fb, t01=0x0042}
0x18878…1889e               Head {h00=0x0022, h01=0x0050, text=» ORK A1,3 A1=CIO SEEK REGISTER«, t00=0x00fb, t01=0x0078}
0x1889e…188d6               Head {h00=0x0034, h01=0x0050, text=» CW A1,CYLNBR COMPARE OLD AN NEW CYLINDER NUMBER«, t00=0x00fb, t01=0x009e}
0x188d6…188fa               Head {h00=0x0020, h01=0x0050, text=» RF(E) NOSEEK NO SEEK NEEDED«, t00=0x00fb, t01=0x00d6}
0x188fa…18924               Head {h00=0x0026, h01=0x0050, text=» ST A1,CYLNBR SAVE CYLINDER NUMBER«, t00=0x00fb, t01=0x00fa}
0x18924…18946               Head {h00=0x001e, h01=0x0050, text=»FDSEEK EX FRD:10 CIO START«, t00=0x00fb, t01=0x0124}
0x18946…1895c               Head {h00=0x0012, h01=0x0050, text=» RB(NA) FDSEEK«, t00=0x00fb, t01=0x0146}
0x1895c…18976               Head {h00=0x0016, h01=0x0050, text=»SEKSST SST A1,FDCU«, t00=0x00fb, t01=0x015c}
0x18976…1898c               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEKSST«, t00=0x00fb, t01=0x0176}
0x1898c…189a2               Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/611 «, t00=0x00fb, t01=0x018c}
0x189a2…189c4               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) FRD:50 SEEK ERROR «, t00=0x00fc, t01=0x0012}
0x189c4…189d8               Head {h00=0x0010, h01=0x0050, text=»NOSEEK EQU *«, t00=0x00fc, t01=0x0034}
0x189d8…189ea               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x00fc, t01=0x0048}
0x189ea…189fc               Head {h00=0x000e, h01=0x0050, text=» RF FRD:05«, t00=0x00fc, t01=0x005a}
0x189fc…18a0a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fc, t01=0x006c}
0x18a0a…18a1e               Head {h00=0x0010, h01=0x0050, text=»FRDS25 EQU *«, t00=0x00fc, t01=0x007a}
0x18a1e…18a3c               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A11 SECTOR NO «, t00=0x00fc, t01=0x008e}
0x18a3c…18a4e               Head {h00=0x000e, h01=0x0050, text=» SLL A1,4 «, t00=0x00fc, t01=0x00ac}
0x18a4e…18a8a               Head {h00=0x0038, h01=0x0050, text=» ORKL A1,/4000 NUMBER OF SECTORS=2  (BIT 0 - BIT 1) «, t00=0x00fc, t01=0x00be}
0x18a8a…18a9e               Head {h00=0x0010, h01=0x0050, text=»FRD:05 EQU *«, t00=0x00fc, t01=0x00fa}
0x18a9e…18ab4               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,MUXCC«, t00=0x00fc, t01=0x010e}
0x18ab4…18ad8               Head {h00=0x0020, h01=0x0050, text=» LD A3,MXBUF BUFFER ADDRESS «, t00=0x00fc, t01=0x0124}
0x18ad8…18af6               Head {h00=0x001a, h01=0x0050, text=» WER A2,FDIOP 1:ST WER«, t00=0x00fc, t01=0x0148}
0x18af6…18b18               Head {h00=0x001e, h01=0x0050, text=» WER A3,FDIOP+1 SECOND WER«, t00=0x00fc, t01=0x0166}
0x18b18…18b20               Head {h00=0x0004, h01=0x0050, t00=0x00fc, t01=0x0188}
0x18b20…18b48               Head {h00=0x0024, h01=0x0050, text=» LDR A2,A3 BUFFER START ADDRESS «, t00=0x00fc, t01=0x0190}
0x18b48…18b70               Head {h00=0x0024, h01=0x0050, text=» AD A2,SAVCON BUFFER END ADDRESS«, t00=0x00fd, t01=0x0028}
0x18b70…18b7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fd, t01=0x0050}
0x18b7a…18ba2               Head {h00=0x0024, h01=0x0050, text=»FRD:10 CIO A1,1,FDCU START READ «, t00=0x00fd, t01=0x005a}
0x18ba2…18bb8               Head {h00=0x0012, h01=0x0050, text=» RB(NA) FRD:10«, t00=0x00fd, t01=0x0082}
0x18bb8…18bc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fd, t01=0x0098}
0x18bc2…18bd8               Head {h00=0x0012, h01=0x0050, text=» EJECT   CRVOL«, t00=0x00fd, t01=0x00a2}
0x18bd8…18be2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fd, t01=0x00b8}
0x18be2…18bec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fd, t01=0x00c2}
0x18bec…18c08               Head {h00=0x0018, h01=0x0050, text=»FRD:20 INR A1,0,FDCU«, t00=0x00fd, t01=0x00cc}
0x18c08…18c22               Head {h00=0x0016, h01=0x0050, text=» RF(NA) FRD:40  =4«, t00=0x00fd, t01=0x00e8}
0x18c22…18c34               Head {h00=0x000e, h01=0x0050, text=» STR A1,A3«, t00=0x00fd, t01=0x0102}
0x18c34…18c46               Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x00fd, t01=0x0114}
0x18c46…18c58               Head {h00=0x000e, h01=0x0050, text=» CWR A3,A2«, t00=0x00fd, t01=0x0126}
0x18c58…18c6e               Head {h00=0x0012, h01=0x0050, text=» RB(NE) FRD:20«, t00=0x00fd, t01=0x0138}
0x18c6e…18c78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fd, t01=0x014e}
0x18c78…18c9e               Head {h00=0x0022, h01=0x0050, text=»FRD:25 CIO A1,0,FDCU STOP READ«, t00=0x00fd, t01=0x0158}
0x18c9e…18cb0               Head {h00=0x000e, h01=0x0050, text=» RB FRD:20«, t00=0x00fd, t01=0x017e}
0x18cb0…18cca               Head {h00=0x0016, h01=0x0050, text=»FRD:40 SST A1,FDCU«, t00=0x00fd, t01=0x0190}
0x18cca…18ce0               Head {h00=0x0012, h01=0x0050, text=» RB(NA) FRD:20«, t00=0x00fe, t01=0x001a}
0x18ce0…18cf6               Head {h00=0x0012, h01=0x0050, text=»FRD:42 EQU *+2«, t00=0x00fe, t01=0x0030}
0x18cf6…18d1a               Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/4E15 FATAL ERROR ?«, t00=0x00fe, t01=0x0046}
0x18d1a…18d36               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) FRD:50 YES! «, t00=0x00fe, t01=0x006a}
0x18d36…18d52               Head {h00=0x0018, h01=0x0050, text=»FRD:43 CWR A3,A2  =4«, t00=0x00fe, t01=0x0086}
0x18d52…18d7e               Head {h00=0x0028, h01=0x0050, text=» RF(E) FRD:44 PROGRAMMED CHANNEL =4 «, t00=0x00fe, t01=0x00a2}
0x18d7e…18db0               Head {h00=0x002e, h01=0x0050, text=» LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 «, t00=0x00fe, t01=0x00ce}
0x18db0…18dda               Head {h00=0x0026, h01=0x0050, text=» ST A1,FRD:20 UPDATE INR ISTR. =4 «, t00=0x00fe, t01=0x0100}
0x18dda…18df2               Head {h00=0x0014, h01=0x0050, text=»FRD:44 EQU *  =4«, t00=0x00fe, t01=0x012a}
0x18df2…18e24               Head {h00=0x002e, h01=0x0050, text=» LDKL A1,FRD:B2+/5700 RF FRD:45 INSTR. =4 «, t00=0x00fe, t01=0x0142}
0x18e24…18e4e               Head {h00=0x0026, h01=0x0050, text=» ST A1,FRD:43 UPDATE CWR INSTR. =4«, t00=0x00fe, t01=0x0174}
0x18e4e…18e6e               Head {h00=0x001c, h01=0x0050, text=» ABI READ READ AGAIN =4 «, t00=0x00ff, t01=0x000e}
0x18e6e…18e82               Head {h00=0x0010, h01=0x0050, text=»FRD:45 EQU *«, t00=0x00ff, t01=0x002e}
0x18e82…18eae               Head {h00=0x0028, h01=0x0050, text=» ADKL A11,1 INCRMENT SECTOR ADDRESS «, t00=0x00ff, t01=0x0042}
0x18eae…18ec4               Head {h00=0x0012, h01=0x0050, text=» RF(NN) FRD:48«, t00=0x00ff, t01=0x006e}
0x18ec4…18ef8               Head {h00=0x0030, h01=0x0050, text=» SUR A11,A11 RESET LEAST SIGN. PART OF D.A. «, t00=0x00ff, t01=0x0084}
0x18ef8…18f2e               Head {h00=0x0032, h01=0x0050, text=» ADKL A12,1 INCREMENT MOST SIGN. PART OF D.A. «, t00=0x00ff, t01=0x00b8}
0x18f2e…18f56               Head {h00=0x0024, h01=0x0050, text=» RF(O) FRD:50 DISC ADDRESS ERROR«, t00=0x00ff, t01=0x00ee}
0x18f56…18f6a               Head {h00=0x0010, h01=0x0050, text=»FRD:48 EQU *«, t00=0x00ff, t01=0x0116}
0x18f6a…18f7a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00ff, t01=0x012a}
0x18f7a…18f8e               Head {h00=0x0010, h01=0x0050, text=»FRD:50 EQU *«, t00=0x00ff, t01=0x013a}
0x18f8e…18fa4               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x00ff, t01=0x014e}
0x18fa4…18fb8               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00ff, t01=0x0164}
0x18fb8…18fde               Head {h00=0x0022, h01=0x0050, text=»FRD:B1 EQU FRD:40-FRD:20-2  =4«, t00=0x00ff, t01=0x0178}
0x18fde…19004               Head {h00=0x0022, h01=0x0050, text=»FRD:B2 EQU FRD:45-FRD:43-2  =4«, t00=0x0100, t01=0x000e}
0x19004…19010               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0100, t01=0x0034}
0x19010…19026               Head {h00=0x0012, h01=0x0050, text=» IFT CDDISC=1 «, t00=0x0100, t01=0x0040}
0x19026…19040               Head {h00=0x0016, h01=0x0050, text=» IFT CDDI16=0  =9 «, t00=0x0100, t01=0x0056}
0x19040…1904e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0100, t01=0x0070}
0x1904e…1907a               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x0100, t01=0x007e}
0x1907a…190a6               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x0100, t01=0x00aa}
0x190a6…190d2               Head {h00=0x0028, h01=0x0050, text=»*  CDINIT - INITIALIZE DISC UNIT  * «, t00=0x0100, t01=0x00d6}
0x190d2…190fe               Head {h00=0x0028, h01=0x0050, text=»*  =============================  * «, t00=0x0100, t01=0x0102}
0x190fe…1912a               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x0100, t01=0x012e}
0x1912a…19156               Head {h00=0x0028, h01=0x0050, text=»*  REFERENCED IN: SYSLOD,GETFIL   * «, t00=0x0100, t01=0x015a}
0x19156…19182               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x0100, t01=0x0186}
0x19182…191ae               Head {h00=0x0028, h01=0x0050, text=»*  ENTRY: A1 - DEVICE ADDRESS     * «, t00=0x0101, t01=0x0022}
0x191ae…191da               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x0101, t01=0x004e}
0x191da…19206               Head {h00=0x0028, h01=0x0050, text=»*  EXIT:                          * «, t00=0x0101, t01=0x007a}
0x19206…19232               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x0101, t01=0x00a6}
0x19232…1925e               Head {h00=0x0028, h01=0x0050, text=»*  WORK REGISTERS:  A1,A2          *«, t00=0x0101, t01=0x00d2}
0x1925e…1928a               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x0101, t01=0x00fe}
0x1928a…192b6               Head {h00=0x0028, h01=0x0050, text=»*  SUBROUTINES:                   * «, t00=0x0101, t01=0x012a}
0x192b6…192e2               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x0101, t01=0x0156}
0x192e2…1930e               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x0101, t01=0x0182}
0x1930e…19316               Head {h00=0x0004, h01=0x0050, t00=0x0102, t01=0x001e}
0x19316…1932a               Head {h00=0x0010, h01=0x0050, text=»CDINIT EQU *«, t00=0x0102, t01=0x0026}
0x1932a…19334               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x003a}
0x19334…19358               Head {h00=0x0020, h01=0x0050, text=»* INIT 80M CDC DISC COMMANDS«, t00=0x0102, t01=0x0044}
0x19358…19362               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x0068}
0x19362…19392               Head {h00=0x002c, h01=0x0050, text=» ORKL A1,CIO CONFIG CIO A1,1,XX  INSTR. «, t00=0x0102, t01=0x0072}
0x19392…193a8               Head {h00=0x0012, h01=0x0050, text=» ST A1,READC1 «, t00=0x0102, t01=0x00a2}
0x193a8…193d4               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A1,XX  INSTR.«, t00=0x0102, t01=0x00b8}
0x193d4…193ea               Head {h00=0x0012, h01=0x0050, text=» ST A1,READC2 «, t00=0x0102, t01=0x00e4}
0x193ea…19418               Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/B00 FORM CIO A2,1,XX  INSTR.«, t00=0x0102, t01=0x00fa}
0x19418…1942e               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKC1 «, t00=0x0102, t01=0x0128}
0x1942e…1945a               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX  INSTR.«, t00=0x0102, t01=0x013e}
0x1945a…19470               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKC2 «, t00=0x0102, t01=0x016a}
0x19470…19484               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x0102, t01=0x0180}
0x19484…194ba (259, 0, 400) Head {h00=0x0032, h01=0x0050, text=» ST A2,PSECNL+STKEND INIT VALUE FOR SECTOR NBR«, t00=0x0103, t01=0x0004}
0x194ba…194e4               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/300 BUFLEN 80M CDC DISC «, t00=0x0103, t01=0x003a}
0x194e4…19506               Head {h00=0x001e, h01=0x0050, text=» ST A2,SAVCON SAVE LENGTH «, t00=0x0103, t01=0x0064}
0x19506…1953e               Head {h00=0x0034, h01=0x0050, text=» LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR.«, t00=0x0103, t01=0x0086}
0x1953e…19552               Head {h00=0x0010, h01=0x0050, text=» ST A2,READ «, t00=0x0103, t01=0x00be}
0x19552…19566               Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x0103, t01=0x00d2}
0x19566…19576               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0103, t01=0x00e6}
0x19576…19584               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0103, t01=0x00f6}
0x19584…195bc               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0103, t01=0x0104}
0x195bc…195f4               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0103, t01=0x013c}
0x195f4…1962c               Head {h00=0x0034, h01=0x0050, text=»*  CRDSEC- READ ONE SECTOR FROM DISC          * «, t00=0x0103, t01=0x0174}
0x1962c…19664               Head {h00=0x0034, h01=0x0050, text=»*  =================================          * «, t00=0x0104, t01=0x001c}
0x19664…1969c               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0104, t01=0x0054}
0x1969c…196d4               Head {h00=0x0034, h01=0x0050, text=»*  REFERENCED IN: SYSLOD                      * «, t00=0x0104, t01=0x008c}
0x196d4…1970c               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0104, t01=0x00c4}
0x1970c…19744               Head {h00=0x0034, h01=0x0050, text=»*  ENTRY:  A9 = BUFFER ADDRESS                * «, t00=0x0104, t01=0x00fc}
0x19744…1977c               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0104, t01=0x0134}
0x1977c…197b4               Head {h00=0x0034, h01=0x0050, text=»*         A11 - SECTOR NBR LEAST SIGNIFICANT  * «, t00=0x0104, t01=0x016c}
0x197b4…197ec               Head {h00=0x0034, h01=0x0050, text=»*         A12 - SECTOR NBR MOST SIGNIFICANT   * «, t00=0x0105, t01=0x0014}
0x197ec…19824               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0105, t01=0x004c}
0x19824…1985c               Head {h00=0x0034, h01=0x0050, text=»*  EXIT: A12,A11 = A12,A11 + 1                * «, t00=0x0105, t01=0x0084}
0x1985c…19894               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0105, t01=0x00bc}
0x19894…198cc               Head {h00=0x0034, h01=0x0050, text=»*   WORK REGISTERS:  A1,A2,A3,A4              * «, t00=0x0105, t01=0x00f4}
0x198cc…19904               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0105, t01=0x012c}
0x19904…1993c               Head {h00=0x0034, h01=0x0050, text=»*  SUBROUTINES:  ERROR                        * «, t00=0x0105, t01=0x0164}
0x1993c…19974               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0106, t01=0x000c}
0x19974…199ac               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0106, t01=0x0044}
0x199ac…199b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x007c}
0x199b6…199ca               Head {h00=0x0010, h01=0x0050, text=»CRDSEC EQU *«, t00=0x0106, t01=0x0086}
0x199ca…199d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x009a}
0x199d4…199f0               Head {h00=0x0018, h01=0x0050, text=»* SET BUFFER ADDRESS«, t00=0x0106, t01=0x00a4}
0x199f0…199fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x00c0}
0x199fa…19a1c               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 BUFFER ADDRESS «, t00=0x0106, t01=0x00ca}
0x19a1c…19a30               Head {h00=0x0010, h01=0x0050, text=» ADKL A1,256«, t00=0x0106, t01=0x00ec}
0x19a30…19a50               Head {h00=0x001c, h01=0x0050, text=» ST A1,CIOAD2 ADDRESS 2 «, t00=0x0106, t01=0x0100}
0x19a50…19a64               Head {h00=0x0010, h01=0x0050, text=» ADKL A1,256«, t00=0x0106, t01=0x0120}
0x19a64…19a84               Head {h00=0x001c, h01=0x0050, text=» ST A1,CIOAD3 ADDRESS 3 «, t00=0x0106, t01=0x0134}
0x19a84…19a9a               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/3FFF«, t00=0x0106, t01=0x0154}
0x19a9a…19abc               Head {h00=0x001e, h01=0x0050, text=» ANS A1,CIOTAB RESET BITS «, t00=0x0106, t01=0x016a}
0x19abc…19ade               Head {h00=0x001e, h01=0x0050, text=» ANS A1,CIOTOT RESET BITS «, t00=0x0106, t01=0x018c}
0x19ade…19b10               Head {h00=0x002e, h01=0x0050, text=» LDR A1,A12 SECTOR NUMBER MOST SIGNIFICANT«, t00=0x0107, t01=0x001e}
0x19b10…19b44               Head {h00=0x0030, h01=0x0050, text=» LDR A2,A11 SECTOR NUMBER LEAST SIGNIFICANT «, t00=0x0107, t01=0x0050}
0x19b44…19b52               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0107, t01=0x0084}
0x19b52…19b5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x0092}
0x19b5c…19b7c               Head {h00=0x001c, h01=0x0050, text=»* DIVIDE LOGICAL WITH 3 «, t00=0x0107, t01=0x009c}
0x19b7c…19b86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x00bc}
0x19b86…19b98               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0107, t01=0x00c6}
0x19b98…19bac               Head {h00=0x0010, h01=0x0050, text=»RED100 EQU *«, t00=0x0107, t01=0x00d8}
0x19bac…19bbe               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0107, t01=0x00ec}
0x19bbe…19bd0               Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x0107, t01=0x00fe}
0x19bd0…19be6               Head {h00=0x0012, h01=0x0050, text=» RB(NN) RED100«, t00=0x0107, t01=0x0110}
0x19be6…19bf8               Head {h00=0x000e, h01=0x0050, text=» ADK A1,3 «, t00=0x0107, t01=0x0126}
0x19bf8…19c0a               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0107, t01=0x0138}
0x19c0a…19c18               Head {h00=0x000a, h01=0x0050, text=» DVK 3«, t00=0x0107, t01=0x014a}
0x19c18…19c2e               Head {h00=0x0012, h01=0x0050, text=» CW A9,CIOAD1 «, t00=0x0107, t01=0x0158}
0x19c2e…19c6c               Head {h00=0x003a, h01=0x0050, text=» RF(NE) RED110 NOT SAME BUFFER ADDRESS MEANS NEW READ «, t00=0x0107, t01=0x016e}
0x19c6c…19c88               Head {h00=0x0018, h01=0x0050, text=» CW A2,PSECNL+STKEND«, t00=0x0108, t01=0x001c}
0x19c88…19cb8               Head {h00=0x002c, h01=0x0050, text=» RF(NE) RED110 NOT SAME PHYSICAL SEC NBR«, t00=0x0108, t01=0x0038}
0x19cb8…19cd4               Head {h00=0x0018, h01=0x0050, text=» CW A3,PSECNM+STKEND«, t00=0x0108, t01=0x0068}
0x19cd4…19d04               Head {h00=0x002c, h01=0x0050, text=» RF(NE) RED110 NOT SAME PHYSICAL SEC NBR«, t00=0x0108, t01=0x0084}
0x19d04…19d20               Head {h00=0x0018, h01=0x0050, text=» CW A1,PSECPA+STKEND«, t00=0x0108, t01=0x00b4}
0x19d20…19d4a               Head {h00=0x0026, h01=0x0050, text=» RF(E) TURN SAME LOG SEC AS BEFORE«, t00=0x0108, t01=0x00d0}
0x19d4a…19d7c               Head {h00=0x002e, h01=0x0050, text=» RF(G) REDMOV MOVE UP NEXT LOGICAL SECTOR «, t00=0x0108, t01=0x00fa}
0x19d7c…19d90               Head {h00=0x0010, h01=0x0050, text=»RED110 EQU *«, t00=0x0108, t01=0x012c}
0x19d90…19db0               Head {h00=0x001c, h01=0x0050, text=» ST A9,CIOAD1 ADDRESS 1 «, t00=0x0108, t01=0x0140}
0x19db0…19ddc               Head {h00=0x0028, h01=0x0050, text=» MS 3,PSECPA+STKEND SAVE NEW VALUES «, t00=0x0108, t01=0x0160}
0x19ddc…19dee               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0108, t01=0x018c}
0x19dee…19dfe               Head {h00=0x000c, h01=0x0050, text=» DVK 115«, t00=0x0109, t01=0x000e}
0x19dfe…19e0c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0109, t01=0x001e}
0x19e0c…19e2e               Head {h00=0x001e, h01=0x0050, text=»* A1=HEAD NBR * SECTOR NBR«, t00=0x0109, t01=0x002c}
0x19e2e…19e48               Head {h00=0x0016, h01=0x0050, text=»* A2=CYLINDER NBR «, t00=0x0109, t01=0x004e}
0x19e48…19e5a               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0109, t01=0x0068}
0x19e5a…19e6c               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0109, t01=0x007a}
0x19e6c…19e7e               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0109, t01=0x008c}
0x19e7e…19e8e               Head {h00=0x000c, h01=0x0050, text=» DVK 23 «, t00=0x0109, t01=0x009e}
0x19e8e…19ea6               Head {h00=0x0014, h01=0x0050, text=»* A1=SECTOR NBR «, t00=0x0109, t01=0x00ae}
0x19ea6…19ebc               Head {h00=0x0012, h01=0x0050, text=»* A2=HEAD NBR «, t00=0x0109, t01=0x00c6}
0x19ebc…19ee4               Head {h00=0x0024, h01=0x0050, text=» ORKL A2,/800 SET INTERRUPT BIT «, t00=0x0109, t01=0x00dc}
0x19ee4…19f0a               Head {h00=0x0022, h01=0x0050, text=» ST A2,CIOTAB UPDATE CIO TABLE«, t00=0x0109, t01=0x0104}
0x19f0a…19f18               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0109, t01=0x012a}
0x19f18…19f22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x0138}
0x19f22…19f38               Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x0109, t01=0x0142}
0x19f38…19f42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x0158}
0x19f42…19f54               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0109, t01=0x0162}
0x19f54…19f70               Head {h00=0x0018, h01=0x0050, text=» MUK 5 INTERLACING 5«, t00=0x0109, t01=0x0174}
0x19f70…19f82               Head {h00=0x000e, h01=0x0050, text=» SLC A3,1 «, t00=0x0109, t01=0x0190}
0x19f82…19fae               Head {h00=0x0028, h01=0x0050, text=» RF(NN) INT100 EVEN CYLINDER NUMBER «, t00=0x010a, t01=0x0012}
0x19fae…19fcc               Head {h00=0x001a, h01=0x0050, text=» ADK A2,12 SKEW FACTOR«, t00=0x010a, t01=0x003e}
0x19fcc…19fe0               Head {h00=0x0010, h01=0x0050, text=»INT100 EQU *«, t00=0x010a, t01=0x005c}
0x19fe0…19ff0               Head {h00=0x000c, h01=0x0050, text=» DVK 23 «, t00=0x010a, t01=0x0070}
0x19ff0…1a00e               Head {h00=0x001a, h01=0x0050, text=» SLL A1,5 IN POSITION «, t00=0x010a, t01=0x0080}
0x1a00e…1a036               Head {h00=0x0024, h01=0x0050, text=» ORS A1,CIOTAB UPDATE CIO TABLE «, t00=0x010a, t01=0x009e}
0x1a036…1a052               Head {h00=0x0018, h01=0x0050, text=» SRC A3,1 RESTORE A3«, t00=0x010a, t01=0x00c6}
0x1a052…1a068               Head {h00=0x0012, h01=0x0050, text=» CW A3,CYLNBR «, t00=0x010a, t01=0x00e2}
0x1a068…1a092               Head {h00=0x0026, h01=0x0050, text=» RF(E) READER SAME CYLINDER NUMBER«, t00=0x010a, t01=0x00f8}
0x1a092…1a0a0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010a, t01=0x0122}
0x1a0a0…1a0aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x0130}
0x1a0aa…1a0b8               Head {h00=0x000a, h01=0x0050, text=»* SEEK«, t00=0x010a, t01=0x013a}
0x1a0b8…1a0c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x0148}
0x1a0c2…1a0ea               Head {h00=0x0024, h01=0x0050, text=» ST A3,CYLNBR SAVE CYLINDER NBR «, t00=0x010a, t01=0x0152}
0x1a0ea…1a10e               Head {h00=0x0020, h01=0x0050, text=» ADKL A3,/A800 SEEK COMMAND «, t00=0x010a, t01=0x017a}
0x1a10e…1a124               Head {h00=0x0012, h01=0x0050, text=» ST A3,SEKTAB «, t00=0x010b, t01=0x000e}
0x1a124…1a13c               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,SEKTAB «, t00=0x010b, t01=0x0024}
0x1a13c…1a150               Head {h00=0x0010, h01=0x0050, text=»SEEKC1 EQU *«, t00=0x010b, t01=0x003c}
0x1a150…1a168               Head {h00=0x0014, h01=0x0050, text=» CIO A2,1,0 SEEK«, t00=0x010b, t01=0x0050}
0x1a168…1a17e               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEKC1«, t00=0x010b, t01=0x0068}
0x1a17e…1a192               Head {h00=0x0010, h01=0x0050, text=»SEEKC2 EQU *«, t00=0x010b, t01=0x007e}
0x1a192…1a1a4               Head {h00=0x000e, h01=0x0050, text=» SST A2,0 «, t00=0x010b, t01=0x0092}
0x1a1a4…1a1ba               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEKC2«, t00=0x010b, t01=0x00a4}
0x1a1ba…1a1c8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010b, t01=0x00ba}
0x1a1c8…1a1d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010b, t01=0x00c8}
0x1a1d2…1a1e4               Head {h00=0x000e, h01=0x0050, text=»*    READ «, t00=0x010b, t01=0x00d2}
0x1a1e4…1a1ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010b, t01=0x00e4}
0x1a1ee…1a202               Head {h00=0x0010, h01=0x0050, text=»READER EQU *«, t00=0x010b, t01=0x00ee}
0x1a202…1a22a               Head {h00=0x0024, h01=0x0050, text=» LDK A4,3 NUMBER OF RETRIES =15 «, t00=0x010b, t01=0x0102}
0x1a22a…1a23e               Head {h00=0x0010, h01=0x0050, text=»REA100 EQU *«, t00=0x010b, t01=0x012a}
0x1a23e…1a26a               Head {h00=0x0028, h01=0x0050, text=» LDKL A1,CIOTAB POINTER TO CIO TABLE«, t00=0x010b, t01=0x013e}
0x1a26a…1a288               Head {h00=0x001a, h01=0x0050, text=»READC1 CIO A1,1,0 READ«, t00=0x010b, t01=0x016a}
0x1a288…1a2b2               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READC1 LOOP UNTIL ACCEPTED«, t00=0x010b, t01=0x0188}
0x1a2b2…1a2bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010c, t01=0x0022}
0x1a2bc…1a2da               Head {h00=0x001a, h01=0x0050, text=»READC2 SST A1,0 STATUS«, t00=0x010c, t01=0x002c}
0x1a2da…1a304               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READC2 LOOP UNTIL ACCEPTED«, t00=0x010c, t01=0x004a}
0x1a304…1a322               Head {h00=0x001a, h01=0x0050, text=» ANKL A1,/FF0F STATUS «, t00=0x010c, t01=0x0074}
0x1a322…1a346               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RET30 READING ERROR «, t00=0x010c, t01=0x0092}
0x1a346…1a388               Head {h00=0x003e, h01=0x0050, text=» LD A1,PSECPA+STKEND GET RELATIV LOG SECT IN PHYSICAL =11 «, t00=0x010c, t01=0x00b6}
0x1a388…1a3bc               Head {h00=0x0030, h01=0x0050, text=» RF(NZ) REDMOV NOT FIRST REL LOG SECTOR =11 «, t00=0x010c, t01=0x00f8}
0x1a3bc…1a3c4               Head {h00=0x0004, h01=0x0050, t00=0x010c, t01=0x012c}
0x1a3c4…1a3d6               Head {h00=0x000e, h01=0x0050, text=»TURN EQU *«, t00=0x010c, t01=0x0134}
0x1a3d6…1a40a               Head {h00=0x0030, h01=0x0050, text=» ADKL A11,1 INCREMENT LOGICAL SECTOR NUMBER «, t00=0x010c, t01=0x0146}
0x1a40a…1a428               Head {h00=0x001a, h01=0x0050, text=» RF(O) TURN10 OVERFLOW«, t00=0x010c, t01=0x017a}
0x1a428…1a43a               Head {h00=0x000e, h01=0x0050, text=» RF TURN20«, t00=0x010d, t01=0x0008}
0x1a43a…1a44e               Head {h00=0x0010, h01=0x0050, text=»TURN10 EQU *«, t00=0x010d, t01=0x001a}
0x1a44e…1a46c               Head {h00=0x001a, h01=0x0050, text=» SUR A11,A11 RESET A11«, t00=0x010d, t01=0x002e}
0x1a46c…1a480               Head {h00=0x0010, h01=0x0050, text=» ADKL A12,1 «, t00=0x010d, t01=0x004c}
0x1a480…1a494               Head {h00=0x0010, h01=0x0050, text=»TURN20 EQU *«, t00=0x010d, t01=0x0060}
0x1a494…1a4a4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x010d, t01=0x0074}
0x1a4a4…1a4b2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010d, t01=0x0084}
0x1a4b2…1a4bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x0092}
0x1a4bc…1a4e2               Head {h00=0x0022, h01=0x0050, text=»* MOVE UP NEXT LOGICAL SECTOR «, t00=0x010d, t01=0x009c}
0x1a4e2…1a4ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x00c2}
0x1a4ec…1a500               Head {h00=0x0010, h01=0x0050, text=»REDMOV EQU *«, t00=0x010d, t01=0x00cc}
0x1a500…1a53a               Head {h00=0x0036, h01=0x0050, text=» ST A1,PSECPA+STKEND SAVE NEW LOGICAL SECTOR PART «, t00=0x010d, t01=0x00e0}
0x1a53a…1a55a               Head {h00=0x001c, h01=0x0050, text=» SLL A1,2 INDEX TO TABLE«, t00=0x010d, t01=0x011a}
0x1a55a…1a582               Head {h00=0x0024, h01=0x0050, text=» LD A1,CIOAD1,A1 SOURCE ADDRESS «, t00=0x010d, t01=0x013a}
0x1a582…1a5a8               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A9 DESTINATION ADDRESS«, t00=0x010d, t01=0x0162}
0x1a5a8…1a5cc               Head {h00=0x0020, h01=0x0050, text=» LDK A3,128 LENGTH IN WORDS «, t00=0x010d, t01=0x0188}
0x1a5cc…1a5e0               Head {h00=0x0010, h01=0x0050, text=»RMOV10 EQU *«, t00=0x010e, t01=0x001c}
0x1a5e0…1a5fa               Head {h00=0x0016, h01=0x0050, text=» LDR* A4,A1 . =15 «, t00=0x010e, t01=0x0030}
0x1a5fa…1a612               Head {h00=0x0014, h01=0x0050, text=» STR A4,A2 . =15«, t00=0x010e, t01=0x004a}
0x1a612…1a624               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x010e, t01=0x0062}
0x1a624…1a636               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x010e, t01=0x0074}
0x1a636…1a648               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x010e, t01=0x0086}
0x1a648…1a668               Head {h00=0x001c, h01=0x0050, text=» RB(P) RMOV10 NEXT WORD «, t00=0x010e, t01=0x0098}
0x1a668…1a678               Head {h00=0x000c, h01=0x0050, text=» RB TURN«, t00=0x010e, t01=0x00b8}
0x1a678…1a680               Head {h00=0x0004, h01=0x0050, t00=0x010e, t01=0x00c8}
0x1a680…1a688               Head {h00=0x0004, h01=0x0050, t00=0x010e, t01=0x00d0}
0x1a688…1a690               Head {h00=0x0004, h01=0x0050, t00=0x010e, t01=0x00d8}
0x1a690…1a6a4               Head {h00=0x0010, h01=0x0050, text=»NOFOND EQU *«, t00=0x010e, t01=0x00e0}
0x1a6a4…1a6ba               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x010e, t01=0x00f4}
0x1a6ba…1a6e4               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR INDICATE READING ERROR«, t00=0x010e, t01=0x010a}
0x1a6e4…1a6f2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010e, t01=0x0134}
0x1a6f2…1a6fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010e, t01=0x0142}
0x1a6fc…1a71a               Head {h00=0x001a, h01=0x0050, text=»* IO ERROR IN READING «, t00=0x010e, t01=0x014c}
0x1a71a…1a724               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010e, t01=0x016a}
0x1a724…1a738               Head {h00=0x0010, h01=0x0050, text=»RET30 EQU * «, t00=0x010e, t01=0x0174}
0x1a738…1a750               Head {h00=0x0014, h01=0x0050, text=» SUK A4,1 . =15 «, t00=0x010e, t01=0x0188}
0x1a750…1a76e               Head {h00=0x001a, h01=0x0050, text=» RB(NZ) REA100 NEW TRY«, t00=0x010f, t01=0x0010}
0x1a76e…1a784               Head {h00=0x0012, h01=0x0050, text=» LC A1,CIOTAB «, t00=0x010f, t01=0x002e}
0x1a784…1a798               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/C0 «, t00=0x010f, t01=0x0044}
0x1a798…1a7d0               Head {h00=0x0034, h01=0x0050, text=» RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S «, t00=0x010f, t01=0x0058}
0x1a7d0…1a7e6               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x010f, t01=0x0090}
0x1a7e6…1a81a               Head {h00=0x0030, h01=0x0050, text=» ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE«, t00=0x010f, t01=0x00a6}
0x1a81a…1a82c               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x010f, t01=0x00da}
0x1a82c…1a840               Head {h00=0x0010, h01=0x0050, text=»RET31 EQU * «, t00=0x010f, t01=0x00ec}
0x1a840…1a854               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x010f, t01=0x0100}
0x1a854…1a88a               Head {h00=0x0032, h01=0x0050, text=» RF(Z) RET32 LAST RETRY WITH LATE DATA STROBE «, t00=0x010f, t01=0x0114}
0x1a88a…1a8a0               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/C000«, t00=0x010f, t01=0x014a}
0x1a8a0…1a8d4               Head {h00=0x0030, h01=0x0050, text=» XRS A2,CIOTAB CHANGE FROM EARLY TO LATE D.S«, t00=0x010f, t01=0x0160}
0x1a8d4…1a8e6 (272, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x0110, t01=0x0004}
0x1a8e6…1a8fa               Head {h00=0x0010, h01=0x0050, text=»RET32 EQU * «, t00=0x0110, t01=0x0016}
0x1a8fa…1a910               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/3FFF«, t00=0x0110, t01=0x002a}
0x1a910…1a93e               Head {h00=0x002a, h01=0x0050, text=» ANS A2,CIOTAB RESET LATE DATA STROBE «, t00=0x0110, t01=0x0040}
0x1a93e…1a954               Head {h00=0x0012, h01=0x0050, text=» LC A1,CIOTOT «, t00=0x0110, t01=0x006e}
0x1a954…1a968               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/C0 «, t00=0x0110, t01=0x0084}
0x1a968…1a9a0               Head {h00=0x0034, h01=0x0050, text=» RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- «, t00=0x0110, t01=0x0098}
0x1a9a0…1a9b6               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x0110, t01=0x00d0}
0x1a9b6…1a9e2               Head {h00=0x0028, h01=0x0050, text=» ORS A2,CIOTOT PREPARE FOR CARRIAGE+«, t00=0x0110, t01=0x00e6}
0x1a9e2…1a9f4               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x0110, t01=0x0112}
0x1a9f4…1aa08               Head {h00=0x0010, h01=0x0050, text=»RET33 EQU * «, t00=0x0110, t01=0x0124}
0x1aa08…1aa1c               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x0110, t01=0x0138}
0x1aa1c…1aa40               Head {h00=0x0020, h01=0x0050, text=» RB(Z) NOFOND READING ERROR «, t00=0x0110, t01=0x014c}
0x1aa40…1aa56               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/C000«, t00=0x0110, t01=0x0170}
0x1aa56…1aa88               Head {h00=0x002e, h01=0x0050, text=» XRS A2,CIOTOT FROM CARRIAGE+ TO CARRIGE- «, t00=0x0110, t01=0x0186}
0x1aa88…1aa9a               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x0111, t01=0x0028}
0x1aa9a…1aaa8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0111, t01=0x003a}
0x1aaa8…1aab2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x0048}
0x1aab2…1aac6               Head {h00=0x0010, h01=0x0050, text=»* SEEK TABLE«, t00=0x0111, t01=0x0052}
0x1aac6…1aad0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x0066}
0x1aad0…1aae4               Head {h00=0x0010, h01=0x0050, text=»SEKTAB EQU *«, t00=0x0111, t01=0x0070}
0x1aae4…1aaf4               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0111, t01=0x0084}
0x1aaf4…1aafe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x0094}
0x1aafe…1ab12               Head {h00=0x0010, h01=0x0050, text=»* CIO TABLE «, t00=0x0111, t01=0x009e}
0x1ab12…1ab1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x00b2}
0x1ab1c…1ab30               Head {h00=0x0010, h01=0x0050, text=»CIOTAB EQU *«, t00=0x0111, t01=0x00bc}
0x1ab30…1ab5a               Head {h00=0x0026, h01=0x0050, text=» DATA 0 ORDER,SECTOR NBR,HEAD NBR «, t00=0x0111, t01=0x00d0}
0x1ab5a…1ab6e               Head {h00=0x0010, h01=0x0050, text=»CIOTOT EQU *«, t00=0x0111, t01=0x00fa}
0x1ab6e…1aba8               Head {h00=0x0036, h01=0x0050, text=» DATA 384 TOTAL NUMBER OF WORDS(1 PHYSICAL SECTOR)«, t00=0x0111, t01=0x010e}
0x1aba8…1abbc               Head {h00=0x0010, h01=0x0050, text=»CIOPA1 EQU *«, t00=0x0111, t01=0x0148}
0x1abbc…1abf6               Head {h00=0x0036, h01=0x0050, text=» DATA /4000+128 DATA CHAINING BIT,NUMBER OF WORDS «, t00=0x0111, t01=0x015c}
0x1abf6…1ac0a               Head {h00=0x0010, h01=0x0050, text=»CIOAD1 EQU *«, t00=0x0112, t01=0x0008}
0x1ac0a…1ac24               Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 1 «, t00=0x0112, t01=0x001c}
0x1ac24…1ac38               Head {h00=0x0010, h01=0x0050, text=»CIOPA2 EQU *«, t00=0x0112, t01=0x0036}
0x1ac38…1ac50               Head {h00=0x0014, h01=0x0050, text=» DATA /4000+128 «, t00=0x0112, t01=0x004a}
0x1ac50…1ac64               Head {h00=0x0010, h01=0x0050, text=»CIOAD2 EQU *«, t00=0x0112, t01=0x0062}
0x1ac64…1ac7e               Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 2 «, t00=0x0112, t01=0x0076}
0x1ac7e…1ac92               Head {h00=0x0010, h01=0x0050, text=»CIOPA3 EQU *«, t00=0x0112, t01=0x0090}
0x1ac92…1aca4               Head {h00=0x000e, h01=0x0050, text=» DATA 128 «, t00=0x0112, t01=0x00a4}
0x1aca4…1acb8               Head {h00=0x0010, h01=0x0050, text=»CIOAD3 EQU *«, t00=0x0112, t01=0x00b6}
0x1acb8…1acd2               Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 3 «, t00=0x0112, t01=0x00ca}
0x1acd2…1acde               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0112, t01=0x00e4}
0x1acde…1acf8               Head {h00=0x0016, h01=0x0050, text=» IFT CDDI16=1  =9 «, t00=0x0112, t01=0x00f0}
0x1acf8…1ad06               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0112, t01=0x010a}
0x1ad06…1ad32               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x0112, t01=0x0118}
0x1ad32…1ad5e               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x0112, t01=0x0144}
0x1ad5e…1ad8a               Head {h00=0x0028, h01=0x0050, text=»*  CDINIT - INITIALIZE DISC UNIT  * «, t00=0x0112, t01=0x0170}
0x1ad8a…1adb6               Head {h00=0x0028, h01=0x0050, text=»*  =============================  * «, t00=0x0113, t01=0x000c}
0x1adb6…1ade2               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x0113, t01=0x0038}
0x1ade2…1ae0e               Head {h00=0x0028, h01=0x0050, text=»*  REFERENCED IN: SYSLOD,GETFIL   * «, t00=0x0113, t01=0x0064}
0x1ae0e…1ae3a               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x0113, t01=0x0090}
0x1ae3a…1ae66               Head {h00=0x0028, h01=0x0050, text=»*  ENTRY: A1 - DEVICE ADDRESS     * «, t00=0x0113, t01=0x00bc}
0x1ae66…1ae92               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x0113, t01=0x00e8}
0x1ae92…1aebe               Head {h00=0x0028, h01=0x0050, text=»*  EXIT:                          * «, t00=0x0113, t01=0x0114}
0x1aebe…1aeea               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x0113, t01=0x0140}
0x1aeea…1af16               Head {h00=0x0028, h01=0x0050, text=»*  WORK REGISTERS:  A1,A2          *«, t00=0x0113, t01=0x016c}
0x1af16…1af42               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x0114, t01=0x0008}
0x1af42…1af6e               Head {h00=0x0028, h01=0x0050, text=»*  SUBROUTINES:                   * «, t00=0x0114, t01=0x0034}
0x1af6e…1af9a               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x0114, t01=0x0060}
0x1af9a…1afc6               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x0114, t01=0x008c}
0x1afc6…1afce               Head {h00=0x0004, h01=0x0050, t00=0x0114, t01=0x00b8}
0x1afce…1afe2               Head {h00=0x0010, h01=0x0050, text=»CDINIT EQU *«, t00=0x0114, t01=0x00c0}
0x1afe2…1afec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0114, t01=0x00d4}
0x1afec…1b018               Head {h00=0x0028, h01=0x0050, text=»* INIT 16M OR 80M CDC DISC COMMANDS «, t00=0x0114, t01=0x00de}
0x1b018…1b022               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0114, t01=0x010a}
0x1b022…1b038               Head {h00=0x0012, h01=0x0050, text=» LDR A2,A1  =9«, t00=0x0114, t01=0x0114}
0x1b038…1b062               Head {h00=0x0026, h01=0x0050, text=» ANK A1,/3F MASK DEVICE ADDRESS =9«, t00=0x0114, t01=0x012a}
0x1b062…1b094               Head {h00=0x002e, h01=0x0050, text=» SRL A2,2 FIX OR CARTRIDGE IN POSITION =9 «, t00=0x0114, t01=0x0154}
0x1b094…1b0ac               Head {h00=0x0014, h01=0x0050, text=» ANK A2,/10  =9 «, t00=0x0114, t01=0x0186}
0x1b0ac…1b0ec               Head {h00=0x003c, h01=0x0050, text=» ST A2,CARFIX+STKEND SAVE FIX OR CARTRIDGE INDICATOR =9 «, t00=0x0115, t01=0x000e}
0x1b0ec…1b11c               Head {h00=0x002c, h01=0x0050, text=» ORKL A1,CIO CONFIG CIO A1,1,XX  INSTR. «, t00=0x0115, t01=0x004e}
0x1b11c…1b132               Head {h00=0x0012, h01=0x0050, text=» ST A1,READC1 «, t00=0x0115, t01=0x007e}
0x1b132…1b15e               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A1,XX  INSTR.«, t00=0x0115, t01=0x0094}
0x1b15e…1b174               Head {h00=0x0012, h01=0x0050, text=» ST A1,READC2 «, t00=0x0115, t01=0x00c0}
0x1b174…1b1a2               Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/B00 FORM CIO A2,1,XX  INSTR.«, t00=0x0115, t01=0x00d6}
0x1b1a2…1b1b8               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKC1 «, t00=0x0115, t01=0x0104}
0x1b1b8…1b1e4               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX  INSTR.«, t00=0x0115, t01=0x011a}
0x1b1e4…1b1fa               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKC2 «, t00=0x0115, t01=0x0146}
0x1b1fa…1b20e               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x0115, t01=0x015c}
0x1b20e…1b244               Head {h00=0x0032, h01=0x0050, text=» ST A2,PSECNL+STKEND INIT VALUE FOR SECTOR NBR«, t00=0x0115, t01=0x0170}
0x1b244…1b26e               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/300 BUFLEN 80M CDC DISC «, t00=0x0116, t01=0x0016}
0x1b26e…1b290               Head {h00=0x001e, h01=0x0050, text=» ST A2,SAVCON SAVE LENGTH «, t00=0x0116, t01=0x0040}
0x1b290…1b2c8               Head {h00=0x0034, h01=0x0050, text=» LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR.«, t00=0x0116, t01=0x0062}
0x1b2c8…1b2dc               Head {h00=0x0010, h01=0x0050, text=» ST A2,READ «, t00=0x0116, t01=0x009a}
0x1b2dc…1b2f0               Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x0116, t01=0x00ae}
0x1b2f0…1b31a               Head {h00=0x0026, h01=0x0050, text=» CF A14,GETVLB GET VOLUME LABEL =9«, t00=0x0116, t01=0x00c2}
0x1b31a…1b342               Head {h00=0x0024, h01=0x0050, text=» LC A2,FORDEV+1,A9 GET FORMAT =9«, t00=0x0116, t01=0x00ec}
0x1b342…1b364               Head {h00=0x001e, h01=0x0050, text=» ANK A2,1 FORMAT 4 OR 5 =9«, t00=0x0116, t01=0x0114}
0x1b364…1b390               Head {h00=0x0028, h01=0x0050, text=» LDK A2,23 CONSTANT FOR 16M DISC =9 «, t00=0x0116, t01=0x0136}
0x1b390…1b3b2               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) CDI:10 16M DISC =9«, t00=0x0116, t01=0x0162}
0x1b3b2…1b3de               Head {h00=0x0028, h01=0x0050, text=» LDK A2,115 CONSTANT FOR 80M DISC =9«, t00=0x0116, t01=0x0184}
0x1b3de…1b3f6               Head {h00=0x0014, h01=0x0050, text=»CDI:10 EQU *  =9«, t00=0x0117, t01=0x0020}
0x1b3f6…1b422               Head {h00=0x0028, h01=0x0050, text=» ST A2,DIVCON SET DIVIDE CONSTANT =9«, t00=0x0117, t01=0x0038}
0x1b422…1b432               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0117, t01=0x0064}
0x1b432…1b440               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0117, t01=0x0074}
0x1b440…1b478               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0117, t01=0x0082}
0x1b478…1b4b0               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0117, t01=0x00ba}
0x1b4b0…1b4e8               Head {h00=0x0034, h01=0x0050, text=»*  CRDSEC- READ ONE SECTOR FROM DISC          * «, t00=0x0117, t01=0x00f2}
0x1b4e8…1b520               Head {h00=0x0034, h01=0x0050, text=»*  =================================          * «, t00=0x0117, t01=0x012a}
0x1b520…1b558               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0117, t01=0x0162}
0x1b558…1b590               Head {h00=0x0034, h01=0x0050, text=»*  REFERENCED IN: SYSLOD                      * «, t00=0x0118, t01=0x000a}
0x1b590…1b5c8               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0118, t01=0x0042}
0x1b5c8…1b600               Head {h00=0x0034, h01=0x0050, text=»*  ENTRY:  A9 = BUFFER ADDRESS                * «, t00=0x0118, t01=0x007a}
0x1b600…1b638               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0118, t01=0x00b2}
0x1b638…1b670               Head {h00=0x0034, h01=0x0050, text=»*         A11 - SECTOR NBR LEAST SIGNIFICANT  * «, t00=0x0118, t01=0x00ea}
0x1b670…1b6a8               Head {h00=0x0034, h01=0x0050, text=»*         A12 - SECTOR NBR MOST SIGNIFICANT   * «, t00=0x0118, t01=0x0122}
0x1b6a8…1b6e0               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0118, t01=0x015a}
0x1b6e0…1b718 (281, 0, 398) Head {h00=0x0034, h01=0x0050, text=»*  EXIT: A12,A11 = A12,A11 + 1                * «, t00=0x0119, t01=0x0004}
0x1b718…1b750               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0119, t01=0x003c}
0x1b750…1b788               Head {h00=0x0034, h01=0x0050, text=»*   WORK REGISTERS:  A1,A2,A3,A4              * «, t00=0x0119, t01=0x0074}
0x1b788…1b7c0               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0119, t01=0x00ac}
0x1b7c0…1b7f8               Head {h00=0x0034, h01=0x0050, text=»*  SUBROUTINES:  ERROR                        * «, t00=0x0119, t01=0x00e4}
0x1b7f8…1b830               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0119, t01=0x011c}
0x1b830…1b868               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0119, t01=0x0154}
0x1b868…1b872               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x018c}
0x1b872…1b886               Head {h00=0x0010, h01=0x0050, text=»CRDSEC EQU *«, t00=0x011a, t01=0x0008}
0x1b886…1b890               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011a, t01=0x001c}
0x1b890…1b8ac               Head {h00=0x0018, h01=0x0050, text=»* SET BUFFER ADDRESS«, t00=0x011a, t01=0x0026}
0x1b8ac…1b8b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011a, t01=0x0042}
0x1b8b6…1b8d8               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 BUFFER ADDRESS «, t00=0x011a, t01=0x004c}
0x1b8d8…1b8ec               Head {h00=0x0010, h01=0x0050, text=» ADKL A1,256«, t00=0x011a, t01=0x006e}
0x1b8ec…1b90c               Head {h00=0x001c, h01=0x0050, text=» ST A1,CIOAD2 ADDRESS 2 «, t00=0x011a, t01=0x0082}
0x1b90c…1b920               Head {h00=0x0010, h01=0x0050, text=» ADKL A1,256«, t00=0x011a, t01=0x00a2}
0x1b920…1b940               Head {h00=0x001c, h01=0x0050, text=» ST A1,CIOAD3 ADDRESS 3 «, t00=0x011a, t01=0x00b6}
0x1b940…1b956               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/3FFF«, t00=0x011a, t01=0x00d6}
0x1b956…1b978               Head {h00=0x001e, h01=0x0050, text=» ANS A1,CIOTAB RESET BITS «, t00=0x011a, t01=0x00ec}
0x1b978…1b99a               Head {h00=0x001e, h01=0x0050, text=» ANS A1,CIOTOT RESET BITS «, t00=0x011a, t01=0x010e}
0x1b99a…1b9cc               Head {h00=0x002e, h01=0x0050, text=» LDR A1,A12 SECTOR NUMBER MOST SIGNIFICANT«, t00=0x011a, t01=0x0130}
0x1b9cc…1ba00               Head {h00=0x0030, h01=0x0050, text=» LDR A2,A11 SECTOR NUMBER LEAST SIGNIFICANT «, t00=0x011a, t01=0x0162}
0x1ba00…1ba0e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011b, t01=0x0008}
0x1ba0e…1ba18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x0016}
0x1ba18…1ba38               Head {h00=0x001c, h01=0x0050, text=»* DIVIDE LOGICAL WITH 3 «, t00=0x011b, t01=0x0020}
0x1ba38…1ba42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x0040}
0x1ba42…1ba54               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x011b, t01=0x004a}
0x1ba54…1ba68               Head {h00=0x0010, h01=0x0050, text=»RED100 EQU *«, t00=0x011b, t01=0x005c}
0x1ba68…1ba7a               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x011b, t01=0x0070}
0x1ba7a…1ba8c               Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x011b, t01=0x0082}
0x1ba8c…1baa2               Head {h00=0x0012, h01=0x0050, text=» RB(NN) RED100«, t00=0x011b, t01=0x0094}
0x1baa2…1bab4               Head {h00=0x000e, h01=0x0050, text=» ADK A1,3 «, t00=0x011b, t01=0x00aa}
0x1bab4…1bac6               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x011b, t01=0x00bc}
0x1bac6…1bad4               Head {h00=0x000a, h01=0x0050, text=» DVK 3«, t00=0x011b, t01=0x00ce}
0x1bad4…1baea               Head {h00=0x0012, h01=0x0050, text=» CW A9,CIOAD1 «, t00=0x011b, t01=0x00dc}
0x1baea…1bb28               Head {h00=0x003a, h01=0x0050, text=» RF(NE) RED110 NOT SAME BUFFER ADDRESS MEANS NEW READ «, t00=0x011b, t01=0x00f2}
0x1bb28…1bb44               Head {h00=0x0018, h01=0x0050, text=» CW A2,PSECNL+STKEND«, t00=0x011b, t01=0x0130}
0x1bb44…1bb74               Head {h00=0x002c, h01=0x0050, text=» RF(NE) RED110 NOT SAME PHYSICAL SEC NBR«, t00=0x011b, t01=0x014c}
0x1bb74…1bb90               Head {h00=0x0018, h01=0x0050, text=» CW A3,PSECNM+STKEND«, t00=0x011b, t01=0x017c}
0x1bb90…1bbc0               Head {h00=0x002c, h01=0x0050, text=» RF(NE) RED110 NOT SAME PHYSICAL SEC NBR«, t00=0x011c, t01=0x0008}
0x1bbc0…1bbdc               Head {h00=0x0018, h01=0x0050, text=» CW A1,PSECPA+STKEND«, t00=0x011c, t01=0x0038}
0x1bbdc…1bc06               Head {h00=0x0026, h01=0x0050, text=» RF(E) TURN SAME LOG SEC AS BEFORE«, t00=0x011c, t01=0x0054}
0x1bc06…1bc38               Head {h00=0x002e, h01=0x0050, text=» RF(G) REDMOV MOVE UP NEXT LOGICAL SECTOR «, t00=0x011c, t01=0x007e}
0x1bc38…1bc4c               Head {h00=0x0010, h01=0x0050, text=»RED110 EQU *«, t00=0x011c, t01=0x00b0}
0x1bc4c…1bc6c               Head {h00=0x001c, h01=0x0050, text=» ST A9,CIOAD1 ADDRESS 1 «, t00=0x011c, t01=0x00c4}
0x1bc6c…1bc98               Head {h00=0x0028, h01=0x0050, text=» MS 3,PSECPA+STKEND SAVE NEW VALUES «, t00=0x011c, t01=0x00e4}
0x1bc98…1bcaa               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x011c, t01=0x0110}
0x1bcaa…1bcc4               Head {h00=0x0016, h01=0x0050, text=»DIVCON EQU *+2  =9«, t00=0x011c, t01=0x0122}
0x1bcc4…1bcd8               Head {h00=0x0010, h01=0x0050, text=» DVK 23  =9 «, t00=0x011c, t01=0x013c}
0x1bcd8…1bce6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011c, t01=0x0150}
0x1bce6…1bd08               Head {h00=0x001e, h01=0x0050, text=»* A1=HEAD NBR * SECTOR NBR«, t00=0x011c, t01=0x015e}
0x1bd08…1bd22               Head {h00=0x0016, h01=0x0050, text=»* A2=CYLINDER NBR «, t00=0x011c, t01=0x0180}
0x1bd22…1bd34               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x011d, t01=0x000a}
0x1bd34…1bd46               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x011d, t01=0x001c}
0x1bd46…1bd58               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x011d, t01=0x002e}
0x1bd58…1bd68               Head {h00=0x000c, h01=0x0050, text=» DVK 23 «, t00=0x011d, t01=0x0040}
0x1bd68…1bd80               Head {h00=0x0014, h01=0x0050, text=»* A1=SECTOR NBR «, t00=0x011d, t01=0x0050}
0x1bd80…1bd96               Head {h00=0x0012, h01=0x0050, text=»* A2=HEAD NBR «, t00=0x011d, t01=0x0068}
0x1bd96…1bdbe               Head {h00=0x0024, h01=0x0050, text=» ORKL A2,/800 SET INTERRUPT BIT «, t00=0x011d, t01=0x007e}
0x1bdbe…1bdee               Head {h00=0x002c, h01=0x0050, text=» OR A2,CARFIX+STKEND FIX OR CARTRIDGE =9«, t00=0x011d, t01=0x00a6}
0x1bdee…1be14               Head {h00=0x0022, h01=0x0050, text=» ST A2,CIOTAB UPDATE CIO TABLE«, t00=0x011d, t01=0x00d6}
0x1be14…1be22               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011d, t01=0x00fc}
0x1be22…1be2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011d, t01=0x010a}
0x1be2c…1be42               Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x011d, t01=0x0114}
0x1be42…1be4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011d, t01=0x012a}
0x1be4c…1be5e               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x011d, t01=0x0134}
0x1be5e…1be7a               Head {h00=0x0018, h01=0x0050, text=» MUK 5 INTERLACING 5«, t00=0x011d, t01=0x0146}
0x1be7a…1be90               Head {h00=0x0012, h01=0x0050, text=» SRC A3,1  =9 «, t00=0x011d, t01=0x0162}
0x1be90…1bebc               Head {h00=0x0028, h01=0x0050, text=» RF(NN) INT100 EVEN CYLINDER NUMBER «, t00=0x011d, t01=0x0178}
0x1bebc…1beda               Head {h00=0x001a, h01=0x0050, text=» ADK A2,12 SKEW FACTOR«, t00=0x011e, t01=0x0014}
0x1beda…1beee               Head {h00=0x0010, h01=0x0050, text=»INT100 EQU *«, t00=0x011e, t01=0x0032}
0x1beee…1befe               Head {h00=0x000c, h01=0x0050, text=» DVK 23 «, t00=0x011e, t01=0x0046}
0x1befe…1bf1c               Head {h00=0x001a, h01=0x0050, text=» SLL A1,5 IN POSITION «, t00=0x011e, t01=0x0056}
0x1bf1c…1bf44               Head {h00=0x0024, h01=0x0050, text=» ORS A1,CIOTAB UPDATE CIO TABLE «, t00=0x011e, t01=0x0074}
0x1bf44…1bf64               Head {h00=0x001c, h01=0x0050, text=» SLC A3,1 RESTORE A3 =9 «, t00=0x011e, t01=0x009c}
0x1bf64…1bf7a               Head {h00=0x0012, h01=0x0050, text=» CW A3,CYLNBR «, t00=0x011e, t01=0x00bc}
0x1bf7a…1bfa4               Head {h00=0x0026, h01=0x0050, text=» RF(E) READER SAME CYLINDER NUMBER«, t00=0x011e, t01=0x00d2}
0x1bfa4…1bfb2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011e, t01=0x00fc}
0x1bfb2…1bfbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011e, t01=0x010a}
0x1bfbc…1bfca               Head {h00=0x000a, h01=0x0050, text=»* SEEK«, t00=0x011e, t01=0x0114}
0x1bfca…1bfd4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011e, t01=0x0122}
0x1bfd4…1bffc               Head {h00=0x0024, h01=0x0050, text=» ST A3,CYLNBR SAVE CYLINDER NBR «, t00=0x011e, t01=0x012c}
0x1bffc…1c020               Head {h00=0x0020, h01=0x0050, text=» ADKL A3,/A800 SEEK COMMAND «, t00=0x011e, t01=0x0154}
0x1c020…1c036               Head {h00=0x0012, h01=0x0050, text=» ST A3,SEKTAB «, t00=0x011e, t01=0x0178}
0x1c036…1c04e               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,SEKTAB «, t00=0x011e, t01=0x018e}
0x1c04e…1c062               Head {h00=0x0010, h01=0x0050, text=»SEEKC1 EQU *«, t00=0x011f, t01=0x0016}
0x1c062…1c07a               Head {h00=0x0014, h01=0x0050, text=» CIO A2,1,0 SEEK«, t00=0x011f, t01=0x002a}
0x1c07a…1c090               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEKC1«, t00=0x011f, t01=0x0042}
0x1c090…1c0a4               Head {h00=0x0010, h01=0x0050, text=»SEEKC2 EQU *«, t00=0x011f, t01=0x0058}
0x1c0a4…1c0b6               Head {h00=0x000e, h01=0x0050, text=» SST A2,0 «, t00=0x011f, t01=0x006c}
0x1c0b6…1c0cc               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEKC2«, t00=0x011f, t01=0x007e}
0x1c0cc…1c0da               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011f, t01=0x0094}
0x1c0da…1c0e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011f, t01=0x00a2}
0x1c0e4…1c0f6               Head {h00=0x000e, h01=0x0050, text=»*    READ «, t00=0x011f, t01=0x00ac}
0x1c0f6…1c100               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011f, t01=0x00be}
0x1c100…1c114               Head {h00=0x0010, h01=0x0050, text=»READER EQU *«, t00=0x011f, t01=0x00c8}
0x1c114…1c13c               Head {h00=0x0024, h01=0x0050, text=» LDK A4,3 NUMBER OF RETRIES =15 «, t00=0x011f, t01=0x00dc}
0x1c13c…1c150               Head {h00=0x0010, h01=0x0050, text=»REA100 EQU *«, t00=0x011f, t01=0x0104}
0x1c150…1c17c               Head {h00=0x0028, h01=0x0050, text=» LDKL A1,CIOTAB POINTER TO CIO TABLE«, t00=0x011f, t01=0x0118}
0x1c17c…1c19a               Head {h00=0x001a, h01=0x0050, text=»READC1 CIO A1,1,0 READ«, t00=0x011f, t01=0x0144}
0x1c19a…1c1c4               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READC1 LOOP UNTIL ACCEPTED«, t00=0x011f, t01=0x0162}
0x1c1c4…1c1ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011f, t01=0x018c}
0x1c1ce…1c1ec               Head {h00=0x001a, h01=0x0050, text=»READC2 SST A1,0 STATUS«, t00=0x0120, t01=0x0008}
0x1c1ec…1c216               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READC2 LOOP UNTIL ACCEPTED«, t00=0x0120, t01=0x0026}
0x1c216…1c234               Head {h00=0x001a, h01=0x0050, text=» ANKL A1,/FF0F STATUS «, t00=0x0120, t01=0x0050}
0x1c234…1c258               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RET30 READING ERROR «, t00=0x0120, t01=0x006e}
0x1c258…1c296               Head {h00=0x003a, h01=0x0050, text=» LD A1,PSECPA+STKEND GET LOGICAL SECT. IN PHYSICAL =11«, t00=0x0120, t01=0x0092}
0x1c296…1c2d4               Head {h00=0x003a, h01=0x0050, text=» RF(NZ) REDMOV NOT FIRST LOGICAL SECT. IN PHYSICAL =11«, t00=0x0120, t01=0x00d0}
0x1c2d4…1c2dc               Head {h00=0x0004, h01=0x0050, t00=0x0120, t01=0x010e}
0x1c2dc…1c2ee               Head {h00=0x000e, h01=0x0050, text=»TURN EQU *«, t00=0x0120, t01=0x0116}
0x1c2ee…1c322               Head {h00=0x0030, h01=0x0050, text=» ADKL A11,1 INCREMENT LOGICAL SECTOR NUMBER «, t00=0x0120, t01=0x0128}
0x1c322…1c340               Head {h00=0x001a, h01=0x0050, text=» RF(O) TURN10 OVERFLOW«, t00=0x0120, t01=0x015c}
0x1c340…1c352               Head {h00=0x000e, h01=0x0050, text=» RF TURN20«, t00=0x0120, t01=0x017a}
0x1c352…1c366               Head {h00=0x0010, h01=0x0050, text=»TURN10 EQU *«, t00=0x0120, t01=0x018c}
0x1c366…1c384               Head {h00=0x001a, h01=0x0050, text=» SUR A11,A11 RESET A11«, t00=0x0121, t01=0x0010}
0x1c384…1c398               Head {h00=0x0010, h01=0x0050, text=» ADKL A12,1 «, t00=0x0121, t01=0x002e}
0x1c398…1c3ac               Head {h00=0x0010, h01=0x0050, text=»TURN20 EQU *«, t00=0x0121, t01=0x0042}
0x1c3ac…1c3bc               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0121, t01=0x0056}
0x1c3bc…1c3ca               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0121, t01=0x0066}
0x1c3ca…1c3d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x0074}
0x1c3d4…1c3fa               Head {h00=0x0022, h01=0x0050, text=»* MOVE UP NEXT LOGICAL SECTOR «, t00=0x0121, t01=0x007e}
0x1c3fa…1c404               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x00a4}
0x1c404…1c418               Head {h00=0x0010, h01=0x0050, text=»REDMOV EQU *«, t00=0x0121, t01=0x00ae}
0x1c418…1c452               Head {h00=0x0036, h01=0x0050, text=» ST A1,PSECPA+STKEND SAVE NEW LOGICAL SECTOR PART «, t00=0x0121, t01=0x00c2}
0x1c452…1c468               Head {h00=0x0012, h01=0x0050, text=» SLL A1,1  =9 «, t00=0x0121, t01=0x00fc}
0x1c468…1c47e               Head {h00=0x0012, h01=0x0050, text=» LDR A2,A1  =9«, t00=0x0121, t01=0x0112}
0x1c47e…1c494               Head {h00=0x0012, h01=0x0050, text=» ADR A1,A1  =9«, t00=0x0121, t01=0x0128}
0x1c494…1c4be               Head {h00=0x0026, h01=0x0050, text=» ADR A1,A2 A1 MULTIPIED WITH 6 =9 «, t00=0x0121, t01=0x013e}
0x1c4be…1c4e6               Head {h00=0x0024, h01=0x0050, text=» LD A1,CIOAD1,A1 SOURCE ADDRESS «, t00=0x0121, t01=0x0168}
0x1c4e6…1c50c               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A9 DESTINATION ADDRESS«, t00=0x0121, t01=0x0190}
0x1c50c…1c530               Head {h00=0x0020, h01=0x0050, text=» LDK A3,128 LENGTH IN WORDS «, t00=0x0122, t01=0x0026}
0x1c530…1c544               Head {h00=0x0010, h01=0x0050, text=»RMOV10 EQU *«, t00=0x0122, t01=0x004a}
0x1c544…1c55e               Head {h00=0x0016, h01=0x0050, text=» LDR* A4,A1 . =15 «, t00=0x0122, t01=0x005e}
0x1c55e…1c576               Head {h00=0x0014, h01=0x0050, text=» STR A4,A2 . =15«, t00=0x0122, t01=0x0078}
0x1c576…1c588               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0122, t01=0x0090}
0x1c588…1c59a               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0122, t01=0x00a2}
0x1c59a…1c5ac               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0122, t01=0x00b4}
0x1c5ac…1c5cc               Head {h00=0x001c, h01=0x0050, text=» RB(P) RMOV10 NEXT WORD «, t00=0x0122, t01=0x00c6}
0x1c5cc…1c5dc               Head {h00=0x000c, h01=0x0050, text=» RB TURN«, t00=0x0122, t01=0x00e6}
0x1c5dc…1c5e4               Head {h00=0x0004, h01=0x0050, t00=0x0122, t01=0x00f6}
0x1c5e4…1c5ec               Head {h00=0x0004, h01=0x0050, t00=0x0122, t01=0x00fe}
0x1c5ec…1c5f4               Head {h00=0x0004, h01=0x0050, t00=0x0122, t01=0x0106}
0x1c5f4…1c608               Head {h00=0x0010, h01=0x0050, text=»NOFOND EQU *«, t00=0x0122, t01=0x010e}
0x1c608…1c61e               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x0122, t01=0x0122}
0x1c61e…1c648               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR INDICATE READING ERROR«, t00=0x0122, t01=0x0138}
0x1c648…1c656               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0122, t01=0x0162}
0x1c656…1c660               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0122, t01=0x0170}
0x1c660…1c67e               Head {h00=0x001a, h01=0x0050, text=»* IO ERROR IN READING «, t00=0x0122, t01=0x017a}
0x1c67e…1c688               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0123, t01=0x0008}
0x1c688…1c69c               Head {h00=0x0010, h01=0x0050, text=»RET30 EQU * «, t00=0x0123, t01=0x0012}
0x1c69c…1c6b4               Head {h00=0x0014, h01=0x0050, text=» SUK A4,1 . =15 «, t00=0x0123, t01=0x0026}
0x1c6b4…1c6d2               Head {h00=0x001a, h01=0x0050, text=» RB(NZ) REA100 NEW TRY«, t00=0x0123, t01=0x003e}
0x1c6d2…1c6e8               Head {h00=0x0012, h01=0x0050, text=» LC A1,CIOTAB «, t00=0x0123, t01=0x005c}
0x1c6e8…1c6fc               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/C0 «, t00=0x0123, t01=0x0072}
0x1c6fc…1c734               Head {h00=0x0034, h01=0x0050, text=» RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S «, t00=0x0123, t01=0x0086}
0x1c734…1c74a               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x0123, t01=0x00be}
0x1c74a…1c77e               Head {h00=0x0030, h01=0x0050, text=» ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE«, t00=0x0123, t01=0x00d4}
0x1c77e…1c790               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x0123, t01=0x0108}
0x1c790…1c7a4               Head {h00=0x0010, h01=0x0050, text=»RET31 EQU * «, t00=0x0123, t01=0x011a}
0x1c7a4…1c7b8               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x0123, t01=0x012e}
0x1c7b8…1c7ee               Head {h00=0x0032, h01=0x0050, text=» RF(Z) RET32 LAST RETRY WITH LATE DATA STROBE «, t00=0x0123, t01=0x0142}
0x1c7ee…1c804               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/C000«, t00=0x0123, t01=0x0178}
0x1c804…1c838               Head {h00=0x0030, h01=0x0050, text=» XRS A2,CIOTAB CHANGE FROM EARLY TO LATE D.S«, t00=0x0123, t01=0x018e}
0x1c838…1c84a               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x0124, t01=0x0032}
0x1c84a…1c85e               Head {h00=0x0010, h01=0x0050, text=»RET32 EQU * «, t00=0x0124, t01=0x0044}
0x1c85e…1c874               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/3FFF«, t00=0x0124, t01=0x0058}
0x1c874…1c8a2               Head {h00=0x002a, h01=0x0050, text=» ANS A2,CIOTAB RESET LATE DATA STROBE «, t00=0x0124, t01=0x006e}
0x1c8a2…1c8b8               Head {h00=0x0012, h01=0x0050, text=» LC A1,CIOTOT «, t00=0x0124, t01=0x009c}
0x1c8b8…1c8cc               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/C0 «, t00=0x0124, t01=0x00b2}
0x1c8cc…1c904               Head {h00=0x0034, h01=0x0050, text=» RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- «, t00=0x0124, t01=0x00c6}
0x1c904…1c91a               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x0124, t01=0x00fe}
0x1c91a…1c946               Head {h00=0x0028, h01=0x0050, text=» ORS A2,CIOTOT PREPARE FOR CARRIAGE+«, t00=0x0124, t01=0x0114}
0x1c946…1c958               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x0124, t01=0x0140}
0x1c958…1c96c               Head {h00=0x0010, h01=0x0050, text=»RET33 EQU * «, t00=0x0124, t01=0x0152}
0x1c96c…1c980               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x0124, t01=0x0166}
0x1c980…1c9a4               Head {h00=0x0020, h01=0x0050, text=» RB(Z) NOFOND READING ERROR «, t00=0x0124, t01=0x017a}
0x1c9a4…1c9ba               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/C000«, t00=0x0125, t01=0x000e}
0x1c9ba…1c9ec               Head {h00=0x002e, h01=0x0050, text=» XRS A2,CIOTOT FROM CARRIAGE+ TO CARRIGE- «, t00=0x0125, t01=0x0024}
0x1c9ec…1c9fe               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x0125, t01=0x0056}
0x1c9fe…1ca0c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0125, t01=0x0068}
0x1ca0c…1ca16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0125, t01=0x0076}
0x1ca16…1ca2a               Head {h00=0x0010, h01=0x0050, text=»* SEEK TABLE«, t00=0x0125, t01=0x0080}
0x1ca2a…1ca34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0125, t01=0x0094}
0x1ca34…1ca48               Head {h00=0x0010, h01=0x0050, text=»SEKTAB EQU *«, t00=0x0125, t01=0x009e}
0x1ca48…1ca58               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0125, t01=0x00b2}
0x1ca58…1ca62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0125, t01=0x00c2}
0x1ca62…1ca76               Head {h00=0x0010, h01=0x0050, text=»* CIO TABLE «, t00=0x0125, t01=0x00cc}
0x1ca76…1ca80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0125, t01=0x00e0}
0x1ca80…1ca94               Head {h00=0x0010, h01=0x0050, text=»CIOTAB EQU *«, t00=0x0125, t01=0x00ea}
0x1ca94…1cabe               Head {h00=0x0026, h01=0x0050, text=» DATA 0 ORDER,SECTOR NBR,HEAD NBR «, t00=0x0125, t01=0x00fe}
0x1cabe…1cad2               Head {h00=0x0010, h01=0x0050, text=»CIOTOT EQU *«, t00=0x0125, t01=0x0128}
0x1cad2…1cb0c               Head {h00=0x0036, h01=0x0050, text=» DATA 384 TOTAL NUMBER OF WORDS(1 PHYSICAL SECTOR)«, t00=0x0125, t01=0x013c}
0x1cb0c…1cb20               Head {h00=0x0010, h01=0x0050, text=»CIOPA1 EQU *«, t00=0x0125, t01=0x0176}
0x1cb20…1cb5a               Head {h00=0x0036, h01=0x0050, text=» DATA /4000+128 DATA CHAINING BIT,NUMBER OF WORDS «, t00=0x0125, t01=0x018a}
0x1cb5a…1cb80               Head {h00=0x0022, h01=0x0050, text=» DATA 0 ADDRESS1 MOST SIGN. =9«, t00=0x0126, t01=0x0034}
0x1cb80…1cb94               Head {h00=0x0010, h01=0x0050, text=»CIOAD1 EQU *«, t00=0x0126, t01=0x005a}
0x1cb94…1cbae               Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 1 «, t00=0x0126, t01=0x006e}
0x1cbae…1cbc2               Head {h00=0x0010, h01=0x0050, text=»CIOPA2 EQU *«, t00=0x0126, t01=0x0088}
0x1cbc2…1cbda               Head {h00=0x0014, h01=0x0050, text=» DATA /4000+128 «, t00=0x0126, t01=0x009c}
0x1cbda…1cc02               Head {h00=0x0024, h01=0x0050, text=» DATA 0 ADDRESS 2 MOST SIGN. =9 «, t00=0x0126, t01=0x00b4}
0x1cc02…1cc16               Head {h00=0x0010, h01=0x0050, text=»CIOAD2 EQU *«, t00=0x0126, t01=0x00dc}
0x1cc16…1cc30               Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 2 «, t00=0x0126, t01=0x00f0}
0x1cc30…1cc44               Head {h00=0x0010, h01=0x0050, text=»CIOPA3 EQU *«, t00=0x0126, t01=0x010a}
0x1cc44…1cc56               Head {h00=0x000e, h01=0x0050, text=» DATA 128 «, t00=0x0126, t01=0x011e}
0x1cc56…1cc7e               Head {h00=0x0024, h01=0x0050, text=» DATA 0 ADDRESS 3 MOST SIGN. =9 «, t00=0x0126, t01=0x0130}
0x1cc7e…1cc92               Head {h00=0x0010, h01=0x0050, text=»CIOAD3 EQU *«, t00=0x0126, t01=0x0158}
0x1cc92…1ccac               Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 3 «, t00=0x0126, t01=0x016c}
0x1ccac…1ccb8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0126, t01=0x0186}
0x1ccb8…1ccc6 (295, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0127, t01=0x0004}
0x1ccc6…1cd02               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0127, t01=0x0012}
0x1cd02…1cd3e               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0127, t01=0x004e}
0x1cd3e…1cd7a               Head {h00=0x0038, h01=0x0050, text=»*        GETFIL - GET CONFIGURATION FILE          * «, t00=0x0127, t01=0x008a}
0x1cd7a…1cdb6               Head {h00=0x0038, h01=0x0050, text=»*        ===============================          * «, t00=0x0127, t01=0x00c6}
0x1cdb6…1cdf2               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0127, t01=0x0102}
0x1cdf2…1ce2e               Head {h00=0x0038, h01=0x0050, text=»*  REFERENCED IN:  SYSLOD                         * «, t00=0x0127, t01=0x013e}
0x1ce2e…1ce6a               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0127, t01=0x017a}
0x1ce6a…1cea6               Head {h00=0x0038, h01=0x0050, text=»*  ENTRY:  A9 - BUFFER ADDRESS                    * «, t00=0x0128, t01=0x0026}
0x1cea6…1cee2               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0128, t01=0x0062}
0x1cee2…1cf1e               Head {h00=0x0038, h01=0x0050, text=»*  EXIT:  A11 - SECTOR ADDRESS TO CONF. FILE      * «, t00=0x0128, t01=0x009e}
0x1cf1e…1cf5a               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0128, t01=0x00da}
0x1cf5a…1cf94               Head {h00=0x0036, h01=0x0050, text=»*  WORK REGISTERS:  A1,A2,A3,A4,A5,A6,A7,A8,A10  *«, t00=0x0128, t01=0x0116}
0x1cf94…1cfd0               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0128, t01=0x0150}
0x1cfd0…1d00c               Head {h00=0x0038, h01=0x0050, text=»*  SUBROUTINES:  READVL,READCF                    * «, t00=0x0128, t01=0x018c}
0x1d00c…1d048               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0129, t01=0x0038}
0x1d048…1d084               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0129, t01=0x0074}
0x1d084…1d098               Head {h00=0x0010, h01=0x0050, text=»GETFIL EQU *«, t00=0x0129, t01=0x00b0}
0x1d098…1d0ae               Head {h00=0x0012, h01=0x0050, text=» CF A14,GETVLB«, t00=0x0129, t01=0x00c4}
0x1d0ae…1d0c2               Head {h00=0x0010, h01=0x0050, text=»GET:10 EQU *«, t00=0x0129, t01=0x00da}
0x1d0c2…1d0e8               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDSEC GET VOLUME LABEL«, t00=0x0129, t01=0x00ee}
0x1d0e8…1d114               Head {h00=0x0028, h01=0x0050, text=» LDK A7,QBLFAC VTOC BLOCKING FACTOR «, t00=0x0129, t01=0x0114}
0x1d114…1d13a               Head {h00=0x0022, h01=0x0050, text=» LDR A6,A9 GET START OF BUFFER«, t00=0x0129, t01=0x0140}
0x1d13a…1d14e               Head {h00=0x0010, h01=0x0050, text=»GET:20 EQU *«, t00=0x0129, t01=0x0166}
0x1d14e…1d16c               Head {h00=0x001a, h01=0x0050, text=» LDK A5,/20 LOAD SPACE«, t00=0x0129, t01=0x017a}
0x1d16c…1d18c               Head {h00=0x001c, h01=0x0050, text=» CCR A5,A6 UNUSED FILE? «, t00=0x012a, t01=0x0008}
0x1d18c…1d1a6               Head {h00=0x0016, h01=0x0050, text=» RF(E) GET:50 YES!«, t00=0x012a, t01=0x0028}
0x1d1a6…1d1c8               Head {h00=0x001e, h01=0x0050, text=» LDR A4,A6 START OF RECORD«, t00=0x012a, t01=0x0042}
0x1d1c8…1d1f4               Head {h00=0x0028, h01=0x0050, text=» LDK A5,'S' STANDARD FILE CHARACTER «, t00=0x012a, t01=0x0064}
0x1d1f4…1d218               Head {h00=0x0020, h01=0x0050, text=» CC A5,27,A6 STANDARD FILE? «, t00=0x012a, t01=0x0090}
0x1d218…1d232               Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:50 NO!«, t00=0x012a, t01=0x00b4}
0x1d232…1d260               Head {h00=0x002a, h01=0x0050, text=» LDK A5,'$' LEADING CHAR IN CONF. FILE«, t00=0x012a, t01=0x00ce}
0x1d260…1d286               Head {h00=0x0022, h01=0x0050, text=» CCR A5,A4 CONFIGURATION FILE?«, t00=0x012a, t01=0x00fc}
0x1d286…1d2a0               Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:50 NO!«, t00=0x012a, t01=0x0122}
0x1d2a0…1d2d6               Head {h00=0x0032, h01=0x0050, text=»GET:25 LDK A3,'C' THIS INSTRUCTION IS MODIFIED«, t00=0x012a, t01=0x013c}
0x1d2d6…1d302               Head {h00=0x0028, h01=0x0050, text=» CCK A3,'CC' LOOKING FOR CONF. FILE?«, t00=0x012a, t01=0x0172}
0x1d302…1d31c               Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:85 NO!«, t00=0x012b, t01=0x000e}
0x1d31c…1d33e               Head {h00=0x001e, h01=0x0050, text=» ADK A4,5 SIXTH CHARACTER «, t00=0x012b, t01=0x0028}
0x1d33e…1d36e               Head {h00=0x002c, h01=0x0050, text=» LDK A5,':' CHARACTER TO PRECEED NUMBER «, t00=0x012b, t01=0x004a}
0x1d36e…1d39a               Head {h00=0x0028, h01=0x0050, text=»GET:30 CCR A5,A4 CONFIGURATION FILE?«, t00=0x012b, t01=0x007a}
0x1d39a…1d3b4               Head {h00=0x0016, h01=0x0050, text=» RF(E) GET:40 YES!«, t00=0x012b, t01=0x00a6}
0x1d3b4…1d3d8               Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 TRY NEXT CHARACTER«, t00=0x012b, t01=0x00c0}
0x1d3d8…1d3fa               Head {h00=0x001e, h01=0x0050, text=» CWR A4,A6 FIRST IN NAME? «, t00=0x012b, t01=0x00e4}
0x1d3fa…1d414               Head {h00=0x0016, h01=0x0050, text=» RF(E) GET:50 YES!«, t00=0x012b, t01=0x0106}
0x1d414…1d426               Head {h00=0x000e, h01=0x0050, text=» RB GET:30«, t00=0x012b, t01=0x0120}
0x1d426…1d43a               Head {h00=0x0010, h01=0x0050, text=»GET:40 EQU *«, t00=0x012b, t01=0x0132}
0x1d43a…1d444               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012b, t01=0x0146}
0x1d444…1d468               Head {h00=0x0020, h01=0x0050, text=»*  CHECK APPLICATION NUMBER «, t00=0x012b, t01=0x0150}
0x1d468…1d472               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012b, t01=0x0174}
0x1d472…1d494               Head {h00=0x001e, h01=0x0050, text=» LC A5,1,A4 GET LEFT DIGIT«, t00=0x012b, t01=0x017e}
0x1d494…1d4b8               Head {h00=0x0020, h01=0x0050, text=» SLL A5,8 SHIFT TO LEFT BYTE«, t00=0x012c, t01=0x0010}
0x1d4b8…1d4dc               Head {h00=0x0020, h01=0x0050, text=» LC A5,2,A4 GET RIGHT DIGIT «, t00=0x012c, t01=0x0034}
0x1d4dc…1d502               Head {h00=0x0022, h01=0x0050, text=» CALL CONVRT CONVERT TO BINARY«, t00=0x012c, t01=0x0058}
0x1d502…1d532               Head {h00=0x002c, h01=0x0050, text=» CW A1,SCTANO SAME AS APPLICATION NUMBER«, t00=0x012c, t01=0x007e}
0x1d532…1d548               Head {h00=0x0012, h01=0x0050, text=» RF(NE) GET:50«, t00=0x012c, t01=0x00ae}
0x1d548…1d552               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x00c4}
0x1d552…1d576               Head {h00=0x0020, h01=0x0050, text=»*  CONFIGURATION FILE FOUND «, t00=0x012c, t01=0x00ce}
0x1d576…1d580               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x00f2}
0x1d580…1d5a8               Head {h00=0x0024, h01=0x0050, text=» LD A1,22,A6 LAST RECORD NUMBER «, t00=0x012c, t01=0x00fc}
0x1d5a8…1d5ca               Head {h00=0x001e, h01=0x0050, text=» ST A1,LSTREC+STKEND SAVE «, t00=0x012c, t01=0x0124}
0x1d5ca…1d5e4               Head {h00=0x0016, h01=0x0050, text=» LD A12,16,A6 GET «, t00=0x012c, t01=0x0146}
0x1d5e4…1d608               Head {h00=0x0020, h01=0x0050, text=» LD A11,18,A6 SECTOR ADDRESS«, t00=0x012c, t01=0x0160}
0x1d608…1d618               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x012c, t01=0x0184}
0x1d618…1d622 (301, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x0004}
0x1d622…1d636               Head {h00=0x0010, h01=0x0050, text=»GET:50 EQU *«, t00=0x012d, t01=0x000e}
0x1d636…1d65a               Head {h00=0x0020, h01=0x0050, text=» ADR A6,A8 NEXT VTOC RECORD «, t00=0x012d, t01=0x0022}
0x1d65a…1d684               Head {h00=0x0026, h01=0x0050, text=» ADK A6,1 BYPASS STATUS CHARACTER «, t00=0x012d, t01=0x0046}
0x1d684…1d6b4               Head {h00=0x002c, h01=0x0050, text=» SUK A7,1 MOORE RECORDS IN THIS SECTOR? «, t00=0x012d, t01=0x0070}
0x1d6b4…1d6ce               Head {h00=0x0016, h01=0x0050, text=» RB(P) GET:20 YES!«, t00=0x012d, t01=0x00a0}
0x1d6ce…1d6f4               Head {h00=0x0022, h01=0x0050, text=» CWR A11,A10 LAST VTOC SECTOR?«, t00=0x012d, t01=0x00ba}
0x1d6f4…1d70e               Head {h00=0x0016, h01=0x0050, text=» RB(NE) GET:10 NO!«, t00=0x012d, t01=0x00e0}
0x1d70e…1d744               Head {h00=0x0032, h01=0x0050, text=»GET:60 LDK A3,'C' THIS INSTRUCTION IS MODIFIED«, t00=0x012d, t01=0x00fa}
0x1d744…1d770               Head {h00=0x0028, h01=0x0050, text=» CCK A3,'CC' LOOKING FOR CONF. FILE?«, t00=0x012d, t01=0x0130}
0x1d770…1d78a               Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:99 NO!«, t00=0x012d, t01=0x015c}
0x1d78a…1d794               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012d, t01=0x0176}
0x1d794…1d7d2               Head {h00=0x003a, h01=0x0050, text=»*  CONFIGURATION FILE NOT FOUND - READ SOP AND SELECT «, t00=0x012d, t01=0x0180}
0x1d7d2…1d800               Head {h00=0x002a, h01=0x0050, text=»*  LOAD MEDIUM FOR CONFIGURATION FILE «, t00=0x012e, t01=0x002e}
0x1d800…1d80a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012e, t01=0x005c}
0x1d80a…1d814               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012e, t01=0x0066}
0x1d814…1d82a               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/7F8 «, t00=0x012e, t01=0x0070}
0x1d82a…1d854               Head {h00=0x0026, h01=0x0050, text=» OTR A2,0,SOP SWITCH ON SOP LAMPS «, t00=0x012e, t01=0x0086}
0x1d854…1d868               Head {h00=0x0010, h01=0x0050, text=»GET:70 EQU *«, t00=0x012e, t01=0x00b0}
0x1d868…1d87e               Head {h00=0x0012, h01=0x0050, text=» CF A14,SOPIN «, t00=0x012e, t01=0x00c4}
0x1d87e…1d8a4               Head {h00=0x0022, h01=0x0050, text=» ANKL A1,/7FC ALLOWED SWITCH? «, t00=0x012e, t01=0x00da}
0x1d8a4…1d8be               Head {h00=0x0016, h01=0x0050, text=» RB(Z) GET:70 NO! «, t00=0x012e, t01=0x0100}
0x1d8be…1d8d4               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,LMP1 «, t00=0x012e, t01=0x011a}
0x1d8d4…1d8fe               Head {h00=0x0026, h01=0x0050, text=» OTR A2,0,SOP SWITCH ON LOAD LAMP «, t00=0x012e, t01=0x0130}
0x1d8fe…1d910               Head {h00=0x000e, h01=0x0050, text=» SRN A1,A2«, t00=0x012e, t01=0x015a}
0x1d910…1d93c               Head {h00=0x0028, h01=0x0050, text=» LC A1,DEVTAB,A2 GET DEVICE ADDRESS «, t00=0x012e, t01=0x016c}
0x1d93c…1d950               Head {h00=0x0010, h01=0x0050, text=»GET:75 EQU *«, t00=0x012f, t01=0x0008}
0x1d950…1d98a               Head {h00=0x0036, h01=0x0050, text=» SC A1,CONDEV+1+STKEND SAVE CONF. DATA LOAD DEVICE«, t00=0x012f, t01=0x001c}
0x1d98a…1d9b6               Head {h00=0x0028, h01=0x0050, text=» CF A14,CONFLD CONFIGURE LOAD DEVICE«, t00=0x012f, t01=0x0056}
0x1d9b6…1d9c8               Head {h00=0x000e, h01=0x0050, text=» RB GETFIL«, t00=0x012f, t01=0x0082}
0x1d9c8…1d9dc               Head {h00=0x0010, h01=0x0050, text=»GET:85 EQU *«, t00=0x012f, t01=0x0094}
0x1d9dc…1da04               Head {h00=0x0024, h01=0x0050, text=» CCK A3,'SS' LOOKING FOR $SWAPP?«, t00=0x012f, t01=0x00a8}
0x1da04…1da1e               Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:99 NO!«, t00=0x012f, t01=0x00d0}
0x1da1e…1da48               Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 RESET CHARACTER COUNTER «, t00=0x012f, t01=0x00ea}
0x1da48…1da76               Head {h00=0x002a, h01=0x0050, text=»GET:90 LCR A1,A4 GET CHAR IN FILENAME «, t00=0x012f, t01=0x0114}
0x1da76…1daa8               Head {h00=0x002e, h01=0x0050, text=» CC A1,SWPTAB,A5 CHECK IF PRESCIBED CHAR. «, t00=0x012f, t01=0x0142}
0x1daa8…1dac2               Head {h00=0x0016, h01=0x0050, text=» RB(NE) GET:50 NO!«, t00=0x012f, t01=0x0174}
0x1dac2…1dae2               Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 NEXT CHARACTER«, t00=0x012f, t01=0x018e}
0x1dae2…1db10               Head {h00=0x002a, h01=0x0050, text=» ADK A5,1 INCREMENT CHARACTER COUNTER «, t00=0x0130, t01=0x001e}
0x1db10…1db3a               Head {h00=0x0026, h01=0x0050, text=» CWK A5,8 ALL CHARACTERS CHECKED? «, t00=0x0130, t01=0x004c}
0x1db3a…1db54               Head {h00=0x0016, h01=0x0050, text=» RB(NE) GET:90 NO!«, t00=0x0130, t01=0x0076}
0x1db54…1db5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0130, t01=0x0090}
0x1db5e…1db9c               Head {h00=0x003a, h01=0x0050, text=»*  SWAPPABLE WORK BLOCK FILE FOUND - SAVE DISC ADDRESS«, t00=0x0130, t01=0x009a}
0x1db9c…1dbcc               Head {h00=0x002c, h01=0x0050, text=»*  TO FILE AND TO NEXT SECTOR AFTER FILE«, t00=0x0130, t01=0x00d8}
0x1dbcc…1dbd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0130, t01=0x0108}
0x1dbd6…1dc00               Head {h00=0x0026, h01=0x0050, text=» LD A1,18,A6 GET BIT 16-31 OF D.A.«, t00=0x0130, t01=0x0112}
0x1dc00…1dc2a               Head {h00=0x0026, h01=0x0050, text=» LD A2,16,A6 GET BIT 0-15 OF D.A. «, t00=0x0130, t01=0x013c}
0x1dc2a…1dc4c               Head {h00=0x001e, h01=0x0050, text=» ST A1,SWBFSA+STKCOM SAVE «, t00=0x0130, t01=0x0166}
0x1dc4c…1dc70               Head {h00=0x0020, h01=0x0050, text=» ST A2,SWBFSA+STKCOM+2 SAVE «, t00=0x0130, t01=0x0188}
0x1dc70…1dca0               Head {h00=0x002c, h01=0x0050, text=» LD A3,SWPFEL,A6 GET BIT 16-31 OF LENGTH«, t00=0x0131, t01=0x001c}
0x1dca0…1dcd2               Head {h00=0x002e, h01=0x0050, text=» LD A4,SWPFEL-2,A6 GET BIT 0-15 OF LENGTH «, t00=0x0131, t01=0x004c}
0x1dcd2…1dcfe               Head {h00=0x0028, h01=0x0050, text=» ADR A4,A2 ADD MOST SIGNIFICANT PART«, t00=0x0131, t01=0x007e}
0x1dcfe…1dd2c               Head {h00=0x002a, h01=0x0050, text=» ADR A3,A1 ADD LEAST SIGNIFICANT PART «, t00=0x0131, t01=0x00aa}
0x1dd2c…1dd56               Head {h00=0x0026, h01=0x0050, text=» RF(O) GET:92 OVERFLOW - ADD CARRY«, t00=0x0131, t01=0x00d8}
0x1dd56…1dd68               Head {h00=0x000e, h01=0x0050, text=» RF GET:98«, t00=0x0131, t01=0x0102}
0x1dd68…1dd8a               Head {h00=0x001e, h01=0x0050, text=»GET:92 ADK A4,1 ADD CARRY «, t00=0x0131, t01=0x0114}
0x1dd8a…1ddb0               Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/7FFF RESET OVERFLOW «, t00=0x0131, t01=0x0136}
0x1ddb0…1ddea               Head {h00=0x0036, h01=0x0050, text=»GET:98 ST A3,SWBFSE+STKCOM SAVE BIT 16-31 OF D.A. «, t00=0x0131, t01=0x015c}
0x1ddea…1de1e               Head {h00=0x0030, h01=0x0050, text=» ST A4,SWBFSE+STKCOM+2 SAVE BIT 0-15 OF D.A.«, t00=0x0132, t01=0x0008}
0x1de1e…1de50               Head {h00=0x002e, h01=0x0050, text=» IM SWBFLG+STKCOM INDICATE SWB-FILE FOUND «, t00=0x0132, t01=0x003c}
0x1de50…1de66               Head {h00=0x0012, h01=0x0050, text=»GET:99 RTN A14«, t00=0x0132, t01=0x006e}
0x1de66…1de74               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0132, t01=0x0084}
0x1de74…1deb2               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0132, t01=0x0092}
0x1deb2…1def0               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x0132, t01=0x00d0}
0x1def0…1df2e               Head {h00=0x003a, h01=0x0050, text=»*  LODCOM - LOAD CORE RESIDENT PART OF APPLICATION  * «, t00=0x0132, t01=0x010e}
0x1df2e…1df6c               Head {h00=0x003a, h01=0x0050, text=»*  ===============================================  * «, t00=0x0132, t01=0x014c}
0x1df6c…1dfaa               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x0132, t01=0x018a}
0x1dfaa…1dfe8               Head {h00=0x003a, h01=0x0050, text=»*  LODSEG - LOAD ONE SEGMENT                        * «, t00=0x0133, t01=0x0038}
0x1dfe8…1e026               Head {h00=0x003a, h01=0x0050, text=»*  =========================                        * «, t00=0x0133, t01=0x0076}
0x1e026…1e064               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x0133, t01=0x00b4}
0x1e064…1e0a2               Head {h00=0x003a, h01=0x0050, text=»*  ENTRY:  A8 - RELOCATION BASE                     * «, t00=0x0133, t01=0x00f2}
0x1e0a2…1e0e0               Head {h00=0x003a, h01=0x0050, text=»*         A10 - EFFECTIVE LENGTH                    * «, t00=0x0133, t01=0x0130}
0x1e0e0…1e11e               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x0133, t01=0x016e}
0x1e11e…1e15c               Head {h00=0x003a, h01=0x0050, text=»*  EXIT:                                            * «, t00=0x0134, t01=0x001c}
0x1e15c…1e19a               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x0134, t01=0x005a}
0x1e19a…1e1d8               Head {h00=0x003a, h01=0x0050, text=»*  WORK REGISTERS:  A1,A2,A3,A4,A7                  * «, t00=0x0134, t01=0x0098}
0x1e1d8…1e216               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x0134, t01=0x00d6}
0x1e216…1e254               Head {h00=0x003a, h01=0x0050, text=»*  SUBROUTINES:  MOVE,READ                          * «, t00=0x0134, t01=0x0114}
0x1e254…1e292               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x0134, t01=0x0152}
0x1e292…1e2d0               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0134, t01=0x0190}
0x1e2d0…1e2e4               Head {h00=0x0010, h01=0x0050, text=»LODCOM EQU *«, t00=0x0135, t01=0x003e}
0x1e2e4…1e314               Head {h00=0x002c, h01=0x0050, text=» LD A9,MXBUF GET ADDRESS TO READ BUFFER «, t00=0x0135, t01=0x0052}
0x1e314…1e33a               Head {h00=0x0022, h01=0x0050, text=» LDR A3,A9 GET START OF BUFFER«, t00=0x0135, t01=0x0082}
0x1e33a…1e352               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A3 SAVE «, t00=0x0135, t01=0x00a8}
0x1e352…1e37c               Head {h00=0x0026, h01=0x0050, text=» LDKL A7,240 NUMBER OF CODE WORDS «, t00=0x0135, t01=0x00c0}
0x1e37c…1e392               Head {h00=0x0012, h01=0x0050, text=»LOD:10 EQU *-2«, t00=0x0135, t01=0x00ea}
0x1e392…1e3b2               Head {h00=0x001c, h01=0x0050, text=» LDR A10,A10 APP >32 KB?«, t00=0x0135, t01=0x0100}
0x1e3b2…1e3cc               Head {h00=0x0016, h01=0x0050, text=» RF(NN) LOD:20 NO!«, t00=0x0135, t01=0x0120}
0x1e3cc…1e3ec               Head {h00=0x001c, h01=0x0050, text=» SUR A10,A7 DEC. LENGTH «, t00=0x0135, t01=0x013a}
0x1e3ec…1e3fe               Head {h00=0x000e, h01=0x0050, text=» RF LOD:50«, t00=0x0135, t01=0x015a}
0x1e3fe…1e412               Head {h00=0x0010, h01=0x0050, text=»LOD:20 EQU *«, t00=0x0135, t01=0x016c}
0x1e412…1e444               Head {h00=0x002e, h01=0x0050, text=» SUR A10,A7 CHECK IF IN END OF OF SEGMENT «, t00=0x0135, t01=0x0180}
0x1e444…1e462               Head {h00=0x001a, h01=0x0050, text=» RF(P) LOD:50 NO YET! «, t00=0x0136, t01=0x0022}
0x1e462…1e488               Head {h00=0x0022, h01=0x0050, text=» CWK A7,256 128 WORDS/SECTOR? «, t00=0x0136, t01=0x0040}
0x1e488…1e4a2               Head {h00=0x0016, h01=0x0050, text=» RF(NE) LOD:30 NO!«, t00=0x0136, t01=0x0066}
0x1e4a2…1e4d2               Head {h00=0x002c, h01=0x0050, text=» ADR A7,A10 COMPUTE NUMBER OF CODE WORDS«, t00=0x0136, t01=0x0080}
0x1e4d2…1e4fe               Head {h00=0x0028, h01=0x0050, text=» LDKL A10,0 INDICATE END OF SEGMENT «, t00=0x0136, t01=0x00b0}
0x1e4fe…1e510               Head {h00=0x000e, h01=0x0050, text=» RF LOD:52«, t00=0x0136, t01=0x00dc}
0x1e510…1e524               Head {h00=0x0010, h01=0x0050, text=»LOD:30 EQU *«, t00=0x0136, t01=0x00ee}
0x1e524…1e55a               Head {h00=0x0032, h01=0x0050, text=» ADR A7,A10 JUST MOVE SIGNIFICANT CHARACTERS! «, t00=0x0136, t01=0x0102}
0x1e55a…1e586               Head {h00=0x0028, h01=0x0050, text=» LDKL A10,0 INDICATE END OF SEGMENT «, t00=0x0136, t01=0x0138}
0x1e586…1e5be               Head {h00=0x0034, h01=0x0050, text=» LD A1,FSTSEC+STKEND LOOK IF FIRST SECTOR/BLOCK «, t00=0x0136, t01=0x0164}
0x1e5be…1e5d8               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) LOD:50 NO!«, t00=0x0137, t01=0x000c}
0x1e5d8…1e5e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0137, t01=0x0026}
0x1e5e2…1e618               Head {h00=0x0032, h01=0x0050, text=» ADK A7,8 YES, ADD 8 TO COMPENSATE FOR HEADER «, t00=0x0137, t01=0x0030}
0x1e618…1e656               Head {h00=0x003a, h01=0x0050, text=» CWK A7,240 LOOK IF OUTSIDE CODE PART OF SECTOR/BLOCK «, t00=0x0137, t01=0x0066}
0x1e656…1e670               Head {h00=0x0016, h01=0x0050, text=» RF(L) LOD:50 NO! «, t00=0x0137, t01=0x00a4}
0x1e670…1e67a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0137, t01=0x00be}
0x1e67a…1e6a6               Head {h00=0x0028, h01=0x0050, text=» SUK A7,240 YES, GET WORDS REMAINING«, t00=0x0137, t01=0x00c8}
0x1e6a6…1e6c2               Head {h00=0x0018, h01=0x0050, text=» LDR A10,A7 AND SAVE«, t00=0x0137, t01=0x00f4}
0x1e6c2…1e6ee               Head {h00=0x0028, h01=0x0050, text=» LDK A7,240 START OF RELOCATION BITS«, t00=0x0137, t01=0x0110}
0x1e6ee…1e702               Head {h00=0x0010, h01=0x0050, text=»LOD:50 EQU *«, t00=0x0137, t01=0x013c}
0x1e702…1e728               Head {h00=0x0022, h01=0x0050, text=» CWK A7,256 128 WORDS/SECTOR? «, t00=0x0137, t01=0x0150}
0x1e728…1e742               Head {h00=0x0016, h01=0x0050, text=» RF(E) LOD:52 YES!«, t00=0x0137, t01=0x0176}
0x1e742…1e76e               Head {h00=0x0028, h01=0x0050, text=» ADR A2,A7 START OF RELOCATION BITS «, t00=0x0137, t01=0x0190}
0x1e76e…1e78c               Head {h00=0x001a, h01=0x0050, text=» CF A14,REBUF RELOCATE«, t00=0x0138, t01=0x002c}
0x1e78c…1e7a0               Head {h00=0x0010, h01=0x0050, text=»LOD:52 EQU *«, t00=0x0138, t01=0x004a}
0x1e7a0…1e7c6               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 START OF CODE PART «, t00=0x0138, t01=0x005e}
0x1e7c6…1e7f6               Head {h00=0x002c, h01=0x0050, text=» LD A4,FSTSEC+STKEND FIRST SECTOR/BLOCK?«, t00=0x0138, t01=0x0084}
0x1e7f6…1e810               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) LOD:55 NO!«, t00=0x0138, t01=0x00b4}
0x1e810…1e84a               Head {h00=0x0036, h01=0x0050, text=» IM FSTSEC+STKEND INDICATE NOT FIRST SECTOR/BLOCK «, t00=0x0138, t01=0x00ce}
0x1e84a…1e87e               Head {h00=0x0030, h01=0x0050, text=» ADK A1,8 SKIP 4 WORDS IN FIRST SECTOR/BLOCK«, t00=0x0138, t01=0x0108}
0x1e87e…1e8b2               Head {h00=0x0030, h01=0x0050, text=» SUK A7,8 DECREMENT NUMBER OF CHAR. TO MOVE «, t00=0x0138, t01=0x013c}
0x1e8b2…1e8d4               Head {h00=0x001e, h01=0x0050, text=» LD A3,COMLG,A9 GET LENGTH«, t00=0x0138, t01=0x0170}
0x1e8d4…1e90c (313, 0, 400) Head {h00=0x0034, h01=0x0050, text=» RF(N) LOD:54 APPL. LARGER THAN ONE SECTOR/BLOCK«, t00=0x0139, t01=0x0004}
0x1e90c…1e916               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0139, t01=0x003c}
0x1e916…1e94a               Head {h00=0x0030, h01=0x0050, text=» CWK A3,240 SINGLE SECTOR/BLOCK APPLICATION?«, t00=0x0139, t01=0x0046}
0x1e94a…1e966               Head {h00=0x0018, h01=0x0050, text=» RF(NG) LOD:55 YES! «, t00=0x0139, t01=0x007a}
0x1e966…1e970               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0139, t01=0x0096}
0x1e970…1e98a               Head {h00=0x0016, h01=0x0050, text=»LOD:54 ADKL A10,8 «, t00=0x0139, t01=0x00a0}
0x1e98a…1e99e               Head {h00=0x0010, h01=0x0050, text=»LOD:55 EQU *«, t00=0x0139, t01=0x00ba}
0x1e99e…1e9ce               Head {h00=0x002c, h01=0x0050, text=» LDR A3,A7 NUMBER OF CHARACTERS TO MOVE «, t00=0x0139, t01=0x00ce}
0x1e9ce…1e9fa               Head {h00=0x0028, h01=0x0050, text=» LD A2,LLDADR+STKEND GET TO-ADDRESS «, t00=0x0139, t01=0x00fe}
0x1e9fa…1ea2e               Head {h00=0x0030, h01=0x0050, text=» ADS A3,LLDADR+STKEND UPDATE MEMORY ADDRESS «, t00=0x0139, t01=0x012a}
0x1ea2e…1ea44               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0139, t01=0x015e}
0x1ea44…1ea6c               Head {h00=0x0024, h01=0x0050, text=» MVSU A3 MOVE TABLE FROM SYSTEM «, t00=0x0139, t01=0x0174}
0x1ea6c…1ea78               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013a, t01=0x000c}
0x1ea78…1ea8e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x013a, t01=0x0018}
0x1ea8e…1eaa0               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x013a, t01=0x002e}
0x1eaa0…1eaac               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013a, t01=0x0040}
0x1eaac…1ead0               Head {h00=0x0020, h01=0x0050, text=» LDR A10,A10 END OF SEGMENT?«, t00=0x013a, t01=0x004c}
0x1ead0…1eae6               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) LOD:70«, t00=0x013a, t01=0x0070}
0x1eae6…1eafc               Head {h00=0x0012, h01=0x0050, text=» RTN A14 EXIT «, t00=0x013a, t01=0x0086}
0x1eafc…1eb10               Head {h00=0x0010, h01=0x0050, text=»LODSEG EQU *«, t00=0x013a, t01=0x009c}
0x1eb10…1eb3c               Head {h00=0x0028, h01=0x0050, text=» LDKL A1,256 NUMBER OF WORDS/SECTOR «, t00=0x013a, t01=0x00b0}
0x1eb3c…1eb64               Head {h00=0x0024, h01=0x0050, text=» ST A1,LOD:10 MODIFY INSTRUCTION«, t00=0x013a, t01=0x00dc}
0x1eb64…1eb78               Head {h00=0x0010, h01=0x0050, text=»LOD:70 EQU *«, t00=0x013a, t01=0x0104}
0x1eb78…1eb8c               Head {h00=0x0010, h01=0x0050, text=» CF A14,READ«, t00=0x013a, t01=0x0118}
0x1eb8c…1eba0               Head {h00=0x0010, h01=0x0050, text=»READ EQU *-2«, t00=0x013a, t01=0x012c}
0x1eba0…1ebb2               Head {h00=0x000e, h01=0x0050, text=» RB LODCOM«, t00=0x013a, t01=0x0140}
0x1ebb2…1ebc0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013a, t01=0x0152}
0x1ebc0…1ebfa               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x013a, t01=0x0160}
0x1ebfa…1ec34               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x013b, t01=0x000a}
0x1ec34…1ec6e               Head {h00=0x0036, h01=0x0050, text=»*        REBUF - RELOCATE BUFFER ROUTINE        * «, t00=0x013b, t01=0x0044}
0x1ec6e…1eca8               Head {h00=0x0036, h01=0x0050, text=»*        ===============================        * «, t00=0x013b, t01=0x007e}
0x1eca8…1ece2               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x013b, t01=0x00b8}
0x1ece2…1ed1c               Head {h00=0x0036, h01=0x0050, text=»*  REFERENCED IN:  LODCOM/LODSEG                * «, t00=0x013b, t01=0x00f2}
0x1ed1c…1ed56               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x013b, t01=0x012c}
0x1ed56…1ed90               Head {h00=0x0036, h01=0x0050, text=»*  ENTRY:  A3 - START OF BUFFER                 * «, t00=0x013b, t01=0x0166}
0x1ed90…1edca               Head {h00=0x0036, h01=0x0050, text=»*          A2 - START OF RELOCATION TABLE       * «, t00=0x013c, t01=0x0010}
0x1edca…1ee04               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x013c, t01=0x004a}
0x1ee04…1ee3e               Head {h00=0x0036, h01=0x0050, text=»*  EXIT:                                        * «, t00=0x013c, t01=0x0084}
0x1ee3e…1ee78               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x013c, t01=0x00be}
0x1ee78…1eeb2               Head {h00=0x0036, h01=0x0050, text=»*  WORK REGISTERS:  A1,A4,A5,A6                 * «, t00=0x013c, t01=0x00f8}
0x1eeb2…1eeec               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x013c, t01=0x0132}
0x1eeec…1ef26               Head {h00=0x0036, h01=0x0050, text=»*  SUBROUTINES:                                 * «, t00=0x013c, t01=0x016c}
0x1ef26…1ef60               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x013d, t01=0x0016}
0x1ef60…1ef9a               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x013d, t01=0x0050}
0x1ef9a…1efae               Head {h00=0x0010, h01=0x0050, text=»REBUF EQU * «, t00=0x013d, t01=0x008a}
0x1efae…1efe0               Head {h00=0x002e, h01=0x0050, text=» LDR A4,A2 GET START OPF RELOCATION TABLE «, t00=0x013d, t01=0x009e}
0x1efe0…1eff2               Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x013d, t01=0x00d0}
0x1eff2…1f006               Head {h00=0x0010, h01=0x0050, text=»REB:10 EQU *«, t00=0x013d, t01=0x00e2}
0x1f006…1f02c               Head {h00=0x0022, h01=0x0050, text=» ADK A4,2 NEXT RELOCATION WORD«, t00=0x013d, t01=0x00f6}
0x1f02c…1f058               Head {h00=0x0028, h01=0x0050, text=» LDK A6,16 NUMBER OF RELOCATION BITS«, t00=0x013d, t01=0x011c}
0x1f058…1f080               Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A4 GET RELOCATION WORD «, t00=0x013d, t01=0x0148}
0x1f080…1f094               Head {h00=0x0010, h01=0x0050, text=»REB:20 EQU *«, t00=0x013d, t01=0x0170}
0x1f094…1f0c4               Head {h00=0x002c, h01=0x0050, text=» RF(NN) REB:30 DON'T RELOCATE THIS WORD!«, t00=0x013d, t01=0x0184}
0x1f0c4…1f0e6               Head {h00=0x001e, h01=0x0050, text=» LDR* A5,A3 GET CODE WORD «, t00=0x013e, t01=0x0024}
0x1f0e6…1f102               Head {h00=0x0018, h01=0x0050, text=» ADR A5,A8 RELOCATE «, t00=0x013e, t01=0x0046}
0x1f102…1f122               Head {h00=0x001c, h01=0x0050, text=» STR A5,A3 STORE IT BACK«, t00=0x013e, t01=0x0062}
0x1f122…1f136               Head {h00=0x0010, h01=0x0050, text=»REB:30 EQU *«, t00=0x013e, t01=0x0082}
0x1f136…1f156               Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 NEXT CODE WORD«, t00=0x013e, t01=0x0096}
0x1f156…1f180               Head {h00=0x0026, h01=0x0050, text=» CWR A3,A2 END OF CODE WORD PART? «, t00=0x013e, t01=0x00b6}
0x1f180…1f19a               Head {h00=0x0016, h01=0x0050, text=» RF(E) EXREL YES! «, t00=0x013e, t01=0x00e0}
0x1f19a…1f1c2               Head {h00=0x0024, h01=0x0050, text=» SUK A6,1 MOORE RELOCATION BITS?«, t00=0x013e, t01=0x00fa}
0x1f1c2…1f1dc               Head {h00=0x0016, h01=0x0050, text=» RB(Z) REB:10 NO! «, t00=0x013e, t01=0x0122}
0x1f1dc…1f202               Head {h00=0x0022, h01=0x0050, text=» SLL A1,1 NEXT RELOCATION BIT «, t00=0x013e, t01=0x013c}
0x1f202…1f214               Head {h00=0x000e, h01=0x0050, text=» RB REB:20«, t00=0x013e, t01=0x0162}
0x1f214…1f228               Head {h00=0x0010, h01=0x0050, text=»EXREL EQU * «, t00=0x013e, t01=0x0174}
0x1f228…1f238               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x013e, t01=0x0188}
0x1f238…1f246               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013f, t01=0x0008}
0x1f246…1f278               Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x013f, t01=0x0016}
0x1f278…1f2aa               Head {h00=0x002e, h01=0x0050, text=»*  GETCON - GET CONTENT IN MEMORY WORD  * «, t00=0x013f, t01=0x0048}
0x1f2aa…1f2dc               Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x013f, t01=0x007a}
0x1f2dc…1f2e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x00ac}
0x1f2e6…1f308               Head {h00=0x001e, h01=0x0050, text=»*  REFERENCED IN:  SEGGEN «, t00=0x013f, t01=0x00b6}
0x1f308…1f312               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x00d8}
0x1f312…1f338               Head {h00=0x0022, h01=0x0050, text=»*  ENTRY:  A2 - MEMORY ADDRESS«, t00=0x013f, t01=0x00e2}
0x1f338…1f36a               Head {h00=0x002e, h01=0x0050, text=»*          MMUOPT - MMU OPTION SWITCH (X) «, t00=0x013f, t01=0x0108}
0x1f36a…1f374               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x013a}
0x1f374…1f3a4               Head {h00=0x002c, h01=0x0050, text=»*  EXIT:  A1 - CONTENT OF MEMORY ADDRESS«, t00=0x013f, t01=0x0144}
0x1f3a4…1f3ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x0174}
0x1f3ae…1f3c8               Head {h00=0x0016, h01=0x0050, text=»*  WORK REGISTER: «, t00=0x013f, t01=0x017e}
0x1f3c8…1f3d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0140, t01=0x0008}
0x1f3d2…1f3ea               Head {h00=0x0014, h01=0x0050, text=»*  SUBROUTINES: «, t00=0x0140, t01=0x0012}
0x1f3ea…1f3f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0140, t01=0x002a}
0x1f3f4…1f408               Head {h00=0x0010, h01=0x0050, text=»GETCON EQU *«, t00=0x0140, t01=0x0034}
0x1f408…1f42e               Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0140, t01=0x0048}
0x1f42e…1f44a               Head {h00=0x0018, h01=0x0050, text=» ANK A1,1 MMU OPTION«, t00=0x0140, t01=0x006e}
0x1f44a…1f466               Head {h00=0x0018, h01=0x0050, text=» RF(Z) GCON10 NO MMU«, t00=0x0140, t01=0x008a}
0x1f466…1f478               Head {h00=0x000e, h01=0x0050, text=» ELR A1,A2«, t00=0x0140, t01=0x00a6}
0x1f478…1f48a               Head {h00=0x000e, h01=0x0050, text=» RF GCON20«, t00=0x0140, t01=0x00b8}
0x1f48a…1f49e               Head {h00=0x0010, h01=0x0050, text=»GCON10 EQU *«, t00=0x0140, t01=0x00ca}
0x1f49e…1f4b2               Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A2 «, t00=0x0140, t01=0x00de}
0x1f4b2…1f4c6               Head {h00=0x0010, h01=0x0050, text=»GCON20 EQU *«, t00=0x0140, t01=0x00f2}
0x1f4c6…1f4de               Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0140, t01=0x0106}
0x1f4de…1f4ec               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0140, t01=0x011e}
0x1f4ec…1f522               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0140, t01=0x012c}
0x1f522…1f558               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0140, t01=0x0162}
0x1f558…1f58e               Head {h00=0x0032, h01=0x0050, text=»*               SCNCON                      * «, t00=0x0141, t01=0x0008}
0x1f58e…1f5c4               Head {h00=0x0032, h01=0x0050, text=»*               ======                      * «, t00=0x0141, t01=0x003e}
0x1f5c4…1f5fa               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0141, t01=0x0074}
0x1f5fa…1f630               Head {h00=0x0032, h01=0x0050, text=»*  SCAN CONFIGURATION FILE FOR POSSIBLE     * «, t00=0x0141, t01=0x00aa}
0x1f630…1f666               Head {h00=0x0032, h01=0x0050, text=»*  APPLICATION DEFINITION BLOCKS. IF        * «, t00=0x0141, t01=0x00e0}
0x1f666…1f6a2               Head {h00=0x0038, h01=0x0050, text=»*  FOUND APLTAB+STKCOM IS UPDATED WITH DISC        *«, t00=0x0141, t01=0x0116}
0x1f6a2…1f6d8               Head {h00=0x0032, h01=0x0050, text=»*  ADDRESSES.                               * «, t00=0x0141, t01=0x0152}
0x1f6d8…1f70e               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0141, t01=0x0188}
0x1f70e…1f744               Head {h00=0x0032, h01=0x0050, text=»*  ENTRY: A9 INPUT BUFFER ADDRESS           * «, t00=0x0142, t01=0x002e}
0x1f744…1f77a               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0142, t01=0x0064}
0x1f77a…1f7b0               Head {h00=0x0032, h01=0x0050, text=»*  WORK REGISTERS  A1-A8,A10                * «, t00=0x0142, t01=0x009a}
0x1f7b0…1f7e6               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0142, t01=0x00d0}
0x1f7e6…1f81c               Head {h00=0x0032, h01=0x0050, text=»*  ROUTINES REFERENCED: GETFIL, APLID       * «, t00=0x0142, t01=0x0106}
0x1f81c…1f852               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0142, t01=0x013c}
0x1f852…1f888               Head {h00=0x0032, h01=0x0050, text=»*  REFERENCED IN SYSLOD                     * «, t00=0x0142, t01=0x0172}
0x1f888…1f8be               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0143, t01=0x0018}
0x1f8be…1f8f4               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0143, t01=0x004e}
0x1f8f4…1f8fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0143, t01=0x0084}
0x1f8fe…1f908               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0143, t01=0x008e}
0x1f908…1f91c               Head {h00=0x0010, h01=0x0050, text=»SCNCON EQU *«, t00=0x0143, t01=0x0098}
0x1f91c…1f94a               Head {h00=0x002a, h01=0x0050, text=» CF A14,GETFIL GET CONFIGURATION FILE «, t00=0x0143, t01=0x00ac}
0x1f94a…1f984               Head {h00=0x0036, h01=0x0050, text=» ST A11,CONDAD+STKEND SAVE CONF. DISC FILE ADDRESS«, t00=0x0143, t01=0x00da}
0x1f984…1f9b4               Head {h00=0x002c, h01=0x0050, text=» ST A12,CONDAD+2+STKEND MOST SIGN. PART «, t00=0x0143, t01=0x0114}
0x1f9b4…1f9da               Head {h00=0x0022, h01=0x0050, text=» LDR A8,A9 GET START OF BUFFER«, t00=0x0143, t01=0x0144}
0x1f9da…1fa0a               Head {h00=0x002c, h01=0x0050, text=» ADKL A8,BUFLEN-6 ADD SECTOR LENGTH USED«, t00=0x0143, t01=0x016a}
0x1fa0a…1fa3a               Head {h00=0x002c, h01=0x0050, text=» ST A8,ECNFBF+STKEND AND SAVE BUFFER END«, t00=0x0144, t01=0x000a}
0x1fa3a…1fa44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0144, t01=0x003a}
0x1fa44…1fa6c               Head {h00=0x0024, h01=0x0050, text=» LDKL A10,0 RESET RECORD COUNTER«, t00=0x0144, t01=0x0044}
0x1fa6c…1faa2               Head {h00=0x0032, h01=0x0050, text=» LD A6,APLTAB+STKCOM GET APLTAB+STKCOM ADDRESS«, t00=0x0144, t01=0x006c}
0x1faa2…1fad0               Head {h00=0x002a, h01=0x0050, text=» ADK A6,ACBLEN+2 SKIP 1ST TABLE BLOCK «, t00=0x0144, t01=0x00a2}
0x1fad0…1faf8               Head {h00=0x0024, h01=0x0050, text=» CF A14,RDSEC READ FIRST SECTOR «, t00=0x0144, t01=0x00d0}
0x1faf8…1fb1e               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A9 GET START OF RECORD«, t00=0x0144, t01=0x00f8}
0x1fb1e…1fb42               Head {h00=0x0020, h01=0x0050, text=» LDR A8,A9 SAVE RECORD START«, t00=0x0144, t01=0x011e}
0x1fb42…1fb4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0144, t01=0x0142}
0x1fb4c…1fb60               Head {h00=0x0010, h01=0x0050, text=»SCAN00 EQU *«, t00=0x0144, t01=0x014c}
0x1fb60…1fb8c               Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A4 GET FIRST WORD IN RECORD«, t00=0x0144, t01=0x0160}
0x1fb8c…1fbbe               Head {h00=0x002e, h01=0x0050, text=» CWK A1,'A;' APPLICATION DEFINITION BLOCK?«, t00=0x0144, t01=0x018c}
0x1fbbe…1fbd8               Head {h00=0x0016, h01=0x0050, text=» RF(NE) SCAN10 NO!«, t00=0x0145, t01=0x002e}
0x1fbd8…1fbe2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0145, t01=0x0048}
0x1fbe2…1fc10               Head {h00=0x002a, h01=0x0050, text=» CF A14,APLID YES GET APPLICATION NAME«, t00=0x0145, t01=0x0052}
0x1fc10…1fc24               Head {h00=0x0010, h01=0x0050, text=»SCAN10 EQU *«, t00=0x0145, t01=0x0080}
0x1fc24…1fc50               Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x0145, t01=0x0094}
0x1fc50…1fc7a               Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD?«, t00=0x0145, t01=0x00c0}
0x1fc7a…1fc94               Head {h00=0x0016, h01=0x0050, text=» RF(E) SCNEND YES!«, t00=0x0145, t01=0x00ea}
0x1fc94…1fc9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0145, t01=0x0104}
0x1fc9e…1fcd0               Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x0145, t01=0x010e}
0x1fcd0…1fcfc               Head {h00=0x0028, h01=0x0050, text=» CW A8,ECNFBF+STKEND OUTSIDE SECTOR?«, t00=0x0145, t01=0x0140}
0x1fcfc…1fd16               Head {h00=0x0016, h01=0x0050, text=» RF(NE) SCAN20 NO!«, t00=0x0145, t01=0x016c}
0x1fd16…1fd20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0145, t01=0x0186}
0x1fd20…1fd46               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDSEC READ NEXT SECTOR«, t00=0x0145, t01=0x0190}
0x1fd46…1fd6e               Head {h00=0x0024, h01=0x0050, text=» LDR A8,A9 RESET RECORD ADDRESS «, t00=0x0146, t01=0x0026}
0x1fd6e…1fd82               Head {h00=0x0010, h01=0x0050, text=»SCAN20 EQU *«, t00=0x0146, t01=0x004e}
0x1fd82…1fda6               Head {h00=0x0020, h01=0x0050, text=» LDR A4,A8 GET RECORD START «, t00=0x0146, t01=0x0062}
0x1fda6…1fdce               Head {h00=0x0024, h01=0x0050, text=» RB SCAN00 CONTINUE SCAN PROCESS«, t00=0x0146, t01=0x0086}
0x1fdce…1fdd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0146, t01=0x00ae}
0x1fdd8…1fe00               Head {h00=0x0024, h01=0x0050, text=»*  THE WHOLE CONFIGURATION FILE «, t00=0x0146, t01=0x00b8}
0x1fe00…1fe28               Head {h00=0x0024, h01=0x0050, text=»*  IS PROCESSED. SEARCH VTOC FOR«, t00=0x0146, t01=0x00e0}
0x1fe28…1fe4e               Head {h00=0x0022, h01=0x0050, text=»*  GIVEN FILE NAMES AND UPDATE«, t00=0x0146, t01=0x0108}
0x1fe4e…1fe7a               Head {h00=0x0028, h01=0x0050, text=»*  APLTAB+STKCOM WITH CORRESPONDING «, t00=0x0146, t01=0x012e}
0x1fe7a…1fe94               Head {h00=0x0016, h01=0x0050, text=»*  DISC ADDRESSES.«, t00=0x0146, t01=0x015a}
0x1fe94…1fe9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0146, t01=0x0174}
0x1fe9e…1feb2               Head {h00=0x0010, h01=0x0050, text=»SCNEND EQU *«, t00=0x0146, t01=0x017e}
0x1feb2…1fee6 (327, 0, 400) Head {h00=0x0030, h01=0x0050, text=» LD A1,IPLDEV+STKEND CONFIGURE PGM LOAD DEV.«, t00=0x0147, t01=0x0004}
0x1fee6…1fefc               Head {h00=0x0012, h01=0x0050, text=» CF A14,LODDEV«, t00=0x0147, t01=0x0038}
0x1fefc…1ff38               Head {h00=0x0038, h01=0x0050, text=» LD A6,APLTAB+STKCOM GET APLTAB+STKCOM START ADDRESS«, t00=0x0147, t01=0x004e}
0x1ff38…1ff66               Head {h00=0x002a, h01=0x0050, text=» ADK A6,ACBLEN+2 SKIP 1ST TABLE BLOCK «, t00=0x0147, t01=0x008a}
0x1ff66…1ff9a               Head {h00=0x0030, h01=0x0050, text=» LD* A1,APLTAB+STKCOM GET NO OF APPLICATIONS«, t00=0x0147, t01=0x00b8}
0x1ff9a…1ffb6               Head {h00=0x0018, h01=0x0050, text=» SUK A1,1 DECREMENT «, t00=0x0147, t01=0x00ec}
0x1ffb6…1ffde               Head {h00=0x0024, h01=0x0050, text=» RF(Z) RTRN ONLY ONE APPLICATION«, t00=0x0147, t01=0x0108}
0x1ffde…1fff8               Head {h00=0x0016, h01=0x0050, text=» NGR A1,A1 NEGATE «, t00=0x0147, t01=0x0130}
0x1fff8…2002e               Head {h00=0x0032, h01=0x0050, text=» ST A1,APLCNT+STKEND AND SAVE AS APPL. COUNTER«, t00=0x0147, t01=0x014a}
0x2002e…2005e               Head {h00=0x002c, h01=0x0050, text=» CF A14,GETAPL UPDATE APPLIC. DISC ADDR.«, t00=0x0147, t01=0x0180}
0x2005e…20068               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0148, t01=0x0020}
0x20068…2007a               Head {h00=0x000e, h01=0x0050, text=»RTRN EQU *«, t00=0x0148, t01=0x002a}
0x2007a…20098               Head {h00=0x001a, h01=0x0050, text=» RTN A14 END OF SCNCON«, t00=0x0148, t01=0x003c}
0x20098…200a6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0148, t01=0x005a}
0x200a6…200dc               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0148, t01=0x0068}
0x200dc…20112               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0148, t01=0x009e}
0x20112…20148               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0148, t01=0x00d4}
0x20148…2017e               Head {h00=0x0032, h01=0x0050, text=»*                 APLID                     * «, t00=0x0148, t01=0x010a}
0x2017e…201b4               Head {h00=0x0032, h01=0x0050, text=»*                 =====                     * «, t00=0x0148, t01=0x0140}
0x201b4…201ea               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0148, t01=0x0176}
0x201ea…20220               Head {h00=0x0032, h01=0x0050, text=»*  APLID TAKES THE NAME OF APPLICATION      * «, t00=0x0149, t01=0x001c}
0x20220…20256               Head {h00=0x0032, h01=0x0050, text=»*  AND MOVES IT FROM CONF. FILE TO          * «, t00=0x0149, t01=0x0052}
0x20256…20292               Head {h00=0x0038, h01=0x0050, text=»*  APLTAB+STKCOM. FOR EACH APPLICATION A ENTRY     *«, t00=0x0149, t01=0x0088}
0x20292…202ce               Head {h00=0x0038, h01=0x0050, text=»*  IN APLTAB+STKCOM IS CREATED ACCORDINGLY:        *«, t00=0x0149, t01=0x00c4}
0x202ce…20304               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0149, t01=0x0100}
0x20304…2033a               Head {h00=0x0032, h01=0x0050, text=»*       LENGTH OF NAME (BYTES)              * «, t00=0x0149, t01=0x0136}
0x2033a…20370               Head {h00=0x0032, h01=0x0050, text=»*       NAME                                * «, t00=0x0149, t01=0x016c}
0x20370…203a6               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x014a, t01=0x0012}
0x203a6…203dc               Head {h00=0x0032, h01=0x0050, text=»*  THE NAME ENTRY CONSISTS OF 1-4 WORDS     * «, t00=0x014a, t01=0x0048}
0x203dc…20412               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x014a, t01=0x007e}
0x20412…2044e               Head {h00=0x0038, h01=0x0050, text=»*  ENTRY: A6 POINTER INTO APLTAB+STKCOM            *«, t00=0x014a, t01=0x00b4}
0x2044e…20484               Head {h00=0x0032, h01=0x0050, text=»*         A8 RECORD POINTER                 * «, t00=0x014a, t01=0x00f0}
0x20484…204ba               Head {h00=0x0032, h01=0x0050, text=»*         A10 RECORD COUNTER                * «, t00=0x014a, t01=0x0126}
0x204ba…204f0               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x014a, t01=0x015c}
0x204f0…20526 (331, 0, 400) Head {h00=0x0032, h01=0x0050, text=»*  WORK REGISTERS: A1-A5                    * «, t00=0x014b, t01=0x0004}
0x20526…2055c               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x014b, t01=0x003a}
0x2055c…20592               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x014b, t01=0x0070}
0x20592…2059c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014b, t01=0x00a6}
0x2059c…205a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014b, t01=0x00b0}
0x205a6…205ba               Head {h00=0x0010, h01=0x0050, text=»APLID EQU * «, t00=0x014b, t01=0x00ba}
0x205ba…205e6               Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x014b, t01=0x00ce}
0x205e6…20610               Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD «, t00=0x014b, t01=0x00fa}
0x20610…20648               Head {h00=0x0034, h01=0x0050, text=» ABL(E) CONERR YES! ERROR IN CONFIGURATION FILE «, t00=0x014b, t01=0x0124}
0x20648…20652               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014b, t01=0x015c}
0x20652…20684               Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x014b, t01=0x0166}
0x20684…206b0               Head {h00=0x0028, h01=0x0050, text=» CW A8,ECNFBF+STKEND OUTSIDE SECTOR?«, t00=0x014c, t01=0x0008}
0x206b0…206ca               Head {h00=0x0016, h01=0x0050, text=» RF(NE) APLID0 NO!«, t00=0x014c, t01=0x0034}
0x206ca…206d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014c, t01=0x004e}
0x206d4…206fa               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDSEC READ NEXT SECTOR«, t00=0x014c, t01=0x0058}
0x206fa…2071e               Head {h00=0x0020, h01=0x0050, text=» LDR A8,A9 GET RECORD START «, t00=0x014c, t01=0x007e}
0x2071e…20732               Head {h00=0x0010, h01=0x0050, text=»APLID0 EQU *«, t00=0x014c, t01=0x00a2}
0x20732…20752               Head {h00=0x001c, h01=0x0050, text=» LDR A4,A8 RECORD START «, t00=0x014c, t01=0x00b6}
0x20752…2077c               Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 RESET CHARACTER COUNTER «, t00=0x014c, t01=0x00d6}
0x2077c…20790               Head {h00=0x0010, h01=0x0050, text=»APLID2 EQU *«, t00=0x014c, t01=0x0100}
0x20790…207b0               Head {h00=0x001c, h01=0x0050, text=» LCR A1,A4 GET CHARACTER«, t00=0x014c, t01=0x0114}
0x207b0…207da               Head {h00=0x0026, h01=0x0050, text=» CCK A1,';;' DELIMITER CHARACTER? «, t00=0x014c, t01=0x0134}
0x207da…20800               Head {h00=0x0022, h01=0x0050, text=» RF(E) APLID4 YES! END OF NAME«, t00=0x014c, t01=0x015e}
0x20800…2080a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014c, t01=0x0184}
0x2080a…20838               Head {h00=0x002a, h01=0x0050, text=» ADK A4,1 INCREMENT CHARACTER POINTER «, t00=0x014c, t01=0x018e}
0x20838…20864               Head {h00=0x0028, h01=0x0050, text=» ADK A5,1 INCREMENT CHARACTER COUNT «, t00=0x014d, t01=0x002c}
0x20864…2088e               Head {h00=0x0026, h01=0x0050, text=» CWK A5,NCHAID END OF THIS RECORD?«, t00=0x014d, t01=0x0058}
0x2088e…208ba               Head {h00=0x0028, h01=0x0050, text=» RB(NE) APLID2 NO GET NEXT CHARACTER«, t00=0x014d, t01=0x0082}
0x208ba…208c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014d, t01=0x00ae}
0x208c4…208ea               Head {h00=0x0022, h01=0x0050, text=»*  END OF NAME RECORD, LOOK IF«, t00=0x014d, t01=0x00b8}
0x208ea…20912               Head {h00=0x0024, h01=0x0050, text=»*  NEXT CHARACTER IS A DELIMITER«, t00=0x014d, t01=0x00de}
0x20912…2091c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014d, t01=0x0106}
0x2091c…2092e               Head {h00=0x000e, h01=0x0050, text=» LCR A1,A4«, t00=0x014d, t01=0x0110}
0x2092e…20942               Head {h00=0x0010, h01=0x0050, text=» CCK A1,';;'«, t00=0x014d, t01=0x0122}
0x20942…2097c               Head {h00=0x0036, h01=0x0050, text=» ABL(NE) CONERR NO DELIMITER, ERROR IN CONF. FILE «, t00=0x014d, t01=0x0136}
0x2097c…20986               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014d, t01=0x0170}
0x20986…2099a               Head {h00=0x0010, h01=0x0050, text=»APLID4 EQU *«, t00=0x014d, t01=0x017a}
0x2099a…209ac               Head {h00=0x000e, h01=0x0050, text=» ADK A5,0 «, t00=0x014d, t01=0x018e}
0x209ac…209de               Head {h00=0x002e, h01=0x0050, text=» ABL(Z) CONERR NO LEGAL CHARACTER IN NAME «, t00=0x014e, t01=0x0010}
0x209de…209e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014e, t01=0x0042}
0x209e8…20a0c               Head {h00=0x0020, h01=0x0050, text=» LDR A3,A6 SAVE BLOCK START «, t00=0x014e, t01=0x004c}
0x20a0c…20a40               Head {h00=0x0030, h01=0x0050, text=» STR A5,A3 SAVE NAME LENGTH IN APLTAB+STKCOM«, t00=0x014e, t01=0x0070}
0x20a40…20a72               Head {h00=0x002e, h01=0x0050, text=» IM* APLTAB+STKCOM INCREMENT NO OF APPLIC.«, t00=0x014e, t01=0x00a4}
0x20a72…20a9e               Head {h00=0x0028, h01=0x0050, text=» LDR A4,A8 GET START OF NAME RECORD «, t00=0x014e, t01=0x00d6}
0x20a9e…20aca               Head {h00=0x0028, h01=0x0050, text=» ADK A5,1 INCREMENT CHARACTER COUNT «, t00=0x014e, t01=0x0102}
0x20aca…20af0               Head {h00=0x0022, h01=0x0050, text=» SRA A5,1 AND MAKE WORD COUNT «, t00=0x014e, t01=0x012e}
0x20af0…20afa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014e, t01=0x0154}
0x20afa…20b0e               Head {h00=0x0010, h01=0x0050, text=»APLID6 EQU *«, t00=0x014e, t01=0x015e}
0x20b0e…20b36               Head {h00=0x0024, h01=0x0050, text=» ADK A3,2 ADVANCE TABLE POINTER «, t00=0x014e, t01=0x0172}
0x20b36…20b64               Head {h00=0x002a, h01=0x0050, text=» LDR* A1,A4 MOVE 2 CHARACTERS OF NAME «, t00=0x014f, t01=0x000a}
0x20b64…20b88               Head {h00=0x0020, h01=0x0050, text=» STR A1,A3 TO APLTAB+STKCOM «, t00=0x014f, t01=0x0038}
0x20b88…20bb4               Head {h00=0x0028, h01=0x0050, text=» ADK A4,2 ADVANCE CHARACTER POINTER «, t00=0x014f, t01=0x005c}
0x20bb4…20bda               Head {h00=0x0022, h01=0x0050, text=» SUK A5,1 DECREMENT WORD COUNT«, t00=0x014f, t01=0x0088}
0x20bda…20c08               Head {h00=0x002a, h01=0x0050, text=» RB(P) APLID6 MORE CHARACTERS TO MOVE «, t00=0x014f, t01=0x00ae}
0x20c08…20c12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x00dc}
0x20c12…20c46               Head {h00=0x0030, h01=0x0050, text=» ADK A6,ACBLEN PREPARE FOR NEXT TABLE ENTRY «, t00=0x014f, t01=0x00e6}
0x20c46…20c62               Head {h00=0x0018, h01=0x0050, text=» RTN A14 NO, RETURN «, t00=0x014f, t01=0x011a}
0x20c62…20c70               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x014f, t01=0x0136}
0x20c70…20ca6               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x014f, t01=0x0144}
0x20ca6…20cdc               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x014f, t01=0x017a}
0x20cdc…20d12               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0150, t01=0x0020}
0x20d12…20d48               Head {h00=0x0032, h01=0x0050, text=»*              GETAPL                       * «, t00=0x0150, t01=0x0056}
0x20d48…20d7e               Head {h00=0x0032, h01=0x0050, text=»*              ======                       * «, t00=0x0150, t01=0x008c}
0x20d7e…20db4               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0150, t01=0x00c2}
0x20db4…20dea               Head {h00=0x0032, h01=0x0050, text=»*  SCANS VTOC FOR FILE NAMES LISTED IN      * «, t00=0x0150, t01=0x00f8}
0x20dea…20e2e               Head {h00=0x0040, h01=0x0050, text=»*  APLTAB+STKCOM. APLTAB+STKCOM IS UPDATED WITH CORRE-    * «, t00=0x0150, t01=0x012e}
0x20e2e…20e64               Head {h00=0x0032, h01=0x0050, text=»*  SPONDING DISC ADDRESSE AND THE LENGTH    * «, t00=0x0150, t01=0x0172}
0x20e64…20ea0               Head {h00=0x0038, h01=0x0050, text=»*  OF APLTAB+STKCOM IS THEN USED TO CALCULATE      *«, t00=0x0151, t01=0x0018}
0x20ea0…20ed6               Head {h00=0x0032, h01=0x0050, text=»*  START OF FREE AREA.                      * «, t00=0x0151, t01=0x0054}
0x20ed6…20f0c               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0151, t01=0x008a}
0x20f0c…20f48               Head {h00=0x0038, h01=0x0050, text=»*  ENTRY: A6 - 1ST ENTRY IN APLTAB+STKCOM          *«, t00=0x0151, t01=0x00c0}
0x20f48…20f8c               Head {h00=0x0040, h01=0x0050, text=»*         APLCNT+STKEND - NO OF ENTRIES IN APLTAB+STKCOM  * «, t00=0x0151, t01=0x00fc}
0x20f8c…20fc2               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0151, t01=0x0140}
0x20fc2…20ff8               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0151, t01=0x0176}
0x20ff8…21002               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0152, t01=0x001c}
0x21002…2100c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0152, t01=0x0026}
0x2100c…21020               Head {h00=0x0010, h01=0x0050, text=»GETAPL EQU *«, t00=0x0152, t01=0x0030}
0x21020…21048               Head {h00=0x0024, h01=0x0050, text=» CF A14,GETVLB READ VOLUME LABEL«, t00=0x0152, t01=0x0044}
0x21048…2105c               Head {h00=0x0010, h01=0x0050, text=»GETAP0 EQU *«, t00=0x0152, t01=0x006c}
0x2105c…2107e               Head {h00=0x001e, h01=0x0050, text=» CF A14,RDSEC READ SECTOR «, t00=0x0152, t01=0x0080}
0x2107e…210aa               Head {h00=0x0028, h01=0x0050, text=» LDK A7,QBLFAC VTOC BLOCKING FACTOR «, t00=0x0152, t01=0x00a2}
0x210aa…210d0               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A9 GET START OF RECORD«, t00=0x0152, t01=0x00ce}
0x210d0…210e4               Head {h00=0x0010, h01=0x0050, text=»GETAP2 EQU *«, t00=0x0152, t01=0x00f4}
0x210e4…21110               Head {h00=0x0028, h01=0x0050, text=» LDR* A5,A6 GET LENGTH OF APPL. NAME«, t00=0x0152, t01=0x0108}
0x21110…21134               Head {h00=0x0020, h01=0x0050, text=» LDR A3,A4 SAVE RECORD START«, t00=0x0152, t01=0x0134}
0x21134…21158               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 AND TABLE POINTER«, t00=0x0152, t01=0x0158}
0x21158…21180               Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 SKIP NO OF CHAR. ENTRY«, t00=0x0152, t01=0x017c}
0x21180…211b2               Head {h00=0x002e, h01=0x0050, text=» LCR A2,A4 GET 1ST CHARACTER IN FILE NAME «, t00=0x0153, t01=0x0014}
0x211b2…211d0               Head {h00=0x001a, h01=0x0050, text=» CCK A2,/2020 UNUSED? «, t00=0x0153, t01=0x0046}
0x211d0…211ea               Head {h00=0x0016, h01=0x0050, text=» RF(E) GETAP4 YES!«, t00=0x0153, t01=0x0064}
0x211ea…211f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x007e}
0x211f4…2121a               Head {h00=0x0022, h01=0x0050, text=» CF A14,CMPSYM COMPARE SYMBOLS«, t00=0x0153, t01=0x0088}
0x2121a…2122c               Head {h00=0x000e, h01=0x0050, text=» ADK A5,0 «, t00=0x0153, t01=0x00ae}
0x2122c…21246               Head {h00=0x0016, h01=0x0050, text=» RF(Z) FOUND EQUAL«, t00=0x0153, t01=0x00c0}
0x21246…21250               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x00da}
0x21250…21278               Head {h00=0x0024, h01=0x0050, text=»*  NO MATCH, TRY NEXT VTOC ENTRY«, t00=0x0153, t01=0x00e4}
0x21278…21282               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x010c}
0x21282…21296               Head {h00=0x0010, h01=0x0050, text=»GETAP4 EQU *«, t00=0x0153, t01=0x0116}
0x21296…212b8               Head {h00=0x001e, h01=0x0050, text=» ADR A4,A8 GET NEXT RECORD«, t00=0x0153, t01=0x012a}
0x212b8…212e2               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 BYPASS STATUS CHARACTER «, t00=0x0153, t01=0x014c}
0x212e2…21310               Head {h00=0x002a, h01=0x0050, text=» SUK A7,1 MORE RECORDS IN THIS SECTOR «, t00=0x0153, t01=0x0176}
0x21310…2132a               Head {h00=0x0016, h01=0x0050, text=» RB(P) GETAP2 YES!«, t00=0x0154, t01=0x0014}
0x2132a…21334               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x002e}
0x21334…2135a               Head {h00=0x0022, h01=0x0050, text=» CWR A11,A10 LAST VTOC SECTOR?«, t00=0x0154, t01=0x0038}
0x2135a…21384               Head {h00=0x0026, h01=0x0050, text=» ABL(E) CONERR ERROR IN CONF. FILE«, t00=0x0154, t01=0x005e}
0x21384…2138e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x0088}
0x2138e…213a0               Head {h00=0x000e, h01=0x0050, text=» RB GETAP0«, t00=0x0154, t01=0x0092}
0x213a0…213aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x00a4}
0x213aa…213be               Head {h00=0x0010, h01=0x0050, text=»FOUND EQU * «, t00=0x0154, t01=0x00ae}
0x213be…213e6               Head {h00=0x0024, h01=0x0050, text=» LDK A2,'L' LOAD FILE CHARACTER «, t00=0x0154, t01=0x00c2}
0x213e6…21406               Head {h00=0x001c, h01=0x0050, text=» CC A2,27,A4 LOAD FILE? «, t00=0x0154, t01=0x00ea}
0x21406…21434               Head {h00=0x002a, h01=0x0050, text=» ABL(NE) CONERR NO ERROR IN CONF. FILE«, t00=0x0154, t01=0x010a}
0x21434…2143e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x0138}
0x2143e…21470               Head {h00=0x002e, h01=0x0050, text=» LD A2,16,A4 GET DISC ADDRESS (BITS 0-15) «, t00=0x0154, t01=0x0142}
0x21470…2149e               Head {h00=0x002a, h01=0x0050, text=» ST A2,APLADA,A6 SAVE IN APLTAB+STKCOM«, t00=0x0154, t01=0x0174}
0x2149e…214d0               Head {h00=0x002e, h01=0x0050, text=» LD A2,18,A4 GET DISC ADDRESS (BITS 16-31)«, t00=0x0155, t01=0x0012}
0x214d0…21504               Head {h00=0x0030, h01=0x0050, text=» ST A2,APLADA+2,A6 AND SAVE IN APLTAB+STKCOM«, t00=0x0155, t01=0x0044}
0x21504…21536               Head {h00=0x002e, h01=0x0050, text=» ADK A6,ACBLEN ADVANCE TO NEXT TABLE BLOCK«, t00=0x0155, t01=0x0078}
0x21536…21540               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0155, t01=0x00aa}
0x21540…21576               Head {h00=0x0032, h01=0x0050, text=» IM APLCNT+STKEND INCREMENT APPLICATION COUNT «, t00=0x0155, t01=0x00b4}
0x21576…21598               Head {h00=0x001e, h01=0x0050, text=» RB(NZ) GETAPL MORE TO DO!«, t00=0x0155, t01=0x00ea}
0x21598…215a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0155, t01=0x010c}
0x215a2…215c0               Head {h00=0x001a, h01=0x0050, text=» RTN A14 END OF GETAPL«, t00=0x0155, t01=0x0116}
0x215c0…215ce               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0155, t01=0x0134}
0x215ce…21604               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0155, t01=0x0142}
0x21604…2163a               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0155, t01=0x0178}
0x2163a…21670               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0156, t01=0x001e}
0x21670…216a6               Head {h00=0x0032, h01=0x0050, text=»*            CMPSYM                         * «, t00=0x0156, t01=0x0054}
0x216a6…216dc               Head {h00=0x0032, h01=0x0050, text=»*            ======                         * «, t00=0x0156, t01=0x008a}
0x216dc…21712               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0156, t01=0x00c0}
0x21712…21748               Head {h00=0x0032, h01=0x0050, text=»*  COMPARE TWO SYMBOLS WITH EACH OTHER      * «, t00=0x0156, t01=0x00f6}
0x21748…2177e               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0156, t01=0x012c}
0x2177e…217b4               Head {h00=0x0032, h01=0x0050, text=»*  ENTRY: A3 - START OF SYMBOL 1            * «, t00=0x0156, t01=0x0162}
0x217b4…217ea               Head {h00=0x0032, h01=0x0050, text=»*         A1 - START OF SYMBOL 2            * «, t00=0x0157, t01=0x0008}
0x217ea…21820               Head {h00=0x0032, h01=0x0050, text=»*         A5 - LENGTH OF SYMBOL 2           * «, t00=0x0157, t01=0x003e}
0x21820…21856               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0157, t01=0x0074}
0x21856…2188c               Head {h00=0x0032, h01=0x0050, text=»*  EXIT:  A5 = 0 IF SYMBOLS EQUAL           * «, t00=0x0157, t01=0x00aa}
0x2188c…218c2               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0157, t01=0x00e0}
0x218c2…218f8               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0157, t01=0x0116}
0x218f8…21902               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0157, t01=0x014c}
0x21902…2190c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0157, t01=0x0156}
0x2190c…21920               Head {h00=0x0010, h01=0x0050, text=»CMPSYM EQU *«, t00=0x0157, t01=0x0160}
0x21920…2194c               Head {h00=0x0028, h01=0x0050, text=» LCR A2,A3 GET CHARACTER IN SYMBOL 1«, t00=0x0157, t01=0x0174}
0x2194c…21982               Head {h00=0x0032, h01=0x0050, text=» CCR A2,A1 COMPARE WITH CHARACTER IN SYMBOL 2 «, t00=0x0158, t01=0x0010}
0x21982…219ae               Head {h00=0x0028, h01=0x0050, text=» RF(NE) CMPEND IF NOT EQUAL, RETURN «, t00=0x0158, t01=0x0046}
0x219ae…219b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0158, t01=0x0072}
0x219b8…219e4               Head {h00=0x0028, h01=0x0050, text=» ADK A3,1 ADVANCE CHARACTER POINTERS«, t00=0x0158, t01=0x007c}
0x219e4…219f6               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0158, t01=0x00a8}
0x219f6…21a22               Head {h00=0x0028, h01=0x0050, text=» SUK A5,1 DECREMENT CHARACTER COUNT «, t00=0x0158, t01=0x00ba}
0x21a22…21a52               Head {h00=0x002c, h01=0x0050, text=» RB(NZ) CMPSYM CONTINUE THE COMPARISION «, t00=0x0158, t01=0x00e6}
0x21a52…21a5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0158, t01=0x0116}
0x21a5c…21a84               Head {h00=0x0024, h01=0x0050, text=» LDR* A2,A6 RESTORE NAME LENGTH «, t00=0x0158, t01=0x0120}
0x21a84…21aaa               Head {h00=0x0022, h01=0x0050, text=» CWK A2,8 LOOK IF MAX. LENGTH «, t00=0x0158, t01=0x0148}
0x21aaa…21ace               Head {h00=0x0020, h01=0x0050, text=» RF(E) CMPEND YES! FINISHED «, t00=0x0158, t01=0x016e}
0x21ace…21ad8 (345, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0159, t01=0x0004}
0x21ad8…21b0a               Head {h00=0x002e, h01=0x0050, text=» LCR A2,A3 GET NEXT CHARACTER IN FILE NAME«, t00=0x0159, t01=0x000e}
0x21b0a…21b32               Head {h00=0x0024, h01=0x0050, text=» CCK A2,/2020 END OF FILE NAME? «, t00=0x0159, t01=0x0040}
0x21b32…21b4c               Head {h00=0x0016, h01=0x0050, text=» RF(E) CMPEND YES!«, t00=0x0159, t01=0x0068}
0x21b4c…21b56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0159, t01=0x0082}
0x21b56…21b76               Head {h00=0x001c, h01=0x0050, text=» LDK A5,1 NO, NOT EQUAL!«, t00=0x0159, t01=0x008c}
0x21b76…21b8a               Head {h00=0x0010, h01=0x0050, text=»CMPEND EQU *«, t00=0x0159, t01=0x00ac}
0x21b8a…21ba8               Head {h00=0x001a, h01=0x0050, text=» RTN A14 END OF CMPSYM«, t00=0x0159, t01=0x00c0}
0x21ba8…21bb6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0159, t01=0x00de}
0x21bb6…21bec               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0159, t01=0x00ec}
0x21bec…21c22               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0159, t01=0x0122}
0x21c22…21c58               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0159, t01=0x0158}
0x21c58…21c8e               Head {h00=0x0032, h01=0x0050, text=»*               GETVLB                      * «, t00=0x0159, t01=0x018e}
0x21c8e…21cc4               Head {h00=0x0032, h01=0x0050, text=»*               ======                      * «, t00=0x015a, t01=0x0034}
0x21cc4…21cfa               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x015a, t01=0x006a}
0x21cfa…21d30               Head {h00=0x0032, h01=0x0050, text=»*  READ SECTOR CONTAINIG VOLUME LABEL       * «, t00=0x015a, t01=0x00a0}
0x21d30…21d66               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x015a, t01=0x00d6}
0x21d66…21d9c               Head {h00=0x0032, h01=0x0050, text=»*  EXIT: A10 - LAST VTOC SECTOR             * «, t00=0x015a, t01=0x010c}
0x21d9c…21dd2               Head {h00=0x0032, h01=0x0050, text=»*        A11 - FIRST VTOC SECTOR            * «, t00=0x015a, t01=0x0142}
0x21dd2…21e08               Head {h00=0x0032, h01=0x0050, text=»*        A8  - VTOC RECORD LENGTH           * «, t00=0x015a, t01=0x0178}
0x21e08…21e3e               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x015b, t01=0x001e}
0x21e3e…21e74               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x015b, t01=0x0054}
0x21e74…21e7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015b, t01=0x008a}
0x21e7e…21e88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015b, t01=0x0094}
0x21e88…21e9c               Head {h00=0x0010, h01=0x0050, text=»GETVLB EQU *«, t00=0x015b, t01=0x009e}
0x21e9c…21ebe               Head {h00=0x001e, h01=0x0050, text=» SUR A11,A11 VOLUME LABEL «, t00=0x015b, t01=0x00b2}
0x21ebe…21ed2               Head {h00=0x0010, h01=0x0050, text=» SUR A12,A12«, t00=0x015b, t01=0x00d4}
0x21ed2…21ef8               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDSEC GET VOLUME LABEL«, t00=0x015b, t01=0x00e8}
0x21ef8…21f1c               Head {h00=0x0020, h01=0x0050, text=» LD A10,10,A9 GET VTOC BASE «, t00=0x015b, t01=0x010e}
0x21f1c…21f36               Head {h00=0x0016, h01=0x0050, text=» LDR A11,A10 SAVE «, t00=0x015b, t01=0x0132}
0x21f36…21f5c               Head {h00=0x0022, h01=0x0050, text=» AD A10,6,A9 LAST VTOC SECTOR «, t00=0x015b, t01=0x014c}
0x21f5c…21f88               Head {h00=0x0028, h01=0x0050, text=» LD A8,12,A9 GET VTOC RECORD LENGTH «, t00=0x015b, t01=0x0172}
0x21f88…21fba               Head {h00=0x002e, h01=0x0050, text=» AD A11,46,A9 FIRST FILE SECTOR IN VTOC =7«, t00=0x015c, t01=0x000e}
0x21fba…21fd8               Head {h00=0x001a, h01=0x0050, text=» RTN A14 END OF GETVLB«, t00=0x015c, t01=0x0040}
0x21fd8…21fe2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015c, t01=0x005e}
0x21fe2…21ff0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x015c, t01=0x0068}
0x21ff0…22026               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x015c, t01=0x0076}
0x22026…2205c               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x015c, t01=0x00ac}
0x2205c…22092               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x015c, t01=0x00e2}
0x22092…220c8               Head {h00=0x0032, h01=0x0050, text=»*                  RDSEC                    * «, t00=0x015c, t01=0x0118}
0x220c8…220fe               Head {h00=0x0032, h01=0x0050, text=»*                  =====                    * «, t00=0x015c, t01=0x014e}
0x220fe…22134               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x015c, t01=0x0184}
0x22134…2216a               Head {h00=0x0032, h01=0x0050, text=»*  READS A SECTOR FROM INPUT DISC.          * «, t00=0x015d, t01=0x002a}
0x2216a…221a0               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x015d, t01=0x0060}
0x221a0…221d6               Head {h00=0x0032, h01=0x0050, text=»*  ENTRY: A9 - BUFFER ADDRESS               * «, t00=0x015d, t01=0x0096}
0x221d6…2220c               Head {h00=0x0032, h01=0x0050, text=»*         A11- SECTOR ADDRESS               * «, t00=0x015d, t01=0x00cc}
0x2220c…22242               Head {h00=0x0032, h01=0x0050, text=»*         A12- SECTOR ADDRESS               * «, t00=0x015d, t01=0x0102}
0x22242…22278               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x015d, t01=0x0138}
0x22278…222ae               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x015d, t01=0x016e}
0x222ae…222b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015e, t01=0x0014}
0x222b8…222c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015e, t01=0x001e}
0x222c2…222d6               Head {h00=0x0010, h01=0x0050, text=»RDSEC EQU * «, t00=0x015e, t01=0x0028}
0x222d6…222fc               Head {h00=0x0022, h01=0x0050, text=» CF A14,READS MODIFIED ADDRESS«, t00=0x015e, t01=0x003c}
0x222fc…22312               Head {h00=0x0012, h01=0x0050, text=»READS EQU *-2 «, t00=0x015e, t01=0x0062}
0x22312…22322               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x015e, t01=0x0078}
0x22322…22330               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x015e, t01=0x0088}
0x22330…2233a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015e, t01=0x0096}
0x2233a…2235a               Head {h00=0x001c, h01=0x0050, text=»*  DATA AREA DEFINITION «, t00=0x015e, t01=0x00a0}
0x2235a…22364               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015e, t01=0x00c0}
0x22364…22378               Head {h00=0x0010, h01=0x0050, text=»SYSBAS EQU *«, t00=0x015e, t01=0x00ca}
0x22378…22392               Head {h00=0x0016, h01=0x0050, text=»SAVCON DATA BUFLEN«, t00=0x015e, t01=0x00de}
0x22392…223c8               Head {h00=0x0032, h01=0x0050, text=»MXBUF DATA 0 DISC/FLEXIBLE DISC BUFFER ADDRESS«, t00=0x015e, t01=0x00f8}
0x223c8…223e8               Head {h00=0x001c, h01=0x0050, text=»SAVMEM DATA 0 SAVE AREA «, t00=0x015e, t01=0x012e}
0x223e8…22412               Head {h00=0x0026, h01=0x0050, text=»CYLNBR DATA /FFFF CYLINDER NUMBER «, t00=0x015e, t01=0x014e}
0x22412…2243e               Head {h00=0x0028, h01=0x0050, text=»SECNBR DATA 0 PHYSICAL SECTOR NUMBER«, t00=0x015e, t01=0x0178}
0x2243e…22458               Head {h00=0x0016, h01=0x0050, text=» IFT CDDISC=1  =9 «, t00=0x015f, t01=0x0014}
0x22458…22472               Head {h00=0x0016, h01=0x0050, text=» IFT CDDI16=0  =9 «, t00=0x015f, t01=0x002e}
0x22472…224a0               Head {h00=0x002a, h01=0x0050, text=»DEVTAB DATA 0,/1909,/3717,/2808,/1404 «, t00=0x015f, t01=0x0048}
0x224a0…224b2               Head {h00=0x000e, h01=0x0050, text=» XIF   =9 «, t00=0x015f, t01=0x0076}
0x224b2…224d2               Head {h00=0x001c, h01=0x0050, text=» IFF CDDISC-CDDI16=1  =9«, t00=0x015f, t01=0x0088}
0x224d2…22502               Head {h00=0x002c, h01=0x0050, text=»DEVTAB DATA 0,/1909,/3717,/2808,/5717 =9«, t00=0x015f, t01=0x00a8}
0x22502…22514               Head {h00=0x000e, h01=0x0050, text=» XIF   =9 «, t00=0x015f, t01=0x00d8}
0x22514…2253c               Head {h00=0x0024, h01=0x0050, text=»SWPTAB DATA '$S','WA','P ','  ' «, t00=0x015f, t01=0x00ea}
0x2253c…22552               Head {h00=0x0012, h01=0x0050, text=»FCTAB EQU * =5«, t00=0x015f, t01=0x0112}
0x22552…22570               Head {h00=0x001a, h01=0x0050, text=» DATA /F1F3,/F0F2  =5 «, t00=0x015f, t01=0x0128}
0x22570…2257a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015f, t01=0x0146}
0x2257a…2258e               Head {h00=0x0010, h01=0x0050, text=» END SYSLOD «, t00=0x015f, t01=0x0150}
0x2258e…22592               Head {h00=0x4004, h01=0x0000}
0x22592…22596               01 5f 01 64                                                                                                                                                                                                                                       ┆ _ d┆
0x22596…2259e (352, 1, 8)   20 04 00 00 01 60 00 04                                                                                                                                                                                                                           ┆     `  ┆

DataMuseum.dk

Philips Data Systems

⟦b803f9532⟧

Derivation

PTS(SC)

HexDump

Reduced view