⟦9590624ff⟧

PTS(SC)

	IDENT SYSLOD 	REL 11.0 81-05-22 870105041100 

			=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)
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 
	CW	A3,SCTPSZ	COMPARE WITH PREVIOUSLY DEFINED SIZE
	RF(NG)	AP2350	IF LESS, DON'T UPDATE SIZE 
* 
	ST	A3,SCTPSZ	SAVE LARGEST DEFINED PAGE SIZE
AP2350	EQU	*
	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	*
* 
*  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 
	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!
	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	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!
* 
	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	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
	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,A6              * 
*                                             * 
*  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	A6,3	NUMBER OF RETRIES 
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*	A6,A1 
	STR	A6,A2
	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	A6,1 
	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,A6              * 
*                                             * 
*  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	A6,3	NUMBER OF RETRIES 
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*	A6,A1 
	STR	A6,A2
	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	A6,1 
	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-05-22 870105041100 «, t00=0x0000, t01=0x0004}
0x00036…0003e               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x0003e…0006a               Head {h00=0x0028, h01=0x0050, text=»   =12,COND. ASSEMBLY EDM INTRODUCED«, t00=0x0000, t01=0x0042}
0x0006a…0008a               Head {h00=0x001c, h01=0x0050, text=»   =12,REL 11.0 81-05-19«, t00=0x0000, t01=0x006e}
0x0008a…000b8               Head {h00=0x002a, h01=0x0050, text=»   =11,ERROR IN READ ROUT. FOR 16M,80M«, t00=0x0000, t01=0x008e}
0x000b8…000d8               Head {h00=0x001c, h01=0x0050, text=»   =11,REL 11.0 81-05-11«, t00=0x0000, t01=0x00bc}
0x000d8…00108               Head {h00=0x002c, h01=0x0050, text=»   =10,TWO WORDS IN INTERRUPT TABLE ARE «, t00=0x0000, t01=0x00dc}
0x00108…00120               Head {h00=0x0014, h01=0x0050, text=»   =10,DESTROYED«, t00=0x0000, t01=0x010c}
0x00120…00140               Head {h00=0x001c, h01=0x0050, text=»   =10,REL 11.0 81-04-08«, t00=0x0000, t01=0x0124}
0x00140…0016c               Head {h00=0x0028, h01=0x0050, text=»   =9,NEW CONTROL UNIT 16M,80M DISC «, t00=0x0000, t01=0x0144}
0x0016c…0018c               Head {h00=0x001c, h01=0x0050, text=»   =9,REL 11.0 81-04-06 «, t00=0x0000, t01=0x0170}
0x0018c…001c2               Head {h00=0x0032, h01=0x0050, text=»   =8,WHEN CFTEST=1 TEST ALSO RWSI CONNECTION «, t00=0x0000, t01=0x0190}
0x001c2…001e2               Head {h00=0x001c, h01=0x0050, text=»   =8,REL 11.0 81-03-31 «, t00=0x0001, t01=0x0036}
0x001e2…0020a               Head {h00=0x0024, h01=0x0050, text=»   =7,WRONG VTOC-SECTOR POINTER «, t00=0x0001, t01=0x0056}
0x0020a…0022a               Head {h00=0x001c, h01=0x0050, text=»   =7,REL 11.0 81-03-12 «, t00=0x0001, t01=0x007e}
0x0022a…00258               Head {h00=0x002a, h01=0x0050, text=»   =6,DC BLOCK DESTROYED WHEN CFTEST=0«, t00=0x0001, t01=0x009e}
0x00258…00278               Head {h00=0x001c, h01=0x0050, text=»   =6,REL 11.0 81-02-06 «, t00=0x0001, t01=0x00cc}
0x00278…002ae               Head {h00=0x0032, h01=0x0050, text=»   =5,SUPPORTS LOADING FROM TWO HARDDISC UNITS«, t00=0x0001, t01=0x00ec}
0x002ae…002ce               Head {h00=0x001c, h01=0x0050, text=»   =5,REL 11.0 81-01-29 «, t00=0x0001, t01=0x0122}
0x002ce…002f0               Head {h00=0x001e, h01=0x0050, text=»   =4,FLOPPY MUX CORRECTED«, t00=0x0001, t01=0x0142}
0x002f0…00310               Head {h00=0x001c, h01=0x0050, text=»   =4,REL 11.0 81-01-26 «, t00=0x0001, t01=0x0164}
0x00310…0033a               Head {h00=0x0026, h01=0x0050, text=»   =3,IF 256 KBYTE MEMORY OVERFLOW«, t00=0x0001, t01=0x0184}
0x0033a…00368               Head {h00=0x002a, h01=0x0050, text=»   =3,WILL OCCUR IN SEGMENT ALLOCATION«, t00=0x0002, t01=0x001e}
0x00368…00388               Head {h00=0x001c, h01=0x0050, text=»   =3,PRR 11.0 80-12-03 «, t00=0x0002, t01=0x004c}
0x00388…003bc               Head {h00=0x0030, h01=0x0050, text=»   =2,LOOK IF APPL. TYPE ALLOWED IN MONITOR «, t00=0x0002, t01=0x006c}
0x003bc…003f0               Head {h00=0x0030, h01=0x0050, text=»   =2,REDESIGNED SEGMENT ALLOCATION ALGORITM«, t00=0x0002, t01=0x00a0}
0x003f0…00410               Head {h00=0x001c, h01=0x0050, text=»   =2,PRR 11.0 80-11-20 «, t00=0x0002, t01=0x00d4}
0x00410…0043e               Head {h00=0x002a, h01=0x0050, text=»   =1,MXSTAB ADDR. NOT REL IF CFTEST=0«, t00=0x0002, t01=0x00f4}
0x0043e…0045e               Head {h00=0x001c, h01=0x0050, text=»   =1,PRR 11.0 80-11-19 «, t00=0x0002, t01=0x0122}
0x0045e…00474               Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSLOD «, t00=0x0002, t01=0x0142}
0x00474…0048a               Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSBAS «, t00=0x0002, t01=0x0158}
0x0048a…004a0               Head {h00=0x0012, h01=0x0050, text=» ENTRY NUMSEG «, t00=0x0002, t01=0x016e}
0x004a0…004b6               Head {h00=0x0012, h01=0x0050, text=» ENTRY PRGLG1 «, t00=0x0002, t01=0x0184}
0x004b6…004cc               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLADA «, t00=0x0003, t01=0x000a}
0x004cc…004e2               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLLAC «, t00=0x0003, t01=0x0020}
0x004e2…004f8               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLLAP «, t00=0x0003, t01=0x0036}
0x004f8…0050e               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLLDA «, t00=0x0003, t01=0x004c}
0x0050e…00524               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLMMC «, t00=0x0003, t01=0x0062}
0x00524…0053a               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLMMP «, t00=0x0003, t01=0x0078}
0x0053a…00550               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLNPE «, t00=0x0003, t01=0x008e}
0x00550…00566               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLREL «, t00=0x0003, t01=0x00a4}
0x00566…0057c               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLSTA «, t00=0x0003, t01=0x00ba}
0x0057c…00592               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLTYP «, t00=0x0003, t01=0x00d0}
0x00592…005a8               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLIOE «, t00=0x0003, t01=0x00e6}
0x005a8…005be               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLSEG «, t00=0x0003, t01=0x00fc}
0x005be…005d4               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLSWB «, t00=0x0003, t01=0x0112}
0x005d4…005f8               Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0003, t01=0x0128}
0x005f8…0061c               Head {h00=0x0020, h01=0x0050, text=»*                         * «, t00=0x0003, t01=0x014c}
0x0061c…00640               Head {h00=0x0020, h01=0x0050, text=»*  ENTRIES AND EXTERNALS  * «, t00=0x0003, t01=0x0170}
0x00640…00664 (4, 0, 400)   Head {h00=0x0020, h01=0x0050, text=»*                         * «, t00=0x0004, t01=0x0004}
0x00664…00688               Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0004, t01=0x0028}
0x00688…0069e               Head {h00=0x0012, h01=0x0050, text=» EXTRN CONVRT «, t00=0x0004, t01=0x004c}
0x0069e…006ca               Head {h00=0x0028, h01=0x0050, text=» EXTRN POB RESTORE REGISTER CONTENTS«, t00=0x0004, t01=0x0062}
0x006ca…006f4               Head {h00=0x0026, h01=0x0050, text=» EXTRN PUSH SAVE REGISTER CONTENTS«, t00=0x0004, t01=0x008e}
0x006f4…0070a               Head {h00=0x0012, h01=0x0050, text=» EXTRN SYSLDM «, t00=0x0004, t01=0x00b8}
0x0070a…00720               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTANO «, t00=0x0004, t01=0x00ce}
0x00720…00736               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTBUG «, t00=0x0004, t01=0x00e4}
0x00736…0074c               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTEFA «, t00=0x0004, t01=0x00fa}
0x0074c…00762               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTMSZ «, t00=0x0004, t01=0x0110}
0x00762…00798               Head {h00=0x0032, h01=0x0050, text=» EXTRN SCTMXS ADDRESS TO MONITOR EXTENT TABLE «, t00=0x0004, t01=0x0126}
0x00798…007ae               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTNOP «, t00=0x0004, t01=0x015c}
0x007ae…007c4               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTOPT «, t00=0x0004, t01=0x0172}
0x007c4…007da               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTIPL «, t00=0x0004, t01=0x0188}
0x007da…007f0               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTPSZ «, t00=0x0005, t01=0x000e}
0x007f0…00806               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTSFA «, t00=0x0005, t01=0x0024}
0x00806…0081c               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTSTB «, t00=0x0005, t01=0x003a}
0x0081c…0082a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0050}
0x0082a…0083c               Head {h00=0x000e, h01=0x0050, text=» EXTRN REL«, t00=0x0005, t01=0x005e}
0x0083c…00850               Head {h00=0x0010, h01=0x0050, text=» EXTRN ERROR«, t00=0x0005, t01=0x0070}
0x00850…00866               Head {h00=0x0012, h01=0x0050, text=» EXTRN MMDDIV «, t00=0x0005, t01=0x0084}
0x00866…0087a               Head {h00=0x0010, h01=0x0050, text=» EXTRN TABBE«, t00=0x0005, t01=0x009a}
0x0087a…0088e               Head {h00=0x0010, h01=0x0050, text=» EXTRN MMEND«, t00=0x0005, t01=0x00ae}
0x0088e…008a4               Head {h00=0x0012, h01=0x0050, text=» EXTRN CMPADR «, t00=0x0005, t01=0x00c2}
0x008a4…008b8               Head {h00=0x0010, h01=0x0050, text=» EXTRN MOVE «, t00=0x0005, t01=0x00d8}
0x008b8…008f0               Head {h00=0x0034, h01=0x0050, text=» EXTRN TTB:MT DISPLACEMENT TO MMU TABLE IN TTAB «, t00=0x0005, t01=0x00ec}
0x008f0…00906               Head {h00=0x0012, h01=0x0050, text=» EXTRN TTB:CB «, t00=0x0005, t01=0x0124}
0x00906…0091c               Head {h00=0x0012, h01=0x0050, text=» EXTRN STKCOM «, t00=0x0005, t01=0x013a}
0x0091c…00932               Head {h00=0x0012, h01=0x0050, text=» EXTRN STKEND «, t00=0x0005, t01=0x0150}
0x00932…00940               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0166}
0x00940…0094c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0005, t01=0x0174}
0x0094c…00958               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0005, t01=0x0180}
0x00958…00980               Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0005, t01=0x018c}
0x00980…009a8               Head {h00=0x0024, h01=0x0050, text=»* CONFIGURATION FILE (CONFIG) * «, t00=0x0006, t01=0x0024}
0x009a8…009d0               Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0006, t01=0x004c}
0x009d0…009dc               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0006, t01=0x0074}
0x009dc…009fc               Head {h00=0x001c, h01=0x0050, text=»* TASK DEFINITION BLOCK:«, t00=0x0006, t01=0x0080}
0x009fc…00a1e               Head {h00=0x001e, h01=0x0050, text=»TDBBT EQU 0 1A BLOCK TYPE «, t00=0x0006, t01=0x00a0}
0x00a1e…00a4a               Head {h00=0x0028, h01=0x0050, text=»TDBNT EQU TDBBT+1 2N NUMBER OF TASKS«, t00=0x0006, t01=0x00c2}
0x00a4a…00a7a               Head {h00=0x002c, h01=0x0050, text=»TDBID EQU TDBNT+2 6A TASK ID START VALUE«, t00=0x0006, t01=0x00ee}
0x00a7a…00aaa               Head {h00=0x002c, h01=0x0050, text=»TDBMC EQU TDBID+6 6A MATCHING TASK CLASS«, t00=0x0006, t01=0x011e}
0x00aaa…00ad2               Head {h00=0x0024, h01=0x0050, text=»TDBTL EQU TDBMC+6 6A TASK LEVEL «, t00=0x0006, t01=0x014e}
0x00ad2…00b10               Head {h00=0x003a, h01=0x0050, text=»TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x0006, t01=0x0176}
0x00b10…00b1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0024}
0x00b1a…00b44               Head {h00=0x0026, h01=0x0050, text=»TDBFST EQU TDBNC+2 SAVE05 TERM DEF«, t00=0x0007, t01=0x002e}
0x00b44…00b6c               Head {h00=0x0024, h01=0x0050, text=»TDC EQU 7 TERMINAL DEVICE CLASS «, t00=0x0007, t01=0x0058}
0x00b6c…00b8e               Head {h00=0x001e, h01=0x0050, text=»TLC EQU 7 LINE CONNECTION «, t00=0x0007, t01=0x0080}
0x00b8e…00bba               Head {h00=0x0028, h01=0x0050, text=»TDBREC EQU TDC+TLC TDB-RECORD LENGTH«, t00=0x0007, t01=0x00a2}
0x00bba…00bc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ce}
0x00bc4…00bf2               Head {h00=0x002a, h01=0x0050, text=»SDC EQU 7 SPECIAL DEVICE CLASS-RECORD «, t00=0x0007, t01=0x00d8}
0x00bf2…00bfc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0106}
0x00bfc…00c20               Head {h00=0x0020, h01=0x0050, text=»* COMMON DEVICE DEF. BLOCK: «, t00=0x0007, t01=0x0110}
0x00c20…00c42               Head {h00=0x001e, h01=0x0050, text=»CDBBT EQU 0 1A BLOCK TYPE «, t00=0x0007, t01=0x0134}
0x00c42…00c7c               Head {h00=0x0036, h01=0x0050, text=»CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES «, t00=0x0007, t01=0x0156}
0x00c7c…00ca8               Head {h00=0x0028, h01=0x0050, text=»SDCFST EQU CDBNC+2 SAVE05 SDC-RECORD«, t00=0x0007, t01=0x0190}
0x00ca8…00cb2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x002c}
0x00cb2…00cbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0036}
0x00cbc…00ce6               Head {h00=0x0026, h01=0x0050, text=»* USER WORK BLOCK TYPE DEF. BLOCK «, t00=0x0008, t01=0x0040}
0x00ce6…00d08               Head {h00=0x001e, h01=0x0050, text=»UDBBT EQU 0 1A BLOCK TYPE «, t00=0x0008, t01=0x006a}
0x00d08…00d38               Head {h00=0x002c, h01=0x0050, text=»UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES«, t00=0x0008, t01=0x008c}
0x00d38…00d42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00bc}
0x00d42…00d6e               Head {h00=0x0028, h01=0x0050, text=»UDBFST EQU UDBNU+3 SAVE05 UDB-RECORD«, t00=0x0008, t01=0x00c6}
0x00d6e…00d8e               Head {h00=0x001c, h01=0x0050, text=»NAMUWB EQU 3 NAME OF UWB«, t00=0x0008, t01=0x00f2}
0x00d8e…00db4               Head {h00=0x0022, h01=0x0050, text=»NUMUBL EQU 3 NUMBER OF BLOCKS «, t00=0x0008, t01=0x0112}
0x00db4…00de6               Head {h00=0x002e, h01=0x0050, text=»UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH«, t00=0x0008, t01=0x0138}
0x00de6…00df4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x016a}
0x00df4…00e0c               Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0008, t01=0x0178}
0x00e0c…00e24               Head {h00=0x0014, h01=0x0050, text=»* SOP-HANDLING *«, t00=0x0008, t01=0x0190}
0x00e24…00e3c               Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0009, t01=0x0018}
0x00e3c…00e5e               Head {h00=0x001e, h01=0x0050, text=»SOP EQU /2E DEVICE ADDRESS«, t00=0x0009, t01=0x0030}
0x00e5e…00e66               Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0052}
0x00e66…00e88               Head {h00=0x001e, h01=0x0050, text=»LMP1 EQU /400 LAMP 1 CODE «, t00=0x0009, t01=0x005a}
0x00e88…00e9e               Head {h00=0x0012, h01=0x0050, text=»LMP2 EQU /200 «, t00=0x0009, t01=0x007c}
0x00e9e…00eb4               Head {h00=0x0012, h01=0x0050, text=»LMP3 EQU /100 «, t00=0x0009, t01=0x0092}
0x00eb4…00ec8               Head {h00=0x0010, h01=0x0050, text=»LMP4 EQU /80«, t00=0x0009, t01=0x00a8}
0x00ec8…00edc               Head {h00=0x0010, h01=0x0050, text=»LMP5 EQU /40«, t00=0x0009, t01=0x00bc}
0x00edc…00ef0               Head {h00=0x0010, h01=0x0050, text=»LMP6 EQU /20«, t00=0x0009, t01=0x00d0}
0x00ef0…00f04               Head {h00=0x0010, h01=0x0050, text=»LMP7 EQU /10«, t00=0x0009, t01=0x00e4}
0x00f04…00f16               Head {h00=0x000e, h01=0x0050, text=»LMP8 EQU 8«, t00=0x0009, t01=0x00f8}
0x00f16…00f28               Head {h00=0x000e, h01=0x0050, text=»LMP9 EQU 4«, t00=0x0009, t01=0x010a}
0x00f28…00f3c               Head {h00=0x0010, h01=0x0050, text=»LMP10 EQU 2 «, t00=0x0009, t01=0x011c}
0x00f3c…00f50               Head {h00=0x0010, h01=0x0050, text=»LMP11 EQU 1 «, t00=0x0009, t01=0x0130}
0x00f50…00f5e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0144}
0x00f5e…00f66               Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0152}
0x00f66…00f6e               Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x015a}
0x00f6e…00f9a               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x0009, t01=0x0162}
0x00f9a…00fc6               Head {h00=0x0028, h01=0x0050, text=»*  MXSTAB DISPLACEMENTS           * «, t00=0x0009, t01=0x018e}
0x00fc6…00ff2               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x000a, t01=0x002a}
0x00ff2…00ffa               Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0056}
0x00ffa…01002               Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x005e}
0x01002…01016               Head {h00=0x0010, h01=0x0050, text=»MX:NOX EQU 6«, t00=0x000a, t01=0x0066}
0x01016…01046               Head {h00=0x002c, h01=0x0050, text=»MX:NOS EQU 8 NUMBER OF SEGMENT CLUSTERS «, t00=0x000a, t01=0x007a}
0x01046…0104e               Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00aa}
0x0104e…01056               Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00b2}
0x01056…0108c               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x000a, t01=0x00ba}
0x0108c…010c2               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x000a, t01=0x00f0}
0x010c2…010f8               Head {h00=0x0032, h01=0x0050, text=»*    APCTAB DISPLACEMENTS                   * «, t00=0x000a, t01=0x0126}
0x010f8…0112e               Head {h00=0x0032, h01=0x0050, text=»*    ====================                   * «, t00=0x000a, t01=0x015c}
0x0112e…01164 (11, 0, 400)  Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x000b, t01=0x0004}
0x01164…0119a               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x000b, t01=0x003a}
0x0119a…011a2               Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0070}
0x011a2…011aa               Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0078}
0x011aa…011e0               Head {h00=0x0032, h01=0x0050, text=»APLADA EQU 22 APPLICATION DISC FILE ADDRESS =2«, t00=0x000b, t01=0x0080}
0x011e0…01212               Head {h00=0x002e, h01=0x0050, text=»APLREL EQU 18 APPLICATION RELOCATION BASE «, t00=0x000b, t01=0x00b6}
0x01212…01242               Head {h00=0x002c, h01=0x0050, text=»APLIOE EQU 0 APPLICATION RESTART ADDRESS«, t00=0x000b, t01=0x00e8}
0x01242…0127e               Head {h00=0x0038, h01=0x0050, text=»APLLAC EQU 14 APPLICATION LOAD ADDR. (LOGICAL ADDR.)«, t00=0x000b, t01=0x0118}
0x0127e…012a8               Head {h00=0x0026, h01=0x0050, text=»APLLAP EQU 12 LOGICAL PAGE ADDRESS«, t00=0x000b, t01=0x0154}
0x012a8…012e4               Head {h00=0x0038, h01=0x0050, text=»APLLDA EQU 0 APPLICATION LOAD ADDR. (PHYSICAL ADDR.)«, t00=0x000b, t01=0x017e}
0x012e4…01316               Head {h00=0x002e, h01=0x0050, text=»APLMMC EQU 10 APPLICATION MMU START ENTRY «, t00=0x000c, t01=0x002a}
0x01316…01342               Head {h00=0x0028, h01=0x0050, text=»APLMMP EQU 8 SEGMENT START MMU ENTRY«, t00=0x000c, t01=0x005c}
0x01342…01374               Head {h00=0x002e, h01=0x0050, text=»APLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT«, t00=0x000c, t01=0x0088}
0x01374…013a6               Head {h00=0x002e, h01=0x0050, text=»APLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU«, t00=0x000c, t01=0x00ba}
0x013a6…013d8               Head {h00=0x002e, h01=0x0050, text=»APLPSZ EQU 20 APPLICATION SEGMENT SIZE =2 «, t00=0x000c, t01=0x00ec}
0x013d8…013fc               Head {h00=0x0020, h01=0x0050, text=»APLSWB EQU 2 APPLICATION SWB«, t00=0x000c, t01=0x011e}
0x013fc…0142a               Head {h00=0x002a, h01=0x0050, text=»APLSTA EQU 16 APPL. PGM START ADDRESS «, t00=0x000c, t01=0x0142}
0x0142a…01450               Head {h00=0x0022, h01=0x0050, text=»APLTYP EQU 8 APPLICATION TYPE «, t00=0x000c, t01=0x0170}
0x01450…0145e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0008}
0x0145e…01484               Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000d, t01=0x0016}
0x01484…014aa               Head {h00=0x0022, h01=0x0050, text=»*                            *«, t00=0x000d, t01=0x003c}
0x014aa…014d0               Head {h00=0x0022, h01=0x0050, text=»*  COMMON DISPLACEMENTS      *«, t00=0x000d, t01=0x0062}
0x014d0…014f6               Head {h00=0x0022, h01=0x0050, text=»*  AND CONSTANTS             *«, t00=0x000d, t01=0x0088}
0x014f6…0151c               Head {h00=0x0022, h01=0x0050, text=»*                            *«, t00=0x000d, t01=0x00ae}
0x0151c…01542               Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000d, t01=0x00d4}
0x01542…0154e               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x000d, t01=0x00fa}
0x0154e…0155a               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x000d, t01=0x0106}
0x0155a…01594               Head {h00=0x0036, h01=0x0050, text=»ACBLEN EQU 26 APPLICATION CONTROL BLOCK LENGTH =2 «, t00=0x000d, t01=0x0112}
0x01594…015c8               Head {h00=0x0030, h01=0x0050, text=»APLTAB EQU 12 ADDRESS TO APPL. CONTROL TABLE«, t00=0x000d, t01=0x014c}
0x015c8…015f0               Head {h00=0x0024, h01=0x0050, text=»APPLNO EQU 18 APPLICATION NUMBER«, t00=0x000d, t01=0x0180}
0x015f0…0161c               Head {h00=0x0028, h01=0x0050, text=»BUFSIZ EQU 14 TEMPORARY BUFFER SIZE «, t00=0x000e, t01=0x0018}
0x0161c…0164e               Head {h00=0x002e, h01=0x0050, text=»CONLEN EQU 0 LENGTH OF CONFIGURATION DATA «, t00=0x000e, t01=0x0044}
0x0164e…0167e               Head {h00=0x002c, h01=0x0050, text=»CONSTA EQU 2 START OF CONFIGURATION DATA«, t00=0x000e, t01=0x0076}
0x0167e…016aa               Head {h00=0x0028, h01=0x0050, text=»DATEND EQU 34 END OF DDIV PROTOTYPE «, t00=0x000e, t01=0x00a6}
0x016aa…016e8               Head {h00=0x003a, h01=0x0050, text=»FSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER «, t00=0x000e, t01=0x00d2}
0x016e8…01716               Head {h00=0x002a, h01=0x0050, text=»FSTPAG EQU 22 1ST FREE PAGE (PHYSICAL)«, t00=0x000e, t01=0x0110}
0x01716…01746               Head {h00=0x002c, h01=0x0050, text=»FYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER «, t00=0x000e, t01=0x013e}
0x01746…01780               Head {h00=0x0036, h01=0x0050, text=»LSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART«, t00=0x000e, t01=0x016e}
0x01780…017ac               Head {h00=0x0028, h01=0x0050, text=»MAPLEN EQU 30 LENGTH OF AREA TO MAP «, t00=0x000f, t01=0x0018}
0x017ac…017da               Head {h00=0x002a, h01=0x0050, text=»MMFROM EQU 36 2ND MMU TABLE WORK AREA «, t00=0x000f, t01=0x0044}
0x017da…01806               Head {h00=0x0028, h01=0x0050, text=»MMTO EQU 38 1:ST MMU TABLE WORK AREA«, t00=0x000f, t01=0x0072}
0x01806…0182e               Head {h00=0x0024, h01=0x0050, text=»M:REL EQU 16 RELOCATION CONSTANT«, t00=0x000f, t01=0x009e}
0x0182e…0185e               Head {h00=0x002c, h01=0x0050, text=»SYSBUF EQU 28 START OF TEMPORARY BUFFER «, t00=0x000f, t01=0x00c6}
0x0185e…01894               Head {h00=0x0032, h01=0x0050, text=»SWBFSA EQU 4 SWB-FILE START ADDRESS (2 WORDS) «, t00=0x000f, t01=0x00f6}
0x01894…018c8               Head {h00=0x0030, h01=0x0050, text=»SWBFSE EQU 8 SWB-FILE END ADDRESS (2 WORDS) «, t00=0x000f, t01=0x012c}
0x018c8…018f4               Head {h00=0x0028, h01=0x0050, text=»TTAB EQU 32 WORK AREA FOR MMU TABLE «, t00=0x000f, t01=0x0160}
0x018f4…0191c               Head {h00=0x0024, h01=0x0050, text=»COM01 EQU 40 COMMON SAVE AREA 1 «, t00=0x000f, t01=0x018c}
0x0191c…01944               Head {h00=0x0024, h01=0x0050, text=»COM02 EQU 42 COMMON SAVE AREA 2 «, t00=0x0010, t01=0x0024}
0x01944…0196c               Head {h00=0x0024, h01=0x0050, text=»COM03 EQU 44 COMMON SAVE AREA 3 «, t00=0x0010, t01=0x004c}
0x0196c…0199a               Head {h00=0x002a, h01=0x0050, text=»TOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS«, t00=0x0010, t01=0x0074}
0x0199a…019ca               Head {h00=0x002c, h01=0x0050, text=»SWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG«, t00=0x0010, t01=0x00a2}
0x019ca…019f2               Head {h00=0x0024, h01=0x0050, text=»COM04 EQU 50 COMMON SAVE AREA 4 «, t00=0x0010, t01=0x00d2}
0x019f2…01a1e               Head {h00=0x0028, h01=0x0050, text=»DCBLK EQU 54 START OF DC CONF. DATA «, t00=0x0010, t01=0x00fa}
0x01a1e…01a2c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0126}
0x01a2c…01a52               Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0010, t01=0x0134}
0x01a52…01a78               Head {h00=0x0022, h01=0x0050, text=»*                            *«, t00=0x0010, t01=0x015a}
0x01a78…01a9e               Head {h00=0x0022, h01=0x0050, text=»*  LOCAL DISPLACEMENTS       *«, t00=0x0010, t01=0x0180}
0x01a9e…01ac4               Head {h00=0x0022, h01=0x0050, text=»*  AND CONSTANTS             *«, t00=0x0011, t01=0x0016}
0x01ac4…01aea               Head {h00=0x0022, h01=0x0050, text=»*                            *«, t00=0x0011, t01=0x003c}
0x01aea…01b10               Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0011, t01=0x0062}
0x01b10…01b1c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0011, t01=0x0088}
0x01b1c…01b28               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0011, t01=0x0094}
0x01b28…01b58               Head {h00=0x002c, h01=0x0050, text=»APLCNT EQU 4 NO OF APPLICATIONS TO LOAD «, t00=0x0011, t01=0x00a0}
0x01b58…01b82               Head {h00=0x0026, h01=0x0050, text=»BLKLEN EQU 6 SEGMENT BLOCK LENGTH «, t00=0x0011, t01=0x00d0}
0x01b82…01bbe               Head {h00=0x0038, h01=0x0050, text=»CARFIX EQU 54 CARTRIDGE OR FIX INDICATOR 16M DISC =9«, t00=0x0011, t01=0x00fa}
0x01bbe…01bea               Head {h00=0x0028, h01=0x0050, text=»CBLEN EQU 256 CASSETTE BUFFER LENGTH«, t00=0x0011, t01=0x0136}
0x01bea…01c1a               Head {h00=0x002c, h01=0x0050, text=»COMLG EQU 4 LENGTH OF CORE RESIDENT PART«, t00=0x0011, t01=0x0162}
0x01c1a…01c48 (18, 0, 400)  Head {h00=0x002a, h01=0x0050, text=»CONDAD EQU 44 CONF. FILE DISC ADDRESS «, t00=0x0012, t01=0x0004}
0x01c48…01c58               Head {h00=0x000c, h01=0x0050, text=»* EQU 46«, t00=0x0012, t01=0x0032}
0x01c58…01c8c               Head {h00=0x0030, h01=0x0050, text=»CONDEV EQU 32 SAVE AREA FOR CONF. DATA DEV. «, t00=0x0012, t01=0x0042}
0x01c8c…01cbc               Head {h00=0x002c, h01=0x0050, text=»CURAPL EQU 24 CURRENT APPL. CONTR. BLOCK«, t00=0x0012, t01=0x0076}
0x01cbc…01cde               Head {h00=0x001e, h01=0x0050, text=»DEVTYP EQU 50 DEVICE TYPE «, t00=0x0012, t01=0x00a6}
0x01cde…01d18               Head {h00=0x0036, h01=0x0050, text=»DISCAD EQU 28 SAVE AREA FOR DISC ADDRESS (2 WORDS)«, t00=0x0012, t01=0x00c8}
0x01d18…01d40               Head {h00=0x0024, h01=0x0050, text=»ECNFBF EQU 6 END OF CONF. BUFFER«, t00=0x0012, t01=0x0102}
0x01d40…01d68               Head {h00=0x0024, h01=0x0050, text=»EINPBF EQU 2 END OF INPUT BUFFER«, t00=0x0012, t01=0x012a}
0x01d68…01d90               Head {h00=0x0024, h01=0x0050, text=»ESYSTA EQU 0 END OF SYSTEM AREA «, t00=0x0012, t01=0x0152}
0x01d90…01dba               Head {h00=0x0026, h01=0x0050, text=»EXLEN EQU 4 MONITOR EXTENT LENGTH «, t00=0x0012, t01=0x017a}
0x01dba…01df4               Head {h00=0x0036, h01=0x0050, text=»FILCOD EQU 36 LOAD DEVICE FILE CODE (NOT CASSETTE)«, t00=0x0013, t01=0x0014}
0x01df4…01e20               Head {h00=0x0028, h01=0x0050, text=»FSTSEC EQU 16 FIRST SECTOR INDICATOR«, t00=0x0013, t01=0x004e}
0x01e20…01e54               Head {h00=0x0030, h01=0x0050, text=»IPLDEV EQU 34 SAVE AREA FOR PGM LOAD DEVICE «, t00=0x0013, t01=0x007a}
0x01e54…01e7e               Head {h00=0x0026, h01=0x0050, text=»IPLTYP EQU 48 PGM LOAD DEVICE TYPE«, t00=0x0013, t01=0x00ae}
0x01e7e…01ea8               Head {h00=0x0026, h01=0x0050, text=»LLDADR EQU 12 LOGICAL LOAD ADDRESS«, t00=0x0013, t01=0x00d8}
0x01ea8…01ed8               Head {h00=0x002c, h01=0x0050, text=»LSTREC EQU 20 LAST RECORD OF CONF. FILE «, t00=0x0013, t01=0x0102}
0x01ed8…01f0c               Head {h00=0x0030, h01=0x0050, text=»LSTASG EQU 8 LOGICAL START OF FIRST SEGMENT «, t00=0x0013, t01=0x0132}
0x01f0c…01f30               Head {h00=0x0020, h01=0x0050, text=»MONNO EQU 22 MONITOR NUMBER «, t00=0x0013, t01=0x0166}
0x01f30…01f5e               Head {h00=0x002a, h01=0x0050, text=»NCHAID EQU 8 NO OF CHAR. IN APPL. NAME«, t00=0x0013, t01=0x018a}
0x01f5e…01f8c               Head {h00=0x002a, h01=0x0050, text=»NCHTID EQU 5 NO OF CHAR IN TID RECORD «, t00=0x0014, t01=0x0028}
0x01f8c…01fb6               Head {h00=0x0026, h01=0x0050, text=»NDEVCL EQU 18 NO OF DEVICE CLASSES«, t00=0x0014, t01=0x0056}
0x01fb6…01fec               Head {h00=0x0032, h01=0x0050, text=»NUMSEG EQU 10 DISPL. TO NO OF SEGM. IN S:GTAB «, t00=0x0014, t01=0x0080}
0x01fec…0201e               Head {h00=0x002e, h01=0x0050, text=»OPTION EQU 52 SAVE AREA FOR OPTOIN WORD =2«, t00=0x0014, t01=0x00b6}
0x0201e…02048               Head {h00=0x0026, h01=0x0050, text=»PAGLG EQU 8 PAGE LENGTH IN S:GTAB «, t00=0x0014, t01=0x00e8}
0x02048…02074               Head {h00=0x0028, h01=0x0050, text=»PAGSIZ EQU /1000 PHYSICAL PAGE SIZE «, t00=0x0014, t01=0x0112}
0x02074…020a0               Head {h00=0x0028, h01=0x0050, text=»PLDADR EQU 14 PHYSICAL LOAD ADDRESS «, t00=0x0014, t01=0x013e}
0x020a0…020d0               Head {h00=0x002c, h01=0x0050, text=»PRGLG1 EQU 2 PROGRAM LENGTH DISPLACEMENT«, t00=0x0014, t01=0x016a}
0x020d0…0210e               Head {h00=0x003a, h01=0x0050, text=»PSECNL EQU 40 PHYSICAL SECTOR NUMBER LEAST SIGNIFICANT«, t00=0x0015, t01=0x000a}
0x0210e…0214c               Head {h00=0x003a, h01=0x0050, text=»PSECNM EQU 42 PHYSICAL SECTOR NUMBER MOST SIGNIFICANT «, t00=0x0015, t01=0x0048}
0x0214c…0217c               Head {h00=0x002c, h01=0x0050, text=»PSECPA EQU 38 PHYSICAL SECTOR PART (0-2)«, t00=0x0015, t01=0x0086}
0x0217c…021a2               Head {h00=0x0022, h01=0x0050, text=»SEGCNT EQU 10 SEGMENT COUNTER «, t00=0x0015, t01=0x00b6}
0x021a2…021ca               Head {h00=0x0024, h01=0x0050, text=»SWPFEL EQU 14 FILE EXTENT LENGTH«, t00=0x0015, t01=0x00dc}
0x021ca…021f8               Head {h00=0x002a, h01=0x0050, text=»TNBRSG EQU 26 TOTAL NUMBER OF SEGMENTS«, t00=0x0015, t01=0x0104}
0x021f8…02206               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0132}
0x02206…02226               Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0015, t01=0x0140}
0x02226…02246               Head {h00=0x001c, h01=0x0050, text=»*  CASSETTE HANDLING  * «, t00=0x0015, t01=0x0160}
0x02246…02266               Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0015, t01=0x0180}
0x02266…02296               Head {h00=0x002c, h01=0x0050, text=»CHCR EQU /E DEVICE ADDRESS FOR CASSETTE «, t00=0x0016, t01=0x0010}
0x02296…022b8               Head {h00=0x001e, h01=0x0050, text=»LOCK EQU /2 LOCK CASSETTE «, t00=0x0016, t01=0x0040}
0x022b8…022e4               Head {h00=0x0028, h01=0x0050, text=»SBOT EQU 8 SEARCH BEGINNING OF TAPE «, t00=0x0016, t01=0x0062}
0x022e4…02310               Head {h00=0x0028, h01=0x0050, text=»STMF EQU /C SEARCH TAPEMARK FORWARD «, t00=0x0016, t01=0x008e}
0x02310…0231a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ba}
0x0231a…02340               Head {h00=0x0022, h01=0x0050, text=»*  DISC/FLEXIBLE DISC HANDLING«, t00=0x0016, t01=0x00c4}
0x02340…0234a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ea}
0x0234a…02376               Head {h00=0x0028, h01=0x0050, text=»BUFLEN EQU 256 LENGTH OF READ BUFFER«, t00=0x0016, t01=0x00f4}
0x02376…023a4               Head {h00=0x002a, h01=0x0050, text=»DKBA3 EQU 514 BUFFER LENGTH VERSION A3«, t00=0x0016, t01=0x0120}
0x023a4…023da               Head {h00=0x0032, h01=0x0050, text=»RECLEN EQU 9 CONFIGURATION FILE RECORD LENGTH «, t00=0x0016, t01=0x014e}
0x023da…02408               Head {h00=0x002a, h01=0x0050, text=»FDCU EQU /09 FLEXIBLE DISC CU ADDRESS «, t00=0x0016, t01=0x0184}
0x02408…02430               Head {h00=0x0024, h01=0x0050, text=»FDIOP EQU FDCU+FDCU MUX ADDRESS «, t00=0x0017, t01=0x0022}
0x02430…02452               Head {h00=0x001e, h01=0x0050, text=»FORDEV EQU 48 DISC FORMAT «, t00=0x0017, t01=0x004a}
0x02452…02478               Head {h00=0x0022, h01=0x0050, text=»MUXCC EQU /8080 1:ST MUX WORD «, t00=0x0017, t01=0x006c}
0x02478…024a6               Head {h00=0x002a, h01=0x0050, text=»MXCCD3 EQU /80C1 BYTE2=NUMBER OF WORDS«, t00=0x0017, t01=0x0092}
0x024a6…024ca               Head {h00=0x0020, h01=0x0050, text=»QBLFAC EQU 6 BLOCKING FACTOR«, t00=0x0017, t01=0x00c0}
0x024ca…024fa               Head {h00=0x002c, h01=0x0050, text=»CIO EQU /41C0 I/O INSTR. CONF. CONSTANT «, t00=0x0017, t01=0x00e4}
0x024fa…02508               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0114}
0x02508…02514               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0017, t01=0x0122}
0x02514…0255e               Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0017, t01=0x012e}
0x0255e…025a8               Head {h00=0x0046, h01=0x0050, text=»*  CALL-FORMAT, PERFORMS:  CFR      A14,A13                     * «, t00=0x0017, t01=0x0178}
0x025a8…025f2               Head {h00=0x0046, h01=0x0050, text=»*                          DATA     [REL-ADDRESS]               * «, t00=0x0018, t01=0x0032}
0x025f2…0263c               Head {h00=0x0046, h01=0x0050, text=»*                                                               * «, t00=0x0018, t01=0x007c}
0x0263c…02686               Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0018, t01=0x00c6}
0x02686…02692               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0018, t01=0x0110}
0x02692…0269e               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0018, t01=0x011c}
0x0269e…026aa               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0018, t01=0x0128}
0x026aa…026c8               Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F697,16 «, t00=0x0018, t01=0x0134}
0x026c8…026d6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0152}
0x026d6…026f8               Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0018, t01=0x0160}
0x026f8…0271a               Head {h00=0x001e, h01=0x0050, text=»*  CONDITIONAL ASSEMBLY  *«, t00=0x0018, t01=0x0182}
0x0271a…0273c               Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0019, t01=0x0014}
0x0273c…02744               Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0036}
0x02744…0274c               Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x003e}
0x0274c…02756               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0046}
0x02756…0277c               Head {h00=0x0022, h01=0x0050, text=»*  CONSTANTS EDITED BY SYSGEN «, t00=0x0019, t01=0x0050}
0x0277c…02786               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0076}
0x02786…0278e               Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0080}
0x0278e…02796               Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0088}
0x02796…027a8               Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0019, t01=0x0090}
0x027a8…027ba               Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x0019, t01=0x00a2}
0x027ba…027cc               Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x0019, t01=0x00b4}
0x027cc…027de               Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x0019, t01=0x00c6}
0x027de…027f0               Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x0019, t01=0x00d8}
0x027f0…02806               Head {h00=0x0012, h01=0x0050, text=»X:F EQU 0  =9 «, t00=0x0019, t01=0x00ea}
0x02806…0281c               Head {h00=0x0012, h01=0x0050, text=»X:G EQU 1  =9 «, t00=0x0019, t01=0x0100}
0x0281c…02824               Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0116}
0x02824…02850               Head {h00=0x0028, h01=0x0050, text=»MMUPAG EQU 0 1-MMU HARDWARE PRESENT «, t00=0x0019, t01=0x011e}
0x02850…02882               Head {h00=0x002e, h01=0x0050, text=»EDM EQU 0 1-SUPPORTS EXTENDED MONITORS =12«, t00=0x0019, t01=0x014a}
0x02882…028b8               Head {h00=0x0032, h01=0x0050, text=»CASS EQU X:A 1-PROGRAM LOAD DEVICE = CASSETTE «, t00=0x0019, t01=0x017c}
0x028b8…028ea               Head {h00=0x002e, h01=0x0050, text=»DISC EQU X:B 1-PROGRAM LOAD DEVICE = DISC «, t00=0x001a, t01=0x0022}
0x028ea…02928               Head {h00=0x003a, h01=0x0050, text=»FLDISC EQU X:C 1= PROGRAM LOAD DEVICE = FLEXIBLE DISC «, t00=0x001a, t01=0x0054}
0x02928…02966               Head {h00=0x003a, h01=0x0050, text=»MFDISC EQU X:D 1-PROGRAM LOAD DEVICE = MINI FIXED DISC«, t00=0x001a, t01=0x0092}
0x02966…029a0               Head {h00=0x0036, h01=0x0050, text=»CDDISC EQU X:E 1-PROGRAM LOAD DEVICE=80M CDC DISC «, t00=0x001a, t01=0x00d0}
0x029a0…029de               Head {h00=0x003a, h01=0x0050, text=»CDDI16 EQU X:F 1-PROGRAM LOAD DEVICE = 16M CDC DISC =9«, t00=0x001a, t01=0x010a}
0x029de…02a14               Head {h00=0x0032, h01=0x0050, text=»CFTEST EQU X:G 1-TEST OF CONFIGURATION FILE =9«, t00=0x001a, t01=0x0148}
0x02a14…02a32               Head {h00=0x001a, h01=0x0050, text=»CFTCAS EQU CFTEST+CASS«, t00=0x001a, t01=0x017e}
0x02a32…02a52               Head {h00=0x001c, h01=0x0050, text=»CFTFLD EQU CFTEST+FLDISC«, t00=0x001b, t01=0x000c}
0x02a52…02a60               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x002c}
0x02a60…02a9e               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x001b, t01=0x003a}
0x02a9e…02adc               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x001b, t01=0x0078}
0x02adc…02b1a               Head {h00=0x003a, h01=0x0050, text=»*          APPLICATION LOAD PART OF SYSLOD           *«, t00=0x001b, t01=0x00b6}
0x02b1a…02b58               Head {h00=0x003a, h01=0x0050, text=»*          ===============================           *«, t00=0x001b, t01=0x00f4}
0x02b58…02b96               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x001b, t01=0x0132}
0x02b96…02bd2               Head {h00=0x0038, h01=0x0050, text=»*  ENTRY:  A1 - FORMAT AND DEVICE TYPE             *«, t00=0x001b, t01=0x0170}
0x02bd2…02c10               Head {h00=0x003a, h01=0x0050, text=»*          A2 - PROGRAM LOAD DEVICE                  *«, t00=0x001c, t01=0x001c}
0x02c10…02c4e               Head {h00=0x003a, h01=0x0050, text=»*          A3 - APPLICATION NUMBER                   *«, t00=0x001c, t01=0x005a}
0x02c4e…02c8c               Head {h00=0x003a, h01=0x0050, text=»*          A7 - APPLICATION DISC ADDRESS BIT 16-31  * «, t00=0x001c, t01=0x0098}
0x02c8c…02cca               Head {h00=0x003a, h01=0x0050, text=»*          A8 - APPLICATION DISC ADDRESS BIT  0-15  * «, t00=0x001c, t01=0x00d6}
0x02cca…02d08               Head {h00=0x003a, h01=0x0050, text=»*          A9 - START OF FREE AREA                   *«, t00=0x001c, t01=0x0114}
0x02d08…02d46               Head {h00=0x003a, h01=0x0050, text=»*         A13 - MONITOR START ADDRESS                *«, t00=0x001c, t01=0x0152}
0x02d46…02d84               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x001c, t01=0x0190}
0x02d84…02dc2               Head {h00=0x003a, h01=0x0050, text=»*  EXIT:                                             *«, t00=0x001d, t01=0x003e}
0x02dc2…02e00               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x001d, t01=0x007c}
0x02e00…02e3e               Head {h00=0x003a, h01=0x0050, text=»*  SUBROUTINES:  CASSIN,SOPIN,CHCRIO,LODCOM          *«, t00=0x001d, t01=0x00ba}
0x02e3e…02e7c               Head {h00=0x003a, h01=0x0050, text=»*                LODSEG,REBUF,MOVBUF,RDBLK,          *«, t00=0x001d, t01=0x00f8}
0x02e7c…02eba               Head {h00=0x003a, h01=0x0050, text=»*                CONLOD,CONEX,MOVREV                 *«, t00=0x001d, t01=0x0136}
0x02eba…02ef8               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x001d, t01=0x0174}
0x02ef8…02f36               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x001e, t01=0x0022}
0x02f36…02f4a               Head {h00=0x0010, h01=0x0050, text=»SYSLOD EQU *«, t00=0x001e, t01=0x0060}
0x02f4a…02f54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0074}
0x02f54…02f6e               Head {h00=0x0016, h01=0x0050, text=»*  SAVE REGISTERS «, t00=0x001e, t01=0x007e}
0x02f6e…02f78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0098}
0x02f78…02fb0               Head {h00=0x0034, h01=0x0050, text=» ST A1,IPLTYP+STKEND SAVE FORMAT AND DEVICE TYPE«, t00=0x001e, t01=0x00a2}
0x02fb0…02fde               Head {h00=0x002a, h01=0x0050, text=» ST A2,SCTIPL SAVE PROGRAM LOAD DEVICE«, t00=0x001e, t01=0x00da}
0x02fde…02ffa               Head {h00=0x0018, h01=0x0050, text=» ST A2,IPLDEV+STKEND«, t00=0x001e, t01=0x0108}
0x02ffa…03030               Head {h00=0x0032, h01=0x0050, text=» CM CONDEV+STKEND RESET CONF. DATA DEV. ADDR. «, t00=0x001e, t01=0x0124}
0x03030…03058               Head {h00=0x0024, h01=0x0050, text=» ST A3,SCTANO APPLICATION NUMBER«, t00=0x001e, t01=0x015a}
0x03058…03082               Head {h00=0x0026, h01=0x0050, text=» LDR A3,P USE BEGINNING OF SYSLOD «, t00=0x001e, t01=0x0182}
0x03082…03098               Head {h00=0x0012, h01=0x0050, text=» SUK A3,TBLBAS«, t00=0x001f, t01=0x001c}
0x03098…030b6               Head {h00=0x001a, h01=0x0050, text=»TBLBAS EQU *-2-SYSLOD «, t00=0x001f, t01=0x0032}
0x030b6…030e0               Head {h00=0x0026, h01=0x0050, text=» ST A3,APLTAB+STKCOM AS TABLE AREA«, t00=0x001f, t01=0x0050}
0x030e0…03106               Head {h00=0x0022, h01=0x0050, text=» LDK A1,1 INITIATE NO OF APPL.«, t00=0x001f, t01=0x007a}
0x03106…0312a               Head {h00=0x0020, h01=0x0050, text=» STR A1,A3 AND SAVE IN TABLE«, t00=0x001f, t01=0x00a0}
0x0312a…0316c               Head {h00=0x003e, h01=0x0050, text=» ST A8,APLADA+2,A3 SAVE APPLICATION DISC ADDRESS BIT 0-15 «, t00=0x001f, t01=0x00c4}
0x0316c…031ae               Head {h00=0x003e, h01=0x0050, text=» ST A7,APLADA+4,A3 SAVE APPLICATION DISC ADDRESS BIT 16-31«, t00=0x001f, t01=0x0106}
0x031ae…031dc               Head {h00=0x002a, h01=0x0050, text=» ST A9,SCTSFA SAVE START OF FREE AREA «, t00=0x001f, t01=0x0148}
0x031dc…031f4               Head {h00=0x0014, h01=0x0050, text=» LDKL A14,SYSLOD«, t00=0x001f, t01=0x0176}
0x031f4…03206               Head {h00=0x000e, h01=0x0050, text=» LDR A13,P«, t00=0x001f, t01=0x018e}
0x03206…0323e               Head {h00=0x0034, h01=0x0050, text=»SYS100 ADKL A13,SYS110-SYS100 POINTER TO SYS110 «, t00=0x0020, t01=0x0010}
0x0323e…03254               Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTBUG «, t00=0x0020, t01=0x0048}
0x03254…03266               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0020, t01=0x005e}
0x03266…032a2               Head {h00=0x0038, h01=0x0050, text=» ANK A2,1 TEST IF DEBUG ADDRESS IS ODD,IF TRUE START«, t00=0x0020, t01=0x0070}
0x032a2…032b6               Head {h00=0x0010, h01=0x0050, text=» ABR(NZ) A1 «, t00=0x0020, t01=0x00ac}
0x032b6…032c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00c0}
0x032c0…032d4               Head {h00=0x0010, h01=0x0050, text=»SYS110 EQU *«, t00=0x0020, t01=0x00ca}
0x032d4…032fa               Head {h00=0x0022, h01=0x0050, text=» LD A15,SCTSTB LOAD STACK BASE«, t00=0x0020, t01=0x00de}
0x032fa…03320               Head {h00=0x0022, h01=0x0050, text=» SUKL A15,4 ADJUST STACK BASE «, t00=0x0020, t01=0x0104}
0x03320…0332a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x012a}
0x0332a…0334a               Head {h00=0x001c, h01=0x0050, text=»*  INDICATE SYSLOD RUNS «, t00=0x0020, t01=0x0134}
0x0334a…03354               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0154}
0x03354…0336a               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP1 «, t00=0x0020, t01=0x015e}
0x0336a…03380               Head {h00=0x0012, h01=0x0050, text=» OTR A1,0,SOP «, t00=0x0020, t01=0x0174}
0x03380…0338a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x018a}
0x0338a…033d0 (33, 0, 400)  Head {h00=0x0042, h01=0x0050, text=»*  INIT POINTER TO SUBROUTINE HANDLER (A13), STACK BASE (A14) «, t00=0x0021, t01=0x0004}
0x033d0…033f8               Head {h00=0x0024, h01=0x0050, text=»*  AND ADDRESS TO GETPSW-ROUTINE«, t00=0x0021, t01=0x004a}
0x033f8…03402               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0072}
0x03402…03422               Head {h00=0x001c, h01=0x0050, text=» LDR A8,P RETURN ADDRESS«, t00=0x0021, t01=0x007c}
0x03422…0344c               Head {h00=0x0026, h01=0x0050, text=» LDKL A3,REL+2 RELOCATION ROUTINE «, t00=0x0021, t01=0x009c}
0x0344c…0345e               Head {h00=0x000e, h01=0x0050, text=» CFR A8,A3«, t00=0x0021, t01=0x00c6}
0x0345e…03486               Head {h00=0x0024, h01=0x0050, text=» LDKL A5,/5555 LOAD TEST PATTERN«, t00=0x0021, t01=0x00d8}
0x03486…034aa               Head {h00=0x0020, h01=0x0050, text=» LDK A6,64 INIT PAGE COUNTER«, t00=0x0021, t01=0x0100}
0x034aa…034c0               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0021, t01=0x0124}
0x034c0…034ce               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x013a}
0x034ce…034d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0148}
0x034d8…0351a               Head {h00=0x003e, h01=0x0050, text=»*  EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY «, t00=0x0021, t01=0x0152}
0x0351a…03524 (34, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0004}
0x03524…0354a               Head {h00=0x0022, h01=0x0050, text=» SLL A6,2 UPPER SAVE20=256 KB «, t00=0x0022, t01=0x000e}
0x0354a…0356e               Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 MMU ENTRY POINTER «, t00=0x0022, t01=0x0034}
0x0356e…03582               Head {h00=0x0010, h01=0x0050, text=»AP:010 EQU *«, t00=0x0022, t01=0x0058}
0x03582…035a8               Head {h00=0x0022, h01=0x0050, text=» LD A2,TABBE GET PAGE ADDRESS «, t00=0x0022, t01=0x006c}
0x035a8…035de               Head {h00=0x0032, h01=0x0050, text=» SUKL A2,/400 DECREMENT PHYSICAL PAGE ADDRESS «, t00=0x0022, t01=0x0092}
0x035de…03600               Head {h00=0x001e, h01=0x0050, text=» ST A2,TABBE STORE IT BACK«, t00=0x0022, t01=0x00c8}
0x03600…03624               Head {h00=0x0020, h01=0x0050, text=» TL TABBE LOAD MMU REGISTERS«, t00=0x0022, t01=0x00ea}
0x03624…03658               Head {h00=0x0030, h01=0x0050, text=» EL A3,PAGSIZ-2,A1 SAVE OLD MEMORY CONTENTS «, t00=0x0022, t01=0x010e}
0x03658…03686               Head {h00=0x002a, h01=0x0050, text=» ES A5,PAGSIZ-2,A1 STORE TEST PATTERN «, t00=0x0022, t01=0x0142}
0x03686…036b4               Head {h00=0x002a, h01=0x0050, text=» EL A2,PAGSIZ-2,A1 GET MEMORY CONTENT «, t00=0x0022, t01=0x0170}
0x036b4…036ea               Head {h00=0x0032, h01=0x0050, text=» ES A3,PAGSIZ-2,A1 RESTORE OLD MEMORY CONTENTS«, t00=0x0023, t01=0x000e}
0x036ea…03716               Head {h00=0x0028, h01=0x0050, text=» CWR A2,A5 COMPARE WITH TEST PATTERN«, t00=0x0023, t01=0x0044}
0x03716…0372c               Head {h00=0x0012, h01=0x0050, text=» RF(E) AP:020 «, t00=0x0023, t01=0x0070}
0x0372c…03758               Head {h00=0x0028, h01=0x0050, text=» SUK A6,4 DECREMENT NUMBER OF PAGES «, t00=0x0023, t01=0x0086}
0x03758…0376a               Head {h00=0x000e, h01=0x0050, text=» RB AP:010«, t00=0x0023, t01=0x00b2}
0x0376a…03774               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00c4}
0x03774…0379c               Head {h00=0x0024, h01=0x0050, text=»*  CHECK IF MMU HARDWARE PRESENT«, t00=0x0023, t01=0x00ce}
0x0379c…037a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00f6}
0x037a6…037c2               Head {h00=0x0018, h01=0x0050, text=»AP:020 LDKL A1,/FC00«, t00=0x0023, t01=0x0100}
0x037c2…037fc               Head {h00=0x0036, h01=0x0050, text=» ST A1,MMDDIV,A13 SET 1ST ENTRY IN MMU TABLE AREA «, t00=0x0023, t01=0x011c}
0x037fc…0382c               Head {h00=0x002c, h01=0x0050, text=» TL MMDDIV,A13 TRY TO LOAD MMU REGISTERS«, t00=0x0023, t01=0x0156}
0x0382c…0385e               Head {h00=0x002e, h01=0x0050, text=» TS MMDDIV,A13 SAVE REGISTERS IN MMU TABLE«, t00=0x0023, t01=0x0186}
0x0385e…03884               Head {h00=0x0022, h01=0x0050, text=» CW A1,MMDDIV,A13 SUCCESSFUL? «, t00=0x0024, t01=0x0028}
0x03884…038aa               Head {h00=0x0022, h01=0x0050, text=» RF(E) AP:030 YES! MMU PRESENT«, t00=0x0024, t01=0x004e}
0x038aa…038c0               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x0024, t01=0x0074}
0x038c0…038f2               Head {h00=0x002e, h01=0x0050, text=» CALL ERROR INDICATE HARDWARE NOT PRESENT «, t00=0x0024, t01=0x008a}
0x038f2…0391a               Head {h00=0x0024, h01=0x0050, text=»AP:030 CM TABBE RESET MMU TABLE «, t00=0x0024, t01=0x00bc}
0x0391a…03924               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00e4}
0x03924…0396c               Head {h00=0x0044, h01=0x0050, text=»*  END OF EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY«, t00=0x0024, t01=0x00ee}
0x0396c…03976               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0136}
0x03976…03982               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0140}
0x03982…03998               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0024, t01=0x014c}
0x03998…039a6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0162}
0x039a6…039ba               Head {h00=0x0010, h01=0x0050, text=»AP:100 EQU *«, t00=0x0024, t01=0x0170}
0x039ba…039c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0184}
0x039c4…03a08               Head {h00=0x0040, h01=0x0050, text=»*  EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY«, t00=0x0024, t01=0x018e}
0x03a08…03a12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0042}
0x03a12…03a3a               Head {h00=0x0024, h01=0x0050, text=» LDKL A1,PAGSIZ-2 START AT /FFFE«, t00=0x0025, t01=0x004c}
0x03a3a…03a4e               Head {h00=0x0010, h01=0x0050, text=»AP:110 EQU *«, t00=0x0025, t01=0x0074}
0x03a4e…03a78               Head {h00=0x0026, h01=0x0050, text=» SUKL A1,PAGSIZ NEXT PHYSICAL PAGE«, t00=0x0025, t01=0x0088}
0x03a78…03aa4               Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A1 SAVE OLD MEMORY CONTENT «, t00=0x0025, t01=0x00b2}
0x03aa4…03aca               Head {h00=0x0022, h01=0x0050, text=» STR A5,A1 STORE TEST PATTERN «, t00=0x0025, t01=0x00de}
0x03aca…03aee               Head {h00=0x0020, h01=0x0050, text=» CWR* A5,A1 CHECK IF MEMORY «, t00=0x0025, t01=0x0104}
0x03aee…03b14               Head {h00=0x0022, h01=0x0050, text=» RF(E) AP:120 MEMORY END FOUND«, t00=0x0025, t01=0x0128}
0x03b14…03b48               Head {h00=0x0030, h01=0x0050, text=» SUK A6,4 DECREMENT NUMBER OF PHYSICAL PAGES«, t00=0x0025, t01=0x014e}
0x03b48…03b5a               Head {h00=0x000e, h01=0x0050, text=» RB AP:110«, t00=0x0025, t01=0x0182}
0x03b5a…03b6e (38, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»AP:120 EQU *«, t00=0x0026, t01=0x0004}
0x03b6e…03b9c               Head {h00=0x002a, h01=0x0050, text=» STR A2,A1 RESTORE OLD MEMORY CONTENT «, t00=0x0026, t01=0x0018}
0x03b9c…03ba6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0046}
0x03ba6…03bf2               Head {h00=0x0048, h01=0x0050, text=»*  END OF EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY «, t00=0x0026, t01=0x0050}
0x03bf2…03bfc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x009c}
0x03bfc…03c08               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x00a6}
0x03c08…03c16               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x00b2}
0x03c16…03c20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00c0}
0x03c20…03c40               Head {h00=0x001c, h01=0x0050, text=»*  COMMON EXECUTION PATH«, t00=0x0026, t01=0x00ca}
0x03c40…03c4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00ea}
0x03c4a…03c5e               Head {h00=0x0010, h01=0x0050, text=»AP:200 EQU *«, t00=0x0026, t01=0x00f4}
0x03c5e…03c92               Head {h00=0x0030, h01=0x0050, text=» ST A6,SCTMSZ SAVE NUMBER OF PHYSICAL PAGES «, t00=0x0026, t01=0x0108}
0x03c92…03cb8               Head {h00=0x0022, h01=0x0050, text=» SRL A6,2 MAKE NO OF 4K FRAMES«, t00=0x0026, t01=0x013c}
0x03cb8…03cde               Head {h00=0x0022, h01=0x0050, text=» SLL A6,10 MAKE FRAME ADDRESS «, t00=0x0026, t01=0x0162}
0x03cde…03d0a               Head {h00=0x0028, h01=0x0050, text=» ST A6,SCTEFA FIRST FRAME TO BE USED«, t00=0x0026, t01=0x0188}
0x03d0a…03d1c               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0027, t01=0x0024}
0x03d1c…03d4e               Head {h00=0x002e, h01=0x0050, text=» ST A3,SCTEFA+2 AREA EMPTY IN FIRST FRAME «, t00=0x0027, t01=0x0036}
0x03d4e…03d76               Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD =2«, t00=0x0027, t01=0x0068}
0x03d76…03d98               Head {h00=0x001e, h01=0x0050, text=» ST A1,OPTION+STKEND   =2 «, t00=0x0027, t01=0x0090}
0x03d98…03dc0               Head {h00=0x0024, h01=0x0050, text=» ANKL A1,/FFF RESET TYPE BITS =2«, t00=0x0027, t01=0x00b2}
0x03dc0…03dee               Head {h00=0x002a, h01=0x0050, text=» ST A1,SCTOPT AND SET AS NEW OPTION =2«, t00=0x0027, t01=0x00da}
0x03dee…03df8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0108}
0x03df8…03e44               Head {h00=0x0048, h01=0x0050, text=»*  INIT POINTER TO READ BUFFER. INIT DEVICE ADDRESS FOR READ-ROUTINE«, t00=0x0027, t01=0x0112}
0x03e44…03e70               Head {h00=0x0028, h01=0x0050, text=» LD A9,SCTSFA POINTER TO READ BUFFER«, t00=0x0027, t01=0x015e}
0x03e70…03e9c               Head {h00=0x0028, h01=0x0050, text=» ST A9,MXBUF ADDRESS TO READ-BUFFER «, t00=0x0027, t01=0x018a}
0x03e9c…03eca               Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x0028, t01=0x0026}
0x03eca…03ed4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0054}
0x03ed4…03efe               Head {h00=0x0026, h01=0x0050, text=»*  INITIALIZE PROGRAM LOAD DEVICE «, t00=0x0028, t01=0x005e}
0x03efe…03f08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0088}
0x03f08…03f1e               Head {h00=0x0012, h01=0x0050, text=» CF A14,LODDEV«, t00=0x0028, t01=0x0092}
0x03f1e…03f36               Head {h00=0x0014, h01=0x0050, text=» LDR A3,A9 SAVE «, t00=0x0028, t01=0x00a8}
0x03f36…03f68               Head {h00=0x002e, h01=0x0050, text=» AD A3,SAVCON COMPUTE START OF APPL. TABLE«, t00=0x0028, t01=0x00c0}
0x03f68…03f8e               Head {h00=0x0022, h01=0x0050, text=» ST A3,SCTSFA STORE IN SYSTAB «, t00=0x0028, t01=0x00f2}
0x03f8e…03fa0               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0028, t01=0x0118}
0x03fa0…03fc6               Head {h00=0x0022, h01=0x0050, text=» RF(Z) AP:233 CASSETTE LOADING«, t00=0x0028, t01=0x012a}
0x03fc6…03fd0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0150}
0x03fd0…04006               Head {h00=0x0032, h01=0x0050, text=» ST A2,SCTIPL SET FILE CODE IF RAND. ACC. DEV.«, t00=0x0028, t01=0x015a}
0x04006…04014               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0190}
0x04014…04028               Head {h00=0x0010, h01=0x0050, text=»AP:232 EQU *«, t00=0x0029, t01=0x000e}
0x04028…04040               Head {h00=0x0014, h01=0x0050, text=» IFT EDM=1  =12 «, t00=0x0029, t01=0x0022}
0x04040…0404a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x003a}
0x0404a…04074               Head {h00=0x0026, h01=0x0050, text=»*  LOAD MONITOR EXTENTS IF PRESENT«, t00=0x0029, t01=0x0044}
0x04074…0407e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x006e}
0x0407e…040aa               Head {h00=0x0028, h01=0x0050, text=» CF A14,LODMEX  LOAD MONITOR EXTENTS«, t00=0x0029, t01=0x0078}
0x040aa…040b6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00a4}
0x040b6…040c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00b0}
0x040c0…040e8               Head {h00=0x0024, h01=0x0050, text=»*  SCAN CONF. FILE FOR POSSIBLE «, t00=0x0029, t01=0x00ba}
0x040e8…04110               Head {h00=0x0024, h01=0x0050, text=»*  APPLICATION DEFINITION BLOCKS«, t00=0x0029, t01=0x00e2}
0x04110…0411a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x010a}
0x0411a…04130               Head {h00=0x0012, h01=0x0050, text=» CF A14,SCNCON«, t00=0x0029, t01=0x0114}
0x04130…0415c               Head {h00=0x0028, h01=0x0050, text=» LD A1,APLTAB+STKCOM GET ADDRESS TO «, t00=0x0029, t01=0x012a}
0x0415c…04188               Head {h00=0x0028, h01=0x0050, text=» ADK A1,2 CURRENT APPL. CONTR. BLOCK«, t00=0x0029, t01=0x0156}
0x04188…041c2               Head {h00=0x0036, h01=0x0050, text=» LD A12,APLADA,A1 MOST SIGN. PART OF DISC ADDRESS «, t00=0x0029, t01=0x0182}
0x041c2…041fe               Head {h00=0x0038, h01=0x0050, text=» LD A11,APLADA+2,A1 LEAST SIGN. PART OF DISC ADDRESS«, t00=0x002a, t01=0x002c}
0x041fe…0422a               Head {h00=0x0028, h01=0x0050, text=» LD A10,READ GET SUBROUTINE ADDRESS «, t00=0x002a, t01=0x0068}
0x0422a…04250               Head {h00=0x0022, h01=0x0050, text=» CFR A14,A10 READ FIRST SECTOR«, t00=0x002a, t01=0x0094}
0x04250…04264               Head {h00=0x0010, h01=0x0050, text=»AP:233 EQU *«, t00=0x002a, t01=0x00ba}
0x04264…04298               Head {h00=0x0030, h01=0x0050, text=» LD A1,APLTAB+STKCOM GET APPL. TABLE ADDRESS«, t00=0x002a, t01=0x00ce}
0x04298…042c4               Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A1 GET NO OF APPL. TO LOAD «, t00=0x002a, t01=0x0102}
0x042c4…042e6               Head {h00=0x001e, h01=0x0050, text=» NGR A6,A6 NEGATE AND SAVE«, t00=0x002a, t01=0x012e}
0x042e6…0430e               Head {h00=0x0024, h01=0x0050, text=» ST A6,APLCNT+STKEND AS COUNTER «, t00=0x002a, t01=0x0150}
0x0430e…04320               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x002a, t01=0x0178}
0x04320…04358               Head {h00=0x0034, h01=0x0050, text=» ST A1,CURAPL+STKEND CURRENT APPL. CONTROL BLOCK«, t00=0x002a, t01=0x018a}
0x04358…0436c               Head {h00=0x0010, h01=0x0050, text=»AP:234 EQU *«, t00=0x002b, t01=0x0032}
0x0436c…04398               Head {h00=0x0028, h01=0x0050, text=» LD A7,SCTEFA GET FIRST FRAME TO USE«, t00=0x002b, t01=0x0046}
0x04398…043c4               Head {h00=0x0028, h01=0x0050, text=» LD A5,SCTEFA+2 AND AREA EMPTY IN IT«, t00=0x002b, t01=0x0072}
0x043c4…04402               Head {h00=0x003a, h01=0x0050, text=» LD A1,CURAPL+STKEND RESTORE APPL. CONTROL BLOCK ADDR.«, t00=0x002b, t01=0x009e}
0x04402…04410               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x00dc}
0x04410…04424               Head {h00=0x0010, h01=0x0050, text=»AP:235 EQU *«, t00=0x002b, t01=0x00ea}
0x04424…0442e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00fe}
0x0442e…04460               Head {h00=0x002e, h01=0x0050, text=»*  SAVE INFORMATION ABOUT THE LOAD MODULE «, t00=0x002b, t01=0x0108}
0x04460…0446a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x013a}
0x0446a…044a2               Head {h00=0x0034, h01=0x0050, text=» CM APLLAP,A1 RESET NO OF MMU ENTRIES TO UPDATE «, t00=0x002b, t01=0x0144}
0x044a2…044d8               Head {h00=0x0032, h01=0x0050, text=» CM APLSEG,A1 RESET PHYSICAL ADDRESS TO FIRST «, t00=0x002b, t01=0x017c}
0x044d8…04506               Head {h00=0x002a, h01=0x0050, text=» CM APLSEG+2,A1 CORE RESIDENT SEGMENT «, t00=0x002c, t01=0x0022}
0x04506…0453e               Head {h00=0x0034, h01=0x0050, text=» CM APLMMC,A1 CLEAR REL. POSITION OF CONF. DATA «, t00=0x002c, t01=0x0050}
0x0453e…04570               Head {h00=0x002e, h01=0x0050, text=» CM APLPSZ,A1 CLEAR SEGMENT SIZE ENTRY =2 «, t00=0x002c, t01=0x0088}
0x04570…045a4               Head {h00=0x0030, h01=0x0050, text=» CM TNBRSG+STKEND CLEAR NBR. OF SEGMENTS =5 «, t00=0x002c, t01=0x00ba}
0x045a4…045e2               Head {h00=0x003a, h01=0x0050, text=» LDR* A6,A9 GET PGM. START ADDRESS (UNSEGMENTED APPL.)«, t00=0x002c, t01=0x00ee}
0x045e2…04600               Head {h00=0x001a, h01=0x0050, text=» ST A6,APLSTA,A1 SAVE «, t00=0x002c, t01=0x012c}
0x04600…04626               Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x002c, t01=0x014a}
0x04626…04652               Head {h00=0x0028, h01=0x0050, text=» LD A6,PRGLG1+8,A9 GET PROGRAM TYPE «, t00=0x002c, t01=0x0170}
0x04652…0468a               Head {h00=0x0034, h01=0x0050, text=» LDKL A4,/1000 INITIALIZE BIT SETTING (BIT 3=1) «, t00=0x002d, t01=0x000c}
0x0468a…046b2               Head {h00=0x0024, h01=0x0050, text=» CWK A6,'CR' CREDIT APPLICATION?«, t00=0x002d, t01=0x0044}
0x046b2…046c8               Head {h00=0x0012, h01=0x0050, text=» RF(E) AP2340 «, t00=0x002d, t01=0x006c}
0x046c8…046d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0082}
0x046d2…04704               Head {h00=0x002e, h01=0x0050, text=» SLL A4,1 BIT SETTING FOR COBOL (BIT 2=1) «, t00=0x002d, t01=0x008c}
0x04704…0472c               Head {h00=0x0024, h01=0x0050, text=» CWK A6,'CO' COBOL APPLICATION? «, t00=0x002d, t01=0x00be}
0x0472c…04742               Head {h00=0x0012, h01=0x0050, text=» RF(E) AP2340 «, t00=0x002d, t01=0x00e6}
0x04742…0474c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00fc}
0x0474c…0477e               Head {h00=0x002e, h01=0x0050, text=» SLL A4,1 BIT SETTING FOR BASIC (BIT 1=1) «, t00=0x002d, t01=0x0106}
0x0477e…047a4               Head {h00=0x0022, h01=0x0050, text=» CWK A6,'BA' BASIC APLICATION?«, t00=0x002d, t01=0x0138}
0x047a4…047ba               Head {h00=0x0012, h01=0x0050, text=» RF(E) AP2340 «, t00=0x002d, t01=0x015e}
0x047ba…047c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0174}
0x047c4…047ec               Head {h00=0x0024, h01=0x0050, text=» LDKL A6,'AS' SET ASSEMBLER TYPE«, t00=0x002d, t01=0x017e}
0x047ec…04822               Head {h00=0x0032, h01=0x0050, text=» SLL A4,1 BIT SETTING FOR ASSEMBLER (BIT 0=1) «, t00=0x002e, t01=0x0016}
0x04822…04836               Head {h00=0x0010, h01=0x0050, text=»AP2340 EQU *«, t00=0x002e, t01=0x004c}
0x04836…04864               Head {h00=0x002a, h01=0x0050, text=» ST A6,APLTYP,A1 SAVE APPLICATION TYPE«, t00=0x002e, t01=0x0060}
0x04864…04894               Head {h00=0x002c, h01=0x0050, text=» CWK A6,'AS' ASSEMBLER ALWAYS ALLOWED =2«, t00=0x002e, t01=0x008e}
0x04894…048ae               Head {h00=0x0016, h01=0x0050, text=» RF(E) AP2345   =2«, t00=0x002e, t01=0x00be}
0x048ae…048e8               Head {h00=0x0036, h01=0x0050, text=» AN A4,OPTION+STKEND LOOK IF THIS TYPE ALLOWED =2 «, t00=0x002e, t01=0x00d8}
0x048e8…04906               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) AP2345 YES =2 «, t00=0x002e, t01=0x0112}
0x04906…04936               Head {h00=0x002c, h01=0x0050, text=» LDK A1,LMP9 NO, WRONG MONITOR OPTION =2«, t00=0x002e, t01=0x0130}
0x04936…0494e               Head {h00=0x0014, h01=0x0050, text=» CALL ERROR   =2«, t00=0x002e, t01=0x0160}
0x0494e…04968               Head {h00=0x0016, h01=0x0050, text=»AP2345 EQU *   =2 «, t00=0x002e, t01=0x0178}
0x04968…04992 (47, 0, 400)  Head {h00=0x0026, h01=0x0050, text=» ORR A2,A4 SET BIT IN OPTION WORD «, t00=0x002f, t01=0x0004}
0x04992…049b0               Head {h00=0x001a, h01=0x0050, text=» ST A2,SCTOPT AND SAVE«, t00=0x002f, t01=0x002e}
0x049b0…049c4               Head {h00=0x0010, h01=0x0050, text=» CWK A6,'AS'«, t00=0x002f, t01=0x004c}
0x049c4…049f2               Head {h00=0x002a, h01=0x0050, text=» RF(E) AP2350 SKIP IF ASSEMBLER APPL. «, t00=0x002f, t01=0x0060}
0x049f2…049fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x008e}
0x049fc…04a2c               Head {h00=0x002c, h01=0x0050, text=» LD A3,PAGLG+8,A9 GET DEFINED PAGE SIZE «, t00=0x002f, t01=0x0098}
0x04a2c…04a66               Head {h00=0x0036, h01=0x0050, text=» CW A3,SCTPSZ COMPARE WITH PREVIOUSLY DEFINED SIZE«, t00=0x002f, t01=0x00c8}
0x04a66…04a98               Head {h00=0x002e, h01=0x0050, text=» RF(NG) AP2350 IF LESS, DON'T UPDATE SIZE «, t00=0x002f, t01=0x0102}
0x04a98…04aa2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0134}
0x04aa2…04ad6               Head {h00=0x0030, h01=0x0050, text=» ST A3,SCTPSZ SAVE LARGEST DEFINED PAGE SIZE«, t00=0x002f, t01=0x013e}
0x04ad6…04aea               Head {h00=0x0010, h01=0x0050, text=»AP2350 EQU *«, t00=0x002f, t01=0x0172}
0x04aea…04b00               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002f, t01=0x0186}
0x04b00…04b0e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x000c}
0x04b0e…04b18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x001a}
0x04b18…04b4e               Head {h00=0x0032, h01=0x0050, text=»*  EXECUTION PATH FOR SYSTEMS WITH MMU OPTION «, t00=0x0030, t01=0x0024}
0x04b4e…04b58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x005a}
0x04b58…04b84               Head {h00=0x0028, h01=0x0050, text=» CWK A6,'AS' ASSEMBLER APPLICATION? «, t00=0x0030, t01=0x0064}
0x04b84…04bac               Head {h00=0x0024, h01=0x0050, text=» ABL(E) AP:330 YES! NO SEGMENTS «, t00=0x0030, t01=0x0090}
0x04bac…04bc4               Head {h00=0x0014, h01=0x0050, text=» LDR A4,A3 SAVE «, t00=0x0030, t01=0x00b8}
0x04bc4…04bec               Head {h00=0x0024, h01=0x0050, text=» ANKL A4,/3FF EVEN 1K MULTIPLE? «, t00=0x0030, t01=0x00d0}
0x04bec…04c06               Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:237 YES!«, t00=0x0030, t01=0x00f8}
0x04c06…04c10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0112}
0x04c10…04c24               Head {h00=0x0010, h01=0x0050, text=» LDK A1,LMP8«, t00=0x0030, t01=0x011c}
0x04c24…04c50               Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE PAGE SIZE ERROR«, t00=0x0030, t01=0x0130}
0x04c50…04c5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x015c}
0x04c5a…04c6e               Head {h00=0x0010, h01=0x0050, text=»AP:237 EQU *«, t00=0x0030, t01=0x0166}
0x04c6e…04ca4               Head {h00=0x0032, h01=0x0050, text=» LD A2,NUMSEG+8,A9 NUMBER OF SEGMENTS DEFINED «, t00=0x0030, t01=0x017a}
0x04ca4…04cae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0020}
0x04cae…04cc2               Head {h00=0x0010, h01=0x0050, text=»AP:238 EQU *«, t00=0x0031, t01=0x002a}
0x04cc2…04ce6               Head {h00=0x0020, h01=0x0050, text=» ABL(Z) AP:330 NO SEGMENTS! «, t00=0x0031, t01=0x003e}
0x04ce6…04cf0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0062}
0x04cf0…04d26               Head {h00=0x0032, h01=0x0050, text=» CF A14,ALOCSG RESERVE AREA FOR RESIDENT SEGM.«, t00=0x0031, t01=0x006c}
0x04d26…04d30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00a2}
0x04d30…04d66               Head {h00=0x0032, h01=0x0050, text=»*  A1 - POINTER TO CURRENT APPL. CONTR. BLOCK «, t00=0x0031, t01=0x00ac}
0x04d66…04d8c               Head {h00=0x0022, h01=0x0050, text=»*  A3 - PAGESIZE IN 1K BLOCKS «, t00=0x0031, t01=0x00e2}
0x04d8c…04db2               Head {h00=0x0022, h01=0x0050, text=»*  A5 - OFFSET WITHIN 4K PAGE «, t00=0x0031, t01=0x0108}
0x04db2…04de0               Head {h00=0x002a, h01=0x0050, text=»*  A7 - PAGE FRAME ADDR. (PHYS. ADDR.)«, t00=0x0031, t01=0x012e}
0x04de0…04e10               Head {h00=0x002c, h01=0x0050, text=»*  A4 - AREA LEFT IN LAST 4K PAGE FRAME «, t00=0x0031, t01=0x015c}
0x04e10…04e1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x018c}
0x04e1a…04e46               Head {h00=0x0028, h01=0x0050, text=»*  STORE ADDRESS(ES) TO PAGE FRAMES «, t00=0x0032, t01=0x0008}
0x04e46…04e70               Head {h00=0x0026, h01=0x0050, text=»*  HOLDING THE FIRST LOGICAL PAGE «, t00=0x0032, t01=0x0034}
0x04e70…04e7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x005e}
0x04e7a…04eaa               Head {h00=0x002c, h01=0x0050, text=» SRL A3,10 SEGMENT SIZE IN 1K BLOCKS =2 «, t00=0x0032, t01=0x0068}
0x04eaa…04ed6               Head {h00=0x0028, h01=0x0050, text=» LDKL A6,MMEND GET END OF MMU-TABLE «, t00=0x0032, t01=0x0098}
0x04ed6…04efc               Head {h00=0x0022, h01=0x0050, text=» LDKL A8,16 AND NO OF ENTRIES «, t00=0x0032, t01=0x00c4}
0x04efc…04f2a               Head {h00=0x002a, h01=0x0050, text=» LDR A4,A5 GET AREA LEFT IN LAST FRAME«, t00=0x0032, t01=0x00ea}
0x04f2a…04f3e               Head {h00=0x0010, h01=0x0050, text=»AP:295 EQU *«, t00=0x0032, t01=0x0118}
0x04f3e…04f6a               Head {h00=0x0028, h01=0x0050, text=» SUK A6,2 DECREMENT MMU ENTRY ADDR. «, t00=0x0032, t01=0x012c}
0x04f6a…04f98               Head {h00=0x002a, h01=0x0050, text=» SUKL A8,1 DECREMENT MMU ENTRY POINTER«, t00=0x0032, t01=0x0158}
0x04f98…04fce               Head {h00=0x0032, h01=0x0050, text=» SUK A3,4 DECREMENT PAGE SIZE WITH FRAME SIZE «, t00=0x0032, t01=0x0186}
0x04fce…04fe4               Head {h00=0x0012, h01=0x0050, text=» RB(P) AP:295 «, t00=0x0033, t01=0x002c}
0x04fe4…0500c               Head {h00=0x0024, h01=0x0050, text=» RF(Z) AP:300 EVEN 4K BYTES PAGE«, t00=0x0033, t01=0x0042}
0x0500c…05016               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x006a}
0x05016…0503c               Head {h00=0x0022, h01=0x0050, text=»*  RESERVE ONE EXTRA MMU ENTRY«, t00=0x0033, t01=0x0074}
0x0503c…05060               Head {h00=0x0020, h01=0x0050, text=»*  WHEN PAGE SIZE IS NOT AN «, t00=0x0033, t01=0x009a}
0x05060…0507e               Head {h00=0x001a, h01=0x0050, text=»*  EVEN MULTIPLE OF 4K«, t00=0x0033, t01=0x00be}
0x0507e…05088               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00dc}
0x05088…050b0               Head {h00=0x0024, h01=0x0050, text=» LD A3,PAGLG+8,A9 GET PAGE SIZE «, t00=0x0033, t01=0x00e6}
0x050b0…050de               Head {h00=0x002a, h01=0x0050, text=» ANKL A3,/C00 GET LENGTH IN MODULO 4K «, t00=0x0033, t01=0x010e}
0x050de…05102               Head {h00=0x0020, h01=0x0050, text=» CWK A3,/400 PAGE SIZE = 1K?«, t00=0x0033, t01=0x013c}
0x05102…0512e               Head {h00=0x0028, h01=0x0050, text=» RF(E) AP:300 YES! ONE ENTRY ENOUGH «, t00=0x0033, t01=0x0160}
0x0512e…05138               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x018c}
0x05138…05162               Head {h00=0x0026, h01=0x0050, text=» SUK A6,2 ALLOCATE ONE ENTRY EXTRA«, t00=0x0034, t01=0x0008}
0x05162…05174               Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x0034, t01=0x0032}
0x05174…0517e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0044}
0x0517e…05192               Head {h00=0x0010, h01=0x0050, text=»AP:300 EQU *«, t00=0x0034, t01=0x004e}
0x05192…051ca               Head {h00=0x0034, h01=0x0050, text=» LD A3,SEGCNT+STKEND ANY CORE RESIDENT SEGMENTS?«, t00=0x0034, t01=0x0062}
0x051ca…051e4               Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:310 NO! «, t00=0x0034, t01=0x009a}
0x051e4…051ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00b4}
0x051ee…0521a               Head {h00=0x0028, h01=0x0050, text=» LDR A2,A7 GET SEGMENT FRAME ADDRESS«, t00=0x0034, t01=0x00be}
0x0521a…0523c               Head {h00=0x001e, h01=0x0050, text=» LDR A3,A6 SAVE MMU ENTRY «, t00=0x0034, t01=0x00ea}
0x0523c…05246               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x010c}
0x05246…0525a               Head {h00=0x0010, h01=0x0050, text=»AP:305 EQU *«, t00=0x0034, t01=0x0116}
0x0525a…05288               Head {h00=0x002a, h01=0x0050, text=» STR A2,A3 STORE ADDRESS TO PAGE FRAME«, t00=0x0034, t01=0x012a}
0x05288…052b6               Head {h00=0x002a, h01=0x0050, text=» ADK A3,2 INCREMENT MMU ENTRY ADDRESS «, t00=0x0034, t01=0x0158}
0x052b6…052de               Head {h00=0x0024, h01=0x0050, text=» CWK A3,MMEND END OF MMU TABLE? «, t00=0x0034, t01=0x0186}
0x052de…052f8               Head {h00=0x0016, h01=0x0050, text=» RF(E) AP:310 YES!«, t00=0x0035, t01=0x001e}
0x052f8…05302               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0038}
0x05302…05332               Head {h00=0x002c, h01=0x0050, text=» ADKL A2,/400 INCREMENT PAGE FRAME ADDR.«, t00=0x0035, t01=0x0042}
0x05332…05344               Head {h00=0x000e, h01=0x0050, text=» RB AP:305«, t00=0x0035, t01=0x0072}
0x05344…0534e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0084}
0x0534e…05362               Head {h00=0x0010, h01=0x0050, text=»AP:310 EQU *«, t00=0x0035, t01=0x008e}
0x05362…0536c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00a2}
0x0536c…0538c               Head {h00=0x001c, h01=0x0050, text=»*  SAVE LOGICAL ADDRESS «, t00=0x0035, t01=0x00ac}
0x0538c…053a2               Head {h00=0x0012, h01=0x0050, text=»*  TO SEGMENT «, t00=0x0035, t01=0x00cc}
0x053a2…053ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00e2}
0x053ac…053cc               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A8 GET MMU ENTRY«, t00=0x0035, t01=0x00ec}
0x053cc…053f6               Head {h00=0x0026, h01=0x0050, text=» SLL A2,12 MOVE TO 4 LEFTMOST BITS«, t00=0x0035, t01=0x010c}
0x053f6…05430               Head {h00=0x0036, h01=0x0050, text=» ST A2,APLLAP,A1 SAVE IN APPLICATION CONTROL BLOCK«, t00=0x0035, t01=0x0136}
0x05430…0545c               Head {h00=0x0028, h01=0x0050, text=» ORR A2,A4 CONCATENATE DISPLACEMENT «, t00=0x0035, t01=0x0170}
0x0545c…05498               Head {h00=0x0038, h01=0x0050, text=» ST A2,LSTASG+STKEND AND SAVE AS LOGICAL START ADDR.«, t00=0x0036, t01=0x000c}
0x05498…054aa               Head {h00=0x000e, h01=0x0050, text=» RF AP:335«, t00=0x0036, t01=0x0048}
0x054aa…054b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x005a}
0x054b4…054d2               Head {h00=0x001a, h01=0x0050, text=»*  NO SEGMENTS DEFINED«, t00=0x0036, t01=0x0064}
0x054d2…054dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0082}
0x054dc…054f0               Head {h00=0x0010, h01=0x0050, text=»AP:330 EQU *«, t00=0x0036, t01=0x008c}
0x054f0…05524               Head {h00=0x0030, h01=0x0050, text=» LDK A3,0 RESET NO OF MMU ENTRIES TO UPDATE «, t00=0x0036, t01=0x00a0}
0x05524…05550               Head {h00=0x0028, h01=0x0050, text=» LDKL A6,MMEND INITIATE MMU POINTER «, t00=0x0036, t01=0x00d4}
0x05550…0557a               Head {h00=0x0026, h01=0x0050, text=» LDKL A8,16 AND MMU ENTRY POINTER «, t00=0x0036, t01=0x0100}
0x0557a…055a4               Head {h00=0x0026, h01=0x0050, text=» LDR A4,A5 AREA LEFT IN LAST FRAME«, t00=0x0036, t01=0x012a}
0x055a4…055b8               Head {h00=0x0010, h01=0x0050, text=»AP:335 EQU *«, t00=0x0036, t01=0x0154}
0x055b8…055c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0168}
0x055c2…055ee               Head {h00=0x0028, h01=0x0050, text=»* COMPUTE APPLICATION START ADDRESS «, t00=0x0036, t01=0x0172}
0x055ee…055f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x000e}
0x055f8…0562c               Head {h00=0x0030, h01=0x0050, text=»*  A1 - POINTER TO APPLICATION CONTROL BLOCK«, t00=0x0037, t01=0x0018}
0x0562c…0565c               Head {h00=0x002c, h01=0x0050, text=»*  A4 - AREA LEFT IN CURRENT PAGE FRAME «, t00=0x0037, t01=0x004c}
0x0565c…05682               Head {h00=0x0022, h01=0x0050, text=»*  A7 - PHYSICAL PAGE ADDRESS «, t00=0x0037, t01=0x007c}
0x05682…056a4               Head {h00=0x001e, h01=0x0050, text=»*  A6 - MMU ENTRY ADDRESS «, t00=0x0037, t01=0x00a2}
0x056a4…056c6               Head {h00=0x001e, h01=0x0050, text=»*  A8 - CURRENT MMU ENTRY «, t00=0x0037, t01=0x00c4}
0x056c6…056d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00e6}
0x056d0…05704               Head {h00=0x0030, h01=0x0050, text=» LD A2,COMLG,A9 COMLG OF CORE RESIDENT PART «, t00=0x0037, t01=0x00f0}
0x05704…05732               Head {h00=0x002a, h01=0x0050, text=» LD A3,APLTYP,A1 GET APPLICATION TYPE «, t00=0x0037, t01=0x0124}
0x05732…05752               Head {h00=0x001c, h01=0x0050, text=» CWK A3,'AS' ASSEMBLER? «, t00=0x0037, t01=0x0152}
0x05752…0576c               Head {h00=0x0016, h01=0x0050, text=» RF(NE) AP:336 NO!«, t00=0x0037, t01=0x0172}
0x0576c…05776               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x018c}
0x05776…057a6               Head {h00=0x002c, h01=0x0050, text=» ADK A2,10 YES, ADD 5 WORDS FOR DEBUGGER«, t00=0x0038, t01=0x0008}
0x057a6…057ba               Head {h00=0x0010, h01=0x0050, text=»AP:336 EQU *«, t00=0x0038, t01=0x0038}
0x057ba…057cc               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0038, t01=0x004c}
0x057cc…057f4               Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN LENGTH «, t00=0x0038, t01=0x005e}
0x057f4…057fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0086}
0x057fe…05826               Head {h00=0x0024, h01=0x0050, text=»*  IF APPLICATION IS LARGER THAN«, t00=0x0038, t01=0x0090}
0x05826…0584a               Head {h00=0x0020, h01=0x0050, text=»*  60 K BYTES, START ON A 4K«, t00=0x0038, t01=0x00b8}
0x0584a…05870               Head {h00=0x0022, h01=0x0050, text=»*  BOUNDARY, TO MAKE SURE THAT«, t00=0x0038, t01=0x00dc}
0x05870…05892               Head {h00=0x001e, h01=0x0050, text=»*  LOGICAL MEMORY WILL BE «, t00=0x0038, t01=0x0102}
0x05892…058ae               Head {h00=0x0018, h01=0x0050, text=»*  MAXIMAL POSSIBLE.«, t00=0x0038, t01=0x0124}
0x058ae…058b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0140}
0x058b8…058ca               Head {h00=0x000e, h01=0x0050, text=» LDR A5,A2«, t00=0x0038, t01=0x014a}
0x058ca…058ec               Head {h00=0x001e, h01=0x0050, text=» SRL A5,12 NO OF 4K BLOCKS«, t00=0x0038, t01=0x015c}
0x058ec…0590a               Head {h00=0x001a, h01=0x0050, text=» CWK A5,15 >60 KBYTES?«, t00=0x0038, t01=0x017e}
0x0590a…05924               Head {h00=0x0016, h01=0x0050, text=» RF(L) AP:337 NO! «, t00=0x0039, t01=0x000c}
0x05924…0592e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0026}
0x0592e…05956               Head {h00=0x0024, h01=0x0050, text=» LDK A4,0 START ON A 4K BOUNDARY«, t00=0x0039, t01=0x0030}
0x05956…05968               Head {h00=0x000e, h01=0x0050, text=» RF AP:341«, t00=0x0039, t01=0x0058}
0x05968…05972               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x006a}
0x05972…05986               Head {h00=0x0010, h01=0x0050, text=»AP:337 EQU *«, t00=0x0039, t01=0x0074}
0x05986…059b0               Head {h00=0x0026, h01=0x0050, text=» ADK A2,0 RESTORE LENGTH CONDITION«, t00=0x0039, t01=0x0088}
0x059b0…059da               Head {h00=0x0026, h01=0x0050, text=» RF(N) AP:340 LARGER THAN ONE PAGE«, t00=0x0039, t01=0x00b2}
0x059da…059e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00dc}
0x059e4…05a0e               Head {h00=0x0026, h01=0x0050, text=»* APPLICATION IS SMALLER THAN 32 K«, t00=0x0039, t01=0x00e6}
0x05a0e…05a38               Head {h00=0x0026, h01=0x0050, text=»* BUT IS IT SMALLER THAN AREA LEFT«, t00=0x0039, t01=0x0110}
0x05a38…05a5a               Head {h00=0x001e, h01=0x0050, text=»* IN LAST ALLOCATED PAGE? «, t00=0x0039, t01=0x013a}
0x05a5a…05a64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x015c}
0x05a64…05a76               Head {h00=0x000e, h01=0x0050, text=» CWR A2,A4«, t00=0x0039, t01=0x0166}
0x05a76…05a92               Head {h00=0x0018, h01=0x0050, text=» RF(G) AP:340 LARGER«, t00=0x0039, t01=0x0178}
0x05a92…05a9c (58, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0004}
0x05a9c…05ac8               Head {h00=0x0028, h01=0x0050, text=»* APPLICATION LENGTH LESS THAN AREA «, t00=0x003a, t01=0x000e}
0x05ac8…05ae4               Head {h00=0x0018, h01=0x0050, text=»* LEFT IN LAST PAGE «, t00=0x003a, t01=0x003a}
0x05ae4…05b08               Head {h00=0x0020, h01=0x0050, text=»* COPY FRAME ADDRESS IN NEXT«, t00=0x003a, t01=0x0056}
0x05b08…05b1c               Head {h00=0x0010, h01=0x0050, text=»* MMU ENTRY «, t00=0x003a, t01=0x007a}
0x05b1c…05b26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x008e}
0x05b26…05b30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0098}
0x05b30…05b42               Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x003a, t01=0x00a2}
0x05b42…05b68               Head {h00=0x0022, h01=0x0050, text=» RF(N) TABOVF TABBE OVERFLOW! «, t00=0x003a, t01=0x00b4}
0x05b68…05b72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00da}
0x05b72…05b84               Head {h00=0x000e, h01=0x0050, text=» SUK A6,2 «, t00=0x003a, t01=0x00e4}
0x05b84…05ba8               Head {h00=0x0020, h01=0x0050, text=» STR A7,A6 UPDATE MMU ENTRY «, t00=0x003a, t01=0x00f6}
0x05ba8…05bd8               Head {h00=0x002c, h01=0x0050, text=» LDR A5,A2 RESTORE LENGTH OF COMMON PART«, t00=0x003a, t01=0x011a}
0x05bd8…05bea               Head {h00=0x000e, h01=0x0050, text=» RF AP:351«, t00=0x003a, t01=0x014a}
0x05bea…05bf4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x015c}
0x05bf4…05c08               Head {h00=0x0010, h01=0x0050, text=»AP:340 EQU *«, t00=0x003a, t01=0x0166}
0x05c08…05c12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x017a}
0x05c12…05c3e               Head {h00=0x0028, h01=0x0050, text=»*  RESERVE ENTRIES IN MMU TABLE FOR «, t00=0x003a, t01=0x0184}
0x05c3e…05c64               Head {h00=0x0022, h01=0x0050, text=»*  COMMON PART OF APPLICATION «, t00=0x003b, t01=0x0020}
0x05c64…05c6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0046}
0x05c6e…05c96               Head {h00=0x0024, h01=0x0050, text=»*  A4 - AREA MAPPED BUT NOT USED«, t00=0x003b, t01=0x0050}
0x05c96…05cb8               Head {h00=0x001e, h01=0x0050, text=»*       IN LAST MMU ENTRY «, t00=0x003b, t01=0x0078}
0x05cb8…05cde               Head {h00=0x0022, h01=0x0050, text=»*  A2 - LENGTH OF COMMON PART «, t00=0x003b, t01=0x009a}
0x05cde…05cfe               Head {h00=0x001c, h01=0x0050, text=» LDR A4,A4 EMPTY FRAME? «, t00=0x003b, t01=0x00c0}
0x05cfe…05d18               Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:341 YES!«, t00=0x003b, t01=0x00e0}
0x05d18…05d22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00fa}
0x05d22…05d4e               Head {h00=0x0028, h01=0x0050, text=» SUKL A8,1 NO, ANY MMU ENTRIES LEFT?«, t00=0x003b, t01=0x0104}
0x05d4e…05d68               Head {h00=0x0016, h01=0x0050, text=» RF(N) TABOVF NO! «, t00=0x003b, t01=0x0130}
0x05d68…05d72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x014a}
0x05d72…05d9e               Head {h00=0x0028, h01=0x0050, text=» SUK A6,2 ADVANCE TO NEXT MMU ENTRY «, t00=0x003b, t01=0x0154}
0x05d9e…05dc8               Head {h00=0x0026, h01=0x0050, text=» STR A7,A6 AND COPY FRAME ADDRESS «, t00=0x003b, t01=0x0180}
0x05dc8…05ddc               Head {h00=0x0010, h01=0x0050, text=»AP:341 EQU *«, t00=0x003c, t01=0x001a}
0x05ddc…05e12               Head {h00=0x0032, h01=0x0050, text=» SUR A2,A4 SUBTRACT AREA LEFT IN CURRENT FRAME«, t00=0x003c, t01=0x002e}
0x05e12…05e42               Head {h00=0x002c, h01=0x0050, text=» LDK A4,0 RESET AREA LEFT IN LAST FRAME «, t00=0x003c, t01=0x0064}
0x05e42…05e70               Head {h00=0x002a, h01=0x0050, text=» LDR A5,A2 SAVE REMAINING AREA NEEDED «, t00=0x003c, t01=0x0094}
0x05e70…05e92               Head {h00=0x001e, h01=0x0050, text=» RF(Z) AP:351 NOTHING LEFT«, t00=0x003c, t01=0x00c2}
0x05e92…05e9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00e4}
0x05e9c…05eca               Head {h00=0x002a, h01=0x0050, text=» SRL A2,12 CONVERT TO NO OF 4K FRAMES «, t00=0x003c, t01=0x00ee}
0x05eca…05ee0               Head {h00=0x0012, h01=0x0050, text=» ANKL A5,/0FFF«, t00=0x003c, t01=0x011c}
0x05ee0…05f02               Head {h00=0x001e, h01=0x0050, text=» RF(Z) AP:342 NO REMAINDER«, t00=0x003c, t01=0x0132}
0x05f02…05f0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0154}
0x05f0c…05f36               Head {h00=0x0026, h01=0x0050, text=» ADK A2,1 ALLOCATE ONE MORE ENTRY «, t00=0x003c, t01=0x015e}
0x05f36…05f40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0188}
0x05f40…05f5c (61, 0, 400)  Head {h00=0x0018, h01=0x0050, text=»*  UPDTE MMU ENTRIES«, t00=0x003d, t01=0x0004}
0x05f5c…05f66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0020}
0x05f66…05f7a               Head {h00=0x0010, h01=0x0050, text=»AP:342 EQU *«, t00=0x003d, t01=0x002a}
0x05f7a…05fa4               Head {h00=0x0026, h01=0x0050, text=» SUK A2,1 MORE ENTRIES TO UPDATE? «, t00=0x003d, t01=0x003e}
0x05fa4…05fbe               Head {h00=0x0016, h01=0x0050, text=» RF(N) AP:350 NO! «, t00=0x003d, t01=0x0068}
0x05fbe…05fc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0082}
0x05fc8…05ff6               Head {h00=0x002a, h01=0x0050, text=» SUKL A8,1 DECREMENT MMU ENTRY POINTER«, t00=0x003d, t01=0x008c}
0x05ff6…0601c               Head {h00=0x0022, h01=0x0050, text=» RF(N) TABOVF TABLE OVERFLOW! «, t00=0x003d, t01=0x00ba}
0x0601c…06026               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00e0}
0x06026…06052               Head {h00=0x0028, h01=0x0050, text=» SUK A6,2 DECREMENT MMU ENTRY ADDR. «, t00=0x003d, t01=0x00ea}
0x06052…06080               Head {h00=0x002a, h01=0x0050, text=» SUKL A7,/400 DECREMENT FRAME ADDRESS «, t00=0x003d, t01=0x0116}
0x06080…060a6               Head {h00=0x0022, h01=0x0050, text=» STR A7,A6 STORE FRAME ADDRESS«, t00=0x003d, t01=0x0144}
0x060a6…060b8               Head {h00=0x000e, h01=0x0050, text=» RB AP:342«, t00=0x003d, t01=0x016a}
0x060b8…060c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x017c}
0x060c2…060d6               Head {h00=0x0010, h01=0x0050, text=»TABOVF EQU *«, t00=0x003d, t01=0x0186}
0x060d6…060ea               Head {h00=0x0010, h01=0x0050, text=» LDK A1,LMP7«, t00=0x003e, t01=0x000a}
0x060ea…06114               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR SIGNAL TABBE OVERFLOW!«, t00=0x003e, t01=0x001e}
0x06114…06128               Head {h00=0x0010, h01=0x0050, text=»MEMOVF EQU *«, t00=0x003e, t01=0x0048}
0x06128…0613e               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x003e, t01=0x005c}
0x0613e…06162               Head {h00=0x0020, h01=0x0050, text=» CALL ERROR MEMORY OVERFLOW!«, t00=0x003e, t01=0x0072}
0x06162…0616c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0096}
0x0616c…06180               Head {h00=0x0010, h01=0x0050, text=»AP:350 EQU *«, t00=0x003e, t01=0x00a0}
0x06180…0618a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00b4}
0x0618a…061be               Head {h00=0x0030, h01=0x0050, text=» LDR A5,A5 RESTORE AREA TO USE IN LAST FRAME«, t00=0x003e, t01=0x00be}
0x061be…061d4               Head {h00=0x0012, h01=0x0050, text=» RF(Z) AP:351 «, t00=0x003e, t01=0x00f2}
0x061d4…061de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0108}
0x061de…06204               Head {h00=0x0022, h01=0x0050, text=» LDKL A4,PAGSIZ GET FRAME SIZE«, t00=0x003e, t01=0x0112}
0x06204…06218               Head {h00=0x0010, h01=0x0050, text=»AP:351 EQU *«, t00=0x003e, t01=0x0138}
0x06218…06250               Head {h00=0x0034, h01=0x0050, text=» SUR A4,A5 ALLOCATE REMAINIG AREA IN LAST FRAME «, t00=0x003e, t01=0x014c}
0x06250…06270               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A8 GET MMU ENTRY«, t00=0x003e, t01=0x0184}
0x06270…0629e               Head {h00=0x002a, h01=0x0050, text=» SLL A2,12 MOVE TO FOUR LEFTMOST BITS «, t00=0x003f, t01=0x0014}
0x0629e…062b0               Head {h00=0x000e, h01=0x0050, text=» LDR A8,A2«, t00=0x003f, t01=0x0042}
0x062b0…062d8               Head {h00=0x0024, h01=0x0050, text=» ORR A8,A4 LOGICAL START ADDRESS«, t00=0x003f, t01=0x0054}
0x062d8…06304               Head {h00=0x0028, h01=0x0050, text=» CWK A3,'AS' ASSEMBLER APPLICATION? «, t00=0x003f, t01=0x007c}
0x06304…0631e               Head {h00=0x0016, h01=0x0050, text=» RF(NE) AP:352 NO!«, t00=0x003f, t01=0x00a8}
0x0631e…06328               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00c2}
0x06328…06356               Head {h00=0x002a, h01=0x0050, text=» ADKL A8,10 SKIP FIVE PRECEEDING WORDS«, t00=0x003f, t01=0x00cc}
0x06356…0636a               Head {h00=0x0010, h01=0x0050, text=»AP:352 EQU *«, t00=0x003f, t01=0x00fa}
0x0636a…0638c               Head {h00=0x001e, h01=0x0050, text=» ST A8,LLDADR+STKEND SAVE «, t00=0x003f, t01=0x010e}
0x0638c…063aa               Head {h00=0x001a, h01=0x0050, text=» ST A7,SCTEFA AND SAVE«, t00=0x003f, t01=0x0130}
0x063aa…063da               Head {h00=0x002c, h01=0x0050, text=» ST A4,SCTEFA+2 SAVE OFFSET WITHIN FRAME«, t00=0x003f, t01=0x014e}
0x063da…06418               Head {h00=0x003a, h01=0x0050, text=» ST A7,APLLDA,A1 SAVE APPLICATION LOAD ADDR. (BIT 0-5)«, t00=0x003f, t01=0x017e}
0x06418…06440               Head {h00=0x0024, h01=0x0050, text=» ST A4,APLLDA+2,A1 AND BIT 6-17 «, t00=0x0040, t01=0x002c}
0x06440…06470               Head {h00=0x002c, h01=0x0050, text=» ST A7,FYSPAG+STKCOM SAVE LAST PHYSICAL «, t00=0x0040, t01=0x0054}
0x06470…0649a               Head {h00=0x0026, h01=0x0050, text=» ST A4,LSTADR+STKCOM ADDRESS USED «, t00=0x0040, t01=0x0084}
0x0649a…064ca               Head {h00=0x002c, h01=0x0050, text=» LDR* A1,A6 GET ADDRESS TO PHYSICAL PAGE«, t00=0x0040, t01=0x00ae}
0x064ca…064f2               Head {h00=0x0024, h01=0x0050, text=» ANKL A1,/C000 GREATER THAN 64K?«, t00=0x0040, t01=0x00de}
0x064f2…0650c               Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:353 NO! «, t00=0x0040, t01=0x0106}
0x0650c…06530               Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 UPPER LIMIT 64 KB «, t00=0x0040, t01=0x0120}
0x06530…06542               Head {h00=0x000e, h01=0x0050, text=» RF AP:354«, t00=0x0040, t01=0x0144}
0x06542…06556               Head {h00=0x0010, h01=0x0050, text=»AP:353 EQU *«, t00=0x0040, t01=0x0156}
0x06556…0657e               Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A6 GET PHYSICAL ADDRESS«, t00=0x0040, t01=0x016a}
0x0657e…06590 (65, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0041, t01=0x0004}
0x06590…065b4               Head {h00=0x0020, h01=0x0050, text=» ADR A1,A4 ADD DISPLACEMENT «, t00=0x0041, t01=0x0016}
0x065b4…065e0               Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTSFA GET START OF FREE AREA«, t00=0x0041, t01=0x003a}
0x065e0…0660c               Head {h00=0x0028, h01=0x0050, text=» TNM A1,A2 ON SAME SIDE OF 32K-LIMIT«, t00=0x0041, t01=0x0066}
0x0660c…06628               Head {h00=0x0018, h01=0x0050, text=» RF(NN) AP3532 YES! «, t00=0x0041, t01=0x0092}
0x06628…0663a               Head {h00=0x000e, h01=0x0050, text=» CWR A2,A1«, t00=0x0041, t01=0x00ae}
0x0663a…0664c               Head {h00=0x000e, h01=0x0050, text=» RF AP3534«, t00=0x0041, t01=0x00c0}
0x0664c…06664               Head {h00=0x0014, h01=0x0050, text=»AP3532 CWR A1,A2«, t00=0x0041, t01=0x00d2}
0x06664…06678               Head {h00=0x0010, h01=0x0050, text=»AP3534 EQU *«, t00=0x0041, t01=0x00ea}
0x06678…0669e               Head {h00=0x0022, h01=0x0050, text=» RB(L) MEMOVF MEMORY OVERFLOW!«, t00=0x0041, t01=0x00fe}
0x0669e…066b2               Head {h00=0x0010, h01=0x0050, text=»AP:354 EQU *«, t00=0x0041, t01=0x0124}
0x066b2…066d4               Head {h00=0x001e, h01=0x0050, text=» ST A1,ESYSTA+STKEND SAVE «, t00=0x0041, t01=0x0138}
0x066d4…06706               Head {h00=0x002e, h01=0x0050, text=» LD A10,COMLG,A9 LOAD COMLG OF COMMON PART«, t00=0x0041, t01=0x015a}
0x06706…0672a               Head {h00=0x0020, h01=0x0050, text=» TL TABBE LOAD MMU REGISTERS«, t00=0x0041, t01=0x018c}
0x0672a…06736               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0020}
0x06736…0674c               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0042, t01=0x002c}
0x0674c…0675a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x0042}
0x0675a…0676e               Head {h00=0x0010, h01=0x0050, text=»AP:240 EQU *«, t00=0x0042, t01=0x0050}
0x0676e…06778               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0064}
0x06778…067bc               Head {h00=0x0040, h01=0x0050, text=»*  EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITHOUT MMU OPTION«, t00=0x0042, t01=0x006e}
0x067bc…067c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00b2}
0x067c6…067d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00bc}
0x067d0…067fa               Head {h00=0x0026, h01=0x0050, text=»*  CHECK IF ASSEMBLER APPLICATION «, t00=0x0042, t01=0x00c6}
0x067fa…06804               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00f0}
0x06804…06830               Head {h00=0x0028, h01=0x0050, text=» CWK A6,'AS' ASSEMBLER APPLICATION? «, t00=0x0042, t01=0x00fa}
0x06830…0684a               Head {h00=0x0016, h01=0x0050, text=» RF(E) AP:275 YES!«, t00=0x0042, t01=0x0126}
0x0684a…06878               Head {h00=0x002a, h01=0x0050, text=» LD A2,NUMSEG+8,A9 NUMBER OF SEGMENTS «, t00=0x0042, t01=0x0140}
0x06878…0689a               Head {h00=0x001e, h01=0x0050, text=» RF(Z) AP:275 NO SEGMENTS!«, t00=0x0042, t01=0x016e}
0x0689a…068ca               Head {h00=0x002c, h01=0x0050, text=» CF A14,ALOCSG RESERVE AREA FOR SEGMENTS«, t00=0x0042, t01=0x0190}
0x068ca…068fa               Head {h00=0x002c, h01=0x0050, text=» LDR A2,A7 CONFIGURE LOGICAL START ADDR.«, t00=0x0043, t01=0x0030}
0x068fa…0691c               Head {h00=0x001e, h01=0x0050, text=» SLL A2,2 TO FIRST SEGMENT«, t00=0x0043, t01=0x0060}
0x0691c…0692e               Head {h00=0x000e, h01=0x0050, text=» ORR A2,A5«, t00=0x0043, t01=0x0082}
0x0692e…0694a               Head {h00=0x0018, h01=0x0050, text=» ST A2,LSTASG+STKEND«, t00=0x0043, t01=0x0094}
0x0694a…0695e               Head {h00=0x0010, h01=0x0050, text=»AP:275 EQU *«, t00=0x0043, t01=0x00b0}
0x0695e…06990               Head {h00=0x002e, h01=0x0050, text=» LD A10,COMLG,A9 GET LENGTH OF COMMON PART«, t00=0x0043, t01=0x00c4}
0x06990…069be               Head {h00=0x002a, h01=0x0050, text=» LD A3,APLTYP,A1 GET APPLICATION TYPE «, t00=0x0043, t01=0x00f6}
0x069be…069de               Head {h00=0x001c, h01=0x0050, text=» CWK A3,'AS' ASSEMBLER? «, t00=0x0043, t01=0x0124}
0x069de…069f8               Head {h00=0x0016, h01=0x0050, text=» RF(NE) AP:276 NO!«, t00=0x0043, t01=0x0144}
0x069f8…06a02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x015e}
0x06a02…06a34               Head {h00=0x002e, h01=0x0050, text=» ADKL A10,10 YES, ADD 5 WORDS FOR DEBUGGER«, t00=0x0043, t01=0x0168}
0x06a34…06a48               Head {h00=0x0010, h01=0x0050, text=»AP:276 EQU *«, t00=0x0044, t01=0x000a}
0x06a48…06a5c               Head {h00=0x0010, h01=0x0050, text=» ADKL A10,1 «, t00=0x0044, t01=0x001e}
0x06a5c…06a84               Head {h00=0x0024, h01=0x0050, text=» ANKL A10,/FFFE MAKE EVEN LENGTH«, t00=0x0044, t01=0x0032}
0x06a84…06ac0               Head {h00=0x0038, h01=0x0050, text=» RF(N) AP:278 APPLICATION IS LARGER THAN FRAME SIZE «, t00=0x0044, t01=0x005a}
0x06ac0…06aca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0096}
0x06aca…06b0c               Head {h00=0x003e, h01=0x0050, text=» CWR A10,A5 APPL. IS SMALLER THAN AREA LEFT IN LAST FRAME «, t00=0x0044, t01=0x00a0}
0x06b0c…06b28               Head {h00=0x0018, h01=0x0050, text=» RF(NG) AP:280 YES! «, t00=0x0044, t01=0x00e2}
0x06b28…06b32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00fe}
0x06b32…06b46               Head {h00=0x0010, h01=0x0050, text=»AP:278 EQU *«, t00=0x0044, t01=0x0108}
0x06b46…06b7c               Head {h00=0x0032, h01=0x0050, text=» SUR A10,A5 SUBTRACT AREA UNUSED IN LAST FRAME«, t00=0x0044, t01=0x011c}
0x06b7c…06bac               Head {h00=0x002c, h01=0x0050, text=» LDK A5,0 NO AREA LEFT IN CURRENT FRAME «, t00=0x0044, t01=0x0152}
0x06bac…06bd4               Head {h00=0x0024, h01=0x0050, text=» LDR A2,A10 GET REMAINING LENGTH«, t00=0x0044, t01=0x0182}
0x06bd4…06bfc               Head {h00=0x0024, h01=0x0050, text=» SRL A2,12 COUNT NO OF 4K BLOCKS«, t00=0x0045, t01=0x001a}
0x06bfc…06c2c               Head {h00=0x002c, h01=0x0050, text=» SRL A7,10 FRAME ADDRESS AS BLOCK COUNT «, t00=0x0045, t01=0x0042}
0x06c2c…06c54               Head {h00=0x0024, h01=0x0050, text=» SUR A7,A2 SUBTRACT AREA NEEDED «, t00=0x0045, t01=0x0072}
0x06c54…06c7a               Head {h00=0x0022, h01=0x0050, text=» RF(N) MEMOVF MEMORY OVERFLOW!«, t00=0x0045, t01=0x009a}
0x06c7a…06c84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00c0}
0x06c84…06cb6               Head {h00=0x002e, h01=0x0050, text=» ANKL A10,/0FFF ISOLATE POSSIBLE REMAINDER«, t00=0x0045, t01=0x00ca}
0x06cb6…06cd8               Head {h00=0x001e, h01=0x0050, text=» RF(Z) AP:279 NO REMAINDER«, t00=0x0045, t01=0x00fc}
0x06cd8…06ce2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x011e}
0x06ce2…06d10               Head {h00=0x002a, h01=0x0050, text=» LDKL A5,PAGSIZ RESERVE ONE NEW FRAME «, t00=0x0045, t01=0x0128}
0x06d10…06d22               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0045, t01=0x0156}
0x06d22…06d48               Head {h00=0x0022, h01=0x0050, text=» RF(N) MEMOVF MEMORY OVERFLOW!«, t00=0x0045, t01=0x0168}
0x06d48…06d52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x018e}
0x06d52…06d66               Head {h00=0x0010, h01=0x0050, text=»AP:279 EQU *«, t00=0x0046, t01=0x0008}
0x06d66…06d8e               Head {h00=0x0024, h01=0x0050, text=» SLL A7,10 RESTORE FRAME ADDRESS«, t00=0x0046, t01=0x001c}
0x06d8e…06da2               Head {h00=0x0010, h01=0x0050, text=»AP:280 EQU *«, t00=0x0046, t01=0x0044}
0x06da2…06dd8               Head {h00=0x0032, h01=0x0050, text=» SUR A5,A10 ALLOCATE AREA NEEDED IN LAST FRAME«, t00=0x0046, t01=0x0058}
0x06dd8…06df2               Head {h00=0x0016, h01=0x0050, text=» LDR A4,A9 SAVE A9«, t00=0x0046, t01=0x008e}
0x06df2…06e0e               Head {h00=0x0018, h01=0x0050, text=» LDR A8,A11 SAVE A11«, t00=0x0046, t01=0x00a8}
0x06e0e…06e2c               Head {h00=0x001a, h01=0x0050, text=» ST A7,SCTEFA AND SAVE«, t00=0x0046, t01=0x00c4}
0x06e2c…06e62               Head {h00=0x0032, h01=0x0050, text=» ST A5,SCTEFA+2 SAVE DISPLACEMENT WITHIN PAGE «, t00=0x0046, t01=0x00e2}
0x06e62…06e9c               Head {h00=0x0036, h01=0x0050, text=» ST A7,APLLDA,A1 SAVE PHYSICAL LOAD ADDR (BIT 0-5)«, t00=0x0046, t01=0x0118}
0x06e9c…06ed2               Head {h00=0x0032, h01=0x0050, text=» ST A5,APLLDA+2,A1 AND BIT 6-17 OF APPLICATION«, t00=0x0046, t01=0x0152}
0x06ed2…06f02               Head {h00=0x002c, h01=0x0050, text=» ST A7,FYSPAG+STKCOM SAVE LAST PHYSICAL «, t00=0x0046, t01=0x0188}
0x06f02…06f2c               Head {h00=0x0026, h01=0x0050, text=» ST A5,LSTADR+STKCOM ADDRESS USED «, t00=0x0047, t01=0x0028}
0x06f2c…06f3e               Head {h00=0x000e, h01=0x0050, text=» SLL A7,2 «, t00=0x0047, t01=0x0052}
0x06f3e…06f52               Head {h00=0x0010, h01=0x0050, text=» LDR A11,A7 «, t00=0x0047, t01=0x0064}
0x06f52…06f84               Head {h00=0x002e, h01=0x0050, text=» ORR A11,A5 MAKE ADDRESS AS A 16 BIT ADDR.«, t00=0x0047, t01=0x0078}
0x06f84…06fb0               Head {h00=0x0028, h01=0x0050, text=» LD A9,SCTSFA GET START OF FREE AREA«, t00=0x0047, t01=0x00aa}
0x06fb0…06fd8               Head {h00=0x0024, h01=0x0050, text=» CALL CMPADR A11 COMPARED TO A9 «, t00=0x0047, t01=0x00d6}
0x06fd8…06fee               Head {h00=0x0012, h01=0x0050, text=» RF(G) AP:290 «, t00=0x0047, t01=0x00fe}
0x06fee…06ff8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0114}
0x06ff8…0700c               Head {h00=0x0010, h01=0x0050, text=»MEMOVF EQU *«, t00=0x0047, t01=0x011e}
0x0700c…07032               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP3 MEMORY OVERFLOW!«, t00=0x0047, t01=0x0132}
0x07032…07046               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0047, t01=0x0158}
0x07046…07050               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x016c}
0x07050…07064               Head {h00=0x0010, h01=0x0050, text=»AP:290 EQU *«, t00=0x0047, t01=0x0176}
0x07064…07090               Head {h00=0x0028, h01=0x0050, text=» CWK A3,'AS' ASSEMBLER APPLICATION? «, t00=0x0047, t01=0x018a}
0x07090…070aa               Head {h00=0x0016, h01=0x0050, text=» RF(NE) AP:295 NO!«, t00=0x0048, t01=0x0026}
0x070aa…070b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0040}
0x070b4…070e0               Head {h00=0x0028, h01=0x0050, text=» ADKL A11,10 SKIP 5 PRECEEDING WORDS«, t00=0x0048, t01=0x004a}
0x070e0…070f4               Head {h00=0x0010, h01=0x0050, text=»AP:295 EQU *«, t00=0x0048, t01=0x0076}
0x070f4…0712a               Head {h00=0x0032, h01=0x0050, text=» ST A11,LLDADR+STKEND SAVE APPL. LOAD ADDRESS «, t00=0x0048, t01=0x008a}
0x0712a…07148               Head {h00=0x001a, h01=0x0050, text=» LDR A9,A4 RESTORE A9 «, t00=0x0048, t01=0x00c0}
0x07148…07168               Head {h00=0x001c, h01=0x0050, text=» LDR A11,A8 RESTORE A11 «, t00=0x0048, t01=0x00de}
0x07168…0719e               Head {h00=0x0032, h01=0x0050, text=» LD A8,LLDADR+STKEND A8 - LOGICAL LOAD ADDRESS«, t00=0x0048, t01=0x00fe}
0x0719e…071d8               Head {h00=0x0036, h01=0x0050, text=» ST A8,ESYSTA+STKEND SAVE APPLICATION LOAD-ADDRESS«, t00=0x0048, t01=0x0134}
0x071d8…0720a               Head {h00=0x002e, h01=0x0050, text=» LD A10,COMLG,A9 GET LENGTH OF COMMON PART«, t00=0x0048, t01=0x016e}
0x0720a…07216               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x0010}
0x07216…07224               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x001c}
0x07224…0722e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x002a}
0x0722e…0724e               Head {h00=0x001c, h01=0x0050, text=»*  COMMON EXECUTION PATH«, t00=0x0049, t01=0x0034}
0x0724e…07258               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0054}
0x07258…07296               Head {h00=0x003a, h01=0x0050, text=»*  READ AND RELOCATE CORE RESIDENT PART OF APPLICATION«, t00=0x0049, t01=0x005e}
0x07296…072a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x009c}
0x072a0…072c8               Head {h00=0x0024, h01=0x0050, text=»*  A8 - APPLICATION LOAD ADDRESS«, t00=0x0049, t01=0x00a6}
0x072c8…072f6               Head {h00=0x002a, h01=0x0050, text=»*  A10 - LENGTH OF CORE RESIDENT PART «, t00=0x0049, t01=0x00ce}
0x072f6…07300               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00fc}
0x07300…07314               Head {h00=0x0010, h01=0x0050, text=»AP:355 EQU *«, t00=0x0049, t01=0x0106}
0x07314…07354               Head {h00=0x003c, h01=0x0050, text=» LD A1,CURAPL+STKEND RESTORE APPL. CONTROL BLOCK POINTER«, t00=0x0049, t01=0x011a}
0x07354…07382               Head {h00=0x002a, h01=0x0050, text=» ST A8,APLLAC,A1 SAVE LOGICAL ADDRESS «, t00=0x0049, t01=0x015a}
0x07382…073bc               Head {h00=0x0036, h01=0x0050, text=» ST A8,APLREL,A1 SAVE APPLICATION RELOCATION BASE «, t00=0x0049, t01=0x0188}
0x073bc…073f4               Head {h00=0x0034, h01=0x0050, text=» CM FSTSEC+STKEND RESET FIRST SECTOR/BLOCK IND. «, t00=0x004a, t01=0x0032}
0x073f4…0742e               Head {h00=0x0036, h01=0x0050, text=» LDKL A7,240 INITIATE NR OF CODE WORDS/SECT/BLOCK «, t00=0x004a, t01=0x006a}
0x0742e…07456               Head {h00=0x0024, h01=0x0050, text=» ST A7,LOD:10 MODIFY INSTRUCTION«, t00=0x004a, t01=0x00a4}
0x07456…07484               Head {h00=0x002a, h01=0x0050, text=» CF A14,LODCOM LOAD CORE RESIDENT PART«, t00=0x004a, t01=0x00cc}
0x07484…0748e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00fa}
0x0748e…074b8               Head {h00=0x0026, h01=0x0050, text=»*  CHECK IF ASSEMBLER APPLICATION «, t00=0x004a, t01=0x0104}
0x074b8…074c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x012e}
0x074c2…074fe               Head {h00=0x0038, h01=0x0050, text=» LD A1,CURAPL+STKEND GET CURRENT APPL. CONTR. BLOCK «, t00=0x004a, t01=0x0138}
0x074fe…0752e               Head {h00=0x002c, h01=0x0050, text=» LD A2,APLTYP,A1 AND TYPE OF THIS APPL. «, t00=0x004a, t01=0x0174}
0x0752e…0755a               Head {h00=0x0028, h01=0x0050, text=» CWK A2,'AS' ASSEMBLER APPLICATION? «, t00=0x004b, t01=0x0014}
0x0755a…07574               Head {h00=0x0016, h01=0x0050, text=» ABL(E) AP:400 YES«, t00=0x004b, t01=0x0040}
0x07574…075b2               Head {h00=0x003a, h01=0x0050, text=» LD A8,LSTASG+STKEND GET LOGICAL ADDRESS TO FIRST PAGE«, t00=0x004b, t01=0x005a}
0x075b2…075e6               Head {h00=0x0030, h01=0x0050, text=» LD A2,TNBRSG+STKEND GET NUMBER OF SEGMENTS «, t00=0x004b, t01=0x0098}
0x075e6…07618               Head {h00=0x002e, h01=0x0050, text=» ABL(Z) AP:400 NO SEGMENTS IN APPLICATION «, t00=0x004b, t01=0x00cc}
0x07618…07622               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00fe}
0x07622…0765a               Head {h00=0x0034, h01=0x0050, text=» CM SEGCNT+STKEND CLEAR NO OF SEGMENTS PROCESSED«, t00=0x004b, t01=0x0108}
0x0765a…07670               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004b, t01=0x0140}
0x07670…076a2               Head {h00=0x002e, h01=0x0050, text=» TS MMDDIV,A13 SAVE MMU REGISTER CONTENTS «, t00=0x004b, t01=0x0156}
0x076a2…076ae               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004b, t01=0x0188}
0x076ae…076c2 (76, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»AP:360 EQU *«, t00=0x004c, t01=0x0004}
0x076c2…076cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0018}
0x076cc…076f6               Head {h00=0x0026, h01=0x0050, text=»*  READ AND RELOCATE THE SEGMENTS «, t00=0x004c, t01=0x0022}
0x076f6…07700               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x004c}
0x07700…07732               Head {h00=0x002e, h01=0x0050, text=»*  A8 - LOGICAL ADDRESS OF SAVE05 SEGMENT «, t00=0x004c, t01=0x0056}
0x07732…07752               Head {h00=0x001c, h01=0x0050, text=»*  A10 - SEGMENT LENGTH «, t00=0x004c, t01=0x0088}
0x07752…0775c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00a8}
0x0775c…07796               Head {h00=0x0036, h01=0x0050, text=» LD A3,CURAPL+STKEND GET APPL. CONTROL BLOCK ADDR.«, t00=0x004c, t01=0x00b2}
0x07796…077ca               Head {h00=0x0030, h01=0x0050, text=» LD A2,APLLAC,A3 GET LOGICAL ADDR. TO APPL. «, t00=0x004c, t01=0x00ec}
0x077ca…077e8               Head {h00=0x001a, h01=0x0050, text=» ADKL A2,BLKLEN+BLKLEN«, t00=0x004c, t01=0x0120}
0x077e8…07818               Head {h00=0x002c, h01=0x0050, text=» LD A1,SEGCNT+STKEND GET SEGMENT COUNTER«, t00=0x004c, t01=0x013e}
0x07818…0782c               Head {h00=0x0010, h01=0x0050, text=»AP:365 EQU *«, t00=0x004c, t01=0x016e}
0x0782c…07842               Head {h00=0x0012, h01=0x0050, text=» RF(Z) AP:370 «, t00=0x004c, t01=0x0182}
0x07842…07864               Head {h00=0x001e, h01=0x0050, text=» ADK A2,BLKLEN NEXT BLOCK «, t00=0x004d, t01=0x0008}
0x07864…0788e               Head {h00=0x0026, h01=0x0050, text=» SUK A1,1 DECREMENT BLOCK COUNTER «, t00=0x004d, t01=0x002a}
0x0788e…078a0               Head {h00=0x000e, h01=0x0050, text=» RB AP:365«, t00=0x004d, t01=0x0054}
0x078a0…078b4               Head {h00=0x0010, h01=0x0050, text=»AP:370 EQU *«, t00=0x004d, t01=0x0066}
0x078b4…078be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x007a}
0x078be…078de               Head {h00=0x001c, h01=0x0050, text=»*  CHECK IF DISC PAGING «, t00=0x004d, t01=0x0084}
0x078de…078e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00a4}
0x078e8…0790e               Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x004d, t01=0x00ae}
0x0790e…0792c               Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x004d, t01=0x00d4}
0x0792c…07946               Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:376 NO! «, t00=0x004d, t01=0x00f2}
0x07946…07950               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x010c}
0x07950…0797a               Head {h00=0x0026, h01=0x0050, text=»*  CHECK IF CORE RESIDENT SEGMENT «, t00=0x004d, t01=0x0116}
0x0797a…07984               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0140}
0x07984…079aa               Head {h00=0x0022, h01=0x0050, text=» CALL GETCON GET SEGMENT TYPE «, t00=0x004d, t01=0x014a}
0x079aa…079d8               Head {h00=0x002a, h01=0x0050, text=» LDR A12,A1 GET MOST SIGNIFICANT PART «, t00=0x004d, t01=0x0170}
0x079d8…079fe               Head {h00=0x0022, h01=0x0050, text=» ANKL A12,/FF OF DISC ADDRESS «, t00=0x004e, t01=0x000e}
0x079fe…07a2c               Head {h00=0x002a, h01=0x0050, text=» SRL A1,8 SEGMENT TYPE TO RIGHT BYTE  «, t00=0x004e, t01=0x0034}
0x07a2c…07a58               Head {h00=0x0028, h01=0x0050, text=» CCK A1,'RR' CORE RESIDENT SEGMENT? «, t00=0x004e, t01=0x0062}
0x07a58…07a86               Head {h00=0x002a, h01=0x0050, text=» RF(E) AP:376 YES: LOAD THIS SEGMENT! «, t00=0x004e, t01=0x008e}
0x07a86…07a90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00bc}
0x07a90…07abe               Head {h00=0x002a, h01=0x0050, text=»*  BYPASS THIS SEGMENT AND CHECK NEXT «, t00=0x004e, t01=0x00c6}
0x07abe…07ac8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00f4}
0x07ac8…07af8               Head {h00=0x002c, h01=0x0050, text=» LD A1,SEGCNT+STKEND GET SEGMENT COUNTER«, t00=0x004e, t01=0x00fe}
0x07af8…07b32               Head {h00=0x0036, h01=0x0050, text=» LD A2,TNBRSG+STKEND GET TOTAL NUMBER OF SEGMENTS «, t00=0x004e, t01=0x012e}
0x07b32…07b4e               Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 INCREMENT «, t00=0x004e, t01=0x0168}
0x07b4e…07b6e               Head {h00=0x001c, h01=0x0050, text=» CWR A1,A2 LAST SEGMENT?«, t00=0x004e, t01=0x0184}
0x07b6e…07b8a               Head {h00=0x0018, h01=0x0050, text=» ABL(E) AP:400 YES! «, t00=0x004f, t01=0x0014}
0x07b8a…07bc2               Head {h00=0x0034, h01=0x0050, text=» ST A1,SEGCNT+STKEND SAVE CURRENT SEGMENT NUMBER«, t00=0x004f, t01=0x0030}
0x07bc2…07bd4               Head {h00=0x000e, h01=0x0050, text=» RB AP:360«, t00=0x004f, t01=0x0068}
0x07bd4…07bfe               Head {h00=0x0026, h01=0x0050, text=»AP:375 LDKL A1,LMP2 DISC I/O ERROR«, t00=0x004f, t01=0x007a}
0x07bfe…07c12               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x004f, t01=0x00a4}
0x07c12…07c20               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x00b8}
0x07c20…07c34               Head {h00=0x0010, h01=0x0050, text=»AP:376 EQU *«, t00=0x004f, t01=0x00c6}
0x07c34…07c5a               Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 DISC SECTOR ADDRESS «, t00=0x004f, t01=0x00da}
0x07c5a…07c86               Head {h00=0x0028, h01=0x0050, text=» CALL GETCON GET DISC SECTOR ADDRESS«, t00=0x004f, t01=0x0100}
0x07c86…07c9e               Head {h00=0x0014, h01=0x0050, text=» LDR A11,A1 SAVE«, t00=0x004f, t01=0x012c}
0x07c9e…07cda               Head {h00=0x0038, h01=0x0050, text=» AD A11,APLADA+2,A3 ADD LEAST SIGN. PART OF A.D.A.? «, t00=0x004f, t01=0x0144}
0x07cda…07cf8               Head {h00=0x001a, h01=0x0050, text=» RF(O) AP:377 OVERFLOW«, t00=0x004f, t01=0x0180}
0x07cf8…07d18               Head {h00=0x001c, h01=0x0050, text=» RF AP:378 NOT OVERFLOW «, t00=0x0050, t01=0x000e}
0x07d18…07d50               Head {h00=0x0034, h01=0x0050, text=»AP:377 ADKL A12,1 INCR. M. S. P. OF DISC ADDRESS«, t00=0x0050, t01=0x002e}
0x07d50…07d76               Head {h00=0x0022, h01=0x0050, text=» ANKL A11,/7FFF RESET OVERFLOW«, t00=0x0050, t01=0x0066}
0x07d76…07dae               Head {h00=0x0034, h01=0x0050, text=»AP:378 AD A12,APLADA,A3 ADD M. S. P. OF A. D. A.«, t00=0x0050, t01=0x008c}
0x07dae…07dcc               Head {h00=0x001a, h01=0x0050, text=» CWK A12,255 OVERFLOW?«, t00=0x0050, t01=0x00c4}
0x07dcc…07dfc               Head {h00=0x002c, h01=0x0050, text=» RB(G) AP:375 YES: ILLEGAL DISC ADDRESS!«, t00=0x0050, t01=0x00e2}
0x07dfc…07e1c               Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 SEGMENT LENGTH«, t00=0x0050, t01=0x0112}
0x07e1c…07e44               Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET SEGMENT LENGTH «, t00=0x0050, t01=0x0132}
0x07e44…07e5c               Head {h00=0x0014, h01=0x0050, text=» LDR A10,A1 SAVE«, t00=0x0050, t01=0x015a}
0x07e5c…07e70               Head {h00=0x0010, h01=0x0050, text=» ADKL A10,1 «, t00=0x0050, t01=0x0172}
0x07e70…07e98               Head {h00=0x0024, h01=0x0050, text=» ANKL A10,/FFFE MAKE EVEN LENGTH«, t00=0x0050, t01=0x0186}
0x07e98…07eb4               Head {h00=0x0018, h01=0x0050, text=» ST A8,LLDADR+STKEND«, t00=0x0051, t01=0x001e}
0x07eb4…07ed8               Head {h00=0x0020, h01=0x0050, text=» CF A14,LODSEG LOAD SEGMENT «, t00=0x0051, t01=0x003a}
0x07ed8…07f08               Head {h00=0x002c, h01=0x0050, text=» LD A1,SEGCNT+STKEND GET SEGMENT COUNTER«, t00=0x0051, t01=0x005e}
0x07f08…07f42               Head {h00=0x0036, h01=0x0050, text=» LD A2,TNBRSG+STKEND GET TOTAL NUMBER OF SEGMENTS «, t00=0x0051, t01=0x008e}
0x07f42…07f6e               Head {h00=0x0028, h01=0x0050, text=» ADK A1,1 INCREMENT SEGMENT COUNTER «, t00=0x0051, t01=0x00c8}
0x07f6e…07f96               Head {h00=0x0024, h01=0x0050, text=» CWR A1,A2 ALL SEGMENTS LOADED? «, t00=0x0051, t01=0x00f4}
0x07f96…07fb2               Head {h00=0x0018, h01=0x0050, text=» ABL(E) AP:400 YES! «, t00=0x0051, t01=0x011c}
0x07fb2…07fe4               Head {h00=0x002e, h01=0x0050, text=» ST A1,SEGCNT+STKEND STORE SEGMENT COUNTER«, t00=0x0051, t01=0x0138}
0x07fe4…08024               Head {h00=0x003c, h01=0x0050, text=» LD A3,CURAPL+STKEND GET CURRENT APPL. CONTROL BLOCK =2 «, t00=0x0051, t01=0x016a}
0x08024…08058               Head {h00=0x0030, h01=0x0050, text=» LD A4,APLPSZ,A3 AND SEGMENT SIZE DEFINED =2«, t00=0x0052, t01=0x001a}
0x08058…0806e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0052, t01=0x004e}
0x0806e…0809e               Head {h00=0x002c, h01=0x0050, text=» ADR A8,A4 COMPUTE ADDRESS TO NEXT PAGE «, t00=0x0052, t01=0x0064}
0x0809e…080b0               Head {h00=0x000e, h01=0x0050, text=» RB AP:360«, t00=0x0052, t01=0x0094}
0x080b0…080bc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x00a6}
0x080bc…080d2               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0052, t01=0x00b2}
0x080d2…080e0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x00c8}
0x080e0…080f4               Head {h00=0x0010, h01=0x0050, text=»AP:379 EQU *«, t00=0x0052, t01=0x00d6}
0x080f4…0810c               Head {h00=0x0014, h01=0x0050, text=» LDR A1,A4 SAVE «, t00=0x0052, t01=0x00ea}
0x0810c…0813e               Head {h00=0x002e, h01=0x0050, text=» ANKL A4,/0C00 GET MODULO 4K DISCRIMINANT «, t00=0x0052, t01=0x0102}
0x0813e…08164               Head {h00=0x0022, h01=0x0050, text=» RF(Z) AP:380 NO DISCRIMINANT!«, t00=0x0052, t01=0x0134}
0x08164…0819c               Head {h00=0x0034, h01=0x0050, text=» ADR A1,A8 COMPUTE LOGICAL ADDRESS TO NEXT PAGE «, t00=0x0052, t01=0x015a}
0x0819c…081b4 (83, 0, 400)  Head {h00=0x0014, h01=0x0050, text=» LDR A4,A1 SAVE «, t00=0x0053, t01=0x0004}
0x081b4…081e6               Head {h00=0x002e, h01=0x0050, text=» ANKL A4,/0C00 GET MODULO 4K DISCRIMINANT «, t00=0x0053, t01=0x001c}
0x081e6…0821a               Head {h00=0x0030, h01=0x0050, text=» ANKL A1,/F000 LOGICAL ADDRESS TO NEXT PAGE «, t00=0x0053, t01=0x004e}
0x0821a…08250               Head {h00=0x0032, h01=0x0050, text=» ANKL A8,/F000 LOGICAL ADDRESS TO CURRENT PAGE«, t00=0x0053, t01=0x0082}
0x08250…0827e               Head {h00=0x002a, h01=0x0050, text=» SUR A1,A8 COMPUTE PHYSICAL INCREMENT «, t00=0x0053, t01=0x00b8}
0x0827e…08292               Head {h00=0x0010, h01=0x0050, text=»AP:380 EQU *«, t00=0x0053, t01=0x00e6}
0x08292…082c0               Head {h00=0x002a, h01=0x0050, text=» LD A8,APLLAP,A3 LOGICAL PAGE ADDRESS «, t00=0x0053, t01=0x00fa}
0x082c0…082d8               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A8 SAVE «, t00=0x0053, t01=0x0128}
0x082d8…08310               Head {h00=0x0034, h01=0x0050, text=» ADR A8,A4 COMPUTE LOGICAL ADDRESS TO NEXT PAGE «, t00=0x0053, t01=0x0140}
0x08310…0833c               Head {h00=0x0028, h01=0x0050, text=» SRL A2,12 MOVE TO 4 RIGHTMOST BITS «, t00=0x0053, t01=0x0178}
0x0833c…0835a               Head {h00=0x001a, h01=0x0050, text=» ADR A2,A2 2*MMU ENTRY«, t00=0x0054, t01=0x0014}
0x0835a…0836e               Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x0054, t01=0x0032}
0x0836e…08398               Head {h00=0x0026, h01=0x0050, text=» ADKL A2,MMDDIV MMU ENTRY ADDRESS «, t00=0x0054, t01=0x0046}
0x08398…083ac               Head {h00=0x0010, h01=0x0050, text=» LDR A3,A13 «, t00=0x0054, t01=0x0070}
0x083ac…083c6               Head {h00=0x0016, h01=0x0050, text=» ADKL A3,MMDDIV+32«, t00=0x0054, t01=0x0084}
0x083c6…083f4               Head {h00=0x002a, h01=0x0050, text=» SRL A1,2 MAP PHYSICAL ADDRESS ON MMU «, t00=0x0054, t01=0x009e}
0x083f4…08408               Head {h00=0x0010, h01=0x0050, text=»AP:385 EQU *«, t00=0x0054, t01=0x00cc}
0x08408…08438               Head {h00=0x002c, h01=0x0050, text=» ADRS A1,A2 LOGICAL ADDRESS TO NEXT PAGE«, t00=0x0054, t01=0x00e0}
0x08438…08458               Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 NEXT MMU ENTRY«, t00=0x0054, t01=0x0110}
0x08458…0846a               Head {h00=0x000e, h01=0x0050, text=» CWR A2,A3«, t00=0x0054, t01=0x0130}
0x0846a…08480               Head {h00=0x0012, h01=0x0050, text=» RB(NE) AP:385«, t00=0x0054, t01=0x0142}
0x08480…084aa               Head {h00=0x0026, h01=0x0050, text=» TL MMDDIV,A13 LOAD MMU REGISTERS «, t00=0x0054, t01=0x0158}
0x084aa…084bc               Head {h00=0x000e, h01=0x0050, text=» RB AP:360«, t00=0x0054, t01=0x0182}
0x084bc…084c6 (85, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0004}
0x084c6…084d2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x000e}
0x084d2…084e0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x001a}
0x084e0…084f4               Head {h00=0x0010, h01=0x0050, text=»AP:400 EQU *«, t00=0x0055, t01=0x0028}
0x084f4…08530               Head {h00=0x0038, h01=0x0050, text=» LD A1,CURAPL+STKEND GET CURRENT APPL.CONTROL BLOCK «, t00=0x0055, t01=0x003c}
0x08530…0854a               Head {h00=0x0016, h01=0x0050, text=» IM APLCNT+STKEND «, t00=0x0055, t01=0x0078}
0x0854a…08578               Head {h00=0x002a, h01=0x0050, text=» ABL(Z) CONLOD ALL APPLICATIONS LOADED«, t00=0x0055, t01=0x0092}
0x08578…08582               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00c0}
0x08582…085b4               Head {h00=0x002e, h01=0x0050, text=» ADK A1,ACBLEN ADVANCE TO NEXT APPLICATION«, t00=0x0055, t01=0x00ca}
0x085b4…085ea               Head {h00=0x0032, h01=0x0050, text=» ST A1,CURAPL+STKEND APPLICATION CONTROL BLOCK«, t00=0x0055, t01=0x00fc}
0x085ea…08622               Head {h00=0x0034, h01=0x0050, text=» LD A12,APLADA,A1 MOST SIGN. PART OF DISC ADDR. «, t00=0x0055, t01=0x0132}
0x08622…0865c               Head {h00=0x0036, h01=0x0050, text=» LD A11,APLADA+2,A1 LEAST SIGN. PART OF DISC ADDR.«, t00=0x0055, t01=0x016a}
0x0865c…08688               Head {h00=0x0028, h01=0x0050, text=» LD A10,READ GET SUBROUTINE ADDRESS «, t00=0x0056, t01=0x0014}
0x08688…086ae               Head {h00=0x0022, h01=0x0050, text=» CFR A14,A10 READ FIRST SECTOR«, t00=0x0056, t01=0x0040}
0x086ae…086c2               Head {h00=0x0010, h01=0x0050, text=» ABL AP:234 «, t00=0x0056, t01=0x0066}
0x086c2…086d0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x007a}
0x086d0…08706               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0056, t01=0x0088}
0x08706…0873c               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0056, t01=0x00be}
0x0873c…08772               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0056, t01=0x00f4}
0x08772…087a8               Head {h00=0x0032, h01=0x0050, text=»*                ALOCSG                     * «, t00=0x0056, t01=0x012a}
0x087a8…087de               Head {h00=0x0032, h01=0x0050, text=»*                ======                     * «, t00=0x0056, t01=0x0160}
0x087de…08814               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0057, t01=0x0008}
0x08814…0884a               Head {h00=0x0032, h01=0x0050, text=»*   RESERVE PAGES FOR RESIDENT SEGMENTS     * «, t00=0x0057, t01=0x003e}
0x0884a…08880               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0057, t01=0x0074}
0x08880…088b6               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0057, t01=0x00aa}
0x088b6…088ec               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0057, t01=0x00e0}
0x088ec…088f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0116}
0x088f6…08900               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0120}
0x08900…08914               Head {h00=0x0010, h01=0x0050, text=»ALOCSG EQU *«, t00=0x0057, t01=0x012a}
0x08914…08948               Head {h00=0x0030, h01=0x0050, text=» ST A2,TNBRSG+STKEND SAVE NUMBER OF SEGMENTS«, t00=0x0057, t01=0x013e}
0x08948…08984               Head {h00=0x0038, h01=0x0050, text=» CM SEGCNT+STKEND RESET NO OF CORE RESIDENT SEGMENTS«, t00=0x0057, t01=0x0172}
0x08984…089b2               Head {h00=0x002a, h01=0x0050, text=» ST A3,APLPSZ,A1 SAVE SEGMENT SIZE =2 «, t00=0x0058, t01=0x001e}
0x089b2…089d8               Head {h00=0x0022, h01=0x0050, text=» LD A4,SCTOPT GET OPTION WORD «, t00=0x0058, t01=0x004c}
0x089d8…089f6               Head {h00=0x001a, h01=0x0050, text=» SRC A4,2 DISC PAGING?«, t00=0x0058, t01=0x0072}
0x089f6…08a10               Head {h00=0x0016, h01=0x0050, text=» RF(NN) ALSG04 NO!«, t00=0x0058, t01=0x0090}
0x08a10…08a1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00aa}
0x08a1a…08a48               Head {h00=0x002a, h01=0x0050, text=» LD A4,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x0058, t01=0x00b4}
0x08a48…08a6e               Head {h00=0x0022, h01=0x0050, text=» SUK A4,/F0 CHECK IF CASSETTE «, t00=0x0058, t01=0x00e2}
0x08a6e…08aa2               Head {h00=0x0030, h01=0x0050, text=» RF(N) ALSG04 CASSETTE - LOAD ALL SEGMENTS! «, t00=0x0058, t01=0x0108}
0x08aa2…08aac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x013c}
0x08aac…08adc               Head {h00=0x002c, h01=0x0050, text=»*  COMPUTE NUMBER OF CORE RESIDENT PAGES«, t00=0x0058, t01=0x0146}
0x08adc…08ae6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0176}
0x08ae6…08b0e               Head {h00=0x0024, h01=0x0050, text=» LDR A6,A9 START OF APPLICATION «, t00=0x0058, t01=0x0180}
0x08b0e…08b38               Head {h00=0x0026, h01=0x0050, text=» ADK A6,14 START OF SEGMENT BLOCKS«, t00=0x0059, t01=0x0018}
0x08b38…08b4c               Head {h00=0x0010, h01=0x0050, text=»ALSG00 EQU *«, t00=0x0059, t01=0x0042}
0x08b4c…08b70               Head {h00=0x0020, h01=0x0050, text=» ADK A6,6 NEXT SEGMENT BLOCK«, t00=0x0059, t01=0x0056}
0x08b70…08b92               Head {h00=0x001e, h01=0x0050, text=»*  LOOK IF OUTSIDE BUFFER «, t00=0x0059, t01=0x007a}
0x08b92…08bac               Head {h00=0x0016, h01=0x0050, text=»*  IF SO READ NEXT«, t00=0x0059, t01=0x009c}
0x08bac…08bc4               Head {h00=0x0014, h01=0x0050, text=»*  SECTOR BLOCK «, t00=0x0059, t01=0x00b6}
0x08bc4…08bce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00ce}
0x08bce…08bf6               Head {h00=0x0024, h01=0x0050, text=» LDR A4,A6 SAVE BUFFER POSITION «, t00=0x0059, t01=0x00d8}
0x08bf6…08c1a               Head {h00=0x0020, h01=0x0050, text=» SUR A4,A9 RELATIVE POSITION«, t00=0x0059, t01=0x0100}
0x08c1a…08c46               Head {h00=0x0028, h01=0x0050, text=» CWK A4,BUFLEN-16 OUTSIDE BUFFER? =5«, t00=0x0059, t01=0x0124}
0x08c46…08c60               Head {h00=0x0016, h01=0x0050, text=» RF(NG) ALSG01 NO!«, t00=0x0059, t01=0x0150}
0x08c60…08c6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x016a}
0x08c6a…08c92               Head {h00=0x0024, h01=0x0050, text=» CF A14,NXTSEC READ NEXT SECTOR «, t00=0x0059, t01=0x0174}
0x08c92…08cce               Head {h00=0x0038, h01=0x0050, text=» SUK A6,BUFLEN-16 COMPENSATE FOR RELOCATION BITS =5 «, t00=0x005a, t01=0x000c}
0x08cce…08cf6               Head {h00=0x0024, h01=0x0050, text=»   AND RESET BUFFER POSITION =5 «, t00=0x005a, t01=0x0048}
0x08cf6…08d00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0070}
0x08d00…08d14               Head {h00=0x0010, h01=0x0050, text=»ALSG01 EQU *«, t00=0x005a, t01=0x007a}
0x08d14…08d38               Head {h00=0x0020, h01=0x0050, text=» LCR A4,A6 GET SEGMENT TYPE «, t00=0x005a, t01=0x008e}
0x08d38…08d64               Head {h00=0x0028, h01=0x0050, text=» CCK A4,'RR' CORE RESIDENT SEGMENT? «, t00=0x005a, t01=0x00b2}
0x08d64…08d7e               Head {h00=0x0016, h01=0x0050, text=» RF(NE) ALSG02 NO!«, t00=0x005a, t01=0x00de}
0x08d7e…08dba               Head {h00=0x0038, h01=0x0050, text=» IM SEGCNT+STKEND INCREMENT RESIDENT SEGMENT COUNTER«, t00=0x005a, t01=0x00f8}
0x08dba…08dce               Head {h00=0x0010, h01=0x0050, text=»ALSG02 EQU *«, t00=0x005a, t01=0x0134}
0x08dce…08df0               Head {h00=0x001e, h01=0x0050, text=» SUK A2,1 MOORE SEGMENTS? «, t00=0x005a, t01=0x0148}
0x08df0…08e0c               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) ALSG00 YES! «, t00=0x005a, t01=0x016a}
0x08e0c…08e44               Head {h00=0x0034, h01=0x0050, text=» LD A2,SEGCNT+STKEND NUMBER OF RESIDENT SEGMENTS«, t00=0x005a, t01=0x0186}
0x08e44…08e70               Head {h00=0x0028, h01=0x0050, text=» RF(Z) ALSG12 NO RESIDENT SEGMENTS! «, t00=0x005b, t01=0x002e}
0x08e70…08e84               Head {h00=0x0010, h01=0x0050, text=»ALSG04 EQU *«, t00=0x005b, t01=0x005a}
0x08e84…08ebe               Head {h00=0x0036, h01=0x0050, text=» ST A2,SEGCNT+STKEND SAVE NBR OF RESIDENT SEGMENTS«, t00=0x005b, t01=0x006e}
0x08ebe…08ef6               Head {h00=0x0034, h01=0x0050, text=» ADS A2,SCTNOP ACKUMULATE NO OF CORE RES. SEGM. «, t00=0x005b, t01=0x00a8}
0x08ef6…08f1c               Head {h00=0x0022, h01=0x0050, text=» LD A6,SCTOPT GET OPTION WORD «, t00=0x005b, t01=0x00e0}
0x08f1c…08f2e               Head {h00=0x000e, h01=0x0050, text=» SRC A6,1 «, t00=0x005b, t01=0x0106}
0x08f2e…08f56               Head {h00=0x0024, h01=0x0050, text=» RF(NN) ALSG08 NO MMU IN SYSTEM «, t00=0x005b, t01=0x0118}
0x08f56…08f60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0140}
0x08f60…08f84               Head {h00=0x0020, h01=0x0050, text=» LDR A6,A3 GET SEGMENT SIZE «, t00=0x005b, t01=0x014a}
0x08f84…08f9a               Head {h00=0x0012, h01=0x0050, text=» ANKL A6,/FFF «, t00=0x005b, t01=0x016e}
0x08f9a…08fcc               Head {h00=0x002e, h01=0x0050, text=» RF(NZ) ALSG08 NOT A MULTIPLE OF 4K BYTES «, t00=0x005b, t01=0x0184}
0x08fcc…08fd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0026}
0x08fd6…0900a               Head {h00=0x0030, h01=0x0050, text=» LDR A5,A5 LOOK IF ALREADY ON A 4K BOUNDARY «, t00=0x005c, t01=0x0030}
0x0900a…09024               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ALSG08 YES «, t00=0x005c, t01=0x0064}
0x09024…0902e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x007e}
0x0902e…09056               Head {h00=0x0024, h01=0x0050, text=» LDK A5,0 START ON A 4K BOUNDARY«, t00=0x005c, t01=0x0088}
0x09056…0906a               Head {h00=0x0010, h01=0x0050, text=»ALSG08 EQU *«, t00=0x005c, t01=0x00b0}
0x0906a…09098               Head {h00=0x002a, h01=0x0050, text=» LDR A7,A7 LOOK IF 256 KBYTE MEMORY =3«, t00=0x005c, t01=0x00c4}
0x09098…090b6               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ALSG8B NO! =3 «, t00=0x005c, t01=0x00f2}
0x090b6…090e6               Head {h00=0x002c, h01=0x0050, text=» LDKL A5,PAGSIZ YES LAST FRAME EMPTY =3 «, t00=0x005c, t01=0x0110}
0x090e6…09116               Head {h00=0x002c, h01=0x0050, text=» SUKL A7,/400 BEGINNING OF LAST FRAME =3«, t00=0x005c, t01=0x0140}
0x09116…0912a               Head {h00=0x0010, h01=0x0050, text=»ALSG8B EQU *«, t00=0x005c, t01=0x0170}
0x0912a…0915c               Head {h00=0x002e, h01=0x0050, text=» ANKL A5,/1C00 ALWAYS START ON 1K BOUNDARY«, t00=0x005c, t01=0x0184}
0x0915c…0918e               Head {h00=0x002e, h01=0x0050, text=» SRL A3,1 MAKE SEGMENT LENGTH IN WORDS =2 «, t00=0x005d, t01=0x0026}
0x0918e…091ba               Head {h00=0x0028, h01=0x0050, text=» SRL A5,1 AND REMAINING AREA TOO =2 «, t00=0x005d, t01=0x0058}
0x091ba…091e8               Head {h00=0x002a, h01=0x0050, text=» SRL A7,10 CONVERT TO NO OF FRAMES =2 «, t00=0x005d, t01=0x0084}
0x091e8…0920e               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A3 GET SEGMENT SIZE =2«, t00=0x005d, t01=0x00b2}
0x0920e…09240               Head {h00=0x002e, h01=0x0050, text=» NGR A4,A4 AND CORRESPONDING NEG. VALUE =2«, t00=0x005d, t01=0x00d8}
0x09240…09258               Head {h00=0x0014, h01=0x0050, text=»ALSG09 EQU * =2 «, t00=0x005d, t01=0x010a}
0x09258…09280               Head {h00=0x0024, h01=0x0050, text=» CWR A5,A3 ENOUGH SPACE LEFT? =2«, t00=0x005d, t01=0x0122}
0x09280…0929e               Head {h00=0x001a, h01=0x0050, text=» RF(NL) ALSG10 YES =2 «, t00=0x005d, t01=0x014a}
0x0929e…092c8               Head {h00=0x0026, h01=0x0050, text=» SUK A7,1 DECREMENT FRAME COUNT =2«, t00=0x005d, t01=0x0168}
0x092c8…092f8 (94, 0, 400)  Head {h00=0x002c, h01=0x0050, text=» ADKL A5,/800 ALLOCATE ANOTHER FRAME =2 «, t00=0x005e, t01=0x0004}
0x092f8…09320               Head {h00=0x0024, h01=0x0050, text=» RB(P) ALSG09 LOOK IF ENOUGH =2 «, t00=0x005e, t01=0x0034}
0x09320…09338               Head {h00=0x0014, h01=0x0050, text=»ALSG10 EQU * =2 «, t00=0x005e, t01=0x005c}
0x09338…09370               Head {h00=0x0034, h01=0x0050, text=» TNM A5,A3 FREE AREA GREATER THAN 32K WORDS? =2 «, t00=0x005e, t01=0x0074}
0x09370…0938c               Head {h00=0x0018, h01=0x0050, text=» RF(N) ALS11A YES =2«, t00=0x005e, t01=0x00ac}
0x0938c…093be               Head {h00=0x002e, h01=0x0050, text=» SUR A5,A3 ALLOCATE AREA TO ONE SEGMENT =2«, t00=0x005e, t01=0x00c8}
0x093be…093d4               Head {h00=0x0012, h01=0x0050, text=» RF ALS11B =2 «, t00=0x005e, t01=0x00fa}
0x093d4…093ec               Head {h00=0x0014, h01=0x0050, text=»ALS11A EQU * =2 «, t00=0x005e, t01=0x0110}
0x093ec…0941e               Head {h00=0x002e, h01=0x0050, text=» ADR A5,A4 ALLOCATE AREA TO ONE SEGMENT =2«, t00=0x005e, t01=0x0128}
0x0941e…09436               Head {h00=0x0014, h01=0x0050, text=»ALS11B EQU * =2 «, t00=0x005e, t01=0x015a}
0x09436…09464               Head {h00=0x002a, h01=0x0050, text=» SUK A2,1 DECREMENT SEGMENT COUNTS =2 «, t00=0x005e, t01=0x0172}
0x09464…0948c               Head {h00=0x0024, h01=0x0050, text=» RB(NZ) ALSG09 MORE SEGMENTS =2 «, t00=0x005f, t01=0x0010}
0x0948c…094a2               Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 =2 «, t00=0x005f, t01=0x0038}
0x094a2…094ca               Head {h00=0x0024, h01=0x0050, text=» ABL(N) MEMOVF MEMORY OVERFLOW! «, t00=0x005f, t01=0x004e}
0x094ca…094d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0076}
0x094d4…094fc               Head {h00=0x0024, h01=0x0050, text=» SLL A7,10 RESTORE FRAME ADDRESS«, t00=0x005f, t01=0x0080}
0x094fc…0952e               Head {h00=0x002e, h01=0x0050, text=» ST A7,APLSEG,A1 SAVE PHYSICAL ADDRESS TO «, t00=0x005f, t01=0x00a8}
0x0952e…0955e               Head {h00=0x002c, h01=0x0050, text=» SLL A5,1 RESTORE AREA LEFT IN BYTES =2 «, t00=0x005f, t01=0x00da}
0x0955e…09590               Head {h00=0x002e, h01=0x0050, text=» SLL A3,1 RESTORE SEGMENT SIZE IN BYTES =2«, t00=0x005f, t01=0x010a}
0x09590…095c2               Head {h00=0x002e, h01=0x0050, text=» ST A5,APLSEG+2,A1 FIRST RESIDENT SEGMENT «, t00=0x005f, t01=0x013c}
0x095c2…095d6               Head {h00=0x0010, h01=0x0050, text=»ALSG12 EQU *«, t00=0x005f, t01=0x016e}
0x095d6…095e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0182}
0x095e0…0960e               Head {h00=0x002a, h01=0x0050, text=»*  REREAD FIRST SECTOR OF APPLICATION «, t00=0x005f, t01=0x018c}
0x0960e…0963c               Head {h00=0x002a, h01=0x0050, text=»*  IF S:GTAB IS LARGER THAN ONE SECTOR«, t00=0x0060, t01=0x002a}
0x0963c…09646               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0058}
0x09646…09682               Head {h00=0x0038, h01=0x0050, text=» LD A12,APLADA,A1 GET MOST SIGN. PART OF DISC ADDR. «, t00=0x0060, t01=0x0062}
0x09682…096b8               Head {h00=0x0032, h01=0x0050, text=» LD A11,APLADA+2,A1 AND LEAST SIGNIFICANT PART«, t00=0x0060, t01=0x009e}
0x096b8…096e2               Head {h00=0x0026, h01=0x0050, text=» CF A14,NXTSEC REREAD FIRST SECTOR«, t00=0x0060, t01=0x00d4}
0x096e2…096f2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0060, t01=0x00fe}
0x096f2…096fe               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0060, t01=0x010e}
0x096fe…0970a               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0060, t01=0x011a}
0x0970a…0971e               Head {h00=0x0010, h01=0x0050, text=»NXTSEC EQU *«, t00=0x0060, t01=0x0126}
0x0971e…09748               Head {h00=0x0026, h01=0x0050, text=» CALL PUSH SAVE REGISTER CONTENTS «, t00=0x0060, t01=0x013a}
0x09748…0976e               Head {h00=0x0022, h01=0x0050, text=» LD A10,READ READ NEXT SECTOR «, t00=0x0060, t01=0x0164}
0x0976e…09782               Head {h00=0x0010, h01=0x0050, text=» CFR A14,A10«, t00=0x0060, t01=0x018a}
0x09782…097be               Head {h00=0x0038, h01=0x0050, text=» ST A11,DISCAD+STKEND SAVE CURRENT SECTOR/BLOCK =10 «, t00=0x0061, t01=0x000e}
0x097be…097ea               Head {h00=0x0028, h01=0x0050, text=» ST A12,DISCAD+2+STKEND ADDRESS =10 «, t00=0x0061, t01=0x004a}
0x097ea…0981c               Head {h00=0x002e, h01=0x0050, text=» CALL POB RESTORE FORMER REGISTER CONTENTS«, t00=0x0061, t01=0x0076}
0x0981c…0985a               Head {h00=0x003a, h01=0x0050, text=» LD A11,DISCAD+STKEND RESTORE CURRENT SECTOR/BLOCK =10«, t00=0x0061, t01=0x00a8}
0x0985a…09886               Head {h00=0x0028, h01=0x0050, text=» LD A12,DISCAD+2+STKEND ADDRESS =10 «, t00=0x0061, t01=0x00e6}
0x09886…09896               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0061, t01=0x0112}
0x09896…098ae               Head {h00=0x0014, h01=0x0050, text=» IFT EDM=1  =12 «, t00=0x0061, t01=0x0122}
0x098ae…098bc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0061, t01=0x013a}
0x098bc…098f4               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0061, t01=0x0148}
0x098f4…0992c               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0061, t01=0x0180}
0x0992c…09964               Head {h00=0x0034, h01=0x0050, text=»*  LODMEX - LOAD MONITOR EXTENT(S)            * «, t00=0x0062, t01=0x0028}
0x09964…0999c               Head {h00=0x0034, h01=0x0050, text=»*  ===============================            * «, t00=0x0062, t01=0x0060}
0x0999c…099d4               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0062, t01=0x0098}
0x099d4…09a0c               Head {h00=0x0034, h01=0x0050, text=»*  REFERENCED IN:  SYSLOD                     * «, t00=0x0062, t01=0x00d0}
0x09a0c…09a44               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0062, t01=0x0108}
0x09a44…09a7c               Head {h00=0x0034, h01=0x0050, text=»*  ENTRY:                                     * «, t00=0x0062, t01=0x0140}
0x09a7c…09ab4               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0062, t01=0x0178}
0x09ab4…09aec               Head {h00=0x0034, h01=0x0050, text=»*  EXIT:                                      * «, t00=0x0063, t01=0x0020}
0x09aec…09b24               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0063, t01=0x0058}
0x09b24…09b5c               Head {h00=0x0034, h01=0x0050, text=»*  WORK REGISTERS:  A1-A12                    * «, t00=0x0063, t01=0x0090}
0x09b5c…09b94               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0063, t01=0x00c8}
0x09b94…09bcc               Head {h00=0x0034, h01=0x0050, text=»*  SUBROUTINES:  LODCOM                       * «, t00=0x0063, t01=0x0100}
0x09bcc…09c04               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0063, t01=0x0138}
0x09c04…09c3c               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0063, t01=0x0170}
0x09c3c…09c50               Head {h00=0x0010, h01=0x0050, text=»LODMEX EQU *«, t00=0x0064, t01=0x0018}
0x09c50…09c7a               Head {h00=0x0026, h01=0x0050, text=» LD A1,SCTMXS MONITOR EXTENT TABLE«, t00=0x0064, t01=0x002c}
0x09c7a…09c8e               Head {h00=0x0010, h01=0x0050, text=»MSX10 EQU * «, t00=0x0064, t01=0x0056}
0x09c8e…09ca2               Head {h00=0x0010, h01=0x0050, text=» RF(Z) MSX99«, t00=0x0064, t01=0x006a}
0x09ca2…09cac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x007e}
0x09cac…09cd8               Head {h00=0x0028, h01=0x0050, text=» LD A1,SCTOPT GET MONITOR OPTION =12«, t00=0x0064, t01=0x0088}
0x09cd8…09d04               Head {h00=0x0028, h01=0x0050, text=» SRC A1,1 LOOK IF MMU OPTION ON =12 «, t00=0x0064, t01=0x00b4}
0x09d04…09d20               Head {h00=0x0018, h01=0x0050, text=» RF(N) MSX15 YES =12«, t00=0x0064, t01=0x00e0}
0x09d20…09d58               Head {h00=0x0034, h01=0x0050, text=» LDKL A1,LMP9 NO, SET ILLEGAL MONITOR OPTION =12«, t00=0x0064, t01=0x00fc}
0x09d58…09d72               Head {h00=0x0016, h01=0x0050, text=» CALL ERROR . =12 «, t00=0x0064, t01=0x0134}
0x09d72…09d8c               Head {h00=0x0016, h01=0x0050, text=»MSX15 EQU * . =12 «, t00=0x0064, t01=0x014e}
0x09d8c…09dbc               Head {h00=0x002c, h01=0x0050, text=» CF A14,GETMON GET MONITOR DISC ADDRESS «, t00=0x0064, t01=0x0168}
0x09dbc…09dea               Head {h00=0x002a, h01=0x0050, text=» LD A3,MX:NOX,A1 GET NUMBER OF EXTENTS«, t00=0x0065, t01=0x0008}
0x09dea…09e22               Head {h00=0x0034, h01=0x0050, text=» LD A6,MX:NOS,A1 GET NUMBER OF SEGMENT CLUSTERS «, t00=0x0065, t01=0x0036}
0x09e22…09e4a               Head {h00=0x0024, h01=0x0050, text=» SLL A6,1 MAKE BYTE DISPLACEMENT«, t00=0x0065, t01=0x006e}
0x09e4a…09e5c               Head {h00=0x000e, h01=0x0050, text=» ADK A6,4 «, t00=0x0065, t01=0x0096}
0x09e5c…09e82               Head {h00=0x0022, h01=0x0050, text=» ADR A6,A1 FIRST EXTENT BLOCK «, t00=0x0065, t01=0x00a8}
0x09e82…09e96               Head {h00=0x0010, h01=0x0050, text=»MSX20 EQU * «, t00=0x0065, t01=0x00ce}
0x09e96…09ec0               Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DECREMENT EXTENT COUNTER«, t00=0x0065, t01=0x00e2}
0x09ec0…09ee4               Head {h00=0x0020, h01=0x0050, text=» RF(N) MSX99 NO MORE EXTENTS«, t00=0x0065, t01=0x010c}
0x09ee4…09eee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0130}
0x09eee…09f14               Head {h00=0x0022, h01=0x0050, text=» STR A3,A15 SAVE NO OF EXTENTS«, t00=0x0065, t01=0x013a}
0x09f14…09f38               Head {h00=0x0020, h01=0x0050, text=» ADK A6,6 NEXT EXTENT BLOCK «, t00=0x0065, t01=0x0160}
0x09f38…09f60               Head {h00=0x0024, h01=0x0050, text=» LD A7,SCTEFA RESTORE ADDRESS TO«, t00=0x0065, t01=0x0184}
0x09f60…09f88               Head {h00=0x0024, h01=0x0050, text=» LD A5,SCTEFA+2 END OF FREE AREA«, t00=0x0066, t01=0x001c}
0x09f88…09f9e               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) MSX25 «, t00=0x0066, t01=0x0044}
0x09f9e…09fa8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x005a}
0x09fa8…09fde               Head {h00=0x0032, h01=0x0050, text=» LDKL A5,PAGSIZ EMPTY FRAME, START ON NEXT ONE«, t00=0x0066, t01=0x0064}
0x09fde…09ff4               Head {h00=0x0012, h01=0x0050, text=» SUKL A7,/400 «, t00=0x0066, t01=0x009a}
0x09ff4…0a008               Head {h00=0x0010, h01=0x0050, text=»MSX25 EQU * «, t00=0x0066, t01=0x00b0}
0x0a008…0a034               Head {h00=0x0028, h01=0x0050, text=» LD A2,EXLEN,A6 GET LENGTH OF EXTENT«, t00=0x0066, t01=0x00c4}
0x0a034…0a05e               Head {h00=0x0026, h01=0x0050, text=» ADK A2,11 RESERV FIVE EXTRA WORDS«, t00=0x0066, t01=0x00f0}
0x0a05e…0a086               Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN LENGTH «, t00=0x0066, t01=0x011a}
0x0a086…0a0b6               Head {h00=0x002c, h01=0x0050, text=» SRL A7,10 FRAME ADDRESS AS FRAME COUNT «, t00=0x0066, t01=0x0142}
0x0a0b6…0a0ea               Head {h00=0x0030, h01=0x0050, text=» ADK A2,0 EXTENT LENGTH LESS THAN 32K BYTES?«, t00=0x0066, t01=0x0172}
0x0a0ea…0a102               Head {h00=0x0014, h01=0x0050, text=» RF(N) MSX30 NO «, t00=0x0067, t01=0x0016}
0x0a102…0a10c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x002e}
0x0a10c…0a142               Head {h00=0x0032, h01=0x0050, text=» CWR A2,A5 EXTENT LESS THAN AREA LEFT IN FRAME«, t00=0x0067, t01=0x0038}
0x0a142…0a15c               Head {h00=0x0016, h01=0x0050, text=» RF(L) MSX40 YES! «, t00=0x0067, t01=0x006e}
0x0a15c…0a166               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0088}
0x0a166…0a17a               Head {h00=0x0010, h01=0x0050, text=»MSX30 EQU * «, t00=0x0067, t01=0x0092}
0x0a17a…0a18c               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0067, t01=0x00a6}
0x0a18c…0a1be               Head {h00=0x002e, h01=0x0050, text=» SRL A1,12 CONVERT LENGTH TO NO OF FRAMES «, t00=0x0067, t01=0x00b8}
0x0a1be…0a1dc               Head {h00=0x001a, h01=0x0050, text=» CWK A1,14 <60K BYTES?«, t00=0x0067, t01=0x00ea}
0x0a1dc…0a1f6               Head {h00=0x0016, h01=0x0050, text=» RF(L) MSX35 YES! «, t00=0x0067, t01=0x0108}
0x0a1f6…0a200               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0122}
0x0a200…0a230               Head {h00=0x002c, h01=0x0050, text=» CWK A5,PAGSIZ ALREADY ON A 4K BOUNDARY «, t00=0x0067, t01=0x012c}
0x0a230…0a24a               Head {h00=0x0016, h01=0x0050, text=» RF(E) MSX35 YES! «, t00=0x0067, t01=0x015c}
0x0a24a…0a254               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0176}
0x0a254…0a280               Head {h00=0x0028, h01=0x0050, text=» LDKL A5,PAGSIZ START ON 4K BOUNDARY«, t00=0x0067, t01=0x0180}
0x0a280…0a292               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0068, t01=0x001c}
0x0a292…0a2a6               Head {h00=0x0010, h01=0x0050, text=»MSX35 EQU * «, t00=0x0068, t01=0x002e}
0x0a2a6…0a2da               Head {h00=0x0030, h01=0x0050, text=» SUR A2,A5 SUBTRACT AREA LEFT IN LAST FRAME «, t00=0x0068, t01=0x0042}
0x0a2da…0a300               Head {h00=0x0022, h01=0x0050, text=» LDK A5,0 AND SET EMPTY FRAME «, t00=0x0068, t01=0x0076}
0x0a300…0a312               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0068, t01=0x009c}
0x0a312…0a344               Head {h00=0x002e, h01=0x0050, text=» SRL A1,12 CONVERT LENGTH TO NO OF FRAMES «, t00=0x0068, t01=0x00ae}
0x0a344…0a374               Head {h00=0x002c, h01=0x0050, text=» SUR A7,A1 AND SUBTRACT FROM FRAME COUNT«, t00=0x0068, t01=0x00e0}
0x0a374…0a39c               Head {h00=0x0024, h01=0x0050, text=» ABL(N) MEMOVF MEMORY OVERFLOW! «, t00=0x0068, t01=0x0110}
0x0a39c…0a3a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0138}
0x0a3a6…0a3ce               Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFF ISOLATE AREA LEFT «, t00=0x0068, t01=0x0142}
0x0a3ce…0a3e2               Head {h00=0x0010, h01=0x0050, text=» RF(Z) MSX45«, t00=0x0068, t01=0x016a}
0x0a3e2…0a3ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x017e}
0x0a3ec…0a41a               Head {h00=0x002a, h01=0x0050, text=» LDKL A5,PAGSIZ TAKE NEXT EMPTY FRAME «, t00=0x0068, t01=0x0188}
0x0a41a…0a42c               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0069, t01=0x0026}
0x0a42c…0a440               Head {h00=0x0010, h01=0x0050, text=»MSX40 EQU * «, t00=0x0069, t01=0x0038}
0x0a440…0a478               Head {h00=0x0034, h01=0x0050, text=» SUR A5,A2 SUBTACT FROM AREA LEFT IN LAST FRAME «, t00=0x0069, t01=0x004c}
0x0a478…0a48c               Head {h00=0x0010, h01=0x0050, text=»MSX45 EQU * «, t00=0x0069, t01=0x0084}
0x0a48c…0a4b6               Head {h00=0x0026, h01=0x0050, text=» CWK A7,15 LOOK IF FIRST PARTITION«, t00=0x0069, t01=0x0098}
0x0a4b6…0a4e4               Head {h00=0x002a, h01=0x0050, text=» ABL(NG) MEMOVF YES, MEMORY OVERFNGOW!«, t00=0x0069, t01=0x00c2}
0x0a4e4…0a4ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00f0}
0x0a4ee…0a520               Head {h00=0x002e, h01=0x0050, text=» ANKL A5,/FFFC START ON A 4 BYTE BOUNDARY «, t00=0x0069, t01=0x00fa}
0x0a520…0a548               Head {h00=0x0024, h01=0x0050, text=» SLL A7,10 RESTORE FRAME ADDRESS«, t00=0x0069, t01=0x012c}
0x0a548…0a576               Head {h00=0x002a, h01=0x0050, text=» ST A5,SCTEFA+2 SAVE PHYSICAL ADDRESS «, t00=0x0069, t01=0x0154}
0x0a576…0a5a0               Head {h00=0x0026, h01=0x0050, text=» ST A7,SCTEFA TO END OF FREE AREA «, t00=0x0069, t01=0x0182}
0x0a5a0…0a5aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x001c}
0x0a5aa…0a5d2               Head {h00=0x0024, h01=0x0050, text=» LD A4,SCTMXS GET MXSTAB ADDRESS«, t00=0x006a, t01=0x0026}
0x0a5d2…0a5f8               Head {h00=0x0022, h01=0x0050, text=» ADK A4,2 MONITOR DISC ADDRESS«, t00=0x006a, t01=0x004e}
0x0a5f8…0a618               Head {h00=0x001c, h01=0x0050, text=» XRR A1,A1 RESET REG. A1«, t00=0x006a, t01=0x0074}
0x0a618…0a646               Head {h00=0x002a, h01=0x0050, text=» LDR* A2,A6 GET MONITOR EXTENT ADDRESS«, t00=0x006a, t01=0x0094}
0x0a646…0a672               Head {h00=0x0028, h01=0x0050, text=» DAR* A4 AND RELOCATE EXTENT ADDRESS«, t00=0x006a, t01=0x00c2}
0x0a672…0a6a0               Head {h00=0x002a, h01=0x0050, text=» LDR A11,A2 GET LEAST SIGNIFICANT PART«, t00=0x006a, t01=0x00ee}
0x0a6a0…0a6ce               Head {h00=0x002a, h01=0x0050, text=» LDR A12,A1 AND MOST SIGNIFICANT PART «, t00=0x006a, t01=0x011c}
0x0a6ce…0a6e0               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x006a, t01=0x014a}
0x0a6e0…0a710               Head {h00=0x002c, h01=0x0050, text=» SRL A1,2 CONVERT PHYSICAL LOAD ADDRESS «, t00=0x006a, t01=0x015c}
0x0a710…0a738               Head {h00=0x0024, h01=0x0050, text=» ORR A1,A7 TO A 16 BITS ADDRESS «, t00=0x006a, t01=0x018c}
0x0a738…0a75e               Head {h00=0x0022, h01=0x0050, text=» STR A1,A6 AND SAVE IN MXSTAB «, t00=0x006b, t01=0x0024}
0x0a75e…0a768               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x004a}
0x0a768…0a796               Head {h00=0x002a, h01=0x0050, text=» ADK A5,10 SKIP PRECCEDING FIVE WORDS «, t00=0x006b, t01=0x0054}
0x0a796…0a7d4               Head {h00=0x003a, h01=0x0050, text=» ST A5,LLDADR+STKEND SAVE AS PGM LOAD ADDR. (LOGICAL) «, t00=0x006b, t01=0x0082}
0x0a7d4…0a7fc               Head {h00=0x0024, h01=0x0050, text=» LDR A8,A5 SAVE RELOCATION BASE «, t00=0x006b, t01=0x00c0}
0x0a7fc…0a830               Head {h00=0x0030, h01=0x0050, text=» ADS A5,2,A6 RELOCATE PROGRAM START ADDRESS «, t00=0x006b, t01=0x00e8}
0x0a830…0a83a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x011c}
0x0a83a…0a868               Head {h00=0x002a, h01=0x0050, text=» LD A10,EXLEN,A6 GET LENGTH OF EXTENT «, t00=0x006b, t01=0x0126}
0x0a868…0a892               Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET MMU ENTRY COUNTER «, t00=0x006b, t01=0x0154}
0x0a892…0a8c2               Head {h00=0x002c, h01=0x0050, text=» LDKL A2,TABBE GET ADDRESS TO MMU TABLE «, t00=0x006b, t01=0x017e}
0x0a8c2…0a8fc               Head {h00=0x0036, h01=0x0050, text=» ST A3,FSTSEC+STKEND RESET FIRST SECTOR INDICATOR «, t00=0x006c, t01=0x001e}
0x0a8fc…0a910               Head {h00=0x0010, h01=0x0050, text=»MSX50 EQU * «, t00=0x006c, t01=0x0058}
0x0a910…0a936               Head {h00=0x0022, h01=0x0050, text=» STR A7,A2 STORE PAGE ADDRESS «, t00=0x006c, t01=0x006c}
0x0a936…0a95e               Head {h00=0x0024, h01=0x0050, text=» ADKL A7,/400 NEXT PAGE ADDRESS «, t00=0x006c, t01=0x0092}
0x0a95e…0a97e               Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 NEXT MMU ENTRY«, t00=0x006c, t01=0x00ba}
0x0a97e…0a9a8               Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 INCREMENT ENTRY COUNTER «, t00=0x006c, t01=0x00da}
0x0a9a8…0a9d4               Head {h00=0x0028, h01=0x0050, text=» CWK A3,16 ALL ENTRIES INITIALIZED? «, t00=0x006c, t01=0x0104}
0x0a9d4…0a9ec               Head {h00=0x0014, h01=0x0050, text=» RB(NE) MSX50 NO«, t00=0x006c, t01=0x0130}
0x0a9ec…0a9f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0148}
0x0a9f6…0aa1a               Head {h00=0x0020, h01=0x0050, text=» TL TABBE LOAD MMU REGISTERS«, t00=0x006c, t01=0x0152}
0x0aa1a…0aa3a               Head {h00=0x001c, h01=0x0050, text=» CALL LOD:70 LOAD EXTENT«, t00=0x006c, t01=0x0176}
0x0aa3a…0aa64               Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A15 RESTORE NO OF EXTENTS«, t00=0x006d, t01=0x0008}
0x0aa64…0aa76               Head {h00=0x000e, h01=0x0050, text=» RB MSX20 «, t00=0x006d, t01=0x0032}
0x0aa76…0aa80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0044}
0x0aa80…0aa94               Head {h00=0x0010, h01=0x0050, text=»MSX99 EQU * «, t00=0x006d, t01=0x004e}
0x0aa94…0aaa4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006d, t01=0x0062}
0x0aaa4…0aab2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006d, t01=0x0072}
0x0aab2…0aaea               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x006d, t01=0x0080}
0x0aaea…0aaf4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00b8}
0x0aaf4…0ab12               Head {h00=0x001a, h01=0x0050, text=»*               GETMON«, t00=0x006d, t01=0x00c2}
0x0ab12…0ab30               Head {h00=0x001a, h01=0x0050, text=»*               ======«, t00=0x006d, t01=0x00e0}
0x0ab30…0ab3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00fe}
0x0ab3a…0ab64               Head {h00=0x0026, h01=0x0050, text=»*   SEARCH FOR MONITOR TO BE USED «, t00=0x006d, t01=0x0108}
0x0ab64…0ab8c               Head {h00=0x0024, h01=0x0050, text=»*   AND UPDATE IT'S DISC ADDRESS«, t00=0x006d, t01=0x0132}
0x0ab8c…0abaa               Head {h00=0x001a, h01=0x0050, text=»*   IN MXSTAB ENTRIES.«, t00=0x006d, t01=0x015a}
0x0abaa…0abb4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0178}
0x0abb4…0abec               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x006d, t01=0x0182}
0x0abec…0abf6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x002a}
0x0abf6…0ac00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0034}
0x0ac00…0ac14               Head {h00=0x0010, h01=0x0050, text=»GETMON EQU *«, t00=0x006e, t01=0x003e}
0x0ac14…0ac40               Head {h00=0x0028, h01=0x0050, text=» LD A1,SCTANO GET APPLICATION NUMBER«, t00=0x006e, t01=0x0052}
0x0ac40…0ac60               Head {h00=0x001c, h01=0x0050, text=» ST A1,MONNO+STKEND SAVE«, t00=0x006e, t01=0x007e}
0x0ac60…0ac96               Head {h00=0x0032, h01=0x0050, text=» CF A14,GETNBR GET CORRESPONDING ENTRY IN VTOC«, t00=0x006e, t01=0x009e}
0x0ac96…0acca               Head {h00=0x0030, h01=0x0050, text=» LC A1,8,A4 GET CORRESPONDING MONITOR NUMBER«, t00=0x006e, t01=0x00d4}
0x0acca…0ad00               Head {h00=0x0032, h01=0x0050, text=» SLL A1,8 FORM MONITOR NBR. AND APPL. NBR. '0'«, t00=0x006e, t01=0x0108}
0x0ad00…0ad24               Head {h00=0x0020, h01=0x0050, text=» ST A1,MONNO+STKEND AND SAVE«, t00=0x006e, t01=0x013e}
0x0ad24…0ad5c               Head {h00=0x0034, h01=0x0050, text=» CF A14,GETNBR SEARCH FOR APPL. NBR. 0 (MONITOR)«, t00=0x006e, t01=0x0162}
0x0ad5c…0ad66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x000a}
0x0ad66…0ad7a               Head {h00=0x0010, h01=0x0050, text=»GTMON2 EQU *«, t00=0x006f, t01=0x0014}
0x0ad7a…0adae               Head {h00=0x0030, h01=0x0050, text=» LD A1,MONNO+STKEND GET MONITOR NO (BIT 0-7)«, t00=0x006f, t01=0x0028}
0x0adae…0adda               Head {h00=0x0028, h01=0x0050, text=» CW A1,8,A4 IS IT THE RIGHT MONITOR?«, t00=0x006f, t01=0x005c}
0x0adda…0adf4               Head {h00=0x0016, h01=0x0050, text=» RF(E) GTMON4 YES!«, t00=0x006f, t01=0x0088}
0x0adf4…0adfe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00a2}
0x0adfe…0ae3a               Head {h00=0x0038, h01=0x0050, text=» CF A14,GTNBR4 NO, CONTINUE TO NEXT MONITOR IN VTOC «, t00=0x006f, t01=0x00ac}
0x0ae3a…0ae4c               Head {h00=0x000e, h01=0x0050, text=» RB GTMON2«, t00=0x006f, t01=0x00e8}
0x0ae4c…0ae56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00fa}
0x0ae56…0ae6a               Head {h00=0x0010, h01=0x0050, text=»GTMON4 EQU *«, t00=0x006f, t01=0x0104}
0x0ae6a…0ae92               Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTMXS GET MXSTAB ADDRESS«, t00=0x006f, t01=0x0118}
0x0ae92…0aeca               Head {h00=0x0034, h01=0x0050, text=» LD A2,16,A4 GET MONITOR DISC ADDRESS (BIT 0-15)«, t00=0x006f, t01=0x0140}
0x0aeca…0aef0               Head {h00=0x0022, h01=0x0050, text=» ST A2,2,A1 AND SAVE IN MXSTAB«, t00=0x006f, t01=0x0178}
0x0aef0…0af2a               Head {h00=0x0036, h01=0x0050, text=» LD A2,18,A4 AND MONITOR DISC ADDRESS (BIT 16-31) «, t00=0x0070, t01=0x000e}
0x0af2a…0af50               Head {h00=0x0022, h01=0x0050, text=» ST A2,4,A1 AND SAVE IN MXSTAB«, t00=0x0070, t01=0x0048}
0x0af50…0af68               Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0070, t01=0x006e}
0x0af68…0af76               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0070, t01=0x0086}
0x0af76…0af8a               Head {h00=0x0010, h01=0x0050, text=»GETNBR EQU *«, t00=0x0070, t01=0x0094}
0x0af8a…0afb2               Head {h00=0x0024, h01=0x0050, text=» CF A14,GETVLB READ VOLUME LABEL«, t00=0x0070, t01=0x00a8}
0x0afb2…0afc6               Head {h00=0x0010, h01=0x0050, text=»GTNBR0 EQU *«, t00=0x0070, t01=0x00d0}
0x0afc6…0afe8               Head {h00=0x001e, h01=0x0050, text=» CF A14,RDSEC READ SECTOR «, t00=0x0070, t01=0x00e4}
0x0afe8…0b014               Head {h00=0x0028, h01=0x0050, text=» LDK A7,QBLFAC VTOC BLOCKING FACTOR «, t00=0x0070, t01=0x0106}
0x0b014…0b036               Head {h00=0x001e, h01=0x0050, text=» LDR A4,A9 START OF RECORD«, t00=0x0070, t01=0x0132}
0x0b036…0b068               Head {h00=0x002e, h01=0x0050, text=» LD A1,MONNO+STKEND GET APPLICATION NUMBER«, t00=0x0070, t01=0x0154}
0x0b068…0b07c               Head {h00=0x0010, h01=0x0050, text=»GTNBR2 EQU *«, t00=0x0070, t01=0x0186}
0x0b07c…0b0ae               Head {h00=0x002e, h01=0x0050, text=» LCR A2,A4 GET 1ST CHARACTER IN FILE NAME «, t00=0x0071, t01=0x000a}
0x0b0ae…0b0cc               Head {h00=0x001a, h01=0x0050, text=» CCK A2,/2020 UNUSED? «, t00=0x0071, t01=0x003c}
0x0b0cc…0b0e6               Head {h00=0x0016, h01=0x0050, text=» RF(E) GTNBR4 YES!«, t00=0x0071, t01=0x005a}
0x0b0e6…0b0f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0074}
0x0b0f0…0b11c               Head {h00=0x0028, h01=0x0050, text=» CC A1,9,A4 SAME APPLICATION NUMBER?«, t00=0x0071, t01=0x007e}
0x0b11c…0b13e               Head {h00=0x001e, h01=0x0050, text=» RF(E) GTNBR6 YES, RETURN «, t00=0x0071, t01=0x00aa}
0x0b13e…0b148               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00cc}
0x0b148…0b15c               Head {h00=0x0010, h01=0x0050, text=»GTNBR4 EQU *«, t00=0x0071, t01=0x00d6}
0x0b15c…0b17e               Head {h00=0x001e, h01=0x0050, text=» ADR A4,A8 GET NEXT RECORD«, t00=0x0071, t01=0x00ea}
0x0b17e…0b1a8               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 BYPASS STATUS CHARACTER «, t00=0x0071, t01=0x010c}
0x0b1a8…0b1d6               Head {h00=0x002a, h01=0x0050, text=» SUK A7,1 MORE RECORDS IN THIS SECTOR?«, t00=0x0071, t01=0x0136}
0x0b1d6…0b1f0               Head {h00=0x0016, h01=0x0050, text=» RB(P) GTNBR2 YES!«, t00=0x0071, t01=0x0164}
0x0b1f0…0b1fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x017e}
0x0b1fa…0b222               Head {h00=0x0024, h01=0x0050, text=» RB GTNBR0 NO, READ NEXT SECTOR «, t00=0x0071, t01=0x0188}
0x0b222…0b22c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0020}
0x0b22c…0b240               Head {h00=0x0010, h01=0x0050, text=»GTNBR6 EQU *«, t00=0x0072, t01=0x002a}
0x0b240…0b250               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0072, t01=0x003e}
0x0b250…0b25c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0072, t01=0x004e}
0x0b25c…0b26a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0072, t01=0x005a}
0x0b26a…0b2ac               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0072, t01=0x0068}
0x0b2ac…0b2ee               Head {h00=0x003e, h01=0x0050, text=»*                                                        *«, t00=0x0072, t01=0x00aa}
0x0b2ee…0b330               Head {h00=0x003e, h01=0x0050, text=»*           LOAD CONFIGURATION PART OF SYSLOD            *«, t00=0x0072, t01=0x00ec}
0x0b330…0b372               Head {h00=0x003e, h01=0x0050, text=»*           =================================            *«, t00=0x0072, t01=0x012e}
0x0b372…0b3b4               Head {h00=0x003e, h01=0x0050, text=»*                                                        *«, t00=0x0072, t01=0x0170}
0x0b3b4…0b3f6               Head {h00=0x003e, h01=0x0050, text=»*  ENTRY:  A9 - BUFFER ADDRESS                           *«, t00=0x0073, t01=0x0022}
0x0b3f6…0b438               Head {h00=0x003e, h01=0x0050, text=»*                                                        *«, t00=0x0073, t01=0x0064}
0x0b438…0b47a               Head {h00=0x003e, h01=0x0050, text=»*  EXIT:                                                 *«, t00=0x0073, t01=0x00a6}
0x0b47a…0b4bc               Head {h00=0x003e, h01=0x0050, text=»*                                                        *«, t00=0x0073, t01=0x00e8}
0x0b4bc…0b4fe               Head {h00=0x003e, h01=0x0050, text=»*  SUBROUTINES:  CASSIN,RDBLK,MOVBUF                     *«, t00=0x0073, t01=0x012a}
0x0b4fe…0b540               Head {h00=0x003e, h01=0x0050, text=»*                                                        *«, t00=0x0073, t01=0x016c}
0x0b540…0b582               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0074, t01=0x001e}
0x0b582…0b596               Head {h00=0x0010, h01=0x0050, text=»CONLOD EQU *«, t00=0x0074, t01=0x0060}
0x0b596…0b5c0               Head {h00=0x0026, h01=0x0050, text=» LD A1,SCTEFA GET END OF FREE AREA«, t00=0x0074, t01=0x0074}
0x0b5c0…0b5d8               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x0074, t01=0x009e}
0x0b5d8…0b5fe               Head {h00=0x0022, h01=0x0050, text=» ANKL A1,/3C00 ISOLATE BIT 2-5«, t00=0x0074, t01=0x00b6}
0x0b5fe…0b622               Head {h00=0x0020, h01=0x0050, text=» SLL A1,2 ROTATE TO BIT 0-3 «, t00=0x0074, t01=0x00dc}
0x0b622…0b658               Head {h00=0x0032, h01=0x0050, text=» ORS A1,SCTEFA+2 CONCATENATE WITH DISPLACEMENT«, t00=0x0074, t01=0x0100}
0x0b658…0b684               Head {h00=0x0028, h01=0x0050, text=» SLC A2,2 PARTITION NR TO BIT 14,15 «, t00=0x0074, t01=0x0136}
0x0b684…0b6a0               Head {h00=0x0018, h01=0x0050, text=» ANK A2,3 ISOLATE IT«, t00=0x0074, t01=0x0162}
0x0b6a0…0b6be               Head {h00=0x001a, h01=0x0050, text=» ST A2,SCTEFA AND SAVE«, t00=0x0074, t01=0x017e}
0x0b6be…0b6fa               Head {h00=0x0038, h01=0x0050, text=» LD A1,CURAPL+STKEND START OF LAST APPL. CTRL. BLOCK«, t00=0x0075, t01=0x000c}
0x0b6fa…0b72e               Head {h00=0x0030, h01=0x0050, text=» ADK A1,ACBLEN END OF LAST APPL. CTRL. BLOCK«, t00=0x0075, t01=0x0048}
0x0b72e…0b75e               Head {h00=0x002c, h01=0x0050, text=» ST A1,SCTSFA UPDATE START OF FREE AREA «, t00=0x0075, t01=0x007c}
0x0b75e…0b79a               Head {h00=0x0038, h01=0x0050, text=» LD A1,APLTAB+STKCOM GET START OF APPL. CONTR. TABLE«, t00=0x0075, t01=0x00ac}
0x0b79a…0b7ca               Head {h00=0x002c, h01=0x0050, text=» ADK A1,2 ADVANCE TO FIRST CONTROL BLOCK«, t00=0x0075, t01=0x00e8}
0x0b7ca…0b802               Head {h00=0x0034, h01=0x0050, text=» CM APLMMC,A1 SET REL. START OF APPL. CONF. DATA«, t00=0x0075, t01=0x0118}
0x0b802…0b834               Head {h00=0x002e, h01=0x0050, text=» ADK A1,ACBLEN ADVANCE TO NEXT APPLICATION«, t00=0x0075, t01=0x0150}
0x0b834…0b85e               Head {h00=0x0026, h01=0x0050, text=» ST A1,CURAPL+STKEND CONTROL BLOCK«, t00=0x0075, t01=0x0182}
0x0b85e…0b88c               Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x0076, t01=0x001c}
0x0b88c…0b8b2               Head {h00=0x0022, h01=0x0050, text=» SUK A1,/F0 CHECK DEVICE TYPE «, t00=0x0076, t01=0x004a}
0x0b8b2…0b8d6               Head {h00=0x0020, h01=0x0050, text=» RF(NN) CONRAD NOT CASSETTE «, t00=0x0076, t01=0x0070}
0x0b8d6…0b8f0               Head {h00=0x0016, h01=0x0050, text=» IFT CFTEST+CASS=2«, t00=0x0076, t01=0x0094}
0x0b8f0…0b8fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00ae}
0x0b8fa…0b924               Head {h00=0x0026, h01=0x0050, text=»*  PROGRAM LOAD DEVICE = CASSETTE «, t00=0x0076, t01=0x00b8}
0x0b924…0b92e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00e2}
0x0b92e…0b942               Head {h00=0x0010, h01=0x0050, text=»CON:30 EQU *«, t00=0x0076, t01=0x00ec}
0x0b942…0b95c               Head {h00=0x0016, h01=0x0050, text=» LDKL A1,CON:40-2 «, t00=0x0076, t01=0x0100}
0x0b95c…0b974               Head {h00=0x0014, h01=0x0050, text=» SUKL A1,COR:48 «, t00=0x0076, t01=0x011a}
0x0b974…0b98a               Head {h00=0x0012, h01=0x0050, text=» ADKL A1,/5700«, t00=0x0076, t01=0x0132}
0x0b98a…0b9b2               Head {h00=0x0024, h01=0x0050, text=» ST A1,COR:48 MODIFY INSTRUCTION«, t00=0x0076, t01=0x0148}
0x0b9b2…0b9c8               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/0100«, t00=0x0076, t01=0x0170}
0x0b9c8…0b9e4               Head {h00=0x0018, h01=0x0050, text=» ST A1,COR:38 MODIFY«, t00=0x0076, t01=0x0186}
0x0b9e4…0ba06               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 START OF BUFFER«, t00=0x0077, t01=0x0012}
0x0ba06…0ba2c               Head {h00=0x0022, h01=0x0050, text=» ADKL A1,BUFLEN END OF BUFFER «, t00=0x0077, t01=0x0034}
0x0ba2c…0ba5c               Head {h00=0x002c, h01=0x0050, text=» ST A1,PLDADR+STKEND SAVE END OF BUFFER «, t00=0x0077, t01=0x005a}
0x0ba5c…0ba7e               Head {h00=0x001e, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE «, t00=0x0077, t01=0x008a}
0x0ba7e…0baae               Head {h00=0x002c, h01=0x0050, text=» ST A1,CONSTA+STKCOM START OF CONF. DATA«, t00=0x0077, t01=0x00ac}
0x0baae…0bad2               Head {h00=0x0020, h01=0x0050, text=» CF A14,RDBLK READ ONE BLOCK«, t00=0x0077, t01=0x00dc}
0x0bad2…0baf8               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x0077, t01=0x0100}
0x0baf8…0bb0a               Head {h00=0x000e, h01=0x0050, text=» LDR A8,A9«, t00=0x0077, t01=0x0126}
0x0bb0a…0bb30               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A8 GET START OF BUFFER«, t00=0x0077, t01=0x0138}
0x0bb30…0bb4c               Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x0077, t01=0x015e}
0x0bb4c…0bb66               Head {h00=0x0016, h01=0x0050, text=» RF(Z) TST:10 NO! «, t00=0x0077, t01=0x017a}
0x0bb66…0bb98 (120, 0, 400) Head {h00=0x002e, h01=0x0050, text=» CF A14,CASSIN INIT CONFIGURATION CASSETTE«, t00=0x0078, t01=0x0004}
0x0bb98…0bbac               Head {h00=0x0010, h01=0x0050, text=» CALL CON:40«, t00=0x0078, t01=0x0036}
0x0bbac…0bbbe               Head {h00=0x000e, h01=0x0050, text=» RF TST:10«, t00=0x0078, t01=0x004a}
0x0bbbe…0bbd2               Head {h00=0x0010, h01=0x0050, text=»CONEX EQU * «, t00=0x0078, t01=0x005c}
0x0bbd2…0bbdc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0070}
0x0bbdc…0bc1e               Head {h00=0x003e, h01=0x0050, text=»*  UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE«, t00=0x0078, t01=0x007a}
0x0bc1e…0bc28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00bc}
0x0bc28…0bc4e               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x0078, t01=0x00c6}
0x0bc4e…0bc72               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 APPLICATION DATA?«, t00=0x0078, t01=0x00ec}
0x0bc72…0bc8c               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CON:80 NO!«, t00=0x0078, t01=0x0110}
0x0bc8c…0bc9e               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/D«, t00=0x0078, t01=0x012a}
0x0bc9e…0bccc               Head {h00=0x002a, h01=0x0050, text=» CF A14,CHCRIO SEARCH TAPEMARK REVERSE«, t00=0x0078, t01=0x013c}
0x0bccc…0bcf2               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK BYPASS TAPEMARK «, t00=0x0078, t01=0x016a}
0x0bcf2…0bd04               Head {h00=0x000e, h01=0x0050, text=» RF CON:90«, t00=0x0078, t01=0x0190}
0x0bd04…0bd18               Head {h00=0x0010, h01=0x0050, text=»CON:80 EQU *«, t00=0x0079, t01=0x0012}
0x0bd18…0bd2a               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/F«, t00=0x0079, t01=0x0026}
0x0bd2a…0bd50               Head {h00=0x0022, h01=0x0050, text=» CF A14,CHCRIO UNLOAD CASSETTE«, t00=0x0079, t01=0x0038}
0x0bd50…0bd64               Head {h00=0x0010, h01=0x0050, text=»CON:90 EQU *«, t00=0x0079, t01=0x005e}
0x0bd64…0bd78               Head {h00=0x0010, h01=0x0050, text=» ABL CONMOV «, t00=0x0079, t01=0x0072}
0x0bd78…0bd84               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0079, t01=0x0086}
0x0bd84…0bd9a               Head {h00=0x0012, h01=0x0050, text=» IFT CFTEST=1 «, t00=0x0079, t01=0x0092}
0x0bd9a…0bda8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x00a8}
0x0bda8…0bdbc               Head {h00=0x0010, h01=0x0050, text=»CONRAD EQU *«, t00=0x0079, t01=0x00b6}
0x0bdbc…0bdc6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00ca}
0x0bdc6…0be00               Head {h00=0x0036, h01=0x0050, text=»*  LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC«, t00=0x0079, t01=0x00d4}
0x0be00…0be0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x010e}
0x0be0a…0be46               Head {h00=0x0038, h01=0x0050, text=» LD A1,CONDEV+STKEND GET LOAD DEVICE FOR CONF. DATA «, t00=0x0079, t01=0x0118}
0x0be46…0be74               Head {h00=0x002a, h01=0x0050, text=» RF(Z) CONRA0 SAME AS PGM LOAD DEVICE «, t00=0x0079, t01=0x0154}
0x0be74…0be7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0182}
0x0be7e…0beb2               Head {h00=0x0030, h01=0x0050, text=» CF A14,CONFLD INITIATE CONF. DATA LOAD DEV.«, t00=0x0079, t01=0x018c}
0x0beb2…0bec6               Head {h00=0x0010, h01=0x0050, text=»CONRA0 EQU *«, t00=0x007a, t01=0x0030}
0x0bec6…0bef4               Head {h00=0x002a, h01=0x0050, text=» LD A11,CONDAD+STKEND GET START SECTOR«, t00=0x007a, t01=0x0044}
0x0bef4…0bf2a               Head {h00=0x0032, h01=0x0050, text=» LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART «, t00=0x007a, t01=0x0072}
0x0bf2a…0bf50               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x007a, t01=0x00a8}
0x0bf50…0bf78               Head {h00=0x0024, h01=0x0050, text=» ADKL A1,BUFLEN-6 END OF BUFFER «, t00=0x007a, t01=0x00ce}
0x0bf78…0bfa8               Head {h00=0x002c, h01=0x0050, text=» ST A1,PLDADR+STKEND SAVE END OF BUFFER «, t00=0x007a, t01=0x00f6}
0x0bfa8…0bfce               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x007a, t01=0x0126}
0x0bfce…0bff8               Head {h00=0x0026, h01=0x0050, text=» AD A1,SAVCON START OF SAVE BUFFER«, t00=0x007a, t01=0x014c}
0x0bff8…0c01c               Head {h00=0x0020, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE =2«, t00=0x007a, t01=0x0176}
0x0c01c…0c04c               Head {h00=0x002c, h01=0x0050, text=» ST A1,CONSTA+STKCOM START OF CONF. DATA«, t00=0x007b, t01=0x000a}
0x0c04c…0c074               Head {h00=0x0024, h01=0x0050, text=» LDKL A10,0 RESET RECORD COUNTER«, t00=0x007b, t01=0x003a}
0x0c074…0c07e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0062}
0x0c07e…0c0b2               Head {h00=0x0030, h01=0x0050, text=»*  READ ONE SECTOR FROM RANDOM ACCESS DEVICE«, t00=0x007b, t01=0x006c}
0x0c0b2…0c0bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00a0}
0x0c0bc…0c0dc               Head {h00=0x001c, h01=0x0050, text=» CALL READC READ SECTOR «, t00=0x007b, t01=0x00aa}
0x0c0dc…0c0e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00ca}
0x0c0e6…0c11a               Head {h00=0x0030, h01=0x0050, text=»* TEST THE SYNTAX OF THE CONFIGURATION FILE «, t00=0x007b, t01=0x00d4}
0x0c11a…0c124               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0108}
0x0c124…0c13a               Head {h00=0x0012, h01=0x0050, text=»TST:10 CALL T «, t00=0x007b, t01=0x0112}
0x0c13a…0c14e               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007b, t01=0x0128}
0x0c14e…0c15e               Head {h00=0x000c, h01=0x0050, text=» CALL NN«, t00=0x007b, t01=0x013c}
0x0c15e…0c172               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007b, t01=0x014c}
0x0c172…0c184               Head {h00=0x000e, h01=0x0050, text=» CALL TID «, t00=0x007b, t01=0x0160}
0x0c184…0c196               Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x007b, t01=0x0172}
0x0c196…0c1a6               Head {h00=0x000c, h01=0x0050, text=» CALL AA«, t00=0x007b, t01=0x0184}
0x0c1a6…0c1ba (124, 0, 400) Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007c, t01=0x0004}
0x0c1ba…0c1cc               Head {h00=0x000e, h01=0x0050, text=» CALL TCL «, t00=0x007c, t01=0x0018}
0x0c1cc…0c1de               Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x007c, t01=0x002a}
0x0c1de…0c1ee               Head {h00=0x000c, h01=0x0050, text=» CALL AA«, t00=0x007c, t01=0x003c}
0x0c1ee…0c202               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007c, t01=0x004c}
0x0c202…0c214               Head {h00=0x000e, h01=0x0050, text=» CALL LEV «, t00=0x007c, t01=0x0060}
0x0c214…0c226               Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x007c, t01=0x0072}
0x0c226…0c238               Head {h00=0x000e, h01=0x0050, text=» CALL NN1 «, t00=0x007c, t01=0x0084}
0x0c238…0c252               Head {h00=0x0016, h01=0x0050, text=»TST:20 CALL CONRD «, t00=0x007c, t01=0x0096}
0x0c252…0c264               Head {h00=0x000e, h01=0x0050, text=» CALL NN1 «, t00=0x007c, t01=0x00b0}
0x0c264…0c278               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007c, t01=0x00c2}
0x0c278…0c2be               Head {h00=0x0042, h01=0x0050, text=»TST:30 LD A5,NDEVCL+STKEND GET NUMBER OF TERMINAL DEV. CLASSES«, t00=0x007c, t01=0x00d6}
0x0c2be…0c2da               Head {h00=0x0018, h01=0x0050, text=» CWK A5,/3030 ZERO? «, t00=0x007c, t01=0x011c}
0x0c2da…0c2f4               Head {h00=0x0016, h01=0x0050, text=» RF(E) TST:40 YES!«, t00=0x007c, t01=0x0138}
0x0c2f4…0c308               Head {h00=0x0010, h01=0x0050, text=» CALL SUKASC«, t00=0x007c, t01=0x0152}
0x0c308…0c31a               Head {h00=0x000e, h01=0x0050, text=» CALL TDCT«, t00=0x007c, t01=0x0166}
0x0c31a…0c32c               Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x007c, t01=0x0178}
0x0c32c…0c33c               Head {h00=0x000c, h01=0x0050, text=» CALL NN«, t00=0x007c, t01=0x018a}
0x0c33c…0c350               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007d, t01=0x000a}
0x0c350…0c360               Head {h00=0x000c, h01=0x0050, text=» CALL LC«, t00=0x007d, t01=0x001e}
0x0c360…0c372               Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x007d, t01=0x002e}
0x0c372…0c384               Head {h00=0x000e, h01=0x0050, text=» CALL NNL «, t00=0x007d, t01=0x0040}
0x0c384…0c398               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007d, t01=0x0052}
0x0c398…0c3aa               Head {h00=0x000e, h01=0x0050, text=» RB TST:30«, t00=0x007d, t01=0x0066}
0x0c3aa…0c3be               Head {h00=0x0010, h01=0x0050, text=»TST:40 EQU *«, t00=0x007d, t01=0x0078}
0x0c3be…0c3d0               Head {h00=0x000e, h01=0x0050, text=» CALL NN1 «, t00=0x007d, t01=0x008c}
0x0c3d0…0c3e4               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007d, t01=0x009e}
0x0c3e4…0c3f8               Head {h00=0x0010, h01=0x0050, text=»TST:50 EQU *«, t00=0x007d, t01=0x00b2}
0x0c3f8…0c438               Head {h00=0x003c, h01=0x0050, text=» LD A5,NDEVCL+STKEND GET NUMBER OF SPECIAL DEV. CLASSES «, t00=0x007d, t01=0x00c6}
0x0c438…0c454               Head {h00=0x0018, h01=0x0050, text=» CWK A5,/3030 ZERO? «, t00=0x007d, t01=0x0106}
0x0c454…0c46e               Head {h00=0x0016, h01=0x0050, text=» RF(E) TST:60 YES!«, t00=0x007d, t01=0x0122}
0x0c46e…0c482               Head {h00=0x0010, h01=0x0050, text=» CALL SUKASC«, t00=0x007d, t01=0x013c}
0x0c482…0c494               Head {h00=0x000e, h01=0x0050, text=» CALL SDCS«, t00=0x007d, t01=0x0150}
0x0c494…0c4a6               Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x007d, t01=0x0162}
0x0c4a6…0c4b6               Head {h00=0x000c, h01=0x0050, text=» CALL NN«, t00=0x007d, t01=0x0174}
0x0c4b6…0c4ca               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007d, t01=0x0184}
0x0c4ca…0c4dc               Head {h00=0x000e, h01=0x0050, text=» RB TST:50«, t00=0x007e, t01=0x0008}
0x0c4dc…0c4f0               Head {h00=0x0010, h01=0x0050, text=»TST:60 EQU *«, t00=0x007e, t01=0x001a}
0x0c4f0…0c510               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x007e, t01=0x002e}
0x0c510…0c540               Head {h00=0x002c, h01=0x0050, text=» CCK A5,'TT' BLOCK TYPE T? (MOD. INSTR.)«, t00=0x007e, t01=0x004e}
0x0c540…0c556               Head {h00=0x0012, h01=0x0050, text=»TST:70 EQU *-2«, t00=0x007e, t01=0x007e}
0x0c556…0c570               Head {h00=0x0016, h01=0x0050, text=» RB(E) TST:10 YES!«, t00=0x007e, t01=0x0094}
0x0c570…0c586               Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/FFFF«, t00=0x007e, t01=0x00ae}
0x0c586…0c5b4               Head {h00=0x002a, h01=0x0050, text=» ST A3,TST:70 MODIFY INSTRUCTION TO RF«, t00=0x007e, t01=0x00c4}
0x0c5b4…0c5d8               Head {h00=0x0020, h01=0x0050, text=» CCK A5,'CC' BLOCK TYPE C ? «, t00=0x007e, t01=0x00f2}
0x0c5d8…0c5f2               Head {h00=0x0016, h01=0x0050, text=» RF(NE) TST:80 NO!«, t00=0x007e, t01=0x0116}
0x0c5f2…0c608               Head {h00=0x0012, h01=0x0050, text=» LDKL A3,'CC' «, t00=0x007e, t01=0x0130}
0x0c608…0c62e               Head {h00=0x0022, h01=0x0050, text=» ST A3,T:10 MODIFY INSTRUCTION«, t00=0x007e, t01=0x0146}
0x0c62e…0c63e               Head {h00=0x000c, h01=0x0050, text=» CALL T «, t00=0x007e, t01=0x016c}
0x0c63e…0c650               Head {h00=0x000e, h01=0x0050, text=» RB TST:20«, t00=0x007e, t01=0x017c}
0x0c650…0c664               Head {h00=0x0010, h01=0x0050, text=»TST:80 EQU *«, t00=0x007e, t01=0x018e}
0x0c664…0c696               Head {h00=0x002e, h01=0x0050, text=» LDR A1,A5 SAVE FIRST CHARACTER IN RECORD «, t00=0x007f, t01=0x0012}
0x0c696…0c6c0               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x007f, t01=0x0044}
0x0c6c0…0c6e0               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x007f, t01=0x006e}
0x0c6e0…0c702               Head {h00=0x001e, h01=0x0050, text=» CCK A5,';;' END OF RECORD«, t00=0x007f, t01=0x008e}
0x0c702…0c71e               Head {h00=0x0018, h01=0x0050, text=» ABL(NE) CONERR NO! «, t00=0x007f, t01=0x00b0}
0x0c71e…0c732               Head {h00=0x0010, h01=0x0050, text=»TST:85 EQU *«, t00=0x007f, t01=0x00cc}
0x0c732…0c764               Head {h00=0x002e, h01=0x0050, text=» CCK A1,'AA' START OF APPL. CONTR. BLOCK? «, t00=0x007f, t01=0x00e0}
0x0c764…0c77e               Head {h00=0x0016, h01=0x0050, text=» RF(E) TST:90 YES «, t00=0x007f, t01=0x0112}
0x0c77e…0c788               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x012c}
0x0c788…0c7b6               Head {h00=0x002a, h01=0x0050, text=» CCK A1,'DD' DATA COMMUNICATION BLOCK?«, t00=0x007f, t01=0x0136}
0x0c7b6…0c7d0               Head {h00=0x0016, h01=0x0050, text=» RF(NE) TST:87 NO!«, t00=0x007f, t01=0x0164}
0x0c7d0…0c7da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x017e}
0x0c7da…0c816               Head {h00=0x0038, h01=0x0050, text=» LD A1,EINPBF+STKEND CURRENT POSITION IN CONF. DATA «, t00=0x007f, t01=0x0188}
0x0c816…0c84e               Head {h00=0x0034, h01=0x0050, text=» SU A1,CONSTA+STKCOM CALCULATE RELATIVE POSITION«, t00=0x0080, t01=0x0034}
0x0c84e…0c86e               Head {h00=0x001c, h01=0x0050, text=» ST A1,DCBLK+STKCOM SAVE«, t00=0x0080, t01=0x006c}
0x0c86e…0c882               Head {h00=0x0010, h01=0x0050, text=»TST:87 EQU *«, t00=0x0080, t01=0x008c}
0x0c882…0c8ae               Head {h00=0x0028, h01=0x0050, text=» CALL CONRD MOVE AND GET NEXT RECORD«, t00=0x0080, t01=0x00a0}
0x0c8ae…0c8d6               Head {h00=0x0024, h01=0x0050, text=» LCR A1,A4 AND FIRST CHAR. IN IT«, t00=0x0080, t01=0x00cc}
0x0c8d6…0c8e8               Head {h00=0x000e, h01=0x0050, text=» RB TST:85«, t00=0x0080, t01=0x00f4}
0x0c8e8…0c8f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0106}
0x0c8f2…0c906               Head {h00=0x0010, h01=0x0050, text=»TST:90 EQU *«, t00=0x0080, t01=0x0110}
0x0c906…0c910               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0124}
0x0c910…0c934               Head {h00=0x0020, h01=0x0050, text=»*  APPLICATION CONTROL BLOCK«, t00=0x0080, t01=0x012e}
0x0c934…0c954               Head {h00=0x001c, h01=0x0050, text=»*  SKIP NAME RECORD AND «, t00=0x0080, t01=0x0152}
0x0c954…0c976               Head {h00=0x001e, h01=0x0050, text=»*  SCAN CONFIGURATION DATA«, t00=0x0080, t01=0x0172}
0x0c976…0c980 (129, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0004}
0x0c980…0c9be               Head {h00=0x003a, h01=0x0050, text=» LDKL A1,/FF3B SUBSTITUTE 'A;' WITH 'HEX. FF' AND ';' «, t00=0x0081, t01=0x000e}
0x0c9be…0c9d0               Head {h00=0x000e, h01=0x0050, text=» STR A1,A8«, t00=0x0081, t01=0x004c}
0x0c9d0…0ca08               Head {h00=0x0034, h01=0x0050, text=» LD A2,CURAPL+STKEND CURRENT APPL. CONTR. BLOCK «, t00=0x0081, t01=0x005e}
0x0ca08…0ca44               Head {h00=0x0038, h01=0x0050, text=» LD A1,EINPBF+STKEND CURRENT POSITION IN CONF. DATA «, t00=0x0081, t01=0x0096}
0x0ca44…0ca68               Head {h00=0x0020, h01=0x0050, text=» ADK A1,1 SKIP BLOCK MARKER «, t00=0x0081, t01=0x00d2}
0x0ca68…0caa0               Head {h00=0x0034, h01=0x0050, text=» SU A1,CONSTA+STKCOM CALCULATE RELATIVE POSITION«, t00=0x0081, t01=0x00f6}
0x0caa0…0cade               Head {h00=0x003a, h01=0x0050, text=» ST A1,APLMMC,A2 AND SAVE AS START OF APPL. CONF. DATA«, t00=0x0081, t01=0x012e}
0x0cade…0caf4               Head {h00=0x0012, h01=0x0050, text=» ADK A2,ACBLEN«, t00=0x0081, t01=0x016c}
0x0caf4…0cb34               Head {h00=0x003c, h01=0x0050, text=» ST A2,CURAPL+STKEND ADVANCE TO NEXT APPL. CONTR. BLOCK «, t00=0x0081, t01=0x0182}
0x0cb34…0cb5c               Head {h00=0x0024, h01=0x0050, text=» CALL CONRD MOVE AND PACK RECORD«, t00=0x0082, t01=0x0032}
0x0cb5c…0cb88               Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x0082, t01=0x005a}
0x0cb88…0cbb2               Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD «, t00=0x0082, t01=0x0086}
0x0cbb2…0cbcc               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:50 YES!«, t00=0x0082, t01=0x00b0}
0x0cbcc…0cbfe               Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x0082, t01=0x00ca}
0x0cbfe…0cc28               Head {h00=0x0026, h01=0x0050, text=» CW A8,PLDADR+STKEND END OF BUFFER«, t00=0x0082, t01=0x00fc}
0x0cc28…0cc3e               Head {h00=0x0012, h01=0x0050, text=» RF(NE) TST:95«, t00=0x0082, t01=0x0126}
0x0cc3e…0cc48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x013c}
0x0cc48…0cc68               Head {h00=0x001c, h01=0x0050, text=» CALL READC READ SECTOR «, t00=0x0082, t01=0x0146}
0x0cc68…0cc7c               Head {h00=0x0010, h01=0x0050, text=»TST:95 EQU *«, t00=0x0082, t01=0x0166}
0x0cc7c…0ccaa               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,'TT' LOOK FOR TASK DEF. BLOCK«, t00=0x0082, t01=0x017a}
0x0ccaa…0ccce               Head {h00=0x0020, h01=0x0050, text=» ST A1,TST:70 MODIFY INSTR. «, t00=0x0083, t01=0x0018}
0x0ccce…0cce2               Head {h00=0x0010, h01=0x0050, text=» ST A1,T:10 «, t00=0x0083, t01=0x003c}
0x0cce2…0ccf4               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A8«, t00=0x0083, t01=0x0050}
0x0ccf4…0cd18               Head {h00=0x0020, h01=0x0050, text=» ABL TST:10 SCAN CONF. DATA «, t00=0x0083, t01=0x0062}
0x0cd18…0cd22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0086}
0x0cd22…0cd36               Head {h00=0x0010, h01=0x0050, text=»COR:50 EQU *«, t00=0x0083, t01=0x0090}
0x0cd36…0cd5c               Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0083, t01=0x00a4}
0x0cd5c…0cd74               Head {h00=0x0014, h01=0x0050, text=» ANK A1,8 SWB:S?«, t00=0x0083, t01=0x00ca}
0x0cd74…0cd8c               Head {h00=0x0014, h01=0x0050, text=» RF(Z) COR:55 NO«, t00=0x0083, t01=0x00e2}
0x0cd8c…0cda0               Head {h00=0x0010, h01=0x0050, text=» LDK A3,'S' «, t00=0x0083, t01=0x00fa}
0x0cda0…0cdca               Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:25+1 MODIFY INSTRUCTION«, t00=0x0083, t01=0x010e}
0x0cdca…0cdf4               Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:60+1 MODIFY INSTRUCTION«, t00=0x0083, t01=0x0138}
0x0cdf4…0ce10               Head {h00=0x0018, h01=0x0050, text=» LD A1,IPLDEV+STKEND«, t00=0x0083, t01=0x0162}
0x0ce10…0ce42               Head {h00=0x002e, h01=0x0050, text=» CF A14,LODDEV INITIALIZE PGM LOAD DEVICE «, t00=0x0083, t01=0x017e}
0x0ce42…0ce58               Head {h00=0x0012, h01=0x0050, text=» CF A14,GETFIL«, t00=0x0084, t01=0x0020}
0x0ce58…0ce62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0036}
0x0ce62…0ce82               Head {h00=0x001c, h01=0x0050, text=»*  UNLOCK FLEXIBLE DISC «, t00=0x0084, t01=0x0040}
0x0ce82…0ce8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0060}
0x0ce8c…0cea0               Head {h00=0x0010, h01=0x0050, text=»COR:55 EQU *«, t00=0x0084, t01=0x006a}
0x0cea0…0ced8               Head {h00=0x0034, h01=0x0050, text=» LD A1,CONDEV+STKEND GET CONF. DATA LOAD DEVICE «, t00=0x0084, t01=0x007e}
0x0ced8…0cf08               Head {h00=0x002c, h01=0x0050, text=» RF(Z) COR:58 SAME AS APPL. LOAD DEVICE «, t00=0x0084, t01=0x00b6}
0x0cf08…0cf12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x00e6}
0x0cf12…0cf24               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0084, t01=0x00f0}
0x0cf24…0cf36               Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0084, t01=0x0102}
0x0cf36…0cf48               Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x0084, t01=0x0114}
0x0cf48…0cf70               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COR:58 NOT FLEXIBLE DISC«, t00=0x0084, t01=0x0126}
0x0cf70…0cf7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x014e}
0x0cf7a…0cf86               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0084, t01=0x0158}
0x0cf86…0cfa2               Head {h00=0x0018, h01=0x0050, text=» IFT CFTEST+FLDISC=2«, t00=0x0084, t01=0x0164}
0x0cfa2…0cfce               Head {h00=0x0028, h01=0x0050, text=» CF A14,UNLOCK UNLOCK FLEXIBLE DISC «, t00=0x0084, t01=0x0180}
0x0cfce…0cfda               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0085, t01=0x001c}
0x0cfda…0cff0               Head {h00=0x0012, h01=0x0050, text=» IFT CFTEST=1 «, t00=0x0085, t01=0x0028}
0x0cff0…0d004               Head {h00=0x0010, h01=0x0050, text=»COR:58 EQU *«, t00=0x0085, t01=0x003e}
0x0d004…0d032               Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x0085, t01=0x0052}
0x0d032…0d050               Head {h00=0x001a, h01=0x0050, text=» SUK A1,/F8 CHECK TYPE«, t00=0x0085, t01=0x0080}
0x0d050…0d078               Head {h00=0x0024, h01=0x0050, text=» RF(N) COR:60 NOT FLEXIBLE DISC «, t00=0x0085, t01=0x009e}
0x0d078…0d082               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x00c6}
0x0d082…0d08e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0085, t01=0x00d0}
0x0d08e…0d0b4               Head {h00=0x0022, h01=0x0050, text=» SUK A1,/FC-/F8 FLEXIBLE DISC?«, t00=0x0085, t01=0x00dc}
0x0d0b4…0d0d0               Head {h00=0x0018, h01=0x0050, text=» ABL(NN) COR:60 NO! «, t00=0x0085, t01=0x0102}
0x0d0d0…0d0da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x011e}
0x0d0da…0d0f6               Head {h00=0x0018, h01=0x0050, text=» IFT CFTEST+FLDISC=2«, t00=0x0085, t01=0x0128}
0x0d0f6…0d11c               Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x0085, t01=0x0144}
0x0d11c…0d13a               Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x0085, t01=0x016a}
0x0d13a…0d162               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COR:60 YES! DON'T UNLOCK«, t00=0x0085, t01=0x0188}
0x0d162…0d16c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0020}
0x0d16c…0d188               Head {h00=0x0018, h01=0x0050, text=» LD A1,IPLDEV+STKEND«, t00=0x0086, t01=0x002a}
0x0d188…0d1b4               Head {h00=0x0028, h01=0x0050, text=» CF A14,UNLOCK UNLOCK FLEXIBLE DISC «, t00=0x0086, t01=0x0046}
0x0d1b4…0d1c0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0086, t01=0x0072}
0x0d1c0…0d1d6               Head {h00=0x0012, h01=0x0050, text=» IFT CFTEST=1 «, t00=0x0086, t01=0x007e}
0x0d1d6…0d1ea               Head {h00=0x0010, h01=0x0050, text=»COR:60 EQU *«, t00=0x0086, t01=0x0094}
0x0d1ea…0d1f8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0086, t01=0x00a8}
0x0d1f8…0d20c               Head {h00=0x0010, h01=0x0050, text=»CONMOV EQU *«, t00=0x0086, t01=0x00b6}
0x0d20c…0d216               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x00ca}
0x0d216…0d24e               Head {h00=0x0034, h01=0x0050, text=»*  MOVE CONFIGURATION DATA TO END OF SYSTEM AREA«, t00=0x0086, t01=0x00d4}
0x0d24e…0d258               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x010c}
0x0d258…0d282               Head {h00=0x0026, h01=0x0050, text=» CIO A1,0,SOP INHIBIT SOP SWITCHES«, t00=0x0086, t01=0x0116}
0x0d282…0d2b6               Head {h00=0x0030, h01=0x0050, text=» LD A1,CONSTA+STKCOM GET START OF CONF. DATA«, t00=0x0086, t01=0x0140}
0x0d2b6…0d2f6               Head {h00=0x003c, h01=0x0050, text=»CMOV10 LD A3,EINPBF+STKEND GET END OF CONFIGURATION DATA«, t00=0x0086, t01=0x0174}
0x0d2f6…0d32a               Head {h00=0x0030, h01=0x0050, text=» LD A2,ESYSTA+STKEND GET END OF SYSTEM AREA «, t00=0x0087, t01=0x0024}
0x0d32a…0d358               Head {h00=0x002a, h01=0x0050, text=» CM -2,A2 MAKE SURE CONFIGURATION FILE«, t00=0x0087, t01=0x0058}
0x0d358…0d37e               Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 IS FOLLOWED BY X'00'«, t00=0x0087, t01=0x0086}
0x0d37e…0d3ae               Head {h00=0x002c, h01=0x0050, text=» SUR A3,A1 LENGTH OF CONFIGURATION DATA «, t00=0x0087, t01=0x00ac}
0x0d3ae…0d3e4               Head {h00=0x0032, h01=0x0050, text=» ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA«, t00=0x0087, t01=0x00dc}
0x0d3e4…0d3ec               Head {h00=0x0004, h01=0x0050, t00=0x0087, t01=0x0112}
0x0d3ec…0d40a               Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x0087, t01=0x011a}
0x0d40a…0d414               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0138}
0x0d414…0d43c               Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN ADDRESS«, t00=0x0087, t01=0x0142}
0x0d43c…0d44e               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x0087, t01=0x016a}
0x0d44e…0d48c               Head {h00=0x003a, h01=0x0050, text=» ST A2,CONSTA+STKCOM SAVE START OF CONFIGURATION DATA «, t00=0x0087, t01=0x017c}
0x0d48c…0d4c2               Head {h00=0x0032, h01=0x0050, text=» LD A1,CONLEN+STKCOM GET LENGTH OF CONF. DATA «, t00=0x0088, t01=0x002a}
0x0d4c2…0d4f6               Head {h00=0x0030, h01=0x0050, text=» ADK A1,2 INCLUDE TRAILING ZEROES IN LENGTH «, t00=0x0088, t01=0x0060}
0x0d4f6…0d51a               Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFE AND MAKE EVEN«, t00=0x0088, t01=0x0094}
0x0d51a…0d536               Head {h00=0x0018, h01=0x0050, text=» ST A1,CONLEN+STKCOM«, t00=0x0088, t01=0x00b8}
0x0d536…0d560               Head {h00=0x0026, h01=0x0050, text=» LDR A1,A9 GET START OF FREE AREA «, t00=0x0088, t01=0x00d4}
0x0d560…0d584               Head {h00=0x0020, h01=0x0050, text=» LDR A12,A2 END OF FREE AREA«, t00=0x0088, t01=0x00fe}
0x0d584…0d5ac               Head {h00=0x0024, h01=0x0050, text=» SUR A12,A1 SUBTRACT MONITOR END«, t00=0x0088, t01=0x0122}
0x0d5ac…0d5e2               Head {h00=0x0032, h01=0x0050, text=» ST A12,M:REL+STKCOM SAVE RELOCATION CONSTANT «, t00=0x0088, t01=0x014a}
0x0d5e2…0d60a               Head {h00=0x0024, h01=0x0050, text=» LD A2,SCTMXS GET MXSTAB ADDRESS«, t00=0x0088, t01=0x0180}
0x0d60a…0d632               Head {h00=0x0024, h01=0x0050, text=» RF(Z) CMOV20 NO MXSTAB PRESENT «, t00=0x0089, t01=0x0018}
0x0d632…0d63c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0040}
0x0d63c…0d670               Head {h00=0x0030, h01=0x0050, text=» AD A2,M:REL+STKCOM RELOCATE MXSTAB ADDRESS «, t00=0x0089, t01=0x004a}
0x0d670…0d69e               Head {h00=0x002a, h01=0x0050, text=» ST A2,SCTMXS AND SAVE AS NEW ADDRESS «, t00=0x0089, t01=0x007e}
0x0d69e…0d6b2               Head {h00=0x0010, h01=0x0050, text=»CMOV20 EQU *«, t00=0x0089, t01=0x00ac}
0x0d6b2…0d6e2               Head {h00=0x002c, h01=0x0050, text=» LD A2,CONSTA+STKCOM GET START OF CONFF «, t00=0x0089, t01=0x00c0}
0x0d6e2…0d6ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x00f0}
0x0d6ec…0d72c               Head {h00=0x003c, h01=0x0050, text=»*  MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA«, t00=0x0089, t01=0x00fa}
0x0d72c…0d736               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x013a}
0x0d736…0d74a               Head {h00=0x0010, h01=0x0050, text=»MOPRO EQU * «, t00=0x0089, t01=0x0144}
0x0d74a…0d762               Head {h00=0x0014, h01=0x0050, text=» LDKL A13,SYSLDM«, t00=0x0089, t01=0x0158}
0x0d762…0d774               Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x0089, t01=0x0170}
0x0d774…0d786               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0089, t01=0x0182}
0x0d786…0d79a (138, 0, 398) Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A1 «, t00=0x008a, t01=0x0004}
0x0d79a…0d7ac               Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x008a, t01=0x0018}
0x0d7ac…0d7c0               Head {h00=0x0010, h01=0x0050, text=» CWR A1,A13 «, t00=0x008a, t01=0x002a}
0x0d7c0…0d7d6               Head {h00=0x0012, h01=0x0050, text=» RB(NE) MOPRO «, t00=0x008a, t01=0x003e}
0x0d7d6…0d802               Head {h00=0x0028, h01=0x0050, text=» ABR A2 CONTINUE EXECUTION IN SYSLDM«, t00=0x008a, t01=0x0054}
0x0d802…0d810               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008a, t01=0x0080}
0x0d810…0d858               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x008a, t01=0x008e}
0x0d858…0d8a0               Head {h00=0x0044, h01=0x0050, text=»*  SUROUTINES USED TO TEST THE SYNTAX OF THE CONFIGURATION FILE «, t00=0x008a, t01=0x00d6}
0x0d8a0…0d8e8               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x008a, t01=0x011e}
0x0d8e8…0d8f6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008a, t01=0x0166}
0x0d8f6…0d90a               Head {h00=0x0010, h01=0x0050, text=»CONRD EQU * «, t00=0x008a, t01=0x0174}
0x0d90a…0d914               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0188}
0x0d914…0d94a (139, 0, 398) Head {h00=0x0032, h01=0x0050, text=»*  COMPUTE NUMBER OF CHARACTERS IN THIS RECORD«, t00=0x008b, t01=0x0004}
0x0d94a…0d954               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x003a}
0x0d954…0d98e               Head {h00=0x0036, h01=0x0050, text=» LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER«, t00=0x008b, t01=0x0044}
0x0d98e…0d9a6               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x008b, t01=0x007e}
0x0d9a6…0d9d0               Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET CHARACTER COUNTER «, t00=0x008b, t01=0x0096}
0x0d9d0…0d9f2               Head {h00=0x001e, h01=0x0050, text=» LDR A4,A8 START OF RECORD«, t00=0x008b, t01=0x00c0}
0x0d9f2…0da06               Head {h00=0x0010, h01=0x0050, text=»COR:30 EQU *«, t00=0x008b, t01=0x00e2}
0x0da06…0da26               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x008b, t01=0x00f6}
0x0da26…0da4a               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x008b, t01=0x0116}
0x0da4a…0da64               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x008b, t01=0x013a}
0x0da64…0da78               Head {h00=0x0010, h01=0x0050, text=»COR:35 EQU *«, t00=0x008b, t01=0x0154}
0x0da78…0daa6               Head {h00=0x002a, h01=0x0050, text=» CWK A3,RECLEN MAXIMUM SIZE ACHIEVED? «, t00=0x008b, t01=0x0168}
0x0daa6…0dabc               Head {h00=0x0012, h01=0x0050, text=»COR:38 EQU *-2«, t00=0x008c, t01=0x0008}
0x0dabc…0dad6               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x008c, t01=0x001e}
0x0dad6…0db04               Head {h00=0x002a, h01=0x0050, text=» CW A1,ESYSTA+STKEND MEMORY OVERFLOW? «, t00=0x008c, t01=0x0038}
0x0db04…0db1e               Head {h00=0x0016, h01=0x0050, text=» RF(E) MEMOFL YES!«, t00=0x008c, t01=0x0066}
0x0db1e…0db48               Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 INCREMENT BUFFER POINTER«, t00=0x008c, t01=0x0080}
0x0db48…0db76               Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT CHARACTER COUNTER «, t00=0x008c, t01=0x00aa}
0x0db76…0dba0               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT RECORD POINTER«, t00=0x008c, t01=0x00d8}
0x0dba0…0dbb8               Head {h00=0x0014, h01=0x0050, text=» RB COR:30 LOOP «, t00=0x008c, t01=0x0102}
0x0dbb8…0dbcc               Head {h00=0x0010, h01=0x0050, text=»COR:40 EQU *«, t00=0x008c, t01=0x011a}
0x0dbcc…0dbf2               Head {h00=0x0022, h01=0x0050, text=» LC A5,1,A4 GET NEXT CHARACTER«, t00=0x008c, t01=0x012e}
0x0dbf2…0dc16               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' TWO SEMICOLONS?«, t00=0x008c, t01=0x0154}
0x0dc16…0dc30               Head {h00=0x0016, h01=0x0050, text=» RF(NE) COR:45 NO!«, t00=0x008c, t01=0x0178}
0x0dc30…0dc5e (141, 0, 400) Head {h00=0x002a, h01=0x0050, text=» CWK A3,NCHTID CHECK IF END OF RECORD «, t00=0x008d, t01=0x0004}
0x0dc5e…0dc96               Head {h00=0x0034, h01=0x0050, text=» RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD «, t00=0x008d, t01=0x0032}
0x0dc96…0dcaa               Head {h00=0x0010, h01=0x0050, text=»COR:45 EQU *«, t00=0x008d, t01=0x006a}
0x0dcaa…0dce0               Head {h00=0x0032, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION «, t00=0x008d, t01=0x007e}
0x0dce0…0dd02               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A8 START OF RECORD«, t00=0x008d, t01=0x00b4}
0x0dd02…0dd14               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x008d, t01=0x00d6}
0x0dd14…0dd28               Head {h00=0x0010, h01=0x0050, text=»COR:48 EQU *«, t00=0x008d, t01=0x00e8}
0x0dd28…0dd54               Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x008d, t01=0x00fc}
0x0dd54…0dd7e               Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD «, t00=0x008d, t01=0x0128}
0x0dd7e…0dd9a               Head {h00=0x0018, h01=0x0050, text=» ABL(E) COR:50 YES! «, t00=0x008d, t01=0x0152}
0x0dd9a…0ddcc               Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x008d, t01=0x016e}
0x0ddcc…0ddf6               Head {h00=0x0026, h01=0x0050, text=» CW A8,PLDADR+STKEND END OF BUFFER«, t00=0x008e, t01=0x0010}
0x0ddf6…0de10               Head {h00=0x0016, h01=0x0050, text=» RF(NE) COR:10 NO!«, t00=0x008e, t01=0x003a}
0x0de10…0de30               Head {h00=0x001c, h01=0x0050, text=» CALL READC READ SECTOR «, t00=0x008e, t01=0x0054}
0x0de30…0de58               Head {h00=0x0024, h01=0x0050, text=»COR:10 LDR A4,A8 START OF RECORD«, t00=0x008e, t01=0x0074}
0x0de58…0de68               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008e, t01=0x009c}
0x0de68…0de74               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x00ac}
0x0de74…0de8e               Head {h00=0x0016, h01=0x0050, text=» IFT CFTEST+CASS=2«, t00=0x008e, t01=0x00b8}
0x0de8e…0dea2               Head {h00=0x0010, h01=0x0050, text=»CON:40 EQU *«, t00=0x008e, t01=0x00d2}
0x0dea2…0dec8               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x008e, t01=0x00e6}
0x0dec8…0dee4               Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x008e, t01=0x010c}
0x0dee4…0df00               Head {h00=0x0018, h01=0x0050, text=» ABL(NZ) CONEX YES! «, t00=0x008e, t01=0x0128}
0x0df00…0df12               Head {h00=0x000e, h01=0x0050, text=» LDR A8,A9«, t00=0x008e, t01=0x0144}
0x0df12…0df38               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A8 GET START OF BUFFER«, t00=0x008e, t01=0x0156}
0x0df38…0df48               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008e, t01=0x017c}
0x0df48…0df54               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x018c}
0x0df54…0df6a               Head {h00=0x0012, h01=0x0050, text=» IFT CFTEST=1 «, t00=0x008f, t01=0x0008}
0x0df6a…0df7e               Head {h00=0x0010, h01=0x0050, text=»MEMOFL EQU *«, t00=0x008f, t01=0x001e}
0x0df7e…0dfac               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x008f, t01=0x0032}
0x0dfac…0dfc0               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x008f, t01=0x0060}
0x0dfc0…0dfce               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008f, t01=0x0074}
0x0dfce…0dfe2               Head {h00=0x0010, h01=0x0050, text=»READC EQU * «, t00=0x008f, t01=0x0082}
0x0dfe2…0e004               Head {h00=0x001e, h01=0x0050, text=» CF A14,RDSEC READ SECTOR «, t00=0x008f, t01=0x0096}
0x0e004…0e016               Head {h00=0x000e, h01=0x0050, text=» LDR A8,A9«, t00=0x008f, t01=0x00b8}
0x0e016…0e03c               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A8 GET START OF BUFFER«, t00=0x008f, t01=0x00ca}
0x0e03c…0e04c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008f, t01=0x00f0}
0x0e04c…0e05c               Head {h00=0x000c, h01=0x0050, text=»T EQU * «, t00=0x008f, t01=0x0100}
0x0e05c…0e07c               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x008f, t01=0x0110}
0x0e07c…0e09e               Head {h00=0x001e, h01=0x0050, text=» CCK A5,'TT' BLOCK TYPE T?«, t00=0x008f, t01=0x0130}
0x0e09e…0e0b2               Head {h00=0x0010, h01=0x0050, text=»T:10 EQU *-2«, t00=0x008f, t01=0x0152}
0x0e0b2…0e0ca               Head {h00=0x0014, h01=0x0050, text=» ABL(NE) CONERR «, t00=0x008f, t01=0x0166}
0x0e0ca…0e0f4               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x008f, t01=0x017e}
0x0e0f4…0e11a               Head {h00=0x0022, h01=0x0050, text=» LCR A5,A4 GET NEXT CHARACTER «, t00=0x0090, t01=0x0018}
0x0e11a…0e13e               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x0090, t01=0x003e}
0x0e13e…0e15a               Head {h00=0x0018, h01=0x0050, text=» ABL(NE) CONERR NO! «, t00=0x0090, t01=0x0062}
0x0e15a…0e16a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0090, t01=0x007e}
0x0e16a…0e178               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0090, t01=0x008e}
0x0e178…0e18a               Head {h00=0x000e, h01=0x0050, text=»NNL EQU * «, t00=0x0090, t01=0x009c}
0x0e18a…0e1b8               Head {h00=0x002a, h01=0x0050, text=» LDK A3,3 NO OF DIGITS IN LINE NUMBER «, t00=0x0090, t01=0x00ae}
0x0e1b8…0e1e2               Head {h00=0x0026, h01=0x0050, text=» CF A14,NUMB LOOK IF LEGAL DIGITS «, t00=0x0090, t01=0x00dc}
0x0e1e2…0e20a               Head {h00=0x0024, h01=0x0050, text=» LDR A1,A1 SET RETURN CONDITION «, t00=0x0090, t01=0x0106}
0x0e20a…0e23e               Head {h00=0x0030, h01=0x0050, text=» ABL(Z) CONERR LINE NUMBER '000' NOT ALLOWED«, t00=0x0090, t01=0x012e}
0x0e23e…0e248               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x0162}
0x0e248…0e26e               Head {h00=0x0022, h01=0x0050, text=» LCR A5,A4 GET NEXT CHARACTER «, t00=0x0090, t01=0x016c}
0x0e26e…0e28a (145, 0, 400) Head {h00=0x0018, h01=0x0050, text=» CCK A5,'LL' LINE L?«, t00=0x0091, t01=0x0004}
0x0e28a…0e2a4               Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0091, t01=0x0020}
0x0e2a4…0e2c0               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'RR' LINE R?«, t00=0x0091, t01=0x003a}
0x0e2c0…0e2da               Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0091, t01=0x0056}
0x0e2da…0e2f6               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'AA' LINE A?«, t00=0x0091, t01=0x0070}
0x0e2f6…0e310               Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0091, t01=0x008c}
0x0e310…0e32c               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'SS' LINE S?«, t00=0x0091, t01=0x00a6}
0x0e32c…0e346               Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0091, t01=0x00c2}
0x0e346…0e362               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'PP' LINE P?«, t00=0x0091, t01=0x00dc}
0x0e362…0e37c               Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0091, t01=0x00f8}
0x0e37c…0e398               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'VV' LINE V?«, t00=0x0091, t01=0x0112}
0x0e398…0e3ac               Head {h00=0x0010, h01=0x0050, text=» RF(E) NN:40«, t00=0x0091, t01=0x012e}
0x0e3ac…0e3c8               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'QQ' LINE Q?«, t00=0x0091, t01=0x0142}
0x0e3c8…0e3e2               Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0091, t01=0x015e}
0x0e3e2…0e3f4               Head {h00=0x000e, h01=0x0050, text=» RF CONERR«, t00=0x0091, t01=0x0178}
0x0e3f4…0e408               Head {h00=0x0010, h01=0x0050, text=»NN:40 EQU * «, t00=0x0091, t01=0x018a}
0x0e408…0e432               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0092, t01=0x000e}
0x0e432…0e444               Head {h00=0x000e, h01=0x0050, text=» RF NN:50 «, t00=0x0092, t01=0x0038}
0x0e444…0e44e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x004a}
0x0e44e…0e45e               Head {h00=0x000c, h01=0x0050, text=»NN EQU *«, t00=0x0092, t01=0x0054}
0x0e45e…0e486               Head {h00=0x0024, h01=0x0050, text=» LDK A3,2 NO OF DIGITS IN NUMBER«, t00=0x0092, t01=0x0064}
0x0e486…0e4b0               Head {h00=0x0026, h01=0x0050, text=» CF A14,NUMB LOOK IF LEGAL DIGITS «, t00=0x0092, t01=0x008c}
0x0e4b0…0e4d8               Head {h00=0x0024, h01=0x0050, text=» LDR A1,A1 SET RETURN CONDITION «, t00=0x0092, t01=0x00b6}
0x0e4d8…0e4fe               Head {h00=0x0022, h01=0x0050, text=» RF(Z) CONERR '00' NOT ALLOWED«, t00=0x0092, t01=0x00de}
0x0e4fe…0e508               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x0104}
0x0e508…0e530               Head {h00=0x0024, h01=0x0050, text=» RF NN:50 LOOK IF END IF RECORD «, t00=0x0092, t01=0x010e}
0x0e530…0e53a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x0136}
0x0e53a…0e54c               Head {h00=0x000e, h01=0x0050, text=»NN1 EQU * «, t00=0x0092, t01=0x0140}
0x0e54c…0e574               Head {h00=0x0024, h01=0x0050, text=» LDK A3,2 NO OF DIGITS IN NUMBER«, t00=0x0092, t01=0x0152}
0x0e574…0e59e               Head {h00=0x0026, h01=0x0050, text=» CF A14,NUMB LOOK IF LEGAL DIGITS «, t00=0x0092, t01=0x017a}
0x0e59e…0e5c6               Head {h00=0x0024, h01=0x0050, text=» ST A5,NDEVCL+STKEND SAVE NUMBER«, t00=0x0093, t01=0x0014}
0x0e5c6…0e5ec               Head {h00=0x0022, h01=0x0050, text=»NN:50 LCR A5,A4 GET CHARACTER «, t00=0x0093, t01=0x003c}
0x0e5ec…0e610               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x0093, t01=0x0062}
0x0e610…0e62a               Head {h00=0x0016, h01=0x0050, text=» RF(NE) CONERR NO!«, t00=0x0093, t01=0x0086}
0x0e62a…0e63a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0093, t01=0x00a0}
0x0e63a…0e648               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0093, t01=0x00b0}
0x0e648…0e658               Head {h00=0x000c, h01=0x0050, text=»AA EQU *«, t00=0x0093, t01=0x00be}
0x0e658…0e66a               Head {h00=0x000e, h01=0x0050, text=» LDK A3,2 «, t00=0x0093, t01=0x00ce}
0x0e66a…0e67e               Head {h00=0x0010, h01=0x0050, text=»AA:10 EQU * «, t00=0x0093, t01=0x00e0}
0x0e67e…0e69e               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x0093, t01=0x00f4}
0x0e69e…0e6d0               Head {h00=0x002e, h01=0x0050, text=» CCK A5,/3030 ALPHA-NUMERIC CHARACTER <30?«, t00=0x0093, t01=0x0114}
0x0e6d0…0e6ea               Head {h00=0x0016, h01=0x0050, text=» RF(L) CONERR YES!«, t00=0x0093, t01=0x0146}
0x0e6ea…0e71e               Head {h00=0x0030, h01=0x0050, text=» CCK A5,/3939 ALPHA-NUMERIC CHARACTER > 39? «, t00=0x0093, t01=0x0160}
0x0e71e…0e738 (148, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(NG) AA:20 NO! «, t00=0x0094, t01=0x0004}
0x0e738…0e76c               Head {h00=0x0030, h01=0x0050, text=» CCK A5,/4141 ALPHA-NUMERIC CHARACTER < 41? «, t00=0x0094, t01=0x001e}
0x0e76c…0e782               Head {h00=0x0012, h01=0x0050, text=» RF(L) CONERR «, t00=0x0094, t01=0x0052}
0x0e782…0e7b6               Head {h00=0x0030, h01=0x0050, text=» CCK A5,/5A5A ALPHA-NUMERIC CHARACTER > 5A? «, t00=0x0094, t01=0x0068}
0x0e7b6…0e7cc               Head {h00=0x0012, h01=0x0050, text=» RF(G) CONERR «, t00=0x0094, t01=0x009c}
0x0e7cc…0e7e0               Head {h00=0x0010, h01=0x0050, text=»AA:20 EQU * «, t00=0x0094, t01=0x00b2}
0x0e7e0…0e80a               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0094, t01=0x00c6}
0x0e80a…0e81c               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0094, t01=0x00f0}
0x0e81c…0e832               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) AA:10 «, t00=0x0094, t01=0x0102}
0x0e832…0e858               Head {h00=0x0022, h01=0x0050, text=» LCR A5,A4 GET NEXT CHARACTER «, t00=0x0094, t01=0x0118}
0x0e858…0e87c               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x0094, t01=0x013e}
0x0e87c…0e896               Head {h00=0x0016, h01=0x0050, text=» RF(NE) CONERR NO!«, t00=0x0094, t01=0x0162}
0x0e896…0e8a6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0094, t01=0x017c}
0x0e8a6…0e8b4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0094, t01=0x018c}
0x0e8b4…0e8c6               Head {h00=0x000e, h01=0x0050, text=»TID EQU * «, t00=0x0095, t01=0x000a}
0x0e8c6…0e8ec               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ1 SELECT SEQUENCE «, t00=0x0095, t01=0x001c}
0x0e8ec…0e916               Head {h00=0x0026, h01=0x0050, text=» LDK A3,4 GET NUMBER OF CHARACTERS«, t00=0x0095, t01=0x0042}
0x0e916…0e926               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0095, t01=0x006c}
0x0e926…0e938               Head {h00=0x000e, h01=0x0050, text=»TCL EQU * «, t00=0x0095, t01=0x007c}
0x0e938…0e95e               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ2 SELECT SEQUENCE «, t00=0x0095, t01=0x008e}
0x0e95e…0e988               Head {h00=0x0026, h01=0x0050, text=» LDK A3,4 GET NUMBER OF CHARACTERS«, t00=0x0095, t01=0x00b4}
0x0e988…0e998               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0095, t01=0x00de}
0x0e998…0e9aa               Head {h00=0x000e, h01=0x0050, text=»LEV EQU * «, t00=0x0095, t01=0x00ee}
0x0e9aa…0e9d0               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ3 SELECT SEQUENCE «, t00=0x0095, t01=0x0100}
0x0e9d0…0e9fa               Head {h00=0x0026, h01=0x0050, text=» LDK A3,4 GET NUMBER OF CHARACTERS«, t00=0x0095, t01=0x0126}
0x0e9fa…0ea0a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0095, t01=0x0150}
0x0ea0a…0ea18               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0095, t01=0x0160}
0x0ea18…0ea2a               Head {h00=0x000e, h01=0x0050, text=»TDCT EQU *«, t00=0x0095, t01=0x016e}
0x0ea2a…0ea50               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ4 SELECT SEQUENCE «, t00=0x0095, t01=0x0180}
0x0ea50…0ea7a               Head {h00=0x0026, h01=0x0050, text=» LDK A3,5 GET NUMBER OF CHARACTERS«, t00=0x0096, t01=0x0016}
0x0ea7a…0ea8a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0096, t01=0x0040}
0x0ea8a…0ea9a               Head {h00=0x000c, h01=0x0050, text=»LC EQU *«, t00=0x0096, t01=0x0050}
0x0ea9a…0eac0               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ5 SELECT SEQUENCE «, t00=0x0096, t01=0x0060}
0x0eac0…0eaea               Head {h00=0x0026, h01=0x0050, text=» LDK A3,3 GET NUMBER OF CHARACTERS«, t00=0x0096, t01=0x0086}
0x0eaea…0eafa               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0096, t01=0x00b0}
0x0eafa…0eb0c               Head {h00=0x000e, h01=0x0050, text=»SDCS EQU *«, t00=0x0096, t01=0x00c0}
0x0eb0c…0eb32               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ6 SELECT SEQUENCE «, t00=0x0096, t01=0x00d2}
0x0eb32…0eb5c               Head {h00=0x0026, h01=0x0050, text=» LDK A3,5 GET NUMBER OF CHARACTERS«, t00=0x0096, t01=0x00f8}
0x0eb5c…0eb6c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0096, t01=0x0122}
0x0eb6c…0eb7a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0096, t01=0x0132}
0x0eb7a…0eb8c               Head {h00=0x000e, h01=0x0050, text=»TEST EQU *«, t00=0x0096, t01=0x0140}
0x0eb8c…0ebac               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x0096, t01=0x0152}
0x0ebac…0ebbe               Head {h00=0x000e, h01=0x0050, text=» CCR A5,A2«, t00=0x0096, t01=0x0172}
0x0ebbe…0ebd4               Head {h00=0x0012, h01=0x0050, text=» RF(NE) CONERR«, t00=0x0096, t01=0x0184}
0x0ebd4…0ebfe               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0097, t01=0x000a}
0x0ebfe…0ec2a               Head {h00=0x0028, h01=0x0050, text=» ADK A2,1 INCREMENT SEQUENCE POINTER«, t00=0x0097, t01=0x0034}
0x0ec2a…0ec5c               Head {h00=0x002e, h01=0x0050, text=» SUK A3,1 MORE CHARACTERS IN THE SEQUENCE?«, t00=0x0097, t01=0x0060}
0x0ec5c…0ec76               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) TEST YES! «, t00=0x0097, t01=0x0092}
0x0ec76…0ec86               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0097, t01=0x00ac}
0x0ec86…0ec94               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0097, t01=0x00bc}
0x0ec94…0eca8               Head {h00=0x0010, h01=0x0050, text=»SUKASC EQU *«, t00=0x0097, t01=0x00ca}
0x0eca8…0ecde               Head {h00=0x0032, h01=0x0050, text=» CCK A5,/3030 NUMBER OF NUMERIC CHARACTERS<10?«, t00=0x0097, t01=0x00de}
0x0ecde…0ecfa               Head {h00=0x0018, h01=0x0050, text=» RF(NE) SUK:10 YES! «, t00=0x0097, t01=0x0114}
0x0ecfa…0ed12               Head {h00=0x0014, h01=0x0050, text=» SUK A5,/F6 N0! «, t00=0x0097, t01=0x0130}
0x0ed12…0ed2a               Head {h00=0x0014, h01=0x0050, text=»SUK:10 SUK A5,1 «, t00=0x0097, t01=0x0148}
0x0ed2a…0ed5e               Head {h00=0x0030, h01=0x0050, text=» ST A5,NDEVCL+STKEND STORE NUMBER OF CLASSES«, t00=0x0097, t01=0x0160}
0x0ed5e…0ed6e (152, 0, 400) Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0098, t01=0x0004}
0x0ed6e…0ed7c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0098, t01=0x0014}
0x0ed7c…0ed8e               Head {h00=0x000e, h01=0x0050, text=»NUMB EQU *«, t00=0x0098, t01=0x0022}
0x0ed8e…0edbc               Head {h00=0x002a, h01=0x0050, text=» LDK A1,0 RESET NO OF NON ZERO DIGITS «, t00=0x0098, t01=0x0034}
0x0edbc…0edd0               Head {h00=0x0010, h01=0x0050, text=»NUMB00 EQU *«, t00=0x0098, t01=0x0062}
0x0edd0…0edf6               Head {h00=0x0022, h01=0x0050, text=» LCR A5,A4 GET DIGIT IN NUMBER«, t00=0x0098, t01=0x0076}
0x0edf6…0ee20               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0098, t01=0x009c}
0x0ee20…0ee4c               Head {h00=0x0028, h01=0x0050, text=» CCK A5,/3939 NUMERIC CHARACTER >9? «, t00=0x0098, t01=0x00c6}
0x0ee4c…0ee66               Head {h00=0x0016, h01=0x0050, text=» RF(G) CONERR YES!«, t00=0x0098, t01=0x00f2}
0x0ee66…0ee70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x010c}
0x0ee70…0ee9c               Head {h00=0x0028, h01=0x0050, text=» CCK A5,/3030 NUMERIC CHARACTER <0? «, t00=0x0098, t01=0x0116}
0x0ee9c…0eeb6               Head {h00=0x0016, h01=0x0050, text=» RF(L) CONERR YES!«, t00=0x0098, t01=0x0142}
0x0eeb6…0eee0               Head {h00=0x0026, h01=0x0050, text=» RF(Z) NUMB10 NUMERIC CHARACTER =0«, t00=0x0098, t01=0x015c}
0x0eee0…0eeea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0186}
0x0eeea…0ef1c               Head {h00=0x002e, h01=0x0050, text=» ADK A1,1 INCREMENT NO OF NON ZERO DIGITS «, t00=0x0098, t01=0x0190}
0x0ef1c…0ef30               Head {h00=0x0010, h01=0x0050, text=»NUMB10 EQU *«, t00=0x0099, t01=0x0032}
0x0ef30…0ef5a               Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DECREMENT DIGIT COUNTER «, t00=0x0099, t01=0x0046}
0x0ef5a…0ef84               Head {h00=0x0026, h01=0x0050, text=» RF(Z) NUMB20 ALL DIGITS PROCESSED«, t00=0x0099, t01=0x0070}
0x0ef84…0ef8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x009a}
0x0ef8e…0efbe               Head {h00=0x002c, h01=0x0050, text=» SLL A5,8 LAST DIGIT TO LEAST SIGN. BYTE«, t00=0x0099, t01=0x00a4}
0x0efbe…0efe4               Head {h00=0x0022, h01=0x0050, text=» RB NUMB00 PROCESS NEXT DIGIT «, t00=0x0099, t01=0x00d4}
0x0efe4…0efee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x00fa}
0x0efee…0f002               Head {h00=0x0010, h01=0x0050, text=»NUMB20 EQU *«, t00=0x0099, t01=0x0104}
0x0f002…0f01a               Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0099, t01=0x0118}
0x0f01a…0f028               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0099, t01=0x0130}
0x0f028…0f032               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x013e}
0x0f032…0f03c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x0148}
0x0f03c…0f076               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0099, t01=0x0152}
0x0f076…0f0b0               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x0099, t01=0x018c}
0x0f0b0…0f0ea               Head {h00=0x0036, h01=0x0050, text=»*     SEQUENCES                                  *«, t00=0x009a, t01=0x0036}
0x0f0ea…0f124               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x009a, t01=0x0070}
0x0f124…0f15e               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x009a, t01=0x00aa}
0x0f15e…0f168               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x00e4}
0x0f168…0f172               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x00ee}
0x0f172…0f17c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x00f8}
0x0f17c…0f186               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x0102}
0x0f186…0f19e               Head {h00=0x0014, h01=0x0050, text=»SEQ1 EQU * TID= «, t00=0x009a, t01=0x010c}
0x0f19e…0f1b0               Head {h00=0x000e, h01=0x0050, text=» DATA 'TI'«, t00=0x009a, t01=0x0124}
0x0f1b0…0f1c2               Head {h00=0x000e, h01=0x0050, text=» DATA 'D='«, t00=0x009a, t01=0x0136}
0x0f1c2…0f1da               Head {h00=0x0014, h01=0x0050, text=»SEQ2 EQU * TCL= «, t00=0x009a, t01=0x0148}
0x0f1da…0f1ec               Head {h00=0x000e, h01=0x0050, text=» DATA 'TC'«, t00=0x009a, t01=0x0160}
0x0f1ec…0f1fe               Head {h00=0x000e, h01=0x0050, text=» DATA 'L='«, t00=0x009a, t01=0x0172}
0x0f1fe…0f216               Head {h00=0x0014, h01=0x0050, text=»SEQ3 EQU * LEV= «, t00=0x009a, t01=0x0184}
0x0f216…0f228               Head {h00=0x000e, h01=0x0050, text=» DATA 'LE'«, t00=0x009b, t01=0x000c}
0x0f228…0f23a               Head {h00=0x000e, h01=0x0050, text=» DATA 'V='«, t00=0x009b, t01=0x001e}
0x0f23a…0f252               Head {h00=0x0014, h01=0x0050, text=»SEQ4 EQU * TDC=T«, t00=0x009b, t01=0x0030}
0x0f252…0f264               Head {h00=0x000e, h01=0x0050, text=» DATA 'TD'«, t00=0x009b, t01=0x0048}
0x0f264…0f276               Head {h00=0x000e, h01=0x0050, text=» DATA 'C='«, t00=0x009b, t01=0x005a}
0x0f276…0f288               Head {h00=0x000e, h01=0x0050, text=» DATA 'T0'«, t00=0x009b, t01=0x006c}
0x0f288…0f29e               Head {h00=0x0012, h01=0x0050, text=»SEQ5 EQU * LC=«, t00=0x009b, t01=0x007e}
0x0f29e…0f2b0               Head {h00=0x000e, h01=0x0050, text=» DATA 'LC'«, t00=0x009b, t01=0x0094}
0x0f2b0…0f2c2               Head {h00=0x000e, h01=0x0050, text=» DATA '=0'«, t00=0x009b, t01=0x00a6}
0x0f2c2…0f2da               Head {h00=0x0014, h01=0x0050, text=»SEQ6 EQU * SDC=S«, t00=0x009b, t01=0x00b8}
0x0f2da…0f2ec               Head {h00=0x000e, h01=0x0050, text=» DATA 'SD'«, t00=0x009b, t01=0x00d0}
0x0f2ec…0f2fe               Head {h00=0x000e, h01=0x0050, text=» DATA 'C='«, t00=0x009b, t01=0x00e2}
0x0f2fe…0f310               Head {h00=0x000e, h01=0x0050, text=» DATA 'S0'«, t00=0x009b, t01=0x00f4}
0x0f310…0f31c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009b, t01=0x0106}
0x0f31c…0f336               Head {h00=0x0016, h01=0x0050, text=» IFT CFTCAS+CASS=2«, t00=0x009b, t01=0x0112}
0x0f336…0f340               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x012c}
0x0f340…0f36a               Head {h00=0x0026, h01=0x0050, text=»*  PROGRAM LOAD DEVICE = CASSETTE «, t00=0x009b, t01=0x0136}
0x0f36a…0f374               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x0160}
0x0f374…0f388               Head {h00=0x0010, h01=0x0050, text=»CON:30 EQU *«, t00=0x009b, t01=0x016a}
0x0f388…0f3aa               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 START OF BUFFER«, t00=0x009b, t01=0x017e}
0x0f3aa…0f3d0               Head {h00=0x0022, h01=0x0050, text=» ADKL A1,BUFLEN END OF BUFFER «, t00=0x009c, t01=0x0010}
0x0f3d0…0f400               Head {h00=0x002c, h01=0x0050, text=» ST A1,PLDADR+STKEND SAVE END OF BUFFER «, t00=0x009c, t01=0x0036}
0x0f400…0f422               Head {h00=0x001e, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE «, t00=0x009c, t01=0x0066}
0x0f422…0f45a               Head {h00=0x0034, h01=0x0050, text=» ST A1,CONSTA+STKCOM START OF CONFIGURATION DATA«, t00=0x009c, t01=0x0088}
0x0f45a…0f47e               Head {h00=0x0020, h01=0x0050, text=» CF A14,RDBLK READ ONE BLOCK«, t00=0x009c, t01=0x00c0}
0x0f47e…0f4a4               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x009c, t01=0x00e4}
0x0f4a4…0f4c0               Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x009c, t01=0x010a}
0x0f4c0…0f4da               Head {h00=0x0016, h01=0x0050, text=» RF(Z) CON:50 NO! «, t00=0x009c, t01=0x0126}
0x0f4da…0f50c               Head {h00=0x002e, h01=0x0050, text=» CF A14,CASSIN INIT CONFIGURATION CASSETTE«, t00=0x009c, t01=0x0140}
0x0f50c…0f520               Head {h00=0x0010, h01=0x0050, text=»CON:40 EQU *«, t00=0x009c, t01=0x0172}
0x0f520…0f546               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x009c, t01=0x0186}
0x0f546…0f562               Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x009d, t01=0x001c}
0x0f562…0f57c               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CONEX YES!«, t00=0x009d, t01=0x0038}
0x0f57c…0f590               Head {h00=0x0010, h01=0x0050, text=»CON:50 EQU *«, t00=0x009d, t01=0x0052}
0x0f590…0f59a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x0066}
0x0f59a…0f5d0               Head {h00=0x0032, h01=0x0050, text=»*  COMPUTE NUMBER OF CHARACTERS IN THIS BLOCK «, t00=0x009d, t01=0x0070}
0x0f5d0…0f5da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x00a6}
0x0f5da…0f614               Head {h00=0x0036, h01=0x0050, text=» LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER«, t00=0x009d, t01=0x00b0}
0x0f614…0f62c               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x009d, t01=0x00ea}
0x0f62c…0f656               Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET CHARACTER COUNTER «, t00=0x009d, t01=0x0102}
0x0f656…0f67c               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A9 GET START OF BUFFER«, t00=0x009d, t01=0x012c}
0x0f67c…0f690               Head {h00=0x0010, h01=0x0050, text=»CON:60 EQU *«, t00=0x009d, t01=0x0152}
0x0f690…0f6ba               Head {h00=0x0026, h01=0x0050, text=» LCR A5,A4 GET CHARACTER IN BUFFER«, t00=0x009d, t01=0x0166}
0x0f6ba…0f6de               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' CHECK IF SPACE «, t00=0x009d, t01=0x0190}
0x0f6de…0f708               Head {h00=0x0026, h01=0x0050, text=» RF(E) CON:70 NO MOORE CHARACTERS «, t00=0x009e, t01=0x0024}
0x0f708…0f71c               Head {h00=0x0010, h01=0x0050, text=»CON:65 EQU *«, t00=0x009e, t01=0x004e}
0x0f71c…0f740               Head {h00=0x0020, h01=0x0050, text=» CWK A3,CBLEN END OF BUFFER?«, t00=0x009e, t01=0x0062}
0x0f740…0f75a               Head {h00=0x0016, h01=0x0050, text=» RF(E) CON:75 YES!«, t00=0x009e, t01=0x0086}
0x0f75a…0f788               Head {h00=0x002a, h01=0x0050, text=» CW A1,ESYSTA+STKEND MEMORY OVERFLOW? «, t00=0x009e, t01=0x00a0}
0x0f788…0f7a2               Head {h00=0x0016, h01=0x0050, text=» RF(E) MEMOFL YES!«, t00=0x009e, t01=0x00ce}
0x0f7a2…0f7d2               Head {h00=0x002c, h01=0x0050, text=» ADK A1,1 INCREMENT DESTINATION POINTER «, t00=0x009e, t01=0x00e8}
0x0f7d2…0f800               Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT CHARACTER COUNTER «, t00=0x009e, t01=0x0118}
0x0f800…0f82a               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x009e, t01=0x0146}
0x0f82a…0f83c               Head {h00=0x000e, h01=0x0050, text=» RB CON:60«, t00=0x009e, t01=0x0170}
0x0f83c…0f850               Head {h00=0x0010, h01=0x0050, text=»CON:70 EQU *«, t00=0x009e, t01=0x0182}
0x0f850…0f876               Head {h00=0x0022, h01=0x0050, text=» LC A5,1,A4 GET NEXT CHARACTER«, t00=0x009f, t01=0x0008}
0x0f876…0f89c               Head {h00=0x0022, h01=0x0050, text=» CCK A5,';;' TWO SEMI-COLONS? «, t00=0x009f, t01=0x002e}
0x0f89c…0f8b6               Head {h00=0x0016, h01=0x0050, text=» RF(NE) CON:75 NO!«, t00=0x009f, t01=0x0054}
0x0f8b6…0f8e4               Head {h00=0x002a, h01=0x0050, text=» CWK A3,NCHTID CHECK IF END OF RECORD «, t00=0x009f, t01=0x006e}
0x0f8e4…0f91c               Head {h00=0x0034, h01=0x0050, text=» RB(E) CON:65 NO: SEMI-COLON CHARACTER IN RECORD«, t00=0x009f, t01=0x009c}
0x0f91c…0f930               Head {h00=0x0010, h01=0x0050, text=»CON:75 EQU *«, t00=0x009f, t01=0x00d4}
0x0f930…0f966               Head {h00=0x0032, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION «, t00=0x009f, t01=0x00e8}
0x0f966…0f98c               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x009f, t01=0x011e}
0x0f98c…0f99e               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x009f, t01=0x0144}
0x0f99e…0f9b0               Head {h00=0x000e, h01=0x0050, text=» RB CON:40«, t00=0x009f, t01=0x0156}
0x0f9b0…0f9c4               Head {h00=0x0010, h01=0x0050, text=»CONEX EQU * «, t00=0x009f, t01=0x0168}
0x0f9c4…0f9ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x017c}
0x0f9ce…0fa10               Head {h00=0x003e, h01=0x0050, text=»*  UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE«, t00=0x009f, t01=0x0186}
0x0fa10…0fa1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x0038}
0x0fa1a…0fa40               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x00a0, t01=0x0042}
0x0fa40…0fa64               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 APPLICATION DATA?«, t00=0x00a0, t01=0x0068}
0x0fa64…0fa7e               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CON:80 NO!«, t00=0x00a0, t01=0x008c}
0x0fa7e…0fa90               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/D«, t00=0x00a0, t01=0x00a6}
0x0fa90…0fabe               Head {h00=0x002a, h01=0x0050, text=» CF A14,CHCRIO SEARCH TAPEMARK REVERSE«, t00=0x00a0, t01=0x00b8}
0x0fabe…0fae4               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK BYPASS TAPEMARK «, t00=0x00a0, t01=0x00e6}
0x0fae4…0faf6               Head {h00=0x000e, h01=0x0050, text=» RF CON:90«, t00=0x00a0, t01=0x010c}
0x0faf6…0fb0a               Head {h00=0x0010, h01=0x0050, text=»CON:80 EQU *«, t00=0x00a0, t01=0x011e}
0x0fb0a…0fb1c               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/F«, t00=0x00a0, t01=0x0132}
0x0fb1c…0fb42               Head {h00=0x0022, h01=0x0050, text=» CF A14,CHCRIO UNLOAD CASSETTE«, t00=0x00a0, t01=0x0144}
0x0fb42…0fb56               Head {h00=0x0010, h01=0x0050, text=»CON:90 EQU *«, t00=0x00a0, t01=0x016a}
0x0fb56…0fb6a               Head {h00=0x0010, h01=0x0050, text=» ABL CONMOV «, t00=0x00a0, t01=0x017e}
0x0fb6a…0fb76 (161, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a1, t01=0x0004}
0x0fb76…0fb8a               Head {h00=0x0010, h01=0x0050, text=»CONERR EQU *«, t00=0x00a1, t01=0x0010}
0x0fb8a…0fba0               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x00a1, t01=0x0024}
0x0fba0…0fbb4               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00a1, t01=0x003a}
0x0fbb4…0fbca               Head {h00=0x0012, h01=0x0050, text=» IFF CFTEST=1 «, t00=0x00a1, t01=0x004e}
0x0fbca…0fbde               Head {h00=0x0010, h01=0x0050, text=»MEMOFL EQU *«, t00=0x00a1, t01=0x0064}
0x0fbde…0fc0c               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x00a1, t01=0x0078}
0x0fc0c…0fc20               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00a1, t01=0x00a6}
0x0fc20…0fc2e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a1, t01=0x00ba}
0x0fc2e…0fc42               Head {h00=0x0010, h01=0x0050, text=»CONRAD EQU *«, t00=0x00a1, t01=0x00c8}
0x0fc42…0fc4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x00dc}
0x0fc4c…0fc86               Head {h00=0x0036, h01=0x0050, text=»*  LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC«, t00=0x00a1, t01=0x00e6}
0x0fc86…0fc90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x0120}
0x0fc90…0fccc               Head {h00=0x0038, h01=0x0050, text=» LD A1,CONDEV+STKEND GET LOAD DEVICE FOR CONF. DATA «, t00=0x00a1, t01=0x012a}
0x0fccc…0fcfa               Head {h00=0x002a, h01=0x0050, text=» RF(Z) CONRA0 SAME AS PGM LOAD DEVICE «, t00=0x00a1, t01=0x0166}
0x0fcfa…0fd04 (162, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x0004}
0x0fd04…0fd38               Head {h00=0x0030, h01=0x0050, text=» CF A14,CONFLD INITIATE CONF. DATA LOAD DEV.«, t00=0x00a2, t01=0x000e}
0x0fd38…0fd4c               Head {h00=0x0010, h01=0x0050, text=»CONRA0 EQU *«, t00=0x00a2, t01=0x0042}
0x0fd4c…0fd7a               Head {h00=0x002a, h01=0x0050, text=» LD A11,CONDAD+STKEND GET START SECTOR«, t00=0x00a2, t01=0x0056}
0x0fd7a…0fdb0               Head {h00=0x0032, h01=0x0050, text=» LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART «, t00=0x00a2, t01=0x0084}
0x0fdb0…0fdd6               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x00a2, t01=0x00ba}
0x0fdd6…0fdfe               Head {h00=0x0024, h01=0x0050, text=» ADKL A1,BUFLEN-6 END OF BUFFER «, t00=0x00a2, t01=0x00e0}
0x0fdfe…0fe2e               Head {h00=0x002c, h01=0x0050, text=» ST A1,PLDADR+STKEND SAVE END OF BUFFER «, t00=0x00a2, t01=0x0108}
0x0fe2e…0fe54               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x00a2, t01=0x0138}
0x0fe54…0fe7e               Head {h00=0x0026, h01=0x0050, text=» AD A1,SAVCON START OF SAVE BUFFER«, t00=0x00a2, t01=0x015e}
0x0fe7e…0fea2               Head {h00=0x0020, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE =2«, t00=0x00a2, t01=0x0188}
0x0fea2…0febe               Head {h00=0x0018, h01=0x0050, text=» ST A1,CONSTA+STKCOM«, t00=0x00a3, t01=0x001c}
0x0febe…0fee6               Head {h00=0x0024, h01=0x0050, text=» LDKL A10,0 RESET RECORD COUNTER«, t00=0x00a3, t01=0x0038}
0x0fee6…0fefa               Head {h00=0x0010, h01=0x0050, text=»COR:10 EQU *«, t00=0x00a3, t01=0x0060}
0x0fefa…0ff04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x0074}
0x0ff04…0ff38               Head {h00=0x0030, h01=0x0050, text=»*  READ ONE SECTOR FROM RANDOM ACCESS DEVICE«, t00=0x00a3, t01=0x007e}
0x0ff38…0ff42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x00b2}
0x0ff42…0ff64               Head {h00=0x001e, h01=0x0050, text=» CF A14,RDSEC READ SECTOR «, t00=0x00a3, t01=0x00bc}
0x0ff64…0ff8a               Head {h00=0x0022, h01=0x0050, text=» LDR A8,A9 GET START OF BUFFER«, t00=0x00a3, t01=0x00de}
0x0ff8a…0ff9e               Head {h00=0x0010, h01=0x0050, text=»COR:20 EQU *«, t00=0x00a3, t01=0x0104}
0x0ff9e…0ffa8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x0118}
0x0ffa8…0ffde               Head {h00=0x0032, h01=0x0050, text=»*  COMPUTE NUMBER OF CHARACTERS IN THIS RECORD«, t00=0x00a3, t01=0x0122}
0x0ffde…0ffe8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x0158}
0x0ffe8…10022               Head {h00=0x0036, h01=0x0050, text=» LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER«, t00=0x00a3, t01=0x0162}
0x10022…1003a               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x00a4, t01=0x000c}
0x1003a…10064               Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET CHARACTER COUNTER «, t00=0x00a4, t01=0x0024}
0x10064…10086               Head {h00=0x001e, h01=0x0050, text=» LDR A4,A8 START OF RECORD«, t00=0x00a4, t01=0x004e}
0x10086…10090               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x0070}
0x10090…100ae               Head {h00=0x001a, h01=0x0050, text=»*  LOOK IF WE HAVE AN «, t00=0x00a4, t01=0x007a}
0x100ae…100d2               Head {h00=0x0020, h01=0x0050, text=»*  APPLICATION CONTROL BLOCK«, t00=0x00a4, t01=0x0098}
0x100d2…100dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x00bc}
0x100dc…10106               Head {h00=0x0026, h01=0x0050, text=» LDR* A5,A4 GET 1ST WORD IN BUFFER«, t00=0x00a4, t01=0x00c6}
0x10106…1013a               Head {h00=0x0030, h01=0x0050, text=» CWK A5,'D;' DATA COMMUNICATION DEF. BLOCK? «, t00=0x00a4, t01=0x00f0}
0x1013a…10154               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:25 YES!«, t00=0x00a4, t01=0x0124}
0x10154…1015e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x013e}
0x1015e…1018a               Head {h00=0x0028, h01=0x0050, text=» CWK A5,'A;' AND LOOK IF IT IS 'A;' «, t00=0x00a4, t01=0x0148}
0x1018a…101a4               Head {h00=0x0016, h01=0x0050, text=» RF(NE) COR:30 NO!«, t00=0x00a4, t01=0x0174}
0x101a4…101ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x018e}
0x101ae…101dc               Head {h00=0x002a, h01=0x0050, text=» LDKL A5,/FF3B YES, SUBSTITUTE A; WITH«, t00=0x00a5, t01=0x0008}
0x101dc…10200               Head {h00=0x0020, h01=0x0050, text=» STR A5,A4 'HEX FF' AND ';' «, t00=0x00a5, t01=0x0036}
0x10200…1023c               Head {h00=0x0038, h01=0x0050, text=» LD A5,CURAPL+STKEND GET CURRENT APPL. CONTR. BLOCK «, t00=0x00a5, t01=0x005a}
0x1023c…10260               Head {h00=0x0020, h01=0x0050, text=» ADK A1,1 SKIP BLOCK MARKER «, t00=0x00a5, t01=0x0096}
0x10260…1029a               Head {h00=0x0036, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE CURRENT BUFFER POSITION «, t00=0x00a5, t01=0x00ba}
0x1029a…102d6               Head {h00=0x0038, h01=0x0050, text=» SU A1,CONSTA+STKCOM AND CALCULATE RELATIVE POSITION«, t00=0x00a5, t01=0x00f4}
0x102d6…1030a               Head {h00=0x0030, h01=0x0050, text=» ST A1,APLMMC,A5 SAVE IN APPL. CONTROL BLOCK«, t00=0x00a5, t01=0x0130}
0x1030a…1032c               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A8 START OF RECORD«, t00=0x00a5, t01=0x0164}
0x1032c…10360               Head {h00=0x0030, h01=0x0050, text=» ADK A3,1 INCREMENT NO OF CHARACTERS TO MOVE«, t00=0x00a5, t01=0x0186}
0x10360…10372               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x00a6, t01=0x002a}
0x10372…10396               Head {h00=0x0020, h01=0x0050, text=» ADKL A10,2 SKIP NEXT RECORD«, t00=0x00a6, t01=0x003c}
0x10396…103a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x0060}
0x103a0…103d2               Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x00a6, t01=0x006a}
0x103d2…103fe               Head {h00=0x0028, h01=0x0050, text=» CW A8,PLDADR+STKEND END OF BUFFER? «, t00=0x00a6, t01=0x009c}
0x103fe…10418               Head {h00=0x0016, h01=0x0050, text=» RF(L) COR:48 NO! «, t00=0x00a6, t01=0x00c8}
0x10418…10422               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x00e2}
0x10422…1044e               Head {h00=0x0028, h01=0x0050, text=» CF A14,RDSEC YES, READ NEXT SECTOR «, t00=0x00a6, t01=0x00ec}
0x1044e…10478               Head {h00=0x0026, h01=0x0050, text=» LDR A8,A9 AND GET START OF BUFFER«, t00=0x00a6, t01=0x0118}
0x10478…1048a               Head {h00=0x000e, h01=0x0050, text=» RF COR:48«, t00=0x00a6, t01=0x0142}
0x1048a…10494               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x0154}
0x10494…104a8               Head {h00=0x0010, h01=0x0050, text=»COR:25 EQU *«, t00=0x00a6, t01=0x015e}
0x104a8…104e6               Head {h00=0x003a, h01=0x0050, text=» LD A5,EINPBF+STKEND CURRENT POSITION IN CONF. DATA =6«, t00=0x00a6, t01=0x0172}
0x104e6…10522               Head {h00=0x0038, h01=0x0050, text=» SU A5,CONSTA+STKCOM CALCULATE RELATIVE POSITION =6 «, t00=0x00a7, t01=0x0020}
0x10522…10546               Head {h00=0x0020, h01=0x0050, text=» ST A5,DCBLK+STKCOM SAVE =6 «, t00=0x00a7, t01=0x005c}
0x10546…1055a               Head {h00=0x0010, h01=0x0050, text=»COR:30 EQU *«, t00=0x00a7, t01=0x0080}
0x1055a…1057a               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x00a7, t01=0x0094}
0x1057a…1059e               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x00a7, t01=0x00b4}
0x1059e…105b8               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x00a7, t01=0x00d8}
0x105b8…105cc               Head {h00=0x0010, h01=0x0050, text=»COR:35 EQU *«, t00=0x00a7, t01=0x00f2}
0x105cc…105fa               Head {h00=0x002a, h01=0x0050, text=» CWK A3,RECLEN MAXIMUM SIZE ACHIEVED? «, t00=0x00a7, t01=0x0106}
0x105fa…10614               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x00a7, t01=0x0134}
0x10614…10642               Head {h00=0x002a, h01=0x0050, text=» CW A1,ESYSTA+STKEND MEMORY OVERFLOW? «, t00=0x00a7, t01=0x014e}
0x10642…1065c               Head {h00=0x0016, h01=0x0050, text=» RB(E) MEMOFL YES!«, t00=0x00a7, t01=0x017c}
0x1065c…10686               Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 INCREMENT BUFFER POINTER«, t00=0x00a8, t01=0x0008}
0x10686…106b4               Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT CHARACTER COUNTER «, t00=0x00a8, t01=0x0032}
0x106b4…106de               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT RECORD POINTER«, t00=0x00a8, t01=0x0060}
0x106de…106f6               Head {h00=0x0014, h01=0x0050, text=» RB COR:30 LOOP «, t00=0x00a8, t01=0x008a}
0x106f6…1070a               Head {h00=0x0010, h01=0x0050, text=»COR:40 EQU *«, t00=0x00a8, t01=0x00a2}
0x1070a…10730               Head {h00=0x0022, h01=0x0050, text=» LC A5,1,A4 GET NEXT CHARACTER«, t00=0x00a8, t01=0x00b6}
0x10730…10754               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' TWO SEMICOLONS?«, t00=0x00a8, t01=0x00dc}
0x10754…1076e               Head {h00=0x0016, h01=0x0050, text=» RF(NE) COR:45 NO!«, t00=0x00a8, t01=0x0100}
0x1076e…1079c               Head {h00=0x002a, h01=0x0050, text=» CWK A3,NCHTID CHECK IF END OF RECORD «, t00=0x00a8, t01=0x011a}
0x1079c…107d4               Head {h00=0x0034, h01=0x0050, text=» RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD «, t00=0x00a8, t01=0x0148}
0x107d4…107e8               Head {h00=0x0010, h01=0x0050, text=»COR:45 EQU *«, t00=0x00a8, t01=0x0180}
0x107e8…1081e (169, 0, 400) Head {h00=0x0032, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION «, t00=0x00a9, t01=0x0004}
0x1081e…10840               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A8 START OF RECORD«, t00=0x00a9, t01=0x003a}
0x10840…10852               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x00a9, t01=0x005c}
0x10852…1087e               Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x00a9, t01=0x006e}
0x1087e…108a8               Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD «, t00=0x00a9, t01=0x009a}
0x108a8…108c2               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:50 YES!«, t00=0x00a9, t01=0x00c4}
0x108c2…108d6               Head {h00=0x0010, h01=0x0050, text=»COR:48 EQU *«, t00=0x00a9, t01=0x00de}
0x108d6…10908               Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x00a9, t01=0x00f2}
0x10908…10932               Head {h00=0x0026, h01=0x0050, text=» CW A8,PLDADR+STKEND END OF BUFFER«, t00=0x00a9, t01=0x0124}
0x10932…10954               Head {h00=0x001e, h01=0x0050, text=» RB(E) COR:10 NEXT SECTOR «, t00=0x00a9, t01=0x014e}
0x10954…10972               Head {h00=0x001a, h01=0x0050, text=» RB COR:20 NEXT RECORD«, t00=0x00a9, t01=0x0170}
0x10972…10986               Head {h00=0x0010, h01=0x0050, text=»COR:50 EQU *«, t00=0x00a9, t01=0x018e}
0x10986…109ac               Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00aa, t01=0x0012}
0x109ac…109c4               Head {h00=0x0014, h01=0x0050, text=» ANK A1,8 SWB:S?«, t00=0x00aa, t01=0x0038}
0x109c4…109dc               Head {h00=0x0014, h01=0x0050, text=» RF(Z) COR:55 NO«, t00=0x00aa, t01=0x0050}
0x109dc…109f0               Head {h00=0x0010, h01=0x0050, text=» LDK A3,'S' «, t00=0x00aa, t01=0x0068}
0x109f0…10a1a               Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:25+1 MODIFY INSTRUCTION«, t00=0x00aa, t01=0x007c}
0x10a1a…10a44               Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:60+1 MODIFY INSTRUCTION«, t00=0x00aa, t01=0x00a6}
0x10a44…10a60               Head {h00=0x0018, h01=0x0050, text=» LD A1,IPLDEV+STKEND«, t00=0x00aa, t01=0x00d0}
0x10a60…10a92               Head {h00=0x002e, h01=0x0050, text=» CF A14,LODDEV INITIALIZE PGM LOAD DEVICE «, t00=0x00aa, t01=0x00ec}
0x10a92…10aa8               Head {h00=0x0012, h01=0x0050, text=» CF A14,GETFIL«, t00=0x00aa, t01=0x011e}
0x10aa8…10ab2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x0134}
0x10ab2…10ad2               Head {h00=0x001c, h01=0x0050, text=»*  UNLOCK FLEXIBLE DISC «, t00=0x00aa, t01=0x013e}
0x10ad2…10adc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x015e}
0x10adc…10af0               Head {h00=0x0010, h01=0x0050, text=»COR:55 EQU *«, t00=0x00aa, t01=0x0168}
0x10af0…10b28               Head {h00=0x0034, h01=0x0050, text=» LD A1,CONDEV+STKEND GET CONF. DATA LOAD DEVICE «, t00=0x00aa, t01=0x017c}
0x10b28…10b58               Head {h00=0x002c, h01=0x0050, text=» RF(Z) COR:58 SAME AS APPL. LOAD DEVICE «, t00=0x00ab, t01=0x0024}
0x10b58…10b62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x0054}
0x10b62…10b74               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x00ab, t01=0x005e}
0x10b74…10b86               Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x00ab, t01=0x0070}
0x10b86…10b98               Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x00ab, t01=0x0082}
0x10b98…10bc0               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COR:58 NOT FLEXIBLE DISC«, t00=0x00ab, t01=0x0094}
0x10bc0…10bcc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ab, t01=0x00bc}
0x10bcc…10be8               Head {h00=0x0018, h01=0x0050, text=» IFT CFTFLD+FLDISC=2«, t00=0x00ab, t01=0x00c8}
0x10be8…10c14               Head {h00=0x0028, h01=0x0050, text=» CF A14,UNLOCK UNLOCK FLEXIBLE DISC «, t00=0x00ab, t01=0x00e4}
0x10c14…10c20               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ab, t01=0x0110}
0x10c20…10c36               Head {h00=0x0012, h01=0x0050, text=» IFF CFTEST=1 «, t00=0x00ab, t01=0x011c}
0x10c36…10c4a               Head {h00=0x0010, h01=0x0050, text=»COR:58 EQU *«, t00=0x00ab, t01=0x0132}
0x10c4a…10c78               Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x00ab, t01=0x0146}
0x10c78…10c96               Head {h00=0x001a, h01=0x0050, text=» SUK A1,/F8 CHECK TYPE«, t00=0x00ab, t01=0x0174}
0x10c96…10cbe (172, 0, 400) Head {h00=0x0024, h01=0x0050, text=» RF(N) COR:60 NOT FLEXIBLE DISC «, t00=0x00ac, t01=0x0004}
0x10cbe…10cc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ac, t01=0x002c}
0x10cc8…10cee               Head {h00=0x0022, h01=0x0050, text=» SUK A1,/FC-/F8 FLEXIBLE DISC?«, t00=0x00ac, t01=0x0036}
0x10cee…10d08               Head {h00=0x0016, h01=0x0050, text=» RF(NN) COR:60 NO!«, t00=0x00ac, t01=0x005c}
0x10d08…10d12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ac, t01=0x0076}
0x10d12…10d1e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ac, t01=0x0080}
0x10d1e…10d3a               Head {h00=0x0018, h01=0x0050, text=» IFT CFTFLD+FLDISC=2«, t00=0x00ac, t01=0x008c}
0x10d3a…10d60               Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x00ac, t01=0x00a8}
0x10d60…10d7e               Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x00ac, t01=0x00ce}
0x10d7e…10da6               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COR:60 YES! DON'T UNLOCK«, t00=0x00ac, t01=0x00ec}
0x10da6…10db0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ac, t01=0x0114}
0x10db0…10dcc               Head {h00=0x0018, h01=0x0050, text=» LD A1,IPLDEV+STKEND«, t00=0x00ac, t01=0x011e}
0x10dcc…10df8               Head {h00=0x0028, h01=0x0050, text=» CF A14,UNLOCK UNLOCK FLEXIBLE DISC «, t00=0x00ac, t01=0x013a}
0x10df8…10e04               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ac, t01=0x0166}
0x10e04…10e1a               Head {h00=0x0012, h01=0x0050, text=» IFF CFTEST=1 «, t00=0x00ac, t01=0x0172}
0x10e1a…10e30               Head {h00=0x0012, h01=0x0050, text=» IFF CFTEST=1 «, t00=0x00ac, t01=0x0188}
0x10e30…10e44               Head {h00=0x0010, h01=0x0050, text=»COR:60 EQU *«, t00=0x00ad, t01=0x000e}
0x10e44…10e52               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ad, t01=0x0022}
0x10e52…10e66               Head {h00=0x0010, h01=0x0050, text=»CONMOV EQU *«, t00=0x00ad, t01=0x0030}
0x10e66…10e70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ad, t01=0x0044}
0x10e70…10ea8               Head {h00=0x0034, h01=0x0050, text=»*  MOVE CONFIGURATION DATA TO END OF SYSTEM AREA«, t00=0x00ad, t01=0x004e}
0x10ea8…10eb2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ad, t01=0x0086}
0x10eb2…10edc               Head {h00=0x0026, h01=0x0050, text=» CIO A1,0,SOP INHIBIT SOP SWITCHES«, t00=0x00ad, t01=0x0090}
0x10edc…10f02               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x00ad, t01=0x00ba}
0x10f02…10f2e               Head {h00=0x0028, h01=0x0050, text=» AD A1,SAVCON COMPUTE END OF BUFFER «, t00=0x00ad, t01=0x00e0}
0x10f2e…10f6e               Head {h00=0x003c, h01=0x0050, text=»CMOV10 LD A3,EINPBF+STKEND GET END OF CONFIGURATION DATA«, t00=0x00ad, t01=0x010c}
0x10f6e…10fa2               Head {h00=0x0030, h01=0x0050, text=» LD A2,ESYSTA+STKEND GET END OF SYSTEM AREA «, t00=0x00ad, t01=0x014c}
0x10fa2…10fd0               Head {h00=0x002a, h01=0x0050, text=» CM -2,A2 MAKE SURE CONFIGURATION FILE«, t00=0x00ad, t01=0x0180}
0x10fd0…10ff6               Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 IS FOLLOWED BY X'00'«, t00=0x00ae, t01=0x001e}
0x10ff6…11026               Head {h00=0x002c, h01=0x0050, text=» SUR A3,A1 LENGTH OF CONFIGURATION DATA «, t00=0x00ae, t01=0x0044}
0x11026…1105c               Head {h00=0x0032, h01=0x0050, text=» ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA«, t00=0x00ae, t01=0x0074}
0x1105c…1107a               Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x00ae, t01=0x00aa}
0x1107a…11084               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x00c8}
0x11084…110ac               Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN ADDRESS«, t00=0x00ae, t01=0x00d2}
0x110ac…110be               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x00ae, t01=0x00fa}
0x110be…110fc               Head {h00=0x003a, h01=0x0050, text=» ST A2,CONSTA+STKCOM SAVE START OF CONFIGURATION DATA «, t00=0x00ae, t01=0x010c}
0x110fc…11132               Head {h00=0x0032, h01=0x0050, text=» LD A1,CONLEN+STKCOM GET LENGTH OF CONF. DATA «, t00=0x00ae, t01=0x014a}
0x11132…11166               Head {h00=0x0030, h01=0x0050, text=» ADK A1,2 INCLUDE TRAILING ZEROES IN LENGTH «, t00=0x00ae, t01=0x0180}
0x11166…1118a               Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFE AND MAKE EVEN«, t00=0x00af, t01=0x0024}
0x1118a…111a6               Head {h00=0x0018, h01=0x0050, text=» ST A1,CONLEN+STKCOM«, t00=0x00af, t01=0x0048}
0x111a6…111d0               Head {h00=0x0026, h01=0x0050, text=» LDR A1,A9 GET START OF FREE AREA «, t00=0x00af, t01=0x0064}
0x111d0…111f4               Head {h00=0x0020, h01=0x0050, text=» LDR A12,A2 END OF FREE AREA«, t00=0x00af, t01=0x008e}
0x111f4…1121c               Head {h00=0x0024, h01=0x0050, text=» SUR A12,A1 SUBTRACT MONITOR END«, t00=0x00af, t01=0x00b2}
0x1121c…11252               Head {h00=0x0032, h01=0x0050, text=» ST A12,M:REL+STKCOM SAVE RELOCATION CONSTANT «, t00=0x00af, t01=0x00da}
0x11252…1127e               Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTMXS GET MXSTAB ADDRESS =1 «, t00=0x00af, t01=0x0110}
0x1127e…112a8               Head {h00=0x0026, h01=0x0050, text=» RF(Z) CMOV20 NO MXSTAB PRESENT =1«, t00=0x00af, t01=0x013c}
0x112a8…112b8               Head {h00=0x000c, h01=0x0050, text=»*    =1 «, t00=0x00af, t01=0x0166}
0x112b8…112e6               Head {h00=0x002a, h01=0x0050, text=» ADR A2,A12 RELOCATE MXSTAB ADDRESS =1«, t00=0x00af, t01=0x0176}
0x112e6…11316               Head {h00=0x002c, h01=0x0050, text=» ST A2,SCTMXS AND SAVE AS NEW ADDRESS =1«, t00=0x00b0, t01=0x0014}
0x11316…11330               Head {h00=0x0016, h01=0x0050, text=»CMOV20 EQU *   =1 «, t00=0x00b0, t01=0x0044}
0x11330…11360               Head {h00=0x002c, h01=0x0050, text=» LD A2,CONSTA+STKCOM GET START OF CONFF «, t00=0x00b0, t01=0x005e}
0x11360…1136a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x008e}
0x1136a…113aa               Head {h00=0x003c, h01=0x0050, text=»*  MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA«, t00=0x00b0, t01=0x0098}
0x113aa…113b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x00d8}
0x113b4…113c8               Head {h00=0x0010, h01=0x0050, text=»MOPRO EQU * «, t00=0x00b0, t01=0x00e2}
0x113c8…113e0               Head {h00=0x0014, h01=0x0050, text=» LDKL A13,SYSLDM«, t00=0x00b0, t01=0x00f6}
0x113e0…113f2               Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x00b0, t01=0x010e}
0x113f2…11404               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x00b0, t01=0x0120}
0x11404…11418               Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A1 «, t00=0x00b0, t01=0x0132}
0x11418…1142a               Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x00b0, t01=0x0146}
0x1142a…1143e               Head {h00=0x0010, h01=0x0050, text=» CWR A1,A13 «, t00=0x00b0, t01=0x0158}
0x1143e…11454               Head {h00=0x0012, h01=0x0050, text=» RB(NE) MOPRO «, t00=0x00b0, t01=0x016c}
0x11454…11480               Head {h00=0x0028, h01=0x0050, text=» ABR A2 CONTINUE EXECUTION IN SYSLDM«, t00=0x00b0, t01=0x0182}
0x11480…1148c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b1, t01=0x001e}
0x1148c…1149a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b1, t01=0x002a}
0x1149a…114ea               Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x00b1, t01=0x0038}
0x114ea…1153a               Head {h00=0x004c, h01=0x0050, text=»*  SUBROUTINES USED IN THE APPLICATION AND CONFIGURATION LOADING PHASE O«, t00=0x00b1, t01=0x0088}
0x1153a…1158a               Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x00b1, t01=0x00d8}
0x1158a…115b2               Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x00b1, t01=0x0128}
0x115b2…115da               Head {h00=0x0024, h01=0x0050, text=»*  SOPIN - READ SOP SWITCHES  * «, t00=0x00b1, t01=0x0150}
0x115da…11602               Head {h00=0x0024, h01=0x0050, text=»*  =========================  * «, t00=0x00b1, t01=0x0178}
0x11602…1162a               Head {h00=0x0024, h01=0x0050, text=»*                             * «, t00=0x00b2, t01=0x0010}
0x1162a…11652               Head {h00=0x0024, h01=0x0050, text=»*  ENTRY:                     * «, t00=0x00b2, t01=0x0038}
0x11652…1167a               Head {h00=0x0024, h01=0x0050, text=»*                             * «, t00=0x00b2, t01=0x0060}
0x1167a…116a2               Head {h00=0x0024, h01=0x0050, text=»*  EXIT:  A1 - SOP INPUT      * «, t00=0x00b2, t01=0x0088}
0x116a2…116ca               Head {h00=0x0024, h01=0x0050, text=»*         BIT 6 - SWITCH 1    * «, t00=0x00b2, t01=0x00b0}
0x116ca…116f2               Head {h00=0x0024, h01=0x0050, text=»*         BIT 15 - SWITCH 10  * «, t00=0x00b2, t01=0x00d8}
0x116f2…1171a               Head {h00=0x0024, h01=0x0050, text=»*                             * «, t00=0x00b2, t01=0x0100}
0x1171a…11742               Head {h00=0x0024, h01=0x0050, text=»*  WORK REGISTERS:  A1        * «, t00=0x00b2, t01=0x0128}
0x11742…1176a               Head {h00=0x0024, h01=0x0050, text=»*                             * «, t00=0x00b2, t01=0x0150}
0x1176a…11792               Head {h00=0x0024, h01=0x0050, text=»*  SUBROUTINES:               * «, t00=0x00b2, t01=0x0178}
0x11792…117ba               Head {h00=0x0024, h01=0x0050, text=»*                             * «, t00=0x00b3, t01=0x0010}
0x117ba…117e2               Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x00b3, t01=0x0038}
0x117e2…117f6               Head {h00=0x0010, h01=0x0050, text=»SOPIN EQU * «, t00=0x00b3, t01=0x0060}
0x117f6…1180c               Head {h00=0x0012, h01=0x0050, text=» CIO A1,1,SOP «, t00=0x00b3, t01=0x0074}
0x1180c…11822               Head {h00=0x0012, h01=0x0050, text=» INR A1,0,SOP «, t00=0x00b3, t01=0x008a}
0x11822…11836               Head {h00=0x0010, h01=0x0050, text=» RB(NA) *-2 «, t00=0x00b3, t01=0x00a0}
0x11836…11846               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00b3, t01=0x00b4}
0x11846…11854               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b3, t01=0x00c4}
0x11854…11880               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00b3, t01=0x00d2}
0x11880…118ac               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00b3, t01=0x00fe}
0x118ac…118d8               Head {h00=0x0028, h01=0x0050, text=»* LODDEV - INITIAZE LOAD UNIT     * «, t00=0x00b3, t01=0x012a}
0x118d8…11904               Head {h00=0x0028, h01=0x0050, text=»* ===========================     * «, t00=0x00b3, t01=0x0156}
0x11904…11930               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00b3, t01=0x0182}
0x11930…1195c               Head {h00=0x0028, h01=0x0050, text=»* USED FOR CONFIGURATION OF       * «, t00=0x00b4, t01=0x001e}
0x1195c…11988               Head {h00=0x0028, h01=0x0050, text=»* PROGRAM LOAD DEVICE AND         * «, t00=0x00b4, t01=0x004a}
0x11988…119b4               Head {h00=0x0028, h01=0x0050, text=»* CONFIGURATION DATA LOAD         * «, t00=0x00b4, t01=0x0076}
0x119b4…119e0               Head {h00=0x0028, h01=0x0050, text=»* DEVICE (IF DIFFERENT).          * «, t00=0x00b4, t01=0x00a2}
0x119e0…11a0c               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00b4, t01=0x00ce}
0x11a0c…11a38               Head {h00=0x0028, h01=0x0050, text=»* ON ENTRY: A1=DEVICE ADDRESS     * «, t00=0x00b4, t01=0x00fa}
0x11a38…11a64               Head {h00=0x0028, h01=0x0050, text=»* ON EXIT:  A2=FILE CODE          * «, t00=0x00b4, t01=0x0126}
0x11a64…11a90               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00b4, t01=0x0152}
0x11a90…11abc               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00b4, t01=0x017e}
0x11abc…11ac4               Head {h00=0x0004, h01=0x0050, t00=0x00b5, t01=0x001a}
0x11ac4…11acc               Head {h00=0x0004, h01=0x0050, t00=0x00b5, t01=0x0022}
0x11acc…11ae0               Head {h00=0x0010, h01=0x0050, text=»LODDEV EQU *«, t00=0x00b5, t01=0x002a}
0x11ae0…11af8               Head {h00=0x0014, h01=0x0050, text=» LDKL A3,BUFLEN «, t00=0x00b5, t01=0x003e}
0x11af8…11b26               Head {h00=0x002a, h01=0x0050, text=» ST A3,SAVCON INITIALIZE BUFFER LENGTH«, t00=0x00b5, t01=0x0056}
0x11b26…11b3a               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x00b5, t01=0x0084}
0x11b3a…11b62               Head {h00=0x0024, h01=0x0050, text=» ST A2,CYLNBR SET SEEK CONDITION«, t00=0x00b5, t01=0x0098}
0x11b62…11b74               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x00b5, t01=0x00c0}
0x11b74…11b9c               Head {h00=0x0024, h01=0x0050, text=» ANK A2,/80 CHECK IF CASSETTE =9«, t00=0x00b5, t01=0x00d2}
0x11b9c…11bb6               Head {h00=0x0016, h01=0x0050, text=» RF(P) CASS:0 YES!«, t00=0x00b5, t01=0x00fa}
0x11bb6…11bc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b5, t01=0x0114}
0x11bc0…11bea               Head {h00=0x0026, h01=0x0050, text=» LDR A2,A1 GET PROGRAM LOAD DEVICE«, t00=0x00b5, t01=0x011e}
0x11bea…11c16               Head {h00=0x0028, h01=0x0050, text=» SRL A2,4 BIT15 INDICATE UNIT 1 OR 2«, t00=0x00b5, t01=0x0148}
0x11c16…11c44               Head {h00=0x002a, h01=0x0050, text=» LC A3,IPLTYP+1+STKEND GET DEVICE TYPE«, t00=0x00b5, t01=0x0174}
0x11c44…11c58               Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x00b6, t01=0x0012}
0x11c58…11c6a               Head {h00=0x000e, h01=0x0050, text=» SUK A3,3 «, t00=0x00b6, t01=0x0026}
0x11c6a…11c84               Head {h00=0x0016, h01=0x0050, text=» RF(N) DISC:0 DISC«, t00=0x00b6, t01=0x0038}
0x11c84…11ca8               Head {h00=0x0020, h01=0x0050, text=» RF(Z) MFD:0 MINI FIXED DISC«, t00=0x00b6, t01=0x0052}
0x11ca8…11cbe               Head {h00=0x0012, h01=0x0050, text=» SUK A3,3  =9 «, t00=0x00b6, t01=0x0076}
0x11cbe…11ce0               Head {h00=0x001e, h01=0x0050, text=» RF(N) CDC:0 80M CDC DISC «, t00=0x00b6, t01=0x008c}
0x11ce0…11d00               Head {h00=0x001c, h01=0x0050, text=» RF FLEX:0 FLEXIBLE DISC«, t00=0x00b6, t01=0x00ae}
0x11d00…11d0e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b6, t01=0x00ce}
0x11d0e…11d22               Head {h00=0x0010, h01=0x0050, text=»CASS:0 EQU *«, t00=0x00b6, t01=0x00dc}
0x11d22…11d36               Head {h00=0x0010, h01=0x0050, text=» IFT CASS=1 «, t00=0x00b6, t01=0x00f0}
0x11d36…11d40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x0104}
0x11d40…11d6a               Head {h00=0x0026, h01=0x0050, text=»*  PROGRAM LOAD DEVICE = CASSETTE «, t00=0x00b6, t01=0x010e}
0x11d6a…11d74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x0138}
0x11d74…11db6               Head {h00=0x003e, h01=0x0050, text=» LD A1,APLTAB+STKCOM GET CURRENT APPLICATION CONTR. BLOCK «, t00=0x00b6, t01=0x0142}
0x11db6…11de4               Head {h00=0x002a, h01=0x0050, text=» CM APLADA+2,A1 CLEAR APPLICATION DISC«, t00=0x00b6, t01=0x0184}
0x11de4…11e10               Head {h00=0x0028, h01=0x0050, text=» CM APLADA+4,A1 FILE ADDRESS ENTRIES«, t00=0x00b7, t01=0x0022}
0x11e10…11e3e               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,RDBLK GET SUBROUTINE ADDRESS «, t00=0x00b7, t01=0x004e}
0x11e3e…11e52               Head {h00=0x0010, h01=0x0050, text=» LDR A10,A1 «, t00=0x00b7, t01=0x007c}
0x11e52…11e86               Head {h00=0x0030, h01=0x0050, text=» ST A1,READ STORE IN PROGRAM LOAD SUBROUTINE«, t00=0x00b7, t01=0x0090}
0x11e86…11e9a               Head {h00=0x0010, h01=0x0050, text=»CASS:2 EQU *«, t00=0x00b7, t01=0x00c4}
0x11e9a…11ec8               Head {h00=0x002a, h01=0x0050, text=» CF A14,RDBLK READ ONE CASSETTE BLOCK «, t00=0x00b7, t01=0x00d8}
0x11ec8…11ee6               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 TAPE MARK? «, t00=0x00b7, t01=0x0106}
0x11ee6…11f02               Head {h00=0x0018, h01=0x0050, text=» RF(Z) FINIS RETURN «, t00=0x00b7, t01=0x0124}
0x11f02…11f0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x0140}
0x11f0c…11f3c               Head {h00=0x002c, h01=0x0050, text=» CF A14,CASSIN INIT APPLICATION CASSETTE«, t00=0x00b7, t01=0x014a}
0x11f3c…11f4e               Head {h00=0x000e, h01=0x0050, text=» RB CASS:2«, t00=0x00b7, t01=0x017a}
0x11f4e…11f5a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b7, t01=0x018c}
0x11f5a…11f6e               Head {h00=0x0010, h01=0x0050, text=» IFF CASS=1 «, t00=0x00b8, t01=0x0008}
0x11f6e…11f84               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00b8, t01=0x001c}
0x11f84…11fae               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x00b8, t01=0x0032}
0x11fae…11fba               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b8, t01=0x005c}
0x11fba…11fc8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b8, t01=0x0068}
0x11fc8…11fdc               Head {h00=0x0010, h01=0x0050, text=»FLEX:0 EQU *«, t00=0x00b8, t01=0x0076}
0x11fdc…11ff2               Head {h00=0x0012, h01=0x0050, text=» IFT FLDISC=1 «, t00=0x00b8, t01=0x008a}
0x11ff2…11ffc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x00a0}
0x11ffc…1202a               Head {h00=0x002a, h01=0x0050, text=»*  PROGRAM LOAD DEVICE = FLEXIBLE DISC«, t00=0x00b8, t01=0x00aa}
0x1202a…12034               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x00d8}
0x12034…1203e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x00e2}
0x1203e…12074               Head {h00=0x0032, h01=0x0050, text=»*  MODIFY SCTIPL: /F8 - DRIVE 1, /F9 - DRIVE 2«, t00=0x00b8, t01=0x00ec}
0x12074…1207e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x0122}
0x1207e…12092               Head {h00=0x0010, h01=0x0050, text=» ORK  A2,/F8«, t00=0x00b8, t01=0x012c}
0x12092…120be               Head {h00=0x0028, h01=0x0050, text=» ST A2,FILCOD+STKEND SAVE FILE CODE «, t00=0x00b8, t01=0x0140}
0x120be…120c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x016c}
0x120c8…120e6               Head {h00=0x001a, h01=0x0050, text=»*  INIT FLEXIBLE DISC «, t00=0x00b8, t01=0x0176}
0x120e6…120f0 (185, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x0004}
0x120f0…12106               Head {h00=0x0012, h01=0x0050, text=» CF A14,FDINIT«, t00=0x00b9, t01=0x000e}
0x12106…12118               Head {h00=0x000e, h01=0x0050, text=» RF FINISH«, t00=0x00b9, t01=0x0024}
0x12118…12122               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x0036}
0x12122…1212e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b9, t01=0x0040}
0x1212e…12144               Head {h00=0x0012, h01=0x0050, text=» IFF FLDISC=1 «, t00=0x00b9, t01=0x004c}
0x12144…1215a               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00b9, t01=0x0062}
0x1215a…12184               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x00b9, t01=0x0078}
0x12184…12190               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b9, t01=0x00a2}
0x12190…1219e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b9, t01=0x00ae}
0x1219e…121b2               Head {h00=0x0010, h01=0x0050, text=»MFD:0 EQU * «, t00=0x00b9, t01=0x00bc}
0x121b2…121c8               Head {h00=0x0012, h01=0x0050, text=» IFT MFDISC=1 «, t00=0x00b9, t01=0x00d0}
0x121c8…121d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x00e6}
0x121d2…12202               Head {h00=0x002c, h01=0x0050, text=»* PROGRAM LOAD DEVICE = MINI FIXED DISC «, t00=0x00b9, t01=0x00f0}
0x12202…1220c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x0120}
0x1220c…1223c               Head {h00=0x002c, h01=0x0050, text=»* MODIFY SCTIPL:/F4-DRIVE 1,/F5-DRIVE 2 «, t00=0x00b9, t01=0x012a}
0x1223c…12246               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x015a}
0x12246…1225a               Head {h00=0x0010, h01=0x0050, text=» ORK A2,/F4 «, t00=0x00b9, t01=0x0164}
0x1225a…12286               Head {h00=0x0028, h01=0x0050, text=» ST A2,FILCOD+STKEND SAVE FILE CODE «, t00=0x00b9, t01=0x0178}
0x12286…12290               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x0014}
0x12290…122ae               Head {h00=0x001a, h01=0x0050, text=»* INIT MINI FIXED DISC«, t00=0x00ba, t01=0x001e}
0x122ae…122b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x003c}
0x122b8…122ce               Head {h00=0x0012, h01=0x0050, text=» CF A14,MDINIT«, t00=0x00ba, t01=0x0046}
0x122ce…122e8               Head {h00=0x0016, h01=0x0050, text=» RF FINISH RETURN «, t00=0x00ba, t01=0x005c}
0x122e8…122f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x0076}
0x122f2…122fe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ba, t01=0x0080}
0x122fe…12314               Head {h00=0x0012, h01=0x0050, text=» IFF MFDISC=1 «, t00=0x00ba, t01=0x008c}
0x12314…1232a               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00ba, t01=0x00a2}
0x1232a…12354               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x00ba, t01=0x00b8}
0x12354…12360               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ba, t01=0x00e2}
0x12360…1236e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ba, t01=0x00ee}
0x1236e…12382               Head {h00=0x0010, h01=0x0050, text=»DISC:0 EQU *«, t00=0x00ba, t01=0x00fc}
0x12382…12396               Head {h00=0x0010, h01=0x0050, text=» IFT DISC=1 «, t00=0x00ba, t01=0x0110}
0x12396…123a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x0124}
0x123a0…123c6               Head {h00=0x0022, h01=0x0050, text=»*  PROGRAM LOAD DEVICE = DISC «, t00=0x00ba, t01=0x012e}
0x123c6…123d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x0154}
0x123d0…123da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x015e}
0x123da…12418               Head {h00=0x003a, h01=0x0050, text=»*  MODIFY SCTIPL: /F1 - CARTRIDGE DISC /F0 - FIX DISC «, t00=0x00ba, t01=0x0168}
0x12418…12422               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x0016}
0x12422…1244c               Head {h00=0x0026, h01=0x0050, text=» LC A2,FCTAB,A2 LOAD FILE CODE =5 «, t00=0x00bb, t01=0x0020}
0x1244c…12478               Head {h00=0x0028, h01=0x0050, text=» ST A2,FILCOD+STKEND SAVE FILE CODE «, t00=0x00bb, t01=0x004a}
0x12478…12482               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x0076}
0x12482…124a6               Head {h00=0x0020, h01=0x0050, text=»*  INITIALIZE DISC COMMANDS «, t00=0x00bb, t01=0x0080}
0x124a6…124b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x00a4}
0x124b0…124c6               Head {h00=0x0012, h01=0x0050, text=» CF A14,DUINIT«, t00=0x00bb, t01=0x00ae}
0x124c6…124d2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bb, t01=0x00c4}
0x124d2…124e6               Head {h00=0x0010, h01=0x0050, text=» IFF DISC=1 «, t00=0x00bb, t01=0x00d0}
0x124e6…124fc               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00bb, t01=0x00e4}
0x124fc…12510               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00bb, t01=0x00fa}
0x12510…1251c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bb, t01=0x010e}
0x1251c…12530               Head {h00=0x0010, h01=0x0050, text=»FINISH EQU *«, t00=0x00bb, t01=0x011a}
0x12530…12562               Head {h00=0x002e, h01=0x0050, text=» LDK A1,1 A1#0 MEANS RANDOM ACCESS DEVICE «, t00=0x00bb, t01=0x012e}
0x12562…12576               Head {h00=0x0010, h01=0x0050, text=»FINIS EQU * «, t00=0x00bb, t01=0x0160}
0x12576…125a4               Head {h00=0x002a, h01=0x0050, text=» LD A2,FILCOD+STKEND RESTORE FILE CODE«, t00=0x00bb, t01=0x0174}
0x125a4…125b4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00bc, t01=0x0012}
0x125b4…125c2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bc, t01=0x0022}
0x125c2…125d6               Head {h00=0x0010, h01=0x0050, text=»CDC:0 EQU * «, t00=0x00bc, t01=0x0030}
0x125d6…125f2               Head {h00=0x0018, h01=0x0050, text=» IFF CDDISC+CDDI16=0«, t00=0x00bc, t01=0x0044}
0x125f2…125fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x0060}
0x125fc…12630               Head {h00=0x0030, h01=0x0050, text=»* PROGRAM LOAD DEVICE = 16M OR 80M CDC DISC «, t00=0x00bc, t01=0x006a}
0x12630…1263a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x009e}
0x1263a…12644               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x00a8}
0x12644…12666               Head {h00=0x001e, h01=0x0050, text=»* MODIFY SCTIPL: /FC - /FD«, t00=0x00bc, t01=0x00b2}
0x12666…12670               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x00d4}
0x12670…12698               Head {h00=0x0024, h01=0x0050, text=» SRC A2,2 TEST IF UNIT 1 OR 2 =9«, t00=0x00bc, t01=0x00de}
0x12698…126b8               Head {h00=0x001c, h01=0x0050, text=» RF(NN) CDC:1 UNIT 1 =9 «, t00=0x00bc, t01=0x0106}
0x126b8…126ce               Head {h00=0x0012, h01=0x0050, text=» ADK A2,2  =9 «, t00=0x00bc, t01=0x0126}
0x126ce…126e6               Head {h00=0x0014, h01=0x0050, text=»CDC:1 EQU *  =9 «, t00=0x00bc, t01=0x013c}
0x126e6…1270e               Head {h00=0x0024, h01=0x0050, text=» ANK A2,7 MASK BITS NOT USED =9 «, t00=0x00bc, t01=0x0154}
0x1270e…1272c               Head {h00=0x001a, h01=0x0050, text=» ORK A2,/FC FILE CODE «, t00=0x00bc, t01=0x017c}
0x1272c…12758               Head {h00=0x0028, h01=0x0050, text=» ST A2,FILCOD+STKEND SAVE FILE CODE «, t00=0x00bd, t01=0x000a}
0x12758…12762               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bd, t01=0x0036}
0x12762…12784               Head {h00=0x001e, h01=0x0050, text=»* INITIALISE DISC COMMANDS«, t00=0x00bd, t01=0x0040}
0x12784…1278e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bd, t01=0x0062}
0x1278e…127b0               Head {h00=0x001e, h01=0x0050, text=» CF A14,CDINIT INIT DEVICE«, t00=0x00bd, t01=0x006c}
0x127b0…127ca               Head {h00=0x0016, h01=0x0050, text=» RB FINISH RETURN «, t00=0x00bd, t01=0x008e}
0x127ca…127d6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bd, t01=0x00a8}
0x127d6…127f6               Head {h00=0x001c, h01=0x0050, text=» IFT CDDISC+CDDI16=0  =9«, t00=0x00bd, t01=0x00b4}
0x127f6…1280c               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00bd, t01=0x00d4}
0x1280c…12836               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x00bd, t01=0x00ea}
0x12836…12842               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bd, t01=0x0114}
0x12842…12850               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bd, t01=0x0120}
0x12850…12890               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00bd, t01=0x012e}
0x12890…128d0               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00bd, t01=0x016e}
0x128d0…12910               Head {h00=0x003c, h01=0x0050, text=»*      CONFLD - SELECT LOAD UNIT FOR CONF. DATA       * «, t00=0x00be, t01=0x001e}
0x12910…12950               Head {h00=0x003c, h01=0x0050, text=»*      ========================================       * «, t00=0x00be, t01=0x005e}
0x12950…12990               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00be, t01=0x009e}
0x12990…129d0               Head {h00=0x003c, h01=0x0050, text=»*      ON ENTRY:  A1 = DEVICE ADDRESS                 * «, t00=0x00be, t01=0x00de}
0x129d0…12a10               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00be, t01=0x011e}
0x12a10…12a50               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00be, t01=0x015e}
0x12a50…12a58               Head {h00=0x0004, h01=0x0050, t00=0x00bf, t01=0x000e}
0x12a58…12a60               Head {h00=0x0004, h01=0x0050, t00=0x00bf, t01=0x0016}
0x12a60…12a74               Head {h00=0x0010, h01=0x0050, text=»CONFLD EQU *«, t00=0x00bf, t01=0x001e}
0x12a74…12a88               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x00bf, t01=0x0032}
0x12a88…12ab0               Head {h00=0x0024, h01=0x0050, text=» ST A2,CYLNBR SET SEEK CONDITION«, t00=0x00bf, t01=0x0046}
0x12ab0…12ad6               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A1 SAVE DEVICE ADDRESS«, t00=0x00bf, t01=0x006e}
0x12ad6…12afc               Head {h00=0x0022, h01=0x0050, text=» ANK A2,/F ISOLATE LAST DIGIT «, t00=0x00bf, t01=0x0094}
0x12afc…12b0e               Head {h00=0x000e, h01=0x0050, text=» SUK A2,7 «, t00=0x00bf, t01=0x00ba}
0x12b0e…12b32               Head {h00=0x0020, h01=0x0050, text=» RB(N) MFD:0 MINI FIXED DISC«, t00=0x00bf, t01=0x00cc}
0x12b32…12b3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x00f0}
0x12b3c…12b5e               Head {h00=0x001e, h01=0x0050, text=» RB(Z) CDC:0 80M CDC DISC «, t00=0x00bf, t01=0x00fa}
0x12b5e…12b68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x011c}
0x12b68…12b7a               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x00bf, t01=0x0126}
0x12b7a…12b9c               Head {h00=0x001e, h01=0x0050, text=» RB(Z) DISC:0 DISC DEVICE «, t00=0x00bf, t01=0x0138}
0x12b9c…12ba6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x015a}
0x12ba6…12bce               Head {h00=0x0024, h01=0x0050, text=» RB FLEX:0 FLEXIBLE DISC DEVICE «, t00=0x00bf, t01=0x0164}
0x12bce…12bdc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bf, t01=0x018c}
0x12bdc…12bf0               Head {h00=0x0010, h01=0x0050, text=» IFT CASS=1 «, t00=0x00c0, t01=0x000a}
0x12bf0…12c30               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00c0, t01=0x001e}
0x12c30…12c70               Head {h00=0x003c, h01=0x0050, text=»*        CASSIN - CASSETTE INITIATING ROUTINE         * «, t00=0x00c0, t01=0x005e}
0x12c70…12cb0               Head {h00=0x003c, h01=0x0050, text=»*        ====================================         * «, t00=0x00c0, t01=0x009e}
0x12cb0…12cf0               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c0, t01=0x00de}
0x12cf0…12d30               Head {h00=0x003c, h01=0x0050, text=»*  REFERENCED IN:  SYSLOD -LOADING PART-              * «, t00=0x00c0, t01=0x011e}
0x12d30…12d70               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c0, t01=0x015e}
0x12d70…12db0               Head {h00=0x003c, h01=0x0050, text=»*  ENTRY:                                             * «, t00=0x00c1, t01=0x000e}
0x12db0…12df0               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c1, t01=0x004e}
0x12df0…12e30               Head {h00=0x003c, h01=0x0050, text=»*  EXIT:                                              * «, t00=0x00c1, t01=0x008e}
0x12e30…12e70               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c1, t01=0x00ce}
0x12e70…12eb0               Head {h00=0x003c, h01=0x0050, text=»*  WORK REGISTERS:  A1,A3                             * «, t00=0x00c1, t01=0x010e}
0x12eb0…12ef0               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c1, t01=0x014e}
0x12ef0…12f30               Head {h00=0x003c, h01=0x0050, text=»*  SUBROUTINES:  SOPIN,CHCRIO                         * «, t00=0x00c1, t01=0x018e}
0x12f30…12f70               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c2, t01=0x003e}
0x12f70…12fb0               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00c2, t01=0x007e}
0x12fb0…12fc4               Head {h00=0x0010, h01=0x0050, text=»CASSIN EQU *«, t00=0x00c2, t01=0x00be}
0x12fc4…12fd6               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/F«, t00=0x00c2, t01=0x00d2}
0x12fd6…12ffc               Head {h00=0x0022, h01=0x0050, text=» CF A14,CHCRIO UNLOAD CASSETTE«, t00=0x00c2, t01=0x00e4}
0x12ffc…13032               Head {h00=0x0032, h01=0x0050, text=» LDKL A3,LMP1+LMP2 INDICATE EXPECTED SWITCHES «, t00=0x00c2, t01=0x010a}
0x13032…13048               Head {h00=0x0012, h01=0x0050, text=» OTR A3,0,SOP «, t00=0x00c2, t01=0x0140}
0x13048…1305c               Head {h00=0x0010, h01=0x0050, text=»CAS:10 EQU *«, t00=0x00c2, t01=0x0156}
0x1305c…1307a               Head {h00=0x001a, h01=0x0050, text=» CF A14,SOPIN READ SOP«, t00=0x00c2, t01=0x016a}
0x1307a…130a2               Head {h00=0x0024, h01=0x0050, text=» ANKL A1,/0300 ALLOWED SWITCHES?«, t00=0x00c2, t01=0x0188}
0x130a2…130bc               Head {h00=0x0016, h01=0x0050, text=» RB(Z) CAS:10 NO! «, t00=0x00c3, t01=0x0020}
0x130bc…130e6               Head {h00=0x0026, h01=0x0050, text=» LDKL A3,LMP1 SWITCH ON LOAD LAMP «, t00=0x00c3, t01=0x003a}
0x130e6…130fc               Head {h00=0x0012, h01=0x0050, text=» OTR A3,0,SOP «, t00=0x00c3, t01=0x0064}
0x130fc…1311a               Head {h00=0x001a, h01=0x0050, text=» SRL A1,8 RIGHT ALIGN «, t00=0x00c3, t01=0x007a}
0x1311a…13138               Head {h00=0x001a, h01=0x0050, text=» ANK A1,1 SELECT UNIT «, t00=0x00c3, t01=0x0098}
0x13138…1315a               Head {h00=0x001e, h01=0x0050, text=» CF A14,CHCRIO SELECT UNIT«, t00=0x00c3, t01=0x00b6}
0x1315a…1316e               Head {h00=0x0010, h01=0x0050, text=» LDK A1,LOCK«, t00=0x00c3, t01=0x00d8}
0x1316e…13192               Head {h00=0x0020, h01=0x0050, text=» CF A14,CHCRIO LOCK CASSETTE«, t00=0x00c3, t01=0x00ec}
0x13192…131b6               Head {h00=0x0020, h01=0x0050, text=» ANK A3,1 CASSETTE OPERABLE?«, t00=0x00c3, t01=0x0110}
0x131b6…131d0               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) CAS:10 NO!«, t00=0x00c3, t01=0x0134}
0x131d0…131e6               Head {h00=0x0012, h01=0x0050, text=» LDK A1,SBOT  «, t00=0x00c3, t01=0x014e}
0x131e6…13216               Head {h00=0x002c, h01=0x0050, text=» CF A14,CHCRIO SEARCH BEGINNING OF TAPE «, t00=0x00c3, t01=0x0164}
0x13216…1322a (196, 0, 400) Head {h00=0x0010, h01=0x0050, text=» LDK A1,STMF«, t00=0x00c4, t01=0x0004}
0x1322a…13258               Head {h00=0x002a, h01=0x0050, text=» CF A14,CHCRIO SEARCH TAPEMARK FORWARD«, t00=0x00c4, t01=0x0018}
0x13258…13268               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00c4, t01=0x0046}
0x13268…13276               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c4, t01=0x0056}
0x13276…132ac               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x00c4, t01=0x0064}
0x132ac…132e2               Head {h00=0x0032, h01=0x0050, text=»*  CHCRIO - CASSETTE I/O EXECUTING ROUTINE  * «, t00=0x00c4, t01=0x009a}
0x132e2…13318               Head {h00=0x0032, h01=0x0050, text=»*  =======================================  * «, t00=0x00c4, t01=0x00d0}
0x13318…1334e               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x00c4, t01=0x0106}
0x1334e…13384               Head {h00=0x0032, h01=0x0050, text=»*  REFERENCED IN:  CASSIN,SYSLOD            * «, t00=0x00c4, t01=0x013c}
0x13384…133ba               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x00c4, t01=0x0172}
0x133ba…133f0               Head {h00=0x0032, h01=0x0050, text=»*  ENTRY:  A1 - I/O INSTRUCTION COMMAND     * «, t00=0x00c5, t01=0x0018}
0x133f0…13426               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x00c5, t01=0x004e}
0x13426…1345c               Head {h00=0x0032, h01=0x0050, text=»*  EXIT:                                    * «, t00=0x00c5, t01=0x0084}
0x1345c…13492               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x00c5, t01=0x00ba}
0x13492…134c8               Head {h00=0x0032, h01=0x0050, text=»*  WORK REGISTERS:  A1,A3                   * «, t00=0x00c5, t01=0x00f0}
0x134c8…134fe               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x00c5, t01=0x0126}
0x134fe…13534               Head {h00=0x0032, h01=0x0050, text=»*  SUBROUTINES:                             * «, t00=0x00c5, t01=0x015c}
0x13534…1356a (198, 0, 400) Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x00c6, t01=0x0004}
0x1356a…135a0               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x00c6, t01=0x003a}
0x135a0…135b4               Head {h00=0x0010, h01=0x0050, text=»CHCRIO EQU *«, t00=0x00c6, t01=0x0070}
0x135b4…135ca               Head {h00=0x0012, h01=0x0050, text=» CIO A1,1,CHCR«, t00=0x00c6, t01=0x0084}
0x135ca…135de               Head {h00=0x0010, h01=0x0050, text=» SST A3,CHCR«, t00=0x00c6, t01=0x009a}
0x135de…135f4               Head {h00=0x0012, h01=0x0050, text=» RB(NA) CHCRIO«, t00=0x00c6, t01=0x00ae}
0x135f4…13604               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00c6, t01=0x00c4}
0x13604…13612               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c6, t01=0x00d4}
0x13612…1364c               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x00c6, t01=0x00e2}
0x1364c…13686               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x00c6, t01=0x011c}
0x13686…136c0               Head {h00=0x0036, h01=0x0050, text=»*        RDBLK - READ ONE CASSETTE BLOCK         *«, t00=0x00c6, t01=0x0156}
0x136c0…136fa               Head {h00=0x0036, h01=0x0050, text=»*        ===============================         *«, t00=0x00c6, t01=0x0190}
0x136fa…13734               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x00c7, t01=0x003a}
0x13734…1376e               Head {h00=0x0036, h01=0x0050, text=»*  REFERENCED IN:  SYSLOD                        *«, t00=0x00c7, t01=0x0074}
0x1376e…137a8               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x00c7, t01=0x00ae}
0x137a8…137e2               Head {h00=0x0036, h01=0x0050, text=»*  ENTRY:  A9 - CASSETTE BUFFER POINTER          *«, t00=0x00c7, t01=0x00e8}
0x137e2…1381c               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x00c7, t01=0x0122}
0x1381c…13856               Head {h00=0x0036, h01=0x0050, text=»*  EXIT:  A2 - NUMBER OF CHARACTERS IN BLOCK     *«, t00=0x00c7, t01=0x015c}
0x13856…13890               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x00c8, t01=0x0008}
0x13890…138ce               Head {h00=0x003a, h01=0x0050, text=»*  WORK REGISTERS: A1,A2,A3,A4,A5                   * «, t00=0x00c8, t01=0x0042}
0x138ce…13908               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x00c8, t01=0x0080}
0x13908…13942               Head {h00=0x0036, h01=0x0050, text=»*  SUBROUTINES:                                  *«, t00=0x00c8, t01=0x00ba}
0x13942…1397c               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x00c8, t01=0x00f4}
0x1397c…13990               Head {h00=0x0010, h01=0x0050, text=»RDBLK EQU * «, t00=0x00c8, t01=0x012e}
0x13990…139a2               Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x00c8, t01=0x0142}
0x139a2…139b6               Head {h00=0x0010, h01=0x0050, text=»RDB:10 EQU *«, t00=0x00c8, t01=0x0154}
0x139b6…139d8               Head {h00=0x001e, h01=0x0050, text=» LDR A3,A9 START OF BUFFER«, t00=0x00c8, t01=0x0168}
0x139d8…13a02               Head {h00=0x0026, h01=0x0050, text=» LDK A2,0 RESET CHARACTER COUNTER «, t00=0x00c8, t01=0x018a}
0x13a02…13a2a               Head {h00=0x0024, h01=0x0050, text=» LDR A4,A3 SAVE START OF BUFFER «, t00=0x00c9, t01=0x0024}
0x13a2a…13a4e               Head {h00=0x0020, h01=0x0050, text=» ADKL A3,CBLEN END OF BUFFER«, t00=0x00c9, t01=0x004c}
0x13a4e…13a60               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/A«, t00=0x00c9, t01=0x0070}
0x13a60…13a82               Head {h00=0x001e, h01=0x0050, text=» CIO A1,1,CHCR READ BLOCK «, t00=0x00c9, t01=0x0082}
0x13a82…13a98               Head {h00=0x0012, h01=0x0050, text=» RF(NA) RDERR3«, t00=0x00c9, t01=0x00a4}
0x13a98…13aac               Head {h00=0x0010, h01=0x0050, text=»RDB:20 EQU *«, t00=0x00c9, t01=0x00ba}
0x13aac…13ac2               Head {h00=0x0012, h01=0x0050, text=» INR A1,0,CHCR«, t00=0x00c9, t01=0x00ce}
0x13ac2…13ad8               Head {h00=0x0012, h01=0x0050, text=» RF(NA) RDB:30«, t00=0x00c9, t01=0x00e4}
0x13ad8…13afa               Head {h00=0x001e, h01=0x0050, text=» CWR A4,A3 END OF BUFFER? «, t00=0x00c9, t01=0x00fa}
0x13afa…13b14               Head {h00=0x0016, h01=0x0050, text=» RF(E) RDERR YES! «, t00=0x00c9, t01=0x011c}
0x13b14…13b36               Head {h00=0x001e, h01=0x0050, text=» SCR A1,A4 STORE CHARACTER«, t00=0x00c9, t01=0x0136}
0x13b36…13b64               Head {h00=0x002a, h01=0x0050, text=» ADK A2,1 INCREMENT CHARACTER COUNTER «, t00=0x00c9, t01=0x0158}
0x13b64…13b8e               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x00c9, t01=0x0186}
0x13b8e…13ba2               Head {h00=0x0010, h01=0x0050, text=»RDB:30 EQU *«, t00=0x00ca, t01=0x0020}
0x13ba2…13bb8               Head {h00=0x0012, h01=0x0050, text=» SST A1,CHCR  «, t00=0x00ca, t01=0x0034}
0x13bb8…13bce               Head {h00=0x0012, h01=0x0050, text=» RB(NA) RDB:20«, t00=0x00ca, t01=0x004a}
0x13bce…13bf2               Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FCFF CHECK STATUS «, t00=0x00ca, t01=0x0060}
0x13bf2…13c10               Head {h00=0x001a, h01=0x0050, text=» LDR A4,A1 SAVE STATUS«, t00=0x00ca, t01=0x0084}
0x13c10…13c28               Head {h00=0x0014, h01=0x0050, text=» RF(Z) RDBEX OK «, t00=0x00ca, t01=0x00a2}
0x13c28…13c4c               Head {h00=0x0020, h01=0x0050, text=» SLC A4,3 CHECK IF TAPEMARK «, t00=0x00ca, t01=0x00ba}
0x13c4c…13c70               Head {h00=0x0020, h01=0x0050, text=» RF(N) RDBEX OK IF TAPEMARK «, t00=0x00ca, t01=0x00de}
0x13c70…13c84               Head {h00=0x0010, h01=0x0050, text=»RDERR EQU * «, t00=0x00ca, t01=0x0102}
0x13c84…13c8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ca, t01=0x0116}
0x13c8e…13cce               Head {h00=0x003c, h01=0x0050, text=»*  READ ERROR HAS OCCURRED: MAKE ANOTHER ATTEMPT TO READ«, t00=0x00ca, t01=0x0120}
0x13cce…13d10               Head {h00=0x003e, h01=0x0050, text=»*  THE SAME BLOCK IF NOT 3 ATTEMPTS ALREADY HAS BEEN MADE «, t00=0x00ca, t01=0x0160}
0x13d10…13d1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x0012}
0x13d1a…13d38               Head {h00=0x001a, h01=0x0050, text=» ADK A5,1 NEXT ATTEMPT«, t00=0x00cb, t01=0x001c}
0x13d38…13d58               Head {h00=0x001c, h01=0x0050, text=» CWK A5,3 THIRD ATTEMPT?«, t00=0x00cb, t01=0x003a}
0x13d58…13d7c               Head {h00=0x0020, h01=0x0050, text=» RF(E) RDERR3 YES - GIVE UP!«, t00=0x00cb, t01=0x005a}
0x13d7c…13da0               Head {h00=0x0020, h01=0x0050, text=» LDK A1,/E REVERSE ONE BLOCK«, t00=0x00cb, t01=0x007e}
0x13da0…13dc4               Head {h00=0x0020, h01=0x0050, text=» CIO A1,1,CHCR EXECUTE ORDER«, t00=0x00cb, t01=0x00a2}
0x13dc4…13dec               Head {h00=0x0024, h01=0x0050, text=» RB(NA) *-2 LOOP UNTIL ACCEPTED «, t00=0x00cb, t01=0x00c6}
0x13dec…13dfe               Head {h00=0x000e, h01=0x0050, text=» RB RDB:10«, t00=0x00cb, t01=0x00ee}
0x13dfe…13e12               Head {h00=0x0010, h01=0x0050, text=»RDERR3 EQU *«, t00=0x00cb, t01=0x0100}
0x13e12…13e28               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x00cb, t01=0x0114}
0x13e28…13e3c               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00cb, t01=0x012a}
0x13e3c…13e50               Head {h00=0x0010, h01=0x0050, text=»RDBEX EQU * «, t00=0x00cb, t01=0x013e}
0x13e50…13e60               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00cb, t01=0x0152}
0x13e60…13e6c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cb, t01=0x0162}
0x13e6c…13e80               Head {h00=0x0010, h01=0x0050, text=» IFT DISC=1 «, t00=0x00cb, t01=0x016e}
0x13e80…13e8e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00cb, t01=0x0182}
0x13e8e…13eba               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00cb, t01=0x0190}
0x13eba…13ee6               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00cc, t01=0x002c}
0x13ee6…13f12               Head {h00=0x0028, h01=0x0050, text=»*  DUINIT - INITIALIZE DISC UNIT  * «, t00=0x00cc, t01=0x0058}
0x13f12…13f3e               Head {h00=0x0028, h01=0x0050, text=»*  =============================  * «, t00=0x00cc, t01=0x0084}
0x13f3e…13f6a               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00cc, t01=0x00b0}
0x13f6a…13f96               Head {h00=0x0028, h01=0x0050, text=»*  REFERENCED IN: SYSLOD,GETFIL   * «, t00=0x00cc, t01=0x00dc}
0x13f96…13fc2               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00cc, t01=0x0108}
0x13fc2…13fee               Head {h00=0x0028, h01=0x0050, text=»*  ENTRY: A1 - DEVICE ADDRESS     * «, t00=0x00cc, t01=0x0134}
0x13fee…1401a               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00cc, t01=0x0160}
0x1401a…14046               Head {h00=0x0028, h01=0x0050, text=»*  EXIT:                          * «, t00=0x00cc, t01=0x018c}
0x14046…14072               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00cd, t01=0x0028}
0x14072…140a0               Head {h00=0x002a, h01=0x0050, text=»*  WORK REGISTERS: A2,A3             *«, t00=0x00cd, t01=0x0054}
0x140a0…140cc               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00cd, t01=0x0082}
0x140cc…140f8               Head {h00=0x0028, h01=0x0050, text=»*  SUBROUTINES:                   * «, t00=0x00cd, t01=0x00ae}
0x140f8…14124               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00cd, t01=0x00da}
0x14124…14150               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00cd, t01=0x0106}
0x14150…14158               Head {h00=0x0004, h01=0x0050, t00=0x00cd, t01=0x0132}
0x14158…1416c               Head {h00=0x0010, h01=0x0050, text=»DUINIT EQU *«, t00=0x00cd, t01=0x013a}
0x1416c…1419a               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,RDSEC2 GET SUBROUTINE ADDRESS«, t00=0x00cd, t01=0x014e}
0x1419a…141bc               Head {h00=0x001e, h01=0x0050, text=» LDR A5,A1 SAVE FILE CODE «, t00=0x00cd, t01=0x017c}
0x141bc…141ca               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ce, t01=0x000e}
0x141ca…141d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x001c}
0x141d4…141fc               Head {h00=0x0024, h01=0x0050, text=»* INIT DISC COMMANDS VERSION A2 «, t00=0x00ce, t01=0x0026}
0x141fc…14206               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x004e}
0x14206…14236               Head {h00=0x002c, h01=0x0050, text=» ORKL A1,CIO+8 CONF. CIO A1,1,XX INSTR. «, t00=0x00ce, t01=0x0058}
0x14236…1424c               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEK20 «, t00=0x00ce, t01=0x0088}
0x1424c…14278               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A1,XX INSTR. «, t00=0x00ce, t01=0x009e}
0x14278…1428e               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEK21 «, t00=0x00ce, t01=0x00ca}
0x1428e…142bc               Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/B00 FORM CIO A2,1,XX INSTR. «, t00=0x00ce, t01=0x00e0}
0x142bc…142d2               Head {h00=0x0012, h01=0x0050, text=» ST A1,READ21 «, t00=0x00ce, t01=0x010e}
0x142d2…142fc               Head {h00=0x0026, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX INSTR«, t00=0x00ce, t01=0x0124}
0x142fc…14312               Head {h00=0x0012, h01=0x0050, text=» ST A1,READ22 «, t00=0x00ce, t01=0x014e}
0x14312…14340               Head {h00=0x002a, h01=0x0050, text=» ST A2,READ INIT SUBROUTINE ADDRESSES «, t00=0x00ce, t01=0x0164}
0x14340…14354 (207, 0, 398) Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x00cf, t01=0x0004}
0x14354…14366               Head {h00=0x000e, h01=0x0050, text=» LDK A2,4 «, t00=0x00cf, t01=0x0018}
0x14366…1438e               Head {h00=0x0024, h01=0x0050, text=» XRS A2,CRCCHK DISCARD CRC CHECK«, t00=0x00cf, t01=0x002a}
0x1438e…143b6               Head {h00=0x0024, h01=0x0050, text=» CF A14,GETVLB GET VOLUME LABEL «, t00=0x00cf, t01=0x0052}
0x143b6…143c8               Head {h00=0x000e, h01=0x0050, text=» LDK A2,4 «, t00=0x00cf, t01=0x007a}
0x143c8…143ec               Head {h00=0x0020, h01=0x0050, text=» ORS A2,CRCCHK SET CRC CHECK«, t00=0x00cf, t01=0x008c}
0x143ec…14410               Head {h00=0x0020, h01=0x0050, text=» LC A2,FORDEV,A9 GET FORMAT «, t00=0x00cf, t01=0x00b0}
0x14410…14422               Head {h00=0x000e, h01=0x0050, text=» ANK A2,1 «, t00=0x00cf, t01=0x00d4}
0x14422…14442               Head {h00=0x001c, h01=0x0050, text=» RF(Z) DUI:50 FORMAT A2 «, t00=0x00cf, t01=0x00e6}
0x14442…1444c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cf, t01=0x0106}
0x1444c…14472               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A5 RESTORE FILE  CODE «, t00=0x00cf, t01=0x0110}
0x14472…144a0               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,RDSEC3 GET SUBROUTINE ADDRESS«, t00=0x00cf, t01=0x0136}
0x144a0…144aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cf, t01=0x0164}
0x144aa…144d2               Head {h00=0x0024, h01=0x0050, text=»* INIT DISC COMMANDS VERSION A3 «, t00=0x00cf, t01=0x016e}
0x144d2…144dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x0008}
0x144dc…1450c               Head {h00=0x002c, h01=0x0050, text=» LDKL A3,DKBA3 BUFFER LENGTH VERSION A3 «, t00=0x00d0, t01=0x0012}
0x1450c…1453a               Head {h00=0x002a, h01=0x0050, text=» ST A3,SAVCON BUFFER LENGTH VERSION A3«, t00=0x00d0, t01=0x0042}
0x1453a…14550               Head {h00=0x0012, h01=0x0050, text=» ORKL A1,CIO+8«, t00=0x00d0, t01=0x0070}
0x14550…14580               Head {h00=0x002c, h01=0x0050, text=» XRKL A1,/500 CONFIG. CIO A4,1,XX INSTR.«, t00=0x00d0, t01=0x0086}
0x14580…14596               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEK30 «, t00=0x00d0, t01=0x00b6}
0x14596…145c2               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A4,XX INSTR. «, t00=0x00d0, t01=0x00cc}
0x145c2…145d8               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEK31 «, t00=0x00d0, t01=0x00f8}
0x145d8…14606               Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/E00 FORM CIO A2,1,XX INSTR. «, t00=0x00d0, t01=0x010e}
0x14606…1461c               Head {h00=0x0012, h01=0x0050, text=» ST A1,READ30 «, t00=0x00d0, t01=0x013c}
0x1461c…14648               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX INSTR. «, t00=0x00d0, t01=0x0152}
0x14648…1465e               Head {h00=0x0012, h01=0x0050, text=» ST A1,READ31 «, t00=0x00d0, t01=0x017e}
0x1465e…14668 (209, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x0004}
0x14668…1468c               Head {h00=0x0020, h01=0x0050, text=»*  INIT SUBROUTINE ADDRESSES«, t00=0x00d1, t01=0x000e}
0x1468c…14696               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x0032}
0x14696…146bc               Head {h00=0x0022, h01=0x0050, text=»DUI:40 ST A2,READ READ PROGRAM«, t00=0x00d1, t01=0x003c}
0x146bc…146e8               Head {h00=0x0028, h01=0x0050, text=» ST A2,READS READ CONFIGURATION DATA«, t00=0x00d1, t01=0x0062}
0x146e8…146fc               Head {h00=0x0010, h01=0x0050, text=»DUI:50 EQU *«, t00=0x00d1, t01=0x008e}
0x146fc…1470c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00d1, t01=0x00a2}
0x1470c…1471a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d1, t01=0x00b2}
0x1471a…14752               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00d1, t01=0x00c0}
0x14752…1478a               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d1, t01=0x00f8}
0x1478a…147c2               Head {h00=0x0034, h01=0x0050, text=»*  RDSEC - READ ONE SECTOR FROM DISC          * «, t00=0x00d1, t01=0x0130}
0x147c2…147fa               Head {h00=0x0034, h01=0x0050, text=»*  =================================          * «, t00=0x00d1, t01=0x0168}
0x147fa…14832               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d2, t01=0x0010}
0x14832…1486a               Head {h00=0x0034, h01=0x0050, text=»*  REFERENCED IN: SYSLOD                      * «, t00=0x00d2, t01=0x0048}
0x1486a…148a2               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d2, t01=0x0080}
0x148a2…148c8               Head {h00=0x0022, h01=0x0050, text=»*  ENTRY:  A9 = BUFFER ADDRESS«, t00=0x00d2, t01=0x00b8}
0x148c8…14900               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d2, t01=0x00de}
0x14900…14938               Head {h00=0x0034, h01=0x0050, text=»*         A11 - SECTOR NUMBER                 * «, t00=0x00d2, t01=0x0116}
0x14938…14970               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d2, t01=0x014e}
0x14970…149a8               Head {h00=0x0034, h01=0x0050, text=»*  EXIT:                                      * «, t00=0x00d2, t01=0x0186}
0x149a8…149e0               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d3, t01=0x002e}
0x149e0…14a0c               Head {h00=0x0028, h01=0x0050, text=»*   WORK REGISTERS:  A1,A2,A3,A4,A7 «, t00=0x00d3, t01=0x0066}
0x14a0c…14a44               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d3, t01=0x0092}
0x14a44…14a7c               Head {h00=0x0034, h01=0x0050, text=»*  SUBROUTINES:  ERROR                        * «, t00=0x00d3, t01=0x00ca}
0x14a7c…14ab4               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d3, t01=0x0102}
0x14ab4…14aec               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00d3, t01=0x013a}
0x14aec…14af6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x0172}
0x14af6…14b04               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d3, t01=0x017c}
0x14b04…14b0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x018a}
0x14b0e…14b34 (212, 0, 400) Head {h00=0x0022, h01=0x0050, text=»* READ DISC SECTOR VERSION A2 «, t00=0x00d4, t01=0x0004}
0x14b34…14b3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x002a}
0x14b3e…14b52               Head {h00=0x0010, h01=0x0050, text=»RDSEC2 EQU *«, t00=0x00d4, t01=0x0034}
0x14b52…14b64               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x00d4, t01=0x0048}
0x14b64…14b92               Head {h00=0x002a, h01=0x0050, text=» LDR A1,A11 GET LOGICAL SECTOR NUMBER «, t00=0x00d4, t01=0x005a}
0x14b92…14ba6               Head {h00=0x0010, h01=0x0050, text=»DIV200 EQU *«, t00=0x00d4, t01=0x0088}
0x14ba6…14bb8               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x00d4, t01=0x009c}
0x14bb8…14bca               Head {h00=0x000e, h01=0x0050, text=» SRL A1,5 «, t00=0x00d4, t01=0x00ae}
0x14bca…14bf6               Head {h00=0x0028, h01=0x0050, text=» RB(NZ) DIV200 MORE IN SERIE TO ADD «, t00=0x00d4, t01=0x00c0}
0x14bf6…14c08               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x00d4, t01=0x00ec}
0x14c08…14c1e               Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FFE0«, t00=0x00d4, t01=0x00fe}
0x14c1e…14c30               Head {h00=0x000e, h01=0x0050, text=» SRL A2,5 «, t00=0x00d4, t01=0x0114}
0x14c30…14c42               Head {h00=0x000e, h01=0x0050, text=» SUR A1,A2«, t00=0x00d4, t01=0x0126}
0x14c42…14c56               Head {h00=0x0010, h01=0x0050, text=» SUR A1,A11 «, t00=0x00d4, t01=0x0138}
0x14c56…14c68               Head {h00=0x000e, h01=0x0050, text=» ADK A1,31«, t00=0x00d4, t01=0x014c}
0x14c68…14c96               Head {h00=0x002a, h01=0x0050, text=» RF(P) DIV210 NO CORRECTION OF RESULT «, t00=0x00d4, t01=0x015e}
0x14c96…14ca8               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x00d4, t01=0x018c}
0x14ca8…14cbc               Head {h00=0x0010, h01=0x0050, text=»DIV210 EQU *«, t00=0x00d5, t01=0x000e}
0x14cbc…14cee               Head {h00=0x002e, h01=0x0050, text=» LDR A2,A2 A2:=CYL NBR = LOG SEC NBR / 31 «, t00=0x00d5, t01=0x0022}
0x14cee…14d0e               Head {h00=0x001c, h01=0x0050, text=» RF(Z) DIV220 CYLINDER 0«, t00=0x00d5, t01=0x0054}
0x14d0e…14d20               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x00d5, t01=0x0074}
0x14d20…14d34               Head {h00=0x0010, h01=0x0050, text=»DIV220 EQU *«, t00=0x00d5, t01=0x0086}
0x14d34…14d6c               Head {h00=0x0034, h01=0x0050, text=» ADR A2,A11 A2:=PHYS. SEC NBR BEFORE INTERLACING«, t00=0x00d5, t01=0x009a}
0x14d6c…14d76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x00d2}
0x14d76…14d88               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x00d5, t01=0x00dc}
0x14d88…14d9a               Head {h00=0x000e, h01=0x0050, text=» SRL A1,5 «, t00=0x00d5, t01=0x00ee}
0x14d9a…14db0               Head {h00=0x0012, h01=0x0050, text=» CW A1,CYLNBR «, t00=0x00d5, t01=0x0100}
0x14db0…14dda               Head {h00=0x0026, h01=0x0050, text=» RF(E) INT200 SAME CYLINDER NUMBER«, t00=0x00d5, t01=0x0116}
0x14dda…14df0               Head {h00=0x0012, h01=0x0050, text=» ST A1,CYLNBR «, t00=0x00d5, t01=0x0140}
0x14df0…14e02               Head {h00=0x000e, h01=0x0050, text=» SLL A1,3 «, t00=0x00d5, t01=0x0156}
0x14e02…14e1e               Head {h00=0x0018, h01=0x0050, text=» ORK A1,2 SET BIT 14«, t00=0x00d5, t01=0x0168}
0x14e1e…14e2c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d5, t01=0x0184}
0x14e2c…14e36 (214, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0004}
0x14e36…14e4e               Head {h00=0x0014, h01=0x0050, text=»* SEEK CYLINDER «, t00=0x00d6, t01=0x000e}
0x14e4e…14e58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0026}
0x14e58…14e72               Head {h00=0x0016, h01=0x0050, text=»SEEK20 CIO A1,1,0 «, t00=0x00d6, t01=0x0030}
0x14e72…14e88               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEK20«, t00=0x00d6, t01=0x004a}
0x14e88…14e92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0060}
0x14e92…14eaa               Head {h00=0x0014, h01=0x0050, text=»SEEK21 SST A1,0 «, t00=0x00d6, t01=0x006a}
0x14eaa…14ec0               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEK21«, t00=0x00d6, t01=0x0082}
0x14ec0…14eca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0098}
0x14eca…14ee0               Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x00d6, t01=0x00a2}
0x14ee0…14eea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x00b8}
0x14eea…14efe               Head {h00=0x0010, h01=0x0050, text=»INT200 EQU *«, t00=0x00d6, t01=0x00c2}
0x14efe…14f10               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x00d6, t01=0x00d6}
0x14f10…14f22               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x00d6, t01=0x00e8}
0x14f22…14f4a               Head {h00=0x0024, h01=0x0050, text=» ADR A2,A1 INTERLACING FACTOR 3 «, t00=0x00d6, t01=0x00fa}
0x14f4a…14f5e               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x00d6, t01=0x0122}
0x14f5e…14f88               Head {h00=0x0026, h01=0x0050, text=» LD A1,CYLNBR GET CYLINDER NUMBER «, t00=0x00d6, t01=0x0136}
0x14f88…14f9a               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x00d6, t01=0x0160}
0x14f9a…14fbe               Head {h00=0x0020, h01=0x0050, text=» RF(Z) INT210 EVEN CYLINDER «, t00=0x00d6, t01=0x0172}
0x14fbe…14fd0               Head {h00=0x000e, h01=0x0050, text=» ADK A2,8 «, t00=0x00d7, t01=0x0008}
0x14fd0…14fe4               Head {h00=0x0010, h01=0x0050, text=»INT210 EQU *«, t00=0x00d7, t01=0x001a}
0x14fe4…14ff8               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x00d7, t01=0x002e}
0x14ff8…15028               Head {h00=0x002c, h01=0x0050, text=» SLL A2,2 PHYSICAL SECTOR AND ORDER CODE«, t00=0x00d7, t01=0x0042}
0x15028…1503e               Head {h00=0x0012, h01=0x0050, text=» ST A2,SECNBR «, t00=0x00d7, t01=0x0072}
0x1503e…1504c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d7, t01=0x0088}
0x1504c…15056               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x0096}
0x15056…1506c               Head {h00=0x0012, h01=0x0050, text=»* READ SECTOR «, t00=0x00d7, t01=0x00a0}
0x1506c…15076               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x00b6}
0x15076…15098               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 BUFFER ADDRESS «, t00=0x00d7, t01=0x00c0}
0x15098…150c4               Head {h00=0x0028, h01=0x0050, text=»READ20 LDKL A4,MUXCC NUMBER OF WORDS«, t00=0x00d7, t01=0x00e2}
0x150c4…150f4               Head {h00=0x002c, h01=0x0050, text=»WERIO2 WER A4,/10 WRITE NUMBER OF WORDS «, t00=0x00d7, t01=0x010e}
0x150f4…1511c               Head {h00=0x0024, h01=0x0050, text=» WER A1,/11 WRITE BUFFER ADDRESS«, t00=0x00d7, t01=0x013e}
0x1511c…15142               Head {h00=0x0022, h01=0x0050, text=»READ21 CIO A2,1,0 READ SECTOR «, t00=0x00d7, t01=0x0166}
0x15142…1516c               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READ21 LOOP UNTIL ACCEPTED«, t00=0x00d7, t01=0x018c}
0x1516c…1518a               Head {h00=0x001a, h01=0x0050, text=»READ22 SST A2,0 STATUS«, t00=0x00d8, t01=0x0026}
0x1518a…151b4               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READ22 LOOP UNTIL ACCEPTED«, t00=0x00d8, t01=0x0044}
0x151b4…151c8               Head {h00=0x0010, h01=0x0050, text=»CRCCHK EQU *«, t00=0x00d8, t01=0x006e}
0x151c8…151e2               Head {h00=0x0016, h01=0x0050, text=» ANK A2,/1F STATUS«, t00=0x00d8, t01=0x0082}
0x151e2…15206               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DUERR READING ERROR «, t00=0x00d8, t01=0x009c}
0x15206…15232               Head {h00=0x0028, h01=0x0050, text=» ADKL A11,1 INCREMENT SECTOR COUNTER«, t00=0x00d8, t01=0x00c0}
0x15232…15242               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00d8, t01=0x00ec}
0x15242…15250               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d8, t01=0x00fc}
0x15250…1525a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x010a}
0x1525a…15280               Head {h00=0x0022, h01=0x0050, text=»* READ DISC SECTOR VERSION A3 «, t00=0x00d8, t01=0x0114}
0x15280…1528a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x013a}
0x1528a…1529e               Head {h00=0x0010, h01=0x0050, text=»RDSEC3 EQU *«, t00=0x00d8, t01=0x0144}
0x1529e…152b0               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x00d8, t01=0x0158}
0x152b0…152de               Head {h00=0x002a, h01=0x0050, text=» LDR A1,A11 GET LOGICAL SECTOR NUMBER «, t00=0x00d8, t01=0x016a}
0x152de…152f4               Head {h00=0x0012, h01=0x0050, text=» LDKL A7,/1000«, t00=0x00d9, t01=0x0008}
0x152f4…1530a               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/3000«, t00=0x00d9, t01=0x001e}
0x1530a…1531e               Head {h00=0x0010, h01=0x0050, text=»DIV300 EQU *«, t00=0x00d9, t01=0x0034}
0x1531e…15330               Head {h00=0x000e, h01=0x0050, text=» SUR A1,A4«, t00=0x00d9, t01=0x0048}
0x15330…15346               Head {h00=0x0012, h01=0x0050, text=» RF(N) DIV310 «, t00=0x00d9, t01=0x005a}
0x15346…15358               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A7«, t00=0x00d9, t01=0x0070}
0x15358…1536a               Head {h00=0x000e, h01=0x0050, text=» RB DIV300«, t00=0x00d9, t01=0x0082}
0x1536a…1537e               Head {h00=0x0010, h01=0x0050, text=»DIV310 EQU *«, t00=0x00d9, t01=0x0094}
0x1537e…153a0               Head {h00=0x001e, h01=0x0050, text=» ADR A1,A4 ADJUST DIVIDEND«, t00=0x00d9, t01=0x00a8}
0x153a0…153b2               Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x00d9, t01=0x00ca}
0x153b2…153c4               Head {h00=0x000e, h01=0x0050, text=» SRL A7,4 «, t00=0x00d9, t01=0x00dc}
0x153c4…153da               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DIV300«, t00=0x00d9, t01=0x00ee}
0x153da…153ec               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x00d9, t01=0x0104}
0x153ec…153f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x0116}
0x153f6…15408               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x00d9, t01=0x0120}
0x15408…1541e               Head {h00=0x0012, h01=0x0050, text=» ST A1,SAVMEM «, t00=0x00d9, t01=0x0132}
0x1541e…15458               Head {h00=0x0036, h01=0x0050, text=» RF(NP) CASE10 ,XXXX  ,      , OR ,    XX,XX    , «, t00=0x00d9, t01=0x0148}
0x15458…1547a               Head {h00=0x001e, h01=0x0050, text=» ADK A2,1 ,      ,  XXXX, «, t00=0x00d9, t01=0x0182}
0x1547a…1548e               Head {h00=0x0010, h01=0x0050, text=»CASE10 EQU *«, t00=0x00da, t01=0x0014}
0x1548e…154a0               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x00da, t01=0x0028}
0x154a0…154b2               Head {h00=0x000e, h01=0x0050, text=» SRL A4,5 «, t00=0x00da, t01=0x003a}
0x154b2…154c8               Head {h00=0x0012, h01=0x0050, text=» CW A4,CYLNBR «, t00=0x00da, t01=0x004c}
0x154c8…154de               Head {h00=0x0012, h01=0x0050, text=» RF(E) INT300 «, t00=0x00da, t01=0x0062}
0x154de…1550e               Head {h00=0x002c, h01=0x0050, text=» ST A4,CYLNBR STORE NEW CYLINDER NUMBER «, t00=0x00da, t01=0x0078}
0x1550e…15520               Head {h00=0x000e, h01=0x0050, text=» SLL A4,3 «, t00=0x00da, t01=0x00a8}
0x15520…1553c               Head {h00=0x0018, h01=0x0050, text=» ORK A4,2 SET BIT 14«, t00=0x00da, t01=0x00ba}
0x1553c…1554a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00da, t01=0x00d6}
0x1554a…15554               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x00e4}
0x15554…1556c               Head {h00=0x0014, h01=0x0050, text=»* SEEK CYLINDER «, t00=0x00da, t01=0x00ee}
0x1556c…15576               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x0106}
0x15576…15590               Head {h00=0x0016, h01=0x0050, text=»SEEK30 CIO A4,1,0 «, t00=0x00da, t01=0x0110}
0x15590…155a6               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEK30«, t00=0x00da, t01=0x012a}
0x155a6…155b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x0140}
0x155b0…155d2               Head {h00=0x001e, h01=0x0050, text=»SEEK31 SST A4,0 GET STATUS«, t00=0x00da, t01=0x014a}
0x155d2…155e8               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEK31«, t00=0x00da, t01=0x016c}
0x155e8…155f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x0182}
0x155f2…15608               Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x00da, t01=0x018c}
0x15608…15612               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x0012}
0x15612…15626               Head {h00=0x0010, h01=0x0050, text=»INT300 EQU *«, t00=0x00db, t01=0x001c}
0x15626…15638               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x00db, t01=0x0030}
0x15638…1564a               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x00db, t01=0x0042}
0x1564a…15672               Head {h00=0x0024, h01=0x0050, text=» ADR A2,A3 INTERLACING FACTOR 3 «, t00=0x00db, t01=0x0054}
0x15672…15686               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x00db, t01=0x007c}
0x15686…156b0               Head {h00=0x0026, h01=0x0050, text=» LD A4,CYLNBR GET CYLINDER NUMBER «, t00=0x00db, t01=0x0090}
0x156b0…156c2               Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x00db, t01=0x00ba}
0x156c2…156ec               Head {h00=0x0026, h01=0x0050, text=» RF(Z) INT310 EVEN CYLINDER NUMBER«, t00=0x00db, t01=0x00cc}
0x156ec…15712               Head {h00=0x0022, h01=0x0050, text=» ADK A2,8 SKEW FACTOR 180 DEG.«, t00=0x00db, t01=0x00f6}
0x15712…1571c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x011c}
0x1571c…15730               Head {h00=0x0010, h01=0x0050, text=»INT310 EQU *«, t00=0x00db, t01=0x0126}
0x15730…15744               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x00db, t01=0x013a}
0x15744…1576e               Head {h00=0x0026, h01=0x0050, text=» SLL A2,2 INTERLACED SECTOR NUMBER«, t00=0x00db, t01=0x014e}
0x1576e…157a0               Head {h00=0x002e, h01=0x0050, text=» ST A2,SECNBR STORE PHYSICAL SECTOR NUMBER«, t00=0x00db, t01=0x0178}
0x157a0…157ae               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00dc, t01=0x001a}
0x157ae…157b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x0028}
0x157b8…157ce               Head {h00=0x0012, h01=0x0050, text=»* READ SECTOR «, t00=0x00dc, t01=0x0032}
0x157ce…157d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x0048}
0x157d8…157fa               Head {h00=0x001e, h01=0x0050, text=» LDR A7,A9 BUFFER ADDRESS «, t00=0x00dc, t01=0x0052}
0x157fa…15828               Head {h00=0x002a, h01=0x0050, text=»READ34 LDKL A4,MXCCD3 NUMBER OF WORDS «, t00=0x00dc, t01=0x0074}
0x15828…15858               Head {h00=0x002c, h01=0x0050, text=»WERIO3 WER A4,/10 WRITE NUMBER OF WORDS «, t00=0x00dc, t01=0x00a2}
0x15858…15880               Head {h00=0x0024, h01=0x0050, text=» WER A7,/11 WRITE BUFFER ADDRESS«, t00=0x00dc, t01=0x00d2}
0x15880…1588a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x00fa}
0x1588a…158b0               Head {h00=0x0022, h01=0x0050, text=»READ30 CIO A2,1,0 READ SECTOR «, t00=0x00dc, t01=0x0104}
0x158b0…158da               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READ30 LOOP UNTIL ACCEPTED«, t00=0x00dc, t01=0x012a}
0x158da…158e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x0154}
0x158e4…15906               Head {h00=0x001e, h01=0x0050, text=»READ31 SST A2,0 GET STATUS«, t00=0x00dc, t01=0x015e}
0x15906…15930               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READ31 LOOP UNTIL ACCEPTED«, t00=0x00dc, t01=0x0180}
0x15930…1594a               Head {h00=0x0016, h01=0x0050, text=» ANK A2,/1F STATUS«, t00=0x00dd, t01=0x001a}
0x1594a…1596e               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DUERR READING ERROR «, t00=0x00dd, t01=0x0034}
0x1596e…15990               Head {h00=0x001e, h01=0x0050, text=» LDR A2,A9 BUFFER ADDRESS «, t00=0x00dd, t01=0x0058}
0x15990…159a2               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x00dd, t01=0x007a}
0x159a2…159c8               Head {h00=0x0022, h01=0x0050, text=» RF(N) RETURN ,XXXX  ,      , «, t00=0x00dd, t01=0x008c}
0x159c8…159ee               Head {h00=0x0022, h01=0x0050, text=» RF(P) READ33 ,      ,  XXXX, «, t00=0x00dd, t01=0x00b2}
0x159ee…15a12               Head {h00=0x0020, h01=0x0050, text=» ADKL A2,256 SOURCE POINTER «, t00=0x00dd, t01=0x00d8}
0x15a12…15a3c               Head {h00=0x0026, h01=0x0050, text=» LDK A4,64 NUMBER OF WORDS TO MOVE«, t00=0x00dd, t01=0x00fc}
0x15a3c…15a60               Head {h00=0x0020, h01=0x0050, text=»READ32 EQU * ,    XX,XX    ,«, t00=0x00dd, t01=0x0126}
0x15a60…15a74               Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A2 «, t00=0x00dd, t01=0x014a}
0x15a74…15a86               Head {h00=0x000e, h01=0x0050, text=» STR A1,A7«, t00=0x00dd, t01=0x015e}
0x15a86…15a98               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00dd, t01=0x0170}
0x15a98…15aaa               Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x00dd, t01=0x0182}
0x15aaa…15abc (222, 0, 400) Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x00de, t01=0x0004}
0x15abc…15ae2               Head {h00=0x0022, h01=0x0050, text=» RB(NZ) READ32 CONTINUE MOVING«, t00=0x00de, t01=0x0016}
0x15ae2…15af8               Head {h00=0x0012, h01=0x0050, text=» LD A1,SAVMEM «, t00=0x00de, t01=0x003c}
0x15af8…15b0e               Head {h00=0x0012, h01=0x0050, text=» RF(P) RETURN «, t00=0x00de, t01=0x0052}
0x15b0e…15b3a               Head {h00=0x0028, h01=0x0050, text=» LD A2,SECNBR PHYSICAL SECTOR NUMBER«, t00=0x00de, t01=0x0068}
0x15b3a…15b60               Head {h00=0x0022, h01=0x0050, text=» ADK A2,/C NEW SECTOR TO READ «, t00=0x00de, t01=0x0094}
0x15b60…15b74               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7C «, t00=0x00de, t01=0x00ba}
0x15b74…15b86               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x00de, t01=0x00ce}
0x15b86…15b98               Head {h00=0x000e, h01=0x0050, text=» RB READ34«, t00=0x00de, t01=0x00e0}
0x15b98…15ba6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00de, t01=0x00f2}
0x15ba6…15bba               Head {h00=0x0010, h01=0x0050, text=»READ33 EQU *«, t00=0x00de, t01=0x0100}
0x15bba…15bdc               Head {h00=0x001e, h01=0x0050, text=» ADK A2,128 SOURCE POINTER«, t00=0x00de, t01=0x0114}
0x15bdc…15c08               Head {h00=0x0028, h01=0x0050, text=» LDK A4,128 NUMBER OF WORDS TO MOVE «, t00=0x00de, t01=0x0136}
0x15c08…15c1a               Head {h00=0x000e, h01=0x0050, text=» RB READ32«, t00=0x00de, t01=0x0162}
0x15c1a…15c4c               Head {h00=0x002e, h01=0x0050, text=»RETURN ADKL A11,1 INCREMENT SECTOR NUMBER «, t00=0x00de, t01=0x0174}
0x15c4c…15c5c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00df, t01=0x0016}
0x15c5c…15c64               Head {h00=0x0004, h01=0x0050, t00=0x00df, t01=0x0026}
0x15c64…15c78               Head {h00=0x0010, h01=0x0050, text=»DUERR EQU * «, t00=0x00df, t01=0x002e}
0x15c78…15c8e               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x00df, t01=0x0042}
0x15c8e…15ca2               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00df, t01=0x0058}
0x15ca2…15cae               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00df, t01=0x006c}
0x15cae…15cc4               Head {h00=0x0012, h01=0x0050, text=» IFT MFDISC=1 «, t00=0x00df, t01=0x0078}
0x15cc4…15cd2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00df, t01=0x008e}
0x15cd2…15d12               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x00df, t01=0x009c}
0x15d12…15d52               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00df, t01=0x00dc}
0x15d52…15d92               Head {h00=0x003c, h01=0x0050, text=»*  MDINIT - INITIALIZE MINI FIXED DISC UNIT            *«, t00=0x00df, t01=0x011c}
0x15d92…15dd2               Head {h00=0x003c, h01=0x0050, text=»*  =======================================             *«, t00=0x00df, t01=0x015c}
0x15dd2…15e12               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e0, t01=0x000c}
0x15e12…15e52               Head {h00=0x003c, h01=0x0050, text=»*  REFERENCED IN: SYSLOD,GETFIL                        *«, t00=0x00e0, t01=0x004c}
0x15e52…15e92               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e0, t01=0x008c}
0x15e92…15ed2               Head {h00=0x003c, h01=0x0050, text=»*  ENTRY:  A1 = DEVICE ADDRESS                         *«, t00=0x00e0, t01=0x00cc}
0x15ed2…15f12               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e0, t01=0x010c}
0x15f12…15f52               Head {h00=0x003c, h01=0x0050, text=»*  EXIT:                                               *«, t00=0x00e0, t01=0x014c}
0x15f52…15f92               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e0, t01=0x018c}
0x15f92…15fd2               Head {h00=0x003c, h01=0x0050, text=»*  WORK REGISTERS:                                     *«, t00=0x00e1, t01=0x003c}
0x15fd2…16012               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e1, t01=0x007c}
0x16012…16052               Head {h00=0x003c, h01=0x0050, text=»*  SUBROUTINES: ERROR                                  *«, t00=0x00e1, t01=0x00bc}
0x16052…16092               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e1, t01=0x00fc}
0x16092…160d2               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x00e1, t01=0x013c}
0x160d2…160e6               Head {h00=0x0010, h01=0x0050, text=»MDINIT EQU *«, t00=0x00e1, t01=0x017c}
0x160e6…160f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x0190}
0x160f0…16118               Head {h00=0x0024, h01=0x0050, text=»* INIT MINI FIXED DISC COMMANDS «, t00=0x00e2, t01=0x000a}
0x16118…16122               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x0032}
0x16122…16136               Head {h00=0x0010, h01=0x0050, text=»MDI:00 EQU *«, t00=0x00e2, t01=0x003c}
0x16136…16166               Head {h00=0x002c, h01=0x0050, text=» ORKL A1,CIO CONFIG. CIO A1,1,XX INSTR. «, t00=0x00e2, t01=0x0050}
0x16166…1617c               Head {h00=0x0012, h01=0x0050, text=» ST A1,READM2 «, t00=0x00e2, t01=0x0080}
0x1617c…161a8               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A1,XX INSTR. «, t00=0x00e2, t01=0x0096}
0x161a8…161be               Head {h00=0x0012, h01=0x0050, text=» ST A1,READM3 «, t00=0x00e2, t01=0x00c2}
0x161be…161ec               Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/B00 FORM CIO A2,1,XX INSTR. «, t00=0x00e2, t01=0x00d8}
0x161ec…16202               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKM1 «, t00=0x00e2, t01=0x0106}
0x16202…1622e               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX INSTR. «, t00=0x00e2, t01=0x011c}
0x1622e…16244               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKM2 «, t00=0x00e2, t01=0x0148}
0x16244…16252               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e2, t01=0x015e}
0x16252…1625c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x016c}
0x1625c…1628a               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,MRDSEC GET SUBROUTINE ADDRESS«, t00=0x00e2, t01=0x0176}
0x1628a…1629e               Head {h00=0x0010, h01=0x0050, text=» ST A2,READ «, t00=0x00e3, t01=0x0014}
0x1629e…162b2               Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x00e3, t01=0x0028}
0x162b2…162c2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00e3, t01=0x003c}
0x162c2…162d0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e3, t01=0x004c}
0x162d0…1630e               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x00e3, t01=0x005a}
0x1630e…1634c               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e3, t01=0x0098}
0x1634c…1638a               Head {h00=0x003a, h01=0x0050, text=»*  MRDSEC - READ ONE SECTOR FROM MINI FIXED DISC     *«, t00=0x00e3, t01=0x00d6}
0x1638a…163c8               Head {h00=0x003a, h01=0x0050, text=»*  =============================================     *«, t00=0x00e3, t01=0x0114}
0x163c8…16406               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e3, t01=0x0152}
0x16406…16444               Head {h00=0x003a, h01=0x0050, text=»*  REFERENCED IN: SYSLOD                             *«, t00=0x00e3, t01=0x0190}
0x16444…16482               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e4, t01=0x003e}
0x16482…164c0               Head {h00=0x003a, h01=0x0050, text=»*  ENTRY:  A9 = BUFFER ADDRESS                       *«, t00=0x00e4, t01=0x007c}
0x164c0…164fe               Head {h00=0x003a, h01=0x0050, text=»*          A11 = SECTOR NUMBER                       *«, t00=0x00e4, t01=0x00ba}
0x164fe…1653c               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e4, t01=0x00f8}
0x1653c…1657a               Head {h00=0x003a, h01=0x0050, text=»*  EXIT:                                             *«, t00=0x00e4, t01=0x0136}
0x1657a…165b8               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e4, t01=0x0174}
0x165b8…165f6               Head {h00=0x003a, h01=0x0050, text=»*  WORK REGISTERS:                                   *«, t00=0x00e5, t01=0x0022}
0x165f6…16634               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e5, t01=0x0060}
0x16634…16672               Head {h00=0x003a, h01=0x0050, text=»*  SUBROUTINES:                                      *«, t00=0x00e5, t01=0x009e}
0x16672…166b0               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e5, t01=0x00dc}
0x166b0…166ee               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00e5, t01=0x011a}
0x166ee…16702               Head {h00=0x0010, h01=0x0050, text=»MRDSEC EQU *«, t00=0x00e5, t01=0x0158}
0x16702…16728               Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 PREPARE FOR DIVISION«, t00=0x00e5, t01=0x016c}
0x16728…16756 (230, 0, 400) Head {h00=0x002a, h01=0x0050, text=» LDR A2,A11 GET LOGICAL SECTOR NUMBER «, t00=0x00e6, t01=0x0004}
0x16756…16774               Head {h00=0x001a, h01=0x0050, text=» DVK 104 DIVIDE BY 104«, t00=0x00e6, t01=0x0032}
0x16774…16786               Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x00e6, t01=0x0050}
0x16786…167aa               Head {h00=0x0020, h01=0x0050, text=» ORK A2,3 SET BIT 14 AND 15 «, t00=0x00e6, t01=0x0062}
0x167aa…167b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x0086}
0x167b4…167da               Head {h00=0x0022, h01=0x0050, text=»* A1=SECTOR NUMBER ON CYLINDER«, t00=0x00e6, t01=0x0090}
0x167da…167f6               Head {h00=0x0018, h01=0x0050, text=»* A2=CYLINDER NUMBER«, t00=0x00e6, t01=0x00b6}
0x167f6…16800               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x00d2}
0x16800…1682a               Head {h00=0x0026, h01=0x0050, text=» ST A1,SECNBR STORE SECTOR NUMBER «, t00=0x00e6, t01=0x00dc}
0x1682a…16840               Head {h00=0x0012, h01=0x0050, text=» CW A2,CYLNBR «, t00=0x00e6, t01=0x0106}
0x16840…1686a               Head {h00=0x0026, h01=0x0050, text=» RF(E) INTM10 SAME CYLINDER NUMBER«, t00=0x00e6, t01=0x011c}
0x1686a…16896               Head {h00=0x0028, h01=0x0050, text=» ST A2,CYLNBR STORE CYLINDER NUMBER «, t00=0x00e6, t01=0x0146}
0x16896…168a4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e6, t01=0x0172}
0x168a4…168ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x0180}
0x168ae…168c6               Head {h00=0x0014, h01=0x0050, text=»* SEEK CYLINDER «, t00=0x00e6, t01=0x018a}
0x168c6…168d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x0012}
0x168d0…168f6               Head {h00=0x0022, h01=0x0050, text=»SEEKM1 CIO A2,1,0 SEEK COMMAND«, t00=0x00e7, t01=0x001c}
0x168f6…16920               Head {h00=0x0026, h01=0x0050, text=» RB(NA) SEEKM1 LOOP UNTIL ACCEPTED«, t00=0x00e7, t01=0x0042}
0x16920…1692a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x006c}
0x1692a…1694c               Head {h00=0x001e, h01=0x0050, text=»SEEKM2 SST A2,0 GET STATUS«, t00=0x00e7, t01=0x0076}
0x1694c…16976               Head {h00=0x0026, h01=0x0050, text=» RB(NA) SEEKM2 WAIT UNTIL ACCEPTED«, t00=0x00e7, t01=0x0098}
0x16976…16980               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x00c2}
0x16980…16996               Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x00e7, t01=0x00cc}
0x16996…169a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x00e2}
0x169a0…169b4               Head {h00=0x0010, h01=0x0050, text=»INTM10 EQU *«, t00=0x00e7, t01=0x00ec}
0x169b4…169c6               Head {h00=0x000e, h01=0x0050, text=» CWK A1,52«, t00=0x00e7, t01=0x0100}
0x169c6…169e8               Head {h00=0x001e, h01=0x0050, text=» RF(L) INTM20 SECTOR 0-51 «, t00=0x00e7, t01=0x0112}
0x169e8…16a08               Head {h00=0x001c, h01=0x0050, text=» SUK A1,52 SECTOR 52-103«, t00=0x00e7, t01=0x0134}
0x16a08…16a1c               Head {h00=0x0010, h01=0x0050, text=»INTM20 EQU *«, t00=0x00e7, t01=0x0154}
0x16a1c…16a2e               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x00e7, t01=0x0168}
0x16a2e…16a54               Head {h00=0x0022, h01=0x0050, text=» SLL A2,2 A2:=4*SECTOR NUMBER «, t00=0x00e7, t01=0x017a}
0x16a54…16a7a               Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 PREPARE FOR DIVISION«, t00=0x00e8, t01=0x0010}
0x16a7a…16a8a               Head {h00=0x000c, h01=0x0050, text=» DVK 52 «, t00=0x00e8, t01=0x0036}
0x16a8a…16aba               Head {h00=0x002c, h01=0x0050, text=» ADR A1,A2 A1:=INTERLACED SECTOR NUMBER «, t00=0x00e8, t01=0x0046}
0x16aba…16ac4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x0076}
0x16ac4…16aea               Head {h00=0x0022, h01=0x0050, text=»* A1:=INTERLACED SECTOR NUMBER«, t00=0x00e8, t01=0x0080}
0x16aea…16af4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x00a6}
0x16af4…16b1e               Head {h00=0x0026, h01=0x0050, text=» LD A2,CYLNBR GET CYLINDER NUMBER «, t00=0x00e8, t01=0x00b0}
0x16b1e…16b30               Head {h00=0x000e, h01=0x0050, text=» SRC A2,3 «, t00=0x00e8, t01=0x00da}
0x16b30…16b5c               Head {h00=0x0028, h01=0x0050, text=» RF(NN) INTM30 EVEN CYLINDER NUMBER «, t00=0x00e8, t01=0x00ec}
0x16b5c…16b7e               Head {h00=0x001e, h01=0x0050, text=» SUK A1,26 SKEW FACTOR 26 «, t00=0x00e8, t01=0x0118}
0x16b7e…16b94               Head {h00=0x0012, h01=0x0050, text=» RF(NN) INTM30«, t00=0x00e8, t01=0x013a}
0x16b94…16ba6               Head {h00=0x000e, h01=0x0050, text=» ADK A1,52«, t00=0x00e8, t01=0x0150}
0x16ba6…16bba               Head {h00=0x0010, h01=0x0050, text=»INTM30 EQU *«, t00=0x00e8, t01=0x0162}
0x16bba…16bcc               Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x00e8, t01=0x0176}
0x16bcc…16c06               Head {h00=0x0036, h01=0x0050, text=» LD A2,SECNBR GET SECTOR NUMBER BEFORE INTERLACING«, t00=0x00e8, t01=0x0188}
0x16c06…16c18               Head {h00=0x000e, h01=0x0050, text=» CWK A2,52«, t00=0x00e9, t01=0x0032}
0x16c18…16c3c               Head {h00=0x0020, h01=0x0050, text=» RF(L) INTM40 HEAD NUMBER 0 «, t00=0x00e9, t01=0x0044}
0x16c3c…16c60               Head {h00=0x0020, h01=0x0050, text=» ORKL A1,/4000 HEAD NUMBER 1«, t00=0x00e9, t01=0x0068}
0x16c60…16c74               Head {h00=0x0010, h01=0x0050, text=»INTM40 EQU *«, t00=0x00e9, t01=0x008c}
0x16c74…16c7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x00a0}
0x16c7e…16c94               Head {h00=0x0012, h01=0x0050, text=»* READ SECTOR «, t00=0x00e9, t01=0x00aa}
0x16c94…16c9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x00c0}
0x16c9e…16cb2               Head {h00=0x0010, h01=0x0050, text=»READM1 EQU *«, t00=0x00e9, t01=0x00ca}
0x16cb2…16cd8               Head {h00=0x0022, h01=0x0050, text=» LDKL A4,MUXCC NUMBER OF WORDS«, t00=0x00e9, t01=0x00de}
0x16cd8…16cfa               Head {h00=0x001e, h01=0x0050, text=» LDR A7,A9 BUFFER ADDRESS «, t00=0x00e9, t01=0x0104}
0x16cfa…16d04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x0126}
0x16d04…16d32               Head {h00=0x002a, h01=0x0050, text=»WERIOM WER A4,8 WRITE NUMBER OF WORDS «, t00=0x00e9, t01=0x0130}
0x16d32…16d58               Head {h00=0x0022, h01=0x0050, text=» WER A7,9 WRITE BUFFER ADDRESS«, t00=0x00e9, t01=0x015e}
0x16d58…16d62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x0184}
0x16d62…16d88               Head {h00=0x0022, h01=0x0050, text=»READM2 CIO A1,1,0 READ SECTOR «, t00=0x00e9, t01=0x018e}
0x16d88…16db2               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READM2 LOOP UNTIL ACCEPTED«, t00=0x00ea, t01=0x0024}
0x16db2…16dbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x004e}
0x16dbc…16dde               Head {h00=0x001e, h01=0x0050, text=»READM3 SST A1,0 GET STATUS«, t00=0x00ea, t01=0x0058}
0x16dde…16e08               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READM3 LOOP UNTIL ACCEPTED«, t00=0x00ea, t01=0x007a}
0x16e08…16e22               Head {h00=0x0016, h01=0x0050, text=» ANK A1,/1F STATUS«, t00=0x00ea, t01=0x00a4}
0x16e22…16e46               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) MFDERR READING ERROR«, t00=0x00ea, t01=0x00be}
0x16e46…16e72               Head {h00=0x0028, h01=0x0050, text=» ADKL A11,1 INCREMENT SECTOR NUMBER «, t00=0x00ea, t01=0x00e2}
0x16e72…16e82               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00ea, t01=0x010e}
0x16e82…16e8a               Head {h00=0x0004, h01=0x0050, t00=0x00ea, t01=0x011e}
0x16e8a…16e9e               Head {h00=0x0010, h01=0x0050, text=»MFDERR EQU *«, t00=0x00ea, t01=0x0126}
0x16e9e…16eb4               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x00ea, t01=0x013a}
0x16eb4…16ec8               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00ea, t01=0x0150}
0x16ec8…16ed4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ea, t01=0x0164}
0x16ed4…16eea               Head {h00=0x0012, h01=0x0050, text=» IFT FLDISC=1 «, t00=0x00ea, t01=0x0170}
0x16eea…16ef8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ea, t01=0x0186}
0x16ef8…16f30 (235, 0, 400) Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00eb, t01=0x0004}
0x16f30…16f68               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00eb, t01=0x003c}
0x16f68…16fa0               Head {h00=0x0034, h01=0x0050, text=»*  FDINIT - INITIALIZE FLEXIBLE DISC           *«, t00=0x00eb, t01=0x0074}
0x16fa0…16fd8               Head {h00=0x0034, h01=0x0050, text=»*  =================================           *«, t00=0x00eb, t01=0x00ac}
0x16fd8…17010               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00eb, t01=0x00e4}
0x17010…17048               Head {h00=0x0034, h01=0x0050, text=»*  REFERENCED IN: SYSLOD,GETFIL                *«, t00=0x00eb, t01=0x011c}
0x17048…17080               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00eb, t01=0x0154}
0x17080…170b8               Head {h00=0x0034, h01=0x0050, text=»*  ENTRY:  A1 - DEVICE ADDRESS                 *«, t00=0x00eb, t01=0x018c}
0x170b8…170f0               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00ec, t01=0x0034}
0x170f0…17128               Head {h00=0x0034, h01=0x0050, text=»*  EXIT:                                       *«, t00=0x00ec, t01=0x006c}
0x17128…17160               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00ec, t01=0x00a4}
0x17160…17198               Head {h00=0x0034, h01=0x0050, text=»*  WORK REGISTERS:                             *«, t00=0x00ec, t01=0x00dc}
0x17198…171d0               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00ec, t01=0x0114}
0x171d0…17208               Head {h00=0x0034, h01=0x0050, text=»*  SUBROUTINES:                                *«, t00=0x00ec, t01=0x014c}
0x17208…17240               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00ec, t01=0x0184}
0x17240…17278               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00ed, t01=0x002c}
0x17278…1728c               Head {h00=0x0010, h01=0x0050, text=»FDINIT EQU *«, t00=0x00ed, t01=0x0064}
0x1728c…172a0               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/10 «, t00=0x00ed, t01=0x0078}
0x172a0…172d4               Head {h00=0x0030, h01=0x0050, text=» ORKL A1,CIO+9 CONFIG. CIO+9 A1,1,XX INSTR. «, t00=0x00ed, t01=0x008c}
0x172d4…172ea               Head {h00=0x0012, h01=0x0050, text=» ST A1,FRD:10 «, t00=0x00ed, t01=0x00c0}
0x172ea…1732a               Head {h00=0x003c, h01=0x0050, text=» LDKL A2,FRDS25 ADDRESS TO READ ON 0,25 MEG FLOPPY DRIVE«, t00=0x00ed, t01=0x00d6}
0x1732a…17346               Head {h00=0x0018, h01=0x0050, text=» LDK A1,3 SEEK ORDER«, t00=0x00ed, t01=0x0116}
0x17346…17366               Head {h00=0x001c, h01=0x0050, text=» EX FRD:10 SEEK TO ZERO «, t00=0x00ed, t01=0x0132}
0x17366…1737a               Head {h00=0x0010, h01=0x0050, text=»FDI:05 EQU *«, t00=0x00ed, t01=0x0152}
0x1737a…1738c               Head {h00=0x000e, h01=0x0050, text=» EX SEKSST«, t00=0x00ed, t01=0x0166}
0x1738c…173a2               Head {h00=0x0012, h01=0x0050, text=» RB(NA) FDI:05«, t00=0x00ed, t01=0x0178}
0x173a2…173ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x018e}
0x173ac…173c0               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/10 «, t00=0x00ee, t01=0x0008}
0x173c0…173ec               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) FDI:10 0.25 MEG FLOPPY DRIVE«, t00=0x00ee, t01=0x001c}
0x173ec…173f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x0048}
0x173f6…17428               Head {h00=0x002e, h01=0x0050, text=» LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 «, t00=0x00ee, t01=0x0052}
0x17428…17454               Head {h00=0x0028, h01=0x0050, text=» ST A1,FRD:20 MODIFY INR INSTRUCTION«, t00=0x00ee, t01=0x0084}
0x17454…1746a               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/41F «, t00=0x00ee, t01=0x00b0}
0x1746a…17490               Head {h00=0x0022, h01=0x0050, text=» ST A1,FRD:42 MODIFY SST MASK «, t00=0x00ee, t01=0x00c6}
0x17490…174a6               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/C00 «, t00=0x00ee, t01=0x00ec}
0x174a6…174d0               Head {h00=0x0026, h01=0x0050, text=» ST A1,RELEAS MODIFY RELEAS ORDER «, t00=0x00ee, t01=0x0102}
0x174d0…1750e               Head {h00=0x003a, h01=0x0050, text=» LDKL A2,FRDSEC ADDRESS TO READ ON 1 MEG FLOPPY DRIVE «, t00=0x00ee, t01=0x012c}
0x1750e…17522               Head {h00=0x0010, h01=0x0050, text=»FDI:10 EQU *«, t00=0x00ee, t01=0x016a}
0x17522…17536               Head {h00=0x0010, h01=0x0050, text=» ST A2,READ «, t00=0x00ee, t01=0x017e}
0x17536…1754a (239, 0, 400) Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x00ef, t01=0x0004}
0x1754a…17572               Head {h00=0x0024, h01=0x0050, text=» CF A14,GETVLB GET VOLUME LABEL «, t00=0x00ef, t01=0x0018}
0x17572…17596               Head {h00=0x0020, h01=0x0050, text=» LD A1,FORDEV,A9 GET FORMAT «, t00=0x00ef, t01=0x0040}
0x17596…175b2               Head {h00=0x0018, h01=0x0050, text=» ST A1,DEVTYP+STKEND«, t00=0x00ef, t01=0x0064}
0x175b2…175c2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00ef, t01=0x0080}
0x175c2…175d0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ef, t01=0x0090}
0x175d0…17604               Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00ef, t01=0x009e}
0x17604…17638               Head {h00=0x0030, h01=0x0050, text=»*                                          *«, t00=0x00ef, t01=0x00d2}
0x17638…1766c               Head {h00=0x0030, h01=0x0050, text=»*                                          *«, t00=0x00ef, t01=0x0106}
0x1766c…176a0               Head {h00=0x0030, h01=0x0050, text=»*     UNLOCK - UNLOCK FLEXIBLE DISC        *«, t00=0x00ef, t01=0x013a}
0x176a0…176d4               Head {h00=0x0030, h01=0x0050, text=»*     =============================        *«, t00=0x00ef, t01=0x016e}
0x176d4…17708               Head {h00=0x0030, h01=0x0050, text=»*                                          *«, t00=0x00f0, t01=0x0012}
0x17708…1773c               Head {h00=0x0030, h01=0x0050, text=»*     ON ENTRY: A1 = DEVICE ADDRESS        *«, t00=0x00f0, t01=0x0046}
0x1773c…17770               Head {h00=0x0030, h01=0x0050, text=»*                                          *«, t00=0x00f0, t01=0x007a}
0x17770…177a4               Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00f0, t01=0x00ae}
0x177a4…177ac               Head {h00=0x0004, h01=0x0050, t00=0x00f0, t01=0x00e2}
0x177ac…177b4               Head {h00=0x0004, h01=0x0050, t00=0x00f0, t01=0x00ea}
0x177b4…177c8               Head {h00=0x0010, h01=0x0050, text=»UNLOCK EQU *«, t00=0x00f0, t01=0x00f2}
0x177c8…177f0               Head {h00=0x0024, h01=0x0050, text=» CF A14,FDINIT INIT UNLOCK ORDER«, t00=0x00f0, t01=0x0106}
0x177f0…17806               Head {h00=0x0012, h01=0x0050, text=»RELEAS EQU *+2«, t00=0x00f0, t01=0x012e}
0x17806…1781a               Head {h00=0x0010, h01=0x0050, text=» LDKL A1,/C «, t00=0x00f0, t01=0x0144}
0x1781a…17844               Head {h00=0x0026, h01=0x0050, text=» EX FRD:10 EXECUTE UNLOCK COMMAND «, t00=0x00f0, t01=0x0158}
0x17844…1786c               Head {h00=0x0024, h01=0x0050, text=» RB(NA) *-4 LOOP UNTIL ACCEPTED «, t00=0x00f0, t01=0x0182}
0x1786c…17876               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f1, t01=0x001a}
0x17876…17896               Head {h00=0x001c, h01=0x0050, text=» EX FRD:40 SENSE STATUS «, t00=0x00f1, t01=0x0024}
0x17896…178be               Head {h00=0x0024, h01=0x0050, text=» RB(NA) *-4 LOOP UNTIL ACCEPTED «, t00=0x00f1, t01=0x0044}
0x178be…178ce               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00f1, t01=0x006c}
0x178ce…178dc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f1, t01=0x007c}
0x178dc…17920               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x00f1, t01=0x008a}
0x17920…17964               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f1, t01=0x00ce}
0x17964…179a8               Head {h00=0x0040, h01=0x0050, text=»*        FRDSEC - READ SECTOR FROM FLEXIBLE DISC          * «, t00=0x00f1, t01=0x0112}
0x179a8…179ec               Head {h00=0x0040, h01=0x0050, text=»*        =======================================          * «, t00=0x00f1, t01=0x0156}
0x179ec…17a30               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f2, t01=0x000a}
0x17a30…17a74               Head {h00=0x0040, h01=0x0050, text=»*  REFERENCED IN:  SYSLOD                                 * «, t00=0x00f2, t01=0x004e}
0x17a74…17ab8               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f2, t01=0x0092}
0x17ab8…17afc               Head {h00=0x0040, h01=0x0050, text=»*  ENTRY:  A9 - BUFFER ADDRESS                            * «, t00=0x00f2, t01=0x00d6}
0x17afc…17b40               Head {h00=0x0040, h01=0x0050, text=»*         A11 - SECTOR NUMBER                             * «, t00=0x00f2, t01=0x011a}
0x17b40…17b84               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f2, t01=0x015e}
0x17b84…17bc8               Head {h00=0x0040, h01=0x0050, text=»*  EXIT:                                                  * «, t00=0x00f3, t01=0x0012}
0x17bc8…17c0c               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f3, t01=0x0056}
0x17c0c…17c50               Head {h00=0x0040, h01=0x0050, text=»*  WORK REGISTERS:  A1,A2,A3                              * «, t00=0x00f3, t01=0x009a}
0x17c50…17c94               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f3, t01=0x00de}
0x17c94…17cd8               Head {h00=0x0040, h01=0x0050, text=»*  SUBROUTINES:  ERROR                                    * «, t00=0x00f3, t01=0x0122}
0x17cd8…17d1c               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f3, t01=0x0166}
0x17d1c…17d60               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x00f4, t01=0x001a}
0x17d60…17d74               Head {h00=0x0010, h01=0x0050, text=»FRDSEC EQU *«, t00=0x00f4, t01=0x005e}
0x17d74…17d9a               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A11 GET SECTOR NUMBER «, t00=0x00f4, t01=0x0072}
0x17d9a…17dc8               Head {h00=0x002a, h01=0x0050, text=» LDKL A4,/340 26 SHIFTED 10 STEPS LEFT«, t00=0x00f4, t01=0x0098}
0x17dc8…17df0               Head {h00=0x0024, h01=0x0050, text=» LD A1,DEVTYP+STKEND DEVICE TYPE«, t00=0x00f4, t01=0x00c6}
0x17df0…17e02               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x00f4, t01=0x00ee}
0x17e02…17e2c               Head {h00=0x0026, h01=0x0050, text=» RF(Z) SNHEAD 0,25 MEG FLOPPY DISC«, t00=0x00f4, t01=0x0100}
0x17e2c…17e3e               Head {h00=0x000e, h01=0x0050, text=» CWK A2,13«, t00=0x00f4, t01=0x012a}
0x17e3e…17e64               Head {h00=0x0022, h01=0x0050, text=» RF(NL) NOTCY0 NOT CYLINDER 0 «, t00=0x00f4, t01=0x013c}
0x17e64…17e78               Head {h00=0x0010, h01=0x0050, text=»SNHEAD EQU *«, t00=0x00f4, t01=0x0162}
0x17e78…17ea6               Head {h00=0x002a, h01=0x0050, text=» SLL A2,1 A2=0-25,PHYSICAL SECTOR NBR «, t00=0x00f4, t01=0x0176}
0x17ea6…17eb8               Head {h00=0x000e, h01=0x0050, text=» RF DVK26 «, t00=0x00f5, t01=0x0014}
0x17eb8…17ecc               Head {h00=0x0010, h01=0x0050, text=»NOTCY0 EQU *«, t00=0x00f5, t01=0x0026}
0x17ecc…17ede               Head {h00=0x000e, h01=0x0050, text=» ADK A2,13«, t00=0x00f5, t01=0x003a}
0x17ede…17eec               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f5, t01=0x004c}
0x17eec…17ef6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x005a}
0x17ef6…17f1a               Head {h00=0x0020, h01=0x0050, text=»* A2=PHYSICAL SECTOR NUMBER «, t00=0x00f5, t01=0x0064}
0x17f1a…17f24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x0088}
0x17f24…17f38               Head {h00=0x0010, h01=0x0050, text=»DVK26 EQU * «, t00=0x00f5, t01=0x0092}
0x17f38…17f4a               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x00f5, t01=0x00a6}
0x17f4a…17f5e               Head {h00=0x0010, h01=0x0050, text=»DVK26A EQU *«, t00=0x00f5, t01=0x00b8}
0x17f5e…17f70               Head {h00=0x000e, h01=0x0050, text=» SLL A1,5 «, t00=0x00f5, t01=0x00cc}
0x17f70…17f84               Head {h00=0x0010, h01=0x0050, text=»DVK26B EQU *«, t00=0x00f5, t01=0x00de}
0x17f84…17f96               Head {h00=0x000e, h01=0x0050, text=» SUR A2,A4«, t00=0x00f5, t01=0x00f2}
0x17f96…17fac               Head {h00=0x0012, h01=0x0050, text=» RF(N) DVK26C «, t00=0x00f5, t01=0x0104}
0x17fac…17fbe               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x00f5, t01=0x011a}
0x17fbe…17fd0               Head {h00=0x000e, h01=0x0050, text=» RB DVK26B«, t00=0x00f5, t01=0x012c}
0x17fd0…17fe4               Head {h00=0x0010, h01=0x0050, text=»DVK26C EQU *«, t00=0x00f5, t01=0x013e}
0x17fe4…17ff6               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x00f5, t01=0x0152}
0x17ff6…18008               Head {h00=0x000e, h01=0x0050, text=» SRL A4,5 «, t00=0x00f5, t01=0x0164}
0x18008…1802e               Head {h00=0x0022, h01=0x0050, text=» RB(NZ) DVK26A NEXT FIVE BITS «, t00=0x00f5, t01=0x0176}
0x1802e…1803c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f6, t01=0x000c}
0x1803c…18046               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x001a}
0x18046…18060               Head {h00=0x0016, h01=0x0050, text=»* A2=SECTOR NUMBER«, t00=0x00f6, t01=0x0024}
0x18060…1807c               Head {h00=0x0018, h01=0x0050, text=»* A1=CYLINDER NUMBER«, t00=0x00f6, t01=0x003e}
0x1807c…18086               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x005a}
0x18086…180ae               Head {h00=0x0024, h01=0x0050, text=» LD A4,DEVTYP+STKEND DEVICE TYPE«, t00=0x00f6, t01=0x0064}
0x180ae…180c0               Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x00f6, t01=0x008c}
0x180c0…180f0               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) DBHEAD 1 MEG FLOPPY,DOUBLE HEAD «, t00=0x00f6, t01=0x009e}
0x180f0…18110               Head {h00=0x001c, h01=0x0050, text=» SLL A1,1 ONLY ONE HEAD «, t00=0x00f6, t01=0x00ce}
0x18110…18124               Head {h00=0x0010, h01=0x0050, text=»DBHEAD EQU *«, t00=0x00f6, t01=0x00ee}
0x18124…18136               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x00f6, t01=0x0102}
0x18136…18148               Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x00f6, t01=0x0114}
0x18148…1817a               Head {h00=0x002e, h01=0x0050, text=» SRC A4,2 HEAD NUMBER IN CORRECT POSITION «, t00=0x00f6, t01=0x0126}
0x1817a…181ae               Head {h00=0x0030, h01=0x0050, text=» SLL A2,2 SECTOR NUMBER IN CORRECT POSITION «, t00=0x00f6, t01=0x0158}
0x181ae…181d6               Head {h00=0x0024, h01=0x0050, text=» ORR A2,A4 A2=CIO READ REGISTER «, t00=0x00f6, t01=0x018c}
0x181d6…1820c               Head {h00=0x0032, h01=0x0050, text=» SLL A1,1 CYLINDER NUMBER IN CORRECT POSITION «, t00=0x00f7, t01=0x0024}
0x1820c…18232               Head {h00=0x0022, h01=0x0050, text=» ORK A1,3 A1=CIO SEEK REGISTER«, t00=0x00f7, t01=0x005a}
0x18232…1826a               Head {h00=0x0034, h01=0x0050, text=» CW A1,CYLNBR COMPARE OLD AN NEW CYLINDER NUMBER«, t00=0x00f7, t01=0x0080}
0x1826a…1828e               Head {h00=0x0020, h01=0x0050, text=» RF(E) NOSEEK NO SEEK NEEDED«, t00=0x00f7, t01=0x00b8}
0x1828e…182b8               Head {h00=0x0026, h01=0x0050, text=» ST A1,CYLNBR SAVE CYLINDER NUMBER«, t00=0x00f7, t01=0x00dc}
0x182b8…182da               Head {h00=0x001e, h01=0x0050, text=»FDSEEK EX FRD:10 CIO START«, t00=0x00f7, t01=0x0106}
0x182da…182f0               Head {h00=0x0012, h01=0x0050, text=» RB(NA) FDSEEK«, t00=0x00f7, t01=0x0128}
0x182f0…1830a               Head {h00=0x0016, h01=0x0050, text=»SEKSST SST A1,FDCU«, t00=0x00f7, t01=0x013e}
0x1830a…18320               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEKSST«, t00=0x00f7, t01=0x0158}
0x18320…18336               Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/611 «, t00=0x00f7, t01=0x016e}
0x18336…18358               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) FRD:50 SEEK ERROR «, t00=0x00f7, t01=0x0184}
0x18358…1836c               Head {h00=0x0010, h01=0x0050, text=»NOSEEK EQU *«, t00=0x00f8, t01=0x0016}
0x1836c…1837e               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x00f8, t01=0x002a}
0x1837e…18390               Head {h00=0x000e, h01=0x0050, text=» RF FRD:05«, t00=0x00f8, t01=0x003c}
0x18390…1839e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f8, t01=0x004e}
0x1839e…183b2               Head {h00=0x0010, h01=0x0050, text=»FRDS25 EQU *«, t00=0x00f8, t01=0x005c}
0x183b2…183d0               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A11 SECTOR NO «, t00=0x00f8, t01=0x0070}
0x183d0…183e2               Head {h00=0x000e, h01=0x0050, text=» SLL A1,4 «, t00=0x00f8, t01=0x008e}
0x183e2…1841e               Head {h00=0x0038, h01=0x0050, text=» ORKL A1,/4000 NUMBER OF SECTORS=2  (BIT 0 - BIT 1) «, t00=0x00f8, t01=0x00a0}
0x1841e…18432               Head {h00=0x0010, h01=0x0050, text=»FRD:05 EQU *«, t00=0x00f8, t01=0x00dc}
0x18432…18448               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,MUXCC«, t00=0x00f8, t01=0x00f0}
0x18448…1846c               Head {h00=0x0020, h01=0x0050, text=» LD A3,MXBUF BUFFER ADDRESS «, t00=0x00f8, t01=0x0106}
0x1846c…1848a               Head {h00=0x001a, h01=0x0050, text=» WER A2,FDIOP 1:ST WER«, t00=0x00f8, t01=0x012a}
0x1848a…184ac               Head {h00=0x001e, h01=0x0050, text=» WER A3,FDIOP+1 SECOND WER«, t00=0x00f8, t01=0x0148}
0x184ac…184b4               Head {h00=0x0004, h01=0x0050, t00=0x00f8, t01=0x016a}
0x184b4…184dc               Head {h00=0x0024, h01=0x0050, text=» LDR A2,A3 BUFFER START ADDRESS «, t00=0x00f8, t01=0x0172}
0x184dc…18504               Head {h00=0x0024, h01=0x0050, text=» AD A2,SAVCON BUFFER END ADDRESS«, t00=0x00f9, t01=0x000a}
0x18504…1850e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x0032}
0x1850e…18536               Head {h00=0x0024, h01=0x0050, text=»FRD:10 CIO A1,1,FDCU START READ «, t00=0x00f9, t01=0x003c}
0x18536…1854c               Head {h00=0x0012, h01=0x0050, text=» RB(NA) FRD:10«, t00=0x00f9, t01=0x0064}
0x1854c…18556               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x007a}
0x18556…1856c               Head {h00=0x0012, h01=0x0050, text=» EJECT   CRVOL«, t00=0x00f9, t01=0x0084}
0x1856c…18576               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x009a}
0x18576…18580               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x00a4}
0x18580…1859c               Head {h00=0x0018, h01=0x0050, text=»FRD:20 INR A1,0,FDCU«, t00=0x00f9, t01=0x00ae}
0x1859c…185b6               Head {h00=0x0016, h01=0x0050, text=» RF(NA) FRD:40  =4«, t00=0x00f9, t01=0x00ca}
0x185b6…185c8               Head {h00=0x000e, h01=0x0050, text=» STR A1,A3«, t00=0x00f9, t01=0x00e4}
0x185c8…185da               Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x00f9, t01=0x00f6}
0x185da…185ec               Head {h00=0x000e, h01=0x0050, text=» CWR A3,A2«, t00=0x00f9, t01=0x0108}
0x185ec…18602               Head {h00=0x0012, h01=0x0050, text=» RB(NE) FRD:20«, t00=0x00f9, t01=0x011a}
0x18602…1860c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x0130}
0x1860c…18632               Head {h00=0x0022, h01=0x0050, text=»FRD:25 CIO A1,0,FDCU STOP READ«, t00=0x00f9, t01=0x013a}
0x18632…18644               Head {h00=0x000e, h01=0x0050, text=» RB FRD:20«, t00=0x00f9, t01=0x0160}
0x18644…1865e               Head {h00=0x0016, h01=0x0050, text=»FRD:40 SST A1,FDCU«, t00=0x00f9, t01=0x0172}
0x1865e…18674               Head {h00=0x0012, h01=0x0050, text=» RB(NA) FRD:20«, t00=0x00f9, t01=0x018c}
0x18674…1868a               Head {h00=0x0012, h01=0x0050, text=»FRD:42 EQU *+2«, t00=0x00fa, t01=0x0012}
0x1868a…186ae               Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/4E15 FATAL ERROR ?«, t00=0x00fa, t01=0x0028}
0x186ae…186ca               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) FRD:50 YES! «, t00=0x00fa, t01=0x004c}
0x186ca…186e6               Head {h00=0x0018, h01=0x0050, text=»FRD:43 CWR A3,A2  =4«, t00=0x00fa, t01=0x0068}
0x186e6…18712               Head {h00=0x0028, h01=0x0050, text=» RF(E) FRD:44 PROGRAMMED CHANNEL =4 «, t00=0x00fa, t01=0x0084}
0x18712…18744               Head {h00=0x002e, h01=0x0050, text=» LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 «, t00=0x00fa, t01=0x00b0}
0x18744…1876e               Head {h00=0x0026, h01=0x0050, text=» ST A1,FRD:20 UPDATE INR ISTR. =4 «, t00=0x00fa, t01=0x00e2}
0x1876e…18786               Head {h00=0x0014, h01=0x0050, text=»FRD:44 EQU *  =4«, t00=0x00fa, t01=0x010c}
0x18786…187b8               Head {h00=0x002e, h01=0x0050, text=» LDKL A1,FRD:B2+/5700 RF FRD:45 INSTR. =4 «, t00=0x00fa, t01=0x0124}
0x187b8…187e2               Head {h00=0x0026, h01=0x0050, text=» ST A1,FRD:43 UPDATE CWR INSTR. =4«, t00=0x00fa, t01=0x0156}
0x187e2…18802               Head {h00=0x001c, h01=0x0050, text=» ABI READ READ AGAIN =4 «, t00=0x00fa, t01=0x0180}
0x18802…18816               Head {h00=0x0010, h01=0x0050, text=»FRD:45 EQU *«, t00=0x00fb, t01=0x0010}
0x18816…18842               Head {h00=0x0028, h01=0x0050, text=» ADKL A11,1 INCRMENT SECTOR ADDRESS «, t00=0x00fb, t01=0x0024}
0x18842…18858               Head {h00=0x0012, h01=0x0050, text=» RF(NN) FRD:48«, t00=0x00fb, t01=0x0050}
0x18858…1888c               Head {h00=0x0030, h01=0x0050, text=» SUR A11,A11 RESET LEAST SIGN. PART OF D.A. «, t00=0x00fb, t01=0x0066}
0x1888c…188c2               Head {h00=0x0032, h01=0x0050, text=» ADKL A12,1 INCREMENT MOST SIGN. PART OF D.A. «, t00=0x00fb, t01=0x009a}
0x188c2…188ea               Head {h00=0x0024, h01=0x0050, text=» RF(O) FRD:50 DISC ADDRESS ERROR«, t00=0x00fb, t01=0x00d0}
0x188ea…188fe               Head {h00=0x0010, h01=0x0050, text=»FRD:48 EQU *«, t00=0x00fb, t01=0x00f8}
0x188fe…1890e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00fb, t01=0x010c}
0x1890e…18922               Head {h00=0x0010, h01=0x0050, text=»FRD:50 EQU *«, t00=0x00fb, t01=0x011c}
0x18922…18938               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x00fb, t01=0x0130}
0x18938…1894c               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00fb, t01=0x0146}
0x1894c…18972               Head {h00=0x0022, h01=0x0050, text=»FRD:B1 EQU FRD:40-FRD:20-2  =4«, t00=0x00fb, t01=0x015a}
0x18972…18998               Head {h00=0x0022, h01=0x0050, text=»FRD:B2 EQU FRD:45-FRD:43-2  =4«, t00=0x00fb, t01=0x0180}
0x18998…189a4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00fc, t01=0x0016}
0x189a4…189ba               Head {h00=0x0012, h01=0x0050, text=» IFT CDDISC=1 «, t00=0x00fc, t01=0x0022}
0x189ba…189d4               Head {h00=0x0016, h01=0x0050, text=» IFT CDDI16=0  =9 «, t00=0x00fc, t01=0x0038}
0x189d4…189e2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fc, t01=0x0052}
0x189e2…18a0e               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00fc, t01=0x0060}
0x18a0e…18a3a               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00fc, t01=0x008c}
0x18a3a…18a66               Head {h00=0x0028, h01=0x0050, text=»*  CDINIT - INITIALIZE DISC UNIT  * «, t00=0x00fc, t01=0x00b8}
0x18a66…18a92               Head {h00=0x0028, h01=0x0050, text=»*  =============================  * «, t00=0x00fc, t01=0x00e4}
0x18a92…18abe               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00fc, t01=0x0110}
0x18abe…18aea               Head {h00=0x0028, h01=0x0050, text=»*  REFERENCED IN: SYSLOD,GETFIL   * «, t00=0x00fc, t01=0x013c}
0x18aea…18b16               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00fc, t01=0x0168}
0x18b16…18b42 (253, 0, 400) Head {h00=0x0028, h01=0x0050, text=»*  ENTRY: A1 - DEVICE ADDRESS     * «, t00=0x00fd, t01=0x0004}
0x18b42…18b6e               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00fd, t01=0x0030}
0x18b6e…18b9a               Head {h00=0x0028, h01=0x0050, text=»*  EXIT:                          * «, t00=0x00fd, t01=0x005c}
0x18b9a…18bc6               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00fd, t01=0x0088}
0x18bc6…18bf2               Head {h00=0x0028, h01=0x0050, text=»*  WORK REGISTERS:  A1,A2          *«, t00=0x00fd, t01=0x00b4}
0x18bf2…18c1e               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00fd, t01=0x00e0}
0x18c1e…18c4a               Head {h00=0x0028, h01=0x0050, text=»*  SUBROUTINES:                   * «, t00=0x00fd, t01=0x010c}
0x18c4a…18c76               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00fd, t01=0x0138}
0x18c76…18ca2               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00fd, t01=0x0164}
0x18ca2…18caa               Head {h00=0x0004, h01=0x0050, t00=0x00fd, t01=0x0190}
0x18caa…18cbe               Head {h00=0x0010, h01=0x0050, text=»CDINIT EQU *«, t00=0x00fe, t01=0x0008}
0x18cbe…18cc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x001c}
0x18cc8…18cec               Head {h00=0x0020, h01=0x0050, text=»* INIT 80M CDC DISC COMMANDS«, t00=0x00fe, t01=0x0026}
0x18cec…18cf6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x004a}
0x18cf6…18d26               Head {h00=0x002c, h01=0x0050, text=» ORKL A1,CIO CONFIG CIO A1,1,XX  INSTR. «, t00=0x00fe, t01=0x0054}
0x18d26…18d3c               Head {h00=0x0012, h01=0x0050, text=» ST A1,READC1 «, t00=0x00fe, t01=0x0084}
0x18d3c…18d68               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A1,XX  INSTR.«, t00=0x00fe, t01=0x009a}
0x18d68…18d7e               Head {h00=0x0012, h01=0x0050, text=» ST A1,READC2 «, t00=0x00fe, t01=0x00c6}
0x18d7e…18dac               Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/B00 FORM CIO A2,1,XX  INSTR.«, t00=0x00fe, t01=0x00dc}
0x18dac…18dc2               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKC1 «, t00=0x00fe, t01=0x010a}
0x18dc2…18dee               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX  INSTR.«, t00=0x00fe, t01=0x0120}
0x18dee…18e04               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKC2 «, t00=0x00fe, t01=0x014c}
0x18e04…18e18               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x00fe, t01=0x0162}
0x18e18…18e4e               Head {h00=0x0032, h01=0x0050, text=» ST A2,PSECNL+STKEND INIT VALUE FOR SECTOR NBR«, t00=0x00fe, t01=0x0176}
0x18e4e…18e78               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/300 BUFLEN 80M CDC DISC «, t00=0x00ff, t01=0x001c}
0x18e78…18e9a               Head {h00=0x001e, h01=0x0050, text=» ST A2,SAVCON SAVE LENGTH «, t00=0x00ff, t01=0x0046}
0x18e9a…18ed2               Head {h00=0x0034, h01=0x0050, text=» LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR.«, t00=0x00ff, t01=0x0068}
0x18ed2…18ee6               Head {h00=0x0010, h01=0x0050, text=» ST A2,READ «, t00=0x00ff, t01=0x00a0}
0x18ee6…18efa               Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x00ff, t01=0x00b4}
0x18efa…18f0a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00ff, t01=0x00c8}
0x18f0a…18f18               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ff, t01=0x00d8}
0x18f18…18f50               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00ff, t01=0x00e6}
0x18f50…18f88               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00ff, t01=0x011e}
0x18f88…18fc0               Head {h00=0x0034, h01=0x0050, text=»*  CRDSEC- READ ONE SECTOR FROM DISC          * «, t00=0x00ff, t01=0x0156}
0x18fc0…18ff8               Head {h00=0x0034, h01=0x0050, text=»*  =================================          * «, t00=0x00ff, t01=0x018e}
0x18ff8…19030               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0100, t01=0x0036}
0x19030…19068               Head {h00=0x0034, h01=0x0050, text=»*  REFERENCED IN: SYSLOD                      * «, t00=0x0100, t01=0x006e}
0x19068…190a0               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0100, t01=0x00a6}
0x190a0…190d8               Head {h00=0x0034, h01=0x0050, text=»*  ENTRY:  A9 = BUFFER ADDRESS                * «, t00=0x0100, t01=0x00de}
0x190d8…19110               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0100, t01=0x0116}
0x19110…19148               Head {h00=0x0034, h01=0x0050, text=»*         A11 - SECTOR NBR LEAST SIGNIFICANT  * «, t00=0x0100, t01=0x014e}
0x19148…19180               Head {h00=0x0034, h01=0x0050, text=»*         A12 - SECTOR NBR MOST SIGNIFICANT   * «, t00=0x0100, t01=0x0186}
0x19180…191b8               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0101, t01=0x002e}
0x191b8…191f0               Head {h00=0x0034, h01=0x0050, text=»*  EXIT: A12,A11 = A12,A11 + 1                * «, t00=0x0101, t01=0x0066}
0x191f0…19228               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0101, t01=0x009e}
0x19228…19260               Head {h00=0x0034, h01=0x0050, text=»*   WORK REGISTERS:  A1,A2,A3,A6              * «, t00=0x0101, t01=0x00d6}
0x19260…19298               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0101, t01=0x010e}
0x19298…192d0               Head {h00=0x0034, h01=0x0050, text=»*  SUBROUTINES:  ERROR                        * «, t00=0x0101, t01=0x0146}
0x192d0…19308               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0101, t01=0x017e}
0x19308…19340               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0102, t01=0x0026}
0x19340…1934a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x005e}
0x1934a…1935e               Head {h00=0x0010, h01=0x0050, text=»CRDSEC EQU *«, t00=0x0102, t01=0x0068}
0x1935e…19368               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x007c}
0x19368…19384               Head {h00=0x0018, h01=0x0050, text=»* SET BUFFER ADDRESS«, t00=0x0102, t01=0x0086}
0x19384…1938e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x00a2}
0x1938e…193b0               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 BUFFER ADDRESS «, t00=0x0102, t01=0x00ac}
0x193b0…193c4               Head {h00=0x0010, h01=0x0050, text=» ADKL A1,256«, t00=0x0102, t01=0x00ce}
0x193c4…193e4               Head {h00=0x001c, h01=0x0050, text=» ST A1,CIOAD2 ADDRESS 2 «, t00=0x0102, t01=0x00e2}
0x193e4…193f8               Head {h00=0x0010, h01=0x0050, text=» ADKL A1,256«, t00=0x0102, t01=0x0102}
0x193f8…19418               Head {h00=0x001c, h01=0x0050, text=» ST A1,CIOAD3 ADDRESS 3 «, t00=0x0102, t01=0x0116}
0x19418…1942e               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/3FFF«, t00=0x0102, t01=0x0136}
0x1942e…19450               Head {h00=0x001e, h01=0x0050, text=» ANS A1,CIOTAB RESET BITS «, t00=0x0102, t01=0x014c}
0x19450…19472               Head {h00=0x001e, h01=0x0050, text=» ANS A1,CIOTOT RESET BITS «, t00=0x0102, t01=0x016e}
0x19472…194a4               Head {h00=0x002e, h01=0x0050, text=» LDR A1,A12 SECTOR NUMBER MOST SIGNIFICANT«, t00=0x0102, t01=0x0190}
0x194a4…194d8               Head {h00=0x0030, h01=0x0050, text=» LDR A2,A11 SECTOR NUMBER LEAST SIGNIFICANT «, t00=0x0103, t01=0x0032}
0x194d8…194e6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0103, t01=0x0066}
0x194e6…194f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0103, t01=0x0074}
0x194f0…19510               Head {h00=0x001c, h01=0x0050, text=»* DIVIDE LOGICAL WITH 3 «, t00=0x0103, t01=0x007e}
0x19510…1951a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0103, t01=0x009e}
0x1951a…1952c               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0103, t01=0x00a8}
0x1952c…19540               Head {h00=0x0010, h01=0x0050, text=»RED100 EQU *«, t00=0x0103, t01=0x00ba}
0x19540…19552               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0103, t01=0x00ce}
0x19552…19564               Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x0103, t01=0x00e0}
0x19564…1957a               Head {h00=0x0012, h01=0x0050, text=» RB(NN) RED100«, t00=0x0103, t01=0x00f2}
0x1957a…1958c               Head {h00=0x000e, h01=0x0050, text=» ADK A1,3 «, t00=0x0103, t01=0x0108}
0x1958c…1959e               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0103, t01=0x011a}
0x1959e…195ac               Head {h00=0x000a, h01=0x0050, text=» DVK 3«, t00=0x0103, t01=0x012c}
0x195ac…195c2               Head {h00=0x0012, h01=0x0050, text=» CW A9,CIOAD1 «, t00=0x0103, t01=0x013a}
0x195c2…19600               Head {h00=0x003a, h01=0x0050, text=» RF(NE) RED110 NOT SAME BUFFER ADDRESS MEANS NEW READ «, t00=0x0103, t01=0x0150}
0x19600…1961c               Head {h00=0x0018, h01=0x0050, text=» CW A2,PSECNL+STKEND«, t00=0x0103, t01=0x018e}
0x1961c…1964c               Head {h00=0x002c, h01=0x0050, text=» RF(NE) RED110 NOT SAME PHYSICAL SEC NBR«, t00=0x0104, t01=0x001a}
0x1964c…19668               Head {h00=0x0018, h01=0x0050, text=» CW A3,PSECNM+STKEND«, t00=0x0104, t01=0x004a}
0x19668…19698               Head {h00=0x002c, h01=0x0050, text=» RF(NE) RED110 NOT SAME PHYSICAL SEC NBR«, t00=0x0104, t01=0x0066}
0x19698…196b4               Head {h00=0x0018, h01=0x0050, text=» CW A1,PSECPA+STKEND«, t00=0x0104, t01=0x0096}
0x196b4…196de               Head {h00=0x0026, h01=0x0050, text=» RF(E) TURN SAME LOG SEC AS BEFORE«, t00=0x0104, t01=0x00b2}
0x196de…19710               Head {h00=0x002e, h01=0x0050, text=» RF(G) REDMOV MOVE UP NEXT LOGICAL SECTOR «, t00=0x0104, t01=0x00dc}
0x19710…19724               Head {h00=0x0010, h01=0x0050, text=»RED110 EQU *«, t00=0x0104, t01=0x010e}
0x19724…19744               Head {h00=0x001c, h01=0x0050, text=» ST A9,CIOAD1 ADDRESS 1 «, t00=0x0104, t01=0x0122}
0x19744…19770               Head {h00=0x0028, h01=0x0050, text=» MS 3,PSECPA+STKEND SAVE NEW VALUES «, t00=0x0104, t01=0x0142}
0x19770…19782               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0104, t01=0x016e}
0x19782…19792               Head {h00=0x000c, h01=0x0050, text=» DVK 115«, t00=0x0104, t01=0x0180}
0x19792…197a0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0104, t01=0x0190}
0x197a0…197c2               Head {h00=0x001e, h01=0x0050, text=»* A1=HEAD NBR * SECTOR NBR«, t00=0x0105, t01=0x000e}
0x197c2…197dc               Head {h00=0x0016, h01=0x0050, text=»* A2=CYLINDER NBR «, t00=0x0105, t01=0x0030}
0x197dc…197ee               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0105, t01=0x004a}
0x197ee…19800               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0105, t01=0x005c}
0x19800…19812               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0105, t01=0x006e}
0x19812…19822               Head {h00=0x000c, h01=0x0050, text=» DVK 23 «, t00=0x0105, t01=0x0080}
0x19822…1983a               Head {h00=0x0014, h01=0x0050, text=»* A1=SECTOR NBR «, t00=0x0105, t01=0x0090}
0x1983a…19850               Head {h00=0x0012, h01=0x0050, text=»* A2=HEAD NBR «, t00=0x0105, t01=0x00a8}
0x19850…19878               Head {h00=0x0024, h01=0x0050, text=» ORKL A2,/800 SET INTERRUPT BIT «, t00=0x0105, t01=0x00be}
0x19878…1989e               Head {h00=0x0022, h01=0x0050, text=» ST A2,CIOTAB UPDATE CIO TABLE«, t00=0x0105, t01=0x00e6}
0x1989e…198ac               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0105, t01=0x010c}
0x198ac…198b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x011a}
0x198b6…198cc               Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x0105, t01=0x0124}
0x198cc…198d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x013a}
0x198d6…198e8               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0105, t01=0x0144}
0x198e8…19904               Head {h00=0x0018, h01=0x0050, text=» MUK 5 INTERLACING 5«, t00=0x0105, t01=0x0156}
0x19904…19916               Head {h00=0x000e, h01=0x0050, text=» SLC A3,1 «, t00=0x0105, t01=0x0172}
0x19916…19942               Head {h00=0x0028, h01=0x0050, text=» RF(NN) INT100 EVEN CYLINDER NUMBER «, t00=0x0105, t01=0x0184}
0x19942…19960               Head {h00=0x001a, h01=0x0050, text=» ADK A2,12 SKEW FACTOR«, t00=0x0106, t01=0x0020}
0x19960…19974               Head {h00=0x0010, h01=0x0050, text=»INT100 EQU *«, t00=0x0106, t01=0x003e}
0x19974…19984               Head {h00=0x000c, h01=0x0050, text=» DVK 23 «, t00=0x0106, t01=0x0052}
0x19984…199a2               Head {h00=0x001a, h01=0x0050, text=» SLL A1,5 IN POSITION «, t00=0x0106, t01=0x0062}
0x199a2…199ca               Head {h00=0x0024, h01=0x0050, text=» ORS A1,CIOTAB UPDATE CIO TABLE «, t00=0x0106, t01=0x0080}
0x199ca…199e6               Head {h00=0x0018, h01=0x0050, text=» SRC A3,1 RESTORE A3«, t00=0x0106, t01=0x00a8}
0x199e6…199fc               Head {h00=0x0012, h01=0x0050, text=» CW A3,CYLNBR «, t00=0x0106, t01=0x00c4}
0x199fc…19a26               Head {h00=0x0026, h01=0x0050, text=» RF(E) READER SAME CYLINDER NUMBER«, t00=0x0106, t01=0x00da}
0x19a26…19a34               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0106, t01=0x0104}
0x19a34…19a3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x0112}
0x19a3e…19a4c               Head {h00=0x000a, h01=0x0050, text=»* SEEK«, t00=0x0106, t01=0x011c}
0x19a4c…19a56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x012a}
0x19a56…19a7e               Head {h00=0x0024, h01=0x0050, text=» ST A3,CYLNBR SAVE CYLINDER NBR «, t00=0x0106, t01=0x0134}
0x19a7e…19aa2               Head {h00=0x0020, h01=0x0050, text=» ADKL A3,/A800 SEEK COMMAND «, t00=0x0106, t01=0x015c}
0x19aa2…19ab8               Head {h00=0x0012, h01=0x0050, text=» ST A3,SEKTAB «, t00=0x0106, t01=0x0180}
0x19ab8…19ad0               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,SEKTAB «, t00=0x0107, t01=0x0008}
0x19ad0…19ae4               Head {h00=0x0010, h01=0x0050, text=»SEEKC1 EQU *«, t00=0x0107, t01=0x0020}
0x19ae4…19afc               Head {h00=0x0014, h01=0x0050, text=» CIO A2,1,0 SEEK«, t00=0x0107, t01=0x0034}
0x19afc…19b12               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEKC1«, t00=0x0107, t01=0x004c}
0x19b12…19b26               Head {h00=0x0010, h01=0x0050, text=»SEEKC2 EQU *«, t00=0x0107, t01=0x0062}
0x19b26…19b38               Head {h00=0x000e, h01=0x0050, text=» SST A2,0 «, t00=0x0107, t01=0x0076}
0x19b38…19b4e               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEKC2«, t00=0x0107, t01=0x0088}
0x19b4e…19b5c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0107, t01=0x009e}
0x19b5c…19b66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x00ac}
0x19b66…19b78               Head {h00=0x000e, h01=0x0050, text=»*    READ «, t00=0x0107, t01=0x00b6}
0x19b78…19b82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x00c8}
0x19b82…19b96               Head {h00=0x0010, h01=0x0050, text=»READER EQU *«, t00=0x0107, t01=0x00d2}
0x19b96…19bba               Head {h00=0x0020, h01=0x0050, text=» LDK A6,3 NUMBER OF RETRIES «, t00=0x0107, t01=0x00e6}
0x19bba…19bce               Head {h00=0x0010, h01=0x0050, text=»REA100 EQU *«, t00=0x0107, t01=0x010a}
0x19bce…19bfa               Head {h00=0x0028, h01=0x0050, text=» LDKL A1,CIOTAB POINTER TO CIO TABLE«, t00=0x0107, t01=0x011e}
0x19bfa…19c18               Head {h00=0x001a, h01=0x0050, text=»READC1 CIO A1,1,0 READ«, t00=0x0107, t01=0x014a}
0x19c18…19c42               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READC1 LOOP UNTIL ACCEPTED«, t00=0x0107, t01=0x0168}
0x19c42…19c4c (264, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0108, t01=0x0004}
0x19c4c…19c6a               Head {h00=0x001a, h01=0x0050, text=»READC2 SST A1,0 STATUS«, t00=0x0108, t01=0x000e}
0x19c6a…19c94               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READC2 LOOP UNTIL ACCEPTED«, t00=0x0108, t01=0x002c}
0x19c94…19cb2               Head {h00=0x001a, h01=0x0050, text=» ANKL A1,/FF0F STATUS «, t00=0x0108, t01=0x0056}
0x19cb2…19cd6               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RET30 READING ERROR «, t00=0x0108, t01=0x0074}
0x19cd6…19d18               Head {h00=0x003e, h01=0x0050, text=» LD A1,PSECPA+STKEND GET RELATIV LOG SECT IN PHYSICAL =11 «, t00=0x0108, t01=0x0098}
0x19d18…19d4c               Head {h00=0x0030, h01=0x0050, text=» RF(NZ) REDMOV NOT FIRST REL LOG SECTOR =11 «, t00=0x0108, t01=0x00da}
0x19d4c…19d54               Head {h00=0x0004, h01=0x0050, t00=0x0108, t01=0x010e}
0x19d54…19d66               Head {h00=0x000e, h01=0x0050, text=»TURN EQU *«, t00=0x0108, t01=0x0116}
0x19d66…19d9a               Head {h00=0x0030, h01=0x0050, text=» ADKL A11,1 INCREMENT LOGICAL SECTOR NUMBER «, t00=0x0108, t01=0x0128}
0x19d9a…19db8               Head {h00=0x001a, h01=0x0050, text=» RF(O) TURN10 OVERFLOW«, t00=0x0108, t01=0x015c}
0x19db8…19dca               Head {h00=0x000e, h01=0x0050, text=» RF TURN20«, t00=0x0108, t01=0x017a}
0x19dca…19dde               Head {h00=0x0010, h01=0x0050, text=»TURN10 EQU *«, t00=0x0108, t01=0x018c}
0x19dde…19dfc               Head {h00=0x001a, h01=0x0050, text=» SUR A11,A11 RESET A11«, t00=0x0109, t01=0x0010}
0x19dfc…19e10               Head {h00=0x0010, h01=0x0050, text=» ADKL A12,1 «, t00=0x0109, t01=0x002e}
0x19e10…19e24               Head {h00=0x0010, h01=0x0050, text=»TURN20 EQU *«, t00=0x0109, t01=0x0042}
0x19e24…19e34               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0109, t01=0x0056}
0x19e34…19e42               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0109, t01=0x0066}
0x19e42…19e4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x0074}
0x19e4c…19e72               Head {h00=0x0022, h01=0x0050, text=»* MOVE UP NEXT LOGICAL SECTOR «, t00=0x0109, t01=0x007e}
0x19e72…19e7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x00a4}
0x19e7c…19e90               Head {h00=0x0010, h01=0x0050, text=»REDMOV EQU *«, t00=0x0109, t01=0x00ae}
0x19e90…19eca               Head {h00=0x0036, h01=0x0050, text=» ST A1,PSECPA+STKEND SAVE NEW LOGICAL SECTOR PART «, t00=0x0109, t01=0x00c2}
0x19eca…19eea               Head {h00=0x001c, h01=0x0050, text=» SLL A1,2 INDEX TO TABLE«, t00=0x0109, t01=0x00fc}
0x19eea…19f12               Head {h00=0x0024, h01=0x0050, text=» LD A1,CIOAD1,A1 SOURCE ADDRESS «, t00=0x0109, t01=0x011c}
0x19f12…19f38               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A9 DESTINATION ADDRESS«, t00=0x0109, t01=0x0144}
0x19f38…19f5c               Head {h00=0x0020, h01=0x0050, text=» LDK A3,128 LENGTH IN WORDS «, t00=0x0109, t01=0x016a}
0x19f5c…19f70               Head {h00=0x0010, h01=0x0050, text=»RMOV10 EQU *«, t00=0x0109, t01=0x018e}
0x19f70…19f84               Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A1 «, t00=0x010a, t01=0x0012}
0x19f84…19f96               Head {h00=0x000e, h01=0x0050, text=» STR A6,A2«, t00=0x010a, t01=0x0026}
0x19f96…19fa8               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x010a, t01=0x0038}
0x19fa8…19fba               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x010a, t01=0x004a}
0x19fba…19fcc               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x010a, t01=0x005c}
0x19fcc…19fec               Head {h00=0x001c, h01=0x0050, text=» RB(P) RMOV10 NEXT WORD «, t00=0x010a, t01=0x006e}
0x19fec…19ffc               Head {h00=0x000c, h01=0x0050, text=» RB TURN«, t00=0x010a, t01=0x008e}
0x19ffc…1a004               Head {h00=0x0004, h01=0x0050, t00=0x010a, t01=0x009e}
0x1a004…1a00c               Head {h00=0x0004, h01=0x0050, t00=0x010a, t01=0x00a6}
0x1a00c…1a014               Head {h00=0x0004, h01=0x0050, t00=0x010a, t01=0x00ae}
0x1a014…1a028               Head {h00=0x0010, h01=0x0050, text=»NOFOND EQU *«, t00=0x010a, t01=0x00b6}
0x1a028…1a03e               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x010a, t01=0x00ca}
0x1a03e…1a068               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR INDICATE READING ERROR«, t00=0x010a, t01=0x00e0}
0x1a068…1a076               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010a, t01=0x010a}
0x1a076…1a080               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x0118}
0x1a080…1a09e               Head {h00=0x001a, h01=0x0050, text=»* IO ERROR IN READING «, t00=0x010a, t01=0x0122}
0x1a09e…1a0a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x0140}
0x1a0a8…1a0bc               Head {h00=0x0010, h01=0x0050, text=»RET30 EQU * «, t00=0x010a, t01=0x014a}
0x1a0bc…1a0ce               Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x010a, t01=0x015e}
0x1a0ce…1a0ec               Head {h00=0x001a, h01=0x0050, text=» RB(NZ) REA100 NEW TRY«, t00=0x010a, t01=0x0170}
0x1a0ec…1a102               Head {h00=0x0012, h01=0x0050, text=» LC A1,CIOTAB «, t00=0x010a, t01=0x018e}
0x1a102…1a116               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/C0 «, t00=0x010b, t01=0x0014}
0x1a116…1a14e               Head {h00=0x0034, h01=0x0050, text=» RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S «, t00=0x010b, t01=0x0028}
0x1a14e…1a164               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x010b, t01=0x0060}
0x1a164…1a198               Head {h00=0x0030, h01=0x0050, text=» ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE«, t00=0x010b, t01=0x0076}
0x1a198…1a1aa               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x010b, t01=0x00aa}
0x1a1aa…1a1be               Head {h00=0x0010, h01=0x0050, text=»RET31 EQU * «, t00=0x010b, t01=0x00bc}
0x1a1be…1a1d2               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x010b, t01=0x00d0}
0x1a1d2…1a208               Head {h00=0x0032, h01=0x0050, text=» RF(Z) RET32 LAST RETRY WITH LATE DATA STROBE «, t00=0x010b, t01=0x00e4}
0x1a208…1a21e               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/C000«, t00=0x010b, t01=0x011a}
0x1a21e…1a252               Head {h00=0x0030, h01=0x0050, text=» XRS A2,CIOTAB CHANGE FROM EARLY TO LATE D.S«, t00=0x010b, t01=0x0130}
0x1a252…1a264               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x010b, t01=0x0164}
0x1a264…1a278               Head {h00=0x0010, h01=0x0050, text=»RET32 EQU * «, t00=0x010b, t01=0x0176}
0x1a278…1a28e               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/3FFF«, t00=0x010b, t01=0x018a}
0x1a28e…1a2bc               Head {h00=0x002a, h01=0x0050, text=» ANS A2,CIOTAB RESET LATE DATA STROBE «, t00=0x010c, t01=0x0010}
0x1a2bc…1a2d2               Head {h00=0x0012, h01=0x0050, text=» LC A1,CIOTOT «, t00=0x010c, t01=0x003e}
0x1a2d2…1a2e6               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/C0 «, t00=0x010c, t01=0x0054}
0x1a2e6…1a31e               Head {h00=0x0034, h01=0x0050, text=» RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- «, t00=0x010c, t01=0x0068}
0x1a31e…1a334               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x010c, t01=0x00a0}
0x1a334…1a360               Head {h00=0x0028, h01=0x0050, text=» ORS A2,CIOTOT PREPARE FOR CARRIAGE+«, t00=0x010c, t01=0x00b6}
0x1a360…1a372               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x010c, t01=0x00e2}
0x1a372…1a386               Head {h00=0x0010, h01=0x0050, text=»RET33 EQU * «, t00=0x010c, t01=0x00f4}
0x1a386…1a39a               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x010c, t01=0x0108}
0x1a39a…1a3be               Head {h00=0x0020, h01=0x0050, text=» RB(Z) NOFOND READING ERROR «, t00=0x010c, t01=0x011c}
0x1a3be…1a3d4               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/C000«, t00=0x010c, t01=0x0140}
0x1a3d4…1a406               Head {h00=0x002e, h01=0x0050, text=» XRS A2,CIOTOT FROM CARRIAGE+ TO CARRIGE- «, t00=0x010c, t01=0x0156}
0x1a406…1a418               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x010c, t01=0x0188}
0x1a418…1a426               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010d, t01=0x000a}
0x1a426…1a430               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x0018}
0x1a430…1a444               Head {h00=0x0010, h01=0x0050, text=»* SEEK TABLE«, t00=0x010d, t01=0x0022}
0x1a444…1a44e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x0036}
0x1a44e…1a462               Head {h00=0x0010, h01=0x0050, text=»SEKTAB EQU *«, t00=0x010d, t01=0x0040}
0x1a462…1a472               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x010d, t01=0x0054}
0x1a472…1a47c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x0064}
0x1a47c…1a490               Head {h00=0x0010, h01=0x0050, text=»* CIO TABLE «, t00=0x010d, t01=0x006e}
0x1a490…1a49a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x0082}
0x1a49a…1a4ae               Head {h00=0x0010, h01=0x0050, text=»CIOTAB EQU *«, t00=0x010d, t01=0x008c}
0x1a4ae…1a4d8               Head {h00=0x0026, h01=0x0050, text=» DATA 0 ORDER,SECTOR NBR,HEAD NBR «, t00=0x010d, t01=0x00a0}
0x1a4d8…1a4ec               Head {h00=0x0010, h01=0x0050, text=»CIOTOT EQU *«, t00=0x010d, t01=0x00ca}
0x1a4ec…1a526               Head {h00=0x0036, h01=0x0050, text=» DATA 384 TOTAL NUMBER OF WORDS(1 PHYSICAL SECTOR)«, t00=0x010d, t01=0x00de}
0x1a526…1a53a               Head {h00=0x0010, h01=0x0050, text=»CIOPA1 EQU *«, t00=0x010d, t01=0x0118}
0x1a53a…1a574               Head {h00=0x0036, h01=0x0050, text=» DATA /4000+128 DATA CHAINING BIT,NUMBER OF WORDS «, t00=0x010d, t01=0x012c}
0x1a574…1a588               Head {h00=0x0010, h01=0x0050, text=»CIOAD1 EQU *«, t00=0x010d, t01=0x0166}
0x1a588…1a5a2               Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 1 «, t00=0x010d, t01=0x017a}
0x1a5a2…1a5b6 (270, 0, 398) Head {h00=0x0010, h01=0x0050, text=»CIOPA2 EQU *«, t00=0x010e, t01=0x0004}
0x1a5b6…1a5ce               Head {h00=0x0014, h01=0x0050, text=» DATA /4000+128 «, t00=0x010e, t01=0x0018}
0x1a5ce…1a5e2               Head {h00=0x0010, h01=0x0050, text=»CIOAD2 EQU *«, t00=0x010e, t01=0x0030}
0x1a5e2…1a5fc               Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 2 «, t00=0x010e, t01=0x0044}
0x1a5fc…1a610               Head {h00=0x0010, h01=0x0050, text=»CIOPA3 EQU *«, t00=0x010e, t01=0x005e}
0x1a610…1a622               Head {h00=0x000e, h01=0x0050, text=» DATA 128 «, t00=0x010e, t01=0x0072}
0x1a622…1a636               Head {h00=0x0010, h01=0x0050, text=»CIOAD3 EQU *«, t00=0x010e, t01=0x0084}
0x1a636…1a650               Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 3 «, t00=0x010e, t01=0x0098}
0x1a650…1a65c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x010e, t01=0x00b2}
0x1a65c…1a676               Head {h00=0x0016, h01=0x0050, text=» IFT CDDI16=1  =9 «, t00=0x010e, t01=0x00be}
0x1a676…1a684               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010e, t01=0x00d8}
0x1a684…1a6b0               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x010e, t01=0x00e6}
0x1a6b0…1a6dc               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x010e, t01=0x0112}
0x1a6dc…1a708               Head {h00=0x0028, h01=0x0050, text=»*  CDINIT - INITIALIZE DISC UNIT  * «, t00=0x010e, t01=0x013e}
0x1a708…1a734               Head {h00=0x0028, h01=0x0050, text=»*  =============================  * «, t00=0x010e, t01=0x016a}
0x1a734…1a760               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x010f, t01=0x0008}
0x1a760…1a78c               Head {h00=0x0028, h01=0x0050, text=»*  REFERENCED IN: SYSLOD,GETFIL   * «, t00=0x010f, t01=0x0034}
0x1a78c…1a7b8               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x010f, t01=0x0060}
0x1a7b8…1a7e4               Head {h00=0x0028, h01=0x0050, text=»*  ENTRY: A1 - DEVICE ADDRESS     * «, t00=0x010f, t01=0x008c}
0x1a7e4…1a810               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x010f, t01=0x00b8}
0x1a810…1a83c               Head {h00=0x0028, h01=0x0050, text=»*  EXIT:                          * «, t00=0x010f, t01=0x00e4}
0x1a83c…1a868               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x010f, t01=0x0110}
0x1a868…1a894               Head {h00=0x0028, h01=0x0050, text=»*  WORK REGISTERS:  A1,A2          *«, t00=0x010f, t01=0x013c}
0x1a894…1a8c0               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x010f, t01=0x0168}
0x1a8c0…1a8ec (272, 0, 400) Head {h00=0x0028, h01=0x0050, text=»*  SUBROUTINES:                   * «, t00=0x0110, t01=0x0004}
0x1a8ec…1a918               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x0110, t01=0x0030}
0x1a918…1a944               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x0110, t01=0x005c}
0x1a944…1a94c               Head {h00=0x0004, h01=0x0050, t00=0x0110, t01=0x0088}
0x1a94c…1a960               Head {h00=0x0010, h01=0x0050, text=»CDINIT EQU *«, t00=0x0110, t01=0x0090}
0x1a960…1a96a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x00a4}
0x1a96a…1a996               Head {h00=0x0028, h01=0x0050, text=»* INIT 16M OR 80M CDC DISC COMMANDS «, t00=0x0110, t01=0x00ae}
0x1a996…1a9a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x00da}
0x1a9a0…1a9b6               Head {h00=0x0012, h01=0x0050, text=» LDR A2,A1  =9«, t00=0x0110, t01=0x00e4}
0x1a9b6…1a9e0               Head {h00=0x0026, h01=0x0050, text=» ANK A1,/3F MASK DEVICE ADDRESS =9«, t00=0x0110, t01=0x00fa}
0x1a9e0…1aa12               Head {h00=0x002e, h01=0x0050, text=» SRL A2,2 FIX OR CARTRIDGE IN POSITION =9 «, t00=0x0110, t01=0x0124}
0x1aa12…1aa2a               Head {h00=0x0014, h01=0x0050, text=» ANK A2,/10  =9 «, t00=0x0110, t01=0x0156}
0x1aa2a…1aa6a               Head {h00=0x003c, h01=0x0050, text=» ST A2,CARFIX+STKEND SAVE FIX OR CARTRIDGE INDICATOR =9 «, t00=0x0110, t01=0x016e}
0x1aa6a…1aa9a               Head {h00=0x002c, h01=0x0050, text=» ORKL A1,CIO CONFIG CIO A1,1,XX  INSTR. «, t00=0x0111, t01=0x001e}
0x1aa9a…1aab0               Head {h00=0x0012, h01=0x0050, text=» ST A1,READC1 «, t00=0x0111, t01=0x004e}
0x1aab0…1aadc               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A1,XX  INSTR.«, t00=0x0111, t01=0x0064}
0x1aadc…1aaf2               Head {h00=0x0012, h01=0x0050, text=» ST A1,READC2 «, t00=0x0111, t01=0x0090}
0x1aaf2…1ab20               Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/B00 FORM CIO A2,1,XX  INSTR.«, t00=0x0111, t01=0x00a6}
0x1ab20…1ab36               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKC1 «, t00=0x0111, t01=0x00d4}
0x1ab36…1ab62               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX  INSTR.«, t00=0x0111, t01=0x00ea}
0x1ab62…1ab78               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKC2 «, t00=0x0111, t01=0x0116}
0x1ab78…1ab8c               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x0111, t01=0x012c}
0x1ab8c…1abc2               Head {h00=0x0032, h01=0x0050, text=» ST A2,PSECNL+STKEND INIT VALUE FOR SECTOR NBR«, t00=0x0111, t01=0x0140}
0x1abc2…1abec               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/300 BUFLEN 80M CDC DISC «, t00=0x0111, t01=0x0176}
0x1abec…1ac0e               Head {h00=0x001e, h01=0x0050, text=» ST A2,SAVCON SAVE LENGTH «, t00=0x0112, t01=0x0010}
0x1ac0e…1ac46               Head {h00=0x0034, h01=0x0050, text=» LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR.«, t00=0x0112, t01=0x0032}
0x1ac46…1ac5a               Head {h00=0x0010, h01=0x0050, text=» ST A2,READ «, t00=0x0112, t01=0x006a}
0x1ac5a…1ac6e               Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x0112, t01=0x007e}
0x1ac6e…1ac98               Head {h00=0x0026, h01=0x0050, text=» CF A14,GETVLB GET VOLUME LABEL =9«, t00=0x0112, t01=0x0092}
0x1ac98…1acc0               Head {h00=0x0024, h01=0x0050, text=» LC A2,FORDEV+1,A9 GET FORMAT =9«, t00=0x0112, t01=0x00bc}
0x1acc0…1ace2               Head {h00=0x001e, h01=0x0050, text=» ANK A2,1 FORMAT 4 OR 5 =9«, t00=0x0112, t01=0x00e4}
0x1ace2…1ad0e               Head {h00=0x0028, h01=0x0050, text=» LDK A2,23 CONSTANT FOR 16M DISC =9 «, t00=0x0112, t01=0x0106}
0x1ad0e…1ad30               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) CDI:10 16M DISC =9«, t00=0x0112, t01=0x0132}
0x1ad30…1ad5c               Head {h00=0x0028, h01=0x0050, text=» LDK A2,115 CONSTANT FOR 80M DISC =9«, t00=0x0112, t01=0x0154}
0x1ad5c…1ad74               Head {h00=0x0014, h01=0x0050, text=»CDI:10 EQU *  =9«, t00=0x0112, t01=0x0180}
0x1ad74…1ada0               Head {h00=0x0028, h01=0x0050, text=» ST A2,DIVCON SET DIVIDE CONSTANT =9«, t00=0x0113, t01=0x0008}
0x1ada0…1adb0               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0113, t01=0x0034}
0x1adb0…1adbe               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0113, t01=0x0044}
0x1adbe…1adf6               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0113, t01=0x0052}
0x1adf6…1ae2e               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0113, t01=0x008a}
0x1ae2e…1ae66               Head {h00=0x0034, h01=0x0050, text=»*  CRDSEC- READ ONE SECTOR FROM DISC          * «, t00=0x0113, t01=0x00c2}
0x1ae66…1ae9e               Head {h00=0x0034, h01=0x0050, text=»*  =================================          * «, t00=0x0113, t01=0x00fa}
0x1ae9e…1aed6               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0113, t01=0x0132}
0x1aed6…1af0e               Head {h00=0x0034, h01=0x0050, text=»*  REFERENCED IN: SYSLOD                      * «, t00=0x0113, t01=0x016a}
0x1af0e…1af46               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0114, t01=0x0012}
0x1af46…1af7e               Head {h00=0x0034, h01=0x0050, text=»*  ENTRY:  A9 = BUFFER ADDRESS                * «, t00=0x0114, t01=0x004a}
0x1af7e…1afb6               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0114, t01=0x0082}
0x1afb6…1afee               Head {h00=0x0034, h01=0x0050, text=»*         A11 - SECTOR NBR LEAST SIGNIFICANT  * «, t00=0x0114, t01=0x00ba}
0x1afee…1b026               Head {h00=0x0034, h01=0x0050, text=»*         A12 - SECTOR NBR MOST SIGNIFICANT   * «, t00=0x0114, t01=0x00f2}
0x1b026…1b05e               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0114, t01=0x012a}
0x1b05e…1b096               Head {h00=0x0034, h01=0x0050, text=»*  EXIT: A12,A11 = A12,A11 + 1                * «, t00=0x0114, t01=0x0162}
0x1b096…1b0ce               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0115, t01=0x000a}
0x1b0ce…1b106               Head {h00=0x0034, h01=0x0050, text=»*   WORK REGISTERS:  A1,A2,A3,A6              * «, t00=0x0115, t01=0x0042}
0x1b106…1b13e               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0115, t01=0x007a}
0x1b13e…1b176               Head {h00=0x0034, h01=0x0050, text=»*  SUBROUTINES:  ERROR                        * «, t00=0x0115, t01=0x00b2}
0x1b176…1b1ae               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0115, t01=0x00ea}
0x1b1ae…1b1e6               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0115, t01=0x0122}
0x1b1e6…1b1f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0115, t01=0x015a}
0x1b1f0…1b204               Head {h00=0x0010, h01=0x0050, text=»CRDSEC EQU *«, t00=0x0115, t01=0x0164}
0x1b204…1b20e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0115, t01=0x0178}
0x1b20e…1b22a               Head {h00=0x0018, h01=0x0050, text=»* SET BUFFER ADDRESS«, t00=0x0115, t01=0x0182}
0x1b22a…1b234               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0116, t01=0x000e}
0x1b234…1b256               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 BUFFER ADDRESS «, t00=0x0116, t01=0x0018}
0x1b256…1b26a               Head {h00=0x0010, h01=0x0050, text=» ADKL A1,256«, t00=0x0116, t01=0x003a}
0x1b26a…1b28a               Head {h00=0x001c, h01=0x0050, text=» ST A1,CIOAD2 ADDRESS 2 «, t00=0x0116, t01=0x004e}
0x1b28a…1b29e               Head {h00=0x0010, h01=0x0050, text=» ADKL A1,256«, t00=0x0116, t01=0x006e}
0x1b29e…1b2be               Head {h00=0x001c, h01=0x0050, text=» ST A1,CIOAD3 ADDRESS 3 «, t00=0x0116, t01=0x0082}
0x1b2be…1b2d4               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/3FFF«, t00=0x0116, t01=0x00a2}
0x1b2d4…1b2f6               Head {h00=0x001e, h01=0x0050, text=» ANS A1,CIOTAB RESET BITS «, t00=0x0116, t01=0x00b8}
0x1b2f6…1b318               Head {h00=0x001e, h01=0x0050, text=» ANS A1,CIOTOT RESET BITS «, t00=0x0116, t01=0x00da}
0x1b318…1b34a               Head {h00=0x002e, h01=0x0050, text=» LDR A1,A12 SECTOR NUMBER MOST SIGNIFICANT«, t00=0x0116, t01=0x00fc}
0x1b34a…1b37e               Head {h00=0x0030, h01=0x0050, text=» LDR A2,A11 SECTOR NUMBER LEAST SIGNIFICANT «, t00=0x0116, t01=0x012e}
0x1b37e…1b38c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0116, t01=0x0162}
0x1b38c…1b396               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0116, t01=0x0170}
0x1b396…1b3b6               Head {h00=0x001c, h01=0x0050, text=»* DIVIDE LOGICAL WITH 3 «, t00=0x0116, t01=0x017a}
0x1b3b6…1b3c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x000a}
0x1b3c0…1b3d2               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0117, t01=0x0014}
0x1b3d2…1b3e6               Head {h00=0x0010, h01=0x0050, text=»RED100 EQU *«, t00=0x0117, t01=0x0026}
0x1b3e6…1b3f8               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0117, t01=0x003a}
0x1b3f8…1b40a               Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x0117, t01=0x004c}
0x1b40a…1b420               Head {h00=0x0012, h01=0x0050, text=» RB(NN) RED100«, t00=0x0117, t01=0x005e}
0x1b420…1b432               Head {h00=0x000e, h01=0x0050, text=» ADK A1,3 «, t00=0x0117, t01=0x0074}
0x1b432…1b444               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0117, t01=0x0086}
0x1b444…1b452               Head {h00=0x000a, h01=0x0050, text=» DVK 3«, t00=0x0117, t01=0x0098}
0x1b452…1b468               Head {h00=0x0012, h01=0x0050, text=» CW A9,CIOAD1 «, t00=0x0117, t01=0x00a6}
0x1b468…1b4a6               Head {h00=0x003a, h01=0x0050, text=» RF(NE) RED110 NOT SAME BUFFER ADDRESS MEANS NEW READ «, t00=0x0117, t01=0x00bc}
0x1b4a6…1b4c2               Head {h00=0x0018, h01=0x0050, text=» CW A2,PSECNL+STKEND«, t00=0x0117, t01=0x00fa}
0x1b4c2…1b4f2               Head {h00=0x002c, h01=0x0050, text=» RF(NE) RED110 NOT SAME PHYSICAL SEC NBR«, t00=0x0117, t01=0x0116}
0x1b4f2…1b50e               Head {h00=0x0018, h01=0x0050, text=» CW A3,PSECNM+STKEND«, t00=0x0117, t01=0x0146}
0x1b50e…1b53e               Head {h00=0x002c, h01=0x0050, text=» RF(NE) RED110 NOT SAME PHYSICAL SEC NBR«, t00=0x0117, t01=0x0162}
0x1b53e…1b55a (280, 0, 400) Head {h00=0x0018, h01=0x0050, text=» CW A1,PSECPA+STKEND«, t00=0x0118, t01=0x0004}
0x1b55a…1b584               Head {h00=0x0026, h01=0x0050, text=» RF(E) TURN SAME LOG SEC AS BEFORE«, t00=0x0118, t01=0x0020}
0x1b584…1b5b6               Head {h00=0x002e, h01=0x0050, text=» RF(G) REDMOV MOVE UP NEXT LOGICAL SECTOR «, t00=0x0118, t01=0x004a}
0x1b5b6…1b5ca               Head {h00=0x0010, h01=0x0050, text=»RED110 EQU *«, t00=0x0118, t01=0x007c}
0x1b5ca…1b5ea               Head {h00=0x001c, h01=0x0050, text=» ST A9,CIOAD1 ADDRESS 1 «, t00=0x0118, t01=0x0090}
0x1b5ea…1b616               Head {h00=0x0028, h01=0x0050, text=» MS 3,PSECPA+STKEND SAVE NEW VALUES «, t00=0x0118, t01=0x00b0}
0x1b616…1b628               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0118, t01=0x00dc}
0x1b628…1b642               Head {h00=0x0016, h01=0x0050, text=»DIVCON EQU *+2  =9«, t00=0x0118, t01=0x00ee}
0x1b642…1b656               Head {h00=0x0010, h01=0x0050, text=» DVK 23  =9 «, t00=0x0118, t01=0x0108}
0x1b656…1b664               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0118, t01=0x011c}
0x1b664…1b686               Head {h00=0x001e, h01=0x0050, text=»* A1=HEAD NBR * SECTOR NBR«, t00=0x0118, t01=0x012a}
0x1b686…1b6a0               Head {h00=0x0016, h01=0x0050, text=»* A2=CYLINDER NBR «, t00=0x0118, t01=0x014c}
0x1b6a0…1b6b2               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0118, t01=0x0166}
0x1b6b2…1b6c4               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0118, t01=0x0178}
0x1b6c4…1b6d6               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0118, t01=0x018a}
0x1b6d6…1b6e6               Head {h00=0x000c, h01=0x0050, text=» DVK 23 «, t00=0x0119, t01=0x000c}
0x1b6e6…1b6fe               Head {h00=0x0014, h01=0x0050, text=»* A1=SECTOR NBR «, t00=0x0119, t01=0x001c}
0x1b6fe…1b714               Head {h00=0x0012, h01=0x0050, text=»* A2=HEAD NBR «, t00=0x0119, t01=0x0034}
0x1b714…1b73c               Head {h00=0x0024, h01=0x0050, text=» ORKL A2,/800 SET INTERRUPT BIT «, t00=0x0119, t01=0x004a}
0x1b73c…1b76c               Head {h00=0x002c, h01=0x0050, text=» OR A2,CARFIX+STKEND FIX OR CARTRIDGE =9«, t00=0x0119, t01=0x0072}
0x1b76c…1b792               Head {h00=0x0022, h01=0x0050, text=» ST A2,CIOTAB UPDATE CIO TABLE«, t00=0x0119, t01=0x00a2}
0x1b792…1b7a0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0119, t01=0x00c8}
0x1b7a0…1b7aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x00d6}
0x1b7aa…1b7c0               Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x0119, t01=0x00e0}
0x1b7c0…1b7ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x00f6}
0x1b7ca…1b7dc               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0119, t01=0x0100}
0x1b7dc…1b7f8               Head {h00=0x0018, h01=0x0050, text=» MUK 5 INTERLACING 5«, t00=0x0119, t01=0x0112}
0x1b7f8…1b80e               Head {h00=0x0012, h01=0x0050, text=» SRC A3,1  =9 «, t00=0x0119, t01=0x012e}
0x1b80e…1b83a               Head {h00=0x0028, h01=0x0050, text=» RF(NN) INT100 EVEN CYLINDER NUMBER «, t00=0x0119, t01=0x0144}
0x1b83a…1b858               Head {h00=0x001a, h01=0x0050, text=» ADK A2,12 SKEW FACTOR«, t00=0x0119, t01=0x0170}
0x1b858…1b86c               Head {h00=0x0010, h01=0x0050, text=»INT100 EQU *«, t00=0x0119, t01=0x018e}
0x1b86c…1b87c               Head {h00=0x000c, h01=0x0050, text=» DVK 23 «, t00=0x011a, t01=0x0012}
0x1b87c…1b89a               Head {h00=0x001a, h01=0x0050, text=» SLL A1,5 IN POSITION «, t00=0x011a, t01=0x0022}
0x1b89a…1b8c2               Head {h00=0x0024, h01=0x0050, text=» ORS A1,CIOTAB UPDATE CIO TABLE «, t00=0x011a, t01=0x0040}
0x1b8c2…1b8e2               Head {h00=0x001c, h01=0x0050, text=» SLC A3,1 RESTORE A3 =9 «, t00=0x011a, t01=0x0068}
0x1b8e2…1b8f8               Head {h00=0x0012, h01=0x0050, text=» CW A3,CYLNBR «, t00=0x011a, t01=0x0088}
0x1b8f8…1b922               Head {h00=0x0026, h01=0x0050, text=» RF(E) READER SAME CYLINDER NUMBER«, t00=0x011a, t01=0x009e}
0x1b922…1b930               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011a, t01=0x00c8}
0x1b930…1b93a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011a, t01=0x00d6}
0x1b93a…1b948               Head {h00=0x000a, h01=0x0050, text=»* SEEK«, t00=0x011a, t01=0x00e0}
0x1b948…1b952               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011a, t01=0x00ee}
0x1b952…1b97a               Head {h00=0x0024, h01=0x0050, text=» ST A3,CYLNBR SAVE CYLINDER NBR «, t00=0x011a, t01=0x00f8}
0x1b97a…1b99e               Head {h00=0x0020, h01=0x0050, text=» ADKL A3,/A800 SEEK COMMAND «, t00=0x011a, t01=0x0120}
0x1b99e…1b9b4               Head {h00=0x0012, h01=0x0050, text=» ST A3,SEKTAB «, t00=0x011a, t01=0x0144}
0x1b9b4…1b9cc               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,SEKTAB «, t00=0x011a, t01=0x015a}
0x1b9cc…1b9e0               Head {h00=0x0010, h01=0x0050, text=»SEEKC1 EQU *«, t00=0x011a, t01=0x0172}
0x1b9e0…1b9f8               Head {h00=0x0014, h01=0x0050, text=» CIO A2,1,0 SEEK«, t00=0x011a, t01=0x0186}
0x1b9f8…1ba0e               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEKC1«, t00=0x011b, t01=0x000e}
0x1ba0e…1ba22               Head {h00=0x0010, h01=0x0050, text=»SEEKC2 EQU *«, t00=0x011b, t01=0x0024}
0x1ba22…1ba34               Head {h00=0x000e, h01=0x0050, text=» SST A2,0 «, t00=0x011b, t01=0x0038}
0x1ba34…1ba4a               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEKC2«, t00=0x011b, t01=0x004a}
0x1ba4a…1ba58               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011b, t01=0x0060}
0x1ba58…1ba62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x006e}
0x1ba62…1ba74               Head {h00=0x000e, h01=0x0050, text=»*    READ «, t00=0x011b, t01=0x0078}
0x1ba74…1ba7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x008a}
0x1ba7e…1ba92               Head {h00=0x0010, h01=0x0050, text=»READER EQU *«, t00=0x011b, t01=0x0094}
0x1ba92…1bab6               Head {h00=0x0020, h01=0x0050, text=» LDK A6,3 NUMBER OF RETRIES «, t00=0x011b, t01=0x00a8}
0x1bab6…1baca               Head {h00=0x0010, h01=0x0050, text=»REA100 EQU *«, t00=0x011b, t01=0x00cc}
0x1baca…1baf6               Head {h00=0x0028, h01=0x0050, text=» LDKL A1,CIOTAB POINTER TO CIO TABLE«, t00=0x011b, t01=0x00e0}
0x1baf6…1bb14               Head {h00=0x001a, h01=0x0050, text=»READC1 CIO A1,1,0 READ«, t00=0x011b, t01=0x010c}
0x1bb14…1bb3e               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READC1 LOOP UNTIL ACCEPTED«, t00=0x011b, t01=0x012a}
0x1bb3e…1bb48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x0154}
0x1bb48…1bb66               Head {h00=0x001a, h01=0x0050, text=»READC2 SST A1,0 STATUS«, t00=0x011b, t01=0x015e}
0x1bb66…1bb90               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READC2 LOOP UNTIL ACCEPTED«, t00=0x011b, t01=0x017c}
0x1bb90…1bbae               Head {h00=0x001a, h01=0x0050, text=» ANKL A1,/FF0F STATUS «, t00=0x011c, t01=0x0016}
0x1bbae…1bbd2               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RET30 READING ERROR «, t00=0x011c, t01=0x0034}
0x1bbd2…1bc10               Head {h00=0x003a, h01=0x0050, text=» LD A1,PSECPA+STKEND GET LOGICAL SECT. IN PHYSICAL =11«, t00=0x011c, t01=0x0058}
0x1bc10…1bc4e               Head {h00=0x003a, h01=0x0050, text=» RF(NZ) REDMOV NOT FIRST LOGICAL SECT. IN PHYSICAL =11«, t00=0x011c, t01=0x0096}
0x1bc4e…1bc56               Head {h00=0x0004, h01=0x0050, t00=0x011c, t01=0x00d4}
0x1bc56…1bc68               Head {h00=0x000e, h01=0x0050, text=»TURN EQU *«, t00=0x011c, t01=0x00dc}
0x1bc68…1bc9c               Head {h00=0x0030, h01=0x0050, text=» ADKL A11,1 INCREMENT LOGICAL SECTOR NUMBER «, t00=0x011c, t01=0x00ee}
0x1bc9c…1bcba               Head {h00=0x001a, h01=0x0050, text=» RF(O) TURN10 OVERFLOW«, t00=0x011c, t01=0x0122}
0x1bcba…1bccc               Head {h00=0x000e, h01=0x0050, text=» RF TURN20«, t00=0x011c, t01=0x0140}
0x1bccc…1bce0               Head {h00=0x0010, h01=0x0050, text=»TURN10 EQU *«, t00=0x011c, t01=0x0152}
0x1bce0…1bcfe               Head {h00=0x001a, h01=0x0050, text=» SUR A11,A11 RESET A11«, t00=0x011c, t01=0x0166}
0x1bcfe…1bd12               Head {h00=0x0010, h01=0x0050, text=» ADKL A12,1 «, t00=0x011c, t01=0x0184}
0x1bd12…1bd26               Head {h00=0x0010, h01=0x0050, text=»TURN20 EQU *«, t00=0x011d, t01=0x0008}
0x1bd26…1bd36               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x011d, t01=0x001c}
0x1bd36…1bd44               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011d, t01=0x002c}
0x1bd44…1bd4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011d, t01=0x003a}
0x1bd4e…1bd74               Head {h00=0x0022, h01=0x0050, text=»* MOVE UP NEXT LOGICAL SECTOR «, t00=0x011d, t01=0x0044}
0x1bd74…1bd7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011d, t01=0x006a}
0x1bd7e…1bd92               Head {h00=0x0010, h01=0x0050, text=»REDMOV EQU *«, t00=0x011d, t01=0x0074}
0x1bd92…1bdcc               Head {h00=0x0036, h01=0x0050, text=» ST A1,PSECPA+STKEND SAVE NEW LOGICAL SECTOR PART «, t00=0x011d, t01=0x0088}
0x1bdcc…1bde2               Head {h00=0x0012, h01=0x0050, text=» SLL A1,1  =9 «, t00=0x011d, t01=0x00c2}
0x1bde2…1bdf8               Head {h00=0x0012, h01=0x0050, text=» LDR A2,A1  =9«, t00=0x011d, t01=0x00d8}
0x1bdf8…1be0e               Head {h00=0x0012, h01=0x0050, text=» ADR A1,A1  =9«, t00=0x011d, t01=0x00ee}
0x1be0e…1be38               Head {h00=0x0026, h01=0x0050, text=» ADR A1,A2 A1 MULTIPIED WITH 6 =9 «, t00=0x011d, t01=0x0104}
0x1be38…1be60               Head {h00=0x0024, h01=0x0050, text=» LD A1,CIOAD1,A1 SOURCE ADDRESS «, t00=0x011d, t01=0x012e}
0x1be60…1be86               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A9 DESTINATION ADDRESS«, t00=0x011d, t01=0x0156}
0x1be86…1beaa               Head {h00=0x0020, h01=0x0050, text=» LDK A3,128 LENGTH IN WORDS «, t00=0x011d, t01=0x017c}
0x1beaa…1bebe               Head {h00=0x0010, h01=0x0050, text=»RMOV10 EQU *«, t00=0x011e, t01=0x0010}
0x1bebe…1bed2               Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A1 «, t00=0x011e, t01=0x0024}
0x1bed2…1bee4               Head {h00=0x000e, h01=0x0050, text=» STR A6,A2«, t00=0x011e, t01=0x0038}
0x1bee4…1bef6               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x011e, t01=0x004a}
0x1bef6…1bf08               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x011e, t01=0x005c}
0x1bf08…1bf1a               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x011e, t01=0x006e}
0x1bf1a…1bf3a               Head {h00=0x001c, h01=0x0050, text=» RB(P) RMOV10 NEXT WORD «, t00=0x011e, t01=0x0080}
0x1bf3a…1bf4a               Head {h00=0x000c, h01=0x0050, text=» RB TURN«, t00=0x011e, t01=0x00a0}
0x1bf4a…1bf52               Head {h00=0x0004, h01=0x0050, t00=0x011e, t01=0x00b0}
0x1bf52…1bf5a               Head {h00=0x0004, h01=0x0050, t00=0x011e, t01=0x00b8}
0x1bf5a…1bf62               Head {h00=0x0004, h01=0x0050, t00=0x011e, t01=0x00c0}
0x1bf62…1bf76               Head {h00=0x0010, h01=0x0050, text=»NOFOND EQU *«, t00=0x011e, t01=0x00c8}
0x1bf76…1bf8c               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x011e, t01=0x00dc}
0x1bf8c…1bfb6               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR INDICATE READING ERROR«, t00=0x011e, t01=0x00f2}
0x1bfb6…1bfc4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011e, t01=0x011c}
0x1bfc4…1bfce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011e, t01=0x012a}
0x1bfce…1bfec               Head {h00=0x001a, h01=0x0050, text=»* IO ERROR IN READING «, t00=0x011e, t01=0x0134}
0x1bfec…1bff6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011e, t01=0x0152}
0x1bff6…1c00a               Head {h00=0x0010, h01=0x0050, text=»RET30 EQU * «, t00=0x011e, t01=0x015c}
0x1c00a…1c01c               Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x011e, t01=0x0170}
0x1c01c…1c03a               Head {h00=0x001a, h01=0x0050, text=» RB(NZ) REA100 NEW TRY«, t00=0x011e, t01=0x0182}
0x1c03a…1c050               Head {h00=0x0012, h01=0x0050, text=» LC A1,CIOTAB «, t00=0x011f, t01=0x0010}
0x1c050…1c064               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/C0 «, t00=0x011f, t01=0x0026}
0x1c064…1c09c               Head {h00=0x0034, h01=0x0050, text=» RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S «, t00=0x011f, t01=0x003a}
0x1c09c…1c0b2               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x011f, t01=0x0072}
0x1c0b2…1c0e6               Head {h00=0x0030, h01=0x0050, text=» ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE«, t00=0x011f, t01=0x0088}
0x1c0e6…1c0f8               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x011f, t01=0x00bc}
0x1c0f8…1c10c               Head {h00=0x0010, h01=0x0050, text=»RET31 EQU * «, t00=0x011f, t01=0x00ce}
0x1c10c…1c120               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x011f, t01=0x00e2}
0x1c120…1c156               Head {h00=0x0032, h01=0x0050, text=» RF(Z) RET32 LAST RETRY WITH LATE DATA STROBE «, t00=0x011f, t01=0x00f6}
0x1c156…1c16c               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/C000«, t00=0x011f, t01=0x012c}
0x1c16c…1c1a0               Head {h00=0x0030, h01=0x0050, text=» XRS A2,CIOTAB CHANGE FROM EARLY TO LATE D.S«, t00=0x011f, t01=0x0142}
0x1c1a0…1c1b2               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x011f, t01=0x0176}
0x1c1b2…1c1c6               Head {h00=0x0010, h01=0x0050, text=»RET32 EQU * «, t00=0x011f, t01=0x0188}
0x1c1c6…1c1dc               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/3FFF«, t00=0x0120, t01=0x000c}
0x1c1dc…1c20a               Head {h00=0x002a, h01=0x0050, text=» ANS A2,CIOTAB RESET LATE DATA STROBE «, t00=0x0120, t01=0x0022}
0x1c20a…1c220               Head {h00=0x0012, h01=0x0050, text=» LC A1,CIOTOT «, t00=0x0120, t01=0x0050}
0x1c220…1c234               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/C0 «, t00=0x0120, t01=0x0066}
0x1c234…1c26c               Head {h00=0x0034, h01=0x0050, text=» RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- «, t00=0x0120, t01=0x007a}
0x1c26c…1c282               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x0120, t01=0x00b2}
0x1c282…1c2ae               Head {h00=0x0028, h01=0x0050, text=» ORS A2,CIOTOT PREPARE FOR CARRIAGE+«, t00=0x0120, t01=0x00c8}
0x1c2ae…1c2c0               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x0120, t01=0x00f4}
0x1c2c0…1c2d4               Head {h00=0x0010, h01=0x0050, text=»RET33 EQU * «, t00=0x0120, t01=0x0106}
0x1c2d4…1c2e8               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x0120, t01=0x011a}
0x1c2e8…1c30c               Head {h00=0x0020, h01=0x0050, text=» RB(Z) NOFOND READING ERROR «, t00=0x0120, t01=0x012e}
0x1c30c…1c322               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/C000«, t00=0x0120, t01=0x0152}
0x1c322…1c354               Head {h00=0x002e, h01=0x0050, text=» XRS A2,CIOTOT FROM CARRIAGE+ TO CARRIGE- «, t00=0x0120, t01=0x0168}
0x1c354…1c366               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x0121, t01=0x000a}
0x1c366…1c374               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0121, t01=0x001c}
0x1c374…1c37e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x002a}
0x1c37e…1c392               Head {h00=0x0010, h01=0x0050, text=»* SEEK TABLE«, t00=0x0121, t01=0x0034}
0x1c392…1c39c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x0048}
0x1c39c…1c3b0               Head {h00=0x0010, h01=0x0050, text=»SEKTAB EQU *«, t00=0x0121, t01=0x0052}
0x1c3b0…1c3c0               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0121, t01=0x0066}
0x1c3c0…1c3ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x0076}
0x1c3ca…1c3de               Head {h00=0x0010, h01=0x0050, text=»* CIO TABLE «, t00=0x0121, t01=0x0080}
0x1c3de…1c3e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x0094}
0x1c3e8…1c3fc               Head {h00=0x0010, h01=0x0050, text=»CIOTAB EQU *«, t00=0x0121, t01=0x009e}
0x1c3fc…1c426               Head {h00=0x0026, h01=0x0050, text=» DATA 0 ORDER,SECTOR NBR,HEAD NBR «, t00=0x0121, t01=0x00b2}
0x1c426…1c43a               Head {h00=0x0010, h01=0x0050, text=»CIOTOT EQU *«, t00=0x0121, t01=0x00dc}
0x1c43a…1c474               Head {h00=0x0036, h01=0x0050, text=» DATA 384 TOTAL NUMBER OF WORDS(1 PHYSICAL SECTOR)«, t00=0x0121, t01=0x00f0}
0x1c474…1c488               Head {h00=0x0010, h01=0x0050, text=»CIOPA1 EQU *«, t00=0x0121, t01=0x012a}
0x1c488…1c4c2               Head {h00=0x0036, h01=0x0050, text=» DATA /4000+128 DATA CHAINING BIT,NUMBER OF WORDS «, t00=0x0121, t01=0x013e}
0x1c4c2…1c4e8               Head {h00=0x0022, h01=0x0050, text=» DATA 0 ADDRESS1 MOST SIGN. =9«, t00=0x0121, t01=0x0178}
0x1c4e8…1c4fc               Head {h00=0x0010, h01=0x0050, text=»CIOAD1 EQU *«, t00=0x0122, t01=0x000e}
0x1c4fc…1c516               Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 1 «, t00=0x0122, t01=0x0022}
0x1c516…1c52a               Head {h00=0x0010, h01=0x0050, text=»CIOPA2 EQU *«, t00=0x0122, t01=0x003c}
0x1c52a…1c542               Head {h00=0x0014, h01=0x0050, text=» DATA /4000+128 «, t00=0x0122, t01=0x0050}
0x1c542…1c56a               Head {h00=0x0024, h01=0x0050, text=» DATA 0 ADDRESS 2 MOST SIGN. =9 «, t00=0x0122, t01=0x0068}
0x1c56a…1c57e               Head {h00=0x0010, h01=0x0050, text=»CIOAD2 EQU *«, t00=0x0122, t01=0x0090}
0x1c57e…1c598               Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 2 «, t00=0x0122, t01=0x00a4}
0x1c598…1c5ac               Head {h00=0x0010, h01=0x0050, text=»CIOPA3 EQU *«, t00=0x0122, t01=0x00be}
0x1c5ac…1c5be               Head {h00=0x000e, h01=0x0050, text=» DATA 128 «, t00=0x0122, t01=0x00d2}
0x1c5be…1c5e6               Head {h00=0x0024, h01=0x0050, text=» DATA 0 ADDRESS 3 MOST SIGN. =9 «, t00=0x0122, t01=0x00e4}
0x1c5e6…1c5fa               Head {h00=0x0010, h01=0x0050, text=»CIOAD3 EQU *«, t00=0x0122, t01=0x010c}
0x1c5fa…1c614               Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 3 «, t00=0x0122, t01=0x0120}
0x1c614…1c620               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0122, t01=0x013a}
0x1c620…1c62e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0122, t01=0x0146}
0x1c62e…1c66a               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0122, t01=0x0154}
0x1c66a…1c6a6               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0122, t01=0x0190}
0x1c6a6…1c6e2               Head {h00=0x0038, h01=0x0050, text=»*        GETFIL - GET CONFIGURATION FILE          * «, t00=0x0123, t01=0x003c}
0x1c6e2…1c71e               Head {h00=0x0038, h01=0x0050, text=»*        ===============================          * «, t00=0x0123, t01=0x0078}
0x1c71e…1c75a               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0123, t01=0x00b4}
0x1c75a…1c796               Head {h00=0x0038, h01=0x0050, text=»*  REFERENCED IN:  SYSLOD                         * «, t00=0x0123, t01=0x00f0}
0x1c796…1c7d2               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0123, t01=0x012c}
0x1c7d2…1c80e               Head {h00=0x0038, h01=0x0050, text=»*  ENTRY:  A9 - BUFFER ADDRESS                    * «, t00=0x0123, t01=0x0168}
0x1c80e…1c84a               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0124, t01=0x0014}
0x1c84a…1c886               Head {h00=0x0038, h01=0x0050, text=»*  EXIT:  A11 - SECTOR ADDRESS TO CONF. FILE      * «, t00=0x0124, t01=0x0050}
0x1c886…1c8c2               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0124, t01=0x008c}
0x1c8c2…1c8fc               Head {h00=0x0036, h01=0x0050, text=»*  WORK REGISTERS:  A1,A2,A3,A4,A5,A6,A7,A8,A10  *«, t00=0x0124, t01=0x00c8}
0x1c8fc…1c938               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0124, t01=0x0102}
0x1c938…1c974               Head {h00=0x0038, h01=0x0050, text=»*  SUBROUTINES:  READVL,READCF                    * «, t00=0x0124, t01=0x013e}
0x1c974…1c9b0               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0124, t01=0x017a}
0x1c9b0…1c9ec               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0125, t01=0x0026}
0x1c9ec…1ca00               Head {h00=0x0010, h01=0x0050, text=»GETFIL EQU *«, t00=0x0125, t01=0x0062}
0x1ca00…1ca16               Head {h00=0x0012, h01=0x0050, text=» CF A14,GETVLB«, t00=0x0125, t01=0x0076}
0x1ca16…1ca2a               Head {h00=0x0010, h01=0x0050, text=»GET:10 EQU *«, t00=0x0125, t01=0x008c}
0x1ca2a…1ca50               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDSEC GET VOLUME LABEL«, t00=0x0125, t01=0x00a0}
0x1ca50…1ca7c               Head {h00=0x0028, h01=0x0050, text=» LDK A7,QBLFAC VTOC BLOCKING FACTOR «, t00=0x0125, t01=0x00c6}
0x1ca7c…1caa2               Head {h00=0x0022, h01=0x0050, text=» LDR A6,A9 GET START OF BUFFER«, t00=0x0125, t01=0x00f2}
0x1caa2…1cab6               Head {h00=0x0010, h01=0x0050, text=»GET:20 EQU *«, t00=0x0125, t01=0x0118}
0x1cab6…1cad4               Head {h00=0x001a, h01=0x0050, text=» LDK A5,/20 LOAD SPACE«, t00=0x0125, t01=0x012c}
0x1cad4…1caf4               Head {h00=0x001c, h01=0x0050, text=» CCR A5,A6 UNUSED FILE? «, t00=0x0125, t01=0x014a}
0x1caf4…1cb0e               Head {h00=0x0016, h01=0x0050, text=» RF(E) GET:50 YES!«, t00=0x0125, t01=0x016a}
0x1cb0e…1cb30               Head {h00=0x001e, h01=0x0050, text=» LDR A4,A6 START OF RECORD«, t00=0x0125, t01=0x0184}
0x1cb30…1cb5c               Head {h00=0x0028, h01=0x0050, text=» LDK A5,'S' STANDARD FILE CHARACTER «, t00=0x0126, t01=0x0016}
0x1cb5c…1cb80               Head {h00=0x0020, h01=0x0050, text=» CC A5,27,A6 STANDARD FILE? «, t00=0x0126, t01=0x0042}
0x1cb80…1cb9a               Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:50 NO!«, t00=0x0126, t01=0x0066}
0x1cb9a…1cbc8               Head {h00=0x002a, h01=0x0050, text=» LDK A5,'$' LEADING CHAR IN CONF. FILE«, t00=0x0126, t01=0x0080}
0x1cbc8…1cbee               Head {h00=0x0022, h01=0x0050, text=» CCR A5,A4 CONFIGURATION FILE?«, t00=0x0126, t01=0x00ae}
0x1cbee…1cc08               Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:50 NO!«, t00=0x0126, t01=0x00d4}
0x1cc08…1cc3e               Head {h00=0x0032, h01=0x0050, text=»GET:25 LDK A3,'C' THIS INSTRUCTION IS MODIFIED«, t00=0x0126, t01=0x00ee}
0x1cc3e…1cc6a               Head {h00=0x0028, h01=0x0050, text=» CCK A3,'CC' LOOKING FOR CONF. FILE?«, t00=0x0126, t01=0x0124}
0x1cc6a…1cc84               Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:85 NO!«, t00=0x0126, t01=0x0150}
0x1cc84…1cca6               Head {h00=0x001e, h01=0x0050, text=» ADK A4,5 SIXTH CHARACTER «, t00=0x0126, t01=0x016a}
0x1cca6…1ccd6               Head {h00=0x002c, h01=0x0050, text=» LDK A5,':' CHARACTER TO PRECEED NUMBER «, t00=0x0126, t01=0x018c}
0x1ccd6…1cd02               Head {h00=0x0028, h01=0x0050, text=»GET:30 CCR A5,A4 CONFIGURATION FILE?«, t00=0x0127, t01=0x002c}
0x1cd02…1cd1c               Head {h00=0x0016, h01=0x0050, text=» RF(E) GET:40 YES!«, t00=0x0127, t01=0x0058}
0x1cd1c…1cd40               Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 TRY NEXT CHARACTER«, t00=0x0127, t01=0x0072}
0x1cd40…1cd62               Head {h00=0x001e, h01=0x0050, text=» CWR A4,A6 FIRST IN NAME? «, t00=0x0127, t01=0x0096}
0x1cd62…1cd7c               Head {h00=0x0016, h01=0x0050, text=» RF(E) GET:50 YES!«, t00=0x0127, t01=0x00b8}
0x1cd7c…1cd8e               Head {h00=0x000e, h01=0x0050, text=» RB GET:30«, t00=0x0127, t01=0x00d2}
0x1cd8e…1cda2               Head {h00=0x0010, h01=0x0050, text=»GET:40 EQU *«, t00=0x0127, t01=0x00e4}
0x1cda2…1cdac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x00f8}
0x1cdac…1cdd0               Head {h00=0x0020, h01=0x0050, text=»*  CHECK APPLICATION NUMBER «, t00=0x0127, t01=0x0102}
0x1cdd0…1cdda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x0126}
0x1cdda…1cdfc               Head {h00=0x001e, h01=0x0050, text=» LC A5,1,A4 GET LEFT DIGIT«, t00=0x0127, t01=0x0130}
0x1cdfc…1ce20               Head {h00=0x0020, h01=0x0050, text=» SLL A5,8 SHIFT TO LEFT BYTE«, t00=0x0127, t01=0x0152}
0x1ce20…1ce44               Head {h00=0x0020, h01=0x0050, text=» LC A5,2,A4 GET RIGHT DIGIT «, t00=0x0127, t01=0x0176}
0x1ce44…1ce6a               Head {h00=0x0022, h01=0x0050, text=» CALL CONVRT CONVERT TO BINARY«, t00=0x0128, t01=0x000a}
0x1ce6a…1ce9a               Head {h00=0x002c, h01=0x0050, text=» CW A1,SCTANO SAME AS APPLICATION NUMBER«, t00=0x0128, t01=0x0030}
0x1ce9a…1ceb0               Head {h00=0x0012, h01=0x0050, text=» RF(NE) GET:50«, t00=0x0128, t01=0x0060}
0x1ceb0…1ceba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x0076}
0x1ceba…1cede               Head {h00=0x0020, h01=0x0050, text=»*  CONFIGURATION FILE FOUND «, t00=0x0128, t01=0x0080}
0x1cede…1cee8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x00a4}
0x1cee8…1cf10               Head {h00=0x0024, h01=0x0050, text=» LD A1,22,A6 LAST RECORD NUMBER «, t00=0x0128, t01=0x00ae}
0x1cf10…1cf32               Head {h00=0x001e, h01=0x0050, text=» ST A1,LSTREC+STKEND SAVE «, t00=0x0128, t01=0x00d6}
0x1cf32…1cf4c               Head {h00=0x0016, h01=0x0050, text=» LD A12,16,A6 GET «, t00=0x0128, t01=0x00f8}
0x1cf4c…1cf70               Head {h00=0x0020, h01=0x0050, text=» LD A11,18,A6 SECTOR ADDRESS«, t00=0x0128, t01=0x0112}
0x1cf70…1cf80               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0128, t01=0x0136}
0x1cf80…1cf8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x0146}
0x1cf8a…1cf9e               Head {h00=0x0010, h01=0x0050, text=»GET:50 EQU *«, t00=0x0128, t01=0x0150}
0x1cf9e…1cfc2               Head {h00=0x0020, h01=0x0050, text=» ADR A6,A8 NEXT VTOC RECORD «, t00=0x0128, t01=0x0164}
0x1cfc2…1cfec               Head {h00=0x0026, h01=0x0050, text=» ADK A6,1 BYPASS STATUS CHARACTER «, t00=0x0128, t01=0x0188}
0x1cfec…1d01c               Head {h00=0x002c, h01=0x0050, text=» SUK A7,1 MOORE RECORDS IN THIS SECTOR? «, t00=0x0129, t01=0x0022}
0x1d01c…1d036               Head {h00=0x0016, h01=0x0050, text=» RB(P) GET:20 YES!«, t00=0x0129, t01=0x0052}
0x1d036…1d05c               Head {h00=0x0022, h01=0x0050, text=» CWR A11,A10 LAST VTOC SECTOR?«, t00=0x0129, t01=0x006c}
0x1d05c…1d076               Head {h00=0x0016, h01=0x0050, text=» RB(NE) GET:10 NO!«, t00=0x0129, t01=0x0092}
0x1d076…1d0ac               Head {h00=0x0032, h01=0x0050, text=»GET:60 LDK A3,'C' THIS INSTRUCTION IS MODIFIED«, t00=0x0129, t01=0x00ac}
0x1d0ac…1d0d8               Head {h00=0x0028, h01=0x0050, text=» CCK A3,'CC' LOOKING FOR CONF. FILE?«, t00=0x0129, t01=0x00e2}
0x1d0d8…1d0f2               Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:99 NO!«, t00=0x0129, t01=0x010e}
0x1d0f2…1d0fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x0128}
0x1d0fc…1d13a               Head {h00=0x003a, h01=0x0050, text=»*  CONFIGURATION FILE NOT FOUND - READ SOP AND SELECT «, t00=0x0129, t01=0x0132}
0x1d13a…1d168               Head {h00=0x002a, h01=0x0050, text=»*  LOAD MEDIUM FOR CONFIGURATION FILE «, t00=0x0129, t01=0x0170}
0x1d168…1d172               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x000e}
0x1d172…1d17c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x0018}
0x1d17c…1d192               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/7F8 «, t00=0x012a, t01=0x0022}
0x1d192…1d1bc               Head {h00=0x0026, h01=0x0050, text=» OTR A2,0,SOP SWITCH ON SOP LAMPS «, t00=0x012a, t01=0x0038}
0x1d1bc…1d1d0               Head {h00=0x0010, h01=0x0050, text=»GET:70 EQU *«, t00=0x012a, t01=0x0062}
0x1d1d0…1d1e6               Head {h00=0x0012, h01=0x0050, text=» CF A14,SOPIN «, t00=0x012a, t01=0x0076}
0x1d1e6…1d20c               Head {h00=0x0022, h01=0x0050, text=» ANKL A1,/7FC ALLOWED SWITCH? «, t00=0x012a, t01=0x008c}
0x1d20c…1d226               Head {h00=0x0016, h01=0x0050, text=» RB(Z) GET:70 NO! «, t00=0x012a, t01=0x00b2}
0x1d226…1d23c               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,LMP1 «, t00=0x012a, t01=0x00cc}
0x1d23c…1d266               Head {h00=0x0026, h01=0x0050, text=» OTR A2,0,SOP SWITCH ON LOAD LAMP «, t00=0x012a, t01=0x00e2}
0x1d266…1d278               Head {h00=0x000e, h01=0x0050, text=» SRN A1,A2«, t00=0x012a, t01=0x010c}
0x1d278…1d2a4               Head {h00=0x0028, h01=0x0050, text=» LC A1,DEVTAB,A2 GET DEVICE ADDRESS «, t00=0x012a, t01=0x011e}
0x1d2a4…1d2b8               Head {h00=0x0010, h01=0x0050, text=»GET:75 EQU *«, t00=0x012a, t01=0x014a}
0x1d2b8…1d2f2               Head {h00=0x0036, h01=0x0050, text=» SC A1,CONDEV+1+STKEND SAVE CONF. DATA LOAD DEVICE«, t00=0x012a, t01=0x015e}
0x1d2f2…1d31e               Head {h00=0x0028, h01=0x0050, text=» CF A14,CONFLD CONFIGURE LOAD DEVICE«, t00=0x012b, t01=0x0008}
0x1d31e…1d330               Head {h00=0x000e, h01=0x0050, text=» RB GETFIL«, t00=0x012b, t01=0x0034}
0x1d330…1d344               Head {h00=0x0010, h01=0x0050, text=»GET:85 EQU *«, t00=0x012b, t01=0x0046}
0x1d344…1d36c               Head {h00=0x0024, h01=0x0050, text=» CCK A3,'SS' LOOKING FOR $SWAPP?«, t00=0x012b, t01=0x005a}
0x1d36c…1d386               Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:99 NO!«, t00=0x012b, t01=0x0082}
0x1d386…1d3b0               Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 RESET CHARACTER COUNTER «, t00=0x012b, t01=0x009c}
0x1d3b0…1d3de               Head {h00=0x002a, h01=0x0050, text=»GET:90 LCR A1,A4 GET CHAR IN FILENAME «, t00=0x012b, t01=0x00c6}
0x1d3de…1d410               Head {h00=0x002e, h01=0x0050, text=» CC A1,SWPTAB,A5 CHECK IF PRESCIBED CHAR. «, t00=0x012b, t01=0x00f4}
0x1d410…1d42a               Head {h00=0x0016, h01=0x0050, text=» RB(NE) GET:50 NO!«, t00=0x012b, t01=0x0126}
0x1d42a…1d44a               Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 NEXT CHARACTER«, t00=0x012b, t01=0x0140}
0x1d44a…1d478               Head {h00=0x002a, h01=0x0050, text=» ADK A5,1 INCREMENT CHARACTER COUNTER «, t00=0x012b, t01=0x0160}
0x1d478…1d4a2               Head {h00=0x0026, h01=0x0050, text=» CWK A5,8 ALL CHARACTERS CHECKED? «, t00=0x012b, t01=0x018e}
0x1d4a2…1d4bc               Head {h00=0x0016, h01=0x0050, text=» RB(NE) GET:90 NO!«, t00=0x012c, t01=0x0028}
0x1d4bc…1d4c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x0042}
0x1d4c6…1d504               Head {h00=0x003a, h01=0x0050, text=»*  SWAPPABLE WORK BLOCK FILE FOUND - SAVE DISC ADDRESS«, t00=0x012c, t01=0x004c}
0x1d504…1d534               Head {h00=0x002c, h01=0x0050, text=»*  TO FILE AND TO NEXT SECTOR AFTER FILE«, t00=0x012c, t01=0x008a}
0x1d534…1d53e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x00ba}
0x1d53e…1d568               Head {h00=0x0026, h01=0x0050, text=» LD A1,18,A6 GET BIT 16-31 OF D.A.«, t00=0x012c, t01=0x00c4}
0x1d568…1d592               Head {h00=0x0026, h01=0x0050, text=» LD A2,16,A6 GET BIT 0-15 OF D.A. «, t00=0x012c, t01=0x00ee}
0x1d592…1d5b4               Head {h00=0x001e, h01=0x0050, text=» ST A1,SWBFSA+STKCOM SAVE «, t00=0x012c, t01=0x0118}
0x1d5b4…1d5d8               Head {h00=0x0020, h01=0x0050, text=» ST A2,SWBFSA+STKCOM+2 SAVE «, t00=0x012c, t01=0x013a}
0x1d5d8…1d608               Head {h00=0x002c, h01=0x0050, text=» LD A3,SWPFEL,A6 GET BIT 16-31 OF LENGTH«, t00=0x012c, t01=0x015e}
0x1d608…1d63a               Head {h00=0x002e, h01=0x0050, text=» LD A4,SWPFEL-2,A6 GET BIT 0-15 OF LENGTH «, t00=0x012c, t01=0x018e}
0x1d63a…1d666               Head {h00=0x0028, h01=0x0050, text=» ADR A4,A2 ADD MOST SIGNIFICANT PART«, t00=0x012d, t01=0x0030}
0x1d666…1d694               Head {h00=0x002a, h01=0x0050, text=» ADR A3,A1 ADD LEAST SIGNIFICANT PART «, t00=0x012d, t01=0x005c}
0x1d694…1d6be               Head {h00=0x0026, h01=0x0050, text=» RF(O) GET:92 OVERFLOW - ADD CARRY«, t00=0x012d, t01=0x008a}
0x1d6be…1d6d0               Head {h00=0x000e, h01=0x0050, text=» RF GET:98«, t00=0x012d, t01=0x00b4}
0x1d6d0…1d6f2               Head {h00=0x001e, h01=0x0050, text=»GET:92 ADK A4,1 ADD CARRY «, t00=0x012d, t01=0x00c6}
0x1d6f2…1d718               Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/7FFF RESET OVERFLOW «, t00=0x012d, t01=0x00e8}
0x1d718…1d752               Head {h00=0x0036, h01=0x0050, text=»GET:98 ST A3,SWBFSE+STKCOM SAVE BIT 16-31 OF D.A. «, t00=0x012d, t01=0x010e}
0x1d752…1d786               Head {h00=0x0030, h01=0x0050, text=» ST A4,SWBFSE+STKCOM+2 SAVE BIT 0-15 OF D.A.«, t00=0x012d, t01=0x0148}
0x1d786…1d7b8               Head {h00=0x002e, h01=0x0050, text=» IM SWBFLG+STKCOM INDICATE SWB-FILE FOUND «, t00=0x012d, t01=0x017c}
0x1d7b8…1d7ce               Head {h00=0x0012, h01=0x0050, text=»GET:99 RTN A14«, t00=0x012e, t01=0x001e}
0x1d7ce…1d7dc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012e, t01=0x0034}
0x1d7dc…1d81a               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x012e, t01=0x0042}
0x1d81a…1d858               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x012e, t01=0x0080}
0x1d858…1d896               Head {h00=0x003a, h01=0x0050, text=»*  LODCOM - LOAD CORE RESIDENT PART OF APPLICATION  * «, t00=0x012e, t01=0x00be}
0x1d896…1d8d4               Head {h00=0x003a, h01=0x0050, text=»*  ===============================================  * «, t00=0x012e, t01=0x00fc}
0x1d8d4…1d912               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x012e, t01=0x013a}
0x1d912…1d950               Head {h00=0x003a, h01=0x0050, text=»*  LODSEG - LOAD ONE SEGMENT                        * «, t00=0x012e, t01=0x0178}
0x1d950…1d98e               Head {h00=0x003a, h01=0x0050, text=»*  =========================                        * «, t00=0x012f, t01=0x0026}
0x1d98e…1d9cc               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x012f, t01=0x0064}
0x1d9cc…1da0a               Head {h00=0x003a, h01=0x0050, text=»*  ENTRY:  A8 - RELOCATION BASE                     * «, t00=0x012f, t01=0x00a2}
0x1da0a…1da48               Head {h00=0x003a, h01=0x0050, text=»*         A10 - EFFECTIVE LENGTH                    * «, t00=0x012f, t01=0x00e0}
0x1da48…1da86               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x012f, t01=0x011e}
0x1da86…1dac4               Head {h00=0x003a, h01=0x0050, text=»*  EXIT:                                            * «, t00=0x012f, t01=0x015c}
0x1dac4…1db02               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x0130, t01=0x000a}
0x1db02…1db40               Head {h00=0x003a, h01=0x0050, text=»*  WORK REGISTERS:  A1,A2,A3,A4,A7                  * «, t00=0x0130, t01=0x0048}
0x1db40…1db7e               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x0130, t01=0x0086}
0x1db7e…1dbbc               Head {h00=0x003a, h01=0x0050, text=»*  SUBROUTINES:  MOVE,READ                          * «, t00=0x0130, t01=0x00c4}
0x1dbbc…1dbfa               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x0130, t01=0x0102}
0x1dbfa…1dc38               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0130, t01=0x0140}
0x1dc38…1dc4c               Head {h00=0x0010, h01=0x0050, text=»LODCOM EQU *«, t00=0x0130, t01=0x017e}
0x1dc4c…1dc7c (305, 0, 400) Head {h00=0x002c, h01=0x0050, text=» LD A9,MXBUF GET ADDRESS TO READ BUFFER «, t00=0x0131, t01=0x0004}
0x1dc7c…1dca2               Head {h00=0x0022, h01=0x0050, text=» LDR A3,A9 GET START OF BUFFER«, t00=0x0131, t01=0x0034}
0x1dca2…1dcba               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A3 SAVE «, t00=0x0131, t01=0x005a}
0x1dcba…1dce4               Head {h00=0x0026, h01=0x0050, text=» LDKL A7,240 NUMBER OF CODE WORDS «, t00=0x0131, t01=0x0072}
0x1dce4…1dcfa               Head {h00=0x0012, h01=0x0050, text=»LOD:10 EQU *-2«, t00=0x0131, t01=0x009c}
0x1dcfa…1dd1a               Head {h00=0x001c, h01=0x0050, text=» LDR A10,A10 APP >32 KB?«, t00=0x0131, t01=0x00b2}
0x1dd1a…1dd34               Head {h00=0x0016, h01=0x0050, text=» RF(NN) LOD:20 NO!«, t00=0x0131, t01=0x00d2}
0x1dd34…1dd54               Head {h00=0x001c, h01=0x0050, text=» SUR A10,A7 DEC. LENGTH «, t00=0x0131, t01=0x00ec}
0x1dd54…1dd66               Head {h00=0x000e, h01=0x0050, text=» RF LOD:50«, t00=0x0131, t01=0x010c}
0x1dd66…1dd7a               Head {h00=0x0010, h01=0x0050, text=»LOD:20 EQU *«, t00=0x0131, t01=0x011e}
0x1dd7a…1ddac               Head {h00=0x002e, h01=0x0050, text=» SUR A10,A7 CHECK IF IN END OF OF SEGMENT «, t00=0x0131, t01=0x0132}
0x1ddac…1ddca               Head {h00=0x001a, h01=0x0050, text=» RF(P) LOD:50 NO YET! «, t00=0x0131, t01=0x0164}
0x1ddca…1ddf0               Head {h00=0x0022, h01=0x0050, text=» CWK A7,256 128 WORDS/SECTOR? «, t00=0x0131, t01=0x0182}
0x1ddf0…1de0a               Head {h00=0x0016, h01=0x0050, text=» RF(NE) LOD:30 NO!«, t00=0x0132, t01=0x0018}
0x1de0a…1de3a               Head {h00=0x002c, h01=0x0050, text=» ADR A7,A10 COMPUTE NUMBER OF CODE WORDS«, t00=0x0132, t01=0x0032}
0x1de3a…1de66               Head {h00=0x0028, h01=0x0050, text=» LDKL A10,0 INDICATE END OF SEGMENT «, t00=0x0132, t01=0x0062}
0x1de66…1de78               Head {h00=0x000e, h01=0x0050, text=» RF LOD:52«, t00=0x0132, t01=0x008e}
0x1de78…1de8c               Head {h00=0x0010, h01=0x0050, text=»LOD:30 EQU *«, t00=0x0132, t01=0x00a0}
0x1de8c…1dec2               Head {h00=0x0032, h01=0x0050, text=» ADR A7,A10 JUST MOVE SIGNIFICANT CHARACTERS! «, t00=0x0132, t01=0x00b4}
0x1dec2…1deee               Head {h00=0x0028, h01=0x0050, text=» LDKL A10,0 INDICATE END OF SEGMENT «, t00=0x0132, t01=0x00ea}
0x1deee…1df26               Head {h00=0x0034, h01=0x0050, text=» LD A1,FSTSEC+STKEND LOOK IF FIRST SECTOR/BLOCK «, t00=0x0132, t01=0x0116}
0x1df26…1df40               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) LOD:50 NO!«, t00=0x0132, t01=0x014e}
0x1df40…1df4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0132, t01=0x0168}
0x1df4a…1df80               Head {h00=0x0032, h01=0x0050, text=» ADK A7,8 YES, ADD 8 TO COMPENSATE FOR HEADER «, t00=0x0132, t01=0x0172}
0x1df80…1dfbe               Head {h00=0x003a, h01=0x0050, text=» CWK A7,240 LOOK IF OUTSIDE CODE PART OF SECTOR/BLOCK «, t00=0x0133, t01=0x0018}
0x1dfbe…1dfd8               Head {h00=0x0016, h01=0x0050, text=» RF(L) LOD:50 NO! «, t00=0x0133, t01=0x0056}
0x1dfd8…1dfe2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0133, t01=0x0070}
0x1dfe2…1e00e               Head {h00=0x0028, h01=0x0050, text=» SUK A7,240 YES, GET WORDS REMAINING«, t00=0x0133, t01=0x007a}
0x1e00e…1e02a               Head {h00=0x0018, h01=0x0050, text=» LDR A10,A7 AND SAVE«, t00=0x0133, t01=0x00a6}
0x1e02a…1e056               Head {h00=0x0028, h01=0x0050, text=» LDK A7,240 START OF RELOCATION BITS«, t00=0x0133, t01=0x00c2}
0x1e056…1e06a               Head {h00=0x0010, h01=0x0050, text=»LOD:50 EQU *«, t00=0x0133, t01=0x00ee}
0x1e06a…1e090               Head {h00=0x0022, h01=0x0050, text=» CWK A7,256 128 WORDS/SECTOR? «, t00=0x0133, t01=0x0102}
0x1e090…1e0aa               Head {h00=0x0016, h01=0x0050, text=» RF(E) LOD:52 YES!«, t00=0x0133, t01=0x0128}
0x1e0aa…1e0d6               Head {h00=0x0028, h01=0x0050, text=» ADR A2,A7 START OF RELOCATION BITS «, t00=0x0133, t01=0x0142}
0x1e0d6…1e0f4               Head {h00=0x001a, h01=0x0050, text=» CF A14,REBUF RELOCATE«, t00=0x0133, t01=0x016e}
0x1e0f4…1e108               Head {h00=0x0010, h01=0x0050, text=»LOD:52 EQU *«, t00=0x0133, t01=0x018c}
0x1e108…1e12e               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 START OF CODE PART «, t00=0x0134, t01=0x0010}
0x1e12e…1e15e               Head {h00=0x002c, h01=0x0050, text=» LD A4,FSTSEC+STKEND FIRST SECTOR/BLOCK?«, t00=0x0134, t01=0x0036}
0x1e15e…1e178               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) LOD:55 NO!«, t00=0x0134, t01=0x0066}
0x1e178…1e1b2               Head {h00=0x0036, h01=0x0050, text=» IM FSTSEC+STKEND INDICATE NOT FIRST SECTOR/BLOCK «, t00=0x0134, t01=0x0080}
0x1e1b2…1e1e6               Head {h00=0x0030, h01=0x0050, text=» ADK A1,8 SKIP 4 WORDS IN FIRST SECTOR/BLOCK«, t00=0x0134, t01=0x00ba}
0x1e1e6…1e21a               Head {h00=0x0030, h01=0x0050, text=» SUK A7,8 DECREMENT NUMBER OF CHAR. TO MOVE «, t00=0x0134, t01=0x00ee}
0x1e21a…1e23c               Head {h00=0x001e, h01=0x0050, text=» LD A3,COMLG,A9 GET LENGTH«, t00=0x0134, t01=0x0122}
0x1e23c…1e274               Head {h00=0x0034, h01=0x0050, text=» RF(N) LOD:54 APPL. LARGER THAN ONE SECTOR/BLOCK«, t00=0x0134, t01=0x0144}
0x1e274…1e27e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0134, t01=0x017c}
0x1e27e…1e2b2               Head {h00=0x0030, h01=0x0050, text=» CWK A3,240 SINGLE SECTOR/BLOCK APPLICATION?«, t00=0x0134, t01=0x0186}
0x1e2b2…1e2ce               Head {h00=0x0018, h01=0x0050, text=» RF(NG) LOD:55 YES! «, t00=0x0135, t01=0x002a}
0x1e2ce…1e2d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0135, t01=0x0046}
0x1e2d8…1e2f2               Head {h00=0x0016, h01=0x0050, text=»LOD:54 ADKL A10,8 «, t00=0x0135, t01=0x0050}
0x1e2f2…1e306               Head {h00=0x0010, h01=0x0050, text=»LOD:55 EQU *«, t00=0x0135, t01=0x006a}
0x1e306…1e336               Head {h00=0x002c, h01=0x0050, text=» LDR A3,A7 NUMBER OF CHARACTERS TO MOVE «, t00=0x0135, t01=0x007e}
0x1e336…1e362               Head {h00=0x0028, h01=0x0050, text=» LD A2,LLDADR+STKEND GET TO-ADDRESS «, t00=0x0135, t01=0x00ae}
0x1e362…1e396               Head {h00=0x0030, h01=0x0050, text=» ADS A3,LLDADR+STKEND UPDATE MEMORY ADDRESS «, t00=0x0135, t01=0x00da}
0x1e396…1e3ac               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0135, t01=0x010e}
0x1e3ac…1e3d4               Head {h00=0x0024, h01=0x0050, text=» MVSU A3 MOVE TABLE FROM SYSTEM «, t00=0x0135, t01=0x0124}
0x1e3d4…1e3e0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0135, t01=0x014c}
0x1e3e0…1e3f6               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0135, t01=0x0158}
0x1e3f6…1e408               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x0135, t01=0x016e}
0x1e408…1e414               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0135, t01=0x0180}
0x1e414…1e438               Head {h00=0x0020, h01=0x0050, text=» LDR A10,A10 END OF SEGMENT?«, t00=0x0135, t01=0x018c}
0x1e438…1e44e               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) LOD:70«, t00=0x0136, t01=0x0020}
0x1e44e…1e464               Head {h00=0x0012, h01=0x0050, text=» RTN A14 EXIT «, t00=0x0136, t01=0x0036}
0x1e464…1e478               Head {h00=0x0010, h01=0x0050, text=»LODSEG EQU *«, t00=0x0136, t01=0x004c}
0x1e478…1e4a4               Head {h00=0x0028, h01=0x0050, text=» LDKL A1,256 NUMBER OF WORDS/SECTOR «, t00=0x0136, t01=0x0060}
0x1e4a4…1e4cc               Head {h00=0x0024, h01=0x0050, text=» ST A1,LOD:10 MODIFY INSTRUCTION«, t00=0x0136, t01=0x008c}
0x1e4cc…1e4e0               Head {h00=0x0010, h01=0x0050, text=»LOD:70 EQU *«, t00=0x0136, t01=0x00b4}
0x1e4e0…1e4f4               Head {h00=0x0010, h01=0x0050, text=» CF A14,READ«, t00=0x0136, t01=0x00c8}
0x1e4f4…1e508               Head {h00=0x0010, h01=0x0050, text=»READ EQU *-2«, t00=0x0136, t01=0x00dc}
0x1e508…1e51a               Head {h00=0x000e, h01=0x0050, text=» RB LODCOM«, t00=0x0136, t01=0x00f0}
0x1e51a…1e528               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0136, t01=0x0102}
0x1e528…1e562               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0136, t01=0x0110}
0x1e562…1e59c               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x0136, t01=0x014a}
0x1e59c…1e5d6               Head {h00=0x0036, h01=0x0050, text=»*        REBUF - RELOCATE BUFFER ROUTINE        * «, t00=0x0136, t01=0x0184}
0x1e5d6…1e610               Head {h00=0x0036, h01=0x0050, text=»*        ===============================        * «, t00=0x0137, t01=0x002e}
0x1e610…1e64a               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x0137, t01=0x0068}
0x1e64a…1e684               Head {h00=0x0036, h01=0x0050, text=»*  REFERENCED IN:  LODCOM/LODSEG                * «, t00=0x0137, t01=0x00a2}
0x1e684…1e6be               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x0137, t01=0x00dc}
0x1e6be…1e6f8               Head {h00=0x0036, h01=0x0050, text=»*  ENTRY:  A3 - START OF BUFFER                 * «, t00=0x0137, t01=0x0116}
0x1e6f8…1e732               Head {h00=0x0036, h01=0x0050, text=»*          A2 - START OF RELOCATION TABLE       * «, t00=0x0137, t01=0x0150}
0x1e732…1e76c               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x0137, t01=0x018a}
0x1e76c…1e7a6               Head {h00=0x0036, h01=0x0050, text=»*  EXIT:                                        * «, t00=0x0138, t01=0x0034}
0x1e7a6…1e7e0               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x0138, t01=0x006e}
0x1e7e0…1e81a               Head {h00=0x0036, h01=0x0050, text=»*  WORK REGISTERS:  A1,A4,A5,A6                 * «, t00=0x0138, t01=0x00a8}
0x1e81a…1e854               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x0138, t01=0x00e2}
0x1e854…1e88e               Head {h00=0x0036, h01=0x0050, text=»*  SUBROUTINES:                                 * «, t00=0x0138, t01=0x011c}
0x1e88e…1e8c8               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x0138, t01=0x0156}
0x1e8c8…1e902               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0138, t01=0x0190}
0x1e902…1e916               Head {h00=0x0010, h01=0x0050, text=»REBUF EQU * «, t00=0x0139, t01=0x003a}
0x1e916…1e948               Head {h00=0x002e, h01=0x0050, text=» LDR A4,A2 GET START OPF RELOCATION TABLE «, t00=0x0139, t01=0x004e}
0x1e948…1e95a               Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0139, t01=0x0080}
0x1e95a…1e96e               Head {h00=0x0010, h01=0x0050, text=»REB:10 EQU *«, t00=0x0139, t01=0x0092}
0x1e96e…1e994               Head {h00=0x0022, h01=0x0050, text=» ADK A4,2 NEXT RELOCATION WORD«, t00=0x0139, t01=0x00a6}
0x1e994…1e9c0               Head {h00=0x0028, h01=0x0050, text=» LDK A6,16 NUMBER OF RELOCATION BITS«, t00=0x0139, t01=0x00cc}
0x1e9c0…1e9e8               Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A4 GET RELOCATION WORD «, t00=0x0139, t01=0x00f8}
0x1e9e8…1e9fc               Head {h00=0x0010, h01=0x0050, text=»REB:20 EQU *«, t00=0x0139, t01=0x0120}
0x1e9fc…1ea2c               Head {h00=0x002c, h01=0x0050, text=» RF(NN) REB:30 DON'T RELOCATE THIS WORD!«, t00=0x0139, t01=0x0134}
0x1ea2c…1ea4e               Head {h00=0x001e, h01=0x0050, text=» LDR* A5,A3 GET CODE WORD «, t00=0x0139, t01=0x0164}
0x1ea4e…1ea6a               Head {h00=0x0018, h01=0x0050, text=» ADR A5,A8 RELOCATE «, t00=0x0139, t01=0x0186}
0x1ea6a…1ea8a               Head {h00=0x001c, h01=0x0050, text=» STR A5,A3 STORE IT BACK«, t00=0x013a, t01=0x0012}
0x1ea8a…1ea9e               Head {h00=0x0010, h01=0x0050, text=»REB:30 EQU *«, t00=0x013a, t01=0x0032}
0x1ea9e…1eabe               Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 NEXT CODE WORD«, t00=0x013a, t01=0x0046}
0x1eabe…1eae8               Head {h00=0x0026, h01=0x0050, text=» CWR A3,A2 END OF CODE WORD PART? «, t00=0x013a, t01=0x0066}
0x1eae8…1eb02               Head {h00=0x0016, h01=0x0050, text=» RF(E) EXREL YES! «, t00=0x013a, t01=0x0090}
0x1eb02…1eb2a               Head {h00=0x0024, h01=0x0050, text=» SUK A6,1 MOORE RELOCATION BITS?«, t00=0x013a, t01=0x00aa}
0x1eb2a…1eb44               Head {h00=0x0016, h01=0x0050, text=» RB(Z) REB:10 NO! «, t00=0x013a, t01=0x00d2}
0x1eb44…1eb6a               Head {h00=0x0022, h01=0x0050, text=» SLL A1,1 NEXT RELOCATION BIT «, t00=0x013a, t01=0x00ec}
0x1eb6a…1eb7c               Head {h00=0x000e, h01=0x0050, text=» RB REB:20«, t00=0x013a, t01=0x0112}
0x1eb7c…1eb90               Head {h00=0x0010, h01=0x0050, text=»EXREL EQU * «, t00=0x013a, t01=0x0124}
0x1eb90…1eba0               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x013a, t01=0x0138}
0x1eba0…1ebae               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013a, t01=0x0148}
0x1ebae…1ebe0               Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x013a, t01=0x0156}
0x1ebe0…1ec12               Head {h00=0x002e, h01=0x0050, text=»*  GETCON - GET CONTENT IN MEMORY WORD  * «, t00=0x013a, t01=0x0188}
0x1ec12…1ec44               Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x013b, t01=0x002a}
0x1ec44…1ec4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x005c}
0x1ec4e…1ec70               Head {h00=0x001e, h01=0x0050, text=»*  REFERENCED IN:  SEGGEN «, t00=0x013b, t01=0x0066}
0x1ec70…1ec7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x0088}
0x1ec7a…1eca0               Head {h00=0x0022, h01=0x0050, text=»*  ENTRY:  A2 - MEMORY ADDRESS«, t00=0x013b, t01=0x0092}
0x1eca0…1ecd2               Head {h00=0x002e, h01=0x0050, text=»*          MMUOPT - MMU OPTION SWITCH (X) «, t00=0x013b, t01=0x00b8}
0x1ecd2…1ecdc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x00ea}
0x1ecdc…1ed0c               Head {h00=0x002c, h01=0x0050, text=»*  EXIT:  A1 - CONTENT OF MEMORY ADDRESS«, t00=0x013b, t01=0x00f4}
0x1ed0c…1ed16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x0124}
0x1ed16…1ed30               Head {h00=0x0016, h01=0x0050, text=»*  WORK REGISTER: «, t00=0x013b, t01=0x012e}
0x1ed30…1ed3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x0148}
0x1ed3a…1ed52               Head {h00=0x0014, h01=0x0050, text=»*  SUBROUTINES: «, t00=0x013b, t01=0x0152}
0x1ed52…1ed5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x016a}
0x1ed5c…1ed70               Head {h00=0x0010, h01=0x0050, text=»GETCON EQU *«, t00=0x013b, t01=0x0174}
0x1ed70…1ed96               Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x013b, t01=0x0188}
0x1ed96…1edb2               Head {h00=0x0018, h01=0x0050, text=» ANK A1,1 MMU OPTION«, t00=0x013c, t01=0x001e}
0x1edb2…1edce               Head {h00=0x0018, h01=0x0050, text=» RF(Z) GCON10 NO MMU«, t00=0x013c, t01=0x003a}
0x1edce…1ede0               Head {h00=0x000e, h01=0x0050, text=» ELR A1,A2«, t00=0x013c, t01=0x0056}
0x1ede0…1edf2               Head {h00=0x000e, h01=0x0050, text=» RF GCON20«, t00=0x013c, t01=0x0068}
0x1edf2…1ee06               Head {h00=0x0010, h01=0x0050, text=»GCON10 EQU *«, t00=0x013c, t01=0x007a}
0x1ee06…1ee1a               Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A2 «, t00=0x013c, t01=0x008e}
0x1ee1a…1ee2e               Head {h00=0x0010, h01=0x0050, text=»GCON20 EQU *«, t00=0x013c, t01=0x00a2}
0x1ee2e…1ee46               Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x013c, t01=0x00b6}
0x1ee46…1ee54               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013c, t01=0x00ce}
0x1ee54…1ee8a               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x013c, t01=0x00dc}
0x1ee8a…1eec0               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x013c, t01=0x0112}
0x1eec0…1eef6               Head {h00=0x0032, h01=0x0050, text=»*               SCNCON                      * «, t00=0x013c, t01=0x0148}
0x1eef6…1ef2c               Head {h00=0x0032, h01=0x0050, text=»*               ======                      * «, t00=0x013c, t01=0x017e}
0x1ef2c…1ef62               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x013d, t01=0x0024}
0x1ef62…1ef98               Head {h00=0x0032, h01=0x0050, text=»*  SCAN CONFIGURATION FILE FOR POSSIBLE     * «, t00=0x013d, t01=0x005a}
0x1ef98…1efce               Head {h00=0x0032, h01=0x0050, text=»*  APPLICATION DEFINITION BLOCKS. IF        * «, t00=0x013d, t01=0x0090}
0x1efce…1f00a               Head {h00=0x0038, h01=0x0050, text=»*  FOUND APLTAB+STKCOM IS UPDATED WITH DISC        *«, t00=0x013d, t01=0x00c6}
0x1f00a…1f040               Head {h00=0x0032, h01=0x0050, text=»*  ADDRESSES.                               * «, t00=0x013d, t01=0x0102}
0x1f040…1f076               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x013d, t01=0x0138}
0x1f076…1f0ac               Head {h00=0x0032, h01=0x0050, text=»*  ENTRY: A9 INPUT BUFFER ADDRESS           * «, t00=0x013d, t01=0x016e}
0x1f0ac…1f0e2               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x013e, t01=0x0014}
0x1f0e2…1f118               Head {h00=0x0032, h01=0x0050, text=»*  WORK REGISTERS  A1-A8,A10                * «, t00=0x013e, t01=0x004a}
0x1f118…1f14e               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x013e, t01=0x0080}
0x1f14e…1f184               Head {h00=0x0032, h01=0x0050, text=»*  ROUTINES REFERENCED: GETFIL, APLID       * «, t00=0x013e, t01=0x00b6}
0x1f184…1f1ba               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x013e, t01=0x00ec}
0x1f1ba…1f1f0               Head {h00=0x0032, h01=0x0050, text=»*  REFERENCED IN SYSLOD                     * «, t00=0x013e, t01=0x0122}
0x1f1f0…1f226               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x013e, t01=0x0158}
0x1f226…1f25c               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x013e, t01=0x018e}
0x1f25c…1f266               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x0034}
0x1f266…1f270               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x003e}
0x1f270…1f284               Head {h00=0x0010, h01=0x0050, text=»SCNCON EQU *«, t00=0x013f, t01=0x0048}
0x1f284…1f2b2               Head {h00=0x002a, h01=0x0050, text=» CF A14,GETFIL GET CONFIGURATION FILE «, t00=0x013f, t01=0x005c}
0x1f2b2…1f2ec               Head {h00=0x0036, h01=0x0050, text=» ST A11,CONDAD+STKEND SAVE CONF. DISC FILE ADDRESS«, t00=0x013f, t01=0x008a}
0x1f2ec…1f31c               Head {h00=0x002c, h01=0x0050, text=» ST A12,CONDAD+2+STKEND MOST SIGN. PART «, t00=0x013f, t01=0x00c4}
0x1f31c…1f342               Head {h00=0x0022, h01=0x0050, text=» LDR A8,A9 GET START OF BUFFER«, t00=0x013f, t01=0x00f4}
0x1f342…1f372               Head {h00=0x002c, h01=0x0050, text=» ADKL A8,BUFLEN-6 ADD SECTOR LENGTH USED«, t00=0x013f, t01=0x011a}
0x1f372…1f3a2               Head {h00=0x002c, h01=0x0050, text=» ST A8,ECNFBF+STKEND AND SAVE BUFFER END«, t00=0x013f, t01=0x014a}
0x1f3a2…1f3ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x017a}
0x1f3ac…1f3d4               Head {h00=0x0024, h01=0x0050, text=» LDKL A10,0 RESET RECORD COUNTER«, t00=0x013f, t01=0x0184}
0x1f3d4…1f40a               Head {h00=0x0032, h01=0x0050, text=» LD A6,APLTAB+STKCOM GET APLTAB+STKCOM ADDRESS«, t00=0x0140, t01=0x001c}
0x1f40a…1f438               Head {h00=0x002a, h01=0x0050, text=» ADK A6,ACBLEN+2 SKIP 1ST TABLE BLOCK «, t00=0x0140, t01=0x0052}
0x1f438…1f460               Head {h00=0x0024, h01=0x0050, text=» CF A14,RDSEC READ FIRST SECTOR «, t00=0x0140, t01=0x0080}
0x1f460…1f486               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A9 GET START OF RECORD«, t00=0x0140, t01=0x00a8}
0x1f486…1f4aa               Head {h00=0x0020, h01=0x0050, text=» LDR A8,A9 SAVE RECORD START«, t00=0x0140, t01=0x00ce}
0x1f4aa…1f4b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0140, t01=0x00f2}
0x1f4b4…1f4c8               Head {h00=0x0010, h01=0x0050, text=»SCAN00 EQU *«, t00=0x0140, t01=0x00fc}
0x1f4c8…1f4f4               Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A4 GET FIRST WORD IN RECORD«, t00=0x0140, t01=0x0110}
0x1f4f4…1f526               Head {h00=0x002e, h01=0x0050, text=» CWK A1,'A;' APPLICATION DEFINITION BLOCK?«, t00=0x0140, t01=0x013c}
0x1f526…1f540               Head {h00=0x0016, h01=0x0050, text=» RF(NE) SCAN10 NO!«, t00=0x0140, t01=0x016e}
0x1f540…1f54a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0140, t01=0x0188}
0x1f54a…1f578 (321, 0, 400) Head {h00=0x002a, h01=0x0050, text=» CF A14,APLID YES GET APPLICATION NAME«, t00=0x0141, t01=0x0004}
0x1f578…1f58c               Head {h00=0x0010, h01=0x0050, text=»SCAN10 EQU *«, t00=0x0141, t01=0x0032}
0x1f58c…1f5b8               Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x0141, t01=0x0046}
0x1f5b8…1f5e2               Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD?«, t00=0x0141, t01=0x0072}
0x1f5e2…1f5fc               Head {h00=0x0016, h01=0x0050, text=» RF(E) SCNEND YES!«, t00=0x0141, t01=0x009c}
0x1f5fc…1f606               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0141, t01=0x00b6}
0x1f606…1f638               Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x0141, t01=0x00c0}
0x1f638…1f664               Head {h00=0x0028, h01=0x0050, text=» CW A8,ECNFBF+STKEND OUTSIDE SECTOR?«, t00=0x0141, t01=0x00f2}
0x1f664…1f67e               Head {h00=0x0016, h01=0x0050, text=» RF(NE) SCAN20 NO!«, t00=0x0141, t01=0x011e}
0x1f67e…1f688               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0141, t01=0x0138}
0x1f688…1f6ae               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDSEC READ NEXT SECTOR«, t00=0x0141, t01=0x0142}
0x1f6ae…1f6d6               Head {h00=0x0024, h01=0x0050, text=» LDR A8,A9 RESET RECORD ADDRESS «, t00=0x0141, t01=0x0168}
0x1f6d6…1f6ea               Head {h00=0x0010, h01=0x0050, text=»SCAN20 EQU *«, t00=0x0141, t01=0x0190}
0x1f6ea…1f70e               Head {h00=0x0020, h01=0x0050, text=» LDR A4,A8 GET RECORD START «, t00=0x0142, t01=0x0014}
0x1f70e…1f736               Head {h00=0x0024, h01=0x0050, text=» RB SCAN00 CONTINUE SCAN PROCESS«, t00=0x0142, t01=0x0038}
0x1f736…1f740               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0142, t01=0x0060}
0x1f740…1f768               Head {h00=0x0024, h01=0x0050, text=»*  THE WHOLE CONFIGURATION FILE «, t00=0x0142, t01=0x006a}
0x1f768…1f790               Head {h00=0x0024, h01=0x0050, text=»*  IS PROCESSED. SEARCH VTOC FOR«, t00=0x0142, t01=0x0092}
0x1f790…1f7b6               Head {h00=0x0022, h01=0x0050, text=»*  GIVEN FILE NAMES AND UPDATE«, t00=0x0142, t01=0x00ba}
0x1f7b6…1f7e2               Head {h00=0x0028, h01=0x0050, text=»*  APLTAB+STKCOM WITH CORRESPONDING «, t00=0x0142, t01=0x00e0}
0x1f7e2…1f7fc               Head {h00=0x0016, h01=0x0050, text=»*  DISC ADDRESSES.«, t00=0x0142, t01=0x010c}
0x1f7fc…1f806               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0142, t01=0x0126}
0x1f806…1f81a               Head {h00=0x0010, h01=0x0050, text=»SCNEND EQU *«, t00=0x0142, t01=0x0130}
0x1f81a…1f84e               Head {h00=0x0030, h01=0x0050, text=» LD A1,IPLDEV+STKEND CONFIGURE PGM LOAD DEV.«, t00=0x0142, t01=0x0144}
0x1f84e…1f864               Head {h00=0x0012, h01=0x0050, text=» CF A14,LODDEV«, t00=0x0142, t01=0x0178}
0x1f864…1f8a0               Head {h00=0x0038, h01=0x0050, text=» LD A6,APLTAB+STKCOM GET APLTAB+STKCOM START ADDRESS«, t00=0x0142, t01=0x018e}
0x1f8a0…1f8ce               Head {h00=0x002a, h01=0x0050, text=» ADK A6,ACBLEN+2 SKIP 1ST TABLE BLOCK «, t00=0x0143, t01=0x003a}
0x1f8ce…1f902               Head {h00=0x0030, h01=0x0050, text=» LD* A1,APLTAB+STKCOM GET NO OF APPLICATIONS«, t00=0x0143, t01=0x0068}
0x1f902…1f91e               Head {h00=0x0018, h01=0x0050, text=» SUK A1,1 DECREMENT «, t00=0x0143, t01=0x009c}
0x1f91e…1f946               Head {h00=0x0024, h01=0x0050, text=» RF(Z) RTRN ONLY ONE APPLICATION«, t00=0x0143, t01=0x00b8}
0x1f946…1f960               Head {h00=0x0016, h01=0x0050, text=» NGR A1,A1 NEGATE «, t00=0x0143, t01=0x00e0}
0x1f960…1f996               Head {h00=0x0032, h01=0x0050, text=» ST A1,APLCNT+STKEND AND SAVE AS APPL. COUNTER«, t00=0x0143, t01=0x00fa}
0x1f996…1f9c6               Head {h00=0x002c, h01=0x0050, text=» CF A14,GETAPL UPDATE APPLIC. DISC ADDR.«, t00=0x0143, t01=0x0130}
0x1f9c6…1f9d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0143, t01=0x0160}
0x1f9d0…1f9e2               Head {h00=0x000e, h01=0x0050, text=»RTRN EQU *«, t00=0x0143, t01=0x016a}
0x1f9e2…1fa00               Head {h00=0x001a, h01=0x0050, text=» RTN A14 END OF SCNCON«, t00=0x0143, t01=0x017c}
0x1fa00…1fa0e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0144, t01=0x000a}
0x1fa0e…1fa44               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0144, t01=0x0018}
0x1fa44…1fa7a               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0144, t01=0x004e}
0x1fa7a…1fab0               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0144, t01=0x0084}
0x1fab0…1fae6               Head {h00=0x0032, h01=0x0050, text=»*                 APLID                     * «, t00=0x0144, t01=0x00ba}
0x1fae6…1fb1c               Head {h00=0x0032, h01=0x0050, text=»*                 =====                     * «, t00=0x0144, t01=0x00f0}
0x1fb1c…1fb52               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0144, t01=0x0126}
0x1fb52…1fb88               Head {h00=0x0032, h01=0x0050, text=»*  APLID TAKES THE NAME OF APPLICATION      * «, t00=0x0144, t01=0x015c}
0x1fb88…1fbbe (325, 0, 400) Head {h00=0x0032, h01=0x0050, text=»*  AND MOVES IT FROM CONF. FILE TO          * «, t00=0x0145, t01=0x0004}
0x1fbbe…1fbfa               Head {h00=0x0038, h01=0x0050, text=»*  APLTAB+STKCOM. FOR EACH APPLICATION A ENTRY     *«, t00=0x0145, t01=0x003a}
0x1fbfa…1fc36               Head {h00=0x0038, h01=0x0050, text=»*  IN APLTAB+STKCOM IS CREATED ACCORDINGLY:        *«, t00=0x0145, t01=0x0076}
0x1fc36…1fc6c               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0145, t01=0x00b2}
0x1fc6c…1fca2               Head {h00=0x0032, h01=0x0050, text=»*       LENGTH OF NAME (BYTES)              * «, t00=0x0145, t01=0x00e8}
0x1fca2…1fcd8               Head {h00=0x0032, h01=0x0050, text=»*       NAME                                * «, t00=0x0145, t01=0x011e}
0x1fcd8…1fd0e               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0145, t01=0x0154}
0x1fd0e…1fd44               Head {h00=0x0032, h01=0x0050, text=»*  THE NAME ENTRY CONSISTS OF 1-4 WORDS     * «, t00=0x0145, t01=0x018a}
0x1fd44…1fd7a               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0146, t01=0x0030}
0x1fd7a…1fdb6               Head {h00=0x0038, h01=0x0050, text=»*  ENTRY: A6 POINTER INTO APLTAB+STKCOM            *«, t00=0x0146, t01=0x0066}
0x1fdb6…1fdec               Head {h00=0x0032, h01=0x0050, text=»*         A8 RECORD POINTER                 * «, t00=0x0146, t01=0x00a2}
0x1fdec…1fe22               Head {h00=0x0032, h01=0x0050, text=»*         A10 RECORD COUNTER                * «, t00=0x0146, t01=0x00d8}
0x1fe22…1fe58               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0146, t01=0x010e}
0x1fe58…1fe8e               Head {h00=0x0032, h01=0x0050, text=»*  WORK REGISTERS: A1-A5                    * «, t00=0x0146, t01=0x0144}
0x1fe8e…1fec4               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0146, t01=0x017a}
0x1fec4…1fefa               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0147, t01=0x0020}
0x1fefa…1ff04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x0056}
0x1ff04…1ff0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x0060}
0x1ff0e…1ff22               Head {h00=0x0010, h01=0x0050, text=»APLID EQU * «, t00=0x0147, t01=0x006a}
0x1ff22…1ff4e               Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x0147, t01=0x007e}
0x1ff4e…1ff78               Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD «, t00=0x0147, t01=0x00aa}
0x1ff78…1ffb0               Head {h00=0x0034, h01=0x0050, text=» ABL(E) CONERR YES! ERROR IN CONFIGURATION FILE «, t00=0x0147, t01=0x00d4}
0x1ffb0…1ffba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x010c}
0x1ffba…1ffec               Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x0147, t01=0x0116}
0x1ffec…20018               Head {h00=0x0028, h01=0x0050, text=» CW A8,ECNFBF+STKEND OUTSIDE SECTOR?«, t00=0x0147, t01=0x0148}
0x20018…20032               Head {h00=0x0016, h01=0x0050, text=» RF(NE) APLID0 NO!«, t00=0x0147, t01=0x0174}
0x20032…2003c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x018e}
0x2003c…20062               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDSEC READ NEXT SECTOR«, t00=0x0148, t01=0x0008}
0x20062…20086               Head {h00=0x0020, h01=0x0050, text=» LDR A8,A9 GET RECORD START «, t00=0x0148, t01=0x002e}
0x20086…2009a               Head {h00=0x0010, h01=0x0050, text=»APLID0 EQU *«, t00=0x0148, t01=0x0052}
0x2009a…200ba               Head {h00=0x001c, h01=0x0050, text=» LDR A4,A8 RECORD START «, t00=0x0148, t01=0x0066}
0x200ba…200e4               Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 RESET CHARACTER COUNTER «, t00=0x0148, t01=0x0086}
0x200e4…200f8               Head {h00=0x0010, h01=0x0050, text=»APLID2 EQU *«, t00=0x0148, t01=0x00b0}
0x200f8…20118               Head {h00=0x001c, h01=0x0050, text=» LCR A1,A4 GET CHARACTER«, t00=0x0148, t01=0x00c4}
0x20118…20142               Head {h00=0x0026, h01=0x0050, text=» CCK A1,';;' DELIMITER CHARACTER? «, t00=0x0148, t01=0x00e4}
0x20142…20168               Head {h00=0x0022, h01=0x0050, text=» RF(E) APLID4 YES! END OF NAME«, t00=0x0148, t01=0x010e}
0x20168…20172               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0148, t01=0x0134}
0x20172…201a0               Head {h00=0x002a, h01=0x0050, text=» ADK A4,1 INCREMENT CHARACTER POINTER «, t00=0x0148, t01=0x013e}
0x201a0…201cc               Head {h00=0x0028, h01=0x0050, text=» ADK A5,1 INCREMENT CHARACTER COUNT «, t00=0x0148, t01=0x016c}
0x201cc…201f6               Head {h00=0x0026, h01=0x0050, text=» CWK A5,NCHAID END OF THIS RECORD?«, t00=0x0149, t01=0x0008}
0x201f6…20222               Head {h00=0x0028, h01=0x0050, text=» RB(NE) APLID2 NO GET NEXT CHARACTER«, t00=0x0149, t01=0x0032}
0x20222…2022c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0149, t01=0x005e}
0x2022c…20252               Head {h00=0x0022, h01=0x0050, text=»*  END OF NAME RECORD, LOOK IF«, t00=0x0149, t01=0x0068}
0x20252…2027a               Head {h00=0x0024, h01=0x0050, text=»*  NEXT CHARACTER IS A DELIMITER«, t00=0x0149, t01=0x008e}
0x2027a…20284               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0149, t01=0x00b6}
0x20284…20296               Head {h00=0x000e, h01=0x0050, text=» LCR A1,A4«, t00=0x0149, t01=0x00c0}
0x20296…202aa               Head {h00=0x0010, h01=0x0050, text=» CCK A1,';;'«, t00=0x0149, t01=0x00d2}
0x202aa…202e4               Head {h00=0x0036, h01=0x0050, text=» ABL(NE) CONERR NO DELIMITER, ERROR IN CONF. FILE «, t00=0x0149, t01=0x00e6}
0x202e4…202ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0149, t01=0x0120}
0x202ee…20302               Head {h00=0x0010, h01=0x0050, text=»APLID4 EQU *«, t00=0x0149, t01=0x012a}
0x20302…20314               Head {h00=0x000e, h01=0x0050, text=» ADK A5,0 «, t00=0x0149, t01=0x013e}
0x20314…20346               Head {h00=0x002e, h01=0x0050, text=» ABL(Z) CONERR NO LEGAL CHARACTER IN NAME «, t00=0x0149, t01=0x0150}
0x20346…20350               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0149, t01=0x0182}
0x20350…20374               Head {h00=0x0020, h01=0x0050, text=» LDR A3,A6 SAVE BLOCK START «, t00=0x0149, t01=0x018c}
0x20374…203a8               Head {h00=0x0030, h01=0x0050, text=» STR A5,A3 SAVE NAME LENGTH IN APLTAB+STKCOM«, t00=0x014a, t01=0x0020}
0x203a8…203da               Head {h00=0x002e, h01=0x0050, text=» IM* APLTAB+STKCOM INCREMENT NO OF APPLIC.«, t00=0x014a, t01=0x0054}
0x203da…20406               Head {h00=0x0028, h01=0x0050, text=» LDR A4,A8 GET START OF NAME RECORD «, t00=0x014a, t01=0x0086}
0x20406…20432               Head {h00=0x0028, h01=0x0050, text=» ADK A5,1 INCREMENT CHARACTER COUNT «, t00=0x014a, t01=0x00b2}
0x20432…20458               Head {h00=0x0022, h01=0x0050, text=» SRA A5,1 AND MAKE WORD COUNT «, t00=0x014a, t01=0x00de}
0x20458…20462               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014a, t01=0x0104}
0x20462…20476               Head {h00=0x0010, h01=0x0050, text=»APLID6 EQU *«, t00=0x014a, t01=0x010e}
0x20476…2049e               Head {h00=0x0024, h01=0x0050, text=» ADK A3,2 ADVANCE TABLE POINTER «, t00=0x014a, t01=0x0122}
0x2049e…204cc               Head {h00=0x002a, h01=0x0050, text=» LDR* A1,A4 MOVE 2 CHARACTERS OF NAME «, t00=0x014a, t01=0x014a}
0x204cc…204f0               Head {h00=0x0020, h01=0x0050, text=» STR A1,A3 TO APLTAB+STKCOM «, t00=0x014a, t01=0x0178}
0x204f0…2051c               Head {h00=0x0028, h01=0x0050, text=» ADK A4,2 ADVANCE CHARACTER POINTER «, t00=0x014b, t01=0x000c}
0x2051c…20542               Head {h00=0x0022, h01=0x0050, text=» SUK A5,1 DECREMENT WORD COUNT«, t00=0x014b, t01=0x0038}
0x20542…20570               Head {h00=0x002a, h01=0x0050, text=» RB(P) APLID6 MORE CHARACTERS TO MOVE «, t00=0x014b, t01=0x005e}
0x20570…2057a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014b, t01=0x008c}
0x2057a…205ae               Head {h00=0x0030, h01=0x0050, text=» ADK A6,ACBLEN PREPARE FOR NEXT TABLE ENTRY «, t00=0x014b, t01=0x0096}
0x205ae…205ca               Head {h00=0x0018, h01=0x0050, text=» RTN A14 NO, RETURN «, t00=0x014b, t01=0x00ca}
0x205ca…205d8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x014b, t01=0x00e6}
0x205d8…2060e               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x014b, t01=0x00f4}
0x2060e…20644               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x014b, t01=0x012a}
0x20644…2067a               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x014b, t01=0x0160}
0x2067a…206b0               Head {h00=0x0032, h01=0x0050, text=»*              GETAPL                       * «, t00=0x014c, t01=0x0008}
0x206b0…206e6               Head {h00=0x0032, h01=0x0050, text=»*              ======                       * «, t00=0x014c, t01=0x003e}
0x206e6…2071c               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x014c, t01=0x0074}
0x2071c…20752               Head {h00=0x0032, h01=0x0050, text=»*  SCANS VTOC FOR FILE NAMES LISTED IN      * «, t00=0x014c, t01=0x00aa}
0x20752…20796               Head {h00=0x0040, h01=0x0050, text=»*  APLTAB+STKCOM. APLTAB+STKCOM IS UPDATED WITH CORRE-    * «, t00=0x014c, t01=0x00e0}
0x20796…207cc               Head {h00=0x0032, h01=0x0050, text=»*  SPONDING DISC ADDRESSE AND THE LENGTH    * «, t00=0x014c, t01=0x0124}
0x207cc…20808               Head {h00=0x0038, h01=0x0050, text=»*  OF APLTAB+STKCOM IS THEN USED TO CALCULATE      *«, t00=0x014c, t01=0x015a}
0x20808…2083e               Head {h00=0x0032, h01=0x0050, text=»*  START OF FREE AREA.                      * «, t00=0x014d, t01=0x0008}
0x2083e…20874               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x014d, t01=0x003e}
0x20874…208b0               Head {h00=0x0038, h01=0x0050, text=»*  ENTRY: A6 - 1ST ENTRY IN APLTAB+STKCOM          *«, t00=0x014d, t01=0x0074}
0x208b0…208f4               Head {h00=0x0040, h01=0x0050, text=»*         APLCNT+STKEND - NO OF ENTRIES IN APLTAB+STKCOM  * «, t00=0x014d, t01=0x00b0}
0x208f4…2092a               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x014d, t01=0x00f4}
0x2092a…20960               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x014d, t01=0x012a}
0x20960…2096a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014d, t01=0x0160}
0x2096a…20974               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014d, t01=0x016a}
0x20974…20988               Head {h00=0x0010, h01=0x0050, text=»GETAPL EQU *«, t00=0x014d, t01=0x0174}
0x20988…209b0               Head {h00=0x0024, h01=0x0050, text=» CF A14,GETVLB READ VOLUME LABEL«, t00=0x014d, t01=0x0188}
0x209b0…209c4               Head {h00=0x0010, h01=0x0050, text=»GETAP0 EQU *«, t00=0x014e, t01=0x0020}
0x209c4…209e6               Head {h00=0x001e, h01=0x0050, text=» CF A14,RDSEC READ SECTOR «, t00=0x014e, t01=0x0034}
0x209e6…20a12               Head {h00=0x0028, h01=0x0050, text=» LDK A7,QBLFAC VTOC BLOCKING FACTOR «, t00=0x014e, t01=0x0056}
0x20a12…20a38               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A9 GET START OF RECORD«, t00=0x014e, t01=0x0082}
0x20a38…20a4c               Head {h00=0x0010, h01=0x0050, text=»GETAP2 EQU *«, t00=0x014e, t01=0x00a8}
0x20a4c…20a78               Head {h00=0x0028, h01=0x0050, text=» LDR* A5,A6 GET LENGTH OF APPL. NAME«, t00=0x014e, t01=0x00bc}
0x20a78…20a9c               Head {h00=0x0020, h01=0x0050, text=» LDR A3,A4 SAVE RECORD START«, t00=0x014e, t01=0x00e8}
0x20a9c…20ac0               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 AND TABLE POINTER«, t00=0x014e, t01=0x010c}
0x20ac0…20ae8               Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 SKIP NO OF CHAR. ENTRY«, t00=0x014e, t01=0x0130}
0x20ae8…20b1a               Head {h00=0x002e, h01=0x0050, text=» LCR A2,A4 GET 1ST CHARACTER IN FILE NAME «, t00=0x014e, t01=0x0158}
0x20b1a…20b38               Head {h00=0x001a, h01=0x0050, text=» CCK A2,/2020 UNUSED? «, t00=0x014e, t01=0x018a}
0x20b38…20b52               Head {h00=0x0016, h01=0x0050, text=» RF(E) GETAP4 YES!«, t00=0x014f, t01=0x0018}
0x20b52…20b5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x0032}
0x20b5c…20b82               Head {h00=0x0022, h01=0x0050, text=» CF A14,CMPSYM COMPARE SYMBOLS«, t00=0x014f, t01=0x003c}
0x20b82…20b94               Head {h00=0x000e, h01=0x0050, text=» ADK A5,0 «, t00=0x014f, t01=0x0062}
0x20b94…20bae               Head {h00=0x0016, h01=0x0050, text=» RF(Z) FOUND EQUAL«, t00=0x014f, t01=0x0074}
0x20bae…20bb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x008e}
0x20bb8…20be0               Head {h00=0x0024, h01=0x0050, text=»*  NO MATCH, TRY NEXT VTOC ENTRY«, t00=0x014f, t01=0x0098}
0x20be0…20bea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x00c0}
0x20bea…20bfe               Head {h00=0x0010, h01=0x0050, text=»GETAP4 EQU *«, t00=0x014f, t01=0x00ca}
0x20bfe…20c20               Head {h00=0x001e, h01=0x0050, text=» ADR A4,A8 GET NEXT RECORD«, t00=0x014f, t01=0x00de}
0x20c20…20c4a               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 BYPASS STATUS CHARACTER «, t00=0x014f, t01=0x0100}
0x20c4a…20c78               Head {h00=0x002a, h01=0x0050, text=» SUK A7,1 MORE RECORDS IN THIS SECTOR «, t00=0x014f, t01=0x012a}
0x20c78…20c92               Head {h00=0x0016, h01=0x0050, text=» RB(P) GETAP2 YES!«, t00=0x014f, t01=0x0158}
0x20c92…20c9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x0172}
0x20c9c…20cc2               Head {h00=0x0022, h01=0x0050, text=» CWR A11,A10 LAST VTOC SECTOR?«, t00=0x014f, t01=0x017c}
0x20cc2…20cec               Head {h00=0x0026, h01=0x0050, text=» ABL(E) CONERR ERROR IN CONF. FILE«, t00=0x0150, t01=0x0012}
0x20cec…20cf6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0150, t01=0x003c}
0x20cf6…20d08               Head {h00=0x000e, h01=0x0050, text=» RB GETAP0«, t00=0x0150, t01=0x0046}
0x20d08…20d12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0150, t01=0x0058}
0x20d12…20d26               Head {h00=0x0010, h01=0x0050, text=»FOUND EQU * «, t00=0x0150, t01=0x0062}
0x20d26…20d4e               Head {h00=0x0024, h01=0x0050, text=» LDK A2,'L' LOAD FILE CHARACTER «, t00=0x0150, t01=0x0076}
0x20d4e…20d6e               Head {h00=0x001c, h01=0x0050, text=» CC A2,27,A4 LOAD FILE? «, t00=0x0150, t01=0x009e}
0x20d6e…20d9c               Head {h00=0x002a, h01=0x0050, text=» ABL(NE) CONERR NO ERROR IN CONF. FILE«, t00=0x0150, t01=0x00be}
0x20d9c…20da6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0150, t01=0x00ec}
0x20da6…20dd8               Head {h00=0x002e, h01=0x0050, text=» LD A2,16,A4 GET DISC ADDRESS (BITS 0-15) «, t00=0x0150, t01=0x00f6}
0x20dd8…20e06               Head {h00=0x002a, h01=0x0050, text=» ST A2,APLADA,A6 SAVE IN APLTAB+STKCOM«, t00=0x0150, t01=0x0128}
0x20e06…20e38               Head {h00=0x002e, h01=0x0050, text=» LD A2,18,A4 GET DISC ADDRESS (BITS 16-31)«, t00=0x0150, t01=0x0156}
0x20e38…20e6c               Head {h00=0x0030, h01=0x0050, text=» ST A2,APLADA+2,A6 AND SAVE IN APLTAB+STKCOM«, t00=0x0150, t01=0x0188}
0x20e6c…20e9e               Head {h00=0x002e, h01=0x0050, text=» ADK A6,ACBLEN ADVANCE TO NEXT TABLE BLOCK«, t00=0x0151, t01=0x002c}
0x20e9e…20ea8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0151, t01=0x005e}
0x20ea8…20ede               Head {h00=0x0032, h01=0x0050, text=» IM APLCNT+STKEND INCREMENT APPLICATION COUNT «, t00=0x0151, t01=0x0068}
0x20ede…20f00               Head {h00=0x001e, h01=0x0050, text=» RB(NZ) GETAPL MORE TO DO!«, t00=0x0151, t01=0x009e}
0x20f00…20f0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0151, t01=0x00c0}
0x20f0a…20f28               Head {h00=0x001a, h01=0x0050, text=» RTN A14 END OF GETAPL«, t00=0x0151, t01=0x00ca}
0x20f28…20f36               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0151, t01=0x00e8}
0x20f36…20f6c               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0151, t01=0x00f6}
0x20f6c…20fa2               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0151, t01=0x012c}
0x20fa2…20fd8               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0151, t01=0x0162}
0x20fd8…2100e               Head {h00=0x0032, h01=0x0050, text=»*            CMPSYM                         * «, t00=0x0152, t01=0x0008}
0x2100e…21044               Head {h00=0x0032, h01=0x0050, text=»*            ======                         * «, t00=0x0152, t01=0x003e}
0x21044…2107a               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0152, t01=0x0074}
0x2107a…210b0               Head {h00=0x0032, h01=0x0050, text=»*  COMPARE TWO SYMBOLS WITH EACH OTHER      * «, t00=0x0152, t01=0x00aa}
0x210b0…210e6               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0152, t01=0x00e0}
0x210e6…2111c               Head {h00=0x0032, h01=0x0050, text=»*  ENTRY: A3 - START OF SYMBOL 1            * «, t00=0x0152, t01=0x0116}
0x2111c…21152               Head {h00=0x0032, h01=0x0050, text=»*         A1 - START OF SYMBOL 2            * «, t00=0x0152, t01=0x014c}
0x21152…21188               Head {h00=0x0032, h01=0x0050, text=»*         A5 - LENGTH OF SYMBOL 2           * «, t00=0x0152, t01=0x0182}
0x21188…211be               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0153, t01=0x0028}
0x211be…211f4               Head {h00=0x0032, h01=0x0050, text=»*  EXIT:  A5 = 0 IF SYMBOLS EQUAL           * «, t00=0x0153, t01=0x005e}
0x211f4…2122a               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0153, t01=0x0094}
0x2122a…21260               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0153, t01=0x00ca}
0x21260…2126a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x0100}
0x2126a…21274               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x010a}
0x21274…21288               Head {h00=0x0010, h01=0x0050, text=»CMPSYM EQU *«, t00=0x0153, t01=0x0114}
0x21288…212b4               Head {h00=0x0028, h01=0x0050, text=» LCR A2,A3 GET CHARACTER IN SYMBOL 1«, t00=0x0153, t01=0x0128}
0x212b4…212ea               Head {h00=0x0032, h01=0x0050, text=» CCR A2,A1 COMPARE WITH CHARACTER IN SYMBOL 2 «, t00=0x0153, t01=0x0154}
0x212ea…21316               Head {h00=0x0028, h01=0x0050, text=» RF(NE) CMPEND IF NOT EQUAL, RETURN «, t00=0x0153, t01=0x018a}
0x21316…21320               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x0026}
0x21320…2134c               Head {h00=0x0028, h01=0x0050, text=» ADK A3,1 ADVANCE CHARACTER POINTERS«, t00=0x0154, t01=0x0030}
0x2134c…2135e               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0154, t01=0x005c}
0x2135e…2138a               Head {h00=0x0028, h01=0x0050, text=» SUK A5,1 DECREMENT CHARACTER COUNT «, t00=0x0154, t01=0x006e}
0x2138a…213ba               Head {h00=0x002c, h01=0x0050, text=» RB(NZ) CMPSYM CONTINUE THE COMPARISION «, t00=0x0154, t01=0x009a}
0x213ba…213c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x00ca}
0x213c4…213ec               Head {h00=0x0024, h01=0x0050, text=» LDR* A2,A6 RESTORE NAME LENGTH «, t00=0x0154, t01=0x00d4}
0x213ec…21412               Head {h00=0x0022, h01=0x0050, text=» CWK A2,8 LOOK IF MAX. LENGTH «, t00=0x0154, t01=0x00fc}
0x21412…21436               Head {h00=0x0020, h01=0x0050, text=» RF(E) CMPEND YES! FINISHED «, t00=0x0154, t01=0x0122}
0x21436…21440               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x0146}
0x21440…21472               Head {h00=0x002e, h01=0x0050, text=» LCR A2,A3 GET NEXT CHARACTER IN FILE NAME«, t00=0x0154, t01=0x0150}
0x21472…2149a               Head {h00=0x0024, h01=0x0050, text=» CCK A2,/2020 END OF FILE NAME? «, t00=0x0154, t01=0x0182}
0x2149a…214b4               Head {h00=0x0016, h01=0x0050, text=» RF(E) CMPEND YES!«, t00=0x0155, t01=0x001a}
0x214b4…214be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0155, t01=0x0034}
0x214be…214de               Head {h00=0x001c, h01=0x0050, text=» LDK A5,1 NO, NOT EQUAL!«, t00=0x0155, t01=0x003e}
0x214de…214f2               Head {h00=0x0010, h01=0x0050, text=»CMPEND EQU *«, t00=0x0155, t01=0x005e}
0x214f2…21510               Head {h00=0x001a, h01=0x0050, text=» RTN A14 END OF CMPSYM«, t00=0x0155, t01=0x0072}
0x21510…2151e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0155, t01=0x0090}
0x2151e…21554               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0155, t01=0x009e}
0x21554…2158a               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0155, t01=0x00d4}
0x2158a…215c0               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0155, t01=0x010a}
0x215c0…215f6               Head {h00=0x0032, h01=0x0050, text=»*               GETVLB                      * «, t00=0x0155, t01=0x0140}
0x215f6…2162c               Head {h00=0x0032, h01=0x0050, text=»*               ======                      * «, t00=0x0155, t01=0x0176}
0x2162c…21662               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0156, t01=0x001c}
0x21662…21698               Head {h00=0x0032, h01=0x0050, text=»*  READ SECTOR CONTAINIG VOLUME LABEL       * «, t00=0x0156, t01=0x0052}
0x21698…216ce               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0156, t01=0x0088}
0x216ce…21704               Head {h00=0x0032, h01=0x0050, text=»*  EXIT: A10 - LAST VTOC SECTOR             * «, t00=0x0156, t01=0x00be}
0x21704…2173a               Head {h00=0x0032, h01=0x0050, text=»*        A11 - FIRST VTOC SECTOR            * «, t00=0x0156, t01=0x00f4}
0x2173a…21770               Head {h00=0x0032, h01=0x0050, text=»*        A8  - VTOC RECORD LENGTH           * «, t00=0x0156, t01=0x012a}
0x21770…217a6               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0156, t01=0x0160}
0x217a6…217dc               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0157, t01=0x0008}
0x217dc…217e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0157, t01=0x003e}
0x217e6…217f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0157, t01=0x0048}
0x217f0…21804               Head {h00=0x0010, h01=0x0050, text=»GETVLB EQU *«, t00=0x0157, t01=0x0052}
0x21804…21826               Head {h00=0x001e, h01=0x0050, text=» SUR A11,A11 VOLUME LABEL «, t00=0x0157, t01=0x0066}
0x21826…2183a               Head {h00=0x0010, h01=0x0050, text=» SUR A12,A12«, t00=0x0157, t01=0x0088}
0x2183a…21860               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDSEC GET VOLUME LABEL«, t00=0x0157, t01=0x009c}
0x21860…21884               Head {h00=0x0020, h01=0x0050, text=» LD A10,10,A9 GET VTOC BASE «, t00=0x0157, t01=0x00c2}
0x21884…2189e               Head {h00=0x0016, h01=0x0050, text=» LDR A11,A10 SAVE «, t00=0x0157, t01=0x00e6}
0x2189e…218c4               Head {h00=0x0022, h01=0x0050, text=» AD A10,6,A9 LAST VTOC SECTOR «, t00=0x0157, t01=0x0100}
0x218c4…218f0               Head {h00=0x0028, h01=0x0050, text=» LD A8,12,A9 GET VTOC RECORD LENGTH «, t00=0x0157, t01=0x0126}
0x218f0…21922               Head {h00=0x002e, h01=0x0050, text=» AD A11,46,A9 FIRST FILE SECTOR IN VTOC =7«, t00=0x0157, t01=0x0152}
0x21922…21940               Head {h00=0x001a, h01=0x0050, text=» RTN A14 END OF GETVLB«, t00=0x0157, t01=0x0184}
0x21940…2194a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0158, t01=0x0012}
0x2194a…21958               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0158, t01=0x001c}
0x21958…2198e               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0158, t01=0x002a}
0x2198e…219c4               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0158, t01=0x0060}
0x219c4…219fa               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0158, t01=0x0096}
0x219fa…21a30               Head {h00=0x0032, h01=0x0050, text=»*                  RDSEC                    * «, t00=0x0158, t01=0x00cc}
0x21a30…21a66               Head {h00=0x0032, h01=0x0050, text=»*                  =====                    * «, t00=0x0158, t01=0x0102}
0x21a66…21a9c               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0158, t01=0x0138}
0x21a9c…21ad2               Head {h00=0x0032, h01=0x0050, text=»*  READS A SECTOR FROM INPUT DISC.          * «, t00=0x0158, t01=0x016e}
0x21ad2…21b08               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0159, t01=0x0014}
0x21b08…21b3e               Head {h00=0x0032, h01=0x0050, text=»*  ENTRY: A9 - BUFFER ADDRESS               * «, t00=0x0159, t01=0x004a}
0x21b3e…21b74               Head {h00=0x0032, h01=0x0050, text=»*         A11- SECTOR ADDRESS               * «, t00=0x0159, t01=0x0080}
0x21b74…21baa               Head {h00=0x0032, h01=0x0050, text=»*         A12- SECTOR ADDRESS               * «, t00=0x0159, t01=0x00b6}
0x21baa…21be0               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0159, t01=0x00ec}
0x21be0…21c16               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0159, t01=0x0122}
0x21c16…21c20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0159, t01=0x0158}
0x21c20…21c2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0159, t01=0x0162}
0x21c2a…21c3e               Head {h00=0x0010, h01=0x0050, text=»RDSEC EQU * «, t00=0x0159, t01=0x016c}
0x21c3e…21c64               Head {h00=0x0022, h01=0x0050, text=» CF A14,READS MODIFIED ADDRESS«, t00=0x0159, t01=0x0180}
0x21c64…21c7a               Head {h00=0x0012, h01=0x0050, text=»READS EQU *-2 «, t00=0x015a, t01=0x0016}
0x21c7a…21c8a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x015a, t01=0x002c}
0x21c8a…21c98               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x015a, t01=0x003c}
0x21c98…21ca2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x004a}
0x21ca2…21cc2               Head {h00=0x001c, h01=0x0050, text=»*  DATA AREA DEFINITION «, t00=0x015a, t01=0x0054}
0x21cc2…21ccc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x0074}
0x21ccc…21ce0               Head {h00=0x0010, h01=0x0050, text=»SYSBAS EQU *«, t00=0x015a, t01=0x007e}
0x21ce0…21cfa               Head {h00=0x0016, h01=0x0050, text=»SAVCON DATA BUFLEN«, t00=0x015a, t01=0x0092}
0x21cfa…21d30               Head {h00=0x0032, h01=0x0050, text=»MXBUF DATA 0 DISC/FLEXIBLE DISC BUFFER ADDRESS«, t00=0x015a, t01=0x00ac}
0x21d30…21d50               Head {h00=0x001c, h01=0x0050, text=»SAVMEM DATA 0 SAVE AREA «, t00=0x015a, t01=0x00e2}
0x21d50…21d7a               Head {h00=0x0026, h01=0x0050, text=»CYLNBR DATA /FFFF CYLINDER NUMBER «, t00=0x015a, t01=0x0102}
0x21d7a…21da6               Head {h00=0x0028, h01=0x0050, text=»SECNBR DATA 0 PHYSICAL SECTOR NUMBER«, t00=0x015a, t01=0x012c}
0x21da6…21dc0               Head {h00=0x0016, h01=0x0050, text=» IFT CDDISC=1  =9 «, t00=0x015a, t01=0x0158}
0x21dc0…21dda               Head {h00=0x0016, h01=0x0050, text=» IFT CDDI16=0  =9 «, t00=0x015a, t01=0x0172}
0x21dda…21e08               Head {h00=0x002a, h01=0x0050, text=»DEVTAB DATA 0,/1909,/3717,/2808,/1404 «, t00=0x015a, t01=0x018c}
0x21e08…21e1a               Head {h00=0x000e, h01=0x0050, text=» XIF   =9 «, t00=0x015b, t01=0x002a}
0x21e1a…21e3a               Head {h00=0x001c, h01=0x0050, text=» IFF CDDISC-CDDI16=1  =9«, t00=0x015b, t01=0x003c}
0x21e3a…21e6a               Head {h00=0x002c, h01=0x0050, text=»DEVTAB DATA 0,/1909,/3717,/2808,/5717 =9«, t00=0x015b, t01=0x005c}
0x21e6a…21e7c               Head {h00=0x000e, h01=0x0050, text=» XIF   =9 «, t00=0x015b, t01=0x008c}
0x21e7c…21ea4               Head {h00=0x0024, h01=0x0050, text=»SWPTAB DATA '$S','WA','P ','  ' «, t00=0x015b, t01=0x009e}
0x21ea4…21eba               Head {h00=0x0012, h01=0x0050, text=»FCTAB EQU * =5«, t00=0x015b, t01=0x00c6}
0x21eba…21ed8               Head {h00=0x001a, h01=0x0050, text=» DATA /F1F3,/F0F2  =5 «, t00=0x015b, t01=0x00dc}
0x21ed8…21ee2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015b, t01=0x00fa}
0x21ee2…21ef6               Head {h00=0x0010, h01=0x0050, text=» END SYSLOD «, t00=0x015b, t01=0x0104}
0x21ef6…21efa               Head {h00=0x4004, h01=0x0000}
0x21efa…21efe               01 5b 01 18                                                                                                                                                                                                                                       ┆ [  ┆
0x21efe…21f06 (348, 1, 8)   20 04 00 00 01 5c 00 04                                                                                                                                                                                                                           ┆        ┆

DataMuseum.dk

Philips Data Systems

⟦9590624ff⟧

Derivation

PTS(SC)

HexDump

Reduced view