⟦2b7a1d0bf⟧

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	1	1-MMU HARDWARE PRESENT 
EDM	EQU	0	1-SUPPORTS EXTENDED MONITORS	=12
CASS	EQU	0	1-PROGRAM LOAD DEVICE = CASSETTE 
DISC	EQU	1	1-PROGRAM LOAD DEVICE = DISC 
FLDISC	EQU	1	1= PROGRAM LOAD DEVICE = FLEXIBLE DISC 
MFDISC	EQU	0	1-PROGRAM LOAD DEVICE = MINI FIXED DISC
CDDISC	EQU	0	1-PROGRAM LOAD DEVICE=80M CDC DISC 
CDDI16	EQU	0	1-PROGRAM LOAD DEVICE = 16M CDC DISC	=9
CFTEST	EQU	1	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 1 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…028b6               Head {h00=0x0030, h01=0x0050, text=»CASS EQU 0 1-PROGRAM LOAD DEVICE = CASSETTE «, t00=0x0019, t01=0x017c}
0x028b6…028e6               Head {h00=0x002c, h01=0x0050, text=»DISC EQU 1 1-PROGRAM LOAD DEVICE = DISC «, t00=0x001a, t01=0x0020}
0x028e6…02922               Head {h00=0x0038, h01=0x0050, text=»FLDISC EQU 1 1= PROGRAM LOAD DEVICE = FLEXIBLE DISC «, t00=0x001a, t01=0x0050}
0x02922…0295e               Head {h00=0x0038, h01=0x0050, text=»MFDISC EQU 0 1-PROGRAM LOAD DEVICE = MINI FIXED DISC«, t00=0x001a, t01=0x008c}
0x0295e…02996               Head {h00=0x0034, h01=0x0050, text=»CDDISC EQU 0 1-PROGRAM LOAD DEVICE=80M CDC DISC «, t00=0x001a, t01=0x00c8}
0x02996…029d2               Head {h00=0x0038, h01=0x0050, text=»CDDI16 EQU 0 1-PROGRAM LOAD DEVICE = 16M CDC DISC =9«, t00=0x001a, t01=0x0100}
0x029d2…02a06               Head {h00=0x0030, h01=0x0050, text=»CFTEST EQU 1 1-TEST OF CONFIGURATION FILE =9«, t00=0x001a, t01=0x013c}
0x02a06…02a24               Head {h00=0x001a, h01=0x0050, text=»CFTCAS EQU CFTEST+CASS«, t00=0x001a, t01=0x0170}
0x02a24…02a44               Head {h00=0x001c, h01=0x0050, text=»CFTFLD EQU CFTEST+FLDISC«, t00=0x001a, t01=0x018e}
0x02a44…02a52               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x001e}
0x02a52…02a90               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x001b, t01=0x002c}
0x02a90…02ace               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x001b, t01=0x006a}
0x02ace…02b0c               Head {h00=0x003a, h01=0x0050, text=»*          APPLICATION LOAD PART OF SYSLOD           *«, t00=0x001b, t01=0x00a8}
0x02b0c…02b4a               Head {h00=0x003a, h01=0x0050, text=»*          ===============================           *«, t00=0x001b, t01=0x00e6}
0x02b4a…02b88               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x001b, t01=0x0124}
0x02b88…02bc4               Head {h00=0x0038, h01=0x0050, text=»*  ENTRY:  A1 - FORMAT AND DEVICE TYPE             *«, t00=0x001b, t01=0x0162}
0x02bc4…02c02               Head {h00=0x003a, h01=0x0050, text=»*          A2 - PROGRAM LOAD DEVICE                  *«, t00=0x001c, t01=0x000e}
0x02c02…02c40               Head {h00=0x003a, h01=0x0050, text=»*          A3 - APPLICATION NUMBER                   *«, t00=0x001c, t01=0x004c}
0x02c40…02c7e               Head {h00=0x003a, h01=0x0050, text=»*          A7 - APPLICATION DISC ADDRESS BIT 16-31  * «, t00=0x001c, t01=0x008a}
0x02c7e…02cbc               Head {h00=0x003a, h01=0x0050, text=»*          A8 - APPLICATION DISC ADDRESS BIT  0-15  * «, t00=0x001c, t01=0x00c8}
0x02cbc…02cfa               Head {h00=0x003a, h01=0x0050, text=»*          A9 - START OF FREE AREA                   *«, t00=0x001c, t01=0x0106}
0x02cfa…02d38               Head {h00=0x003a, h01=0x0050, text=»*         A13 - MONITOR START ADDRESS                *«, t00=0x001c, t01=0x0144}
0x02d38…02d76               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x001c, t01=0x0182}
0x02d76…02db4               Head {h00=0x003a, h01=0x0050, text=»*  EXIT:                                             *«, t00=0x001d, t01=0x0030}
0x02db4…02df2               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x001d, t01=0x006e}
0x02df2…02e30               Head {h00=0x003a, h01=0x0050, text=»*  SUBROUTINES:  CASSIN,SOPIN,CHCRIO,LODCOM          *«, t00=0x001d, t01=0x00ac}
0x02e30…02e6e               Head {h00=0x003a, h01=0x0050, text=»*                LODSEG,REBUF,MOVBUF,RDBLK,          *«, t00=0x001d, t01=0x00ea}
0x02e6e…02eac               Head {h00=0x003a, h01=0x0050, text=»*                CONLOD,CONEX,MOVREV                 *«, t00=0x001d, t01=0x0128}
0x02eac…02eea               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x001d, t01=0x0166}
0x02eea…02f28               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x001e, t01=0x0014}
0x02f28…02f3c               Head {h00=0x0010, h01=0x0050, text=»SYSLOD EQU *«, t00=0x001e, t01=0x0052}
0x02f3c…02f46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0066}
0x02f46…02f60               Head {h00=0x0016, h01=0x0050, text=»*  SAVE REGISTERS «, t00=0x001e, t01=0x0070}
0x02f60…02f6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x008a}
0x02f6a…02fa2               Head {h00=0x0034, h01=0x0050, text=» ST A1,IPLTYP+STKEND SAVE FORMAT AND DEVICE TYPE«, t00=0x001e, t01=0x0094}
0x02fa2…02fd0               Head {h00=0x002a, h01=0x0050, text=» ST A2,SCTIPL SAVE PROGRAM LOAD DEVICE«, t00=0x001e, t01=0x00cc}
0x02fd0…02fec               Head {h00=0x0018, h01=0x0050, text=» ST A2,IPLDEV+STKEND«, t00=0x001e, t01=0x00fa}
0x02fec…03022               Head {h00=0x0032, h01=0x0050, text=» CM CONDEV+STKEND RESET CONF. DATA DEV. ADDR. «, t00=0x001e, t01=0x0116}
0x03022…0304a               Head {h00=0x0024, h01=0x0050, text=» ST A3,SCTANO APPLICATION NUMBER«, t00=0x001e, t01=0x014c}
0x0304a…03074               Head {h00=0x0026, h01=0x0050, text=» LDR A3,P USE BEGINNING OF SYSLOD «, t00=0x001e, t01=0x0174}
0x03074…0308a               Head {h00=0x0012, h01=0x0050, text=» SUK A3,TBLBAS«, t00=0x001f, t01=0x000e}
0x0308a…030a8               Head {h00=0x001a, h01=0x0050, text=»TBLBAS EQU *-2-SYSLOD «, t00=0x001f, t01=0x0024}
0x030a8…030d2               Head {h00=0x0026, h01=0x0050, text=» ST A3,APLTAB+STKCOM AS TABLE AREA«, t00=0x001f, t01=0x0042}
0x030d2…030f8               Head {h00=0x0022, h01=0x0050, text=» LDK A1,1 INITIATE NO OF APPL.«, t00=0x001f, t01=0x006c}
0x030f8…0311c               Head {h00=0x0020, h01=0x0050, text=» STR A1,A3 AND SAVE IN TABLE«, t00=0x001f, t01=0x0092}
0x0311c…0315e               Head {h00=0x003e, h01=0x0050, text=» ST A8,APLADA+2,A3 SAVE APPLICATION DISC ADDRESS BIT 0-15 «, t00=0x001f, t01=0x00b6}
0x0315e…031a0               Head {h00=0x003e, h01=0x0050, text=» ST A7,APLADA+4,A3 SAVE APPLICATION DISC ADDRESS BIT 16-31«, t00=0x001f, t01=0x00f8}
0x031a0…031ce               Head {h00=0x002a, h01=0x0050, text=» ST A9,SCTSFA SAVE START OF FREE AREA «, t00=0x001f, t01=0x013a}
0x031ce…031e6               Head {h00=0x0014, h01=0x0050, text=» LDKL A14,SYSLOD«, t00=0x001f, t01=0x0168}
0x031e6…031f8               Head {h00=0x000e, h01=0x0050, text=» LDR A13,P«, t00=0x001f, t01=0x0180}
0x031f8…03230 (32, 0, 400)  Head {h00=0x0034, h01=0x0050, text=»SYS100 ADKL A13,SYS110-SYS100 POINTER TO SYS110 «, t00=0x0020, t01=0x0004}
0x03230…03246               Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTBUG «, t00=0x0020, t01=0x003c}
0x03246…03258               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0020, t01=0x0052}
0x03258…03294               Head {h00=0x0038, h01=0x0050, text=» ANK A2,1 TEST IF DEBUG ADDRESS IS ODD,IF TRUE START«, t00=0x0020, t01=0x0064}
0x03294…032a8               Head {h00=0x0010, h01=0x0050, text=» ABR(NZ) A1 «, t00=0x0020, t01=0x00a0}
0x032a8…032b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00b4}
0x032b2…032c6               Head {h00=0x0010, h01=0x0050, text=»SYS110 EQU *«, t00=0x0020, t01=0x00be}
0x032c6…032ec               Head {h00=0x0022, h01=0x0050, text=» LD A15,SCTSTB LOAD STACK BASE«, t00=0x0020, t01=0x00d2}
0x032ec…03312               Head {h00=0x0022, h01=0x0050, text=» SUKL A15,4 ADJUST STACK BASE «, t00=0x0020, t01=0x00f8}
0x03312…0331c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x011e}
0x0331c…0333c               Head {h00=0x001c, h01=0x0050, text=»*  INDICATE SYSLOD RUNS «, t00=0x0020, t01=0x0128}
0x0333c…03346               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0148}
0x03346…0335c               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP1 «, t00=0x0020, t01=0x0152}
0x0335c…03372               Head {h00=0x0012, h01=0x0050, text=» OTR A1,0,SOP «, t00=0x0020, t01=0x0168}
0x03372…0337c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x017e}
0x0337c…033c2               Head {h00=0x0042, h01=0x0050, text=»*  INIT POINTER TO SUBROUTINE HANDLER (A13), STACK BASE (A14) «, t00=0x0020, t01=0x0188}
0x033c2…033ea               Head {h00=0x0024, h01=0x0050, text=»*  AND ADDRESS TO GETPSW-ROUTINE«, t00=0x0021, t01=0x003e}
0x033ea…033f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0066}
0x033f4…03414               Head {h00=0x001c, h01=0x0050, text=» LDR A8,P RETURN ADDRESS«, t00=0x0021, t01=0x0070}
0x03414…0343e               Head {h00=0x0026, h01=0x0050, text=» LDKL A3,REL+2 RELOCATION ROUTINE «, t00=0x0021, t01=0x0090}
0x0343e…03450               Head {h00=0x000e, h01=0x0050, text=» CFR A8,A3«, t00=0x0021, t01=0x00ba}
0x03450…03478               Head {h00=0x0024, h01=0x0050, text=» LDKL A5,/5555 LOAD TEST PATTERN«, t00=0x0021, t01=0x00cc}
0x03478…0349c               Head {h00=0x0020, h01=0x0050, text=» LDK A6,64 INIT PAGE COUNTER«, t00=0x0021, t01=0x00f4}
0x0349c…034b2               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0021, t01=0x0118}
0x034b2…034c0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x012e}
0x034c0…034ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x013c}
0x034ca…0350c               Head {h00=0x003e, h01=0x0050, text=»*  EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY «, t00=0x0021, t01=0x0146}
0x0350c…03516               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0188}
0x03516…0353c (34, 0, 400)  Head {h00=0x0022, h01=0x0050, text=» SLL A6,2 UPPER SAVE20=256 KB «, t00=0x0022, t01=0x0004}
0x0353c…03560               Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 MMU ENTRY POINTER «, t00=0x0022, t01=0x002a}
0x03560…03574               Head {h00=0x0010, h01=0x0050, text=»AP:010 EQU *«, t00=0x0022, t01=0x004e}
0x03574…0359a               Head {h00=0x0022, h01=0x0050, text=» LD A2,TABBE GET PAGE ADDRESS «, t00=0x0022, t01=0x0062}
0x0359a…035d0               Head {h00=0x0032, h01=0x0050, text=» SUKL A2,/400 DECREMENT PHYSICAL PAGE ADDRESS «, t00=0x0022, t01=0x0088}
0x035d0…035f2               Head {h00=0x001e, h01=0x0050, text=» ST A2,TABBE STORE IT BACK«, t00=0x0022, t01=0x00be}
0x035f2…03616               Head {h00=0x0020, h01=0x0050, text=» TL TABBE LOAD MMU REGISTERS«, t00=0x0022, t01=0x00e0}
0x03616…0364a               Head {h00=0x0030, h01=0x0050, text=» EL A3,PAGSIZ-2,A1 SAVE OLD MEMORY CONTENTS «, t00=0x0022, t01=0x0104}
0x0364a…03678               Head {h00=0x002a, h01=0x0050, text=» ES A5,PAGSIZ-2,A1 STORE TEST PATTERN «, t00=0x0022, t01=0x0138}
0x03678…036a6               Head {h00=0x002a, h01=0x0050, text=» EL A2,PAGSIZ-2,A1 GET MEMORY CONTENT «, t00=0x0022, t01=0x0166}
0x036a6…036dc (35, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» ES A3,PAGSIZ-2,A1 RESTORE OLD MEMORY CONTENTS«, t00=0x0023, t01=0x0004}
0x036dc…03708               Head {h00=0x0028, h01=0x0050, text=» CWR A2,A5 COMPARE WITH TEST PATTERN«, t00=0x0023, t01=0x003a}
0x03708…0371e               Head {h00=0x0012, h01=0x0050, text=» RF(E) AP:020 «, t00=0x0023, t01=0x0066}
0x0371e…0374a               Head {h00=0x0028, h01=0x0050, text=» SUK A6,4 DECREMENT NUMBER OF PAGES «, t00=0x0023, t01=0x007c}
0x0374a…0375c               Head {h00=0x000e, h01=0x0050, text=» RB AP:010«, t00=0x0023, t01=0x00a8}
0x0375c…03766               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ba}
0x03766…0378e               Head {h00=0x0024, h01=0x0050, text=»*  CHECK IF MMU HARDWARE PRESENT«, t00=0x0023, t01=0x00c4}
0x0378e…03798               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ec}
0x03798…037b4               Head {h00=0x0018, h01=0x0050, text=»AP:020 LDKL A1,/FC00«, t00=0x0023, t01=0x00f6}
0x037b4…037ee               Head {h00=0x0036, h01=0x0050, text=» ST A1,MMDDIV,A13 SET 1ST ENTRY IN MMU TABLE AREA «, t00=0x0023, t01=0x0112}
0x037ee…0381e               Head {h00=0x002c, h01=0x0050, text=» TL MMDDIV,A13 TRY TO LOAD MMU REGISTERS«, t00=0x0023, t01=0x014c}
0x0381e…03850               Head {h00=0x002e, h01=0x0050, text=» TS MMDDIV,A13 SAVE REGISTERS IN MMU TABLE«, t00=0x0023, t01=0x017c}
0x03850…03876               Head {h00=0x0022, h01=0x0050, text=» CW A1,MMDDIV,A13 SUCCESSFUL? «, t00=0x0024, t01=0x001e}
0x03876…0389c               Head {h00=0x0022, h01=0x0050, text=» RF(E) AP:030 YES! MMU PRESENT«, t00=0x0024, t01=0x0044}
0x0389c…038b2               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x0024, t01=0x006a}
0x038b2…038e4               Head {h00=0x002e, h01=0x0050, text=» CALL ERROR INDICATE HARDWARE NOT PRESENT «, t00=0x0024, t01=0x0080}
0x038e4…0390c               Head {h00=0x0024, h01=0x0050, text=»AP:030 CM TABBE RESET MMU TABLE «, t00=0x0024, t01=0x00b2}
0x0390c…03916               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00da}
0x03916…0395e               Head {h00=0x0044, h01=0x0050, text=»*  END OF EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY«, t00=0x0024, t01=0x00e4}
0x0395e…03968               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x012c}
0x03968…03974               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0136}
0x03974…0398a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0024, t01=0x0142}
0x0398a…03998               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0158}
0x03998…039ac               Head {h00=0x0010, h01=0x0050, text=»AP:100 EQU *«, t00=0x0024, t01=0x0166}
0x039ac…039b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x017a}
0x039b6…039fa               Head {h00=0x0040, h01=0x0050, text=»*  EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY«, t00=0x0024, t01=0x0184}
0x039fa…03a04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0038}
0x03a04…03a2c               Head {h00=0x0024, h01=0x0050, text=» LDKL A1,PAGSIZ-2 START AT /FFFE«, t00=0x0025, t01=0x0042}
0x03a2c…03a40               Head {h00=0x0010, h01=0x0050, text=»AP:110 EQU *«, t00=0x0025, t01=0x006a}
0x03a40…03a6a               Head {h00=0x0026, h01=0x0050, text=» SUKL A1,PAGSIZ NEXT PHYSICAL PAGE«, t00=0x0025, t01=0x007e}
0x03a6a…03a96               Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A1 SAVE OLD MEMORY CONTENT «, t00=0x0025, t01=0x00a8}
0x03a96…03abc               Head {h00=0x0022, h01=0x0050, text=» STR A5,A1 STORE TEST PATTERN «, t00=0x0025, t01=0x00d4}
0x03abc…03ae0               Head {h00=0x0020, h01=0x0050, text=» CWR* A5,A1 CHECK IF MEMORY «, t00=0x0025, t01=0x00fa}
0x03ae0…03b06               Head {h00=0x0022, h01=0x0050, text=» RF(E) AP:120 MEMORY END FOUND«, t00=0x0025, t01=0x011e}
0x03b06…03b3a               Head {h00=0x0030, h01=0x0050, text=» SUK A6,4 DECREMENT NUMBER OF PHYSICAL PAGES«, t00=0x0025, t01=0x0144}
0x03b3a…03b4c               Head {h00=0x000e, h01=0x0050, text=» RB AP:110«, t00=0x0025, t01=0x0178}
0x03b4c…03b60               Head {h00=0x0010, h01=0x0050, text=»AP:120 EQU *«, t00=0x0025, t01=0x018a}
0x03b60…03b8e               Head {h00=0x002a, h01=0x0050, text=» STR A2,A1 RESTORE OLD MEMORY CONTENT «, t00=0x0026, t01=0x000e}
0x03b8e…03b98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x003c}
0x03b98…03be4               Head {h00=0x0048, h01=0x0050, text=»*  END OF EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY «, t00=0x0026, t01=0x0046}
0x03be4…03bee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0092}
0x03bee…03bfa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x009c}
0x03bfa…03c08               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x00a8}
0x03c08…03c12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00b6}
0x03c12…03c32               Head {h00=0x001c, h01=0x0050, text=»*  COMMON EXECUTION PATH«, t00=0x0026, t01=0x00c0}
0x03c32…03c3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00e0}
0x03c3c…03c50               Head {h00=0x0010, h01=0x0050, text=»AP:200 EQU *«, t00=0x0026, t01=0x00ea}
0x03c50…03c84               Head {h00=0x0030, h01=0x0050, text=» ST A6,SCTMSZ SAVE NUMBER OF PHYSICAL PAGES «, t00=0x0026, t01=0x00fe}
0x03c84…03caa               Head {h00=0x0022, h01=0x0050, text=» SRL A6,2 MAKE NO OF 4K FRAMES«, t00=0x0026, t01=0x0132}
0x03caa…03cd0               Head {h00=0x0022, h01=0x0050, text=» SLL A6,10 MAKE FRAME ADDRESS «, t00=0x0026, t01=0x0158}
0x03cd0…03cfc               Head {h00=0x0028, h01=0x0050, text=» ST A6,SCTEFA FIRST FRAME TO BE USED«, t00=0x0026, t01=0x017e}
0x03cfc…03d0e               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0027, t01=0x001a}
0x03d0e…03d40               Head {h00=0x002e, h01=0x0050, text=» ST A3,SCTEFA+2 AREA EMPTY IN FIRST FRAME «, t00=0x0027, t01=0x002c}
0x03d40…03d68               Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD =2«, t00=0x0027, t01=0x005e}
0x03d68…03d8a               Head {h00=0x001e, h01=0x0050, text=» ST A1,OPTION+STKEND   =2 «, t00=0x0027, t01=0x0086}
0x03d8a…03db2               Head {h00=0x0024, h01=0x0050, text=» ANKL A1,/FFF RESET TYPE BITS =2«, t00=0x0027, t01=0x00a8}
0x03db2…03de0               Head {h00=0x002a, h01=0x0050, text=» ST A1,SCTOPT AND SET AS NEW OPTION =2«, t00=0x0027, t01=0x00d0}
0x03de0…03dea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00fe}
0x03dea…03e36               Head {h00=0x0048, h01=0x0050, text=»*  INIT POINTER TO READ BUFFER. INIT DEVICE ADDRESS FOR READ-ROUTINE«, t00=0x0027, t01=0x0108}
0x03e36…03e62               Head {h00=0x0028, h01=0x0050, text=» LD A9,SCTSFA POINTER TO READ BUFFER«, t00=0x0027, t01=0x0154}
0x03e62…03e8e               Head {h00=0x0028, h01=0x0050, text=» ST A9,MXBUF ADDRESS TO READ-BUFFER «, t00=0x0027, t01=0x0180}
0x03e8e…03ebc               Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x0028, t01=0x001c}
0x03ebc…03ec6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x004a}
0x03ec6…03ef0               Head {h00=0x0026, h01=0x0050, text=»*  INITIALIZE PROGRAM LOAD DEVICE «, t00=0x0028, t01=0x0054}
0x03ef0…03efa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x007e}
0x03efa…03f10               Head {h00=0x0012, h01=0x0050, text=» CF A14,LODDEV«, t00=0x0028, t01=0x0088}
0x03f10…03f28               Head {h00=0x0014, h01=0x0050, text=» LDR A3,A9 SAVE «, t00=0x0028, t01=0x009e}
0x03f28…03f5a               Head {h00=0x002e, h01=0x0050, text=» AD A3,SAVCON COMPUTE START OF APPL. TABLE«, t00=0x0028, t01=0x00b6}
0x03f5a…03f80               Head {h00=0x0022, h01=0x0050, text=» ST A3,SCTSFA STORE IN SYSTAB «, t00=0x0028, t01=0x00e8}
0x03f80…03f92               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0028, t01=0x010e}
0x03f92…03fb8               Head {h00=0x0022, h01=0x0050, text=» RF(Z) AP:233 CASSETTE LOADING«, t00=0x0028, t01=0x0120}
0x03fb8…03fc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0146}
0x03fc2…03ff8               Head {h00=0x0032, h01=0x0050, text=» ST A2,SCTIPL SET FILE CODE IF RAND. ACC. DEV.«, t00=0x0028, t01=0x0150}
0x03ff8…04006               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0186}
0x04006…0401a (41, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»AP:232 EQU *«, t00=0x0029, t01=0x0004}
0x0401a…04032               Head {h00=0x0014, h01=0x0050, text=» IFT EDM=1  =12 «, t00=0x0029, t01=0x0018}
0x04032…0403c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0030}
0x0403c…04066               Head {h00=0x0026, h01=0x0050, text=»*  LOAD MONITOR EXTENTS IF PRESENT«, t00=0x0029, t01=0x003a}
0x04066…04070               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0064}
0x04070…0409c               Head {h00=0x0028, h01=0x0050, text=» CF A14,LODMEX  LOAD MONITOR EXTENTS«, t00=0x0029, t01=0x006e}
0x0409c…040a8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x009a}
0x040a8…040b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00a6}
0x040b2…040da               Head {h00=0x0024, h01=0x0050, text=»*  SCAN CONF. FILE FOR POSSIBLE «, t00=0x0029, t01=0x00b0}
0x040da…04102               Head {h00=0x0024, h01=0x0050, text=»*  APPLICATION DEFINITION BLOCKS«, t00=0x0029, t01=0x00d8}
0x04102…0410c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0100}
0x0410c…04122               Head {h00=0x0012, h01=0x0050, text=» CF A14,SCNCON«, t00=0x0029, t01=0x010a}
0x04122…0414e               Head {h00=0x0028, h01=0x0050, text=» LD A1,APLTAB+STKCOM GET ADDRESS TO «, t00=0x0029, t01=0x0120}
0x0414e…0417a               Head {h00=0x0028, h01=0x0050, text=» ADK A1,2 CURRENT APPL. CONTR. BLOCK«, t00=0x0029, t01=0x014c}
0x0417a…041b4               Head {h00=0x0036, h01=0x0050, text=» LD A12,APLADA,A1 MOST SIGN. PART OF DISC ADDRESS «, t00=0x0029, t01=0x0178}
0x041b4…041f0               Head {h00=0x0038, h01=0x0050, text=» LD A11,APLADA+2,A1 LEAST SIGN. PART OF DISC ADDRESS«, t00=0x002a, t01=0x0022}
0x041f0…0421c               Head {h00=0x0028, h01=0x0050, text=» LD A10,READ GET SUBROUTINE ADDRESS «, t00=0x002a, t01=0x005e}
0x0421c…04242               Head {h00=0x0022, h01=0x0050, text=» CFR A14,A10 READ FIRST SECTOR«, t00=0x002a, t01=0x008a}
0x04242…04256               Head {h00=0x0010, h01=0x0050, text=»AP:233 EQU *«, t00=0x002a, t01=0x00b0}
0x04256…0428a               Head {h00=0x0030, h01=0x0050, text=» LD A1,APLTAB+STKCOM GET APPL. TABLE ADDRESS«, t00=0x002a, t01=0x00c4}
0x0428a…042b6               Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A1 GET NO OF APPL. TO LOAD «, t00=0x002a, t01=0x00f8}
0x042b6…042d8               Head {h00=0x001e, h01=0x0050, text=» NGR A6,A6 NEGATE AND SAVE«, t00=0x002a, t01=0x0124}
0x042d8…04300               Head {h00=0x0024, h01=0x0050, text=» ST A6,APLCNT+STKEND AS COUNTER «, t00=0x002a, t01=0x0146}
0x04300…04312               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x002a, t01=0x016e}
0x04312…0434a               Head {h00=0x0034, h01=0x0050, text=» ST A1,CURAPL+STKEND CURRENT APPL. CONTROL BLOCK«, t00=0x002a, t01=0x0180}
0x0434a…0435e               Head {h00=0x0010, h01=0x0050, text=»AP:234 EQU *«, t00=0x002b, t01=0x0028}
0x0435e…0438a               Head {h00=0x0028, h01=0x0050, text=» LD A7,SCTEFA GET FIRST FRAME TO USE«, t00=0x002b, t01=0x003c}
0x0438a…043b6               Head {h00=0x0028, h01=0x0050, text=» LD A5,SCTEFA+2 AND AREA EMPTY IN IT«, t00=0x002b, t01=0x0068}
0x043b6…043f4               Head {h00=0x003a, h01=0x0050, text=» LD A1,CURAPL+STKEND RESTORE APPL. CONTROL BLOCK ADDR.«, t00=0x002b, t01=0x0094}
0x043f4…04402               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x00d2}
0x04402…04416               Head {h00=0x0010, h01=0x0050, text=»AP:235 EQU *«, t00=0x002b, t01=0x00e0}
0x04416…04420               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00f4}
0x04420…04452               Head {h00=0x002e, h01=0x0050, text=»*  SAVE INFORMATION ABOUT THE LOAD MODULE «, t00=0x002b, t01=0x00fe}
0x04452…0445c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0130}
0x0445c…04494               Head {h00=0x0034, h01=0x0050, text=» CM APLLAP,A1 RESET NO OF MMU ENTRIES TO UPDATE «, t00=0x002b, t01=0x013a}
0x04494…044ca               Head {h00=0x0032, h01=0x0050, text=» CM APLSEG,A1 RESET PHYSICAL ADDRESS TO FIRST «, t00=0x002b, t01=0x0172}
0x044ca…044f8               Head {h00=0x002a, h01=0x0050, text=» CM APLSEG+2,A1 CORE RESIDENT SEGMENT «, t00=0x002c, t01=0x0018}
0x044f8…04530               Head {h00=0x0034, h01=0x0050, text=» CM APLMMC,A1 CLEAR REL. POSITION OF CONF. DATA «, t00=0x002c, t01=0x0046}
0x04530…04562               Head {h00=0x002e, h01=0x0050, text=» CM APLPSZ,A1 CLEAR SEGMENT SIZE ENTRY =2 «, t00=0x002c, t01=0x007e}
0x04562…04596               Head {h00=0x0030, h01=0x0050, text=» CM TNBRSG+STKEND CLEAR NBR. OF SEGMENTS =5 «, t00=0x002c, t01=0x00b0}
0x04596…045d4               Head {h00=0x003a, h01=0x0050, text=» LDR* A6,A9 GET PGM. START ADDRESS (UNSEGMENTED APPL.)«, t00=0x002c, t01=0x00e4}
0x045d4…045f2               Head {h00=0x001a, h01=0x0050, text=» ST A6,APLSTA,A1 SAVE «, t00=0x002c, t01=0x0122}
0x045f2…04618               Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x002c, t01=0x0140}
0x04618…04644               Head {h00=0x0028, h01=0x0050, text=» LD A6,PRGLG1+8,A9 GET PROGRAM TYPE «, t00=0x002c, t01=0x0166}
0x04644…0467c (45, 0, 400)  Head {h00=0x0034, h01=0x0050, text=» LDKL A4,/1000 INITIALIZE BIT SETTING (BIT 3=1) «, t00=0x002d, t01=0x0004}
0x0467c…046a4               Head {h00=0x0024, h01=0x0050, text=» CWK A6,'CR' CREDIT APPLICATION?«, t00=0x002d, t01=0x003c}
0x046a4…046ba               Head {h00=0x0012, h01=0x0050, text=» RF(E) AP2340 «, t00=0x002d, t01=0x0064}
0x046ba…046c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x007a}
0x046c4…046f6               Head {h00=0x002e, h01=0x0050, text=» SLL A4,1 BIT SETTING FOR COBOL (BIT 2=1) «, t00=0x002d, t01=0x0084}
0x046f6…0471e               Head {h00=0x0024, h01=0x0050, text=» CWK A6,'CO' COBOL APPLICATION? «, t00=0x002d, t01=0x00b6}
0x0471e…04734               Head {h00=0x0012, h01=0x0050, text=» RF(E) AP2340 «, t00=0x002d, t01=0x00de}
0x04734…0473e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00f4}
0x0473e…04770               Head {h00=0x002e, h01=0x0050, text=» SLL A4,1 BIT SETTING FOR BASIC (BIT 1=1) «, t00=0x002d, t01=0x00fe}
0x04770…04796               Head {h00=0x0022, h01=0x0050, text=» CWK A6,'BA' BASIC APLICATION?«, t00=0x002d, t01=0x0130}
0x04796…047ac               Head {h00=0x0012, h01=0x0050, text=» RF(E) AP2340 «, t00=0x002d, t01=0x0156}
0x047ac…047b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x016c}
0x047b6…047de               Head {h00=0x0024, h01=0x0050, text=» LDKL A6,'AS' SET ASSEMBLER TYPE«, t00=0x002d, t01=0x0176}
0x047de…04814               Head {h00=0x0032, h01=0x0050, text=» SLL A4,1 BIT SETTING FOR ASSEMBLER (BIT 0=1) «, t00=0x002e, t01=0x000e}
0x04814…04828               Head {h00=0x0010, h01=0x0050, text=»AP2340 EQU *«, t00=0x002e, t01=0x0044}
0x04828…04856               Head {h00=0x002a, h01=0x0050, text=» ST A6,APLTYP,A1 SAVE APPLICATION TYPE«, t00=0x002e, t01=0x0058}
0x04856…04886               Head {h00=0x002c, h01=0x0050, text=» CWK A6,'AS' ASSEMBLER ALWAYS ALLOWED =2«, t00=0x002e, t01=0x0086}
0x04886…048a0               Head {h00=0x0016, h01=0x0050, text=» RF(E) AP2345   =2«, t00=0x002e, t01=0x00b6}
0x048a0…048da               Head {h00=0x0036, h01=0x0050, text=» AN A4,OPTION+STKEND LOOK IF THIS TYPE ALLOWED =2 «, t00=0x002e, t01=0x00d0}
0x048da…048f8               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) AP2345 YES =2 «, t00=0x002e, t01=0x010a}
0x048f8…04928               Head {h00=0x002c, h01=0x0050, text=» LDK A1,LMP9 NO, WRONG MONITOR OPTION =2«, t00=0x002e, t01=0x0128}
0x04928…04940               Head {h00=0x0014, h01=0x0050, text=» CALL ERROR   =2«, t00=0x002e, t01=0x0158}
0x04940…0495a               Head {h00=0x0016, h01=0x0050, text=»AP2345 EQU *   =2 «, t00=0x002e, t01=0x0170}
0x0495a…04984               Head {h00=0x0026, h01=0x0050, text=» ORR A2,A4 SET BIT IN OPTION WORD «, t00=0x002e, t01=0x018a}
0x04984…049a2               Head {h00=0x001a, h01=0x0050, text=» ST A2,SCTOPT AND SAVE«, t00=0x002f, t01=0x0024}
0x049a2…049b6               Head {h00=0x0010, h01=0x0050, text=» CWK A6,'AS'«, t00=0x002f, t01=0x0042}
0x049b6…049e4               Head {h00=0x002a, h01=0x0050, text=» RF(E) AP2350 SKIP IF ASSEMBLER APPL. «, t00=0x002f, t01=0x0056}
0x049e4…049ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0084}
0x049ee…04a1e               Head {h00=0x002c, h01=0x0050, text=» LD A3,PAGLG+8,A9 GET DEFINED PAGE SIZE «, t00=0x002f, t01=0x008e}
0x04a1e…04a58               Head {h00=0x0036, h01=0x0050, text=» CW A3,SCTPSZ COMPARE WITH PREVIOUSLY DEFINED SIZE«, t00=0x002f, t01=0x00be}
0x04a58…04a8a               Head {h00=0x002e, h01=0x0050, text=» RF(NG) AP2350 IF LESS, DON'T UPDATE SIZE «, t00=0x002f, t01=0x00f8}
0x04a8a…04a94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x012a}
0x04a94…04ac8               Head {h00=0x0030, h01=0x0050, text=» ST A3,SCTPSZ SAVE LARGEST DEFINED PAGE SIZE«, t00=0x002f, t01=0x0134}
0x04ac8…04adc               Head {h00=0x0010, h01=0x0050, text=»AP2350 EQU *«, t00=0x002f, t01=0x0168}
0x04adc…04af2               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002f, t01=0x017c}
0x04af2…04b00 (48, 0, 400)  Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0004}
0x04b00…04b0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0012}
0x04b0a…04b40               Head {h00=0x0032, h01=0x0050, text=»*  EXECUTION PATH FOR SYSTEMS WITH MMU OPTION «, t00=0x0030, t01=0x001c}
0x04b40…04b4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0052}
0x04b4a…04b76               Head {h00=0x0028, h01=0x0050, text=» CWK A6,'AS' ASSEMBLER APPLICATION? «, t00=0x0030, t01=0x005c}
0x04b76…04b9e               Head {h00=0x0024, h01=0x0050, text=» ABL(E) AP:330 YES! NO SEGMENTS «, t00=0x0030, t01=0x0088}
0x04b9e…04bb6               Head {h00=0x0014, h01=0x0050, text=» LDR A4,A3 SAVE «, t00=0x0030, t01=0x00b0}
0x04bb6…04bde               Head {h00=0x0024, h01=0x0050, text=» ANKL A4,/3FF EVEN 1K MULTIPLE? «, t00=0x0030, t01=0x00c8}
0x04bde…04bf8               Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:237 YES!«, t00=0x0030, t01=0x00f0}
0x04bf8…04c02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x010a}
0x04c02…04c16               Head {h00=0x0010, h01=0x0050, text=» LDK A1,LMP8«, t00=0x0030, t01=0x0114}
0x04c16…04c42               Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE PAGE SIZE ERROR«, t00=0x0030, t01=0x0128}
0x04c42…04c4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0154}
0x04c4c…04c60               Head {h00=0x0010, h01=0x0050, text=»AP:237 EQU *«, t00=0x0030, t01=0x015e}
0x04c60…04c96               Head {h00=0x0032, h01=0x0050, text=» LD A2,NUMSEG+8,A9 NUMBER OF SEGMENTS DEFINED «, t00=0x0030, t01=0x0172}
0x04c96…04ca0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0018}
0x04ca0…04cb4               Head {h00=0x0010, h01=0x0050, text=»AP:238 EQU *«, t00=0x0031, t01=0x0022}
0x04cb4…04cd8               Head {h00=0x0020, h01=0x0050, text=» ABL(Z) AP:330 NO SEGMENTS! «, t00=0x0031, t01=0x0036}
0x04cd8…04ce2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x005a}
0x04ce2…04d18               Head {h00=0x0032, h01=0x0050, text=» CF A14,ALOCSG RESERVE AREA FOR RESIDENT SEGM.«, t00=0x0031, t01=0x0064}
0x04d18…04d22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x009a}
0x04d22…04d58               Head {h00=0x0032, h01=0x0050, text=»*  A1 - POINTER TO CURRENT APPL. CONTR. BLOCK «, t00=0x0031, t01=0x00a4}
0x04d58…04d7e               Head {h00=0x0022, h01=0x0050, text=»*  A3 - PAGESIZE IN 1K BLOCKS «, t00=0x0031, t01=0x00da}
0x04d7e…04da4               Head {h00=0x0022, h01=0x0050, text=»*  A5 - OFFSET WITHIN 4K PAGE «, t00=0x0031, t01=0x0100}
0x04da4…04dd2               Head {h00=0x002a, h01=0x0050, text=»*  A7 - PAGE FRAME ADDR. (PHYS. ADDR.)«, t00=0x0031, t01=0x0126}
0x04dd2…04e02               Head {h00=0x002c, h01=0x0050, text=»*  A4 - AREA LEFT IN LAST 4K PAGE FRAME «, t00=0x0031, t01=0x0154}
0x04e02…04e0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0184}
0x04e0c…04e38               Head {h00=0x0028, h01=0x0050, text=»*  STORE ADDRESS(ES) TO PAGE FRAMES «, t00=0x0031, t01=0x018e}
0x04e38…04e62               Head {h00=0x0026, h01=0x0050, text=»*  HOLDING THE FIRST LOGICAL PAGE «, t00=0x0032, t01=0x002a}
0x04e62…04e6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0054}
0x04e6c…04e9c               Head {h00=0x002c, h01=0x0050, text=» SRL A3,10 SEGMENT SIZE IN 1K BLOCKS =2 «, t00=0x0032, t01=0x005e}
0x04e9c…04ec8               Head {h00=0x0028, h01=0x0050, text=» LDKL A6,MMEND GET END OF MMU-TABLE «, t00=0x0032, t01=0x008e}
0x04ec8…04eee               Head {h00=0x0022, h01=0x0050, text=» LDKL A8,16 AND NO OF ENTRIES «, t00=0x0032, t01=0x00ba}
0x04eee…04f1c               Head {h00=0x002a, h01=0x0050, text=» LDR A4,A5 GET AREA LEFT IN LAST FRAME«, t00=0x0032, t01=0x00e0}
0x04f1c…04f30               Head {h00=0x0010, h01=0x0050, text=»AP:295 EQU *«, t00=0x0032, t01=0x010e}
0x04f30…04f5c               Head {h00=0x0028, h01=0x0050, text=» SUK A6,2 DECREMENT MMU ENTRY ADDR. «, t00=0x0032, t01=0x0122}
0x04f5c…04f8a               Head {h00=0x002a, h01=0x0050, text=» SUKL A8,1 DECREMENT MMU ENTRY POINTER«, t00=0x0032, t01=0x014e}
0x04f8a…04fc0               Head {h00=0x0032, h01=0x0050, text=» SUK A3,4 DECREMENT PAGE SIZE WITH FRAME SIZE «, t00=0x0032, t01=0x017c}
0x04fc0…04fd6               Head {h00=0x0012, h01=0x0050, text=» RB(P) AP:295 «, t00=0x0033, t01=0x0022}
0x04fd6…04ffe               Head {h00=0x0024, h01=0x0050, text=» RF(Z) AP:300 EVEN 4K BYTES PAGE«, t00=0x0033, t01=0x0038}
0x04ffe…05008               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0060}
0x05008…0502e               Head {h00=0x0022, h01=0x0050, text=»*  RESERVE ONE EXTRA MMU ENTRY«, t00=0x0033, t01=0x006a}
0x0502e…05052               Head {h00=0x0020, h01=0x0050, text=»*  WHEN PAGE SIZE IS NOT AN «, t00=0x0033, t01=0x0090}
0x05052…05070               Head {h00=0x001a, h01=0x0050, text=»*  EVEN MULTIPLE OF 4K«, t00=0x0033, t01=0x00b4}
0x05070…0507a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00d2}
0x0507a…050a2               Head {h00=0x0024, h01=0x0050, text=» LD A3,PAGLG+8,A9 GET PAGE SIZE «, t00=0x0033, t01=0x00dc}
0x050a2…050d0               Head {h00=0x002a, h01=0x0050, text=» ANKL A3,/C00 GET LENGTH IN MODULO 4K «, t00=0x0033, t01=0x0104}
0x050d0…050f4               Head {h00=0x0020, h01=0x0050, text=» CWK A3,/400 PAGE SIZE = 1K?«, t00=0x0033, t01=0x0132}
0x050f4…05120               Head {h00=0x0028, h01=0x0050, text=» RF(E) AP:300 YES! ONE ENTRY ENOUGH «, t00=0x0033, t01=0x0156}
0x05120…0512a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0182}
0x0512a…05154               Head {h00=0x0026, h01=0x0050, text=» SUK A6,2 ALLOCATE ONE ENTRY EXTRA«, t00=0x0033, t01=0x018c}
0x05154…05166               Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x0034, t01=0x0026}
0x05166…05170               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0038}
0x05170…05184               Head {h00=0x0010, h01=0x0050, text=»AP:300 EQU *«, t00=0x0034, t01=0x0042}
0x05184…051bc               Head {h00=0x0034, h01=0x0050, text=» LD A3,SEGCNT+STKEND ANY CORE RESIDENT SEGMENTS?«, t00=0x0034, t01=0x0056}
0x051bc…051d6               Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:310 NO! «, t00=0x0034, t01=0x008e}
0x051d6…051e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00a8}
0x051e0…0520c               Head {h00=0x0028, h01=0x0050, text=» LDR A2,A7 GET SEGMENT FRAME ADDRESS«, t00=0x0034, t01=0x00b2}
0x0520c…0522e               Head {h00=0x001e, h01=0x0050, text=» LDR A3,A6 SAVE MMU ENTRY «, t00=0x0034, t01=0x00de}
0x0522e…05238               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0100}
0x05238…0524c               Head {h00=0x0010, h01=0x0050, text=»AP:305 EQU *«, t00=0x0034, t01=0x010a}
0x0524c…0527a               Head {h00=0x002a, h01=0x0050, text=» STR A2,A3 STORE ADDRESS TO PAGE FRAME«, t00=0x0034, t01=0x011e}
0x0527a…052a8               Head {h00=0x002a, h01=0x0050, text=» ADK A3,2 INCREMENT MMU ENTRY ADDRESS «, t00=0x0034, t01=0x014c}
0x052a8…052d0               Head {h00=0x0024, h01=0x0050, text=» CWK A3,MMEND END OF MMU TABLE? «, t00=0x0034, t01=0x017a}
0x052d0…052ea               Head {h00=0x0016, h01=0x0050, text=» RF(E) AP:310 YES!«, t00=0x0035, t01=0x0012}
0x052ea…052f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x002c}
0x052f4…05324               Head {h00=0x002c, h01=0x0050, text=» ADKL A2,/400 INCREMENT PAGE FRAME ADDR.«, t00=0x0035, t01=0x0036}
0x05324…05336               Head {h00=0x000e, h01=0x0050, text=» RB AP:305«, t00=0x0035, t01=0x0066}
0x05336…05340               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0078}
0x05340…05354               Head {h00=0x0010, h01=0x0050, text=»AP:310 EQU *«, t00=0x0035, t01=0x0082}
0x05354…0535e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0096}
0x0535e…0537e               Head {h00=0x001c, h01=0x0050, text=»*  SAVE LOGICAL ADDRESS «, t00=0x0035, t01=0x00a0}
0x0537e…05394               Head {h00=0x0012, h01=0x0050, text=»*  TO SEGMENT «, t00=0x0035, t01=0x00c0}
0x05394…0539e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00d6}
0x0539e…053be               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A8 GET MMU ENTRY«, t00=0x0035, t01=0x00e0}
0x053be…053e8               Head {h00=0x0026, h01=0x0050, text=» SLL A2,12 MOVE TO 4 LEFTMOST BITS«, t00=0x0035, t01=0x0100}
0x053e8…05422               Head {h00=0x0036, h01=0x0050, text=» ST A2,APLLAP,A1 SAVE IN APPLICATION CONTROL BLOCK«, t00=0x0035, t01=0x012a}
0x05422…0544e               Head {h00=0x0028, h01=0x0050, text=» ORR A2,A4 CONCATENATE DISPLACEMENT «, t00=0x0035, t01=0x0164}
0x0544e…0548a               Head {h00=0x0038, h01=0x0050, text=» ST A2,LSTASG+STKEND AND SAVE AS LOGICAL START ADDR.«, t00=0x0035, t01=0x0190}
0x0548a…0549c               Head {h00=0x000e, h01=0x0050, text=» RF AP:335«, t00=0x0036, t01=0x003c}
0x0549c…054a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x004e}
0x054a6…054c4               Head {h00=0x001a, h01=0x0050, text=»*  NO SEGMENTS DEFINED«, t00=0x0036, t01=0x0058}
0x054c4…054ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0076}
0x054ce…054e2               Head {h00=0x0010, h01=0x0050, text=»AP:330 EQU *«, t00=0x0036, t01=0x0080}
0x054e2…05516               Head {h00=0x0030, h01=0x0050, text=» LDK A3,0 RESET NO OF MMU ENTRIES TO UPDATE «, t00=0x0036, t01=0x0094}
0x05516…05542               Head {h00=0x0028, h01=0x0050, text=» LDKL A6,MMEND INITIATE MMU POINTER «, t00=0x0036, t01=0x00c8}
0x05542…0556c               Head {h00=0x0026, h01=0x0050, text=» LDKL A8,16 AND MMU ENTRY POINTER «, t00=0x0036, t01=0x00f4}
0x0556c…05596               Head {h00=0x0026, h01=0x0050, text=» LDR A4,A5 AREA LEFT IN LAST FRAME«, t00=0x0036, t01=0x011e}
0x05596…055aa               Head {h00=0x0010, h01=0x0050, text=»AP:335 EQU *«, t00=0x0036, t01=0x0148}
0x055aa…055b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x015c}
0x055b4…055e0               Head {h00=0x0028, h01=0x0050, text=»* COMPUTE APPLICATION START ADDRESS «, t00=0x0036, t01=0x0166}
0x055e0…055ea (55, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0004}
0x055ea…0561e               Head {h00=0x0030, h01=0x0050, text=»*  A1 - POINTER TO APPLICATION CONTROL BLOCK«, t00=0x0037, t01=0x000e}
0x0561e…0564e               Head {h00=0x002c, h01=0x0050, text=»*  A4 - AREA LEFT IN CURRENT PAGE FRAME «, t00=0x0037, t01=0x0042}
0x0564e…05674               Head {h00=0x0022, h01=0x0050, text=»*  A7 - PHYSICAL PAGE ADDRESS «, t00=0x0037, t01=0x0072}
0x05674…05696               Head {h00=0x001e, h01=0x0050, text=»*  A6 - MMU ENTRY ADDRESS «, t00=0x0037, t01=0x0098}
0x05696…056b8               Head {h00=0x001e, h01=0x0050, text=»*  A8 - CURRENT MMU ENTRY «, t00=0x0037, t01=0x00ba}
0x056b8…056c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00dc}
0x056c2…056f6               Head {h00=0x0030, h01=0x0050, text=» LD A2,COMLG,A9 COMLG OF CORE RESIDENT PART «, t00=0x0037, t01=0x00e6}
0x056f6…05724               Head {h00=0x002a, h01=0x0050, text=» LD A3,APLTYP,A1 GET APPLICATION TYPE «, t00=0x0037, t01=0x011a}
0x05724…05744               Head {h00=0x001c, h01=0x0050, text=» CWK A3,'AS' ASSEMBLER? «, t00=0x0037, t01=0x0148}
0x05744…0575e               Head {h00=0x0016, h01=0x0050, text=» RF(NE) AP:336 NO!«, t00=0x0037, t01=0x0168}
0x0575e…05768               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0182}
0x05768…05798               Head {h00=0x002c, h01=0x0050, text=» ADK A2,10 YES, ADD 5 WORDS FOR DEBUGGER«, t00=0x0037, t01=0x018c}
0x05798…057ac               Head {h00=0x0010, h01=0x0050, text=»AP:336 EQU *«, t00=0x0038, t01=0x002c}
0x057ac…057be               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0038, t01=0x0040}
0x057be…057e6               Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN LENGTH «, t00=0x0038, t01=0x0052}
0x057e6…057f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x007a}
0x057f0…05818               Head {h00=0x0024, h01=0x0050, text=»*  IF APPLICATION IS LARGER THAN«, t00=0x0038, t01=0x0084}
0x05818…0583c               Head {h00=0x0020, h01=0x0050, text=»*  60 K BYTES, START ON A 4K«, t00=0x0038, t01=0x00ac}
0x0583c…05862               Head {h00=0x0022, h01=0x0050, text=»*  BOUNDARY, TO MAKE SURE THAT«, t00=0x0038, t01=0x00d0}
0x05862…05884               Head {h00=0x001e, h01=0x0050, text=»*  LOGICAL MEMORY WILL BE «, t00=0x0038, t01=0x00f6}
0x05884…058a0               Head {h00=0x0018, h01=0x0050, text=»*  MAXIMAL POSSIBLE.«, t00=0x0038, t01=0x0118}
0x058a0…058aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0134}
0x058aa…058bc               Head {h00=0x000e, h01=0x0050, text=» LDR A5,A2«, t00=0x0038, t01=0x013e}
0x058bc…058de               Head {h00=0x001e, h01=0x0050, text=» SRL A5,12 NO OF 4K BLOCKS«, t00=0x0038, t01=0x0150}
0x058de…058fc               Head {h00=0x001a, h01=0x0050, text=» CWK A5,15 >60 KBYTES?«, t00=0x0038, t01=0x0172}
0x058fc…05916               Head {h00=0x0016, h01=0x0050, text=» RF(L) AP:337 NO! «, t00=0x0038, t01=0x0190}
0x05916…05920               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x001a}
0x05920…05948               Head {h00=0x0024, h01=0x0050, text=» LDK A4,0 START ON A 4K BOUNDARY«, t00=0x0039, t01=0x0024}
0x05948…0595a               Head {h00=0x000e, h01=0x0050, text=» RF AP:341«, t00=0x0039, t01=0x004c}
0x0595a…05964               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x005e}
0x05964…05978               Head {h00=0x0010, h01=0x0050, text=»AP:337 EQU *«, t00=0x0039, t01=0x0068}
0x05978…059a2               Head {h00=0x0026, h01=0x0050, text=» ADK A2,0 RESTORE LENGTH CONDITION«, t00=0x0039, t01=0x007c}
0x059a2…059cc               Head {h00=0x0026, h01=0x0050, text=» RF(N) AP:340 LARGER THAN ONE PAGE«, t00=0x0039, t01=0x00a6}
0x059cc…059d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00d0}
0x059d6…05a00               Head {h00=0x0026, h01=0x0050, text=»* APPLICATION IS SMALLER THAN 32 K«, t00=0x0039, t01=0x00da}
0x05a00…05a2a               Head {h00=0x0026, h01=0x0050, text=»* BUT IS IT SMALLER THAN AREA LEFT«, t00=0x0039, t01=0x0104}
0x05a2a…05a4c               Head {h00=0x001e, h01=0x0050, text=»* IN LAST ALLOCATED PAGE? «, t00=0x0039, t01=0x012e}
0x05a4c…05a56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0150}
0x05a56…05a68               Head {h00=0x000e, h01=0x0050, text=» CWR A2,A4«, t00=0x0039, t01=0x015a}
0x05a68…05a84               Head {h00=0x0018, h01=0x0050, text=» RF(G) AP:340 LARGER«, t00=0x0039, t01=0x016c}
0x05a84…05a8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0188}
0x05a8e…05aba (58, 0, 400)  Head {h00=0x0028, h01=0x0050, text=»* APPLICATION LENGTH LESS THAN AREA «, t00=0x003a, t01=0x0004}
0x05aba…05ad6               Head {h00=0x0018, h01=0x0050, text=»* LEFT IN LAST PAGE «, t00=0x003a, t01=0x0030}
0x05ad6…05afa               Head {h00=0x0020, h01=0x0050, text=»* COPY FRAME ADDRESS IN NEXT«, t00=0x003a, t01=0x004c}
0x05afa…05b0e               Head {h00=0x0010, h01=0x0050, text=»* MMU ENTRY «, t00=0x003a, t01=0x0070}
0x05b0e…05b18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0084}
0x05b18…05b22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x008e}
0x05b22…05b34               Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x003a, t01=0x0098}
0x05b34…05b5a               Head {h00=0x0022, h01=0x0050, text=» RF(N) TABOVF TABBE OVERFLOW! «, t00=0x003a, t01=0x00aa}
0x05b5a…05b64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00d0}
0x05b64…05b76               Head {h00=0x000e, h01=0x0050, text=» SUK A6,2 «, t00=0x003a, t01=0x00da}
0x05b76…05b9a               Head {h00=0x0020, h01=0x0050, text=» STR A7,A6 UPDATE MMU ENTRY «, t00=0x003a, t01=0x00ec}
0x05b9a…05bca               Head {h00=0x002c, h01=0x0050, text=» LDR A5,A2 RESTORE LENGTH OF COMMON PART«, t00=0x003a, t01=0x0110}
0x05bca…05bdc               Head {h00=0x000e, h01=0x0050, text=» RF AP:351«, t00=0x003a, t01=0x0140}
0x05bdc…05be6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0152}
0x05be6…05bfa               Head {h00=0x0010, h01=0x0050, text=»AP:340 EQU *«, t00=0x003a, t01=0x015c}
0x05bfa…05c04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0170}
0x05c04…05c30               Head {h00=0x0028, h01=0x0050, text=»*  RESERVE ENTRIES IN MMU TABLE FOR «, t00=0x003a, t01=0x017a}
0x05c30…05c56               Head {h00=0x0022, h01=0x0050, text=»*  COMMON PART OF APPLICATION «, t00=0x003b, t01=0x0016}
0x05c56…05c60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x003c}
0x05c60…05c88               Head {h00=0x0024, h01=0x0050, text=»*  A4 - AREA MAPPED BUT NOT USED«, t00=0x003b, t01=0x0046}
0x05c88…05caa               Head {h00=0x001e, h01=0x0050, text=»*       IN LAST MMU ENTRY «, t00=0x003b, t01=0x006e}
0x05caa…05cd0               Head {h00=0x0022, h01=0x0050, text=»*  A2 - LENGTH OF COMMON PART «, t00=0x003b, t01=0x0090}
0x05cd0…05cf0               Head {h00=0x001c, h01=0x0050, text=» LDR A4,A4 EMPTY FRAME? «, t00=0x003b, t01=0x00b6}
0x05cf0…05d0a               Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:341 YES!«, t00=0x003b, t01=0x00d6}
0x05d0a…05d14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00f0}
0x05d14…05d40               Head {h00=0x0028, h01=0x0050, text=» SUKL A8,1 NO, ANY MMU ENTRIES LEFT?«, t00=0x003b, t01=0x00fa}
0x05d40…05d5a               Head {h00=0x0016, h01=0x0050, text=» RF(N) TABOVF NO! «, t00=0x003b, t01=0x0126}
0x05d5a…05d64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0140}
0x05d64…05d90               Head {h00=0x0028, h01=0x0050, text=» SUK A6,2 ADVANCE TO NEXT MMU ENTRY «, t00=0x003b, t01=0x014a}
0x05d90…05dba               Head {h00=0x0026, h01=0x0050, text=» STR A7,A6 AND COPY FRAME ADDRESS «, t00=0x003b, t01=0x0176}
0x05dba…05dce               Head {h00=0x0010, h01=0x0050, text=»AP:341 EQU *«, t00=0x003c, t01=0x0010}
0x05dce…05e04               Head {h00=0x0032, h01=0x0050, text=» SUR A2,A4 SUBTRACT AREA LEFT IN CURRENT FRAME«, t00=0x003c, t01=0x0024}
0x05e04…05e34               Head {h00=0x002c, h01=0x0050, text=» LDK A4,0 RESET AREA LEFT IN LAST FRAME «, t00=0x003c, t01=0x005a}
0x05e34…05e62               Head {h00=0x002a, h01=0x0050, text=» LDR A5,A2 SAVE REMAINING AREA NEEDED «, t00=0x003c, t01=0x008a}
0x05e62…05e84               Head {h00=0x001e, h01=0x0050, text=» RF(Z) AP:351 NOTHING LEFT«, t00=0x003c, t01=0x00b8}
0x05e84…05e8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00da}
0x05e8e…05ebc               Head {h00=0x002a, h01=0x0050, text=» SRL A2,12 CONVERT TO NO OF 4K FRAMES «, t00=0x003c, t01=0x00e4}
0x05ebc…05ed2               Head {h00=0x0012, h01=0x0050, text=» ANKL A5,/0FFF«, t00=0x003c, t01=0x0112}
0x05ed2…05ef4               Head {h00=0x001e, h01=0x0050, text=» RF(Z) AP:342 NO REMAINDER«, t00=0x003c, t01=0x0128}
0x05ef4…05efe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x014a}
0x05efe…05f28               Head {h00=0x0026, h01=0x0050, text=» ADK A2,1 ALLOCATE ONE MORE ENTRY «, t00=0x003c, t01=0x0154}
0x05f28…05f32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x017e}
0x05f32…05f4e               Head {h00=0x0018, h01=0x0050, text=»*  UPDTE MMU ENTRIES«, t00=0x003c, t01=0x0188}
0x05f4e…05f58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0014}
0x05f58…05f6c               Head {h00=0x0010, h01=0x0050, text=»AP:342 EQU *«, t00=0x003d, t01=0x001e}
0x05f6c…05f96               Head {h00=0x0026, h01=0x0050, text=» SUK A2,1 MORE ENTRIES TO UPDATE? «, t00=0x003d, t01=0x0032}
0x05f96…05fb0               Head {h00=0x0016, h01=0x0050, text=» RF(N) AP:350 NO! «, t00=0x003d, t01=0x005c}
0x05fb0…05fba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0076}
0x05fba…05fe8               Head {h00=0x002a, h01=0x0050, text=» SUKL A8,1 DECREMENT MMU ENTRY POINTER«, t00=0x003d, t01=0x0080}
0x05fe8…0600e               Head {h00=0x0022, h01=0x0050, text=» RF(N) TABOVF TABLE OVERFLOW! «, t00=0x003d, t01=0x00ae}
0x0600e…06018               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00d4}
0x06018…06044               Head {h00=0x0028, h01=0x0050, text=» SUK A6,2 DECREMENT MMU ENTRY ADDR. «, t00=0x003d, t01=0x00de}
0x06044…06072               Head {h00=0x002a, h01=0x0050, text=» SUKL A7,/400 DECREMENT FRAME ADDRESS «, t00=0x003d, t01=0x010a}
0x06072…06098               Head {h00=0x0022, h01=0x0050, text=» STR A7,A6 STORE FRAME ADDRESS«, t00=0x003d, t01=0x0138}
0x06098…060aa               Head {h00=0x000e, h01=0x0050, text=» RB AP:342«, t00=0x003d, t01=0x015e}
0x060aa…060b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0170}
0x060b4…060c8               Head {h00=0x0010, h01=0x0050, text=»TABOVF EQU *«, t00=0x003d, t01=0x017a}
0x060c8…060dc               Head {h00=0x0010, h01=0x0050, text=» LDK A1,LMP7«, t00=0x003d, t01=0x018e}
0x060dc…06106               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR SIGNAL TABBE OVERFLOW!«, t00=0x003e, t01=0x0012}
0x06106…0611a               Head {h00=0x0010, h01=0x0050, text=»MEMOVF EQU *«, t00=0x003e, t01=0x003c}
0x0611a…06130               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x003e, t01=0x0050}
0x06130…06154               Head {h00=0x0020, h01=0x0050, text=» CALL ERROR MEMORY OVERFLOW!«, t00=0x003e, t01=0x0066}
0x06154…0615e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x008a}
0x0615e…06172               Head {h00=0x0010, h01=0x0050, text=»AP:350 EQU *«, t00=0x003e, t01=0x0094}
0x06172…0617c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00a8}
0x0617c…061b0               Head {h00=0x0030, h01=0x0050, text=» LDR A5,A5 RESTORE AREA TO USE IN LAST FRAME«, t00=0x003e, t01=0x00b2}
0x061b0…061c6               Head {h00=0x0012, h01=0x0050, text=» RF(Z) AP:351 «, t00=0x003e, t01=0x00e6}
0x061c6…061d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00fc}
0x061d0…061f6               Head {h00=0x0022, h01=0x0050, text=» LDKL A4,PAGSIZ GET FRAME SIZE«, t00=0x003e, t01=0x0106}
0x061f6…0620a               Head {h00=0x0010, h01=0x0050, text=»AP:351 EQU *«, t00=0x003e, t01=0x012c}
0x0620a…06242               Head {h00=0x0034, h01=0x0050, text=» SUR A4,A5 ALLOCATE REMAINIG AREA IN LAST FRAME «, t00=0x003e, t01=0x0140}
0x06242…06262               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A8 GET MMU ENTRY«, t00=0x003e, t01=0x0178}
0x06262…06290               Head {h00=0x002a, h01=0x0050, text=» SLL A2,12 MOVE TO FOUR LEFTMOST BITS «, t00=0x003f, t01=0x0008}
0x06290…062a2               Head {h00=0x000e, h01=0x0050, text=» LDR A8,A2«, t00=0x003f, t01=0x0036}
0x062a2…062ca               Head {h00=0x0024, h01=0x0050, text=» ORR A8,A4 LOGICAL START ADDRESS«, t00=0x003f, t01=0x0048}
0x062ca…062f6               Head {h00=0x0028, h01=0x0050, text=» CWK A3,'AS' ASSEMBLER APPLICATION? «, t00=0x003f, t01=0x0070}
0x062f6…06310               Head {h00=0x0016, h01=0x0050, text=» RF(NE) AP:352 NO!«, t00=0x003f, t01=0x009c}
0x06310…0631a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00b6}
0x0631a…06348               Head {h00=0x002a, h01=0x0050, text=» ADKL A8,10 SKIP FIVE PRECEEDING WORDS«, t00=0x003f, t01=0x00c0}
0x06348…0635c               Head {h00=0x0010, h01=0x0050, text=»AP:352 EQU *«, t00=0x003f, t01=0x00ee}
0x0635c…0637e               Head {h00=0x001e, h01=0x0050, text=» ST A8,LLDADR+STKEND SAVE «, t00=0x003f, t01=0x0102}
0x0637e…0639c               Head {h00=0x001a, h01=0x0050, text=» ST A7,SCTEFA AND SAVE«, t00=0x003f, t01=0x0124}
0x0639c…063cc               Head {h00=0x002c, h01=0x0050, text=» ST A4,SCTEFA+2 SAVE OFFSET WITHIN FRAME«, t00=0x003f, t01=0x0142}
0x063cc…0640a               Head {h00=0x003a, h01=0x0050, text=» ST A7,APLLDA,A1 SAVE APPLICATION LOAD ADDR. (BIT 0-5)«, t00=0x003f, t01=0x0172}
0x0640a…06432               Head {h00=0x0024, h01=0x0050, text=» ST A4,APLLDA+2,A1 AND BIT 6-17 «, t00=0x0040, t01=0x0020}
0x06432…06462               Head {h00=0x002c, h01=0x0050, text=» ST A7,FYSPAG+STKCOM SAVE LAST PHYSICAL «, t00=0x0040, t01=0x0048}
0x06462…0648c               Head {h00=0x0026, h01=0x0050, text=» ST A4,LSTADR+STKCOM ADDRESS USED «, t00=0x0040, t01=0x0078}
0x0648c…064bc               Head {h00=0x002c, h01=0x0050, text=» LDR* A1,A6 GET ADDRESS TO PHYSICAL PAGE«, t00=0x0040, t01=0x00a2}
0x064bc…064e4               Head {h00=0x0024, h01=0x0050, text=» ANKL A1,/C000 GREATER THAN 64K?«, t00=0x0040, t01=0x00d2}
0x064e4…064fe               Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:353 NO! «, t00=0x0040, t01=0x00fa}
0x064fe…06522               Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 UPPER LIMIT 64 KB «, t00=0x0040, t01=0x0114}
0x06522…06534               Head {h00=0x000e, h01=0x0050, text=» RF AP:354«, t00=0x0040, t01=0x0138}
0x06534…06548               Head {h00=0x0010, h01=0x0050, text=»AP:353 EQU *«, t00=0x0040, t01=0x014a}
0x06548…06570               Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A6 GET PHYSICAL ADDRESS«, t00=0x0040, t01=0x015e}
0x06570…06582               Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0040, t01=0x0186}
0x06582…065a6               Head {h00=0x0020, h01=0x0050, text=» ADR A1,A4 ADD DISPLACEMENT «, t00=0x0041, t01=0x0008}
0x065a6…065d2               Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTSFA GET START OF FREE AREA«, t00=0x0041, t01=0x002c}
0x065d2…065fe               Head {h00=0x0028, h01=0x0050, text=» TNM A1,A2 ON SAME SIDE OF 32K-LIMIT«, t00=0x0041, t01=0x0058}
0x065fe…0661a               Head {h00=0x0018, h01=0x0050, text=» RF(NN) AP3532 YES! «, t00=0x0041, t01=0x0084}
0x0661a…0662c               Head {h00=0x000e, h01=0x0050, text=» CWR A2,A1«, t00=0x0041, t01=0x00a0}
0x0662c…0663e               Head {h00=0x000e, h01=0x0050, text=» RF AP3534«, t00=0x0041, t01=0x00b2}
0x0663e…06656               Head {h00=0x0014, h01=0x0050, text=»AP3532 CWR A1,A2«, t00=0x0041, t01=0x00c4}
0x06656…0666a               Head {h00=0x0010, h01=0x0050, text=»AP3534 EQU *«, t00=0x0041, t01=0x00dc}
0x0666a…06690               Head {h00=0x0022, h01=0x0050, text=» RB(L) MEMOVF MEMORY OVERFLOW!«, t00=0x0041, t01=0x00f0}
0x06690…066a4               Head {h00=0x0010, h01=0x0050, text=»AP:354 EQU *«, t00=0x0041, t01=0x0116}
0x066a4…066c6               Head {h00=0x001e, h01=0x0050, text=» ST A1,ESYSTA+STKEND SAVE «, t00=0x0041, t01=0x012a}
0x066c6…066f8               Head {h00=0x002e, h01=0x0050, text=» LD A10,COMLG,A9 LOAD COMLG OF COMMON PART«, t00=0x0041, t01=0x014c}
0x066f8…0671c               Head {h00=0x0020, h01=0x0050, text=» TL TABBE LOAD MMU REGISTERS«, t00=0x0041, t01=0x017e}
0x0671c…06728               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0012}
0x06728…0673e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0042, t01=0x001e}
0x0673e…0674c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x0034}
0x0674c…06760               Head {h00=0x0010, h01=0x0050, text=»AP:240 EQU *«, t00=0x0042, t01=0x0042}
0x06760…0676a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0056}
0x0676a…067ae               Head {h00=0x0040, h01=0x0050, text=»*  EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITHOUT MMU OPTION«, t00=0x0042, t01=0x0060}
0x067ae…067b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00a4}
0x067b8…067c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00ae}
0x067c2…067ec               Head {h00=0x0026, h01=0x0050, text=»*  CHECK IF ASSEMBLER APPLICATION «, t00=0x0042, t01=0x00b8}
0x067ec…067f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00e2}
0x067f6…06822               Head {h00=0x0028, h01=0x0050, text=» CWK A6,'AS' ASSEMBLER APPLICATION? «, t00=0x0042, t01=0x00ec}
0x06822…0683c               Head {h00=0x0016, h01=0x0050, text=» RF(E) AP:275 YES!«, t00=0x0042, t01=0x0118}
0x0683c…0686a               Head {h00=0x002a, h01=0x0050, text=» LD A2,NUMSEG+8,A9 NUMBER OF SEGMENTS «, t00=0x0042, t01=0x0132}
0x0686a…0688c               Head {h00=0x001e, h01=0x0050, text=» RF(Z) AP:275 NO SEGMENTS!«, t00=0x0042, t01=0x0160}
0x0688c…068bc               Head {h00=0x002c, h01=0x0050, text=» CF A14,ALOCSG RESERVE AREA FOR SEGMENTS«, t00=0x0042, t01=0x0182}
0x068bc…068ec               Head {h00=0x002c, h01=0x0050, text=» LDR A2,A7 CONFIGURE LOGICAL START ADDR.«, t00=0x0043, t01=0x0022}
0x068ec…0690e               Head {h00=0x001e, h01=0x0050, text=» SLL A2,2 TO FIRST SEGMENT«, t00=0x0043, t01=0x0052}
0x0690e…06920               Head {h00=0x000e, h01=0x0050, text=» ORR A2,A5«, t00=0x0043, t01=0x0074}
0x06920…0693c               Head {h00=0x0018, h01=0x0050, text=» ST A2,LSTASG+STKEND«, t00=0x0043, t01=0x0086}
0x0693c…06950               Head {h00=0x0010, h01=0x0050, text=»AP:275 EQU *«, t00=0x0043, t01=0x00a2}
0x06950…06982               Head {h00=0x002e, h01=0x0050, text=» LD A10,COMLG,A9 GET LENGTH OF COMMON PART«, t00=0x0043, t01=0x00b6}
0x06982…069b0               Head {h00=0x002a, h01=0x0050, text=» LD A3,APLTYP,A1 GET APPLICATION TYPE «, t00=0x0043, t01=0x00e8}
0x069b0…069d0               Head {h00=0x001c, h01=0x0050, text=» CWK A3,'AS' ASSEMBLER? «, t00=0x0043, t01=0x0116}
0x069d0…069ea               Head {h00=0x0016, h01=0x0050, text=» RF(NE) AP:276 NO!«, t00=0x0043, t01=0x0136}
0x069ea…069f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0150}
0x069f4…06a26               Head {h00=0x002e, h01=0x0050, text=» ADKL A10,10 YES, ADD 5 WORDS FOR DEBUGGER«, t00=0x0043, t01=0x015a}
0x06a26…06a3a               Head {h00=0x0010, h01=0x0050, text=»AP:276 EQU *«, t00=0x0043, t01=0x018c}
0x06a3a…06a4e               Head {h00=0x0010, h01=0x0050, text=» ADKL A10,1 «, t00=0x0044, t01=0x0010}
0x06a4e…06a76               Head {h00=0x0024, h01=0x0050, text=» ANKL A10,/FFFE MAKE EVEN LENGTH«, t00=0x0044, t01=0x0024}
0x06a76…06ab2               Head {h00=0x0038, h01=0x0050, text=» RF(N) AP:278 APPLICATION IS LARGER THAN FRAME SIZE «, t00=0x0044, t01=0x004c}
0x06ab2…06abc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0088}
0x06abc…06afe               Head {h00=0x003e, h01=0x0050, text=» CWR A10,A5 APPL. IS SMALLER THAN AREA LEFT IN LAST FRAME «, t00=0x0044, t01=0x0092}
0x06afe…06b1a               Head {h00=0x0018, h01=0x0050, text=» RF(NG) AP:280 YES! «, t00=0x0044, t01=0x00d4}
0x06b1a…06b24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00f0}
0x06b24…06b38               Head {h00=0x0010, h01=0x0050, text=»AP:278 EQU *«, t00=0x0044, t01=0x00fa}
0x06b38…06b6e               Head {h00=0x0032, h01=0x0050, text=» SUR A10,A5 SUBTRACT AREA UNUSED IN LAST FRAME«, t00=0x0044, t01=0x010e}
0x06b6e…06b9e               Head {h00=0x002c, h01=0x0050, text=» LDK A5,0 NO AREA LEFT IN CURRENT FRAME «, t00=0x0044, t01=0x0144}
0x06b9e…06bc6               Head {h00=0x0024, h01=0x0050, text=» LDR A2,A10 GET REMAINING LENGTH«, t00=0x0044, t01=0x0174}
0x06bc6…06bee               Head {h00=0x0024, h01=0x0050, text=» SRL A2,12 COUNT NO OF 4K BLOCKS«, t00=0x0045, t01=0x000c}
0x06bee…06c1e               Head {h00=0x002c, h01=0x0050, text=» SRL A7,10 FRAME ADDRESS AS BLOCK COUNT «, t00=0x0045, t01=0x0034}
0x06c1e…06c46               Head {h00=0x0024, h01=0x0050, text=» SUR A7,A2 SUBTRACT AREA NEEDED «, t00=0x0045, t01=0x0064}
0x06c46…06c6c               Head {h00=0x0022, h01=0x0050, text=» RF(N) MEMOVF MEMORY OVERFLOW!«, t00=0x0045, t01=0x008c}
0x06c6c…06c76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00b2}
0x06c76…06ca8               Head {h00=0x002e, h01=0x0050, text=» ANKL A10,/0FFF ISOLATE POSSIBLE REMAINDER«, t00=0x0045, t01=0x00bc}
0x06ca8…06cca               Head {h00=0x001e, h01=0x0050, text=» RF(Z) AP:279 NO REMAINDER«, t00=0x0045, t01=0x00ee}
0x06cca…06cd4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0110}
0x06cd4…06d02               Head {h00=0x002a, h01=0x0050, text=» LDKL A5,PAGSIZ RESERVE ONE NEW FRAME «, t00=0x0045, t01=0x011a}
0x06d02…06d14               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0045, t01=0x0148}
0x06d14…06d3a               Head {h00=0x0022, h01=0x0050, text=» RF(N) MEMOVF MEMORY OVERFLOW!«, t00=0x0045, t01=0x015a}
0x06d3a…06d44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0180}
0x06d44…06d58               Head {h00=0x0010, h01=0x0050, text=»AP:279 EQU *«, t00=0x0045, t01=0x018a}
0x06d58…06d80               Head {h00=0x0024, h01=0x0050, text=» SLL A7,10 RESTORE FRAME ADDRESS«, t00=0x0046, t01=0x000e}
0x06d80…06d94               Head {h00=0x0010, h01=0x0050, text=»AP:280 EQU *«, t00=0x0046, t01=0x0036}
0x06d94…06dca               Head {h00=0x0032, h01=0x0050, text=» SUR A5,A10 ALLOCATE AREA NEEDED IN LAST FRAME«, t00=0x0046, t01=0x004a}
0x06dca…06de4               Head {h00=0x0016, h01=0x0050, text=» LDR A4,A9 SAVE A9«, t00=0x0046, t01=0x0080}
0x06de4…06e00               Head {h00=0x0018, h01=0x0050, text=» LDR A8,A11 SAVE A11«, t00=0x0046, t01=0x009a}
0x06e00…06e1e               Head {h00=0x001a, h01=0x0050, text=» ST A7,SCTEFA AND SAVE«, t00=0x0046, t01=0x00b6}
0x06e1e…06e54               Head {h00=0x0032, h01=0x0050, text=» ST A5,SCTEFA+2 SAVE DISPLACEMENT WITHIN PAGE «, t00=0x0046, t01=0x00d4}
0x06e54…06e8e               Head {h00=0x0036, h01=0x0050, text=» ST A7,APLLDA,A1 SAVE PHYSICAL LOAD ADDR (BIT 0-5)«, t00=0x0046, t01=0x010a}
0x06e8e…06ec4               Head {h00=0x0032, h01=0x0050, text=» ST A5,APLLDA+2,A1 AND BIT 6-17 OF APPLICATION«, t00=0x0046, t01=0x0144}
0x06ec4…06ef4               Head {h00=0x002c, h01=0x0050, text=» ST A7,FYSPAG+STKCOM SAVE LAST PHYSICAL «, t00=0x0046, t01=0x017a}
0x06ef4…06f1e               Head {h00=0x0026, h01=0x0050, text=» ST A5,LSTADR+STKCOM ADDRESS USED «, t00=0x0047, t01=0x001a}
0x06f1e…06f30               Head {h00=0x000e, h01=0x0050, text=» SLL A7,2 «, t00=0x0047, t01=0x0044}
0x06f30…06f44               Head {h00=0x0010, h01=0x0050, text=» LDR A11,A7 «, t00=0x0047, t01=0x0056}
0x06f44…06f76               Head {h00=0x002e, h01=0x0050, text=» ORR A11,A5 MAKE ADDRESS AS A 16 BIT ADDR.«, t00=0x0047, t01=0x006a}
0x06f76…06fa2               Head {h00=0x0028, h01=0x0050, text=» LD A9,SCTSFA GET START OF FREE AREA«, t00=0x0047, t01=0x009c}
0x06fa2…06fca               Head {h00=0x0024, h01=0x0050, text=» CALL CMPADR A11 COMPARED TO A9 «, t00=0x0047, t01=0x00c8}
0x06fca…06fe0               Head {h00=0x0012, h01=0x0050, text=» RF(G) AP:290 «, t00=0x0047, t01=0x00f0}
0x06fe0…06fea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0106}
0x06fea…06ffe               Head {h00=0x0010, h01=0x0050, text=»MEMOVF EQU *«, t00=0x0047, t01=0x0110}
0x06ffe…07024               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP3 MEMORY OVERFLOW!«, t00=0x0047, t01=0x0124}
0x07024…07038               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0047, t01=0x014a}
0x07038…07042               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x015e}
0x07042…07056               Head {h00=0x0010, h01=0x0050, text=»AP:290 EQU *«, t00=0x0047, t01=0x0168}
0x07056…07082               Head {h00=0x0028, h01=0x0050, text=» CWK A3,'AS' ASSEMBLER APPLICATION? «, t00=0x0047, t01=0x017c}
0x07082…0709c               Head {h00=0x0016, h01=0x0050, text=» RF(NE) AP:295 NO!«, t00=0x0048, t01=0x0018}
0x0709c…070a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0032}
0x070a6…070d2               Head {h00=0x0028, h01=0x0050, text=» ADKL A11,10 SKIP 5 PRECEEDING WORDS«, t00=0x0048, t01=0x003c}
0x070d2…070e6               Head {h00=0x0010, h01=0x0050, text=»AP:295 EQU *«, t00=0x0048, t01=0x0068}
0x070e6…0711c               Head {h00=0x0032, h01=0x0050, text=» ST A11,LLDADR+STKEND SAVE APPL. LOAD ADDRESS «, t00=0x0048, t01=0x007c}
0x0711c…0713a               Head {h00=0x001a, h01=0x0050, text=» LDR A9,A4 RESTORE A9 «, t00=0x0048, t01=0x00b2}
0x0713a…0715a               Head {h00=0x001c, h01=0x0050, text=» LDR A11,A8 RESTORE A11 «, t00=0x0048, t01=0x00d0}
0x0715a…07190               Head {h00=0x0032, h01=0x0050, text=» LD A8,LLDADR+STKEND A8 - LOGICAL LOAD ADDRESS«, t00=0x0048, t01=0x00f0}
0x07190…071ca               Head {h00=0x0036, h01=0x0050, text=» ST A8,ESYSTA+STKEND SAVE APPLICATION LOAD-ADDRESS«, t00=0x0048, t01=0x0126}
0x071ca…071fc               Head {h00=0x002e, h01=0x0050, text=» LD A10,COMLG,A9 GET LENGTH OF COMMON PART«, t00=0x0048, t01=0x0160}
0x071fc…07208 (73, 0, 400)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x0004}
0x07208…07216               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x0010}
0x07216…07220               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x001e}
0x07220…07240               Head {h00=0x001c, h01=0x0050, text=»*  COMMON EXECUTION PATH«, t00=0x0049, t01=0x0028}
0x07240…0724a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0048}
0x0724a…07288               Head {h00=0x003a, h01=0x0050, text=»*  READ AND RELOCATE CORE RESIDENT PART OF APPLICATION«, t00=0x0049, t01=0x0052}
0x07288…07292               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0090}
0x07292…072ba               Head {h00=0x0024, h01=0x0050, text=»*  A8 - APPLICATION LOAD ADDRESS«, t00=0x0049, t01=0x009a}
0x072ba…072e8               Head {h00=0x002a, h01=0x0050, text=»*  A10 - LENGTH OF CORE RESIDENT PART «, t00=0x0049, t01=0x00c2}
0x072e8…072f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00f0}
0x072f2…07306               Head {h00=0x0010, h01=0x0050, text=»AP:355 EQU *«, t00=0x0049, t01=0x00fa}
0x07306…07346               Head {h00=0x003c, h01=0x0050, text=» LD A1,CURAPL+STKEND RESTORE APPL. CONTROL BLOCK POINTER«, t00=0x0049, t01=0x010e}
0x07346…07374               Head {h00=0x002a, h01=0x0050, text=» ST A8,APLLAC,A1 SAVE LOGICAL ADDRESS «, t00=0x0049, t01=0x014e}
0x07374…073ae               Head {h00=0x0036, h01=0x0050, text=» ST A8,APLREL,A1 SAVE APPLICATION RELOCATION BASE «, t00=0x0049, t01=0x017c}
0x073ae…073e6               Head {h00=0x0034, h01=0x0050, text=» CM FSTSEC+STKEND RESET FIRST SECTOR/BLOCK IND. «, t00=0x004a, t01=0x0026}
0x073e6…07420               Head {h00=0x0036, h01=0x0050, text=» LDKL A7,240 INITIATE NR OF CODE WORDS/SECT/BLOCK «, t00=0x004a, t01=0x005e}
0x07420…07448               Head {h00=0x0024, h01=0x0050, text=» ST A7,LOD:10 MODIFY INSTRUCTION«, t00=0x004a, t01=0x0098}
0x07448…07476               Head {h00=0x002a, h01=0x0050, text=» CF A14,LODCOM LOAD CORE RESIDENT PART«, t00=0x004a, t01=0x00c0}
0x07476…07480               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00ee}
0x07480…074aa               Head {h00=0x0026, h01=0x0050, text=»*  CHECK IF ASSEMBLER APPLICATION «, t00=0x004a, t01=0x00f8}
0x074aa…074b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0122}
0x074b4…074f0               Head {h00=0x0038, h01=0x0050, text=» LD A1,CURAPL+STKEND GET CURRENT APPL. CONTR. BLOCK «, t00=0x004a, t01=0x012c}
0x074f0…07520               Head {h00=0x002c, h01=0x0050, text=» LD A2,APLTYP,A1 AND TYPE OF THIS APPL. «, t00=0x004a, t01=0x0168}
0x07520…0754c               Head {h00=0x0028, h01=0x0050, text=» CWK A2,'AS' ASSEMBLER APPLICATION? «, t00=0x004b, t01=0x0008}
0x0754c…07566               Head {h00=0x0016, h01=0x0050, text=» ABL(E) AP:400 YES«, t00=0x004b, t01=0x0034}
0x07566…075a4               Head {h00=0x003a, h01=0x0050, text=» LD A8,LSTASG+STKEND GET LOGICAL ADDRESS TO FIRST PAGE«, t00=0x004b, t01=0x004e}
0x075a4…075d8               Head {h00=0x0030, h01=0x0050, text=» LD A2,TNBRSG+STKEND GET NUMBER OF SEGMENTS «, t00=0x004b, t01=0x008c}
0x075d8…0760a               Head {h00=0x002e, h01=0x0050, text=» ABL(Z) AP:400 NO SEGMENTS IN APPLICATION «, t00=0x004b, t01=0x00c0}
0x0760a…07614               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00f2}
0x07614…0764c               Head {h00=0x0034, h01=0x0050, text=» CM SEGCNT+STKEND CLEAR NO OF SEGMENTS PROCESSED«, t00=0x004b, t01=0x00fc}
0x0764c…07662               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004b, t01=0x0134}
0x07662…07694               Head {h00=0x002e, h01=0x0050, text=» TS MMDDIV,A13 SAVE MMU REGISTER CONTENTS «, t00=0x004b, t01=0x014a}
0x07694…076a0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004b, t01=0x017c}
0x076a0…076b4               Head {h00=0x0010, h01=0x0050, text=»AP:360 EQU *«, t00=0x004b, t01=0x0188}
0x076b4…076be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x000c}
0x076be…076e8               Head {h00=0x0026, h01=0x0050, text=»*  READ AND RELOCATE THE SEGMENTS «, t00=0x004c, t01=0x0016}
0x076e8…076f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0040}
0x076f2…07724               Head {h00=0x002e, h01=0x0050, text=»*  A8 - LOGICAL ADDRESS OF SAVE05 SEGMENT «, t00=0x004c, t01=0x004a}
0x07724…07744               Head {h00=0x001c, h01=0x0050, text=»*  A10 - SEGMENT LENGTH «, t00=0x004c, t01=0x007c}
0x07744…0774e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x009c}
0x0774e…07788               Head {h00=0x0036, h01=0x0050, text=» LD A3,CURAPL+STKEND GET APPL. CONTROL BLOCK ADDR.«, t00=0x004c, t01=0x00a6}
0x07788…077bc               Head {h00=0x0030, h01=0x0050, text=» LD A2,APLLAC,A3 GET LOGICAL ADDR. TO APPL. «, t00=0x004c, t01=0x00e0}
0x077bc…077da               Head {h00=0x001a, h01=0x0050, text=» ADKL A2,BLKLEN+BLKLEN«, t00=0x004c, t01=0x0114}
0x077da…0780a               Head {h00=0x002c, h01=0x0050, text=» LD A1,SEGCNT+STKEND GET SEGMENT COUNTER«, t00=0x004c, t01=0x0132}
0x0780a…0781e               Head {h00=0x0010, h01=0x0050, text=»AP:365 EQU *«, t00=0x004c, t01=0x0162}
0x0781e…07834               Head {h00=0x0012, h01=0x0050, text=» RF(Z) AP:370 «, t00=0x004c, t01=0x0176}
0x07834…07856               Head {h00=0x001e, h01=0x0050, text=» ADK A2,BLKLEN NEXT BLOCK «, t00=0x004c, t01=0x018c}
0x07856…07880               Head {h00=0x0026, h01=0x0050, text=» SUK A1,1 DECREMENT BLOCK COUNTER «, t00=0x004d, t01=0x001e}
0x07880…07892               Head {h00=0x000e, h01=0x0050, text=» RB AP:365«, t00=0x004d, t01=0x0048}
0x07892…078a6               Head {h00=0x0010, h01=0x0050, text=»AP:370 EQU *«, t00=0x004d, t01=0x005a}
0x078a6…078b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x006e}
0x078b0…078d0               Head {h00=0x001c, h01=0x0050, text=»*  CHECK IF DISC PAGING «, t00=0x004d, t01=0x0078}
0x078d0…078da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0098}
0x078da…07900               Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x004d, t01=0x00a2}
0x07900…0791e               Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x004d, t01=0x00c8}
0x0791e…07938               Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:376 NO! «, t00=0x004d, t01=0x00e6}
0x07938…07942               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0100}
0x07942…0796c               Head {h00=0x0026, h01=0x0050, text=»*  CHECK IF CORE RESIDENT SEGMENT «, t00=0x004d, t01=0x010a}
0x0796c…07976               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0134}
0x07976…0799c               Head {h00=0x0022, h01=0x0050, text=» CALL GETCON GET SEGMENT TYPE «, t00=0x004d, t01=0x013e}
0x0799c…079ca               Head {h00=0x002a, h01=0x0050, text=» LDR A12,A1 GET MOST SIGNIFICANT PART «, t00=0x004d, t01=0x0164}
0x079ca…079f0 (78, 0, 400)  Head {h00=0x0022, h01=0x0050, text=» ANKL A12,/FF OF DISC ADDRESS «, t00=0x004e, t01=0x0004}
0x079f0…07a1e               Head {h00=0x002a, h01=0x0050, text=» SRL A1,8 SEGMENT TYPE TO RIGHT BYTE  «, t00=0x004e, t01=0x002a}
0x07a1e…07a4a               Head {h00=0x0028, h01=0x0050, text=» CCK A1,'RR' CORE RESIDENT SEGMENT? «, t00=0x004e, t01=0x0058}
0x07a4a…07a78               Head {h00=0x002a, h01=0x0050, text=» RF(E) AP:376 YES: LOAD THIS SEGMENT! «, t00=0x004e, t01=0x0084}
0x07a78…07a82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00b2}
0x07a82…07ab0               Head {h00=0x002a, h01=0x0050, text=»*  BYPASS THIS SEGMENT AND CHECK NEXT «, t00=0x004e, t01=0x00bc}
0x07ab0…07aba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00ea}
0x07aba…07aea               Head {h00=0x002c, h01=0x0050, text=» LD A1,SEGCNT+STKEND GET SEGMENT COUNTER«, t00=0x004e, t01=0x00f4}
0x07aea…07b24               Head {h00=0x0036, h01=0x0050, text=» LD A2,TNBRSG+STKEND GET TOTAL NUMBER OF SEGMENTS «, t00=0x004e, t01=0x0124}
0x07b24…07b40               Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 INCREMENT «, t00=0x004e, t01=0x015e}
0x07b40…07b60               Head {h00=0x001c, h01=0x0050, text=» CWR A1,A2 LAST SEGMENT?«, t00=0x004e, t01=0x017a}
0x07b60…07b7c               Head {h00=0x0018, h01=0x0050, text=» ABL(E) AP:400 YES! «, t00=0x004f, t01=0x000a}
0x07b7c…07bb4               Head {h00=0x0034, h01=0x0050, text=» ST A1,SEGCNT+STKEND SAVE CURRENT SEGMENT NUMBER«, t00=0x004f, t01=0x0026}
0x07bb4…07bc6               Head {h00=0x000e, h01=0x0050, text=» RB AP:360«, t00=0x004f, t01=0x005e}
0x07bc6…07bf0               Head {h00=0x0026, h01=0x0050, text=»AP:375 LDKL A1,LMP2 DISC I/O ERROR«, t00=0x004f, t01=0x0070}
0x07bf0…07c04               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x004f, t01=0x009a}
0x07c04…07c12               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x00ae}
0x07c12…07c26               Head {h00=0x0010, h01=0x0050, text=»AP:376 EQU *«, t00=0x004f, t01=0x00bc}
0x07c26…07c4c               Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 DISC SECTOR ADDRESS «, t00=0x004f, t01=0x00d0}
0x07c4c…07c78               Head {h00=0x0028, h01=0x0050, text=» CALL GETCON GET DISC SECTOR ADDRESS«, t00=0x004f, t01=0x00f6}
0x07c78…07c90               Head {h00=0x0014, h01=0x0050, text=» LDR A11,A1 SAVE«, t00=0x004f, t01=0x0122}
0x07c90…07ccc               Head {h00=0x0038, h01=0x0050, text=» AD A11,APLADA+2,A3 ADD LEAST SIGN. PART OF A.D.A.? «, t00=0x004f, t01=0x013a}
0x07ccc…07cea               Head {h00=0x001a, h01=0x0050, text=» RF(O) AP:377 OVERFLOW«, t00=0x004f, t01=0x0176}
0x07cea…07d0a (80, 0, 400)  Head {h00=0x001c, h01=0x0050, text=» RF AP:378 NOT OVERFLOW «, t00=0x0050, t01=0x0004}
0x07d0a…07d42               Head {h00=0x0034, h01=0x0050, text=»AP:377 ADKL A12,1 INCR. M. S. P. OF DISC ADDRESS«, t00=0x0050, t01=0x0024}
0x07d42…07d68               Head {h00=0x0022, h01=0x0050, text=» ANKL A11,/7FFF RESET OVERFLOW«, t00=0x0050, t01=0x005c}
0x07d68…07da0               Head {h00=0x0034, h01=0x0050, text=»AP:378 AD A12,APLADA,A3 ADD M. S. P. OF A. D. A.«, t00=0x0050, t01=0x0082}
0x07da0…07dbe               Head {h00=0x001a, h01=0x0050, text=» CWK A12,255 OVERFLOW?«, t00=0x0050, t01=0x00ba}
0x07dbe…07dee               Head {h00=0x002c, h01=0x0050, text=» RB(G) AP:375 YES: ILLEGAL DISC ADDRESS!«, t00=0x0050, t01=0x00d8}
0x07dee…07e0e               Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 SEGMENT LENGTH«, t00=0x0050, t01=0x0108}
0x07e0e…07e36               Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET SEGMENT LENGTH «, t00=0x0050, t01=0x0128}
0x07e36…07e4e               Head {h00=0x0014, h01=0x0050, text=» LDR A10,A1 SAVE«, t00=0x0050, t01=0x0150}
0x07e4e…07e62               Head {h00=0x0010, h01=0x0050, text=» ADKL A10,1 «, t00=0x0050, t01=0x0168}
0x07e62…07e8a               Head {h00=0x0024, h01=0x0050, text=» ANKL A10,/FFFE MAKE EVEN LENGTH«, t00=0x0050, t01=0x017c}
0x07e8a…07ea6               Head {h00=0x0018, h01=0x0050, text=» ST A8,LLDADR+STKEND«, t00=0x0051, t01=0x0014}
0x07ea6…07eca               Head {h00=0x0020, h01=0x0050, text=» CF A14,LODSEG LOAD SEGMENT «, t00=0x0051, t01=0x0030}
0x07eca…07efa               Head {h00=0x002c, h01=0x0050, text=» LD A1,SEGCNT+STKEND GET SEGMENT COUNTER«, t00=0x0051, t01=0x0054}
0x07efa…07f34               Head {h00=0x0036, h01=0x0050, text=» LD A2,TNBRSG+STKEND GET TOTAL NUMBER OF SEGMENTS «, t00=0x0051, t01=0x0084}
0x07f34…07f60               Head {h00=0x0028, h01=0x0050, text=» ADK A1,1 INCREMENT SEGMENT COUNTER «, t00=0x0051, t01=0x00be}
0x07f60…07f88               Head {h00=0x0024, h01=0x0050, text=» CWR A1,A2 ALL SEGMENTS LOADED? «, t00=0x0051, t01=0x00ea}
0x07f88…07fa4               Head {h00=0x0018, h01=0x0050, text=» ABL(E) AP:400 YES! «, t00=0x0051, t01=0x0112}
0x07fa4…07fd6               Head {h00=0x002e, h01=0x0050, text=» ST A1,SEGCNT+STKEND STORE SEGMENT COUNTER«, t00=0x0051, t01=0x012e}
0x07fd6…08016               Head {h00=0x003c, h01=0x0050, text=» LD A3,CURAPL+STKEND GET CURRENT APPL. CONTROL BLOCK =2 «, t00=0x0051, t01=0x0160}
0x08016…0804a               Head {h00=0x0030, h01=0x0050, text=» LD A4,APLPSZ,A3 AND SEGMENT SIZE DEFINED =2«, t00=0x0052, t01=0x0010}
0x0804a…08060               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0052, t01=0x0044}
0x08060…08090               Head {h00=0x002c, h01=0x0050, text=» ADR A8,A4 COMPUTE ADDRESS TO NEXT PAGE «, t00=0x0052, t01=0x005a}
0x08090…080a2               Head {h00=0x000e, h01=0x0050, text=» RB AP:360«, t00=0x0052, t01=0x008a}
0x080a2…080ae               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x009c}
0x080ae…080c4               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0052, t01=0x00a8}
0x080c4…080d2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x00be}
0x080d2…080e6               Head {h00=0x0010, h01=0x0050, text=»AP:379 EQU *«, t00=0x0052, t01=0x00cc}
0x080e6…080fe               Head {h00=0x0014, h01=0x0050, text=» LDR A1,A4 SAVE «, t00=0x0052, t01=0x00e0}
0x080fe…08130               Head {h00=0x002e, h01=0x0050, text=» ANKL A4,/0C00 GET MODULO 4K DISCRIMINANT «, t00=0x0052, t01=0x00f8}
0x08130…08156               Head {h00=0x0022, h01=0x0050, text=» RF(Z) AP:380 NO DISCRIMINANT!«, t00=0x0052, t01=0x012a}
0x08156…0818e               Head {h00=0x0034, h01=0x0050, text=» ADR A1,A8 COMPUTE LOGICAL ADDRESS TO NEXT PAGE «, t00=0x0052, t01=0x0150}
0x0818e…081a6               Head {h00=0x0014, h01=0x0050, text=» LDR A4,A1 SAVE «, t00=0x0052, t01=0x0188}
0x081a6…081d8               Head {h00=0x002e, h01=0x0050, text=» ANKL A4,/0C00 GET MODULO 4K DISCRIMINANT «, t00=0x0053, t01=0x0010}
0x081d8…0820c               Head {h00=0x0030, h01=0x0050, text=» ANKL A1,/F000 LOGICAL ADDRESS TO NEXT PAGE «, t00=0x0053, t01=0x0042}
0x0820c…08242               Head {h00=0x0032, h01=0x0050, text=» ANKL A8,/F000 LOGICAL ADDRESS TO CURRENT PAGE«, t00=0x0053, t01=0x0076}
0x08242…08270               Head {h00=0x002a, h01=0x0050, text=» SUR A1,A8 COMPUTE PHYSICAL INCREMENT «, t00=0x0053, t01=0x00ac}
0x08270…08284               Head {h00=0x0010, h01=0x0050, text=»AP:380 EQU *«, t00=0x0053, t01=0x00da}
0x08284…082b2               Head {h00=0x002a, h01=0x0050, text=» LD A8,APLLAP,A3 LOGICAL PAGE ADDRESS «, t00=0x0053, t01=0x00ee}
0x082b2…082ca               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A8 SAVE «, t00=0x0053, t01=0x011c}
0x082ca…08302               Head {h00=0x0034, h01=0x0050, text=» ADR A8,A4 COMPUTE LOGICAL ADDRESS TO NEXT PAGE «, t00=0x0053, t01=0x0134}
0x08302…0832e               Head {h00=0x0028, h01=0x0050, text=» SRL A2,12 MOVE TO 4 RIGHTMOST BITS «, t00=0x0053, t01=0x016c}
0x0832e…0834c               Head {h00=0x001a, h01=0x0050, text=» ADR A2,A2 2*MMU ENTRY«, t00=0x0054, t01=0x0008}
0x0834c…08360               Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x0054, t01=0x0026}
0x08360…0838a               Head {h00=0x0026, h01=0x0050, text=» ADKL A2,MMDDIV MMU ENTRY ADDRESS «, t00=0x0054, t01=0x003a}
0x0838a…0839e               Head {h00=0x0010, h01=0x0050, text=» LDR A3,A13 «, t00=0x0054, t01=0x0064}
0x0839e…083b8               Head {h00=0x0016, h01=0x0050, text=» ADKL A3,MMDDIV+32«, t00=0x0054, t01=0x0078}
0x083b8…083e6               Head {h00=0x002a, h01=0x0050, text=» SRL A1,2 MAP PHYSICAL ADDRESS ON MMU «, t00=0x0054, t01=0x0092}
0x083e6…083fa               Head {h00=0x0010, h01=0x0050, text=»AP:385 EQU *«, t00=0x0054, t01=0x00c0}
0x083fa…0842a               Head {h00=0x002c, h01=0x0050, text=» ADRS A1,A2 LOGICAL ADDRESS TO NEXT PAGE«, t00=0x0054, t01=0x00d4}
0x0842a…0844a               Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 NEXT MMU ENTRY«, t00=0x0054, t01=0x0104}
0x0844a…0845c               Head {h00=0x000e, h01=0x0050, text=» CWR A2,A3«, t00=0x0054, t01=0x0124}
0x0845c…08472               Head {h00=0x0012, h01=0x0050, text=» RB(NE) AP:385«, t00=0x0054, t01=0x0136}
0x08472…0849c               Head {h00=0x0026, h01=0x0050, text=» TL MMDDIV,A13 LOAD MMU REGISTERS «, t00=0x0054, t01=0x014c}
0x0849c…084ae               Head {h00=0x000e, h01=0x0050, text=» RB AP:360«, t00=0x0054, t01=0x0176}
0x084ae…084b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0188}
0x084b8…084c4 (85, 0, 400)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x0004}
0x084c4…084d2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x0010}
0x084d2…084e6               Head {h00=0x0010, h01=0x0050, text=»AP:400 EQU *«, t00=0x0055, t01=0x001e}
0x084e6…08522               Head {h00=0x0038, h01=0x0050, text=» LD A1,CURAPL+STKEND GET CURRENT APPL.CONTROL BLOCK «, t00=0x0055, t01=0x0032}
0x08522…0853c               Head {h00=0x0016, h01=0x0050, text=» IM APLCNT+STKEND «, t00=0x0055, t01=0x006e}
0x0853c…0856a               Head {h00=0x002a, h01=0x0050, text=» ABL(Z) CONLOD ALL APPLICATIONS LOADED«, t00=0x0055, t01=0x0088}
0x0856a…08574               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00b6}
0x08574…085a6               Head {h00=0x002e, h01=0x0050, text=» ADK A1,ACBLEN ADVANCE TO NEXT APPLICATION«, t00=0x0055, t01=0x00c0}
0x085a6…085dc               Head {h00=0x0032, h01=0x0050, text=» ST A1,CURAPL+STKEND APPLICATION CONTROL BLOCK«, t00=0x0055, t01=0x00f2}
0x085dc…08614               Head {h00=0x0034, h01=0x0050, text=» LD A12,APLADA,A1 MOST SIGN. PART OF DISC ADDR. «, t00=0x0055, t01=0x0128}
0x08614…0864e               Head {h00=0x0036, h01=0x0050, text=» LD A11,APLADA+2,A1 LEAST SIGN. PART OF DISC ADDR.«, t00=0x0055, t01=0x0160}
0x0864e…0867a               Head {h00=0x0028, h01=0x0050, text=» LD A10,READ GET SUBROUTINE ADDRESS «, t00=0x0056, t01=0x000a}
0x0867a…086a0               Head {h00=0x0022, h01=0x0050, text=» CFR A14,A10 READ FIRST SECTOR«, t00=0x0056, t01=0x0036}
0x086a0…086b4               Head {h00=0x0010, h01=0x0050, text=» ABL AP:234 «, t00=0x0056, t01=0x005c}
0x086b4…086c2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x0070}
0x086c2…086f8               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0056, t01=0x007e}
0x086f8…0872e               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0056, t01=0x00b4}
0x0872e…08764               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0056, t01=0x00ea}
0x08764…0879a               Head {h00=0x0032, h01=0x0050, text=»*                ALOCSG                     * «, t00=0x0056, t01=0x0120}
0x0879a…087d0               Head {h00=0x0032, h01=0x0050, text=»*                ======                     * «, t00=0x0056, t01=0x0156}
0x087d0…08806               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0056, t01=0x018c}
0x08806…0883c               Head {h00=0x0032, h01=0x0050, text=»*   RESERVE PAGES FOR RESIDENT SEGMENTS     * «, t00=0x0057, t01=0x0032}
0x0883c…08872               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0057, t01=0x0068}
0x08872…088a8               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0057, t01=0x009e}
0x088a8…088de               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0057, t01=0x00d4}
0x088de…088e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x010a}
0x088e8…088f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0114}
0x088f2…08906               Head {h00=0x0010, h01=0x0050, text=»ALOCSG EQU *«, t00=0x0057, t01=0x011e}
0x08906…0893a               Head {h00=0x0030, h01=0x0050, text=» ST A2,TNBRSG+STKEND SAVE NUMBER OF SEGMENTS«, t00=0x0057, t01=0x0132}
0x0893a…08976               Head {h00=0x0038, h01=0x0050, text=» CM SEGCNT+STKEND RESET NO OF CORE RESIDENT SEGMENTS«, t00=0x0057, t01=0x0166}
0x08976…089a4               Head {h00=0x002a, h01=0x0050, text=» ST A3,APLPSZ,A1 SAVE SEGMENT SIZE =2 «, t00=0x0058, t01=0x0012}
0x089a4…089ca               Head {h00=0x0022, h01=0x0050, text=» LD A4,SCTOPT GET OPTION WORD «, t00=0x0058, t01=0x0040}
0x089ca…089e8               Head {h00=0x001a, h01=0x0050, text=» SRC A4,2 DISC PAGING?«, t00=0x0058, t01=0x0066}
0x089e8…08a02               Head {h00=0x0016, h01=0x0050, text=» RF(NN) ALSG04 NO!«, t00=0x0058, t01=0x0084}
0x08a02…08a0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x009e}
0x08a0c…08a3a               Head {h00=0x002a, h01=0x0050, text=» LD A4,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x0058, t01=0x00a8}
0x08a3a…08a60               Head {h00=0x0022, h01=0x0050, text=» SUK A4,/F0 CHECK IF CASSETTE «, t00=0x0058, t01=0x00d6}
0x08a60…08a94               Head {h00=0x0030, h01=0x0050, text=» RF(N) ALSG04 CASSETTE - LOAD ALL SEGMENTS! «, t00=0x0058, t01=0x00fc}
0x08a94…08a9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0130}
0x08a9e…08ace               Head {h00=0x002c, h01=0x0050, text=»*  COMPUTE NUMBER OF CORE RESIDENT PAGES«, t00=0x0058, t01=0x013a}
0x08ace…08ad8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x016a}
0x08ad8…08b00               Head {h00=0x0024, h01=0x0050, text=» LDR A6,A9 START OF APPLICATION «, t00=0x0058, t01=0x0174}
0x08b00…08b2a               Head {h00=0x0026, h01=0x0050, text=» ADK A6,14 START OF SEGMENT BLOCKS«, t00=0x0059, t01=0x000c}
0x08b2a…08b3e               Head {h00=0x0010, h01=0x0050, text=»ALSG00 EQU *«, t00=0x0059, t01=0x0036}
0x08b3e…08b62               Head {h00=0x0020, h01=0x0050, text=» ADK A6,6 NEXT SEGMENT BLOCK«, t00=0x0059, t01=0x004a}
0x08b62…08b84               Head {h00=0x001e, h01=0x0050, text=»*  LOOK IF OUTSIDE BUFFER «, t00=0x0059, t01=0x006e}
0x08b84…08b9e               Head {h00=0x0016, h01=0x0050, text=»*  IF SO READ NEXT«, t00=0x0059, t01=0x0090}
0x08b9e…08bb6               Head {h00=0x0014, h01=0x0050, text=»*  SECTOR BLOCK «, t00=0x0059, t01=0x00aa}
0x08bb6…08bc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00c2}
0x08bc0…08be8               Head {h00=0x0024, h01=0x0050, text=» LDR A4,A6 SAVE BUFFER POSITION «, t00=0x0059, t01=0x00cc}
0x08be8…08c0c               Head {h00=0x0020, h01=0x0050, text=» SUR A4,A9 RELATIVE POSITION«, t00=0x0059, t01=0x00f4}
0x08c0c…08c38               Head {h00=0x0028, h01=0x0050, text=» CWK A4,BUFLEN-16 OUTSIDE BUFFER? =5«, t00=0x0059, t01=0x0118}
0x08c38…08c52               Head {h00=0x0016, h01=0x0050, text=» RF(NG) ALSG01 NO!«, t00=0x0059, t01=0x0144}
0x08c52…08c5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x015e}
0x08c5c…08c84               Head {h00=0x0024, h01=0x0050, text=» CF A14,NXTSEC READ NEXT SECTOR «, t00=0x0059, t01=0x0168}
0x08c84…08cc0               Head {h00=0x0038, h01=0x0050, text=» SUK A6,BUFLEN-16 COMPENSATE FOR RELOCATION BITS =5 «, t00=0x0059, t01=0x0190}
0x08cc0…08ce8               Head {h00=0x0024, h01=0x0050, text=»   AND RESET BUFFER POSITION =5 «, t00=0x005a, t01=0x003c}
0x08ce8…08cf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0064}
0x08cf2…08d06               Head {h00=0x0010, h01=0x0050, text=»ALSG01 EQU *«, t00=0x005a, t01=0x006e}
0x08d06…08d2a               Head {h00=0x0020, h01=0x0050, text=» LCR A4,A6 GET SEGMENT TYPE «, t00=0x005a, t01=0x0082}
0x08d2a…08d56               Head {h00=0x0028, h01=0x0050, text=» CCK A4,'RR' CORE RESIDENT SEGMENT? «, t00=0x005a, t01=0x00a6}
0x08d56…08d70               Head {h00=0x0016, h01=0x0050, text=» RF(NE) ALSG02 NO!«, t00=0x005a, t01=0x00d2}
0x08d70…08dac               Head {h00=0x0038, h01=0x0050, text=» IM SEGCNT+STKEND INCREMENT RESIDENT SEGMENT COUNTER«, t00=0x005a, t01=0x00ec}
0x08dac…08dc0               Head {h00=0x0010, h01=0x0050, text=»ALSG02 EQU *«, t00=0x005a, t01=0x0128}
0x08dc0…08de2               Head {h00=0x001e, h01=0x0050, text=» SUK A2,1 MOORE SEGMENTS? «, t00=0x005a, t01=0x013c}
0x08de2…08dfe               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) ALSG00 YES! «, t00=0x005a, t01=0x015e}
0x08dfe…08e36               Head {h00=0x0034, h01=0x0050, text=» LD A2,SEGCNT+STKEND NUMBER OF RESIDENT SEGMENTS«, t00=0x005a, t01=0x017a}
0x08e36…08e62               Head {h00=0x0028, h01=0x0050, text=» RF(Z) ALSG12 NO RESIDENT SEGMENTS! «, t00=0x005b, t01=0x0022}
0x08e62…08e76               Head {h00=0x0010, h01=0x0050, text=»ALSG04 EQU *«, t00=0x005b, t01=0x004e}
0x08e76…08eb0               Head {h00=0x0036, h01=0x0050, text=» ST A2,SEGCNT+STKEND SAVE NBR OF RESIDENT SEGMENTS«, t00=0x005b, t01=0x0062}
0x08eb0…08ee8               Head {h00=0x0034, h01=0x0050, text=» ADS A2,SCTNOP ACKUMULATE NO OF CORE RES. SEGM. «, t00=0x005b, t01=0x009c}
0x08ee8…08f0e               Head {h00=0x0022, h01=0x0050, text=» LD A6,SCTOPT GET OPTION WORD «, t00=0x005b, t01=0x00d4}
0x08f0e…08f20               Head {h00=0x000e, h01=0x0050, text=» SRC A6,1 «, t00=0x005b, t01=0x00fa}
0x08f20…08f48               Head {h00=0x0024, h01=0x0050, text=» RF(NN) ALSG08 NO MMU IN SYSTEM «, t00=0x005b, t01=0x010c}
0x08f48…08f52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0134}
0x08f52…08f76               Head {h00=0x0020, h01=0x0050, text=» LDR A6,A3 GET SEGMENT SIZE «, t00=0x005b, t01=0x013e}
0x08f76…08f8c               Head {h00=0x0012, h01=0x0050, text=» ANKL A6,/FFF «, t00=0x005b, t01=0x0162}
0x08f8c…08fbe               Head {h00=0x002e, h01=0x0050, text=» RF(NZ) ALSG08 NOT A MULTIPLE OF 4K BYTES «, t00=0x005b, t01=0x0178}
0x08fbe…08fc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x001a}
0x08fc8…08ffc               Head {h00=0x0030, h01=0x0050, text=» LDR A5,A5 LOOK IF ALREADY ON A 4K BOUNDARY «, t00=0x005c, t01=0x0024}
0x08ffc…09016               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ALSG08 YES «, t00=0x005c, t01=0x0058}
0x09016…09020               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0072}
0x09020…09048               Head {h00=0x0024, h01=0x0050, text=» LDK A5,0 START ON A 4K BOUNDARY«, t00=0x005c, t01=0x007c}
0x09048…0905c               Head {h00=0x0010, h01=0x0050, text=»ALSG08 EQU *«, t00=0x005c, t01=0x00a4}
0x0905c…0908a               Head {h00=0x002a, h01=0x0050, text=» LDR A7,A7 LOOK IF 256 KBYTE MEMORY =3«, t00=0x005c, t01=0x00b8}
0x0908a…090a8               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ALSG8B NO! =3 «, t00=0x005c, t01=0x00e6}
0x090a8…090d8               Head {h00=0x002c, h01=0x0050, text=» LDKL A5,PAGSIZ YES LAST FRAME EMPTY =3 «, t00=0x005c, t01=0x0104}
0x090d8…09108               Head {h00=0x002c, h01=0x0050, text=» SUKL A7,/400 BEGINNING OF LAST FRAME =3«, t00=0x005c, t01=0x0134}
0x09108…0911c               Head {h00=0x0010, h01=0x0050, text=»ALSG8B EQU *«, t00=0x005c, t01=0x0164}
0x0911c…0914e               Head {h00=0x002e, h01=0x0050, text=» ANKL A5,/1C00 ALWAYS START ON 1K BOUNDARY«, t00=0x005c, t01=0x0178}
0x0914e…09180               Head {h00=0x002e, h01=0x0050, text=» SRL A3,1 MAKE SEGMENT LENGTH IN WORDS =2 «, t00=0x005d, t01=0x001a}
0x09180…091ac               Head {h00=0x0028, h01=0x0050, text=» SRL A5,1 AND REMAINING AREA TOO =2 «, t00=0x005d, t01=0x004c}
0x091ac…091da               Head {h00=0x002a, h01=0x0050, text=» SRL A7,10 CONVERT TO NO OF FRAMES =2 «, t00=0x005d, t01=0x0078}
0x091da…09200               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A3 GET SEGMENT SIZE =2«, t00=0x005d, t01=0x00a6}
0x09200…09232               Head {h00=0x002e, h01=0x0050, text=» NGR A4,A4 AND CORRESPONDING NEG. VALUE =2«, t00=0x005d, t01=0x00cc}
0x09232…0924a               Head {h00=0x0014, h01=0x0050, text=»ALSG09 EQU * =2 «, t00=0x005d, t01=0x00fe}
0x0924a…09272               Head {h00=0x0024, h01=0x0050, text=» CWR A5,A3 ENOUGH SPACE LEFT? =2«, t00=0x005d, t01=0x0116}
0x09272…09290               Head {h00=0x001a, h01=0x0050, text=» RF(NL) ALSG10 YES =2 «, t00=0x005d, t01=0x013e}
0x09290…092ba               Head {h00=0x0026, h01=0x0050, text=» SUK A7,1 DECREMENT FRAME COUNT =2«, t00=0x005d, t01=0x015c}
0x092ba…092ea               Head {h00=0x002c, h01=0x0050, text=» ADKL A5,/800 ALLOCATE ANOTHER FRAME =2 «, t00=0x005d, t01=0x0186}
0x092ea…09312               Head {h00=0x0024, h01=0x0050, text=» RB(P) ALSG09 LOOK IF ENOUGH =2 «, t00=0x005e, t01=0x0026}
0x09312…0932a               Head {h00=0x0014, h01=0x0050, text=»ALSG10 EQU * =2 «, t00=0x005e, t01=0x004e}
0x0932a…09362               Head {h00=0x0034, h01=0x0050, text=» TNM A5,A3 FREE AREA GREATER THAN 32K WORDS? =2 «, t00=0x005e, t01=0x0066}
0x09362…0937e               Head {h00=0x0018, h01=0x0050, text=» RF(N) ALS11A YES =2«, t00=0x005e, t01=0x009e}
0x0937e…093b0               Head {h00=0x002e, h01=0x0050, text=» SUR A5,A3 ALLOCATE AREA TO ONE SEGMENT =2«, t00=0x005e, t01=0x00ba}
0x093b0…093c6               Head {h00=0x0012, h01=0x0050, text=» RF ALS11B =2 «, t00=0x005e, t01=0x00ec}
0x093c6…093de               Head {h00=0x0014, h01=0x0050, text=»ALS11A EQU * =2 «, t00=0x005e, t01=0x0102}
0x093de…09410               Head {h00=0x002e, h01=0x0050, text=» ADR A5,A4 ALLOCATE AREA TO ONE SEGMENT =2«, t00=0x005e, t01=0x011a}
0x09410…09428               Head {h00=0x0014, h01=0x0050, text=»ALS11B EQU * =2 «, t00=0x005e, t01=0x014c}
0x09428…09456               Head {h00=0x002a, h01=0x0050, text=» SUK A2,1 DECREMENT SEGMENT COUNTS =2 «, t00=0x005e, t01=0x0164}
0x09456…0947e (95, 0, 400)  Head {h00=0x0024, h01=0x0050, text=» RB(NZ) ALSG09 MORE SEGMENTS =2 «, t00=0x005f, t01=0x0004}
0x0947e…09494               Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 =2 «, t00=0x005f, t01=0x002c}
0x09494…094bc               Head {h00=0x0024, h01=0x0050, text=» ABL(N) MEMOVF MEMORY OVERFLOW! «, t00=0x005f, t01=0x0042}
0x094bc…094c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x006a}
0x094c6…094ee               Head {h00=0x0024, h01=0x0050, text=» SLL A7,10 RESTORE FRAME ADDRESS«, t00=0x005f, t01=0x0074}
0x094ee…09520               Head {h00=0x002e, h01=0x0050, text=» ST A7,APLSEG,A1 SAVE PHYSICAL ADDRESS TO «, t00=0x005f, t01=0x009c}
0x09520…09550               Head {h00=0x002c, h01=0x0050, text=» SLL A5,1 RESTORE AREA LEFT IN BYTES =2 «, t00=0x005f, t01=0x00ce}
0x09550…09582               Head {h00=0x002e, h01=0x0050, text=» SLL A3,1 RESTORE SEGMENT SIZE IN BYTES =2«, t00=0x005f, t01=0x00fe}
0x09582…095b4               Head {h00=0x002e, h01=0x0050, text=» ST A5,APLSEG+2,A1 FIRST RESIDENT SEGMENT «, t00=0x005f, t01=0x0130}
0x095b4…095c8               Head {h00=0x0010, h01=0x0050, text=»ALSG12 EQU *«, t00=0x005f, t01=0x0162}
0x095c8…095d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0176}
0x095d2…09600               Head {h00=0x002a, h01=0x0050, text=»*  REREAD FIRST SECTOR OF APPLICATION «, t00=0x005f, t01=0x0180}
0x09600…0962e               Head {h00=0x002a, h01=0x0050, text=»*  IF S:GTAB IS LARGER THAN ONE SECTOR«, t00=0x0060, t01=0x001e}
0x0962e…09638               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x004c}
0x09638…09674               Head {h00=0x0038, h01=0x0050, text=» LD A12,APLADA,A1 GET MOST SIGN. PART OF DISC ADDR. «, t00=0x0060, t01=0x0056}
0x09674…096aa               Head {h00=0x0032, h01=0x0050, text=» LD A11,APLADA+2,A1 AND LEAST SIGNIFICANT PART«, t00=0x0060, t01=0x0092}
0x096aa…096d4               Head {h00=0x0026, h01=0x0050, text=» CF A14,NXTSEC REREAD FIRST SECTOR«, t00=0x0060, t01=0x00c8}
0x096d4…096e4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0060, t01=0x00f2}
0x096e4…096f0               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0060, t01=0x0102}
0x096f0…096fc               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0060, t01=0x010e}
0x096fc…09710               Head {h00=0x0010, h01=0x0050, text=»NXTSEC EQU *«, t00=0x0060, t01=0x011a}
0x09710…0973a               Head {h00=0x0026, h01=0x0050, text=» CALL PUSH SAVE REGISTER CONTENTS «, t00=0x0060, t01=0x012e}
0x0973a…09760               Head {h00=0x0022, h01=0x0050, text=» LD A10,READ READ NEXT SECTOR «, t00=0x0060, t01=0x0158}
0x09760…09774               Head {h00=0x0010, h01=0x0050, text=» CFR A14,A10«, t00=0x0060, t01=0x017e}
0x09774…097b0 (97, 0, 400)  Head {h00=0x0038, h01=0x0050, text=» ST A11,DISCAD+STKEND SAVE CURRENT SECTOR/BLOCK =10 «, t00=0x0061, t01=0x0004}
0x097b0…097dc               Head {h00=0x0028, h01=0x0050, text=» ST A12,DISCAD+2+STKEND ADDRESS =10 «, t00=0x0061, t01=0x0040}
0x097dc…0980e               Head {h00=0x002e, h01=0x0050, text=» CALL POB RESTORE FORMER REGISTER CONTENTS«, t00=0x0061, t01=0x006c}
0x0980e…0984c               Head {h00=0x003a, h01=0x0050, text=» LD A11,DISCAD+STKEND RESTORE CURRENT SECTOR/BLOCK =10«, t00=0x0061, t01=0x009e}
0x0984c…09878               Head {h00=0x0028, h01=0x0050, text=» LD A12,DISCAD+2+STKEND ADDRESS =10 «, t00=0x0061, t01=0x00dc}
0x09878…09888               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0061, t01=0x0108}
0x09888…098a0               Head {h00=0x0014, h01=0x0050, text=» IFT EDM=1  =12 «, t00=0x0061, t01=0x0118}
0x098a0…098ae               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0061, t01=0x0130}
0x098ae…098e6               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0061, t01=0x013e}
0x098e6…0991e               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0061, t01=0x0176}
0x0991e…09956               Head {h00=0x0034, h01=0x0050, text=»*  LODMEX - LOAD MONITOR EXTENT(S)            * «, t00=0x0062, t01=0x001e}
0x09956…0998e               Head {h00=0x0034, h01=0x0050, text=»*  ===============================            * «, t00=0x0062, t01=0x0056}
0x0998e…099c6               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0062, t01=0x008e}
0x099c6…099fe               Head {h00=0x0034, h01=0x0050, text=»*  REFERENCED IN:  SYSLOD                     * «, t00=0x0062, t01=0x00c6}
0x099fe…09a36               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0062, t01=0x00fe}
0x09a36…09a6e               Head {h00=0x0034, h01=0x0050, text=»*  ENTRY:                                     * «, t00=0x0062, t01=0x0136}
0x09a6e…09aa6               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0062, t01=0x016e}
0x09aa6…09ade               Head {h00=0x0034, h01=0x0050, text=»*  EXIT:                                      * «, t00=0x0063, t01=0x0016}
0x09ade…09b16               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0063, t01=0x004e}
0x09b16…09b4e               Head {h00=0x0034, h01=0x0050, text=»*  WORK REGISTERS:  A1-A12                    * «, t00=0x0063, t01=0x0086}
0x09b4e…09b86               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0063, t01=0x00be}
0x09b86…09bbe               Head {h00=0x0034, h01=0x0050, text=»*  SUBROUTINES:  LODCOM                       * «, t00=0x0063, t01=0x00f6}
0x09bbe…09bf6               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0063, t01=0x012e}
0x09bf6…09c2e               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0063, t01=0x0166}
0x09c2e…09c42               Head {h00=0x0010, h01=0x0050, text=»LODMEX EQU *«, t00=0x0064, t01=0x000e}
0x09c42…09c6c               Head {h00=0x0026, h01=0x0050, text=» LD A1,SCTMXS MONITOR EXTENT TABLE«, t00=0x0064, t01=0x0022}
0x09c6c…09c80               Head {h00=0x0010, h01=0x0050, text=»MSX10 EQU * «, t00=0x0064, t01=0x004c}
0x09c80…09c94               Head {h00=0x0010, h01=0x0050, text=» RF(Z) MSX99«, t00=0x0064, t01=0x0060}
0x09c94…09c9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0074}
0x09c9e…09cca               Head {h00=0x0028, h01=0x0050, text=» LD A1,SCTOPT GET MONITOR OPTION =12«, t00=0x0064, t01=0x007e}
0x09cca…09cf6               Head {h00=0x0028, h01=0x0050, text=» SRC A1,1 LOOK IF MMU OPTION ON =12 «, t00=0x0064, t01=0x00aa}
0x09cf6…09d12               Head {h00=0x0018, h01=0x0050, text=» RF(N) MSX15 YES =12«, t00=0x0064, t01=0x00d6}
0x09d12…09d4a               Head {h00=0x0034, h01=0x0050, text=» LDKL A1,LMP9 NO, SET ILLEGAL MONITOR OPTION =12«, t00=0x0064, t01=0x00f2}
0x09d4a…09d64               Head {h00=0x0016, h01=0x0050, text=» CALL ERROR . =12 «, t00=0x0064, t01=0x012a}
0x09d64…09d7e               Head {h00=0x0016, h01=0x0050, text=»MSX15 EQU * . =12 «, t00=0x0064, t01=0x0144}
0x09d7e…09dae               Head {h00=0x002c, h01=0x0050, text=» CF A14,GETMON GET MONITOR DISC ADDRESS «, t00=0x0064, t01=0x015e}
0x09dae…09ddc               Head {h00=0x002a, h01=0x0050, text=» LD A3,MX:NOX,A1 GET NUMBER OF EXTENTS«, t00=0x0064, t01=0x018e}
0x09ddc…09e14               Head {h00=0x0034, h01=0x0050, text=» LD A6,MX:NOS,A1 GET NUMBER OF SEGMENT CLUSTERS «, t00=0x0065, t01=0x002c}
0x09e14…09e3c               Head {h00=0x0024, h01=0x0050, text=» SLL A6,1 MAKE BYTE DISPLACEMENT«, t00=0x0065, t01=0x0064}
0x09e3c…09e4e               Head {h00=0x000e, h01=0x0050, text=» ADK A6,4 «, t00=0x0065, t01=0x008c}
0x09e4e…09e74               Head {h00=0x0022, h01=0x0050, text=» ADR A6,A1 FIRST EXTENT BLOCK «, t00=0x0065, t01=0x009e}
0x09e74…09e88               Head {h00=0x0010, h01=0x0050, text=»MSX20 EQU * «, t00=0x0065, t01=0x00c4}
0x09e88…09eb2               Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DECREMENT EXTENT COUNTER«, t00=0x0065, t01=0x00d8}
0x09eb2…09ed6               Head {h00=0x0020, h01=0x0050, text=» RF(N) MSX99 NO MORE EXTENTS«, t00=0x0065, t01=0x0102}
0x09ed6…09ee0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0126}
0x09ee0…09f06               Head {h00=0x0022, h01=0x0050, text=» STR A3,A15 SAVE NO OF EXTENTS«, t00=0x0065, t01=0x0130}
0x09f06…09f2a               Head {h00=0x0020, h01=0x0050, text=» ADK A6,6 NEXT EXTENT BLOCK «, t00=0x0065, t01=0x0156}
0x09f2a…09f52               Head {h00=0x0024, h01=0x0050, text=» LD A7,SCTEFA RESTORE ADDRESS TO«, t00=0x0065, t01=0x017a}
0x09f52…09f7a               Head {h00=0x0024, h01=0x0050, text=» LD A5,SCTEFA+2 END OF FREE AREA«, t00=0x0066, t01=0x0012}
0x09f7a…09f90               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) MSX25 «, t00=0x0066, t01=0x003a}
0x09f90…09f9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0050}
0x09f9a…09fd0               Head {h00=0x0032, h01=0x0050, text=» LDKL A5,PAGSIZ EMPTY FRAME, START ON NEXT ONE«, t00=0x0066, t01=0x005a}
0x09fd0…09fe6               Head {h00=0x0012, h01=0x0050, text=» SUKL A7,/400 «, t00=0x0066, t01=0x0090}
0x09fe6…09ffa               Head {h00=0x0010, h01=0x0050, text=»MSX25 EQU * «, t00=0x0066, t01=0x00a6}
0x09ffa…0a026               Head {h00=0x0028, h01=0x0050, text=» LD A2,EXLEN,A6 GET LENGTH OF EXTENT«, t00=0x0066, t01=0x00ba}
0x0a026…0a050               Head {h00=0x0026, h01=0x0050, text=» ADK A2,11 RESERV FIVE EXTRA WORDS«, t00=0x0066, t01=0x00e6}
0x0a050…0a078               Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN LENGTH «, t00=0x0066, t01=0x0110}
0x0a078…0a0a8               Head {h00=0x002c, h01=0x0050, text=» SRL A7,10 FRAME ADDRESS AS FRAME COUNT «, t00=0x0066, t01=0x0138}
0x0a0a8…0a0dc               Head {h00=0x0030, h01=0x0050, text=» ADK A2,0 EXTENT LENGTH LESS THAN 32K BYTES?«, t00=0x0066, t01=0x0168}
0x0a0dc…0a0f4               Head {h00=0x0014, h01=0x0050, text=» RF(N) MSX30 NO «, t00=0x0067, t01=0x000c}
0x0a0f4…0a0fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0024}
0x0a0fe…0a134               Head {h00=0x0032, h01=0x0050, text=» CWR A2,A5 EXTENT LESS THAN AREA LEFT IN FRAME«, t00=0x0067, t01=0x002e}
0x0a134…0a14e               Head {h00=0x0016, h01=0x0050, text=» RF(L) MSX40 YES! «, t00=0x0067, t01=0x0064}
0x0a14e…0a158               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x007e}
0x0a158…0a16c               Head {h00=0x0010, h01=0x0050, text=»MSX30 EQU * «, t00=0x0067, t01=0x0088}
0x0a16c…0a17e               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0067, t01=0x009c}
0x0a17e…0a1b0               Head {h00=0x002e, h01=0x0050, text=» SRL A1,12 CONVERT LENGTH TO NO OF FRAMES «, t00=0x0067, t01=0x00ae}
0x0a1b0…0a1ce               Head {h00=0x001a, h01=0x0050, text=» CWK A1,14 <60K BYTES?«, t00=0x0067, t01=0x00e0}
0x0a1ce…0a1e8               Head {h00=0x0016, h01=0x0050, text=» RF(L) MSX35 YES! «, t00=0x0067, t01=0x00fe}
0x0a1e8…0a1f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0118}
0x0a1f2…0a222               Head {h00=0x002c, h01=0x0050, text=» CWK A5,PAGSIZ ALREADY ON A 4K BOUNDARY «, t00=0x0067, t01=0x0122}
0x0a222…0a23c               Head {h00=0x0016, h01=0x0050, text=» RF(E) MSX35 YES! «, t00=0x0067, t01=0x0152}
0x0a23c…0a246               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x016c}
0x0a246…0a272               Head {h00=0x0028, h01=0x0050, text=» LDKL A5,PAGSIZ START ON 4K BOUNDARY«, t00=0x0067, t01=0x0176}
0x0a272…0a284               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0068, t01=0x0012}
0x0a284…0a298               Head {h00=0x0010, h01=0x0050, text=»MSX35 EQU * «, t00=0x0068, t01=0x0024}
0x0a298…0a2cc               Head {h00=0x0030, h01=0x0050, text=» SUR A2,A5 SUBTRACT AREA LEFT IN LAST FRAME «, t00=0x0068, t01=0x0038}
0x0a2cc…0a2f2               Head {h00=0x0022, h01=0x0050, text=» LDK A5,0 AND SET EMPTY FRAME «, t00=0x0068, t01=0x006c}
0x0a2f2…0a304               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0068, t01=0x0092}
0x0a304…0a336               Head {h00=0x002e, h01=0x0050, text=» SRL A1,12 CONVERT LENGTH TO NO OF FRAMES «, t00=0x0068, t01=0x00a4}
0x0a336…0a366               Head {h00=0x002c, h01=0x0050, text=» SUR A7,A1 AND SUBTRACT FROM FRAME COUNT«, t00=0x0068, t01=0x00d6}
0x0a366…0a38e               Head {h00=0x0024, h01=0x0050, text=» ABL(N) MEMOVF MEMORY OVERFLOW! «, t00=0x0068, t01=0x0106}
0x0a38e…0a398               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x012e}
0x0a398…0a3c0               Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFF ISOLATE AREA LEFT «, t00=0x0068, t01=0x0138}
0x0a3c0…0a3d4               Head {h00=0x0010, h01=0x0050, text=» RF(Z) MSX45«, t00=0x0068, t01=0x0160}
0x0a3d4…0a3de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0174}
0x0a3de…0a40c               Head {h00=0x002a, h01=0x0050, text=» LDKL A5,PAGSIZ TAKE NEXT EMPTY FRAME «, t00=0x0068, t01=0x017e}
0x0a40c…0a41e               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0069, t01=0x001c}
0x0a41e…0a432               Head {h00=0x0010, h01=0x0050, text=»MSX40 EQU * «, t00=0x0069, t01=0x002e}
0x0a432…0a46a               Head {h00=0x0034, h01=0x0050, text=» SUR A5,A2 SUBTACT FROM AREA LEFT IN LAST FRAME «, t00=0x0069, t01=0x0042}
0x0a46a…0a47e               Head {h00=0x0010, h01=0x0050, text=»MSX45 EQU * «, t00=0x0069, t01=0x007a}
0x0a47e…0a4a8               Head {h00=0x0026, h01=0x0050, text=» CWK A7,15 LOOK IF FIRST PARTITION«, t00=0x0069, t01=0x008e}
0x0a4a8…0a4d6               Head {h00=0x002a, h01=0x0050, text=» ABL(NG) MEMOVF YES, MEMORY OVERFNGOW!«, t00=0x0069, t01=0x00b8}
0x0a4d6…0a4e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00e6}
0x0a4e0…0a512               Head {h00=0x002e, h01=0x0050, text=» ANKL A5,/FFFC START ON A 4 BYTE BOUNDARY «, t00=0x0069, t01=0x00f0}
0x0a512…0a53a               Head {h00=0x0024, h01=0x0050, text=» SLL A7,10 RESTORE FRAME ADDRESS«, t00=0x0069, t01=0x0122}
0x0a53a…0a568               Head {h00=0x002a, h01=0x0050, text=» ST A5,SCTEFA+2 SAVE PHYSICAL ADDRESS «, t00=0x0069, t01=0x014a}
0x0a568…0a592               Head {h00=0x0026, h01=0x0050, text=» ST A7,SCTEFA TO END OF FREE AREA «, t00=0x0069, t01=0x0178}
0x0a592…0a59c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0012}
0x0a59c…0a5c4               Head {h00=0x0024, h01=0x0050, text=» LD A4,SCTMXS GET MXSTAB ADDRESS«, t00=0x006a, t01=0x001c}
0x0a5c4…0a5ea               Head {h00=0x0022, h01=0x0050, text=» ADK A4,2 MONITOR DISC ADDRESS«, t00=0x006a, t01=0x0044}
0x0a5ea…0a60a               Head {h00=0x001c, h01=0x0050, text=» XRR A1,A1 RESET REG. A1«, t00=0x006a, t01=0x006a}
0x0a60a…0a638               Head {h00=0x002a, h01=0x0050, text=» LDR* A2,A6 GET MONITOR EXTENT ADDRESS«, t00=0x006a, t01=0x008a}
0x0a638…0a664               Head {h00=0x0028, h01=0x0050, text=» DAR* A4 AND RELOCATE EXTENT ADDRESS«, t00=0x006a, t01=0x00b8}
0x0a664…0a692               Head {h00=0x002a, h01=0x0050, text=» LDR A11,A2 GET LEAST SIGNIFICANT PART«, t00=0x006a, t01=0x00e4}
0x0a692…0a6c0               Head {h00=0x002a, h01=0x0050, text=» LDR A12,A1 AND MOST SIGNIFICANT PART «, t00=0x006a, t01=0x0112}
0x0a6c0…0a6d2               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x006a, t01=0x0140}
0x0a6d2…0a702               Head {h00=0x002c, h01=0x0050, text=» SRL A1,2 CONVERT PHYSICAL LOAD ADDRESS «, t00=0x006a, t01=0x0152}
0x0a702…0a72a               Head {h00=0x0024, h01=0x0050, text=» ORR A1,A7 TO A 16 BITS ADDRESS «, t00=0x006a, t01=0x0182}
0x0a72a…0a750               Head {h00=0x0022, h01=0x0050, text=» STR A1,A6 AND SAVE IN MXSTAB «, t00=0x006b, t01=0x001a}
0x0a750…0a75a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0040}
0x0a75a…0a788               Head {h00=0x002a, h01=0x0050, text=» ADK A5,10 SKIP PRECCEDING FIVE WORDS «, t00=0x006b, t01=0x004a}
0x0a788…0a7c6               Head {h00=0x003a, h01=0x0050, text=» ST A5,LLDADR+STKEND SAVE AS PGM LOAD ADDR. (LOGICAL) «, t00=0x006b, t01=0x0078}
0x0a7c6…0a7ee               Head {h00=0x0024, h01=0x0050, text=» LDR A8,A5 SAVE RELOCATION BASE «, t00=0x006b, t01=0x00b6}
0x0a7ee…0a822               Head {h00=0x0030, h01=0x0050, text=» ADS A5,2,A6 RELOCATE PROGRAM START ADDRESS «, t00=0x006b, t01=0x00de}
0x0a822…0a82c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0112}
0x0a82c…0a85a               Head {h00=0x002a, h01=0x0050, text=» LD A10,EXLEN,A6 GET LENGTH OF EXTENT «, t00=0x006b, t01=0x011c}
0x0a85a…0a884               Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET MMU ENTRY COUNTER «, t00=0x006b, t01=0x014a}
0x0a884…0a8b4               Head {h00=0x002c, h01=0x0050, text=» LDKL A2,TABBE GET ADDRESS TO MMU TABLE «, t00=0x006b, t01=0x0174}
0x0a8b4…0a8ee               Head {h00=0x0036, h01=0x0050, text=» ST A3,FSTSEC+STKEND RESET FIRST SECTOR INDICATOR «, t00=0x006c, t01=0x0014}
0x0a8ee…0a902               Head {h00=0x0010, h01=0x0050, text=»MSX50 EQU * «, t00=0x006c, t01=0x004e}
0x0a902…0a928               Head {h00=0x0022, h01=0x0050, text=» STR A7,A2 STORE PAGE ADDRESS «, t00=0x006c, t01=0x0062}
0x0a928…0a950               Head {h00=0x0024, h01=0x0050, text=» ADKL A7,/400 NEXT PAGE ADDRESS «, t00=0x006c, t01=0x0088}
0x0a950…0a970               Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 NEXT MMU ENTRY«, t00=0x006c, t01=0x00b0}
0x0a970…0a99a               Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 INCREMENT ENTRY COUNTER «, t00=0x006c, t01=0x00d0}
0x0a99a…0a9c6               Head {h00=0x0028, h01=0x0050, text=» CWK A3,16 ALL ENTRIES INITIALIZED? «, t00=0x006c, t01=0x00fa}
0x0a9c6…0a9de               Head {h00=0x0014, h01=0x0050, text=» RB(NE) MSX50 NO«, t00=0x006c, t01=0x0126}
0x0a9de…0a9e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x013e}
0x0a9e8…0aa0c               Head {h00=0x0020, h01=0x0050, text=» TL TABBE LOAD MMU REGISTERS«, t00=0x006c, t01=0x0148}
0x0aa0c…0aa2c               Head {h00=0x001c, h01=0x0050, text=» CALL LOD:70 LOAD EXTENT«, t00=0x006c, t01=0x016c}
0x0aa2c…0aa56               Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A15 RESTORE NO OF EXTENTS«, t00=0x006c, t01=0x018c}
0x0aa56…0aa68               Head {h00=0x000e, h01=0x0050, text=» RB MSX20 «, t00=0x006d, t01=0x0026}
0x0aa68…0aa72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0038}
0x0aa72…0aa86               Head {h00=0x0010, h01=0x0050, text=»MSX99 EQU * «, t00=0x006d, t01=0x0042}
0x0aa86…0aa96               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006d, t01=0x0056}
0x0aa96…0aaa4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006d, t01=0x0066}
0x0aaa4…0aadc               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x006d, t01=0x0074}
0x0aadc…0aae6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00ac}
0x0aae6…0ab04               Head {h00=0x001a, h01=0x0050, text=»*               GETMON«, t00=0x006d, t01=0x00b6}
0x0ab04…0ab22               Head {h00=0x001a, h01=0x0050, text=»*               ======«, t00=0x006d, t01=0x00d4}
0x0ab22…0ab2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00f2}
0x0ab2c…0ab56               Head {h00=0x0026, h01=0x0050, text=»*   SEARCH FOR MONITOR TO BE USED «, t00=0x006d, t01=0x00fc}
0x0ab56…0ab7e               Head {h00=0x0024, h01=0x0050, text=»*   AND UPDATE IT'S DISC ADDRESS«, t00=0x006d, t01=0x0126}
0x0ab7e…0ab9c               Head {h00=0x001a, h01=0x0050, text=»*   IN MXSTAB ENTRIES.«, t00=0x006d, t01=0x014e}
0x0ab9c…0aba6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x016c}
0x0aba6…0abde               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x006d, t01=0x0176}
0x0abde…0abe8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x001e}
0x0abe8…0abf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0028}
0x0abf2…0ac06               Head {h00=0x0010, h01=0x0050, text=»GETMON EQU *«, t00=0x006e, t01=0x0032}
0x0ac06…0ac32               Head {h00=0x0028, h01=0x0050, text=» LD A1,SCTANO GET APPLICATION NUMBER«, t00=0x006e, t01=0x0046}
0x0ac32…0ac52               Head {h00=0x001c, h01=0x0050, text=» ST A1,MONNO+STKEND SAVE«, t00=0x006e, t01=0x0072}
0x0ac52…0ac88               Head {h00=0x0032, h01=0x0050, text=» CF A14,GETNBR GET CORRESPONDING ENTRY IN VTOC«, t00=0x006e, t01=0x0092}
0x0ac88…0acbc               Head {h00=0x0030, h01=0x0050, text=» LC A1,8,A4 GET CORRESPONDING MONITOR NUMBER«, t00=0x006e, t01=0x00c8}
0x0acbc…0acf2               Head {h00=0x0032, h01=0x0050, text=» SLL A1,8 FORM MONITOR NBR. AND APPL. NBR. '0'«, t00=0x006e, t01=0x00fc}
0x0acf2…0ad16               Head {h00=0x0020, h01=0x0050, text=» ST A1,MONNO+STKEND AND SAVE«, t00=0x006e, t01=0x0132}
0x0ad16…0ad4e               Head {h00=0x0034, h01=0x0050, text=» CF A14,GETNBR SEARCH FOR APPL. NBR. 0 (MONITOR)«, t00=0x006e, t01=0x0156}
0x0ad4e…0ad58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x018e}
0x0ad58…0ad6c               Head {h00=0x0010, h01=0x0050, text=»GTMON2 EQU *«, t00=0x006f, t01=0x0008}
0x0ad6c…0ada0               Head {h00=0x0030, h01=0x0050, text=» LD A1,MONNO+STKEND GET MONITOR NO (BIT 0-7)«, t00=0x006f, t01=0x001c}
0x0ada0…0adcc               Head {h00=0x0028, h01=0x0050, text=» CW A1,8,A4 IS IT THE RIGHT MONITOR?«, t00=0x006f, t01=0x0050}
0x0adcc…0ade6               Head {h00=0x0016, h01=0x0050, text=» RF(E) GTMON4 YES!«, t00=0x006f, t01=0x007c}
0x0ade6…0adf0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0096}
0x0adf0…0ae2c               Head {h00=0x0038, h01=0x0050, text=» CF A14,GTNBR4 NO, CONTINUE TO NEXT MONITOR IN VTOC «, t00=0x006f, t01=0x00a0}
0x0ae2c…0ae3e               Head {h00=0x000e, h01=0x0050, text=» RB GTMON2«, t00=0x006f, t01=0x00dc}
0x0ae3e…0ae48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00ee}
0x0ae48…0ae5c               Head {h00=0x0010, h01=0x0050, text=»GTMON4 EQU *«, t00=0x006f, t01=0x00f8}
0x0ae5c…0ae84               Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTMXS GET MXSTAB ADDRESS«, t00=0x006f, t01=0x010c}
0x0ae84…0aebc               Head {h00=0x0034, h01=0x0050, text=» LD A2,16,A4 GET MONITOR DISC ADDRESS (BIT 0-15)«, t00=0x006f, t01=0x0134}
0x0aebc…0aee2               Head {h00=0x0022, h01=0x0050, text=» ST A2,2,A1 AND SAVE IN MXSTAB«, t00=0x006f, t01=0x016c}
0x0aee2…0af1c (112, 0, 400) Head {h00=0x0036, h01=0x0050, text=» LD A2,18,A4 AND MONITOR DISC ADDRESS (BIT 16-31) «, t00=0x0070, t01=0x0004}
0x0af1c…0af42               Head {h00=0x0022, h01=0x0050, text=» ST A2,4,A1 AND SAVE IN MXSTAB«, t00=0x0070, t01=0x003e}
0x0af42…0af5a               Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0070, t01=0x0064}
0x0af5a…0af68               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0070, t01=0x007c}
0x0af68…0af7c               Head {h00=0x0010, h01=0x0050, text=»GETNBR EQU *«, t00=0x0070, t01=0x008a}
0x0af7c…0afa4               Head {h00=0x0024, h01=0x0050, text=» CF A14,GETVLB READ VOLUME LABEL«, t00=0x0070, t01=0x009e}
0x0afa4…0afb8               Head {h00=0x0010, h01=0x0050, text=»GTNBR0 EQU *«, t00=0x0070, t01=0x00c6}
0x0afb8…0afda               Head {h00=0x001e, h01=0x0050, text=» CF A14,RDSEC READ SECTOR «, t00=0x0070, t01=0x00da}
0x0afda…0b006               Head {h00=0x0028, h01=0x0050, text=» LDK A7,QBLFAC VTOC BLOCKING FACTOR «, t00=0x0070, t01=0x00fc}
0x0b006…0b028               Head {h00=0x001e, h01=0x0050, text=» LDR A4,A9 START OF RECORD«, t00=0x0070, t01=0x0128}
0x0b028…0b05a               Head {h00=0x002e, h01=0x0050, text=» LD A1,MONNO+STKEND GET APPLICATION NUMBER«, t00=0x0070, t01=0x014a}
0x0b05a…0b06e               Head {h00=0x0010, h01=0x0050, text=»GTNBR2 EQU *«, t00=0x0070, t01=0x017c}
0x0b06e…0b0a0               Head {h00=0x002e, h01=0x0050, text=» LCR A2,A4 GET 1ST CHARACTER IN FILE NAME «, t00=0x0070, t01=0x0190}
0x0b0a0…0b0be               Head {h00=0x001a, h01=0x0050, text=» CCK A2,/2020 UNUSED? «, t00=0x0071, t01=0x0032}
0x0b0be…0b0d8               Head {h00=0x0016, h01=0x0050, text=» RF(E) GTNBR4 YES!«, t00=0x0071, t01=0x0050}
0x0b0d8…0b0e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x006a}
0x0b0e2…0b10e               Head {h00=0x0028, h01=0x0050, text=» CC A1,9,A4 SAME APPLICATION NUMBER?«, t00=0x0071, t01=0x0074}
0x0b10e…0b130               Head {h00=0x001e, h01=0x0050, text=» RF(E) GTNBR6 YES, RETURN «, t00=0x0071, t01=0x00a0}
0x0b130…0b13a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00c2}
0x0b13a…0b14e               Head {h00=0x0010, h01=0x0050, text=»GTNBR4 EQU *«, t00=0x0071, t01=0x00cc}
0x0b14e…0b170               Head {h00=0x001e, h01=0x0050, text=» ADR A4,A8 GET NEXT RECORD«, t00=0x0071, t01=0x00e0}
0x0b170…0b19a               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 BYPASS STATUS CHARACTER «, t00=0x0071, t01=0x0102}
0x0b19a…0b1c8               Head {h00=0x002a, h01=0x0050, text=» SUK A7,1 MORE RECORDS IN THIS SECTOR?«, t00=0x0071, t01=0x012c}
0x0b1c8…0b1e2               Head {h00=0x0016, h01=0x0050, text=» RB(P) GTNBR2 YES!«, t00=0x0071, t01=0x015a}
0x0b1e2…0b1ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0174}
0x0b1ec…0b214               Head {h00=0x0024, h01=0x0050, text=» RB GTNBR0 NO, READ NEXT SECTOR «, t00=0x0071, t01=0x017e}
0x0b214…0b21e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0016}
0x0b21e…0b232               Head {h00=0x0010, h01=0x0050, text=»GTNBR6 EQU *«, t00=0x0072, t01=0x0020}
0x0b232…0b242               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0072, t01=0x0034}
0x0b242…0b24e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0072, t01=0x0044}
0x0b24e…0b25c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0072, t01=0x0050}
0x0b25c…0b29e               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0072, t01=0x005e}
0x0b29e…0b2e0               Head {h00=0x003e, h01=0x0050, text=»*                                                        *«, t00=0x0072, t01=0x00a0}
0x0b2e0…0b322               Head {h00=0x003e, h01=0x0050, text=»*           LOAD CONFIGURATION PART OF SYSLOD            *«, t00=0x0072, t01=0x00e2}
0x0b322…0b364               Head {h00=0x003e, h01=0x0050, text=»*           =================================            *«, t00=0x0072, t01=0x0124}
0x0b364…0b3a6               Head {h00=0x003e, h01=0x0050, text=»*                                                        *«, t00=0x0072, t01=0x0166}
0x0b3a6…0b3e8               Head {h00=0x003e, h01=0x0050, text=»*  ENTRY:  A9 - BUFFER ADDRESS                           *«, t00=0x0073, t01=0x0018}
0x0b3e8…0b42a               Head {h00=0x003e, h01=0x0050, text=»*                                                        *«, t00=0x0073, t01=0x005a}
0x0b42a…0b46c               Head {h00=0x003e, h01=0x0050, text=»*  EXIT:                                                 *«, t00=0x0073, t01=0x009c}
0x0b46c…0b4ae               Head {h00=0x003e, h01=0x0050, text=»*                                                        *«, t00=0x0073, t01=0x00de}
0x0b4ae…0b4f0               Head {h00=0x003e, h01=0x0050, text=»*  SUBROUTINES:  CASSIN,RDBLK,MOVBUF                     *«, t00=0x0073, t01=0x0120}
0x0b4f0…0b532               Head {h00=0x003e, h01=0x0050, text=»*                                                        *«, t00=0x0073, t01=0x0162}
0x0b532…0b574               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0074, t01=0x0014}
0x0b574…0b588               Head {h00=0x0010, h01=0x0050, text=»CONLOD EQU *«, t00=0x0074, t01=0x0056}
0x0b588…0b5b2               Head {h00=0x0026, h01=0x0050, text=» LD A1,SCTEFA GET END OF FREE AREA«, t00=0x0074, t01=0x006a}
0x0b5b2…0b5ca               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x0074, t01=0x0094}
0x0b5ca…0b5f0               Head {h00=0x0022, h01=0x0050, text=» ANKL A1,/3C00 ISOLATE BIT 2-5«, t00=0x0074, t01=0x00ac}
0x0b5f0…0b614               Head {h00=0x0020, h01=0x0050, text=» SLL A1,2 ROTATE TO BIT 0-3 «, t00=0x0074, t01=0x00d2}
0x0b614…0b64a               Head {h00=0x0032, h01=0x0050, text=» ORS A1,SCTEFA+2 CONCATENATE WITH DISPLACEMENT«, t00=0x0074, t01=0x00f6}
0x0b64a…0b676               Head {h00=0x0028, h01=0x0050, text=» SLC A2,2 PARTITION NR TO BIT 14,15 «, t00=0x0074, t01=0x012c}
0x0b676…0b692               Head {h00=0x0018, h01=0x0050, text=» ANK A2,3 ISOLATE IT«, t00=0x0074, t01=0x0158}
0x0b692…0b6b0               Head {h00=0x001a, h01=0x0050, text=» ST A2,SCTEFA AND SAVE«, t00=0x0074, t01=0x0174}
0x0b6b0…0b6ec (117, 0, 400) Head {h00=0x0038, h01=0x0050, text=» LD A1,CURAPL+STKEND START OF LAST APPL. CTRL. BLOCK«, t00=0x0075, t01=0x0004}
0x0b6ec…0b720               Head {h00=0x0030, h01=0x0050, text=» ADK A1,ACBLEN END OF LAST APPL. CTRL. BLOCK«, t00=0x0075, t01=0x0040}
0x0b720…0b750               Head {h00=0x002c, h01=0x0050, text=» ST A1,SCTSFA UPDATE START OF FREE AREA «, t00=0x0075, t01=0x0074}
0x0b750…0b78c               Head {h00=0x0038, h01=0x0050, text=» LD A1,APLTAB+STKCOM GET START OF APPL. CONTR. TABLE«, t00=0x0075, t01=0x00a4}
0x0b78c…0b7bc               Head {h00=0x002c, h01=0x0050, text=» ADK A1,2 ADVANCE TO FIRST CONTROL BLOCK«, t00=0x0075, t01=0x00e0}
0x0b7bc…0b7f4               Head {h00=0x0034, h01=0x0050, text=» CM APLMMC,A1 SET REL. START OF APPL. CONF. DATA«, t00=0x0075, t01=0x0110}
0x0b7f4…0b826               Head {h00=0x002e, h01=0x0050, text=» ADK A1,ACBLEN ADVANCE TO NEXT APPLICATION«, t00=0x0075, t01=0x0148}
0x0b826…0b850               Head {h00=0x0026, h01=0x0050, text=» ST A1,CURAPL+STKEND CONTROL BLOCK«, t00=0x0075, t01=0x017a}
0x0b850…0b87e               Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x0076, t01=0x0014}
0x0b87e…0b8a4               Head {h00=0x0022, h01=0x0050, text=» SUK A1,/F0 CHECK DEVICE TYPE «, t00=0x0076, t01=0x0042}
0x0b8a4…0b8c8               Head {h00=0x0020, h01=0x0050, text=» RF(NN) CONRAD NOT CASSETTE «, t00=0x0076, t01=0x0068}
0x0b8c8…0b8e2               Head {h00=0x0016, h01=0x0050, text=» IFT CFTEST+CASS=2«, t00=0x0076, t01=0x008c}
0x0b8e2…0b8ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00a6}
0x0b8ec…0b916               Head {h00=0x0026, h01=0x0050, text=»*  PROGRAM LOAD DEVICE = CASSETTE «, t00=0x0076, t01=0x00b0}
0x0b916…0b920               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00da}
0x0b920…0b934               Head {h00=0x0010, h01=0x0050, text=»CON:30 EQU *«, t00=0x0076, t01=0x00e4}
0x0b934…0b94e               Head {h00=0x0016, h01=0x0050, text=» LDKL A1,CON:40-2 «, t00=0x0076, t01=0x00f8}
0x0b94e…0b966               Head {h00=0x0014, h01=0x0050, text=» SUKL A1,COR:48 «, t00=0x0076, t01=0x0112}
0x0b966…0b97c               Head {h00=0x0012, h01=0x0050, text=» ADKL A1,/5700«, t00=0x0076, t01=0x012a}
0x0b97c…0b9a4               Head {h00=0x0024, h01=0x0050, text=» ST A1,COR:48 MODIFY INSTRUCTION«, t00=0x0076, t01=0x0140}
0x0b9a4…0b9ba               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/0100«, t00=0x0076, t01=0x0168}
0x0b9ba…0b9d6               Head {h00=0x0018, h01=0x0050, text=» ST A1,COR:38 MODIFY«, t00=0x0076, t01=0x017e}
0x0b9d6…0b9f8               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 START OF BUFFER«, t00=0x0077, t01=0x000a}
0x0b9f8…0ba1e               Head {h00=0x0022, h01=0x0050, text=» ADKL A1,BUFLEN END OF BUFFER «, t00=0x0077, t01=0x002c}
0x0ba1e…0ba4e               Head {h00=0x002c, h01=0x0050, text=» ST A1,PLDADR+STKEND SAVE END OF BUFFER «, t00=0x0077, t01=0x0052}
0x0ba4e…0ba70               Head {h00=0x001e, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE «, t00=0x0077, t01=0x0082}
0x0ba70…0baa0               Head {h00=0x002c, h01=0x0050, text=» ST A1,CONSTA+STKCOM START OF CONF. DATA«, t00=0x0077, t01=0x00a4}
0x0baa0…0bac4               Head {h00=0x0020, h01=0x0050, text=» CF A14,RDBLK READ ONE BLOCK«, t00=0x0077, t01=0x00d4}
0x0bac4…0baea               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x0077, t01=0x00f8}
0x0baea…0bafc               Head {h00=0x000e, h01=0x0050, text=» LDR A8,A9«, t00=0x0077, t01=0x011e}
0x0bafc…0bb22               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A8 GET START OF BUFFER«, t00=0x0077, t01=0x0130}
0x0bb22…0bb3e               Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x0077, t01=0x0156}
0x0bb3e…0bb58               Head {h00=0x0016, h01=0x0050, text=» RF(Z) TST:10 NO! «, t00=0x0077, t01=0x0172}
0x0bb58…0bb8a               Head {h00=0x002e, h01=0x0050, text=» CF A14,CASSIN INIT CONFIGURATION CASSETTE«, t00=0x0077, t01=0x018c}
0x0bb8a…0bb9e               Head {h00=0x0010, h01=0x0050, text=» CALL CON:40«, t00=0x0078, t01=0x002e}
0x0bb9e…0bbb0               Head {h00=0x000e, h01=0x0050, text=» RF TST:10«, t00=0x0078, t01=0x0042}
0x0bbb0…0bbc4               Head {h00=0x0010, h01=0x0050, text=»CONEX EQU * «, t00=0x0078, t01=0x0054}
0x0bbc4…0bbce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0068}
0x0bbce…0bc10               Head {h00=0x003e, h01=0x0050, text=»*  UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE«, t00=0x0078, t01=0x0072}
0x0bc10…0bc1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00b4}
0x0bc1a…0bc40               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x0078, t01=0x00be}
0x0bc40…0bc64               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 APPLICATION DATA?«, t00=0x0078, t01=0x00e4}
0x0bc64…0bc7e               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CON:80 NO!«, t00=0x0078, t01=0x0108}
0x0bc7e…0bc90               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/D«, t00=0x0078, t01=0x0122}
0x0bc90…0bcbe               Head {h00=0x002a, h01=0x0050, text=» CF A14,CHCRIO SEARCH TAPEMARK REVERSE«, t00=0x0078, t01=0x0134}
0x0bcbe…0bce4               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK BYPASS TAPEMARK «, t00=0x0078, t01=0x0162}
0x0bce4…0bcf6               Head {h00=0x000e, h01=0x0050, text=» RF CON:90«, t00=0x0078, t01=0x0188}
0x0bcf6…0bd0a               Head {h00=0x0010, h01=0x0050, text=»CON:80 EQU *«, t00=0x0079, t01=0x000a}
0x0bd0a…0bd1c               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/F«, t00=0x0079, t01=0x001e}
0x0bd1c…0bd42               Head {h00=0x0022, h01=0x0050, text=» CF A14,CHCRIO UNLOAD CASSETTE«, t00=0x0079, t01=0x0030}
0x0bd42…0bd56               Head {h00=0x0010, h01=0x0050, text=»CON:90 EQU *«, t00=0x0079, t01=0x0056}
0x0bd56…0bd6a               Head {h00=0x0010, h01=0x0050, text=» ABL CONMOV «, t00=0x0079, t01=0x006a}
0x0bd6a…0bd76               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0079, t01=0x007e}
0x0bd76…0bd8c               Head {h00=0x0012, h01=0x0050, text=» IFT CFTEST=1 «, t00=0x0079, t01=0x008a}
0x0bd8c…0bd9a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x00a0}
0x0bd9a…0bdae               Head {h00=0x0010, h01=0x0050, text=»CONRAD EQU *«, t00=0x0079, t01=0x00ae}
0x0bdae…0bdb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00c2}
0x0bdb8…0bdf2               Head {h00=0x0036, h01=0x0050, text=»*  LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC«, t00=0x0079, t01=0x00cc}
0x0bdf2…0bdfc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0106}
0x0bdfc…0be38               Head {h00=0x0038, h01=0x0050, text=» LD A1,CONDEV+STKEND GET LOAD DEVICE FOR CONF. DATA «, t00=0x0079, t01=0x0110}
0x0be38…0be66               Head {h00=0x002a, h01=0x0050, text=» RF(Z) CONRA0 SAME AS PGM LOAD DEVICE «, t00=0x0079, t01=0x014c}
0x0be66…0be70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x017a}
0x0be70…0bea4               Head {h00=0x0030, h01=0x0050, text=» CF A14,CONFLD INITIATE CONF. DATA LOAD DEV.«, t00=0x0079, t01=0x0184}
0x0bea4…0beb8               Head {h00=0x0010, h01=0x0050, text=»CONRA0 EQU *«, t00=0x007a, t01=0x0028}
0x0beb8…0bee6               Head {h00=0x002a, h01=0x0050, text=» LD A11,CONDAD+STKEND GET START SECTOR«, t00=0x007a, t01=0x003c}
0x0bee6…0bf1c               Head {h00=0x0032, h01=0x0050, text=» LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART «, t00=0x007a, t01=0x006a}
0x0bf1c…0bf42               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x007a, t01=0x00a0}
0x0bf42…0bf6a               Head {h00=0x0024, h01=0x0050, text=» ADKL A1,BUFLEN-6 END OF BUFFER «, t00=0x007a, t01=0x00c6}
0x0bf6a…0bf9a               Head {h00=0x002c, h01=0x0050, text=» ST A1,PLDADR+STKEND SAVE END OF BUFFER «, t00=0x007a, t01=0x00ee}
0x0bf9a…0bfc0               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x007a, t01=0x011e}
0x0bfc0…0bfea               Head {h00=0x0026, h01=0x0050, text=» AD A1,SAVCON START OF SAVE BUFFER«, t00=0x007a, t01=0x0144}
0x0bfea…0c00e               Head {h00=0x0020, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE =2«, t00=0x007a, t01=0x016e}
0x0c00e…0c03e (123, 0, 400) Head {h00=0x002c, h01=0x0050, text=» ST A1,CONSTA+STKCOM START OF CONF. DATA«, t00=0x007b, t01=0x0004}
0x0c03e…0c066               Head {h00=0x0024, h01=0x0050, text=» LDKL A10,0 RESET RECORD COUNTER«, t00=0x007b, t01=0x0034}
0x0c066…0c070               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x005c}
0x0c070…0c0a4               Head {h00=0x0030, h01=0x0050, text=»*  READ ONE SECTOR FROM RANDOM ACCESS DEVICE«, t00=0x007b, t01=0x0066}
0x0c0a4…0c0ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x009a}
0x0c0ae…0c0ce               Head {h00=0x001c, h01=0x0050, text=» CALL READC READ SECTOR «, t00=0x007b, t01=0x00a4}
0x0c0ce…0c0d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00c4}
0x0c0d8…0c10c               Head {h00=0x0030, h01=0x0050, text=»* TEST THE SYNTAX OF THE CONFIGURATION FILE «, t00=0x007b, t01=0x00ce}
0x0c10c…0c116               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0102}
0x0c116…0c12c               Head {h00=0x0012, h01=0x0050, text=»TST:10 CALL T «, t00=0x007b, t01=0x010c}
0x0c12c…0c140               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007b, t01=0x0122}
0x0c140…0c150               Head {h00=0x000c, h01=0x0050, text=» CALL NN«, t00=0x007b, t01=0x0136}
0x0c150…0c164               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007b, t01=0x0146}
0x0c164…0c176               Head {h00=0x000e, h01=0x0050, text=» CALL TID «, t00=0x007b, t01=0x015a}
0x0c176…0c188               Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x007b, t01=0x016c}
0x0c188…0c198               Head {h00=0x000c, h01=0x0050, text=» CALL AA«, t00=0x007b, t01=0x017e}
0x0c198…0c1ac               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007b, t01=0x018e}
0x0c1ac…0c1be               Head {h00=0x000e, h01=0x0050, text=» CALL TCL «, t00=0x007c, t01=0x0012}
0x0c1be…0c1d0               Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x007c, t01=0x0024}
0x0c1d0…0c1e0               Head {h00=0x000c, h01=0x0050, text=» CALL AA«, t00=0x007c, t01=0x0036}
0x0c1e0…0c1f4               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007c, t01=0x0046}
0x0c1f4…0c206               Head {h00=0x000e, h01=0x0050, text=» CALL LEV «, t00=0x007c, t01=0x005a}
0x0c206…0c218               Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x007c, t01=0x006c}
0x0c218…0c22a               Head {h00=0x000e, h01=0x0050, text=» CALL NN1 «, t00=0x007c, t01=0x007e}
0x0c22a…0c244               Head {h00=0x0016, h01=0x0050, text=»TST:20 CALL CONRD «, t00=0x007c, t01=0x0090}
0x0c244…0c256               Head {h00=0x000e, h01=0x0050, text=» CALL NN1 «, t00=0x007c, t01=0x00aa}
0x0c256…0c26a               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007c, t01=0x00bc}
0x0c26a…0c2b0               Head {h00=0x0042, h01=0x0050, text=»TST:30 LD A5,NDEVCL+STKEND GET NUMBER OF TERMINAL DEV. CLASSES«, t00=0x007c, t01=0x00d0}
0x0c2b0…0c2cc               Head {h00=0x0018, h01=0x0050, text=» CWK A5,/3030 ZERO? «, t00=0x007c, t01=0x0116}
0x0c2cc…0c2e6               Head {h00=0x0016, h01=0x0050, text=» RF(E) TST:40 YES!«, t00=0x007c, t01=0x0132}
0x0c2e6…0c2fa               Head {h00=0x0010, h01=0x0050, text=» CALL SUKASC«, t00=0x007c, t01=0x014c}
0x0c2fa…0c30c               Head {h00=0x000e, h01=0x0050, text=» CALL TDCT«, t00=0x007c, t01=0x0160}
0x0c30c…0c31e               Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x007c, t01=0x0172}
0x0c31e…0c32e               Head {h00=0x000c, h01=0x0050, text=» CALL NN«, t00=0x007c, t01=0x0184}
0x0c32e…0c342 (125, 0, 398) Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007d, t01=0x0004}
0x0c342…0c352               Head {h00=0x000c, h01=0x0050, text=» CALL LC«, t00=0x007d, t01=0x0018}
0x0c352…0c364               Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x007d, t01=0x0028}
0x0c364…0c376               Head {h00=0x000e, h01=0x0050, text=» CALL NNL «, t00=0x007d, t01=0x003a}
0x0c376…0c38a               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007d, t01=0x004c}
0x0c38a…0c39c               Head {h00=0x000e, h01=0x0050, text=» RB TST:30«, t00=0x007d, t01=0x0060}
0x0c39c…0c3b0               Head {h00=0x0010, h01=0x0050, text=»TST:40 EQU *«, t00=0x007d, t01=0x0072}
0x0c3b0…0c3c2               Head {h00=0x000e, h01=0x0050, text=» CALL NN1 «, t00=0x007d, t01=0x0086}
0x0c3c2…0c3d6               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007d, t01=0x0098}
0x0c3d6…0c3ea               Head {h00=0x0010, h01=0x0050, text=»TST:50 EQU *«, t00=0x007d, t01=0x00ac}
0x0c3ea…0c42a               Head {h00=0x003c, h01=0x0050, text=» LD A5,NDEVCL+STKEND GET NUMBER OF SPECIAL DEV. CLASSES «, t00=0x007d, t01=0x00c0}
0x0c42a…0c446               Head {h00=0x0018, h01=0x0050, text=» CWK A5,/3030 ZERO? «, t00=0x007d, t01=0x0100}
0x0c446…0c460               Head {h00=0x0016, h01=0x0050, text=» RF(E) TST:60 YES!«, t00=0x007d, t01=0x011c}
0x0c460…0c474               Head {h00=0x0010, h01=0x0050, text=» CALL SUKASC«, t00=0x007d, t01=0x0136}
0x0c474…0c486               Head {h00=0x000e, h01=0x0050, text=» CALL SDCS«, t00=0x007d, t01=0x014a}
0x0c486…0c498               Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x007d, t01=0x015c}
0x0c498…0c4a8               Head {h00=0x000c, h01=0x0050, text=» CALL NN«, t00=0x007d, t01=0x016e}
0x0c4a8…0c4bc               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007d, t01=0x017e}
0x0c4bc…0c4ce (126, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB TST:50«, t00=0x007e, t01=0x0004}
0x0c4ce…0c4e2               Head {h00=0x0010, h01=0x0050, text=»TST:60 EQU *«, t00=0x007e, t01=0x0016}
0x0c4e2…0c502               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x007e, t01=0x002a}
0x0c502…0c532               Head {h00=0x002c, h01=0x0050, text=» CCK A5,'TT' BLOCK TYPE T? (MOD. INSTR.)«, t00=0x007e, t01=0x004a}
0x0c532…0c548               Head {h00=0x0012, h01=0x0050, text=»TST:70 EQU *-2«, t00=0x007e, t01=0x007a}
0x0c548…0c562               Head {h00=0x0016, h01=0x0050, text=» RB(E) TST:10 YES!«, t00=0x007e, t01=0x0090}
0x0c562…0c578               Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/FFFF«, t00=0x007e, t01=0x00aa}
0x0c578…0c5a6               Head {h00=0x002a, h01=0x0050, text=» ST A3,TST:70 MODIFY INSTRUCTION TO RF«, t00=0x007e, t01=0x00c0}
0x0c5a6…0c5ca               Head {h00=0x0020, h01=0x0050, text=» CCK A5,'CC' BLOCK TYPE C ? «, t00=0x007e, t01=0x00ee}
0x0c5ca…0c5e4               Head {h00=0x0016, h01=0x0050, text=» RF(NE) TST:80 NO!«, t00=0x007e, t01=0x0112}
0x0c5e4…0c5fa               Head {h00=0x0012, h01=0x0050, text=» LDKL A3,'CC' «, t00=0x007e, t01=0x012c}
0x0c5fa…0c620               Head {h00=0x0022, h01=0x0050, text=» ST A3,T:10 MODIFY INSTRUCTION«, t00=0x007e, t01=0x0142}
0x0c620…0c630               Head {h00=0x000c, h01=0x0050, text=» CALL T «, t00=0x007e, t01=0x0168}
0x0c630…0c642               Head {h00=0x000e, h01=0x0050, text=» RB TST:20«, t00=0x007e, t01=0x0178}
0x0c642…0c656               Head {h00=0x0010, h01=0x0050, text=»TST:80 EQU *«, t00=0x007e, t01=0x018a}
0x0c656…0c688               Head {h00=0x002e, h01=0x0050, text=» LDR A1,A5 SAVE FIRST CHARACTER IN RECORD «, t00=0x007f, t01=0x000e}
0x0c688…0c6b2               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x007f, t01=0x0040}
0x0c6b2…0c6d2               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x007f, t01=0x006a}
0x0c6d2…0c6f4               Head {h00=0x001e, h01=0x0050, text=» CCK A5,';;' END OF RECORD«, t00=0x007f, t01=0x008a}
0x0c6f4…0c710               Head {h00=0x0018, h01=0x0050, text=» ABL(NE) CONERR NO! «, t00=0x007f, t01=0x00ac}
0x0c710…0c724               Head {h00=0x0010, h01=0x0050, text=»TST:85 EQU *«, t00=0x007f, t01=0x00c8}
0x0c724…0c756               Head {h00=0x002e, h01=0x0050, text=» CCK A1,'AA' START OF APPL. CONTR. BLOCK? «, t00=0x007f, t01=0x00dc}
0x0c756…0c770               Head {h00=0x0016, h01=0x0050, text=» RF(E) TST:90 YES «, t00=0x007f, t01=0x010e}
0x0c770…0c77a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0128}
0x0c77a…0c7a8               Head {h00=0x002a, h01=0x0050, text=» CCK A1,'DD' DATA COMMUNICATION BLOCK?«, t00=0x007f, t01=0x0132}
0x0c7a8…0c7c2               Head {h00=0x0016, h01=0x0050, text=» RF(NE) TST:87 NO!«, t00=0x007f, t01=0x0160}
0x0c7c2…0c7cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x017a}
0x0c7cc…0c808               Head {h00=0x0038, h01=0x0050, text=» LD A1,EINPBF+STKEND CURRENT POSITION IN CONF. DATA «, t00=0x007f, t01=0x0184}
0x0c808…0c840               Head {h00=0x0034, h01=0x0050, text=» SU A1,CONSTA+STKCOM CALCULATE RELATIVE POSITION«, t00=0x0080, t01=0x0030}
0x0c840…0c860               Head {h00=0x001c, h01=0x0050, text=» ST A1,DCBLK+STKCOM SAVE«, t00=0x0080, t01=0x0068}
0x0c860…0c874               Head {h00=0x0010, h01=0x0050, text=»TST:87 EQU *«, t00=0x0080, t01=0x0088}
0x0c874…0c8a0               Head {h00=0x0028, h01=0x0050, text=» CALL CONRD MOVE AND GET NEXT RECORD«, t00=0x0080, t01=0x009c}
0x0c8a0…0c8c8               Head {h00=0x0024, h01=0x0050, text=» LCR A1,A4 AND FIRST CHAR. IN IT«, t00=0x0080, t01=0x00c8}
0x0c8c8…0c8da               Head {h00=0x000e, h01=0x0050, text=» RB TST:85«, t00=0x0080, t01=0x00f0}
0x0c8da…0c8e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0102}
0x0c8e4…0c8f8               Head {h00=0x0010, h01=0x0050, text=»TST:90 EQU *«, t00=0x0080, t01=0x010c}
0x0c8f8…0c902               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0120}
0x0c902…0c926               Head {h00=0x0020, h01=0x0050, text=»*  APPLICATION CONTROL BLOCK«, t00=0x0080, t01=0x012a}
0x0c926…0c946               Head {h00=0x001c, h01=0x0050, text=»*  SKIP NAME RECORD AND «, t00=0x0080, t01=0x014e}
0x0c946…0c968               Head {h00=0x001e, h01=0x0050, text=»*  SCAN CONFIGURATION DATA«, t00=0x0080, t01=0x016e}
0x0c968…0c972               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0190}
0x0c972…0c9b0               Head {h00=0x003a, h01=0x0050, text=» LDKL A1,/FF3B SUBSTITUTE 'A;' WITH 'HEX. FF' AND ';' «, t00=0x0081, t01=0x000a}
0x0c9b0…0c9c2               Head {h00=0x000e, h01=0x0050, text=» STR A1,A8«, t00=0x0081, t01=0x0048}
0x0c9c2…0c9fa               Head {h00=0x0034, h01=0x0050, text=» LD A2,CURAPL+STKEND CURRENT APPL. CONTR. BLOCK «, t00=0x0081, t01=0x005a}
0x0c9fa…0ca36               Head {h00=0x0038, h01=0x0050, text=» LD A1,EINPBF+STKEND CURRENT POSITION IN CONF. DATA «, t00=0x0081, t01=0x0092}
0x0ca36…0ca5a               Head {h00=0x0020, h01=0x0050, text=» ADK A1,1 SKIP BLOCK MARKER «, t00=0x0081, t01=0x00ce}
0x0ca5a…0ca92               Head {h00=0x0034, h01=0x0050, text=» SU A1,CONSTA+STKCOM CALCULATE RELATIVE POSITION«, t00=0x0081, t01=0x00f2}
0x0ca92…0cad0               Head {h00=0x003a, h01=0x0050, text=» ST A1,APLMMC,A2 AND SAVE AS START OF APPL. CONF. DATA«, t00=0x0081, t01=0x012a}
0x0cad0…0cae6               Head {h00=0x0012, h01=0x0050, text=» ADK A2,ACBLEN«, t00=0x0081, t01=0x0168}
0x0cae6…0cb26               Head {h00=0x003c, h01=0x0050, text=» ST A2,CURAPL+STKEND ADVANCE TO NEXT APPL. CONTR. BLOCK «, t00=0x0081, t01=0x017e}
0x0cb26…0cb4e               Head {h00=0x0024, h01=0x0050, text=» CALL CONRD MOVE AND PACK RECORD«, t00=0x0082, t01=0x002e}
0x0cb4e…0cb7a               Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x0082, t01=0x0056}
0x0cb7a…0cba4               Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD «, t00=0x0082, t01=0x0082}
0x0cba4…0cbbe               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:50 YES!«, t00=0x0082, t01=0x00ac}
0x0cbbe…0cbf0               Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x0082, t01=0x00c6}
0x0cbf0…0cc1a               Head {h00=0x0026, h01=0x0050, text=» CW A8,PLDADR+STKEND END OF BUFFER«, t00=0x0082, t01=0x00f8}
0x0cc1a…0cc30               Head {h00=0x0012, h01=0x0050, text=» RF(NE) TST:95«, t00=0x0082, t01=0x0122}
0x0cc30…0cc3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0138}
0x0cc3a…0cc5a               Head {h00=0x001c, h01=0x0050, text=» CALL READC READ SECTOR «, t00=0x0082, t01=0x0142}
0x0cc5a…0cc6e               Head {h00=0x0010, h01=0x0050, text=»TST:95 EQU *«, t00=0x0082, t01=0x0162}
0x0cc6e…0cc9c               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,'TT' LOOK FOR TASK DEF. BLOCK«, t00=0x0082, t01=0x0176}
0x0cc9c…0ccc0               Head {h00=0x0020, h01=0x0050, text=» ST A1,TST:70 MODIFY INSTR. «, t00=0x0083, t01=0x0014}
0x0ccc0…0ccd4               Head {h00=0x0010, h01=0x0050, text=» ST A1,T:10 «, t00=0x0083, t01=0x0038}
0x0ccd4…0cce6               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A8«, t00=0x0083, t01=0x004c}
0x0cce6…0cd0a               Head {h00=0x0020, h01=0x0050, text=» ABL TST:10 SCAN CONF. DATA «, t00=0x0083, t01=0x005e}
0x0cd0a…0cd14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0082}
0x0cd14…0cd28               Head {h00=0x0010, h01=0x0050, text=»COR:50 EQU *«, t00=0x0083, t01=0x008c}
0x0cd28…0cd4e               Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0083, t01=0x00a0}
0x0cd4e…0cd66               Head {h00=0x0014, h01=0x0050, text=» ANK A1,8 SWB:S?«, t00=0x0083, t01=0x00c6}
0x0cd66…0cd7e               Head {h00=0x0014, h01=0x0050, text=» RF(Z) COR:55 NO«, t00=0x0083, t01=0x00de}
0x0cd7e…0cd92               Head {h00=0x0010, h01=0x0050, text=» LDK A3,'S' «, t00=0x0083, t01=0x00f6}
0x0cd92…0cdbc               Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:25+1 MODIFY INSTRUCTION«, t00=0x0083, t01=0x010a}
0x0cdbc…0cde6               Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:60+1 MODIFY INSTRUCTION«, t00=0x0083, t01=0x0134}
0x0cde6…0ce02               Head {h00=0x0018, h01=0x0050, text=» LD A1,IPLDEV+STKEND«, t00=0x0083, t01=0x015e}
0x0ce02…0ce34               Head {h00=0x002e, h01=0x0050, text=» CF A14,LODDEV INITIALIZE PGM LOAD DEVICE «, t00=0x0083, t01=0x017a}
0x0ce34…0ce4a               Head {h00=0x0012, h01=0x0050, text=» CF A14,GETFIL«, t00=0x0084, t01=0x001c}
0x0ce4a…0ce54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0032}
0x0ce54…0ce74               Head {h00=0x001c, h01=0x0050, text=»*  UNLOCK FLEXIBLE DISC «, t00=0x0084, t01=0x003c}
0x0ce74…0ce7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x005c}
0x0ce7e…0ce92               Head {h00=0x0010, h01=0x0050, text=»COR:55 EQU *«, t00=0x0084, t01=0x0066}
0x0ce92…0ceca               Head {h00=0x0034, h01=0x0050, text=» LD A1,CONDEV+STKEND GET CONF. DATA LOAD DEVICE «, t00=0x0084, t01=0x007a}
0x0ceca…0cefa               Head {h00=0x002c, h01=0x0050, text=» RF(Z) COR:58 SAME AS APPL. LOAD DEVICE «, t00=0x0084, t01=0x00b2}
0x0cefa…0cf04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x00e2}
0x0cf04…0cf16               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0084, t01=0x00ec}
0x0cf16…0cf28               Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0084, t01=0x00fe}
0x0cf28…0cf3a               Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x0084, t01=0x0110}
0x0cf3a…0cf62               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COR:58 NOT FLEXIBLE DISC«, t00=0x0084, t01=0x0122}
0x0cf62…0cf6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x014a}
0x0cf6c…0cf78               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0084, t01=0x0154}
0x0cf78…0cf94               Head {h00=0x0018, h01=0x0050, text=» IFT CFTEST+FLDISC=2«, t00=0x0084, t01=0x0160}
0x0cf94…0cfc0               Head {h00=0x0028, h01=0x0050, text=» CF A14,UNLOCK UNLOCK FLEXIBLE DISC «, t00=0x0084, t01=0x017c}
0x0cfc0…0cfcc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0085, t01=0x0018}
0x0cfcc…0cfe2               Head {h00=0x0012, h01=0x0050, text=» IFT CFTEST=1 «, t00=0x0085, t01=0x0024}
0x0cfe2…0cff6               Head {h00=0x0010, h01=0x0050, text=»COR:58 EQU *«, t00=0x0085, t01=0x003a}
0x0cff6…0d024               Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x0085, t01=0x004e}
0x0d024…0d042               Head {h00=0x001a, h01=0x0050, text=» SUK A1,/F8 CHECK TYPE«, t00=0x0085, t01=0x007c}
0x0d042…0d06a               Head {h00=0x0024, h01=0x0050, text=» RF(N) COR:60 NOT FLEXIBLE DISC «, t00=0x0085, t01=0x009a}
0x0d06a…0d074               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x00c2}
0x0d074…0d080               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0085, t01=0x00cc}
0x0d080…0d0a6               Head {h00=0x0022, h01=0x0050, text=» SUK A1,/FC-/F8 FLEXIBLE DISC?«, t00=0x0085, t01=0x00d8}
0x0d0a6…0d0c2               Head {h00=0x0018, h01=0x0050, text=» ABL(NN) COR:60 NO! «, t00=0x0085, t01=0x00fe}
0x0d0c2…0d0cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x011a}
0x0d0cc…0d0e8               Head {h00=0x0018, h01=0x0050, text=» IFT CFTEST+FLDISC=2«, t00=0x0085, t01=0x0124}
0x0d0e8…0d10e               Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x0085, t01=0x0140}
0x0d10e…0d12c               Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x0085, t01=0x0166}
0x0d12c…0d154               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COR:60 YES! DON'T UNLOCK«, t00=0x0085, t01=0x0184}
0x0d154…0d15e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x001c}
0x0d15e…0d17a               Head {h00=0x0018, h01=0x0050, text=» LD A1,IPLDEV+STKEND«, t00=0x0086, t01=0x0026}
0x0d17a…0d1a6               Head {h00=0x0028, h01=0x0050, text=» CF A14,UNLOCK UNLOCK FLEXIBLE DISC «, t00=0x0086, t01=0x0042}
0x0d1a6…0d1b2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0086, t01=0x006e}
0x0d1b2…0d1c8               Head {h00=0x0012, h01=0x0050, text=» IFT CFTEST=1 «, t00=0x0086, t01=0x007a}
0x0d1c8…0d1dc               Head {h00=0x0010, h01=0x0050, text=»COR:60 EQU *«, t00=0x0086, t01=0x0090}
0x0d1dc…0d1ea               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0086, t01=0x00a4}
0x0d1ea…0d1fe               Head {h00=0x0010, h01=0x0050, text=»CONMOV EQU *«, t00=0x0086, t01=0x00b2}
0x0d1fe…0d208               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x00c6}
0x0d208…0d240               Head {h00=0x0034, h01=0x0050, text=»*  MOVE CONFIGURATION DATA TO END OF SYSTEM AREA«, t00=0x0086, t01=0x00d0}
0x0d240…0d24a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0108}
0x0d24a…0d274               Head {h00=0x0026, h01=0x0050, text=» CIO A1,0,SOP INHIBIT SOP SWITCHES«, t00=0x0086, t01=0x0112}
0x0d274…0d2a8               Head {h00=0x0030, h01=0x0050, text=» LD A1,CONSTA+STKCOM GET START OF CONF. DATA«, t00=0x0086, t01=0x013c}
0x0d2a8…0d2e8               Head {h00=0x003c, h01=0x0050, text=»CMOV10 LD A3,EINPBF+STKEND GET END OF CONFIGURATION DATA«, t00=0x0086, t01=0x0170}
0x0d2e8…0d31c               Head {h00=0x0030, h01=0x0050, text=» LD A2,ESYSTA+STKEND GET END OF SYSTEM AREA «, t00=0x0087, t01=0x0020}
0x0d31c…0d34a               Head {h00=0x002a, h01=0x0050, text=» CM -2,A2 MAKE SURE CONFIGURATION FILE«, t00=0x0087, t01=0x0054}
0x0d34a…0d370               Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 IS FOLLOWED BY X'00'«, t00=0x0087, t01=0x0082}
0x0d370…0d3a0               Head {h00=0x002c, h01=0x0050, text=» SUR A3,A1 LENGTH OF CONFIGURATION DATA «, t00=0x0087, t01=0x00a8}
0x0d3a0…0d3d6               Head {h00=0x0032, h01=0x0050, text=» ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA«, t00=0x0087, t01=0x00d8}
0x0d3d6…0d3de               Head {h00=0x0004, h01=0x0050, t00=0x0087, t01=0x010e}
0x0d3de…0d3fc               Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x0087, t01=0x0116}
0x0d3fc…0d406               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0134}
0x0d406…0d42e               Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN ADDRESS«, t00=0x0087, t01=0x013e}
0x0d42e…0d440               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x0087, t01=0x0166}
0x0d440…0d47e               Head {h00=0x003a, h01=0x0050, text=» ST A2,CONSTA+STKCOM SAVE START OF CONFIGURATION DATA «, t00=0x0087, t01=0x0178}
0x0d47e…0d4b4               Head {h00=0x0032, h01=0x0050, text=» LD A1,CONLEN+STKCOM GET LENGTH OF CONF. DATA «, t00=0x0088, t01=0x0026}
0x0d4b4…0d4e8               Head {h00=0x0030, h01=0x0050, text=» ADK A1,2 INCLUDE TRAILING ZEROES IN LENGTH «, t00=0x0088, t01=0x005c}
0x0d4e8…0d50c               Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFE AND MAKE EVEN«, t00=0x0088, t01=0x0090}
0x0d50c…0d528               Head {h00=0x0018, h01=0x0050, text=» ST A1,CONLEN+STKCOM«, t00=0x0088, t01=0x00b4}
0x0d528…0d552               Head {h00=0x0026, h01=0x0050, text=» LDR A1,A9 GET START OF FREE AREA «, t00=0x0088, t01=0x00d0}
0x0d552…0d576               Head {h00=0x0020, h01=0x0050, text=» LDR A12,A2 END OF FREE AREA«, t00=0x0088, t01=0x00fa}
0x0d576…0d59e               Head {h00=0x0024, h01=0x0050, text=» SUR A12,A1 SUBTRACT MONITOR END«, t00=0x0088, t01=0x011e}
0x0d59e…0d5d4               Head {h00=0x0032, h01=0x0050, text=» ST A12,M:REL+STKCOM SAVE RELOCATION CONSTANT «, t00=0x0088, t01=0x0146}
0x0d5d4…0d5fc               Head {h00=0x0024, h01=0x0050, text=» LD A2,SCTMXS GET MXSTAB ADDRESS«, t00=0x0088, t01=0x017c}
0x0d5fc…0d624               Head {h00=0x0024, h01=0x0050, text=» RF(Z) CMOV20 NO MXSTAB PRESENT «, t00=0x0089, t01=0x0014}
0x0d624…0d62e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x003c}
0x0d62e…0d662               Head {h00=0x0030, h01=0x0050, text=» AD A2,M:REL+STKCOM RELOCATE MXSTAB ADDRESS «, t00=0x0089, t01=0x0046}
0x0d662…0d690               Head {h00=0x002a, h01=0x0050, text=» ST A2,SCTMXS AND SAVE AS NEW ADDRESS «, t00=0x0089, t01=0x007a}
0x0d690…0d6a4               Head {h00=0x0010, h01=0x0050, text=»CMOV20 EQU *«, t00=0x0089, t01=0x00a8}
0x0d6a4…0d6d4               Head {h00=0x002c, h01=0x0050, text=» LD A2,CONSTA+STKCOM GET START OF CONFF «, t00=0x0089, t01=0x00bc}
0x0d6d4…0d6de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x00ec}
0x0d6de…0d71e               Head {h00=0x003c, h01=0x0050, text=»*  MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA«, t00=0x0089, t01=0x00f6}
0x0d71e…0d728               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0136}
0x0d728…0d73c               Head {h00=0x0010, h01=0x0050, text=»MOPRO EQU * «, t00=0x0089, t01=0x0140}
0x0d73c…0d754               Head {h00=0x0014, h01=0x0050, text=» LDKL A13,SYSLDM«, t00=0x0089, t01=0x0154}
0x0d754…0d766               Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x0089, t01=0x016c}
0x0d766…0d778               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0089, t01=0x017e}
0x0d778…0d78c               Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A1 «, t00=0x0089, t01=0x0190}
0x0d78c…0d79e               Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x008a, t01=0x0014}
0x0d79e…0d7b2               Head {h00=0x0010, h01=0x0050, text=» CWR A1,A13 «, t00=0x008a, t01=0x0026}
0x0d7b2…0d7c8               Head {h00=0x0012, h01=0x0050, text=» RB(NE) MOPRO «, t00=0x008a, t01=0x003a}
0x0d7c8…0d7f4               Head {h00=0x0028, h01=0x0050, text=» ABR A2 CONTINUE EXECUTION IN SYSLDM«, t00=0x008a, t01=0x0050}
0x0d7f4…0d802               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008a, t01=0x007c}
0x0d802…0d84a               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x008a, t01=0x008a}
0x0d84a…0d892               Head {h00=0x0044, h01=0x0050, text=»*  SUROUTINES USED TO TEST THE SYNTAX OF THE CONFIGURATION FILE «, t00=0x008a, t01=0x00d2}
0x0d892…0d8da               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x008a, t01=0x011a}
0x0d8da…0d8e8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008a, t01=0x0162}
0x0d8e8…0d8fc               Head {h00=0x0010, h01=0x0050, text=»CONRD EQU * «, t00=0x008a, t01=0x0170}
0x0d8fc…0d906               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0184}
0x0d906…0d93c               Head {h00=0x0032, h01=0x0050, text=»*  COMPUTE NUMBER OF CHARACTERS IN THIS RECORD«, t00=0x008a, t01=0x018e}
0x0d93c…0d946               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x0034}
0x0d946…0d980               Head {h00=0x0036, h01=0x0050, text=» LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER«, t00=0x008b, t01=0x003e}
0x0d980…0d998               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x008b, t01=0x0078}
0x0d998…0d9c2               Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET CHARACTER COUNTER «, t00=0x008b, t01=0x0090}
0x0d9c2…0d9e4               Head {h00=0x001e, h01=0x0050, text=» LDR A4,A8 START OF RECORD«, t00=0x008b, t01=0x00ba}
0x0d9e4…0d9f8               Head {h00=0x0010, h01=0x0050, text=»COR:30 EQU *«, t00=0x008b, t01=0x00dc}
0x0d9f8…0da18               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x008b, t01=0x00f0}
0x0da18…0da3c               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x008b, t01=0x0110}
0x0da3c…0da56               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x008b, t01=0x0134}
0x0da56…0da6a               Head {h00=0x0010, h01=0x0050, text=»COR:35 EQU *«, t00=0x008b, t01=0x014e}
0x0da6a…0da98               Head {h00=0x002a, h01=0x0050, text=» CWK A3,RECLEN MAXIMUM SIZE ACHIEVED? «, t00=0x008b, t01=0x0162}
0x0da98…0daae               Head {h00=0x0012, h01=0x0050, text=»COR:38 EQU *-2«, t00=0x008b, t01=0x0190}
0x0daae…0dac8               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x008c, t01=0x0016}
0x0dac8…0daf6               Head {h00=0x002a, h01=0x0050, text=» CW A1,ESYSTA+STKEND MEMORY OVERFLOW? «, t00=0x008c, t01=0x0030}
0x0daf6…0db10               Head {h00=0x0016, h01=0x0050, text=» RF(E) MEMOFL YES!«, t00=0x008c, t01=0x005e}
0x0db10…0db3a               Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 INCREMENT BUFFER POINTER«, t00=0x008c, t01=0x0078}
0x0db3a…0db68               Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT CHARACTER COUNTER «, t00=0x008c, t01=0x00a2}
0x0db68…0db92               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT RECORD POINTER«, t00=0x008c, t01=0x00d0}
0x0db92…0dbaa               Head {h00=0x0014, h01=0x0050, text=» RB COR:30 LOOP «, t00=0x008c, t01=0x00fa}
0x0dbaa…0dbbe               Head {h00=0x0010, h01=0x0050, text=»COR:40 EQU *«, t00=0x008c, t01=0x0112}
0x0dbbe…0dbe4               Head {h00=0x0022, h01=0x0050, text=» LC A5,1,A4 GET NEXT CHARACTER«, t00=0x008c, t01=0x0126}
0x0dbe4…0dc08               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' TWO SEMICOLONS?«, t00=0x008c, t01=0x014c}
0x0dc08…0dc22               Head {h00=0x0016, h01=0x0050, text=» RF(NE) COR:45 NO!«, t00=0x008c, t01=0x0170}
0x0dc22…0dc50               Head {h00=0x002a, h01=0x0050, text=» CWK A3,NCHTID CHECK IF END OF RECORD «, t00=0x008c, t01=0x018a}
0x0dc50…0dc88               Head {h00=0x0034, h01=0x0050, text=» RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD «, t00=0x008d, t01=0x0028}
0x0dc88…0dc9c               Head {h00=0x0010, h01=0x0050, text=»COR:45 EQU *«, t00=0x008d, t01=0x0060}
0x0dc9c…0dcd2               Head {h00=0x0032, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION «, t00=0x008d, t01=0x0074}
0x0dcd2…0dcf4               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A8 START OF RECORD«, t00=0x008d, t01=0x00aa}
0x0dcf4…0dd06               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x008d, t01=0x00cc}
0x0dd06…0dd1a               Head {h00=0x0010, h01=0x0050, text=»COR:48 EQU *«, t00=0x008d, t01=0x00de}
0x0dd1a…0dd46               Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x008d, t01=0x00f2}
0x0dd46…0dd70               Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD «, t00=0x008d, t01=0x011e}
0x0dd70…0dd8c               Head {h00=0x0018, h01=0x0050, text=» ABL(E) COR:50 YES! «, t00=0x008d, t01=0x0148}
0x0dd8c…0ddbe               Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x008d, t01=0x0164}
0x0ddbe…0dde8               Head {h00=0x0026, h01=0x0050, text=» CW A8,PLDADR+STKEND END OF BUFFER«, t00=0x008e, t01=0x0008}
0x0dde8…0de02               Head {h00=0x0016, h01=0x0050, text=» RF(NE) COR:10 NO!«, t00=0x008e, t01=0x0032}
0x0de02…0de22               Head {h00=0x001c, h01=0x0050, text=» CALL READC READ SECTOR «, t00=0x008e, t01=0x004c}
0x0de22…0de4a               Head {h00=0x0024, h01=0x0050, text=»COR:10 LDR A4,A8 START OF RECORD«, t00=0x008e, t01=0x006c}
0x0de4a…0de5a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008e, t01=0x0094}
0x0de5a…0de66               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x00a4}
0x0de66…0de80               Head {h00=0x0016, h01=0x0050, text=» IFT CFTEST+CASS=2«, t00=0x008e, t01=0x00b0}
0x0de80…0de94               Head {h00=0x0010, h01=0x0050, text=»CON:40 EQU *«, t00=0x008e, t01=0x00ca}
0x0de94…0deba               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x008e, t01=0x00de}
0x0deba…0ded6               Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x008e, t01=0x0104}
0x0ded6…0def2               Head {h00=0x0018, h01=0x0050, text=» ABL(NZ) CONEX YES! «, t00=0x008e, t01=0x0120}
0x0def2…0df04               Head {h00=0x000e, h01=0x0050, text=» LDR A8,A9«, t00=0x008e, t01=0x013c}
0x0df04…0df2a               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A8 GET START OF BUFFER«, t00=0x008e, t01=0x014e}
0x0df2a…0df3a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008e, t01=0x0174}
0x0df3a…0df46               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x0184}
0x0df46…0df5c               Head {h00=0x0012, h01=0x0050, text=» IFT CFTEST=1 «, t00=0x008e, t01=0x0190}
0x0df5c…0df70               Head {h00=0x0010, h01=0x0050, text=»MEMOFL EQU *«, t00=0x008f, t01=0x0016}
0x0df70…0df9e               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x008f, t01=0x002a}
0x0df9e…0dfb2               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x008f, t01=0x0058}
0x0dfb2…0dfc0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008f, t01=0x006c}
0x0dfc0…0dfd4               Head {h00=0x0010, h01=0x0050, text=»READC EQU * «, t00=0x008f, t01=0x007a}
0x0dfd4…0dff6               Head {h00=0x001e, h01=0x0050, text=» CF A14,RDSEC READ SECTOR «, t00=0x008f, t01=0x008e}
0x0dff6…0e008               Head {h00=0x000e, h01=0x0050, text=» LDR A8,A9«, t00=0x008f, t01=0x00b0}
0x0e008…0e02e               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A8 GET START OF BUFFER«, t00=0x008f, t01=0x00c2}
0x0e02e…0e03e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008f, t01=0x00e8}
0x0e03e…0e04e               Head {h00=0x000c, h01=0x0050, text=»T EQU * «, t00=0x008f, t01=0x00f8}
0x0e04e…0e06e               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x008f, t01=0x0108}
0x0e06e…0e090               Head {h00=0x001e, h01=0x0050, text=» CCK A5,'TT' BLOCK TYPE T?«, t00=0x008f, t01=0x0128}
0x0e090…0e0a4               Head {h00=0x0010, h01=0x0050, text=»T:10 EQU *-2«, t00=0x008f, t01=0x014a}
0x0e0a4…0e0bc               Head {h00=0x0014, h01=0x0050, text=» ABL(NE) CONERR «, t00=0x008f, t01=0x015e}
0x0e0bc…0e0e6               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x008f, t01=0x0176}
0x0e0e6…0e10c               Head {h00=0x0022, h01=0x0050, text=» LCR A5,A4 GET NEXT CHARACTER «, t00=0x0090, t01=0x0010}
0x0e10c…0e130               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x0090, t01=0x0036}
0x0e130…0e14c               Head {h00=0x0018, h01=0x0050, text=» ABL(NE) CONERR NO! «, t00=0x0090, t01=0x005a}
0x0e14c…0e15c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0090, t01=0x0076}
0x0e15c…0e16a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0090, t01=0x0086}
0x0e16a…0e17c               Head {h00=0x000e, h01=0x0050, text=»NNL EQU * «, t00=0x0090, t01=0x0094}
0x0e17c…0e1aa               Head {h00=0x002a, h01=0x0050, text=» LDK A3,3 NO OF DIGITS IN LINE NUMBER «, t00=0x0090, t01=0x00a6}
0x0e1aa…0e1d4               Head {h00=0x0026, h01=0x0050, text=» CF A14,NUMB LOOK IF LEGAL DIGITS «, t00=0x0090, t01=0x00d4}
0x0e1d4…0e1fc               Head {h00=0x0024, h01=0x0050, text=» LDR A1,A1 SET RETURN CONDITION «, t00=0x0090, t01=0x00fe}
0x0e1fc…0e230               Head {h00=0x0030, h01=0x0050, text=» ABL(Z) CONERR LINE NUMBER '000' NOT ALLOWED«, t00=0x0090, t01=0x0126}
0x0e230…0e23a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x015a}
0x0e23a…0e260               Head {h00=0x0022, h01=0x0050, text=» LCR A5,A4 GET NEXT CHARACTER «, t00=0x0090, t01=0x0164}
0x0e260…0e27c               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'LL' LINE L?«, t00=0x0090, t01=0x018a}
0x0e27c…0e296               Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0091, t01=0x0016}
0x0e296…0e2b2               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'RR' LINE R?«, t00=0x0091, t01=0x0030}
0x0e2b2…0e2cc               Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0091, t01=0x004c}
0x0e2cc…0e2e8               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'AA' LINE A?«, t00=0x0091, t01=0x0066}
0x0e2e8…0e302               Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0091, t01=0x0082}
0x0e302…0e31e               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'SS' LINE S?«, t00=0x0091, t01=0x009c}
0x0e31e…0e338               Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0091, t01=0x00b8}
0x0e338…0e354               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'PP' LINE P?«, t00=0x0091, t01=0x00d2}
0x0e354…0e36e               Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0091, t01=0x00ee}
0x0e36e…0e38a               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'VV' LINE V?«, t00=0x0091, t01=0x0108}
0x0e38a…0e39e               Head {h00=0x0010, h01=0x0050, text=» RF(E) NN:40«, t00=0x0091, t01=0x0124}
0x0e39e…0e3ba               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'QQ' LINE Q?«, t00=0x0091, t01=0x0138}
0x0e3ba…0e3d4               Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0091, t01=0x0154}
0x0e3d4…0e3e6               Head {h00=0x000e, h01=0x0050, text=» RF CONERR«, t00=0x0091, t01=0x016e}
0x0e3e6…0e3fa               Head {h00=0x0010, h01=0x0050, text=»NN:40 EQU * «, t00=0x0091, t01=0x0180}
0x0e3fa…0e424 (146, 0, 400) Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0092, t01=0x0004}
0x0e424…0e436               Head {h00=0x000e, h01=0x0050, text=» RF NN:50 «, t00=0x0092, t01=0x002e}
0x0e436…0e440               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x0040}
0x0e440…0e450               Head {h00=0x000c, h01=0x0050, text=»NN EQU *«, t00=0x0092, t01=0x004a}
0x0e450…0e478               Head {h00=0x0024, h01=0x0050, text=» LDK A3,2 NO OF DIGITS IN NUMBER«, t00=0x0092, t01=0x005a}
0x0e478…0e4a2               Head {h00=0x0026, h01=0x0050, text=» CF A14,NUMB LOOK IF LEGAL DIGITS «, t00=0x0092, t01=0x0082}
0x0e4a2…0e4ca               Head {h00=0x0024, h01=0x0050, text=» LDR A1,A1 SET RETURN CONDITION «, t00=0x0092, t01=0x00ac}
0x0e4ca…0e4f0               Head {h00=0x0022, h01=0x0050, text=» RF(Z) CONERR '00' NOT ALLOWED«, t00=0x0092, t01=0x00d4}
0x0e4f0…0e4fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x00fa}
0x0e4fa…0e522               Head {h00=0x0024, h01=0x0050, text=» RF NN:50 LOOK IF END IF RECORD «, t00=0x0092, t01=0x0104}
0x0e522…0e52c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x012c}
0x0e52c…0e53e               Head {h00=0x000e, h01=0x0050, text=»NN1 EQU * «, t00=0x0092, t01=0x0136}
0x0e53e…0e566               Head {h00=0x0024, h01=0x0050, text=» LDK A3,2 NO OF DIGITS IN NUMBER«, t00=0x0092, t01=0x0148}
0x0e566…0e590               Head {h00=0x0026, h01=0x0050, text=» CF A14,NUMB LOOK IF LEGAL DIGITS «, t00=0x0092, t01=0x0170}
0x0e590…0e5b8               Head {h00=0x0024, h01=0x0050, text=» ST A5,NDEVCL+STKEND SAVE NUMBER«, t00=0x0093, t01=0x000a}
0x0e5b8…0e5de               Head {h00=0x0022, h01=0x0050, text=»NN:50 LCR A5,A4 GET CHARACTER «, t00=0x0093, t01=0x0032}
0x0e5de…0e602               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x0093, t01=0x0058}
0x0e602…0e61c               Head {h00=0x0016, h01=0x0050, text=» RF(NE) CONERR NO!«, t00=0x0093, t01=0x007c}
0x0e61c…0e62c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0093, t01=0x0096}
0x0e62c…0e63a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0093, t01=0x00a6}
0x0e63a…0e64a               Head {h00=0x000c, h01=0x0050, text=»AA EQU *«, t00=0x0093, t01=0x00b4}
0x0e64a…0e65c               Head {h00=0x000e, h01=0x0050, text=» LDK A3,2 «, t00=0x0093, t01=0x00c4}
0x0e65c…0e670               Head {h00=0x0010, h01=0x0050, text=»AA:10 EQU * «, t00=0x0093, t01=0x00d6}
0x0e670…0e690               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x0093, t01=0x00ea}
0x0e690…0e6c2               Head {h00=0x002e, h01=0x0050, text=» CCK A5,/3030 ALPHA-NUMERIC CHARACTER <30?«, t00=0x0093, t01=0x010a}
0x0e6c2…0e6dc               Head {h00=0x0016, h01=0x0050, text=» RF(L) CONERR YES!«, t00=0x0093, t01=0x013c}
0x0e6dc…0e710               Head {h00=0x0030, h01=0x0050, text=» CCK A5,/3939 ALPHA-NUMERIC CHARACTER > 39? «, t00=0x0093, t01=0x0156}
0x0e710…0e72a               Head {h00=0x0016, h01=0x0050, text=» RF(NG) AA:20 NO! «, t00=0x0093, t01=0x018a}
0x0e72a…0e75e               Head {h00=0x0030, h01=0x0050, text=» CCK A5,/4141 ALPHA-NUMERIC CHARACTER < 41? «, t00=0x0094, t01=0x0014}
0x0e75e…0e774               Head {h00=0x0012, h01=0x0050, text=» RF(L) CONERR «, t00=0x0094, t01=0x0048}
0x0e774…0e7a8               Head {h00=0x0030, h01=0x0050, text=» CCK A5,/5A5A ALPHA-NUMERIC CHARACTER > 5A? «, t00=0x0094, t01=0x005e}
0x0e7a8…0e7be               Head {h00=0x0012, h01=0x0050, text=» RF(G) CONERR «, t00=0x0094, t01=0x0092}
0x0e7be…0e7d2               Head {h00=0x0010, h01=0x0050, text=»AA:20 EQU * «, t00=0x0094, t01=0x00a8}
0x0e7d2…0e7fc               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0094, t01=0x00bc}
0x0e7fc…0e80e               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0094, t01=0x00e6}
0x0e80e…0e824               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) AA:10 «, t00=0x0094, t01=0x00f8}
0x0e824…0e84a               Head {h00=0x0022, h01=0x0050, text=» LCR A5,A4 GET NEXT CHARACTER «, t00=0x0094, t01=0x010e}
0x0e84a…0e86e               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x0094, t01=0x0134}
0x0e86e…0e888               Head {h00=0x0016, h01=0x0050, text=» RF(NE) CONERR NO!«, t00=0x0094, t01=0x0158}
0x0e888…0e898               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0094, t01=0x0172}
0x0e898…0e8a6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0094, t01=0x0182}
0x0e8a6…0e8b8               Head {h00=0x000e, h01=0x0050, text=»TID EQU * «, t00=0x0094, t01=0x0190}
0x0e8b8…0e8de               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ1 SELECT SEQUENCE «, t00=0x0095, t01=0x0012}
0x0e8de…0e908               Head {h00=0x0026, h01=0x0050, text=» LDK A3,4 GET NUMBER OF CHARACTERS«, t00=0x0095, t01=0x0038}
0x0e908…0e918               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0095, t01=0x0062}
0x0e918…0e92a               Head {h00=0x000e, h01=0x0050, text=»TCL EQU * «, t00=0x0095, t01=0x0072}
0x0e92a…0e950               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ2 SELECT SEQUENCE «, t00=0x0095, t01=0x0084}
0x0e950…0e97a               Head {h00=0x0026, h01=0x0050, text=» LDK A3,4 GET NUMBER OF CHARACTERS«, t00=0x0095, t01=0x00aa}
0x0e97a…0e98a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0095, t01=0x00d4}
0x0e98a…0e99c               Head {h00=0x000e, h01=0x0050, text=»LEV EQU * «, t00=0x0095, t01=0x00e4}
0x0e99c…0e9c2               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ3 SELECT SEQUENCE «, t00=0x0095, t01=0x00f6}
0x0e9c2…0e9ec               Head {h00=0x0026, h01=0x0050, text=» LDK A3,4 GET NUMBER OF CHARACTERS«, t00=0x0095, t01=0x011c}
0x0e9ec…0e9fc               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0095, t01=0x0146}
0x0e9fc…0ea0a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0095, t01=0x0156}
0x0ea0a…0ea1c               Head {h00=0x000e, h01=0x0050, text=»TDCT EQU *«, t00=0x0095, t01=0x0164}
0x0ea1c…0ea42               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ4 SELECT SEQUENCE «, t00=0x0095, t01=0x0176}
0x0ea42…0ea6c               Head {h00=0x0026, h01=0x0050, text=» LDK A3,5 GET NUMBER OF CHARACTERS«, t00=0x0096, t01=0x000c}
0x0ea6c…0ea7c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0096, t01=0x0036}
0x0ea7c…0ea8c               Head {h00=0x000c, h01=0x0050, text=»LC EQU *«, t00=0x0096, t01=0x0046}
0x0ea8c…0eab2               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ5 SELECT SEQUENCE «, t00=0x0096, t01=0x0056}
0x0eab2…0eadc               Head {h00=0x0026, h01=0x0050, text=» LDK A3,3 GET NUMBER OF CHARACTERS«, t00=0x0096, t01=0x007c}
0x0eadc…0eaec               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0096, t01=0x00a6}
0x0eaec…0eafe               Head {h00=0x000e, h01=0x0050, text=»SDCS EQU *«, t00=0x0096, t01=0x00b6}
0x0eafe…0eb24               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ6 SELECT SEQUENCE «, t00=0x0096, t01=0x00c8}
0x0eb24…0eb4e               Head {h00=0x0026, h01=0x0050, text=» LDK A3,5 GET NUMBER OF CHARACTERS«, t00=0x0096, t01=0x00ee}
0x0eb4e…0eb5e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0096, t01=0x0118}
0x0eb5e…0eb6c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0096, t01=0x0128}
0x0eb6c…0eb7e               Head {h00=0x000e, h01=0x0050, text=»TEST EQU *«, t00=0x0096, t01=0x0136}
0x0eb7e…0eb9e               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x0096, t01=0x0148}
0x0eb9e…0ebb0               Head {h00=0x000e, h01=0x0050, text=» CCR A5,A2«, t00=0x0096, t01=0x0168}
0x0ebb0…0ebc6               Head {h00=0x0012, h01=0x0050, text=» RF(NE) CONERR«, t00=0x0096, t01=0x017a}
0x0ebc6…0ebf0               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0096, t01=0x0190}
0x0ebf0…0ec1c               Head {h00=0x0028, h01=0x0050, text=» ADK A2,1 INCREMENT SEQUENCE POINTER«, t00=0x0097, t01=0x002a}
0x0ec1c…0ec4e               Head {h00=0x002e, h01=0x0050, text=» SUK A3,1 MORE CHARACTERS IN THE SEQUENCE?«, t00=0x0097, t01=0x0056}
0x0ec4e…0ec68               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) TEST YES! «, t00=0x0097, t01=0x0088}
0x0ec68…0ec78               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0097, t01=0x00a2}
0x0ec78…0ec86               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0097, t01=0x00b2}
0x0ec86…0ec9a               Head {h00=0x0010, h01=0x0050, text=»SUKASC EQU *«, t00=0x0097, t01=0x00c0}
0x0ec9a…0ecd0               Head {h00=0x0032, h01=0x0050, text=» CCK A5,/3030 NUMBER OF NUMERIC CHARACTERS<10?«, t00=0x0097, t01=0x00d4}
0x0ecd0…0ecec               Head {h00=0x0018, h01=0x0050, text=» RF(NE) SUK:10 YES! «, t00=0x0097, t01=0x010a}
0x0ecec…0ed04               Head {h00=0x0014, h01=0x0050, text=» SUK A5,/F6 N0! «, t00=0x0097, t01=0x0126}
0x0ed04…0ed1c               Head {h00=0x0014, h01=0x0050, text=»SUK:10 SUK A5,1 «, t00=0x0097, t01=0x013e}
0x0ed1c…0ed50               Head {h00=0x0030, h01=0x0050, text=» ST A5,NDEVCL+STKEND STORE NUMBER OF CLASSES«, t00=0x0097, t01=0x0156}
0x0ed50…0ed60               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0097, t01=0x018a}
0x0ed60…0ed6e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0098, t01=0x000a}
0x0ed6e…0ed80               Head {h00=0x000e, h01=0x0050, text=»NUMB EQU *«, t00=0x0098, t01=0x0018}
0x0ed80…0edae               Head {h00=0x002a, h01=0x0050, text=» LDK A1,0 RESET NO OF NON ZERO DIGITS «, t00=0x0098, t01=0x002a}
0x0edae…0edc2               Head {h00=0x0010, h01=0x0050, text=»NUMB00 EQU *«, t00=0x0098, t01=0x0058}
0x0edc2…0ede8               Head {h00=0x0022, h01=0x0050, text=» LCR A5,A4 GET DIGIT IN NUMBER«, t00=0x0098, t01=0x006c}
0x0ede8…0ee12               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0098, t01=0x0092}
0x0ee12…0ee3e               Head {h00=0x0028, h01=0x0050, text=» CCK A5,/3939 NUMERIC CHARACTER >9? «, t00=0x0098, t01=0x00bc}
0x0ee3e…0ee58               Head {h00=0x0016, h01=0x0050, text=» RF(G) CONERR YES!«, t00=0x0098, t01=0x00e8}
0x0ee58…0ee62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0102}
0x0ee62…0ee8e               Head {h00=0x0028, h01=0x0050, text=» CCK A5,/3030 NUMERIC CHARACTER <0? «, t00=0x0098, t01=0x010c}
0x0ee8e…0eea8               Head {h00=0x0016, h01=0x0050, text=» RF(L) CONERR YES!«, t00=0x0098, t01=0x0138}
0x0eea8…0eed2               Head {h00=0x0026, h01=0x0050, text=» RF(Z) NUMB10 NUMERIC CHARACTER =0«, t00=0x0098, t01=0x0152}
0x0eed2…0eedc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x017c}
0x0eedc…0ef0e               Head {h00=0x002e, h01=0x0050, text=» ADK A1,1 INCREMENT NO OF NON ZERO DIGITS «, t00=0x0098, t01=0x0186}
0x0ef0e…0ef22               Head {h00=0x0010, h01=0x0050, text=»NUMB10 EQU *«, t00=0x0099, t01=0x0028}
0x0ef22…0ef4c               Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DECREMENT DIGIT COUNTER «, t00=0x0099, t01=0x003c}
0x0ef4c…0ef76               Head {h00=0x0026, h01=0x0050, text=» RF(Z) NUMB20 ALL DIGITS PROCESSED«, t00=0x0099, t01=0x0066}
0x0ef76…0ef80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x0090}
0x0ef80…0efb0               Head {h00=0x002c, h01=0x0050, text=» SLL A5,8 LAST DIGIT TO LEAST SIGN. BYTE«, t00=0x0099, t01=0x009a}
0x0efb0…0efd6               Head {h00=0x0022, h01=0x0050, text=» RB NUMB00 PROCESS NEXT DIGIT «, t00=0x0099, t01=0x00ca}
0x0efd6…0efe0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x00f0}
0x0efe0…0eff4               Head {h00=0x0010, h01=0x0050, text=»NUMB20 EQU *«, t00=0x0099, t01=0x00fa}
0x0eff4…0f00c               Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0099, t01=0x010e}
0x0f00c…0f01a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0099, t01=0x0126}
0x0f01a…0f024               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x0134}
0x0f024…0f02e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x013e}
0x0f02e…0f068               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0099, t01=0x0148}
0x0f068…0f0a2               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x0099, t01=0x0182}
0x0f0a2…0f0dc               Head {h00=0x0036, h01=0x0050, text=»*     SEQUENCES                                  *«, t00=0x009a, t01=0x002c}
0x0f0dc…0f116               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x009a, t01=0x0066}
0x0f116…0f150               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x009a, t01=0x00a0}
0x0f150…0f15a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x00da}
0x0f15a…0f164               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x00e4}
0x0f164…0f16e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x00ee}
0x0f16e…0f178               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x00f8}
0x0f178…0f190               Head {h00=0x0014, h01=0x0050, text=»SEQ1 EQU * TID= «, t00=0x009a, t01=0x0102}
0x0f190…0f1a2               Head {h00=0x000e, h01=0x0050, text=» DATA 'TI'«, t00=0x009a, t01=0x011a}
0x0f1a2…0f1b4               Head {h00=0x000e, h01=0x0050, text=» DATA 'D='«, t00=0x009a, t01=0x012c}
0x0f1b4…0f1cc               Head {h00=0x0014, h01=0x0050, text=»SEQ2 EQU * TCL= «, t00=0x009a, t01=0x013e}
0x0f1cc…0f1de               Head {h00=0x000e, h01=0x0050, text=» DATA 'TC'«, t00=0x009a, t01=0x0156}
0x0f1de…0f1f0               Head {h00=0x000e, h01=0x0050, text=» DATA 'L='«, t00=0x009a, t01=0x0168}
0x0f1f0…0f208               Head {h00=0x0014, h01=0x0050, text=»SEQ3 EQU * LEV= «, t00=0x009a, t01=0x017a}
0x0f208…0f21a (155, 0, 400) Head {h00=0x000e, h01=0x0050, text=» DATA 'LE'«, t00=0x009b, t01=0x0004}
0x0f21a…0f22c               Head {h00=0x000e, h01=0x0050, text=» DATA 'V='«, t00=0x009b, t01=0x0016}
0x0f22c…0f244               Head {h00=0x0014, h01=0x0050, text=»SEQ4 EQU * TDC=T«, t00=0x009b, t01=0x0028}
0x0f244…0f256               Head {h00=0x000e, h01=0x0050, text=» DATA 'TD'«, t00=0x009b, t01=0x0040}
0x0f256…0f268               Head {h00=0x000e, h01=0x0050, text=» DATA 'C='«, t00=0x009b, t01=0x0052}
0x0f268…0f27a               Head {h00=0x000e, h01=0x0050, text=» DATA 'T0'«, t00=0x009b, t01=0x0064}
0x0f27a…0f290               Head {h00=0x0012, h01=0x0050, text=»SEQ5 EQU * LC=«, t00=0x009b, t01=0x0076}
0x0f290…0f2a2               Head {h00=0x000e, h01=0x0050, text=» DATA 'LC'«, t00=0x009b, t01=0x008c}
0x0f2a2…0f2b4               Head {h00=0x000e, h01=0x0050, text=» DATA '=0'«, t00=0x009b, t01=0x009e}
0x0f2b4…0f2cc               Head {h00=0x0014, h01=0x0050, text=»SEQ6 EQU * SDC=S«, t00=0x009b, t01=0x00b0}
0x0f2cc…0f2de               Head {h00=0x000e, h01=0x0050, text=» DATA 'SD'«, t00=0x009b, t01=0x00c8}
0x0f2de…0f2f0               Head {h00=0x000e, h01=0x0050, text=» DATA 'C='«, t00=0x009b, t01=0x00da}
0x0f2f0…0f302               Head {h00=0x000e, h01=0x0050, text=» DATA 'S0'«, t00=0x009b, t01=0x00ec}
0x0f302…0f30e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009b, t01=0x00fe}
0x0f30e…0f328               Head {h00=0x0016, h01=0x0050, text=» IFT CFTCAS+CASS=2«, t00=0x009b, t01=0x010a}
0x0f328…0f332               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x0124}
0x0f332…0f35c               Head {h00=0x0026, h01=0x0050, text=»*  PROGRAM LOAD DEVICE = CASSETTE «, t00=0x009b, t01=0x012e}
0x0f35c…0f366               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x0158}
0x0f366…0f37a               Head {h00=0x0010, h01=0x0050, text=»CON:30 EQU *«, t00=0x009b, t01=0x0162}
0x0f37a…0f39c               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 START OF BUFFER«, t00=0x009b, t01=0x0176}
0x0f39c…0f3c2               Head {h00=0x0022, h01=0x0050, text=» ADKL A1,BUFLEN END OF BUFFER «, t00=0x009c, t01=0x0008}
0x0f3c2…0f3f2               Head {h00=0x002c, h01=0x0050, text=» ST A1,PLDADR+STKEND SAVE END OF BUFFER «, t00=0x009c, t01=0x002e}
0x0f3f2…0f414               Head {h00=0x001e, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE «, t00=0x009c, t01=0x005e}
0x0f414…0f44c               Head {h00=0x0034, h01=0x0050, text=» ST A1,CONSTA+STKCOM START OF CONFIGURATION DATA«, t00=0x009c, t01=0x0080}
0x0f44c…0f470               Head {h00=0x0020, h01=0x0050, text=» CF A14,RDBLK READ ONE BLOCK«, t00=0x009c, t01=0x00b8}
0x0f470…0f496               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x009c, t01=0x00dc}
0x0f496…0f4b2               Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x009c, t01=0x0102}
0x0f4b2…0f4cc               Head {h00=0x0016, h01=0x0050, text=» RF(Z) CON:50 NO! «, t00=0x009c, t01=0x011e}
0x0f4cc…0f4fe               Head {h00=0x002e, h01=0x0050, text=» CF A14,CASSIN INIT CONFIGURATION CASSETTE«, t00=0x009c, t01=0x0138}
0x0f4fe…0f512               Head {h00=0x0010, h01=0x0050, text=»CON:40 EQU *«, t00=0x009c, t01=0x016a}
0x0f512…0f538               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x009c, t01=0x017e}
0x0f538…0f554               Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x009d, t01=0x0014}
0x0f554…0f56e               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CONEX YES!«, t00=0x009d, t01=0x0030}
0x0f56e…0f582               Head {h00=0x0010, h01=0x0050, text=»CON:50 EQU *«, t00=0x009d, t01=0x004a}
0x0f582…0f58c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x005e}
0x0f58c…0f5c2               Head {h00=0x0032, h01=0x0050, text=»*  COMPUTE NUMBER OF CHARACTERS IN THIS BLOCK «, t00=0x009d, t01=0x0068}
0x0f5c2…0f5cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x009e}
0x0f5cc…0f606               Head {h00=0x0036, h01=0x0050, text=» LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER«, t00=0x009d, t01=0x00a8}
0x0f606…0f61e               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x009d, t01=0x00e2}
0x0f61e…0f648               Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET CHARACTER COUNTER «, t00=0x009d, t01=0x00fa}
0x0f648…0f66e               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A9 GET START OF BUFFER«, t00=0x009d, t01=0x0124}
0x0f66e…0f682               Head {h00=0x0010, h01=0x0050, text=»CON:60 EQU *«, t00=0x009d, t01=0x014a}
0x0f682…0f6ac               Head {h00=0x0026, h01=0x0050, text=» LCR A5,A4 GET CHARACTER IN BUFFER«, t00=0x009d, t01=0x015e}
0x0f6ac…0f6d0               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' CHECK IF SPACE «, t00=0x009d, t01=0x0188}
0x0f6d0…0f6fa               Head {h00=0x0026, h01=0x0050, text=» RF(E) CON:70 NO MOORE CHARACTERS «, t00=0x009e, t01=0x001c}
0x0f6fa…0f70e               Head {h00=0x0010, h01=0x0050, text=»CON:65 EQU *«, t00=0x009e, t01=0x0046}
0x0f70e…0f732               Head {h00=0x0020, h01=0x0050, text=» CWK A3,CBLEN END OF BUFFER?«, t00=0x009e, t01=0x005a}
0x0f732…0f74c               Head {h00=0x0016, h01=0x0050, text=» RF(E) CON:75 YES!«, t00=0x009e, t01=0x007e}
0x0f74c…0f77a               Head {h00=0x002a, h01=0x0050, text=» CW A1,ESYSTA+STKEND MEMORY OVERFLOW? «, t00=0x009e, t01=0x0098}
0x0f77a…0f794               Head {h00=0x0016, h01=0x0050, text=» RF(E) MEMOFL YES!«, t00=0x009e, t01=0x00c6}
0x0f794…0f7c4               Head {h00=0x002c, h01=0x0050, text=» ADK A1,1 INCREMENT DESTINATION POINTER «, t00=0x009e, t01=0x00e0}
0x0f7c4…0f7f2               Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT CHARACTER COUNTER «, t00=0x009e, t01=0x0110}
0x0f7f2…0f81c               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x009e, t01=0x013e}
0x0f81c…0f82e               Head {h00=0x000e, h01=0x0050, text=» RB CON:60«, t00=0x009e, t01=0x0168}
0x0f82e…0f842               Head {h00=0x0010, h01=0x0050, text=»CON:70 EQU *«, t00=0x009e, t01=0x017a}
0x0f842…0f868               Head {h00=0x0022, h01=0x0050, text=» LC A5,1,A4 GET NEXT CHARACTER«, t00=0x009e, t01=0x018e}
0x0f868…0f88e               Head {h00=0x0022, h01=0x0050, text=» CCK A5,';;' TWO SEMI-COLONS? «, t00=0x009f, t01=0x0024}
0x0f88e…0f8a8               Head {h00=0x0016, h01=0x0050, text=» RF(NE) CON:75 NO!«, t00=0x009f, t01=0x004a}
0x0f8a8…0f8d6               Head {h00=0x002a, h01=0x0050, text=» CWK A3,NCHTID CHECK IF END OF RECORD «, t00=0x009f, t01=0x0064}
0x0f8d6…0f90e               Head {h00=0x0034, h01=0x0050, text=» RB(E) CON:65 NO: SEMI-COLON CHARACTER IN RECORD«, t00=0x009f, t01=0x0092}
0x0f90e…0f922               Head {h00=0x0010, h01=0x0050, text=»CON:75 EQU *«, t00=0x009f, t01=0x00ca}
0x0f922…0f958               Head {h00=0x0032, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION «, t00=0x009f, t01=0x00de}
0x0f958…0f97e               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x009f, t01=0x0114}
0x0f97e…0f990               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x009f, t01=0x013a}
0x0f990…0f9a2               Head {h00=0x000e, h01=0x0050, text=» RB CON:40«, t00=0x009f, t01=0x014c}
0x0f9a2…0f9b6               Head {h00=0x0010, h01=0x0050, text=»CONEX EQU * «, t00=0x009f, t01=0x015e}
0x0f9b6…0f9c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009f, t01=0x0172}
0x0f9c0…0fa02               Head {h00=0x003e, h01=0x0050, text=»*  UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE«, t00=0x009f, t01=0x017c}
0x0fa02…0fa0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x002e}
0x0fa0c…0fa32               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x00a0, t01=0x0038}
0x0fa32…0fa56               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 APPLICATION DATA?«, t00=0x00a0, t01=0x005e}
0x0fa56…0fa70               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CON:80 NO!«, t00=0x00a0, t01=0x0082}
0x0fa70…0fa82               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/D«, t00=0x00a0, t01=0x009c}
0x0fa82…0fab0               Head {h00=0x002a, h01=0x0050, text=» CF A14,CHCRIO SEARCH TAPEMARK REVERSE«, t00=0x00a0, t01=0x00ae}
0x0fab0…0fad6               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK BYPASS TAPEMARK «, t00=0x00a0, t01=0x00dc}
0x0fad6…0fae8               Head {h00=0x000e, h01=0x0050, text=» RF CON:90«, t00=0x00a0, t01=0x0102}
0x0fae8…0fafc               Head {h00=0x0010, h01=0x0050, text=»CON:80 EQU *«, t00=0x00a0, t01=0x0114}
0x0fafc…0fb0e               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/F«, t00=0x00a0, t01=0x0128}
0x0fb0e…0fb34               Head {h00=0x0022, h01=0x0050, text=» CF A14,CHCRIO UNLOAD CASSETTE«, t00=0x00a0, t01=0x013a}
0x0fb34…0fb48               Head {h00=0x0010, h01=0x0050, text=»CON:90 EQU *«, t00=0x00a0, t01=0x0160}
0x0fb48…0fb5c               Head {h00=0x0010, h01=0x0050, text=» ABL CONMOV «, t00=0x00a0, t01=0x0174}
0x0fb5c…0fb68               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a0, t01=0x0188}
0x0fb68…0fb7c (161, 0, 398) Head {h00=0x0010, h01=0x0050, text=»CONERR EQU *«, t00=0x00a1, t01=0x0004}
0x0fb7c…0fb92               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x00a1, t01=0x0018}
0x0fb92…0fba6               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00a1, t01=0x002e}
0x0fba6…0fbbc               Head {h00=0x0012, h01=0x0050, text=» IFF CFTEST=1 «, t00=0x00a1, t01=0x0042}
0x0fbbc…0fbd0               Head {h00=0x0010, h01=0x0050, text=»MEMOFL EQU *«, t00=0x00a1, t01=0x0058}
0x0fbd0…0fbfe               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x00a1, t01=0x006c}
0x0fbfe…0fc12               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00a1, t01=0x009a}
0x0fc12…0fc20               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a1, t01=0x00ae}
0x0fc20…0fc34               Head {h00=0x0010, h01=0x0050, text=»CONRAD EQU *«, t00=0x00a1, t01=0x00bc}
0x0fc34…0fc3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x00d0}
0x0fc3e…0fc78               Head {h00=0x0036, h01=0x0050, text=»*  LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC«, t00=0x00a1, t01=0x00da}
0x0fc78…0fc82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x0114}
0x0fc82…0fcbe               Head {h00=0x0038, h01=0x0050, text=» LD A1,CONDEV+STKEND GET LOAD DEVICE FOR CONF. DATA «, t00=0x00a1, t01=0x011e}
0x0fcbe…0fcec               Head {h00=0x002a, h01=0x0050, text=» RF(Z) CONRA0 SAME AS PGM LOAD DEVICE «, t00=0x00a1, t01=0x015a}
0x0fcec…0fcf6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x0188}
0x0fcf6…0fd2a (162, 0, 400) Head {h00=0x0030, h01=0x0050, text=» CF A14,CONFLD INITIATE CONF. DATA LOAD DEV.«, t00=0x00a2, t01=0x0004}
0x0fd2a…0fd3e               Head {h00=0x0010, h01=0x0050, text=»CONRA0 EQU *«, t00=0x00a2, t01=0x0038}
0x0fd3e…0fd6c               Head {h00=0x002a, h01=0x0050, text=» LD A11,CONDAD+STKEND GET START SECTOR«, t00=0x00a2, t01=0x004c}
0x0fd6c…0fda2               Head {h00=0x0032, h01=0x0050, text=» LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART «, t00=0x00a2, t01=0x007a}
0x0fda2…0fdc8               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x00a2, t01=0x00b0}
0x0fdc8…0fdf0               Head {h00=0x0024, h01=0x0050, text=» ADKL A1,BUFLEN-6 END OF BUFFER «, t00=0x00a2, t01=0x00d6}
0x0fdf0…0fe20               Head {h00=0x002c, h01=0x0050, text=» ST A1,PLDADR+STKEND SAVE END OF BUFFER «, t00=0x00a2, t01=0x00fe}
0x0fe20…0fe46               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x00a2, t01=0x012e}
0x0fe46…0fe70               Head {h00=0x0026, h01=0x0050, text=» AD A1,SAVCON START OF SAVE BUFFER«, t00=0x00a2, t01=0x0154}
0x0fe70…0fe94               Head {h00=0x0020, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE =2«, t00=0x00a2, t01=0x017e}
0x0fe94…0feb0               Head {h00=0x0018, h01=0x0050, text=» ST A1,CONSTA+STKCOM«, t00=0x00a3, t01=0x0012}
0x0feb0…0fed8               Head {h00=0x0024, h01=0x0050, text=» LDKL A10,0 RESET RECORD COUNTER«, t00=0x00a3, t01=0x002e}
0x0fed8…0feec               Head {h00=0x0010, h01=0x0050, text=»COR:10 EQU *«, t00=0x00a3, t01=0x0056}
0x0feec…0fef6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x006a}
0x0fef6…0ff2a               Head {h00=0x0030, h01=0x0050, text=»*  READ ONE SECTOR FROM RANDOM ACCESS DEVICE«, t00=0x00a3, t01=0x0074}
0x0ff2a…0ff34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x00a8}
0x0ff34…0ff56               Head {h00=0x001e, h01=0x0050, text=» CF A14,RDSEC READ SECTOR «, t00=0x00a3, t01=0x00b2}
0x0ff56…0ff7c               Head {h00=0x0022, h01=0x0050, text=» LDR A8,A9 GET START OF BUFFER«, t00=0x00a3, t01=0x00d4}
0x0ff7c…0ff90               Head {h00=0x0010, h01=0x0050, text=»COR:20 EQU *«, t00=0x00a3, t01=0x00fa}
0x0ff90…0ff9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x010e}
0x0ff9a…0ffd0               Head {h00=0x0032, h01=0x0050, text=»*  COMPUTE NUMBER OF CHARACTERS IN THIS RECORD«, t00=0x00a3, t01=0x0118}
0x0ffd0…0ffda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x014e}
0x0ffda…10014               Head {h00=0x0036, h01=0x0050, text=» LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER«, t00=0x00a3, t01=0x0158}
0x10014…1002c (164, 0, 400) Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x00a4, t01=0x0004}
0x1002c…10056               Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET CHARACTER COUNTER «, t00=0x00a4, t01=0x001c}
0x10056…10078               Head {h00=0x001e, h01=0x0050, text=» LDR A4,A8 START OF RECORD«, t00=0x00a4, t01=0x0046}
0x10078…10082               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x0068}
0x10082…100a0               Head {h00=0x001a, h01=0x0050, text=»*  LOOK IF WE HAVE AN «, t00=0x00a4, t01=0x0072}
0x100a0…100c4               Head {h00=0x0020, h01=0x0050, text=»*  APPLICATION CONTROL BLOCK«, t00=0x00a4, t01=0x0090}
0x100c4…100ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x00b4}
0x100ce…100f8               Head {h00=0x0026, h01=0x0050, text=» LDR* A5,A4 GET 1ST WORD IN BUFFER«, t00=0x00a4, t01=0x00be}
0x100f8…1012c               Head {h00=0x0030, h01=0x0050, text=» CWK A5,'D;' DATA COMMUNICATION DEF. BLOCK? «, t00=0x00a4, t01=0x00e8}
0x1012c…10146               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:25 YES!«, t00=0x00a4, t01=0x011c}
0x10146…10150               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x0136}
0x10150…1017c               Head {h00=0x0028, h01=0x0050, text=» CWK A5,'A;' AND LOOK IF IT IS 'A;' «, t00=0x00a4, t01=0x0140}
0x1017c…10196               Head {h00=0x0016, h01=0x0050, text=» RF(NE) COR:30 NO!«, t00=0x00a4, t01=0x016c}
0x10196…101a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x0186}
0x101a0…101ce               Head {h00=0x002a, h01=0x0050, text=» LDKL A5,/FF3B YES, SUBSTITUTE A; WITH«, t00=0x00a4, t01=0x0190}
0x101ce…101f2               Head {h00=0x0020, h01=0x0050, text=» STR A5,A4 'HEX FF' AND ';' «, t00=0x00a5, t01=0x002e}
0x101f2…1022e               Head {h00=0x0038, h01=0x0050, text=» LD A5,CURAPL+STKEND GET CURRENT APPL. CONTR. BLOCK «, t00=0x00a5, t01=0x0052}
0x1022e…10252               Head {h00=0x0020, h01=0x0050, text=» ADK A1,1 SKIP BLOCK MARKER «, t00=0x00a5, t01=0x008e}
0x10252…1028c               Head {h00=0x0036, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE CURRENT BUFFER POSITION «, t00=0x00a5, t01=0x00b2}
0x1028c…102c8               Head {h00=0x0038, h01=0x0050, text=» SU A1,CONSTA+STKCOM AND CALCULATE RELATIVE POSITION«, t00=0x00a5, t01=0x00ec}
0x102c8…102fc               Head {h00=0x0030, h01=0x0050, text=» ST A1,APLMMC,A5 SAVE IN APPL. CONTROL BLOCK«, t00=0x00a5, t01=0x0128}
0x102fc…1031e               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A8 START OF RECORD«, t00=0x00a5, t01=0x015c}
0x1031e…10352               Head {h00=0x0030, h01=0x0050, text=» ADK A3,1 INCREMENT NO OF CHARACTERS TO MOVE«, t00=0x00a5, t01=0x017e}
0x10352…10364               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x00a6, t01=0x0022}
0x10364…10388               Head {h00=0x0020, h01=0x0050, text=» ADKL A10,2 SKIP NEXT RECORD«, t00=0x00a6, t01=0x0034}
0x10388…10392               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x0058}
0x10392…103c4               Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x00a6, t01=0x0062}
0x103c4…103f0               Head {h00=0x0028, h01=0x0050, text=» CW A8,PLDADR+STKEND END OF BUFFER? «, t00=0x00a6, t01=0x0094}
0x103f0…1040a               Head {h00=0x0016, h01=0x0050, text=» RF(L) COR:48 NO! «, t00=0x00a6, t01=0x00c0}
0x1040a…10414               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x00da}
0x10414…10440               Head {h00=0x0028, h01=0x0050, text=» CF A14,RDSEC YES, READ NEXT SECTOR «, t00=0x00a6, t01=0x00e4}
0x10440…1046a               Head {h00=0x0026, h01=0x0050, text=» LDR A8,A9 AND GET START OF BUFFER«, t00=0x00a6, t01=0x0110}
0x1046a…1047c               Head {h00=0x000e, h01=0x0050, text=» RF COR:48«, t00=0x00a6, t01=0x013a}
0x1047c…10486               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x014c}
0x10486…1049a               Head {h00=0x0010, h01=0x0050, text=»COR:25 EQU *«, t00=0x00a6, t01=0x0156}
0x1049a…104d8               Head {h00=0x003a, h01=0x0050, text=» LD A5,EINPBF+STKEND CURRENT POSITION IN CONF. DATA =6«, t00=0x00a6, t01=0x016a}
0x104d8…10514               Head {h00=0x0038, h01=0x0050, text=» SU A5,CONSTA+STKCOM CALCULATE RELATIVE POSITION =6 «, t00=0x00a7, t01=0x0018}
0x10514…10538               Head {h00=0x0020, h01=0x0050, text=» ST A5,DCBLK+STKCOM SAVE =6 «, t00=0x00a7, t01=0x0054}
0x10538…1054c               Head {h00=0x0010, h01=0x0050, text=»COR:30 EQU *«, t00=0x00a7, t01=0x0078}
0x1054c…1056c               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x00a7, t01=0x008c}
0x1056c…10590               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x00a7, t01=0x00ac}
0x10590…105aa               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x00a7, t01=0x00d0}
0x105aa…105be               Head {h00=0x0010, h01=0x0050, text=»COR:35 EQU *«, t00=0x00a7, t01=0x00ea}
0x105be…105ec               Head {h00=0x002a, h01=0x0050, text=» CWK A3,RECLEN MAXIMUM SIZE ACHIEVED? «, t00=0x00a7, t01=0x00fe}
0x105ec…10606               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x00a7, t01=0x012c}
0x10606…10634               Head {h00=0x002a, h01=0x0050, text=» CW A1,ESYSTA+STKEND MEMORY OVERFLOW? «, t00=0x00a7, t01=0x0146}
0x10634…1064e               Head {h00=0x0016, h01=0x0050, text=» RB(E) MEMOFL YES!«, t00=0x00a7, t01=0x0174}
0x1064e…10678               Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 INCREMENT BUFFER POINTER«, t00=0x00a7, t01=0x018e}
0x10678…106a6               Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT CHARACTER COUNTER «, t00=0x00a8, t01=0x0028}
0x106a6…106d0               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT RECORD POINTER«, t00=0x00a8, t01=0x0056}
0x106d0…106e8               Head {h00=0x0014, h01=0x0050, text=» RB COR:30 LOOP «, t00=0x00a8, t01=0x0080}
0x106e8…106fc               Head {h00=0x0010, h01=0x0050, text=»COR:40 EQU *«, t00=0x00a8, t01=0x0098}
0x106fc…10722               Head {h00=0x0022, h01=0x0050, text=» LC A5,1,A4 GET NEXT CHARACTER«, t00=0x00a8, t01=0x00ac}
0x10722…10746               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' TWO SEMICOLONS?«, t00=0x00a8, t01=0x00d2}
0x10746…10760               Head {h00=0x0016, h01=0x0050, text=» RF(NE) COR:45 NO!«, t00=0x00a8, t01=0x00f6}
0x10760…1078e               Head {h00=0x002a, h01=0x0050, text=» CWK A3,NCHTID CHECK IF END OF RECORD «, t00=0x00a8, t01=0x0110}
0x1078e…107c6               Head {h00=0x0034, h01=0x0050, text=» RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD «, t00=0x00a8, t01=0x013e}
0x107c6…107da               Head {h00=0x0010, h01=0x0050, text=»COR:45 EQU *«, t00=0x00a8, t01=0x0176}
0x107da…10810               Head {h00=0x0032, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION «, t00=0x00a8, t01=0x018a}
0x10810…10832               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A8 START OF RECORD«, t00=0x00a9, t01=0x0030}
0x10832…10844               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x00a9, t01=0x0052}
0x10844…10870               Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x00a9, t01=0x0064}
0x10870…1089a               Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD «, t00=0x00a9, t01=0x0090}
0x1089a…108b4               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:50 YES!«, t00=0x00a9, t01=0x00ba}
0x108b4…108c8               Head {h00=0x0010, h01=0x0050, text=»COR:48 EQU *«, t00=0x00a9, t01=0x00d4}
0x108c8…108fa               Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x00a9, t01=0x00e8}
0x108fa…10924               Head {h00=0x0026, h01=0x0050, text=» CW A8,PLDADR+STKEND END OF BUFFER«, t00=0x00a9, t01=0x011a}
0x10924…10946               Head {h00=0x001e, h01=0x0050, text=» RB(E) COR:10 NEXT SECTOR «, t00=0x00a9, t01=0x0144}
0x10946…10964               Head {h00=0x001a, h01=0x0050, text=» RB COR:20 NEXT RECORD«, t00=0x00a9, t01=0x0166}
0x10964…10978               Head {h00=0x0010, h01=0x0050, text=»COR:50 EQU *«, t00=0x00a9, t01=0x0184}
0x10978…1099e               Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00aa, t01=0x0008}
0x1099e…109b6               Head {h00=0x0014, h01=0x0050, text=» ANK A1,8 SWB:S?«, t00=0x00aa, t01=0x002e}
0x109b6…109ce               Head {h00=0x0014, h01=0x0050, text=» RF(Z) COR:55 NO«, t00=0x00aa, t01=0x0046}
0x109ce…109e2               Head {h00=0x0010, h01=0x0050, text=» LDK A3,'S' «, t00=0x00aa, t01=0x005e}
0x109e2…10a0c               Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:25+1 MODIFY INSTRUCTION«, t00=0x00aa, t01=0x0072}
0x10a0c…10a36               Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:60+1 MODIFY INSTRUCTION«, t00=0x00aa, t01=0x009c}
0x10a36…10a52               Head {h00=0x0018, h01=0x0050, text=» LD A1,IPLDEV+STKEND«, t00=0x00aa, t01=0x00c6}
0x10a52…10a84               Head {h00=0x002e, h01=0x0050, text=» CF A14,LODDEV INITIALIZE PGM LOAD DEVICE «, t00=0x00aa, t01=0x00e2}
0x10a84…10a9a               Head {h00=0x0012, h01=0x0050, text=» CF A14,GETFIL«, t00=0x00aa, t01=0x0114}
0x10a9a…10aa4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x012a}
0x10aa4…10ac4               Head {h00=0x001c, h01=0x0050, text=»*  UNLOCK FLEXIBLE DISC «, t00=0x00aa, t01=0x0134}
0x10ac4…10ace               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x0154}
0x10ace…10ae2               Head {h00=0x0010, h01=0x0050, text=»COR:55 EQU *«, t00=0x00aa, t01=0x015e}
0x10ae2…10b1a               Head {h00=0x0034, h01=0x0050, text=» LD A1,CONDEV+STKEND GET CONF. DATA LOAD DEVICE «, t00=0x00aa, t01=0x0172}
0x10b1a…10b4a               Head {h00=0x002c, h01=0x0050, text=» RF(Z) COR:58 SAME AS APPL. LOAD DEVICE «, t00=0x00ab, t01=0x001a}
0x10b4a…10b54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x004a}
0x10b54…10b66               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x00ab, t01=0x0054}
0x10b66…10b78               Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x00ab, t01=0x0066}
0x10b78…10b8a               Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x00ab, t01=0x0078}
0x10b8a…10bb2               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COR:58 NOT FLEXIBLE DISC«, t00=0x00ab, t01=0x008a}
0x10bb2…10bbe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ab, t01=0x00b2}
0x10bbe…10bda               Head {h00=0x0018, h01=0x0050, text=» IFT CFTFLD+FLDISC=2«, t00=0x00ab, t01=0x00be}
0x10bda…10c06               Head {h00=0x0028, h01=0x0050, text=» CF A14,UNLOCK UNLOCK FLEXIBLE DISC «, t00=0x00ab, t01=0x00da}
0x10c06…10c12               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ab, t01=0x0106}
0x10c12…10c28               Head {h00=0x0012, h01=0x0050, text=» IFF CFTEST=1 «, t00=0x00ab, t01=0x0112}
0x10c28…10c3c               Head {h00=0x0010, h01=0x0050, text=»COR:58 EQU *«, t00=0x00ab, t01=0x0128}
0x10c3c…10c6a               Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x00ab, t01=0x013c}
0x10c6a…10c88               Head {h00=0x001a, h01=0x0050, text=» SUK A1,/F8 CHECK TYPE«, t00=0x00ab, t01=0x016a}
0x10c88…10cb0               Head {h00=0x0024, h01=0x0050, text=» RF(N) COR:60 NOT FLEXIBLE DISC «, t00=0x00ab, t01=0x0188}
0x10cb0…10cba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ac, t01=0x0020}
0x10cba…10ce0               Head {h00=0x0022, h01=0x0050, text=» SUK A1,/FC-/F8 FLEXIBLE DISC?«, t00=0x00ac, t01=0x002a}
0x10ce0…10cfa               Head {h00=0x0016, h01=0x0050, text=» RF(NN) COR:60 NO!«, t00=0x00ac, t01=0x0050}
0x10cfa…10d04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ac, t01=0x006a}
0x10d04…10d10               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ac, t01=0x0074}
0x10d10…10d2c               Head {h00=0x0018, h01=0x0050, text=» IFT CFTFLD+FLDISC=2«, t00=0x00ac, t01=0x0080}
0x10d2c…10d52               Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x00ac, t01=0x009c}
0x10d52…10d70               Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x00ac, t01=0x00c2}
0x10d70…10d98               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COR:60 YES! DON'T UNLOCK«, t00=0x00ac, t01=0x00e0}
0x10d98…10da2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ac, t01=0x0108}
0x10da2…10dbe               Head {h00=0x0018, h01=0x0050, text=» LD A1,IPLDEV+STKEND«, t00=0x00ac, t01=0x0112}
0x10dbe…10dea               Head {h00=0x0028, h01=0x0050, text=» CF A14,UNLOCK UNLOCK FLEXIBLE DISC «, t00=0x00ac, t01=0x012e}
0x10dea…10df6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ac, t01=0x015a}
0x10df6…10e0c               Head {h00=0x0012, h01=0x0050, text=» IFF CFTEST=1 «, t00=0x00ac, t01=0x0166}
0x10e0c…10e22               Head {h00=0x0012, h01=0x0050, text=» IFF CFTEST=1 «, t00=0x00ac, t01=0x017c}
0x10e22…10e36 (173, 0, 400) Head {h00=0x0010, h01=0x0050, text=»COR:60 EQU *«, t00=0x00ad, t01=0x0004}
0x10e36…10e44               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ad, t01=0x0018}
0x10e44…10e58               Head {h00=0x0010, h01=0x0050, text=»CONMOV EQU *«, t00=0x00ad, t01=0x0026}
0x10e58…10e62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ad, t01=0x003a}
0x10e62…10e9a               Head {h00=0x0034, h01=0x0050, text=»*  MOVE CONFIGURATION DATA TO END OF SYSTEM AREA«, t00=0x00ad, t01=0x0044}
0x10e9a…10ea4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ad, t01=0x007c}
0x10ea4…10ece               Head {h00=0x0026, h01=0x0050, text=» CIO A1,0,SOP INHIBIT SOP SWITCHES«, t00=0x00ad, t01=0x0086}
0x10ece…10ef4               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x00ad, t01=0x00b0}
0x10ef4…10f20               Head {h00=0x0028, h01=0x0050, text=» AD A1,SAVCON COMPUTE END OF BUFFER «, t00=0x00ad, t01=0x00d6}
0x10f20…10f60               Head {h00=0x003c, h01=0x0050, text=»CMOV10 LD A3,EINPBF+STKEND GET END OF CONFIGURATION DATA«, t00=0x00ad, t01=0x0102}
0x10f60…10f94               Head {h00=0x0030, h01=0x0050, text=» LD A2,ESYSTA+STKEND GET END OF SYSTEM AREA «, t00=0x00ad, t01=0x0142}
0x10f94…10fc2               Head {h00=0x002a, h01=0x0050, text=» CM -2,A2 MAKE SURE CONFIGURATION FILE«, t00=0x00ad, t01=0x0176}
0x10fc2…10fe8               Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 IS FOLLOWED BY X'00'«, t00=0x00ae, t01=0x0014}
0x10fe8…11018               Head {h00=0x002c, h01=0x0050, text=» SUR A3,A1 LENGTH OF CONFIGURATION DATA «, t00=0x00ae, t01=0x003a}
0x11018…1104e               Head {h00=0x0032, h01=0x0050, text=» ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA«, t00=0x00ae, t01=0x006a}
0x1104e…1106c               Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x00ae, t01=0x00a0}
0x1106c…11076               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x00be}
0x11076…1109e               Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN ADDRESS«, t00=0x00ae, t01=0x00c8}
0x1109e…110b0               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x00ae, t01=0x00f0}
0x110b0…110ee               Head {h00=0x003a, h01=0x0050, text=» ST A2,CONSTA+STKCOM SAVE START OF CONFIGURATION DATA «, t00=0x00ae, t01=0x0102}
0x110ee…11124               Head {h00=0x0032, h01=0x0050, text=» LD A1,CONLEN+STKCOM GET LENGTH OF CONF. DATA «, t00=0x00ae, t01=0x0140}
0x11124…11158               Head {h00=0x0030, h01=0x0050, text=» ADK A1,2 INCLUDE TRAILING ZEROES IN LENGTH «, t00=0x00ae, t01=0x0176}
0x11158…1117c               Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFE AND MAKE EVEN«, t00=0x00af, t01=0x001a}
0x1117c…11198               Head {h00=0x0018, h01=0x0050, text=» ST A1,CONLEN+STKCOM«, t00=0x00af, t01=0x003e}
0x11198…111c2               Head {h00=0x0026, h01=0x0050, text=» LDR A1,A9 GET START OF FREE AREA «, t00=0x00af, t01=0x005a}
0x111c2…111e6               Head {h00=0x0020, h01=0x0050, text=» LDR A12,A2 END OF FREE AREA«, t00=0x00af, t01=0x0084}
0x111e6…1120e               Head {h00=0x0024, h01=0x0050, text=» SUR A12,A1 SUBTRACT MONITOR END«, t00=0x00af, t01=0x00a8}
0x1120e…11244               Head {h00=0x0032, h01=0x0050, text=» ST A12,M:REL+STKCOM SAVE RELOCATION CONSTANT «, t00=0x00af, t01=0x00d0}
0x11244…11270               Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTMXS GET MXSTAB ADDRESS =1 «, t00=0x00af, t01=0x0106}
0x11270…1129a               Head {h00=0x0026, h01=0x0050, text=» RF(Z) CMOV20 NO MXSTAB PRESENT =1«, t00=0x00af, t01=0x0132}
0x1129a…112aa               Head {h00=0x000c, h01=0x0050, text=»*    =1 «, t00=0x00af, t01=0x015c}
0x112aa…112d8               Head {h00=0x002a, h01=0x0050, text=» ADR A2,A12 RELOCATE MXSTAB ADDRESS =1«, t00=0x00af, t01=0x016c}
0x112d8…11308               Head {h00=0x002c, h01=0x0050, text=» ST A2,SCTMXS AND SAVE AS NEW ADDRESS =1«, t00=0x00b0, t01=0x000a}
0x11308…11322               Head {h00=0x0016, h01=0x0050, text=»CMOV20 EQU *   =1 «, t00=0x00b0, t01=0x003a}
0x11322…11352               Head {h00=0x002c, h01=0x0050, text=» LD A2,CONSTA+STKCOM GET START OF CONFF «, t00=0x00b0, t01=0x0054}
0x11352…1135c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x0084}
0x1135c…1139c               Head {h00=0x003c, h01=0x0050, text=»*  MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA«, t00=0x00b0, t01=0x008e}
0x1139c…113a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x00ce}
0x113a6…113ba               Head {h00=0x0010, h01=0x0050, text=»MOPRO EQU * «, t00=0x00b0, t01=0x00d8}
0x113ba…113d2               Head {h00=0x0014, h01=0x0050, text=» LDKL A13,SYSLDM«, t00=0x00b0, t01=0x00ec}
0x113d2…113e4               Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x00b0, t01=0x0104}
0x113e4…113f6               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x00b0, t01=0x0116}
0x113f6…1140a               Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A1 «, t00=0x00b0, t01=0x0128}
0x1140a…1141c               Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x00b0, t01=0x013c}
0x1141c…11430               Head {h00=0x0010, h01=0x0050, text=» CWR A1,A13 «, t00=0x00b0, t01=0x014e}
0x11430…11446               Head {h00=0x0012, h01=0x0050, text=» RB(NE) MOPRO «, t00=0x00b0, t01=0x0162}
0x11446…11472               Head {h00=0x0028, h01=0x0050, text=» ABR A2 CONTINUE EXECUTION IN SYSLDM«, t00=0x00b0, t01=0x0178}
0x11472…1147e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b1, t01=0x0014}
0x1147e…1148c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b1, t01=0x0020}
0x1148c…114dc               Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x00b1, t01=0x002e}
0x114dc…1152c               Head {h00=0x004c, h01=0x0050, text=»*  SUBROUTINES USED IN THE APPLICATION AND CONFIGURATION LOADING PHASE O«, t00=0x00b1, t01=0x007e}
0x1152c…1157c               Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x00b1, t01=0x00ce}
0x1157c…115a4               Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x00b1, t01=0x011e}
0x115a4…115cc               Head {h00=0x0024, h01=0x0050, text=»*  SOPIN - READ SOP SWITCHES  * «, t00=0x00b1, t01=0x0146}
0x115cc…115f4               Head {h00=0x0024, h01=0x0050, text=»*  =========================  * «, t00=0x00b1, t01=0x016e}
0x115f4…1161c               Head {h00=0x0024, h01=0x0050, text=»*                             * «, t00=0x00b2, t01=0x0008}
0x1161c…11644               Head {h00=0x0024, h01=0x0050, text=»*  ENTRY:                     * «, t00=0x00b2, t01=0x0030}
0x11644…1166c               Head {h00=0x0024, h01=0x0050, text=»*                             * «, t00=0x00b2, t01=0x0058}
0x1166c…11694               Head {h00=0x0024, h01=0x0050, text=»*  EXIT:  A1 - SOP INPUT      * «, t00=0x00b2, t01=0x0080}
0x11694…116bc               Head {h00=0x0024, h01=0x0050, text=»*         BIT 6 - SWITCH 1    * «, t00=0x00b2, t01=0x00a8}
0x116bc…116e4               Head {h00=0x0024, h01=0x0050, text=»*         BIT 15 - SWITCH 10  * «, t00=0x00b2, t01=0x00d0}
0x116e4…1170c               Head {h00=0x0024, h01=0x0050, text=»*                             * «, t00=0x00b2, t01=0x00f8}
0x1170c…11734               Head {h00=0x0024, h01=0x0050, text=»*  WORK REGISTERS:  A1        * «, t00=0x00b2, t01=0x0120}
0x11734…1175c               Head {h00=0x0024, h01=0x0050, text=»*                             * «, t00=0x00b2, t01=0x0148}
0x1175c…11784               Head {h00=0x0024, h01=0x0050, text=»*  SUBROUTINES:               * «, t00=0x00b2, t01=0x0170}
0x11784…117ac               Head {h00=0x0024, h01=0x0050, text=»*                             * «, t00=0x00b3, t01=0x0008}
0x117ac…117d4               Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x00b3, t01=0x0030}
0x117d4…117e8               Head {h00=0x0010, h01=0x0050, text=»SOPIN EQU * «, t00=0x00b3, t01=0x0058}
0x117e8…117fe               Head {h00=0x0012, h01=0x0050, text=» CIO A1,1,SOP «, t00=0x00b3, t01=0x006c}
0x117fe…11814               Head {h00=0x0012, h01=0x0050, text=» INR A1,0,SOP «, t00=0x00b3, t01=0x0082}
0x11814…11828               Head {h00=0x0010, h01=0x0050, text=» RB(NA) *-2 «, t00=0x00b3, t01=0x0098}
0x11828…11838               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00b3, t01=0x00ac}
0x11838…11846               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b3, t01=0x00bc}
0x11846…11872               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00b3, t01=0x00ca}
0x11872…1189e               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00b3, t01=0x00f6}
0x1189e…118ca               Head {h00=0x0028, h01=0x0050, text=»* LODDEV - INITIAZE LOAD UNIT     * «, t00=0x00b3, t01=0x0122}
0x118ca…118f6               Head {h00=0x0028, h01=0x0050, text=»* ===========================     * «, t00=0x00b3, t01=0x014e}
0x118f6…11922               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00b3, t01=0x017a}
0x11922…1194e               Head {h00=0x0028, h01=0x0050, text=»* USED FOR CONFIGURATION OF       * «, t00=0x00b4, t01=0x0016}
0x1194e…1197a               Head {h00=0x0028, h01=0x0050, text=»* PROGRAM LOAD DEVICE AND         * «, t00=0x00b4, t01=0x0042}
0x1197a…119a6               Head {h00=0x0028, h01=0x0050, text=»* CONFIGURATION DATA LOAD         * «, t00=0x00b4, t01=0x006e}
0x119a6…119d2               Head {h00=0x0028, h01=0x0050, text=»* DEVICE (IF DIFFERENT).          * «, t00=0x00b4, t01=0x009a}
0x119d2…119fe               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00b4, t01=0x00c6}
0x119fe…11a2a               Head {h00=0x0028, h01=0x0050, text=»* ON ENTRY: A1=DEVICE ADDRESS     * «, t00=0x00b4, t01=0x00f2}
0x11a2a…11a56               Head {h00=0x0028, h01=0x0050, text=»* ON EXIT:  A2=FILE CODE          * «, t00=0x00b4, t01=0x011e}
0x11a56…11a82               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00b4, t01=0x014a}
0x11a82…11aae               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00b4, t01=0x0176}
0x11aae…11ab6               Head {h00=0x0004, h01=0x0050, t00=0x00b5, t01=0x0012}
0x11ab6…11abe               Head {h00=0x0004, h01=0x0050, t00=0x00b5, t01=0x001a}
0x11abe…11ad2               Head {h00=0x0010, h01=0x0050, text=»LODDEV EQU *«, t00=0x00b5, t01=0x0022}
0x11ad2…11aea               Head {h00=0x0014, h01=0x0050, text=» LDKL A3,BUFLEN «, t00=0x00b5, t01=0x0036}
0x11aea…11b18               Head {h00=0x002a, h01=0x0050, text=» ST A3,SAVCON INITIALIZE BUFFER LENGTH«, t00=0x00b5, t01=0x004e}
0x11b18…11b2c               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x00b5, t01=0x007c}
0x11b2c…11b54               Head {h00=0x0024, h01=0x0050, text=» ST A2,CYLNBR SET SEEK CONDITION«, t00=0x00b5, t01=0x0090}
0x11b54…11b66               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x00b5, t01=0x00b8}
0x11b66…11b8e               Head {h00=0x0024, h01=0x0050, text=» ANK A2,/80 CHECK IF CASSETTE =9«, t00=0x00b5, t01=0x00ca}
0x11b8e…11ba8               Head {h00=0x0016, h01=0x0050, text=» RF(P) CASS:0 YES!«, t00=0x00b5, t01=0x00f2}
0x11ba8…11bb2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b5, t01=0x010c}
0x11bb2…11bdc               Head {h00=0x0026, h01=0x0050, text=» LDR A2,A1 GET PROGRAM LOAD DEVICE«, t00=0x00b5, t01=0x0116}
0x11bdc…11c08               Head {h00=0x0028, h01=0x0050, text=» SRL A2,4 BIT15 INDICATE UNIT 1 OR 2«, t00=0x00b5, t01=0x0140}
0x11c08…11c36               Head {h00=0x002a, h01=0x0050, text=» LC A3,IPLTYP+1+STKEND GET DEVICE TYPE«, t00=0x00b5, t01=0x016c}
0x11c36…11c4a               Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x00b6, t01=0x000a}
0x11c4a…11c5c               Head {h00=0x000e, h01=0x0050, text=» SUK A3,3 «, t00=0x00b6, t01=0x001e}
0x11c5c…11c76               Head {h00=0x0016, h01=0x0050, text=» RF(N) DISC:0 DISC«, t00=0x00b6, t01=0x0030}
0x11c76…11c9a               Head {h00=0x0020, h01=0x0050, text=» RF(Z) MFD:0 MINI FIXED DISC«, t00=0x00b6, t01=0x004a}
0x11c9a…11cb0               Head {h00=0x0012, h01=0x0050, text=» SUK A3,3  =9 «, t00=0x00b6, t01=0x006e}
0x11cb0…11cd2               Head {h00=0x001e, h01=0x0050, text=» RF(N) CDC:0 80M CDC DISC «, t00=0x00b6, t01=0x0084}
0x11cd2…11cf2               Head {h00=0x001c, h01=0x0050, text=» RF FLEX:0 FLEXIBLE DISC«, t00=0x00b6, t01=0x00a6}
0x11cf2…11d00               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b6, t01=0x00c6}
0x11d00…11d14               Head {h00=0x0010, h01=0x0050, text=»CASS:0 EQU *«, t00=0x00b6, t01=0x00d4}
0x11d14…11d28               Head {h00=0x0010, h01=0x0050, text=» IFT CASS=1 «, t00=0x00b6, t01=0x00e8}
0x11d28…11d32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x00fc}
0x11d32…11d5c               Head {h00=0x0026, h01=0x0050, text=»*  PROGRAM LOAD DEVICE = CASSETTE «, t00=0x00b6, t01=0x0106}
0x11d5c…11d66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x0130}
0x11d66…11da8               Head {h00=0x003e, h01=0x0050, text=» LD A1,APLTAB+STKCOM GET CURRENT APPLICATION CONTR. BLOCK «, t00=0x00b6, t01=0x013a}
0x11da8…11dd6               Head {h00=0x002a, h01=0x0050, text=» CM APLADA+2,A1 CLEAR APPLICATION DISC«, t00=0x00b6, t01=0x017c}
0x11dd6…11e02               Head {h00=0x0028, h01=0x0050, text=» CM APLADA+4,A1 FILE ADDRESS ENTRIES«, t00=0x00b7, t01=0x001a}
0x11e02…11e30               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,RDBLK GET SUBROUTINE ADDRESS «, t00=0x00b7, t01=0x0046}
0x11e30…11e44               Head {h00=0x0010, h01=0x0050, text=» LDR A10,A1 «, t00=0x00b7, t01=0x0074}
0x11e44…11e78               Head {h00=0x0030, h01=0x0050, text=» ST A1,READ STORE IN PROGRAM LOAD SUBROUTINE«, t00=0x00b7, t01=0x0088}
0x11e78…11e8c               Head {h00=0x0010, h01=0x0050, text=»CASS:2 EQU *«, t00=0x00b7, t01=0x00bc}
0x11e8c…11eba               Head {h00=0x002a, h01=0x0050, text=» CF A14,RDBLK READ ONE CASSETTE BLOCK «, t00=0x00b7, t01=0x00d0}
0x11eba…11ed8               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 TAPE MARK? «, t00=0x00b7, t01=0x00fe}
0x11ed8…11ef4               Head {h00=0x0018, h01=0x0050, text=» RF(Z) FINIS RETURN «, t00=0x00b7, t01=0x011c}
0x11ef4…11efe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x0138}
0x11efe…11f2e               Head {h00=0x002c, h01=0x0050, text=» CF A14,CASSIN INIT APPLICATION CASSETTE«, t00=0x00b7, t01=0x0142}
0x11f2e…11f40               Head {h00=0x000e, h01=0x0050, text=» RB CASS:2«, t00=0x00b7, t01=0x0172}
0x11f40…11f4c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b7, t01=0x0184}
0x11f4c…11f60               Head {h00=0x0010, h01=0x0050, text=» IFF CASS=1 «, t00=0x00b7, t01=0x0190}
0x11f60…11f76               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00b8, t01=0x0014}
0x11f76…11fa0               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x00b8, t01=0x002a}
0x11fa0…11fac               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b8, t01=0x0054}
0x11fac…11fba               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b8, t01=0x0060}
0x11fba…11fce               Head {h00=0x0010, h01=0x0050, text=»FLEX:0 EQU *«, t00=0x00b8, t01=0x006e}
0x11fce…11fe4               Head {h00=0x0012, h01=0x0050, text=» IFT FLDISC=1 «, t00=0x00b8, t01=0x0082}
0x11fe4…11fee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x0098}
0x11fee…1201c               Head {h00=0x002a, h01=0x0050, text=»*  PROGRAM LOAD DEVICE = FLEXIBLE DISC«, t00=0x00b8, t01=0x00a2}
0x1201c…12026               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x00d0}
0x12026…12030               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x00da}
0x12030…12066               Head {h00=0x0032, h01=0x0050, text=»*  MODIFY SCTIPL: /F8 - DRIVE 1, /F9 - DRIVE 2«, t00=0x00b8, t01=0x00e4}
0x12066…12070               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x011a}
0x12070…12084               Head {h00=0x0010, h01=0x0050, text=» ORK  A2,/F8«, t00=0x00b8, t01=0x0124}
0x12084…120b0               Head {h00=0x0028, h01=0x0050, text=» ST A2,FILCOD+STKEND SAVE FILE CODE «, t00=0x00b8, t01=0x0138}
0x120b0…120ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x0164}
0x120ba…120d8               Head {h00=0x001a, h01=0x0050, text=»*  INIT FLEXIBLE DISC «, t00=0x00b8, t01=0x016e}
0x120d8…120e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x018c}
0x120e2…120f8               Head {h00=0x0012, h01=0x0050, text=» CF A14,FDINIT«, t00=0x00b9, t01=0x0008}
0x120f8…1210a               Head {h00=0x000e, h01=0x0050, text=» RF FINISH«, t00=0x00b9, t01=0x001e}
0x1210a…12114               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x0030}
0x12114…12120               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b9, t01=0x003a}
0x12120…12136               Head {h00=0x0012, h01=0x0050, text=» IFF FLDISC=1 «, t00=0x00b9, t01=0x0046}
0x12136…1214c               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00b9, t01=0x005c}
0x1214c…12176               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x00b9, t01=0x0072}
0x12176…12182               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b9, t01=0x009c}
0x12182…12190               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b9, t01=0x00a8}
0x12190…121a4               Head {h00=0x0010, h01=0x0050, text=»MFD:0 EQU * «, t00=0x00b9, t01=0x00b6}
0x121a4…121ba               Head {h00=0x0012, h01=0x0050, text=» IFT MFDISC=1 «, t00=0x00b9, t01=0x00ca}
0x121ba…121c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x00e0}
0x121c4…121f4               Head {h00=0x002c, h01=0x0050, text=»* PROGRAM LOAD DEVICE = MINI FIXED DISC «, t00=0x00b9, t01=0x00ea}
0x121f4…121fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x011a}
0x121fe…1222e               Head {h00=0x002c, h01=0x0050, text=»* MODIFY SCTIPL:/F4-DRIVE 1,/F5-DRIVE 2 «, t00=0x00b9, t01=0x0124}
0x1222e…12238               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x0154}
0x12238…1224c               Head {h00=0x0010, h01=0x0050, text=» ORK A2,/F4 «, t00=0x00b9, t01=0x015e}
0x1224c…12278               Head {h00=0x0028, h01=0x0050, text=» ST A2,FILCOD+STKEND SAVE FILE CODE «, t00=0x00b9, t01=0x0172}
0x12278…12282               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x000e}
0x12282…122a0               Head {h00=0x001a, h01=0x0050, text=»* INIT MINI FIXED DISC«, t00=0x00ba, t01=0x0018}
0x122a0…122aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x0036}
0x122aa…122c0               Head {h00=0x0012, h01=0x0050, text=» CF A14,MDINIT«, t00=0x00ba, t01=0x0040}
0x122c0…122da               Head {h00=0x0016, h01=0x0050, text=» RF FINISH RETURN «, t00=0x00ba, t01=0x0056}
0x122da…122e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x0070}
0x122e4…122f0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ba, t01=0x007a}
0x122f0…12306               Head {h00=0x0012, h01=0x0050, text=» IFF MFDISC=1 «, t00=0x00ba, t01=0x0086}
0x12306…1231c               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00ba, t01=0x009c}
0x1231c…12346               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x00ba, t01=0x00b2}
0x12346…12352               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ba, t01=0x00dc}
0x12352…12360               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ba, t01=0x00e8}
0x12360…12374               Head {h00=0x0010, h01=0x0050, text=»DISC:0 EQU *«, t00=0x00ba, t01=0x00f6}
0x12374…12388               Head {h00=0x0010, h01=0x0050, text=» IFT DISC=1 «, t00=0x00ba, t01=0x010a}
0x12388…12392               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x011e}
0x12392…123b8               Head {h00=0x0022, h01=0x0050, text=»*  PROGRAM LOAD DEVICE = DISC «, t00=0x00ba, t01=0x0128}
0x123b8…123c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x014e}
0x123c2…123cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x0158}
0x123cc…1240a               Head {h00=0x003a, h01=0x0050, text=»*  MODIFY SCTIPL: /F1 - CARTRIDGE DISC /F0 - FIX DISC «, t00=0x00ba, t01=0x0162}
0x1240a…12414               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x0010}
0x12414…1243e               Head {h00=0x0026, h01=0x0050, text=» LC A2,FCTAB,A2 LOAD FILE CODE =5 «, t00=0x00bb, t01=0x001a}
0x1243e…1246a               Head {h00=0x0028, h01=0x0050, text=» ST A2,FILCOD+STKEND SAVE FILE CODE «, t00=0x00bb, t01=0x0044}
0x1246a…12474               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x0070}
0x12474…12498               Head {h00=0x0020, h01=0x0050, text=»*  INITIALIZE DISC COMMANDS «, t00=0x00bb, t01=0x007a}
0x12498…124a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x009e}
0x124a2…124b8               Head {h00=0x0012, h01=0x0050, text=» CF A14,DUINIT«, t00=0x00bb, t01=0x00a8}
0x124b8…124c4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bb, t01=0x00be}
0x124c4…124d8               Head {h00=0x0010, h01=0x0050, text=» IFF DISC=1 «, t00=0x00bb, t01=0x00ca}
0x124d8…124ee               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00bb, t01=0x00de}
0x124ee…12502               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00bb, t01=0x00f4}
0x12502…1250e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bb, t01=0x0108}
0x1250e…12522               Head {h00=0x0010, h01=0x0050, text=»FINISH EQU *«, t00=0x00bb, t01=0x0114}
0x12522…12554               Head {h00=0x002e, h01=0x0050, text=» LDK A1,1 A1#0 MEANS RANDOM ACCESS DEVICE «, t00=0x00bb, t01=0x0128}
0x12554…12568               Head {h00=0x0010, h01=0x0050, text=»FINIS EQU * «, t00=0x00bb, t01=0x015a}
0x12568…12596               Head {h00=0x002a, h01=0x0050, text=» LD A2,FILCOD+STKEND RESTORE FILE CODE«, t00=0x00bb, t01=0x016e}
0x12596…125a6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00bc, t01=0x000c}
0x125a6…125b4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bc, t01=0x001c}
0x125b4…125c8               Head {h00=0x0010, h01=0x0050, text=»CDC:0 EQU * «, t00=0x00bc, t01=0x002a}
0x125c8…125e4               Head {h00=0x0018, h01=0x0050, text=» IFF CDDISC+CDDI16=0«, t00=0x00bc, t01=0x003e}
0x125e4…125ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x005a}
0x125ee…12622               Head {h00=0x0030, h01=0x0050, text=»* PROGRAM LOAD DEVICE = 16M OR 80M CDC DISC «, t00=0x00bc, t01=0x0064}
0x12622…1262c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x0098}
0x1262c…12636               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x00a2}
0x12636…12658               Head {h00=0x001e, h01=0x0050, text=»* MODIFY SCTIPL: /FC - /FD«, t00=0x00bc, t01=0x00ac}
0x12658…12662               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x00ce}
0x12662…1268a               Head {h00=0x0024, h01=0x0050, text=» SRC A2,2 TEST IF UNIT 1 OR 2 =9«, t00=0x00bc, t01=0x00d8}
0x1268a…126aa               Head {h00=0x001c, h01=0x0050, text=» RF(NN) CDC:1 UNIT 1 =9 «, t00=0x00bc, t01=0x0100}
0x126aa…126c0               Head {h00=0x0012, h01=0x0050, text=» ADK A2,2  =9 «, t00=0x00bc, t01=0x0120}
0x126c0…126d8               Head {h00=0x0014, h01=0x0050, text=»CDC:1 EQU *  =9 «, t00=0x00bc, t01=0x0136}
0x126d8…12700               Head {h00=0x0024, h01=0x0050, text=» ANK A2,7 MASK BITS NOT USED =9 «, t00=0x00bc, t01=0x014e}
0x12700…1271e               Head {h00=0x001a, h01=0x0050, text=» ORK A2,/FC FILE CODE «, t00=0x00bc, t01=0x0176}
0x1271e…1274a (189, 0, 400) Head {h00=0x0028, h01=0x0050, text=» ST A2,FILCOD+STKEND SAVE FILE CODE «, t00=0x00bd, t01=0x0004}
0x1274a…12754               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bd, t01=0x0030}
0x12754…12776               Head {h00=0x001e, h01=0x0050, text=»* INITIALISE DISC COMMANDS«, t00=0x00bd, t01=0x003a}
0x12776…12780               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bd, t01=0x005c}
0x12780…127a2               Head {h00=0x001e, h01=0x0050, text=» CF A14,CDINIT INIT DEVICE«, t00=0x00bd, t01=0x0066}
0x127a2…127bc               Head {h00=0x0016, h01=0x0050, text=» RB FINISH RETURN «, t00=0x00bd, t01=0x0088}
0x127bc…127c8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bd, t01=0x00a2}
0x127c8…127e8               Head {h00=0x001c, h01=0x0050, text=» IFT CDDISC+CDDI16=0  =9«, t00=0x00bd, t01=0x00ae}
0x127e8…127fe               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00bd, t01=0x00ce}
0x127fe…12828               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x00bd, t01=0x00e4}
0x12828…12834               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bd, t01=0x010e}
0x12834…12842               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bd, t01=0x011a}
0x12842…12882               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00bd, t01=0x0128}
0x12882…128c2               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00bd, t01=0x0168}
0x128c2…12902               Head {h00=0x003c, h01=0x0050, text=»*      CONFLD - SELECT LOAD UNIT FOR CONF. DATA       * «, t00=0x00be, t01=0x0018}
0x12902…12942               Head {h00=0x003c, h01=0x0050, text=»*      ========================================       * «, t00=0x00be, t01=0x0058}
0x12942…12982               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00be, t01=0x0098}
0x12982…129c2               Head {h00=0x003c, h01=0x0050, text=»*      ON ENTRY:  A1 = DEVICE ADDRESS                 * «, t00=0x00be, t01=0x00d8}
0x129c2…12a02               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00be, t01=0x0118}
0x12a02…12a42               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00be, t01=0x0158}
0x12a42…12a4a               Head {h00=0x0004, h01=0x0050, t00=0x00bf, t01=0x0008}
0x12a4a…12a52               Head {h00=0x0004, h01=0x0050, t00=0x00bf, t01=0x0010}
0x12a52…12a66               Head {h00=0x0010, h01=0x0050, text=»CONFLD EQU *«, t00=0x00bf, t01=0x0018}
0x12a66…12a7a               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x00bf, t01=0x002c}
0x12a7a…12aa2               Head {h00=0x0024, h01=0x0050, text=» ST A2,CYLNBR SET SEEK CONDITION«, t00=0x00bf, t01=0x0040}
0x12aa2…12ac8               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A1 SAVE DEVICE ADDRESS«, t00=0x00bf, t01=0x0068}
0x12ac8…12aee               Head {h00=0x0022, h01=0x0050, text=» ANK A2,/F ISOLATE LAST DIGIT «, t00=0x00bf, t01=0x008e}
0x12aee…12b00               Head {h00=0x000e, h01=0x0050, text=» SUK A2,7 «, t00=0x00bf, t01=0x00b4}
0x12b00…12b24               Head {h00=0x0020, h01=0x0050, text=» RB(N) MFD:0 MINI FIXED DISC«, t00=0x00bf, t01=0x00c6}
0x12b24…12b2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x00ea}
0x12b2e…12b50               Head {h00=0x001e, h01=0x0050, text=» RB(Z) CDC:0 80M CDC DISC «, t00=0x00bf, t01=0x00f4}
0x12b50…12b5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x0116}
0x12b5a…12b6c               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x00bf, t01=0x0120}
0x12b6c…12b8e               Head {h00=0x001e, h01=0x0050, text=» RB(Z) DISC:0 DISC DEVICE «, t00=0x00bf, t01=0x0132}
0x12b8e…12b98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x0154}
0x12b98…12bc0               Head {h00=0x0024, h01=0x0050, text=» RB FLEX:0 FLEXIBLE DISC DEVICE «, t00=0x00bf, t01=0x015e}
0x12bc0…12bce               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bf, t01=0x0186}
0x12bce…12be2 (192, 0, 400) Head {h00=0x0010, h01=0x0050, text=» IFT CASS=1 «, t00=0x00c0, t01=0x0004}
0x12be2…12c22               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00c0, t01=0x0018}
0x12c22…12c62               Head {h00=0x003c, h01=0x0050, text=»*        CASSIN - CASSETTE INITIATING ROUTINE         * «, t00=0x00c0, t01=0x0058}
0x12c62…12ca2               Head {h00=0x003c, h01=0x0050, text=»*        ====================================         * «, t00=0x00c0, t01=0x0098}
0x12ca2…12ce2               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c0, t01=0x00d8}
0x12ce2…12d22               Head {h00=0x003c, h01=0x0050, text=»*  REFERENCED IN:  SYSLOD -LOADING PART-              * «, t00=0x00c0, t01=0x0118}
0x12d22…12d62               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c0, t01=0x0158}
0x12d62…12da2               Head {h00=0x003c, h01=0x0050, text=»*  ENTRY:                                             * «, t00=0x00c1, t01=0x0008}
0x12da2…12de2               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c1, t01=0x0048}
0x12de2…12e22               Head {h00=0x003c, h01=0x0050, text=»*  EXIT:                                              * «, t00=0x00c1, t01=0x0088}
0x12e22…12e62               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c1, t01=0x00c8}
0x12e62…12ea2               Head {h00=0x003c, h01=0x0050, text=»*  WORK REGISTERS:  A1,A3                             * «, t00=0x00c1, t01=0x0108}
0x12ea2…12ee2               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c1, t01=0x0148}
0x12ee2…12f22               Head {h00=0x003c, h01=0x0050, text=»*  SUBROUTINES:  SOPIN,CHCRIO                         * «, t00=0x00c1, t01=0x0188}
0x12f22…12f62               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c2, t01=0x0038}
0x12f62…12fa2               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00c2, t01=0x0078}
0x12fa2…12fb6               Head {h00=0x0010, h01=0x0050, text=»CASSIN EQU *«, t00=0x00c2, t01=0x00b8}
0x12fb6…12fc8               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/F«, t00=0x00c2, t01=0x00cc}
0x12fc8…12fee               Head {h00=0x0022, h01=0x0050, text=» CF A14,CHCRIO UNLOAD CASSETTE«, t00=0x00c2, t01=0x00de}
0x12fee…13024               Head {h00=0x0032, h01=0x0050, text=» LDKL A3,LMP1+LMP2 INDICATE EXPECTED SWITCHES «, t00=0x00c2, t01=0x0104}
0x13024…1303a               Head {h00=0x0012, h01=0x0050, text=» OTR A3,0,SOP «, t00=0x00c2, t01=0x013a}
0x1303a…1304e               Head {h00=0x0010, h01=0x0050, text=»CAS:10 EQU *«, t00=0x00c2, t01=0x0150}
0x1304e…1306c               Head {h00=0x001a, h01=0x0050, text=» CF A14,SOPIN READ SOP«, t00=0x00c2, t01=0x0164}
0x1306c…13094               Head {h00=0x0024, h01=0x0050, text=» ANKL A1,/0300 ALLOWED SWITCHES?«, t00=0x00c2, t01=0x0182}
0x13094…130ae               Head {h00=0x0016, h01=0x0050, text=» RB(Z) CAS:10 NO! «, t00=0x00c3, t01=0x001a}
0x130ae…130d8               Head {h00=0x0026, h01=0x0050, text=» LDKL A3,LMP1 SWITCH ON LOAD LAMP «, t00=0x00c3, t01=0x0034}
0x130d8…130ee               Head {h00=0x0012, h01=0x0050, text=» OTR A3,0,SOP «, t00=0x00c3, t01=0x005e}
0x130ee…1310c               Head {h00=0x001a, h01=0x0050, text=» SRL A1,8 RIGHT ALIGN «, t00=0x00c3, t01=0x0074}
0x1310c…1312a               Head {h00=0x001a, h01=0x0050, text=» ANK A1,1 SELECT UNIT «, t00=0x00c3, t01=0x0092}
0x1312a…1314c               Head {h00=0x001e, h01=0x0050, text=» CF A14,CHCRIO SELECT UNIT«, t00=0x00c3, t01=0x00b0}
0x1314c…13160               Head {h00=0x0010, h01=0x0050, text=» LDK A1,LOCK«, t00=0x00c3, t01=0x00d2}
0x13160…13184               Head {h00=0x0020, h01=0x0050, text=» CF A14,CHCRIO LOCK CASSETTE«, t00=0x00c3, t01=0x00e6}
0x13184…131a8               Head {h00=0x0020, h01=0x0050, text=» ANK A3,1 CASSETTE OPERABLE?«, t00=0x00c3, t01=0x010a}
0x131a8…131c2               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) CAS:10 NO!«, t00=0x00c3, t01=0x012e}
0x131c2…131d8               Head {h00=0x0012, h01=0x0050, text=» LDK A1,SBOT  «, t00=0x00c3, t01=0x0148}
0x131d8…13208               Head {h00=0x002c, h01=0x0050, text=» CF A14,CHCRIO SEARCH BEGINNING OF TAPE «, t00=0x00c3, t01=0x015e}
0x13208…1321c               Head {h00=0x0010, h01=0x0050, text=» LDK A1,STMF«, t00=0x00c3, t01=0x018e}
0x1321c…1324a               Head {h00=0x002a, h01=0x0050, text=» CF A14,CHCRIO SEARCH TAPEMARK FORWARD«, t00=0x00c4, t01=0x0012}
0x1324a…1325a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00c4, t01=0x0040}
0x1325a…13268               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c4, t01=0x0050}
0x13268…1329e               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x00c4, t01=0x005e}
0x1329e…132d4               Head {h00=0x0032, h01=0x0050, text=»*  CHCRIO - CASSETTE I/O EXECUTING ROUTINE  * «, t00=0x00c4, t01=0x0094}
0x132d4…1330a               Head {h00=0x0032, h01=0x0050, text=»*  =======================================  * «, t00=0x00c4, t01=0x00ca}
0x1330a…13340               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x00c4, t01=0x0100}
0x13340…13376               Head {h00=0x0032, h01=0x0050, text=»*  REFERENCED IN:  CASSIN,SYSLOD            * «, t00=0x00c4, t01=0x0136}
0x13376…133ac               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x00c4, t01=0x016c}
0x133ac…133e2               Head {h00=0x0032, h01=0x0050, text=»*  ENTRY:  A1 - I/O INSTRUCTION COMMAND     * «, t00=0x00c5, t01=0x0012}
0x133e2…13418               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x00c5, t01=0x0048}
0x13418…1344e               Head {h00=0x0032, h01=0x0050, text=»*  EXIT:                                    * «, t00=0x00c5, t01=0x007e}
0x1344e…13484               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x00c5, t01=0x00b4}
0x13484…134ba               Head {h00=0x0032, h01=0x0050, text=»*  WORK REGISTERS:  A1,A3                   * «, t00=0x00c5, t01=0x00ea}
0x134ba…134f0               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x00c5, t01=0x0120}
0x134f0…13526               Head {h00=0x0032, h01=0x0050, text=»*  SUBROUTINES:                             * «, t00=0x00c5, t01=0x0156}
0x13526…1355c               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x00c5, t01=0x018c}
0x1355c…13592               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x00c6, t01=0x0032}
0x13592…135a6               Head {h00=0x0010, h01=0x0050, text=»CHCRIO EQU *«, t00=0x00c6, t01=0x0068}
0x135a6…135bc               Head {h00=0x0012, h01=0x0050, text=» CIO A1,1,CHCR«, t00=0x00c6, t01=0x007c}
0x135bc…135d0               Head {h00=0x0010, h01=0x0050, text=» SST A3,CHCR«, t00=0x00c6, t01=0x0092}
0x135d0…135e6               Head {h00=0x0012, h01=0x0050, text=» RB(NA) CHCRIO«, t00=0x00c6, t01=0x00a6}
0x135e6…135f6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00c6, t01=0x00bc}
0x135f6…13604               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c6, t01=0x00cc}
0x13604…1363e               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x00c6, t01=0x00da}
0x1363e…13678               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x00c6, t01=0x0114}
0x13678…136b2               Head {h00=0x0036, h01=0x0050, text=»*        RDBLK - READ ONE CASSETTE BLOCK         *«, t00=0x00c6, t01=0x014e}
0x136b2…136ec               Head {h00=0x0036, h01=0x0050, text=»*        ===============================         *«, t00=0x00c6, t01=0x0188}
0x136ec…13726               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x00c7, t01=0x0032}
0x13726…13760               Head {h00=0x0036, h01=0x0050, text=»*  REFERENCED IN:  SYSLOD                        *«, t00=0x00c7, t01=0x006c}
0x13760…1379a               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x00c7, t01=0x00a6}
0x1379a…137d4               Head {h00=0x0036, h01=0x0050, text=»*  ENTRY:  A9 - CASSETTE BUFFER POINTER          *«, t00=0x00c7, t01=0x00e0}
0x137d4…1380e               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x00c7, t01=0x011a}
0x1380e…13848               Head {h00=0x0036, h01=0x0050, text=»*  EXIT:  A2 - NUMBER OF CHARACTERS IN BLOCK     *«, t00=0x00c7, t01=0x0154}
0x13848…13882               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x00c7, t01=0x018e}
0x13882…138c0               Head {h00=0x003a, h01=0x0050, text=»*  WORK REGISTERS: A1,A2,A3,A4,A5                   * «, t00=0x00c8, t01=0x0038}
0x138c0…138fa               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x00c8, t01=0x0076}
0x138fa…13934               Head {h00=0x0036, h01=0x0050, text=»*  SUBROUTINES:                                  *«, t00=0x00c8, t01=0x00b0}
0x13934…1396e               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x00c8, t01=0x00ea}
0x1396e…13982               Head {h00=0x0010, h01=0x0050, text=»RDBLK EQU * «, t00=0x00c8, t01=0x0124}
0x13982…13994               Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x00c8, t01=0x0138}
0x13994…139a8               Head {h00=0x0010, h01=0x0050, text=»RDB:10 EQU *«, t00=0x00c8, t01=0x014a}
0x139a8…139ca               Head {h00=0x001e, h01=0x0050, text=» LDR A3,A9 START OF BUFFER«, t00=0x00c8, t01=0x015e}
0x139ca…139f4               Head {h00=0x0026, h01=0x0050, text=» LDK A2,0 RESET CHARACTER COUNTER «, t00=0x00c8, t01=0x0180}
0x139f4…13a1c               Head {h00=0x0024, h01=0x0050, text=» LDR A4,A3 SAVE START OF BUFFER «, t00=0x00c9, t01=0x001a}
0x13a1c…13a40               Head {h00=0x0020, h01=0x0050, text=» ADKL A3,CBLEN END OF BUFFER«, t00=0x00c9, t01=0x0042}
0x13a40…13a52               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/A«, t00=0x00c9, t01=0x0066}
0x13a52…13a74               Head {h00=0x001e, h01=0x0050, text=» CIO A1,1,CHCR READ BLOCK «, t00=0x00c9, t01=0x0078}
0x13a74…13a8a               Head {h00=0x0012, h01=0x0050, text=» RF(NA) RDERR3«, t00=0x00c9, t01=0x009a}
0x13a8a…13a9e               Head {h00=0x0010, h01=0x0050, text=»RDB:20 EQU *«, t00=0x00c9, t01=0x00b0}
0x13a9e…13ab4               Head {h00=0x0012, h01=0x0050, text=» INR A1,0,CHCR«, t00=0x00c9, t01=0x00c4}
0x13ab4…13aca               Head {h00=0x0012, h01=0x0050, text=» RF(NA) RDB:30«, t00=0x00c9, t01=0x00da}
0x13aca…13aec               Head {h00=0x001e, h01=0x0050, text=» CWR A4,A3 END OF BUFFER? «, t00=0x00c9, t01=0x00f0}
0x13aec…13b06               Head {h00=0x0016, h01=0x0050, text=» RF(E) RDERR YES! «, t00=0x00c9, t01=0x0112}
0x13b06…13b28               Head {h00=0x001e, h01=0x0050, text=» SCR A1,A4 STORE CHARACTER«, t00=0x00c9, t01=0x012c}
0x13b28…13b56               Head {h00=0x002a, h01=0x0050, text=» ADK A2,1 INCREMENT CHARACTER COUNTER «, t00=0x00c9, t01=0x014e}
0x13b56…13b80               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x00c9, t01=0x017c}
0x13b80…13b94               Head {h00=0x0010, h01=0x0050, text=»RDB:30 EQU *«, t00=0x00ca, t01=0x0016}
0x13b94…13baa               Head {h00=0x0012, h01=0x0050, text=» SST A1,CHCR  «, t00=0x00ca, t01=0x002a}
0x13baa…13bc0               Head {h00=0x0012, h01=0x0050, text=» RB(NA) RDB:20«, t00=0x00ca, t01=0x0040}
0x13bc0…13be4               Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FCFF CHECK STATUS «, t00=0x00ca, t01=0x0056}
0x13be4…13c02               Head {h00=0x001a, h01=0x0050, text=» LDR A4,A1 SAVE STATUS«, t00=0x00ca, t01=0x007a}
0x13c02…13c1a               Head {h00=0x0014, h01=0x0050, text=» RF(Z) RDBEX OK «, t00=0x00ca, t01=0x0098}
0x13c1a…13c3e               Head {h00=0x0020, h01=0x0050, text=» SLC A4,3 CHECK IF TAPEMARK «, t00=0x00ca, t01=0x00b0}
0x13c3e…13c62               Head {h00=0x0020, h01=0x0050, text=» RF(N) RDBEX OK IF TAPEMARK «, t00=0x00ca, t01=0x00d4}
0x13c62…13c76               Head {h00=0x0010, h01=0x0050, text=»RDERR EQU * «, t00=0x00ca, t01=0x00f8}
0x13c76…13c80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ca, t01=0x010c}
0x13c80…13cc0               Head {h00=0x003c, h01=0x0050, text=»*  READ ERROR HAS OCCURRED: MAKE ANOTHER ATTEMPT TO READ«, t00=0x00ca, t01=0x0116}
0x13cc0…13d02               Head {h00=0x003e, h01=0x0050, text=»*  THE SAME BLOCK IF NOT 3 ATTEMPTS ALREADY HAS BEEN MADE «, t00=0x00ca, t01=0x0156}
0x13d02…13d0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x0008}
0x13d0c…13d2a               Head {h00=0x001a, h01=0x0050, text=» ADK A5,1 NEXT ATTEMPT«, t00=0x00cb, t01=0x0012}
0x13d2a…13d4a               Head {h00=0x001c, h01=0x0050, text=» CWK A5,3 THIRD ATTEMPT?«, t00=0x00cb, t01=0x0030}
0x13d4a…13d6e               Head {h00=0x0020, h01=0x0050, text=» RF(E) RDERR3 YES - GIVE UP!«, t00=0x00cb, t01=0x0050}
0x13d6e…13d92               Head {h00=0x0020, h01=0x0050, text=» LDK A1,/E REVERSE ONE BLOCK«, t00=0x00cb, t01=0x0074}
0x13d92…13db6               Head {h00=0x0020, h01=0x0050, text=» CIO A1,1,CHCR EXECUTE ORDER«, t00=0x00cb, t01=0x0098}
0x13db6…13dde               Head {h00=0x0024, h01=0x0050, text=» RB(NA) *-2 LOOP UNTIL ACCEPTED «, t00=0x00cb, t01=0x00bc}
0x13dde…13df0               Head {h00=0x000e, h01=0x0050, text=» RB RDB:10«, t00=0x00cb, t01=0x00e4}
0x13df0…13e04               Head {h00=0x0010, h01=0x0050, text=»RDERR3 EQU *«, t00=0x00cb, t01=0x00f6}
0x13e04…13e1a               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x00cb, t01=0x010a}
0x13e1a…13e2e               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00cb, t01=0x0120}
0x13e2e…13e42               Head {h00=0x0010, h01=0x0050, text=»RDBEX EQU * «, t00=0x00cb, t01=0x0134}
0x13e42…13e52               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00cb, t01=0x0148}
0x13e52…13e5e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cb, t01=0x0158}
0x13e5e…13e72               Head {h00=0x0010, h01=0x0050, text=» IFT DISC=1 «, t00=0x00cb, t01=0x0164}
0x13e72…13e80               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00cb, t01=0x0178}
0x13e80…13eac               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00cb, t01=0x0186}
0x13eac…13ed8               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00cc, t01=0x0022}
0x13ed8…13f04               Head {h00=0x0028, h01=0x0050, text=»*  DUINIT - INITIALIZE DISC UNIT  * «, t00=0x00cc, t01=0x004e}
0x13f04…13f30               Head {h00=0x0028, h01=0x0050, text=»*  =============================  * «, t00=0x00cc, t01=0x007a}
0x13f30…13f5c               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00cc, t01=0x00a6}
0x13f5c…13f88               Head {h00=0x0028, h01=0x0050, text=»*  REFERENCED IN: SYSLOD,GETFIL   * «, t00=0x00cc, t01=0x00d2}
0x13f88…13fb4               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00cc, t01=0x00fe}
0x13fb4…13fe0               Head {h00=0x0028, h01=0x0050, text=»*  ENTRY: A1 - DEVICE ADDRESS     * «, t00=0x00cc, t01=0x012a}
0x13fe0…1400c               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00cc, t01=0x0156}
0x1400c…14038               Head {h00=0x0028, h01=0x0050, text=»*  EXIT:                          * «, t00=0x00cc, t01=0x0182}
0x14038…14064               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00cd, t01=0x001e}
0x14064…14092               Head {h00=0x002a, h01=0x0050, text=»*  WORK REGISTERS: A2,A3             *«, t00=0x00cd, t01=0x004a}
0x14092…140be               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00cd, t01=0x0078}
0x140be…140ea               Head {h00=0x0028, h01=0x0050, text=»*  SUBROUTINES:                   * «, t00=0x00cd, t01=0x00a4}
0x140ea…14116               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00cd, t01=0x00d0}
0x14116…14142               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00cd, t01=0x00fc}
0x14142…1414a               Head {h00=0x0004, h01=0x0050, t00=0x00cd, t01=0x0128}
0x1414a…1415e               Head {h00=0x0010, h01=0x0050, text=»DUINIT EQU *«, t00=0x00cd, t01=0x0130}
0x1415e…1418c               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,RDSEC2 GET SUBROUTINE ADDRESS«, t00=0x00cd, t01=0x0144}
0x1418c…141ae               Head {h00=0x001e, h01=0x0050, text=» LDR A5,A1 SAVE FILE CODE «, t00=0x00cd, t01=0x0172}
0x141ae…141bc (206, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ce, t01=0x0004}
0x141bc…141c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x0012}
0x141c6…141ee               Head {h00=0x0024, h01=0x0050, text=»* INIT DISC COMMANDS VERSION A2 «, t00=0x00ce, t01=0x001c}
0x141ee…141f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x0044}
0x141f8…14228               Head {h00=0x002c, h01=0x0050, text=» ORKL A1,CIO+8 CONF. CIO A1,1,XX INSTR. «, t00=0x00ce, t01=0x004e}
0x14228…1423e               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEK20 «, t00=0x00ce, t01=0x007e}
0x1423e…1426a               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A1,XX INSTR. «, t00=0x00ce, t01=0x0094}
0x1426a…14280               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEK21 «, t00=0x00ce, t01=0x00c0}
0x14280…142ae               Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/B00 FORM CIO A2,1,XX INSTR. «, t00=0x00ce, t01=0x00d6}
0x142ae…142c4               Head {h00=0x0012, h01=0x0050, text=» ST A1,READ21 «, t00=0x00ce, t01=0x0104}
0x142c4…142ee               Head {h00=0x0026, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX INSTR«, t00=0x00ce, t01=0x011a}
0x142ee…14304               Head {h00=0x0012, h01=0x0050, text=» ST A1,READ22 «, t00=0x00ce, t01=0x0144}
0x14304…14332               Head {h00=0x002a, h01=0x0050, text=» ST A2,READ INIT SUBROUTINE ADDRESSES «, t00=0x00ce, t01=0x015a}
0x14332…14346               Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x00ce, t01=0x0188}
0x14346…14358               Head {h00=0x000e, h01=0x0050, text=» LDK A2,4 «, t00=0x00cf, t01=0x000c}
0x14358…14380               Head {h00=0x0024, h01=0x0050, text=» XRS A2,CRCCHK DISCARD CRC CHECK«, t00=0x00cf, t01=0x001e}
0x14380…143a8               Head {h00=0x0024, h01=0x0050, text=» CF A14,GETVLB GET VOLUME LABEL «, t00=0x00cf, t01=0x0046}
0x143a8…143ba               Head {h00=0x000e, h01=0x0050, text=» LDK A2,4 «, t00=0x00cf, t01=0x006e}
0x143ba…143de               Head {h00=0x0020, h01=0x0050, text=» ORS A2,CRCCHK SET CRC CHECK«, t00=0x00cf, t01=0x0080}
0x143de…14402               Head {h00=0x0020, h01=0x0050, text=» LC A2,FORDEV,A9 GET FORMAT «, t00=0x00cf, t01=0x00a4}
0x14402…14414               Head {h00=0x000e, h01=0x0050, text=» ANK A2,1 «, t00=0x00cf, t01=0x00c8}
0x14414…14434               Head {h00=0x001c, h01=0x0050, text=» RF(Z) DUI:50 FORMAT A2 «, t00=0x00cf, t01=0x00da}
0x14434…1443e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cf, t01=0x00fa}
0x1443e…14464               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A5 RESTORE FILE  CODE «, t00=0x00cf, t01=0x0104}
0x14464…14492               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,RDSEC3 GET SUBROUTINE ADDRESS«, t00=0x00cf, t01=0x012a}
0x14492…1449c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cf, t01=0x0158}
0x1449c…144c4               Head {h00=0x0024, h01=0x0050, text=»* INIT DISC COMMANDS VERSION A3 «, t00=0x00cf, t01=0x0162}
0x144c4…144ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cf, t01=0x018a}
0x144ce…144fe (208, 0, 400) Head {h00=0x002c, h01=0x0050, text=» LDKL A3,DKBA3 BUFFER LENGTH VERSION A3 «, t00=0x00d0, t01=0x0004}
0x144fe…1452c               Head {h00=0x002a, h01=0x0050, text=» ST A3,SAVCON BUFFER LENGTH VERSION A3«, t00=0x00d0, t01=0x0034}
0x1452c…14542               Head {h00=0x0012, h01=0x0050, text=» ORKL A1,CIO+8«, t00=0x00d0, t01=0x0062}
0x14542…14572               Head {h00=0x002c, h01=0x0050, text=» XRKL A1,/500 CONFIG. CIO A4,1,XX INSTR.«, t00=0x00d0, t01=0x0078}
0x14572…14588               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEK30 «, t00=0x00d0, t01=0x00a8}
0x14588…145b4               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A4,XX INSTR. «, t00=0x00d0, t01=0x00be}
0x145b4…145ca               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEK31 «, t00=0x00d0, t01=0x00ea}
0x145ca…145f8               Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/E00 FORM CIO A2,1,XX INSTR. «, t00=0x00d0, t01=0x0100}
0x145f8…1460e               Head {h00=0x0012, h01=0x0050, text=» ST A1,READ30 «, t00=0x00d0, t01=0x012e}
0x1460e…1463a               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX INSTR. «, t00=0x00d0, t01=0x0144}
0x1463a…14650               Head {h00=0x0012, h01=0x0050, text=» ST A1,READ31 «, t00=0x00d0, t01=0x0170}
0x14650…1465a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x0186}
0x1465a…1467e               Head {h00=0x0020, h01=0x0050, text=»*  INIT SUBROUTINE ADDRESSES«, t00=0x00d0, t01=0x0190}
0x1467e…14688               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x0024}
0x14688…146ae               Head {h00=0x0022, h01=0x0050, text=»DUI:40 ST A2,READ READ PROGRAM«, t00=0x00d1, t01=0x002e}
0x146ae…146da               Head {h00=0x0028, h01=0x0050, text=» ST A2,READS READ CONFIGURATION DATA«, t00=0x00d1, t01=0x0054}
0x146da…146ee               Head {h00=0x0010, h01=0x0050, text=»DUI:50 EQU *«, t00=0x00d1, t01=0x0080}
0x146ee…146fe               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00d1, t01=0x0094}
0x146fe…1470c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d1, t01=0x00a4}
0x1470c…14744               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00d1, t01=0x00b2}
0x14744…1477c               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d1, t01=0x00ea}
0x1477c…147b4               Head {h00=0x0034, h01=0x0050, text=»*  RDSEC - READ ONE SECTOR FROM DISC          * «, t00=0x00d1, t01=0x0122}
0x147b4…147ec               Head {h00=0x0034, h01=0x0050, text=»*  =================================          * «, t00=0x00d1, t01=0x015a}
0x147ec…14824 (210, 0, 400) Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d2, t01=0x0004}
0x14824…1485c               Head {h00=0x0034, h01=0x0050, text=»*  REFERENCED IN: SYSLOD                      * «, t00=0x00d2, t01=0x003c}
0x1485c…14894               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d2, t01=0x0074}
0x14894…148ba               Head {h00=0x0022, h01=0x0050, text=»*  ENTRY:  A9 = BUFFER ADDRESS«, t00=0x00d2, t01=0x00ac}
0x148ba…148f2               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d2, t01=0x00d2}
0x148f2…1492a               Head {h00=0x0034, h01=0x0050, text=»*         A11 - SECTOR NUMBER                 * «, t00=0x00d2, t01=0x010a}
0x1492a…14962               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d2, t01=0x0142}
0x14962…1499a               Head {h00=0x0034, h01=0x0050, text=»*  EXIT:                                      * «, t00=0x00d2, t01=0x017a}
0x1499a…149d2               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d3, t01=0x0022}
0x149d2…149fe               Head {h00=0x0028, h01=0x0050, text=»*   WORK REGISTERS:  A1,A2,A3,A4,A7 «, t00=0x00d3, t01=0x005a}
0x149fe…14a36               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d3, t01=0x0086}
0x14a36…14a6e               Head {h00=0x0034, h01=0x0050, text=»*  SUBROUTINES:  ERROR                        * «, t00=0x00d3, t01=0x00be}
0x14a6e…14aa6               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d3, t01=0x00f6}
0x14aa6…14ade               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00d3, t01=0x012e}
0x14ade…14ae8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x0166}
0x14ae8…14af6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d3, t01=0x0170}
0x14af6…14b00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d3, t01=0x017e}
0x14b00…14b26               Head {h00=0x0022, h01=0x0050, text=»* READ DISC SECTOR VERSION A2 «, t00=0x00d3, t01=0x0188}
0x14b26…14b30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x001e}
0x14b30…14b44               Head {h00=0x0010, h01=0x0050, text=»RDSEC2 EQU *«, t00=0x00d4, t01=0x0028}
0x14b44…14b56               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x00d4, t01=0x003c}
0x14b56…14b84               Head {h00=0x002a, h01=0x0050, text=» LDR A1,A11 GET LOGICAL SECTOR NUMBER «, t00=0x00d4, t01=0x004e}
0x14b84…14b98               Head {h00=0x0010, h01=0x0050, text=»DIV200 EQU *«, t00=0x00d4, t01=0x007c}
0x14b98…14baa               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x00d4, t01=0x0090}
0x14baa…14bbc               Head {h00=0x000e, h01=0x0050, text=» SRL A1,5 «, t00=0x00d4, t01=0x00a2}
0x14bbc…14be8               Head {h00=0x0028, h01=0x0050, text=» RB(NZ) DIV200 MORE IN SERIE TO ADD «, t00=0x00d4, t01=0x00b4}
0x14be8…14bfa               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x00d4, t01=0x00e0}
0x14bfa…14c10               Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FFE0«, t00=0x00d4, t01=0x00f2}
0x14c10…14c22               Head {h00=0x000e, h01=0x0050, text=» SRL A2,5 «, t00=0x00d4, t01=0x0108}
0x14c22…14c34               Head {h00=0x000e, h01=0x0050, text=» SUR A1,A2«, t00=0x00d4, t01=0x011a}
0x14c34…14c48               Head {h00=0x0010, h01=0x0050, text=» SUR A1,A11 «, t00=0x00d4, t01=0x012c}
0x14c48…14c5a               Head {h00=0x000e, h01=0x0050, text=» ADK A1,31«, t00=0x00d4, t01=0x0140}
0x14c5a…14c88               Head {h00=0x002a, h01=0x0050, text=» RF(P) DIV210 NO CORRECTION OF RESULT «, t00=0x00d4, t01=0x0152}
0x14c88…14c9a               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x00d4, t01=0x0180}
0x14c9a…14cae (213, 0, 398) Head {h00=0x0010, h01=0x0050, text=»DIV210 EQU *«, t00=0x00d5, t01=0x0004}
0x14cae…14ce0               Head {h00=0x002e, h01=0x0050, text=» LDR A2,A2 A2:=CYL NBR = LOG SEC NBR / 31 «, t00=0x00d5, t01=0x0018}
0x14ce0…14d00               Head {h00=0x001c, h01=0x0050, text=» RF(Z) DIV220 CYLINDER 0«, t00=0x00d5, t01=0x004a}
0x14d00…14d12               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x00d5, t01=0x006a}
0x14d12…14d26               Head {h00=0x0010, h01=0x0050, text=»DIV220 EQU *«, t00=0x00d5, t01=0x007c}
0x14d26…14d5e               Head {h00=0x0034, h01=0x0050, text=» ADR A2,A11 A2:=PHYS. SEC NBR BEFORE INTERLACING«, t00=0x00d5, t01=0x0090}
0x14d5e…14d68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x00c8}
0x14d68…14d7a               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x00d5, t01=0x00d2}
0x14d7a…14d8c               Head {h00=0x000e, h01=0x0050, text=» SRL A1,5 «, t00=0x00d5, t01=0x00e4}
0x14d8c…14da2               Head {h00=0x0012, h01=0x0050, text=» CW A1,CYLNBR «, t00=0x00d5, t01=0x00f6}
0x14da2…14dcc               Head {h00=0x0026, h01=0x0050, text=» RF(E) INT200 SAME CYLINDER NUMBER«, t00=0x00d5, t01=0x010c}
0x14dcc…14de2               Head {h00=0x0012, h01=0x0050, text=» ST A1,CYLNBR «, t00=0x00d5, t01=0x0136}
0x14de2…14df4               Head {h00=0x000e, h01=0x0050, text=» SLL A1,3 «, t00=0x00d5, t01=0x014c}
0x14df4…14e10               Head {h00=0x0018, h01=0x0050, text=» ORK A1,2 SET BIT 14«, t00=0x00d5, t01=0x015e}
0x14e10…14e1e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d5, t01=0x017a}
0x14e1e…14e28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x0188}
0x14e28…14e40 (214, 0, 400) Head {h00=0x0014, h01=0x0050, text=»* SEEK CYLINDER «, t00=0x00d6, t01=0x0004}
0x14e40…14e4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x001c}
0x14e4a…14e64               Head {h00=0x0016, h01=0x0050, text=»SEEK20 CIO A1,1,0 «, t00=0x00d6, t01=0x0026}
0x14e64…14e7a               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEK20«, t00=0x00d6, t01=0x0040}
0x14e7a…14e84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0056}
0x14e84…14e9c               Head {h00=0x0014, h01=0x0050, text=»SEEK21 SST A1,0 «, t00=0x00d6, t01=0x0060}
0x14e9c…14eb2               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEK21«, t00=0x00d6, t01=0x0078}
0x14eb2…14ebc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x008e}
0x14ebc…14ed2               Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x00d6, t01=0x0098}
0x14ed2…14edc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x00ae}
0x14edc…14ef0               Head {h00=0x0010, h01=0x0050, text=»INT200 EQU *«, t00=0x00d6, t01=0x00b8}
0x14ef0…14f02               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x00d6, t01=0x00cc}
0x14f02…14f14               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x00d6, t01=0x00de}
0x14f14…14f3c               Head {h00=0x0024, h01=0x0050, text=» ADR A2,A1 INTERLACING FACTOR 3 «, t00=0x00d6, t01=0x00f0}
0x14f3c…14f50               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x00d6, t01=0x0118}
0x14f50…14f7a               Head {h00=0x0026, h01=0x0050, text=» LD A1,CYLNBR GET CYLINDER NUMBER «, t00=0x00d6, t01=0x012c}
0x14f7a…14f8c               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x00d6, t01=0x0156}
0x14f8c…14fb0               Head {h00=0x0020, h01=0x0050, text=» RF(Z) INT210 EVEN CYLINDER «, t00=0x00d6, t01=0x0168}
0x14fb0…14fc2               Head {h00=0x000e, h01=0x0050, text=» ADK A2,8 «, t00=0x00d6, t01=0x018c}
0x14fc2…14fd6               Head {h00=0x0010, h01=0x0050, text=»INT210 EQU *«, t00=0x00d7, t01=0x000e}
0x14fd6…14fea               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x00d7, t01=0x0022}
0x14fea…1501a               Head {h00=0x002c, h01=0x0050, text=» SLL A2,2 PHYSICAL SECTOR AND ORDER CODE«, t00=0x00d7, t01=0x0036}
0x1501a…15030               Head {h00=0x0012, h01=0x0050, text=» ST A2,SECNBR «, t00=0x00d7, t01=0x0066}
0x15030…1503e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d7, t01=0x007c}
0x1503e…15048               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x008a}
0x15048…1505e               Head {h00=0x0012, h01=0x0050, text=»* READ SECTOR «, t00=0x00d7, t01=0x0094}
0x1505e…15068               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x00aa}
0x15068…1508a               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 BUFFER ADDRESS «, t00=0x00d7, t01=0x00b4}
0x1508a…150b6               Head {h00=0x0028, h01=0x0050, text=»READ20 LDKL A4,MUXCC NUMBER OF WORDS«, t00=0x00d7, t01=0x00d6}
0x150b6…150e6               Head {h00=0x002c, h01=0x0050, text=»WERIO2 WER A4,/10 WRITE NUMBER OF WORDS «, t00=0x00d7, t01=0x0102}
0x150e6…1510e               Head {h00=0x0024, h01=0x0050, text=» WER A1,/11 WRITE BUFFER ADDRESS«, t00=0x00d7, t01=0x0132}
0x1510e…15134               Head {h00=0x0022, h01=0x0050, text=»READ21 CIO A2,1,0 READ SECTOR «, t00=0x00d7, t01=0x015a}
0x15134…1515e               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READ21 LOOP UNTIL ACCEPTED«, t00=0x00d7, t01=0x0180}
0x1515e…1517c               Head {h00=0x001a, h01=0x0050, text=»READ22 SST A2,0 STATUS«, t00=0x00d8, t01=0x001a}
0x1517c…151a6               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READ22 LOOP UNTIL ACCEPTED«, t00=0x00d8, t01=0x0038}
0x151a6…151ba               Head {h00=0x0010, h01=0x0050, text=»CRCCHK EQU *«, t00=0x00d8, t01=0x0062}
0x151ba…151d4               Head {h00=0x0016, h01=0x0050, text=» ANK A2,/1F STATUS«, t00=0x00d8, t01=0x0076}
0x151d4…151f8               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DUERR READING ERROR «, t00=0x00d8, t01=0x0090}
0x151f8…15224               Head {h00=0x0028, h01=0x0050, text=» ADKL A11,1 INCREMENT SECTOR COUNTER«, t00=0x00d8, t01=0x00b4}
0x15224…15234               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00d8, t01=0x00e0}
0x15234…15242               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d8, t01=0x00f0}
0x15242…1524c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x00fe}
0x1524c…15272               Head {h00=0x0022, h01=0x0050, text=»* READ DISC SECTOR VERSION A3 «, t00=0x00d8, t01=0x0108}
0x15272…1527c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x012e}
0x1527c…15290               Head {h00=0x0010, h01=0x0050, text=»RDSEC3 EQU *«, t00=0x00d8, t01=0x0138}
0x15290…152a2               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x00d8, t01=0x014c}
0x152a2…152d0               Head {h00=0x002a, h01=0x0050, text=» LDR A1,A11 GET LOGICAL SECTOR NUMBER «, t00=0x00d8, t01=0x015e}
0x152d0…152e6               Head {h00=0x0012, h01=0x0050, text=» LDKL A7,/1000«, t00=0x00d8, t01=0x018c}
0x152e6…152fc               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/3000«, t00=0x00d9, t01=0x0012}
0x152fc…15310               Head {h00=0x0010, h01=0x0050, text=»DIV300 EQU *«, t00=0x00d9, t01=0x0028}
0x15310…15322               Head {h00=0x000e, h01=0x0050, text=» SUR A1,A4«, t00=0x00d9, t01=0x003c}
0x15322…15338               Head {h00=0x0012, h01=0x0050, text=» RF(N) DIV310 «, t00=0x00d9, t01=0x004e}
0x15338…1534a               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A7«, t00=0x00d9, t01=0x0064}
0x1534a…1535c               Head {h00=0x000e, h01=0x0050, text=» RB DIV300«, t00=0x00d9, t01=0x0076}
0x1535c…15370               Head {h00=0x0010, h01=0x0050, text=»DIV310 EQU *«, t00=0x00d9, t01=0x0088}
0x15370…15392               Head {h00=0x001e, h01=0x0050, text=» ADR A1,A4 ADJUST DIVIDEND«, t00=0x00d9, t01=0x009c}
0x15392…153a4               Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x00d9, t01=0x00be}
0x153a4…153b6               Head {h00=0x000e, h01=0x0050, text=» SRL A7,4 «, t00=0x00d9, t01=0x00d0}
0x153b6…153cc               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DIV300«, t00=0x00d9, t01=0x00e2}
0x153cc…153de               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x00d9, t01=0x00f8}
0x153de…153e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x010a}
0x153e8…153fa               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x00d9, t01=0x0114}
0x153fa…15410               Head {h00=0x0012, h01=0x0050, text=» ST A1,SAVMEM «, t00=0x00d9, t01=0x0126}
0x15410…1544a               Head {h00=0x0036, h01=0x0050, text=» RF(NP) CASE10 ,XXXX  ,      , OR ,    XX,XX    , «, t00=0x00d9, t01=0x013c}
0x1544a…1546c               Head {h00=0x001e, h01=0x0050, text=» ADK A2,1 ,      ,  XXXX, «, t00=0x00d9, t01=0x0176}
0x1546c…15480               Head {h00=0x0010, h01=0x0050, text=»CASE10 EQU *«, t00=0x00da, t01=0x0008}
0x15480…15492               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x00da, t01=0x001c}
0x15492…154a4               Head {h00=0x000e, h01=0x0050, text=» SRL A4,5 «, t00=0x00da, t01=0x002e}
0x154a4…154ba               Head {h00=0x0012, h01=0x0050, text=» CW A4,CYLNBR «, t00=0x00da, t01=0x0040}
0x154ba…154d0               Head {h00=0x0012, h01=0x0050, text=» RF(E) INT300 «, t00=0x00da, t01=0x0056}
0x154d0…15500               Head {h00=0x002c, h01=0x0050, text=» ST A4,CYLNBR STORE NEW CYLINDER NUMBER «, t00=0x00da, t01=0x006c}
0x15500…15512               Head {h00=0x000e, h01=0x0050, text=» SLL A4,3 «, t00=0x00da, t01=0x009c}
0x15512…1552e               Head {h00=0x0018, h01=0x0050, text=» ORK A4,2 SET BIT 14«, t00=0x00da, t01=0x00ae}
0x1552e…1553c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00da, t01=0x00ca}
0x1553c…15546               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x00d8}
0x15546…1555e               Head {h00=0x0014, h01=0x0050, text=»* SEEK CYLINDER «, t00=0x00da, t01=0x00e2}
0x1555e…15568               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x00fa}
0x15568…15582               Head {h00=0x0016, h01=0x0050, text=»SEEK30 CIO A4,1,0 «, t00=0x00da, t01=0x0104}
0x15582…15598               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEK30«, t00=0x00da, t01=0x011e}
0x15598…155a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x0134}
0x155a2…155c4               Head {h00=0x001e, h01=0x0050, text=»SEEK31 SST A4,0 GET STATUS«, t00=0x00da, t01=0x013e}
0x155c4…155da               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEK31«, t00=0x00da, t01=0x0160}
0x155da…155e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x0176}
0x155e4…155fa               Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x00da, t01=0x0180}
0x155fa…15604               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x0008}
0x15604…15618               Head {h00=0x0010, h01=0x0050, text=»INT300 EQU *«, t00=0x00db, t01=0x0012}
0x15618…1562a               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x00db, t01=0x0026}
0x1562a…1563c               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x00db, t01=0x0038}
0x1563c…15664               Head {h00=0x0024, h01=0x0050, text=» ADR A2,A3 INTERLACING FACTOR 3 «, t00=0x00db, t01=0x004a}
0x15664…15678               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x00db, t01=0x0072}
0x15678…156a2               Head {h00=0x0026, h01=0x0050, text=» LD A4,CYLNBR GET CYLINDER NUMBER «, t00=0x00db, t01=0x0086}
0x156a2…156b4               Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x00db, t01=0x00b0}
0x156b4…156de               Head {h00=0x0026, h01=0x0050, text=» RF(Z) INT310 EVEN CYLINDER NUMBER«, t00=0x00db, t01=0x00c2}
0x156de…15704               Head {h00=0x0022, h01=0x0050, text=» ADK A2,8 SKEW FACTOR 180 DEG.«, t00=0x00db, t01=0x00ec}
0x15704…1570e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x0112}
0x1570e…15722               Head {h00=0x0010, h01=0x0050, text=»INT310 EQU *«, t00=0x00db, t01=0x011c}
0x15722…15736               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x00db, t01=0x0130}
0x15736…15760               Head {h00=0x0026, h01=0x0050, text=» SLL A2,2 INTERLACED SECTOR NUMBER«, t00=0x00db, t01=0x0144}
0x15760…15792               Head {h00=0x002e, h01=0x0050, text=» ST A2,SECNBR STORE PHYSICAL SECTOR NUMBER«, t00=0x00db, t01=0x016e}
0x15792…157a0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00dc, t01=0x0010}
0x157a0…157aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x001e}
0x157aa…157c0               Head {h00=0x0012, h01=0x0050, text=»* READ SECTOR «, t00=0x00dc, t01=0x0028}
0x157c0…157ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x003e}
0x157ca…157ec               Head {h00=0x001e, h01=0x0050, text=» LDR A7,A9 BUFFER ADDRESS «, t00=0x00dc, t01=0x0048}
0x157ec…1581a               Head {h00=0x002a, h01=0x0050, text=»READ34 LDKL A4,MXCCD3 NUMBER OF WORDS «, t00=0x00dc, t01=0x006a}
0x1581a…1584a               Head {h00=0x002c, h01=0x0050, text=»WERIO3 WER A4,/10 WRITE NUMBER OF WORDS «, t00=0x00dc, t01=0x0098}
0x1584a…15872               Head {h00=0x0024, h01=0x0050, text=» WER A7,/11 WRITE BUFFER ADDRESS«, t00=0x00dc, t01=0x00c8}
0x15872…1587c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x00f0}
0x1587c…158a2               Head {h00=0x0022, h01=0x0050, text=»READ30 CIO A2,1,0 READ SECTOR «, t00=0x00dc, t01=0x00fa}
0x158a2…158cc               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READ30 LOOP UNTIL ACCEPTED«, t00=0x00dc, t01=0x0120}
0x158cc…158d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x014a}
0x158d6…158f8               Head {h00=0x001e, h01=0x0050, text=»READ31 SST A2,0 GET STATUS«, t00=0x00dc, t01=0x0154}
0x158f8…15922               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READ31 LOOP UNTIL ACCEPTED«, t00=0x00dc, t01=0x0176}
0x15922…1593c               Head {h00=0x0016, h01=0x0050, text=» ANK A2,/1F STATUS«, t00=0x00dd, t01=0x0010}
0x1593c…15960               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DUERR READING ERROR «, t00=0x00dd, t01=0x002a}
0x15960…15982               Head {h00=0x001e, h01=0x0050, text=» LDR A2,A9 BUFFER ADDRESS «, t00=0x00dd, t01=0x004e}
0x15982…15994               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x00dd, t01=0x0070}
0x15994…159ba               Head {h00=0x0022, h01=0x0050, text=» RF(N) RETURN ,XXXX  ,      , «, t00=0x00dd, t01=0x0082}
0x159ba…159e0               Head {h00=0x0022, h01=0x0050, text=» RF(P) READ33 ,      ,  XXXX, «, t00=0x00dd, t01=0x00a8}
0x159e0…15a04               Head {h00=0x0020, h01=0x0050, text=» ADKL A2,256 SOURCE POINTER «, t00=0x00dd, t01=0x00ce}
0x15a04…15a2e               Head {h00=0x0026, h01=0x0050, text=» LDK A4,64 NUMBER OF WORDS TO MOVE«, t00=0x00dd, t01=0x00f2}
0x15a2e…15a52               Head {h00=0x0020, h01=0x0050, text=»READ32 EQU * ,    XX,XX    ,«, t00=0x00dd, t01=0x011c}
0x15a52…15a66               Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A2 «, t00=0x00dd, t01=0x0140}
0x15a66…15a78               Head {h00=0x000e, h01=0x0050, text=» STR A1,A7«, t00=0x00dd, t01=0x0154}
0x15a78…15a8a               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00dd, t01=0x0166}
0x15a8a…15a9c               Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x00dd, t01=0x0178}
0x15a9c…15aae               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x00dd, t01=0x018a}
0x15aae…15ad4               Head {h00=0x0022, h01=0x0050, text=» RB(NZ) READ32 CONTINUE MOVING«, t00=0x00de, t01=0x000c}
0x15ad4…15aea               Head {h00=0x0012, h01=0x0050, text=» LD A1,SAVMEM «, t00=0x00de, t01=0x0032}
0x15aea…15b00               Head {h00=0x0012, h01=0x0050, text=» RF(P) RETURN «, t00=0x00de, t01=0x0048}
0x15b00…15b2c               Head {h00=0x0028, h01=0x0050, text=» LD A2,SECNBR PHYSICAL SECTOR NUMBER«, t00=0x00de, t01=0x005e}
0x15b2c…15b52               Head {h00=0x0022, h01=0x0050, text=» ADK A2,/C NEW SECTOR TO READ «, t00=0x00de, t01=0x008a}
0x15b52…15b66               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7C «, t00=0x00de, t01=0x00b0}
0x15b66…15b78               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x00de, t01=0x00c4}
0x15b78…15b8a               Head {h00=0x000e, h01=0x0050, text=» RB READ34«, t00=0x00de, t01=0x00d6}
0x15b8a…15b98               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00de, t01=0x00e8}
0x15b98…15bac               Head {h00=0x0010, h01=0x0050, text=»READ33 EQU *«, t00=0x00de, t01=0x00f6}
0x15bac…15bce               Head {h00=0x001e, h01=0x0050, text=» ADK A2,128 SOURCE POINTER«, t00=0x00de, t01=0x010a}
0x15bce…15bfa               Head {h00=0x0028, h01=0x0050, text=» LDK A4,128 NUMBER OF WORDS TO MOVE «, t00=0x00de, t01=0x012c}
0x15bfa…15c0c               Head {h00=0x000e, h01=0x0050, text=» RB READ32«, t00=0x00de, t01=0x0158}
0x15c0c…15c3e               Head {h00=0x002e, h01=0x0050, text=»RETURN ADKL A11,1 INCREMENT SECTOR NUMBER «, t00=0x00de, t01=0x016a}
0x15c3e…15c4e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00df, t01=0x000c}
0x15c4e…15c56               Head {h00=0x0004, h01=0x0050, t00=0x00df, t01=0x001c}
0x15c56…15c6a               Head {h00=0x0010, h01=0x0050, text=»DUERR EQU * «, t00=0x00df, t01=0x0024}
0x15c6a…15c80               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x00df, t01=0x0038}
0x15c80…15c94               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00df, t01=0x004e}
0x15c94…15ca0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00df, t01=0x0062}
0x15ca0…15cb6               Head {h00=0x0012, h01=0x0050, text=» IFT MFDISC=1 «, t00=0x00df, t01=0x006e}
0x15cb6…15cc4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00df, t01=0x0084}
0x15cc4…15d04               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x00df, t01=0x0092}
0x15d04…15d44               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00df, t01=0x00d2}
0x15d44…15d84               Head {h00=0x003c, h01=0x0050, text=»*  MDINIT - INITIALIZE MINI FIXED DISC UNIT            *«, t00=0x00df, t01=0x0112}
0x15d84…15dc4               Head {h00=0x003c, h01=0x0050, text=»*  =======================================             *«, t00=0x00df, t01=0x0152}
0x15dc4…15e04 (224, 0, 400) Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e0, t01=0x0004}
0x15e04…15e44               Head {h00=0x003c, h01=0x0050, text=»*  REFERENCED IN: SYSLOD,GETFIL                        *«, t00=0x00e0, t01=0x0044}
0x15e44…15e84               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e0, t01=0x0084}
0x15e84…15ec4               Head {h00=0x003c, h01=0x0050, text=»*  ENTRY:  A1 = DEVICE ADDRESS                         *«, t00=0x00e0, t01=0x00c4}
0x15ec4…15f04               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e0, t01=0x0104}
0x15f04…15f44               Head {h00=0x003c, h01=0x0050, text=»*  EXIT:                                               *«, t00=0x00e0, t01=0x0144}
0x15f44…15f84               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e0, t01=0x0184}
0x15f84…15fc4               Head {h00=0x003c, h01=0x0050, text=»*  WORK REGISTERS:                                     *«, t00=0x00e1, t01=0x0034}
0x15fc4…16004               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e1, t01=0x0074}
0x16004…16044               Head {h00=0x003c, h01=0x0050, text=»*  SUBROUTINES: ERROR                                  *«, t00=0x00e1, t01=0x00b4}
0x16044…16084               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e1, t01=0x00f4}
0x16084…160c4               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x00e1, t01=0x0134}
0x160c4…160d8               Head {h00=0x0010, h01=0x0050, text=»MDINIT EQU *«, t00=0x00e1, t01=0x0174}
0x160d8…160e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e1, t01=0x0188}
0x160e2…1610a (226, 0, 400) Head {h00=0x0024, h01=0x0050, text=»* INIT MINI FIXED DISC COMMANDS «, t00=0x00e2, t01=0x0004}
0x1610a…16114               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x002c}
0x16114…16128               Head {h00=0x0010, h01=0x0050, text=»MDI:00 EQU *«, t00=0x00e2, t01=0x0036}
0x16128…16158               Head {h00=0x002c, h01=0x0050, text=» ORKL A1,CIO CONFIG. CIO A1,1,XX INSTR. «, t00=0x00e2, t01=0x004a}
0x16158…1616e               Head {h00=0x0012, h01=0x0050, text=» ST A1,READM2 «, t00=0x00e2, t01=0x007a}
0x1616e…1619a               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A1,XX INSTR. «, t00=0x00e2, t01=0x0090}
0x1619a…161b0               Head {h00=0x0012, h01=0x0050, text=» ST A1,READM3 «, t00=0x00e2, t01=0x00bc}
0x161b0…161de               Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/B00 FORM CIO A2,1,XX INSTR. «, t00=0x00e2, t01=0x00d2}
0x161de…161f4               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKM1 «, t00=0x00e2, t01=0x0100}
0x161f4…16220               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX INSTR. «, t00=0x00e2, t01=0x0116}
0x16220…16236               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKM2 «, t00=0x00e2, t01=0x0142}
0x16236…16244               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e2, t01=0x0158}
0x16244…1624e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x0166}
0x1624e…1627c               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,MRDSEC GET SUBROUTINE ADDRESS«, t00=0x00e2, t01=0x0170}
0x1627c…16290               Head {h00=0x0010, h01=0x0050, text=» ST A2,READ «, t00=0x00e3, t01=0x000e}
0x16290…162a4               Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x00e3, t01=0x0022}
0x162a4…162b4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00e3, t01=0x0036}
0x162b4…162c2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e3, t01=0x0046}
0x162c2…16300               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x00e3, t01=0x0054}
0x16300…1633e               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e3, t01=0x0092}
0x1633e…1637c               Head {h00=0x003a, h01=0x0050, text=»*  MRDSEC - READ ONE SECTOR FROM MINI FIXED DISC     *«, t00=0x00e3, t01=0x00d0}
0x1637c…163ba               Head {h00=0x003a, h01=0x0050, text=»*  =============================================     *«, t00=0x00e3, t01=0x010e}
0x163ba…163f8               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e3, t01=0x014c}
0x163f8…16436               Head {h00=0x003a, h01=0x0050, text=»*  REFERENCED IN: SYSLOD                             *«, t00=0x00e3, t01=0x018a}
0x16436…16474               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e4, t01=0x0038}
0x16474…164b2               Head {h00=0x003a, h01=0x0050, text=»*  ENTRY:  A9 = BUFFER ADDRESS                       *«, t00=0x00e4, t01=0x0076}
0x164b2…164f0               Head {h00=0x003a, h01=0x0050, text=»*          A11 = SECTOR NUMBER                       *«, t00=0x00e4, t01=0x00b4}
0x164f0…1652e               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e4, t01=0x00f2}
0x1652e…1656c               Head {h00=0x003a, h01=0x0050, text=»*  EXIT:                                             *«, t00=0x00e4, t01=0x0130}
0x1656c…165aa               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e4, t01=0x016e}
0x165aa…165e8               Head {h00=0x003a, h01=0x0050, text=»*  WORK REGISTERS:                                   *«, t00=0x00e5, t01=0x001c}
0x165e8…16626               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e5, t01=0x005a}
0x16626…16664               Head {h00=0x003a, h01=0x0050, text=»*  SUBROUTINES:                                      *«, t00=0x00e5, t01=0x0098}
0x16664…166a2               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e5, t01=0x00d6}
0x166a2…166e0               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00e5, t01=0x0114}
0x166e0…166f4               Head {h00=0x0010, h01=0x0050, text=»MRDSEC EQU *«, t00=0x00e5, t01=0x0152}
0x166f4…1671a               Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 PREPARE FOR DIVISION«, t00=0x00e5, t01=0x0166}
0x1671a…16748               Head {h00=0x002a, h01=0x0050, text=» LDR A2,A11 GET LOGICAL SECTOR NUMBER «, t00=0x00e5, t01=0x018c}
0x16748…16766               Head {h00=0x001a, h01=0x0050, text=» DVK 104 DIVIDE BY 104«, t00=0x00e6, t01=0x002a}
0x16766…16778               Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x00e6, t01=0x0048}
0x16778…1679c               Head {h00=0x0020, h01=0x0050, text=» ORK A2,3 SET BIT 14 AND 15 «, t00=0x00e6, t01=0x005a}
0x1679c…167a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x007e}
0x167a6…167cc               Head {h00=0x0022, h01=0x0050, text=»* A1=SECTOR NUMBER ON CYLINDER«, t00=0x00e6, t01=0x0088}
0x167cc…167e8               Head {h00=0x0018, h01=0x0050, text=»* A2=CYLINDER NUMBER«, t00=0x00e6, t01=0x00ae}
0x167e8…167f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x00ca}
0x167f2…1681c               Head {h00=0x0026, h01=0x0050, text=» ST A1,SECNBR STORE SECTOR NUMBER «, t00=0x00e6, t01=0x00d4}
0x1681c…16832               Head {h00=0x0012, h01=0x0050, text=» CW A2,CYLNBR «, t00=0x00e6, t01=0x00fe}
0x16832…1685c               Head {h00=0x0026, h01=0x0050, text=» RF(E) INTM10 SAME CYLINDER NUMBER«, t00=0x00e6, t01=0x0114}
0x1685c…16888               Head {h00=0x0028, h01=0x0050, text=» ST A2,CYLNBR STORE CYLINDER NUMBER «, t00=0x00e6, t01=0x013e}
0x16888…16896               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e6, t01=0x016a}
0x16896…168a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x0178}
0x168a0…168b8               Head {h00=0x0014, h01=0x0050, text=»* SEEK CYLINDER «, t00=0x00e6, t01=0x0182}
0x168b8…168c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x000a}
0x168c2…168e8               Head {h00=0x0022, h01=0x0050, text=»SEEKM1 CIO A2,1,0 SEEK COMMAND«, t00=0x00e7, t01=0x0014}
0x168e8…16912               Head {h00=0x0026, h01=0x0050, text=» RB(NA) SEEKM1 LOOP UNTIL ACCEPTED«, t00=0x00e7, t01=0x003a}
0x16912…1691c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x0064}
0x1691c…1693e               Head {h00=0x001e, h01=0x0050, text=»SEEKM2 SST A2,0 GET STATUS«, t00=0x00e7, t01=0x006e}
0x1693e…16968               Head {h00=0x0026, h01=0x0050, text=» RB(NA) SEEKM2 WAIT UNTIL ACCEPTED«, t00=0x00e7, t01=0x0090}
0x16968…16972               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x00ba}
0x16972…16988               Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x00e7, t01=0x00c4}
0x16988…16992               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x00da}
0x16992…169a6               Head {h00=0x0010, h01=0x0050, text=»INTM10 EQU *«, t00=0x00e7, t01=0x00e4}
0x169a6…169b8               Head {h00=0x000e, h01=0x0050, text=» CWK A1,52«, t00=0x00e7, t01=0x00f8}
0x169b8…169da               Head {h00=0x001e, h01=0x0050, text=» RF(L) INTM20 SECTOR 0-51 «, t00=0x00e7, t01=0x010a}
0x169da…169fa               Head {h00=0x001c, h01=0x0050, text=» SUK A1,52 SECTOR 52-103«, t00=0x00e7, t01=0x012c}
0x169fa…16a0e               Head {h00=0x0010, h01=0x0050, text=»INTM20 EQU *«, t00=0x00e7, t01=0x014c}
0x16a0e…16a20               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x00e7, t01=0x0160}
0x16a20…16a46               Head {h00=0x0022, h01=0x0050, text=» SLL A2,2 A2:=4*SECTOR NUMBER «, t00=0x00e7, t01=0x0172}
0x16a46…16a6c               Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 PREPARE FOR DIVISION«, t00=0x00e8, t01=0x0008}
0x16a6c…16a7c               Head {h00=0x000c, h01=0x0050, text=» DVK 52 «, t00=0x00e8, t01=0x002e}
0x16a7c…16aac               Head {h00=0x002c, h01=0x0050, text=» ADR A1,A2 A1:=INTERLACED SECTOR NUMBER «, t00=0x00e8, t01=0x003e}
0x16aac…16ab6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x006e}
0x16ab6…16adc               Head {h00=0x0022, h01=0x0050, text=»* A1:=INTERLACED SECTOR NUMBER«, t00=0x00e8, t01=0x0078}
0x16adc…16ae6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x009e}
0x16ae6…16b10               Head {h00=0x0026, h01=0x0050, text=» LD A2,CYLNBR GET CYLINDER NUMBER «, t00=0x00e8, t01=0x00a8}
0x16b10…16b22               Head {h00=0x000e, h01=0x0050, text=» SRC A2,3 «, t00=0x00e8, t01=0x00d2}
0x16b22…16b4e               Head {h00=0x0028, h01=0x0050, text=» RF(NN) INTM30 EVEN CYLINDER NUMBER «, t00=0x00e8, t01=0x00e4}
0x16b4e…16b70               Head {h00=0x001e, h01=0x0050, text=» SUK A1,26 SKEW FACTOR 26 «, t00=0x00e8, t01=0x0110}
0x16b70…16b86               Head {h00=0x0012, h01=0x0050, text=» RF(NN) INTM30«, t00=0x00e8, t01=0x0132}
0x16b86…16b98               Head {h00=0x000e, h01=0x0050, text=» ADK A1,52«, t00=0x00e8, t01=0x0148}
0x16b98…16bac               Head {h00=0x0010, h01=0x0050, text=»INTM30 EQU *«, t00=0x00e8, t01=0x015a}
0x16bac…16bbe               Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x00e8, t01=0x016e}
0x16bbe…16bf8               Head {h00=0x0036, h01=0x0050, text=» LD A2,SECNBR GET SECTOR NUMBER BEFORE INTERLACING«, t00=0x00e8, t01=0x0180}
0x16bf8…16c0a               Head {h00=0x000e, h01=0x0050, text=» CWK A2,52«, t00=0x00e9, t01=0x002a}
0x16c0a…16c2e               Head {h00=0x0020, h01=0x0050, text=» RF(L) INTM40 HEAD NUMBER 0 «, t00=0x00e9, t01=0x003c}
0x16c2e…16c52               Head {h00=0x0020, h01=0x0050, text=» ORKL A1,/4000 HEAD NUMBER 1«, t00=0x00e9, t01=0x0060}
0x16c52…16c66               Head {h00=0x0010, h01=0x0050, text=»INTM40 EQU *«, t00=0x00e9, t01=0x0084}
0x16c66…16c70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x0098}
0x16c70…16c86               Head {h00=0x0012, h01=0x0050, text=»* READ SECTOR «, t00=0x00e9, t01=0x00a2}
0x16c86…16c90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x00b8}
0x16c90…16ca4               Head {h00=0x0010, h01=0x0050, text=»READM1 EQU *«, t00=0x00e9, t01=0x00c2}
0x16ca4…16cca               Head {h00=0x0022, h01=0x0050, text=» LDKL A4,MUXCC NUMBER OF WORDS«, t00=0x00e9, t01=0x00d6}
0x16cca…16cec               Head {h00=0x001e, h01=0x0050, text=» LDR A7,A9 BUFFER ADDRESS «, t00=0x00e9, t01=0x00fc}
0x16cec…16cf6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x011e}
0x16cf6…16d24               Head {h00=0x002a, h01=0x0050, text=»WERIOM WER A4,8 WRITE NUMBER OF WORDS «, t00=0x00e9, t01=0x0128}
0x16d24…16d4a               Head {h00=0x0022, h01=0x0050, text=» WER A7,9 WRITE BUFFER ADDRESS«, t00=0x00e9, t01=0x0156}
0x16d4a…16d54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x017c}
0x16d54…16d7a               Head {h00=0x0022, h01=0x0050, text=»READM2 CIO A1,1,0 READ SECTOR «, t00=0x00e9, t01=0x0186}
0x16d7a…16da4               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READM2 LOOP UNTIL ACCEPTED«, t00=0x00ea, t01=0x001c}
0x16da4…16dae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x0046}
0x16dae…16dd0               Head {h00=0x001e, h01=0x0050, text=»READM3 SST A1,0 GET STATUS«, t00=0x00ea, t01=0x0050}
0x16dd0…16dfa               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READM3 LOOP UNTIL ACCEPTED«, t00=0x00ea, t01=0x0072}
0x16dfa…16e14               Head {h00=0x0016, h01=0x0050, text=» ANK A1,/1F STATUS«, t00=0x00ea, t01=0x009c}
0x16e14…16e38               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) MFDERR READING ERROR«, t00=0x00ea, t01=0x00b6}
0x16e38…16e64               Head {h00=0x0028, h01=0x0050, text=» ADKL A11,1 INCREMENT SECTOR NUMBER «, t00=0x00ea, t01=0x00da}
0x16e64…16e74               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00ea, t01=0x0106}
0x16e74…16e7c               Head {h00=0x0004, h01=0x0050, t00=0x00ea, t01=0x0116}
0x16e7c…16e90               Head {h00=0x0010, h01=0x0050, text=»MFDERR EQU *«, t00=0x00ea, t01=0x011e}
0x16e90…16ea6               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x00ea, t01=0x0132}
0x16ea6…16eba               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00ea, t01=0x0148}
0x16eba…16ec6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ea, t01=0x015c}
0x16ec6…16edc               Head {h00=0x0012, h01=0x0050, text=» IFT FLDISC=1 «, t00=0x00ea, t01=0x0168}
0x16edc…16eea               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ea, t01=0x017e}
0x16eea…16f22               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00ea, t01=0x018c}
0x16f22…16f5a               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00eb, t01=0x0034}
0x16f5a…16f92               Head {h00=0x0034, h01=0x0050, text=»*  FDINIT - INITIALIZE FLEXIBLE DISC           *«, t00=0x00eb, t01=0x006c}
0x16f92…16fca               Head {h00=0x0034, h01=0x0050, text=»*  =================================           *«, t00=0x00eb, t01=0x00a4}
0x16fca…17002               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00eb, t01=0x00dc}
0x17002…1703a               Head {h00=0x0034, h01=0x0050, text=»*  REFERENCED IN: SYSLOD,GETFIL                *«, t00=0x00eb, t01=0x0114}
0x1703a…17072               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00eb, t01=0x014c}
0x17072…170aa               Head {h00=0x0034, h01=0x0050, text=»*  ENTRY:  A1 - DEVICE ADDRESS                 *«, t00=0x00eb, t01=0x0184}
0x170aa…170e2               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00ec, t01=0x002c}
0x170e2…1711a               Head {h00=0x0034, h01=0x0050, text=»*  EXIT:                                       *«, t00=0x00ec, t01=0x0064}
0x1711a…17152               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00ec, t01=0x009c}
0x17152…1718a               Head {h00=0x0034, h01=0x0050, text=»*  WORK REGISTERS:                             *«, t00=0x00ec, t01=0x00d4}
0x1718a…171c2               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00ec, t01=0x010c}
0x171c2…171fa               Head {h00=0x0034, h01=0x0050, text=»*  SUBROUTINES:                                *«, t00=0x00ec, t01=0x0144}
0x171fa…17232               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00ec, t01=0x017c}
0x17232…1726a               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00ed, t01=0x0024}
0x1726a…1727e               Head {h00=0x0010, h01=0x0050, text=»FDINIT EQU *«, t00=0x00ed, t01=0x005c}
0x1727e…17292               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/10 «, t00=0x00ed, t01=0x0070}
0x17292…172c6               Head {h00=0x0030, h01=0x0050, text=» ORKL A1,CIO+9 CONFIG. CIO+9 A1,1,XX INSTR. «, t00=0x00ed, t01=0x0084}
0x172c6…172dc               Head {h00=0x0012, h01=0x0050, text=» ST A1,FRD:10 «, t00=0x00ed, t01=0x00b8}
0x172dc…1731c               Head {h00=0x003c, h01=0x0050, text=» LDKL A2,FRDS25 ADDRESS TO READ ON 0,25 MEG FLOPPY DRIVE«, t00=0x00ed, t01=0x00ce}
0x1731c…17338               Head {h00=0x0018, h01=0x0050, text=» LDK A1,3 SEEK ORDER«, t00=0x00ed, t01=0x010e}
0x17338…17358               Head {h00=0x001c, h01=0x0050, text=» EX FRD:10 SEEK TO ZERO «, t00=0x00ed, t01=0x012a}
0x17358…1736c               Head {h00=0x0010, h01=0x0050, text=»FDI:05 EQU *«, t00=0x00ed, t01=0x014a}
0x1736c…1737e               Head {h00=0x000e, h01=0x0050, text=» EX SEKSST«, t00=0x00ed, t01=0x015e}
0x1737e…17394               Head {h00=0x0012, h01=0x0050, text=» RB(NA) FDI:05«, t00=0x00ed, t01=0x0170}
0x17394…1739e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ed, t01=0x0186}
0x1739e…173b2               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/10 «, t00=0x00ed, t01=0x0190}
0x173b2…173de               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) FDI:10 0.25 MEG FLOPPY DRIVE«, t00=0x00ee, t01=0x0014}
0x173de…173e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x0040}
0x173e8…1741a               Head {h00=0x002e, h01=0x0050, text=» LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 «, t00=0x00ee, t01=0x004a}
0x1741a…17446               Head {h00=0x0028, h01=0x0050, text=» ST A1,FRD:20 MODIFY INR INSTRUCTION«, t00=0x00ee, t01=0x007c}
0x17446…1745c               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/41F «, t00=0x00ee, t01=0x00a8}
0x1745c…17482               Head {h00=0x0022, h01=0x0050, text=» ST A1,FRD:42 MODIFY SST MASK «, t00=0x00ee, t01=0x00be}
0x17482…17498               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/C00 «, t00=0x00ee, t01=0x00e4}
0x17498…174c2               Head {h00=0x0026, h01=0x0050, text=» ST A1,RELEAS MODIFY RELEAS ORDER «, t00=0x00ee, t01=0x00fa}
0x174c2…17500               Head {h00=0x003a, h01=0x0050, text=» LDKL A2,FRDSEC ADDRESS TO READ ON 1 MEG FLOPPY DRIVE «, t00=0x00ee, t01=0x0124}
0x17500…17514               Head {h00=0x0010, h01=0x0050, text=»FDI:10 EQU *«, t00=0x00ee, t01=0x0162}
0x17514…17528               Head {h00=0x0010, h01=0x0050, text=» ST A2,READ «, t00=0x00ee, t01=0x0176}
0x17528…1753c               Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x00ee, t01=0x018a}
0x1753c…17564               Head {h00=0x0024, h01=0x0050, text=» CF A14,GETVLB GET VOLUME LABEL «, t00=0x00ef, t01=0x000e}
0x17564…17588               Head {h00=0x0020, h01=0x0050, text=» LD A1,FORDEV,A9 GET FORMAT «, t00=0x00ef, t01=0x0036}
0x17588…175a4               Head {h00=0x0018, h01=0x0050, text=» ST A1,DEVTYP+STKEND«, t00=0x00ef, t01=0x005a}
0x175a4…175b4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00ef, t01=0x0076}
0x175b4…175c2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ef, t01=0x0086}
0x175c2…175f6               Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00ef, t01=0x0094}
0x175f6…1762a               Head {h00=0x0030, h01=0x0050, text=»*                                          *«, t00=0x00ef, t01=0x00c8}
0x1762a…1765e               Head {h00=0x0030, h01=0x0050, text=»*                                          *«, t00=0x00ef, t01=0x00fc}
0x1765e…17692               Head {h00=0x0030, h01=0x0050, text=»*     UNLOCK - UNLOCK FLEXIBLE DISC        *«, t00=0x00ef, t01=0x0130}
0x17692…176c6               Head {h00=0x0030, h01=0x0050, text=»*     =============================        *«, t00=0x00ef, t01=0x0164}
0x176c6…176fa               Head {h00=0x0030, h01=0x0050, text=»*                                          *«, t00=0x00f0, t01=0x0008}
0x176fa…1772e               Head {h00=0x0030, h01=0x0050, text=»*     ON ENTRY: A1 = DEVICE ADDRESS        *«, t00=0x00f0, t01=0x003c}
0x1772e…17762               Head {h00=0x0030, h01=0x0050, text=»*                                          *«, t00=0x00f0, t01=0x0070}
0x17762…17796               Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00f0, t01=0x00a4}
0x17796…1779e               Head {h00=0x0004, h01=0x0050, t00=0x00f0, t01=0x00d8}
0x1779e…177a6               Head {h00=0x0004, h01=0x0050, t00=0x00f0, t01=0x00e0}
0x177a6…177ba               Head {h00=0x0010, h01=0x0050, text=»UNLOCK EQU *«, t00=0x00f0, t01=0x00e8}
0x177ba…177e2               Head {h00=0x0024, h01=0x0050, text=» CF A14,FDINIT INIT UNLOCK ORDER«, t00=0x00f0, t01=0x00fc}
0x177e2…177f8               Head {h00=0x0012, h01=0x0050, text=»RELEAS EQU *+2«, t00=0x00f0, t01=0x0124}
0x177f8…1780c               Head {h00=0x0010, h01=0x0050, text=» LDKL A1,/C «, t00=0x00f0, t01=0x013a}
0x1780c…17836               Head {h00=0x0026, h01=0x0050, text=» EX FRD:10 EXECUTE UNLOCK COMMAND «, t00=0x00f0, t01=0x014e}
0x17836…1785e               Head {h00=0x0024, h01=0x0050, text=» RB(NA) *-4 LOOP UNTIL ACCEPTED «, t00=0x00f0, t01=0x0178}
0x1785e…17868               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f1, t01=0x0010}
0x17868…17888               Head {h00=0x001c, h01=0x0050, text=» EX FRD:40 SENSE STATUS «, t00=0x00f1, t01=0x001a}
0x17888…178b0               Head {h00=0x0024, h01=0x0050, text=» RB(NA) *-4 LOOP UNTIL ACCEPTED «, t00=0x00f1, t01=0x003a}
0x178b0…178c0               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00f1, t01=0x0062}
0x178c0…178ce               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f1, t01=0x0072}
0x178ce…17912               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x00f1, t01=0x0080}
0x17912…17956               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f1, t01=0x00c4}
0x17956…1799a               Head {h00=0x0040, h01=0x0050, text=»*        FRDSEC - READ SECTOR FROM FLEXIBLE DISC          * «, t00=0x00f1, t01=0x0108}
0x1799a…179de               Head {h00=0x0040, h01=0x0050, text=»*        =======================================          * «, t00=0x00f1, t01=0x014c}
0x179de…17a22               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f1, t01=0x0190}
0x17a22…17a66               Head {h00=0x0040, h01=0x0050, text=»*  REFERENCED IN:  SYSLOD                                 * «, t00=0x00f2, t01=0x0044}
0x17a66…17aaa               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f2, t01=0x0088}
0x17aaa…17aee               Head {h00=0x0040, h01=0x0050, text=»*  ENTRY:  A9 - BUFFER ADDRESS                            * «, t00=0x00f2, t01=0x00cc}
0x17aee…17b32               Head {h00=0x0040, h01=0x0050, text=»*         A11 - SECTOR NUMBER                             * «, t00=0x00f2, t01=0x0110}
0x17b32…17b76               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f2, t01=0x0154}
0x17b76…17bba               Head {h00=0x0040, h01=0x0050, text=»*  EXIT:                                                  * «, t00=0x00f3, t01=0x0008}
0x17bba…17bfe               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f3, t01=0x004c}
0x17bfe…17c42               Head {h00=0x0040, h01=0x0050, text=»*  WORK REGISTERS:  A1,A2,A3                              * «, t00=0x00f3, t01=0x0090}
0x17c42…17c86               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f3, t01=0x00d4}
0x17c86…17cca               Head {h00=0x0040, h01=0x0050, text=»*  SUBROUTINES:  ERROR                                    * «, t00=0x00f3, t01=0x0118}
0x17cca…17d0e               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f3, t01=0x015c}
0x17d0e…17d52               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x00f4, t01=0x0010}
0x17d52…17d66               Head {h00=0x0010, h01=0x0050, text=»FRDSEC EQU *«, t00=0x00f4, t01=0x0054}
0x17d66…17d8c               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A11 GET SECTOR NUMBER «, t00=0x00f4, t01=0x0068}
0x17d8c…17dba               Head {h00=0x002a, h01=0x0050, text=» LDKL A4,/340 26 SHIFTED 10 STEPS LEFT«, t00=0x00f4, t01=0x008e}
0x17dba…17de2               Head {h00=0x0024, h01=0x0050, text=» LD A1,DEVTYP+STKEND DEVICE TYPE«, t00=0x00f4, t01=0x00bc}
0x17de2…17df4               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x00f4, t01=0x00e4}
0x17df4…17e1e               Head {h00=0x0026, h01=0x0050, text=» RF(Z) SNHEAD 0,25 MEG FLOPPY DISC«, t00=0x00f4, t01=0x00f6}
0x17e1e…17e30               Head {h00=0x000e, h01=0x0050, text=» CWK A2,13«, t00=0x00f4, t01=0x0120}
0x17e30…17e56               Head {h00=0x0022, h01=0x0050, text=» RF(NL) NOTCY0 NOT CYLINDER 0 «, t00=0x00f4, t01=0x0132}
0x17e56…17e6a               Head {h00=0x0010, h01=0x0050, text=»SNHEAD EQU *«, t00=0x00f4, t01=0x0158}
0x17e6a…17e98               Head {h00=0x002a, h01=0x0050, text=» SLL A2,1 A2=0-25,PHYSICAL SECTOR NBR «, t00=0x00f4, t01=0x016c}
0x17e98…17eaa               Head {h00=0x000e, h01=0x0050, text=» RF DVK26 «, t00=0x00f5, t01=0x000a}
0x17eaa…17ebe               Head {h00=0x0010, h01=0x0050, text=»NOTCY0 EQU *«, t00=0x00f5, t01=0x001c}
0x17ebe…17ed0               Head {h00=0x000e, h01=0x0050, text=» ADK A2,13«, t00=0x00f5, t01=0x0030}
0x17ed0…17ede               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f5, t01=0x0042}
0x17ede…17ee8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x0050}
0x17ee8…17f0c               Head {h00=0x0020, h01=0x0050, text=»* A2=PHYSICAL SECTOR NUMBER «, t00=0x00f5, t01=0x005a}
0x17f0c…17f16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x007e}
0x17f16…17f2a               Head {h00=0x0010, h01=0x0050, text=»DVK26 EQU * «, t00=0x00f5, t01=0x0088}
0x17f2a…17f3c               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x00f5, t01=0x009c}
0x17f3c…17f50               Head {h00=0x0010, h01=0x0050, text=»DVK26A EQU *«, t00=0x00f5, t01=0x00ae}
0x17f50…17f62               Head {h00=0x000e, h01=0x0050, text=» SLL A1,5 «, t00=0x00f5, t01=0x00c2}
0x17f62…17f76               Head {h00=0x0010, h01=0x0050, text=»DVK26B EQU *«, t00=0x00f5, t01=0x00d4}
0x17f76…17f88               Head {h00=0x000e, h01=0x0050, text=» SUR A2,A4«, t00=0x00f5, t01=0x00e8}
0x17f88…17f9e               Head {h00=0x0012, h01=0x0050, text=» RF(N) DVK26C «, t00=0x00f5, t01=0x00fa}
0x17f9e…17fb0               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x00f5, t01=0x0110}
0x17fb0…17fc2               Head {h00=0x000e, h01=0x0050, text=» RB DVK26B«, t00=0x00f5, t01=0x0122}
0x17fc2…17fd6               Head {h00=0x0010, h01=0x0050, text=»DVK26C EQU *«, t00=0x00f5, t01=0x0134}
0x17fd6…17fe8               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x00f5, t01=0x0148}
0x17fe8…17ffa               Head {h00=0x000e, h01=0x0050, text=» SRL A4,5 «, t00=0x00f5, t01=0x015a}
0x17ffa…18020               Head {h00=0x0022, h01=0x0050, text=» RB(NZ) DVK26A NEXT FIVE BITS «, t00=0x00f5, t01=0x016c}
0x18020…1802e (246, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f6, t01=0x0004}
0x1802e…18038               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x0012}
0x18038…18052               Head {h00=0x0016, h01=0x0050, text=»* A2=SECTOR NUMBER«, t00=0x00f6, t01=0x001c}
0x18052…1806e               Head {h00=0x0018, h01=0x0050, text=»* A1=CYLINDER NUMBER«, t00=0x00f6, t01=0x0036}
0x1806e…18078               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x0052}
0x18078…180a0               Head {h00=0x0024, h01=0x0050, text=» LD A4,DEVTYP+STKEND DEVICE TYPE«, t00=0x00f6, t01=0x005c}
0x180a0…180b2               Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x00f6, t01=0x0084}
0x180b2…180e2               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) DBHEAD 1 MEG FLOPPY,DOUBLE HEAD «, t00=0x00f6, t01=0x0096}
0x180e2…18102               Head {h00=0x001c, h01=0x0050, text=» SLL A1,1 ONLY ONE HEAD «, t00=0x00f6, t01=0x00c6}
0x18102…18116               Head {h00=0x0010, h01=0x0050, text=»DBHEAD EQU *«, t00=0x00f6, t01=0x00e6}
0x18116…18128               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x00f6, t01=0x00fa}
0x18128…1813a               Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x00f6, t01=0x010c}
0x1813a…1816c               Head {h00=0x002e, h01=0x0050, text=» SRC A4,2 HEAD NUMBER IN CORRECT POSITION «, t00=0x00f6, t01=0x011e}
0x1816c…181a0               Head {h00=0x0030, h01=0x0050, text=» SLL A2,2 SECTOR NUMBER IN CORRECT POSITION «, t00=0x00f6, t01=0x0150}
0x181a0…181c8               Head {h00=0x0024, h01=0x0050, text=» ORR A2,A4 A2=CIO READ REGISTER «, t00=0x00f6, t01=0x0184}
0x181c8…181fe               Head {h00=0x0032, h01=0x0050, text=» SLL A1,1 CYLINDER NUMBER IN CORRECT POSITION «, t00=0x00f7, t01=0x001c}
0x181fe…18224               Head {h00=0x0022, h01=0x0050, text=» ORK A1,3 A1=CIO SEEK REGISTER«, t00=0x00f7, t01=0x0052}
0x18224…1825c               Head {h00=0x0034, h01=0x0050, text=» CW A1,CYLNBR COMPARE OLD AN NEW CYLINDER NUMBER«, t00=0x00f7, t01=0x0078}
0x1825c…18280               Head {h00=0x0020, h01=0x0050, text=» RF(E) NOSEEK NO SEEK NEEDED«, t00=0x00f7, t01=0x00b0}
0x18280…182aa               Head {h00=0x0026, h01=0x0050, text=» ST A1,CYLNBR SAVE CYLINDER NUMBER«, t00=0x00f7, t01=0x00d4}
0x182aa…182cc               Head {h00=0x001e, h01=0x0050, text=»FDSEEK EX FRD:10 CIO START«, t00=0x00f7, t01=0x00fe}
0x182cc…182e2               Head {h00=0x0012, h01=0x0050, text=» RB(NA) FDSEEK«, t00=0x00f7, t01=0x0120}
0x182e2…182fc               Head {h00=0x0016, h01=0x0050, text=»SEKSST SST A1,FDCU«, t00=0x00f7, t01=0x0136}
0x182fc…18312               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEKSST«, t00=0x00f7, t01=0x0150}
0x18312…18328               Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/611 «, t00=0x00f7, t01=0x0166}
0x18328…1834a               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) FRD:50 SEEK ERROR «, t00=0x00f7, t01=0x017c}
0x1834a…1835e               Head {h00=0x0010, h01=0x0050, text=»NOSEEK EQU *«, t00=0x00f8, t01=0x000e}
0x1835e…18370               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x00f8, t01=0x0022}
0x18370…18382               Head {h00=0x000e, h01=0x0050, text=» RF FRD:05«, t00=0x00f8, t01=0x0034}
0x18382…18390               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f8, t01=0x0046}
0x18390…183a4               Head {h00=0x0010, h01=0x0050, text=»FRDS25 EQU *«, t00=0x00f8, t01=0x0054}
0x183a4…183c2               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A11 SECTOR NO «, t00=0x00f8, t01=0x0068}
0x183c2…183d4               Head {h00=0x000e, h01=0x0050, text=» SLL A1,4 «, t00=0x00f8, t01=0x0086}
0x183d4…18410               Head {h00=0x0038, h01=0x0050, text=» ORKL A1,/4000 NUMBER OF SECTORS=2  (BIT 0 - BIT 1) «, t00=0x00f8, t01=0x0098}
0x18410…18424               Head {h00=0x0010, h01=0x0050, text=»FRD:05 EQU *«, t00=0x00f8, t01=0x00d4}
0x18424…1843a               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,MUXCC«, t00=0x00f8, t01=0x00e8}
0x1843a…1845e               Head {h00=0x0020, h01=0x0050, text=» LD A3,MXBUF BUFFER ADDRESS «, t00=0x00f8, t01=0x00fe}
0x1845e…1847c               Head {h00=0x001a, h01=0x0050, text=» WER A2,FDIOP 1:ST WER«, t00=0x00f8, t01=0x0122}
0x1847c…1849e               Head {h00=0x001e, h01=0x0050, text=» WER A3,FDIOP+1 SECOND WER«, t00=0x00f8, t01=0x0140}
0x1849e…184a6               Head {h00=0x0004, h01=0x0050, t00=0x00f8, t01=0x0162}
0x184a6…184ce               Head {h00=0x0024, h01=0x0050, text=» LDR A2,A3 BUFFER START ADDRESS «, t00=0x00f8, t01=0x016a}
0x184ce…184f6 (249, 0, 400) Head {h00=0x0024, h01=0x0050, text=» AD A2,SAVCON BUFFER END ADDRESS«, t00=0x00f9, t01=0x0004}
0x184f6…18500               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x002c}
0x18500…18528               Head {h00=0x0024, h01=0x0050, text=»FRD:10 CIO A1,1,FDCU START READ «, t00=0x00f9, t01=0x0036}
0x18528…1853e               Head {h00=0x0012, h01=0x0050, text=» RB(NA) FRD:10«, t00=0x00f9, t01=0x005e}
0x1853e…18548               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x0074}
0x18548…1855e               Head {h00=0x0012, h01=0x0050, text=» EJECT   CRVOL«, t00=0x00f9, t01=0x007e}
0x1855e…18568               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x0094}
0x18568…18572               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x009e}
0x18572…1858e               Head {h00=0x0018, h01=0x0050, text=»FRD:20 INR A1,0,FDCU«, t00=0x00f9, t01=0x00a8}
0x1858e…185a8               Head {h00=0x0016, h01=0x0050, text=» RF(NA) FRD:40  =4«, t00=0x00f9, t01=0x00c4}
0x185a8…185ba               Head {h00=0x000e, h01=0x0050, text=» STR A1,A3«, t00=0x00f9, t01=0x00de}
0x185ba…185cc               Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x00f9, t01=0x00f0}
0x185cc…185de               Head {h00=0x000e, h01=0x0050, text=» CWR A3,A2«, t00=0x00f9, t01=0x0102}
0x185de…185f4               Head {h00=0x0012, h01=0x0050, text=» RB(NE) FRD:20«, t00=0x00f9, t01=0x0114}
0x185f4…185fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x012a}
0x185fe…18624               Head {h00=0x0022, h01=0x0050, text=»FRD:25 CIO A1,0,FDCU STOP READ«, t00=0x00f9, t01=0x0134}
0x18624…18636               Head {h00=0x000e, h01=0x0050, text=» RB FRD:20«, t00=0x00f9, t01=0x015a}
0x18636…18650               Head {h00=0x0016, h01=0x0050, text=»FRD:40 SST A1,FDCU«, t00=0x00f9, t01=0x016c}
0x18650…18666               Head {h00=0x0012, h01=0x0050, text=» RB(NA) FRD:20«, t00=0x00f9, t01=0x0186}
0x18666…1867c               Head {h00=0x0012, h01=0x0050, text=»FRD:42 EQU *+2«, t00=0x00fa, t01=0x000c}
0x1867c…186a0               Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/4E15 FATAL ERROR ?«, t00=0x00fa, t01=0x0022}
0x186a0…186bc               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) FRD:50 YES! «, t00=0x00fa, t01=0x0046}
0x186bc…186d8               Head {h00=0x0018, h01=0x0050, text=»FRD:43 CWR A3,A2  =4«, t00=0x00fa, t01=0x0062}
0x186d8…18704               Head {h00=0x0028, h01=0x0050, text=» RF(E) FRD:44 PROGRAMMED CHANNEL =4 «, t00=0x00fa, t01=0x007e}
0x18704…18736               Head {h00=0x002e, h01=0x0050, text=» LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 «, t00=0x00fa, t01=0x00aa}
0x18736…18760               Head {h00=0x0026, h01=0x0050, text=» ST A1,FRD:20 UPDATE INR ISTR. =4 «, t00=0x00fa, t01=0x00dc}
0x18760…18778               Head {h00=0x0014, h01=0x0050, text=»FRD:44 EQU *  =4«, t00=0x00fa, t01=0x0106}
0x18778…187aa               Head {h00=0x002e, h01=0x0050, text=» LDKL A1,FRD:B2+/5700 RF FRD:45 INSTR. =4 «, t00=0x00fa, t01=0x011e}
0x187aa…187d4               Head {h00=0x0026, h01=0x0050, text=» ST A1,FRD:43 UPDATE CWR INSTR. =4«, t00=0x00fa, t01=0x0150}
0x187d4…187f4               Head {h00=0x001c, h01=0x0050, text=» ABI READ READ AGAIN =4 «, t00=0x00fa, t01=0x017a}
0x187f4…18808               Head {h00=0x0010, h01=0x0050, text=»FRD:45 EQU *«, t00=0x00fb, t01=0x000a}
0x18808…18834               Head {h00=0x0028, h01=0x0050, text=» ADKL A11,1 INCRMENT SECTOR ADDRESS «, t00=0x00fb, t01=0x001e}
0x18834…1884a               Head {h00=0x0012, h01=0x0050, text=» RF(NN) FRD:48«, t00=0x00fb, t01=0x004a}
0x1884a…1887e               Head {h00=0x0030, h01=0x0050, text=» SUR A11,A11 RESET LEAST SIGN. PART OF D.A. «, t00=0x00fb, t01=0x0060}
0x1887e…188b4               Head {h00=0x0032, h01=0x0050, text=» ADKL A12,1 INCREMENT MOST SIGN. PART OF D.A. «, t00=0x00fb, t01=0x0094}
0x188b4…188dc               Head {h00=0x0024, h01=0x0050, text=» RF(O) FRD:50 DISC ADDRESS ERROR«, t00=0x00fb, t01=0x00ca}
0x188dc…188f0               Head {h00=0x0010, h01=0x0050, text=»FRD:48 EQU *«, t00=0x00fb, t01=0x00f2}
0x188f0…18900               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00fb, t01=0x0106}
0x18900…18914               Head {h00=0x0010, h01=0x0050, text=»FRD:50 EQU *«, t00=0x00fb, t01=0x0116}
0x18914…1892a               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x00fb, t01=0x012a}
0x1892a…1893e               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00fb, t01=0x0140}
0x1893e…18964               Head {h00=0x0022, h01=0x0050, text=»FRD:B1 EQU FRD:40-FRD:20-2  =4«, t00=0x00fb, t01=0x0154}
0x18964…1898a               Head {h00=0x0022, h01=0x0050, text=»FRD:B2 EQU FRD:45-FRD:43-2  =4«, t00=0x00fb, t01=0x017a}
0x1898a…18996               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00fc, t01=0x0010}
0x18996…189ac               Head {h00=0x0012, h01=0x0050, text=» IFT CDDISC=1 «, t00=0x00fc, t01=0x001c}
0x189ac…189c6               Head {h00=0x0016, h01=0x0050, text=» IFT CDDI16=0  =9 «, t00=0x00fc, t01=0x0032}
0x189c6…189d4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fc, t01=0x004c}
0x189d4…18a00               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00fc, t01=0x005a}
0x18a00…18a2c               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00fc, t01=0x0086}
0x18a2c…18a58               Head {h00=0x0028, h01=0x0050, text=»*  CDINIT - INITIALIZE DISC UNIT  * «, t00=0x00fc, t01=0x00b2}
0x18a58…18a84               Head {h00=0x0028, h01=0x0050, text=»*  =============================  * «, t00=0x00fc, t01=0x00de}
0x18a84…18ab0               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00fc, t01=0x010a}
0x18ab0…18adc               Head {h00=0x0028, h01=0x0050, text=»*  REFERENCED IN: SYSLOD,GETFIL   * «, t00=0x00fc, t01=0x0136}
0x18adc…18b08               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00fc, t01=0x0162}
0x18b08…18b34               Head {h00=0x0028, h01=0x0050, text=»*  ENTRY: A1 - DEVICE ADDRESS     * «, t00=0x00fc, t01=0x018e}
0x18b34…18b60               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00fd, t01=0x002a}
0x18b60…18b8c               Head {h00=0x0028, h01=0x0050, text=»*  EXIT:                          * «, t00=0x00fd, t01=0x0056}
0x18b8c…18bb8               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00fd, t01=0x0082}
0x18bb8…18be4               Head {h00=0x0028, h01=0x0050, text=»*  WORK REGISTERS:  A1,A2          *«, t00=0x00fd, t01=0x00ae}
0x18be4…18c10               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00fd, t01=0x00da}
0x18c10…18c3c               Head {h00=0x0028, h01=0x0050, text=»*  SUBROUTINES:                   * «, t00=0x00fd, t01=0x0106}
0x18c3c…18c68               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00fd, t01=0x0132}
0x18c68…18c94               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00fd, t01=0x015e}
0x18c94…18c9c               Head {h00=0x0004, h01=0x0050, t00=0x00fd, t01=0x018a}
0x18c9c…18cb0 (254, 0, 400) Head {h00=0x0010, h01=0x0050, text=»CDINIT EQU *«, t00=0x00fe, t01=0x0004}
0x18cb0…18cba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x0018}
0x18cba…18cde               Head {h00=0x0020, h01=0x0050, text=»* INIT 80M CDC DISC COMMANDS«, t00=0x00fe, t01=0x0022}
0x18cde…18ce8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x0046}
0x18ce8…18d18               Head {h00=0x002c, h01=0x0050, text=» ORKL A1,CIO CONFIG CIO A1,1,XX  INSTR. «, t00=0x00fe, t01=0x0050}
0x18d18…18d2e               Head {h00=0x0012, h01=0x0050, text=» ST A1,READC1 «, t00=0x00fe, t01=0x0080}
0x18d2e…18d5a               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A1,XX  INSTR.«, t00=0x00fe, t01=0x0096}
0x18d5a…18d70               Head {h00=0x0012, h01=0x0050, text=» ST A1,READC2 «, t00=0x00fe, t01=0x00c2}
0x18d70…18d9e               Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/B00 FORM CIO A2,1,XX  INSTR.«, t00=0x00fe, t01=0x00d8}
0x18d9e…18db4               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKC1 «, t00=0x00fe, t01=0x0106}
0x18db4…18de0               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX  INSTR.«, t00=0x00fe, t01=0x011c}
0x18de0…18df6               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKC2 «, t00=0x00fe, t01=0x0148}
0x18df6…18e0a               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x00fe, t01=0x015e}
0x18e0a…18e40               Head {h00=0x0032, h01=0x0050, text=» ST A2,PSECNL+STKEND INIT VALUE FOR SECTOR NBR«, t00=0x00fe, t01=0x0172}
0x18e40…18e6a               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/300 BUFLEN 80M CDC DISC «, t00=0x00ff, t01=0x0018}
0x18e6a…18e8c               Head {h00=0x001e, h01=0x0050, text=» ST A2,SAVCON SAVE LENGTH «, t00=0x00ff, t01=0x0042}
0x18e8c…18ec4               Head {h00=0x0034, h01=0x0050, text=» LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR.«, t00=0x00ff, t01=0x0064}
0x18ec4…18ed8               Head {h00=0x0010, h01=0x0050, text=» ST A2,READ «, t00=0x00ff, t01=0x009c}
0x18ed8…18eec               Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x00ff, t01=0x00b0}
0x18eec…18efc               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00ff, t01=0x00c4}
0x18efc…18f0a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ff, t01=0x00d4}
0x18f0a…18f42               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00ff, t01=0x00e2}
0x18f42…18f7a               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00ff, t01=0x011a}
0x18f7a…18fb2               Head {h00=0x0034, h01=0x0050, text=»*  CRDSEC- READ ONE SECTOR FROM DISC          * «, t00=0x00ff, t01=0x0152}
0x18fb2…18fea               Head {h00=0x0034, h01=0x0050, text=»*  =================================          * «, t00=0x00ff, t01=0x018a}
0x18fea…19022               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0100, t01=0x0032}
0x19022…1905a               Head {h00=0x0034, h01=0x0050, text=»*  REFERENCED IN: SYSLOD                      * «, t00=0x0100, t01=0x006a}
0x1905a…19092               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0100, t01=0x00a2}
0x19092…190ca               Head {h00=0x0034, h01=0x0050, text=»*  ENTRY:  A9 = BUFFER ADDRESS                * «, t00=0x0100, t01=0x00da}
0x190ca…19102               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0100, t01=0x0112}
0x19102…1913a               Head {h00=0x0034, h01=0x0050, text=»*         A11 - SECTOR NBR LEAST SIGNIFICANT  * «, t00=0x0100, t01=0x014a}
0x1913a…19172               Head {h00=0x0034, h01=0x0050, text=»*         A12 - SECTOR NBR MOST SIGNIFICANT   * «, t00=0x0100, t01=0x0182}
0x19172…191aa               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0101, t01=0x002a}
0x191aa…191e2               Head {h00=0x0034, h01=0x0050, text=»*  EXIT: A12,A11 = A12,A11 + 1                * «, t00=0x0101, t01=0x0062}
0x191e2…1921a               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0101, t01=0x009a}
0x1921a…19252               Head {h00=0x0034, h01=0x0050, text=»*   WORK REGISTERS:  A1,A2,A3,A6              * «, t00=0x0101, t01=0x00d2}
0x19252…1928a               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0101, t01=0x010a}
0x1928a…192c2               Head {h00=0x0034, h01=0x0050, text=»*  SUBROUTINES:  ERROR                        * «, t00=0x0101, t01=0x0142}
0x192c2…192fa               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0101, t01=0x017a}
0x192fa…19332               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0102, t01=0x0022}
0x19332…1933c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x005a}
0x1933c…19350               Head {h00=0x0010, h01=0x0050, text=»CRDSEC EQU *«, t00=0x0102, t01=0x0064}
0x19350…1935a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x0078}
0x1935a…19376               Head {h00=0x0018, h01=0x0050, text=»* SET BUFFER ADDRESS«, t00=0x0102, t01=0x0082}
0x19376…19380               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x009e}
0x19380…193a2               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 BUFFER ADDRESS «, t00=0x0102, t01=0x00a8}
0x193a2…193b6               Head {h00=0x0010, h01=0x0050, text=» ADKL A1,256«, t00=0x0102, t01=0x00ca}
0x193b6…193d6               Head {h00=0x001c, h01=0x0050, text=» ST A1,CIOAD2 ADDRESS 2 «, t00=0x0102, t01=0x00de}
0x193d6…193ea               Head {h00=0x0010, h01=0x0050, text=» ADKL A1,256«, t00=0x0102, t01=0x00fe}
0x193ea…1940a               Head {h00=0x001c, h01=0x0050, text=» ST A1,CIOAD3 ADDRESS 3 «, t00=0x0102, t01=0x0112}
0x1940a…19420               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/3FFF«, t00=0x0102, t01=0x0132}
0x19420…19442               Head {h00=0x001e, h01=0x0050, text=» ANS A1,CIOTAB RESET BITS «, t00=0x0102, t01=0x0148}
0x19442…19464               Head {h00=0x001e, h01=0x0050, text=» ANS A1,CIOTOT RESET BITS «, t00=0x0102, t01=0x016a}
0x19464…19496               Head {h00=0x002e, h01=0x0050, text=» LDR A1,A12 SECTOR NUMBER MOST SIGNIFICANT«, t00=0x0102, t01=0x018c}
0x19496…194ca               Head {h00=0x0030, h01=0x0050, text=» LDR A2,A11 SECTOR NUMBER LEAST SIGNIFICANT «, t00=0x0103, t01=0x002e}
0x194ca…194d8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0103, t01=0x0062}
0x194d8…194e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0103, t01=0x0070}
0x194e2…19502               Head {h00=0x001c, h01=0x0050, text=»* DIVIDE LOGICAL WITH 3 «, t00=0x0103, t01=0x007a}
0x19502…1950c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0103, t01=0x009a}
0x1950c…1951e               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0103, t01=0x00a4}
0x1951e…19532               Head {h00=0x0010, h01=0x0050, text=»RED100 EQU *«, t00=0x0103, t01=0x00b6}
0x19532…19544               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0103, t01=0x00ca}
0x19544…19556               Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x0103, t01=0x00dc}
0x19556…1956c               Head {h00=0x0012, h01=0x0050, text=» RB(NN) RED100«, t00=0x0103, t01=0x00ee}
0x1956c…1957e               Head {h00=0x000e, h01=0x0050, text=» ADK A1,3 «, t00=0x0103, t01=0x0104}
0x1957e…19590               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0103, t01=0x0116}
0x19590…1959e               Head {h00=0x000a, h01=0x0050, text=» DVK 3«, t00=0x0103, t01=0x0128}
0x1959e…195b4               Head {h00=0x0012, h01=0x0050, text=» CW A9,CIOAD1 «, t00=0x0103, t01=0x0136}
0x195b4…195f2               Head {h00=0x003a, h01=0x0050, text=» RF(NE) RED110 NOT SAME BUFFER ADDRESS MEANS NEW READ «, t00=0x0103, t01=0x014c}
0x195f2…1960e               Head {h00=0x0018, h01=0x0050, text=» CW A2,PSECNL+STKEND«, t00=0x0103, t01=0x018a}
0x1960e…1963e               Head {h00=0x002c, h01=0x0050, text=» RF(NE) RED110 NOT SAME PHYSICAL SEC NBR«, t00=0x0104, t01=0x0016}
0x1963e…1965a               Head {h00=0x0018, h01=0x0050, text=» CW A3,PSECNM+STKEND«, t00=0x0104, t01=0x0046}
0x1965a…1968a               Head {h00=0x002c, h01=0x0050, text=» RF(NE) RED110 NOT SAME PHYSICAL SEC NBR«, t00=0x0104, t01=0x0062}
0x1968a…196a6               Head {h00=0x0018, h01=0x0050, text=» CW A1,PSECPA+STKEND«, t00=0x0104, t01=0x0092}
0x196a6…196d0               Head {h00=0x0026, h01=0x0050, text=» RF(E) TURN SAME LOG SEC AS BEFORE«, t00=0x0104, t01=0x00ae}
0x196d0…19702               Head {h00=0x002e, h01=0x0050, text=» RF(G) REDMOV MOVE UP NEXT LOGICAL SECTOR «, t00=0x0104, t01=0x00d8}
0x19702…19716               Head {h00=0x0010, h01=0x0050, text=»RED110 EQU *«, t00=0x0104, t01=0x010a}
0x19716…19736               Head {h00=0x001c, h01=0x0050, text=» ST A9,CIOAD1 ADDRESS 1 «, t00=0x0104, t01=0x011e}
0x19736…19762               Head {h00=0x0028, h01=0x0050, text=» MS 3,PSECPA+STKEND SAVE NEW VALUES «, t00=0x0104, t01=0x013e}
0x19762…19774               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0104, t01=0x016a}
0x19774…19784               Head {h00=0x000c, h01=0x0050, text=» DVK 115«, t00=0x0104, t01=0x017c}
0x19784…19792               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0104, t01=0x018c}
0x19792…197b4               Head {h00=0x001e, h01=0x0050, text=»* A1=HEAD NBR * SECTOR NBR«, t00=0x0105, t01=0x000a}
0x197b4…197ce               Head {h00=0x0016, h01=0x0050, text=»* A2=CYLINDER NBR «, t00=0x0105, t01=0x002c}
0x197ce…197e0               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0105, t01=0x0046}
0x197e0…197f2               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0105, t01=0x0058}
0x197f2…19804               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0105, t01=0x006a}
0x19804…19814               Head {h00=0x000c, h01=0x0050, text=» DVK 23 «, t00=0x0105, t01=0x007c}
0x19814…1982c               Head {h00=0x0014, h01=0x0050, text=»* A1=SECTOR NBR «, t00=0x0105, t01=0x008c}
0x1982c…19842               Head {h00=0x0012, h01=0x0050, text=»* A2=HEAD NBR «, t00=0x0105, t01=0x00a4}
0x19842…1986a               Head {h00=0x0024, h01=0x0050, text=» ORKL A2,/800 SET INTERRUPT BIT «, t00=0x0105, t01=0x00ba}
0x1986a…19890               Head {h00=0x0022, h01=0x0050, text=» ST A2,CIOTAB UPDATE CIO TABLE«, t00=0x0105, t01=0x00e2}
0x19890…1989e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0105, t01=0x0108}
0x1989e…198a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x0116}
0x198a8…198be               Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x0105, t01=0x0120}
0x198be…198c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x0136}
0x198c8…198da               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0105, t01=0x0140}
0x198da…198f6               Head {h00=0x0018, h01=0x0050, text=» MUK 5 INTERLACING 5«, t00=0x0105, t01=0x0152}
0x198f6…19908               Head {h00=0x000e, h01=0x0050, text=» SLC A3,1 «, t00=0x0105, t01=0x016e}
0x19908…19934               Head {h00=0x0028, h01=0x0050, text=» RF(NN) INT100 EVEN CYLINDER NUMBER «, t00=0x0105, t01=0x0180}
0x19934…19952               Head {h00=0x001a, h01=0x0050, text=» ADK A2,12 SKEW FACTOR«, t00=0x0106, t01=0x001c}
0x19952…19966               Head {h00=0x0010, h01=0x0050, text=»INT100 EQU *«, t00=0x0106, t01=0x003a}
0x19966…19976               Head {h00=0x000c, h01=0x0050, text=» DVK 23 «, t00=0x0106, t01=0x004e}
0x19976…19994               Head {h00=0x001a, h01=0x0050, text=» SLL A1,5 IN POSITION «, t00=0x0106, t01=0x005e}
0x19994…199bc               Head {h00=0x0024, h01=0x0050, text=» ORS A1,CIOTAB UPDATE CIO TABLE «, t00=0x0106, t01=0x007c}
0x199bc…199d8               Head {h00=0x0018, h01=0x0050, text=» SRC A3,1 RESTORE A3«, t00=0x0106, t01=0x00a4}
0x199d8…199ee               Head {h00=0x0012, h01=0x0050, text=» CW A3,CYLNBR «, t00=0x0106, t01=0x00c0}
0x199ee…19a18               Head {h00=0x0026, h01=0x0050, text=» RF(E) READER SAME CYLINDER NUMBER«, t00=0x0106, t01=0x00d6}
0x19a18…19a26               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0106, t01=0x0100}
0x19a26…19a30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x010e}
0x19a30…19a3e               Head {h00=0x000a, h01=0x0050, text=»* SEEK«, t00=0x0106, t01=0x0118}
0x19a3e…19a48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x0126}
0x19a48…19a70               Head {h00=0x0024, h01=0x0050, text=» ST A3,CYLNBR SAVE CYLINDER NBR «, t00=0x0106, t01=0x0130}
0x19a70…19a94               Head {h00=0x0020, h01=0x0050, text=» ADKL A3,/A800 SEEK COMMAND «, t00=0x0106, t01=0x0158}
0x19a94…19aaa               Head {h00=0x0012, h01=0x0050, text=» ST A3,SEKTAB «, t00=0x0106, t01=0x017c}
0x19aaa…19ac2 (263, 0, 400) Head {h00=0x0014, h01=0x0050, text=» LDKL A2,SEKTAB «, t00=0x0107, t01=0x0004}
0x19ac2…19ad6               Head {h00=0x0010, h01=0x0050, text=»SEEKC1 EQU *«, t00=0x0107, t01=0x001c}
0x19ad6…19aee               Head {h00=0x0014, h01=0x0050, text=» CIO A2,1,0 SEEK«, t00=0x0107, t01=0x0030}
0x19aee…19b04               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEKC1«, t00=0x0107, t01=0x0048}
0x19b04…19b18               Head {h00=0x0010, h01=0x0050, text=»SEEKC2 EQU *«, t00=0x0107, t01=0x005e}
0x19b18…19b2a               Head {h00=0x000e, h01=0x0050, text=» SST A2,0 «, t00=0x0107, t01=0x0072}
0x19b2a…19b40               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEKC2«, t00=0x0107, t01=0x0084}
0x19b40…19b4e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0107, t01=0x009a}
0x19b4e…19b58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x00a8}
0x19b58…19b6a               Head {h00=0x000e, h01=0x0050, text=»*    READ «, t00=0x0107, t01=0x00b2}
0x19b6a…19b74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x00c4}
0x19b74…19b88               Head {h00=0x0010, h01=0x0050, text=»READER EQU *«, t00=0x0107, t01=0x00ce}
0x19b88…19bac               Head {h00=0x0020, h01=0x0050, text=» LDK A6,3 NUMBER OF RETRIES «, t00=0x0107, t01=0x00e2}
0x19bac…19bc0               Head {h00=0x0010, h01=0x0050, text=»REA100 EQU *«, t00=0x0107, t01=0x0106}
0x19bc0…19bec               Head {h00=0x0028, h01=0x0050, text=» LDKL A1,CIOTAB POINTER TO CIO TABLE«, t00=0x0107, t01=0x011a}
0x19bec…19c0a               Head {h00=0x001a, h01=0x0050, text=»READC1 CIO A1,1,0 READ«, t00=0x0107, t01=0x0146}
0x19c0a…19c34               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READC1 LOOP UNTIL ACCEPTED«, t00=0x0107, t01=0x0164}
0x19c34…19c3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x018e}
0x19c3e…19c5c               Head {h00=0x001a, h01=0x0050, text=»READC2 SST A1,0 STATUS«, t00=0x0108, t01=0x0008}
0x19c5c…19c86               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READC2 LOOP UNTIL ACCEPTED«, t00=0x0108, t01=0x0026}
0x19c86…19ca4               Head {h00=0x001a, h01=0x0050, text=» ANKL A1,/FF0F STATUS «, t00=0x0108, t01=0x0050}
0x19ca4…19cc8               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RET30 READING ERROR «, t00=0x0108, t01=0x006e}
0x19cc8…19d0a               Head {h00=0x003e, h01=0x0050, text=» LD A1,PSECPA+STKEND GET RELATIV LOG SECT IN PHYSICAL =11 «, t00=0x0108, t01=0x0092}
0x19d0a…19d3e               Head {h00=0x0030, h01=0x0050, text=» RF(NZ) REDMOV NOT FIRST REL LOG SECTOR =11 «, t00=0x0108, t01=0x00d4}
0x19d3e…19d46               Head {h00=0x0004, h01=0x0050, t00=0x0108, t01=0x0108}
0x19d46…19d58               Head {h00=0x000e, h01=0x0050, text=»TURN EQU *«, t00=0x0108, t01=0x0110}
0x19d58…19d8c               Head {h00=0x0030, h01=0x0050, text=» ADKL A11,1 INCREMENT LOGICAL SECTOR NUMBER «, t00=0x0108, t01=0x0122}
0x19d8c…19daa               Head {h00=0x001a, h01=0x0050, text=» RF(O) TURN10 OVERFLOW«, t00=0x0108, t01=0x0156}
0x19daa…19dbc               Head {h00=0x000e, h01=0x0050, text=» RF TURN20«, t00=0x0108, t01=0x0174}
0x19dbc…19dd0               Head {h00=0x0010, h01=0x0050, text=»TURN10 EQU *«, t00=0x0108, t01=0x0186}
0x19dd0…19dee               Head {h00=0x001a, h01=0x0050, text=» SUR A11,A11 RESET A11«, t00=0x0109, t01=0x000a}
0x19dee…19e02               Head {h00=0x0010, h01=0x0050, text=» ADKL A12,1 «, t00=0x0109, t01=0x0028}
0x19e02…19e16               Head {h00=0x0010, h01=0x0050, text=»TURN20 EQU *«, t00=0x0109, t01=0x003c}
0x19e16…19e26               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0109, t01=0x0050}
0x19e26…19e34               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0109, t01=0x0060}
0x19e34…19e3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x006e}
0x19e3e…19e64               Head {h00=0x0022, h01=0x0050, text=»* MOVE UP NEXT LOGICAL SECTOR «, t00=0x0109, t01=0x0078}
0x19e64…19e6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x009e}
0x19e6e…19e82               Head {h00=0x0010, h01=0x0050, text=»REDMOV EQU *«, t00=0x0109, t01=0x00a8}
0x19e82…19ebc               Head {h00=0x0036, h01=0x0050, text=» ST A1,PSECPA+STKEND SAVE NEW LOGICAL SECTOR PART «, t00=0x0109, t01=0x00bc}
0x19ebc…19edc               Head {h00=0x001c, h01=0x0050, text=» SLL A1,2 INDEX TO TABLE«, t00=0x0109, t01=0x00f6}
0x19edc…19f04               Head {h00=0x0024, h01=0x0050, text=» LD A1,CIOAD1,A1 SOURCE ADDRESS «, t00=0x0109, t01=0x0116}
0x19f04…19f2a               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A9 DESTINATION ADDRESS«, t00=0x0109, t01=0x013e}
0x19f2a…19f4e               Head {h00=0x0020, h01=0x0050, text=» LDK A3,128 LENGTH IN WORDS «, t00=0x0109, t01=0x0164}
0x19f4e…19f62               Head {h00=0x0010, h01=0x0050, text=»RMOV10 EQU *«, t00=0x0109, t01=0x0188}
0x19f62…19f76               Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A1 «, t00=0x010a, t01=0x000c}
0x19f76…19f88               Head {h00=0x000e, h01=0x0050, text=» STR A6,A2«, t00=0x010a, t01=0x0020}
0x19f88…19f9a               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x010a, t01=0x0032}
0x19f9a…19fac               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x010a, t01=0x0044}
0x19fac…19fbe               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x010a, t01=0x0056}
0x19fbe…19fde               Head {h00=0x001c, h01=0x0050, text=» RB(P) RMOV10 NEXT WORD «, t00=0x010a, t01=0x0068}
0x19fde…19fee               Head {h00=0x000c, h01=0x0050, text=» RB TURN«, t00=0x010a, t01=0x0088}
0x19fee…19ff6               Head {h00=0x0004, h01=0x0050, t00=0x010a, t01=0x0098}
0x19ff6…19ffe               Head {h00=0x0004, h01=0x0050, t00=0x010a, t01=0x00a0}
0x19ffe…1a006               Head {h00=0x0004, h01=0x0050, t00=0x010a, t01=0x00a8}
0x1a006…1a01a               Head {h00=0x0010, h01=0x0050, text=»NOFOND EQU *«, t00=0x010a, t01=0x00b0}
0x1a01a…1a030               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x010a, t01=0x00c4}
0x1a030…1a05a               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR INDICATE READING ERROR«, t00=0x010a, t01=0x00da}
0x1a05a…1a068               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010a, t01=0x0104}
0x1a068…1a072               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x0112}
0x1a072…1a090               Head {h00=0x001a, h01=0x0050, text=»* IO ERROR IN READING «, t00=0x010a, t01=0x011c}
0x1a090…1a09a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x013a}
0x1a09a…1a0ae               Head {h00=0x0010, h01=0x0050, text=»RET30 EQU * «, t00=0x010a, t01=0x0144}
0x1a0ae…1a0c0               Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x010a, t01=0x0158}
0x1a0c0…1a0de               Head {h00=0x001a, h01=0x0050, text=» RB(NZ) REA100 NEW TRY«, t00=0x010a, t01=0x016a}
0x1a0de…1a0f4               Head {h00=0x0012, h01=0x0050, text=» LC A1,CIOTAB «, t00=0x010a, t01=0x0188}
0x1a0f4…1a108               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/C0 «, t00=0x010b, t01=0x000e}
0x1a108…1a140               Head {h00=0x0034, h01=0x0050, text=» RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S «, t00=0x010b, t01=0x0022}
0x1a140…1a156               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x010b, t01=0x005a}
0x1a156…1a18a               Head {h00=0x0030, h01=0x0050, text=» ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE«, t00=0x010b, t01=0x0070}
0x1a18a…1a19c               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x010b, t01=0x00a4}
0x1a19c…1a1b0               Head {h00=0x0010, h01=0x0050, text=»RET31 EQU * «, t00=0x010b, t01=0x00b6}
0x1a1b0…1a1c4               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x010b, t01=0x00ca}
0x1a1c4…1a1fa               Head {h00=0x0032, h01=0x0050, text=» RF(Z) RET32 LAST RETRY WITH LATE DATA STROBE «, t00=0x010b, t01=0x00de}
0x1a1fa…1a210               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/C000«, t00=0x010b, t01=0x0114}
0x1a210…1a244               Head {h00=0x0030, h01=0x0050, text=» XRS A2,CIOTAB CHANGE FROM EARLY TO LATE D.S«, t00=0x010b, t01=0x012a}
0x1a244…1a256               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x010b, t01=0x015e}
0x1a256…1a26a               Head {h00=0x0010, h01=0x0050, text=»RET32 EQU * «, t00=0x010b, t01=0x0170}
0x1a26a…1a280               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/3FFF«, t00=0x010b, t01=0x0184}
0x1a280…1a2ae               Head {h00=0x002a, h01=0x0050, text=» ANS A2,CIOTAB RESET LATE DATA STROBE «, t00=0x010c, t01=0x000a}
0x1a2ae…1a2c4               Head {h00=0x0012, h01=0x0050, text=» LC A1,CIOTOT «, t00=0x010c, t01=0x0038}
0x1a2c4…1a2d8               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/C0 «, t00=0x010c, t01=0x004e}
0x1a2d8…1a310               Head {h00=0x0034, h01=0x0050, text=» RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- «, t00=0x010c, t01=0x0062}
0x1a310…1a326               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x010c, t01=0x009a}
0x1a326…1a352               Head {h00=0x0028, h01=0x0050, text=» ORS A2,CIOTOT PREPARE FOR CARRIAGE+«, t00=0x010c, t01=0x00b0}
0x1a352…1a364               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x010c, t01=0x00dc}
0x1a364…1a378               Head {h00=0x0010, h01=0x0050, text=»RET33 EQU * «, t00=0x010c, t01=0x00ee}
0x1a378…1a38c               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x010c, t01=0x0102}
0x1a38c…1a3b0               Head {h00=0x0020, h01=0x0050, text=» RB(Z) NOFOND READING ERROR «, t00=0x010c, t01=0x0116}
0x1a3b0…1a3c6               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/C000«, t00=0x010c, t01=0x013a}
0x1a3c6…1a3f8               Head {h00=0x002e, h01=0x0050, text=» XRS A2,CIOTOT FROM CARRIAGE+ TO CARRIGE- «, t00=0x010c, t01=0x0150}
0x1a3f8…1a40a               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x010c, t01=0x0182}
0x1a40a…1a418 (269, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010d, t01=0x0004}
0x1a418…1a422               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x0012}
0x1a422…1a436               Head {h00=0x0010, h01=0x0050, text=»* SEEK TABLE«, t00=0x010d, t01=0x001c}
0x1a436…1a440               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x0030}
0x1a440…1a454               Head {h00=0x0010, h01=0x0050, text=»SEKTAB EQU *«, t00=0x010d, t01=0x003a}
0x1a454…1a464               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x010d, t01=0x004e}
0x1a464…1a46e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x005e}
0x1a46e…1a482               Head {h00=0x0010, h01=0x0050, text=»* CIO TABLE «, t00=0x010d, t01=0x0068}
0x1a482…1a48c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x007c}
0x1a48c…1a4a0               Head {h00=0x0010, h01=0x0050, text=»CIOTAB EQU *«, t00=0x010d, t01=0x0086}
0x1a4a0…1a4ca               Head {h00=0x0026, h01=0x0050, text=» DATA 0 ORDER,SECTOR NBR,HEAD NBR «, t00=0x010d, t01=0x009a}
0x1a4ca…1a4de               Head {h00=0x0010, h01=0x0050, text=»CIOTOT EQU *«, t00=0x010d, t01=0x00c4}
0x1a4de…1a518               Head {h00=0x0036, h01=0x0050, text=» DATA 384 TOTAL NUMBER OF WORDS(1 PHYSICAL SECTOR)«, t00=0x010d, t01=0x00d8}
0x1a518…1a52c               Head {h00=0x0010, h01=0x0050, text=»CIOPA1 EQU *«, t00=0x010d, t01=0x0112}
0x1a52c…1a566               Head {h00=0x0036, h01=0x0050, text=» DATA /4000+128 DATA CHAINING BIT,NUMBER OF WORDS «, t00=0x010d, t01=0x0126}
0x1a566…1a57a               Head {h00=0x0010, h01=0x0050, text=»CIOAD1 EQU *«, t00=0x010d, t01=0x0160}
0x1a57a…1a594               Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 1 «, t00=0x010d, t01=0x0174}
0x1a594…1a5a8               Head {h00=0x0010, h01=0x0050, text=»CIOPA2 EQU *«, t00=0x010d, t01=0x018e}
0x1a5a8…1a5c0               Head {h00=0x0014, h01=0x0050, text=» DATA /4000+128 «, t00=0x010e, t01=0x0012}
0x1a5c0…1a5d4               Head {h00=0x0010, h01=0x0050, text=»CIOAD2 EQU *«, t00=0x010e, t01=0x002a}
0x1a5d4…1a5ee               Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 2 «, t00=0x010e, t01=0x003e}
0x1a5ee…1a602               Head {h00=0x0010, h01=0x0050, text=»CIOPA3 EQU *«, t00=0x010e, t01=0x0058}
0x1a602…1a614               Head {h00=0x000e, h01=0x0050, text=» DATA 128 «, t00=0x010e, t01=0x006c}
0x1a614…1a628               Head {h00=0x0010, h01=0x0050, text=»CIOAD3 EQU *«, t00=0x010e, t01=0x007e}
0x1a628…1a642               Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 3 «, t00=0x010e, t01=0x0092}
0x1a642…1a64e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x010e, t01=0x00ac}
0x1a64e…1a668               Head {h00=0x0016, h01=0x0050, text=» IFT CDDI16=1  =9 «, t00=0x010e, t01=0x00b8}
0x1a668…1a676               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010e, t01=0x00d2}
0x1a676…1a6a2               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x010e, t01=0x00e0}
0x1a6a2…1a6ce               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x010e, t01=0x010c}
0x1a6ce…1a6fa               Head {h00=0x0028, h01=0x0050, text=»*  CDINIT - INITIALIZE DISC UNIT  * «, t00=0x010e, t01=0x0138}
0x1a6fa…1a726               Head {h00=0x0028, h01=0x0050, text=»*  =============================  * «, t00=0x010e, t01=0x0164}
0x1a726…1a752               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x010e, t01=0x0190}
0x1a752…1a77e               Head {h00=0x0028, h01=0x0050, text=»*  REFERENCED IN: SYSLOD,GETFIL   * «, t00=0x010f, t01=0x002c}
0x1a77e…1a7aa               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x010f, t01=0x0058}
0x1a7aa…1a7d6               Head {h00=0x0028, h01=0x0050, text=»*  ENTRY: A1 - DEVICE ADDRESS     * «, t00=0x010f, t01=0x0084}
0x1a7d6…1a802               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x010f, t01=0x00b0}
0x1a802…1a82e               Head {h00=0x0028, h01=0x0050, text=»*  EXIT:                          * «, t00=0x010f, t01=0x00dc}
0x1a82e…1a85a               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x010f, t01=0x0108}
0x1a85a…1a886               Head {h00=0x0028, h01=0x0050, text=»*  WORK REGISTERS:  A1,A2          *«, t00=0x010f, t01=0x0134}
0x1a886…1a8b2               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x010f, t01=0x0160}
0x1a8b2…1a8de               Head {h00=0x0028, h01=0x0050, text=»*  SUBROUTINES:                   * «, t00=0x010f, t01=0x018c}
0x1a8de…1a90a               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x0110, t01=0x0028}
0x1a90a…1a936               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x0110, t01=0x0054}
0x1a936…1a93e               Head {h00=0x0004, h01=0x0050, t00=0x0110, t01=0x0080}
0x1a93e…1a952               Head {h00=0x0010, h01=0x0050, text=»CDINIT EQU *«, t00=0x0110, t01=0x0088}
0x1a952…1a95c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x009c}
0x1a95c…1a988               Head {h00=0x0028, h01=0x0050, text=»* INIT 16M OR 80M CDC DISC COMMANDS «, t00=0x0110, t01=0x00a6}
0x1a988…1a992               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x00d2}
0x1a992…1a9a8               Head {h00=0x0012, h01=0x0050, text=» LDR A2,A1  =9«, t00=0x0110, t01=0x00dc}
0x1a9a8…1a9d2               Head {h00=0x0026, h01=0x0050, text=» ANK A1,/3F MASK DEVICE ADDRESS =9«, t00=0x0110, t01=0x00f2}
0x1a9d2…1aa04               Head {h00=0x002e, h01=0x0050, text=» SRL A2,2 FIX OR CARTRIDGE IN POSITION =9 «, t00=0x0110, t01=0x011c}
0x1aa04…1aa1c               Head {h00=0x0014, h01=0x0050, text=» ANK A2,/10  =9 «, t00=0x0110, t01=0x014e}
0x1aa1c…1aa5c               Head {h00=0x003c, h01=0x0050, text=» ST A2,CARFIX+STKEND SAVE FIX OR CARTRIDGE INDICATOR =9 «, t00=0x0110, t01=0x0166}
0x1aa5c…1aa8c               Head {h00=0x002c, h01=0x0050, text=» ORKL A1,CIO CONFIG CIO A1,1,XX  INSTR. «, t00=0x0111, t01=0x0016}
0x1aa8c…1aaa2               Head {h00=0x0012, h01=0x0050, text=» ST A1,READC1 «, t00=0x0111, t01=0x0046}
0x1aaa2…1aace               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A1,XX  INSTR.«, t00=0x0111, t01=0x005c}
0x1aace…1aae4               Head {h00=0x0012, h01=0x0050, text=» ST A1,READC2 «, t00=0x0111, t01=0x0088}
0x1aae4…1ab12               Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/B00 FORM CIO A2,1,XX  INSTR.«, t00=0x0111, t01=0x009e}
0x1ab12…1ab28               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKC1 «, t00=0x0111, t01=0x00cc}
0x1ab28…1ab54               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX  INSTR.«, t00=0x0111, t01=0x00e2}
0x1ab54…1ab6a               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKC2 «, t00=0x0111, t01=0x010e}
0x1ab6a…1ab7e               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x0111, t01=0x0124}
0x1ab7e…1abb4               Head {h00=0x0032, h01=0x0050, text=» ST A2,PSECNL+STKEND INIT VALUE FOR SECTOR NBR«, t00=0x0111, t01=0x0138}
0x1abb4…1abde               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/300 BUFLEN 80M CDC DISC «, t00=0x0111, t01=0x016e}
0x1abde…1ac00               Head {h00=0x001e, h01=0x0050, text=» ST A2,SAVCON SAVE LENGTH «, t00=0x0112, t01=0x0008}
0x1ac00…1ac38               Head {h00=0x0034, h01=0x0050, text=» LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR.«, t00=0x0112, t01=0x002a}
0x1ac38…1ac4c               Head {h00=0x0010, h01=0x0050, text=» ST A2,READ «, t00=0x0112, t01=0x0062}
0x1ac4c…1ac60               Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x0112, t01=0x0076}
0x1ac60…1ac8a               Head {h00=0x0026, h01=0x0050, text=» CF A14,GETVLB GET VOLUME LABEL =9«, t00=0x0112, t01=0x008a}
0x1ac8a…1acb2               Head {h00=0x0024, h01=0x0050, text=» LC A2,FORDEV+1,A9 GET FORMAT =9«, t00=0x0112, t01=0x00b4}
0x1acb2…1acd4               Head {h00=0x001e, h01=0x0050, text=» ANK A2,1 FORMAT 4 OR 5 =9«, t00=0x0112, t01=0x00dc}
0x1acd4…1ad00               Head {h00=0x0028, h01=0x0050, text=» LDK A2,23 CONSTANT FOR 16M DISC =9 «, t00=0x0112, t01=0x00fe}
0x1ad00…1ad22               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) CDI:10 16M DISC =9«, t00=0x0112, t01=0x012a}
0x1ad22…1ad4e               Head {h00=0x0028, h01=0x0050, text=» LDK A2,115 CONSTANT FOR 80M DISC =9«, t00=0x0112, t01=0x014c}
0x1ad4e…1ad66               Head {h00=0x0014, h01=0x0050, text=»CDI:10 EQU *  =9«, t00=0x0112, t01=0x0178}
0x1ad66…1ad92               Head {h00=0x0028, h01=0x0050, text=» ST A2,DIVCON SET DIVIDE CONSTANT =9«, t00=0x0112, t01=0x0190}
0x1ad92…1ada2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0113, t01=0x002c}
0x1ada2…1adb0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0113, t01=0x003c}
0x1adb0…1ade8               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0113, t01=0x004a}
0x1ade8…1ae20               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0113, t01=0x0082}
0x1ae20…1ae58               Head {h00=0x0034, h01=0x0050, text=»*  CRDSEC- READ ONE SECTOR FROM DISC          * «, t00=0x0113, t01=0x00ba}
0x1ae58…1ae90               Head {h00=0x0034, h01=0x0050, text=»*  =================================          * «, t00=0x0113, t01=0x00f2}
0x1ae90…1aec8               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0113, t01=0x012a}
0x1aec8…1af00               Head {h00=0x0034, h01=0x0050, text=»*  REFERENCED IN: SYSLOD                      * «, t00=0x0113, t01=0x0162}
0x1af00…1af38               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0114, t01=0x000a}
0x1af38…1af70               Head {h00=0x0034, h01=0x0050, text=»*  ENTRY:  A9 = BUFFER ADDRESS                * «, t00=0x0114, t01=0x0042}
0x1af70…1afa8               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0114, t01=0x007a}
0x1afa8…1afe0               Head {h00=0x0034, h01=0x0050, text=»*         A11 - SECTOR NBR LEAST SIGNIFICANT  * «, t00=0x0114, t01=0x00b2}
0x1afe0…1b018               Head {h00=0x0034, h01=0x0050, text=»*         A12 - SECTOR NBR MOST SIGNIFICANT   * «, t00=0x0114, t01=0x00ea}
0x1b018…1b050               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0114, t01=0x0122}
0x1b050…1b088               Head {h00=0x0034, h01=0x0050, text=»*  EXIT: A12,A11 = A12,A11 + 1                * «, t00=0x0114, t01=0x015a}
0x1b088…1b0c0 (277, 0, 400) Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0115, t01=0x0004}
0x1b0c0…1b0f8               Head {h00=0x0034, h01=0x0050, text=»*   WORK REGISTERS:  A1,A2,A3,A6              * «, t00=0x0115, t01=0x003c}
0x1b0f8…1b130               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0115, t01=0x0074}
0x1b130…1b168               Head {h00=0x0034, h01=0x0050, text=»*  SUBROUTINES:  ERROR                        * «, t00=0x0115, t01=0x00ac}
0x1b168…1b1a0               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0115, t01=0x00e4}
0x1b1a0…1b1d8               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0115, t01=0x011c}
0x1b1d8…1b1e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0115, t01=0x0154}
0x1b1e2…1b1f6               Head {h00=0x0010, h01=0x0050, text=»CRDSEC EQU *«, t00=0x0115, t01=0x015e}
0x1b1f6…1b200               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0115, t01=0x0172}
0x1b200…1b21c               Head {h00=0x0018, h01=0x0050, text=»* SET BUFFER ADDRESS«, t00=0x0115, t01=0x017c}
0x1b21c…1b226               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0116, t01=0x0008}
0x1b226…1b248               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 BUFFER ADDRESS «, t00=0x0116, t01=0x0012}
0x1b248…1b25c               Head {h00=0x0010, h01=0x0050, text=» ADKL A1,256«, t00=0x0116, t01=0x0034}
0x1b25c…1b27c               Head {h00=0x001c, h01=0x0050, text=» ST A1,CIOAD2 ADDRESS 2 «, t00=0x0116, t01=0x0048}
0x1b27c…1b290               Head {h00=0x0010, h01=0x0050, text=» ADKL A1,256«, t00=0x0116, t01=0x0068}
0x1b290…1b2b0               Head {h00=0x001c, h01=0x0050, text=» ST A1,CIOAD3 ADDRESS 3 «, t00=0x0116, t01=0x007c}
0x1b2b0…1b2c6               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/3FFF«, t00=0x0116, t01=0x009c}
0x1b2c6…1b2e8               Head {h00=0x001e, h01=0x0050, text=» ANS A1,CIOTAB RESET BITS «, t00=0x0116, t01=0x00b2}
0x1b2e8…1b30a               Head {h00=0x001e, h01=0x0050, text=» ANS A1,CIOTOT RESET BITS «, t00=0x0116, t01=0x00d4}
0x1b30a…1b33c               Head {h00=0x002e, h01=0x0050, text=» LDR A1,A12 SECTOR NUMBER MOST SIGNIFICANT«, t00=0x0116, t01=0x00f6}
0x1b33c…1b370               Head {h00=0x0030, h01=0x0050, text=» LDR A2,A11 SECTOR NUMBER LEAST SIGNIFICANT «, t00=0x0116, t01=0x0128}
0x1b370…1b37e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0116, t01=0x015c}
0x1b37e…1b388               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0116, t01=0x016a}
0x1b388…1b3a8               Head {h00=0x001c, h01=0x0050, text=»* DIVIDE LOGICAL WITH 3 «, t00=0x0116, t01=0x0174}
0x1b3a8…1b3b2 (279, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x0004}
0x1b3b2…1b3c4               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0117, t01=0x000e}
0x1b3c4…1b3d8               Head {h00=0x0010, h01=0x0050, text=»RED100 EQU *«, t00=0x0117, t01=0x0020}
0x1b3d8…1b3ea               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0117, t01=0x0034}
0x1b3ea…1b3fc               Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x0117, t01=0x0046}
0x1b3fc…1b412               Head {h00=0x0012, h01=0x0050, text=» RB(NN) RED100«, t00=0x0117, t01=0x0058}
0x1b412…1b424               Head {h00=0x000e, h01=0x0050, text=» ADK A1,3 «, t00=0x0117, t01=0x006e}
0x1b424…1b436               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0117, t01=0x0080}
0x1b436…1b444               Head {h00=0x000a, h01=0x0050, text=» DVK 3«, t00=0x0117, t01=0x0092}
0x1b444…1b45a               Head {h00=0x0012, h01=0x0050, text=» CW A9,CIOAD1 «, t00=0x0117, t01=0x00a0}
0x1b45a…1b498               Head {h00=0x003a, h01=0x0050, text=» RF(NE) RED110 NOT SAME BUFFER ADDRESS MEANS NEW READ «, t00=0x0117, t01=0x00b6}
0x1b498…1b4b4               Head {h00=0x0018, h01=0x0050, text=» CW A2,PSECNL+STKEND«, t00=0x0117, t01=0x00f4}
0x1b4b4…1b4e4               Head {h00=0x002c, h01=0x0050, text=» RF(NE) RED110 NOT SAME PHYSICAL SEC NBR«, t00=0x0117, t01=0x0110}
0x1b4e4…1b500               Head {h00=0x0018, h01=0x0050, text=» CW A3,PSECNM+STKEND«, t00=0x0117, t01=0x0140}
0x1b500…1b530               Head {h00=0x002c, h01=0x0050, text=» RF(NE) RED110 NOT SAME PHYSICAL SEC NBR«, t00=0x0117, t01=0x015c}
0x1b530…1b54c               Head {h00=0x0018, h01=0x0050, text=» CW A1,PSECPA+STKEND«, t00=0x0117, t01=0x018c}
0x1b54c…1b576               Head {h00=0x0026, h01=0x0050, text=» RF(E) TURN SAME LOG SEC AS BEFORE«, t00=0x0118, t01=0x0018}
0x1b576…1b5a8               Head {h00=0x002e, h01=0x0050, text=» RF(G) REDMOV MOVE UP NEXT LOGICAL SECTOR «, t00=0x0118, t01=0x0042}
0x1b5a8…1b5bc               Head {h00=0x0010, h01=0x0050, text=»RED110 EQU *«, t00=0x0118, t01=0x0074}
0x1b5bc…1b5dc               Head {h00=0x001c, h01=0x0050, text=» ST A9,CIOAD1 ADDRESS 1 «, t00=0x0118, t01=0x0088}
0x1b5dc…1b608               Head {h00=0x0028, h01=0x0050, text=» MS 3,PSECPA+STKEND SAVE NEW VALUES «, t00=0x0118, t01=0x00a8}
0x1b608…1b61a               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0118, t01=0x00d4}
0x1b61a…1b634               Head {h00=0x0016, h01=0x0050, text=»DIVCON EQU *+2  =9«, t00=0x0118, t01=0x00e6}
0x1b634…1b648               Head {h00=0x0010, h01=0x0050, text=» DVK 23  =9 «, t00=0x0118, t01=0x0100}
0x1b648…1b656               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0118, t01=0x0114}
0x1b656…1b678               Head {h00=0x001e, h01=0x0050, text=»* A1=HEAD NBR * SECTOR NBR«, t00=0x0118, t01=0x0122}
0x1b678…1b692               Head {h00=0x0016, h01=0x0050, text=»* A2=CYLINDER NBR «, t00=0x0118, t01=0x0144}
0x1b692…1b6a4               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0118, t01=0x015e}
0x1b6a4…1b6b6               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0118, t01=0x0170}
0x1b6b6…1b6c8               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0118, t01=0x0182}
0x1b6c8…1b6d8 (281, 0, 400) Head {h00=0x000c, h01=0x0050, text=» DVK 23 «, t00=0x0119, t01=0x0004}
0x1b6d8…1b6f0               Head {h00=0x0014, h01=0x0050, text=»* A1=SECTOR NBR «, t00=0x0119, t01=0x0014}
0x1b6f0…1b706               Head {h00=0x0012, h01=0x0050, text=»* A2=HEAD NBR «, t00=0x0119, t01=0x002c}
0x1b706…1b72e               Head {h00=0x0024, h01=0x0050, text=» ORKL A2,/800 SET INTERRUPT BIT «, t00=0x0119, t01=0x0042}
0x1b72e…1b75e               Head {h00=0x002c, h01=0x0050, text=» OR A2,CARFIX+STKEND FIX OR CARTRIDGE =9«, t00=0x0119, t01=0x006a}
0x1b75e…1b784               Head {h00=0x0022, h01=0x0050, text=» ST A2,CIOTAB UPDATE CIO TABLE«, t00=0x0119, t01=0x009a}
0x1b784…1b792               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0119, t01=0x00c0}
0x1b792…1b79c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x00ce}
0x1b79c…1b7b2               Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x0119, t01=0x00d8}
0x1b7b2…1b7bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x00ee}
0x1b7bc…1b7ce               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0119, t01=0x00f8}
0x1b7ce…1b7ea               Head {h00=0x0018, h01=0x0050, text=» MUK 5 INTERLACING 5«, t00=0x0119, t01=0x010a}
0x1b7ea…1b800               Head {h00=0x0012, h01=0x0050, text=» SRC A3,1  =9 «, t00=0x0119, t01=0x0126}
0x1b800…1b82c               Head {h00=0x0028, h01=0x0050, text=» RF(NN) INT100 EVEN CYLINDER NUMBER «, t00=0x0119, t01=0x013c}
0x1b82c…1b84a               Head {h00=0x001a, h01=0x0050, text=» ADK A2,12 SKEW FACTOR«, t00=0x0119, t01=0x0168}
0x1b84a…1b85e               Head {h00=0x0010, h01=0x0050, text=»INT100 EQU *«, t00=0x0119, t01=0x0186}
0x1b85e…1b86e               Head {h00=0x000c, h01=0x0050, text=» DVK 23 «, t00=0x011a, t01=0x000a}
0x1b86e…1b88c               Head {h00=0x001a, h01=0x0050, text=» SLL A1,5 IN POSITION «, t00=0x011a, t01=0x001a}
0x1b88c…1b8b4               Head {h00=0x0024, h01=0x0050, text=» ORS A1,CIOTAB UPDATE CIO TABLE «, t00=0x011a, t01=0x0038}
0x1b8b4…1b8d4               Head {h00=0x001c, h01=0x0050, text=» SLC A3,1 RESTORE A3 =9 «, t00=0x011a, t01=0x0060}
0x1b8d4…1b8ea               Head {h00=0x0012, h01=0x0050, text=» CW A3,CYLNBR «, t00=0x011a, t01=0x0080}
0x1b8ea…1b914               Head {h00=0x0026, h01=0x0050, text=» RF(E) READER SAME CYLINDER NUMBER«, t00=0x011a, t01=0x0096}
0x1b914…1b922               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011a, t01=0x00c0}
0x1b922…1b92c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011a, t01=0x00ce}
0x1b92c…1b93a               Head {h00=0x000a, h01=0x0050, text=»* SEEK«, t00=0x011a, t01=0x00d8}
0x1b93a…1b944               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011a, t01=0x00e6}
0x1b944…1b96c               Head {h00=0x0024, h01=0x0050, text=» ST A3,CYLNBR SAVE CYLINDER NBR «, t00=0x011a, t01=0x00f0}
0x1b96c…1b990               Head {h00=0x0020, h01=0x0050, text=» ADKL A3,/A800 SEEK COMMAND «, t00=0x011a, t01=0x0118}
0x1b990…1b9a6               Head {h00=0x0012, h01=0x0050, text=» ST A3,SEKTAB «, t00=0x011a, t01=0x013c}
0x1b9a6…1b9be               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,SEKTAB «, t00=0x011a, t01=0x0152}
0x1b9be…1b9d2               Head {h00=0x0010, h01=0x0050, text=»SEEKC1 EQU *«, t00=0x011a, t01=0x016a}
0x1b9d2…1b9ea               Head {h00=0x0014, h01=0x0050, text=» CIO A2,1,0 SEEK«, t00=0x011a, t01=0x017e}
0x1b9ea…1ba00               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEKC1«, t00=0x011b, t01=0x0008}
0x1ba00…1ba14               Head {h00=0x0010, h01=0x0050, text=»SEEKC2 EQU *«, t00=0x011b, t01=0x001e}
0x1ba14…1ba26               Head {h00=0x000e, h01=0x0050, text=» SST A2,0 «, t00=0x011b, t01=0x0032}
0x1ba26…1ba3c               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEKC2«, t00=0x011b, t01=0x0044}
0x1ba3c…1ba4a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011b, t01=0x005a}
0x1ba4a…1ba54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x0068}
0x1ba54…1ba66               Head {h00=0x000e, h01=0x0050, text=»*    READ «, t00=0x011b, t01=0x0072}
0x1ba66…1ba70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x0084}
0x1ba70…1ba84               Head {h00=0x0010, h01=0x0050, text=»READER EQU *«, t00=0x011b, t01=0x008e}
0x1ba84…1baa8               Head {h00=0x0020, h01=0x0050, text=» LDK A6,3 NUMBER OF RETRIES «, t00=0x011b, t01=0x00a2}
0x1baa8…1babc               Head {h00=0x0010, h01=0x0050, text=»REA100 EQU *«, t00=0x011b, t01=0x00c6}
0x1babc…1bae8               Head {h00=0x0028, h01=0x0050, text=» LDKL A1,CIOTAB POINTER TO CIO TABLE«, t00=0x011b, t01=0x00da}
0x1bae8…1bb06               Head {h00=0x001a, h01=0x0050, text=»READC1 CIO A1,1,0 READ«, t00=0x011b, t01=0x0106}
0x1bb06…1bb30               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READC1 LOOP UNTIL ACCEPTED«, t00=0x011b, t01=0x0124}
0x1bb30…1bb3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x014e}
0x1bb3a…1bb58               Head {h00=0x001a, h01=0x0050, text=»READC2 SST A1,0 STATUS«, t00=0x011b, t01=0x0158}
0x1bb58…1bb82               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READC2 LOOP UNTIL ACCEPTED«, t00=0x011b, t01=0x0176}
0x1bb82…1bba0               Head {h00=0x001a, h01=0x0050, text=» ANKL A1,/FF0F STATUS «, t00=0x011c, t01=0x0010}
0x1bba0…1bbc4               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RET30 READING ERROR «, t00=0x011c, t01=0x002e}
0x1bbc4…1bc02               Head {h00=0x003a, h01=0x0050, text=» LD A1,PSECPA+STKEND GET LOGICAL SECT. IN PHYSICAL =11«, t00=0x011c, t01=0x0052}
0x1bc02…1bc40               Head {h00=0x003a, h01=0x0050, text=» RF(NZ) REDMOV NOT FIRST LOGICAL SECT. IN PHYSICAL =11«, t00=0x011c, t01=0x0090}
0x1bc40…1bc48               Head {h00=0x0004, h01=0x0050, t00=0x011c, t01=0x00ce}
0x1bc48…1bc5a               Head {h00=0x000e, h01=0x0050, text=»TURN EQU *«, t00=0x011c, t01=0x00d6}
0x1bc5a…1bc8e               Head {h00=0x0030, h01=0x0050, text=» ADKL A11,1 INCREMENT LOGICAL SECTOR NUMBER «, t00=0x011c, t01=0x00e8}
0x1bc8e…1bcac               Head {h00=0x001a, h01=0x0050, text=» RF(O) TURN10 OVERFLOW«, t00=0x011c, t01=0x011c}
0x1bcac…1bcbe               Head {h00=0x000e, h01=0x0050, text=» RF TURN20«, t00=0x011c, t01=0x013a}
0x1bcbe…1bcd2               Head {h00=0x0010, h01=0x0050, text=»TURN10 EQU *«, t00=0x011c, t01=0x014c}
0x1bcd2…1bcf0               Head {h00=0x001a, h01=0x0050, text=» SUR A11,A11 RESET A11«, t00=0x011c, t01=0x0160}
0x1bcf0…1bd04               Head {h00=0x0010, h01=0x0050, text=» ADKL A12,1 «, t00=0x011c, t01=0x017e}
0x1bd04…1bd18 (285, 0, 400) Head {h00=0x0010, h01=0x0050, text=»TURN20 EQU *«, t00=0x011d, t01=0x0004}
0x1bd18…1bd28               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x011d, t01=0x0018}
0x1bd28…1bd36               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011d, t01=0x0028}
0x1bd36…1bd40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011d, t01=0x0036}
0x1bd40…1bd66               Head {h00=0x0022, h01=0x0050, text=»* MOVE UP NEXT LOGICAL SECTOR «, t00=0x011d, t01=0x0040}
0x1bd66…1bd70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011d, t01=0x0066}
0x1bd70…1bd84               Head {h00=0x0010, h01=0x0050, text=»REDMOV EQU *«, t00=0x011d, t01=0x0070}
0x1bd84…1bdbe               Head {h00=0x0036, h01=0x0050, text=» ST A1,PSECPA+STKEND SAVE NEW LOGICAL SECTOR PART «, t00=0x011d, t01=0x0084}
0x1bdbe…1bdd4               Head {h00=0x0012, h01=0x0050, text=» SLL A1,1  =9 «, t00=0x011d, t01=0x00be}
0x1bdd4…1bdea               Head {h00=0x0012, h01=0x0050, text=» LDR A2,A1  =9«, t00=0x011d, t01=0x00d4}
0x1bdea…1be00               Head {h00=0x0012, h01=0x0050, text=» ADR A1,A1  =9«, t00=0x011d, t01=0x00ea}
0x1be00…1be2a               Head {h00=0x0026, h01=0x0050, text=» ADR A1,A2 A1 MULTIPIED WITH 6 =9 «, t00=0x011d, t01=0x0100}
0x1be2a…1be52               Head {h00=0x0024, h01=0x0050, text=» LD A1,CIOAD1,A1 SOURCE ADDRESS «, t00=0x011d, t01=0x012a}
0x1be52…1be78               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A9 DESTINATION ADDRESS«, t00=0x011d, t01=0x0152}
0x1be78…1be9c               Head {h00=0x0020, h01=0x0050, text=» LDK A3,128 LENGTH IN WORDS «, t00=0x011d, t01=0x0178}
0x1be9c…1beb0               Head {h00=0x0010, h01=0x0050, text=»RMOV10 EQU *«, t00=0x011e, t01=0x000c}
0x1beb0…1bec4               Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A1 «, t00=0x011e, t01=0x0020}
0x1bec4…1bed6               Head {h00=0x000e, h01=0x0050, text=» STR A6,A2«, t00=0x011e, t01=0x0034}
0x1bed6…1bee8               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x011e, t01=0x0046}
0x1bee8…1befa               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x011e, t01=0x0058}
0x1befa…1bf0c               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x011e, t01=0x006a}
0x1bf0c…1bf2c               Head {h00=0x001c, h01=0x0050, text=» RB(P) RMOV10 NEXT WORD «, t00=0x011e, t01=0x007c}
0x1bf2c…1bf3c               Head {h00=0x000c, h01=0x0050, text=» RB TURN«, t00=0x011e, t01=0x009c}
0x1bf3c…1bf44               Head {h00=0x0004, h01=0x0050, t00=0x011e, t01=0x00ac}
0x1bf44…1bf4c               Head {h00=0x0004, h01=0x0050, t00=0x011e, t01=0x00b4}
0x1bf4c…1bf54               Head {h00=0x0004, h01=0x0050, t00=0x011e, t01=0x00bc}
0x1bf54…1bf68               Head {h00=0x0010, h01=0x0050, text=»NOFOND EQU *«, t00=0x011e, t01=0x00c4}
0x1bf68…1bf7e               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x011e, t01=0x00d8}
0x1bf7e…1bfa8               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR INDICATE READING ERROR«, t00=0x011e, t01=0x00ee}
0x1bfa8…1bfb6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011e, t01=0x0118}
0x1bfb6…1bfc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011e, t01=0x0126}
0x1bfc0…1bfde               Head {h00=0x001a, h01=0x0050, text=»* IO ERROR IN READING «, t00=0x011e, t01=0x0130}
0x1bfde…1bfe8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011e, t01=0x014e}
0x1bfe8…1bffc               Head {h00=0x0010, h01=0x0050, text=»RET30 EQU * «, t00=0x011e, t01=0x0158}
0x1bffc…1c00e               Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x011e, t01=0x016c}
0x1c00e…1c02c               Head {h00=0x001a, h01=0x0050, text=» RB(NZ) REA100 NEW TRY«, t00=0x011e, t01=0x017e}
0x1c02c…1c042               Head {h00=0x0012, h01=0x0050, text=» LC A1,CIOTAB «, t00=0x011f, t01=0x000c}
0x1c042…1c056               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/C0 «, t00=0x011f, t01=0x0022}
0x1c056…1c08e               Head {h00=0x0034, h01=0x0050, text=» RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S «, t00=0x011f, t01=0x0036}
0x1c08e…1c0a4               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x011f, t01=0x006e}
0x1c0a4…1c0d8               Head {h00=0x0030, h01=0x0050, text=» ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE«, t00=0x011f, t01=0x0084}
0x1c0d8…1c0ea               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x011f, t01=0x00b8}
0x1c0ea…1c0fe               Head {h00=0x0010, h01=0x0050, text=»RET31 EQU * «, t00=0x011f, t01=0x00ca}
0x1c0fe…1c112               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x011f, t01=0x00de}
0x1c112…1c148               Head {h00=0x0032, h01=0x0050, text=» RF(Z) RET32 LAST RETRY WITH LATE DATA STROBE «, t00=0x011f, t01=0x00f2}
0x1c148…1c15e               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/C000«, t00=0x011f, t01=0x0128}
0x1c15e…1c192               Head {h00=0x0030, h01=0x0050, text=» XRS A2,CIOTAB CHANGE FROM EARLY TO LATE D.S«, t00=0x011f, t01=0x013e}
0x1c192…1c1a4               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x011f, t01=0x0172}
0x1c1a4…1c1b8               Head {h00=0x0010, h01=0x0050, text=»RET32 EQU * «, t00=0x011f, t01=0x0184}
0x1c1b8…1c1ce               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/3FFF«, t00=0x0120, t01=0x0008}
0x1c1ce…1c1fc               Head {h00=0x002a, h01=0x0050, text=» ANS A2,CIOTAB RESET LATE DATA STROBE «, t00=0x0120, t01=0x001e}
0x1c1fc…1c212               Head {h00=0x0012, h01=0x0050, text=» LC A1,CIOTOT «, t00=0x0120, t01=0x004c}
0x1c212…1c226               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/C0 «, t00=0x0120, t01=0x0062}
0x1c226…1c25e               Head {h00=0x0034, h01=0x0050, text=» RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- «, t00=0x0120, t01=0x0076}
0x1c25e…1c274               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x0120, t01=0x00ae}
0x1c274…1c2a0               Head {h00=0x0028, h01=0x0050, text=» ORS A2,CIOTOT PREPARE FOR CARRIAGE+«, t00=0x0120, t01=0x00c4}
0x1c2a0…1c2b2               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x0120, t01=0x00f0}
0x1c2b2…1c2c6               Head {h00=0x0010, h01=0x0050, text=»RET33 EQU * «, t00=0x0120, t01=0x0102}
0x1c2c6…1c2da               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x0120, t01=0x0116}
0x1c2da…1c2fe               Head {h00=0x0020, h01=0x0050, text=» RB(Z) NOFOND READING ERROR «, t00=0x0120, t01=0x012a}
0x1c2fe…1c314               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/C000«, t00=0x0120, t01=0x014e}
0x1c314…1c346               Head {h00=0x002e, h01=0x0050, text=» XRS A2,CIOTOT FROM CARRIAGE+ TO CARRIGE- «, t00=0x0120, t01=0x0164}
0x1c346…1c358               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x0121, t01=0x0008}
0x1c358…1c366               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0121, t01=0x001a}
0x1c366…1c370               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x0028}
0x1c370…1c384               Head {h00=0x0010, h01=0x0050, text=»* SEEK TABLE«, t00=0x0121, t01=0x0032}
0x1c384…1c38e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x0046}
0x1c38e…1c3a2               Head {h00=0x0010, h01=0x0050, text=»SEKTAB EQU *«, t00=0x0121, t01=0x0050}
0x1c3a2…1c3b2               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0121, t01=0x0064}
0x1c3b2…1c3bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x0074}
0x1c3bc…1c3d0               Head {h00=0x0010, h01=0x0050, text=»* CIO TABLE «, t00=0x0121, t01=0x007e}
0x1c3d0…1c3da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x0092}
0x1c3da…1c3ee               Head {h00=0x0010, h01=0x0050, text=»CIOTAB EQU *«, t00=0x0121, t01=0x009c}
0x1c3ee…1c418               Head {h00=0x0026, h01=0x0050, text=» DATA 0 ORDER,SECTOR NBR,HEAD NBR «, t00=0x0121, t01=0x00b0}
0x1c418…1c42c               Head {h00=0x0010, h01=0x0050, text=»CIOTOT EQU *«, t00=0x0121, t01=0x00da}
0x1c42c…1c466               Head {h00=0x0036, h01=0x0050, text=» DATA 384 TOTAL NUMBER OF WORDS(1 PHYSICAL SECTOR)«, t00=0x0121, t01=0x00ee}
0x1c466…1c47a               Head {h00=0x0010, h01=0x0050, text=»CIOPA1 EQU *«, t00=0x0121, t01=0x0128}
0x1c47a…1c4b4               Head {h00=0x0036, h01=0x0050, text=» DATA /4000+128 DATA CHAINING BIT,NUMBER OF WORDS «, t00=0x0121, t01=0x013c}
0x1c4b4…1c4da               Head {h00=0x0022, h01=0x0050, text=» DATA 0 ADDRESS1 MOST SIGN. =9«, t00=0x0121, t01=0x0176}
0x1c4da…1c4ee               Head {h00=0x0010, h01=0x0050, text=»CIOAD1 EQU *«, t00=0x0122, t01=0x000c}
0x1c4ee…1c508               Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 1 «, t00=0x0122, t01=0x0020}
0x1c508…1c51c               Head {h00=0x0010, h01=0x0050, text=»CIOPA2 EQU *«, t00=0x0122, t01=0x003a}
0x1c51c…1c534               Head {h00=0x0014, h01=0x0050, text=» DATA /4000+128 «, t00=0x0122, t01=0x004e}
0x1c534…1c55c               Head {h00=0x0024, h01=0x0050, text=» DATA 0 ADDRESS 2 MOST SIGN. =9 «, t00=0x0122, t01=0x0066}
0x1c55c…1c570               Head {h00=0x0010, h01=0x0050, text=»CIOAD2 EQU *«, t00=0x0122, t01=0x008e}
0x1c570…1c58a               Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 2 «, t00=0x0122, t01=0x00a2}
0x1c58a…1c59e               Head {h00=0x0010, h01=0x0050, text=»CIOPA3 EQU *«, t00=0x0122, t01=0x00bc}
0x1c59e…1c5b0               Head {h00=0x000e, h01=0x0050, text=» DATA 128 «, t00=0x0122, t01=0x00d0}
0x1c5b0…1c5d8               Head {h00=0x0024, h01=0x0050, text=» DATA 0 ADDRESS 3 MOST SIGN. =9 «, t00=0x0122, t01=0x00e2}
0x1c5d8…1c5ec               Head {h00=0x0010, h01=0x0050, text=»CIOAD3 EQU *«, t00=0x0122, t01=0x010a}
0x1c5ec…1c606               Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 3 «, t00=0x0122, t01=0x011e}
0x1c606…1c612               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0122, t01=0x0138}
0x1c612…1c620               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0122, t01=0x0144}
0x1c620…1c65c               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0122, t01=0x0152}
0x1c65c…1c698               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0122, t01=0x018e}
0x1c698…1c6d4               Head {h00=0x0038, h01=0x0050, text=»*        GETFIL - GET CONFIGURATION FILE          * «, t00=0x0123, t01=0x003a}
0x1c6d4…1c710               Head {h00=0x0038, h01=0x0050, text=»*        ===============================          * «, t00=0x0123, t01=0x0076}
0x1c710…1c74c               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0123, t01=0x00b2}
0x1c74c…1c788               Head {h00=0x0038, h01=0x0050, text=»*  REFERENCED IN:  SYSLOD                         * «, t00=0x0123, t01=0x00ee}
0x1c788…1c7c4               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0123, t01=0x012a}
0x1c7c4…1c800               Head {h00=0x0038, h01=0x0050, text=»*  ENTRY:  A9 - BUFFER ADDRESS                    * «, t00=0x0123, t01=0x0166}
0x1c800…1c83c               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0124, t01=0x0012}
0x1c83c…1c878               Head {h00=0x0038, h01=0x0050, text=»*  EXIT:  A11 - SECTOR ADDRESS TO CONF. FILE      * «, t00=0x0124, t01=0x004e}
0x1c878…1c8b4               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0124, t01=0x008a}
0x1c8b4…1c8ee               Head {h00=0x0036, h01=0x0050, text=»*  WORK REGISTERS:  A1,A2,A3,A4,A5,A6,A7,A8,A10  *«, t00=0x0124, t01=0x00c6}
0x1c8ee…1c92a               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0124, t01=0x0100}
0x1c92a…1c966               Head {h00=0x0038, h01=0x0050, text=»*  SUBROUTINES:  READVL,READCF                    * «, t00=0x0124, t01=0x013c}
0x1c966…1c9a2               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0124, t01=0x0178}
0x1c9a2…1c9de               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0125, t01=0x0024}
0x1c9de…1c9f2               Head {h00=0x0010, h01=0x0050, text=»GETFIL EQU *«, t00=0x0125, t01=0x0060}
0x1c9f2…1ca08               Head {h00=0x0012, h01=0x0050, text=» CF A14,GETVLB«, t00=0x0125, t01=0x0074}
0x1ca08…1ca1c               Head {h00=0x0010, h01=0x0050, text=»GET:10 EQU *«, t00=0x0125, t01=0x008a}
0x1ca1c…1ca42               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDSEC GET VOLUME LABEL«, t00=0x0125, t01=0x009e}
0x1ca42…1ca6e               Head {h00=0x0028, h01=0x0050, text=» LDK A7,QBLFAC VTOC BLOCKING FACTOR «, t00=0x0125, t01=0x00c4}
0x1ca6e…1ca94               Head {h00=0x0022, h01=0x0050, text=» LDR A6,A9 GET START OF BUFFER«, t00=0x0125, t01=0x00f0}
0x1ca94…1caa8               Head {h00=0x0010, h01=0x0050, text=»GET:20 EQU *«, t00=0x0125, t01=0x0116}
0x1caa8…1cac6               Head {h00=0x001a, h01=0x0050, text=» LDK A5,/20 LOAD SPACE«, t00=0x0125, t01=0x012a}
0x1cac6…1cae6               Head {h00=0x001c, h01=0x0050, text=» CCR A5,A6 UNUSED FILE? «, t00=0x0125, t01=0x0148}
0x1cae6…1cb00               Head {h00=0x0016, h01=0x0050, text=» RF(E) GET:50 YES!«, t00=0x0125, t01=0x0168}
0x1cb00…1cb22               Head {h00=0x001e, h01=0x0050, text=» LDR A4,A6 START OF RECORD«, t00=0x0125, t01=0x0182}
0x1cb22…1cb4e               Head {h00=0x0028, h01=0x0050, text=» LDK A5,'S' STANDARD FILE CHARACTER «, t00=0x0126, t01=0x0014}
0x1cb4e…1cb72               Head {h00=0x0020, h01=0x0050, text=» CC A5,27,A6 STANDARD FILE? «, t00=0x0126, t01=0x0040}
0x1cb72…1cb8c               Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:50 NO!«, t00=0x0126, t01=0x0064}
0x1cb8c…1cbba               Head {h00=0x002a, h01=0x0050, text=» LDK A5,'$' LEADING CHAR IN CONF. FILE«, t00=0x0126, t01=0x007e}
0x1cbba…1cbe0               Head {h00=0x0022, h01=0x0050, text=» CCR A5,A4 CONFIGURATION FILE?«, t00=0x0126, t01=0x00ac}
0x1cbe0…1cbfa               Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:50 NO!«, t00=0x0126, t01=0x00d2}
0x1cbfa…1cc30               Head {h00=0x0032, h01=0x0050, text=»GET:25 LDK A3,'C' THIS INSTRUCTION IS MODIFIED«, t00=0x0126, t01=0x00ec}
0x1cc30…1cc5c               Head {h00=0x0028, h01=0x0050, text=» CCK A3,'CC' LOOKING FOR CONF. FILE?«, t00=0x0126, t01=0x0122}
0x1cc5c…1cc76               Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:85 NO!«, t00=0x0126, t01=0x014e}
0x1cc76…1cc98               Head {h00=0x001e, h01=0x0050, text=» ADK A4,5 SIXTH CHARACTER «, t00=0x0126, t01=0x0168}
0x1cc98…1ccc8               Head {h00=0x002c, h01=0x0050, text=» LDK A5,':' CHARACTER TO PRECEED NUMBER «, t00=0x0126, t01=0x018a}
0x1ccc8…1ccf4               Head {h00=0x0028, h01=0x0050, text=»GET:30 CCR A5,A4 CONFIGURATION FILE?«, t00=0x0127, t01=0x002a}
0x1ccf4…1cd0e               Head {h00=0x0016, h01=0x0050, text=» RF(E) GET:40 YES!«, t00=0x0127, t01=0x0056}
0x1cd0e…1cd32               Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 TRY NEXT CHARACTER«, t00=0x0127, t01=0x0070}
0x1cd32…1cd54               Head {h00=0x001e, h01=0x0050, text=» CWR A4,A6 FIRST IN NAME? «, t00=0x0127, t01=0x0094}
0x1cd54…1cd6e               Head {h00=0x0016, h01=0x0050, text=» RF(E) GET:50 YES!«, t00=0x0127, t01=0x00b6}
0x1cd6e…1cd80               Head {h00=0x000e, h01=0x0050, text=» RB GET:30«, t00=0x0127, t01=0x00d0}
0x1cd80…1cd94               Head {h00=0x0010, h01=0x0050, text=»GET:40 EQU *«, t00=0x0127, t01=0x00e2}
0x1cd94…1cd9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x00f6}
0x1cd9e…1cdc2               Head {h00=0x0020, h01=0x0050, text=»*  CHECK APPLICATION NUMBER «, t00=0x0127, t01=0x0100}
0x1cdc2…1cdcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x0124}
0x1cdcc…1cdee               Head {h00=0x001e, h01=0x0050, text=» LC A5,1,A4 GET LEFT DIGIT«, t00=0x0127, t01=0x012e}
0x1cdee…1ce12               Head {h00=0x0020, h01=0x0050, text=» SLL A5,8 SHIFT TO LEFT BYTE«, t00=0x0127, t01=0x0150}
0x1ce12…1ce36               Head {h00=0x0020, h01=0x0050, text=» LC A5,2,A4 GET RIGHT DIGIT «, t00=0x0127, t01=0x0174}
0x1ce36…1ce5c               Head {h00=0x0022, h01=0x0050, text=» CALL CONVRT CONVERT TO BINARY«, t00=0x0128, t01=0x0008}
0x1ce5c…1ce8c               Head {h00=0x002c, h01=0x0050, text=» CW A1,SCTANO SAME AS APPLICATION NUMBER«, t00=0x0128, t01=0x002e}
0x1ce8c…1cea2               Head {h00=0x0012, h01=0x0050, text=» RF(NE) GET:50«, t00=0x0128, t01=0x005e}
0x1cea2…1ceac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x0074}
0x1ceac…1ced0               Head {h00=0x0020, h01=0x0050, text=»*  CONFIGURATION FILE FOUND «, t00=0x0128, t01=0x007e}
0x1ced0…1ceda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x00a2}
0x1ceda…1cf02               Head {h00=0x0024, h01=0x0050, text=» LD A1,22,A6 LAST RECORD NUMBER «, t00=0x0128, t01=0x00ac}
0x1cf02…1cf24               Head {h00=0x001e, h01=0x0050, text=» ST A1,LSTREC+STKEND SAVE «, t00=0x0128, t01=0x00d4}
0x1cf24…1cf3e               Head {h00=0x0016, h01=0x0050, text=» LD A12,16,A6 GET «, t00=0x0128, t01=0x00f6}
0x1cf3e…1cf62               Head {h00=0x0020, h01=0x0050, text=» LD A11,18,A6 SECTOR ADDRESS«, t00=0x0128, t01=0x0110}
0x1cf62…1cf72               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0128, t01=0x0134}
0x1cf72…1cf7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x0144}
0x1cf7c…1cf90               Head {h00=0x0010, h01=0x0050, text=»GET:50 EQU *«, t00=0x0128, t01=0x014e}
0x1cf90…1cfb4               Head {h00=0x0020, h01=0x0050, text=» ADR A6,A8 NEXT VTOC RECORD «, t00=0x0128, t01=0x0162}
0x1cfb4…1cfde               Head {h00=0x0026, h01=0x0050, text=» ADK A6,1 BYPASS STATUS CHARACTER «, t00=0x0128, t01=0x0186}
0x1cfde…1d00e               Head {h00=0x002c, h01=0x0050, text=» SUK A7,1 MOORE RECORDS IN THIS SECTOR? «, t00=0x0129, t01=0x0020}
0x1d00e…1d028               Head {h00=0x0016, h01=0x0050, text=» RB(P) GET:20 YES!«, t00=0x0129, t01=0x0050}
0x1d028…1d04e               Head {h00=0x0022, h01=0x0050, text=» CWR A11,A10 LAST VTOC SECTOR?«, t00=0x0129, t01=0x006a}
0x1d04e…1d068               Head {h00=0x0016, h01=0x0050, text=» RB(NE) GET:10 NO!«, t00=0x0129, t01=0x0090}
0x1d068…1d09e               Head {h00=0x0032, h01=0x0050, text=»GET:60 LDK A3,'C' THIS INSTRUCTION IS MODIFIED«, t00=0x0129, t01=0x00aa}
0x1d09e…1d0ca               Head {h00=0x0028, h01=0x0050, text=» CCK A3,'CC' LOOKING FOR CONF. FILE?«, t00=0x0129, t01=0x00e0}
0x1d0ca…1d0e4               Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:99 NO!«, t00=0x0129, t01=0x010c}
0x1d0e4…1d0ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x0126}
0x1d0ee…1d12c               Head {h00=0x003a, h01=0x0050, text=»*  CONFIGURATION FILE NOT FOUND - READ SOP AND SELECT «, t00=0x0129, t01=0x0130}
0x1d12c…1d15a               Head {h00=0x002a, h01=0x0050, text=»*  LOAD MEDIUM FOR CONFIGURATION FILE «, t00=0x0129, t01=0x016e}
0x1d15a…1d164               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x000c}
0x1d164…1d16e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x0016}
0x1d16e…1d184               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/7F8 «, t00=0x012a, t01=0x0020}
0x1d184…1d1ae               Head {h00=0x0026, h01=0x0050, text=» OTR A2,0,SOP SWITCH ON SOP LAMPS «, t00=0x012a, t01=0x0036}
0x1d1ae…1d1c2               Head {h00=0x0010, h01=0x0050, text=»GET:70 EQU *«, t00=0x012a, t01=0x0060}
0x1d1c2…1d1d8               Head {h00=0x0012, h01=0x0050, text=» CF A14,SOPIN «, t00=0x012a, t01=0x0074}
0x1d1d8…1d1fe               Head {h00=0x0022, h01=0x0050, text=» ANKL A1,/7FC ALLOWED SWITCH? «, t00=0x012a, t01=0x008a}
0x1d1fe…1d218               Head {h00=0x0016, h01=0x0050, text=» RB(Z) GET:70 NO! «, t00=0x012a, t01=0x00b0}
0x1d218…1d22e               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,LMP1 «, t00=0x012a, t01=0x00ca}
0x1d22e…1d258               Head {h00=0x0026, h01=0x0050, text=» OTR A2,0,SOP SWITCH ON LOAD LAMP «, t00=0x012a, t01=0x00e0}
0x1d258…1d26a               Head {h00=0x000e, h01=0x0050, text=» SRN A1,A2«, t00=0x012a, t01=0x010a}
0x1d26a…1d296               Head {h00=0x0028, h01=0x0050, text=» LC A1,DEVTAB,A2 GET DEVICE ADDRESS «, t00=0x012a, t01=0x011c}
0x1d296…1d2aa               Head {h00=0x0010, h01=0x0050, text=»GET:75 EQU *«, t00=0x012a, t01=0x0148}
0x1d2aa…1d2e4               Head {h00=0x0036, h01=0x0050, text=» SC A1,CONDEV+1+STKEND SAVE CONF. DATA LOAD DEVICE«, t00=0x012a, t01=0x015c}
0x1d2e4…1d310               Head {h00=0x0028, h01=0x0050, text=» CF A14,CONFLD CONFIGURE LOAD DEVICE«, t00=0x012b, t01=0x0008}
0x1d310…1d322               Head {h00=0x000e, h01=0x0050, text=» RB GETFIL«, t00=0x012b, t01=0x0034}
0x1d322…1d336               Head {h00=0x0010, h01=0x0050, text=»GET:85 EQU *«, t00=0x012b, t01=0x0046}
0x1d336…1d35e               Head {h00=0x0024, h01=0x0050, text=» CCK A3,'SS' LOOKING FOR $SWAPP?«, t00=0x012b, t01=0x005a}
0x1d35e…1d378               Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:99 NO!«, t00=0x012b, t01=0x0082}
0x1d378…1d3a2               Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 RESET CHARACTER COUNTER «, t00=0x012b, t01=0x009c}
0x1d3a2…1d3d0               Head {h00=0x002a, h01=0x0050, text=»GET:90 LCR A1,A4 GET CHAR IN FILENAME «, t00=0x012b, t01=0x00c6}
0x1d3d0…1d402               Head {h00=0x002e, h01=0x0050, text=» CC A1,SWPTAB,A5 CHECK IF PRESCIBED CHAR. «, t00=0x012b, t01=0x00f4}
0x1d402…1d41c               Head {h00=0x0016, h01=0x0050, text=» RB(NE) GET:50 NO!«, t00=0x012b, t01=0x0126}
0x1d41c…1d43c               Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 NEXT CHARACTER«, t00=0x012b, t01=0x0140}
0x1d43c…1d46a               Head {h00=0x002a, h01=0x0050, text=» ADK A5,1 INCREMENT CHARACTER COUNTER «, t00=0x012b, t01=0x0160}
0x1d46a…1d494               Head {h00=0x0026, h01=0x0050, text=» CWK A5,8 ALL CHARACTERS CHECKED? «, t00=0x012b, t01=0x018e}
0x1d494…1d4ae               Head {h00=0x0016, h01=0x0050, text=» RB(NE) GET:90 NO!«, t00=0x012c, t01=0x0028}
0x1d4ae…1d4b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x0042}
0x1d4b8…1d4f6               Head {h00=0x003a, h01=0x0050, text=»*  SWAPPABLE WORK BLOCK FILE FOUND - SAVE DISC ADDRESS«, t00=0x012c, t01=0x004c}
0x1d4f6…1d526               Head {h00=0x002c, h01=0x0050, text=»*  TO FILE AND TO NEXT SECTOR AFTER FILE«, t00=0x012c, t01=0x008a}
0x1d526…1d530               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x00ba}
0x1d530…1d55a               Head {h00=0x0026, h01=0x0050, text=» LD A1,18,A6 GET BIT 16-31 OF D.A.«, t00=0x012c, t01=0x00c4}
0x1d55a…1d584               Head {h00=0x0026, h01=0x0050, text=» LD A2,16,A6 GET BIT 0-15 OF D.A. «, t00=0x012c, t01=0x00ee}
0x1d584…1d5a6               Head {h00=0x001e, h01=0x0050, text=» ST A1,SWBFSA+STKCOM SAVE «, t00=0x012c, t01=0x0118}
0x1d5a6…1d5ca               Head {h00=0x0020, h01=0x0050, text=» ST A2,SWBFSA+STKCOM+2 SAVE «, t00=0x012c, t01=0x013a}
0x1d5ca…1d5fa               Head {h00=0x002c, h01=0x0050, text=» LD A3,SWPFEL,A6 GET BIT 16-31 OF LENGTH«, t00=0x012c, t01=0x015e}
0x1d5fa…1d62c               Head {h00=0x002e, h01=0x0050, text=» LD A4,SWPFEL-2,A6 GET BIT 0-15 OF LENGTH «, t00=0x012c, t01=0x018e}
0x1d62c…1d658               Head {h00=0x0028, h01=0x0050, text=» ADR A4,A2 ADD MOST SIGNIFICANT PART«, t00=0x012d, t01=0x0030}
0x1d658…1d686               Head {h00=0x002a, h01=0x0050, text=» ADR A3,A1 ADD LEAST SIGNIFICANT PART «, t00=0x012d, t01=0x005c}
0x1d686…1d6b0               Head {h00=0x0026, h01=0x0050, text=» RF(O) GET:92 OVERFLOW - ADD CARRY«, t00=0x012d, t01=0x008a}
0x1d6b0…1d6c2               Head {h00=0x000e, h01=0x0050, text=» RF GET:98«, t00=0x012d, t01=0x00b4}
0x1d6c2…1d6e4               Head {h00=0x001e, h01=0x0050, text=»GET:92 ADK A4,1 ADD CARRY «, t00=0x012d, t01=0x00c6}
0x1d6e4…1d70a               Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/7FFF RESET OVERFLOW «, t00=0x012d, t01=0x00e8}
0x1d70a…1d744               Head {h00=0x0036, h01=0x0050, text=»GET:98 ST A3,SWBFSE+STKCOM SAVE BIT 16-31 OF D.A. «, t00=0x012d, t01=0x010e}
0x1d744…1d778               Head {h00=0x0030, h01=0x0050, text=» ST A4,SWBFSE+STKCOM+2 SAVE BIT 0-15 OF D.A.«, t00=0x012d, t01=0x0148}
0x1d778…1d7aa               Head {h00=0x002e, h01=0x0050, text=» IM SWBFLG+STKCOM INDICATE SWB-FILE FOUND «, t00=0x012d, t01=0x017c}
0x1d7aa…1d7c0               Head {h00=0x0012, h01=0x0050, text=»GET:99 RTN A14«, t00=0x012e, t01=0x001e}
0x1d7c0…1d7ce               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012e, t01=0x0034}
0x1d7ce…1d80c               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x012e, t01=0x0042}
0x1d80c…1d84a               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x012e, t01=0x0080}
0x1d84a…1d888               Head {h00=0x003a, h01=0x0050, text=»*  LODCOM - LOAD CORE RESIDENT PART OF APPLICATION  * «, t00=0x012e, t01=0x00be}
0x1d888…1d8c6               Head {h00=0x003a, h01=0x0050, text=»*  ===============================================  * «, t00=0x012e, t01=0x00fc}
0x1d8c6…1d904               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x012e, t01=0x013a}
0x1d904…1d942               Head {h00=0x003a, h01=0x0050, text=»*  LODSEG - LOAD ONE SEGMENT                        * «, t00=0x012e, t01=0x0178}
0x1d942…1d980               Head {h00=0x003a, h01=0x0050, text=»*  =========================                        * «, t00=0x012f, t01=0x0026}
0x1d980…1d9be               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x012f, t01=0x0064}
0x1d9be…1d9fc               Head {h00=0x003a, h01=0x0050, text=»*  ENTRY:  A8 - RELOCATION BASE                     * «, t00=0x012f, t01=0x00a2}
0x1d9fc…1da3a               Head {h00=0x003a, h01=0x0050, text=»*         A10 - EFFECTIVE LENGTH                    * «, t00=0x012f, t01=0x00e0}
0x1da3a…1da78               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x012f, t01=0x011e}
0x1da78…1dab6               Head {h00=0x003a, h01=0x0050, text=»*  EXIT:                                            * «, t00=0x012f, t01=0x015c}
0x1dab6…1daf4               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x0130, t01=0x000a}
0x1daf4…1db32               Head {h00=0x003a, h01=0x0050, text=»*  WORK REGISTERS:  A1,A2,A3,A4,A7                  * «, t00=0x0130, t01=0x0048}
0x1db32…1db70               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x0130, t01=0x0086}
0x1db70…1dbae               Head {h00=0x003a, h01=0x0050, text=»*  SUBROUTINES:  MOVE,READ                          * «, t00=0x0130, t01=0x00c4}
0x1dbae…1dbec               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x0130, t01=0x0102}
0x1dbec…1dc2a               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0130, t01=0x0140}
0x1dc2a…1dc3e               Head {h00=0x0010, h01=0x0050, text=»LODCOM EQU *«, t00=0x0130, t01=0x017e}
0x1dc3e…1dc6e (305, 0, 400) Head {h00=0x002c, h01=0x0050, text=» LD A9,MXBUF GET ADDRESS TO READ BUFFER «, t00=0x0131, t01=0x0004}
0x1dc6e…1dc94               Head {h00=0x0022, h01=0x0050, text=» LDR A3,A9 GET START OF BUFFER«, t00=0x0131, t01=0x0034}
0x1dc94…1dcac               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A3 SAVE «, t00=0x0131, t01=0x005a}
0x1dcac…1dcd6               Head {h00=0x0026, h01=0x0050, text=» LDKL A7,240 NUMBER OF CODE WORDS «, t00=0x0131, t01=0x0072}
0x1dcd6…1dcec               Head {h00=0x0012, h01=0x0050, text=»LOD:10 EQU *-2«, t00=0x0131, t01=0x009c}
0x1dcec…1dd0c               Head {h00=0x001c, h01=0x0050, text=» LDR A10,A10 APP >32 KB?«, t00=0x0131, t01=0x00b2}
0x1dd0c…1dd26               Head {h00=0x0016, h01=0x0050, text=» RF(NN) LOD:20 NO!«, t00=0x0131, t01=0x00d2}
0x1dd26…1dd46               Head {h00=0x001c, h01=0x0050, text=» SUR A10,A7 DEC. LENGTH «, t00=0x0131, t01=0x00ec}
0x1dd46…1dd58               Head {h00=0x000e, h01=0x0050, text=» RF LOD:50«, t00=0x0131, t01=0x010c}
0x1dd58…1dd6c               Head {h00=0x0010, h01=0x0050, text=»LOD:20 EQU *«, t00=0x0131, t01=0x011e}
0x1dd6c…1dd9e               Head {h00=0x002e, h01=0x0050, text=» SUR A10,A7 CHECK IF IN END OF OF SEGMENT «, t00=0x0131, t01=0x0132}
0x1dd9e…1ddbc               Head {h00=0x001a, h01=0x0050, text=» RF(P) LOD:50 NO YET! «, t00=0x0131, t01=0x0164}
0x1ddbc…1dde2               Head {h00=0x0022, h01=0x0050, text=» CWK A7,256 128 WORDS/SECTOR? «, t00=0x0131, t01=0x0182}
0x1dde2…1ddfc               Head {h00=0x0016, h01=0x0050, text=» RF(NE) LOD:30 NO!«, t00=0x0132, t01=0x0018}
0x1ddfc…1de2c               Head {h00=0x002c, h01=0x0050, text=» ADR A7,A10 COMPUTE NUMBER OF CODE WORDS«, t00=0x0132, t01=0x0032}
0x1de2c…1de58               Head {h00=0x0028, h01=0x0050, text=» LDKL A10,0 INDICATE END OF SEGMENT «, t00=0x0132, t01=0x0062}
0x1de58…1de6a               Head {h00=0x000e, h01=0x0050, text=» RF LOD:52«, t00=0x0132, t01=0x008e}
0x1de6a…1de7e               Head {h00=0x0010, h01=0x0050, text=»LOD:30 EQU *«, t00=0x0132, t01=0x00a0}
0x1de7e…1deb4               Head {h00=0x0032, h01=0x0050, text=» ADR A7,A10 JUST MOVE SIGNIFICANT CHARACTERS! «, t00=0x0132, t01=0x00b4}
0x1deb4…1dee0               Head {h00=0x0028, h01=0x0050, text=» LDKL A10,0 INDICATE END OF SEGMENT «, t00=0x0132, t01=0x00ea}
0x1dee0…1df18               Head {h00=0x0034, h01=0x0050, text=» LD A1,FSTSEC+STKEND LOOK IF FIRST SECTOR/BLOCK «, t00=0x0132, t01=0x0116}
0x1df18…1df32               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) LOD:50 NO!«, t00=0x0132, t01=0x014e}
0x1df32…1df3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0132, t01=0x0168}
0x1df3c…1df72               Head {h00=0x0032, h01=0x0050, text=» ADK A7,8 YES, ADD 8 TO COMPENSATE FOR HEADER «, t00=0x0132, t01=0x0172}
0x1df72…1dfb0               Head {h00=0x003a, h01=0x0050, text=» CWK A7,240 LOOK IF OUTSIDE CODE PART OF SECTOR/BLOCK «, t00=0x0133, t01=0x0018}
0x1dfb0…1dfca               Head {h00=0x0016, h01=0x0050, text=» RF(L) LOD:50 NO! «, t00=0x0133, t01=0x0056}
0x1dfca…1dfd4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0133, t01=0x0070}
0x1dfd4…1e000               Head {h00=0x0028, h01=0x0050, text=» SUK A7,240 YES, GET WORDS REMAINING«, t00=0x0133, t01=0x007a}
0x1e000…1e01c               Head {h00=0x0018, h01=0x0050, text=» LDR A10,A7 AND SAVE«, t00=0x0133, t01=0x00a6}
0x1e01c…1e048               Head {h00=0x0028, h01=0x0050, text=» LDK A7,240 START OF RELOCATION BITS«, t00=0x0133, t01=0x00c2}
0x1e048…1e05c               Head {h00=0x0010, h01=0x0050, text=»LOD:50 EQU *«, t00=0x0133, t01=0x00ee}
0x1e05c…1e082               Head {h00=0x0022, h01=0x0050, text=» CWK A7,256 128 WORDS/SECTOR? «, t00=0x0133, t01=0x0102}
0x1e082…1e09c               Head {h00=0x0016, h01=0x0050, text=» RF(E) LOD:52 YES!«, t00=0x0133, t01=0x0128}
0x1e09c…1e0c8               Head {h00=0x0028, h01=0x0050, text=» ADR A2,A7 START OF RELOCATION BITS «, t00=0x0133, t01=0x0142}
0x1e0c8…1e0e6               Head {h00=0x001a, h01=0x0050, text=» CF A14,REBUF RELOCATE«, t00=0x0133, t01=0x016e}
0x1e0e6…1e0fa               Head {h00=0x0010, h01=0x0050, text=»LOD:52 EQU *«, t00=0x0133, t01=0x018c}
0x1e0fa…1e120               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 START OF CODE PART «, t00=0x0134, t01=0x0010}
0x1e120…1e150               Head {h00=0x002c, h01=0x0050, text=» LD A4,FSTSEC+STKEND FIRST SECTOR/BLOCK?«, t00=0x0134, t01=0x0036}
0x1e150…1e16a               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) LOD:55 NO!«, t00=0x0134, t01=0x0066}
0x1e16a…1e1a4               Head {h00=0x0036, h01=0x0050, text=» IM FSTSEC+STKEND INDICATE NOT FIRST SECTOR/BLOCK «, t00=0x0134, t01=0x0080}
0x1e1a4…1e1d8               Head {h00=0x0030, h01=0x0050, text=» ADK A1,8 SKIP 4 WORDS IN FIRST SECTOR/BLOCK«, t00=0x0134, t01=0x00ba}
0x1e1d8…1e20c               Head {h00=0x0030, h01=0x0050, text=» SUK A7,8 DECREMENT NUMBER OF CHAR. TO MOVE «, t00=0x0134, t01=0x00ee}
0x1e20c…1e22e               Head {h00=0x001e, h01=0x0050, text=» LD A3,COMLG,A9 GET LENGTH«, t00=0x0134, t01=0x0122}
0x1e22e…1e266               Head {h00=0x0034, h01=0x0050, text=» RF(N) LOD:54 APPL. LARGER THAN ONE SECTOR/BLOCK«, t00=0x0134, t01=0x0144}
0x1e266…1e270               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0134, t01=0x017c}
0x1e270…1e2a4               Head {h00=0x0030, h01=0x0050, text=» CWK A3,240 SINGLE SECTOR/BLOCK APPLICATION?«, t00=0x0134, t01=0x0186}
0x1e2a4…1e2c0               Head {h00=0x0018, h01=0x0050, text=» RF(NG) LOD:55 YES! «, t00=0x0135, t01=0x002a}
0x1e2c0…1e2ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0135, t01=0x0046}
0x1e2ca…1e2e4               Head {h00=0x0016, h01=0x0050, text=»LOD:54 ADKL A10,8 «, t00=0x0135, t01=0x0050}
0x1e2e4…1e2f8               Head {h00=0x0010, h01=0x0050, text=»LOD:55 EQU *«, t00=0x0135, t01=0x006a}
0x1e2f8…1e328               Head {h00=0x002c, h01=0x0050, text=» LDR A3,A7 NUMBER OF CHARACTERS TO MOVE «, t00=0x0135, t01=0x007e}
0x1e328…1e354               Head {h00=0x0028, h01=0x0050, text=» LD A2,LLDADR+STKEND GET TO-ADDRESS «, t00=0x0135, t01=0x00ae}
0x1e354…1e388               Head {h00=0x0030, h01=0x0050, text=» ADS A3,LLDADR+STKEND UPDATE MEMORY ADDRESS «, t00=0x0135, t01=0x00da}
0x1e388…1e39e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0135, t01=0x010e}
0x1e39e…1e3c6               Head {h00=0x0024, h01=0x0050, text=» MVSU A3 MOVE TABLE FROM SYSTEM «, t00=0x0135, t01=0x0124}
0x1e3c6…1e3d2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0135, t01=0x014c}
0x1e3d2…1e3e8               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0135, t01=0x0158}
0x1e3e8…1e3fa               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x0135, t01=0x016e}
0x1e3fa…1e406               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0135, t01=0x0180}
0x1e406…1e42a               Head {h00=0x0020, h01=0x0050, text=» LDR A10,A10 END OF SEGMENT?«, t00=0x0135, t01=0x018c}
0x1e42a…1e440               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) LOD:70«, t00=0x0136, t01=0x0020}
0x1e440…1e456               Head {h00=0x0012, h01=0x0050, text=» RTN A14 EXIT «, t00=0x0136, t01=0x0036}
0x1e456…1e46a               Head {h00=0x0010, h01=0x0050, text=»LODSEG EQU *«, t00=0x0136, t01=0x004c}
0x1e46a…1e496               Head {h00=0x0028, h01=0x0050, text=» LDKL A1,256 NUMBER OF WORDS/SECTOR «, t00=0x0136, t01=0x0060}
0x1e496…1e4be               Head {h00=0x0024, h01=0x0050, text=» ST A1,LOD:10 MODIFY INSTRUCTION«, t00=0x0136, t01=0x008c}
0x1e4be…1e4d2               Head {h00=0x0010, h01=0x0050, text=»LOD:70 EQU *«, t00=0x0136, t01=0x00b4}
0x1e4d2…1e4e6               Head {h00=0x0010, h01=0x0050, text=» CF A14,READ«, t00=0x0136, t01=0x00c8}
0x1e4e6…1e4fa               Head {h00=0x0010, h01=0x0050, text=»READ EQU *-2«, t00=0x0136, t01=0x00dc}
0x1e4fa…1e50c               Head {h00=0x000e, h01=0x0050, text=» RB LODCOM«, t00=0x0136, t01=0x00f0}
0x1e50c…1e51a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0136, t01=0x0102}
0x1e51a…1e554               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0136, t01=0x0110}
0x1e554…1e58e               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x0136, t01=0x014a}
0x1e58e…1e5c8               Head {h00=0x0036, h01=0x0050, text=»*        REBUF - RELOCATE BUFFER ROUTINE        * «, t00=0x0136, t01=0x0184}
0x1e5c8…1e602               Head {h00=0x0036, h01=0x0050, text=»*        ===============================        * «, t00=0x0137, t01=0x002e}
0x1e602…1e63c               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x0137, t01=0x0068}
0x1e63c…1e676               Head {h00=0x0036, h01=0x0050, text=»*  REFERENCED IN:  LODCOM/LODSEG                * «, t00=0x0137, t01=0x00a2}
0x1e676…1e6b0               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x0137, t01=0x00dc}
0x1e6b0…1e6ea               Head {h00=0x0036, h01=0x0050, text=»*  ENTRY:  A3 - START OF BUFFER                 * «, t00=0x0137, t01=0x0116}
0x1e6ea…1e724               Head {h00=0x0036, h01=0x0050, text=»*          A2 - START OF RELOCATION TABLE       * «, t00=0x0137, t01=0x0150}
0x1e724…1e75e               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x0137, t01=0x018a}
0x1e75e…1e798               Head {h00=0x0036, h01=0x0050, text=»*  EXIT:                                        * «, t00=0x0138, t01=0x0034}
0x1e798…1e7d2               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x0138, t01=0x006e}
0x1e7d2…1e80c               Head {h00=0x0036, h01=0x0050, text=»*  WORK REGISTERS:  A1,A4,A5,A6                 * «, t00=0x0138, t01=0x00a8}
0x1e80c…1e846               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x0138, t01=0x00e2}
0x1e846…1e880               Head {h00=0x0036, h01=0x0050, text=»*  SUBROUTINES:                                 * «, t00=0x0138, t01=0x011c}
0x1e880…1e8ba               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x0138, t01=0x0156}
0x1e8ba…1e8f4               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0138, t01=0x0190}
0x1e8f4…1e908               Head {h00=0x0010, h01=0x0050, text=»REBUF EQU * «, t00=0x0139, t01=0x003a}
0x1e908…1e93a               Head {h00=0x002e, h01=0x0050, text=» LDR A4,A2 GET START OPF RELOCATION TABLE «, t00=0x0139, t01=0x004e}
0x1e93a…1e94c               Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0139, t01=0x0080}
0x1e94c…1e960               Head {h00=0x0010, h01=0x0050, text=»REB:10 EQU *«, t00=0x0139, t01=0x0092}
0x1e960…1e986               Head {h00=0x0022, h01=0x0050, text=» ADK A4,2 NEXT RELOCATION WORD«, t00=0x0139, t01=0x00a6}
0x1e986…1e9b2               Head {h00=0x0028, h01=0x0050, text=» LDK A6,16 NUMBER OF RELOCATION BITS«, t00=0x0139, t01=0x00cc}
0x1e9b2…1e9da               Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A4 GET RELOCATION WORD «, t00=0x0139, t01=0x00f8}
0x1e9da…1e9ee               Head {h00=0x0010, h01=0x0050, text=»REB:20 EQU *«, t00=0x0139, t01=0x0120}
0x1e9ee…1ea1e               Head {h00=0x002c, h01=0x0050, text=» RF(NN) REB:30 DON'T RELOCATE THIS WORD!«, t00=0x0139, t01=0x0134}
0x1ea1e…1ea40               Head {h00=0x001e, h01=0x0050, text=» LDR* A5,A3 GET CODE WORD «, t00=0x0139, t01=0x0164}
0x1ea40…1ea5c               Head {h00=0x0018, h01=0x0050, text=» ADR A5,A8 RELOCATE «, t00=0x0139, t01=0x0186}
0x1ea5c…1ea7c               Head {h00=0x001c, h01=0x0050, text=» STR A5,A3 STORE IT BACK«, t00=0x013a, t01=0x0012}
0x1ea7c…1ea90               Head {h00=0x0010, h01=0x0050, text=»REB:30 EQU *«, t00=0x013a, t01=0x0032}
0x1ea90…1eab0               Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 NEXT CODE WORD«, t00=0x013a, t01=0x0046}
0x1eab0…1eada               Head {h00=0x0026, h01=0x0050, text=» CWR A3,A2 END OF CODE WORD PART? «, t00=0x013a, t01=0x0066}
0x1eada…1eaf4               Head {h00=0x0016, h01=0x0050, text=» RF(E) EXREL YES! «, t00=0x013a, t01=0x0090}
0x1eaf4…1eb1c               Head {h00=0x0024, h01=0x0050, text=» SUK A6,1 MOORE RELOCATION BITS?«, t00=0x013a, t01=0x00aa}
0x1eb1c…1eb36               Head {h00=0x0016, h01=0x0050, text=» RB(Z) REB:10 NO! «, t00=0x013a, t01=0x00d2}
0x1eb36…1eb5c               Head {h00=0x0022, h01=0x0050, text=» SLL A1,1 NEXT RELOCATION BIT «, t00=0x013a, t01=0x00ec}
0x1eb5c…1eb6e               Head {h00=0x000e, h01=0x0050, text=» RB REB:20«, t00=0x013a, t01=0x0112}
0x1eb6e…1eb82               Head {h00=0x0010, h01=0x0050, text=»EXREL EQU * «, t00=0x013a, t01=0x0124}
0x1eb82…1eb92               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x013a, t01=0x0138}
0x1eb92…1eba0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013a, t01=0x0148}
0x1eba0…1ebd2               Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x013a, t01=0x0156}
0x1ebd2…1ec04               Head {h00=0x002e, h01=0x0050, text=»*  GETCON - GET CONTENT IN MEMORY WORD  * «, t00=0x013a, t01=0x0188}
0x1ec04…1ec36               Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x013b, t01=0x002a}
0x1ec36…1ec40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x005c}
0x1ec40…1ec62               Head {h00=0x001e, h01=0x0050, text=»*  REFERENCED IN:  SEGGEN «, t00=0x013b, t01=0x0066}
0x1ec62…1ec6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x0088}
0x1ec6c…1ec92               Head {h00=0x0022, h01=0x0050, text=»*  ENTRY:  A2 - MEMORY ADDRESS«, t00=0x013b, t01=0x0092}
0x1ec92…1ecc4               Head {h00=0x002e, h01=0x0050, text=»*          MMUOPT - MMU OPTION SWITCH (X) «, t00=0x013b, t01=0x00b8}
0x1ecc4…1ecce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x00ea}
0x1ecce…1ecfe               Head {h00=0x002c, h01=0x0050, text=»*  EXIT:  A1 - CONTENT OF MEMORY ADDRESS«, t00=0x013b, t01=0x00f4}
0x1ecfe…1ed08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x0124}
0x1ed08…1ed22               Head {h00=0x0016, h01=0x0050, text=»*  WORK REGISTER: «, t00=0x013b, t01=0x012e}
0x1ed22…1ed2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x0148}
0x1ed2c…1ed44               Head {h00=0x0014, h01=0x0050, text=»*  SUBROUTINES: «, t00=0x013b, t01=0x0152}
0x1ed44…1ed4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x016a}
0x1ed4e…1ed62               Head {h00=0x0010, h01=0x0050, text=»GETCON EQU *«, t00=0x013b, t01=0x0174}
0x1ed62…1ed88               Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x013b, t01=0x0188}
0x1ed88…1eda4               Head {h00=0x0018, h01=0x0050, text=» ANK A1,1 MMU OPTION«, t00=0x013c, t01=0x001e}
0x1eda4…1edc0               Head {h00=0x0018, h01=0x0050, text=» RF(Z) GCON10 NO MMU«, t00=0x013c, t01=0x003a}
0x1edc0…1edd2               Head {h00=0x000e, h01=0x0050, text=» ELR A1,A2«, t00=0x013c, t01=0x0056}
0x1edd2…1ede4               Head {h00=0x000e, h01=0x0050, text=» RF GCON20«, t00=0x013c, t01=0x0068}
0x1ede4…1edf8               Head {h00=0x0010, h01=0x0050, text=»GCON10 EQU *«, t00=0x013c, t01=0x007a}
0x1edf8…1ee0c               Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A2 «, t00=0x013c, t01=0x008e}
0x1ee0c…1ee20               Head {h00=0x0010, h01=0x0050, text=»GCON20 EQU *«, t00=0x013c, t01=0x00a2}
0x1ee20…1ee38               Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x013c, t01=0x00b6}
0x1ee38…1ee46               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013c, t01=0x00ce}
0x1ee46…1ee7c               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x013c, t01=0x00dc}
0x1ee7c…1eeb2               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x013c, t01=0x0112}
0x1eeb2…1eee8               Head {h00=0x0032, h01=0x0050, text=»*               SCNCON                      * «, t00=0x013c, t01=0x0148}
0x1eee8…1ef1e               Head {h00=0x0032, h01=0x0050, text=»*               ======                      * «, t00=0x013c, t01=0x017e}
0x1ef1e…1ef54               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x013d, t01=0x0024}
0x1ef54…1ef8a               Head {h00=0x0032, h01=0x0050, text=»*  SCAN CONFIGURATION FILE FOR POSSIBLE     * «, t00=0x013d, t01=0x005a}
0x1ef8a…1efc0               Head {h00=0x0032, h01=0x0050, text=»*  APPLICATION DEFINITION BLOCKS. IF        * «, t00=0x013d, t01=0x0090}
0x1efc0…1effc               Head {h00=0x0038, h01=0x0050, text=»*  FOUND APLTAB+STKCOM IS UPDATED WITH DISC        *«, t00=0x013d, t01=0x00c6}
0x1effc…1f032               Head {h00=0x0032, h01=0x0050, text=»*  ADDRESSES.                               * «, t00=0x013d, t01=0x0102}
0x1f032…1f068               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x013d, t01=0x0138}
0x1f068…1f09e               Head {h00=0x0032, h01=0x0050, text=»*  ENTRY: A9 INPUT BUFFER ADDRESS           * «, t00=0x013d, t01=0x016e}
0x1f09e…1f0d4               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x013e, t01=0x0014}
0x1f0d4…1f10a               Head {h00=0x0032, h01=0x0050, text=»*  WORK REGISTERS  A1-A8,A10                * «, t00=0x013e, t01=0x004a}
0x1f10a…1f140               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x013e, t01=0x0080}
0x1f140…1f176               Head {h00=0x0032, h01=0x0050, text=»*  ROUTINES REFERENCED: GETFIL, APLID       * «, t00=0x013e, t01=0x00b6}
0x1f176…1f1ac               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x013e, t01=0x00ec}
0x1f1ac…1f1e2               Head {h00=0x0032, h01=0x0050, text=»*  REFERENCED IN SYSLOD                     * «, t00=0x013e, t01=0x0122}
0x1f1e2…1f218               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x013e, t01=0x0158}
0x1f218…1f24e               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x013e, t01=0x018e}
0x1f24e…1f258               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x0034}
0x1f258…1f262               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x003e}
0x1f262…1f276               Head {h00=0x0010, h01=0x0050, text=»SCNCON EQU *«, t00=0x013f, t01=0x0048}
0x1f276…1f2a4               Head {h00=0x002a, h01=0x0050, text=» CF A14,GETFIL GET CONFIGURATION FILE «, t00=0x013f, t01=0x005c}
0x1f2a4…1f2de               Head {h00=0x0036, h01=0x0050, text=» ST A11,CONDAD+STKEND SAVE CONF. DISC FILE ADDRESS«, t00=0x013f, t01=0x008a}
0x1f2de…1f30e               Head {h00=0x002c, h01=0x0050, text=» ST A12,CONDAD+2+STKEND MOST SIGN. PART «, t00=0x013f, t01=0x00c4}
0x1f30e…1f334               Head {h00=0x0022, h01=0x0050, text=» LDR A8,A9 GET START OF BUFFER«, t00=0x013f, t01=0x00f4}
0x1f334…1f364               Head {h00=0x002c, h01=0x0050, text=» ADKL A8,BUFLEN-6 ADD SECTOR LENGTH USED«, t00=0x013f, t01=0x011a}
0x1f364…1f394               Head {h00=0x002c, h01=0x0050, text=» ST A8,ECNFBF+STKEND AND SAVE BUFFER END«, t00=0x013f, t01=0x014a}
0x1f394…1f39e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x017a}
0x1f39e…1f3c6               Head {h00=0x0024, h01=0x0050, text=» LDKL A10,0 RESET RECORD COUNTER«, t00=0x013f, t01=0x0184}
0x1f3c6…1f3fc               Head {h00=0x0032, h01=0x0050, text=» LD A6,APLTAB+STKCOM GET APLTAB+STKCOM ADDRESS«, t00=0x0140, t01=0x001c}
0x1f3fc…1f42a               Head {h00=0x002a, h01=0x0050, text=» ADK A6,ACBLEN+2 SKIP 1ST TABLE BLOCK «, t00=0x0140, t01=0x0052}
0x1f42a…1f452               Head {h00=0x0024, h01=0x0050, text=» CF A14,RDSEC READ FIRST SECTOR «, t00=0x0140, t01=0x0080}
0x1f452…1f478               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A9 GET START OF RECORD«, t00=0x0140, t01=0x00a8}
0x1f478…1f49c               Head {h00=0x0020, h01=0x0050, text=» LDR A8,A9 SAVE RECORD START«, t00=0x0140, t01=0x00ce}
0x1f49c…1f4a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0140, t01=0x00f2}
0x1f4a6…1f4ba               Head {h00=0x0010, h01=0x0050, text=»SCAN00 EQU *«, t00=0x0140, t01=0x00fc}
0x1f4ba…1f4e6               Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A4 GET FIRST WORD IN RECORD«, t00=0x0140, t01=0x0110}
0x1f4e6…1f518               Head {h00=0x002e, h01=0x0050, text=» CWK A1,'A;' APPLICATION DEFINITION BLOCK?«, t00=0x0140, t01=0x013c}
0x1f518…1f532               Head {h00=0x0016, h01=0x0050, text=» RF(NE) SCAN10 NO!«, t00=0x0140, t01=0x016e}
0x1f532…1f53c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0140, t01=0x0188}
0x1f53c…1f56a (321, 0, 400) Head {h00=0x002a, h01=0x0050, text=» CF A14,APLID YES GET APPLICATION NAME«, t00=0x0141, t01=0x0004}
0x1f56a…1f57e               Head {h00=0x0010, h01=0x0050, text=»SCAN10 EQU *«, t00=0x0141, t01=0x0032}
0x1f57e…1f5aa               Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x0141, t01=0x0046}
0x1f5aa…1f5d4               Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD?«, t00=0x0141, t01=0x0072}
0x1f5d4…1f5ee               Head {h00=0x0016, h01=0x0050, text=» RF(E) SCNEND YES!«, t00=0x0141, t01=0x009c}
0x1f5ee…1f5f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0141, t01=0x00b6}
0x1f5f8…1f62a               Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x0141, t01=0x00c0}
0x1f62a…1f656               Head {h00=0x0028, h01=0x0050, text=» CW A8,ECNFBF+STKEND OUTSIDE SECTOR?«, t00=0x0141, t01=0x00f2}
0x1f656…1f670               Head {h00=0x0016, h01=0x0050, text=» RF(NE) SCAN20 NO!«, t00=0x0141, t01=0x011e}
0x1f670…1f67a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0141, t01=0x0138}
0x1f67a…1f6a0               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDSEC READ NEXT SECTOR«, t00=0x0141, t01=0x0142}
0x1f6a0…1f6c8               Head {h00=0x0024, h01=0x0050, text=» LDR A8,A9 RESET RECORD ADDRESS «, t00=0x0141, t01=0x0168}
0x1f6c8…1f6dc               Head {h00=0x0010, h01=0x0050, text=»SCAN20 EQU *«, t00=0x0141, t01=0x0190}
0x1f6dc…1f700               Head {h00=0x0020, h01=0x0050, text=» LDR A4,A8 GET RECORD START «, t00=0x0142, t01=0x0014}
0x1f700…1f728               Head {h00=0x0024, h01=0x0050, text=» RB SCAN00 CONTINUE SCAN PROCESS«, t00=0x0142, t01=0x0038}
0x1f728…1f732               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0142, t01=0x0060}
0x1f732…1f75a               Head {h00=0x0024, h01=0x0050, text=»*  THE WHOLE CONFIGURATION FILE «, t00=0x0142, t01=0x006a}
0x1f75a…1f782               Head {h00=0x0024, h01=0x0050, text=»*  IS PROCESSED. SEARCH VTOC FOR«, t00=0x0142, t01=0x0092}
0x1f782…1f7a8               Head {h00=0x0022, h01=0x0050, text=»*  GIVEN FILE NAMES AND UPDATE«, t00=0x0142, t01=0x00ba}
0x1f7a8…1f7d4               Head {h00=0x0028, h01=0x0050, text=»*  APLTAB+STKCOM WITH CORRESPONDING «, t00=0x0142, t01=0x00e0}
0x1f7d4…1f7ee               Head {h00=0x0016, h01=0x0050, text=»*  DISC ADDRESSES.«, t00=0x0142, t01=0x010c}
0x1f7ee…1f7f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0142, t01=0x0126}
0x1f7f8…1f80c               Head {h00=0x0010, h01=0x0050, text=»SCNEND EQU *«, t00=0x0142, t01=0x0130}
0x1f80c…1f840               Head {h00=0x0030, h01=0x0050, text=» LD A1,IPLDEV+STKEND CONFIGURE PGM LOAD DEV.«, t00=0x0142, t01=0x0144}
0x1f840…1f856               Head {h00=0x0012, h01=0x0050, text=» CF A14,LODDEV«, t00=0x0142, t01=0x0178}
0x1f856…1f892               Head {h00=0x0038, h01=0x0050, text=» LD A6,APLTAB+STKCOM GET APLTAB+STKCOM START ADDRESS«, t00=0x0142, t01=0x018e}
0x1f892…1f8c0               Head {h00=0x002a, h01=0x0050, text=» ADK A6,ACBLEN+2 SKIP 1ST TABLE BLOCK «, t00=0x0143, t01=0x003a}
0x1f8c0…1f8f4               Head {h00=0x0030, h01=0x0050, text=» LD* A1,APLTAB+STKCOM GET NO OF APPLICATIONS«, t00=0x0143, t01=0x0068}
0x1f8f4…1f910               Head {h00=0x0018, h01=0x0050, text=» SUK A1,1 DECREMENT «, t00=0x0143, t01=0x009c}
0x1f910…1f938               Head {h00=0x0024, h01=0x0050, text=» RF(Z) RTRN ONLY ONE APPLICATION«, t00=0x0143, t01=0x00b8}
0x1f938…1f952               Head {h00=0x0016, h01=0x0050, text=» NGR A1,A1 NEGATE «, t00=0x0143, t01=0x00e0}
0x1f952…1f988               Head {h00=0x0032, h01=0x0050, text=» ST A1,APLCNT+STKEND AND SAVE AS APPL. COUNTER«, t00=0x0143, t01=0x00fa}
0x1f988…1f9b8               Head {h00=0x002c, h01=0x0050, text=» CF A14,GETAPL UPDATE APPLIC. DISC ADDR.«, t00=0x0143, t01=0x0130}
0x1f9b8…1f9c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0143, t01=0x0160}
0x1f9c2…1f9d4               Head {h00=0x000e, h01=0x0050, text=»RTRN EQU *«, t00=0x0143, t01=0x016a}
0x1f9d4…1f9f2               Head {h00=0x001a, h01=0x0050, text=» RTN A14 END OF SCNCON«, t00=0x0143, t01=0x017c}
0x1f9f2…1fa00               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0144, t01=0x000a}
0x1fa00…1fa36               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0144, t01=0x0018}
0x1fa36…1fa6c               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0144, t01=0x004e}
0x1fa6c…1faa2               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0144, t01=0x0084}
0x1faa2…1fad8               Head {h00=0x0032, h01=0x0050, text=»*                 APLID                     * «, t00=0x0144, t01=0x00ba}
0x1fad8…1fb0e               Head {h00=0x0032, h01=0x0050, text=»*                 =====                     * «, t00=0x0144, t01=0x00f0}
0x1fb0e…1fb44               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0144, t01=0x0126}
0x1fb44…1fb7a               Head {h00=0x0032, h01=0x0050, text=»*  APLID TAKES THE NAME OF APPLICATION      * «, t00=0x0144, t01=0x015c}
0x1fb7a…1fbb0 (325, 0, 400) Head {h00=0x0032, h01=0x0050, text=»*  AND MOVES IT FROM CONF. FILE TO          * «, t00=0x0145, t01=0x0004}
0x1fbb0…1fbec               Head {h00=0x0038, h01=0x0050, text=»*  APLTAB+STKCOM. FOR EACH APPLICATION A ENTRY     *«, t00=0x0145, t01=0x003a}
0x1fbec…1fc28               Head {h00=0x0038, h01=0x0050, text=»*  IN APLTAB+STKCOM IS CREATED ACCORDINGLY:        *«, t00=0x0145, t01=0x0076}
0x1fc28…1fc5e               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0145, t01=0x00b2}
0x1fc5e…1fc94               Head {h00=0x0032, h01=0x0050, text=»*       LENGTH OF NAME (BYTES)              * «, t00=0x0145, t01=0x00e8}
0x1fc94…1fcca               Head {h00=0x0032, h01=0x0050, text=»*       NAME                                * «, t00=0x0145, t01=0x011e}
0x1fcca…1fd00               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0145, t01=0x0154}
0x1fd00…1fd36               Head {h00=0x0032, h01=0x0050, text=»*  THE NAME ENTRY CONSISTS OF 1-4 WORDS     * «, t00=0x0145, t01=0x018a}
0x1fd36…1fd6c               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0146, t01=0x0030}
0x1fd6c…1fda8               Head {h00=0x0038, h01=0x0050, text=»*  ENTRY: A6 POINTER INTO APLTAB+STKCOM            *«, t00=0x0146, t01=0x0066}
0x1fda8…1fdde               Head {h00=0x0032, h01=0x0050, text=»*         A8 RECORD POINTER                 * «, t00=0x0146, t01=0x00a2}
0x1fdde…1fe14               Head {h00=0x0032, h01=0x0050, text=»*         A10 RECORD COUNTER                * «, t00=0x0146, t01=0x00d8}
0x1fe14…1fe4a               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0146, t01=0x010e}
0x1fe4a…1fe80               Head {h00=0x0032, h01=0x0050, text=»*  WORK REGISTERS: A1-A5                    * «, t00=0x0146, t01=0x0144}
0x1fe80…1feb6               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0146, t01=0x017a}
0x1feb6…1feec               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0147, t01=0x0020}
0x1feec…1fef6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x0056}
0x1fef6…1ff00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x0060}
0x1ff00…1ff14               Head {h00=0x0010, h01=0x0050, text=»APLID EQU * «, t00=0x0147, t01=0x006a}
0x1ff14…1ff40               Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x0147, t01=0x007e}
0x1ff40…1ff6a               Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD «, t00=0x0147, t01=0x00aa}
0x1ff6a…1ffa2               Head {h00=0x0034, h01=0x0050, text=» ABL(E) CONERR YES! ERROR IN CONFIGURATION FILE «, t00=0x0147, t01=0x00d4}
0x1ffa2…1ffac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x010c}
0x1ffac…1ffde               Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x0147, t01=0x0116}
0x1ffde…2000a               Head {h00=0x0028, h01=0x0050, text=» CW A8,ECNFBF+STKEND OUTSIDE SECTOR?«, t00=0x0147, t01=0x0148}
0x2000a…20024               Head {h00=0x0016, h01=0x0050, text=» RF(NE) APLID0 NO!«, t00=0x0147, t01=0x0174}
0x20024…2002e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x018e}
0x2002e…20054               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDSEC READ NEXT SECTOR«, t00=0x0148, t01=0x0008}
0x20054…20078               Head {h00=0x0020, h01=0x0050, text=» LDR A8,A9 GET RECORD START «, t00=0x0148, t01=0x002e}
0x20078…2008c               Head {h00=0x0010, h01=0x0050, text=»APLID0 EQU *«, t00=0x0148, t01=0x0052}
0x2008c…200ac               Head {h00=0x001c, h01=0x0050, text=» LDR A4,A8 RECORD START «, t00=0x0148, t01=0x0066}
0x200ac…200d6               Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 RESET CHARACTER COUNTER «, t00=0x0148, t01=0x0086}
0x200d6…200ea               Head {h00=0x0010, h01=0x0050, text=»APLID2 EQU *«, t00=0x0148, t01=0x00b0}
0x200ea…2010a               Head {h00=0x001c, h01=0x0050, text=» LCR A1,A4 GET CHARACTER«, t00=0x0148, t01=0x00c4}
0x2010a…20134               Head {h00=0x0026, h01=0x0050, text=» CCK A1,';;' DELIMITER CHARACTER? «, t00=0x0148, t01=0x00e4}
0x20134…2015a               Head {h00=0x0022, h01=0x0050, text=» RF(E) APLID4 YES! END OF NAME«, t00=0x0148, t01=0x010e}
0x2015a…20164               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0148, t01=0x0134}
0x20164…20192               Head {h00=0x002a, h01=0x0050, text=» ADK A4,1 INCREMENT CHARACTER POINTER «, t00=0x0148, t01=0x013e}
0x20192…201be               Head {h00=0x0028, h01=0x0050, text=» ADK A5,1 INCREMENT CHARACTER COUNT «, t00=0x0148, t01=0x016c}
0x201be…201e8               Head {h00=0x0026, h01=0x0050, text=» CWK A5,NCHAID END OF THIS RECORD?«, t00=0x0149, t01=0x0008}
0x201e8…20214               Head {h00=0x0028, h01=0x0050, text=» RB(NE) APLID2 NO GET NEXT CHARACTER«, t00=0x0149, t01=0x0032}
0x20214…2021e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0149, t01=0x005e}
0x2021e…20244               Head {h00=0x0022, h01=0x0050, text=»*  END OF NAME RECORD, LOOK IF«, t00=0x0149, t01=0x0068}
0x20244…2026c               Head {h00=0x0024, h01=0x0050, text=»*  NEXT CHARACTER IS A DELIMITER«, t00=0x0149, t01=0x008e}
0x2026c…20276               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0149, t01=0x00b6}
0x20276…20288               Head {h00=0x000e, h01=0x0050, text=» LCR A1,A4«, t00=0x0149, t01=0x00c0}
0x20288…2029c               Head {h00=0x0010, h01=0x0050, text=» CCK A1,';;'«, t00=0x0149, t01=0x00d2}
0x2029c…202d6               Head {h00=0x0036, h01=0x0050, text=» ABL(NE) CONERR NO DELIMITER, ERROR IN CONF. FILE «, t00=0x0149, t01=0x00e6}
0x202d6…202e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0149, t01=0x0120}
0x202e0…202f4               Head {h00=0x0010, h01=0x0050, text=»APLID4 EQU *«, t00=0x0149, t01=0x012a}
0x202f4…20306               Head {h00=0x000e, h01=0x0050, text=» ADK A5,0 «, t00=0x0149, t01=0x013e}
0x20306…20338               Head {h00=0x002e, h01=0x0050, text=» ABL(Z) CONERR NO LEGAL CHARACTER IN NAME «, t00=0x0149, t01=0x0150}
0x20338…20342               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0149, t01=0x0182}
0x20342…20366               Head {h00=0x0020, h01=0x0050, text=» LDR A3,A6 SAVE BLOCK START «, t00=0x0149, t01=0x018c}
0x20366…2039a               Head {h00=0x0030, h01=0x0050, text=» STR A5,A3 SAVE NAME LENGTH IN APLTAB+STKCOM«, t00=0x014a, t01=0x0020}
0x2039a…203cc               Head {h00=0x002e, h01=0x0050, text=» IM* APLTAB+STKCOM INCREMENT NO OF APPLIC.«, t00=0x014a, t01=0x0054}
0x203cc…203f8               Head {h00=0x0028, h01=0x0050, text=» LDR A4,A8 GET START OF NAME RECORD «, t00=0x014a, t01=0x0086}
0x203f8…20424               Head {h00=0x0028, h01=0x0050, text=» ADK A5,1 INCREMENT CHARACTER COUNT «, t00=0x014a, t01=0x00b2}
0x20424…2044a               Head {h00=0x0022, h01=0x0050, text=» SRA A5,1 AND MAKE WORD COUNT «, t00=0x014a, t01=0x00de}
0x2044a…20454               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014a, t01=0x0104}
0x20454…20468               Head {h00=0x0010, h01=0x0050, text=»APLID6 EQU *«, t00=0x014a, t01=0x010e}
0x20468…20490               Head {h00=0x0024, h01=0x0050, text=» ADK A3,2 ADVANCE TABLE POINTER «, t00=0x014a, t01=0x0122}
0x20490…204be               Head {h00=0x002a, h01=0x0050, text=» LDR* A1,A4 MOVE 2 CHARACTERS OF NAME «, t00=0x014a, t01=0x014a}
0x204be…204e2               Head {h00=0x0020, h01=0x0050, text=» STR A1,A3 TO APLTAB+STKCOM «, t00=0x014a, t01=0x0178}
0x204e2…2050e               Head {h00=0x0028, h01=0x0050, text=» ADK A4,2 ADVANCE CHARACTER POINTER «, t00=0x014b, t01=0x000c}
0x2050e…20534               Head {h00=0x0022, h01=0x0050, text=» SUK A5,1 DECREMENT WORD COUNT«, t00=0x014b, t01=0x0038}
0x20534…20562               Head {h00=0x002a, h01=0x0050, text=» RB(P) APLID6 MORE CHARACTERS TO MOVE «, t00=0x014b, t01=0x005e}
0x20562…2056c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014b, t01=0x008c}
0x2056c…205a0               Head {h00=0x0030, h01=0x0050, text=» ADK A6,ACBLEN PREPARE FOR NEXT TABLE ENTRY «, t00=0x014b, t01=0x0096}
0x205a0…205bc               Head {h00=0x0018, h01=0x0050, text=» RTN A14 NO, RETURN «, t00=0x014b, t01=0x00ca}
0x205bc…205ca               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x014b, t01=0x00e6}
0x205ca…20600               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x014b, t01=0x00f4}
0x20600…20636               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x014b, t01=0x012a}
0x20636…2066c               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x014b, t01=0x0160}
0x2066c…206a2               Head {h00=0x0032, h01=0x0050, text=»*              GETAPL                       * «, t00=0x014c, t01=0x0008}
0x206a2…206d8               Head {h00=0x0032, h01=0x0050, text=»*              ======                       * «, t00=0x014c, t01=0x003e}
0x206d8…2070e               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x014c, t01=0x0074}
0x2070e…20744               Head {h00=0x0032, h01=0x0050, text=»*  SCANS VTOC FOR FILE NAMES LISTED IN      * «, t00=0x014c, t01=0x00aa}
0x20744…20788               Head {h00=0x0040, h01=0x0050, text=»*  APLTAB+STKCOM. APLTAB+STKCOM IS UPDATED WITH CORRE-    * «, t00=0x014c, t01=0x00e0}
0x20788…207be               Head {h00=0x0032, h01=0x0050, text=»*  SPONDING DISC ADDRESSE AND THE LENGTH    * «, t00=0x014c, t01=0x0124}
0x207be…207fa               Head {h00=0x0038, h01=0x0050, text=»*  OF APLTAB+STKCOM IS THEN USED TO CALCULATE      *«, t00=0x014c, t01=0x015a}
0x207fa…20830               Head {h00=0x0032, h01=0x0050, text=»*  START OF FREE AREA.                      * «, t00=0x014d, t01=0x0008}
0x20830…20866               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x014d, t01=0x003e}
0x20866…208a2               Head {h00=0x0038, h01=0x0050, text=»*  ENTRY: A6 - 1ST ENTRY IN APLTAB+STKCOM          *«, t00=0x014d, t01=0x0074}
0x208a2…208e6               Head {h00=0x0040, h01=0x0050, text=»*         APLCNT+STKEND - NO OF ENTRIES IN APLTAB+STKCOM  * «, t00=0x014d, t01=0x00b0}
0x208e6…2091c               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x014d, t01=0x00f4}
0x2091c…20952               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x014d, t01=0x012a}
0x20952…2095c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014d, t01=0x0160}
0x2095c…20966               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014d, t01=0x016a}
0x20966…2097a               Head {h00=0x0010, h01=0x0050, text=»GETAPL EQU *«, t00=0x014d, t01=0x0174}
0x2097a…209a2               Head {h00=0x0024, h01=0x0050, text=» CF A14,GETVLB READ VOLUME LABEL«, t00=0x014d, t01=0x0188}
0x209a2…209b6               Head {h00=0x0010, h01=0x0050, text=»GETAP0 EQU *«, t00=0x014e, t01=0x0020}
0x209b6…209d8               Head {h00=0x001e, h01=0x0050, text=» CF A14,RDSEC READ SECTOR «, t00=0x014e, t01=0x0034}
0x209d8…20a04               Head {h00=0x0028, h01=0x0050, text=» LDK A7,QBLFAC VTOC BLOCKING FACTOR «, t00=0x014e, t01=0x0056}
0x20a04…20a2a               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A9 GET START OF RECORD«, t00=0x014e, t01=0x0082}
0x20a2a…20a3e               Head {h00=0x0010, h01=0x0050, text=»GETAP2 EQU *«, t00=0x014e, t01=0x00a8}
0x20a3e…20a6a               Head {h00=0x0028, h01=0x0050, text=» LDR* A5,A6 GET LENGTH OF APPL. NAME«, t00=0x014e, t01=0x00bc}
0x20a6a…20a8e               Head {h00=0x0020, h01=0x0050, text=» LDR A3,A4 SAVE RECORD START«, t00=0x014e, t01=0x00e8}
0x20a8e…20ab2               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 AND TABLE POINTER«, t00=0x014e, t01=0x010c}
0x20ab2…20ada               Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 SKIP NO OF CHAR. ENTRY«, t00=0x014e, t01=0x0130}
0x20ada…20b0c               Head {h00=0x002e, h01=0x0050, text=» LCR A2,A4 GET 1ST CHARACTER IN FILE NAME «, t00=0x014e, t01=0x0158}
0x20b0c…20b2a               Head {h00=0x001a, h01=0x0050, text=» CCK A2,/2020 UNUSED? «, t00=0x014e, t01=0x018a}
0x20b2a…20b44               Head {h00=0x0016, h01=0x0050, text=» RF(E) GETAP4 YES!«, t00=0x014f, t01=0x0018}
0x20b44…20b4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x0032}
0x20b4e…20b74               Head {h00=0x0022, h01=0x0050, text=» CF A14,CMPSYM COMPARE SYMBOLS«, t00=0x014f, t01=0x003c}
0x20b74…20b86               Head {h00=0x000e, h01=0x0050, text=» ADK A5,0 «, t00=0x014f, t01=0x0062}
0x20b86…20ba0               Head {h00=0x0016, h01=0x0050, text=» RF(Z) FOUND EQUAL«, t00=0x014f, t01=0x0074}
0x20ba0…20baa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x008e}
0x20baa…20bd2               Head {h00=0x0024, h01=0x0050, text=»*  NO MATCH, TRY NEXT VTOC ENTRY«, t00=0x014f, t01=0x0098}
0x20bd2…20bdc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x00c0}
0x20bdc…20bf0               Head {h00=0x0010, h01=0x0050, text=»GETAP4 EQU *«, t00=0x014f, t01=0x00ca}
0x20bf0…20c12               Head {h00=0x001e, h01=0x0050, text=» ADR A4,A8 GET NEXT RECORD«, t00=0x014f, t01=0x00de}
0x20c12…20c3c               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 BYPASS STATUS CHARACTER «, t00=0x014f, t01=0x0100}
0x20c3c…20c6a               Head {h00=0x002a, h01=0x0050, text=» SUK A7,1 MORE RECORDS IN THIS SECTOR «, t00=0x014f, t01=0x012a}
0x20c6a…20c84               Head {h00=0x0016, h01=0x0050, text=» RB(P) GETAP2 YES!«, t00=0x014f, t01=0x0158}
0x20c84…20c8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x0172}
0x20c8e…20cb4               Head {h00=0x0022, h01=0x0050, text=» CWR A11,A10 LAST VTOC SECTOR?«, t00=0x014f, t01=0x017c}
0x20cb4…20cde               Head {h00=0x0026, h01=0x0050, text=» ABL(E) CONERR ERROR IN CONF. FILE«, t00=0x0150, t01=0x0012}
0x20cde…20ce8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0150, t01=0x003c}
0x20ce8…20cfa               Head {h00=0x000e, h01=0x0050, text=» RB GETAP0«, t00=0x0150, t01=0x0046}
0x20cfa…20d04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0150, t01=0x0058}
0x20d04…20d18               Head {h00=0x0010, h01=0x0050, text=»FOUND EQU * «, t00=0x0150, t01=0x0062}
0x20d18…20d40               Head {h00=0x0024, h01=0x0050, text=» LDK A2,'L' LOAD FILE CHARACTER «, t00=0x0150, t01=0x0076}
0x20d40…20d60               Head {h00=0x001c, h01=0x0050, text=» CC A2,27,A4 LOAD FILE? «, t00=0x0150, t01=0x009e}
0x20d60…20d8e               Head {h00=0x002a, h01=0x0050, text=» ABL(NE) CONERR NO ERROR IN CONF. FILE«, t00=0x0150, t01=0x00be}
0x20d8e…20d98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0150, t01=0x00ec}
0x20d98…20dca               Head {h00=0x002e, h01=0x0050, text=» LD A2,16,A4 GET DISC ADDRESS (BITS 0-15) «, t00=0x0150, t01=0x00f6}
0x20dca…20df8               Head {h00=0x002a, h01=0x0050, text=» ST A2,APLADA,A6 SAVE IN APLTAB+STKCOM«, t00=0x0150, t01=0x0128}
0x20df8…20e2a               Head {h00=0x002e, h01=0x0050, text=» LD A2,18,A4 GET DISC ADDRESS (BITS 16-31)«, t00=0x0150, t01=0x0156}
0x20e2a…20e5e               Head {h00=0x0030, h01=0x0050, text=» ST A2,APLADA+2,A6 AND SAVE IN APLTAB+STKCOM«, t00=0x0150, t01=0x0188}
0x20e5e…20e90               Head {h00=0x002e, h01=0x0050, text=» ADK A6,ACBLEN ADVANCE TO NEXT TABLE BLOCK«, t00=0x0151, t01=0x002c}
0x20e90…20e9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0151, t01=0x005e}
0x20e9a…20ed0               Head {h00=0x0032, h01=0x0050, text=» IM APLCNT+STKEND INCREMENT APPLICATION COUNT «, t00=0x0151, t01=0x0068}
0x20ed0…20ef2               Head {h00=0x001e, h01=0x0050, text=» RB(NZ) GETAPL MORE TO DO!«, t00=0x0151, t01=0x009e}
0x20ef2…20efc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0151, t01=0x00c0}
0x20efc…20f1a               Head {h00=0x001a, h01=0x0050, text=» RTN A14 END OF GETAPL«, t00=0x0151, t01=0x00ca}
0x20f1a…20f28               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0151, t01=0x00e8}
0x20f28…20f5e               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0151, t01=0x00f6}
0x20f5e…20f94               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0151, t01=0x012c}
0x20f94…20fca               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0151, t01=0x0162}
0x20fca…21000               Head {h00=0x0032, h01=0x0050, text=»*            CMPSYM                         * «, t00=0x0152, t01=0x0008}
0x21000…21036               Head {h00=0x0032, h01=0x0050, text=»*            ======                         * «, t00=0x0152, t01=0x003e}
0x21036…2106c               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0152, t01=0x0074}
0x2106c…210a2               Head {h00=0x0032, h01=0x0050, text=»*  COMPARE TWO SYMBOLS WITH EACH OTHER      * «, t00=0x0152, t01=0x00aa}
0x210a2…210d8               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0152, t01=0x00e0}
0x210d8…2110e               Head {h00=0x0032, h01=0x0050, text=»*  ENTRY: A3 - START OF SYMBOL 1            * «, t00=0x0152, t01=0x0116}
0x2110e…21144               Head {h00=0x0032, h01=0x0050, text=»*         A1 - START OF SYMBOL 2            * «, t00=0x0152, t01=0x014c}
0x21144…2117a               Head {h00=0x0032, h01=0x0050, text=»*         A5 - LENGTH OF SYMBOL 2           * «, t00=0x0152, t01=0x0182}
0x2117a…211b0               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0153, t01=0x0028}
0x211b0…211e6               Head {h00=0x0032, h01=0x0050, text=»*  EXIT:  A5 = 0 IF SYMBOLS EQUAL           * «, t00=0x0153, t01=0x005e}
0x211e6…2121c               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0153, t01=0x0094}
0x2121c…21252               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0153, t01=0x00ca}
0x21252…2125c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x0100}
0x2125c…21266               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x010a}
0x21266…2127a               Head {h00=0x0010, h01=0x0050, text=»CMPSYM EQU *«, t00=0x0153, t01=0x0114}
0x2127a…212a6               Head {h00=0x0028, h01=0x0050, text=» LCR A2,A3 GET CHARACTER IN SYMBOL 1«, t00=0x0153, t01=0x0128}
0x212a6…212dc               Head {h00=0x0032, h01=0x0050, text=» CCR A2,A1 COMPARE WITH CHARACTER IN SYMBOL 2 «, t00=0x0153, t01=0x0154}
0x212dc…21308               Head {h00=0x0028, h01=0x0050, text=» RF(NE) CMPEND IF NOT EQUAL, RETURN «, t00=0x0153, t01=0x018a}
0x21308…21312               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x0026}
0x21312…2133e               Head {h00=0x0028, h01=0x0050, text=» ADK A3,1 ADVANCE CHARACTER POINTERS«, t00=0x0154, t01=0x0030}
0x2133e…21350               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0154, t01=0x005c}
0x21350…2137c               Head {h00=0x0028, h01=0x0050, text=» SUK A5,1 DECREMENT CHARACTER COUNT «, t00=0x0154, t01=0x006e}
0x2137c…213ac               Head {h00=0x002c, h01=0x0050, text=» RB(NZ) CMPSYM CONTINUE THE COMPARISION «, t00=0x0154, t01=0x009a}
0x213ac…213b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x00ca}
0x213b6…213de               Head {h00=0x0024, h01=0x0050, text=» LDR* A2,A6 RESTORE NAME LENGTH «, t00=0x0154, t01=0x00d4}
0x213de…21404               Head {h00=0x0022, h01=0x0050, text=» CWK A2,8 LOOK IF MAX. LENGTH «, t00=0x0154, t01=0x00fc}
0x21404…21428               Head {h00=0x0020, h01=0x0050, text=» RF(E) CMPEND YES! FINISHED «, t00=0x0154, t01=0x0122}
0x21428…21432               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x0146}
0x21432…21464               Head {h00=0x002e, h01=0x0050, text=» LCR A2,A3 GET NEXT CHARACTER IN FILE NAME«, t00=0x0154, t01=0x0150}
0x21464…2148c               Head {h00=0x0024, h01=0x0050, text=» CCK A2,/2020 END OF FILE NAME? «, t00=0x0154, t01=0x0182}
0x2148c…214a6               Head {h00=0x0016, h01=0x0050, text=» RF(E) CMPEND YES!«, t00=0x0155, t01=0x001a}
0x214a6…214b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0155, t01=0x0034}
0x214b0…214d0               Head {h00=0x001c, h01=0x0050, text=» LDK A5,1 NO, NOT EQUAL!«, t00=0x0155, t01=0x003e}
0x214d0…214e4               Head {h00=0x0010, h01=0x0050, text=»CMPEND EQU *«, t00=0x0155, t01=0x005e}
0x214e4…21502               Head {h00=0x001a, h01=0x0050, text=» RTN A14 END OF CMPSYM«, t00=0x0155, t01=0x0072}
0x21502…21510               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0155, t01=0x0090}
0x21510…21546               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0155, t01=0x009e}
0x21546…2157c               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0155, t01=0x00d4}
0x2157c…215b2               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0155, t01=0x010a}
0x215b2…215e8               Head {h00=0x0032, h01=0x0050, text=»*               GETVLB                      * «, t00=0x0155, t01=0x0140}
0x215e8…2161e               Head {h00=0x0032, h01=0x0050, text=»*               ======                      * «, t00=0x0155, t01=0x0176}
0x2161e…21654               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0156, t01=0x001c}
0x21654…2168a               Head {h00=0x0032, h01=0x0050, text=»*  READ SECTOR CONTAINIG VOLUME LABEL       * «, t00=0x0156, t01=0x0052}
0x2168a…216c0               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0156, t01=0x0088}
0x216c0…216f6               Head {h00=0x0032, h01=0x0050, text=»*  EXIT: A10 - LAST VTOC SECTOR             * «, t00=0x0156, t01=0x00be}
0x216f6…2172c               Head {h00=0x0032, h01=0x0050, text=»*        A11 - FIRST VTOC SECTOR            * «, t00=0x0156, t01=0x00f4}
0x2172c…21762               Head {h00=0x0032, h01=0x0050, text=»*        A8  - VTOC RECORD LENGTH           * «, t00=0x0156, t01=0x012a}
0x21762…21798               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0156, t01=0x0160}
0x21798…217ce               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0157, t01=0x0008}
0x217ce…217d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0157, t01=0x003e}
0x217d8…217e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0157, t01=0x0048}
0x217e2…217f6               Head {h00=0x0010, h01=0x0050, text=»GETVLB EQU *«, t00=0x0157, t01=0x0052}
0x217f6…21818               Head {h00=0x001e, h01=0x0050, text=» SUR A11,A11 VOLUME LABEL «, t00=0x0157, t01=0x0066}
0x21818…2182c               Head {h00=0x0010, h01=0x0050, text=» SUR A12,A12«, t00=0x0157, t01=0x0088}
0x2182c…21852               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDSEC GET VOLUME LABEL«, t00=0x0157, t01=0x009c}
0x21852…21876               Head {h00=0x0020, h01=0x0050, text=» LD A10,10,A9 GET VTOC BASE «, t00=0x0157, t01=0x00c2}
0x21876…21890               Head {h00=0x0016, h01=0x0050, text=» LDR A11,A10 SAVE «, t00=0x0157, t01=0x00e6}
0x21890…218b6               Head {h00=0x0022, h01=0x0050, text=» AD A10,6,A9 LAST VTOC SECTOR «, t00=0x0157, t01=0x0100}
0x218b6…218e2               Head {h00=0x0028, h01=0x0050, text=» LD A8,12,A9 GET VTOC RECORD LENGTH «, t00=0x0157, t01=0x0126}
0x218e2…21914               Head {h00=0x002e, h01=0x0050, text=» AD A11,46,A9 FIRST FILE SECTOR IN VTOC =7«, t00=0x0157, t01=0x0152}
0x21914…21932               Head {h00=0x001a, h01=0x0050, text=» RTN A14 END OF GETVLB«, t00=0x0157, t01=0x0184}
0x21932…2193c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0158, t01=0x0012}
0x2193c…2194a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0158, t01=0x001c}
0x2194a…21980               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0158, t01=0x002a}
0x21980…219b6               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0158, t01=0x0060}
0x219b6…219ec               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0158, t01=0x0096}
0x219ec…21a22               Head {h00=0x0032, h01=0x0050, text=»*                  RDSEC                    * «, t00=0x0158, t01=0x00cc}
0x21a22…21a58               Head {h00=0x0032, h01=0x0050, text=»*                  =====                    * «, t00=0x0158, t01=0x0102}
0x21a58…21a8e               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0158, t01=0x0138}
0x21a8e…21ac4               Head {h00=0x0032, h01=0x0050, text=»*  READS A SECTOR FROM INPUT DISC.          * «, t00=0x0158, t01=0x016e}
0x21ac4…21afa               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0159, t01=0x0014}
0x21afa…21b30               Head {h00=0x0032, h01=0x0050, text=»*  ENTRY: A9 - BUFFER ADDRESS               * «, t00=0x0159, t01=0x004a}
0x21b30…21b66               Head {h00=0x0032, h01=0x0050, text=»*         A11- SECTOR ADDRESS               * «, t00=0x0159, t01=0x0080}
0x21b66…21b9c               Head {h00=0x0032, h01=0x0050, text=»*         A12- SECTOR ADDRESS               * «, t00=0x0159, t01=0x00b6}
0x21b9c…21bd2               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0159, t01=0x00ec}
0x21bd2…21c08               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0159, t01=0x0122}
0x21c08…21c12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0159, t01=0x0158}
0x21c12…21c1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0159, t01=0x0162}
0x21c1c…21c30               Head {h00=0x0010, h01=0x0050, text=»RDSEC EQU * «, t00=0x0159, t01=0x016c}
0x21c30…21c56               Head {h00=0x0022, h01=0x0050, text=» CF A14,READS MODIFIED ADDRESS«, t00=0x0159, t01=0x0180}
0x21c56…21c6c               Head {h00=0x0012, h01=0x0050, text=»READS EQU *-2 «, t00=0x015a, t01=0x0016}
0x21c6c…21c7c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x015a, t01=0x002c}
0x21c7c…21c8a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x015a, t01=0x003c}
0x21c8a…21c94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x004a}
0x21c94…21cb4               Head {h00=0x001c, h01=0x0050, text=»*  DATA AREA DEFINITION «, t00=0x015a, t01=0x0054}
0x21cb4…21cbe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x0074}
0x21cbe…21cd2               Head {h00=0x0010, h01=0x0050, text=»SYSBAS EQU *«, t00=0x015a, t01=0x007e}
0x21cd2…21cec               Head {h00=0x0016, h01=0x0050, text=»SAVCON DATA BUFLEN«, t00=0x015a, t01=0x0092}
0x21cec…21d22               Head {h00=0x0032, h01=0x0050, text=»MXBUF DATA 0 DISC/FLEXIBLE DISC BUFFER ADDRESS«, t00=0x015a, t01=0x00ac}
0x21d22…21d42               Head {h00=0x001c, h01=0x0050, text=»SAVMEM DATA 0 SAVE AREA «, t00=0x015a, t01=0x00e2}
0x21d42…21d6c               Head {h00=0x0026, h01=0x0050, text=»CYLNBR DATA /FFFF CYLINDER NUMBER «, t00=0x015a, t01=0x0102}
0x21d6c…21d98               Head {h00=0x0028, h01=0x0050, text=»SECNBR DATA 0 PHYSICAL SECTOR NUMBER«, t00=0x015a, t01=0x012c}
0x21d98…21db2               Head {h00=0x0016, h01=0x0050, text=» IFT CDDISC=1  =9 «, t00=0x015a, t01=0x0158}
0x21db2…21dcc               Head {h00=0x0016, h01=0x0050, text=» IFT CDDI16=0  =9 «, t00=0x015a, t01=0x0172}
0x21dcc…21dfa               Head {h00=0x002a, h01=0x0050, text=»DEVTAB DATA 0,/1909,/3717,/2808,/1404 «, t00=0x015a, t01=0x018c}
0x21dfa…21e0c               Head {h00=0x000e, h01=0x0050, text=» XIF   =9 «, t00=0x015b, t01=0x002a}
0x21e0c…21e2c               Head {h00=0x001c, h01=0x0050, text=» IFF CDDISC-CDDI16=1  =9«, t00=0x015b, t01=0x003c}
0x21e2c…21e5c               Head {h00=0x002c, h01=0x0050, text=»DEVTAB DATA 0,/1909,/3717,/2808,/5717 =9«, t00=0x015b, t01=0x005c}
0x21e5c…21e6e               Head {h00=0x000e, h01=0x0050, text=» XIF   =9 «, t00=0x015b, t01=0x008c}
0x21e6e…21e96               Head {h00=0x0024, h01=0x0050, text=»SWPTAB DATA '$S','WA','P ','  ' «, t00=0x015b, t01=0x009e}
0x21e96…21eac               Head {h00=0x0012, h01=0x0050, text=»FCTAB EQU * =5«, t00=0x015b, t01=0x00c6}
0x21eac…21eca               Head {h00=0x001a, h01=0x0050, text=» DATA /F1F3,/F0F2  =5 «, t00=0x015b, t01=0x00dc}
0x21eca…21ed4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015b, t01=0x00fa}
0x21ed4…21ee8               Head {h00=0x0010, h01=0x0050, text=» END SYSLOD «, t00=0x015b, t01=0x0104}
0x21ee8…21eec               Head {h00=0x4004, h01=0x0000}
0x21eec…21ef0               01 5b 01 18                                                                                                                                                                                                                                       ┆ [  ┆
0x21ef0…21ef8 (348, 1, 8)   20 04 00 00 01 5c 00 04                                                                                                                                                                                                                           ┆        ┆

DataMuseum.dk

Philips Data Systems

⟦2b7a1d0bf⟧

Derivation

PTS(SC)

HexDump

Reduced view