⟦53eefe75b⟧

PTS(SC)

	IDENT SYSLOD 	REL 11.0 83-08-24 870105041100 

			DK, LINE 1771, FIX FOR TID=X:
			=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	0	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!
**
*	TEMP FIX FOR TASK ID =X:
* 
	CCK	A5,/5A5A	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 83-08-24 870105041100 «, t00=0x0000, t01=0x0004}
0x00036…0003e               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x0003e…00066               Head {h00=0x0024, h01=0x0050, text=»   DK, LINE 1771, FIX FOR TID=X:«, t00=0x0000, t01=0x0042}
0x00066…00092               Head {h00=0x0028, h01=0x0050, text=»   =12,COND. ASSEMBLY EDM INTRODUCED«, t00=0x0000, t01=0x006a}
0x00092…000b2               Head {h00=0x001c, h01=0x0050, text=»   =12,REL 11.0 81-05-19«, t00=0x0000, t01=0x0096}
0x000b2…000e0               Head {h00=0x002a, h01=0x0050, text=»   =11,ERROR IN READ ROUT. FOR 16M,80M«, t00=0x0000, t01=0x00b6}
0x000e0…00100               Head {h00=0x001c, h01=0x0050, text=»   =11,REL 11.0 81-05-11«, t00=0x0000, t01=0x00e4}
0x00100…00130               Head {h00=0x002c, h01=0x0050, text=»   =10,TWO WORDS IN INTERRUPT TABLE ARE «, t00=0x0000, t01=0x0104}
0x00130…00148               Head {h00=0x0014, h01=0x0050, text=»   =10,DESTROYED«, t00=0x0000, t01=0x0134}
0x00148…00168               Head {h00=0x001c, h01=0x0050, text=»   =10,REL 11.0 81-04-08«, t00=0x0000, t01=0x014c}
0x00168…00194               Head {h00=0x0028, h01=0x0050, text=»   =9,NEW CONTROL UNIT 16M,80M DISC «, t00=0x0000, t01=0x016c}
0x00194…001b4               Head {h00=0x001c, h01=0x0050, text=»   =9,REL 11.0 81-04-06 «, t00=0x0001, t01=0x0008}
0x001b4…001ea               Head {h00=0x0032, h01=0x0050, text=»   =8,WHEN CFTEST=1 TEST ALSO RWSI CONNECTION «, t00=0x0001, t01=0x0028}
0x001ea…0020a               Head {h00=0x001c, h01=0x0050, text=»   =8,REL 11.0 81-03-31 «, t00=0x0001, t01=0x005e}
0x0020a…00232               Head {h00=0x0024, h01=0x0050, text=»   =7,WRONG VTOC-SECTOR POINTER «, t00=0x0001, t01=0x007e}
0x00232…00252               Head {h00=0x001c, h01=0x0050, text=»   =7,REL 11.0 81-03-12 «, t00=0x0001, t01=0x00a6}
0x00252…00280               Head {h00=0x002a, h01=0x0050, text=»   =6,DC BLOCK DESTROYED WHEN CFTEST=0«, t00=0x0001, t01=0x00c6}
0x00280…002a0               Head {h00=0x001c, h01=0x0050, text=»   =6,REL 11.0 81-02-06 «, t00=0x0001, t01=0x00f4}
0x002a0…002d6               Head {h00=0x0032, h01=0x0050, text=»   =5,SUPPORTS LOADING FROM TWO HARDDISC UNITS«, t00=0x0001, t01=0x0114}
0x002d6…002f6               Head {h00=0x001c, h01=0x0050, text=»   =5,REL 11.0 81-01-29 «, t00=0x0001, t01=0x014a}
0x002f6…00318               Head {h00=0x001e, h01=0x0050, text=»   =4,FLOPPY MUX CORRECTED«, t00=0x0001, t01=0x016a}
0x00318…00338               Head {h00=0x001c, h01=0x0050, text=»   =4,REL 11.0 81-01-26 «, t00=0x0001, t01=0x018c}
0x00338…00362               Head {h00=0x0026, h01=0x0050, text=»   =3,IF 256 KBYTE MEMORY OVERFLOW«, t00=0x0002, t01=0x001c}
0x00362…00390               Head {h00=0x002a, h01=0x0050, text=»   =3,WILL OCCUR IN SEGMENT ALLOCATION«, t00=0x0002, t01=0x0046}
0x00390…003b0               Head {h00=0x001c, h01=0x0050, text=»   =3,PRR 11.0 80-12-03 «, t00=0x0002, t01=0x0074}
0x003b0…003e4               Head {h00=0x0030, h01=0x0050, text=»   =2,LOOK IF APPL. TYPE ALLOWED IN MONITOR «, t00=0x0002, t01=0x0094}
0x003e4…00418               Head {h00=0x0030, h01=0x0050, text=»   =2,REDESIGNED SEGMENT ALLOCATION ALGORITM«, t00=0x0002, t01=0x00c8}
0x00418…00438               Head {h00=0x001c, h01=0x0050, text=»   =2,PRR 11.0 80-11-20 «, t00=0x0002, t01=0x00fc}
0x00438…00466               Head {h00=0x002a, h01=0x0050, text=»   =1,MXSTAB ADDR. NOT REL IF CFTEST=0«, t00=0x0002, t01=0x011c}
0x00466…00486               Head {h00=0x001c, h01=0x0050, text=»   =1,PRR 11.0 80-11-19 «, t00=0x0002, t01=0x014a}
0x00486…0049c               Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSLOD «, t00=0x0002, t01=0x016a}
0x0049c…004b2               Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSBAS «, t00=0x0002, t01=0x0180}
0x004b2…004c8               Head {h00=0x0012, h01=0x0050, text=» ENTRY NUMSEG «, t00=0x0003, t01=0x0008}
0x004c8…004de               Head {h00=0x0012, h01=0x0050, text=» ENTRY PRGLG1 «, t00=0x0003, t01=0x001e}
0x004de…004f4               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLADA «, t00=0x0003, t01=0x0034}
0x004f4…0050a               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLLAC «, t00=0x0003, t01=0x004a}
0x0050a…00520               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLLAP «, t00=0x0003, t01=0x0060}
0x00520…00536               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLLDA «, t00=0x0003, t01=0x0076}
0x00536…0054c               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLMMC «, t00=0x0003, t01=0x008c}
0x0054c…00562               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLMMP «, t00=0x0003, t01=0x00a2}
0x00562…00578               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLNPE «, t00=0x0003, t01=0x00b8}
0x00578…0058e               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLREL «, t00=0x0003, t01=0x00ce}
0x0058e…005a4               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLSTA «, t00=0x0003, t01=0x00e4}
0x005a4…005ba               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLTYP «, t00=0x0003, t01=0x00fa}
0x005ba…005d0               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLIOE «, t00=0x0003, t01=0x0110}
0x005d0…005e6               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLSEG «, t00=0x0003, t01=0x0126}
0x005e6…005fc               Head {h00=0x0012, h01=0x0050, text=» ENTRY APLSWB «, t00=0x0003, t01=0x013c}
0x005fc…00620               Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0003, t01=0x0152}
0x00620…00644               Head {h00=0x0020, h01=0x0050, text=»*                         * «, t00=0x0003, t01=0x0176}
0x00644…00668               Head {h00=0x0020, h01=0x0050, text=»*  ENTRIES AND EXTERNALS  * «, t00=0x0004, t01=0x000a}
0x00668…0068c               Head {h00=0x0020, h01=0x0050, text=»*                         * «, t00=0x0004, t01=0x002e}
0x0068c…006b0               Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0004, t01=0x0052}
0x006b0…006c6               Head {h00=0x0012, h01=0x0050, text=» EXTRN CONVRT «, t00=0x0004, t01=0x0076}
0x006c6…006f2               Head {h00=0x0028, h01=0x0050, text=» EXTRN POB RESTORE REGISTER CONTENTS«, t00=0x0004, t01=0x008c}
0x006f2…0071c               Head {h00=0x0026, h01=0x0050, text=» EXTRN PUSH SAVE REGISTER CONTENTS«, t00=0x0004, t01=0x00b8}
0x0071c…00732               Head {h00=0x0012, h01=0x0050, text=» EXTRN SYSLDM «, t00=0x0004, t01=0x00e2}
0x00732…00748               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTANO «, t00=0x0004, t01=0x00f8}
0x00748…0075e               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTBUG «, t00=0x0004, t01=0x010e}
0x0075e…00774               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTEFA «, t00=0x0004, t01=0x0124}
0x00774…0078a               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTMSZ «, t00=0x0004, t01=0x013a}
0x0078a…007c0               Head {h00=0x0032, h01=0x0050, text=» EXTRN SCTMXS ADDRESS TO MONITOR EXTENT TABLE «, t00=0x0004, t01=0x0150}
0x007c0…007d6               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTNOP «, t00=0x0004, t01=0x0186}
0x007d6…007ec               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTOPT «, t00=0x0005, t01=0x000c}
0x007ec…00802               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTIPL «, t00=0x0005, t01=0x0022}
0x00802…00818               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTPSZ «, t00=0x0005, t01=0x0038}
0x00818…0082e               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTSFA «, t00=0x0005, t01=0x004e}
0x0082e…00844               Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTSTB «, t00=0x0005, t01=0x0064}
0x00844…00852               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x007a}
0x00852…00864               Head {h00=0x000e, h01=0x0050, text=» EXTRN REL«, t00=0x0005, t01=0x0088}
0x00864…00878               Head {h00=0x0010, h01=0x0050, text=» EXTRN ERROR«, t00=0x0005, t01=0x009a}
0x00878…0088e               Head {h00=0x0012, h01=0x0050, text=» EXTRN MMDDIV «, t00=0x0005, t01=0x00ae}
0x0088e…008a2               Head {h00=0x0010, h01=0x0050, text=» EXTRN TABBE«, t00=0x0005, t01=0x00c4}
0x008a2…008b6               Head {h00=0x0010, h01=0x0050, text=» EXTRN MMEND«, t00=0x0005, t01=0x00d8}
0x008b6…008cc               Head {h00=0x0012, h01=0x0050, text=» EXTRN CMPADR «, t00=0x0005, t01=0x00ec}
0x008cc…008e0               Head {h00=0x0010, h01=0x0050, text=» EXTRN MOVE «, t00=0x0005, t01=0x0102}
0x008e0…00918               Head {h00=0x0034, h01=0x0050, text=» EXTRN TTB:MT DISPLACEMENT TO MMU TABLE IN TTAB «, t00=0x0005, t01=0x0116}
0x00918…0092e               Head {h00=0x0012, h01=0x0050, text=» EXTRN TTB:CB «, t00=0x0005, t01=0x014e}
0x0092e…00944               Head {h00=0x0012, h01=0x0050, text=» EXTRN STKCOM «, t00=0x0005, t01=0x0164}
0x00944…0095a               Head {h00=0x0012, h01=0x0050, text=» EXTRN STKEND «, t00=0x0005, t01=0x017a}
0x0095a…00968               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0190}
0x00968…00974               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0006, t01=0x000e}
0x00974…00980               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0006, t01=0x001a}
0x00980…009a8               Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0006, t01=0x0026}
0x009a8…009d0               Head {h00=0x0024, h01=0x0050, text=»* CONFIGURATION FILE (CONFIG) * «, t00=0x0006, t01=0x004e}
0x009d0…009f8               Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0006, t01=0x0076}
0x009f8…00a04               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0006, t01=0x009e}
0x00a04…00a24               Head {h00=0x001c, h01=0x0050, text=»* TASK DEFINITION BLOCK:«, t00=0x0006, t01=0x00aa}
0x00a24…00a46               Head {h00=0x001e, h01=0x0050, text=»TDBBT EQU 0 1A BLOCK TYPE «, t00=0x0006, t01=0x00ca}
0x00a46…00a72               Head {h00=0x0028, h01=0x0050, text=»TDBNT EQU TDBBT+1 2N NUMBER OF TASKS«, t00=0x0006, t01=0x00ec}
0x00a72…00aa2               Head {h00=0x002c, h01=0x0050, text=»TDBID EQU TDBNT+2 6A TASK ID START VALUE«, t00=0x0006, t01=0x0118}
0x00aa2…00ad2               Head {h00=0x002c, h01=0x0050, text=»TDBMC EQU TDBID+6 6A MATCHING TASK CLASS«, t00=0x0006, t01=0x0148}
0x00ad2…00afa               Head {h00=0x0024, h01=0x0050, text=»TDBTL EQU TDBMC+6 6A TASK LEVEL «, t00=0x0006, t01=0x0178}
0x00afa…00b38               Head {h00=0x003a, h01=0x0050, text=»TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x0007, t01=0x0010}
0x00b38…00b42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x004e}
0x00b42…00b6c               Head {h00=0x0026, h01=0x0050, text=»TDBFST EQU TDBNC+2 SAVE05 TERM DEF«, t00=0x0007, t01=0x0058}
0x00b6c…00b94               Head {h00=0x0024, h01=0x0050, text=»TDC EQU 7 TERMINAL DEVICE CLASS «, t00=0x0007, t01=0x0082}
0x00b94…00bb6               Head {h00=0x001e, h01=0x0050, text=»TLC EQU 7 LINE CONNECTION «, t00=0x0007, t01=0x00aa}
0x00bb6…00be2               Head {h00=0x0028, h01=0x0050, text=»TDBREC EQU TDC+TLC TDB-RECORD LENGTH«, t00=0x0007, t01=0x00cc}
0x00be2…00bec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00f8}
0x00bec…00c1a               Head {h00=0x002a, h01=0x0050, text=»SDC EQU 7 SPECIAL DEVICE CLASS-RECORD «, t00=0x0007, t01=0x0102}
0x00c1a…00c24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0130}
0x00c24…00c48               Head {h00=0x0020, h01=0x0050, text=»* COMMON DEVICE DEF. BLOCK: «, t00=0x0007, t01=0x013a}
0x00c48…00c6a               Head {h00=0x001e, h01=0x0050, text=»CDBBT EQU 0 1A BLOCK TYPE «, t00=0x0007, t01=0x015e}
0x00c6a…00ca4               Head {h00=0x0036, h01=0x0050, text=»CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES «, t00=0x0007, t01=0x0180}
0x00ca4…00cd0               Head {h00=0x0028, h01=0x0050, text=»SDCFST EQU CDBNC+2 SAVE05 SDC-RECORD«, t00=0x0008, t01=0x002a}
0x00cd0…00cda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0056}
0x00cda…00ce4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0060}
0x00ce4…00d0e               Head {h00=0x0026, h01=0x0050, text=»* USER WORK BLOCK TYPE DEF. BLOCK «, t00=0x0008, t01=0x006a}
0x00d0e…00d30               Head {h00=0x001e, h01=0x0050, text=»UDBBT EQU 0 1A BLOCK TYPE «, t00=0x0008, t01=0x0094}
0x00d30…00d60               Head {h00=0x002c, h01=0x0050, text=»UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES«, t00=0x0008, t01=0x00b6}
0x00d60…00d6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e6}
0x00d6a…00d96               Head {h00=0x0028, h01=0x0050, text=»UDBFST EQU UDBNU+3 SAVE05 UDB-RECORD«, t00=0x0008, t01=0x00f0}
0x00d96…00db6               Head {h00=0x001c, h01=0x0050, text=»NAMUWB EQU 3 NAME OF UWB«, t00=0x0008, t01=0x011c}
0x00db6…00ddc               Head {h00=0x0022, h01=0x0050, text=»NUMUBL EQU 3 NUMBER OF BLOCKS «, t00=0x0008, t01=0x013c}
0x00ddc…00e0e               Head {h00=0x002e, h01=0x0050, text=»UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH«, t00=0x0008, t01=0x0162}
0x00e0e…00e1c (9, 0, 400)   Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0004}
0x00e1c…00e34               Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0009, t01=0x0012}
0x00e34…00e4c               Head {h00=0x0014, h01=0x0050, text=»* SOP-HANDLING *«, t00=0x0009, t01=0x002a}
0x00e4c…00e64               Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0009, t01=0x0042}
0x00e64…00e86               Head {h00=0x001e, h01=0x0050, text=»SOP EQU /2E DEVICE ADDRESS«, t00=0x0009, t01=0x005a}
0x00e86…00e8e               Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x007c}
0x00e8e…00eb0               Head {h00=0x001e, h01=0x0050, text=»LMP1 EQU /400 LAMP 1 CODE «, t00=0x0009, t01=0x0084}
0x00eb0…00ec6               Head {h00=0x0012, h01=0x0050, text=»LMP2 EQU /200 «, t00=0x0009, t01=0x00a6}
0x00ec6…00edc               Head {h00=0x0012, h01=0x0050, text=»LMP3 EQU /100 «, t00=0x0009, t01=0x00bc}
0x00edc…00ef0               Head {h00=0x0010, h01=0x0050, text=»LMP4 EQU /80«, t00=0x0009, t01=0x00d2}
0x00ef0…00f04               Head {h00=0x0010, h01=0x0050, text=»LMP5 EQU /40«, t00=0x0009, t01=0x00e6}
0x00f04…00f18               Head {h00=0x0010, h01=0x0050, text=»LMP6 EQU /20«, t00=0x0009, t01=0x00fa}
0x00f18…00f2c               Head {h00=0x0010, h01=0x0050, text=»LMP7 EQU /10«, t00=0x0009, t01=0x010e}
0x00f2c…00f3e               Head {h00=0x000e, h01=0x0050, text=»LMP8 EQU 8«, t00=0x0009, t01=0x0122}
0x00f3e…00f50               Head {h00=0x000e, h01=0x0050, text=»LMP9 EQU 4«, t00=0x0009, t01=0x0134}
0x00f50…00f64               Head {h00=0x0010, h01=0x0050, text=»LMP10 EQU 2 «, t00=0x0009, t01=0x0146}
0x00f64…00f78               Head {h00=0x0010, h01=0x0050, text=»LMP11 EQU 1 «, t00=0x0009, t01=0x015a}
0x00f78…00f86               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x016e}
0x00f86…00f8e               Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x017c}
0x00f8e…00f96               Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0184}
0x00f96…00fc2               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x0009, t01=0x018c}
0x00fc2…00fee               Head {h00=0x0028, h01=0x0050, text=»*  MXSTAB DISPLACEMENTS           * «, t00=0x000a, t01=0x0028}
0x00fee…0101a               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x000a, t01=0x0054}
0x0101a…01022               Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0080}
0x01022…0102a               Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0088}
0x0102a…0103e               Head {h00=0x0010, h01=0x0050, text=»MX:NOX EQU 6«, t00=0x000a, t01=0x0090}
0x0103e…0106e               Head {h00=0x002c, h01=0x0050, text=»MX:NOS EQU 8 NUMBER OF SEGMENT CLUSTERS «, t00=0x000a, t01=0x00a4}
0x0106e…01076               Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00d4}
0x01076…0107e               Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00dc}
0x0107e…010b4               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x000a, t01=0x00e4}
0x010b4…010ea               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x000a, t01=0x011a}
0x010ea…01120               Head {h00=0x0032, h01=0x0050, text=»*    APCTAB DISPLACEMENTS                   * «, t00=0x000a, t01=0x0150}
0x01120…01156               Head {h00=0x0032, h01=0x0050, text=»*    ====================                   * «, t00=0x000a, t01=0x0186}
0x01156…0118c               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x000b, t01=0x002c}
0x0118c…011c2               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x000b, t01=0x0062}
0x011c2…011ca               Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0098}
0x011ca…011d2               Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00a0}
0x011d2…01208               Head {h00=0x0032, h01=0x0050, text=»APLADA EQU 22 APPLICATION DISC FILE ADDRESS =2«, t00=0x000b, t01=0x00a8}
0x01208…0123a               Head {h00=0x002e, h01=0x0050, text=»APLREL EQU 18 APPLICATION RELOCATION BASE «, t00=0x000b, t01=0x00de}
0x0123a…0126a               Head {h00=0x002c, h01=0x0050, text=»APLIOE EQU 0 APPLICATION RESTART ADDRESS«, t00=0x000b, t01=0x0110}
0x0126a…012a6               Head {h00=0x0038, h01=0x0050, text=»APLLAC EQU 14 APPLICATION LOAD ADDR. (LOGICAL ADDR.)«, t00=0x000b, t01=0x0140}
0x012a6…012d0               Head {h00=0x0026, h01=0x0050, text=»APLLAP EQU 12 LOGICAL PAGE ADDRESS«, t00=0x000b, t01=0x017c}
0x012d0…0130c               Head {h00=0x0038, h01=0x0050, text=»APLLDA EQU 0 APPLICATION LOAD ADDR. (PHYSICAL ADDR.)«, t00=0x000c, t01=0x0016}
0x0130c…0133e               Head {h00=0x002e, h01=0x0050, text=»APLMMC EQU 10 APPLICATION MMU START ENTRY «, t00=0x000c, t01=0x0052}
0x0133e…0136a               Head {h00=0x0028, h01=0x0050, text=»APLMMP EQU 8 SEGMENT START MMU ENTRY«, t00=0x000c, t01=0x0084}
0x0136a…0139c               Head {h00=0x002e, h01=0x0050, text=»APLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT«, t00=0x000c, t01=0x00b0}
0x0139c…013ce               Head {h00=0x002e, h01=0x0050, text=»APLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU«, t00=0x000c, t01=0x00e2}
0x013ce…01400               Head {h00=0x002e, h01=0x0050, text=»APLPSZ EQU 20 APPLICATION SEGMENT SIZE =2 «, t00=0x000c, t01=0x0114}
0x01400…01424               Head {h00=0x0020, h01=0x0050, text=»APLSWB EQU 2 APPLICATION SWB«, t00=0x000c, t01=0x0146}
0x01424…01452               Head {h00=0x002a, h01=0x0050, text=»APLSTA EQU 16 APPL. PGM START ADDRESS «, t00=0x000c, t01=0x016a}
0x01452…01478               Head {h00=0x0022, h01=0x0050, text=»APLTYP EQU 8 APPLICATION TYPE «, t00=0x000d, t01=0x0008}
0x01478…01486               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x002e}
0x01486…014ac               Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000d, t01=0x003c}
0x014ac…014d2               Head {h00=0x0022, h01=0x0050, text=»*                            *«, t00=0x000d, t01=0x0062}
0x014d2…014f8               Head {h00=0x0022, h01=0x0050, text=»*  COMMON DISPLACEMENTS      *«, t00=0x000d, t01=0x0088}
0x014f8…0151e               Head {h00=0x0022, h01=0x0050, text=»*  AND CONSTANTS             *«, t00=0x000d, t01=0x00ae}
0x0151e…01544               Head {h00=0x0022, h01=0x0050, text=»*                            *«, t00=0x000d, t01=0x00d4}
0x01544…0156a               Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000d, t01=0x00fa}
0x0156a…01576               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x000d, t01=0x0120}
0x01576…01582               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x000d, t01=0x012c}
0x01582…015bc               Head {h00=0x0036, h01=0x0050, text=»ACBLEN EQU 26 APPLICATION CONTROL BLOCK LENGTH =2 «, t00=0x000d, t01=0x0138}
0x015bc…015f0               Head {h00=0x0030, h01=0x0050, text=»APLTAB EQU 12 ADDRESS TO APPL. CONTROL TABLE«, t00=0x000d, t01=0x0172}
0x015f0…01618               Head {h00=0x0024, h01=0x0050, text=»APPLNO EQU 18 APPLICATION NUMBER«, t00=0x000e, t01=0x0016}
0x01618…01644               Head {h00=0x0028, h01=0x0050, text=»BUFSIZ EQU 14 TEMPORARY BUFFER SIZE «, t00=0x000e, t01=0x003e}
0x01644…01676               Head {h00=0x002e, h01=0x0050, text=»CONLEN EQU 0 LENGTH OF CONFIGURATION DATA «, t00=0x000e, t01=0x006a}
0x01676…016a6               Head {h00=0x002c, h01=0x0050, text=»CONSTA EQU 2 START OF CONFIGURATION DATA«, t00=0x000e, t01=0x009c}
0x016a6…016d2               Head {h00=0x0028, h01=0x0050, text=»DATEND EQU 34 END OF DDIV PROTOTYPE «, t00=0x000e, t01=0x00cc}
0x016d2…01710               Head {h00=0x003a, h01=0x0050, text=»FSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER «, t00=0x000e, t01=0x00f8}
0x01710…0173e               Head {h00=0x002a, h01=0x0050, text=»FSTPAG EQU 22 1ST FREE PAGE (PHYSICAL)«, t00=0x000e, t01=0x0136}
0x0173e…0176e               Head {h00=0x002c, h01=0x0050, text=»FYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER «, t00=0x000e, t01=0x0164}
0x0176e…017a8 (15, 0, 400)  Head {h00=0x0036, h01=0x0050, text=»LSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART«, t00=0x000f, t01=0x0004}
0x017a8…017d4               Head {h00=0x0028, h01=0x0050, text=»MAPLEN EQU 30 LENGTH OF AREA TO MAP «, t00=0x000f, t01=0x003e}
0x017d4…01802               Head {h00=0x002a, h01=0x0050, text=»MMFROM EQU 36 2ND MMU TABLE WORK AREA «, t00=0x000f, t01=0x006a}
0x01802…0182e               Head {h00=0x0028, h01=0x0050, text=»MMTO EQU 38 1:ST MMU TABLE WORK AREA«, t00=0x000f, t01=0x0098}
0x0182e…01856               Head {h00=0x0024, h01=0x0050, text=»M:REL EQU 16 RELOCATION CONSTANT«, t00=0x000f, t01=0x00c4}
0x01856…01886               Head {h00=0x002c, h01=0x0050, text=»SYSBUF EQU 28 START OF TEMPORARY BUFFER «, t00=0x000f, t01=0x00ec}
0x01886…018bc               Head {h00=0x0032, h01=0x0050, text=»SWBFSA EQU 4 SWB-FILE START ADDRESS (2 WORDS) «, t00=0x000f, t01=0x011c}
0x018bc…018f0               Head {h00=0x0030, h01=0x0050, text=»SWBFSE EQU 8 SWB-FILE END ADDRESS (2 WORDS) «, t00=0x000f, t01=0x0152}
0x018f0…0191c               Head {h00=0x0028, h01=0x0050, text=»TTAB EQU 32 WORK AREA FOR MMU TABLE «, t00=0x000f, t01=0x0186}
0x0191c…01944               Head {h00=0x0024, h01=0x0050, text=»COM01 EQU 40 COMMON SAVE AREA 1 «, t00=0x0010, t01=0x0022}
0x01944…0196c               Head {h00=0x0024, h01=0x0050, text=»COM02 EQU 42 COMMON SAVE AREA 2 «, t00=0x0010, t01=0x004a}
0x0196c…01994               Head {h00=0x0024, h01=0x0050, text=»COM03 EQU 44 COMMON SAVE AREA 3 «, t00=0x0010, t01=0x0072}
0x01994…019c2               Head {h00=0x002a, h01=0x0050, text=»TOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS«, t00=0x0010, t01=0x009a}
0x019c2…019f2               Head {h00=0x002c, h01=0x0050, text=»SWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG«, t00=0x0010, t01=0x00c8}
0x019f2…01a1a               Head {h00=0x0024, h01=0x0050, text=»COM04 EQU 50 COMMON SAVE AREA 4 «, t00=0x0010, t01=0x00f8}
0x01a1a…01a46               Head {h00=0x0028, h01=0x0050, text=»DCBLK EQU 54 START OF DC CONF. DATA «, t00=0x0010, t01=0x0120}
0x01a46…01a54               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x014c}
0x01a54…01a7a               Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0010, t01=0x015a}
0x01a7a…01aa0               Head {h00=0x0022, h01=0x0050, text=»*                            *«, t00=0x0010, t01=0x0180}
0x01aa0…01ac6               Head {h00=0x0022, h01=0x0050, text=»*  LOCAL DISPLACEMENTS       *«, t00=0x0011, t01=0x0016}
0x01ac6…01aec               Head {h00=0x0022, h01=0x0050, text=»*  AND CONSTANTS             *«, t00=0x0011, t01=0x003c}
0x01aec…01b12               Head {h00=0x0022, h01=0x0050, text=»*                            *«, t00=0x0011, t01=0x0062}
0x01b12…01b38               Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0011, t01=0x0088}
0x01b38…01b44               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0011, t01=0x00ae}
0x01b44…01b50               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0011, t01=0x00ba}
0x01b50…01b80               Head {h00=0x002c, h01=0x0050, text=»APLCNT EQU 4 NO OF APPLICATIONS TO LOAD «, t00=0x0011, t01=0x00c6}
0x01b80…01baa               Head {h00=0x0026, h01=0x0050, text=»BLKLEN EQU 6 SEGMENT BLOCK LENGTH «, t00=0x0011, t01=0x00f6}
0x01baa…01be6               Head {h00=0x0038, h01=0x0050, text=»CARFIX EQU 54 CARTRIDGE OR FIX INDICATOR 16M DISC =9«, t00=0x0011, t01=0x0120}
0x01be6…01c12               Head {h00=0x0028, h01=0x0050, text=»CBLEN EQU 256 CASSETTE BUFFER LENGTH«, t00=0x0011, t01=0x015c}
0x01c12…01c42               Head {h00=0x002c, h01=0x0050, text=»COMLG EQU 4 LENGTH OF CORE RESIDENT PART«, t00=0x0011, t01=0x0188}
0x01c42…01c70               Head {h00=0x002a, h01=0x0050, text=»CONDAD EQU 44 CONF. FILE DISC ADDRESS «, t00=0x0012, t01=0x0028}
0x01c70…01c80               Head {h00=0x000c, h01=0x0050, text=»* EQU 46«, t00=0x0012, t01=0x0056}
0x01c80…01cb4               Head {h00=0x0030, h01=0x0050, text=»CONDEV EQU 32 SAVE AREA FOR CONF. DATA DEV. «, t00=0x0012, t01=0x0066}
0x01cb4…01ce4               Head {h00=0x002c, h01=0x0050, text=»CURAPL EQU 24 CURRENT APPL. CONTR. BLOCK«, t00=0x0012, t01=0x009a}
0x01ce4…01d06               Head {h00=0x001e, h01=0x0050, text=»DEVTYP EQU 50 DEVICE TYPE «, t00=0x0012, t01=0x00ca}
0x01d06…01d40               Head {h00=0x0036, h01=0x0050, text=»DISCAD EQU 28 SAVE AREA FOR DISC ADDRESS (2 WORDS)«, t00=0x0012, t01=0x00ec}
0x01d40…01d68               Head {h00=0x0024, h01=0x0050, text=»ECNFBF EQU 6 END OF CONF. BUFFER«, t00=0x0012, t01=0x0126}
0x01d68…01d90               Head {h00=0x0024, h01=0x0050, text=»EINPBF EQU 2 END OF INPUT BUFFER«, t00=0x0012, t01=0x014e}
0x01d90…01db8               Head {h00=0x0024, h01=0x0050, text=»ESYSTA EQU 0 END OF SYSTEM AREA «, t00=0x0012, t01=0x0176}
0x01db8…01de2               Head {h00=0x0026, h01=0x0050, text=»EXLEN EQU 4 MONITOR EXTENT LENGTH «, t00=0x0013, t01=0x000e}
0x01de2…01e1c               Head {h00=0x0036, h01=0x0050, text=»FILCOD EQU 36 LOAD DEVICE FILE CODE (NOT CASSETTE)«, t00=0x0013, t01=0x0038}
0x01e1c…01e48               Head {h00=0x0028, h01=0x0050, text=»FSTSEC EQU 16 FIRST SECTOR INDICATOR«, t00=0x0013, t01=0x0072}
0x01e48…01e7c               Head {h00=0x0030, h01=0x0050, text=»IPLDEV EQU 34 SAVE AREA FOR PGM LOAD DEVICE «, t00=0x0013, t01=0x009e}
0x01e7c…01ea6               Head {h00=0x0026, h01=0x0050, text=»IPLTYP EQU 48 PGM LOAD DEVICE TYPE«, t00=0x0013, t01=0x00d2}
0x01ea6…01ed0               Head {h00=0x0026, h01=0x0050, text=»LLDADR EQU 12 LOGICAL LOAD ADDRESS«, t00=0x0013, t01=0x00fc}
0x01ed0…01f00               Head {h00=0x002c, h01=0x0050, text=»LSTREC EQU 20 LAST RECORD OF CONF. FILE «, t00=0x0013, t01=0x0126}
0x01f00…01f34               Head {h00=0x0030, h01=0x0050, text=»LSTASG EQU 8 LOGICAL START OF FIRST SEGMENT «, t00=0x0013, t01=0x0156}
0x01f34…01f58               Head {h00=0x0020, h01=0x0050, text=»MONNO EQU 22 MONITOR NUMBER «, t00=0x0013, t01=0x018a}
0x01f58…01f86               Head {h00=0x002a, h01=0x0050, text=»NCHAID EQU 8 NO OF CHAR. IN APPL. NAME«, t00=0x0014, t01=0x001e}
0x01f86…01fb4               Head {h00=0x002a, h01=0x0050, text=»NCHTID EQU 5 NO OF CHAR IN TID RECORD «, t00=0x0014, t01=0x004c}
0x01fb4…01fde               Head {h00=0x0026, h01=0x0050, text=»NDEVCL EQU 18 NO OF DEVICE CLASSES«, t00=0x0014, t01=0x007a}
0x01fde…02014               Head {h00=0x0032, h01=0x0050, text=»NUMSEG EQU 10 DISPL. TO NO OF SEGM. IN S:GTAB «, t00=0x0014, t01=0x00a4}
0x02014…02046               Head {h00=0x002e, h01=0x0050, text=»OPTION EQU 52 SAVE AREA FOR OPTOIN WORD =2«, t00=0x0014, t01=0x00da}
0x02046…02070               Head {h00=0x0026, h01=0x0050, text=»PAGLG EQU 8 PAGE LENGTH IN S:GTAB «, t00=0x0014, t01=0x010c}
0x02070…0209c               Head {h00=0x0028, h01=0x0050, text=»PAGSIZ EQU /1000 PHYSICAL PAGE SIZE «, t00=0x0014, t01=0x0136}
0x0209c…020c8               Head {h00=0x0028, h01=0x0050, text=»PLDADR EQU 14 PHYSICAL LOAD ADDRESS «, t00=0x0014, t01=0x0162}
0x020c8…020f8               Head {h00=0x002c, h01=0x0050, text=»PRGLG1 EQU 2 PROGRAM LENGTH DISPLACEMENT«, t00=0x0014, t01=0x018e}
0x020f8…02136               Head {h00=0x003a, h01=0x0050, text=»PSECNL EQU 40 PHYSICAL SECTOR NUMBER LEAST SIGNIFICANT«, t00=0x0015, t01=0x002e}
0x02136…02174               Head {h00=0x003a, h01=0x0050, text=»PSECNM EQU 42 PHYSICAL SECTOR NUMBER MOST SIGNIFICANT «, t00=0x0015, t01=0x006c}
0x02174…021a4               Head {h00=0x002c, h01=0x0050, text=»PSECPA EQU 38 PHYSICAL SECTOR PART (0-2)«, t00=0x0015, t01=0x00aa}
0x021a4…021ca               Head {h00=0x0022, h01=0x0050, text=»SEGCNT EQU 10 SEGMENT COUNTER «, t00=0x0015, t01=0x00da}
0x021ca…021f2               Head {h00=0x0024, h01=0x0050, text=»SWPFEL EQU 14 FILE EXTENT LENGTH«, t00=0x0015, t01=0x0100}
0x021f2…02220               Head {h00=0x002a, h01=0x0050, text=»TNBRSG EQU 26 TOTAL NUMBER OF SEGMENTS«, t00=0x0015, t01=0x0128}
0x02220…0222e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0156}
0x0222e…0224e               Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0015, t01=0x0164}
0x0224e…0226e               Head {h00=0x001c, h01=0x0050, text=»*  CASSETTE HANDLING  * «, t00=0x0015, t01=0x0184}
0x0226e…0228e               Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0016, t01=0x0014}
0x0228e…022be               Head {h00=0x002c, h01=0x0050, text=»CHCR EQU /E DEVICE ADDRESS FOR CASSETTE «, t00=0x0016, t01=0x0034}
0x022be…022e0               Head {h00=0x001e, h01=0x0050, text=»LOCK EQU /2 LOCK CASSETTE «, t00=0x0016, t01=0x0064}
0x022e0…0230c               Head {h00=0x0028, h01=0x0050, text=»SBOT EQU 8 SEARCH BEGINNING OF TAPE «, t00=0x0016, t01=0x0086}
0x0230c…02338               Head {h00=0x0028, h01=0x0050, text=»STMF EQU /C SEARCH TAPEMARK FORWARD «, t00=0x0016, t01=0x00b2}
0x02338…02342               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00de}
0x02342…02368               Head {h00=0x0022, h01=0x0050, text=»*  DISC/FLEXIBLE DISC HANDLING«, t00=0x0016, t01=0x00e8}
0x02368…02372               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x010e}
0x02372…0239e               Head {h00=0x0028, h01=0x0050, text=»BUFLEN EQU 256 LENGTH OF READ BUFFER«, t00=0x0016, t01=0x0118}
0x0239e…023cc               Head {h00=0x002a, h01=0x0050, text=»DKBA3 EQU 514 BUFFER LENGTH VERSION A3«, t00=0x0016, t01=0x0144}
0x023cc…02402               Head {h00=0x0032, h01=0x0050, text=»RECLEN EQU 9 CONFIGURATION FILE RECORD LENGTH «, t00=0x0016, t01=0x0172}
0x02402…02430               Head {h00=0x002a, h01=0x0050, text=»FDCU EQU /09 FLEXIBLE DISC CU ADDRESS «, t00=0x0017, t01=0x0018}
0x02430…02458               Head {h00=0x0024, h01=0x0050, text=»FDIOP EQU FDCU+FDCU MUX ADDRESS «, t00=0x0017, t01=0x0046}
0x02458…0247a               Head {h00=0x001e, h01=0x0050, text=»FORDEV EQU 48 DISC FORMAT «, t00=0x0017, t01=0x006e}
0x0247a…024a0               Head {h00=0x0022, h01=0x0050, text=»MUXCC EQU /8080 1:ST MUX WORD «, t00=0x0017, t01=0x0090}
0x024a0…024ce               Head {h00=0x002a, h01=0x0050, text=»MXCCD3 EQU /80C1 BYTE2=NUMBER OF WORDS«, t00=0x0017, t01=0x00b6}
0x024ce…024f2               Head {h00=0x0020, h01=0x0050, text=»QBLFAC EQU 6 BLOCKING FACTOR«, t00=0x0017, t01=0x00e4}
0x024f2…02522               Head {h00=0x002c, h01=0x0050, text=»CIO EQU /41C0 I/O INSTR. CONF. CONSTANT «, t00=0x0017, t01=0x0108}
0x02522…02530               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0138}
0x02530…0253c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0017, t01=0x0146}
0x0253c…02586               Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0017, t01=0x0152}
0x02586…025d0               Head {h00=0x0046, h01=0x0050, text=»*  CALL-FORMAT, PERFORMS:  CFR      A14,A13                     * «, t00=0x0018, t01=0x000c}
0x025d0…0261a               Head {h00=0x0046, h01=0x0050, text=»*                          DATA     [REL-ADDRESS]               * «, t00=0x0018, t01=0x0056}
0x0261a…02664               Head {h00=0x0046, h01=0x0050, text=»*                                                               * «, t00=0x0018, t01=0x00a0}
0x02664…026ae               Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0018, t01=0x00ea}
0x026ae…026ba               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0018, t01=0x0134}
0x026ba…026c6               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0018, t01=0x0140}
0x026c6…026d2               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0018, t01=0x014c}
0x026d2…026f0               Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F697,16 «, t00=0x0018, t01=0x0158}
0x026f0…026fe               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0176}
0x026fe…02720               Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0018, t01=0x0184}
0x02720…02742               Head {h00=0x001e, h01=0x0050, text=»*  CONDITIONAL ASSEMBLY  *«, t00=0x0019, t01=0x0016}
0x02742…02764               Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0019, t01=0x0038}
0x02764…0276c               Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x005a}
0x0276c…02774               Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0062}
0x02774…0277e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x006a}
0x0277e…027a4               Head {h00=0x0022, h01=0x0050, text=»*  CONSTANTS EDITED BY SYSGEN «, t00=0x0019, t01=0x0074}
0x027a4…027ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x009a}
0x027ae…027b6               Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x00a4}
0x027b6…027be               Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x00ac}
0x027be…027d0               Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0019, t01=0x00b4}
0x027d0…027e2               Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x0019, t01=0x00c6}
0x027e2…027f4               Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x0019, t01=0x00d8}
0x027f4…02806               Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x0019, t01=0x00ea}
0x02806…02818               Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x0019, t01=0x00fc}
0x02818…0282e               Head {h00=0x0012, h01=0x0050, text=»X:F EQU 0  =9 «, t00=0x0019, t01=0x010e}
0x0282e…02844               Head {h00=0x0012, h01=0x0050, text=»X:G EQU 1  =9 «, t00=0x0019, t01=0x0124}
0x02844…0284c               Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x013a}
0x0284c…02878               Head {h00=0x0028, h01=0x0050, text=»MMUPAG EQU 1 1-MMU HARDWARE PRESENT «, t00=0x0019, t01=0x0142}
0x02878…028aa               Head {h00=0x002e, h01=0x0050, text=»EDM EQU 0 1-SUPPORTS EXTENDED MONITORS =12«, t00=0x0019, t01=0x016e}
0x028aa…028de               Head {h00=0x0030, h01=0x0050, text=»CASS EQU 0 1-PROGRAM LOAD DEVICE = CASSETTE «, t00=0x001a, t01=0x0010}
0x028de…0290e               Head {h00=0x002c, h01=0x0050, text=»DISC EQU 0 1-PROGRAM LOAD DEVICE = DISC «, t00=0x001a, t01=0x0044}
0x0290e…0294a               Head {h00=0x0038, h01=0x0050, text=»FLDISC EQU 1 1= PROGRAM LOAD DEVICE = FLEXIBLE DISC «, t00=0x001a, t01=0x0074}
0x0294a…02986               Head {h00=0x0038, h01=0x0050, text=»MFDISC EQU 0 1-PROGRAM LOAD DEVICE = MINI FIXED DISC«, t00=0x001a, t01=0x00b0}
0x02986…029be               Head {h00=0x0034, h01=0x0050, text=»CDDISC EQU 0 1-PROGRAM LOAD DEVICE=80M CDC DISC «, t00=0x001a, t01=0x00ec}
0x029be…029fa               Head {h00=0x0038, h01=0x0050, text=»CDDI16 EQU 0 1-PROGRAM LOAD DEVICE = 16M CDC DISC =9«, t00=0x001a, t01=0x0124}
0x029fa…02a2e               Head {h00=0x0030, h01=0x0050, text=»CFTEST EQU 1 1-TEST OF CONFIGURATION FILE =9«, t00=0x001a, t01=0x0160}
0x02a2e…02a4c (27, 0, 400)  Head {h00=0x001a, h01=0x0050, text=»CFTCAS EQU CFTEST+CASS«, t00=0x001b, t01=0x0004}
0x02a4c…02a6c               Head {h00=0x001c, h01=0x0050, text=»CFTFLD EQU CFTEST+FLDISC«, t00=0x001b, t01=0x0022}
0x02a6c…02a7a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0042}
0x02a7a…02ab8               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x001b, t01=0x0050}
0x02ab8…02af6               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x001b, t01=0x008e}
0x02af6…02b34               Head {h00=0x003a, h01=0x0050, text=»*          APPLICATION LOAD PART OF SYSLOD           *«, t00=0x001b, t01=0x00cc}
0x02b34…02b72               Head {h00=0x003a, h01=0x0050, text=»*          ===============================           *«, t00=0x001b, t01=0x010a}
0x02b72…02bb0               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x001b, t01=0x0148}
0x02bb0…02bec               Head {h00=0x0038, h01=0x0050, text=»*  ENTRY:  A1 - FORMAT AND DEVICE TYPE             *«, t00=0x001b, t01=0x0186}
0x02bec…02c2a               Head {h00=0x003a, h01=0x0050, text=»*          A2 - PROGRAM LOAD DEVICE                  *«, t00=0x001c, t01=0x0032}
0x02c2a…02c68               Head {h00=0x003a, h01=0x0050, text=»*          A3 - APPLICATION NUMBER                   *«, t00=0x001c, t01=0x0070}
0x02c68…02ca6               Head {h00=0x003a, h01=0x0050, text=»*          A7 - APPLICATION DISC ADDRESS BIT 16-31  * «, t00=0x001c, t01=0x00ae}
0x02ca6…02ce4               Head {h00=0x003a, h01=0x0050, text=»*          A8 - APPLICATION DISC ADDRESS BIT  0-15  * «, t00=0x001c, t01=0x00ec}
0x02ce4…02d22               Head {h00=0x003a, h01=0x0050, text=»*          A9 - START OF FREE AREA                   *«, t00=0x001c, t01=0x012a}
0x02d22…02d60               Head {h00=0x003a, h01=0x0050, text=»*         A13 - MONITOR START ADDRESS                *«, t00=0x001c, t01=0x0168}
0x02d60…02d9e               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x001d, t01=0x0016}
0x02d9e…02ddc               Head {h00=0x003a, h01=0x0050, text=»*  EXIT:                                             *«, t00=0x001d, t01=0x0054}
0x02ddc…02e1a               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x001d, t01=0x0092}
0x02e1a…02e58               Head {h00=0x003a, h01=0x0050, text=»*  SUBROUTINES:  CASSIN,SOPIN,CHCRIO,LODCOM          *«, t00=0x001d, t01=0x00d0}
0x02e58…02e96               Head {h00=0x003a, h01=0x0050, text=»*                LODSEG,REBUF,MOVBUF,RDBLK,          *«, t00=0x001d, t01=0x010e}
0x02e96…02ed4               Head {h00=0x003a, h01=0x0050, text=»*                CONLOD,CONEX,MOVREV                 *«, t00=0x001d, t01=0x014c}
0x02ed4…02f12               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x001d, t01=0x018a}
0x02f12…02f50               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x001e, t01=0x0038}
0x02f50…02f64               Head {h00=0x0010, h01=0x0050, text=»SYSLOD EQU *«, t00=0x001e, t01=0x0076}
0x02f64…02f6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x008a}
0x02f6e…02f88               Head {h00=0x0016, h01=0x0050, text=»*  SAVE REGISTERS «, t00=0x001e, t01=0x0094}
0x02f88…02f92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ae}
0x02f92…02fca               Head {h00=0x0034, h01=0x0050, text=» ST A1,IPLTYP+STKEND SAVE FORMAT AND DEVICE TYPE«, t00=0x001e, t01=0x00b8}
0x02fca…02ff8               Head {h00=0x002a, h01=0x0050, text=» ST A2,SCTIPL SAVE PROGRAM LOAD DEVICE«, t00=0x001e, t01=0x00f0}
0x02ff8…03014               Head {h00=0x0018, h01=0x0050, text=» ST A2,IPLDEV+STKEND«, t00=0x001e, t01=0x011e}
0x03014…0304a               Head {h00=0x0032, h01=0x0050, text=» CM CONDEV+STKEND RESET CONF. DATA DEV. ADDR. «, t00=0x001e, t01=0x013a}
0x0304a…03072               Head {h00=0x0024, h01=0x0050, text=» ST A3,SCTANO APPLICATION NUMBER«, t00=0x001e, t01=0x0170}
0x03072…0309c               Head {h00=0x0026, h01=0x0050, text=» LDR A3,P USE BEGINNING OF SYSLOD «, t00=0x001f, t01=0x0008}
0x0309c…030b2               Head {h00=0x0012, h01=0x0050, text=» SUK A3,TBLBAS«, t00=0x001f, t01=0x0032}
0x030b2…030d0               Head {h00=0x001a, h01=0x0050, text=»TBLBAS EQU *-2-SYSLOD «, t00=0x001f, t01=0x0048}
0x030d0…030fa               Head {h00=0x0026, h01=0x0050, text=» ST A3,APLTAB+STKCOM AS TABLE AREA«, t00=0x001f, t01=0x0066}
0x030fa…03120               Head {h00=0x0022, h01=0x0050, text=» LDK A1,1 INITIATE NO OF APPL.«, t00=0x001f, t01=0x0090}
0x03120…03144               Head {h00=0x0020, h01=0x0050, text=» STR A1,A3 AND SAVE IN TABLE«, t00=0x001f, t01=0x00b6}
0x03144…03186               Head {h00=0x003e, h01=0x0050, text=» ST A8,APLADA+2,A3 SAVE APPLICATION DISC ADDRESS BIT 0-15 «, t00=0x001f, t01=0x00da}
0x03186…031c8               Head {h00=0x003e, h01=0x0050, text=» ST A7,APLADA+4,A3 SAVE APPLICATION DISC ADDRESS BIT 16-31«, t00=0x001f, t01=0x011c}
0x031c8…031f6               Head {h00=0x002a, h01=0x0050, text=» ST A9,SCTSFA SAVE START OF FREE AREA «, t00=0x001f, t01=0x015e}
0x031f6…0320e               Head {h00=0x0014, h01=0x0050, text=» LDKL A14,SYSLOD«, t00=0x001f, t01=0x018c}
0x0320e…03220               Head {h00=0x000e, h01=0x0050, text=» LDR A13,P«, t00=0x0020, t01=0x0014}
0x03220…03258               Head {h00=0x0034, h01=0x0050, text=»SYS100 ADKL A13,SYS110-SYS100 POINTER TO SYS110 «, t00=0x0020, t01=0x0026}
0x03258…0326e               Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTBUG «, t00=0x0020, t01=0x005e}
0x0326e…03280               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0020, t01=0x0074}
0x03280…032bc               Head {h00=0x0038, h01=0x0050, text=» ANK A2,1 TEST IF DEBUG ADDRESS IS ODD,IF TRUE START«, t00=0x0020, t01=0x0086}
0x032bc…032d0               Head {h00=0x0010, h01=0x0050, text=» ABR(NZ) A1 «, t00=0x0020, t01=0x00c2}
0x032d0…032da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00d6}
0x032da…032ee               Head {h00=0x0010, h01=0x0050, text=»SYS110 EQU *«, t00=0x0020, t01=0x00e0}
0x032ee…03314               Head {h00=0x0022, h01=0x0050, text=» LD A15,SCTSTB LOAD STACK BASE«, t00=0x0020, t01=0x00f4}
0x03314…0333a               Head {h00=0x0022, h01=0x0050, text=» SUKL A15,4 ADJUST STACK BASE «, t00=0x0020, t01=0x011a}
0x0333a…03344               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0140}
0x03344…03364               Head {h00=0x001c, h01=0x0050, text=»*  INDICATE SYSLOD RUNS «, t00=0x0020, t01=0x014a}
0x03364…0336e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x016a}
0x0336e…03384               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP1 «, t00=0x0020, t01=0x0174}
0x03384…0339a               Head {h00=0x0012, h01=0x0050, text=» OTR A1,0,SOP «, t00=0x0020, t01=0x018a}
0x0339a…033a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0010}
0x033a4…033ea               Head {h00=0x0042, h01=0x0050, text=»*  INIT POINTER TO SUBROUTINE HANDLER (A13), STACK BASE (A14) «, t00=0x0021, t01=0x001a}
0x033ea…03412               Head {h00=0x0024, h01=0x0050, text=»*  AND ADDRESS TO GETPSW-ROUTINE«, t00=0x0021, t01=0x0060}
0x03412…0341c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0088}
0x0341c…0343c               Head {h00=0x001c, h01=0x0050, text=» LDR A8,P RETURN ADDRESS«, t00=0x0021, t01=0x0092}
0x0343c…03466               Head {h00=0x0026, h01=0x0050, text=» LDKL A3,REL+2 RELOCATION ROUTINE «, t00=0x0021, t01=0x00b2}
0x03466…03478               Head {h00=0x000e, h01=0x0050, text=» CFR A8,A3«, t00=0x0021, t01=0x00dc}
0x03478…034a0               Head {h00=0x0024, h01=0x0050, text=» LDKL A5,/5555 LOAD TEST PATTERN«, t00=0x0021, t01=0x00ee}
0x034a0…034c4               Head {h00=0x0020, h01=0x0050, text=» LDK A6,64 INIT PAGE COUNTER«, t00=0x0021, t01=0x0116}
0x034c4…034da               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0021, t01=0x013a}
0x034da…034e8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0150}
0x034e8…034f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x015e}
0x034f2…03534               Head {h00=0x003e, h01=0x0050, text=»*  EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY «, t00=0x0021, t01=0x0168}
0x03534…0353e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x001a}
0x0353e…03564               Head {h00=0x0022, h01=0x0050, text=» SLL A6,2 UPPER SAVE20=256 KB «, t00=0x0022, t01=0x0024}
0x03564…03588               Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 MMU ENTRY POINTER «, t00=0x0022, t01=0x004a}
0x03588…0359c               Head {h00=0x0010, h01=0x0050, text=»AP:010 EQU *«, t00=0x0022, t01=0x006e}
0x0359c…035c2               Head {h00=0x0022, h01=0x0050, text=» LD A2,TABBE GET PAGE ADDRESS «, t00=0x0022, t01=0x0082}
0x035c2…035f8               Head {h00=0x0032, h01=0x0050, text=» SUKL A2,/400 DECREMENT PHYSICAL PAGE ADDRESS «, t00=0x0022, t01=0x00a8}
0x035f8…0361a               Head {h00=0x001e, h01=0x0050, text=» ST A2,TABBE STORE IT BACK«, t00=0x0022, t01=0x00de}
0x0361a…0363e               Head {h00=0x0020, h01=0x0050, text=» TL TABBE LOAD MMU REGISTERS«, t00=0x0022, t01=0x0100}
0x0363e…03672               Head {h00=0x0030, h01=0x0050, text=» EL A3,PAGSIZ-2,A1 SAVE OLD MEMORY CONTENTS «, t00=0x0022, t01=0x0124}
0x03672…036a0               Head {h00=0x002a, h01=0x0050, text=» ES A5,PAGSIZ-2,A1 STORE TEST PATTERN «, t00=0x0022, t01=0x0158}
0x036a0…036ce               Head {h00=0x002a, h01=0x0050, text=» EL A2,PAGSIZ-2,A1 GET MEMORY CONTENT «, t00=0x0022, t01=0x0186}
0x036ce…03704               Head {h00=0x0032, h01=0x0050, text=» ES A3,PAGSIZ-2,A1 RESTORE OLD MEMORY CONTENTS«, t00=0x0023, t01=0x0024}
0x03704…03730               Head {h00=0x0028, h01=0x0050, text=» CWR A2,A5 COMPARE WITH TEST PATTERN«, t00=0x0023, t01=0x005a}
0x03730…03746               Head {h00=0x0012, h01=0x0050, text=» RF(E) AP:020 «, t00=0x0023, t01=0x0086}
0x03746…03772               Head {h00=0x0028, h01=0x0050, text=» SUK A6,4 DECREMENT NUMBER OF PAGES «, t00=0x0023, t01=0x009c}
0x03772…03784               Head {h00=0x000e, h01=0x0050, text=» RB AP:010«, t00=0x0023, t01=0x00c8}
0x03784…0378e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00da}
0x0378e…037b6               Head {h00=0x0024, h01=0x0050, text=»*  CHECK IF MMU HARDWARE PRESENT«, t00=0x0023, t01=0x00e4}
0x037b6…037c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x010c}
0x037c0…037dc               Head {h00=0x0018, h01=0x0050, text=»AP:020 LDKL A1,/FC00«, t00=0x0023, t01=0x0116}
0x037dc…03816               Head {h00=0x0036, h01=0x0050, text=» ST A1,MMDDIV,A13 SET 1ST ENTRY IN MMU TABLE AREA «, t00=0x0023, t01=0x0132}
0x03816…03846               Head {h00=0x002c, h01=0x0050, text=» TL MMDDIV,A13 TRY TO LOAD MMU REGISTERS«, t00=0x0023, t01=0x016c}
0x03846…03878               Head {h00=0x002e, h01=0x0050, text=» TS MMDDIV,A13 SAVE REGISTERS IN MMU TABLE«, t00=0x0024, t01=0x000c}
0x03878…0389e               Head {h00=0x0022, h01=0x0050, text=» CW A1,MMDDIV,A13 SUCCESSFUL? «, t00=0x0024, t01=0x003e}
0x0389e…038c4               Head {h00=0x0022, h01=0x0050, text=» RF(E) AP:030 YES! MMU PRESENT«, t00=0x0024, t01=0x0064}
0x038c4…038da               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x0024, t01=0x008a}
0x038da…0390c               Head {h00=0x002e, h01=0x0050, text=» CALL ERROR INDICATE HARDWARE NOT PRESENT «, t00=0x0024, t01=0x00a0}
0x0390c…03934               Head {h00=0x0024, h01=0x0050, text=»AP:030 CM TABBE RESET MMU TABLE «, t00=0x0024, t01=0x00d2}
0x03934…0393e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00fa}
0x0393e…03986               Head {h00=0x0044, h01=0x0050, text=»*  END OF EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY«, t00=0x0024, t01=0x0104}
0x03986…03990               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x014c}
0x03990…0399c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0156}
0x0399c…039b2               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0024, t01=0x0162}
0x039b2…039c0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0178}
0x039c0…039d4               Head {h00=0x0010, h01=0x0050, text=»AP:100 EQU *«, t00=0x0024, t01=0x0186}
0x039d4…039de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x000a}
0x039de…03a22               Head {h00=0x0040, h01=0x0050, text=»*  EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY«, t00=0x0025, t01=0x0014}
0x03a22…03a2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0058}
0x03a2c…03a54               Head {h00=0x0024, h01=0x0050, text=» LDKL A1,PAGSIZ-2 START AT /FFFE«, t00=0x0025, t01=0x0062}
0x03a54…03a68               Head {h00=0x0010, h01=0x0050, text=»AP:110 EQU *«, t00=0x0025, t01=0x008a}
0x03a68…03a92               Head {h00=0x0026, h01=0x0050, text=» SUKL A1,PAGSIZ NEXT PHYSICAL PAGE«, t00=0x0025, t01=0x009e}
0x03a92…03abe               Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A1 SAVE OLD MEMORY CONTENT «, t00=0x0025, t01=0x00c8}
0x03abe…03ae4               Head {h00=0x0022, h01=0x0050, text=» STR A5,A1 STORE TEST PATTERN «, t00=0x0025, t01=0x00f4}
0x03ae4…03b08               Head {h00=0x0020, h01=0x0050, text=» CWR* A5,A1 CHECK IF MEMORY «, t00=0x0025, t01=0x011a}
0x03b08…03b2e               Head {h00=0x0022, h01=0x0050, text=» RF(E) AP:120 MEMORY END FOUND«, t00=0x0025, t01=0x013e}
0x03b2e…03b62               Head {h00=0x0030, h01=0x0050, text=» SUK A6,4 DECREMENT NUMBER OF PHYSICAL PAGES«, t00=0x0025, t01=0x0164}
0x03b62…03b74               Head {h00=0x000e, h01=0x0050, text=» RB AP:110«, t00=0x0026, t01=0x0008}
0x03b74…03b88               Head {h00=0x0010, h01=0x0050, text=»AP:120 EQU *«, t00=0x0026, t01=0x001a}
0x03b88…03bb6               Head {h00=0x002a, h01=0x0050, text=» STR A2,A1 RESTORE OLD MEMORY CONTENT «, t00=0x0026, t01=0x002e}
0x03bb6…03bc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x005c}
0x03bc0…03c0c               Head {h00=0x0048, h01=0x0050, text=»*  END OF EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY «, t00=0x0026, t01=0x0066}
0x03c0c…03c16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00b2}
0x03c16…03c22               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x00bc}
0x03c22…03c30               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x00c8}
0x03c30…03c3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00d6}
0x03c3a…03c5a               Head {h00=0x001c, h01=0x0050, text=»*  COMMON EXECUTION PATH«, t00=0x0026, t01=0x00e0}
0x03c5a…03c64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0100}
0x03c64…03c78               Head {h00=0x0010, h01=0x0050, text=»AP:200 EQU *«, t00=0x0026, t01=0x010a}
0x03c78…03cac               Head {h00=0x0030, h01=0x0050, text=» ST A6,SCTMSZ SAVE NUMBER OF PHYSICAL PAGES «, t00=0x0026, t01=0x011e}
0x03cac…03cd2               Head {h00=0x0022, h01=0x0050, text=» SRL A6,2 MAKE NO OF 4K FRAMES«, t00=0x0026, t01=0x0152}
0x03cd2…03cf8               Head {h00=0x0022, h01=0x0050, text=» SLL A6,10 MAKE FRAME ADDRESS «, t00=0x0026, t01=0x0178}
0x03cf8…03d24               Head {h00=0x0028, h01=0x0050, text=» ST A6,SCTEFA FIRST FRAME TO BE USED«, t00=0x0027, t01=0x000e}
0x03d24…03d36               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0027, t01=0x003a}
0x03d36…03d68               Head {h00=0x002e, h01=0x0050, text=» ST A3,SCTEFA+2 AREA EMPTY IN FIRST FRAME «, t00=0x0027, t01=0x004c}
0x03d68…03d90               Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD =2«, t00=0x0027, t01=0x007e}
0x03d90…03db2               Head {h00=0x001e, h01=0x0050, text=» ST A1,OPTION+STKEND   =2 «, t00=0x0027, t01=0x00a6}
0x03db2…03dda               Head {h00=0x0024, h01=0x0050, text=» ANKL A1,/FFF RESET TYPE BITS =2«, t00=0x0027, t01=0x00c8}
0x03dda…03e08               Head {h00=0x002a, h01=0x0050, text=» ST A1,SCTOPT AND SET AS NEW OPTION =2«, t00=0x0027, t01=0x00f0}
0x03e08…03e12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x011e}
0x03e12…03e5e               Head {h00=0x0048, h01=0x0050, text=»*  INIT POINTER TO READ BUFFER. INIT DEVICE ADDRESS FOR READ-ROUTINE«, t00=0x0027, t01=0x0128}
0x03e5e…03e8a               Head {h00=0x0028, h01=0x0050, text=» LD A9,SCTSFA POINTER TO READ BUFFER«, t00=0x0027, t01=0x0174}
0x03e8a…03eb6               Head {h00=0x0028, h01=0x0050, text=» ST A9,MXBUF ADDRESS TO READ-BUFFER «, t00=0x0028, t01=0x0010}
0x03eb6…03ee4               Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x0028, t01=0x003c}
0x03ee4…03eee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x006a}
0x03eee…03f18               Head {h00=0x0026, h01=0x0050, text=»*  INITIALIZE PROGRAM LOAD DEVICE «, t00=0x0028, t01=0x0074}
0x03f18…03f22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x009e}
0x03f22…03f38               Head {h00=0x0012, h01=0x0050, text=» CF A14,LODDEV«, t00=0x0028, t01=0x00a8}
0x03f38…03f50               Head {h00=0x0014, h01=0x0050, text=» LDR A3,A9 SAVE «, t00=0x0028, t01=0x00be}
0x03f50…03f82               Head {h00=0x002e, h01=0x0050, text=» AD A3,SAVCON COMPUTE START OF APPL. TABLE«, t00=0x0028, t01=0x00d6}
0x03f82…03fa8               Head {h00=0x0022, h01=0x0050, text=» ST A3,SCTSFA STORE IN SYSTAB «, t00=0x0028, t01=0x0108}
0x03fa8…03fba               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0028, t01=0x012e}
0x03fba…03fe0               Head {h00=0x0022, h01=0x0050, text=» RF(Z) AP:233 CASSETTE LOADING«, t00=0x0028, t01=0x0140}
0x03fe0…03fea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0166}
0x03fea…04020               Head {h00=0x0032, h01=0x0050, text=» ST A2,SCTIPL SET FILE CODE IF RAND. ACC. DEV.«, t00=0x0028, t01=0x0170}
0x04020…0402e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x0016}
0x0402e…04042               Head {h00=0x0010, h01=0x0050, text=»AP:232 EQU *«, t00=0x0029, t01=0x0024}
0x04042…0405a               Head {h00=0x0014, h01=0x0050, text=» IFT EDM=1  =12 «, t00=0x0029, t01=0x0038}
0x0405a…04064               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0050}
0x04064…0408e               Head {h00=0x0026, h01=0x0050, text=»*  LOAD MONITOR EXTENTS IF PRESENT«, t00=0x0029, t01=0x005a}
0x0408e…04098               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0084}
0x04098…040c4               Head {h00=0x0028, h01=0x0050, text=» CF A14,LODMEX  LOAD MONITOR EXTENTS«, t00=0x0029, t01=0x008e}
0x040c4…040d0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00ba}
0x040d0…040da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00c6}
0x040da…04102               Head {h00=0x0024, h01=0x0050, text=»*  SCAN CONF. FILE FOR POSSIBLE «, t00=0x0029, t01=0x00d0}
0x04102…0412a               Head {h00=0x0024, h01=0x0050, text=»*  APPLICATION DEFINITION BLOCKS«, t00=0x0029, t01=0x00f8}
0x0412a…04134               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0120}
0x04134…0414a               Head {h00=0x0012, h01=0x0050, text=» CF A14,SCNCON«, t00=0x0029, t01=0x012a}
0x0414a…04176               Head {h00=0x0028, h01=0x0050, text=» LD A1,APLTAB+STKCOM GET ADDRESS TO «, t00=0x0029, t01=0x0140}
0x04176…041a2               Head {h00=0x0028, h01=0x0050, text=» ADK A1,2 CURRENT APPL. CONTR. BLOCK«, t00=0x0029, t01=0x016c}
0x041a2…041dc               Head {h00=0x0036, h01=0x0050, text=» LD A12,APLADA,A1 MOST SIGN. PART OF DISC ADDRESS «, t00=0x002a, t01=0x0008}
0x041dc…04218               Head {h00=0x0038, h01=0x0050, text=» LD A11,APLADA+2,A1 LEAST SIGN. PART OF DISC ADDRESS«, t00=0x002a, t01=0x0042}
0x04218…04244               Head {h00=0x0028, h01=0x0050, text=» LD A10,READ GET SUBROUTINE ADDRESS «, t00=0x002a, t01=0x007e}
0x04244…0426a               Head {h00=0x0022, h01=0x0050, text=» CFR A14,A10 READ FIRST SECTOR«, t00=0x002a, t01=0x00aa}
0x0426a…0427e               Head {h00=0x0010, h01=0x0050, text=»AP:233 EQU *«, t00=0x002a, t01=0x00d0}
0x0427e…042b2               Head {h00=0x0030, h01=0x0050, text=» LD A1,APLTAB+STKCOM GET APPL. TABLE ADDRESS«, t00=0x002a, t01=0x00e4}
0x042b2…042de               Head {h00=0x0028, h01=0x0050, text=» LDR* A6,A1 GET NO OF APPL. TO LOAD «, t00=0x002a, t01=0x0118}
0x042de…04300               Head {h00=0x001e, h01=0x0050, text=» NGR A6,A6 NEGATE AND SAVE«, t00=0x002a, t01=0x0144}
0x04300…04328               Head {h00=0x0024, h01=0x0050, text=» ST A6,APLCNT+STKEND AS COUNTER «, t00=0x002a, t01=0x0166}
0x04328…0433a               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x002a, t01=0x018e}
0x0433a…04372               Head {h00=0x0034, h01=0x0050, text=» ST A1,CURAPL+STKEND CURRENT APPL. CONTROL BLOCK«, t00=0x002b, t01=0x0010}
0x04372…04386               Head {h00=0x0010, h01=0x0050, text=»AP:234 EQU *«, t00=0x002b, t01=0x0048}
0x04386…043b2               Head {h00=0x0028, h01=0x0050, text=» LD A7,SCTEFA GET FIRST FRAME TO USE«, t00=0x002b, t01=0x005c}
0x043b2…043de               Head {h00=0x0028, h01=0x0050, text=» LD A5,SCTEFA+2 AND AREA EMPTY IN IT«, t00=0x002b, t01=0x0088}
0x043de…0441c               Head {h00=0x003a, h01=0x0050, text=» LD A1,CURAPL+STKEND RESTORE APPL. CONTROL BLOCK ADDR.«, t00=0x002b, t01=0x00b4}
0x0441c…0442a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x00f2}
0x0442a…0443e               Head {h00=0x0010, h01=0x0050, text=»AP:235 EQU *«, t00=0x002b, t01=0x0100}
0x0443e…04448               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0114}
0x04448…0447a               Head {h00=0x002e, h01=0x0050, text=»*  SAVE INFORMATION ABOUT THE LOAD MODULE «, t00=0x002b, t01=0x011e}
0x0447a…04484               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0150}
0x04484…044bc               Head {h00=0x0034, h01=0x0050, text=» CM APLLAP,A1 RESET NO OF MMU ENTRIES TO UPDATE «, t00=0x002b, t01=0x015a}
0x044bc…044f2 (44, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» CM APLSEG,A1 RESET PHYSICAL ADDRESS TO FIRST «, t00=0x002c, t01=0x0004}
0x044f2…04520               Head {h00=0x002a, h01=0x0050, text=» CM APLSEG+2,A1 CORE RESIDENT SEGMENT «, t00=0x002c, t01=0x003a}
0x04520…04558               Head {h00=0x0034, h01=0x0050, text=» CM APLMMC,A1 CLEAR REL. POSITION OF CONF. DATA «, t00=0x002c, t01=0x0068}
0x04558…0458a               Head {h00=0x002e, h01=0x0050, text=» CM APLPSZ,A1 CLEAR SEGMENT SIZE ENTRY =2 «, t00=0x002c, t01=0x00a0}
0x0458a…045be               Head {h00=0x0030, h01=0x0050, text=» CM TNBRSG+STKEND CLEAR NBR. OF SEGMENTS =5 «, t00=0x002c, t01=0x00d2}
0x045be…045fc               Head {h00=0x003a, h01=0x0050, text=» LDR* A6,A9 GET PGM. START ADDRESS (UNSEGMENTED APPL.)«, t00=0x002c, t01=0x0106}
0x045fc…0461a               Head {h00=0x001a, h01=0x0050, text=» ST A6,APLSTA,A1 SAVE «, t00=0x002c, t01=0x0144}
0x0461a…04640               Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x002c, t01=0x0162}
0x04640…0466c               Head {h00=0x0028, h01=0x0050, text=» LD A6,PRGLG1+8,A9 GET PROGRAM TYPE «, t00=0x002c, t01=0x0188}
0x0466c…046a4               Head {h00=0x0034, h01=0x0050, text=» LDKL A4,/1000 INITIALIZE BIT SETTING (BIT 3=1) «, t00=0x002d, t01=0x0024}
0x046a4…046cc               Head {h00=0x0024, h01=0x0050, text=» CWK A6,'CR' CREDIT APPLICATION?«, t00=0x002d, t01=0x005c}
0x046cc…046e2               Head {h00=0x0012, h01=0x0050, text=» RF(E) AP2340 «, t00=0x002d, t01=0x0084}
0x046e2…046ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x009a}
0x046ec…0471e               Head {h00=0x002e, h01=0x0050, text=» SLL A4,1 BIT SETTING FOR COBOL (BIT 2=1) «, t00=0x002d, t01=0x00a4}
0x0471e…04746               Head {h00=0x0024, h01=0x0050, text=» CWK A6,'CO' COBOL APPLICATION? «, t00=0x002d, t01=0x00d6}
0x04746…0475c               Head {h00=0x0012, h01=0x0050, text=» RF(E) AP2340 «, t00=0x002d, t01=0x00fe}
0x0475c…04766               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0114}
0x04766…04798               Head {h00=0x002e, h01=0x0050, text=» SLL A4,1 BIT SETTING FOR BASIC (BIT 1=1) «, t00=0x002d, t01=0x011e}
0x04798…047be               Head {h00=0x0022, h01=0x0050, text=» CWK A6,'BA' BASIC APLICATION?«, t00=0x002d, t01=0x0150}
0x047be…047d4               Head {h00=0x0012, h01=0x0050, text=» RF(E) AP2340 «, t00=0x002d, t01=0x0176}
0x047d4…047de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x018c}
0x047de…04806               Head {h00=0x0024, h01=0x0050, text=» LDKL A6,'AS' SET ASSEMBLER TYPE«, t00=0x002e, t01=0x0008}
0x04806…0483c               Head {h00=0x0032, h01=0x0050, text=» SLL A4,1 BIT SETTING FOR ASSEMBLER (BIT 0=1) «, t00=0x002e, t01=0x0030}
0x0483c…04850               Head {h00=0x0010, h01=0x0050, text=»AP2340 EQU *«, t00=0x002e, t01=0x0066}
0x04850…0487e               Head {h00=0x002a, h01=0x0050, text=» ST A6,APLTYP,A1 SAVE APPLICATION TYPE«, t00=0x002e, t01=0x007a}
0x0487e…048ae               Head {h00=0x002c, h01=0x0050, text=» CWK A6,'AS' ASSEMBLER ALWAYS ALLOWED =2«, t00=0x002e, t01=0x00a8}
0x048ae…048c8               Head {h00=0x0016, h01=0x0050, text=» RF(E) AP2345   =2«, t00=0x002e, t01=0x00d8}
0x048c8…04902               Head {h00=0x0036, h01=0x0050, text=» AN A4,OPTION+STKEND LOOK IF THIS TYPE ALLOWED =2 «, t00=0x002e, t01=0x00f2}
0x04902…04920               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) AP2345 YES =2 «, t00=0x002e, t01=0x012c}
0x04920…04950               Head {h00=0x002c, h01=0x0050, text=» LDK A1,LMP9 NO, WRONG MONITOR OPTION =2«, t00=0x002e, t01=0x014a}
0x04950…04968               Head {h00=0x0014, h01=0x0050, text=» CALL ERROR   =2«, t00=0x002e, t01=0x017a}
0x04968…04982 (47, 0, 400)  Head {h00=0x0016, h01=0x0050, text=»AP2345 EQU *   =2 «, t00=0x002f, t01=0x0004}
0x04982…049ac               Head {h00=0x0026, h01=0x0050, text=» ORR A2,A4 SET BIT IN OPTION WORD «, t00=0x002f, t01=0x001e}
0x049ac…049ca               Head {h00=0x001a, h01=0x0050, text=» ST A2,SCTOPT AND SAVE«, t00=0x002f, t01=0x0048}
0x049ca…049de               Head {h00=0x0010, h01=0x0050, text=» CWK A6,'AS'«, t00=0x002f, t01=0x0066}
0x049de…04a0c               Head {h00=0x002a, h01=0x0050, text=» RF(E) AP2350 SKIP IF ASSEMBLER APPL. «, t00=0x002f, t01=0x007a}
0x04a0c…04a16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00a8}
0x04a16…04a46               Head {h00=0x002c, h01=0x0050, text=» LD A3,PAGLG+8,A9 GET DEFINED PAGE SIZE «, t00=0x002f, t01=0x00b2}
0x04a46…04a80               Head {h00=0x0036, h01=0x0050, text=» CW A3,SCTPSZ COMPARE WITH PREVIOUSLY DEFINED SIZE«, t00=0x002f, t01=0x00e2}
0x04a80…04ab2               Head {h00=0x002e, h01=0x0050, text=» RF(NG) AP2350 IF LESS, DON'T UPDATE SIZE «, t00=0x002f, t01=0x011c}
0x04ab2…04abc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x014e}
0x04abc…04af0               Head {h00=0x0030, h01=0x0050, text=» ST A3,SCTPSZ SAVE LARGEST DEFINED PAGE SIZE«, t00=0x002f, t01=0x0158}
0x04af0…04b04               Head {h00=0x0010, h01=0x0050, text=»AP2350 EQU *«, t00=0x002f, t01=0x018c}
0x04b04…04b1a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0030, t01=0x0010}
0x04b1a…04b28               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0026}
0x04b28…04b32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0034}
0x04b32…04b68               Head {h00=0x0032, h01=0x0050, text=»*  EXECUTION PATH FOR SYSTEMS WITH MMU OPTION «, t00=0x0030, t01=0x003e}
0x04b68…04b72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0074}
0x04b72…04b9e               Head {h00=0x0028, h01=0x0050, text=» CWK A6,'AS' ASSEMBLER APPLICATION? «, t00=0x0030, t01=0x007e}
0x04b9e…04bc6               Head {h00=0x0024, h01=0x0050, text=» ABL(E) AP:330 YES! NO SEGMENTS «, t00=0x0030, t01=0x00aa}
0x04bc6…04bde               Head {h00=0x0014, h01=0x0050, text=» LDR A4,A3 SAVE «, t00=0x0030, t01=0x00d2}
0x04bde…04c06               Head {h00=0x0024, h01=0x0050, text=» ANKL A4,/3FF EVEN 1K MULTIPLE? «, t00=0x0030, t01=0x00ea}
0x04c06…04c20               Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:237 YES!«, t00=0x0030, t01=0x0112}
0x04c20…04c2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x012c}
0x04c2a…04c3e               Head {h00=0x0010, h01=0x0050, text=» LDK A1,LMP8«, t00=0x0030, t01=0x0136}
0x04c3e…04c6a               Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE PAGE SIZE ERROR«, t00=0x0030, t01=0x014a}
0x04c6a…04c74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0176}
0x04c74…04c88               Head {h00=0x0010, h01=0x0050, text=»AP:237 EQU *«, t00=0x0030, t01=0x0180}
0x04c88…04cbe (49, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» LD A2,NUMSEG+8,A9 NUMBER OF SEGMENTS DEFINED «, t00=0x0031, t01=0x0004}
0x04cbe…04cc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x003a}
0x04cc8…04cdc               Head {h00=0x0010, h01=0x0050, text=»AP:238 EQU *«, t00=0x0031, t01=0x0044}
0x04cdc…04d00               Head {h00=0x0020, h01=0x0050, text=» ABL(Z) AP:330 NO SEGMENTS! «, t00=0x0031, t01=0x0058}
0x04d00…04d0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x007c}
0x04d0a…04d40               Head {h00=0x0032, h01=0x0050, text=» CF A14,ALOCSG RESERVE AREA FOR RESIDENT SEGM.«, t00=0x0031, t01=0x0086}
0x04d40…04d4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00bc}
0x04d4a…04d80               Head {h00=0x0032, h01=0x0050, text=»*  A1 - POINTER TO CURRENT APPL. CONTR. BLOCK «, t00=0x0031, t01=0x00c6}
0x04d80…04da6               Head {h00=0x0022, h01=0x0050, text=»*  A3 - PAGESIZE IN 1K BLOCKS «, t00=0x0031, t01=0x00fc}
0x04da6…04dcc               Head {h00=0x0022, h01=0x0050, text=»*  A5 - OFFSET WITHIN 4K PAGE «, t00=0x0031, t01=0x0122}
0x04dcc…04dfa               Head {h00=0x002a, h01=0x0050, text=»*  A7 - PAGE FRAME ADDR. (PHYS. ADDR.)«, t00=0x0031, t01=0x0148}
0x04dfa…04e2a               Head {h00=0x002c, h01=0x0050, text=»*  A4 - AREA LEFT IN LAST 4K PAGE FRAME «, t00=0x0031, t01=0x0176}
0x04e2a…04e34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0016}
0x04e34…04e60               Head {h00=0x0028, h01=0x0050, text=»*  STORE ADDRESS(ES) TO PAGE FRAMES «, t00=0x0032, t01=0x0020}
0x04e60…04e8a               Head {h00=0x0026, h01=0x0050, text=»*  HOLDING THE FIRST LOGICAL PAGE «, t00=0x0032, t01=0x004c}
0x04e8a…04e94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0076}
0x04e94…04ec4               Head {h00=0x002c, h01=0x0050, text=» SRL A3,10 SEGMENT SIZE IN 1K BLOCKS =2 «, t00=0x0032, t01=0x0080}
0x04ec4…04ef0               Head {h00=0x0028, h01=0x0050, text=» LDKL A6,MMEND GET END OF MMU-TABLE «, t00=0x0032, t01=0x00b0}
0x04ef0…04f16               Head {h00=0x0022, h01=0x0050, text=» LDKL A8,16 AND NO OF ENTRIES «, t00=0x0032, t01=0x00dc}
0x04f16…04f44               Head {h00=0x002a, h01=0x0050, text=» LDR A4,A5 GET AREA LEFT IN LAST FRAME«, t00=0x0032, t01=0x0102}
0x04f44…04f58               Head {h00=0x0010, h01=0x0050, text=»AP:295 EQU *«, t00=0x0032, t01=0x0130}
0x04f58…04f84               Head {h00=0x0028, h01=0x0050, text=» SUK A6,2 DECREMENT MMU ENTRY ADDR. «, t00=0x0032, t01=0x0144}
0x04f84…04fb2               Head {h00=0x002a, h01=0x0050, text=» SUKL A8,1 DECREMENT MMU ENTRY POINTER«, t00=0x0032, t01=0x0170}
0x04fb2…04fe8               Head {h00=0x0032, h01=0x0050, text=» SUK A3,4 DECREMENT PAGE SIZE WITH FRAME SIZE «, t00=0x0033, t01=0x000e}
0x04fe8…04ffe               Head {h00=0x0012, h01=0x0050, text=» RB(P) AP:295 «, t00=0x0033, t01=0x0044}
0x04ffe…05026               Head {h00=0x0024, h01=0x0050, text=» RF(Z) AP:300 EVEN 4K BYTES PAGE«, t00=0x0033, t01=0x005a}
0x05026…05030               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0082}
0x05030…05056               Head {h00=0x0022, h01=0x0050, text=»*  RESERVE ONE EXTRA MMU ENTRY«, t00=0x0033, t01=0x008c}
0x05056…0507a               Head {h00=0x0020, h01=0x0050, text=»*  WHEN PAGE SIZE IS NOT AN «, t00=0x0033, t01=0x00b2}
0x0507a…05098               Head {h00=0x001a, h01=0x0050, text=»*  EVEN MULTIPLE OF 4K«, t00=0x0033, t01=0x00d6}
0x05098…050a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00f4}
0x050a2…050ca               Head {h00=0x0024, h01=0x0050, text=» LD A3,PAGLG+8,A9 GET PAGE SIZE «, t00=0x0033, t01=0x00fe}
0x050ca…050f8               Head {h00=0x002a, h01=0x0050, text=» ANKL A3,/C00 GET LENGTH IN MODULO 4K «, t00=0x0033, t01=0x0126}
0x050f8…0511c               Head {h00=0x0020, h01=0x0050, text=» CWK A3,/400 PAGE SIZE = 1K?«, t00=0x0033, t01=0x0154}
0x0511c…05148               Head {h00=0x0028, h01=0x0050, text=» RF(E) AP:300 YES! ONE ENTRY ENOUGH «, t00=0x0033, t01=0x0178}
0x05148…05152               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0014}
0x05152…0517c               Head {h00=0x0026, h01=0x0050, text=» SUK A6,2 ALLOCATE ONE ENTRY EXTRA«, t00=0x0034, t01=0x001e}
0x0517c…0518e               Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x0034, t01=0x0048}
0x0518e…05198               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x005a}
0x05198…051ac               Head {h00=0x0010, h01=0x0050, text=»AP:300 EQU *«, t00=0x0034, t01=0x0064}
0x051ac…051e4               Head {h00=0x0034, h01=0x0050, text=» LD A3,SEGCNT+STKEND ANY CORE RESIDENT SEGMENTS?«, t00=0x0034, t01=0x0078}
0x051e4…051fe               Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:310 NO! «, t00=0x0034, t01=0x00b0}
0x051fe…05208               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00ca}
0x05208…05234               Head {h00=0x0028, h01=0x0050, text=» LDR A2,A7 GET SEGMENT FRAME ADDRESS«, t00=0x0034, t01=0x00d4}
0x05234…05256               Head {h00=0x001e, h01=0x0050, text=» LDR A3,A6 SAVE MMU ENTRY «, t00=0x0034, t01=0x0100}
0x05256…05260               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0122}
0x05260…05274               Head {h00=0x0010, h01=0x0050, text=»AP:305 EQU *«, t00=0x0034, t01=0x012c}
0x05274…052a2               Head {h00=0x002a, h01=0x0050, text=» STR A2,A3 STORE ADDRESS TO PAGE FRAME«, t00=0x0034, t01=0x0140}
0x052a2…052d0               Head {h00=0x002a, h01=0x0050, text=» ADK A3,2 INCREMENT MMU ENTRY ADDRESS «, t00=0x0034, t01=0x016e}
0x052d0…052f8               Head {h00=0x0024, h01=0x0050, text=» CWK A3,MMEND END OF MMU TABLE? «, t00=0x0035, t01=0x000c}
0x052f8…05312               Head {h00=0x0016, h01=0x0050, text=» RF(E) AP:310 YES!«, t00=0x0035, t01=0x0034}
0x05312…0531c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x004e}
0x0531c…0534c               Head {h00=0x002c, h01=0x0050, text=» ADKL A2,/400 INCREMENT PAGE FRAME ADDR.«, t00=0x0035, t01=0x0058}
0x0534c…0535e               Head {h00=0x000e, h01=0x0050, text=» RB AP:305«, t00=0x0035, t01=0x0088}
0x0535e…05368               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x009a}
0x05368…0537c               Head {h00=0x0010, h01=0x0050, text=»AP:310 EQU *«, t00=0x0035, t01=0x00a4}
0x0537c…05386               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00b8}
0x05386…053a6               Head {h00=0x001c, h01=0x0050, text=»*  SAVE LOGICAL ADDRESS «, t00=0x0035, t01=0x00c2}
0x053a6…053bc               Head {h00=0x0012, h01=0x0050, text=»*  TO SEGMENT «, t00=0x0035, t01=0x00e2}
0x053bc…053c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00f8}
0x053c6…053e6               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A8 GET MMU ENTRY«, t00=0x0035, t01=0x0102}
0x053e6…05410               Head {h00=0x0026, h01=0x0050, text=» SLL A2,12 MOVE TO 4 LEFTMOST BITS«, t00=0x0035, t01=0x0122}
0x05410…0544a               Head {h00=0x0036, h01=0x0050, text=» ST A2,APLLAP,A1 SAVE IN APPLICATION CONTROL BLOCK«, t00=0x0035, t01=0x014c}
0x0544a…05476               Head {h00=0x0028, h01=0x0050, text=» ORR A2,A4 CONCATENATE DISPLACEMENT «, t00=0x0035, t01=0x0186}
0x05476…054b2               Head {h00=0x0038, h01=0x0050, text=» ST A2,LSTASG+STKEND AND SAVE AS LOGICAL START ADDR.«, t00=0x0036, t01=0x0022}
0x054b2…054c4               Head {h00=0x000e, h01=0x0050, text=» RF AP:335«, t00=0x0036, t01=0x005e}
0x054c4…054ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0070}
0x054ce…054ec               Head {h00=0x001a, h01=0x0050, text=»*  NO SEGMENTS DEFINED«, t00=0x0036, t01=0x007a}
0x054ec…054f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0098}
0x054f6…0550a               Head {h00=0x0010, h01=0x0050, text=»AP:330 EQU *«, t00=0x0036, t01=0x00a2}
0x0550a…0553e               Head {h00=0x0030, h01=0x0050, text=» LDK A3,0 RESET NO OF MMU ENTRIES TO UPDATE «, t00=0x0036, t01=0x00b6}
0x0553e…0556a               Head {h00=0x0028, h01=0x0050, text=» LDKL A6,MMEND INITIATE MMU POINTER «, t00=0x0036, t01=0x00ea}
0x0556a…05594               Head {h00=0x0026, h01=0x0050, text=» LDKL A8,16 AND MMU ENTRY POINTER «, t00=0x0036, t01=0x0116}
0x05594…055be               Head {h00=0x0026, h01=0x0050, text=» LDR A4,A5 AREA LEFT IN LAST FRAME«, t00=0x0036, t01=0x0140}
0x055be…055d2               Head {h00=0x0010, h01=0x0050, text=»AP:335 EQU *«, t00=0x0036, t01=0x016a}
0x055d2…055dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x017e}
0x055dc…05608               Head {h00=0x0028, h01=0x0050, text=»* COMPUTE APPLICATION START ADDRESS «, t00=0x0036, t01=0x0188}
0x05608…05612               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0024}
0x05612…05646               Head {h00=0x0030, h01=0x0050, text=»*  A1 - POINTER TO APPLICATION CONTROL BLOCK«, t00=0x0037, t01=0x002e}
0x05646…05676               Head {h00=0x002c, h01=0x0050, text=»*  A4 - AREA LEFT IN CURRENT PAGE FRAME «, t00=0x0037, t01=0x0062}
0x05676…0569c               Head {h00=0x0022, h01=0x0050, text=»*  A7 - PHYSICAL PAGE ADDRESS «, t00=0x0037, t01=0x0092}
0x0569c…056be               Head {h00=0x001e, h01=0x0050, text=»*  A6 - MMU ENTRY ADDRESS «, t00=0x0037, t01=0x00b8}
0x056be…056e0               Head {h00=0x001e, h01=0x0050, text=»*  A8 - CURRENT MMU ENTRY «, t00=0x0037, t01=0x00da}
0x056e0…056ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00fc}
0x056ea…0571e               Head {h00=0x0030, h01=0x0050, text=» LD A2,COMLG,A9 COMLG OF CORE RESIDENT PART «, t00=0x0037, t01=0x0106}
0x0571e…0574c               Head {h00=0x002a, h01=0x0050, text=» LD A3,APLTYP,A1 GET APPLICATION TYPE «, t00=0x0037, t01=0x013a}
0x0574c…0576c               Head {h00=0x001c, h01=0x0050, text=» CWK A3,'AS' ASSEMBLER? «, t00=0x0037, t01=0x0168}
0x0576c…05786               Head {h00=0x0016, h01=0x0050, text=» RF(NE) AP:336 NO!«, t00=0x0037, t01=0x0188}
0x05786…05790               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0012}
0x05790…057c0               Head {h00=0x002c, h01=0x0050, text=» ADK A2,10 YES, ADD 5 WORDS FOR DEBUGGER«, t00=0x0038, t01=0x001c}
0x057c0…057d4               Head {h00=0x0010, h01=0x0050, text=»AP:336 EQU *«, t00=0x0038, t01=0x004c}
0x057d4…057e6               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0038, t01=0x0060}
0x057e6…0580e               Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN LENGTH «, t00=0x0038, t01=0x0072}
0x0580e…05818               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x009a}
0x05818…05840               Head {h00=0x0024, h01=0x0050, text=»*  IF APPLICATION IS LARGER THAN«, t00=0x0038, t01=0x00a4}
0x05840…05864               Head {h00=0x0020, h01=0x0050, text=»*  60 K BYTES, START ON A 4K«, t00=0x0038, t01=0x00cc}
0x05864…0588a               Head {h00=0x0022, h01=0x0050, text=»*  BOUNDARY, TO MAKE SURE THAT«, t00=0x0038, t01=0x00f0}
0x0588a…058ac               Head {h00=0x001e, h01=0x0050, text=»*  LOGICAL MEMORY WILL BE «, t00=0x0038, t01=0x0116}
0x058ac…058c8               Head {h00=0x0018, h01=0x0050, text=»*  MAXIMAL POSSIBLE.«, t00=0x0038, t01=0x0138}
0x058c8…058d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0154}
0x058d2…058e4               Head {h00=0x000e, h01=0x0050, text=» LDR A5,A2«, t00=0x0038, t01=0x015e}
0x058e4…05906               Head {h00=0x001e, h01=0x0050, text=» SRL A5,12 NO OF 4K BLOCKS«, t00=0x0038, t01=0x0170}
0x05906…05924 (57, 0, 400)  Head {h00=0x001a, h01=0x0050, text=» CWK A5,15 >60 KBYTES?«, t00=0x0039, t01=0x0004}
0x05924…0593e               Head {h00=0x0016, h01=0x0050, text=» RF(L) AP:337 NO! «, t00=0x0039, t01=0x0022}
0x0593e…05948               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x003c}
0x05948…05970               Head {h00=0x0024, h01=0x0050, text=» LDK A4,0 START ON A 4K BOUNDARY«, t00=0x0039, t01=0x0046}
0x05970…05982               Head {h00=0x000e, h01=0x0050, text=» RF AP:341«, t00=0x0039, t01=0x006e}
0x05982…0598c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0080}
0x0598c…059a0               Head {h00=0x0010, h01=0x0050, text=»AP:337 EQU *«, t00=0x0039, t01=0x008a}
0x059a0…059ca               Head {h00=0x0026, h01=0x0050, text=» ADK A2,0 RESTORE LENGTH CONDITION«, t00=0x0039, t01=0x009e}
0x059ca…059f4               Head {h00=0x0026, h01=0x0050, text=» RF(N) AP:340 LARGER THAN ONE PAGE«, t00=0x0039, t01=0x00c8}
0x059f4…059fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00f2}
0x059fe…05a28               Head {h00=0x0026, h01=0x0050, text=»* APPLICATION IS SMALLER THAN 32 K«, t00=0x0039, t01=0x00fc}
0x05a28…05a52               Head {h00=0x0026, h01=0x0050, text=»* BUT IS IT SMALLER THAN AREA LEFT«, t00=0x0039, t01=0x0126}
0x05a52…05a74               Head {h00=0x001e, h01=0x0050, text=»* IN LAST ALLOCATED PAGE? «, t00=0x0039, t01=0x0150}
0x05a74…05a7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0172}
0x05a7e…05a90               Head {h00=0x000e, h01=0x0050, text=» CWR A2,A4«, t00=0x0039, t01=0x017c}
0x05a90…05aac               Head {h00=0x0018, h01=0x0050, text=» RF(G) AP:340 LARGER«, t00=0x0039, t01=0x018e}
0x05aac…05ab6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x001a}
0x05ab6…05ae2               Head {h00=0x0028, h01=0x0050, text=»* APPLICATION LENGTH LESS THAN AREA «, t00=0x003a, t01=0x0024}
0x05ae2…05afe               Head {h00=0x0018, h01=0x0050, text=»* LEFT IN LAST PAGE «, t00=0x003a, t01=0x0050}
0x05afe…05b22               Head {h00=0x0020, h01=0x0050, text=»* COPY FRAME ADDRESS IN NEXT«, t00=0x003a, t01=0x006c}
0x05b22…05b36               Head {h00=0x0010, h01=0x0050, text=»* MMU ENTRY «, t00=0x003a, t01=0x0090}
0x05b36…05b40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00a4}
0x05b40…05b4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00ae}
0x05b4a…05b5c               Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x003a, t01=0x00b8}
0x05b5c…05b82               Head {h00=0x0022, h01=0x0050, text=» RF(N) TABOVF TABBE OVERFLOW! «, t00=0x003a, t01=0x00ca}
0x05b82…05b8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00f0}
0x05b8c…05b9e               Head {h00=0x000e, h01=0x0050, text=» SUK A6,2 «, t00=0x003a, t01=0x00fa}
0x05b9e…05bc2               Head {h00=0x0020, h01=0x0050, text=» STR A7,A6 UPDATE MMU ENTRY «, t00=0x003a, t01=0x010c}
0x05bc2…05bf2               Head {h00=0x002c, h01=0x0050, text=» LDR A5,A2 RESTORE LENGTH OF COMMON PART«, t00=0x003a, t01=0x0130}
0x05bf2…05c04               Head {h00=0x000e, h01=0x0050, text=» RF AP:351«, t00=0x003a, t01=0x0160}
0x05c04…05c0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0172}
0x05c0e…05c22               Head {h00=0x0010, h01=0x0050, text=»AP:340 EQU *«, t00=0x003a, t01=0x017c}
0x05c22…05c2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0190}
0x05c2c…05c58               Head {h00=0x0028, h01=0x0050, text=»*  RESERVE ENTRIES IN MMU TABLE FOR «, t00=0x003b, t01=0x000a}
0x05c58…05c7e               Head {h00=0x0022, h01=0x0050, text=»*  COMMON PART OF APPLICATION «, t00=0x003b, t01=0x0036}
0x05c7e…05c88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x005c}
0x05c88…05cb0               Head {h00=0x0024, h01=0x0050, text=»*  A4 - AREA MAPPED BUT NOT USED«, t00=0x003b, t01=0x0066}
0x05cb0…05cd2               Head {h00=0x001e, h01=0x0050, text=»*       IN LAST MMU ENTRY «, t00=0x003b, t01=0x008e}
0x05cd2…05cf8               Head {h00=0x0022, h01=0x0050, text=»*  A2 - LENGTH OF COMMON PART «, t00=0x003b, t01=0x00b0}
0x05cf8…05d18               Head {h00=0x001c, h01=0x0050, text=» LDR A4,A4 EMPTY FRAME? «, t00=0x003b, t01=0x00d6}
0x05d18…05d32               Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:341 YES!«, t00=0x003b, t01=0x00f6}
0x05d32…05d3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0110}
0x05d3c…05d68               Head {h00=0x0028, h01=0x0050, text=» SUKL A8,1 NO, ANY MMU ENTRIES LEFT?«, t00=0x003b, t01=0x011a}
0x05d68…05d82               Head {h00=0x0016, h01=0x0050, text=» RF(N) TABOVF NO! «, t00=0x003b, t01=0x0146}
0x05d82…05d8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0160}
0x05d8c…05db8               Head {h00=0x0028, h01=0x0050, text=» SUK A6,2 ADVANCE TO NEXT MMU ENTRY «, t00=0x003b, t01=0x016a}
0x05db8…05de2               Head {h00=0x0026, h01=0x0050, text=» STR A7,A6 AND COPY FRAME ADDRESS «, t00=0x003c, t01=0x0008}
0x05de2…05df6               Head {h00=0x0010, h01=0x0050, text=»AP:341 EQU *«, t00=0x003c, t01=0x0032}
0x05df6…05e2c               Head {h00=0x0032, h01=0x0050, text=» SUR A2,A4 SUBTRACT AREA LEFT IN CURRENT FRAME«, t00=0x003c, t01=0x0046}
0x05e2c…05e5c               Head {h00=0x002c, h01=0x0050, text=» LDK A4,0 RESET AREA LEFT IN LAST FRAME «, t00=0x003c, t01=0x007c}
0x05e5c…05e8a               Head {h00=0x002a, h01=0x0050, text=» LDR A5,A2 SAVE REMAINING AREA NEEDED «, t00=0x003c, t01=0x00ac}
0x05e8a…05eac               Head {h00=0x001e, h01=0x0050, text=» RF(Z) AP:351 NOTHING LEFT«, t00=0x003c, t01=0x00da}
0x05eac…05eb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00fc}
0x05eb6…05ee4               Head {h00=0x002a, h01=0x0050, text=» SRL A2,12 CONVERT TO NO OF 4K FRAMES «, t00=0x003c, t01=0x0106}
0x05ee4…05efa               Head {h00=0x0012, h01=0x0050, text=» ANKL A5,/0FFF«, t00=0x003c, t01=0x0134}
0x05efa…05f1c               Head {h00=0x001e, h01=0x0050, text=» RF(Z) AP:342 NO REMAINDER«, t00=0x003c, t01=0x014a}
0x05f1c…05f26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x016c}
0x05f26…05f50               Head {h00=0x0026, h01=0x0050, text=» ADK A2,1 ALLOCATE ONE MORE ENTRY «, t00=0x003c, t01=0x0176}
0x05f50…05f5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0010}
0x05f5a…05f76               Head {h00=0x0018, h01=0x0050, text=»*  UPDTE MMU ENTRIES«, t00=0x003d, t01=0x001a}
0x05f76…05f80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0036}
0x05f80…05f94               Head {h00=0x0010, h01=0x0050, text=»AP:342 EQU *«, t00=0x003d, t01=0x0040}
0x05f94…05fbe               Head {h00=0x0026, h01=0x0050, text=» SUK A2,1 MORE ENTRIES TO UPDATE? «, t00=0x003d, t01=0x0054}
0x05fbe…05fd8               Head {h00=0x0016, h01=0x0050, text=» RF(N) AP:350 NO! «, t00=0x003d, t01=0x007e}
0x05fd8…05fe2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0098}
0x05fe2…06010               Head {h00=0x002a, h01=0x0050, text=» SUKL A8,1 DECREMENT MMU ENTRY POINTER«, t00=0x003d, t01=0x00a2}
0x06010…06036               Head {h00=0x0022, h01=0x0050, text=» RF(N) TABOVF TABLE OVERFLOW! «, t00=0x003d, t01=0x00d0}
0x06036…06040               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00f6}
0x06040…0606c               Head {h00=0x0028, h01=0x0050, text=» SUK A6,2 DECREMENT MMU ENTRY ADDR. «, t00=0x003d, t01=0x0100}
0x0606c…0609a               Head {h00=0x002a, h01=0x0050, text=» SUKL A7,/400 DECREMENT FRAME ADDRESS «, t00=0x003d, t01=0x012c}
0x0609a…060c0               Head {h00=0x0022, h01=0x0050, text=» STR A7,A6 STORE FRAME ADDRESS«, t00=0x003d, t01=0x015a}
0x060c0…060d2               Head {h00=0x000e, h01=0x0050, text=» RB AP:342«, t00=0x003d, t01=0x0180}
0x060d2…060dc (62, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0004}
0x060dc…060f0               Head {h00=0x0010, h01=0x0050, text=»TABOVF EQU *«, t00=0x003e, t01=0x000e}
0x060f0…06104               Head {h00=0x0010, h01=0x0050, text=» LDK A1,LMP7«, t00=0x003e, t01=0x0022}
0x06104…0612e               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR SIGNAL TABBE OVERFLOW!«, t00=0x003e, t01=0x0036}
0x0612e…06142               Head {h00=0x0010, h01=0x0050, text=»MEMOVF EQU *«, t00=0x003e, t01=0x0060}
0x06142…06158               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x003e, t01=0x0074}
0x06158…0617c               Head {h00=0x0020, h01=0x0050, text=» CALL ERROR MEMORY OVERFLOW!«, t00=0x003e, t01=0x008a}
0x0617c…06186               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00ae}
0x06186…0619a               Head {h00=0x0010, h01=0x0050, text=»AP:350 EQU *«, t00=0x003e, t01=0x00b8}
0x0619a…061a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00cc}
0x061a4…061d8               Head {h00=0x0030, h01=0x0050, text=» LDR A5,A5 RESTORE AREA TO USE IN LAST FRAME«, t00=0x003e, t01=0x00d6}
0x061d8…061ee               Head {h00=0x0012, h01=0x0050, text=» RF(Z) AP:351 «, t00=0x003e, t01=0x010a}
0x061ee…061f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0120}
0x061f8…0621e               Head {h00=0x0022, h01=0x0050, text=» LDKL A4,PAGSIZ GET FRAME SIZE«, t00=0x003e, t01=0x012a}
0x0621e…06232               Head {h00=0x0010, h01=0x0050, text=»AP:351 EQU *«, t00=0x003e, t01=0x0150}
0x06232…0626a               Head {h00=0x0034, h01=0x0050, text=» SUR A4,A5 ALLOCATE REMAINIG AREA IN LAST FRAME «, t00=0x003e, t01=0x0164}
0x0626a…0628a               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A8 GET MMU ENTRY«, t00=0x003f, t01=0x000c}
0x0628a…062b8               Head {h00=0x002a, h01=0x0050, text=» SLL A2,12 MOVE TO FOUR LEFTMOST BITS «, t00=0x003f, t01=0x002c}
0x062b8…062ca               Head {h00=0x000e, h01=0x0050, text=» LDR A8,A2«, t00=0x003f, t01=0x005a}
0x062ca…062f2               Head {h00=0x0024, h01=0x0050, text=» ORR A8,A4 LOGICAL START ADDRESS«, t00=0x003f, t01=0x006c}
0x062f2…0631e               Head {h00=0x0028, h01=0x0050, text=» CWK A3,'AS' ASSEMBLER APPLICATION? «, t00=0x003f, t01=0x0094}
0x0631e…06338               Head {h00=0x0016, h01=0x0050, text=» RF(NE) AP:352 NO!«, t00=0x003f, t01=0x00c0}
0x06338…06342               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00da}
0x06342…06370               Head {h00=0x002a, h01=0x0050, text=» ADKL A8,10 SKIP FIVE PRECEEDING WORDS«, t00=0x003f, t01=0x00e4}
0x06370…06384               Head {h00=0x0010, h01=0x0050, text=»AP:352 EQU *«, t00=0x003f, t01=0x0112}
0x06384…063a6               Head {h00=0x001e, h01=0x0050, text=» ST A8,LLDADR+STKEND SAVE «, t00=0x003f, t01=0x0126}
0x063a6…063c4               Head {h00=0x001a, h01=0x0050, text=» ST A7,SCTEFA AND SAVE«, t00=0x003f, t01=0x0148}
0x063c4…063f4               Head {h00=0x002c, h01=0x0050, text=» ST A4,SCTEFA+2 SAVE OFFSET WITHIN FRAME«, t00=0x003f, t01=0x0166}
0x063f4…06432               Head {h00=0x003a, h01=0x0050, text=» ST A7,APLLDA,A1 SAVE APPLICATION LOAD ADDR. (BIT 0-5)«, t00=0x0040, t01=0x0008}
0x06432…0645a               Head {h00=0x0024, h01=0x0050, text=» ST A4,APLLDA+2,A1 AND BIT 6-17 «, t00=0x0040, t01=0x0046}
0x0645a…0648a               Head {h00=0x002c, h01=0x0050, text=» ST A7,FYSPAG+STKCOM SAVE LAST PHYSICAL «, t00=0x0040, t01=0x006e}
0x0648a…064b4               Head {h00=0x0026, h01=0x0050, text=» ST A4,LSTADR+STKCOM ADDRESS USED «, t00=0x0040, t01=0x009e}
0x064b4…064e4               Head {h00=0x002c, h01=0x0050, text=» LDR* A1,A6 GET ADDRESS TO PHYSICAL PAGE«, t00=0x0040, t01=0x00c8}
0x064e4…0650c               Head {h00=0x0024, h01=0x0050, text=» ANKL A1,/C000 GREATER THAN 64K?«, t00=0x0040, t01=0x00f8}
0x0650c…06526               Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:353 NO! «, t00=0x0040, t01=0x0120}
0x06526…0654a               Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 UPPER LIMIT 64 KB «, t00=0x0040, t01=0x013a}
0x0654a…0655c               Head {h00=0x000e, h01=0x0050, text=» RF AP:354«, t00=0x0040, t01=0x015e}
0x0655c…06570               Head {h00=0x0010, h01=0x0050, text=»AP:353 EQU *«, t00=0x0040, t01=0x0170}
0x06570…06598               Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A6 GET PHYSICAL ADDRESS«, t00=0x0040, t01=0x0184}
0x06598…065aa               Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0041, t01=0x001c}
0x065aa…065ce               Head {h00=0x0020, h01=0x0050, text=» ADR A1,A4 ADD DISPLACEMENT «, t00=0x0041, t01=0x002e}
0x065ce…065fa               Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTSFA GET START OF FREE AREA«, t00=0x0041, t01=0x0052}
0x065fa…06626               Head {h00=0x0028, h01=0x0050, text=» TNM A1,A2 ON SAME SIDE OF 32K-LIMIT«, t00=0x0041, t01=0x007e}
0x06626…06642               Head {h00=0x0018, h01=0x0050, text=» RF(NN) AP3532 YES! «, t00=0x0041, t01=0x00aa}
0x06642…06654               Head {h00=0x000e, h01=0x0050, text=» CWR A2,A1«, t00=0x0041, t01=0x00c6}
0x06654…06666               Head {h00=0x000e, h01=0x0050, text=» RF AP3534«, t00=0x0041, t01=0x00d8}
0x06666…0667e               Head {h00=0x0014, h01=0x0050, text=»AP3532 CWR A1,A2«, t00=0x0041, t01=0x00ea}
0x0667e…06692               Head {h00=0x0010, h01=0x0050, text=»AP3534 EQU *«, t00=0x0041, t01=0x0102}
0x06692…066b8               Head {h00=0x0022, h01=0x0050, text=» RB(L) MEMOVF MEMORY OVERFLOW!«, t00=0x0041, t01=0x0116}
0x066b8…066cc               Head {h00=0x0010, h01=0x0050, text=»AP:354 EQU *«, t00=0x0041, t01=0x013c}
0x066cc…066ee               Head {h00=0x001e, h01=0x0050, text=» ST A1,ESYSTA+STKEND SAVE «, t00=0x0041, t01=0x0150}
0x066ee…06720               Head {h00=0x002e, h01=0x0050, text=» LD A10,COMLG,A9 LOAD COMLG OF COMMON PART«, t00=0x0041, t01=0x0172}
0x06720…06744               Head {h00=0x0020, h01=0x0050, text=» TL TABBE LOAD MMU REGISTERS«, t00=0x0042, t01=0x0014}
0x06744…06750               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0038}
0x06750…06766               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0042, t01=0x0044}
0x06766…06774               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x005a}
0x06774…06788               Head {h00=0x0010, h01=0x0050, text=»AP:240 EQU *«, t00=0x0042, t01=0x0068}
0x06788…06792               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x007c}
0x06792…067d6               Head {h00=0x0040, h01=0x0050, text=»*  EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITHOUT MMU OPTION«, t00=0x0042, t01=0x0086}
0x067d6…067e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00ca}
0x067e0…067ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00d4}
0x067ea…06814               Head {h00=0x0026, h01=0x0050, text=»*  CHECK IF ASSEMBLER APPLICATION «, t00=0x0042, t01=0x00de}
0x06814…0681e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0108}
0x0681e…0684a               Head {h00=0x0028, h01=0x0050, text=» CWK A6,'AS' ASSEMBLER APPLICATION? «, t00=0x0042, t01=0x0112}
0x0684a…06864               Head {h00=0x0016, h01=0x0050, text=» RF(E) AP:275 YES!«, t00=0x0042, t01=0x013e}
0x06864…06892               Head {h00=0x002a, h01=0x0050, text=» LD A2,NUMSEG+8,A9 NUMBER OF SEGMENTS «, t00=0x0042, t01=0x0158}
0x06892…068b4               Head {h00=0x001e, h01=0x0050, text=» RF(Z) AP:275 NO SEGMENTS!«, t00=0x0042, t01=0x0186}
0x068b4…068e4               Head {h00=0x002c, h01=0x0050, text=» CF A14,ALOCSG RESERVE AREA FOR SEGMENTS«, t00=0x0043, t01=0x0018}
0x068e4…06914               Head {h00=0x002c, h01=0x0050, text=» LDR A2,A7 CONFIGURE LOGICAL START ADDR.«, t00=0x0043, t01=0x0048}
0x06914…06936               Head {h00=0x001e, h01=0x0050, text=» SLL A2,2 TO FIRST SEGMENT«, t00=0x0043, t01=0x0078}
0x06936…06948               Head {h00=0x000e, h01=0x0050, text=» ORR A2,A5«, t00=0x0043, t01=0x009a}
0x06948…06964               Head {h00=0x0018, h01=0x0050, text=» ST A2,LSTASG+STKEND«, t00=0x0043, t01=0x00ac}
0x06964…06978               Head {h00=0x0010, h01=0x0050, text=»AP:275 EQU *«, t00=0x0043, t01=0x00c8}
0x06978…069aa               Head {h00=0x002e, h01=0x0050, text=» LD A10,COMLG,A9 GET LENGTH OF COMMON PART«, t00=0x0043, t01=0x00dc}
0x069aa…069d8               Head {h00=0x002a, h01=0x0050, text=» LD A3,APLTYP,A1 GET APPLICATION TYPE «, t00=0x0043, t01=0x010e}
0x069d8…069f8               Head {h00=0x001c, h01=0x0050, text=» CWK A3,'AS' ASSEMBLER? «, t00=0x0043, t01=0x013c}
0x069f8…06a12               Head {h00=0x0016, h01=0x0050, text=» RF(NE) AP:276 NO!«, t00=0x0043, t01=0x015c}
0x06a12…06a1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0176}
0x06a1c…06a4e               Head {h00=0x002e, h01=0x0050, text=» ADKL A10,10 YES, ADD 5 WORDS FOR DEBUGGER«, t00=0x0043, t01=0x0180}
0x06a4e…06a62               Head {h00=0x0010, h01=0x0050, text=»AP:276 EQU *«, t00=0x0044, t01=0x0022}
0x06a62…06a76               Head {h00=0x0010, h01=0x0050, text=» ADKL A10,1 «, t00=0x0044, t01=0x0036}
0x06a76…06a9e               Head {h00=0x0024, h01=0x0050, text=» ANKL A10,/FFFE MAKE EVEN LENGTH«, t00=0x0044, t01=0x004a}
0x06a9e…06ada               Head {h00=0x0038, h01=0x0050, text=» RF(N) AP:278 APPLICATION IS LARGER THAN FRAME SIZE «, t00=0x0044, t01=0x0072}
0x06ada…06ae4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00ae}
0x06ae4…06b26               Head {h00=0x003e, h01=0x0050, text=» CWR A10,A5 APPL. IS SMALLER THAN AREA LEFT IN LAST FRAME «, t00=0x0044, t01=0x00b8}
0x06b26…06b42               Head {h00=0x0018, h01=0x0050, text=» RF(NG) AP:280 YES! «, t00=0x0044, t01=0x00fa}
0x06b42…06b4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0116}
0x06b4c…06b60               Head {h00=0x0010, h01=0x0050, text=»AP:278 EQU *«, t00=0x0044, t01=0x0120}
0x06b60…06b96               Head {h00=0x0032, h01=0x0050, text=» SUR A10,A5 SUBTRACT AREA UNUSED IN LAST FRAME«, t00=0x0044, t01=0x0134}
0x06b96…06bc6               Head {h00=0x002c, h01=0x0050, text=» LDK A5,0 NO AREA LEFT IN CURRENT FRAME «, t00=0x0044, t01=0x016a}
0x06bc6…06bee               Head {h00=0x0024, h01=0x0050, text=» LDR A2,A10 GET REMAINING LENGTH«, t00=0x0045, t01=0x000a}
0x06bee…06c16               Head {h00=0x0024, h01=0x0050, text=» SRL A2,12 COUNT NO OF 4K BLOCKS«, t00=0x0045, t01=0x0032}
0x06c16…06c46               Head {h00=0x002c, h01=0x0050, text=» SRL A7,10 FRAME ADDRESS AS BLOCK COUNT «, t00=0x0045, t01=0x005a}
0x06c46…06c6e               Head {h00=0x0024, h01=0x0050, text=» SUR A7,A2 SUBTRACT AREA NEEDED «, t00=0x0045, t01=0x008a}
0x06c6e…06c94               Head {h00=0x0022, h01=0x0050, text=» RF(N) MEMOVF MEMORY OVERFLOW!«, t00=0x0045, t01=0x00b2}
0x06c94…06c9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00d8}
0x06c9e…06cd0               Head {h00=0x002e, h01=0x0050, text=» ANKL A10,/0FFF ISOLATE POSSIBLE REMAINDER«, t00=0x0045, t01=0x00e2}
0x06cd0…06cf2               Head {h00=0x001e, h01=0x0050, text=» RF(Z) AP:279 NO REMAINDER«, t00=0x0045, t01=0x0114}
0x06cf2…06cfc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0136}
0x06cfc…06d2a               Head {h00=0x002a, h01=0x0050, text=» LDKL A5,PAGSIZ RESERVE ONE NEW FRAME «, t00=0x0045, t01=0x0140}
0x06d2a…06d3c               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0045, t01=0x016e}
0x06d3c…06d62               Head {h00=0x0022, h01=0x0050, text=» RF(N) MEMOVF MEMORY OVERFLOW!«, t00=0x0045, t01=0x0180}
0x06d62…06d6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0016}
0x06d6c…06d80               Head {h00=0x0010, h01=0x0050, text=»AP:279 EQU *«, t00=0x0046, t01=0x0020}
0x06d80…06da8               Head {h00=0x0024, h01=0x0050, text=» SLL A7,10 RESTORE FRAME ADDRESS«, t00=0x0046, t01=0x0034}
0x06da8…06dbc               Head {h00=0x0010, h01=0x0050, text=»AP:280 EQU *«, t00=0x0046, t01=0x005c}
0x06dbc…06df2               Head {h00=0x0032, h01=0x0050, text=» SUR A5,A10 ALLOCATE AREA NEEDED IN LAST FRAME«, t00=0x0046, t01=0x0070}
0x06df2…06e0c               Head {h00=0x0016, h01=0x0050, text=» LDR A4,A9 SAVE A9«, t00=0x0046, t01=0x00a6}
0x06e0c…06e28               Head {h00=0x0018, h01=0x0050, text=» LDR A8,A11 SAVE A11«, t00=0x0046, t01=0x00c0}
0x06e28…06e46               Head {h00=0x001a, h01=0x0050, text=» ST A7,SCTEFA AND SAVE«, t00=0x0046, t01=0x00dc}
0x06e46…06e7c               Head {h00=0x0032, h01=0x0050, text=» ST A5,SCTEFA+2 SAVE DISPLACEMENT WITHIN PAGE «, t00=0x0046, t01=0x00fa}
0x06e7c…06eb6               Head {h00=0x0036, h01=0x0050, text=» ST A7,APLLDA,A1 SAVE PHYSICAL LOAD ADDR (BIT 0-5)«, t00=0x0046, t01=0x0130}
0x06eb6…06eec               Head {h00=0x0032, h01=0x0050, text=» ST A5,APLLDA+2,A1 AND BIT 6-17 OF APPLICATION«, t00=0x0046, t01=0x016a}
0x06eec…06f1c               Head {h00=0x002c, h01=0x0050, text=» ST A7,FYSPAG+STKCOM SAVE LAST PHYSICAL «, t00=0x0047, t01=0x0010}
0x06f1c…06f46               Head {h00=0x0026, h01=0x0050, text=» ST A5,LSTADR+STKCOM ADDRESS USED «, t00=0x0047, t01=0x0040}
0x06f46…06f58               Head {h00=0x000e, h01=0x0050, text=» SLL A7,2 «, t00=0x0047, t01=0x006a}
0x06f58…06f6c               Head {h00=0x0010, h01=0x0050, text=» LDR A11,A7 «, t00=0x0047, t01=0x007c}
0x06f6c…06f9e               Head {h00=0x002e, h01=0x0050, text=» ORR A11,A5 MAKE ADDRESS AS A 16 BIT ADDR.«, t00=0x0047, t01=0x0090}
0x06f9e…06fca               Head {h00=0x0028, h01=0x0050, text=» LD A9,SCTSFA GET START OF FREE AREA«, t00=0x0047, t01=0x00c2}
0x06fca…06ff2               Head {h00=0x0024, h01=0x0050, text=» CALL CMPADR A11 COMPARED TO A9 «, t00=0x0047, t01=0x00ee}
0x06ff2…07008               Head {h00=0x0012, h01=0x0050, text=» RF(G) AP:290 «, t00=0x0047, t01=0x0116}
0x07008…07012               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x012c}
0x07012…07026               Head {h00=0x0010, h01=0x0050, text=»MEMOVF EQU *«, t00=0x0047, t01=0x0136}
0x07026…0704c               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP3 MEMORY OVERFLOW!«, t00=0x0047, t01=0x014a}
0x0704c…07060               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0047, t01=0x0170}
0x07060…0706a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0184}
0x0706a…0707e               Head {h00=0x0010, h01=0x0050, text=»AP:290 EQU *«, t00=0x0047, t01=0x018e}
0x0707e…070aa               Head {h00=0x0028, h01=0x0050, text=» CWK A3,'AS' ASSEMBLER APPLICATION? «, t00=0x0048, t01=0x0012}
0x070aa…070c4               Head {h00=0x0016, h01=0x0050, text=» RF(NE) AP:295 NO!«, t00=0x0048, t01=0x003e}
0x070c4…070ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0058}
0x070ce…070fa               Head {h00=0x0028, h01=0x0050, text=» ADKL A11,10 SKIP 5 PRECEEDING WORDS«, t00=0x0048, t01=0x0062}
0x070fa…0710e               Head {h00=0x0010, h01=0x0050, text=»AP:295 EQU *«, t00=0x0048, t01=0x008e}
0x0710e…07144               Head {h00=0x0032, h01=0x0050, text=» ST A11,LLDADR+STKEND SAVE APPL. LOAD ADDRESS «, t00=0x0048, t01=0x00a2}
0x07144…07162               Head {h00=0x001a, h01=0x0050, text=» LDR A9,A4 RESTORE A9 «, t00=0x0048, t01=0x00d8}
0x07162…07182               Head {h00=0x001c, h01=0x0050, text=» LDR A11,A8 RESTORE A11 «, t00=0x0048, t01=0x00f6}
0x07182…071b8               Head {h00=0x0032, h01=0x0050, text=» LD A8,LLDADR+STKEND A8 - LOGICAL LOAD ADDRESS«, t00=0x0048, t01=0x0116}
0x071b8…071f2               Head {h00=0x0036, h01=0x0050, text=» ST A8,ESYSTA+STKEND SAVE APPLICATION LOAD-ADDRESS«, t00=0x0048, t01=0x014c}
0x071f2…07224               Head {h00=0x002e, h01=0x0050, text=» LD A10,COMLG,A9 GET LENGTH OF COMMON PART«, t00=0x0048, t01=0x0186}
0x07224…07230               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x0028}
0x07230…0723e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x0034}
0x0723e…07248               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0042}
0x07248…07268               Head {h00=0x001c, h01=0x0050, text=»*  COMMON EXECUTION PATH«, t00=0x0049, t01=0x004c}
0x07268…07272               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x006c}
0x07272…072b0               Head {h00=0x003a, h01=0x0050, text=»*  READ AND RELOCATE CORE RESIDENT PART OF APPLICATION«, t00=0x0049, t01=0x0076}
0x072b0…072ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00b4}
0x072ba…072e2               Head {h00=0x0024, h01=0x0050, text=»*  A8 - APPLICATION LOAD ADDRESS«, t00=0x0049, t01=0x00be}
0x072e2…07310               Head {h00=0x002a, h01=0x0050, text=»*  A10 - LENGTH OF CORE RESIDENT PART «, t00=0x0049, t01=0x00e6}
0x07310…0731a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0114}
0x0731a…0732e               Head {h00=0x0010, h01=0x0050, text=»AP:355 EQU *«, t00=0x0049, t01=0x011e}
0x0732e…0736e               Head {h00=0x003c, h01=0x0050, text=» LD A1,CURAPL+STKEND RESTORE APPL. CONTROL BLOCK POINTER«, t00=0x0049, t01=0x0132}
0x0736e…0739c               Head {h00=0x002a, h01=0x0050, text=» ST A8,APLLAC,A1 SAVE LOGICAL ADDRESS «, t00=0x0049, t01=0x0172}
0x0739c…073d6               Head {h00=0x0036, h01=0x0050, text=» ST A8,APLREL,A1 SAVE APPLICATION RELOCATION BASE «, t00=0x004a, t01=0x0010}
0x073d6…0740e               Head {h00=0x0034, h01=0x0050, text=» CM FSTSEC+STKEND RESET FIRST SECTOR/BLOCK IND. «, t00=0x004a, t01=0x004a}
0x0740e…07448               Head {h00=0x0036, h01=0x0050, text=» LDKL A7,240 INITIATE NR OF CODE WORDS/SECT/BLOCK «, t00=0x004a, t01=0x0082}
0x07448…07470               Head {h00=0x0024, h01=0x0050, text=» ST A7,LOD:10 MODIFY INSTRUCTION«, t00=0x004a, t01=0x00bc}
0x07470…0749e               Head {h00=0x002a, h01=0x0050, text=» CF A14,LODCOM LOAD CORE RESIDENT PART«, t00=0x004a, t01=0x00e4}
0x0749e…074a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0112}
0x074a8…074d2               Head {h00=0x0026, h01=0x0050, text=»*  CHECK IF ASSEMBLER APPLICATION «, t00=0x004a, t01=0x011c}
0x074d2…074dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0146}
0x074dc…07518               Head {h00=0x0038, h01=0x0050, text=» LD A1,CURAPL+STKEND GET CURRENT APPL. CONTR. BLOCK «, t00=0x004a, t01=0x0150}
0x07518…07548               Head {h00=0x002c, h01=0x0050, text=» LD A2,APLTYP,A1 AND TYPE OF THIS APPL. «, t00=0x004a, t01=0x018c}
0x07548…07574               Head {h00=0x0028, h01=0x0050, text=» CWK A2,'AS' ASSEMBLER APPLICATION? «, t00=0x004b, t01=0x002c}
0x07574…0758e               Head {h00=0x0016, h01=0x0050, text=» ABL(E) AP:400 YES«, t00=0x004b, t01=0x0058}
0x0758e…075cc               Head {h00=0x003a, h01=0x0050, text=» LD A8,LSTASG+STKEND GET LOGICAL ADDRESS TO FIRST PAGE«, t00=0x004b, t01=0x0072}
0x075cc…07600               Head {h00=0x0030, h01=0x0050, text=» LD A2,TNBRSG+STKEND GET NUMBER OF SEGMENTS «, t00=0x004b, t01=0x00b0}
0x07600…07632               Head {h00=0x002e, h01=0x0050, text=» ABL(Z) AP:400 NO SEGMENTS IN APPLICATION «, t00=0x004b, t01=0x00e4}
0x07632…0763c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0116}
0x0763c…07674               Head {h00=0x0034, h01=0x0050, text=» CM SEGCNT+STKEND CLEAR NO OF SEGMENTS PROCESSED«, t00=0x004b, t01=0x0120}
0x07674…0768a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004b, t01=0x0158}
0x0768a…076bc               Head {h00=0x002e, h01=0x0050, text=» TS MMDDIV,A13 SAVE MMU REGISTER CONTENTS «, t00=0x004b, t01=0x016e}
0x076bc…076c8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004c, t01=0x0010}
0x076c8…076dc               Head {h00=0x0010, h01=0x0050, text=»AP:360 EQU *«, t00=0x004c, t01=0x001c}
0x076dc…076e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0030}
0x076e6…07710               Head {h00=0x0026, h01=0x0050, text=»*  READ AND RELOCATE THE SEGMENTS «, t00=0x004c, t01=0x003a}
0x07710…0771a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0064}
0x0771a…0774c               Head {h00=0x002e, h01=0x0050, text=»*  A8 - LOGICAL ADDRESS OF SAVE05 SEGMENT «, t00=0x004c, t01=0x006e}
0x0774c…0776c               Head {h00=0x001c, h01=0x0050, text=»*  A10 - SEGMENT LENGTH «, t00=0x004c, t01=0x00a0}
0x0776c…07776               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00c0}
0x07776…077b0               Head {h00=0x0036, h01=0x0050, text=» LD A3,CURAPL+STKEND GET APPL. CONTROL BLOCK ADDR.«, t00=0x004c, t01=0x00ca}
0x077b0…077e4               Head {h00=0x0030, h01=0x0050, text=» LD A2,APLLAC,A3 GET LOGICAL ADDR. TO APPL. «, t00=0x004c, t01=0x0104}
0x077e4…07802               Head {h00=0x001a, h01=0x0050, text=» ADKL A2,BLKLEN+BLKLEN«, t00=0x004c, t01=0x0138}
0x07802…07832               Head {h00=0x002c, h01=0x0050, text=» LD A1,SEGCNT+STKEND GET SEGMENT COUNTER«, t00=0x004c, t01=0x0156}
0x07832…07846               Head {h00=0x0010, h01=0x0050, text=»AP:365 EQU *«, t00=0x004c, t01=0x0186}
0x07846…0785c               Head {h00=0x0012, h01=0x0050, text=» RF(Z) AP:370 «, t00=0x004d, t01=0x000a}
0x0785c…0787e               Head {h00=0x001e, h01=0x0050, text=» ADK A2,BLKLEN NEXT BLOCK «, t00=0x004d, t01=0x0020}
0x0787e…078a8               Head {h00=0x0026, h01=0x0050, text=» SUK A1,1 DECREMENT BLOCK COUNTER «, t00=0x004d, t01=0x0042}
0x078a8…078ba               Head {h00=0x000e, h01=0x0050, text=» RB AP:365«, t00=0x004d, t01=0x006c}
0x078ba…078ce               Head {h00=0x0010, h01=0x0050, text=»AP:370 EQU *«, t00=0x004d, t01=0x007e}
0x078ce…078d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0092}
0x078d8…078f8               Head {h00=0x001c, h01=0x0050, text=»*  CHECK IF DISC PAGING «, t00=0x004d, t01=0x009c}
0x078f8…07902               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00bc}
0x07902…07928               Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x004d, t01=0x00c6}
0x07928…07946               Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x004d, t01=0x00ec}
0x07946…07960               Head {h00=0x0016, h01=0x0050, text=» RF(Z) AP:376 NO! «, t00=0x004d, t01=0x010a}
0x07960…0796a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0124}
0x0796a…07994               Head {h00=0x0026, h01=0x0050, text=»*  CHECK IF CORE RESIDENT SEGMENT «, t00=0x004d, t01=0x012e}
0x07994…0799e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0158}
0x0799e…079c4               Head {h00=0x0022, h01=0x0050, text=» CALL GETCON GET SEGMENT TYPE «, t00=0x004d, t01=0x0162}
0x079c4…079f2               Head {h00=0x002a, h01=0x0050, text=» LDR A12,A1 GET MOST SIGNIFICANT PART «, t00=0x004d, t01=0x0188}
0x079f2…07a18               Head {h00=0x0022, h01=0x0050, text=» ANKL A12,/FF OF DISC ADDRESS «, t00=0x004e, t01=0x0026}
0x07a18…07a46               Head {h00=0x002a, h01=0x0050, text=» SRL A1,8 SEGMENT TYPE TO RIGHT BYTE  «, t00=0x004e, t01=0x004c}
0x07a46…07a72               Head {h00=0x0028, h01=0x0050, text=» CCK A1,'RR' CORE RESIDENT SEGMENT? «, t00=0x004e, t01=0x007a}
0x07a72…07aa0               Head {h00=0x002a, h01=0x0050, text=» RF(E) AP:376 YES: LOAD THIS SEGMENT! «, t00=0x004e, t01=0x00a6}
0x07aa0…07aaa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00d4}
0x07aaa…07ad8               Head {h00=0x002a, h01=0x0050, text=»*  BYPASS THIS SEGMENT AND CHECK NEXT «, t00=0x004e, t01=0x00de}
0x07ad8…07ae2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x010c}
0x07ae2…07b12               Head {h00=0x002c, h01=0x0050, text=» LD A1,SEGCNT+STKEND GET SEGMENT COUNTER«, t00=0x004e, t01=0x0116}
0x07b12…07b4c               Head {h00=0x0036, h01=0x0050, text=» LD A2,TNBRSG+STKEND GET TOTAL NUMBER OF SEGMENTS «, t00=0x004e, t01=0x0146}
0x07b4c…07b68               Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 INCREMENT «, t00=0x004e, t01=0x0180}
0x07b68…07b88               Head {h00=0x001c, h01=0x0050, text=» CWR A1,A2 LAST SEGMENT?«, t00=0x004f, t01=0x000c}
0x07b88…07ba4               Head {h00=0x0018, h01=0x0050, text=» ABL(E) AP:400 YES! «, t00=0x004f, t01=0x002c}
0x07ba4…07bdc               Head {h00=0x0034, h01=0x0050, text=» ST A1,SEGCNT+STKEND SAVE CURRENT SEGMENT NUMBER«, t00=0x004f, t01=0x0048}
0x07bdc…07bee               Head {h00=0x000e, h01=0x0050, text=» RB AP:360«, t00=0x004f, t01=0x0080}
0x07bee…07c18               Head {h00=0x0026, h01=0x0050, text=»AP:375 LDKL A1,LMP2 DISC I/O ERROR«, t00=0x004f, t01=0x0092}
0x07c18…07c2c               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x004f, t01=0x00bc}
0x07c2c…07c3a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x00d0}
0x07c3a…07c4e               Head {h00=0x0010, h01=0x0050, text=»AP:376 EQU *«, t00=0x004f, t01=0x00de}
0x07c4e…07c74               Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 DISC SECTOR ADDRESS «, t00=0x004f, t01=0x00f2}
0x07c74…07ca0               Head {h00=0x0028, h01=0x0050, text=» CALL GETCON GET DISC SECTOR ADDRESS«, t00=0x004f, t01=0x0118}
0x07ca0…07cb8               Head {h00=0x0014, h01=0x0050, text=» LDR A11,A1 SAVE«, t00=0x004f, t01=0x0144}
0x07cb8…07cf4               Head {h00=0x0038, h01=0x0050, text=» AD A11,APLADA+2,A3 ADD LEAST SIGN. PART OF A.D.A.? «, t00=0x004f, t01=0x015c}
0x07cf4…07d12               Head {h00=0x001a, h01=0x0050, text=» RF(O) AP:377 OVERFLOW«, t00=0x0050, t01=0x0008}
0x07d12…07d32               Head {h00=0x001c, h01=0x0050, text=» RF AP:378 NOT OVERFLOW «, t00=0x0050, t01=0x0026}
0x07d32…07d6a               Head {h00=0x0034, h01=0x0050, text=»AP:377 ADKL A12,1 INCR. M. S. P. OF DISC ADDRESS«, t00=0x0050, t01=0x0046}
0x07d6a…07d90               Head {h00=0x0022, h01=0x0050, text=» ANKL A11,/7FFF RESET OVERFLOW«, t00=0x0050, t01=0x007e}
0x07d90…07dc8               Head {h00=0x0034, h01=0x0050, text=»AP:378 AD A12,APLADA,A3 ADD M. S. P. OF A. D. A.«, t00=0x0050, t01=0x00a4}
0x07dc8…07de6               Head {h00=0x001a, h01=0x0050, text=» CWK A12,255 OVERFLOW?«, t00=0x0050, t01=0x00dc}
0x07de6…07e16               Head {h00=0x002c, h01=0x0050, text=» RB(G) AP:375 YES: ILLEGAL DISC ADDRESS!«, t00=0x0050, t01=0x00fa}
0x07e16…07e36               Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 SEGMENT LENGTH«, t00=0x0050, t01=0x012a}
0x07e36…07e5e               Head {h00=0x0024, h01=0x0050, text=» CALL GETCON GET SEGMENT LENGTH «, t00=0x0050, t01=0x014a}
0x07e5e…07e76               Head {h00=0x0014, h01=0x0050, text=» LDR A10,A1 SAVE«, t00=0x0050, t01=0x0172}
0x07e76…07e8a               Head {h00=0x0010, h01=0x0050, text=» ADKL A10,1 «, t00=0x0050, t01=0x018a}
0x07e8a…07eb2               Head {h00=0x0024, h01=0x0050, text=» ANKL A10,/FFFE MAKE EVEN LENGTH«, t00=0x0051, t01=0x000e}
0x07eb2…07ece               Head {h00=0x0018, h01=0x0050, text=» ST A8,LLDADR+STKEND«, t00=0x0051, t01=0x0036}
0x07ece…07ef2               Head {h00=0x0020, h01=0x0050, text=» CF A14,LODSEG LOAD SEGMENT «, t00=0x0051, t01=0x0052}
0x07ef2…07f22               Head {h00=0x002c, h01=0x0050, text=» LD A1,SEGCNT+STKEND GET SEGMENT COUNTER«, t00=0x0051, t01=0x0076}
0x07f22…07f5c               Head {h00=0x0036, h01=0x0050, text=» LD A2,TNBRSG+STKEND GET TOTAL NUMBER OF SEGMENTS «, t00=0x0051, t01=0x00a6}
0x07f5c…07f88               Head {h00=0x0028, h01=0x0050, text=» ADK A1,1 INCREMENT SEGMENT COUNTER «, t00=0x0051, t01=0x00e0}
0x07f88…07fb0               Head {h00=0x0024, h01=0x0050, text=» CWR A1,A2 ALL SEGMENTS LOADED? «, t00=0x0051, t01=0x010c}
0x07fb0…07fcc               Head {h00=0x0018, h01=0x0050, text=» ABL(E) AP:400 YES! «, t00=0x0051, t01=0x0134}
0x07fcc…07ffe               Head {h00=0x002e, h01=0x0050, text=» ST A1,SEGCNT+STKEND STORE SEGMENT COUNTER«, t00=0x0051, t01=0x0150}
0x07ffe…0803e               Head {h00=0x003c, h01=0x0050, text=» LD A3,CURAPL+STKEND GET CURRENT APPL. CONTROL BLOCK =2 «, t00=0x0051, t01=0x0182}
0x0803e…08072               Head {h00=0x0030, h01=0x0050, text=» LD A4,APLPSZ,A3 AND SEGMENT SIZE DEFINED =2«, t00=0x0052, t01=0x0032}
0x08072…08088               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0052, t01=0x0066}
0x08088…080b8               Head {h00=0x002c, h01=0x0050, text=» ADR A8,A4 COMPUTE ADDRESS TO NEXT PAGE «, t00=0x0052, t01=0x007c}
0x080b8…080ca               Head {h00=0x000e, h01=0x0050, text=» RB AP:360«, t00=0x0052, t01=0x00ac}
0x080ca…080d6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x00be}
0x080d6…080ec               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0052, t01=0x00ca}
0x080ec…080fa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x00e0}
0x080fa…0810e               Head {h00=0x0010, h01=0x0050, text=»AP:379 EQU *«, t00=0x0052, t01=0x00ee}
0x0810e…08126               Head {h00=0x0014, h01=0x0050, text=» LDR A1,A4 SAVE «, t00=0x0052, t01=0x0102}
0x08126…08158               Head {h00=0x002e, h01=0x0050, text=» ANKL A4,/0C00 GET MODULO 4K DISCRIMINANT «, t00=0x0052, t01=0x011a}
0x08158…0817e               Head {h00=0x0022, h01=0x0050, text=» RF(Z) AP:380 NO DISCRIMINANT!«, t00=0x0052, t01=0x014c}
0x0817e…081b6               Head {h00=0x0034, h01=0x0050, text=» ADR A1,A8 COMPUTE LOGICAL ADDRESS TO NEXT PAGE «, t00=0x0052, t01=0x0172}
0x081b6…081ce               Head {h00=0x0014, h01=0x0050, text=» LDR A4,A1 SAVE «, t00=0x0053, t01=0x001a}
0x081ce…08200               Head {h00=0x002e, h01=0x0050, text=» ANKL A4,/0C00 GET MODULO 4K DISCRIMINANT «, t00=0x0053, t01=0x0032}
0x08200…08234               Head {h00=0x0030, h01=0x0050, text=» ANKL A1,/F000 LOGICAL ADDRESS TO NEXT PAGE «, t00=0x0053, t01=0x0064}
0x08234…0826a               Head {h00=0x0032, h01=0x0050, text=» ANKL A8,/F000 LOGICAL ADDRESS TO CURRENT PAGE«, t00=0x0053, t01=0x0098}
0x0826a…08298               Head {h00=0x002a, h01=0x0050, text=» SUR A1,A8 COMPUTE PHYSICAL INCREMENT «, t00=0x0053, t01=0x00ce}
0x08298…082ac               Head {h00=0x0010, h01=0x0050, text=»AP:380 EQU *«, t00=0x0053, t01=0x00fc}
0x082ac…082da               Head {h00=0x002a, h01=0x0050, text=» LD A8,APLLAP,A3 LOGICAL PAGE ADDRESS «, t00=0x0053, t01=0x0110}
0x082da…082f2               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A8 SAVE «, t00=0x0053, t01=0x013e}
0x082f2…0832a               Head {h00=0x0034, h01=0x0050, text=» ADR A8,A4 COMPUTE LOGICAL ADDRESS TO NEXT PAGE «, t00=0x0053, t01=0x0156}
0x0832a…08356               Head {h00=0x0028, h01=0x0050, text=» SRL A2,12 MOVE TO 4 RIGHTMOST BITS «, t00=0x0053, t01=0x018e}
0x08356…08374               Head {h00=0x001a, h01=0x0050, text=» ADR A2,A2 2*MMU ENTRY«, t00=0x0054, t01=0x002a}
0x08374…08388               Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x0054, t01=0x0048}
0x08388…083b2               Head {h00=0x0026, h01=0x0050, text=» ADKL A2,MMDDIV MMU ENTRY ADDRESS «, t00=0x0054, t01=0x005c}
0x083b2…083c6               Head {h00=0x0010, h01=0x0050, text=» LDR A3,A13 «, t00=0x0054, t01=0x0086}
0x083c6…083e0               Head {h00=0x0016, h01=0x0050, text=» ADKL A3,MMDDIV+32«, t00=0x0054, t01=0x009a}
0x083e0…0840e               Head {h00=0x002a, h01=0x0050, text=» SRL A1,2 MAP PHYSICAL ADDRESS ON MMU «, t00=0x0054, t01=0x00b4}
0x0840e…08422               Head {h00=0x0010, h01=0x0050, text=»AP:385 EQU *«, t00=0x0054, t01=0x00e2}
0x08422…08452               Head {h00=0x002c, h01=0x0050, text=» ADRS A1,A2 LOGICAL ADDRESS TO NEXT PAGE«, t00=0x0054, t01=0x00f6}
0x08452…08472               Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 NEXT MMU ENTRY«, t00=0x0054, t01=0x0126}
0x08472…08484               Head {h00=0x000e, h01=0x0050, text=» CWR A2,A3«, t00=0x0054, t01=0x0146}
0x08484…0849a               Head {h00=0x0012, h01=0x0050, text=» RB(NE) AP:385«, t00=0x0054, t01=0x0158}
0x0849a…084c4               Head {h00=0x0026, h01=0x0050, text=» TL MMDDIV,A13 LOAD MMU REGISTERS «, t00=0x0054, t01=0x016e}
0x084c4…084d6               Head {h00=0x000e, h01=0x0050, text=» RB AP:360«, t00=0x0055, t01=0x0008}
0x084d6…084e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x001a}
0x084e0…084ec               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x0024}
0x084ec…084fa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x0030}
0x084fa…0850e               Head {h00=0x0010, h01=0x0050, text=»AP:400 EQU *«, t00=0x0055, t01=0x003e}
0x0850e…0854a               Head {h00=0x0038, h01=0x0050, text=» LD A1,CURAPL+STKEND GET CURRENT APPL.CONTROL BLOCK «, t00=0x0055, t01=0x0052}
0x0854a…08564               Head {h00=0x0016, h01=0x0050, text=» IM APLCNT+STKEND «, t00=0x0055, t01=0x008e}
0x08564…08592               Head {h00=0x002a, h01=0x0050, text=» ABL(Z) CONLOD ALL APPLICATIONS LOADED«, t00=0x0055, t01=0x00a8}
0x08592…0859c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00d6}
0x0859c…085ce               Head {h00=0x002e, h01=0x0050, text=» ADK A1,ACBLEN ADVANCE TO NEXT APPLICATION«, t00=0x0055, t01=0x00e0}
0x085ce…08604               Head {h00=0x0032, h01=0x0050, text=» ST A1,CURAPL+STKEND APPLICATION CONTROL BLOCK«, t00=0x0055, t01=0x0112}
0x08604…0863c               Head {h00=0x0034, h01=0x0050, text=» LD A12,APLADA,A1 MOST SIGN. PART OF DISC ADDR. «, t00=0x0055, t01=0x0148}
0x0863c…08676               Head {h00=0x0036, h01=0x0050, text=» LD A11,APLADA+2,A1 LEAST SIGN. PART OF DISC ADDR.«, t00=0x0055, t01=0x0180}
0x08676…086a2               Head {h00=0x0028, h01=0x0050, text=» LD A10,READ GET SUBROUTINE ADDRESS «, t00=0x0056, t01=0x002a}
0x086a2…086c8               Head {h00=0x0022, h01=0x0050, text=» CFR A14,A10 READ FIRST SECTOR«, t00=0x0056, t01=0x0056}
0x086c8…086dc               Head {h00=0x0010, h01=0x0050, text=» ABL AP:234 «, t00=0x0056, t01=0x007c}
0x086dc…086ea               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x0090}
0x086ea…08720               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0056, t01=0x009e}
0x08720…08756               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0056, t01=0x00d4}
0x08756…0878c               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0056, t01=0x010a}
0x0878c…087c2               Head {h00=0x0032, h01=0x0050, text=»*                ALOCSG                     * «, t00=0x0056, t01=0x0140}
0x087c2…087f8               Head {h00=0x0032, h01=0x0050, text=»*                ======                     * «, t00=0x0056, t01=0x0176}
0x087f8…0882e               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0057, t01=0x001c}
0x0882e…08864               Head {h00=0x0032, h01=0x0050, text=»*   RESERVE PAGES FOR RESIDENT SEGMENTS     * «, t00=0x0057, t01=0x0052}
0x08864…0889a               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0057, t01=0x0088}
0x0889a…088d0               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0057, t01=0x00be}
0x088d0…08906               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0057, t01=0x00f4}
0x08906…08910               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x012a}
0x08910…0891a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0134}
0x0891a…0892e               Head {h00=0x0010, h01=0x0050, text=»ALOCSG EQU *«, t00=0x0057, t01=0x013e}
0x0892e…08962               Head {h00=0x0030, h01=0x0050, text=» ST A2,TNBRSG+STKEND SAVE NUMBER OF SEGMENTS«, t00=0x0057, t01=0x0152}
0x08962…0899e               Head {h00=0x0038, h01=0x0050, text=» CM SEGCNT+STKEND RESET NO OF CORE RESIDENT SEGMENTS«, t00=0x0057, t01=0x0186}
0x0899e…089cc               Head {h00=0x002a, h01=0x0050, text=» ST A3,APLPSZ,A1 SAVE SEGMENT SIZE =2 «, t00=0x0058, t01=0x0032}
0x089cc…089f2               Head {h00=0x0022, h01=0x0050, text=» LD A4,SCTOPT GET OPTION WORD «, t00=0x0058, t01=0x0060}
0x089f2…08a10               Head {h00=0x001a, h01=0x0050, text=» SRC A4,2 DISC PAGING?«, t00=0x0058, t01=0x0086}
0x08a10…08a2a               Head {h00=0x0016, h01=0x0050, text=» RF(NN) ALSG04 NO!«, t00=0x0058, t01=0x00a4}
0x08a2a…08a34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00be}
0x08a34…08a62               Head {h00=0x002a, h01=0x0050, text=» LD A4,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x0058, t01=0x00c8}
0x08a62…08a88               Head {h00=0x0022, h01=0x0050, text=» SUK A4,/F0 CHECK IF CASSETTE «, t00=0x0058, t01=0x00f6}
0x08a88…08abc               Head {h00=0x0030, h01=0x0050, text=» RF(N) ALSG04 CASSETTE - LOAD ALL SEGMENTS! «, t00=0x0058, t01=0x011c}
0x08abc…08ac6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0150}
0x08ac6…08af6               Head {h00=0x002c, h01=0x0050, text=»*  COMPUTE NUMBER OF CORE RESIDENT PAGES«, t00=0x0058, t01=0x015a}
0x08af6…08b00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x018a}
0x08b00…08b28 (89, 0, 400)  Head {h00=0x0024, h01=0x0050, text=» LDR A6,A9 START OF APPLICATION «, t00=0x0059, t01=0x0004}
0x08b28…08b52               Head {h00=0x0026, h01=0x0050, text=» ADK A6,14 START OF SEGMENT BLOCKS«, t00=0x0059, t01=0x002c}
0x08b52…08b66               Head {h00=0x0010, h01=0x0050, text=»ALSG00 EQU *«, t00=0x0059, t01=0x0056}
0x08b66…08b8a               Head {h00=0x0020, h01=0x0050, text=» ADK A6,6 NEXT SEGMENT BLOCK«, t00=0x0059, t01=0x006a}
0x08b8a…08bac               Head {h00=0x001e, h01=0x0050, text=»*  LOOK IF OUTSIDE BUFFER «, t00=0x0059, t01=0x008e}
0x08bac…08bc6               Head {h00=0x0016, h01=0x0050, text=»*  IF SO READ NEXT«, t00=0x0059, t01=0x00b0}
0x08bc6…08bde               Head {h00=0x0014, h01=0x0050, text=»*  SECTOR BLOCK «, t00=0x0059, t01=0x00ca}
0x08bde…08be8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00e2}
0x08be8…08c10               Head {h00=0x0024, h01=0x0050, text=» LDR A4,A6 SAVE BUFFER POSITION «, t00=0x0059, t01=0x00ec}
0x08c10…08c34               Head {h00=0x0020, h01=0x0050, text=» SUR A4,A9 RELATIVE POSITION«, t00=0x0059, t01=0x0114}
0x08c34…08c60               Head {h00=0x0028, h01=0x0050, text=» CWK A4,BUFLEN-16 OUTSIDE BUFFER? =5«, t00=0x0059, t01=0x0138}
0x08c60…08c7a               Head {h00=0x0016, h01=0x0050, text=» RF(NG) ALSG01 NO!«, t00=0x0059, t01=0x0164}
0x08c7a…08c84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x017e}
0x08c84…08cac               Head {h00=0x0024, h01=0x0050, text=» CF A14,NXTSEC READ NEXT SECTOR «, t00=0x0059, t01=0x0188}
0x08cac…08ce8               Head {h00=0x0038, h01=0x0050, text=» SUK A6,BUFLEN-16 COMPENSATE FOR RELOCATION BITS =5 «, t00=0x005a, t01=0x0020}
0x08ce8…08d10               Head {h00=0x0024, h01=0x0050, text=»   AND RESET BUFFER POSITION =5 «, t00=0x005a, t01=0x005c}
0x08d10…08d1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0084}
0x08d1a…08d2e               Head {h00=0x0010, h01=0x0050, text=»ALSG01 EQU *«, t00=0x005a, t01=0x008e}
0x08d2e…08d52               Head {h00=0x0020, h01=0x0050, text=» LCR A4,A6 GET SEGMENT TYPE «, t00=0x005a, t01=0x00a2}
0x08d52…08d7e               Head {h00=0x0028, h01=0x0050, text=» CCK A4,'RR' CORE RESIDENT SEGMENT? «, t00=0x005a, t01=0x00c6}
0x08d7e…08d98               Head {h00=0x0016, h01=0x0050, text=» RF(NE) ALSG02 NO!«, t00=0x005a, t01=0x00f2}
0x08d98…08dd4               Head {h00=0x0038, h01=0x0050, text=» IM SEGCNT+STKEND INCREMENT RESIDENT SEGMENT COUNTER«, t00=0x005a, t01=0x010c}
0x08dd4…08de8               Head {h00=0x0010, h01=0x0050, text=»ALSG02 EQU *«, t00=0x005a, t01=0x0148}
0x08de8…08e0a               Head {h00=0x001e, h01=0x0050, text=» SUK A2,1 MOORE SEGMENTS? «, t00=0x005a, t01=0x015c}
0x08e0a…08e26               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) ALSG00 YES! «, t00=0x005a, t01=0x017e}
0x08e26…08e5e               Head {h00=0x0034, h01=0x0050, text=» LD A2,SEGCNT+STKEND NUMBER OF RESIDENT SEGMENTS«, t00=0x005b, t01=0x000a}
0x08e5e…08e8a               Head {h00=0x0028, h01=0x0050, text=» RF(Z) ALSG12 NO RESIDENT SEGMENTS! «, t00=0x005b, t01=0x0042}
0x08e8a…08e9e               Head {h00=0x0010, h01=0x0050, text=»ALSG04 EQU *«, t00=0x005b, t01=0x006e}
0x08e9e…08ed8               Head {h00=0x0036, h01=0x0050, text=» ST A2,SEGCNT+STKEND SAVE NBR OF RESIDENT SEGMENTS«, t00=0x005b, t01=0x0082}
0x08ed8…08f10               Head {h00=0x0034, h01=0x0050, text=» ADS A2,SCTNOP ACKUMULATE NO OF CORE RES. SEGM. «, t00=0x005b, t01=0x00bc}
0x08f10…08f36               Head {h00=0x0022, h01=0x0050, text=» LD A6,SCTOPT GET OPTION WORD «, t00=0x005b, t01=0x00f4}
0x08f36…08f48               Head {h00=0x000e, h01=0x0050, text=» SRC A6,1 «, t00=0x005b, t01=0x011a}
0x08f48…08f70               Head {h00=0x0024, h01=0x0050, text=» RF(NN) ALSG08 NO MMU IN SYSTEM «, t00=0x005b, t01=0x012c}
0x08f70…08f7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0154}
0x08f7a…08f9e               Head {h00=0x0020, h01=0x0050, text=» LDR A6,A3 GET SEGMENT SIZE «, t00=0x005b, t01=0x015e}
0x08f9e…08fb4               Head {h00=0x0012, h01=0x0050, text=» ANKL A6,/FFF «, t00=0x005b, t01=0x0182}
0x08fb4…08fe6               Head {h00=0x002e, h01=0x0050, text=» RF(NZ) ALSG08 NOT A MULTIPLE OF 4K BYTES «, t00=0x005c, t01=0x0008}
0x08fe6…08ff0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x003a}
0x08ff0…09024               Head {h00=0x0030, h01=0x0050, text=» LDR A5,A5 LOOK IF ALREADY ON A 4K BOUNDARY «, t00=0x005c, t01=0x0044}
0x09024…0903e               Head {h00=0x0016, h01=0x0050, text=» RF(Z) ALSG08 YES «, t00=0x005c, t01=0x0078}
0x0903e…09048               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0092}
0x09048…09070               Head {h00=0x0024, h01=0x0050, text=» LDK A5,0 START ON A 4K BOUNDARY«, t00=0x005c, t01=0x009c}
0x09070…09084               Head {h00=0x0010, h01=0x0050, text=»ALSG08 EQU *«, t00=0x005c, t01=0x00c4}
0x09084…090b2               Head {h00=0x002a, h01=0x0050, text=» LDR A7,A7 LOOK IF 256 KBYTE MEMORY =3«, t00=0x005c, t01=0x00d8}
0x090b2…090d0               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ALSG8B NO! =3 «, t00=0x005c, t01=0x0106}
0x090d0…09100               Head {h00=0x002c, h01=0x0050, text=» LDKL A5,PAGSIZ YES LAST FRAME EMPTY =3 «, t00=0x005c, t01=0x0124}
0x09100…09130               Head {h00=0x002c, h01=0x0050, text=» SUKL A7,/400 BEGINNING OF LAST FRAME =3«, t00=0x005c, t01=0x0154}
0x09130…09144               Head {h00=0x0010, h01=0x0050, text=»ALSG8B EQU *«, t00=0x005c, t01=0x0184}
0x09144…09176               Head {h00=0x002e, h01=0x0050, text=» ANKL A5,/1C00 ALWAYS START ON 1K BOUNDARY«, t00=0x005d, t01=0x0008}
0x09176…091a8               Head {h00=0x002e, h01=0x0050, text=» SRL A3,1 MAKE SEGMENT LENGTH IN WORDS =2 «, t00=0x005d, t01=0x003a}
0x091a8…091d4               Head {h00=0x0028, h01=0x0050, text=» SRL A5,1 AND REMAINING AREA TOO =2 «, t00=0x005d, t01=0x006c}
0x091d4…09202               Head {h00=0x002a, h01=0x0050, text=» SRL A7,10 CONVERT TO NO OF FRAMES =2 «, t00=0x005d, t01=0x0098}
0x09202…09228               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A3 GET SEGMENT SIZE =2«, t00=0x005d, t01=0x00c6}
0x09228…0925a               Head {h00=0x002e, h01=0x0050, text=» NGR A4,A4 AND CORRESPONDING NEG. VALUE =2«, t00=0x005d, t01=0x00ec}
0x0925a…09272               Head {h00=0x0014, h01=0x0050, text=»ALSG09 EQU * =2 «, t00=0x005d, t01=0x011e}
0x09272…0929a               Head {h00=0x0024, h01=0x0050, text=» CWR A5,A3 ENOUGH SPACE LEFT? =2«, t00=0x005d, t01=0x0136}
0x0929a…092b8               Head {h00=0x001a, h01=0x0050, text=» RF(NL) ALSG10 YES =2 «, t00=0x005d, t01=0x015e}
0x092b8…092e2               Head {h00=0x0026, h01=0x0050, text=» SUK A7,1 DECREMENT FRAME COUNT =2«, t00=0x005d, t01=0x017c}
0x092e2…09312               Head {h00=0x002c, h01=0x0050, text=» ADKL A5,/800 ALLOCATE ANOTHER FRAME =2 «, t00=0x005e, t01=0x0016}
0x09312…0933a               Head {h00=0x0024, h01=0x0050, text=» RB(P) ALSG09 LOOK IF ENOUGH =2 «, t00=0x005e, t01=0x0046}
0x0933a…09352               Head {h00=0x0014, h01=0x0050, text=»ALSG10 EQU * =2 «, t00=0x005e, t01=0x006e}
0x09352…0938a               Head {h00=0x0034, h01=0x0050, text=» TNM A5,A3 FREE AREA GREATER THAN 32K WORDS? =2 «, t00=0x005e, t01=0x0086}
0x0938a…093a6               Head {h00=0x0018, h01=0x0050, text=» RF(N) ALS11A YES =2«, t00=0x005e, t01=0x00be}
0x093a6…093d8               Head {h00=0x002e, h01=0x0050, text=» SUR A5,A3 ALLOCATE AREA TO ONE SEGMENT =2«, t00=0x005e, t01=0x00da}
0x093d8…093ee               Head {h00=0x0012, h01=0x0050, text=» RF ALS11B =2 «, t00=0x005e, t01=0x010c}
0x093ee…09406               Head {h00=0x0014, h01=0x0050, text=»ALS11A EQU * =2 «, t00=0x005e, t01=0x0122}
0x09406…09438               Head {h00=0x002e, h01=0x0050, text=» ADR A5,A4 ALLOCATE AREA TO ONE SEGMENT =2«, t00=0x005e, t01=0x013a}
0x09438…09450               Head {h00=0x0014, h01=0x0050, text=»ALS11B EQU * =2 «, t00=0x005e, t01=0x016c}
0x09450…0947e               Head {h00=0x002a, h01=0x0050, text=» SUK A2,1 DECREMENT SEGMENT COUNTS =2 «, t00=0x005e, t01=0x0184}
0x0947e…094a6               Head {h00=0x0024, h01=0x0050, text=» RB(NZ) ALSG09 MORE SEGMENTS =2 «, t00=0x005f, t01=0x0022}
0x094a6…094bc               Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 =2 «, t00=0x005f, t01=0x004a}
0x094bc…094e4               Head {h00=0x0024, h01=0x0050, text=» ABL(N) MEMOVF MEMORY OVERFLOW! «, t00=0x005f, t01=0x0060}
0x094e4…094ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0088}
0x094ee…09516               Head {h00=0x0024, h01=0x0050, text=» SLL A7,10 RESTORE FRAME ADDRESS«, t00=0x005f, t01=0x0092}
0x09516…09548               Head {h00=0x002e, h01=0x0050, text=» ST A7,APLSEG,A1 SAVE PHYSICAL ADDRESS TO «, t00=0x005f, t01=0x00ba}
0x09548…09578               Head {h00=0x002c, h01=0x0050, text=» SLL A5,1 RESTORE AREA LEFT IN BYTES =2 «, t00=0x005f, t01=0x00ec}
0x09578…095aa               Head {h00=0x002e, h01=0x0050, text=» SLL A3,1 RESTORE SEGMENT SIZE IN BYTES =2«, t00=0x005f, t01=0x011c}
0x095aa…095dc               Head {h00=0x002e, h01=0x0050, text=» ST A5,APLSEG+2,A1 FIRST RESIDENT SEGMENT «, t00=0x005f, t01=0x014e}
0x095dc…095f0               Head {h00=0x0010, h01=0x0050, text=»ALSG12 EQU *«, t00=0x005f, t01=0x0180}
0x095f0…095fa (96, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0004}
0x095fa…09628               Head {h00=0x002a, h01=0x0050, text=»*  REREAD FIRST SECTOR OF APPLICATION «, t00=0x0060, t01=0x000e}
0x09628…09656               Head {h00=0x002a, h01=0x0050, text=»*  IF S:GTAB IS LARGER THAN ONE SECTOR«, t00=0x0060, t01=0x003c}
0x09656…09660               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x006a}
0x09660…0969c               Head {h00=0x0038, h01=0x0050, text=» LD A12,APLADA,A1 GET MOST SIGN. PART OF DISC ADDR. «, t00=0x0060, t01=0x0074}
0x0969c…096d2               Head {h00=0x0032, h01=0x0050, text=» LD A11,APLADA+2,A1 AND LEAST SIGNIFICANT PART«, t00=0x0060, t01=0x00b0}
0x096d2…096fc               Head {h00=0x0026, h01=0x0050, text=» CF A14,NXTSEC REREAD FIRST SECTOR«, t00=0x0060, t01=0x00e6}
0x096fc…0970c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0060, t01=0x0110}
0x0970c…09718               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0060, t01=0x0120}
0x09718…09724               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0060, t01=0x012c}
0x09724…09738               Head {h00=0x0010, h01=0x0050, text=»NXTSEC EQU *«, t00=0x0060, t01=0x0138}
0x09738…09762               Head {h00=0x0026, h01=0x0050, text=» CALL PUSH SAVE REGISTER CONTENTS «, t00=0x0060, t01=0x014c}
0x09762…09788               Head {h00=0x0022, h01=0x0050, text=» LD A10,READ READ NEXT SECTOR «, t00=0x0060, t01=0x0176}
0x09788…0979c               Head {h00=0x0010, h01=0x0050, text=» CFR A14,A10«, t00=0x0061, t01=0x000c}
0x0979c…097d8               Head {h00=0x0038, h01=0x0050, text=» ST A11,DISCAD+STKEND SAVE CURRENT SECTOR/BLOCK =10 «, t00=0x0061, t01=0x0020}
0x097d8…09804               Head {h00=0x0028, h01=0x0050, text=» ST A12,DISCAD+2+STKEND ADDRESS =10 «, t00=0x0061, t01=0x005c}
0x09804…09836               Head {h00=0x002e, h01=0x0050, text=» CALL POB RESTORE FORMER REGISTER CONTENTS«, t00=0x0061, t01=0x0088}
0x09836…09874               Head {h00=0x003a, h01=0x0050, text=» LD A11,DISCAD+STKEND RESTORE CURRENT SECTOR/BLOCK =10«, t00=0x0061, t01=0x00ba}
0x09874…098a0               Head {h00=0x0028, h01=0x0050, text=» LD A12,DISCAD+2+STKEND ADDRESS =10 «, t00=0x0061, t01=0x00f8}
0x098a0…098b0               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0061, t01=0x0124}
0x098b0…098c8               Head {h00=0x0014, h01=0x0050, text=» IFT EDM=1  =12 «, t00=0x0061, t01=0x0134}
0x098c8…098d6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0061, t01=0x014c}
0x098d6…0990e               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0061, t01=0x015a}
0x0990e…09946 (98, 0, 400)  Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0062, t01=0x0004}
0x09946…0997e               Head {h00=0x0034, h01=0x0050, text=»*  LODMEX - LOAD MONITOR EXTENT(S)            * «, t00=0x0062, t01=0x003c}
0x0997e…099b6               Head {h00=0x0034, h01=0x0050, text=»*  ===============================            * «, t00=0x0062, t01=0x0074}
0x099b6…099ee               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0062, t01=0x00ac}
0x099ee…09a26               Head {h00=0x0034, h01=0x0050, text=»*  REFERENCED IN:  SYSLOD                     * «, t00=0x0062, t01=0x00e4}
0x09a26…09a5e               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0062, t01=0x011c}
0x09a5e…09a96               Head {h00=0x0034, h01=0x0050, text=»*  ENTRY:                                     * «, t00=0x0062, t01=0x0154}
0x09a96…09ace               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0062, t01=0x018c}
0x09ace…09b06               Head {h00=0x0034, h01=0x0050, text=»*  EXIT:                                      * «, t00=0x0063, t01=0x0034}
0x09b06…09b3e               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0063, t01=0x006c}
0x09b3e…09b76               Head {h00=0x0034, h01=0x0050, text=»*  WORK REGISTERS:  A1-A12                    * «, t00=0x0063, t01=0x00a4}
0x09b76…09bae               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0063, t01=0x00dc}
0x09bae…09be6               Head {h00=0x0034, h01=0x0050, text=»*  SUBROUTINES:  LODCOM                       * «, t00=0x0063, t01=0x0114}
0x09be6…09c1e               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0063, t01=0x014c}
0x09c1e…09c56               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0063, t01=0x0184}
0x09c56…09c6a               Head {h00=0x0010, h01=0x0050, text=»LODMEX EQU *«, t00=0x0064, t01=0x002c}
0x09c6a…09c94               Head {h00=0x0026, h01=0x0050, text=» LD A1,SCTMXS MONITOR EXTENT TABLE«, t00=0x0064, t01=0x0040}
0x09c94…09ca8               Head {h00=0x0010, h01=0x0050, text=»MSX10 EQU * «, t00=0x0064, t01=0x006a}
0x09ca8…09cbc               Head {h00=0x0010, h01=0x0050, text=» RF(Z) MSX99«, t00=0x0064, t01=0x007e}
0x09cbc…09cc6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0092}
0x09cc6…09cf2               Head {h00=0x0028, h01=0x0050, text=» LD A1,SCTOPT GET MONITOR OPTION =12«, t00=0x0064, t01=0x009c}
0x09cf2…09d1e               Head {h00=0x0028, h01=0x0050, text=» SRC A1,1 LOOK IF MMU OPTION ON =12 «, t00=0x0064, t01=0x00c8}
0x09d1e…09d3a               Head {h00=0x0018, h01=0x0050, text=» RF(N) MSX15 YES =12«, t00=0x0064, t01=0x00f4}
0x09d3a…09d72               Head {h00=0x0034, h01=0x0050, text=» LDKL A1,LMP9 NO, SET ILLEGAL MONITOR OPTION =12«, t00=0x0064, t01=0x0110}
0x09d72…09d8c               Head {h00=0x0016, h01=0x0050, text=» CALL ERROR . =12 «, t00=0x0064, t01=0x0148}
0x09d8c…09da6               Head {h00=0x0016, h01=0x0050, text=»MSX15 EQU * . =12 «, t00=0x0064, t01=0x0162}
0x09da6…09dd6               Head {h00=0x002c, h01=0x0050, text=» CF A14,GETMON GET MONITOR DISC ADDRESS «, t00=0x0064, t01=0x017c}
0x09dd6…09e04               Head {h00=0x002a, h01=0x0050, text=» LD A3,MX:NOX,A1 GET NUMBER OF EXTENTS«, t00=0x0065, t01=0x001c}
0x09e04…09e3c               Head {h00=0x0034, h01=0x0050, text=» LD A6,MX:NOS,A1 GET NUMBER OF SEGMENT CLUSTERS «, t00=0x0065, t01=0x004a}
0x09e3c…09e64               Head {h00=0x0024, h01=0x0050, text=» SLL A6,1 MAKE BYTE DISPLACEMENT«, t00=0x0065, t01=0x0082}
0x09e64…09e76               Head {h00=0x000e, h01=0x0050, text=» ADK A6,4 «, t00=0x0065, t01=0x00aa}
0x09e76…09e9c               Head {h00=0x0022, h01=0x0050, text=» ADR A6,A1 FIRST EXTENT BLOCK «, t00=0x0065, t01=0x00bc}
0x09e9c…09eb0               Head {h00=0x0010, h01=0x0050, text=»MSX20 EQU * «, t00=0x0065, t01=0x00e2}
0x09eb0…09eda               Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DECREMENT EXTENT COUNTER«, t00=0x0065, t01=0x00f6}
0x09eda…09efe               Head {h00=0x0020, h01=0x0050, text=» RF(N) MSX99 NO MORE EXTENTS«, t00=0x0065, t01=0x0120}
0x09efe…09f08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0144}
0x09f08…09f2e               Head {h00=0x0022, h01=0x0050, text=» STR A3,A15 SAVE NO OF EXTENTS«, t00=0x0065, t01=0x014e}
0x09f2e…09f52               Head {h00=0x0020, h01=0x0050, text=» ADK A6,6 NEXT EXTENT BLOCK «, t00=0x0065, t01=0x0174}
0x09f52…09f7a               Head {h00=0x0024, h01=0x0050, text=» LD A7,SCTEFA RESTORE ADDRESS TO«, t00=0x0066, t01=0x0008}
0x09f7a…09fa2               Head {h00=0x0024, h01=0x0050, text=» LD A5,SCTEFA+2 END OF FREE AREA«, t00=0x0066, t01=0x0030}
0x09fa2…09fb8               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) MSX25 «, t00=0x0066, t01=0x0058}
0x09fb8…09fc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x006e}
0x09fc2…09ff8               Head {h00=0x0032, h01=0x0050, text=» LDKL A5,PAGSIZ EMPTY FRAME, START ON NEXT ONE«, t00=0x0066, t01=0x0078}
0x09ff8…0a00e               Head {h00=0x0012, h01=0x0050, text=» SUKL A7,/400 «, t00=0x0066, t01=0x00ae}
0x0a00e…0a022               Head {h00=0x0010, h01=0x0050, text=»MSX25 EQU * «, t00=0x0066, t01=0x00c4}
0x0a022…0a04e               Head {h00=0x0028, h01=0x0050, text=» LD A2,EXLEN,A6 GET LENGTH OF EXTENT«, t00=0x0066, t01=0x00d8}
0x0a04e…0a078               Head {h00=0x0026, h01=0x0050, text=» ADK A2,11 RESERV FIVE EXTRA WORDS«, t00=0x0066, t01=0x0104}
0x0a078…0a0a0               Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN LENGTH «, t00=0x0066, t01=0x012e}
0x0a0a0…0a0d0               Head {h00=0x002c, h01=0x0050, text=» SRL A7,10 FRAME ADDRESS AS FRAME COUNT «, t00=0x0066, t01=0x0156}
0x0a0d0…0a104               Head {h00=0x0030, h01=0x0050, text=» ADK A2,0 EXTENT LENGTH LESS THAN 32K BYTES?«, t00=0x0066, t01=0x0186}
0x0a104…0a11c               Head {h00=0x0014, h01=0x0050, text=» RF(N) MSX30 NO «, t00=0x0067, t01=0x002a}
0x0a11c…0a126               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0042}
0x0a126…0a15c               Head {h00=0x0032, h01=0x0050, text=» CWR A2,A5 EXTENT LESS THAN AREA LEFT IN FRAME«, t00=0x0067, t01=0x004c}
0x0a15c…0a176               Head {h00=0x0016, h01=0x0050, text=» RF(L) MSX40 YES! «, t00=0x0067, t01=0x0082}
0x0a176…0a180               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x009c}
0x0a180…0a194               Head {h00=0x0010, h01=0x0050, text=»MSX30 EQU * «, t00=0x0067, t01=0x00a6}
0x0a194…0a1a6               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0067, t01=0x00ba}
0x0a1a6…0a1d8               Head {h00=0x002e, h01=0x0050, text=» SRL A1,12 CONVERT LENGTH TO NO OF FRAMES «, t00=0x0067, t01=0x00cc}
0x0a1d8…0a1f6               Head {h00=0x001a, h01=0x0050, text=» CWK A1,14 <60K BYTES?«, t00=0x0067, t01=0x00fe}
0x0a1f6…0a210               Head {h00=0x0016, h01=0x0050, text=» RF(L) MSX35 YES! «, t00=0x0067, t01=0x011c}
0x0a210…0a21a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0136}
0x0a21a…0a24a               Head {h00=0x002c, h01=0x0050, text=» CWK A5,PAGSIZ ALREADY ON A 4K BOUNDARY «, t00=0x0067, t01=0x0140}
0x0a24a…0a264               Head {h00=0x0016, h01=0x0050, text=» RF(E) MSX35 YES! «, t00=0x0067, t01=0x0170}
0x0a264…0a26e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x018a}
0x0a26e…0a29a (104, 0, 398) Head {h00=0x0028, h01=0x0050, text=» LDKL A5,PAGSIZ START ON 4K BOUNDARY«, t00=0x0068, t01=0x0004}
0x0a29a…0a2ac               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0068, t01=0x0030}
0x0a2ac…0a2c0               Head {h00=0x0010, h01=0x0050, text=»MSX35 EQU * «, t00=0x0068, t01=0x0042}
0x0a2c0…0a2f4               Head {h00=0x0030, h01=0x0050, text=» SUR A2,A5 SUBTRACT AREA LEFT IN LAST FRAME «, t00=0x0068, t01=0x0056}
0x0a2f4…0a31a               Head {h00=0x0022, h01=0x0050, text=» LDK A5,0 AND SET EMPTY FRAME «, t00=0x0068, t01=0x008a}
0x0a31a…0a32c               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0068, t01=0x00b0}
0x0a32c…0a35e               Head {h00=0x002e, h01=0x0050, text=» SRL A1,12 CONVERT LENGTH TO NO OF FRAMES «, t00=0x0068, t01=0x00c2}
0x0a35e…0a38e               Head {h00=0x002c, h01=0x0050, text=» SUR A7,A1 AND SUBTRACT FROM FRAME COUNT«, t00=0x0068, t01=0x00f4}
0x0a38e…0a3b6               Head {h00=0x0024, h01=0x0050, text=» ABL(N) MEMOVF MEMORY OVERFLOW! «, t00=0x0068, t01=0x0124}
0x0a3b6…0a3c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x014c}
0x0a3c0…0a3e8               Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFF ISOLATE AREA LEFT «, t00=0x0068, t01=0x0156}
0x0a3e8…0a3fc               Head {h00=0x0010, h01=0x0050, text=» RF(Z) MSX45«, t00=0x0068, t01=0x017e}
0x0a3fc…0a406 (105, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0004}
0x0a406…0a434               Head {h00=0x002a, h01=0x0050, text=» LDKL A5,PAGSIZ TAKE NEXT EMPTY FRAME «, t00=0x0069, t01=0x000e}
0x0a434…0a446               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0069, t01=0x003c}
0x0a446…0a45a               Head {h00=0x0010, h01=0x0050, text=»MSX40 EQU * «, t00=0x0069, t01=0x004e}
0x0a45a…0a492               Head {h00=0x0034, h01=0x0050, text=» SUR A5,A2 SUBTACT FROM AREA LEFT IN LAST FRAME «, t00=0x0069, t01=0x0062}
0x0a492…0a4a6               Head {h00=0x0010, h01=0x0050, text=»MSX45 EQU * «, t00=0x0069, t01=0x009a}
0x0a4a6…0a4d0               Head {h00=0x0026, h01=0x0050, text=» CWK A7,15 LOOK IF FIRST PARTITION«, t00=0x0069, t01=0x00ae}
0x0a4d0…0a4fe               Head {h00=0x002a, h01=0x0050, text=» ABL(NG) MEMOVF YES, MEMORY OVERFNGOW!«, t00=0x0069, t01=0x00d8}
0x0a4fe…0a508               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0106}
0x0a508…0a53a               Head {h00=0x002e, h01=0x0050, text=» ANKL A5,/FFFC START ON A 4 BYTE BOUNDARY «, t00=0x0069, t01=0x0110}
0x0a53a…0a562               Head {h00=0x0024, h01=0x0050, text=» SLL A7,10 RESTORE FRAME ADDRESS«, t00=0x0069, t01=0x0142}
0x0a562…0a590               Head {h00=0x002a, h01=0x0050, text=» ST A5,SCTEFA+2 SAVE PHYSICAL ADDRESS «, t00=0x0069, t01=0x016a}
0x0a590…0a5ba               Head {h00=0x0026, h01=0x0050, text=» ST A7,SCTEFA TO END OF FREE AREA «, t00=0x006a, t01=0x0008}
0x0a5ba…0a5c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0032}
0x0a5c4…0a5ec               Head {h00=0x0024, h01=0x0050, text=» LD A4,SCTMXS GET MXSTAB ADDRESS«, t00=0x006a, t01=0x003c}
0x0a5ec…0a612               Head {h00=0x0022, h01=0x0050, text=» ADK A4,2 MONITOR DISC ADDRESS«, t00=0x006a, t01=0x0064}
0x0a612…0a632               Head {h00=0x001c, h01=0x0050, text=» XRR A1,A1 RESET REG. A1«, t00=0x006a, t01=0x008a}
0x0a632…0a660               Head {h00=0x002a, h01=0x0050, text=» LDR* A2,A6 GET MONITOR EXTENT ADDRESS«, t00=0x006a, t01=0x00aa}
0x0a660…0a68c               Head {h00=0x0028, h01=0x0050, text=» DAR* A4 AND RELOCATE EXTENT ADDRESS«, t00=0x006a, t01=0x00d8}
0x0a68c…0a6ba               Head {h00=0x002a, h01=0x0050, text=» LDR A11,A2 GET LEAST SIGNIFICANT PART«, t00=0x006a, t01=0x0104}
0x0a6ba…0a6e8               Head {h00=0x002a, h01=0x0050, text=» LDR A12,A1 AND MOST SIGNIFICANT PART «, t00=0x006a, t01=0x0132}
0x0a6e8…0a6fa               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x006a, t01=0x0160}
0x0a6fa…0a72a               Head {h00=0x002c, h01=0x0050, text=» SRL A1,2 CONVERT PHYSICAL LOAD ADDRESS «, t00=0x006a, t01=0x0172}
0x0a72a…0a752               Head {h00=0x0024, h01=0x0050, text=» ORR A1,A7 TO A 16 BITS ADDRESS «, t00=0x006b, t01=0x0012}
0x0a752…0a778               Head {h00=0x0022, h01=0x0050, text=» STR A1,A6 AND SAVE IN MXSTAB «, t00=0x006b, t01=0x003a}
0x0a778…0a782               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0060}
0x0a782…0a7b0               Head {h00=0x002a, h01=0x0050, text=» ADK A5,10 SKIP PRECCEDING FIVE WORDS «, t00=0x006b, t01=0x006a}
0x0a7b0…0a7ee               Head {h00=0x003a, h01=0x0050, text=» ST A5,LLDADR+STKEND SAVE AS PGM LOAD ADDR. (LOGICAL) «, t00=0x006b, t01=0x0098}
0x0a7ee…0a816               Head {h00=0x0024, h01=0x0050, text=» LDR A8,A5 SAVE RELOCATION BASE «, t00=0x006b, t01=0x00d6}
0x0a816…0a84a               Head {h00=0x0030, h01=0x0050, text=» ADS A5,2,A6 RELOCATE PROGRAM START ADDRESS «, t00=0x006b, t01=0x00fe}
0x0a84a…0a854               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0132}
0x0a854…0a882               Head {h00=0x002a, h01=0x0050, text=» LD A10,EXLEN,A6 GET LENGTH OF EXTENT «, t00=0x006b, t01=0x013c}
0x0a882…0a8ac               Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET MMU ENTRY COUNTER «, t00=0x006b, t01=0x016a}
0x0a8ac…0a8dc (108, 0, 400) Head {h00=0x002c, h01=0x0050, text=» LDKL A2,TABBE GET ADDRESS TO MMU TABLE «, t00=0x006c, t01=0x0004}
0x0a8dc…0a916               Head {h00=0x0036, h01=0x0050, text=» ST A3,FSTSEC+STKEND RESET FIRST SECTOR INDICATOR «, t00=0x006c, t01=0x0034}
0x0a916…0a92a               Head {h00=0x0010, h01=0x0050, text=»MSX50 EQU * «, t00=0x006c, t01=0x006e}
0x0a92a…0a950               Head {h00=0x0022, h01=0x0050, text=» STR A7,A2 STORE PAGE ADDRESS «, t00=0x006c, t01=0x0082}
0x0a950…0a978               Head {h00=0x0024, h01=0x0050, text=» ADKL A7,/400 NEXT PAGE ADDRESS «, t00=0x006c, t01=0x00a8}
0x0a978…0a998               Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 NEXT MMU ENTRY«, t00=0x006c, t01=0x00d0}
0x0a998…0a9c2               Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 INCREMENT ENTRY COUNTER «, t00=0x006c, t01=0x00f0}
0x0a9c2…0a9ee               Head {h00=0x0028, h01=0x0050, text=» CWK A3,16 ALL ENTRIES INITIALIZED? «, t00=0x006c, t01=0x011a}
0x0a9ee…0aa06               Head {h00=0x0014, h01=0x0050, text=» RB(NE) MSX50 NO«, t00=0x006c, t01=0x0146}
0x0aa06…0aa10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x015e}
0x0aa10…0aa34               Head {h00=0x0020, h01=0x0050, text=» TL TABBE LOAD MMU REGISTERS«, t00=0x006c, t01=0x0168}
0x0aa34…0aa54               Head {h00=0x001c, h01=0x0050, text=» CALL LOD:70 LOAD EXTENT«, t00=0x006c, t01=0x018c}
0x0aa54…0aa7e               Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A15 RESTORE NO OF EXTENTS«, t00=0x006d, t01=0x001c}
0x0aa7e…0aa90               Head {h00=0x000e, h01=0x0050, text=» RB MSX20 «, t00=0x006d, t01=0x0046}
0x0aa90…0aa9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0058}
0x0aa9a…0aaae               Head {h00=0x0010, h01=0x0050, text=»MSX99 EQU * «, t00=0x006d, t01=0x0062}
0x0aaae…0aabe               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006d, t01=0x0076}
0x0aabe…0aacc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006d, t01=0x0086}
0x0aacc…0ab04               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x006d, t01=0x0094}
0x0ab04…0ab0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00cc}
0x0ab0e…0ab2c               Head {h00=0x001a, h01=0x0050, text=»*               GETMON«, t00=0x006d, t01=0x00d6}
0x0ab2c…0ab4a               Head {h00=0x001a, h01=0x0050, text=»*               ======«, t00=0x006d, t01=0x00f4}
0x0ab4a…0ab54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0112}
0x0ab54…0ab7e               Head {h00=0x0026, h01=0x0050, text=»*   SEARCH FOR MONITOR TO BE USED «, t00=0x006d, t01=0x011c}
0x0ab7e…0aba6               Head {h00=0x0024, h01=0x0050, text=»*   AND UPDATE IT'S DISC ADDRESS«, t00=0x006d, t01=0x0146}
0x0aba6…0abc4               Head {h00=0x001a, h01=0x0050, text=»*   IN MXSTAB ENTRIES.«, t00=0x006d, t01=0x016e}
0x0abc4…0abce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x018c}
0x0abce…0ac06               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x006e, t01=0x0008}
0x0ac06…0ac10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0040}
0x0ac10…0ac1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x004a}
0x0ac1a…0ac2e               Head {h00=0x0010, h01=0x0050, text=»GETMON EQU *«, t00=0x006e, t01=0x0054}
0x0ac2e…0ac5a               Head {h00=0x0028, h01=0x0050, text=» LD A1,SCTANO GET APPLICATION NUMBER«, t00=0x006e, t01=0x0068}
0x0ac5a…0ac7a               Head {h00=0x001c, h01=0x0050, text=» ST A1,MONNO+STKEND SAVE«, t00=0x006e, t01=0x0094}
0x0ac7a…0acb0               Head {h00=0x0032, h01=0x0050, text=» CF A14,GETNBR GET CORRESPONDING ENTRY IN VTOC«, t00=0x006e, t01=0x00b4}
0x0acb0…0ace4               Head {h00=0x0030, h01=0x0050, text=» LC A1,8,A4 GET CORRESPONDING MONITOR NUMBER«, t00=0x006e, t01=0x00ea}
0x0ace4…0ad1a               Head {h00=0x0032, h01=0x0050, text=» SLL A1,8 FORM MONITOR NBR. AND APPL. NBR. '0'«, t00=0x006e, t01=0x011e}
0x0ad1a…0ad3e               Head {h00=0x0020, h01=0x0050, text=» ST A1,MONNO+STKEND AND SAVE«, t00=0x006e, t01=0x0154}
0x0ad3e…0ad76               Head {h00=0x0034, h01=0x0050, text=» CF A14,GETNBR SEARCH FOR APPL. NBR. 0 (MONITOR)«, t00=0x006e, t01=0x0178}
0x0ad76…0ad80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0020}
0x0ad80…0ad94               Head {h00=0x0010, h01=0x0050, text=»GTMON2 EQU *«, t00=0x006f, t01=0x002a}
0x0ad94…0adc8               Head {h00=0x0030, h01=0x0050, text=» LD A1,MONNO+STKEND GET MONITOR NO (BIT 0-7)«, t00=0x006f, t01=0x003e}
0x0adc8…0adf4               Head {h00=0x0028, h01=0x0050, text=» CW A1,8,A4 IS IT THE RIGHT MONITOR?«, t00=0x006f, t01=0x0072}
0x0adf4…0ae0e               Head {h00=0x0016, h01=0x0050, text=» RF(E) GTMON4 YES!«, t00=0x006f, t01=0x009e}
0x0ae0e…0ae18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00b8}
0x0ae18…0ae54               Head {h00=0x0038, h01=0x0050, text=» CF A14,GTNBR4 NO, CONTINUE TO NEXT MONITOR IN VTOC «, t00=0x006f, t01=0x00c2}
0x0ae54…0ae66               Head {h00=0x000e, h01=0x0050, text=» RB GTMON2«, t00=0x006f, t01=0x00fe}
0x0ae66…0ae70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0110}
0x0ae70…0ae84               Head {h00=0x0010, h01=0x0050, text=»GTMON4 EQU *«, t00=0x006f, t01=0x011a}
0x0ae84…0aeac               Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTMXS GET MXSTAB ADDRESS«, t00=0x006f, t01=0x012e}
0x0aeac…0aee4               Head {h00=0x0034, h01=0x0050, text=» LD A2,16,A4 GET MONITOR DISC ADDRESS (BIT 0-15)«, t00=0x006f, t01=0x0156}
0x0aee4…0af0a               Head {h00=0x0022, h01=0x0050, text=» ST A2,2,A1 AND SAVE IN MXSTAB«, t00=0x006f, t01=0x018e}
0x0af0a…0af44               Head {h00=0x0036, h01=0x0050, text=» LD A2,18,A4 AND MONITOR DISC ADDRESS (BIT 16-31) «, t00=0x0070, t01=0x0024}
0x0af44…0af6a               Head {h00=0x0022, h01=0x0050, text=» ST A2,4,A1 AND SAVE IN MXSTAB«, t00=0x0070, t01=0x005e}
0x0af6a…0af82               Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0070, t01=0x0084}
0x0af82…0af90               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0070, t01=0x009c}
0x0af90…0afa4               Head {h00=0x0010, h01=0x0050, text=»GETNBR EQU *«, t00=0x0070, t01=0x00aa}
0x0afa4…0afcc               Head {h00=0x0024, h01=0x0050, text=» CF A14,GETVLB READ VOLUME LABEL«, t00=0x0070, t01=0x00be}
0x0afcc…0afe0               Head {h00=0x0010, h01=0x0050, text=»GTNBR0 EQU *«, t00=0x0070, t01=0x00e6}
0x0afe0…0b002               Head {h00=0x001e, h01=0x0050, text=» CF A14,RDSEC READ SECTOR «, t00=0x0070, t01=0x00fa}
0x0b002…0b02e               Head {h00=0x0028, h01=0x0050, text=» LDK A7,QBLFAC VTOC BLOCKING FACTOR «, t00=0x0070, t01=0x011c}
0x0b02e…0b050               Head {h00=0x001e, h01=0x0050, text=» LDR A4,A9 START OF RECORD«, t00=0x0070, t01=0x0148}
0x0b050…0b082               Head {h00=0x002e, h01=0x0050, text=» LD A1,MONNO+STKEND GET APPLICATION NUMBER«, t00=0x0070, t01=0x016a}
0x0b082…0b096               Head {h00=0x0010, h01=0x0050, text=»GTNBR2 EQU *«, t00=0x0071, t01=0x000c}
0x0b096…0b0c8               Head {h00=0x002e, h01=0x0050, text=» LCR A2,A4 GET 1ST CHARACTER IN FILE NAME «, t00=0x0071, t01=0x0020}
0x0b0c8…0b0e6               Head {h00=0x001a, h01=0x0050, text=» CCK A2,/2020 UNUSED? «, t00=0x0071, t01=0x0052}
0x0b0e6…0b100               Head {h00=0x0016, h01=0x0050, text=» RF(E) GTNBR4 YES!«, t00=0x0071, t01=0x0070}
0x0b100…0b10a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x008a}
0x0b10a…0b136               Head {h00=0x0028, h01=0x0050, text=» CC A1,9,A4 SAME APPLICATION NUMBER?«, t00=0x0071, t01=0x0094}
0x0b136…0b158               Head {h00=0x001e, h01=0x0050, text=» RF(E) GTNBR6 YES, RETURN «, t00=0x0071, t01=0x00c0}
0x0b158…0b162               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00e2}
0x0b162…0b176               Head {h00=0x0010, h01=0x0050, text=»GTNBR4 EQU *«, t00=0x0071, t01=0x00ec}
0x0b176…0b198               Head {h00=0x001e, h01=0x0050, text=» ADR A4,A8 GET NEXT RECORD«, t00=0x0071, t01=0x0100}
0x0b198…0b1c2               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 BYPASS STATUS CHARACTER «, t00=0x0071, t01=0x0122}
0x0b1c2…0b1f0               Head {h00=0x002a, h01=0x0050, text=» SUK A7,1 MORE RECORDS IN THIS SECTOR?«, t00=0x0071, t01=0x014c}
0x0b1f0…0b20a               Head {h00=0x0016, h01=0x0050, text=» RB(P) GTNBR2 YES!«, t00=0x0071, t01=0x017a}
0x0b20a…0b214 (114, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0004}
0x0b214…0b23c               Head {h00=0x0024, h01=0x0050, text=» RB GTNBR0 NO, READ NEXT SECTOR «, t00=0x0072, t01=0x000e}
0x0b23c…0b246               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0036}
0x0b246…0b25a               Head {h00=0x0010, h01=0x0050, text=»GTNBR6 EQU *«, t00=0x0072, t01=0x0040}
0x0b25a…0b26a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0072, t01=0x0054}
0x0b26a…0b276               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0072, t01=0x0064}
0x0b276…0b284               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0072, t01=0x0070}
0x0b284…0b2c6               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0072, t01=0x007e}
0x0b2c6…0b308               Head {h00=0x003e, h01=0x0050, text=»*                                                        *«, t00=0x0072, t01=0x00c0}
0x0b308…0b34a               Head {h00=0x003e, h01=0x0050, text=»*           LOAD CONFIGURATION PART OF SYSLOD            *«, t00=0x0072, t01=0x0102}
0x0b34a…0b38c               Head {h00=0x003e, h01=0x0050, text=»*           =================================            *«, t00=0x0072, t01=0x0144}
0x0b38c…0b3ce               Head {h00=0x003e, h01=0x0050, text=»*                                                        *«, t00=0x0072, t01=0x0186}
0x0b3ce…0b410               Head {h00=0x003e, h01=0x0050, text=»*  ENTRY:  A9 - BUFFER ADDRESS                           *«, t00=0x0073, t01=0x0038}
0x0b410…0b452               Head {h00=0x003e, h01=0x0050, text=»*                                                        *«, t00=0x0073, t01=0x007a}
0x0b452…0b494               Head {h00=0x003e, h01=0x0050, text=»*  EXIT:                                                 *«, t00=0x0073, t01=0x00bc}
0x0b494…0b4d6               Head {h00=0x003e, h01=0x0050, text=»*                                                        *«, t00=0x0073, t01=0x00fe}
0x0b4d6…0b518               Head {h00=0x003e, h01=0x0050, text=»*  SUBROUTINES:  CASSIN,RDBLK,MOVBUF                     *«, t00=0x0073, t01=0x0140}
0x0b518…0b55a               Head {h00=0x003e, h01=0x0050, text=»*                                                        *«, t00=0x0073, t01=0x0182}
0x0b55a…0b59c               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0074, t01=0x0034}
0x0b59c…0b5b0               Head {h00=0x0010, h01=0x0050, text=»CONLOD EQU *«, t00=0x0074, t01=0x0076}
0x0b5b0…0b5da               Head {h00=0x0026, h01=0x0050, text=» LD A1,SCTEFA GET END OF FREE AREA«, t00=0x0074, t01=0x008a}
0x0b5da…0b5f2               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x0074, t01=0x00b4}
0x0b5f2…0b618               Head {h00=0x0022, h01=0x0050, text=» ANKL A1,/3C00 ISOLATE BIT 2-5«, t00=0x0074, t01=0x00cc}
0x0b618…0b63c               Head {h00=0x0020, h01=0x0050, text=» SLL A1,2 ROTATE TO BIT 0-3 «, t00=0x0074, t01=0x00f2}
0x0b63c…0b672               Head {h00=0x0032, h01=0x0050, text=» ORS A1,SCTEFA+2 CONCATENATE WITH DISPLACEMENT«, t00=0x0074, t01=0x0116}
0x0b672…0b69e               Head {h00=0x0028, h01=0x0050, text=» SLC A2,2 PARTITION NR TO BIT 14,15 «, t00=0x0074, t01=0x014c}
0x0b69e…0b6ba               Head {h00=0x0018, h01=0x0050, text=» ANK A2,3 ISOLATE IT«, t00=0x0074, t01=0x0178}
0x0b6ba…0b6d8 (117, 0, 400) Head {h00=0x001a, h01=0x0050, text=» ST A2,SCTEFA AND SAVE«, t00=0x0075, t01=0x0004}
0x0b6d8…0b714               Head {h00=0x0038, h01=0x0050, text=» LD A1,CURAPL+STKEND START OF LAST APPL. CTRL. BLOCK«, t00=0x0075, t01=0x0022}
0x0b714…0b748               Head {h00=0x0030, h01=0x0050, text=» ADK A1,ACBLEN END OF LAST APPL. CTRL. BLOCK«, t00=0x0075, t01=0x005e}
0x0b748…0b778               Head {h00=0x002c, h01=0x0050, text=» ST A1,SCTSFA UPDATE START OF FREE AREA «, t00=0x0075, t01=0x0092}
0x0b778…0b7b4               Head {h00=0x0038, h01=0x0050, text=» LD A1,APLTAB+STKCOM GET START OF APPL. CONTR. TABLE«, t00=0x0075, t01=0x00c2}
0x0b7b4…0b7e4               Head {h00=0x002c, h01=0x0050, text=» ADK A1,2 ADVANCE TO FIRST CONTROL BLOCK«, t00=0x0075, t01=0x00fe}
0x0b7e4…0b81c               Head {h00=0x0034, h01=0x0050, text=» CM APLMMC,A1 SET REL. START OF APPL. CONF. DATA«, t00=0x0075, t01=0x012e}
0x0b81c…0b84e               Head {h00=0x002e, h01=0x0050, text=» ADK A1,ACBLEN ADVANCE TO NEXT APPLICATION«, t00=0x0075, t01=0x0166}
0x0b84e…0b878               Head {h00=0x0026, h01=0x0050, text=» ST A1,CURAPL+STKEND CONTROL BLOCK«, t00=0x0076, t01=0x0008}
0x0b878…0b8a6               Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x0076, t01=0x0032}
0x0b8a6…0b8cc               Head {h00=0x0022, h01=0x0050, text=» SUK A1,/F0 CHECK DEVICE TYPE «, t00=0x0076, t01=0x0060}
0x0b8cc…0b8f0               Head {h00=0x0020, h01=0x0050, text=» RF(NN) CONRAD NOT CASSETTE «, t00=0x0076, t01=0x0086}
0x0b8f0…0b90a               Head {h00=0x0016, h01=0x0050, text=» IFT CFTEST+CASS=2«, t00=0x0076, t01=0x00aa}
0x0b90a…0b914               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00c4}
0x0b914…0b93e               Head {h00=0x0026, h01=0x0050, text=»*  PROGRAM LOAD DEVICE = CASSETTE «, t00=0x0076, t01=0x00ce}
0x0b93e…0b948               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00f8}
0x0b948…0b95c               Head {h00=0x0010, h01=0x0050, text=»CON:30 EQU *«, t00=0x0076, t01=0x0102}
0x0b95c…0b976               Head {h00=0x0016, h01=0x0050, text=» LDKL A1,CON:40-2 «, t00=0x0076, t01=0x0116}
0x0b976…0b98e               Head {h00=0x0014, h01=0x0050, text=» SUKL A1,COR:48 «, t00=0x0076, t01=0x0130}
0x0b98e…0b9a4               Head {h00=0x0012, h01=0x0050, text=» ADKL A1,/5700«, t00=0x0076, t01=0x0148}
0x0b9a4…0b9cc               Head {h00=0x0024, h01=0x0050, text=» ST A1,COR:48 MODIFY INSTRUCTION«, t00=0x0076, t01=0x015e}
0x0b9cc…0b9e2               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/0100«, t00=0x0076, t01=0x0186}
0x0b9e2…0b9fe               Head {h00=0x0018, h01=0x0050, text=» ST A1,COR:38 MODIFY«, t00=0x0077, t01=0x000c}
0x0b9fe…0ba20               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 START OF BUFFER«, t00=0x0077, t01=0x0028}
0x0ba20…0ba46               Head {h00=0x0022, h01=0x0050, text=» ADKL A1,BUFLEN END OF BUFFER «, t00=0x0077, t01=0x004a}
0x0ba46…0ba76               Head {h00=0x002c, h01=0x0050, text=» ST A1,PLDADR+STKEND SAVE END OF BUFFER «, t00=0x0077, t01=0x0070}
0x0ba76…0ba98               Head {h00=0x001e, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE «, t00=0x0077, t01=0x00a0}
0x0ba98…0bac8               Head {h00=0x002c, h01=0x0050, text=» ST A1,CONSTA+STKCOM START OF CONF. DATA«, t00=0x0077, t01=0x00c2}
0x0bac8…0baec               Head {h00=0x0020, h01=0x0050, text=» CF A14,RDBLK READ ONE BLOCK«, t00=0x0077, t01=0x00f2}
0x0baec…0bb12               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x0077, t01=0x0116}
0x0bb12…0bb24               Head {h00=0x000e, h01=0x0050, text=» LDR A8,A9«, t00=0x0077, t01=0x013c}
0x0bb24…0bb4a               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A8 GET START OF BUFFER«, t00=0x0077, t01=0x014e}
0x0bb4a…0bb66               Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x0077, t01=0x0174}
0x0bb66…0bb80               Head {h00=0x0016, h01=0x0050, text=» RF(Z) TST:10 NO! «, t00=0x0077, t01=0x0190}
0x0bb80…0bbb2               Head {h00=0x002e, h01=0x0050, text=» CF A14,CASSIN INIT CONFIGURATION CASSETTE«, t00=0x0078, t01=0x001a}
0x0bbb2…0bbc6               Head {h00=0x0010, h01=0x0050, text=» CALL CON:40«, t00=0x0078, t01=0x004c}
0x0bbc6…0bbd8               Head {h00=0x000e, h01=0x0050, text=» RF TST:10«, t00=0x0078, t01=0x0060}
0x0bbd8…0bbec               Head {h00=0x0010, h01=0x0050, text=»CONEX EQU * «, t00=0x0078, t01=0x0072}
0x0bbec…0bbf6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0086}
0x0bbf6…0bc38               Head {h00=0x003e, h01=0x0050, text=»*  UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE«, t00=0x0078, t01=0x0090}
0x0bc38…0bc42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00d2}
0x0bc42…0bc68               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x0078, t01=0x00dc}
0x0bc68…0bc8c               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 APPLICATION DATA?«, t00=0x0078, t01=0x0102}
0x0bc8c…0bca6               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CON:80 NO!«, t00=0x0078, t01=0x0126}
0x0bca6…0bcb8               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/D«, t00=0x0078, t01=0x0140}
0x0bcb8…0bce6               Head {h00=0x002a, h01=0x0050, text=» CF A14,CHCRIO SEARCH TAPEMARK REVERSE«, t00=0x0078, t01=0x0152}
0x0bce6…0bd0c               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK BYPASS TAPEMARK «, t00=0x0078, t01=0x0180}
0x0bd0c…0bd1e               Head {h00=0x000e, h01=0x0050, text=» RF CON:90«, t00=0x0079, t01=0x0016}
0x0bd1e…0bd32               Head {h00=0x0010, h01=0x0050, text=»CON:80 EQU *«, t00=0x0079, t01=0x0028}
0x0bd32…0bd44               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/F«, t00=0x0079, t01=0x003c}
0x0bd44…0bd6a               Head {h00=0x0022, h01=0x0050, text=» CF A14,CHCRIO UNLOAD CASSETTE«, t00=0x0079, t01=0x004e}
0x0bd6a…0bd7e               Head {h00=0x0010, h01=0x0050, text=»CON:90 EQU *«, t00=0x0079, t01=0x0074}
0x0bd7e…0bd92               Head {h00=0x0010, h01=0x0050, text=» ABL CONMOV «, t00=0x0079, t01=0x0088}
0x0bd92…0bd9e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0079, t01=0x009c}
0x0bd9e…0bdb4               Head {h00=0x0012, h01=0x0050, text=» IFT CFTEST=1 «, t00=0x0079, t01=0x00a8}
0x0bdb4…0bdc2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x00be}
0x0bdc2…0bdd6               Head {h00=0x0010, h01=0x0050, text=»CONRAD EQU *«, t00=0x0079, t01=0x00cc}
0x0bdd6…0bde0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00e0}
0x0bde0…0be1a               Head {h00=0x0036, h01=0x0050, text=»*  LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC«, t00=0x0079, t01=0x00ea}
0x0be1a…0be24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0124}
0x0be24…0be60               Head {h00=0x0038, h01=0x0050, text=» LD A1,CONDEV+STKEND GET LOAD DEVICE FOR CONF. DATA «, t00=0x0079, t01=0x012e}
0x0be60…0be8e               Head {h00=0x002a, h01=0x0050, text=» RF(Z) CONRA0 SAME AS PGM LOAD DEVICE «, t00=0x0079, t01=0x016a}
0x0be8e…0be98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0008}
0x0be98…0becc               Head {h00=0x0030, h01=0x0050, text=» CF A14,CONFLD INITIATE CONF. DATA LOAD DEV.«, t00=0x007a, t01=0x0012}
0x0becc…0bee0               Head {h00=0x0010, h01=0x0050, text=»CONRA0 EQU *«, t00=0x007a, t01=0x0046}
0x0bee0…0bf0e               Head {h00=0x002a, h01=0x0050, text=» LD A11,CONDAD+STKEND GET START SECTOR«, t00=0x007a, t01=0x005a}
0x0bf0e…0bf44               Head {h00=0x0032, h01=0x0050, text=» LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART «, t00=0x007a, t01=0x0088}
0x0bf44…0bf6a               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x007a, t01=0x00be}
0x0bf6a…0bf92               Head {h00=0x0024, h01=0x0050, text=» ADKL A1,BUFLEN-6 END OF BUFFER «, t00=0x007a, t01=0x00e4}
0x0bf92…0bfc2               Head {h00=0x002c, h01=0x0050, text=» ST A1,PLDADR+STKEND SAVE END OF BUFFER «, t00=0x007a, t01=0x010c}
0x0bfc2…0bfe8               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x007a, t01=0x013c}
0x0bfe8…0c012               Head {h00=0x0026, h01=0x0050, text=» AD A1,SAVCON START OF SAVE BUFFER«, t00=0x007a, t01=0x0162}
0x0c012…0c036               Head {h00=0x0020, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE =2«, t00=0x007a, t01=0x018c}
0x0c036…0c066               Head {h00=0x002c, h01=0x0050, text=» ST A1,CONSTA+STKCOM START OF CONF. DATA«, t00=0x007b, t01=0x0020}
0x0c066…0c08e               Head {h00=0x0024, h01=0x0050, text=» LDKL A10,0 RESET RECORD COUNTER«, t00=0x007b, t01=0x0050}
0x0c08e…0c098               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0078}
0x0c098…0c0cc               Head {h00=0x0030, h01=0x0050, text=»*  READ ONE SECTOR FROM RANDOM ACCESS DEVICE«, t00=0x007b, t01=0x0082}
0x0c0cc…0c0d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00b6}
0x0c0d6…0c0f6               Head {h00=0x001c, h01=0x0050, text=» CALL READC READ SECTOR «, t00=0x007b, t01=0x00c0}
0x0c0f6…0c100               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00e0}
0x0c100…0c134               Head {h00=0x0030, h01=0x0050, text=»* TEST THE SYNTAX OF THE CONFIGURATION FILE «, t00=0x007b, t01=0x00ea}
0x0c134…0c13e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x011e}
0x0c13e…0c154               Head {h00=0x0012, h01=0x0050, text=»TST:10 CALL T «, t00=0x007b, t01=0x0128}
0x0c154…0c168               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007b, t01=0x013e}
0x0c168…0c178               Head {h00=0x000c, h01=0x0050, text=» CALL NN«, t00=0x007b, t01=0x0152}
0x0c178…0c18c               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007b, t01=0x0162}
0x0c18c…0c19e               Head {h00=0x000e, h01=0x0050, text=» CALL TID «, t00=0x007b, t01=0x0176}
0x0c19e…0c1b0               Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x007b, t01=0x0188}
0x0c1b0…0c1c0               Head {h00=0x000c, h01=0x0050, text=» CALL AA«, t00=0x007c, t01=0x000a}
0x0c1c0…0c1d4               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007c, t01=0x001a}
0x0c1d4…0c1e6               Head {h00=0x000e, h01=0x0050, text=» CALL TCL «, t00=0x007c, t01=0x002e}
0x0c1e6…0c1f8               Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x007c, t01=0x0040}
0x0c1f8…0c208               Head {h00=0x000c, h01=0x0050, text=» CALL AA«, t00=0x007c, t01=0x0052}
0x0c208…0c21c               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007c, t01=0x0062}
0x0c21c…0c22e               Head {h00=0x000e, h01=0x0050, text=» CALL LEV «, t00=0x007c, t01=0x0076}
0x0c22e…0c240               Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x007c, t01=0x0088}
0x0c240…0c252               Head {h00=0x000e, h01=0x0050, text=» CALL NN1 «, t00=0x007c, t01=0x009a}
0x0c252…0c26c               Head {h00=0x0016, h01=0x0050, text=»TST:20 CALL CONRD «, t00=0x007c, t01=0x00ac}
0x0c26c…0c27e               Head {h00=0x000e, h01=0x0050, text=» CALL NN1 «, t00=0x007c, t01=0x00c6}
0x0c27e…0c292               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007c, t01=0x00d8}
0x0c292…0c2d8               Head {h00=0x0042, h01=0x0050, text=»TST:30 LD A5,NDEVCL+STKEND GET NUMBER OF TERMINAL DEV. CLASSES«, t00=0x007c, t01=0x00ec}
0x0c2d8…0c2f4               Head {h00=0x0018, h01=0x0050, text=» CWK A5,/3030 ZERO? «, t00=0x007c, t01=0x0132}
0x0c2f4…0c30e               Head {h00=0x0016, h01=0x0050, text=» RF(E) TST:40 YES!«, t00=0x007c, t01=0x014e}
0x0c30e…0c322               Head {h00=0x0010, h01=0x0050, text=» CALL SUKASC«, t00=0x007c, t01=0x0168}
0x0c322…0c334               Head {h00=0x000e, h01=0x0050, text=» CALL TDCT«, t00=0x007c, t01=0x017c}
0x0c334…0c346               Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x007c, t01=0x018e}
0x0c346…0c356               Head {h00=0x000c, h01=0x0050, text=» CALL NN«, t00=0x007d, t01=0x0010}
0x0c356…0c36a               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007d, t01=0x0020}
0x0c36a…0c37a               Head {h00=0x000c, h01=0x0050, text=» CALL LC«, t00=0x007d, t01=0x0034}
0x0c37a…0c38c               Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x007d, t01=0x0044}
0x0c38c…0c39e               Head {h00=0x000e, h01=0x0050, text=» CALL NNL «, t00=0x007d, t01=0x0056}
0x0c39e…0c3b2               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007d, t01=0x0068}
0x0c3b2…0c3c4               Head {h00=0x000e, h01=0x0050, text=» RB TST:30«, t00=0x007d, t01=0x007c}
0x0c3c4…0c3d8               Head {h00=0x0010, h01=0x0050, text=»TST:40 EQU *«, t00=0x007d, t01=0x008e}
0x0c3d8…0c3ea               Head {h00=0x000e, h01=0x0050, text=» CALL NN1 «, t00=0x007d, t01=0x00a2}
0x0c3ea…0c3fe               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007d, t01=0x00b4}
0x0c3fe…0c412               Head {h00=0x0010, h01=0x0050, text=»TST:50 EQU *«, t00=0x007d, t01=0x00c8}
0x0c412…0c452               Head {h00=0x003c, h01=0x0050, text=» LD A5,NDEVCL+STKEND GET NUMBER OF SPECIAL DEV. CLASSES «, t00=0x007d, t01=0x00dc}
0x0c452…0c46e               Head {h00=0x0018, h01=0x0050, text=» CWK A5,/3030 ZERO? «, t00=0x007d, t01=0x011c}
0x0c46e…0c488               Head {h00=0x0016, h01=0x0050, text=» RF(E) TST:60 YES!«, t00=0x007d, t01=0x0138}
0x0c488…0c49c               Head {h00=0x0010, h01=0x0050, text=» CALL SUKASC«, t00=0x007d, t01=0x0152}
0x0c49c…0c4ae               Head {h00=0x000e, h01=0x0050, text=» CALL SDCS«, t00=0x007d, t01=0x0166}
0x0c4ae…0c4c0               Head {h00=0x000e, h01=0x0050, text=» CALL TEST«, t00=0x007d, t01=0x0178}
0x0c4c0…0c4d0               Head {h00=0x000c, h01=0x0050, text=» CALL NN«, t00=0x007d, t01=0x018a}
0x0c4d0…0c4e4               Head {h00=0x0010, h01=0x0050, text=» CALL CONRD «, t00=0x007e, t01=0x000a}
0x0c4e4…0c4f6               Head {h00=0x000e, h01=0x0050, text=» RB TST:50«, t00=0x007e, t01=0x001e}
0x0c4f6…0c50a               Head {h00=0x0010, h01=0x0050, text=»TST:60 EQU *«, t00=0x007e, t01=0x0030}
0x0c50a…0c52a               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x007e, t01=0x0044}
0x0c52a…0c55a               Head {h00=0x002c, h01=0x0050, text=» CCK A5,'TT' BLOCK TYPE T? (MOD. INSTR.)«, t00=0x007e, t01=0x0064}
0x0c55a…0c570               Head {h00=0x0012, h01=0x0050, text=»TST:70 EQU *-2«, t00=0x007e, t01=0x0094}
0x0c570…0c58a               Head {h00=0x0016, h01=0x0050, text=» RB(E) TST:10 YES!«, t00=0x007e, t01=0x00aa}
0x0c58a…0c5a0               Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/FFFF«, t00=0x007e, t01=0x00c4}
0x0c5a0…0c5ce               Head {h00=0x002a, h01=0x0050, text=» ST A3,TST:70 MODIFY INSTRUCTION TO RF«, t00=0x007e, t01=0x00da}
0x0c5ce…0c5f2               Head {h00=0x0020, h01=0x0050, text=» CCK A5,'CC' BLOCK TYPE C ? «, t00=0x007e, t01=0x0108}
0x0c5f2…0c60c               Head {h00=0x0016, h01=0x0050, text=» RF(NE) TST:80 NO!«, t00=0x007e, t01=0x012c}
0x0c60c…0c622               Head {h00=0x0012, h01=0x0050, text=» LDKL A3,'CC' «, t00=0x007e, t01=0x0146}
0x0c622…0c648               Head {h00=0x0022, h01=0x0050, text=» ST A3,T:10 MODIFY INSTRUCTION«, t00=0x007e, t01=0x015c}
0x0c648…0c658               Head {h00=0x000c, h01=0x0050, text=» CALL T «, t00=0x007e, t01=0x0182}
0x0c658…0c66a (127, 0, 398) Head {h00=0x000e, h01=0x0050, text=» RB TST:20«, t00=0x007f, t01=0x0004}
0x0c66a…0c67e               Head {h00=0x0010, h01=0x0050, text=»TST:80 EQU *«, t00=0x007f, t01=0x0016}
0x0c67e…0c6b0               Head {h00=0x002e, h01=0x0050, text=» LDR A1,A5 SAVE FIRST CHARACTER IN RECORD «, t00=0x007f, t01=0x002a}
0x0c6b0…0c6da               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x007f, t01=0x005c}
0x0c6da…0c6fa               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x007f, t01=0x0086}
0x0c6fa…0c71c               Head {h00=0x001e, h01=0x0050, text=» CCK A5,';;' END OF RECORD«, t00=0x007f, t01=0x00a6}
0x0c71c…0c738               Head {h00=0x0018, h01=0x0050, text=» ABL(NE) CONERR NO! «, t00=0x007f, t01=0x00c8}
0x0c738…0c74c               Head {h00=0x0010, h01=0x0050, text=»TST:85 EQU *«, t00=0x007f, t01=0x00e4}
0x0c74c…0c77e               Head {h00=0x002e, h01=0x0050, text=» CCK A1,'AA' START OF APPL. CONTR. BLOCK? «, t00=0x007f, t01=0x00f8}
0x0c77e…0c798               Head {h00=0x0016, h01=0x0050, text=» RF(E) TST:90 YES «, t00=0x007f, t01=0x012a}
0x0c798…0c7a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0144}
0x0c7a2…0c7d0               Head {h00=0x002a, h01=0x0050, text=» CCK A1,'DD' DATA COMMUNICATION BLOCK?«, t00=0x007f, t01=0x014e}
0x0c7d0…0c7ea               Head {h00=0x0016, h01=0x0050, text=» RF(NE) TST:87 NO!«, t00=0x007f, t01=0x017c}
0x0c7ea…0c7f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0008}
0x0c7f4…0c830               Head {h00=0x0038, h01=0x0050, text=» LD A1,EINPBF+STKEND CURRENT POSITION IN CONF. DATA «, t00=0x0080, t01=0x0012}
0x0c830…0c868               Head {h00=0x0034, h01=0x0050, text=» SU A1,CONSTA+STKCOM CALCULATE RELATIVE POSITION«, t00=0x0080, t01=0x004e}
0x0c868…0c888               Head {h00=0x001c, h01=0x0050, text=» ST A1,DCBLK+STKCOM SAVE«, t00=0x0080, t01=0x0086}
0x0c888…0c89c               Head {h00=0x0010, h01=0x0050, text=»TST:87 EQU *«, t00=0x0080, t01=0x00a6}
0x0c89c…0c8c8               Head {h00=0x0028, h01=0x0050, text=» CALL CONRD MOVE AND GET NEXT RECORD«, t00=0x0080, t01=0x00ba}
0x0c8c8…0c8f0               Head {h00=0x0024, h01=0x0050, text=» LCR A1,A4 AND FIRST CHAR. IN IT«, t00=0x0080, t01=0x00e6}
0x0c8f0…0c902               Head {h00=0x000e, h01=0x0050, text=» RB TST:85«, t00=0x0080, t01=0x010e}
0x0c902…0c90c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0120}
0x0c90c…0c920               Head {h00=0x0010, h01=0x0050, text=»TST:90 EQU *«, t00=0x0080, t01=0x012a}
0x0c920…0c92a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x013e}
0x0c92a…0c94e               Head {h00=0x0020, h01=0x0050, text=»*  APPLICATION CONTROL BLOCK«, t00=0x0080, t01=0x0148}
0x0c94e…0c96e               Head {h00=0x001c, h01=0x0050, text=»*  SKIP NAME RECORD AND «, t00=0x0080, t01=0x016c}
0x0c96e…0c990               Head {h00=0x001e, h01=0x0050, text=»*  SCAN CONFIGURATION DATA«, t00=0x0080, t01=0x018c}
0x0c990…0c99a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x001e}
0x0c99a…0c9d8               Head {h00=0x003a, h01=0x0050, text=» LDKL A1,/FF3B SUBSTITUTE 'A;' WITH 'HEX. FF' AND ';' «, t00=0x0081, t01=0x0028}
0x0c9d8…0c9ea               Head {h00=0x000e, h01=0x0050, text=» STR A1,A8«, t00=0x0081, t01=0x0066}
0x0c9ea…0ca22               Head {h00=0x0034, h01=0x0050, text=» LD A2,CURAPL+STKEND CURRENT APPL. CONTR. BLOCK «, t00=0x0081, t01=0x0078}
0x0ca22…0ca5e               Head {h00=0x0038, h01=0x0050, text=» LD A1,EINPBF+STKEND CURRENT POSITION IN CONF. DATA «, t00=0x0081, t01=0x00b0}
0x0ca5e…0ca82               Head {h00=0x0020, h01=0x0050, text=» ADK A1,1 SKIP BLOCK MARKER «, t00=0x0081, t01=0x00ec}
0x0ca82…0caba               Head {h00=0x0034, h01=0x0050, text=» SU A1,CONSTA+STKCOM CALCULATE RELATIVE POSITION«, t00=0x0081, t01=0x0110}
0x0caba…0caf8               Head {h00=0x003a, h01=0x0050, text=» ST A1,APLMMC,A2 AND SAVE AS START OF APPL. CONF. DATA«, t00=0x0081, t01=0x0148}
0x0caf8…0cb0e               Head {h00=0x0012, h01=0x0050, text=» ADK A2,ACBLEN«, t00=0x0081, t01=0x0186}
0x0cb0e…0cb4e               Head {h00=0x003c, h01=0x0050, text=» ST A2,CURAPL+STKEND ADVANCE TO NEXT APPL. CONTR. BLOCK «, t00=0x0082, t01=0x000c}
0x0cb4e…0cb76               Head {h00=0x0024, h01=0x0050, text=» CALL CONRD MOVE AND PACK RECORD«, t00=0x0082, t01=0x004c}
0x0cb76…0cba2               Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x0082, t01=0x0074}
0x0cba2…0cbcc               Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD «, t00=0x0082, t01=0x00a0}
0x0cbcc…0cbe6               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:50 YES!«, t00=0x0082, t01=0x00ca}
0x0cbe6…0cc18               Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x0082, t01=0x00e4}
0x0cc18…0cc42               Head {h00=0x0026, h01=0x0050, text=» CW A8,PLDADR+STKEND END OF BUFFER«, t00=0x0082, t01=0x0116}
0x0cc42…0cc58               Head {h00=0x0012, h01=0x0050, text=» RF(NE) TST:95«, t00=0x0082, t01=0x0140}
0x0cc58…0cc62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0156}
0x0cc62…0cc82               Head {h00=0x001c, h01=0x0050, text=» CALL READC READ SECTOR «, t00=0x0082, t01=0x0160}
0x0cc82…0cc96               Head {h00=0x0010, h01=0x0050, text=»TST:95 EQU *«, t00=0x0082, t01=0x0180}
0x0cc96…0ccc4 (131, 0, 400) Head {h00=0x002a, h01=0x0050, text=» LDKL A1,'TT' LOOK FOR TASK DEF. BLOCK«, t00=0x0083, t01=0x0004}
0x0ccc4…0cce8               Head {h00=0x0020, h01=0x0050, text=» ST A1,TST:70 MODIFY INSTR. «, t00=0x0083, t01=0x0032}
0x0cce8…0ccfc               Head {h00=0x0010, h01=0x0050, text=» ST A1,T:10 «, t00=0x0083, t01=0x0056}
0x0ccfc…0cd0e               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A8«, t00=0x0083, t01=0x006a}
0x0cd0e…0cd32               Head {h00=0x0020, h01=0x0050, text=» ABL TST:10 SCAN CONF. DATA «, t00=0x0083, t01=0x007c}
0x0cd32…0cd3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x00a0}
0x0cd3c…0cd50               Head {h00=0x0010, h01=0x0050, text=»COR:50 EQU *«, t00=0x0083, t01=0x00aa}
0x0cd50…0cd76               Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x0083, t01=0x00be}
0x0cd76…0cd8e               Head {h00=0x0014, h01=0x0050, text=» ANK A1,8 SWB:S?«, t00=0x0083, t01=0x00e4}
0x0cd8e…0cda6               Head {h00=0x0014, h01=0x0050, text=» RF(Z) COR:55 NO«, t00=0x0083, t01=0x00fc}
0x0cda6…0cdba               Head {h00=0x0010, h01=0x0050, text=» LDK A3,'S' «, t00=0x0083, t01=0x0114}
0x0cdba…0cde4               Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:25+1 MODIFY INSTRUCTION«, t00=0x0083, t01=0x0128}
0x0cde4…0ce0e               Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:60+1 MODIFY INSTRUCTION«, t00=0x0083, t01=0x0152}
0x0ce0e…0ce2a               Head {h00=0x0018, h01=0x0050, text=» LD A1,IPLDEV+STKEND«, t00=0x0083, t01=0x017c}
0x0ce2a…0ce5c               Head {h00=0x002e, h01=0x0050, text=» CF A14,LODDEV INITIALIZE PGM LOAD DEVICE «, t00=0x0084, t01=0x0008}
0x0ce5c…0ce72               Head {h00=0x0012, h01=0x0050, text=» CF A14,GETFIL«, t00=0x0084, t01=0x003a}
0x0ce72…0ce7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0050}
0x0ce7c…0ce9c               Head {h00=0x001c, h01=0x0050, text=»*  UNLOCK FLEXIBLE DISC «, t00=0x0084, t01=0x005a}
0x0ce9c…0cea6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x007a}
0x0cea6…0ceba               Head {h00=0x0010, h01=0x0050, text=»COR:55 EQU *«, t00=0x0084, t01=0x0084}
0x0ceba…0cef2               Head {h00=0x0034, h01=0x0050, text=» LD A1,CONDEV+STKEND GET CONF. DATA LOAD DEVICE «, t00=0x0084, t01=0x0098}
0x0cef2…0cf22               Head {h00=0x002c, h01=0x0050, text=» RF(Z) COR:58 SAME AS APPL. LOAD DEVICE «, t00=0x0084, t01=0x00d0}
0x0cf22…0cf2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0100}
0x0cf2c…0cf3e               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0084, t01=0x010a}
0x0cf3e…0cf50               Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0084, t01=0x011c}
0x0cf50…0cf62               Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x0084, t01=0x012e}
0x0cf62…0cf8a               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COR:58 NOT FLEXIBLE DISC«, t00=0x0084, t01=0x0140}
0x0cf8a…0cf94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0168}
0x0cf94…0cfa0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0084, t01=0x0172}
0x0cfa0…0cfbc               Head {h00=0x0018, h01=0x0050, text=» IFT CFTEST+FLDISC=2«, t00=0x0084, t01=0x017e}
0x0cfbc…0cfe8               Head {h00=0x0028, h01=0x0050, text=» CF A14,UNLOCK UNLOCK FLEXIBLE DISC «, t00=0x0085, t01=0x000a}
0x0cfe8…0cff4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0085, t01=0x0036}
0x0cff4…0d00a               Head {h00=0x0012, h01=0x0050, text=» IFT CFTEST=1 «, t00=0x0085, t01=0x0042}
0x0d00a…0d01e               Head {h00=0x0010, h01=0x0050, text=»COR:58 EQU *«, t00=0x0085, t01=0x0058}
0x0d01e…0d04c               Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x0085, t01=0x006c}
0x0d04c…0d06a               Head {h00=0x001a, h01=0x0050, text=» SUK A1,/F8 CHECK TYPE«, t00=0x0085, t01=0x009a}
0x0d06a…0d092               Head {h00=0x0024, h01=0x0050, text=» RF(N) COR:60 NOT FLEXIBLE DISC «, t00=0x0085, t01=0x00b8}
0x0d092…0d09c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x00e0}
0x0d09c…0d0a8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0085, t01=0x00ea}
0x0d0a8…0d0ce               Head {h00=0x0022, h01=0x0050, text=» SUK A1,/FC-/F8 FLEXIBLE DISC?«, t00=0x0085, t01=0x00f6}
0x0d0ce…0d0ea               Head {h00=0x0018, h01=0x0050, text=» ABL(NN) COR:60 NO! «, t00=0x0085, t01=0x011c}
0x0d0ea…0d0f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0138}
0x0d0f4…0d110               Head {h00=0x0018, h01=0x0050, text=» IFT CFTEST+FLDISC=2«, t00=0x0085, t01=0x0142}
0x0d110…0d136               Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x0085, t01=0x015e}
0x0d136…0d154               Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x0085, t01=0x0184}
0x0d154…0d17c               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COR:60 YES! DON'T UNLOCK«, t00=0x0086, t01=0x0012}
0x0d17c…0d186               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x003a}
0x0d186…0d1a2               Head {h00=0x0018, h01=0x0050, text=» LD A1,IPLDEV+STKEND«, t00=0x0086, t01=0x0044}
0x0d1a2…0d1ce               Head {h00=0x0028, h01=0x0050, text=» CF A14,UNLOCK UNLOCK FLEXIBLE DISC «, t00=0x0086, t01=0x0060}
0x0d1ce…0d1da               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0086, t01=0x008c}
0x0d1da…0d1f0               Head {h00=0x0012, h01=0x0050, text=» IFT CFTEST=1 «, t00=0x0086, t01=0x0098}
0x0d1f0…0d204               Head {h00=0x0010, h01=0x0050, text=»COR:60 EQU *«, t00=0x0086, t01=0x00ae}
0x0d204…0d212               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0086, t01=0x00c2}
0x0d212…0d226               Head {h00=0x0010, h01=0x0050, text=»CONMOV EQU *«, t00=0x0086, t01=0x00d0}
0x0d226…0d230               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x00e4}
0x0d230…0d268               Head {h00=0x0034, h01=0x0050, text=»*  MOVE CONFIGURATION DATA TO END OF SYSTEM AREA«, t00=0x0086, t01=0x00ee}
0x0d268…0d272               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0126}
0x0d272…0d29c               Head {h00=0x0026, h01=0x0050, text=» CIO A1,0,SOP INHIBIT SOP SWITCHES«, t00=0x0086, t01=0x0130}
0x0d29c…0d2d0               Head {h00=0x0030, h01=0x0050, text=» LD A1,CONSTA+STKCOM GET START OF CONF. DATA«, t00=0x0086, t01=0x015a}
0x0d2d0…0d310               Head {h00=0x003c, h01=0x0050, text=»CMOV10 LD A3,EINPBF+STKEND GET END OF CONFIGURATION DATA«, t00=0x0086, t01=0x018e}
0x0d310…0d344               Head {h00=0x0030, h01=0x0050, text=» LD A2,ESYSTA+STKEND GET END OF SYSTEM AREA «, t00=0x0087, t01=0x003e}
0x0d344…0d372               Head {h00=0x002a, h01=0x0050, text=» CM -2,A2 MAKE SURE CONFIGURATION FILE«, t00=0x0087, t01=0x0072}
0x0d372…0d398               Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 IS FOLLOWED BY X'00'«, t00=0x0087, t01=0x00a0}
0x0d398…0d3c8               Head {h00=0x002c, h01=0x0050, text=» SUR A3,A1 LENGTH OF CONFIGURATION DATA «, t00=0x0087, t01=0x00c6}
0x0d3c8…0d3fe               Head {h00=0x0032, h01=0x0050, text=» ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA«, t00=0x0087, t01=0x00f6}
0x0d3fe…0d406               Head {h00=0x0004, h01=0x0050, t00=0x0087, t01=0x012c}
0x0d406…0d424               Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x0087, t01=0x0134}
0x0d424…0d42e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0152}
0x0d42e…0d456               Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN ADDRESS«, t00=0x0087, t01=0x015c}
0x0d456…0d468               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x0087, t01=0x0184}
0x0d468…0d4a6               Head {h00=0x003a, h01=0x0050, text=» ST A2,CONSTA+STKCOM SAVE START OF CONFIGURATION DATA «, t00=0x0088, t01=0x0008}
0x0d4a6…0d4dc               Head {h00=0x0032, h01=0x0050, text=» LD A1,CONLEN+STKCOM GET LENGTH OF CONF. DATA «, t00=0x0088, t01=0x0046}
0x0d4dc…0d510               Head {h00=0x0030, h01=0x0050, text=» ADK A1,2 INCLUDE TRAILING ZEROES IN LENGTH «, t00=0x0088, t01=0x007c}
0x0d510…0d534               Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFE AND MAKE EVEN«, t00=0x0088, t01=0x00b0}
0x0d534…0d550               Head {h00=0x0018, h01=0x0050, text=» ST A1,CONLEN+STKCOM«, t00=0x0088, t01=0x00d4}
0x0d550…0d57a               Head {h00=0x0026, h01=0x0050, text=» LDR A1,A9 GET START OF FREE AREA «, t00=0x0088, t01=0x00f0}
0x0d57a…0d59e               Head {h00=0x0020, h01=0x0050, text=» LDR A12,A2 END OF FREE AREA«, t00=0x0088, t01=0x011a}
0x0d59e…0d5c6               Head {h00=0x0024, h01=0x0050, text=» SUR A12,A1 SUBTRACT MONITOR END«, t00=0x0088, t01=0x013e}
0x0d5c6…0d5fc               Head {h00=0x0032, h01=0x0050, text=» ST A12,M:REL+STKCOM SAVE RELOCATION CONSTANT «, t00=0x0088, t01=0x0166}
0x0d5fc…0d624               Head {h00=0x0024, h01=0x0050, text=» LD A2,SCTMXS GET MXSTAB ADDRESS«, t00=0x0089, t01=0x000c}
0x0d624…0d64c               Head {h00=0x0024, h01=0x0050, text=» RF(Z) CMOV20 NO MXSTAB PRESENT «, t00=0x0089, t01=0x0034}
0x0d64c…0d656               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x005c}
0x0d656…0d68a               Head {h00=0x0030, h01=0x0050, text=» AD A2,M:REL+STKCOM RELOCATE MXSTAB ADDRESS «, t00=0x0089, t01=0x0066}
0x0d68a…0d6b8               Head {h00=0x002a, h01=0x0050, text=» ST A2,SCTMXS AND SAVE AS NEW ADDRESS «, t00=0x0089, t01=0x009a}
0x0d6b8…0d6cc               Head {h00=0x0010, h01=0x0050, text=»CMOV20 EQU *«, t00=0x0089, t01=0x00c8}
0x0d6cc…0d6fc               Head {h00=0x002c, h01=0x0050, text=» LD A2,CONSTA+STKCOM GET START OF CONFF «, t00=0x0089, t01=0x00dc}
0x0d6fc…0d706               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x010c}
0x0d706…0d746               Head {h00=0x003c, h01=0x0050, text=»*  MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA«, t00=0x0089, t01=0x0116}
0x0d746…0d750               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0156}
0x0d750…0d764               Head {h00=0x0010, h01=0x0050, text=»MOPRO EQU * «, t00=0x0089, t01=0x0160}
0x0d764…0d77c               Head {h00=0x0014, h01=0x0050, text=» LDKL A13,SYSLDM«, t00=0x0089, t01=0x0174}
0x0d77c…0d78e               Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x0089, t01=0x018c}
0x0d78e…0d7a0               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x008a, t01=0x000e}
0x0d7a0…0d7b4               Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A1 «, t00=0x008a, t01=0x0020}
0x0d7b4…0d7c6               Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x008a, t01=0x0034}
0x0d7c6…0d7da               Head {h00=0x0010, h01=0x0050, text=» CWR A1,A13 «, t00=0x008a, t01=0x0046}
0x0d7da…0d7f0               Head {h00=0x0012, h01=0x0050, text=» RB(NE) MOPRO «, t00=0x008a, t01=0x005a}
0x0d7f0…0d81c               Head {h00=0x0028, h01=0x0050, text=» ABR A2 CONTINUE EXECUTION IN SYSLDM«, t00=0x008a, t01=0x0070}
0x0d81c…0d82a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008a, t01=0x009c}
0x0d82a…0d872               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x008a, t01=0x00aa}
0x0d872…0d8ba               Head {h00=0x0044, h01=0x0050, text=»*  SUROUTINES USED TO TEST THE SYNTAX OF THE CONFIGURATION FILE «, t00=0x008a, t01=0x00f2}
0x0d8ba…0d902               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x008a, t01=0x013a}
0x0d902…0d910               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008a, t01=0x0182}
0x0d910…0d924               Head {h00=0x0010, h01=0x0050, text=»CONRD EQU * «, t00=0x008a, t01=0x0190}
0x0d924…0d92e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x0014}
0x0d92e…0d964               Head {h00=0x0032, h01=0x0050, text=»*  COMPUTE NUMBER OF CHARACTERS IN THIS RECORD«, t00=0x008b, t01=0x001e}
0x0d964…0d96e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x0054}
0x0d96e…0d9a8               Head {h00=0x0036, h01=0x0050, text=» LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER«, t00=0x008b, t01=0x005e}
0x0d9a8…0d9c0               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x008b, t01=0x0098}
0x0d9c0…0d9ea               Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET CHARACTER COUNTER «, t00=0x008b, t01=0x00b0}
0x0d9ea…0da0c               Head {h00=0x001e, h01=0x0050, text=» LDR A4,A8 START OF RECORD«, t00=0x008b, t01=0x00da}
0x0da0c…0da20               Head {h00=0x0010, h01=0x0050, text=»COR:30 EQU *«, t00=0x008b, t01=0x00fc}
0x0da20…0da40               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x008b, t01=0x0110}
0x0da40…0da64               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x008b, t01=0x0130}
0x0da64…0da7e               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x008b, t01=0x0154}
0x0da7e…0da92               Head {h00=0x0010, h01=0x0050, text=»COR:35 EQU *«, t00=0x008b, t01=0x016e}
0x0da92…0dac0               Head {h00=0x002a, h01=0x0050, text=» CWK A3,RECLEN MAXIMUM SIZE ACHIEVED? «, t00=0x008b, t01=0x0182}
0x0dac0…0dad6               Head {h00=0x0012, h01=0x0050, text=»COR:38 EQU *-2«, t00=0x008c, t01=0x0020}
0x0dad6…0daf0               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x008c, t01=0x0036}
0x0daf0…0db1e               Head {h00=0x002a, h01=0x0050, text=» CW A1,ESYSTA+STKEND MEMORY OVERFLOW? «, t00=0x008c, t01=0x0050}
0x0db1e…0db38               Head {h00=0x0016, h01=0x0050, text=» RF(E) MEMOFL YES!«, t00=0x008c, t01=0x007e}
0x0db38…0db62               Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 INCREMENT BUFFER POINTER«, t00=0x008c, t01=0x0098}
0x0db62…0db90               Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT CHARACTER COUNTER «, t00=0x008c, t01=0x00c2}
0x0db90…0dbba               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT RECORD POINTER«, t00=0x008c, t01=0x00f0}
0x0dbba…0dbd2               Head {h00=0x0014, h01=0x0050, text=» RB COR:30 LOOP «, t00=0x008c, t01=0x011a}
0x0dbd2…0dbe6               Head {h00=0x0010, h01=0x0050, text=»COR:40 EQU *«, t00=0x008c, t01=0x0132}
0x0dbe6…0dc0c               Head {h00=0x0022, h01=0x0050, text=» LC A5,1,A4 GET NEXT CHARACTER«, t00=0x008c, t01=0x0146}
0x0dc0c…0dc30               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' TWO SEMICOLONS?«, t00=0x008c, t01=0x016c}
0x0dc30…0dc4a               Head {h00=0x0016, h01=0x0050, text=» RF(NE) COR:45 NO!«, t00=0x008c, t01=0x0190}
0x0dc4a…0dc78               Head {h00=0x002a, h01=0x0050, text=» CWK A3,NCHTID CHECK IF END OF RECORD «, t00=0x008d, t01=0x001a}
0x0dc78…0dcb0               Head {h00=0x0034, h01=0x0050, text=» RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD «, t00=0x008d, t01=0x0048}
0x0dcb0…0dcc4               Head {h00=0x0010, h01=0x0050, text=»COR:45 EQU *«, t00=0x008d, t01=0x0080}
0x0dcc4…0dcfa               Head {h00=0x0032, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION «, t00=0x008d, t01=0x0094}
0x0dcfa…0dd1c               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A8 START OF RECORD«, t00=0x008d, t01=0x00ca}
0x0dd1c…0dd2e               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x008d, t01=0x00ec}
0x0dd2e…0dd42               Head {h00=0x0010, h01=0x0050, text=»COR:48 EQU *«, t00=0x008d, t01=0x00fe}
0x0dd42…0dd6e               Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x008d, t01=0x0112}
0x0dd6e…0dd98               Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD «, t00=0x008d, t01=0x013e}
0x0dd98…0ddb4               Head {h00=0x0018, h01=0x0050, text=» ABL(E) COR:50 YES! «, t00=0x008d, t01=0x0168}
0x0ddb4…0dde6               Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x008d, t01=0x0184}
0x0dde6…0de10               Head {h00=0x0026, h01=0x0050, text=» CW A8,PLDADR+STKEND END OF BUFFER«, t00=0x008e, t01=0x0026}
0x0de10…0de2a               Head {h00=0x0016, h01=0x0050, text=» RF(NE) COR:10 NO!«, t00=0x008e, t01=0x0050}
0x0de2a…0de4a               Head {h00=0x001c, h01=0x0050, text=» CALL READC READ SECTOR «, t00=0x008e, t01=0x006a}
0x0de4a…0de72               Head {h00=0x0024, h01=0x0050, text=»COR:10 LDR A4,A8 START OF RECORD«, t00=0x008e, t01=0x008a}
0x0de72…0de82               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008e, t01=0x00b2}
0x0de82…0de8e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x00c2}
0x0de8e…0dea8               Head {h00=0x0016, h01=0x0050, text=» IFT CFTEST+CASS=2«, t00=0x008e, t01=0x00ce}
0x0dea8…0debc               Head {h00=0x0010, h01=0x0050, text=»CON:40 EQU *«, t00=0x008e, t01=0x00e8}
0x0debc…0dee2               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x008e, t01=0x00fc}
0x0dee2…0defe               Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x008e, t01=0x0122}
0x0defe…0df1a               Head {h00=0x0018, h01=0x0050, text=» ABL(NZ) CONEX YES! «, t00=0x008e, t01=0x013e}
0x0df1a…0df2c               Head {h00=0x000e, h01=0x0050, text=» LDR A8,A9«, t00=0x008e, t01=0x015a}
0x0df2c…0df52               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A8 GET START OF BUFFER«, t00=0x008e, t01=0x016c}
0x0df52…0df62 (143, 0, 398) Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008f, t01=0x0004}
0x0df62…0df6e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008f, t01=0x0014}
0x0df6e…0df84               Head {h00=0x0012, h01=0x0050, text=» IFT CFTEST=1 «, t00=0x008f, t01=0x0020}
0x0df84…0df98               Head {h00=0x0010, h01=0x0050, text=»MEMOFL EQU *«, t00=0x008f, t01=0x0036}
0x0df98…0dfc6               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x008f, t01=0x004a}
0x0dfc6…0dfda               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x008f, t01=0x0078}
0x0dfda…0dfe8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008f, t01=0x008c}
0x0dfe8…0dffc               Head {h00=0x0010, h01=0x0050, text=»READC EQU * «, t00=0x008f, t01=0x009a}
0x0dffc…0e01e               Head {h00=0x001e, h01=0x0050, text=» CF A14,RDSEC READ SECTOR «, t00=0x008f, t01=0x00ae}
0x0e01e…0e030               Head {h00=0x000e, h01=0x0050, text=» LDR A8,A9«, t00=0x008f, t01=0x00d0}
0x0e030…0e056               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A8 GET START OF BUFFER«, t00=0x008f, t01=0x00e2}
0x0e056…0e066               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008f, t01=0x0108}
0x0e066…0e076               Head {h00=0x000c, h01=0x0050, text=»T EQU * «, t00=0x008f, t01=0x0118}
0x0e076…0e096               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x008f, t01=0x0128}
0x0e096…0e0b8               Head {h00=0x001e, h01=0x0050, text=» CCK A5,'TT' BLOCK TYPE T?«, t00=0x008f, t01=0x0148}
0x0e0b8…0e0cc               Head {h00=0x0010, h01=0x0050, text=»T:10 EQU *-2«, t00=0x008f, t01=0x016a}
0x0e0cc…0e0e4               Head {h00=0x0014, h01=0x0050, text=» ABL(NE) CONERR «, t00=0x008f, t01=0x017e}
0x0e0e4…0e10e               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0090, t01=0x0008}
0x0e10e…0e134               Head {h00=0x0022, h01=0x0050, text=» LCR A5,A4 GET NEXT CHARACTER «, t00=0x0090, t01=0x0032}
0x0e134…0e158               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x0090, t01=0x0058}
0x0e158…0e174               Head {h00=0x0018, h01=0x0050, text=» ABL(NE) CONERR NO! «, t00=0x0090, t01=0x007c}
0x0e174…0e184               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0090, t01=0x0098}
0x0e184…0e192               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0090, t01=0x00a8}
0x0e192…0e1a4               Head {h00=0x000e, h01=0x0050, text=»NNL EQU * «, t00=0x0090, t01=0x00b6}
0x0e1a4…0e1d2               Head {h00=0x002a, h01=0x0050, text=» LDK A3,3 NO OF DIGITS IN LINE NUMBER «, t00=0x0090, t01=0x00c8}
0x0e1d2…0e1fc               Head {h00=0x0026, h01=0x0050, text=» CF A14,NUMB LOOK IF LEGAL DIGITS «, t00=0x0090, t01=0x00f6}
0x0e1fc…0e224               Head {h00=0x0024, h01=0x0050, text=» LDR A1,A1 SET RETURN CONDITION «, t00=0x0090, t01=0x0120}
0x0e224…0e258               Head {h00=0x0030, h01=0x0050, text=» ABL(Z) CONERR LINE NUMBER '000' NOT ALLOWED«, t00=0x0090, t01=0x0148}
0x0e258…0e262               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x017c}
0x0e262…0e288               Head {h00=0x0022, h01=0x0050, text=» LCR A5,A4 GET NEXT CHARACTER «, t00=0x0090, t01=0x0186}
0x0e288…0e2a4               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'LL' LINE L?«, t00=0x0091, t01=0x001c}
0x0e2a4…0e2be               Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0091, t01=0x0038}
0x0e2be…0e2da               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'RR' LINE R?«, t00=0x0091, t01=0x0052}
0x0e2da…0e2f4               Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0091, t01=0x006e}
0x0e2f4…0e310               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'AA' LINE A?«, t00=0x0091, t01=0x0088}
0x0e310…0e32a               Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0091, t01=0x00a4}
0x0e32a…0e346               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'SS' LINE S?«, t00=0x0091, t01=0x00be}
0x0e346…0e360               Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0091, t01=0x00da}
0x0e360…0e37c               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'PP' LINE P?«, t00=0x0091, t01=0x00f4}
0x0e37c…0e396               Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0091, t01=0x0110}
0x0e396…0e3b2               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'VV' LINE V?«, t00=0x0091, t01=0x012a}
0x0e3b2…0e3c6               Head {h00=0x0010, h01=0x0050, text=» RF(E) NN:40«, t00=0x0091, t01=0x0146}
0x0e3c6…0e3e2               Head {h00=0x0018, h01=0x0050, text=» CCK A5,'QQ' LINE Q?«, t00=0x0091, t01=0x015a}
0x0e3e2…0e3fc               Head {h00=0x0016, h01=0x0050, text=» RF(E) NN:40 YES! «, t00=0x0091, t01=0x0176}
0x0e3fc…0e40e               Head {h00=0x000e, h01=0x0050, text=» RF CONERR«, t00=0x0091, t01=0x0190}
0x0e40e…0e422               Head {h00=0x0010, h01=0x0050, text=»NN:40 EQU * «, t00=0x0092, t01=0x0012}
0x0e422…0e44c               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0092, t01=0x0026}
0x0e44c…0e45e               Head {h00=0x000e, h01=0x0050, text=» RF NN:50 «, t00=0x0092, t01=0x0050}
0x0e45e…0e468               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x0062}
0x0e468…0e478               Head {h00=0x000c, h01=0x0050, text=»NN EQU *«, t00=0x0092, t01=0x006c}
0x0e478…0e4a0               Head {h00=0x0024, h01=0x0050, text=» LDK A3,2 NO OF DIGITS IN NUMBER«, t00=0x0092, t01=0x007c}
0x0e4a0…0e4ca               Head {h00=0x0026, h01=0x0050, text=» CF A14,NUMB LOOK IF LEGAL DIGITS «, t00=0x0092, t01=0x00a4}
0x0e4ca…0e4f2               Head {h00=0x0024, h01=0x0050, text=» LDR A1,A1 SET RETURN CONDITION «, t00=0x0092, t01=0x00ce}
0x0e4f2…0e518               Head {h00=0x0022, h01=0x0050, text=» RF(Z) CONERR '00' NOT ALLOWED«, t00=0x0092, t01=0x00f6}
0x0e518…0e522               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x011c}
0x0e522…0e54a               Head {h00=0x0024, h01=0x0050, text=» RF NN:50 LOOK IF END IF RECORD «, t00=0x0092, t01=0x0126}
0x0e54a…0e554               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x014e}
0x0e554…0e566               Head {h00=0x000e, h01=0x0050, text=»NN1 EQU * «, t00=0x0092, t01=0x0158}
0x0e566…0e58e               Head {h00=0x0024, h01=0x0050, text=» LDK A3,2 NO OF DIGITS IN NUMBER«, t00=0x0092, t01=0x016a}
0x0e58e…0e5b8 (147, 0, 400) Head {h00=0x0026, h01=0x0050, text=» CF A14,NUMB LOOK IF LEGAL DIGITS «, t00=0x0093, t01=0x0004}
0x0e5b8…0e5e0               Head {h00=0x0024, h01=0x0050, text=» ST A5,NDEVCL+STKEND SAVE NUMBER«, t00=0x0093, t01=0x002e}
0x0e5e0…0e606               Head {h00=0x0022, h01=0x0050, text=»NN:50 LCR A5,A4 GET CHARACTER «, t00=0x0093, t01=0x0056}
0x0e606…0e62a               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x0093, t01=0x007c}
0x0e62a…0e644               Head {h00=0x0016, h01=0x0050, text=» RF(NE) CONERR NO!«, t00=0x0093, t01=0x00a0}
0x0e644…0e654               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0093, t01=0x00ba}
0x0e654…0e662               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0093, t01=0x00ca}
0x0e662…0e672               Head {h00=0x000c, h01=0x0050, text=»AA EQU *«, t00=0x0093, t01=0x00d8}
0x0e672…0e684               Head {h00=0x000e, h01=0x0050, text=» LDK A3,2 «, t00=0x0093, t01=0x00e8}
0x0e684…0e698               Head {h00=0x0010, h01=0x0050, text=»AA:10 EQU * «, t00=0x0093, t01=0x00fa}
0x0e698…0e6b8               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x0093, t01=0x010e}
0x0e6b8…0e6ea               Head {h00=0x002e, h01=0x0050, text=» CCK A5,/3030 ALPHA-NUMERIC CHARACTER <30?«, t00=0x0093, t01=0x012e}
0x0e6ea…0e704               Head {h00=0x0016, h01=0x0050, text=» RF(L) CONERR YES!«, t00=0x0093, t01=0x0160}
0x0e704…0e70e               Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0093, t01=0x017a}
0x0e70e…0e730               Head {h00=0x001e, h01=0x0050, text=»* TEMP FIX FOR TASK ID =X:«, t00=0x0093, t01=0x0184}
0x0e730…0e73a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0094, t01=0x0016}
0x0e73a…0e76e               Head {h00=0x0030, h01=0x0050, text=» CCK A5,/5A5A ALPHA-NUMERIC CHARACTER > 39? «, t00=0x0094, t01=0x0020}
0x0e76e…0e778               Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0094, t01=0x0054}
0x0e778…0e792               Head {h00=0x0016, h01=0x0050, text=» RF(NG) AA:20 NO! «, t00=0x0094, t01=0x005e}
0x0e792…0e7c6               Head {h00=0x0030, h01=0x0050, text=» CCK A5,/4141 ALPHA-NUMERIC CHARACTER < 41? «, t00=0x0094, t01=0x0078}
0x0e7c6…0e7dc               Head {h00=0x0012, h01=0x0050, text=» RF(L) CONERR «, t00=0x0094, t01=0x00ac}
0x0e7dc…0e810               Head {h00=0x0030, h01=0x0050, text=» CCK A5,/5A5A ALPHA-NUMERIC CHARACTER > 5A? «, t00=0x0094, t01=0x00c2}
0x0e810…0e826               Head {h00=0x0012, h01=0x0050, text=» RF(G) CONERR «, t00=0x0094, t01=0x00f6}
0x0e826…0e83a               Head {h00=0x0010, h01=0x0050, text=»AA:20 EQU * «, t00=0x0094, t01=0x010c}
0x0e83a…0e864               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0094, t01=0x0120}
0x0e864…0e876               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0094, t01=0x014a}
0x0e876…0e88c               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) AA:10 «, t00=0x0094, t01=0x015c}
0x0e88c…0e8b2               Head {h00=0x0022, h01=0x0050, text=» LCR A5,A4 GET NEXT CHARACTER «, t00=0x0094, t01=0x0172}
0x0e8b2…0e8d6               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x0095, t01=0x0008}
0x0e8d6…0e8f0               Head {h00=0x0016, h01=0x0050, text=» RF(NE) CONERR NO!«, t00=0x0095, t01=0x002c}
0x0e8f0…0e900               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0095, t01=0x0046}
0x0e900…0e90e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0095, t01=0x0056}
0x0e90e…0e920               Head {h00=0x000e, h01=0x0050, text=»TID EQU * «, t00=0x0095, t01=0x0064}
0x0e920…0e946               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ1 SELECT SEQUENCE «, t00=0x0095, t01=0x0076}
0x0e946…0e970               Head {h00=0x0026, h01=0x0050, text=» LDK A3,4 GET NUMBER OF CHARACTERS«, t00=0x0095, t01=0x009c}
0x0e970…0e980               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0095, t01=0x00c6}
0x0e980…0e992               Head {h00=0x000e, h01=0x0050, text=»TCL EQU * «, t00=0x0095, t01=0x00d6}
0x0e992…0e9b8               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ2 SELECT SEQUENCE «, t00=0x0095, t01=0x00e8}
0x0e9b8…0e9e2               Head {h00=0x0026, h01=0x0050, text=» LDK A3,4 GET NUMBER OF CHARACTERS«, t00=0x0095, t01=0x010e}
0x0e9e2…0e9f2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0095, t01=0x0138}
0x0e9f2…0ea04               Head {h00=0x000e, h01=0x0050, text=»LEV EQU * «, t00=0x0095, t01=0x0148}
0x0ea04…0ea2a               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ3 SELECT SEQUENCE «, t00=0x0095, t01=0x015a}
0x0ea2a…0ea54               Head {h00=0x0026, h01=0x0050, text=» LDK A3,4 GET NUMBER OF CHARACTERS«, t00=0x0095, t01=0x0180}
0x0ea54…0ea64               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0096, t01=0x001a}
0x0ea64…0ea72               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0096, t01=0x002a}
0x0ea72…0ea84               Head {h00=0x000e, h01=0x0050, text=»TDCT EQU *«, t00=0x0096, t01=0x0038}
0x0ea84…0eaaa               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ4 SELECT SEQUENCE «, t00=0x0096, t01=0x004a}
0x0eaaa…0ead4               Head {h00=0x0026, h01=0x0050, text=» LDK A3,5 GET NUMBER OF CHARACTERS«, t00=0x0096, t01=0x0070}
0x0ead4…0eae4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0096, t01=0x009a}
0x0eae4…0eaf4               Head {h00=0x000c, h01=0x0050, text=»LC EQU *«, t00=0x0096, t01=0x00aa}
0x0eaf4…0eb1a               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ5 SELECT SEQUENCE «, t00=0x0096, t01=0x00ba}
0x0eb1a…0eb44               Head {h00=0x0026, h01=0x0050, text=» LDK A3,3 GET NUMBER OF CHARACTERS«, t00=0x0096, t01=0x00e0}
0x0eb44…0eb54               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0096, t01=0x010a}
0x0eb54…0eb66               Head {h00=0x000e, h01=0x0050, text=»SDCS EQU *«, t00=0x0096, t01=0x011a}
0x0eb66…0eb8c               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,SEQ6 SELECT SEQUENCE «, t00=0x0096, t01=0x012c}
0x0eb8c…0ebb6               Head {h00=0x0026, h01=0x0050, text=» LDK A3,5 GET NUMBER OF CHARACTERS«, t00=0x0096, t01=0x0152}
0x0ebb6…0ebc6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0096, t01=0x017c}
0x0ebc6…0ebd4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0096, t01=0x018c}
0x0ebd4…0ebe6               Head {h00=0x000e, h01=0x0050, text=»TEST EQU *«, t00=0x0097, t01=0x000a}
0x0ebe6…0ec06               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x0097, t01=0x001c}
0x0ec06…0ec18               Head {h00=0x000e, h01=0x0050, text=» CCR A5,A2«, t00=0x0097, t01=0x003c}
0x0ec18…0ec2e               Head {h00=0x0012, h01=0x0050, text=» RF(NE) CONERR«, t00=0x0097, t01=0x004e}
0x0ec2e…0ec58               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0097, t01=0x0064}
0x0ec58…0ec84               Head {h00=0x0028, h01=0x0050, text=» ADK A2,1 INCREMENT SEQUENCE POINTER«, t00=0x0097, t01=0x008e}
0x0ec84…0ecb6               Head {h00=0x002e, h01=0x0050, text=» SUK A3,1 MORE CHARACTERS IN THE SEQUENCE?«, t00=0x0097, t01=0x00ba}
0x0ecb6…0ecd0               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) TEST YES! «, t00=0x0097, t01=0x00ec}
0x0ecd0…0ece0               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0097, t01=0x0106}
0x0ece0…0ecee               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0097, t01=0x0116}
0x0ecee…0ed02               Head {h00=0x0010, h01=0x0050, text=»SUKASC EQU *«, t00=0x0097, t01=0x0124}
0x0ed02…0ed38               Head {h00=0x0032, h01=0x0050, text=» CCK A5,/3030 NUMBER OF NUMERIC CHARACTERS<10?«, t00=0x0097, t01=0x0138}
0x0ed38…0ed54               Head {h00=0x0018, h01=0x0050, text=» RF(NE) SUK:10 YES! «, t00=0x0097, t01=0x016e}
0x0ed54…0ed6c               Head {h00=0x0014, h01=0x0050, text=» SUK A5,/F6 N0! «, t00=0x0097, t01=0x018a}
0x0ed6c…0ed84               Head {h00=0x0014, h01=0x0050, text=»SUK:10 SUK A5,1 «, t00=0x0098, t01=0x0012}
0x0ed84…0edb8               Head {h00=0x0030, h01=0x0050, text=» ST A5,NDEVCL+STKEND STORE NUMBER OF CLASSES«, t00=0x0098, t01=0x002a}
0x0edb8…0edc8               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0098, t01=0x005e}
0x0edc8…0edd6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0098, t01=0x006e}
0x0edd6…0ede8               Head {h00=0x000e, h01=0x0050, text=»NUMB EQU *«, t00=0x0098, t01=0x007c}
0x0ede8…0ee16               Head {h00=0x002a, h01=0x0050, text=» LDK A1,0 RESET NO OF NON ZERO DIGITS «, t00=0x0098, t01=0x008e}
0x0ee16…0ee2a               Head {h00=0x0010, h01=0x0050, text=»NUMB00 EQU *«, t00=0x0098, t01=0x00bc}
0x0ee2a…0ee50               Head {h00=0x0022, h01=0x0050, text=» LCR A5,A4 GET DIGIT IN NUMBER«, t00=0x0098, t01=0x00d0}
0x0ee50…0ee7a               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x0098, t01=0x00f6}
0x0ee7a…0eea6               Head {h00=0x0028, h01=0x0050, text=» CCK A5,/3939 NUMERIC CHARACTER >9? «, t00=0x0098, t01=0x0120}
0x0eea6…0eec0               Head {h00=0x0016, h01=0x0050, text=» RF(G) CONERR YES!«, t00=0x0098, t01=0x014c}
0x0eec0…0eeca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0166}
0x0eeca…0eef6               Head {h00=0x0028, h01=0x0050, text=» CCK A5,/3030 NUMERIC CHARACTER <0? «, t00=0x0098, t01=0x0170}
0x0eef6…0ef10               Head {h00=0x0016, h01=0x0050, text=» RF(L) CONERR YES!«, t00=0x0099, t01=0x000c}
0x0ef10…0ef3a               Head {h00=0x0026, h01=0x0050, text=» RF(Z) NUMB10 NUMERIC CHARACTER =0«, t00=0x0099, t01=0x0026}
0x0ef3a…0ef44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x0050}
0x0ef44…0ef76               Head {h00=0x002e, h01=0x0050, text=» ADK A1,1 INCREMENT NO OF NON ZERO DIGITS «, t00=0x0099, t01=0x005a}
0x0ef76…0ef8a               Head {h00=0x0010, h01=0x0050, text=»NUMB10 EQU *«, t00=0x0099, t01=0x008c}
0x0ef8a…0efb4               Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DECREMENT DIGIT COUNTER «, t00=0x0099, t01=0x00a0}
0x0efb4…0efde               Head {h00=0x0026, h01=0x0050, text=» RF(Z) NUMB20 ALL DIGITS PROCESSED«, t00=0x0099, t01=0x00ca}
0x0efde…0efe8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x00f4}
0x0efe8…0f018               Head {h00=0x002c, h01=0x0050, text=» SLL A5,8 LAST DIGIT TO LEAST SIGN. BYTE«, t00=0x0099, t01=0x00fe}
0x0f018…0f03e               Head {h00=0x0022, h01=0x0050, text=» RB NUMB00 PROCESS NEXT DIGIT «, t00=0x0099, t01=0x012e}
0x0f03e…0f048               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0099, t01=0x0154}
0x0f048…0f05c               Head {h00=0x0010, h01=0x0050, text=»NUMB20 EQU *«, t00=0x0099, t01=0x015e}
0x0f05c…0f074               Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x0099, t01=0x0172}
0x0f074…0f082               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0099, t01=0x018a}
0x0f082…0f08c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x0008}
0x0f08c…0f096               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x0012}
0x0f096…0f0d0               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x009a, t01=0x001c}
0x0f0d0…0f10a               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x009a, t01=0x0056}
0x0f10a…0f144               Head {h00=0x0036, h01=0x0050, text=»*     SEQUENCES                                  *«, t00=0x009a, t01=0x0090}
0x0f144…0f17e               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x009a, t01=0x00ca}
0x0f17e…0f1b8               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x009a, t01=0x0104}
0x0f1b8…0f1c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x013e}
0x0f1c2…0f1cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x0148}
0x0f1cc…0f1d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x0152}
0x0f1d6…0f1e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009a, t01=0x015c}
0x0f1e0…0f1f8               Head {h00=0x0014, h01=0x0050, text=»SEQ1 EQU * TID= «, t00=0x009a, t01=0x0166}
0x0f1f8…0f20a               Head {h00=0x000e, h01=0x0050, text=» DATA 'TI'«, t00=0x009a, t01=0x017e}
0x0f20a…0f21c               Head {h00=0x000e, h01=0x0050, text=» DATA 'D='«, t00=0x009a, t01=0x0190}
0x0f21c…0f234               Head {h00=0x0014, h01=0x0050, text=»SEQ2 EQU * TCL= «, t00=0x009b, t01=0x0012}
0x0f234…0f246               Head {h00=0x000e, h01=0x0050, text=» DATA 'TC'«, t00=0x009b, t01=0x002a}
0x0f246…0f258               Head {h00=0x000e, h01=0x0050, text=» DATA 'L='«, t00=0x009b, t01=0x003c}
0x0f258…0f270               Head {h00=0x0014, h01=0x0050, text=»SEQ3 EQU * LEV= «, t00=0x009b, t01=0x004e}
0x0f270…0f282               Head {h00=0x000e, h01=0x0050, text=» DATA 'LE'«, t00=0x009b, t01=0x0066}
0x0f282…0f294               Head {h00=0x000e, h01=0x0050, text=» DATA 'V='«, t00=0x009b, t01=0x0078}
0x0f294…0f2ac               Head {h00=0x0014, h01=0x0050, text=»SEQ4 EQU * TDC=T«, t00=0x009b, t01=0x008a}
0x0f2ac…0f2be               Head {h00=0x000e, h01=0x0050, text=» DATA 'TD'«, t00=0x009b, t01=0x00a2}
0x0f2be…0f2d0               Head {h00=0x000e, h01=0x0050, text=» DATA 'C='«, t00=0x009b, t01=0x00b4}
0x0f2d0…0f2e2               Head {h00=0x000e, h01=0x0050, text=» DATA 'T0'«, t00=0x009b, t01=0x00c6}
0x0f2e2…0f2f8               Head {h00=0x0012, h01=0x0050, text=»SEQ5 EQU * LC=«, t00=0x009b, t01=0x00d8}
0x0f2f8…0f30a               Head {h00=0x000e, h01=0x0050, text=» DATA 'LC'«, t00=0x009b, t01=0x00ee}
0x0f30a…0f31c               Head {h00=0x000e, h01=0x0050, text=» DATA '=0'«, t00=0x009b, t01=0x0100}
0x0f31c…0f334               Head {h00=0x0014, h01=0x0050, text=»SEQ6 EQU * SDC=S«, t00=0x009b, t01=0x0112}
0x0f334…0f346               Head {h00=0x000e, h01=0x0050, text=» DATA 'SD'«, t00=0x009b, t01=0x012a}
0x0f346…0f358               Head {h00=0x000e, h01=0x0050, text=» DATA 'C='«, t00=0x009b, t01=0x013c}
0x0f358…0f36a               Head {h00=0x000e, h01=0x0050, text=» DATA 'S0'«, t00=0x009b, t01=0x014e}
0x0f36a…0f376               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009b, t01=0x0160}
0x0f376…0f390               Head {h00=0x0016, h01=0x0050, text=» IFT CFTCAS+CASS=2«, t00=0x009b, t01=0x016c}
0x0f390…0f39a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009b, t01=0x0186}
0x0f39a…0f3c4               Head {h00=0x0026, h01=0x0050, text=»*  PROGRAM LOAD DEVICE = CASSETTE «, t00=0x009b, t01=0x0190}
0x0f3c4…0f3ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009c, t01=0x002a}
0x0f3ce…0f3e2               Head {h00=0x0010, h01=0x0050, text=»CON:30 EQU *«, t00=0x009c, t01=0x0034}
0x0f3e2…0f404               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 START OF BUFFER«, t00=0x009c, t01=0x0048}
0x0f404…0f42a               Head {h00=0x0022, h01=0x0050, text=» ADKL A1,BUFLEN END OF BUFFER «, t00=0x009c, t01=0x006a}
0x0f42a…0f45a               Head {h00=0x002c, h01=0x0050, text=» ST A1,PLDADR+STKEND SAVE END OF BUFFER «, t00=0x009c, t01=0x0090}
0x0f45a…0f47c               Head {h00=0x001e, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE «, t00=0x009c, t01=0x00c0}
0x0f47c…0f4b4               Head {h00=0x0034, h01=0x0050, text=» ST A1,CONSTA+STKCOM START OF CONFIGURATION DATA«, t00=0x009c, t01=0x00e2}
0x0f4b4…0f4d8               Head {h00=0x0020, h01=0x0050, text=» CF A14,RDBLK READ ONE BLOCK«, t00=0x009c, t01=0x011a}
0x0f4d8…0f4fe               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x009c, t01=0x013e}
0x0f4fe…0f51a               Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x009c, t01=0x0164}
0x0f51a…0f534               Head {h00=0x0016, h01=0x0050, text=» RF(Z) CON:50 NO! «, t00=0x009c, t01=0x0180}
0x0f534…0f566               Head {h00=0x002e, h01=0x0050, text=» CF A14,CASSIN INIT CONFIGURATION CASSETTE«, t00=0x009d, t01=0x000a}
0x0f566…0f57a               Head {h00=0x0010, h01=0x0050, text=»CON:40 EQU *«, t00=0x009d, t01=0x003c}
0x0f57a…0f5a0               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x009d, t01=0x0050}
0x0f5a0…0f5bc               Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 TAPEMARK?«, t00=0x009d, t01=0x0076}
0x0f5bc…0f5d6               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CONEX YES!«, t00=0x009d, t01=0x0092}
0x0f5d6…0f5ea               Head {h00=0x0010, h01=0x0050, text=»CON:50 EQU *«, t00=0x009d, t01=0x00ac}
0x0f5ea…0f5f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x00c0}
0x0f5f4…0f62a               Head {h00=0x0032, h01=0x0050, text=»*  COMPUTE NUMBER OF CHARACTERS IN THIS BLOCK «, t00=0x009d, t01=0x00ca}
0x0f62a…0f634               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x009d, t01=0x0100}
0x0f634…0f66e               Head {h00=0x0036, h01=0x0050, text=» LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER«, t00=0x009d, t01=0x010a}
0x0f66e…0f686               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x009d, t01=0x0144}
0x0f686…0f6b0               Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET CHARACTER COUNTER «, t00=0x009d, t01=0x015c}
0x0f6b0…0f6d6               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A9 GET START OF BUFFER«, t00=0x009d, t01=0x0186}
0x0f6d6…0f6ea               Head {h00=0x0010, h01=0x0050, text=»CON:60 EQU *«, t00=0x009e, t01=0x001c}
0x0f6ea…0f714               Head {h00=0x0026, h01=0x0050, text=» LCR A5,A4 GET CHARACTER IN BUFFER«, t00=0x009e, t01=0x0030}
0x0f714…0f738               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' CHECK IF SPACE «, t00=0x009e, t01=0x005a}
0x0f738…0f762               Head {h00=0x0026, h01=0x0050, text=» RF(E) CON:70 NO MOORE CHARACTERS «, t00=0x009e, t01=0x007e}
0x0f762…0f776               Head {h00=0x0010, h01=0x0050, text=»CON:65 EQU *«, t00=0x009e, t01=0x00a8}
0x0f776…0f79a               Head {h00=0x0020, h01=0x0050, text=» CWK A3,CBLEN END OF BUFFER?«, t00=0x009e, t01=0x00bc}
0x0f79a…0f7b4               Head {h00=0x0016, h01=0x0050, text=» RF(E) CON:75 YES!«, t00=0x009e, t01=0x00e0}
0x0f7b4…0f7e2               Head {h00=0x002a, h01=0x0050, text=» CW A1,ESYSTA+STKEND MEMORY OVERFLOW? «, t00=0x009e, t01=0x00fa}
0x0f7e2…0f7fc               Head {h00=0x0016, h01=0x0050, text=» RF(E) MEMOFL YES!«, t00=0x009e, t01=0x0128}
0x0f7fc…0f82c               Head {h00=0x002c, h01=0x0050, text=» ADK A1,1 INCREMENT DESTINATION POINTER «, t00=0x009e, t01=0x0142}
0x0f82c…0f85a               Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT CHARACTER COUNTER «, t00=0x009e, t01=0x0172}
0x0f85a…0f884               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x009f, t01=0x0010}
0x0f884…0f896               Head {h00=0x000e, h01=0x0050, text=» RB CON:60«, t00=0x009f, t01=0x003a}
0x0f896…0f8aa               Head {h00=0x0010, h01=0x0050, text=»CON:70 EQU *«, t00=0x009f, t01=0x004c}
0x0f8aa…0f8d0               Head {h00=0x0022, h01=0x0050, text=» LC A5,1,A4 GET NEXT CHARACTER«, t00=0x009f, t01=0x0060}
0x0f8d0…0f8f6               Head {h00=0x0022, h01=0x0050, text=» CCK A5,';;' TWO SEMI-COLONS? «, t00=0x009f, t01=0x0086}
0x0f8f6…0f910               Head {h00=0x0016, h01=0x0050, text=» RF(NE) CON:75 NO!«, t00=0x009f, t01=0x00ac}
0x0f910…0f93e               Head {h00=0x002a, h01=0x0050, text=» CWK A3,NCHTID CHECK IF END OF RECORD «, t00=0x009f, t01=0x00c6}
0x0f93e…0f976               Head {h00=0x0034, h01=0x0050, text=» RB(E) CON:65 NO: SEMI-COLON CHARACTER IN RECORD«, t00=0x009f, t01=0x00f4}
0x0f976…0f98a               Head {h00=0x0010, h01=0x0050, text=»CON:75 EQU *«, t00=0x009f, t01=0x012c}
0x0f98a…0f9c0               Head {h00=0x0032, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION «, t00=0x009f, t01=0x0140}
0x0f9c0…0f9e6               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x009f, t01=0x0176}
0x0f9e6…0f9f8               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x00a0, t01=0x000c}
0x0f9f8…0fa0a               Head {h00=0x000e, h01=0x0050, text=» RB CON:40«, t00=0x00a0, t01=0x001e}
0x0fa0a…0fa1e               Head {h00=0x0010, h01=0x0050, text=»CONEX EQU * «, t00=0x00a0, t01=0x0030}
0x0fa1e…0fa28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x0044}
0x0fa28…0fa6a               Head {h00=0x003e, h01=0x0050, text=»*  UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE«, t00=0x00a0, t01=0x004e}
0x0fa6a…0fa74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a0, t01=0x0090}
0x0fa74…0fa9a               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK READ NEXT BLOCK «, t00=0x00a0, t01=0x009a}
0x0fa9a…0fabe               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 APPLICATION DATA?«, t00=0x00a0, t01=0x00c0}
0x0fabe…0fad8               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CON:80 NO!«, t00=0x00a0, t01=0x00e4}
0x0fad8…0faea               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/D«, t00=0x00a0, t01=0x00fe}
0x0faea…0fb18               Head {h00=0x002a, h01=0x0050, text=» CF A14,CHCRIO SEARCH TAPEMARK REVERSE«, t00=0x00a0, t01=0x0110}
0x0fb18…0fb3e               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDBLK BYPASS TAPEMARK «, t00=0x00a0, t01=0x013e}
0x0fb3e…0fb50               Head {h00=0x000e, h01=0x0050, text=» RF CON:90«, t00=0x00a0, t01=0x0164}
0x0fb50…0fb64               Head {h00=0x0010, h01=0x0050, text=»CON:80 EQU *«, t00=0x00a0, t01=0x0176}
0x0fb64…0fb76               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/F«, t00=0x00a0, t01=0x018a}
0x0fb76…0fb9c               Head {h00=0x0022, h01=0x0050, text=» CF A14,CHCRIO UNLOAD CASSETTE«, t00=0x00a1, t01=0x000c}
0x0fb9c…0fbb0               Head {h00=0x0010, h01=0x0050, text=»CON:90 EQU *«, t00=0x00a1, t01=0x0032}
0x0fbb0…0fbc4               Head {h00=0x0010, h01=0x0050, text=» ABL CONMOV «, t00=0x00a1, t01=0x0046}
0x0fbc4…0fbd0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a1, t01=0x005a}
0x0fbd0…0fbe4               Head {h00=0x0010, h01=0x0050, text=»CONERR EQU *«, t00=0x00a1, t01=0x0066}
0x0fbe4…0fbfa               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP4 «, t00=0x00a1, t01=0x007a}
0x0fbfa…0fc0e               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00a1, t01=0x0090}
0x0fc0e…0fc24               Head {h00=0x0012, h01=0x0050, text=» IFF CFTEST=1 «, t00=0x00a1, t01=0x00a4}
0x0fc24…0fc38               Head {h00=0x0010, h01=0x0050, text=»MEMOFL EQU *«, t00=0x00a1, t01=0x00ba}
0x0fc38…0fc66               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x00a1, t01=0x00ce}
0x0fc66…0fc7a               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00a1, t01=0x00fc}
0x0fc7a…0fc88               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a1, t01=0x0110}
0x0fc88…0fc9c               Head {h00=0x0010, h01=0x0050, text=»CONRAD EQU *«, t00=0x00a1, t01=0x011e}
0x0fc9c…0fca6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x0132}
0x0fca6…0fce0               Head {h00=0x0036, h01=0x0050, text=»*  LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC«, t00=0x00a1, t01=0x013c}
0x0fce0…0fcea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a1, t01=0x0176}
0x0fcea…0fd26               Head {h00=0x0038, h01=0x0050, text=» LD A1,CONDEV+STKEND GET LOAD DEVICE FOR CONF. DATA «, t00=0x00a1, t01=0x0180}
0x0fd26…0fd54               Head {h00=0x002a, h01=0x0050, text=» RF(Z) CONRA0 SAME AS PGM LOAD DEVICE «, t00=0x00a2, t01=0x002c}
0x0fd54…0fd5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a2, t01=0x005a}
0x0fd5e…0fd92               Head {h00=0x0030, h01=0x0050, text=» CF A14,CONFLD INITIATE CONF. DATA LOAD DEV.«, t00=0x00a2, t01=0x0064}
0x0fd92…0fda6               Head {h00=0x0010, h01=0x0050, text=»CONRA0 EQU *«, t00=0x00a2, t01=0x0098}
0x0fda6…0fdd4               Head {h00=0x002a, h01=0x0050, text=» LD A11,CONDAD+STKEND GET START SECTOR«, t00=0x00a2, t01=0x00ac}
0x0fdd4…0fe0a               Head {h00=0x0032, h01=0x0050, text=» LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART «, t00=0x00a2, t01=0x00da}
0x0fe0a…0fe30               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x00a2, t01=0x0110}
0x0fe30…0fe58               Head {h00=0x0024, h01=0x0050, text=» ADKL A1,BUFLEN-6 END OF BUFFER «, t00=0x00a2, t01=0x0136}
0x0fe58…0fe88               Head {h00=0x002c, h01=0x0050, text=» ST A1,PLDADR+STKEND SAVE END OF BUFFER «, t00=0x00a2, t01=0x015e}
0x0fe88…0feae               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x00a2, t01=0x018e}
0x0feae…0fed8               Head {h00=0x0026, h01=0x0050, text=» AD A1,SAVCON START OF SAVE BUFFER«, t00=0x00a3, t01=0x0024}
0x0fed8…0fefc               Head {h00=0x0020, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE =2«, t00=0x00a3, t01=0x004e}
0x0fefc…0ff18               Head {h00=0x0018, h01=0x0050, text=» ST A1,CONSTA+STKCOM«, t00=0x00a3, t01=0x0072}
0x0ff18…0ff40               Head {h00=0x0024, h01=0x0050, text=» LDKL A10,0 RESET RECORD COUNTER«, t00=0x00a3, t01=0x008e}
0x0ff40…0ff54               Head {h00=0x0010, h01=0x0050, text=»COR:10 EQU *«, t00=0x00a3, t01=0x00b6}
0x0ff54…0ff5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x00ca}
0x0ff5e…0ff92               Head {h00=0x0030, h01=0x0050, text=»*  READ ONE SECTOR FROM RANDOM ACCESS DEVICE«, t00=0x00a3, t01=0x00d4}
0x0ff92…0ff9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x0108}
0x0ff9c…0ffbe               Head {h00=0x001e, h01=0x0050, text=» CF A14,RDSEC READ SECTOR «, t00=0x00a3, t01=0x0112}
0x0ffbe…0ffe4               Head {h00=0x0022, h01=0x0050, text=» LDR A8,A9 GET START OF BUFFER«, t00=0x00a3, t01=0x0134}
0x0ffe4…0fff8               Head {h00=0x0010, h01=0x0050, text=»COR:20 EQU *«, t00=0x00a3, t01=0x015a}
0x0fff8…10002               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a3, t01=0x016e}
0x10002…10038               Head {h00=0x0032, h01=0x0050, text=»*  COMPUTE NUMBER OF CHARACTERS IN THIS RECORD«, t00=0x00a3, t01=0x0178}
0x10038…10042               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x001e}
0x10042…1007c               Head {h00=0x0036, h01=0x0050, text=» LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER«, t00=0x00a4, t01=0x0028}
0x1007c…10094               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x00a4, t01=0x0062}
0x10094…100be               Head {h00=0x0026, h01=0x0050, text=» LDK A3,0 RESET CHARACTER COUNTER «, t00=0x00a4, t01=0x007a}
0x100be…100e0               Head {h00=0x001e, h01=0x0050, text=» LDR A4,A8 START OF RECORD«, t00=0x00a4, t01=0x00a4}
0x100e0…100ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x00c6}
0x100ea…10108               Head {h00=0x001a, h01=0x0050, text=»*  LOOK IF WE HAVE AN «, t00=0x00a4, t01=0x00d0}
0x10108…1012c               Head {h00=0x0020, h01=0x0050, text=»*  APPLICATION CONTROL BLOCK«, t00=0x00a4, t01=0x00ee}
0x1012c…10136               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a4, t01=0x0112}
0x10136…10160               Head {h00=0x0026, h01=0x0050, text=» LDR* A5,A4 GET 1ST WORD IN BUFFER«, t00=0x00a4, t01=0x011c}
0x10160…10194               Head {h00=0x0030, h01=0x0050, text=» CWK A5,'D;' DATA COMMUNICATION DEF. BLOCK? «, t00=0x00a4, t01=0x0146}
0x10194…101ae               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:25 YES!«, t00=0x00a4, t01=0x017a}
0x101ae…101b8 (165, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x0004}
0x101b8…101e4               Head {h00=0x0028, h01=0x0050, text=» CWK A5,'A;' AND LOOK IF IT IS 'A;' «, t00=0x00a5, t01=0x000e}
0x101e4…101fe               Head {h00=0x0016, h01=0x0050, text=» RF(NE) COR:30 NO!«, t00=0x00a5, t01=0x003a}
0x101fe…10208               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a5, t01=0x0054}
0x10208…10236               Head {h00=0x002a, h01=0x0050, text=» LDKL A5,/FF3B YES, SUBSTITUTE A; WITH«, t00=0x00a5, t01=0x005e}
0x10236…1025a               Head {h00=0x0020, h01=0x0050, text=» STR A5,A4 'HEX FF' AND ';' «, t00=0x00a5, t01=0x008c}
0x1025a…10296               Head {h00=0x0038, h01=0x0050, text=» LD A5,CURAPL+STKEND GET CURRENT APPL. CONTR. BLOCK «, t00=0x00a5, t01=0x00b0}
0x10296…102ba               Head {h00=0x0020, h01=0x0050, text=» ADK A1,1 SKIP BLOCK MARKER «, t00=0x00a5, t01=0x00ec}
0x102ba…102f4               Head {h00=0x0036, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE CURRENT BUFFER POSITION «, t00=0x00a5, t01=0x0110}
0x102f4…10330               Head {h00=0x0038, h01=0x0050, text=» SU A1,CONSTA+STKCOM AND CALCULATE RELATIVE POSITION«, t00=0x00a5, t01=0x014a}
0x10330…10364               Head {h00=0x0030, h01=0x0050, text=» ST A1,APLMMC,A5 SAVE IN APPL. CONTROL BLOCK«, t00=0x00a5, t01=0x0186}
0x10364…10386               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A8 START OF RECORD«, t00=0x00a6, t01=0x002a}
0x10386…103ba               Head {h00=0x0030, h01=0x0050, text=» ADK A3,1 INCREMENT NO OF CHARACTERS TO MOVE«, t00=0x00a6, t01=0x004c}
0x103ba…103cc               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x00a6, t01=0x0080}
0x103cc…103f0               Head {h00=0x0020, h01=0x0050, text=» ADKL A10,2 SKIP NEXT RECORD«, t00=0x00a6, t01=0x0092}
0x103f0…103fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x00b6}
0x103fa…1042c               Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x00a6, t01=0x00c0}
0x1042c…10458               Head {h00=0x0028, h01=0x0050, text=» CW A8,PLDADR+STKEND END OF BUFFER? «, t00=0x00a6, t01=0x00f2}
0x10458…10472               Head {h00=0x0016, h01=0x0050, text=» RF(L) COR:48 NO! «, t00=0x00a6, t01=0x011e}
0x10472…1047c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a6, t01=0x0138}
0x1047c…104a8               Head {h00=0x0028, h01=0x0050, text=» CF A14,RDSEC YES, READ NEXT SECTOR «, t00=0x00a6, t01=0x0142}
0x104a8…104d2               Head {h00=0x0026, h01=0x0050, text=» LDR A8,A9 AND GET START OF BUFFER«, t00=0x00a6, t01=0x016e}
0x104d2…104e4               Head {h00=0x000e, h01=0x0050, text=» RF COR:48«, t00=0x00a7, t01=0x0008}
0x104e4…104ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00a7, t01=0x001a}
0x104ee…10502               Head {h00=0x0010, h01=0x0050, text=»COR:25 EQU *«, t00=0x00a7, t01=0x0024}
0x10502…10540               Head {h00=0x003a, h01=0x0050, text=» LD A5,EINPBF+STKEND CURRENT POSITION IN CONF. DATA =6«, t00=0x00a7, t01=0x0038}
0x10540…1057c               Head {h00=0x0038, h01=0x0050, text=» SU A5,CONSTA+STKCOM CALCULATE RELATIVE POSITION =6 «, t00=0x00a7, t01=0x0076}
0x1057c…105a0               Head {h00=0x0020, h01=0x0050, text=» ST A5,DCBLK+STKCOM SAVE =6 «, t00=0x00a7, t01=0x00b2}
0x105a0…105b4               Head {h00=0x0010, h01=0x0050, text=»COR:30 EQU *«, t00=0x00a7, t01=0x00d6}
0x105b4…105d4               Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 GET CHARACTER«, t00=0x00a7, t01=0x00ea}
0x105d4…105f8               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' END OF RECORD? «, t00=0x00a7, t01=0x010a}
0x105f8…10612               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x00a7, t01=0x012e}
0x10612…10626               Head {h00=0x0010, h01=0x0050, text=»COR:35 EQU *«, t00=0x00a7, t01=0x0148}
0x10626…10654               Head {h00=0x002a, h01=0x0050, text=» CWK A3,RECLEN MAXIMUM SIZE ACHIEVED? «, t00=0x00a7, t01=0x015c}
0x10654…1066e               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:40 YES!«, t00=0x00a7, t01=0x018a}
0x1066e…1069c               Head {h00=0x002a, h01=0x0050, text=» CW A1,ESYSTA+STKEND MEMORY OVERFLOW? «, t00=0x00a8, t01=0x0014}
0x1069c…106b6               Head {h00=0x0016, h01=0x0050, text=» RB(E) MEMOFL YES!«, t00=0x00a8, t01=0x0042}
0x106b6…106e0               Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 INCREMENT BUFFER POINTER«, t00=0x00a8, t01=0x005c}
0x106e0…1070e               Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT CHARACTER COUNTER «, t00=0x00a8, t01=0x0086}
0x1070e…10738               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT RECORD POINTER«, t00=0x00a8, t01=0x00b4}
0x10738…10750               Head {h00=0x0014, h01=0x0050, text=» RB COR:30 LOOP «, t00=0x00a8, t01=0x00de}
0x10750…10764               Head {h00=0x0010, h01=0x0050, text=»COR:40 EQU *«, t00=0x00a8, t01=0x00f6}
0x10764…1078a               Head {h00=0x0022, h01=0x0050, text=» LC A5,1,A4 GET NEXT CHARACTER«, t00=0x00a8, t01=0x010a}
0x1078a…107ae               Head {h00=0x0020, h01=0x0050, text=» CCK A5,';;' TWO SEMICOLONS?«, t00=0x00a8, t01=0x0130}
0x107ae…107c8               Head {h00=0x0016, h01=0x0050, text=» RF(NE) COR:45 NO!«, t00=0x00a8, t01=0x0154}
0x107c8…107f6               Head {h00=0x002a, h01=0x0050, text=» CWK A3,NCHTID CHECK IF END OF RECORD «, t00=0x00a8, t01=0x016e}
0x107f6…1082e               Head {h00=0x0034, h01=0x0050, text=» RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD «, t00=0x00a9, t01=0x000c}
0x1082e…10842               Head {h00=0x0010, h01=0x0050, text=»COR:45 EQU *«, t00=0x00a9, t01=0x0044}
0x10842…10878               Head {h00=0x0032, h01=0x0050, text=» ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION «, t00=0x00a9, t01=0x0058}
0x10878…1089a               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A8 START OF RECORD«, t00=0x00a9, t01=0x008e}
0x1089a…108ac               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x00a9, t01=0x00b0}
0x108ac…108d8               Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x00a9, t01=0x00c2}
0x108d8…10902               Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD «, t00=0x00a9, t01=0x00ee}
0x10902…1091c               Head {h00=0x0016, h01=0x0050, text=» RF(E) COR:50 YES!«, t00=0x00a9, t01=0x0118}
0x1091c…10930               Head {h00=0x0010, h01=0x0050, text=»COR:48 EQU *«, t00=0x00a9, t01=0x0132}
0x10930…10962               Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x00a9, t01=0x0146}
0x10962…1098c               Head {h00=0x0026, h01=0x0050, text=» CW A8,PLDADR+STKEND END OF BUFFER«, t00=0x00a9, t01=0x0178}
0x1098c…109ae               Head {h00=0x001e, h01=0x0050, text=» RB(E) COR:10 NEXT SECTOR «, t00=0x00aa, t01=0x0012}
0x109ae…109cc               Head {h00=0x001a, h01=0x0050, text=» RB COR:20 NEXT RECORD«, t00=0x00aa, t01=0x0034}
0x109cc…109e0               Head {h00=0x0010, h01=0x0050, text=»COR:50 EQU *«, t00=0x00aa, t01=0x0052}
0x109e0…10a06               Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00aa, t01=0x0066}
0x10a06…10a1e               Head {h00=0x0014, h01=0x0050, text=» ANK A1,8 SWB:S?«, t00=0x00aa, t01=0x008c}
0x10a1e…10a36               Head {h00=0x0014, h01=0x0050, text=» RF(Z) COR:55 NO«, t00=0x00aa, t01=0x00a4}
0x10a36…10a4a               Head {h00=0x0010, h01=0x0050, text=» LDK A3,'S' «, t00=0x00aa, t01=0x00bc}
0x10a4a…10a74               Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:25+1 MODIFY INSTRUCTION«, t00=0x00aa, t01=0x00d0}
0x10a74…10a9e               Head {h00=0x0026, h01=0x0050, text=» SC A3,GET:60+1 MODIFY INSTRUCTION«, t00=0x00aa, t01=0x00fa}
0x10a9e…10aba               Head {h00=0x0018, h01=0x0050, text=» LD A1,IPLDEV+STKEND«, t00=0x00aa, t01=0x0124}
0x10aba…10aec               Head {h00=0x002e, h01=0x0050, text=» CF A14,LODDEV INITIALIZE PGM LOAD DEVICE «, t00=0x00aa, t01=0x0140}
0x10aec…10b02               Head {h00=0x0012, h01=0x0050, text=» CF A14,GETFIL«, t00=0x00aa, t01=0x0172}
0x10b02…10b0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00aa, t01=0x0188}
0x10b0c…10b2c (171, 0, 400) Head {h00=0x001c, h01=0x0050, text=»*  UNLOCK FLEXIBLE DISC «, t00=0x00ab, t01=0x0004}
0x10b2c…10b36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x0024}
0x10b36…10b4a               Head {h00=0x0010, h01=0x0050, text=»COR:55 EQU *«, t00=0x00ab, t01=0x002e}
0x10b4a…10b82               Head {h00=0x0034, h01=0x0050, text=» LD A1,CONDEV+STKEND GET CONF. DATA LOAD DEVICE «, t00=0x00ab, t01=0x0042}
0x10b82…10bb2               Head {h00=0x002c, h01=0x0050, text=» RF(Z) COR:58 SAME AS APPL. LOAD DEVICE «, t00=0x00ab, t01=0x007a}
0x10bb2…10bbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ab, t01=0x00aa}
0x10bbc…10bce               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x00ab, t01=0x00b4}
0x10bce…10be0               Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x00ab, t01=0x00c6}
0x10be0…10bf2               Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x00ab, t01=0x00d8}
0x10bf2…10c1a               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COR:58 NOT FLEXIBLE DISC«, t00=0x00ab, t01=0x00ea}
0x10c1a…10c26               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ab, t01=0x0112}
0x10c26…10c42               Head {h00=0x0018, h01=0x0050, text=» IFT CFTFLD+FLDISC=2«, t00=0x00ab, t01=0x011e}
0x10c42…10c6e               Head {h00=0x0028, h01=0x0050, text=» CF A14,UNLOCK UNLOCK FLEXIBLE DISC «, t00=0x00ab, t01=0x013a}
0x10c6e…10c7a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ab, t01=0x0166}
0x10c7a…10c90               Head {h00=0x0012, h01=0x0050, text=» IFF CFTEST=1 «, t00=0x00ab, t01=0x0172}
0x10c90…10ca4               Head {h00=0x0010, h01=0x0050, text=»COR:58 EQU *«, t00=0x00ab, t01=0x0188}
0x10ca4…10cd2               Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTIPL GET PROGRAM LOAD DEVICE «, t00=0x00ac, t01=0x000c}
0x10cd2…10cf0               Head {h00=0x001a, h01=0x0050, text=» SUK A1,/F8 CHECK TYPE«, t00=0x00ac, t01=0x003a}
0x10cf0…10d18               Head {h00=0x0024, h01=0x0050, text=» RF(N) COR:60 NOT FLEXIBLE DISC «, t00=0x00ac, t01=0x0058}
0x10d18…10d22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ac, t01=0x0080}
0x10d22…10d48               Head {h00=0x0022, h01=0x0050, text=» SUK A1,/FC-/F8 FLEXIBLE DISC?«, t00=0x00ac, t01=0x008a}
0x10d48…10d62               Head {h00=0x0016, h01=0x0050, text=» RF(NN) COR:60 NO!«, t00=0x00ac, t01=0x00b0}
0x10d62…10d6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ac, t01=0x00ca}
0x10d6c…10d78               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ac, t01=0x00d4}
0x10d78…10d94               Head {h00=0x0018, h01=0x0050, text=» IFT CFTFLD+FLDISC=2«, t00=0x00ac, t01=0x00e0}
0x10d94…10dba               Head {h00=0x0022, h01=0x0050, text=» LD A2,SCTOPT GET OPTION WORD «, t00=0x00ac, t01=0x00fc}
0x10dba…10dd8               Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x00ac, t01=0x0122}
0x10dd8…10e00               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COR:60 YES! DON'T UNLOCK«, t00=0x00ac, t01=0x0140}
0x10e00…10e0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ac, t01=0x0168}
0x10e0a…10e26               Head {h00=0x0018, h01=0x0050, text=» LD A1,IPLDEV+STKEND«, t00=0x00ac, t01=0x0172}
0x10e26…10e52               Head {h00=0x0028, h01=0x0050, text=» CF A14,UNLOCK UNLOCK FLEXIBLE DISC «, t00=0x00ac, t01=0x018e}
0x10e52…10e5e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ad, t01=0x002a}
0x10e5e…10e74               Head {h00=0x0012, h01=0x0050, text=» IFF CFTEST=1 «, t00=0x00ad, t01=0x0036}
0x10e74…10e8a               Head {h00=0x0012, h01=0x0050, text=» IFF CFTEST=1 «, t00=0x00ad, t01=0x004c}
0x10e8a…10e9e               Head {h00=0x0010, h01=0x0050, text=»COR:60 EQU *«, t00=0x00ad, t01=0x0062}
0x10e9e…10eac               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ad, t01=0x0076}
0x10eac…10ec0               Head {h00=0x0010, h01=0x0050, text=»CONMOV EQU *«, t00=0x00ad, t01=0x0084}
0x10ec0…10eca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ad, t01=0x0098}
0x10eca…10f02               Head {h00=0x0034, h01=0x0050, text=»*  MOVE CONFIGURATION DATA TO END OF SYSTEM AREA«, t00=0x00ad, t01=0x00a2}
0x10f02…10f0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ad, t01=0x00da}
0x10f0c…10f36               Head {h00=0x0026, h01=0x0050, text=» CIO A1,0,SOP INHIBIT SOP SWITCHES«, t00=0x00ad, t01=0x00e4}
0x10f36…10f5c               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET START OF BUFFER«, t00=0x00ad, t01=0x010e}
0x10f5c…10f88               Head {h00=0x0028, h01=0x0050, text=» AD A1,SAVCON COMPUTE END OF BUFFER «, t00=0x00ad, t01=0x0134}
0x10f88…10fc8               Head {h00=0x003c, h01=0x0050, text=»CMOV10 LD A3,EINPBF+STKEND GET END OF CONFIGURATION DATA«, t00=0x00ad, t01=0x0160}
0x10fc8…10ffc               Head {h00=0x0030, h01=0x0050, text=» LD A2,ESYSTA+STKEND GET END OF SYSTEM AREA «, t00=0x00ae, t01=0x0010}
0x10ffc…1102a               Head {h00=0x002a, h01=0x0050, text=» CM -2,A2 MAKE SURE CONFIGURATION FILE«, t00=0x00ae, t01=0x0044}
0x1102a…11050               Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 IS FOLLOWED BY X'00'«, t00=0x00ae, t01=0x0072}
0x11050…11080               Head {h00=0x002c, h01=0x0050, text=» SUR A3,A1 LENGTH OF CONFIGURATION DATA «, t00=0x00ae, t01=0x0098}
0x11080…110b6               Head {h00=0x0032, h01=0x0050, text=» ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA«, t00=0x00ae, t01=0x00c8}
0x110b6…110d4               Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x00ae, t01=0x00fe}
0x110d4…110de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x011c}
0x110de…11106               Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN ADDRESS«, t00=0x00ae, t01=0x0126}
0x11106…11118               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x00ae, t01=0x014e}
0x11118…11156               Head {h00=0x003a, h01=0x0050, text=» ST A2,CONSTA+STKCOM SAVE START OF CONFIGURATION DATA «, t00=0x00ae, t01=0x0160}
0x11156…1118c               Head {h00=0x0032, h01=0x0050, text=» LD A1,CONLEN+STKCOM GET LENGTH OF CONF. DATA «, t00=0x00af, t01=0x000e}
0x1118c…111c0               Head {h00=0x0030, h01=0x0050, text=» ADK A1,2 INCLUDE TRAILING ZEROES IN LENGTH «, t00=0x00af, t01=0x0044}
0x111c0…111e4               Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFE AND MAKE EVEN«, t00=0x00af, t01=0x0078}
0x111e4…11200               Head {h00=0x0018, h01=0x0050, text=» ST A1,CONLEN+STKCOM«, t00=0x00af, t01=0x009c}
0x11200…1122a               Head {h00=0x0026, h01=0x0050, text=» LDR A1,A9 GET START OF FREE AREA «, t00=0x00af, t01=0x00b8}
0x1122a…1124e               Head {h00=0x0020, h01=0x0050, text=» LDR A12,A2 END OF FREE AREA«, t00=0x00af, t01=0x00e2}
0x1124e…11276               Head {h00=0x0024, h01=0x0050, text=» SUR A12,A1 SUBTRACT MONITOR END«, t00=0x00af, t01=0x0106}
0x11276…112ac               Head {h00=0x0032, h01=0x0050, text=» ST A12,M:REL+STKCOM SAVE RELOCATION CONSTANT «, t00=0x00af, t01=0x012e}
0x112ac…112d8               Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTMXS GET MXSTAB ADDRESS =1 «, t00=0x00af, t01=0x0164}
0x112d8…11302               Head {h00=0x0026, h01=0x0050, text=» RF(Z) CMOV20 NO MXSTAB PRESENT =1«, t00=0x00af, t01=0x0190}
0x11302…11312               Head {h00=0x000c, h01=0x0050, text=»*    =1 «, t00=0x00b0, t01=0x002a}
0x11312…11340               Head {h00=0x002a, h01=0x0050, text=» ADR A2,A12 RELOCATE MXSTAB ADDRESS =1«, t00=0x00b0, t01=0x003a}
0x11340…11370               Head {h00=0x002c, h01=0x0050, text=» ST A2,SCTMXS AND SAVE AS NEW ADDRESS =1«, t00=0x00b0, t01=0x0068}
0x11370…1138a               Head {h00=0x0016, h01=0x0050, text=»CMOV20 EQU *   =1 «, t00=0x00b0, t01=0x0098}
0x1138a…113ba               Head {h00=0x002c, h01=0x0050, text=» LD A2,CONSTA+STKCOM GET START OF CONFF «, t00=0x00b0, t01=0x00b2}
0x113ba…113c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x00e2}
0x113c4…11404               Head {h00=0x003c, h01=0x0050, text=»*  MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA«, t00=0x00b0, t01=0x00ec}
0x11404…1140e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x012c}
0x1140e…11422               Head {h00=0x0010, h01=0x0050, text=»MOPRO EQU * «, t00=0x00b0, t01=0x0136}
0x11422…1143a               Head {h00=0x0014, h01=0x0050, text=» LDKL A13,SYSLDM«, t00=0x00b0, t01=0x014a}
0x1143a…1144c               Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x00b0, t01=0x0162}
0x1144c…1145e               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x00b0, t01=0x0174}
0x1145e…11472               Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A1 «, t00=0x00b0, t01=0x0186}
0x11472…11484               Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x00b1, t01=0x000a}
0x11484…11498               Head {h00=0x0010, h01=0x0050, text=» CWR A1,A13 «, t00=0x00b1, t01=0x001c}
0x11498…114ae               Head {h00=0x0012, h01=0x0050, text=» RB(NE) MOPRO «, t00=0x00b1, t01=0x0030}
0x114ae…114da               Head {h00=0x0028, h01=0x0050, text=» ABR A2 CONTINUE EXECUTION IN SYSLDM«, t00=0x00b1, t01=0x0046}
0x114da…114e6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b1, t01=0x0072}
0x114e6…114f4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b1, t01=0x007e}
0x114f4…11544               Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x00b1, t01=0x008c}
0x11544…11594               Head {h00=0x004c, h01=0x0050, text=»*  SUBROUTINES USED IN THE APPLICATION AND CONFIGURATION LOADING PHASE O«, t00=0x00b1, t01=0x00dc}
0x11594…115e4               Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x00b1, t01=0x012c}
0x115e4…1160c               Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x00b1, t01=0x017c}
0x1160c…11634               Head {h00=0x0024, h01=0x0050, text=»*  SOPIN - READ SOP SWITCHES  * «, t00=0x00b2, t01=0x0014}
0x11634…1165c               Head {h00=0x0024, h01=0x0050, text=»*  =========================  * «, t00=0x00b2, t01=0x003c}
0x1165c…11684               Head {h00=0x0024, h01=0x0050, text=»*                             * «, t00=0x00b2, t01=0x0064}
0x11684…116ac               Head {h00=0x0024, h01=0x0050, text=»*  ENTRY:                     * «, t00=0x00b2, t01=0x008c}
0x116ac…116d4               Head {h00=0x0024, h01=0x0050, text=»*                             * «, t00=0x00b2, t01=0x00b4}
0x116d4…116fc               Head {h00=0x0024, h01=0x0050, text=»*  EXIT:  A1 - SOP INPUT      * «, t00=0x00b2, t01=0x00dc}
0x116fc…11724               Head {h00=0x0024, h01=0x0050, text=»*         BIT 6 - SWITCH 1    * «, t00=0x00b2, t01=0x0104}
0x11724…1174c               Head {h00=0x0024, h01=0x0050, text=»*         BIT 15 - SWITCH 10  * «, t00=0x00b2, t01=0x012c}
0x1174c…11774               Head {h00=0x0024, h01=0x0050, text=»*                             * «, t00=0x00b2, t01=0x0154}
0x11774…1179c               Head {h00=0x0024, h01=0x0050, text=»*  WORK REGISTERS:  A1        * «, t00=0x00b2, t01=0x017c}
0x1179c…117c4               Head {h00=0x0024, h01=0x0050, text=»*                             * «, t00=0x00b3, t01=0x0014}
0x117c4…117ec               Head {h00=0x0024, h01=0x0050, text=»*  SUBROUTINES:               * «, t00=0x00b3, t01=0x003c}
0x117ec…11814               Head {h00=0x0024, h01=0x0050, text=»*                             * «, t00=0x00b3, t01=0x0064}
0x11814…1183c               Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x00b3, t01=0x008c}
0x1183c…11850               Head {h00=0x0010, h01=0x0050, text=»SOPIN EQU * «, t00=0x00b3, t01=0x00b4}
0x11850…11866               Head {h00=0x0012, h01=0x0050, text=» CIO A1,1,SOP «, t00=0x00b3, t01=0x00c8}
0x11866…1187c               Head {h00=0x0012, h01=0x0050, text=» INR A1,0,SOP «, t00=0x00b3, t01=0x00de}
0x1187c…11890               Head {h00=0x0010, h01=0x0050, text=» RB(NA) *-2 «, t00=0x00b3, t01=0x00f4}
0x11890…118a0               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00b3, t01=0x0108}
0x118a0…118ae               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b3, t01=0x0118}
0x118ae…118da               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00b3, t01=0x0126}
0x118da…11906               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00b3, t01=0x0152}
0x11906…11932               Head {h00=0x0028, h01=0x0050, text=»* LODDEV - INITIAZE LOAD UNIT     * «, t00=0x00b3, t01=0x017e}
0x11932…1195e               Head {h00=0x0028, h01=0x0050, text=»* ===========================     * «, t00=0x00b4, t01=0x001a}
0x1195e…1198a               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00b4, t01=0x0046}
0x1198a…119b6               Head {h00=0x0028, h01=0x0050, text=»* USED FOR CONFIGURATION OF       * «, t00=0x00b4, t01=0x0072}
0x119b6…119e2               Head {h00=0x0028, h01=0x0050, text=»* PROGRAM LOAD DEVICE AND         * «, t00=0x00b4, t01=0x009e}
0x119e2…11a0e               Head {h00=0x0028, h01=0x0050, text=»* CONFIGURATION DATA LOAD         * «, t00=0x00b4, t01=0x00ca}
0x11a0e…11a3a               Head {h00=0x0028, h01=0x0050, text=»* DEVICE (IF DIFFERENT).          * «, t00=0x00b4, t01=0x00f6}
0x11a3a…11a66               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00b4, t01=0x0122}
0x11a66…11a92               Head {h00=0x0028, h01=0x0050, text=»* ON ENTRY: A1=DEVICE ADDRESS     * «, t00=0x00b4, t01=0x014e}
0x11a92…11abe               Head {h00=0x0028, h01=0x0050, text=»* ON EXIT:  A2=FILE CODE          * «, t00=0x00b4, t01=0x017a}
0x11abe…11aea               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00b5, t01=0x0016}
0x11aea…11b16               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00b5, t01=0x0042}
0x11b16…11b1e               Head {h00=0x0004, h01=0x0050, t00=0x00b5, t01=0x006e}
0x11b1e…11b26               Head {h00=0x0004, h01=0x0050, t00=0x00b5, t01=0x0076}
0x11b26…11b3a               Head {h00=0x0010, h01=0x0050, text=»LODDEV EQU *«, t00=0x00b5, t01=0x007e}
0x11b3a…11b52               Head {h00=0x0014, h01=0x0050, text=» LDKL A3,BUFLEN «, t00=0x00b5, t01=0x0092}
0x11b52…11b80               Head {h00=0x002a, h01=0x0050, text=» ST A3,SAVCON INITIALIZE BUFFER LENGTH«, t00=0x00b5, t01=0x00aa}
0x11b80…11b94               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x00b5, t01=0x00d8}
0x11b94…11bbc               Head {h00=0x0024, h01=0x0050, text=» ST A2,CYLNBR SET SEEK CONDITION«, t00=0x00b5, t01=0x00ec}
0x11bbc…11bce               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x00b5, t01=0x0114}
0x11bce…11bf6               Head {h00=0x0024, h01=0x0050, text=» ANK A2,/80 CHECK IF CASSETTE =9«, t00=0x00b5, t01=0x0126}
0x11bf6…11c10               Head {h00=0x0016, h01=0x0050, text=» RF(P) CASS:0 YES!«, t00=0x00b5, t01=0x014e}
0x11c10…11c1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b5, t01=0x0168}
0x11c1a…11c44               Head {h00=0x0026, h01=0x0050, text=» LDR A2,A1 GET PROGRAM LOAD DEVICE«, t00=0x00b5, t01=0x0172}
0x11c44…11c70               Head {h00=0x0028, h01=0x0050, text=» SRL A2,4 BIT15 INDICATE UNIT 1 OR 2«, t00=0x00b6, t01=0x000c}
0x11c70…11c9e               Head {h00=0x002a, h01=0x0050, text=» LC A3,IPLTYP+1+STKEND GET DEVICE TYPE«, t00=0x00b6, t01=0x0038}
0x11c9e…11cb2               Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x00b6, t01=0x0066}
0x11cb2…11cc4               Head {h00=0x000e, h01=0x0050, text=» SUK A3,3 «, t00=0x00b6, t01=0x007a}
0x11cc4…11cde               Head {h00=0x0016, h01=0x0050, text=» RF(N) DISC:0 DISC«, t00=0x00b6, t01=0x008c}
0x11cde…11d02               Head {h00=0x0020, h01=0x0050, text=» RF(Z) MFD:0 MINI FIXED DISC«, t00=0x00b6, t01=0x00a6}
0x11d02…11d18               Head {h00=0x0012, h01=0x0050, text=» SUK A3,3  =9 «, t00=0x00b6, t01=0x00ca}
0x11d18…11d3a               Head {h00=0x001e, h01=0x0050, text=» RF(N) CDC:0 80M CDC DISC «, t00=0x00b6, t01=0x00e0}
0x11d3a…11d5a               Head {h00=0x001c, h01=0x0050, text=» RF FLEX:0 FLEXIBLE DISC«, t00=0x00b6, t01=0x0102}
0x11d5a…11d68               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b6, t01=0x0122}
0x11d68…11d7c               Head {h00=0x0010, h01=0x0050, text=»CASS:0 EQU *«, t00=0x00b6, t01=0x0130}
0x11d7c…11d90               Head {h00=0x0010, h01=0x0050, text=» IFT CASS=1 «, t00=0x00b6, t01=0x0144}
0x11d90…11d9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x0158}
0x11d9a…11dc4               Head {h00=0x0026, h01=0x0050, text=»*  PROGRAM LOAD DEVICE = CASSETTE «, t00=0x00b6, t01=0x0162}
0x11dc4…11dce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b6, t01=0x018c}
0x11dce…11e10               Head {h00=0x003e, h01=0x0050, text=» LD A1,APLTAB+STKCOM GET CURRENT APPLICATION CONTR. BLOCK «, t00=0x00b7, t01=0x0008}
0x11e10…11e3e               Head {h00=0x002a, h01=0x0050, text=» CM APLADA+2,A1 CLEAR APPLICATION DISC«, t00=0x00b7, t01=0x004a}
0x11e3e…11e6a               Head {h00=0x0028, h01=0x0050, text=» CM APLADA+4,A1 FILE ADDRESS ENTRIES«, t00=0x00b7, t01=0x0078}
0x11e6a…11e98               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,RDBLK GET SUBROUTINE ADDRESS «, t00=0x00b7, t01=0x00a4}
0x11e98…11eac               Head {h00=0x0010, h01=0x0050, text=» LDR A10,A1 «, t00=0x00b7, t01=0x00d2}
0x11eac…11ee0               Head {h00=0x0030, h01=0x0050, text=» ST A1,READ STORE IN PROGRAM LOAD SUBROUTINE«, t00=0x00b7, t01=0x00e6}
0x11ee0…11ef4               Head {h00=0x0010, h01=0x0050, text=»CASS:2 EQU *«, t00=0x00b7, t01=0x011a}
0x11ef4…11f22               Head {h00=0x002a, h01=0x0050, text=» CF A14,RDBLK READ ONE CASSETTE BLOCK «, t00=0x00b7, t01=0x012e}
0x11f22…11f40               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 TAPE MARK? «, t00=0x00b7, t01=0x015c}
0x11f40…11f5c               Head {h00=0x0018, h01=0x0050, text=» RF(Z) FINIS RETURN «, t00=0x00b7, t01=0x017a}
0x11f5c…11f66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x0008}
0x11f66…11f96               Head {h00=0x002c, h01=0x0050, text=» CF A14,CASSIN INIT APPLICATION CASSETTE«, t00=0x00b8, t01=0x0012}
0x11f96…11fa8               Head {h00=0x000e, h01=0x0050, text=» RB CASS:2«, t00=0x00b8, t01=0x0042}
0x11fa8…11fb4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b8, t01=0x0054}
0x11fb4…11fc8               Head {h00=0x0010, h01=0x0050, text=» IFF CASS=1 «, t00=0x00b8, t01=0x0060}
0x11fc8…11fde               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00b8, t01=0x0074}
0x11fde…12008               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x00b8, t01=0x008a}
0x12008…12014               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b8, t01=0x00b4}
0x12014…12022               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b8, t01=0x00c0}
0x12022…12036               Head {h00=0x0010, h01=0x0050, text=»FLEX:0 EQU *«, t00=0x00b8, t01=0x00ce}
0x12036…1204c               Head {h00=0x0012, h01=0x0050, text=» IFT FLDISC=1 «, t00=0x00b8, t01=0x00e2}
0x1204c…12056               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x00f8}
0x12056…12084               Head {h00=0x002a, h01=0x0050, text=»*  PROGRAM LOAD DEVICE = FLEXIBLE DISC«, t00=0x00b8, t01=0x0102}
0x12084…1208e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x0130}
0x1208e…12098               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x013a}
0x12098…120ce               Head {h00=0x0032, h01=0x0050, text=»*  MODIFY SCTIPL: /F8 - DRIVE 1, /F9 - DRIVE 2«, t00=0x00b8, t01=0x0144}
0x120ce…120d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x017a}
0x120d8…120ec               Head {h00=0x0010, h01=0x0050, text=» ORK  A2,/F8«, t00=0x00b8, t01=0x0184}
0x120ec…12118               Head {h00=0x0028, h01=0x0050, text=» ST A2,FILCOD+STKEND SAVE FILE CODE «, t00=0x00b9, t01=0x0008}
0x12118…12122               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x0034}
0x12122…12140               Head {h00=0x001a, h01=0x0050, text=»*  INIT FLEXIBLE DISC «, t00=0x00b9, t01=0x003e}
0x12140…1214a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x005c}
0x1214a…12160               Head {h00=0x0012, h01=0x0050, text=» CF A14,FDINIT«, t00=0x00b9, t01=0x0066}
0x12160…12172               Head {h00=0x000e, h01=0x0050, text=» RF FINISH«, t00=0x00b9, t01=0x007c}
0x12172…1217c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x008e}
0x1217c…12188               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b9, t01=0x0098}
0x12188…1219e               Head {h00=0x0012, h01=0x0050, text=» IFF FLDISC=1 «, t00=0x00b9, t01=0x00a4}
0x1219e…121b4               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00b9, t01=0x00ba}
0x121b4…121de               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x00b9, t01=0x00d0}
0x121de…121ea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b9, t01=0x00fa}
0x121ea…121f8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00b9, t01=0x0106}
0x121f8…1220c               Head {h00=0x0010, h01=0x0050, text=»MFD:0 EQU * «, t00=0x00b9, t01=0x0114}
0x1220c…12222               Head {h00=0x0012, h01=0x0050, text=» IFT MFDISC=1 «, t00=0x00b9, t01=0x0128}
0x12222…1222c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x013e}
0x1222c…1225c               Head {h00=0x002c, h01=0x0050, text=»* PROGRAM LOAD DEVICE = MINI FIXED DISC «, t00=0x00b9, t01=0x0148}
0x1225c…12266               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b9, t01=0x0178}
0x12266…12296               Head {h00=0x002c, h01=0x0050, text=»* MODIFY SCTIPL:/F4-DRIVE 1,/F5-DRIVE 2 «, t00=0x00b9, t01=0x0182}
0x12296…122a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x0022}
0x122a0…122b4               Head {h00=0x0010, h01=0x0050, text=» ORK A2,/F4 «, t00=0x00ba, t01=0x002c}
0x122b4…122e0               Head {h00=0x0028, h01=0x0050, text=» ST A2,FILCOD+STKEND SAVE FILE CODE «, t00=0x00ba, t01=0x0040}
0x122e0…122ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x006c}
0x122ea…12308               Head {h00=0x001a, h01=0x0050, text=»* INIT MINI FIXED DISC«, t00=0x00ba, t01=0x0076}
0x12308…12312               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x0094}
0x12312…12328               Head {h00=0x0012, h01=0x0050, text=» CF A14,MDINIT«, t00=0x00ba, t01=0x009e}
0x12328…12342               Head {h00=0x0016, h01=0x0050, text=» RF FINISH RETURN «, t00=0x00ba, t01=0x00b4}
0x12342…1234c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x00ce}
0x1234c…12358               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ba, t01=0x00d8}
0x12358…1236e               Head {h00=0x0012, h01=0x0050, text=» IFF MFDISC=1 «, t00=0x00ba, t01=0x00e4}
0x1236e…12384               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00ba, t01=0x00fa}
0x12384…123ae               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x00ba, t01=0x0110}
0x123ae…123ba               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ba, t01=0x013a}
0x123ba…123c8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ba, t01=0x0146}
0x123c8…123dc               Head {h00=0x0010, h01=0x0050, text=»DISC:0 EQU *«, t00=0x00ba, t01=0x0154}
0x123dc…123f0               Head {h00=0x0010, h01=0x0050, text=» IFT DISC=1 «, t00=0x00ba, t01=0x0168}
0x123f0…123fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x017c}
0x123fa…12420               Head {h00=0x0022, h01=0x0050, text=»*  PROGRAM LOAD DEVICE = DISC «, t00=0x00ba, t01=0x0186}
0x12420…1242a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x001c}
0x1242a…12434               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x0026}
0x12434…12472               Head {h00=0x003a, h01=0x0050, text=»*  MODIFY SCTIPL: /F1 - CARTRIDGE DISC /F0 - FIX DISC «, t00=0x00bb, t01=0x0030}
0x12472…1247c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x006e}
0x1247c…124a6               Head {h00=0x0026, h01=0x0050, text=» LC A2,FCTAB,A2 LOAD FILE CODE =5 «, t00=0x00bb, t01=0x0078}
0x124a6…124d2               Head {h00=0x0028, h01=0x0050, text=» ST A2,FILCOD+STKEND SAVE FILE CODE «, t00=0x00bb, t01=0x00a2}
0x124d2…124dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x00ce}
0x124dc…12500               Head {h00=0x0020, h01=0x0050, text=»*  INITIALIZE DISC COMMANDS «, t00=0x00bb, t01=0x00d8}
0x12500…1250a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bb, t01=0x00fc}
0x1250a…12520               Head {h00=0x0012, h01=0x0050, text=» CF A14,DUINIT«, t00=0x00bb, t01=0x0106}
0x12520…1252c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bb, t01=0x011c}
0x1252c…12540               Head {h00=0x0010, h01=0x0050, text=» IFF DISC=1 «, t00=0x00bb, t01=0x0128}
0x12540…12556               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00bb, t01=0x013c}
0x12556…1256a               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00bb, t01=0x0152}
0x1256a…12576               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bb, t01=0x0166}
0x12576…1258a               Head {h00=0x0010, h01=0x0050, text=»FINISH EQU *«, t00=0x00bb, t01=0x0172}
0x1258a…125bc               Head {h00=0x002e, h01=0x0050, text=» LDK A1,1 A1#0 MEANS RANDOM ACCESS DEVICE «, t00=0x00bb, t01=0x0186}
0x125bc…125d0               Head {h00=0x0010, h01=0x0050, text=»FINIS EQU * «, t00=0x00bc, t01=0x0028}
0x125d0…125fe               Head {h00=0x002a, h01=0x0050, text=» LD A2,FILCOD+STKEND RESTORE FILE CODE«, t00=0x00bc, t01=0x003c}
0x125fe…1260e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00bc, t01=0x006a}
0x1260e…1261c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bc, t01=0x007a}
0x1261c…12630               Head {h00=0x0010, h01=0x0050, text=»CDC:0 EQU * «, t00=0x00bc, t01=0x0088}
0x12630…1264c               Head {h00=0x0018, h01=0x0050, text=» IFF CDDISC+CDDI16=0«, t00=0x00bc, t01=0x009c}
0x1264c…12656               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x00b8}
0x12656…1268a               Head {h00=0x0030, h01=0x0050, text=»* PROGRAM LOAD DEVICE = 16M OR 80M CDC DISC «, t00=0x00bc, t01=0x00c2}
0x1268a…12694               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x00f6}
0x12694…1269e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x0100}
0x1269e…126c0               Head {h00=0x001e, h01=0x0050, text=»* MODIFY SCTIPL: /FC - /FD«, t00=0x00bc, t01=0x010a}
0x126c0…126ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bc, t01=0x012c}
0x126ca…126f2               Head {h00=0x0024, h01=0x0050, text=» SRC A2,2 TEST IF UNIT 1 OR 2 =9«, t00=0x00bc, t01=0x0136}
0x126f2…12712               Head {h00=0x001c, h01=0x0050, text=» RF(NN) CDC:1 UNIT 1 =9 «, t00=0x00bc, t01=0x015e}
0x12712…12728               Head {h00=0x0012, h01=0x0050, text=» ADK A2,2  =9 «, t00=0x00bc, t01=0x017e}
0x12728…12740 (189, 0, 400) Head {h00=0x0014, h01=0x0050, text=»CDC:1 EQU *  =9 «, t00=0x00bd, t01=0x0004}
0x12740…12768               Head {h00=0x0024, h01=0x0050, text=» ANK A2,7 MASK BITS NOT USED =9 «, t00=0x00bd, t01=0x001c}
0x12768…12786               Head {h00=0x001a, h01=0x0050, text=» ORK A2,/FC FILE CODE «, t00=0x00bd, t01=0x0044}
0x12786…127b2               Head {h00=0x0028, h01=0x0050, text=» ST A2,FILCOD+STKEND SAVE FILE CODE «, t00=0x00bd, t01=0x0062}
0x127b2…127bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bd, t01=0x008e}
0x127bc…127de               Head {h00=0x001e, h01=0x0050, text=»* INITIALISE DISC COMMANDS«, t00=0x00bd, t01=0x0098}
0x127de…127e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bd, t01=0x00ba}
0x127e8…1280a               Head {h00=0x001e, h01=0x0050, text=» CF A14,CDINIT INIT DEVICE«, t00=0x00bd, t01=0x00c4}
0x1280a…12824               Head {h00=0x0016, h01=0x0050, text=» RB FINISH RETURN «, t00=0x00bd, t01=0x00e6}
0x12824…12830               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bd, t01=0x0100}
0x12830…12850               Head {h00=0x001c, h01=0x0050, text=» IFT CDDISC+CDDI16=0  =9«, t00=0x00bd, t01=0x010c}
0x12850…12866               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x00bd, t01=0x012c}
0x12866…12890               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR ILLEGAL MONITOR OPTION«, t00=0x00bd, t01=0x0142}
0x12890…1289c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bd, t01=0x016c}
0x1289c…128aa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bd, t01=0x0178}
0x128aa…128ea               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00bd, t01=0x0186}
0x128ea…1292a               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00be, t01=0x0036}
0x1292a…1296a               Head {h00=0x003c, h01=0x0050, text=»*      CONFLD - SELECT LOAD UNIT FOR CONF. DATA       * «, t00=0x00be, t01=0x0076}
0x1296a…129aa               Head {h00=0x003c, h01=0x0050, text=»*      ========================================       * «, t00=0x00be, t01=0x00b6}
0x129aa…129ea               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00be, t01=0x00f6}
0x129ea…12a2a               Head {h00=0x003c, h01=0x0050, text=»*      ON ENTRY:  A1 = DEVICE ADDRESS                 * «, t00=0x00be, t01=0x0136}
0x12a2a…12a6a               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00be, t01=0x0176}
0x12a6a…12aaa               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00bf, t01=0x0026}
0x12aaa…12ab2               Head {h00=0x0004, h01=0x0050, t00=0x00bf, t01=0x0066}
0x12ab2…12aba               Head {h00=0x0004, h01=0x0050, t00=0x00bf, t01=0x006e}
0x12aba…12ace               Head {h00=0x0010, h01=0x0050, text=»CONFLD EQU *«, t00=0x00bf, t01=0x0076}
0x12ace…12ae2               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x00bf, t01=0x008a}
0x12ae2…12b0a               Head {h00=0x0024, h01=0x0050, text=» ST A2,CYLNBR SET SEEK CONDITION«, t00=0x00bf, t01=0x009e}
0x12b0a…12b30               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A1 SAVE DEVICE ADDRESS«, t00=0x00bf, t01=0x00c6}
0x12b30…12b56               Head {h00=0x0022, h01=0x0050, text=» ANK A2,/F ISOLATE LAST DIGIT «, t00=0x00bf, t01=0x00ec}
0x12b56…12b68               Head {h00=0x000e, h01=0x0050, text=» SUK A2,7 «, t00=0x00bf, t01=0x0112}
0x12b68…12b8c               Head {h00=0x0020, h01=0x0050, text=» RB(N) MFD:0 MINI FIXED DISC«, t00=0x00bf, t01=0x0124}
0x12b8c…12b96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x0148}
0x12b96…12bb8               Head {h00=0x001e, h01=0x0050, text=» RB(Z) CDC:0 80M CDC DISC «, t00=0x00bf, t01=0x0152}
0x12bb8…12bc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x0174}
0x12bc2…12bd4               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x00bf, t01=0x017e}
0x12bd4…12bf6               Head {h00=0x001e, h01=0x0050, text=» RB(Z) DISC:0 DISC DEVICE «, t00=0x00bf, t01=0x0190}
0x12bf6…12c00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x0022}
0x12c00…12c28               Head {h00=0x0024, h01=0x0050, text=» RB FLEX:0 FLEXIBLE DISC DEVICE «, t00=0x00c0, t01=0x002c}
0x12c28…12c36               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c0, t01=0x0054}
0x12c36…12c4a               Head {h00=0x0010, h01=0x0050, text=» IFT CASS=1 «, t00=0x00c0, t01=0x0062}
0x12c4a…12c8a               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00c0, t01=0x0076}
0x12c8a…12cca               Head {h00=0x003c, h01=0x0050, text=»*        CASSIN - CASSETTE INITIATING ROUTINE         * «, t00=0x00c0, t01=0x00b6}
0x12cca…12d0a               Head {h00=0x003c, h01=0x0050, text=»*        ====================================         * «, t00=0x00c0, t01=0x00f6}
0x12d0a…12d4a               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c0, t01=0x0136}
0x12d4a…12d8a               Head {h00=0x003c, h01=0x0050, text=»*  REFERENCED IN:  SYSLOD -LOADING PART-              * «, t00=0x00c0, t01=0x0176}
0x12d8a…12dca               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c1, t01=0x0026}
0x12dca…12e0a               Head {h00=0x003c, h01=0x0050, text=»*  ENTRY:                                             * «, t00=0x00c1, t01=0x0066}
0x12e0a…12e4a               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c1, t01=0x00a6}
0x12e4a…12e8a               Head {h00=0x003c, h01=0x0050, text=»*  EXIT:                                              * «, t00=0x00c1, t01=0x00e6}
0x12e8a…12eca               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c1, t01=0x0126}
0x12eca…12f0a               Head {h00=0x003c, h01=0x0050, text=»*  WORK REGISTERS:  A1,A3                             * «, t00=0x00c1, t01=0x0166}
0x12f0a…12f4a               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c2, t01=0x0016}
0x12f4a…12f8a               Head {h00=0x003c, h01=0x0050, text=»*  SUBROUTINES:  SOPIN,CHCRIO                         * «, t00=0x00c2, t01=0x0056}
0x12f8a…12fca               Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x00c2, t01=0x0096}
0x12fca…1300a               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x00c2, t01=0x00d6}
0x1300a…1301e               Head {h00=0x0010, h01=0x0050, text=»CASSIN EQU *«, t00=0x00c2, t01=0x0116}
0x1301e…13030               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/F«, t00=0x00c2, t01=0x012a}
0x13030…13056               Head {h00=0x0022, h01=0x0050, text=» CF A14,CHCRIO UNLOAD CASSETTE«, t00=0x00c2, t01=0x013c}
0x13056…1308c               Head {h00=0x0032, h01=0x0050, text=» LDKL A3,LMP1+LMP2 INDICATE EXPECTED SWITCHES «, t00=0x00c2, t01=0x0162}
0x1308c…130a2               Head {h00=0x0012, h01=0x0050, text=» OTR A3,0,SOP «, t00=0x00c3, t01=0x0008}
0x130a2…130b6               Head {h00=0x0010, h01=0x0050, text=»CAS:10 EQU *«, t00=0x00c3, t01=0x001e}
0x130b6…130d4               Head {h00=0x001a, h01=0x0050, text=» CF A14,SOPIN READ SOP«, t00=0x00c3, t01=0x0032}
0x130d4…130fc               Head {h00=0x0024, h01=0x0050, text=» ANKL A1,/0300 ALLOWED SWITCHES?«, t00=0x00c3, t01=0x0050}
0x130fc…13116               Head {h00=0x0016, h01=0x0050, text=» RB(Z) CAS:10 NO! «, t00=0x00c3, t01=0x0078}
0x13116…13140               Head {h00=0x0026, h01=0x0050, text=» LDKL A3,LMP1 SWITCH ON LOAD LAMP «, t00=0x00c3, t01=0x0092}
0x13140…13156               Head {h00=0x0012, h01=0x0050, text=» OTR A3,0,SOP «, t00=0x00c3, t01=0x00bc}
0x13156…13174               Head {h00=0x001a, h01=0x0050, text=» SRL A1,8 RIGHT ALIGN «, t00=0x00c3, t01=0x00d2}
0x13174…13192               Head {h00=0x001a, h01=0x0050, text=» ANK A1,1 SELECT UNIT «, t00=0x00c3, t01=0x00f0}
0x13192…131b4               Head {h00=0x001e, h01=0x0050, text=» CF A14,CHCRIO SELECT UNIT«, t00=0x00c3, t01=0x010e}
0x131b4…131c8               Head {h00=0x0010, h01=0x0050, text=» LDK A1,LOCK«, t00=0x00c3, t01=0x0130}
0x131c8…131ec               Head {h00=0x0020, h01=0x0050, text=» CF A14,CHCRIO LOCK CASSETTE«, t00=0x00c3, t01=0x0144}
0x131ec…13210               Head {h00=0x0020, h01=0x0050, text=» ANK A3,1 CASSETTE OPERABLE?«, t00=0x00c3, t01=0x0168}
0x13210…1322a               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) CAS:10 NO!«, t00=0x00c3, t01=0x018c}
0x1322a…13240               Head {h00=0x0012, h01=0x0050, text=» LDK A1,SBOT  «, t00=0x00c4, t01=0x0016}
0x13240…13270               Head {h00=0x002c, h01=0x0050, text=» CF A14,CHCRIO SEARCH BEGINNING OF TAPE «, t00=0x00c4, t01=0x002c}
0x13270…13284               Head {h00=0x0010, h01=0x0050, text=» LDK A1,STMF«, t00=0x00c4, t01=0x005c}
0x13284…132b2               Head {h00=0x002a, h01=0x0050, text=» CF A14,CHCRIO SEARCH TAPEMARK FORWARD«, t00=0x00c4, t01=0x0070}
0x132b2…132c2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00c4, t01=0x009e}
0x132c2…132d0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c4, t01=0x00ae}
0x132d0…13306               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x00c4, t01=0x00bc}
0x13306…1333c               Head {h00=0x0032, h01=0x0050, text=»*  CHCRIO - CASSETTE I/O EXECUTING ROUTINE  * «, t00=0x00c4, t01=0x00f2}
0x1333c…13372               Head {h00=0x0032, h01=0x0050, text=»*  =======================================  * «, t00=0x00c4, t01=0x0128}
0x13372…133a8               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x00c4, t01=0x015e}
0x133a8…133de (197, 0, 400) Head {h00=0x0032, h01=0x0050, text=»*  REFERENCED IN:  CASSIN,SYSLOD            * «, t00=0x00c5, t01=0x0004}
0x133de…13414               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x00c5, t01=0x003a}
0x13414…1344a               Head {h00=0x0032, h01=0x0050, text=»*  ENTRY:  A1 - I/O INSTRUCTION COMMAND     * «, t00=0x00c5, t01=0x0070}
0x1344a…13480               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x00c5, t01=0x00a6}
0x13480…134b6               Head {h00=0x0032, h01=0x0050, text=»*  EXIT:                                    * «, t00=0x00c5, t01=0x00dc}
0x134b6…134ec               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x00c5, t01=0x0112}
0x134ec…13522               Head {h00=0x0032, h01=0x0050, text=»*  WORK REGISTERS:  A1,A3                   * «, t00=0x00c5, t01=0x0148}
0x13522…13558               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x00c5, t01=0x017e}
0x13558…1358e               Head {h00=0x0032, h01=0x0050, text=»*  SUBROUTINES:                             * «, t00=0x00c6, t01=0x0024}
0x1358e…135c4               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x00c6, t01=0x005a}
0x135c4…135fa               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x00c6, t01=0x0090}
0x135fa…1360e               Head {h00=0x0010, h01=0x0050, text=»CHCRIO EQU *«, t00=0x00c6, t01=0x00c6}
0x1360e…13624               Head {h00=0x0012, h01=0x0050, text=» CIO A1,1,CHCR«, t00=0x00c6, t01=0x00da}
0x13624…13638               Head {h00=0x0010, h01=0x0050, text=» SST A3,CHCR«, t00=0x00c6, t01=0x00f0}
0x13638…1364e               Head {h00=0x0012, h01=0x0050, text=» RB(NA) CHCRIO«, t00=0x00c6, t01=0x0104}
0x1364e…1365e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00c6, t01=0x011a}
0x1365e…1366c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c6, t01=0x012a}
0x1366c…136a6               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x00c6, t01=0x0138}
0x136a6…136e0               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x00c6, t01=0x0172}
0x136e0…1371a               Head {h00=0x0036, h01=0x0050, text=»*        RDBLK - READ ONE CASSETTE BLOCK         *«, t00=0x00c7, t01=0x001c}
0x1371a…13754               Head {h00=0x0036, h01=0x0050, text=»*        ===============================         *«, t00=0x00c7, t01=0x0056}
0x13754…1378e               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x00c7, t01=0x0090}
0x1378e…137c8               Head {h00=0x0036, h01=0x0050, text=»*  REFERENCED IN:  SYSLOD                        *«, t00=0x00c7, t01=0x00ca}
0x137c8…13802               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x00c7, t01=0x0104}
0x13802…1383c               Head {h00=0x0036, h01=0x0050, text=»*  ENTRY:  A9 - CASSETTE BUFFER POINTER          *«, t00=0x00c7, t01=0x013e}
0x1383c…13876               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x00c7, t01=0x0178}
0x13876…138b0               Head {h00=0x0036, h01=0x0050, text=»*  EXIT:  A2 - NUMBER OF CHARACTERS IN BLOCK     *«, t00=0x00c8, t01=0x0022}
0x138b0…138ea               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x00c8, t01=0x005c}
0x138ea…13928               Head {h00=0x003a, h01=0x0050, text=»*  WORK REGISTERS: A1,A2,A3,A4,A5                   * «, t00=0x00c8, t01=0x0096}
0x13928…13962               Head {h00=0x0036, h01=0x0050, text=»*                                                *«, t00=0x00c8, t01=0x00d4}
0x13962…1399c               Head {h00=0x0036, h01=0x0050, text=»*  SUBROUTINES:                                  *«, t00=0x00c8, t01=0x010e}
0x1399c…139d6               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x00c8, t01=0x0148}
0x139d6…139ea               Head {h00=0x0010, h01=0x0050, text=»RDBLK EQU * «, t00=0x00c8, t01=0x0182}
0x139ea…139fc               Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x00c9, t01=0x0008}
0x139fc…13a10               Head {h00=0x0010, h01=0x0050, text=»RDB:10 EQU *«, t00=0x00c9, t01=0x001a}
0x13a10…13a32               Head {h00=0x001e, h01=0x0050, text=» LDR A3,A9 START OF BUFFER«, t00=0x00c9, t01=0x002e}
0x13a32…13a5c               Head {h00=0x0026, h01=0x0050, text=» LDK A2,0 RESET CHARACTER COUNTER «, t00=0x00c9, t01=0x0050}
0x13a5c…13a84               Head {h00=0x0024, h01=0x0050, text=» LDR A4,A3 SAVE START OF BUFFER «, t00=0x00c9, t01=0x007a}
0x13a84…13aa8               Head {h00=0x0020, h01=0x0050, text=» ADKL A3,CBLEN END OF BUFFER«, t00=0x00c9, t01=0x00a2}
0x13aa8…13aba               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/A«, t00=0x00c9, t01=0x00c6}
0x13aba…13adc               Head {h00=0x001e, h01=0x0050, text=» CIO A1,1,CHCR READ BLOCK «, t00=0x00c9, t01=0x00d8}
0x13adc…13af2               Head {h00=0x0012, h01=0x0050, text=» RF(NA) RDERR3«, t00=0x00c9, t01=0x00fa}
0x13af2…13b06               Head {h00=0x0010, h01=0x0050, text=»RDB:20 EQU *«, t00=0x00c9, t01=0x0110}
0x13b06…13b1c               Head {h00=0x0012, h01=0x0050, text=» INR A1,0,CHCR«, t00=0x00c9, t01=0x0124}
0x13b1c…13b32               Head {h00=0x0012, h01=0x0050, text=» RF(NA) RDB:30«, t00=0x00c9, t01=0x013a}
0x13b32…13b54               Head {h00=0x001e, h01=0x0050, text=» CWR A4,A3 END OF BUFFER? «, t00=0x00c9, t01=0x0150}
0x13b54…13b6e               Head {h00=0x0016, h01=0x0050, text=» RF(E) RDERR YES! «, t00=0x00c9, t01=0x0172}
0x13b6e…13b90               Head {h00=0x001e, h01=0x0050, text=» SCR A1,A4 STORE CHARACTER«, t00=0x00c9, t01=0x018c}
0x13b90…13bbe               Head {h00=0x002a, h01=0x0050, text=» ADK A2,1 INCREMENT CHARACTER COUNTER «, t00=0x00ca, t01=0x001e}
0x13bbe…13be8               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 INCREMENT BUFFER POINTER«, t00=0x00ca, t01=0x004c}
0x13be8…13bfc               Head {h00=0x0010, h01=0x0050, text=»RDB:30 EQU *«, t00=0x00ca, t01=0x0076}
0x13bfc…13c12               Head {h00=0x0012, h01=0x0050, text=» SST A1,CHCR  «, t00=0x00ca, t01=0x008a}
0x13c12…13c28               Head {h00=0x0012, h01=0x0050, text=» RB(NA) RDB:20«, t00=0x00ca, t01=0x00a0}
0x13c28…13c4c               Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FCFF CHECK STATUS «, t00=0x00ca, t01=0x00b6}
0x13c4c…13c6a               Head {h00=0x001a, h01=0x0050, text=» LDR A4,A1 SAVE STATUS«, t00=0x00ca, t01=0x00da}
0x13c6a…13c82               Head {h00=0x0014, h01=0x0050, text=» RF(Z) RDBEX OK «, t00=0x00ca, t01=0x00f8}
0x13c82…13ca6               Head {h00=0x0020, h01=0x0050, text=» SLC A4,3 CHECK IF TAPEMARK «, t00=0x00ca, t01=0x0110}
0x13ca6…13cca               Head {h00=0x0020, h01=0x0050, text=» RF(N) RDBEX OK IF TAPEMARK «, t00=0x00ca, t01=0x0134}
0x13cca…13cde               Head {h00=0x0010, h01=0x0050, text=»RDERR EQU * «, t00=0x00ca, t01=0x0158}
0x13cde…13ce8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ca, t01=0x016c}
0x13ce8…13d28               Head {h00=0x003c, h01=0x0050, text=»*  READ ERROR HAS OCCURRED: MAKE ANOTHER ATTEMPT TO READ«, t00=0x00ca, t01=0x0176}
0x13d28…13d6a               Head {h00=0x003e, h01=0x0050, text=»*  THE SAME BLOCK IF NOT 3 ATTEMPTS ALREADY HAS BEEN MADE «, t00=0x00cb, t01=0x0026}
0x13d6a…13d74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cb, t01=0x0068}
0x13d74…13d92               Head {h00=0x001a, h01=0x0050, text=» ADK A5,1 NEXT ATTEMPT«, t00=0x00cb, t01=0x0072}
0x13d92…13db2               Head {h00=0x001c, h01=0x0050, text=» CWK A5,3 THIRD ATTEMPT?«, t00=0x00cb, t01=0x0090}
0x13db2…13dd6               Head {h00=0x0020, h01=0x0050, text=» RF(E) RDERR3 YES - GIVE UP!«, t00=0x00cb, t01=0x00b0}
0x13dd6…13dfa               Head {h00=0x0020, h01=0x0050, text=» LDK A1,/E REVERSE ONE BLOCK«, t00=0x00cb, t01=0x00d4}
0x13dfa…13e1e               Head {h00=0x0020, h01=0x0050, text=» CIO A1,1,CHCR EXECUTE ORDER«, t00=0x00cb, t01=0x00f8}
0x13e1e…13e46               Head {h00=0x0024, h01=0x0050, text=» RB(NA) *-2 LOOP UNTIL ACCEPTED «, t00=0x00cb, t01=0x011c}
0x13e46…13e58               Head {h00=0x000e, h01=0x0050, text=» RB RDB:10«, t00=0x00cb, t01=0x0144}
0x13e58…13e6c               Head {h00=0x0010, h01=0x0050, text=»RDERR3 EQU *«, t00=0x00cb, t01=0x0156}
0x13e6c…13e82               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x00cb, t01=0x016a}
0x13e82…13e96               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00cb, t01=0x0180}
0x13e96…13eaa (204, 0, 400) Head {h00=0x0010, h01=0x0050, text=»RDBEX EQU * «, t00=0x00cc, t01=0x0004}
0x13eaa…13eba               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00cc, t01=0x0018}
0x13eba…13ec6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cc, t01=0x0028}
0x13ec6…13eda               Head {h00=0x0010, h01=0x0050, text=» IFT DISC=1 «, t00=0x00cc, t01=0x0034}
0x13eda…13ee8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00cc, t01=0x0048}
0x13ee8…13f14               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00cc, t01=0x0056}
0x13f14…13f40               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00cc, t01=0x0082}
0x13f40…13f6c               Head {h00=0x0028, h01=0x0050, text=»*  DUINIT - INITIALIZE DISC UNIT  * «, t00=0x00cc, t01=0x00ae}
0x13f6c…13f98               Head {h00=0x0028, h01=0x0050, text=»*  =============================  * «, t00=0x00cc, t01=0x00da}
0x13f98…13fc4               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00cc, t01=0x0106}
0x13fc4…13ff0               Head {h00=0x0028, h01=0x0050, text=»*  REFERENCED IN: SYSLOD,GETFIL   * «, t00=0x00cc, t01=0x0132}
0x13ff0…1401c               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00cc, t01=0x015e}
0x1401c…14048               Head {h00=0x0028, h01=0x0050, text=»*  ENTRY: A1 - DEVICE ADDRESS     * «, t00=0x00cc, t01=0x018a}
0x14048…14074               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00cd, t01=0x0026}
0x14074…140a0               Head {h00=0x0028, h01=0x0050, text=»*  EXIT:                          * «, t00=0x00cd, t01=0x0052}
0x140a0…140cc               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00cd, t01=0x007e}
0x140cc…140fa               Head {h00=0x002a, h01=0x0050, text=»*  WORK REGISTERS: A2,A3             *«, t00=0x00cd, t01=0x00aa}
0x140fa…14126               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00cd, t01=0x00d8}
0x14126…14152               Head {h00=0x0028, h01=0x0050, text=»*  SUBROUTINES:                   * «, t00=0x00cd, t01=0x0104}
0x14152…1417e               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00cd, t01=0x0130}
0x1417e…141aa               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00cd, t01=0x015c}
0x141aa…141b2               Head {h00=0x0004, h01=0x0050, t00=0x00cd, t01=0x0188}
0x141b2…141c6               Head {h00=0x0010, h01=0x0050, text=»DUINIT EQU *«, t00=0x00cd, t01=0x0190}
0x141c6…141f4               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,RDSEC2 GET SUBROUTINE ADDRESS«, t00=0x00ce, t01=0x0014}
0x141f4…14216               Head {h00=0x001e, h01=0x0050, text=» LDR A5,A1 SAVE FILE CODE «, t00=0x00ce, t01=0x0042}
0x14216…14224               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ce, t01=0x0064}
0x14224…1422e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x0072}
0x1422e…14256               Head {h00=0x0024, h01=0x0050, text=»* INIT DISC COMMANDS VERSION A2 «, t00=0x00ce, t01=0x007c}
0x14256…14260               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ce, t01=0x00a4}
0x14260…14290               Head {h00=0x002c, h01=0x0050, text=» ORKL A1,CIO+8 CONF. CIO A1,1,XX INSTR. «, t00=0x00ce, t01=0x00ae}
0x14290…142a6               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEK20 «, t00=0x00ce, t01=0x00de}
0x142a6…142d2               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A1,XX INSTR. «, t00=0x00ce, t01=0x00f4}
0x142d2…142e8               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEK21 «, t00=0x00ce, t01=0x0120}
0x142e8…14316               Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/B00 FORM CIO A2,1,XX INSTR. «, t00=0x00ce, t01=0x0136}
0x14316…1432c               Head {h00=0x0012, h01=0x0050, text=» ST A1,READ21 «, t00=0x00ce, t01=0x0164}
0x1432c…14356               Head {h00=0x0026, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX INSTR«, t00=0x00ce, t01=0x017a}
0x14356…1436c               Head {h00=0x0012, h01=0x0050, text=» ST A1,READ22 «, t00=0x00cf, t01=0x0014}
0x1436c…1439a               Head {h00=0x002a, h01=0x0050, text=» ST A2,READ INIT SUBROUTINE ADDRESSES «, t00=0x00cf, t01=0x002a}
0x1439a…143ae               Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x00cf, t01=0x0058}
0x143ae…143c0               Head {h00=0x000e, h01=0x0050, text=» LDK A2,4 «, t00=0x00cf, t01=0x006c}
0x143c0…143e8               Head {h00=0x0024, h01=0x0050, text=» XRS A2,CRCCHK DISCARD CRC CHECK«, t00=0x00cf, t01=0x007e}
0x143e8…14410               Head {h00=0x0024, h01=0x0050, text=» CF A14,GETVLB GET VOLUME LABEL «, t00=0x00cf, t01=0x00a6}
0x14410…14422               Head {h00=0x000e, h01=0x0050, text=» LDK A2,4 «, t00=0x00cf, t01=0x00ce}
0x14422…14446               Head {h00=0x0020, h01=0x0050, text=» ORS A2,CRCCHK SET CRC CHECK«, t00=0x00cf, t01=0x00e0}
0x14446…1446a               Head {h00=0x0020, h01=0x0050, text=» LC A2,FORDEV,A9 GET FORMAT «, t00=0x00cf, t01=0x0104}
0x1446a…1447c               Head {h00=0x000e, h01=0x0050, text=» ANK A2,1 «, t00=0x00cf, t01=0x0128}
0x1447c…1449c               Head {h00=0x001c, h01=0x0050, text=» RF(Z) DUI:50 FORMAT A2 «, t00=0x00cf, t01=0x013a}
0x1449c…144a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00cf, t01=0x015a}
0x144a6…144cc               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A5 RESTORE FILE  CODE «, t00=0x00cf, t01=0x0164}
0x144cc…144fa               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,RDSEC3 GET SUBROUTINE ADDRESS«, t00=0x00cf, t01=0x018a}
0x144fa…14504               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x0028}
0x14504…1452c               Head {h00=0x0024, h01=0x0050, text=»* INIT DISC COMMANDS VERSION A3 «, t00=0x00d0, t01=0x0032}
0x1452c…14536               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d0, t01=0x005a}
0x14536…14566               Head {h00=0x002c, h01=0x0050, text=» LDKL A3,DKBA3 BUFFER LENGTH VERSION A3 «, t00=0x00d0, t01=0x0064}
0x14566…14594               Head {h00=0x002a, h01=0x0050, text=» ST A3,SAVCON BUFFER LENGTH VERSION A3«, t00=0x00d0, t01=0x0094}
0x14594…145aa               Head {h00=0x0012, h01=0x0050, text=» ORKL A1,CIO+8«, t00=0x00d0, t01=0x00c2}
0x145aa…145da               Head {h00=0x002c, h01=0x0050, text=» XRKL A1,/500 CONFIG. CIO A4,1,XX INSTR.«, t00=0x00d0, t01=0x00d8}
0x145da…145f0               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEK30 «, t00=0x00d0, t01=0x0108}
0x145f0…1461c               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A4,XX INSTR. «, t00=0x00d0, t01=0x011e}
0x1461c…14632               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEK31 «, t00=0x00d0, t01=0x014a}
0x14632…14660               Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/E00 FORM CIO A2,1,XX INSTR. «, t00=0x00d0, t01=0x0160}
0x14660…14676               Head {h00=0x0012, h01=0x0050, text=» ST A1,READ30 «, t00=0x00d0, t01=0x018e}
0x14676…146a2               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX INSTR. «, t00=0x00d1, t01=0x0014}
0x146a2…146b8               Head {h00=0x0012, h01=0x0050, text=» ST A1,READ31 «, t00=0x00d1, t01=0x0040}
0x146b8…146c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x0056}
0x146c2…146e6               Head {h00=0x0020, h01=0x0050, text=»*  INIT SUBROUTINE ADDRESSES«, t00=0x00d1, t01=0x0060}
0x146e6…146f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d1, t01=0x0084}
0x146f0…14716               Head {h00=0x0022, h01=0x0050, text=»DUI:40 ST A2,READ READ PROGRAM«, t00=0x00d1, t01=0x008e}
0x14716…14742               Head {h00=0x0028, h01=0x0050, text=» ST A2,READS READ CONFIGURATION DATA«, t00=0x00d1, t01=0x00b4}
0x14742…14756               Head {h00=0x0010, h01=0x0050, text=»DUI:50 EQU *«, t00=0x00d1, t01=0x00e0}
0x14756…14766               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00d1, t01=0x00f4}
0x14766…14774               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d1, t01=0x0104}
0x14774…147ac               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00d1, t01=0x0112}
0x147ac…147e4               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d1, t01=0x014a}
0x147e4…1481c               Head {h00=0x0034, h01=0x0050, text=»*  RDSEC - READ ONE SECTOR FROM DISC          * «, t00=0x00d1, t01=0x0182}
0x1481c…14854               Head {h00=0x0034, h01=0x0050, text=»*  =================================          * «, t00=0x00d2, t01=0x002a}
0x14854…1488c               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d2, t01=0x0062}
0x1488c…148c4               Head {h00=0x0034, h01=0x0050, text=»*  REFERENCED IN: SYSLOD                      * «, t00=0x00d2, t01=0x009a}
0x148c4…148fc               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d2, t01=0x00d2}
0x148fc…14922               Head {h00=0x0022, h01=0x0050, text=»*  ENTRY:  A9 = BUFFER ADDRESS«, t00=0x00d2, t01=0x010a}
0x14922…1495a               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d2, t01=0x0130}
0x1495a…14992               Head {h00=0x0034, h01=0x0050, text=»*         A11 - SECTOR NUMBER                 * «, t00=0x00d2, t01=0x0168}
0x14992…149ca               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d3, t01=0x0010}
0x149ca…14a02               Head {h00=0x0034, h01=0x0050, text=»*  EXIT:                                      * «, t00=0x00d3, t01=0x0048}
0x14a02…14a3a               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d3, t01=0x0080}
0x14a3a…14a66               Head {h00=0x0028, h01=0x0050, text=»*   WORK REGISTERS:  A1,A2,A3,A4,A7 «, t00=0x00d3, t01=0x00b8}
0x14a66…14a9e               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d3, t01=0x00e4}
0x14a9e…14ad6               Head {h00=0x0034, h01=0x0050, text=»*  SUBROUTINES:  ERROR                        * «, t00=0x00d3, t01=0x011c}
0x14ad6…14b0e               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00d3, t01=0x0154}
0x14b0e…14b46               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00d3, t01=0x018c}
0x14b46…14b50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x0034}
0x14b50…14b5e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d4, t01=0x003e}
0x14b5e…14b68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x004c}
0x14b68…14b8e               Head {h00=0x0022, h01=0x0050, text=»* READ DISC SECTOR VERSION A2 «, t00=0x00d4, t01=0x0056}
0x14b8e…14b98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d4, t01=0x007c}
0x14b98…14bac               Head {h00=0x0010, h01=0x0050, text=»RDSEC2 EQU *«, t00=0x00d4, t01=0x0086}
0x14bac…14bbe               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x00d4, t01=0x009a}
0x14bbe…14bec               Head {h00=0x002a, h01=0x0050, text=» LDR A1,A11 GET LOGICAL SECTOR NUMBER «, t00=0x00d4, t01=0x00ac}
0x14bec…14c00               Head {h00=0x0010, h01=0x0050, text=»DIV200 EQU *«, t00=0x00d4, t01=0x00da}
0x14c00…14c12               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x00d4, t01=0x00ee}
0x14c12…14c24               Head {h00=0x000e, h01=0x0050, text=» SRL A1,5 «, t00=0x00d4, t01=0x0100}
0x14c24…14c50               Head {h00=0x0028, h01=0x0050, text=» RB(NZ) DIV200 MORE IN SERIE TO ADD «, t00=0x00d4, t01=0x0112}
0x14c50…14c62               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x00d4, t01=0x013e}
0x14c62…14c78               Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FFE0«, t00=0x00d4, t01=0x0150}
0x14c78…14c8a               Head {h00=0x000e, h01=0x0050, text=» SRL A2,5 «, t00=0x00d4, t01=0x0166}
0x14c8a…14c9c               Head {h00=0x000e, h01=0x0050, text=» SUR A1,A2«, t00=0x00d4, t01=0x0178}
0x14c9c…14cb0               Head {h00=0x0010, h01=0x0050, text=» SUR A1,A11 «, t00=0x00d4, t01=0x018a}
0x14cb0…14cc2               Head {h00=0x000e, h01=0x0050, text=» ADK A1,31«, t00=0x00d5, t01=0x000e}
0x14cc2…14cf0               Head {h00=0x002a, h01=0x0050, text=» RF(P) DIV210 NO CORRECTION OF RESULT «, t00=0x00d5, t01=0x0020}
0x14cf0…14d02               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x00d5, t01=0x004e}
0x14d02…14d16               Head {h00=0x0010, h01=0x0050, text=»DIV210 EQU *«, t00=0x00d5, t01=0x0060}
0x14d16…14d48               Head {h00=0x002e, h01=0x0050, text=» LDR A2,A2 A2:=CYL NBR = LOG SEC NBR / 31 «, t00=0x00d5, t01=0x0074}
0x14d48…14d68               Head {h00=0x001c, h01=0x0050, text=» RF(Z) DIV220 CYLINDER 0«, t00=0x00d5, t01=0x00a6}
0x14d68…14d7a               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x00d5, t01=0x00c6}
0x14d7a…14d8e               Head {h00=0x0010, h01=0x0050, text=»DIV220 EQU *«, t00=0x00d5, t01=0x00d8}
0x14d8e…14dc6               Head {h00=0x0034, h01=0x0050, text=» ADR A2,A11 A2:=PHYS. SEC NBR BEFORE INTERLACING«, t00=0x00d5, t01=0x00ec}
0x14dc6…14dd0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d5, t01=0x0124}
0x14dd0…14de2               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x00d5, t01=0x012e}
0x14de2…14df4               Head {h00=0x000e, h01=0x0050, text=» SRL A1,5 «, t00=0x00d5, t01=0x0140}
0x14df4…14e0a               Head {h00=0x0012, h01=0x0050, text=» CW A1,CYLNBR «, t00=0x00d5, t01=0x0152}
0x14e0a…14e34               Head {h00=0x0026, h01=0x0050, text=» RF(E) INT200 SAME CYLINDER NUMBER«, t00=0x00d5, t01=0x0168}
0x14e34…14e4a (214, 0, 400) Head {h00=0x0012, h01=0x0050, text=» ST A1,CYLNBR «, t00=0x00d6, t01=0x0004}
0x14e4a…14e5c               Head {h00=0x000e, h01=0x0050, text=» SLL A1,3 «, t00=0x00d6, t01=0x001a}
0x14e5c…14e78               Head {h00=0x0018, h01=0x0050, text=» ORK A1,2 SET BIT 14«, t00=0x00d6, t01=0x002c}
0x14e78…14e86               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d6, t01=0x0048}
0x14e86…14e90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0056}
0x14e90…14ea8               Head {h00=0x0014, h01=0x0050, text=»* SEEK CYLINDER «, t00=0x00d6, t01=0x0060}
0x14ea8…14eb2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x0078}
0x14eb2…14ecc               Head {h00=0x0016, h01=0x0050, text=»SEEK20 CIO A1,1,0 «, t00=0x00d6, t01=0x0082}
0x14ecc…14ee2               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEK20«, t00=0x00d6, t01=0x009c}
0x14ee2…14eec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x00b2}
0x14eec…14f04               Head {h00=0x0014, h01=0x0050, text=»SEEK21 SST A1,0 «, t00=0x00d6, t01=0x00bc}
0x14f04…14f1a               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEK21«, t00=0x00d6, t01=0x00d4}
0x14f1a…14f24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x00ea}
0x14f24…14f3a               Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x00d6, t01=0x00f4}
0x14f3a…14f44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d6, t01=0x010a}
0x14f44…14f58               Head {h00=0x0010, h01=0x0050, text=»INT200 EQU *«, t00=0x00d6, t01=0x0114}
0x14f58…14f6a               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x00d6, t01=0x0128}
0x14f6a…14f7c               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x00d6, t01=0x013a}
0x14f7c…14fa4               Head {h00=0x0024, h01=0x0050, text=» ADR A2,A1 INTERLACING FACTOR 3 «, t00=0x00d6, t01=0x014c}
0x14fa4…14fb8               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x00d6, t01=0x0174}
0x14fb8…14fe2               Head {h00=0x0026, h01=0x0050, text=» LD A1,CYLNBR GET CYLINDER NUMBER «, t00=0x00d6, t01=0x0188}
0x14fe2…14ff4               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x00d7, t01=0x0022}
0x14ff4…15018               Head {h00=0x0020, h01=0x0050, text=» RF(Z) INT210 EVEN CYLINDER «, t00=0x00d7, t01=0x0034}
0x15018…1502a               Head {h00=0x000e, h01=0x0050, text=» ADK A2,8 «, t00=0x00d7, t01=0x0058}
0x1502a…1503e               Head {h00=0x0010, h01=0x0050, text=»INT210 EQU *«, t00=0x00d7, t01=0x006a}
0x1503e…15052               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x00d7, t01=0x007e}
0x15052…15082               Head {h00=0x002c, h01=0x0050, text=» SLL A2,2 PHYSICAL SECTOR AND ORDER CODE«, t00=0x00d7, t01=0x0092}
0x15082…15098               Head {h00=0x0012, h01=0x0050, text=» ST A2,SECNBR «, t00=0x00d7, t01=0x00c2}
0x15098…150a6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d7, t01=0x00d8}
0x150a6…150b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x00e6}
0x150b0…150c6               Head {h00=0x0012, h01=0x0050, text=»* READ SECTOR «, t00=0x00d7, t01=0x00f0}
0x150c6…150d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d7, t01=0x0106}
0x150d0…150f2               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 BUFFER ADDRESS «, t00=0x00d7, t01=0x0110}
0x150f2…1511e               Head {h00=0x0028, h01=0x0050, text=»READ20 LDKL A4,MUXCC NUMBER OF WORDS«, t00=0x00d7, t01=0x0132}
0x1511e…1514e               Head {h00=0x002c, h01=0x0050, text=»WERIO2 WER A4,/10 WRITE NUMBER OF WORDS «, t00=0x00d7, t01=0x015e}
0x1514e…15176               Head {h00=0x0024, h01=0x0050, text=» WER A1,/11 WRITE BUFFER ADDRESS«, t00=0x00d7, t01=0x018e}
0x15176…1519c               Head {h00=0x0022, h01=0x0050, text=»READ21 CIO A2,1,0 READ SECTOR «, t00=0x00d8, t01=0x0026}
0x1519c…151c6               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READ21 LOOP UNTIL ACCEPTED«, t00=0x00d8, t01=0x004c}
0x151c6…151e4               Head {h00=0x001a, h01=0x0050, text=»READ22 SST A2,0 STATUS«, t00=0x00d8, t01=0x0076}
0x151e4…1520e               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READ22 LOOP UNTIL ACCEPTED«, t00=0x00d8, t01=0x0094}
0x1520e…15222               Head {h00=0x0010, h01=0x0050, text=»CRCCHK EQU *«, t00=0x00d8, t01=0x00be}
0x15222…1523c               Head {h00=0x0016, h01=0x0050, text=» ANK A2,/1F STATUS«, t00=0x00d8, t01=0x00d2}
0x1523c…15260               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DUERR READING ERROR «, t00=0x00d8, t01=0x00ec}
0x15260…1528c               Head {h00=0x0028, h01=0x0050, text=» ADKL A11,1 INCREMENT SECTOR COUNTER«, t00=0x00d8, t01=0x0110}
0x1528c…1529c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00d8, t01=0x013c}
0x1529c…152aa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d8, t01=0x014c}
0x152aa…152b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x015a}
0x152b4…152da               Head {h00=0x0022, h01=0x0050, text=»* READ DISC SECTOR VERSION A3 «, t00=0x00d8, t01=0x0164}
0x152da…152e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d8, t01=0x018a}
0x152e4…152f8 (217, 0, 400) Head {h00=0x0010, h01=0x0050, text=»RDSEC3 EQU *«, t00=0x00d9, t01=0x0004}
0x152f8…1530a               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x00d9, t01=0x0018}
0x1530a…15338               Head {h00=0x002a, h01=0x0050, text=» LDR A1,A11 GET LOGICAL SECTOR NUMBER «, t00=0x00d9, t01=0x002a}
0x15338…1534e               Head {h00=0x0012, h01=0x0050, text=» LDKL A7,/1000«, t00=0x00d9, t01=0x0058}
0x1534e…15364               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/3000«, t00=0x00d9, t01=0x006e}
0x15364…15378               Head {h00=0x0010, h01=0x0050, text=»DIV300 EQU *«, t00=0x00d9, t01=0x0084}
0x15378…1538a               Head {h00=0x000e, h01=0x0050, text=» SUR A1,A4«, t00=0x00d9, t01=0x0098}
0x1538a…153a0               Head {h00=0x0012, h01=0x0050, text=» RF(N) DIV310 «, t00=0x00d9, t01=0x00aa}
0x153a0…153b2               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A7«, t00=0x00d9, t01=0x00c0}
0x153b2…153c4               Head {h00=0x000e, h01=0x0050, text=» RB DIV300«, t00=0x00d9, t01=0x00d2}
0x153c4…153d8               Head {h00=0x0010, h01=0x0050, text=»DIV310 EQU *«, t00=0x00d9, t01=0x00e4}
0x153d8…153fa               Head {h00=0x001e, h01=0x0050, text=» ADR A1,A4 ADJUST DIVIDEND«, t00=0x00d9, t01=0x00f8}
0x153fa…1540c               Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x00d9, t01=0x011a}
0x1540c…1541e               Head {h00=0x000e, h01=0x0050, text=» SRL A7,4 «, t00=0x00d9, t01=0x012c}
0x1541e…15434               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DIV300«, t00=0x00d9, t01=0x013e}
0x15434…15446               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x00d9, t01=0x0154}
0x15446…15450               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00d9, t01=0x0166}
0x15450…15462               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x00d9, t01=0x0170}
0x15462…15478               Head {h00=0x0012, h01=0x0050, text=» ST A1,SAVMEM «, t00=0x00d9, t01=0x0182}
0x15478…154b2               Head {h00=0x0036, h01=0x0050, text=» RF(NP) CASE10 ,XXXX  ,      , OR ,    XX,XX    , «, t00=0x00da, t01=0x0008}
0x154b2…154d4               Head {h00=0x001e, h01=0x0050, text=» ADK A2,1 ,      ,  XXXX, «, t00=0x00da, t01=0x0042}
0x154d4…154e8               Head {h00=0x0010, h01=0x0050, text=»CASE10 EQU *«, t00=0x00da, t01=0x0064}
0x154e8…154fa               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x00da, t01=0x0078}
0x154fa…1550c               Head {h00=0x000e, h01=0x0050, text=» SRL A4,5 «, t00=0x00da, t01=0x008a}
0x1550c…15522               Head {h00=0x0012, h01=0x0050, text=» CW A4,CYLNBR «, t00=0x00da, t01=0x009c}
0x15522…15538               Head {h00=0x0012, h01=0x0050, text=» RF(E) INT300 «, t00=0x00da, t01=0x00b2}
0x15538…15568               Head {h00=0x002c, h01=0x0050, text=» ST A4,CYLNBR STORE NEW CYLINDER NUMBER «, t00=0x00da, t01=0x00c8}
0x15568…1557a               Head {h00=0x000e, h01=0x0050, text=» SLL A4,3 «, t00=0x00da, t01=0x00f8}
0x1557a…15596               Head {h00=0x0018, h01=0x0050, text=» ORK A4,2 SET BIT 14«, t00=0x00da, t01=0x010a}
0x15596…155a4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00da, t01=0x0126}
0x155a4…155ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x0134}
0x155ae…155c6               Head {h00=0x0014, h01=0x0050, text=»* SEEK CYLINDER «, t00=0x00da, t01=0x013e}
0x155c6…155d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x0156}
0x155d0…155ea               Head {h00=0x0016, h01=0x0050, text=»SEEK30 CIO A4,1,0 «, t00=0x00da, t01=0x0160}
0x155ea…15600               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEK30«, t00=0x00da, t01=0x017a}
0x15600…1560a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00da, t01=0x0190}
0x1560a…1562c               Head {h00=0x001e, h01=0x0050, text=»SEEK31 SST A4,0 GET STATUS«, t00=0x00db, t01=0x000a}
0x1562c…15642               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEK31«, t00=0x00db, t01=0x002c}
0x15642…1564c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x0042}
0x1564c…15662               Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x00db, t01=0x004c}
0x15662…1566c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x0062}
0x1566c…15680               Head {h00=0x0010, h01=0x0050, text=»INT300 EQU *«, t00=0x00db, t01=0x006c}
0x15680…15692               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x00db, t01=0x0080}
0x15692…156a4               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x00db, t01=0x0092}
0x156a4…156cc               Head {h00=0x0024, h01=0x0050, text=» ADR A2,A3 INTERLACING FACTOR 3 «, t00=0x00db, t01=0x00a4}
0x156cc…156e0               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x00db, t01=0x00cc}
0x156e0…1570a               Head {h00=0x0026, h01=0x0050, text=» LD A4,CYLNBR GET CYLINDER NUMBER «, t00=0x00db, t01=0x00e0}
0x1570a…1571c               Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x00db, t01=0x010a}
0x1571c…15746               Head {h00=0x0026, h01=0x0050, text=» RF(Z) INT310 EVEN CYLINDER NUMBER«, t00=0x00db, t01=0x011c}
0x15746…1576c               Head {h00=0x0022, h01=0x0050, text=» ADK A2,8 SKEW FACTOR 180 DEG.«, t00=0x00db, t01=0x0146}
0x1576c…15776               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00db, t01=0x016c}
0x15776…1578a               Head {h00=0x0010, h01=0x0050, text=»INT310 EQU *«, t00=0x00db, t01=0x0176}
0x1578a…1579e               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x00db, t01=0x018a}
0x1579e…157c8               Head {h00=0x0026, h01=0x0050, text=» SLL A2,2 INTERLACED SECTOR NUMBER«, t00=0x00dc, t01=0x000e}
0x157c8…157fa               Head {h00=0x002e, h01=0x0050, text=» ST A2,SECNBR STORE PHYSICAL SECTOR NUMBER«, t00=0x00dc, t01=0x0038}
0x157fa…15808               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00dc, t01=0x006a}
0x15808…15812               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x0078}
0x15812…15828               Head {h00=0x0012, h01=0x0050, text=»* READ SECTOR «, t00=0x00dc, t01=0x0082}
0x15828…15832               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x0098}
0x15832…15854               Head {h00=0x001e, h01=0x0050, text=» LDR A7,A9 BUFFER ADDRESS «, t00=0x00dc, t01=0x00a2}
0x15854…15882               Head {h00=0x002a, h01=0x0050, text=»READ34 LDKL A4,MXCCD3 NUMBER OF WORDS «, t00=0x00dc, t01=0x00c4}
0x15882…158b2               Head {h00=0x002c, h01=0x0050, text=»WERIO3 WER A4,/10 WRITE NUMBER OF WORDS «, t00=0x00dc, t01=0x00f2}
0x158b2…158da               Head {h00=0x0024, h01=0x0050, text=» WER A7,/11 WRITE BUFFER ADDRESS«, t00=0x00dc, t01=0x0122}
0x158da…158e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dc, t01=0x014a}
0x158e4…1590a               Head {h00=0x0022, h01=0x0050, text=»READ30 CIO A2,1,0 READ SECTOR «, t00=0x00dc, t01=0x0154}
0x1590a…15934               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READ30 LOOP UNTIL ACCEPTED«, t00=0x00dc, t01=0x017a}
0x15934…1593e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00dd, t01=0x0014}
0x1593e…15960               Head {h00=0x001e, h01=0x0050, text=»READ31 SST A2,0 GET STATUS«, t00=0x00dd, t01=0x001e}
0x15960…1598a               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READ31 LOOP UNTIL ACCEPTED«, t00=0x00dd, t01=0x0040}
0x1598a…159a4               Head {h00=0x0016, h01=0x0050, text=» ANK A2,/1F STATUS«, t00=0x00dd, t01=0x006a}
0x159a4…159c8               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DUERR READING ERROR «, t00=0x00dd, t01=0x0084}
0x159c8…159ea               Head {h00=0x001e, h01=0x0050, text=» LDR A2,A9 BUFFER ADDRESS «, t00=0x00dd, t01=0x00a8}
0x159ea…159fc               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x00dd, t01=0x00ca}
0x159fc…15a22               Head {h00=0x0022, h01=0x0050, text=» RF(N) RETURN ,XXXX  ,      , «, t00=0x00dd, t01=0x00dc}
0x15a22…15a48               Head {h00=0x0022, h01=0x0050, text=» RF(P) READ33 ,      ,  XXXX, «, t00=0x00dd, t01=0x0102}
0x15a48…15a6c               Head {h00=0x0020, h01=0x0050, text=» ADKL A2,256 SOURCE POINTER «, t00=0x00dd, t01=0x0128}
0x15a6c…15a96               Head {h00=0x0026, h01=0x0050, text=» LDK A4,64 NUMBER OF WORDS TO MOVE«, t00=0x00dd, t01=0x014c}
0x15a96…15aba               Head {h00=0x0020, h01=0x0050, text=»READ32 EQU * ,    XX,XX    ,«, t00=0x00dd, t01=0x0176}
0x15aba…15ace               Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A2 «, t00=0x00de, t01=0x000a}
0x15ace…15ae0               Head {h00=0x000e, h01=0x0050, text=» STR A1,A7«, t00=0x00de, t01=0x001e}
0x15ae0…15af2               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00de, t01=0x0030}
0x15af2…15b04               Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x00de, t01=0x0042}
0x15b04…15b16               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x00de, t01=0x0054}
0x15b16…15b3c               Head {h00=0x0022, h01=0x0050, text=» RB(NZ) READ32 CONTINUE MOVING«, t00=0x00de, t01=0x0066}
0x15b3c…15b52               Head {h00=0x0012, h01=0x0050, text=» LD A1,SAVMEM «, t00=0x00de, t01=0x008c}
0x15b52…15b68               Head {h00=0x0012, h01=0x0050, text=» RF(P) RETURN «, t00=0x00de, t01=0x00a2}
0x15b68…15b94               Head {h00=0x0028, h01=0x0050, text=» LD A2,SECNBR PHYSICAL SECTOR NUMBER«, t00=0x00de, t01=0x00b8}
0x15b94…15bba               Head {h00=0x0022, h01=0x0050, text=» ADK A2,/C NEW SECTOR TO READ «, t00=0x00de, t01=0x00e4}
0x15bba…15bce               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7C «, t00=0x00de, t01=0x010a}
0x15bce…15be0               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x00de, t01=0x011e}
0x15be0…15bf2               Head {h00=0x000e, h01=0x0050, text=» RB READ34«, t00=0x00de, t01=0x0130}
0x15bf2…15c00               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00de, t01=0x0142}
0x15c00…15c14               Head {h00=0x0010, h01=0x0050, text=»READ33 EQU *«, t00=0x00de, t01=0x0150}
0x15c14…15c36               Head {h00=0x001e, h01=0x0050, text=» ADK A2,128 SOURCE POINTER«, t00=0x00de, t01=0x0164}
0x15c36…15c62               Head {h00=0x0028, h01=0x0050, text=» LDK A4,128 NUMBER OF WORDS TO MOVE «, t00=0x00de, t01=0x0186}
0x15c62…15c74               Head {h00=0x000e, h01=0x0050, text=» RB READ32«, t00=0x00df, t01=0x0022}
0x15c74…15ca6               Head {h00=0x002e, h01=0x0050, text=»RETURN ADKL A11,1 INCREMENT SECTOR NUMBER «, t00=0x00df, t01=0x0034}
0x15ca6…15cb6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00df, t01=0x0066}
0x15cb6…15cbe               Head {h00=0x0004, h01=0x0050, t00=0x00df, t01=0x0076}
0x15cbe…15cd2               Head {h00=0x0010, h01=0x0050, text=»DUERR EQU * «, t00=0x00df, t01=0x007e}
0x15cd2…15ce8               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x00df, t01=0x0092}
0x15ce8…15cfc               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00df, t01=0x00a8}
0x15cfc…15d08               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00df, t01=0x00bc}
0x15d08…15d1e               Head {h00=0x0012, h01=0x0050, text=» IFT MFDISC=1 «, t00=0x00df, t01=0x00c8}
0x15d1e…15d2c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00df, t01=0x00de}
0x15d2c…15d6c               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x00df, t01=0x00ec}
0x15d6c…15dac               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00df, t01=0x012c}
0x15dac…15dec               Head {h00=0x003c, h01=0x0050, text=»*  MDINIT - INITIALIZE MINI FIXED DISC UNIT            *«, t00=0x00df, t01=0x016c}
0x15dec…15e2c               Head {h00=0x003c, h01=0x0050, text=»*  =======================================             *«, t00=0x00e0, t01=0x001c}
0x15e2c…15e6c               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e0, t01=0x005c}
0x15e6c…15eac               Head {h00=0x003c, h01=0x0050, text=»*  REFERENCED IN: SYSLOD,GETFIL                        *«, t00=0x00e0, t01=0x009c}
0x15eac…15eec               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e0, t01=0x00dc}
0x15eec…15f2c               Head {h00=0x003c, h01=0x0050, text=»*  ENTRY:  A1 = DEVICE ADDRESS                         *«, t00=0x00e0, t01=0x011c}
0x15f2c…15f6c               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e0, t01=0x015c}
0x15f6c…15fac               Head {h00=0x003c, h01=0x0050, text=»*  EXIT:                                               *«, t00=0x00e1, t01=0x000c}
0x15fac…15fec               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e1, t01=0x004c}
0x15fec…1602c               Head {h00=0x003c, h01=0x0050, text=»*  WORK REGISTERS:                                     *«, t00=0x00e1, t01=0x008c}
0x1602c…1606c               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e1, t01=0x00cc}
0x1606c…160ac               Head {h00=0x003c, h01=0x0050, text=»*  SUBROUTINES: ERROR                                  *«, t00=0x00e1, t01=0x010c}
0x160ac…160ec               Head {h00=0x003c, h01=0x0050, text=»*                                                      *«, t00=0x00e1, t01=0x014c}
0x160ec…1612c               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x00e1, t01=0x018c}
0x1612c…16140               Head {h00=0x0010, h01=0x0050, text=»MDINIT EQU *«, t00=0x00e2, t01=0x003c}
0x16140…1614a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x0050}
0x1614a…16172               Head {h00=0x0024, h01=0x0050, text=»* INIT MINI FIXED DISC COMMANDS «, t00=0x00e2, t01=0x005a}
0x16172…1617c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x0082}
0x1617c…16190               Head {h00=0x0010, h01=0x0050, text=»MDI:00 EQU *«, t00=0x00e2, t01=0x008c}
0x16190…161c0               Head {h00=0x002c, h01=0x0050, text=» ORKL A1,CIO CONFIG. CIO A1,1,XX INSTR. «, t00=0x00e2, t01=0x00a0}
0x161c0…161d6               Head {h00=0x0012, h01=0x0050, text=» ST A1,READM2 «, t00=0x00e2, t01=0x00d0}
0x161d6…16202               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A1,XX INSTR. «, t00=0x00e2, t01=0x00e6}
0x16202…16218               Head {h00=0x0012, h01=0x0050, text=» ST A1,READM3 «, t00=0x00e2, t01=0x0112}
0x16218…16246               Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/B00 FORM CIO A2,1,XX INSTR. «, t00=0x00e2, t01=0x0128}
0x16246…1625c               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKM1 «, t00=0x00e2, t01=0x0156}
0x1625c…16288               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX INSTR. «, t00=0x00e2, t01=0x016c}
0x16288…1629e               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKM2 «, t00=0x00e3, t01=0x0008}
0x1629e…162ac               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e3, t01=0x001e}
0x162ac…162b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e3, t01=0x002c}
0x162b6…162e4               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,MRDSEC GET SUBROUTINE ADDRESS«, t00=0x00e3, t01=0x0036}
0x162e4…162f8               Head {h00=0x0010, h01=0x0050, text=» ST A2,READ «, t00=0x00e3, t01=0x0064}
0x162f8…1630c               Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x00e3, t01=0x0078}
0x1630c…1631c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00e3, t01=0x008c}
0x1631c…1632a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e3, t01=0x009c}
0x1632a…16368               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x00e3, t01=0x00aa}
0x16368…163a6               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e3, t01=0x00e8}
0x163a6…163e4               Head {h00=0x003a, h01=0x0050, text=»*  MRDSEC - READ ONE SECTOR FROM MINI FIXED DISC     *«, t00=0x00e3, t01=0x0126}
0x163e4…16422               Head {h00=0x003a, h01=0x0050, text=»*  =============================================     *«, t00=0x00e3, t01=0x0164}
0x16422…16460               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e4, t01=0x0012}
0x16460…1649e               Head {h00=0x003a, h01=0x0050, text=»*  REFERENCED IN: SYSLOD                             *«, t00=0x00e4, t01=0x0050}
0x1649e…164dc               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e4, t01=0x008e}
0x164dc…1651a               Head {h00=0x003a, h01=0x0050, text=»*  ENTRY:  A9 = BUFFER ADDRESS                       *«, t00=0x00e4, t01=0x00cc}
0x1651a…16558               Head {h00=0x003a, h01=0x0050, text=»*          A11 = SECTOR NUMBER                       *«, t00=0x00e4, t01=0x010a}
0x16558…16596               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e4, t01=0x0148}
0x16596…165d4               Head {h00=0x003a, h01=0x0050, text=»*  EXIT:                                             *«, t00=0x00e4, t01=0x0186}
0x165d4…16612               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e5, t01=0x0034}
0x16612…16650               Head {h00=0x003a, h01=0x0050, text=»*  WORK REGISTERS:                                   *«, t00=0x00e5, t01=0x0072}
0x16650…1668e               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e5, t01=0x00b0}
0x1668e…166cc               Head {h00=0x003a, h01=0x0050, text=»*  SUBROUTINES:                                      *«, t00=0x00e5, t01=0x00ee}
0x166cc…1670a               Head {h00=0x003a, h01=0x0050, text=»*                                                    *«, t00=0x00e5, t01=0x012c}
0x1670a…16748               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x00e5, t01=0x016a}
0x16748…1675c               Head {h00=0x0010, h01=0x0050, text=»MRDSEC EQU *«, t00=0x00e6, t01=0x0018}
0x1675c…16782               Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 PREPARE FOR DIVISION«, t00=0x00e6, t01=0x002c}
0x16782…167b0               Head {h00=0x002a, h01=0x0050, text=» LDR A2,A11 GET LOGICAL SECTOR NUMBER «, t00=0x00e6, t01=0x0052}
0x167b0…167ce               Head {h00=0x001a, h01=0x0050, text=» DVK 104 DIVIDE BY 104«, t00=0x00e6, t01=0x0080}
0x167ce…167e0               Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x00e6, t01=0x009e}
0x167e0…16804               Head {h00=0x0020, h01=0x0050, text=» ORK A2,3 SET BIT 14 AND 15 «, t00=0x00e6, t01=0x00b0}
0x16804…1680e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x00d4}
0x1680e…16834               Head {h00=0x0022, h01=0x0050, text=»* A1=SECTOR NUMBER ON CYLINDER«, t00=0x00e6, t01=0x00de}
0x16834…16850               Head {h00=0x0018, h01=0x0050, text=»* A2=CYLINDER NUMBER«, t00=0x00e6, t01=0x0104}
0x16850…1685a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e6, t01=0x0120}
0x1685a…16884               Head {h00=0x0026, h01=0x0050, text=» ST A1,SECNBR STORE SECTOR NUMBER «, t00=0x00e6, t01=0x012a}
0x16884…1689a               Head {h00=0x0012, h01=0x0050, text=» CW A2,CYLNBR «, t00=0x00e6, t01=0x0154}
0x1689a…168c4               Head {h00=0x0026, h01=0x0050, text=» RF(E) INTM10 SAME CYLINDER NUMBER«, t00=0x00e6, t01=0x016a}
0x168c4…168f0 (231, 0, 400) Head {h00=0x0028, h01=0x0050, text=» ST A2,CYLNBR STORE CYLINDER NUMBER «, t00=0x00e7, t01=0x0004}
0x168f0…168fe               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e7, t01=0x0030}
0x168fe…16908               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x003e}
0x16908…16920               Head {h00=0x0014, h01=0x0050, text=»* SEEK CYLINDER «, t00=0x00e7, t01=0x0048}
0x16920…1692a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x0060}
0x1692a…16950               Head {h00=0x0022, h01=0x0050, text=»SEEKM1 CIO A2,1,0 SEEK COMMAND«, t00=0x00e7, t01=0x006a}
0x16950…1697a               Head {h00=0x0026, h01=0x0050, text=» RB(NA) SEEKM1 LOOP UNTIL ACCEPTED«, t00=0x00e7, t01=0x0090}
0x1697a…16984               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x00ba}
0x16984…169a6               Head {h00=0x001e, h01=0x0050, text=»SEEKM2 SST A2,0 GET STATUS«, t00=0x00e7, t01=0x00c4}
0x169a6…169d0               Head {h00=0x0026, h01=0x0050, text=» RB(NA) SEEKM2 WAIT UNTIL ACCEPTED«, t00=0x00e7, t01=0x00e6}
0x169d0…169da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x0110}
0x169da…169f0               Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x00e7, t01=0x011a}
0x169f0…169fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e7, t01=0x0130}
0x169fa…16a0e               Head {h00=0x0010, h01=0x0050, text=»INTM10 EQU *«, t00=0x00e7, t01=0x013a}
0x16a0e…16a20               Head {h00=0x000e, h01=0x0050, text=» CWK A1,52«, t00=0x00e7, t01=0x014e}
0x16a20…16a42               Head {h00=0x001e, h01=0x0050, text=» RF(L) INTM20 SECTOR 0-51 «, t00=0x00e7, t01=0x0160}
0x16a42…16a62               Head {h00=0x001c, h01=0x0050, text=» SUK A1,52 SECTOR 52-103«, t00=0x00e7, t01=0x0182}
0x16a62…16a76               Head {h00=0x0010, h01=0x0050, text=»INTM20 EQU *«, t00=0x00e8, t01=0x0012}
0x16a76…16a88               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x00e8, t01=0x0026}
0x16a88…16aae               Head {h00=0x0022, h01=0x0050, text=» SLL A2,2 A2:=4*SECTOR NUMBER «, t00=0x00e8, t01=0x0038}
0x16aae…16ad4               Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 PREPARE FOR DIVISION«, t00=0x00e8, t01=0x005e}
0x16ad4…16ae4               Head {h00=0x000c, h01=0x0050, text=» DVK 52 «, t00=0x00e8, t01=0x0084}
0x16ae4…16b14               Head {h00=0x002c, h01=0x0050, text=» ADR A1,A2 A1:=INTERLACED SECTOR NUMBER «, t00=0x00e8, t01=0x0094}
0x16b14…16b1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x00c4}
0x16b1e…16b44               Head {h00=0x0022, h01=0x0050, text=»* A1:=INTERLACED SECTOR NUMBER«, t00=0x00e8, t01=0x00ce}
0x16b44…16b4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e8, t01=0x00f4}
0x16b4e…16b78               Head {h00=0x0026, h01=0x0050, text=» LD A2,CYLNBR GET CYLINDER NUMBER «, t00=0x00e8, t01=0x00fe}
0x16b78…16b8a               Head {h00=0x000e, h01=0x0050, text=» SRC A2,3 «, t00=0x00e8, t01=0x0128}
0x16b8a…16bb6               Head {h00=0x0028, h01=0x0050, text=» RF(NN) INTM30 EVEN CYLINDER NUMBER «, t00=0x00e8, t01=0x013a}
0x16bb6…16bd8               Head {h00=0x001e, h01=0x0050, text=» SUK A1,26 SKEW FACTOR 26 «, t00=0x00e8, t01=0x0166}
0x16bd8…16bee               Head {h00=0x0012, h01=0x0050, text=» RF(NN) INTM30«, t00=0x00e8, t01=0x0188}
0x16bee…16c00               Head {h00=0x000e, h01=0x0050, text=» ADK A1,52«, t00=0x00e9, t01=0x000e}
0x16c00…16c14               Head {h00=0x0010, h01=0x0050, text=»INTM30 EQU *«, t00=0x00e9, t01=0x0020}
0x16c14…16c26               Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x00e9, t01=0x0034}
0x16c26…16c60               Head {h00=0x0036, h01=0x0050, text=» LD A2,SECNBR GET SECTOR NUMBER BEFORE INTERLACING«, t00=0x00e9, t01=0x0046}
0x16c60…16c72               Head {h00=0x000e, h01=0x0050, text=» CWK A2,52«, t00=0x00e9, t01=0x0080}
0x16c72…16c96               Head {h00=0x0020, h01=0x0050, text=» RF(L) INTM40 HEAD NUMBER 0 «, t00=0x00e9, t01=0x0092}
0x16c96…16cba               Head {h00=0x0020, h01=0x0050, text=» ORKL A1,/4000 HEAD NUMBER 1«, t00=0x00e9, t01=0x00b6}
0x16cba…16cce               Head {h00=0x0010, h01=0x0050, text=»INTM40 EQU *«, t00=0x00e9, t01=0x00da}
0x16cce…16cd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x00ee}
0x16cd8…16cee               Head {h00=0x0012, h01=0x0050, text=»* READ SECTOR «, t00=0x00e9, t01=0x00f8}
0x16cee…16cf8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x010e}
0x16cf8…16d0c               Head {h00=0x0010, h01=0x0050, text=»READM1 EQU *«, t00=0x00e9, t01=0x0118}
0x16d0c…16d32               Head {h00=0x0022, h01=0x0050, text=» LDKL A4,MUXCC NUMBER OF WORDS«, t00=0x00e9, t01=0x012c}
0x16d32…16d54               Head {h00=0x001e, h01=0x0050, text=» LDR A7,A9 BUFFER ADDRESS «, t00=0x00e9, t01=0x0152}
0x16d54…16d5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e9, t01=0x0174}
0x16d5e…16d8c               Head {h00=0x002a, h01=0x0050, text=»WERIOM WER A4,8 WRITE NUMBER OF WORDS «, t00=0x00e9, t01=0x017e}
0x16d8c…16db2               Head {h00=0x0022, h01=0x0050, text=» WER A7,9 WRITE BUFFER ADDRESS«, t00=0x00ea, t01=0x001c}
0x16db2…16dbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x0042}
0x16dbc…16de2               Head {h00=0x0022, h01=0x0050, text=»READM2 CIO A1,1,0 READ SECTOR «, t00=0x00ea, t01=0x004c}
0x16de2…16e0c               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READM2 LOOP UNTIL ACCEPTED«, t00=0x00ea, t01=0x0072}
0x16e0c…16e16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ea, t01=0x009c}
0x16e16…16e38               Head {h00=0x001e, h01=0x0050, text=»READM3 SST A1,0 GET STATUS«, t00=0x00ea, t01=0x00a6}
0x16e38…16e62               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READM3 LOOP UNTIL ACCEPTED«, t00=0x00ea, t01=0x00c8}
0x16e62…16e7c               Head {h00=0x0016, h01=0x0050, text=» ANK A1,/1F STATUS«, t00=0x00ea, t01=0x00f2}
0x16e7c…16ea0               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) MFDERR READING ERROR«, t00=0x00ea, t01=0x010c}
0x16ea0…16ecc               Head {h00=0x0028, h01=0x0050, text=» ADKL A11,1 INCREMENT SECTOR NUMBER «, t00=0x00ea, t01=0x0130}
0x16ecc…16edc               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00ea, t01=0x015c}
0x16edc…16ee4               Head {h00=0x0004, h01=0x0050, t00=0x00ea, t01=0x016c}
0x16ee4…16ef8               Head {h00=0x0010, h01=0x0050, text=»MFDERR EQU *«, t00=0x00ea, t01=0x0174}
0x16ef8…16f0e               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x00ea, t01=0x0188}
0x16f0e…16f22               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00eb, t01=0x000e}
0x16f22…16f2e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00eb, t01=0x0022}
0x16f2e…16f44               Head {h00=0x0012, h01=0x0050, text=» IFT FLDISC=1 «, t00=0x00eb, t01=0x002e}
0x16f44…16f52               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00eb, t01=0x0044}
0x16f52…16f8a               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00eb, t01=0x0052}
0x16f8a…16fc2               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00eb, t01=0x008a}
0x16fc2…16ffa               Head {h00=0x0034, h01=0x0050, text=»*  FDINIT - INITIALIZE FLEXIBLE DISC           *«, t00=0x00eb, t01=0x00c2}
0x16ffa…17032               Head {h00=0x0034, h01=0x0050, text=»*  =================================           *«, t00=0x00eb, t01=0x00fa}
0x17032…1706a               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00eb, t01=0x0132}
0x1706a…170a2               Head {h00=0x0034, h01=0x0050, text=»*  REFERENCED IN: SYSLOD,GETFIL                *«, t00=0x00eb, t01=0x016a}
0x170a2…170da               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00ec, t01=0x0012}
0x170da…17112               Head {h00=0x0034, h01=0x0050, text=»*  ENTRY:  A1 - DEVICE ADDRESS                 *«, t00=0x00ec, t01=0x004a}
0x17112…1714a               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00ec, t01=0x0082}
0x1714a…17182               Head {h00=0x0034, h01=0x0050, text=»*  EXIT:                                       *«, t00=0x00ec, t01=0x00ba}
0x17182…171ba               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00ec, t01=0x00f2}
0x171ba…171f2               Head {h00=0x0034, h01=0x0050, text=»*  WORK REGISTERS:                             *«, t00=0x00ec, t01=0x012a}
0x171f2…1722a               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00ec, t01=0x0162}
0x1722a…17262               Head {h00=0x0034, h01=0x0050, text=»*  SUBROUTINES:                                *«, t00=0x00ed, t01=0x000a}
0x17262…1729a               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x00ed, t01=0x0042}
0x1729a…172d2               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00ed, t01=0x007a}
0x172d2…172e6               Head {h00=0x0010, h01=0x0050, text=»FDINIT EQU *«, t00=0x00ed, t01=0x00b2}
0x172e6…172fa               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/10 «, t00=0x00ed, t01=0x00c6}
0x172fa…1732e               Head {h00=0x0030, h01=0x0050, text=» ORKL A1,CIO+9 CONFIG. CIO+9 A1,1,XX INSTR. «, t00=0x00ed, t01=0x00da}
0x1732e…17344               Head {h00=0x0012, h01=0x0050, text=» ST A1,FRD:10 «, t00=0x00ed, t01=0x010e}
0x17344…17384               Head {h00=0x003c, h01=0x0050, text=» LDKL A2,FRDS25 ADDRESS TO READ ON 0,25 MEG FLOPPY DRIVE«, t00=0x00ed, t01=0x0124}
0x17384…173a0               Head {h00=0x0018, h01=0x0050, text=» LDK A1,3 SEEK ORDER«, t00=0x00ed, t01=0x0164}
0x173a0…173c0               Head {h00=0x001c, h01=0x0050, text=» EX FRD:10 SEEK TO ZERO «, t00=0x00ed, t01=0x0180}
0x173c0…173d4               Head {h00=0x0010, h01=0x0050, text=»FDI:05 EQU *«, t00=0x00ee, t01=0x0010}
0x173d4…173e6               Head {h00=0x000e, h01=0x0050, text=» EX SEKSST«, t00=0x00ee, t01=0x0024}
0x173e6…173fc               Head {h00=0x0012, h01=0x0050, text=» RB(NA) FDI:05«, t00=0x00ee, t01=0x0036}
0x173fc…17406               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x004c}
0x17406…1741a               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/10 «, t00=0x00ee, t01=0x0056}
0x1741a…17446               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) FDI:10 0.25 MEG FLOPPY DRIVE«, t00=0x00ee, t01=0x006a}
0x17446…17450               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ee, t01=0x0096}
0x17450…17482               Head {h00=0x002e, h01=0x0050, text=» LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 «, t00=0x00ee, t01=0x00a0}
0x17482…174ae               Head {h00=0x0028, h01=0x0050, text=» ST A1,FRD:20 MODIFY INR INSTRUCTION«, t00=0x00ee, t01=0x00d2}
0x174ae…174c4               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/41F «, t00=0x00ee, t01=0x00fe}
0x174c4…174ea               Head {h00=0x0022, h01=0x0050, text=» ST A1,FRD:42 MODIFY SST MASK «, t00=0x00ee, t01=0x0114}
0x174ea…17500               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/C00 «, t00=0x00ee, t01=0x013a}
0x17500…1752a               Head {h00=0x0026, h01=0x0050, text=» ST A1,RELEAS MODIFY RELEAS ORDER «, t00=0x00ee, t01=0x0150}
0x1752a…17568               Head {h00=0x003a, h01=0x0050, text=» LDKL A2,FRDSEC ADDRESS TO READ ON 1 MEG FLOPPY DRIVE «, t00=0x00ee, t01=0x017a}
0x17568…1757c               Head {h00=0x0010, h01=0x0050, text=»FDI:10 EQU *«, t00=0x00ef, t01=0x0028}
0x1757c…17590               Head {h00=0x0010, h01=0x0050, text=» ST A2,READ «, t00=0x00ef, t01=0x003c}
0x17590…175a4               Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x00ef, t01=0x0050}
0x175a4…175cc               Head {h00=0x0024, h01=0x0050, text=» CF A14,GETVLB GET VOLUME LABEL «, t00=0x00ef, t01=0x0064}
0x175cc…175f0               Head {h00=0x0020, h01=0x0050, text=» LD A1,FORDEV,A9 GET FORMAT «, t00=0x00ef, t01=0x008c}
0x175f0…1760c               Head {h00=0x0018, h01=0x0050, text=» ST A1,DEVTYP+STKEND«, t00=0x00ef, t01=0x00b0}
0x1760c…1761c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00ef, t01=0x00cc}
0x1761c…1762a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ef, t01=0x00dc}
0x1762a…1765e               Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00ef, t01=0x00ea}
0x1765e…17692               Head {h00=0x0030, h01=0x0050, text=»*                                          *«, t00=0x00ef, t01=0x011e}
0x17692…176c6               Head {h00=0x0030, h01=0x0050, text=»*                                          *«, t00=0x00ef, t01=0x0152}
0x176c6…176fa               Head {h00=0x0030, h01=0x0050, text=»*     UNLOCK - UNLOCK FLEXIBLE DISC        *«, t00=0x00ef, t01=0x0186}
0x176fa…1772e               Head {h00=0x0030, h01=0x0050, text=»*     =============================        *«, t00=0x00f0, t01=0x002a}
0x1772e…17762               Head {h00=0x0030, h01=0x0050, text=»*                                          *«, t00=0x00f0, t01=0x005e}
0x17762…17796               Head {h00=0x0030, h01=0x0050, text=»*     ON ENTRY: A1 = DEVICE ADDRESS        *«, t00=0x00f0, t01=0x0092}
0x17796…177ca               Head {h00=0x0030, h01=0x0050, text=»*                                          *«, t00=0x00f0, t01=0x00c6}
0x177ca…177fe               Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00f0, t01=0x00fa}
0x177fe…17806               Head {h00=0x0004, h01=0x0050, t00=0x00f0, t01=0x012e}
0x17806…1780e               Head {h00=0x0004, h01=0x0050, t00=0x00f0, t01=0x0136}
0x1780e…17822               Head {h00=0x0010, h01=0x0050, text=»UNLOCK EQU *«, t00=0x00f0, t01=0x013e}
0x17822…1784a               Head {h00=0x0024, h01=0x0050, text=» CF A14,FDINIT INIT UNLOCK ORDER«, t00=0x00f0, t01=0x0152}
0x1784a…17860               Head {h00=0x0012, h01=0x0050, text=»RELEAS EQU *+2«, t00=0x00f0, t01=0x017a}
0x17860…17874               Head {h00=0x0010, h01=0x0050, text=» LDKL A1,/C «, t00=0x00f0, t01=0x0190}
0x17874…1789e               Head {h00=0x0026, h01=0x0050, text=» EX FRD:10 EXECUTE UNLOCK COMMAND «, t00=0x00f1, t01=0x0014}
0x1789e…178c6               Head {h00=0x0024, h01=0x0050, text=» RB(NA) *-4 LOOP UNTIL ACCEPTED «, t00=0x00f1, t01=0x003e}
0x178c6…178d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f1, t01=0x0066}
0x178d0…178f0               Head {h00=0x001c, h01=0x0050, text=» EX FRD:40 SENSE STATUS «, t00=0x00f1, t01=0x0070}
0x178f0…17918               Head {h00=0x0024, h01=0x0050, text=» RB(NA) *-4 LOOP UNTIL ACCEPTED «, t00=0x00f1, t01=0x0090}
0x17918…17928               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00f1, t01=0x00b8}
0x17928…17936               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f1, t01=0x00c8}
0x17936…1797a               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x00f1, t01=0x00d6}
0x1797a…179be               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f1, t01=0x011a}
0x179be…17a02               Head {h00=0x0040, h01=0x0050, text=»*        FRDSEC - READ SECTOR FROM FLEXIBLE DISC          * «, t00=0x00f1, t01=0x015e}
0x17a02…17a46               Head {h00=0x0040, h01=0x0050, text=»*        =======================================          * «, t00=0x00f2, t01=0x0012}
0x17a46…17a8a               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f2, t01=0x0056}
0x17a8a…17ace               Head {h00=0x0040, h01=0x0050, text=»*  REFERENCED IN:  SYSLOD                                 * «, t00=0x00f2, t01=0x009a}
0x17ace…17b12               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f2, t01=0x00de}
0x17b12…17b56               Head {h00=0x0040, h01=0x0050, text=»*  ENTRY:  A9 - BUFFER ADDRESS                            * «, t00=0x00f2, t01=0x0122}
0x17b56…17b9a               Head {h00=0x0040, h01=0x0050, text=»*         A11 - SECTOR NUMBER                             * «, t00=0x00f2, t01=0x0166}
0x17b9a…17bde               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f3, t01=0x001a}
0x17bde…17c22               Head {h00=0x0040, h01=0x0050, text=»*  EXIT:                                                  * «, t00=0x00f3, t01=0x005e}
0x17c22…17c66               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f3, t01=0x00a2}
0x17c66…17caa               Head {h00=0x0040, h01=0x0050, text=»*  WORK REGISTERS:  A1,A2,A3                              * «, t00=0x00f3, t01=0x00e6}
0x17caa…17cee               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f3, t01=0x012a}
0x17cee…17d32               Head {h00=0x0040, h01=0x0050, text=»*  SUBROUTINES:  ERROR                                    * «, t00=0x00f3, t01=0x016e}
0x17d32…17d76               Head {h00=0x0040, h01=0x0050, text=»*                                                         * «, t00=0x00f4, t01=0x0022}
0x17d76…17dba               Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x00f4, t01=0x0066}
0x17dba…17dce               Head {h00=0x0010, h01=0x0050, text=»FRDSEC EQU *«, t00=0x00f4, t01=0x00aa}
0x17dce…17df4               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A11 GET SECTOR NUMBER «, t00=0x00f4, t01=0x00be}
0x17df4…17e22               Head {h00=0x002a, h01=0x0050, text=» LDKL A4,/340 26 SHIFTED 10 STEPS LEFT«, t00=0x00f4, t01=0x00e4}
0x17e22…17e4a               Head {h00=0x0024, h01=0x0050, text=» LD A1,DEVTYP+STKEND DEVICE TYPE«, t00=0x00f4, t01=0x0112}
0x17e4a…17e5c               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x00f4, t01=0x013a}
0x17e5c…17e86               Head {h00=0x0026, h01=0x0050, text=» RF(Z) SNHEAD 0,25 MEG FLOPPY DISC«, t00=0x00f4, t01=0x014c}
0x17e86…17e98               Head {h00=0x000e, h01=0x0050, text=» CWK A2,13«, t00=0x00f4, t01=0x0176}
0x17e98…17ebe               Head {h00=0x0022, h01=0x0050, text=» RF(NL) NOTCY0 NOT CYLINDER 0 «, t00=0x00f4, t01=0x0188}
0x17ebe…17ed2               Head {h00=0x0010, h01=0x0050, text=»SNHEAD EQU *«, t00=0x00f5, t01=0x001e}
0x17ed2…17f00               Head {h00=0x002a, h01=0x0050, text=» SLL A2,1 A2=0-25,PHYSICAL SECTOR NBR «, t00=0x00f5, t01=0x0032}
0x17f00…17f12               Head {h00=0x000e, h01=0x0050, text=» RF DVK26 «, t00=0x00f5, t01=0x0060}
0x17f12…17f26               Head {h00=0x0010, h01=0x0050, text=»NOTCY0 EQU *«, t00=0x00f5, t01=0x0072}
0x17f26…17f38               Head {h00=0x000e, h01=0x0050, text=» ADK A2,13«, t00=0x00f5, t01=0x0086}
0x17f38…17f46               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f5, t01=0x0098}
0x17f46…17f50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x00a6}
0x17f50…17f74               Head {h00=0x0020, h01=0x0050, text=»* A2=PHYSICAL SECTOR NUMBER «, t00=0x00f5, t01=0x00b0}
0x17f74…17f7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f5, t01=0x00d4}
0x17f7e…17f92               Head {h00=0x0010, h01=0x0050, text=»DVK26 EQU * «, t00=0x00f5, t01=0x00de}
0x17f92…17fa4               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x00f5, t01=0x00f2}
0x17fa4…17fb8               Head {h00=0x0010, h01=0x0050, text=»DVK26A EQU *«, t00=0x00f5, t01=0x0104}
0x17fb8…17fca               Head {h00=0x000e, h01=0x0050, text=» SLL A1,5 «, t00=0x00f5, t01=0x0118}
0x17fca…17fde               Head {h00=0x0010, h01=0x0050, text=»DVK26B EQU *«, t00=0x00f5, t01=0x012a}
0x17fde…17ff0               Head {h00=0x000e, h01=0x0050, text=» SUR A2,A4«, t00=0x00f5, t01=0x013e}
0x17ff0…18006               Head {h00=0x0012, h01=0x0050, text=» RF(N) DVK26C «, t00=0x00f5, t01=0x0150}
0x18006…18018               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x00f5, t01=0x0166}
0x18018…1802a               Head {h00=0x000e, h01=0x0050, text=» RB DVK26B«, t00=0x00f5, t01=0x0178}
0x1802a…1803e               Head {h00=0x0010, h01=0x0050, text=»DVK26C EQU *«, t00=0x00f5, t01=0x018a}
0x1803e…18050               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x00f6, t01=0x000e}
0x18050…18062               Head {h00=0x000e, h01=0x0050, text=» SRL A4,5 «, t00=0x00f6, t01=0x0020}
0x18062…18088               Head {h00=0x0022, h01=0x0050, text=» RB(NZ) DVK26A NEXT FIVE BITS «, t00=0x00f6, t01=0x0032}
0x18088…18096               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f6, t01=0x0058}
0x18096…180a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x0066}
0x180a0…180ba               Head {h00=0x0016, h01=0x0050, text=»* A2=SECTOR NUMBER«, t00=0x00f6, t01=0x0070}
0x180ba…180d6               Head {h00=0x0018, h01=0x0050, text=»* A1=CYLINDER NUMBER«, t00=0x00f6, t01=0x008a}
0x180d6…180e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f6, t01=0x00a6}
0x180e0…18108               Head {h00=0x0024, h01=0x0050, text=» LD A4,DEVTYP+STKEND DEVICE TYPE«, t00=0x00f6, t01=0x00b0}
0x18108…1811a               Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x00f6, t01=0x00d8}
0x1811a…1814a               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) DBHEAD 1 MEG FLOPPY,DOUBLE HEAD «, t00=0x00f6, t01=0x00ea}
0x1814a…1816a               Head {h00=0x001c, h01=0x0050, text=» SLL A1,1 ONLY ONE HEAD «, t00=0x00f6, t01=0x011a}
0x1816a…1817e               Head {h00=0x0010, h01=0x0050, text=»DBHEAD EQU *«, t00=0x00f6, t01=0x013a}
0x1817e…18190               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x00f6, t01=0x014e}
0x18190…181a2               Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x00f6, t01=0x0160}
0x181a2…181d4               Head {h00=0x002e, h01=0x0050, text=» SRC A4,2 HEAD NUMBER IN CORRECT POSITION «, t00=0x00f6, t01=0x0172}
0x181d4…18208               Head {h00=0x0030, h01=0x0050, text=» SLL A2,2 SECTOR NUMBER IN CORRECT POSITION «, t00=0x00f7, t01=0x0014}
0x18208…18230               Head {h00=0x0024, h01=0x0050, text=» ORR A2,A4 A2=CIO READ REGISTER «, t00=0x00f7, t01=0x0048}
0x18230…18266               Head {h00=0x0032, h01=0x0050, text=» SLL A1,1 CYLINDER NUMBER IN CORRECT POSITION «, t00=0x00f7, t01=0x0070}
0x18266…1828c               Head {h00=0x0022, h01=0x0050, text=» ORK A1,3 A1=CIO SEEK REGISTER«, t00=0x00f7, t01=0x00a6}
0x1828c…182c4               Head {h00=0x0034, h01=0x0050, text=» CW A1,CYLNBR COMPARE OLD AN NEW CYLINDER NUMBER«, t00=0x00f7, t01=0x00cc}
0x182c4…182e8               Head {h00=0x0020, h01=0x0050, text=» RF(E) NOSEEK NO SEEK NEEDED«, t00=0x00f7, t01=0x0104}
0x182e8…18312               Head {h00=0x0026, h01=0x0050, text=» ST A1,CYLNBR SAVE CYLINDER NUMBER«, t00=0x00f7, t01=0x0128}
0x18312…18334               Head {h00=0x001e, h01=0x0050, text=»FDSEEK EX FRD:10 CIO START«, t00=0x00f7, t01=0x0152}
0x18334…1834a               Head {h00=0x0012, h01=0x0050, text=» RB(NA) FDSEEK«, t00=0x00f7, t01=0x0174}
0x1834a…18364               Head {h00=0x0016, h01=0x0050, text=»SEKSST SST A1,FDCU«, t00=0x00f7, t01=0x018a}
0x18364…1837a               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEKSST«, t00=0x00f8, t01=0x0014}
0x1837a…18390               Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/611 «, t00=0x00f8, t01=0x002a}
0x18390…183b2               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) FRD:50 SEEK ERROR «, t00=0x00f8, t01=0x0040}
0x183b2…183c6               Head {h00=0x0010, h01=0x0050, text=»NOSEEK EQU *«, t00=0x00f8, t01=0x0062}
0x183c6…183d8               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x00f8, t01=0x0076}
0x183d8…183ea               Head {h00=0x000e, h01=0x0050, text=» RF FRD:05«, t00=0x00f8, t01=0x0088}
0x183ea…183f8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f8, t01=0x009a}
0x183f8…1840c               Head {h00=0x0010, h01=0x0050, text=»FRDS25 EQU *«, t00=0x00f8, t01=0x00a8}
0x1840c…1842a               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A11 SECTOR NO «, t00=0x00f8, t01=0x00bc}
0x1842a…1843c               Head {h00=0x000e, h01=0x0050, text=» SLL A1,4 «, t00=0x00f8, t01=0x00da}
0x1843c…18478               Head {h00=0x0038, h01=0x0050, text=» ORKL A1,/4000 NUMBER OF SECTORS=2  (BIT 0 - BIT 1) «, t00=0x00f8, t01=0x00ec}
0x18478…1848c               Head {h00=0x0010, h01=0x0050, text=»FRD:05 EQU *«, t00=0x00f8, t01=0x0128}
0x1848c…184a2               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,MUXCC«, t00=0x00f8, t01=0x013c}
0x184a2…184c6               Head {h00=0x0020, h01=0x0050, text=» LD A3,MXBUF BUFFER ADDRESS «, t00=0x00f8, t01=0x0152}
0x184c6…184e4               Head {h00=0x001a, h01=0x0050, text=» WER A2,FDIOP 1:ST WER«, t00=0x00f8, t01=0x0176}
0x184e4…18506 (249, 0, 400) Head {h00=0x001e, h01=0x0050, text=» WER A3,FDIOP+1 SECOND WER«, t00=0x00f9, t01=0x0004}
0x18506…1850e               Head {h00=0x0004, h01=0x0050, t00=0x00f9, t01=0x0026}
0x1850e…18536               Head {h00=0x0024, h01=0x0050, text=» LDR A2,A3 BUFFER START ADDRESS «, t00=0x00f9, t01=0x002e}
0x18536…1855e               Head {h00=0x0024, h01=0x0050, text=» AD A2,SAVCON BUFFER END ADDRESS«, t00=0x00f9, t01=0x0056}
0x1855e…18568               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x007e}
0x18568…18590               Head {h00=0x0024, h01=0x0050, text=»FRD:10 CIO A1,1,FDCU START READ «, t00=0x00f9, t01=0x0088}
0x18590…185a6               Head {h00=0x0012, h01=0x0050, text=» RB(NA) FRD:10«, t00=0x00f9, t01=0x00b0}
0x185a6…185b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x00c6}
0x185b0…185c6               Head {h00=0x0012, h01=0x0050, text=» EJECT   CRVOL«, t00=0x00f9, t01=0x00d0}
0x185c6…185d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x00e6}
0x185d0…185da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x00f0}
0x185da…185f6               Head {h00=0x0018, h01=0x0050, text=»FRD:20 INR A1,0,FDCU«, t00=0x00f9, t01=0x00fa}
0x185f6…18610               Head {h00=0x0016, h01=0x0050, text=» RF(NA) FRD:40  =4«, t00=0x00f9, t01=0x0116}
0x18610…18622               Head {h00=0x000e, h01=0x0050, text=» STR A1,A3«, t00=0x00f9, t01=0x0130}
0x18622…18634               Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x00f9, t01=0x0142}
0x18634…18646               Head {h00=0x000e, h01=0x0050, text=» CWR A3,A2«, t00=0x00f9, t01=0x0154}
0x18646…1865c               Head {h00=0x0012, h01=0x0050, text=» RB(NE) FRD:20«, t00=0x00f9, t01=0x0166}
0x1865c…18666               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f9, t01=0x017c}
0x18666…1868c               Head {h00=0x0022, h01=0x0050, text=»FRD:25 CIO A1,0,FDCU STOP READ«, t00=0x00f9, t01=0x0186}
0x1868c…1869e               Head {h00=0x000e, h01=0x0050, text=» RB FRD:20«, t00=0x00fa, t01=0x001c}
0x1869e…186b8               Head {h00=0x0016, h01=0x0050, text=»FRD:40 SST A1,FDCU«, t00=0x00fa, t01=0x002e}
0x186b8…186ce               Head {h00=0x0012, h01=0x0050, text=» RB(NA) FRD:20«, t00=0x00fa, t01=0x0048}
0x186ce…186e4               Head {h00=0x0012, h01=0x0050, text=»FRD:42 EQU *+2«, t00=0x00fa, t01=0x005e}
0x186e4…18708               Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/4E15 FATAL ERROR ?«, t00=0x00fa, t01=0x0074}
0x18708…18724               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) FRD:50 YES! «, t00=0x00fa, t01=0x0098}
0x18724…18740               Head {h00=0x0018, h01=0x0050, text=»FRD:43 CWR A3,A2  =4«, t00=0x00fa, t01=0x00b4}
0x18740…1876c               Head {h00=0x0028, h01=0x0050, text=» RF(E) FRD:44 PROGRAMMED CHANNEL =4 «, t00=0x00fa, t01=0x00d0}
0x1876c…1879e               Head {h00=0x002e, h01=0x0050, text=» LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 «, t00=0x00fa, t01=0x00fc}
0x1879e…187c8               Head {h00=0x0026, h01=0x0050, text=» ST A1,FRD:20 UPDATE INR ISTR. =4 «, t00=0x00fa, t01=0x012e}
0x187c8…187e0               Head {h00=0x0014, h01=0x0050, text=»FRD:44 EQU *  =4«, t00=0x00fa, t01=0x0158}
0x187e0…18812               Head {h00=0x002e, h01=0x0050, text=» LDKL A1,FRD:B2+/5700 RF FRD:45 INSTR. =4 «, t00=0x00fa, t01=0x0170}
0x18812…1883c               Head {h00=0x0026, h01=0x0050, text=» ST A1,FRD:43 UPDATE CWR INSTR. =4«, t00=0x00fb, t01=0x0012}
0x1883c…1885c               Head {h00=0x001c, h01=0x0050, text=» ABI READ READ AGAIN =4 «, t00=0x00fb, t01=0x003c}
0x1885c…18870               Head {h00=0x0010, h01=0x0050, text=»FRD:45 EQU *«, t00=0x00fb, t01=0x005c}
0x18870…1889c               Head {h00=0x0028, h01=0x0050, text=» ADKL A11,1 INCRMENT SECTOR ADDRESS «, t00=0x00fb, t01=0x0070}
0x1889c…188b2               Head {h00=0x0012, h01=0x0050, text=» RF(NN) FRD:48«, t00=0x00fb, t01=0x009c}
0x188b2…188e6               Head {h00=0x0030, h01=0x0050, text=» SUR A11,A11 RESET LEAST SIGN. PART OF D.A. «, t00=0x00fb, t01=0x00b2}
0x188e6…1891c               Head {h00=0x0032, h01=0x0050, text=» ADKL A12,1 INCREMENT MOST SIGN. PART OF D.A. «, t00=0x00fb, t01=0x00e6}
0x1891c…18944               Head {h00=0x0024, h01=0x0050, text=» RF(O) FRD:50 DISC ADDRESS ERROR«, t00=0x00fb, t01=0x011c}
0x18944…18958               Head {h00=0x0010, h01=0x0050, text=»FRD:48 EQU *«, t00=0x00fb, t01=0x0144}
0x18958…18968               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00fb, t01=0x0158}
0x18968…1897c               Head {h00=0x0010, h01=0x0050, text=»FRD:50 EQU *«, t00=0x00fb, t01=0x0168}
0x1897c…18992               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x00fb, t01=0x017c}
0x18992…189a6 (252, 0, 400) Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00fc, t01=0x0004}
0x189a6…189cc               Head {h00=0x0022, h01=0x0050, text=»FRD:B1 EQU FRD:40-FRD:20-2  =4«, t00=0x00fc, t01=0x0018}
0x189cc…189f2               Head {h00=0x0022, h01=0x0050, text=»FRD:B2 EQU FRD:45-FRD:43-2  =4«, t00=0x00fc, t01=0x003e}
0x189f2…189fe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00fc, t01=0x0064}
0x189fe…18a14               Head {h00=0x0012, h01=0x0050, text=» IFT CDDISC=1 «, t00=0x00fc, t01=0x0070}
0x18a14…18a2e               Head {h00=0x0016, h01=0x0050, text=» IFT CDDI16=0  =9 «, t00=0x00fc, t01=0x0086}
0x18a2e…18a3c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fc, t01=0x00a0}
0x18a3c…18a68               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00fc, t01=0x00ae}
0x18a68…18a94               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00fc, t01=0x00da}
0x18a94…18ac0               Head {h00=0x0028, h01=0x0050, text=»*  CDINIT - INITIALIZE DISC UNIT  * «, t00=0x00fc, t01=0x0106}
0x18ac0…18aec               Head {h00=0x0028, h01=0x0050, text=»*  =============================  * «, t00=0x00fc, t01=0x0132}
0x18aec…18b18               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00fc, t01=0x015e}
0x18b18…18b44               Head {h00=0x0028, h01=0x0050, text=»*  REFERENCED IN: SYSLOD,GETFIL   * «, t00=0x00fc, t01=0x018a}
0x18b44…18b70               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00fd, t01=0x0026}
0x18b70…18b9c               Head {h00=0x0028, h01=0x0050, text=»*  ENTRY: A1 - DEVICE ADDRESS     * «, t00=0x00fd, t01=0x0052}
0x18b9c…18bc8               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00fd, t01=0x007e}
0x18bc8…18bf4               Head {h00=0x0028, h01=0x0050, text=»*  EXIT:                          * «, t00=0x00fd, t01=0x00aa}
0x18bf4…18c20               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00fd, t01=0x00d6}
0x18c20…18c4c               Head {h00=0x0028, h01=0x0050, text=»*  WORK REGISTERS:  A1,A2          *«, t00=0x00fd, t01=0x0102}
0x18c4c…18c78               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00fd, t01=0x012e}
0x18c78…18ca4               Head {h00=0x0028, h01=0x0050, text=»*  SUBROUTINES:                   * «, t00=0x00fd, t01=0x015a}
0x18ca4…18cd0               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x00fd, t01=0x0186}
0x18cd0…18cfc               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x00fe, t01=0x0022}
0x18cfc…18d04               Head {h00=0x0004, h01=0x0050, t00=0x00fe, t01=0x004e}
0x18d04…18d18               Head {h00=0x0010, h01=0x0050, text=»CDINIT EQU *«, t00=0x00fe, t01=0x0056}
0x18d18…18d22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x006a}
0x18d22…18d46               Head {h00=0x0020, h01=0x0050, text=»* INIT 80M CDC DISC COMMANDS«, t00=0x00fe, t01=0x0074}
0x18d46…18d50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00fe, t01=0x0098}
0x18d50…18d80               Head {h00=0x002c, h01=0x0050, text=» ORKL A1,CIO CONFIG CIO A1,1,XX  INSTR. «, t00=0x00fe, t01=0x00a2}
0x18d80…18d96               Head {h00=0x0012, h01=0x0050, text=» ST A1,READC1 «, t00=0x00fe, t01=0x00d2}
0x18d96…18dc2               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A1,XX  INSTR.«, t00=0x00fe, t01=0x00e8}
0x18dc2…18dd8               Head {h00=0x0012, h01=0x0050, text=» ST A1,READC2 «, t00=0x00fe, t01=0x0114}
0x18dd8…18e06               Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/B00 FORM CIO A2,1,XX  INSTR.«, t00=0x00fe, t01=0x012a}
0x18e06…18e1c               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKC1 «, t00=0x00fe, t01=0x0158}
0x18e1c…18e48               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX  INSTR.«, t00=0x00fe, t01=0x016e}
0x18e48…18e5e               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKC2 «, t00=0x00ff, t01=0x000a}
0x18e5e…18e72               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x00ff, t01=0x0020}
0x18e72…18ea8               Head {h00=0x0032, h01=0x0050, text=» ST A2,PSECNL+STKEND INIT VALUE FOR SECTOR NBR«, t00=0x00ff, t01=0x0034}
0x18ea8…18ed2               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/300 BUFLEN 80M CDC DISC «, t00=0x00ff, t01=0x006a}
0x18ed2…18ef4               Head {h00=0x001e, h01=0x0050, text=» ST A2,SAVCON SAVE LENGTH «, t00=0x00ff, t01=0x0094}
0x18ef4…18f2c               Head {h00=0x0034, h01=0x0050, text=» LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR.«, t00=0x00ff, t01=0x00b6}
0x18f2c…18f40               Head {h00=0x0010, h01=0x0050, text=» ST A2,READ «, t00=0x00ff, t01=0x00ee}
0x18f40…18f54               Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x00ff, t01=0x0102}
0x18f54…18f64               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00ff, t01=0x0116}
0x18f64…18f72               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ff, t01=0x0126}
0x18f72…18faa               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00ff, t01=0x0134}
0x18faa…18fe2               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x00ff, t01=0x016c}
0x18fe2…1901a               Head {h00=0x0034, h01=0x0050, text=»*  CRDSEC- READ ONE SECTOR FROM DISC          * «, t00=0x0100, t01=0x0014}
0x1901a…19052               Head {h00=0x0034, h01=0x0050, text=»*  =================================          * «, t00=0x0100, t01=0x004c}
0x19052…1908a               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0100, t01=0x0084}
0x1908a…190c2               Head {h00=0x0034, h01=0x0050, text=»*  REFERENCED IN: SYSLOD                      * «, t00=0x0100, t01=0x00bc}
0x190c2…190fa               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0100, t01=0x00f4}
0x190fa…19132               Head {h00=0x0034, h01=0x0050, text=»*  ENTRY:  A9 = BUFFER ADDRESS                * «, t00=0x0100, t01=0x012c}
0x19132…1916a               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0100, t01=0x0164}
0x1916a…191a2               Head {h00=0x0034, h01=0x0050, text=»*         A11 - SECTOR NBR LEAST SIGNIFICANT  * «, t00=0x0101, t01=0x000c}
0x191a2…191da               Head {h00=0x0034, h01=0x0050, text=»*         A12 - SECTOR NBR MOST SIGNIFICANT   * «, t00=0x0101, t01=0x0044}
0x191da…19212               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0101, t01=0x007c}
0x19212…1924a               Head {h00=0x0034, h01=0x0050, text=»*  EXIT: A12,A11 = A12,A11 + 1                * «, t00=0x0101, t01=0x00b4}
0x1924a…19282               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0101, t01=0x00ec}
0x19282…192ba               Head {h00=0x0034, h01=0x0050, text=»*   WORK REGISTERS:  A1,A2,A3,A6              * «, t00=0x0101, t01=0x0124}
0x192ba…192f2               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0101, t01=0x015c}
0x192f2…1932a (258, 0, 400) Head {h00=0x0034, h01=0x0050, text=»*  SUBROUTINES:  ERROR                        * «, t00=0x0102, t01=0x0004}
0x1932a…19362               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0102, t01=0x003c}
0x19362…1939a               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0102, t01=0x0074}
0x1939a…193a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x00ac}
0x193a4…193b8               Head {h00=0x0010, h01=0x0050, text=»CRDSEC EQU *«, t00=0x0102, t01=0x00b6}
0x193b8…193c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x00ca}
0x193c2…193de               Head {h00=0x0018, h01=0x0050, text=»* SET BUFFER ADDRESS«, t00=0x0102, t01=0x00d4}
0x193de…193e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0102, t01=0x00f0}
0x193e8…1940a               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 BUFFER ADDRESS «, t00=0x0102, t01=0x00fa}
0x1940a…1941e               Head {h00=0x0010, h01=0x0050, text=» ADKL A1,256«, t00=0x0102, t01=0x011c}
0x1941e…1943e               Head {h00=0x001c, h01=0x0050, text=» ST A1,CIOAD2 ADDRESS 2 «, t00=0x0102, t01=0x0130}
0x1943e…19452               Head {h00=0x0010, h01=0x0050, text=» ADKL A1,256«, t00=0x0102, t01=0x0150}
0x19452…19472               Head {h00=0x001c, h01=0x0050, text=» ST A1,CIOAD3 ADDRESS 3 «, t00=0x0102, t01=0x0164}
0x19472…19488               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/3FFF«, t00=0x0102, t01=0x0184}
0x19488…194aa               Head {h00=0x001e, h01=0x0050, text=» ANS A1,CIOTAB RESET BITS «, t00=0x0103, t01=0x000a}
0x194aa…194cc               Head {h00=0x001e, h01=0x0050, text=» ANS A1,CIOTOT RESET BITS «, t00=0x0103, t01=0x002c}
0x194cc…194fe               Head {h00=0x002e, h01=0x0050, text=» LDR A1,A12 SECTOR NUMBER MOST SIGNIFICANT«, t00=0x0103, t01=0x004e}
0x194fe…19532               Head {h00=0x0030, h01=0x0050, text=» LDR A2,A11 SECTOR NUMBER LEAST SIGNIFICANT «, t00=0x0103, t01=0x0080}
0x19532…19540               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0103, t01=0x00b4}
0x19540…1954a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0103, t01=0x00c2}
0x1954a…1956a               Head {h00=0x001c, h01=0x0050, text=»* DIVIDE LOGICAL WITH 3 «, t00=0x0103, t01=0x00cc}
0x1956a…19574               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0103, t01=0x00ec}
0x19574…19586               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0103, t01=0x00f6}
0x19586…1959a               Head {h00=0x0010, h01=0x0050, text=»RED100 EQU *«, t00=0x0103, t01=0x0108}
0x1959a…195ac               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0103, t01=0x011c}
0x195ac…195be               Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x0103, t01=0x012e}
0x195be…195d4               Head {h00=0x0012, h01=0x0050, text=» RB(NN) RED100«, t00=0x0103, t01=0x0140}
0x195d4…195e6               Head {h00=0x000e, h01=0x0050, text=» ADK A1,3 «, t00=0x0103, t01=0x0156}
0x195e6…195f8               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0103, t01=0x0168}
0x195f8…19606               Head {h00=0x000a, h01=0x0050, text=» DVK 3«, t00=0x0103, t01=0x017a}
0x19606…1961c               Head {h00=0x0012, h01=0x0050, text=» CW A9,CIOAD1 «, t00=0x0103, t01=0x0188}
0x1961c…1965a               Head {h00=0x003a, h01=0x0050, text=» RF(NE) RED110 NOT SAME BUFFER ADDRESS MEANS NEW READ «, t00=0x0104, t01=0x000e}
0x1965a…19676               Head {h00=0x0018, h01=0x0050, text=» CW A2,PSECNL+STKEND«, t00=0x0104, t01=0x004c}
0x19676…196a6               Head {h00=0x002c, h01=0x0050, text=» RF(NE) RED110 NOT SAME PHYSICAL SEC NBR«, t00=0x0104, t01=0x0068}
0x196a6…196c2               Head {h00=0x0018, h01=0x0050, text=» CW A3,PSECNM+STKEND«, t00=0x0104, t01=0x0098}
0x196c2…196f2               Head {h00=0x002c, h01=0x0050, text=» RF(NE) RED110 NOT SAME PHYSICAL SEC NBR«, t00=0x0104, t01=0x00b4}
0x196f2…1970e               Head {h00=0x0018, h01=0x0050, text=» CW A1,PSECPA+STKEND«, t00=0x0104, t01=0x00e4}
0x1970e…19738               Head {h00=0x0026, h01=0x0050, text=» RF(E) TURN SAME LOG SEC AS BEFORE«, t00=0x0104, t01=0x0100}
0x19738…1976a               Head {h00=0x002e, h01=0x0050, text=» RF(G) REDMOV MOVE UP NEXT LOGICAL SECTOR «, t00=0x0104, t01=0x012a}
0x1976a…1977e               Head {h00=0x0010, h01=0x0050, text=»RED110 EQU *«, t00=0x0104, t01=0x015c}
0x1977e…1979e               Head {h00=0x001c, h01=0x0050, text=» ST A9,CIOAD1 ADDRESS 1 «, t00=0x0104, t01=0x0170}
0x1979e…197ca               Head {h00=0x0028, h01=0x0050, text=» MS 3,PSECPA+STKEND SAVE NEW VALUES «, t00=0x0104, t01=0x0190}
0x197ca…197dc               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0105, t01=0x002c}
0x197dc…197ec               Head {h00=0x000c, h01=0x0050, text=» DVK 115«, t00=0x0105, t01=0x003e}
0x197ec…197fa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0105, t01=0x004e}
0x197fa…1981c               Head {h00=0x001e, h01=0x0050, text=»* A1=HEAD NBR * SECTOR NBR«, t00=0x0105, t01=0x005c}
0x1981c…19836               Head {h00=0x0016, h01=0x0050, text=»* A2=CYLINDER NBR «, t00=0x0105, t01=0x007e}
0x19836…19848               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0105, t01=0x0098}
0x19848…1985a               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0105, t01=0x00aa}
0x1985a…1986c               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0105, t01=0x00bc}
0x1986c…1987c               Head {h00=0x000c, h01=0x0050, text=» DVK 23 «, t00=0x0105, t01=0x00ce}
0x1987c…19894               Head {h00=0x0014, h01=0x0050, text=»* A1=SECTOR NBR «, t00=0x0105, t01=0x00de}
0x19894…198aa               Head {h00=0x0012, h01=0x0050, text=»* A2=HEAD NBR «, t00=0x0105, t01=0x00f6}
0x198aa…198d2               Head {h00=0x0024, h01=0x0050, text=» ORKL A2,/800 SET INTERRUPT BIT «, t00=0x0105, t01=0x010c}
0x198d2…198f8               Head {h00=0x0022, h01=0x0050, text=» ST A2,CIOTAB UPDATE CIO TABLE«, t00=0x0105, t01=0x0134}
0x198f8…19906               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0105, t01=0x015a}
0x19906…19910               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x0168}
0x19910…19926               Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x0105, t01=0x0172}
0x19926…19930               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0105, t01=0x0188}
0x19930…19942 (262, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0106, t01=0x0004}
0x19942…1995e               Head {h00=0x0018, h01=0x0050, text=» MUK 5 INTERLACING 5«, t00=0x0106, t01=0x0016}
0x1995e…19970               Head {h00=0x000e, h01=0x0050, text=» SLC A3,1 «, t00=0x0106, t01=0x0032}
0x19970…1999c               Head {h00=0x0028, h01=0x0050, text=» RF(NN) INT100 EVEN CYLINDER NUMBER «, t00=0x0106, t01=0x0044}
0x1999c…199ba               Head {h00=0x001a, h01=0x0050, text=» ADK A2,12 SKEW FACTOR«, t00=0x0106, t01=0x0070}
0x199ba…199ce               Head {h00=0x0010, h01=0x0050, text=»INT100 EQU *«, t00=0x0106, t01=0x008e}
0x199ce…199de               Head {h00=0x000c, h01=0x0050, text=» DVK 23 «, t00=0x0106, t01=0x00a2}
0x199de…199fc               Head {h00=0x001a, h01=0x0050, text=» SLL A1,5 IN POSITION «, t00=0x0106, t01=0x00b2}
0x199fc…19a24               Head {h00=0x0024, h01=0x0050, text=» ORS A1,CIOTAB UPDATE CIO TABLE «, t00=0x0106, t01=0x00d0}
0x19a24…19a40               Head {h00=0x0018, h01=0x0050, text=» SRC A3,1 RESTORE A3«, t00=0x0106, t01=0x00f8}
0x19a40…19a56               Head {h00=0x0012, h01=0x0050, text=» CW A3,CYLNBR «, t00=0x0106, t01=0x0114}
0x19a56…19a80               Head {h00=0x0026, h01=0x0050, text=» RF(E) READER SAME CYLINDER NUMBER«, t00=0x0106, t01=0x012a}
0x19a80…19a8e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0106, t01=0x0154}
0x19a8e…19a98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x0162}
0x19a98…19aa6               Head {h00=0x000a, h01=0x0050, text=»* SEEK«, t00=0x0106, t01=0x016c}
0x19aa6…19ab0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0106, t01=0x017a}
0x19ab0…19ad8               Head {h00=0x0024, h01=0x0050, text=» ST A3,CYLNBR SAVE CYLINDER NBR «, t00=0x0106, t01=0x0184}
0x19ad8…19afc               Head {h00=0x0020, h01=0x0050, text=» ADKL A3,/A800 SEEK COMMAND «, t00=0x0107, t01=0x001c}
0x19afc…19b12               Head {h00=0x0012, h01=0x0050, text=» ST A3,SEKTAB «, t00=0x0107, t01=0x0040}
0x19b12…19b2a               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,SEKTAB «, t00=0x0107, t01=0x0056}
0x19b2a…19b3e               Head {h00=0x0010, h01=0x0050, text=»SEEKC1 EQU *«, t00=0x0107, t01=0x006e}
0x19b3e…19b56               Head {h00=0x0014, h01=0x0050, text=» CIO A2,1,0 SEEK«, t00=0x0107, t01=0x0082}
0x19b56…19b6c               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEKC1«, t00=0x0107, t01=0x009a}
0x19b6c…19b80               Head {h00=0x0010, h01=0x0050, text=»SEEKC2 EQU *«, t00=0x0107, t01=0x00b0}
0x19b80…19b92               Head {h00=0x000e, h01=0x0050, text=» SST A2,0 «, t00=0x0107, t01=0x00c4}
0x19b92…19ba8               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEKC2«, t00=0x0107, t01=0x00d6}
0x19ba8…19bb6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0107, t01=0x00ec}
0x19bb6…19bc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x00fa}
0x19bc0…19bd2               Head {h00=0x000e, h01=0x0050, text=»*    READ «, t00=0x0107, t01=0x0104}
0x19bd2…19bdc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0107, t01=0x0116}
0x19bdc…19bf0               Head {h00=0x0010, h01=0x0050, text=»READER EQU *«, t00=0x0107, t01=0x0120}
0x19bf0…19c14               Head {h00=0x0020, h01=0x0050, text=» LDK A6,3 NUMBER OF RETRIES «, t00=0x0107, t01=0x0134}
0x19c14…19c28               Head {h00=0x0010, h01=0x0050, text=»REA100 EQU *«, t00=0x0107, t01=0x0158}
0x19c28…19c54               Head {h00=0x0028, h01=0x0050, text=» LDKL A1,CIOTAB POINTER TO CIO TABLE«, t00=0x0107, t01=0x016c}
0x19c54…19c72               Head {h00=0x001a, h01=0x0050, text=»READC1 CIO A1,1,0 READ«, t00=0x0108, t01=0x0008}
0x19c72…19c9c               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READC1 LOOP UNTIL ACCEPTED«, t00=0x0108, t01=0x0026}
0x19c9c…19ca6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0108, t01=0x0050}
0x19ca6…19cc4               Head {h00=0x001a, h01=0x0050, text=»READC2 SST A1,0 STATUS«, t00=0x0108, t01=0x005a}
0x19cc4…19cee               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READC2 LOOP UNTIL ACCEPTED«, t00=0x0108, t01=0x0078}
0x19cee…19d0c               Head {h00=0x001a, h01=0x0050, text=» ANKL A1,/FF0F STATUS «, t00=0x0108, t01=0x00a2}
0x19d0c…19d30               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RET30 READING ERROR «, t00=0x0108, t01=0x00c0}
0x19d30…19d72               Head {h00=0x003e, h01=0x0050, text=» LD A1,PSECPA+STKEND GET RELATIV LOG SECT IN PHYSICAL =11 «, t00=0x0108, t01=0x00e4}
0x19d72…19da6               Head {h00=0x0030, h01=0x0050, text=» RF(NZ) REDMOV NOT FIRST REL LOG SECTOR =11 «, t00=0x0108, t01=0x0126}
0x19da6…19dae               Head {h00=0x0004, h01=0x0050, t00=0x0108, t01=0x015a}
0x19dae…19dc0               Head {h00=0x000e, h01=0x0050, text=»TURN EQU *«, t00=0x0108, t01=0x0162}
0x19dc0…19df4               Head {h00=0x0030, h01=0x0050, text=» ADKL A11,1 INCREMENT LOGICAL SECTOR NUMBER «, t00=0x0108, t01=0x0174}
0x19df4…19e12               Head {h00=0x001a, h01=0x0050, text=» RF(O) TURN10 OVERFLOW«, t00=0x0109, t01=0x0018}
0x19e12…19e24               Head {h00=0x000e, h01=0x0050, text=» RF TURN20«, t00=0x0109, t01=0x0036}
0x19e24…19e38               Head {h00=0x0010, h01=0x0050, text=»TURN10 EQU *«, t00=0x0109, t01=0x0048}
0x19e38…19e56               Head {h00=0x001a, h01=0x0050, text=» SUR A11,A11 RESET A11«, t00=0x0109, t01=0x005c}
0x19e56…19e6a               Head {h00=0x0010, h01=0x0050, text=» ADKL A12,1 «, t00=0x0109, t01=0x007a}
0x19e6a…19e7e               Head {h00=0x0010, h01=0x0050, text=»TURN20 EQU *«, t00=0x0109, t01=0x008e}
0x19e7e…19e8e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0109, t01=0x00a2}
0x19e8e…19e9c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0109, t01=0x00b2}
0x19e9c…19ea6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x00c0}
0x19ea6…19ecc               Head {h00=0x0022, h01=0x0050, text=»* MOVE UP NEXT LOGICAL SECTOR «, t00=0x0109, t01=0x00ca}
0x19ecc…19ed6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0109, t01=0x00f0}
0x19ed6…19eea               Head {h00=0x0010, h01=0x0050, text=»REDMOV EQU *«, t00=0x0109, t01=0x00fa}
0x19eea…19f24               Head {h00=0x0036, h01=0x0050, text=» ST A1,PSECPA+STKEND SAVE NEW LOGICAL SECTOR PART «, t00=0x0109, t01=0x010e}
0x19f24…19f44               Head {h00=0x001c, h01=0x0050, text=» SLL A1,2 INDEX TO TABLE«, t00=0x0109, t01=0x0148}
0x19f44…19f6c               Head {h00=0x0024, h01=0x0050, text=» LD A1,CIOAD1,A1 SOURCE ADDRESS «, t00=0x0109, t01=0x0168}
0x19f6c…19f92               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A9 DESTINATION ADDRESS«, t00=0x0109, t01=0x0190}
0x19f92…19fb6               Head {h00=0x0020, h01=0x0050, text=» LDK A3,128 LENGTH IN WORDS «, t00=0x010a, t01=0x0026}
0x19fb6…19fca               Head {h00=0x0010, h01=0x0050, text=»RMOV10 EQU *«, t00=0x010a, t01=0x004a}
0x19fca…19fde               Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A1 «, t00=0x010a, t01=0x005e}
0x19fde…19ff0               Head {h00=0x000e, h01=0x0050, text=» STR A6,A2«, t00=0x010a, t01=0x0072}
0x19ff0…1a002               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x010a, t01=0x0084}
0x1a002…1a014               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x010a, t01=0x0096}
0x1a014…1a026               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x010a, t01=0x00a8}
0x1a026…1a046               Head {h00=0x001c, h01=0x0050, text=» RB(P) RMOV10 NEXT WORD «, t00=0x010a, t01=0x00ba}
0x1a046…1a056               Head {h00=0x000c, h01=0x0050, text=» RB TURN«, t00=0x010a, t01=0x00da}
0x1a056…1a05e               Head {h00=0x0004, h01=0x0050, t00=0x010a, t01=0x00ea}
0x1a05e…1a066               Head {h00=0x0004, h01=0x0050, t00=0x010a, t01=0x00f2}
0x1a066…1a06e               Head {h00=0x0004, h01=0x0050, t00=0x010a, t01=0x00fa}
0x1a06e…1a082               Head {h00=0x0010, h01=0x0050, text=»NOFOND EQU *«, t00=0x010a, t01=0x0102}
0x1a082…1a098               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x010a, t01=0x0116}
0x1a098…1a0c2               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR INDICATE READING ERROR«, t00=0x010a, t01=0x012c}
0x1a0c2…1a0d0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010a, t01=0x0156}
0x1a0d0…1a0da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x0164}
0x1a0da…1a0f8               Head {h00=0x001a, h01=0x0050, text=»* IO ERROR IN READING «, t00=0x010a, t01=0x016e}
0x1a0f8…1a102               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010a, t01=0x018c}
0x1a102…1a116               Head {h00=0x0010, h01=0x0050, text=»RET30 EQU * «, t00=0x010b, t01=0x0008}
0x1a116…1a128               Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x010b, t01=0x001c}
0x1a128…1a146               Head {h00=0x001a, h01=0x0050, text=» RB(NZ) REA100 NEW TRY«, t00=0x010b, t01=0x002e}
0x1a146…1a15c               Head {h00=0x0012, h01=0x0050, text=» LC A1,CIOTAB «, t00=0x010b, t01=0x004c}
0x1a15c…1a170               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/C0 «, t00=0x010b, t01=0x0062}
0x1a170…1a1a8               Head {h00=0x0034, h01=0x0050, text=» RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S «, t00=0x010b, t01=0x0076}
0x1a1a8…1a1be               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x010b, t01=0x00ae}
0x1a1be…1a1f2               Head {h00=0x0030, h01=0x0050, text=» ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE«, t00=0x010b, t01=0x00c4}
0x1a1f2…1a204               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x010b, t01=0x00f8}
0x1a204…1a218               Head {h00=0x0010, h01=0x0050, text=»RET31 EQU * «, t00=0x010b, t01=0x010a}
0x1a218…1a22c               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x010b, t01=0x011e}
0x1a22c…1a262               Head {h00=0x0032, h01=0x0050, text=» RF(Z) RET32 LAST RETRY WITH LATE DATA STROBE «, t00=0x010b, t01=0x0132}
0x1a262…1a278               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/C000«, t00=0x010b, t01=0x0168}
0x1a278…1a2ac               Head {h00=0x0030, h01=0x0050, text=» XRS A2,CIOTAB CHANGE FROM EARLY TO LATE D.S«, t00=0x010b, t01=0x017e}
0x1a2ac…1a2be               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x010c, t01=0x0022}
0x1a2be…1a2d2               Head {h00=0x0010, h01=0x0050, text=»RET32 EQU * «, t00=0x010c, t01=0x0034}
0x1a2d2…1a2e8               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/3FFF«, t00=0x010c, t01=0x0048}
0x1a2e8…1a316               Head {h00=0x002a, h01=0x0050, text=» ANS A2,CIOTAB RESET LATE DATA STROBE «, t00=0x010c, t01=0x005e}
0x1a316…1a32c               Head {h00=0x0012, h01=0x0050, text=» LC A1,CIOTOT «, t00=0x010c, t01=0x008c}
0x1a32c…1a340               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/C0 «, t00=0x010c, t01=0x00a2}
0x1a340…1a378               Head {h00=0x0034, h01=0x0050, text=» RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- «, t00=0x010c, t01=0x00b6}
0x1a378…1a38e               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x010c, t01=0x00ee}
0x1a38e…1a3ba               Head {h00=0x0028, h01=0x0050, text=» ORS A2,CIOTOT PREPARE FOR CARRIAGE+«, t00=0x010c, t01=0x0104}
0x1a3ba…1a3cc               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x010c, t01=0x0130}
0x1a3cc…1a3e0               Head {h00=0x0010, h01=0x0050, text=»RET33 EQU * «, t00=0x010c, t01=0x0142}
0x1a3e0…1a3f4               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x010c, t01=0x0156}
0x1a3f4…1a418               Head {h00=0x0020, h01=0x0050, text=» RB(Z) NOFOND READING ERROR «, t00=0x010c, t01=0x016a}
0x1a418…1a42e               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/C000«, t00=0x010c, t01=0x018e}
0x1a42e…1a460               Head {h00=0x002e, h01=0x0050, text=» XRS A2,CIOTOT FROM CARRIAGE+ TO CARRIGE- «, t00=0x010d, t01=0x0014}
0x1a460…1a472               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x010d, t01=0x0046}
0x1a472…1a480               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010d, t01=0x0058}
0x1a480…1a48a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x0066}
0x1a48a…1a49e               Head {h00=0x0010, h01=0x0050, text=»* SEEK TABLE«, t00=0x010d, t01=0x0070}
0x1a49e…1a4a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x0084}
0x1a4a8…1a4bc               Head {h00=0x0010, h01=0x0050, text=»SEKTAB EQU *«, t00=0x010d, t01=0x008e}
0x1a4bc…1a4cc               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x010d, t01=0x00a2}
0x1a4cc…1a4d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x00b2}
0x1a4d6…1a4ea               Head {h00=0x0010, h01=0x0050, text=»* CIO TABLE «, t00=0x010d, t01=0x00bc}
0x1a4ea…1a4f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x010d, t01=0x00d0}
0x1a4f4…1a508               Head {h00=0x0010, h01=0x0050, text=»CIOTAB EQU *«, t00=0x010d, t01=0x00da}
0x1a508…1a532               Head {h00=0x0026, h01=0x0050, text=» DATA 0 ORDER,SECTOR NBR,HEAD NBR «, t00=0x010d, t01=0x00ee}
0x1a532…1a546               Head {h00=0x0010, h01=0x0050, text=»CIOTOT EQU *«, t00=0x010d, t01=0x0118}
0x1a546…1a580               Head {h00=0x0036, h01=0x0050, text=» DATA 384 TOTAL NUMBER OF WORDS(1 PHYSICAL SECTOR)«, t00=0x010d, t01=0x012c}
0x1a580…1a594               Head {h00=0x0010, h01=0x0050, text=»CIOPA1 EQU *«, t00=0x010d, t01=0x0166}
0x1a594…1a5ce               Head {h00=0x0036, h01=0x0050, text=» DATA /4000+128 DATA CHAINING BIT,NUMBER OF WORDS «, t00=0x010d, t01=0x017a}
0x1a5ce…1a5e2               Head {h00=0x0010, h01=0x0050, text=»CIOAD1 EQU *«, t00=0x010e, t01=0x0024}
0x1a5e2…1a5fc               Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 1 «, t00=0x010e, t01=0x0038}
0x1a5fc…1a610               Head {h00=0x0010, h01=0x0050, text=»CIOPA2 EQU *«, t00=0x010e, t01=0x0052}
0x1a610…1a628               Head {h00=0x0014, h01=0x0050, text=» DATA /4000+128 «, t00=0x010e, t01=0x0066}
0x1a628…1a63c               Head {h00=0x0010, h01=0x0050, text=»CIOAD2 EQU *«, t00=0x010e, t01=0x007e}
0x1a63c…1a656               Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 2 «, t00=0x010e, t01=0x0092}
0x1a656…1a66a               Head {h00=0x0010, h01=0x0050, text=»CIOPA3 EQU *«, t00=0x010e, t01=0x00ac}
0x1a66a…1a67c               Head {h00=0x000e, h01=0x0050, text=» DATA 128 «, t00=0x010e, t01=0x00c0}
0x1a67c…1a690               Head {h00=0x0010, h01=0x0050, text=»CIOAD3 EQU *«, t00=0x010e, t01=0x00d2}
0x1a690…1a6aa               Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 3 «, t00=0x010e, t01=0x00e6}
0x1a6aa…1a6b6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x010e, t01=0x0100}
0x1a6b6…1a6d0               Head {h00=0x0016, h01=0x0050, text=» IFT CDDI16=1  =9 «, t00=0x010e, t01=0x010c}
0x1a6d0…1a6de               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010e, t01=0x0126}
0x1a6de…1a70a               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x010e, t01=0x0134}
0x1a70a…1a736               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x010e, t01=0x0160}
0x1a736…1a762               Head {h00=0x0028, h01=0x0050, text=»*  CDINIT - INITIALIZE DISC UNIT  * «, t00=0x010e, t01=0x018c}
0x1a762…1a78e               Head {h00=0x0028, h01=0x0050, text=»*  =============================  * «, t00=0x010f, t01=0x0028}
0x1a78e…1a7ba               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x010f, t01=0x0054}
0x1a7ba…1a7e6               Head {h00=0x0028, h01=0x0050, text=»*  REFERENCED IN: SYSLOD,GETFIL   * «, t00=0x010f, t01=0x0080}
0x1a7e6…1a812               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x010f, t01=0x00ac}
0x1a812…1a83e               Head {h00=0x0028, h01=0x0050, text=»*  ENTRY: A1 - DEVICE ADDRESS     * «, t00=0x010f, t01=0x00d8}
0x1a83e…1a86a               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x010f, t01=0x0104}
0x1a86a…1a896               Head {h00=0x0028, h01=0x0050, text=»*  EXIT:                          * «, t00=0x010f, t01=0x0130}
0x1a896…1a8c2               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x010f, t01=0x015c}
0x1a8c2…1a8ee               Head {h00=0x0028, h01=0x0050, text=»*  WORK REGISTERS:  A1,A2          *«, t00=0x010f, t01=0x0188}
0x1a8ee…1a91a               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x0110, t01=0x0024}
0x1a91a…1a946               Head {h00=0x0028, h01=0x0050, text=»*  SUBROUTINES:                   * «, t00=0x0110, t01=0x0050}
0x1a946…1a972               Head {h00=0x0028, h01=0x0050, text=»*                                 * «, t00=0x0110, t01=0x007c}
0x1a972…1a99e               Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x0110, t01=0x00a8}
0x1a99e…1a9a6               Head {h00=0x0004, h01=0x0050, t00=0x0110, t01=0x00d4}
0x1a9a6…1a9ba               Head {h00=0x0010, h01=0x0050, text=»CDINIT EQU *«, t00=0x0110, t01=0x00dc}
0x1a9ba…1a9c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x00f0}
0x1a9c4…1a9f0               Head {h00=0x0028, h01=0x0050, text=»* INIT 16M OR 80M CDC DISC COMMANDS «, t00=0x0110, t01=0x00fa}
0x1a9f0…1a9fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x0126}
0x1a9fa…1aa10               Head {h00=0x0012, h01=0x0050, text=» LDR A2,A1  =9«, t00=0x0110, t01=0x0130}
0x1aa10…1aa3a               Head {h00=0x0026, h01=0x0050, text=» ANK A1,/3F MASK DEVICE ADDRESS =9«, t00=0x0110, t01=0x0146}
0x1aa3a…1aa6c               Head {h00=0x002e, h01=0x0050, text=» SRL A2,2 FIX OR CARTRIDGE IN POSITION =9 «, t00=0x0110, t01=0x0170}
0x1aa6c…1aa84               Head {h00=0x0014, h01=0x0050, text=» ANK A2,/10  =9 «, t00=0x0111, t01=0x0012}
0x1aa84…1aac4               Head {h00=0x003c, h01=0x0050, text=» ST A2,CARFIX+STKEND SAVE FIX OR CARTRIDGE INDICATOR =9 «, t00=0x0111, t01=0x002a}
0x1aac4…1aaf4               Head {h00=0x002c, h01=0x0050, text=» ORKL A1,CIO CONFIG CIO A1,1,XX  INSTR. «, t00=0x0111, t01=0x006a}
0x1aaf4…1ab0a               Head {h00=0x0012, h01=0x0050, text=» ST A1,READC1 «, t00=0x0111, t01=0x009a}
0x1ab0a…1ab36               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A1,XX  INSTR.«, t00=0x0111, t01=0x00b0}
0x1ab36…1ab4c               Head {h00=0x0012, h01=0x0050, text=» ST A1,READC2 «, t00=0x0111, t01=0x00dc}
0x1ab4c…1ab7a               Head {h00=0x002a, h01=0x0050, text=» XRKL A1,/B00 FORM CIO A2,1,XX  INSTR.«, t00=0x0111, t01=0x00f2}
0x1ab7a…1ab90               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKC1 «, t00=0x0111, t01=0x0120}
0x1ab90…1abbc               Head {h00=0x0028, h01=0x0050, text=» ORKL A1,/800 FORM SST A2,XX  INSTR.«, t00=0x0111, t01=0x0136}
0x1abbc…1abd2               Head {h00=0x0012, h01=0x0050, text=» ST A1,SEEKC2 «, t00=0x0111, t01=0x0162}
0x1abd2…1abe6               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x0111, t01=0x0178}
0x1abe6…1ac1c               Head {h00=0x0032, h01=0x0050, text=» ST A2,PSECNL+STKEND INIT VALUE FOR SECTOR NBR«, t00=0x0111, t01=0x018c}
0x1ac1c…1ac46               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/300 BUFLEN 80M CDC DISC «, t00=0x0112, t01=0x0032}
0x1ac46…1ac68               Head {h00=0x001e, h01=0x0050, text=» ST A2,SAVCON SAVE LENGTH «, t00=0x0112, t01=0x005c}
0x1ac68…1aca0               Head {h00=0x0034, h01=0x0050, text=» LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR.«, t00=0x0112, t01=0x007e}
0x1aca0…1acb4               Head {h00=0x0010, h01=0x0050, text=» ST A2,READ «, t00=0x0112, t01=0x00b6}
0x1acb4…1acc8               Head {h00=0x0010, h01=0x0050, text=» ST A2,READS«, t00=0x0112, t01=0x00ca}
0x1acc8…1acf2               Head {h00=0x0026, h01=0x0050, text=» CF A14,GETVLB GET VOLUME LABEL =9«, t00=0x0112, t01=0x00de}
0x1acf2…1ad1a               Head {h00=0x0024, h01=0x0050, text=» LC A2,FORDEV+1,A9 GET FORMAT =9«, t00=0x0112, t01=0x0108}
0x1ad1a…1ad3c               Head {h00=0x001e, h01=0x0050, text=» ANK A2,1 FORMAT 4 OR 5 =9«, t00=0x0112, t01=0x0130}
0x1ad3c…1ad68               Head {h00=0x0028, h01=0x0050, text=» LDK A2,23 CONSTANT FOR 16M DISC =9 «, t00=0x0112, t01=0x0152}
0x1ad68…1ad8a               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) CDI:10 16M DISC =9«, t00=0x0112, t01=0x017e}
0x1ad8a…1adb6               Head {h00=0x0028, h01=0x0050, text=» LDK A2,115 CONSTANT FOR 80M DISC =9«, t00=0x0113, t01=0x0010}
0x1adb6…1adce               Head {h00=0x0014, h01=0x0050, text=»CDI:10 EQU *  =9«, t00=0x0113, t01=0x003c}
0x1adce…1adfa               Head {h00=0x0028, h01=0x0050, text=» ST A2,DIVCON SET DIVIDE CONSTANT =9«, t00=0x0113, t01=0x0054}
0x1adfa…1ae0a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0113, t01=0x0080}
0x1ae0a…1ae18               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0113, t01=0x0090}
0x1ae18…1ae50               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0113, t01=0x009e}
0x1ae50…1ae88               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0113, t01=0x00d6}
0x1ae88…1aec0               Head {h00=0x0034, h01=0x0050, text=»*  CRDSEC- READ ONE SECTOR FROM DISC          * «, t00=0x0113, t01=0x010e}
0x1aec0…1aef8               Head {h00=0x0034, h01=0x0050, text=»*  =================================          * «, t00=0x0113, t01=0x0146}
0x1aef8…1af30               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0113, t01=0x017e}
0x1af30…1af68               Head {h00=0x0034, h01=0x0050, text=»*  REFERENCED IN: SYSLOD                      * «, t00=0x0114, t01=0x0026}
0x1af68…1afa0               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0114, t01=0x005e}
0x1afa0…1afd8               Head {h00=0x0034, h01=0x0050, text=»*  ENTRY:  A9 = BUFFER ADDRESS                * «, t00=0x0114, t01=0x0096}
0x1afd8…1b010               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0114, t01=0x00ce}
0x1b010…1b048               Head {h00=0x0034, h01=0x0050, text=»*         A11 - SECTOR NBR LEAST SIGNIFICANT  * «, t00=0x0114, t01=0x0106}
0x1b048…1b080               Head {h00=0x0034, h01=0x0050, text=»*         A12 - SECTOR NBR MOST SIGNIFICANT   * «, t00=0x0114, t01=0x013e}
0x1b080…1b0b8               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0114, t01=0x0176}
0x1b0b8…1b0f0               Head {h00=0x0034, h01=0x0050, text=»*  EXIT: A12,A11 = A12,A11 + 1                * «, t00=0x0115, t01=0x001e}
0x1b0f0…1b128               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0115, t01=0x0056}
0x1b128…1b160               Head {h00=0x0034, h01=0x0050, text=»*   WORK REGISTERS:  A1,A2,A3,A6              * «, t00=0x0115, t01=0x008e}
0x1b160…1b198               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0115, t01=0x00c6}
0x1b198…1b1d0               Head {h00=0x0034, h01=0x0050, text=»*  SUBROUTINES:  ERROR                        * «, t00=0x0115, t01=0x00fe}
0x1b1d0…1b208               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0115, t01=0x0136}
0x1b208…1b240               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0115, t01=0x016e}
0x1b240…1b24a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0116, t01=0x0016}
0x1b24a…1b25e               Head {h00=0x0010, h01=0x0050, text=»CRDSEC EQU *«, t00=0x0116, t01=0x0020}
0x1b25e…1b268               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0116, t01=0x0034}
0x1b268…1b284               Head {h00=0x0018, h01=0x0050, text=»* SET BUFFER ADDRESS«, t00=0x0116, t01=0x003e}
0x1b284…1b28e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0116, t01=0x005a}
0x1b28e…1b2b0               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A9 BUFFER ADDRESS «, t00=0x0116, t01=0x0064}
0x1b2b0…1b2c4               Head {h00=0x0010, h01=0x0050, text=» ADKL A1,256«, t00=0x0116, t01=0x0086}
0x1b2c4…1b2e4               Head {h00=0x001c, h01=0x0050, text=» ST A1,CIOAD2 ADDRESS 2 «, t00=0x0116, t01=0x009a}
0x1b2e4…1b2f8               Head {h00=0x0010, h01=0x0050, text=» ADKL A1,256«, t00=0x0116, t01=0x00ba}
0x1b2f8…1b318               Head {h00=0x001c, h01=0x0050, text=» ST A1,CIOAD3 ADDRESS 3 «, t00=0x0116, t01=0x00ce}
0x1b318…1b32e               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/3FFF«, t00=0x0116, t01=0x00ee}
0x1b32e…1b350               Head {h00=0x001e, h01=0x0050, text=» ANS A1,CIOTAB RESET BITS «, t00=0x0116, t01=0x0104}
0x1b350…1b372               Head {h00=0x001e, h01=0x0050, text=» ANS A1,CIOTOT RESET BITS «, t00=0x0116, t01=0x0126}
0x1b372…1b3a4               Head {h00=0x002e, h01=0x0050, text=» LDR A1,A12 SECTOR NUMBER MOST SIGNIFICANT«, t00=0x0116, t01=0x0148}
0x1b3a4…1b3d8               Head {h00=0x0030, h01=0x0050, text=» LDR A2,A11 SECTOR NUMBER LEAST SIGNIFICANT «, t00=0x0116, t01=0x017a}
0x1b3d8…1b3e6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0117, t01=0x001e}
0x1b3e6…1b3f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x002c}
0x1b3f0…1b410               Head {h00=0x001c, h01=0x0050, text=»* DIVIDE LOGICAL WITH 3 «, t00=0x0117, t01=0x0036}
0x1b410…1b41a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0117, t01=0x0056}
0x1b41a…1b42c               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0117, t01=0x0060}
0x1b42c…1b440               Head {h00=0x0010, h01=0x0050, text=»RED100 EQU *«, t00=0x0117, t01=0x0072}
0x1b440…1b452               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0117, t01=0x0086}
0x1b452…1b464               Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x0117, t01=0x0098}
0x1b464…1b47a               Head {h00=0x0012, h01=0x0050, text=» RB(NN) RED100«, t00=0x0117, t01=0x00aa}
0x1b47a…1b48c               Head {h00=0x000e, h01=0x0050, text=» ADK A1,3 «, t00=0x0117, t01=0x00c0}
0x1b48c…1b49e               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0117, t01=0x00d2}
0x1b49e…1b4ac               Head {h00=0x000a, h01=0x0050, text=» DVK 3«, t00=0x0117, t01=0x00e4}
0x1b4ac…1b4c2               Head {h00=0x0012, h01=0x0050, text=» CW A9,CIOAD1 «, t00=0x0117, t01=0x00f2}
0x1b4c2…1b500               Head {h00=0x003a, h01=0x0050, text=» RF(NE) RED110 NOT SAME BUFFER ADDRESS MEANS NEW READ «, t00=0x0117, t01=0x0108}
0x1b500…1b51c               Head {h00=0x0018, h01=0x0050, text=» CW A2,PSECNL+STKEND«, t00=0x0117, t01=0x0146}
0x1b51c…1b54c               Head {h00=0x002c, h01=0x0050, text=» RF(NE) RED110 NOT SAME PHYSICAL SEC NBR«, t00=0x0117, t01=0x0162}
0x1b54c…1b568 (280, 0, 400) Head {h00=0x0018, h01=0x0050, text=» CW A3,PSECNM+STKEND«, t00=0x0118, t01=0x0004}
0x1b568…1b598               Head {h00=0x002c, h01=0x0050, text=» RF(NE) RED110 NOT SAME PHYSICAL SEC NBR«, t00=0x0118, t01=0x0020}
0x1b598…1b5b4               Head {h00=0x0018, h01=0x0050, text=» CW A1,PSECPA+STKEND«, t00=0x0118, t01=0x0050}
0x1b5b4…1b5de               Head {h00=0x0026, h01=0x0050, text=» RF(E) TURN SAME LOG SEC AS BEFORE«, t00=0x0118, t01=0x006c}
0x1b5de…1b610               Head {h00=0x002e, h01=0x0050, text=» RF(G) REDMOV MOVE UP NEXT LOGICAL SECTOR «, t00=0x0118, t01=0x0096}
0x1b610…1b624               Head {h00=0x0010, h01=0x0050, text=»RED110 EQU *«, t00=0x0118, t01=0x00c8}
0x1b624…1b644               Head {h00=0x001c, h01=0x0050, text=» ST A9,CIOAD1 ADDRESS 1 «, t00=0x0118, t01=0x00dc}
0x1b644…1b670               Head {h00=0x0028, h01=0x0050, text=» MS 3,PSECPA+STKEND SAVE NEW VALUES «, t00=0x0118, t01=0x00fc}
0x1b670…1b682               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0118, t01=0x0128}
0x1b682…1b69c               Head {h00=0x0016, h01=0x0050, text=»DIVCON EQU *+2  =9«, t00=0x0118, t01=0x013a}
0x1b69c…1b6b0               Head {h00=0x0010, h01=0x0050, text=» DVK 23  =9 «, t00=0x0118, t01=0x0154}
0x1b6b0…1b6be               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0118, t01=0x0168}
0x1b6be…1b6e0               Head {h00=0x001e, h01=0x0050, text=»* A1=HEAD NBR * SECTOR NBR«, t00=0x0118, t01=0x0176}
0x1b6e0…1b6fa               Head {h00=0x0016, h01=0x0050, text=»* A2=CYLINDER NBR «, t00=0x0119, t01=0x0008}
0x1b6fa…1b70c               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0119, t01=0x0022}
0x1b70c…1b71e               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0119, t01=0x0034}
0x1b71e…1b730               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0119, t01=0x0046}
0x1b730…1b740               Head {h00=0x000c, h01=0x0050, text=» DVK 23 «, t00=0x0119, t01=0x0058}
0x1b740…1b758               Head {h00=0x0014, h01=0x0050, text=»* A1=SECTOR NBR «, t00=0x0119, t01=0x0068}
0x1b758…1b76e               Head {h00=0x0012, h01=0x0050, text=»* A2=HEAD NBR «, t00=0x0119, t01=0x0080}
0x1b76e…1b796               Head {h00=0x0024, h01=0x0050, text=» ORKL A2,/800 SET INTERRUPT BIT «, t00=0x0119, t01=0x0096}
0x1b796…1b7c6               Head {h00=0x002c, h01=0x0050, text=» OR A2,CARFIX+STKEND FIX OR CARTRIDGE =9«, t00=0x0119, t01=0x00be}
0x1b7c6…1b7ec               Head {h00=0x0022, h01=0x0050, text=» ST A2,CIOTAB UPDATE CIO TABLE«, t00=0x0119, t01=0x00ee}
0x1b7ec…1b7fa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0119, t01=0x0114}
0x1b7fa…1b804               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x0122}
0x1b804…1b81a               Head {h00=0x0012, h01=0x0050, text=»* INTERLACING «, t00=0x0119, t01=0x012c}
0x1b81a…1b824               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x0142}
0x1b824…1b836               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0119, t01=0x014c}
0x1b836…1b852               Head {h00=0x0018, h01=0x0050, text=» MUK 5 INTERLACING 5«, t00=0x0119, t01=0x015e}
0x1b852…1b868               Head {h00=0x0012, h01=0x0050, text=» SRC A3,1  =9 «, t00=0x0119, t01=0x017a}
0x1b868…1b894               Head {h00=0x0028, h01=0x0050, text=» RF(NN) INT100 EVEN CYLINDER NUMBER «, t00=0x0119, t01=0x0190}
0x1b894…1b8b2               Head {h00=0x001a, h01=0x0050, text=» ADK A2,12 SKEW FACTOR«, t00=0x011a, t01=0x002c}
0x1b8b2…1b8c6               Head {h00=0x0010, h01=0x0050, text=»INT100 EQU *«, t00=0x011a, t01=0x004a}
0x1b8c6…1b8d6               Head {h00=0x000c, h01=0x0050, text=» DVK 23 «, t00=0x011a, t01=0x005e}
0x1b8d6…1b8f4               Head {h00=0x001a, h01=0x0050, text=» SLL A1,5 IN POSITION «, t00=0x011a, t01=0x006e}
0x1b8f4…1b91c               Head {h00=0x0024, h01=0x0050, text=» ORS A1,CIOTAB UPDATE CIO TABLE «, t00=0x011a, t01=0x008c}
0x1b91c…1b93c               Head {h00=0x001c, h01=0x0050, text=» SLC A3,1 RESTORE A3 =9 «, t00=0x011a, t01=0x00b4}
0x1b93c…1b952               Head {h00=0x0012, h01=0x0050, text=» CW A3,CYLNBR «, t00=0x011a, t01=0x00d4}
0x1b952…1b97c               Head {h00=0x0026, h01=0x0050, text=» RF(E) READER SAME CYLINDER NUMBER«, t00=0x011a, t01=0x00ea}
0x1b97c…1b98a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011a, t01=0x0114}
0x1b98a…1b994               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011a, t01=0x0122}
0x1b994…1b9a2               Head {h00=0x000a, h01=0x0050, text=»* SEEK«, t00=0x011a, t01=0x012c}
0x1b9a2…1b9ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011a, t01=0x013a}
0x1b9ac…1b9d4               Head {h00=0x0024, h01=0x0050, text=» ST A3,CYLNBR SAVE CYLINDER NBR «, t00=0x011a, t01=0x0144}
0x1b9d4…1b9f8               Head {h00=0x0020, h01=0x0050, text=» ADKL A3,/A800 SEEK COMMAND «, t00=0x011a, t01=0x016c}
0x1b9f8…1ba0e               Head {h00=0x0012, h01=0x0050, text=» ST A3,SEKTAB «, t00=0x011a, t01=0x0190}
0x1ba0e…1ba26               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,SEKTAB «, t00=0x011b, t01=0x0016}
0x1ba26…1ba3a               Head {h00=0x0010, h01=0x0050, text=»SEEKC1 EQU *«, t00=0x011b, t01=0x002e}
0x1ba3a…1ba52               Head {h00=0x0014, h01=0x0050, text=» CIO A2,1,0 SEEK«, t00=0x011b, t01=0x0042}
0x1ba52…1ba68               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEKC1«, t00=0x011b, t01=0x005a}
0x1ba68…1ba7c               Head {h00=0x0010, h01=0x0050, text=»SEEKC2 EQU *«, t00=0x011b, t01=0x0070}
0x1ba7c…1ba8e               Head {h00=0x000e, h01=0x0050, text=» SST A2,0 «, t00=0x011b, t01=0x0084}
0x1ba8e…1baa4               Head {h00=0x0012, h01=0x0050, text=» RB(NA) SEEKC2«, t00=0x011b, t01=0x0096}
0x1baa4…1bab2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011b, t01=0x00ac}
0x1bab2…1babc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x00ba}
0x1babc…1bace               Head {h00=0x000e, h01=0x0050, text=»*    READ «, t00=0x011b, t01=0x00c4}
0x1bace…1bad8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011b, t01=0x00d6}
0x1bad8…1baec               Head {h00=0x0010, h01=0x0050, text=»READER EQU *«, t00=0x011b, t01=0x00e0}
0x1baec…1bb10               Head {h00=0x0020, h01=0x0050, text=» LDK A6,3 NUMBER OF RETRIES «, t00=0x011b, t01=0x00f4}
0x1bb10…1bb24               Head {h00=0x0010, h01=0x0050, text=»REA100 EQU *«, t00=0x011b, t01=0x0118}
0x1bb24…1bb50               Head {h00=0x0028, h01=0x0050, text=» LDKL A1,CIOTAB POINTER TO CIO TABLE«, t00=0x011b, t01=0x012c}
0x1bb50…1bb6e               Head {h00=0x001a, h01=0x0050, text=»READC1 CIO A1,1,0 READ«, t00=0x011b, t01=0x0158}
0x1bb6e…1bb98               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READC1 LOOP UNTIL ACCEPTED«, t00=0x011b, t01=0x0176}
0x1bb98…1bba2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011c, t01=0x0010}
0x1bba2…1bbc0               Head {h00=0x001a, h01=0x0050, text=»READC2 SST A1,0 STATUS«, t00=0x011c, t01=0x001a}
0x1bbc0…1bbea               Head {h00=0x0026, h01=0x0050, text=» RB(NA) READC2 LOOP UNTIL ACCEPTED«, t00=0x011c, t01=0x0038}
0x1bbea…1bc08               Head {h00=0x001a, h01=0x0050, text=» ANKL A1,/FF0F STATUS «, t00=0x011c, t01=0x0062}
0x1bc08…1bc2c               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RET30 READING ERROR «, t00=0x011c, t01=0x0080}
0x1bc2c…1bc6a               Head {h00=0x003a, h01=0x0050, text=» LD A1,PSECPA+STKEND GET LOGICAL SECT. IN PHYSICAL =11«, t00=0x011c, t01=0x00a4}
0x1bc6a…1bca8               Head {h00=0x003a, h01=0x0050, text=» RF(NZ) REDMOV NOT FIRST LOGICAL SECT. IN PHYSICAL =11«, t00=0x011c, t01=0x00e2}
0x1bca8…1bcb0               Head {h00=0x0004, h01=0x0050, t00=0x011c, t01=0x0120}
0x1bcb0…1bcc2               Head {h00=0x000e, h01=0x0050, text=»TURN EQU *«, t00=0x011c, t01=0x0128}
0x1bcc2…1bcf6               Head {h00=0x0030, h01=0x0050, text=» ADKL A11,1 INCREMENT LOGICAL SECTOR NUMBER «, t00=0x011c, t01=0x013a}
0x1bcf6…1bd14               Head {h00=0x001a, h01=0x0050, text=» RF(O) TURN10 OVERFLOW«, t00=0x011c, t01=0x016e}
0x1bd14…1bd26               Head {h00=0x000e, h01=0x0050, text=» RF TURN20«, t00=0x011c, t01=0x018c}
0x1bd26…1bd3a               Head {h00=0x0010, h01=0x0050, text=»TURN10 EQU *«, t00=0x011d, t01=0x000e}
0x1bd3a…1bd58               Head {h00=0x001a, h01=0x0050, text=» SUR A11,A11 RESET A11«, t00=0x011d, t01=0x0022}
0x1bd58…1bd6c               Head {h00=0x0010, h01=0x0050, text=» ADKL A12,1 «, t00=0x011d, t01=0x0040}
0x1bd6c…1bd80               Head {h00=0x0010, h01=0x0050, text=»TURN20 EQU *«, t00=0x011d, t01=0x0054}
0x1bd80…1bd90               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x011d, t01=0x0068}
0x1bd90…1bd9e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011d, t01=0x0078}
0x1bd9e…1bda8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011d, t01=0x0086}
0x1bda8…1bdce               Head {h00=0x0022, h01=0x0050, text=»* MOVE UP NEXT LOGICAL SECTOR «, t00=0x011d, t01=0x0090}
0x1bdce…1bdd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011d, t01=0x00b6}
0x1bdd8…1bdec               Head {h00=0x0010, h01=0x0050, text=»REDMOV EQU *«, t00=0x011d, t01=0x00c0}
0x1bdec…1be26               Head {h00=0x0036, h01=0x0050, text=» ST A1,PSECPA+STKEND SAVE NEW LOGICAL SECTOR PART «, t00=0x011d, t01=0x00d4}
0x1be26…1be3c               Head {h00=0x0012, h01=0x0050, text=» SLL A1,1  =9 «, t00=0x011d, t01=0x010e}
0x1be3c…1be52               Head {h00=0x0012, h01=0x0050, text=» LDR A2,A1  =9«, t00=0x011d, t01=0x0124}
0x1be52…1be68               Head {h00=0x0012, h01=0x0050, text=» ADR A1,A1  =9«, t00=0x011d, t01=0x013a}
0x1be68…1be92               Head {h00=0x0026, h01=0x0050, text=» ADR A1,A2 A1 MULTIPIED WITH 6 =9 «, t00=0x011d, t01=0x0150}
0x1be92…1beba               Head {h00=0x0024, h01=0x0050, text=» LD A1,CIOAD1,A1 SOURCE ADDRESS «, t00=0x011d, t01=0x017a}
0x1beba…1bee0               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A9 DESTINATION ADDRESS«, t00=0x011e, t01=0x0012}
0x1bee0…1bf04               Head {h00=0x0020, h01=0x0050, text=» LDK A3,128 LENGTH IN WORDS «, t00=0x011e, t01=0x0038}
0x1bf04…1bf18               Head {h00=0x0010, h01=0x0050, text=»RMOV10 EQU *«, t00=0x011e, t01=0x005c}
0x1bf18…1bf2c               Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A1 «, t00=0x011e, t01=0x0070}
0x1bf2c…1bf3e               Head {h00=0x000e, h01=0x0050, text=» STR A6,A2«, t00=0x011e, t01=0x0084}
0x1bf3e…1bf50               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x011e, t01=0x0096}
0x1bf50…1bf62               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x011e, t01=0x00a8}
0x1bf62…1bf74               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x011e, t01=0x00ba}
0x1bf74…1bf94               Head {h00=0x001c, h01=0x0050, text=» RB(P) RMOV10 NEXT WORD «, t00=0x011e, t01=0x00cc}
0x1bf94…1bfa4               Head {h00=0x000c, h01=0x0050, text=» RB TURN«, t00=0x011e, t01=0x00ec}
0x1bfa4…1bfac               Head {h00=0x0004, h01=0x0050, t00=0x011e, t01=0x00fc}
0x1bfac…1bfb4               Head {h00=0x0004, h01=0x0050, t00=0x011e, t01=0x0104}
0x1bfb4…1bfbc               Head {h00=0x0004, h01=0x0050, t00=0x011e, t01=0x010c}
0x1bfbc…1bfd0               Head {h00=0x0010, h01=0x0050, text=»NOFOND EQU *«, t00=0x011e, t01=0x0114}
0x1bfd0…1bfe6               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP2 «, t00=0x011e, t01=0x0128}
0x1bfe6…1c010               Head {h00=0x0026, h01=0x0050, text=» CALL ERROR INDICATE READING ERROR«, t00=0x011e, t01=0x013e}
0x1c010…1c01e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011e, t01=0x0168}
0x1c01e…1c028               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011e, t01=0x0176}
0x1c028…1c046               Head {h00=0x001a, h01=0x0050, text=»* IO ERROR IN READING «, t00=0x011e, t01=0x0180}
0x1c046…1c050               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x011f, t01=0x000e}
0x1c050…1c064               Head {h00=0x0010, h01=0x0050, text=»RET30 EQU * «, t00=0x011f, t01=0x0018}
0x1c064…1c076               Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x011f, t01=0x002c}
0x1c076…1c094               Head {h00=0x001a, h01=0x0050, text=» RB(NZ) REA100 NEW TRY«, t00=0x011f, t01=0x003e}
0x1c094…1c0aa               Head {h00=0x0012, h01=0x0050, text=» LC A1,CIOTAB «, t00=0x011f, t01=0x005c}
0x1c0aa…1c0be               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/C0 «, t00=0x011f, t01=0x0072}
0x1c0be…1c0f6               Head {h00=0x0034, h01=0x0050, text=» RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S «, t00=0x011f, t01=0x0086}
0x1c0f6…1c10c               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x011f, t01=0x00be}
0x1c10c…1c140               Head {h00=0x0030, h01=0x0050, text=» ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE«, t00=0x011f, t01=0x00d4}
0x1c140…1c152               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x011f, t01=0x0108}
0x1c152…1c166               Head {h00=0x0010, h01=0x0050, text=»RET31 EQU * «, t00=0x011f, t01=0x011a}
0x1c166…1c17a               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x011f, t01=0x012e}
0x1c17a…1c1b0               Head {h00=0x0032, h01=0x0050, text=» RF(Z) RET32 LAST RETRY WITH LATE DATA STROBE «, t00=0x011f, t01=0x0142}
0x1c1b0…1c1c6               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/C000«, t00=0x011f, t01=0x0178}
0x1c1c6…1c1fa               Head {h00=0x0030, h01=0x0050, text=» XRS A2,CIOTAB CHANGE FROM EARLY TO LATE D.S«, t00=0x011f, t01=0x018e}
0x1c1fa…1c20c               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x0120, t01=0x0032}
0x1c20c…1c220               Head {h00=0x0010, h01=0x0050, text=»RET32 EQU * «, t00=0x0120, t01=0x0044}
0x1c220…1c236               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/3FFF«, t00=0x0120, t01=0x0058}
0x1c236…1c264               Head {h00=0x002a, h01=0x0050, text=» ANS A2,CIOTAB RESET LATE DATA STROBE «, t00=0x0120, t01=0x006e}
0x1c264…1c27a               Head {h00=0x0012, h01=0x0050, text=» LC A1,CIOTOT «, t00=0x0120, t01=0x009c}
0x1c27a…1c28e               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/C0 «, t00=0x0120, t01=0x00b2}
0x1c28e…1c2c6               Head {h00=0x0034, h01=0x0050, text=» RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- «, t00=0x0120, t01=0x00c6}
0x1c2c6…1c2dc               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x0120, t01=0x00fe}
0x1c2dc…1c308               Head {h00=0x0028, h01=0x0050, text=» ORS A2,CIOTOT PREPARE FOR CARRIAGE+«, t00=0x0120, t01=0x0114}
0x1c308…1c31a               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x0120, t01=0x0140}
0x1c31a…1c32e               Head {h00=0x0010, h01=0x0050, text=»RET33 EQU * «, t00=0x0120, t01=0x0152}
0x1c32e…1c342               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x0120, t01=0x0166}
0x1c342…1c366               Head {h00=0x0020, h01=0x0050, text=» RB(Z) NOFOND READING ERROR «, t00=0x0120, t01=0x017a}
0x1c366…1c37c               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/C000«, t00=0x0121, t01=0x000e}
0x1c37c…1c3ae               Head {h00=0x002e, h01=0x0050, text=» XRS A2,CIOTOT FROM CARRIAGE+ TO CARRIGE- «, t00=0x0121, t01=0x0024}
0x1c3ae…1c3c0               Head {h00=0x000e, h01=0x0050, text=» RB READER«, t00=0x0121, t01=0x0056}
0x1c3c0…1c3ce               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0121, t01=0x0068}
0x1c3ce…1c3d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x0076}
0x1c3d8…1c3ec               Head {h00=0x0010, h01=0x0050, text=»* SEEK TABLE«, t00=0x0121, t01=0x0080}
0x1c3ec…1c3f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x0094}
0x1c3f6…1c40a               Head {h00=0x0010, h01=0x0050, text=»SEKTAB EQU *«, t00=0x0121, t01=0x009e}
0x1c40a…1c41a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0121, t01=0x00b2}
0x1c41a…1c424               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x00c2}
0x1c424…1c438               Head {h00=0x0010, h01=0x0050, text=»* CIO TABLE «, t00=0x0121, t01=0x00cc}
0x1c438…1c442               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0121, t01=0x00e0}
0x1c442…1c456               Head {h00=0x0010, h01=0x0050, text=»CIOTAB EQU *«, t00=0x0121, t01=0x00ea}
0x1c456…1c480               Head {h00=0x0026, h01=0x0050, text=» DATA 0 ORDER,SECTOR NBR,HEAD NBR «, t00=0x0121, t01=0x00fe}
0x1c480…1c494               Head {h00=0x0010, h01=0x0050, text=»CIOTOT EQU *«, t00=0x0121, t01=0x0128}
0x1c494…1c4ce               Head {h00=0x0036, h01=0x0050, text=» DATA 384 TOTAL NUMBER OF WORDS(1 PHYSICAL SECTOR)«, t00=0x0121, t01=0x013c}
0x1c4ce…1c4e2               Head {h00=0x0010, h01=0x0050, text=»CIOPA1 EQU *«, t00=0x0121, t01=0x0176}
0x1c4e2…1c51c               Head {h00=0x0036, h01=0x0050, text=» DATA /4000+128 DATA CHAINING BIT,NUMBER OF WORDS «, t00=0x0121, t01=0x018a}
0x1c51c…1c542               Head {h00=0x0022, h01=0x0050, text=» DATA 0 ADDRESS1 MOST SIGN. =9«, t00=0x0122, t01=0x0034}
0x1c542…1c556               Head {h00=0x0010, h01=0x0050, text=»CIOAD1 EQU *«, t00=0x0122, t01=0x005a}
0x1c556…1c570               Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 1 «, t00=0x0122, t01=0x006e}
0x1c570…1c584               Head {h00=0x0010, h01=0x0050, text=»CIOPA2 EQU *«, t00=0x0122, t01=0x0088}
0x1c584…1c59c               Head {h00=0x0014, h01=0x0050, text=» DATA /4000+128 «, t00=0x0122, t01=0x009c}
0x1c59c…1c5c4               Head {h00=0x0024, h01=0x0050, text=» DATA 0 ADDRESS 2 MOST SIGN. =9 «, t00=0x0122, t01=0x00b4}
0x1c5c4…1c5d8               Head {h00=0x0010, h01=0x0050, text=»CIOAD2 EQU *«, t00=0x0122, t01=0x00dc}
0x1c5d8…1c5f2               Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 2 «, t00=0x0122, t01=0x00f0}
0x1c5f2…1c606               Head {h00=0x0010, h01=0x0050, text=»CIOPA3 EQU *«, t00=0x0122, t01=0x010a}
0x1c606…1c618               Head {h00=0x000e, h01=0x0050, text=» DATA 128 «, t00=0x0122, t01=0x011e}
0x1c618…1c640               Head {h00=0x0024, h01=0x0050, text=» DATA 0 ADDRESS 3 MOST SIGN. =9 «, t00=0x0122, t01=0x0130}
0x1c640…1c654               Head {h00=0x0010, h01=0x0050, text=»CIOAD3 EQU *«, t00=0x0122, t01=0x0158}
0x1c654…1c66e               Head {h00=0x0016, h01=0x0050, text=» DATA 0 ADDRESS 3 «, t00=0x0122, t01=0x016c}
0x1c66e…1c67a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0122, t01=0x0186}
0x1c67a…1c688 (291, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0123, t01=0x0004}
0x1c688…1c6c4               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0123, t01=0x0012}
0x1c6c4…1c700               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0123, t01=0x004e}
0x1c700…1c73c               Head {h00=0x0038, h01=0x0050, text=»*        GETFIL - GET CONFIGURATION FILE          * «, t00=0x0123, t01=0x008a}
0x1c73c…1c778               Head {h00=0x0038, h01=0x0050, text=»*        ===============================          * «, t00=0x0123, t01=0x00c6}
0x1c778…1c7b4               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0123, t01=0x0102}
0x1c7b4…1c7f0               Head {h00=0x0038, h01=0x0050, text=»*  REFERENCED IN:  SYSLOD                         * «, t00=0x0123, t01=0x013e}
0x1c7f0…1c82c               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0123, t01=0x017a}
0x1c82c…1c868               Head {h00=0x0038, h01=0x0050, text=»*  ENTRY:  A9 - BUFFER ADDRESS                    * «, t00=0x0124, t01=0x0026}
0x1c868…1c8a4               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0124, t01=0x0062}
0x1c8a4…1c8e0               Head {h00=0x0038, h01=0x0050, text=»*  EXIT:  A11 - SECTOR ADDRESS TO CONF. FILE      * «, t00=0x0124, t01=0x009e}
0x1c8e0…1c91c               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0124, t01=0x00da}
0x1c91c…1c956               Head {h00=0x0036, h01=0x0050, text=»*  WORK REGISTERS:  A1,A2,A3,A4,A5,A6,A7,A8,A10  *«, t00=0x0124, t01=0x0116}
0x1c956…1c992               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0124, t01=0x0150}
0x1c992…1c9ce               Head {h00=0x0038, h01=0x0050, text=»*  SUBROUTINES:  READVL,READCF                    * «, t00=0x0124, t01=0x018c}
0x1c9ce…1ca0a               Head {h00=0x0038, h01=0x0050, text=»*                                                 * «, t00=0x0125, t01=0x0038}
0x1ca0a…1ca46               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0125, t01=0x0074}
0x1ca46…1ca5a               Head {h00=0x0010, h01=0x0050, text=»GETFIL EQU *«, t00=0x0125, t01=0x00b0}
0x1ca5a…1ca70               Head {h00=0x0012, h01=0x0050, text=» CF A14,GETVLB«, t00=0x0125, t01=0x00c4}
0x1ca70…1ca84               Head {h00=0x0010, h01=0x0050, text=»GET:10 EQU *«, t00=0x0125, t01=0x00da}
0x1ca84…1caaa               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDSEC GET VOLUME LABEL«, t00=0x0125, t01=0x00ee}
0x1caaa…1cad6               Head {h00=0x0028, h01=0x0050, text=» LDK A7,QBLFAC VTOC BLOCKING FACTOR «, t00=0x0125, t01=0x0114}
0x1cad6…1cafc               Head {h00=0x0022, h01=0x0050, text=» LDR A6,A9 GET START OF BUFFER«, t00=0x0125, t01=0x0140}
0x1cafc…1cb10               Head {h00=0x0010, h01=0x0050, text=»GET:20 EQU *«, t00=0x0125, t01=0x0166}
0x1cb10…1cb2e               Head {h00=0x001a, h01=0x0050, text=» LDK A5,/20 LOAD SPACE«, t00=0x0125, t01=0x017a}
0x1cb2e…1cb4e               Head {h00=0x001c, h01=0x0050, text=» CCR A5,A6 UNUSED FILE? «, t00=0x0126, t01=0x0008}
0x1cb4e…1cb68               Head {h00=0x0016, h01=0x0050, text=» RF(E) GET:50 YES!«, t00=0x0126, t01=0x0028}
0x1cb68…1cb8a               Head {h00=0x001e, h01=0x0050, text=» LDR A4,A6 START OF RECORD«, t00=0x0126, t01=0x0042}
0x1cb8a…1cbb6               Head {h00=0x0028, h01=0x0050, text=» LDK A5,'S' STANDARD FILE CHARACTER «, t00=0x0126, t01=0x0064}
0x1cbb6…1cbda               Head {h00=0x0020, h01=0x0050, text=» CC A5,27,A6 STANDARD FILE? «, t00=0x0126, t01=0x0090}
0x1cbda…1cbf4               Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:50 NO!«, t00=0x0126, t01=0x00b4}
0x1cbf4…1cc22               Head {h00=0x002a, h01=0x0050, text=» LDK A5,'$' LEADING CHAR IN CONF. FILE«, t00=0x0126, t01=0x00ce}
0x1cc22…1cc48               Head {h00=0x0022, h01=0x0050, text=» CCR A5,A4 CONFIGURATION FILE?«, t00=0x0126, t01=0x00fc}
0x1cc48…1cc62               Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:50 NO!«, t00=0x0126, t01=0x0122}
0x1cc62…1cc98               Head {h00=0x0032, h01=0x0050, text=»GET:25 LDK A3,'C' THIS INSTRUCTION IS MODIFIED«, t00=0x0126, t01=0x013c}
0x1cc98…1ccc4               Head {h00=0x0028, h01=0x0050, text=» CCK A3,'CC' LOOKING FOR CONF. FILE?«, t00=0x0126, t01=0x0172}
0x1ccc4…1ccde               Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:85 NO!«, t00=0x0127, t01=0x000e}
0x1ccde…1cd00               Head {h00=0x001e, h01=0x0050, text=» ADK A4,5 SIXTH CHARACTER «, t00=0x0127, t01=0x0028}
0x1cd00…1cd30               Head {h00=0x002c, h01=0x0050, text=» LDK A5,':' CHARACTER TO PRECEED NUMBER «, t00=0x0127, t01=0x004a}
0x1cd30…1cd5c               Head {h00=0x0028, h01=0x0050, text=»GET:30 CCR A5,A4 CONFIGURATION FILE?«, t00=0x0127, t01=0x007a}
0x1cd5c…1cd76               Head {h00=0x0016, h01=0x0050, text=» RF(E) GET:40 YES!«, t00=0x0127, t01=0x00a6}
0x1cd76…1cd9a               Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 TRY NEXT CHARACTER«, t00=0x0127, t01=0x00c0}
0x1cd9a…1cdbc               Head {h00=0x001e, h01=0x0050, text=» CWR A4,A6 FIRST IN NAME? «, t00=0x0127, t01=0x00e4}
0x1cdbc…1cdd6               Head {h00=0x0016, h01=0x0050, text=» RF(E) GET:50 YES!«, t00=0x0127, t01=0x0106}
0x1cdd6…1cde8               Head {h00=0x000e, h01=0x0050, text=» RB GET:30«, t00=0x0127, t01=0x0120}
0x1cde8…1cdfc               Head {h00=0x0010, h01=0x0050, text=»GET:40 EQU *«, t00=0x0127, t01=0x0132}
0x1cdfc…1ce06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x0146}
0x1ce06…1ce2a               Head {h00=0x0020, h01=0x0050, text=»*  CHECK APPLICATION NUMBER «, t00=0x0127, t01=0x0150}
0x1ce2a…1ce34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0127, t01=0x0174}
0x1ce34…1ce56               Head {h00=0x001e, h01=0x0050, text=» LC A5,1,A4 GET LEFT DIGIT«, t00=0x0127, t01=0x017e}
0x1ce56…1ce7a               Head {h00=0x0020, h01=0x0050, text=» SLL A5,8 SHIFT TO LEFT BYTE«, t00=0x0128, t01=0x0010}
0x1ce7a…1ce9e               Head {h00=0x0020, h01=0x0050, text=» LC A5,2,A4 GET RIGHT DIGIT «, t00=0x0128, t01=0x0034}
0x1ce9e…1cec4               Head {h00=0x0022, h01=0x0050, text=» CALL CONVRT CONVERT TO BINARY«, t00=0x0128, t01=0x0058}
0x1cec4…1cef4               Head {h00=0x002c, h01=0x0050, text=» CW A1,SCTANO SAME AS APPLICATION NUMBER«, t00=0x0128, t01=0x007e}
0x1cef4…1cf0a               Head {h00=0x0012, h01=0x0050, text=» RF(NE) GET:50«, t00=0x0128, t01=0x00ae}
0x1cf0a…1cf14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x00c4}
0x1cf14…1cf38               Head {h00=0x0020, h01=0x0050, text=»*  CONFIGURATION FILE FOUND «, t00=0x0128, t01=0x00ce}
0x1cf38…1cf42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0128, t01=0x00f2}
0x1cf42…1cf6a               Head {h00=0x0024, h01=0x0050, text=» LD A1,22,A6 LAST RECORD NUMBER «, t00=0x0128, t01=0x00fc}
0x1cf6a…1cf8c               Head {h00=0x001e, h01=0x0050, text=» ST A1,LSTREC+STKEND SAVE «, t00=0x0128, t01=0x0124}
0x1cf8c…1cfa6               Head {h00=0x0016, h01=0x0050, text=» LD A12,16,A6 GET «, t00=0x0128, t01=0x0146}
0x1cfa6…1cfca               Head {h00=0x0020, h01=0x0050, text=» LD A11,18,A6 SECTOR ADDRESS«, t00=0x0128, t01=0x0160}
0x1cfca…1cfda               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0128, t01=0x0184}
0x1cfda…1cfe4 (297, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x0004}
0x1cfe4…1cff8               Head {h00=0x0010, h01=0x0050, text=»GET:50 EQU *«, t00=0x0129, t01=0x000e}
0x1cff8…1d01c               Head {h00=0x0020, h01=0x0050, text=» ADR A6,A8 NEXT VTOC RECORD «, t00=0x0129, t01=0x0022}
0x1d01c…1d046               Head {h00=0x0026, h01=0x0050, text=» ADK A6,1 BYPASS STATUS CHARACTER «, t00=0x0129, t01=0x0046}
0x1d046…1d076               Head {h00=0x002c, h01=0x0050, text=» SUK A7,1 MOORE RECORDS IN THIS SECTOR? «, t00=0x0129, t01=0x0070}
0x1d076…1d090               Head {h00=0x0016, h01=0x0050, text=» RB(P) GET:20 YES!«, t00=0x0129, t01=0x00a0}
0x1d090…1d0b6               Head {h00=0x0022, h01=0x0050, text=» CWR A11,A10 LAST VTOC SECTOR?«, t00=0x0129, t01=0x00ba}
0x1d0b6…1d0d0               Head {h00=0x0016, h01=0x0050, text=» RB(NE) GET:10 NO!«, t00=0x0129, t01=0x00e0}
0x1d0d0…1d106               Head {h00=0x0032, h01=0x0050, text=»GET:60 LDK A3,'C' THIS INSTRUCTION IS MODIFIED«, t00=0x0129, t01=0x00fa}
0x1d106…1d132               Head {h00=0x0028, h01=0x0050, text=» CCK A3,'CC' LOOKING FOR CONF. FILE?«, t00=0x0129, t01=0x0130}
0x1d132…1d14c               Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:99 NO!«, t00=0x0129, t01=0x015c}
0x1d14c…1d156               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0129, t01=0x0176}
0x1d156…1d194               Head {h00=0x003a, h01=0x0050, text=»*  CONFIGURATION FILE NOT FOUND - READ SOP AND SELECT «, t00=0x0129, t01=0x0180}
0x1d194…1d1c2               Head {h00=0x002a, h01=0x0050, text=»*  LOAD MEDIUM FOR CONFIGURATION FILE «, t00=0x012a, t01=0x002e}
0x1d1c2…1d1cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x005c}
0x1d1cc…1d1d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012a, t01=0x0066}
0x1d1d6…1d1ec               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/7F8 «, t00=0x012a, t01=0x0070}
0x1d1ec…1d216               Head {h00=0x0026, h01=0x0050, text=» OTR A2,0,SOP SWITCH ON SOP LAMPS «, t00=0x012a, t01=0x0086}
0x1d216…1d22a               Head {h00=0x0010, h01=0x0050, text=»GET:70 EQU *«, t00=0x012a, t01=0x00b0}
0x1d22a…1d240               Head {h00=0x0012, h01=0x0050, text=» CF A14,SOPIN «, t00=0x012a, t01=0x00c4}
0x1d240…1d266               Head {h00=0x0022, h01=0x0050, text=» ANKL A1,/7FC ALLOWED SWITCH? «, t00=0x012a, t01=0x00da}
0x1d266…1d280               Head {h00=0x0016, h01=0x0050, text=» RB(Z) GET:70 NO! «, t00=0x012a, t01=0x0100}
0x1d280…1d296               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,LMP1 «, t00=0x012a, t01=0x011a}
0x1d296…1d2c0               Head {h00=0x0026, h01=0x0050, text=» OTR A2,0,SOP SWITCH ON LOAD LAMP «, t00=0x012a, t01=0x0130}
0x1d2c0…1d2d2               Head {h00=0x000e, h01=0x0050, text=» SRN A1,A2«, t00=0x012a, t01=0x015a}
0x1d2d2…1d2fe               Head {h00=0x0028, h01=0x0050, text=» LC A1,DEVTAB,A2 GET DEVICE ADDRESS «, t00=0x012a, t01=0x016c}
0x1d2fe…1d312               Head {h00=0x0010, h01=0x0050, text=»GET:75 EQU *«, t00=0x012b, t01=0x0008}
0x1d312…1d34c               Head {h00=0x0036, h01=0x0050, text=» SC A1,CONDEV+1+STKEND SAVE CONF. DATA LOAD DEVICE«, t00=0x012b, t01=0x001c}
0x1d34c…1d378               Head {h00=0x0028, h01=0x0050, text=» CF A14,CONFLD CONFIGURE LOAD DEVICE«, t00=0x012b, t01=0x0056}
0x1d378…1d38a               Head {h00=0x000e, h01=0x0050, text=» RB GETFIL«, t00=0x012b, t01=0x0082}
0x1d38a…1d39e               Head {h00=0x0010, h01=0x0050, text=»GET:85 EQU *«, t00=0x012b, t01=0x0094}
0x1d39e…1d3c6               Head {h00=0x0024, h01=0x0050, text=» CCK A3,'SS' LOOKING FOR $SWAPP?«, t00=0x012b, t01=0x00a8}
0x1d3c6…1d3e0               Head {h00=0x0016, h01=0x0050, text=» RF(NE) GET:99 NO!«, t00=0x012b, t01=0x00d0}
0x1d3e0…1d40a               Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 RESET CHARACTER COUNTER «, t00=0x012b, t01=0x00ea}
0x1d40a…1d438               Head {h00=0x002a, h01=0x0050, text=»GET:90 LCR A1,A4 GET CHAR IN FILENAME «, t00=0x012b, t01=0x0114}
0x1d438…1d46a               Head {h00=0x002e, h01=0x0050, text=» CC A1,SWPTAB,A5 CHECK IF PRESCIBED CHAR. «, t00=0x012b, t01=0x0142}
0x1d46a…1d484               Head {h00=0x0016, h01=0x0050, text=» RB(NE) GET:50 NO!«, t00=0x012b, t01=0x0174}
0x1d484…1d4a4               Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 NEXT CHARACTER«, t00=0x012b, t01=0x018e}
0x1d4a4…1d4d2               Head {h00=0x002a, h01=0x0050, text=» ADK A5,1 INCREMENT CHARACTER COUNTER «, t00=0x012c, t01=0x001e}
0x1d4d2…1d4fc               Head {h00=0x0026, h01=0x0050, text=» CWK A5,8 ALL CHARACTERS CHECKED? «, t00=0x012c, t01=0x004c}
0x1d4fc…1d516               Head {h00=0x0016, h01=0x0050, text=» RB(NE) GET:90 NO!«, t00=0x012c, t01=0x0076}
0x1d516…1d520               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x0090}
0x1d520…1d55e               Head {h00=0x003a, h01=0x0050, text=»*  SWAPPABLE WORK BLOCK FILE FOUND - SAVE DISC ADDRESS«, t00=0x012c, t01=0x009a}
0x1d55e…1d58e               Head {h00=0x002c, h01=0x0050, text=»*  TO FILE AND TO NEXT SECTOR AFTER FILE«, t00=0x012c, t01=0x00d8}
0x1d58e…1d598               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x012c, t01=0x0108}
0x1d598…1d5c2               Head {h00=0x0026, h01=0x0050, text=» LD A1,18,A6 GET BIT 16-31 OF D.A.«, t00=0x012c, t01=0x0112}
0x1d5c2…1d5ec               Head {h00=0x0026, h01=0x0050, text=» LD A2,16,A6 GET BIT 0-15 OF D.A. «, t00=0x012c, t01=0x013c}
0x1d5ec…1d60e               Head {h00=0x001e, h01=0x0050, text=» ST A1,SWBFSA+STKCOM SAVE «, t00=0x012c, t01=0x0166}
0x1d60e…1d632               Head {h00=0x0020, h01=0x0050, text=» ST A2,SWBFSA+STKCOM+2 SAVE «, t00=0x012c, t01=0x0188}
0x1d632…1d662               Head {h00=0x002c, h01=0x0050, text=» LD A3,SWPFEL,A6 GET BIT 16-31 OF LENGTH«, t00=0x012d, t01=0x001c}
0x1d662…1d694               Head {h00=0x002e, h01=0x0050, text=» LD A4,SWPFEL-2,A6 GET BIT 0-15 OF LENGTH «, t00=0x012d, t01=0x004c}
0x1d694…1d6c0               Head {h00=0x0028, h01=0x0050, text=» ADR A4,A2 ADD MOST SIGNIFICANT PART«, t00=0x012d, t01=0x007e}
0x1d6c0…1d6ee               Head {h00=0x002a, h01=0x0050, text=» ADR A3,A1 ADD LEAST SIGNIFICANT PART «, t00=0x012d, t01=0x00aa}
0x1d6ee…1d718               Head {h00=0x0026, h01=0x0050, text=» RF(O) GET:92 OVERFLOW - ADD CARRY«, t00=0x012d, t01=0x00d8}
0x1d718…1d72a               Head {h00=0x000e, h01=0x0050, text=» RF GET:98«, t00=0x012d, t01=0x0102}
0x1d72a…1d74c               Head {h00=0x001e, h01=0x0050, text=»GET:92 ADK A4,1 ADD CARRY «, t00=0x012d, t01=0x0114}
0x1d74c…1d772               Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/7FFF RESET OVERFLOW «, t00=0x012d, t01=0x0136}
0x1d772…1d7ac               Head {h00=0x0036, h01=0x0050, text=»GET:98 ST A3,SWBFSE+STKCOM SAVE BIT 16-31 OF D.A. «, t00=0x012d, t01=0x015c}
0x1d7ac…1d7e0               Head {h00=0x0030, h01=0x0050, text=» ST A4,SWBFSE+STKCOM+2 SAVE BIT 0-15 OF D.A.«, t00=0x012e, t01=0x0008}
0x1d7e0…1d812               Head {h00=0x002e, h01=0x0050, text=» IM SWBFLG+STKCOM INDICATE SWB-FILE FOUND «, t00=0x012e, t01=0x003c}
0x1d812…1d828               Head {h00=0x0012, h01=0x0050, text=»GET:99 RTN A14«, t00=0x012e, t01=0x006e}
0x1d828…1d836               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012e, t01=0x0084}
0x1d836…1d874               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x012e, t01=0x0092}
0x1d874…1d8b2               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x012e, t01=0x00d0}
0x1d8b2…1d8f0               Head {h00=0x003a, h01=0x0050, text=»*  LODCOM - LOAD CORE RESIDENT PART OF APPLICATION  * «, t00=0x012e, t01=0x010e}
0x1d8f0…1d92e               Head {h00=0x003a, h01=0x0050, text=»*  ===============================================  * «, t00=0x012e, t01=0x014c}
0x1d92e…1d96c               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x012e, t01=0x018a}
0x1d96c…1d9aa               Head {h00=0x003a, h01=0x0050, text=»*  LODSEG - LOAD ONE SEGMENT                        * «, t00=0x012f, t01=0x0038}
0x1d9aa…1d9e8               Head {h00=0x003a, h01=0x0050, text=»*  =========================                        * «, t00=0x012f, t01=0x0076}
0x1d9e8…1da26               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x012f, t01=0x00b4}
0x1da26…1da64               Head {h00=0x003a, h01=0x0050, text=»*  ENTRY:  A8 - RELOCATION BASE                     * «, t00=0x012f, t01=0x00f2}
0x1da64…1daa2               Head {h00=0x003a, h01=0x0050, text=»*         A10 - EFFECTIVE LENGTH                    * «, t00=0x012f, t01=0x0130}
0x1daa2…1dae0               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x012f, t01=0x016e}
0x1dae0…1db1e               Head {h00=0x003a, h01=0x0050, text=»*  EXIT:                                            * «, t00=0x0130, t01=0x001c}
0x1db1e…1db5c               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x0130, t01=0x005a}
0x1db5c…1db9a               Head {h00=0x003a, h01=0x0050, text=»*  WORK REGISTERS:  A1,A2,A3,A4,A7                  * «, t00=0x0130, t01=0x0098}
0x1db9a…1dbd8               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x0130, t01=0x00d6}
0x1dbd8…1dc16               Head {h00=0x003a, h01=0x0050, text=»*  SUBROUTINES:  MOVE,READ                          * «, t00=0x0130, t01=0x0114}
0x1dc16…1dc54               Head {h00=0x003a, h01=0x0050, text=»*                                                   * «, t00=0x0130, t01=0x0152}
0x1dc54…1dc92               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0130, t01=0x0190}
0x1dc92…1dca6               Head {h00=0x0010, h01=0x0050, text=»LODCOM EQU *«, t00=0x0131, t01=0x003e}
0x1dca6…1dcd6               Head {h00=0x002c, h01=0x0050, text=» LD A9,MXBUF GET ADDRESS TO READ BUFFER «, t00=0x0131, t01=0x0052}
0x1dcd6…1dcfc               Head {h00=0x0022, h01=0x0050, text=» LDR A3,A9 GET START OF BUFFER«, t00=0x0131, t01=0x0082}
0x1dcfc…1dd14               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A3 SAVE «, t00=0x0131, t01=0x00a8}
0x1dd14…1dd3e               Head {h00=0x0026, h01=0x0050, text=» LDKL A7,240 NUMBER OF CODE WORDS «, t00=0x0131, t01=0x00c0}
0x1dd3e…1dd54               Head {h00=0x0012, h01=0x0050, text=»LOD:10 EQU *-2«, t00=0x0131, t01=0x00ea}
0x1dd54…1dd74               Head {h00=0x001c, h01=0x0050, text=» LDR A10,A10 APP >32 KB?«, t00=0x0131, t01=0x0100}
0x1dd74…1dd8e               Head {h00=0x0016, h01=0x0050, text=» RF(NN) LOD:20 NO!«, t00=0x0131, t01=0x0120}
0x1dd8e…1ddae               Head {h00=0x001c, h01=0x0050, text=» SUR A10,A7 DEC. LENGTH «, t00=0x0131, t01=0x013a}
0x1ddae…1ddc0               Head {h00=0x000e, h01=0x0050, text=» RF LOD:50«, t00=0x0131, t01=0x015a}
0x1ddc0…1ddd4               Head {h00=0x0010, h01=0x0050, text=»LOD:20 EQU *«, t00=0x0131, t01=0x016c}
0x1ddd4…1de06               Head {h00=0x002e, h01=0x0050, text=» SUR A10,A7 CHECK IF IN END OF OF SEGMENT «, t00=0x0131, t01=0x0180}
0x1de06…1de24               Head {h00=0x001a, h01=0x0050, text=» RF(P) LOD:50 NO YET! «, t00=0x0132, t01=0x0022}
0x1de24…1de4a               Head {h00=0x0022, h01=0x0050, text=» CWK A7,256 128 WORDS/SECTOR? «, t00=0x0132, t01=0x0040}
0x1de4a…1de64               Head {h00=0x0016, h01=0x0050, text=» RF(NE) LOD:30 NO!«, t00=0x0132, t01=0x0066}
0x1de64…1de94               Head {h00=0x002c, h01=0x0050, text=» ADR A7,A10 COMPUTE NUMBER OF CODE WORDS«, t00=0x0132, t01=0x0080}
0x1de94…1dec0               Head {h00=0x0028, h01=0x0050, text=» LDKL A10,0 INDICATE END OF SEGMENT «, t00=0x0132, t01=0x00b0}
0x1dec0…1ded2               Head {h00=0x000e, h01=0x0050, text=» RF LOD:52«, t00=0x0132, t01=0x00dc}
0x1ded2…1dee6               Head {h00=0x0010, h01=0x0050, text=»LOD:30 EQU *«, t00=0x0132, t01=0x00ee}
0x1dee6…1df1c               Head {h00=0x0032, h01=0x0050, text=» ADR A7,A10 JUST MOVE SIGNIFICANT CHARACTERS! «, t00=0x0132, t01=0x0102}
0x1df1c…1df48               Head {h00=0x0028, h01=0x0050, text=» LDKL A10,0 INDICATE END OF SEGMENT «, t00=0x0132, t01=0x0138}
0x1df48…1df80               Head {h00=0x0034, h01=0x0050, text=» LD A1,FSTSEC+STKEND LOOK IF FIRST SECTOR/BLOCK «, t00=0x0132, t01=0x0164}
0x1df80…1df9a               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) LOD:50 NO!«, t00=0x0133, t01=0x000c}
0x1df9a…1dfa4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0133, t01=0x0026}
0x1dfa4…1dfda               Head {h00=0x0032, h01=0x0050, text=» ADK A7,8 YES, ADD 8 TO COMPENSATE FOR HEADER «, t00=0x0133, t01=0x0030}
0x1dfda…1e018               Head {h00=0x003a, h01=0x0050, text=» CWK A7,240 LOOK IF OUTSIDE CODE PART OF SECTOR/BLOCK «, t00=0x0133, t01=0x0066}
0x1e018…1e032               Head {h00=0x0016, h01=0x0050, text=» RF(L) LOD:50 NO! «, t00=0x0133, t01=0x00a4}
0x1e032…1e03c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0133, t01=0x00be}
0x1e03c…1e068               Head {h00=0x0028, h01=0x0050, text=» SUK A7,240 YES, GET WORDS REMAINING«, t00=0x0133, t01=0x00c8}
0x1e068…1e084               Head {h00=0x0018, h01=0x0050, text=» LDR A10,A7 AND SAVE«, t00=0x0133, t01=0x00f4}
0x1e084…1e0b0               Head {h00=0x0028, h01=0x0050, text=» LDK A7,240 START OF RELOCATION BITS«, t00=0x0133, t01=0x0110}
0x1e0b0…1e0c4               Head {h00=0x0010, h01=0x0050, text=»LOD:50 EQU *«, t00=0x0133, t01=0x013c}
0x1e0c4…1e0ea               Head {h00=0x0022, h01=0x0050, text=» CWK A7,256 128 WORDS/SECTOR? «, t00=0x0133, t01=0x0150}
0x1e0ea…1e104               Head {h00=0x0016, h01=0x0050, text=» RF(E) LOD:52 YES!«, t00=0x0133, t01=0x0176}
0x1e104…1e130               Head {h00=0x0028, h01=0x0050, text=» ADR A2,A7 START OF RELOCATION BITS «, t00=0x0133, t01=0x0190}
0x1e130…1e14e               Head {h00=0x001a, h01=0x0050, text=» CF A14,REBUF RELOCATE«, t00=0x0134, t01=0x002c}
0x1e14e…1e162               Head {h00=0x0010, h01=0x0050, text=»LOD:52 EQU *«, t00=0x0134, t01=0x004a}
0x1e162…1e188               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 START OF CODE PART «, t00=0x0134, t01=0x005e}
0x1e188…1e1b8               Head {h00=0x002c, h01=0x0050, text=» LD A4,FSTSEC+STKEND FIRST SECTOR/BLOCK?«, t00=0x0134, t01=0x0084}
0x1e1b8…1e1d2               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) LOD:55 NO!«, t00=0x0134, t01=0x00b4}
0x1e1d2…1e20c               Head {h00=0x0036, h01=0x0050, text=» IM FSTSEC+STKEND INDICATE NOT FIRST SECTOR/BLOCK «, t00=0x0134, t01=0x00ce}
0x1e20c…1e240               Head {h00=0x0030, h01=0x0050, text=» ADK A1,8 SKIP 4 WORDS IN FIRST SECTOR/BLOCK«, t00=0x0134, t01=0x0108}
0x1e240…1e274               Head {h00=0x0030, h01=0x0050, text=» SUK A7,8 DECREMENT NUMBER OF CHAR. TO MOVE «, t00=0x0134, t01=0x013c}
0x1e274…1e296               Head {h00=0x001e, h01=0x0050, text=» LD A3,COMLG,A9 GET LENGTH«, t00=0x0134, t01=0x0170}
0x1e296…1e2ce (309, 0, 400) Head {h00=0x0034, h01=0x0050, text=» RF(N) LOD:54 APPL. LARGER THAN ONE SECTOR/BLOCK«, t00=0x0135, t01=0x0004}
0x1e2ce…1e2d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0135, t01=0x003c}
0x1e2d8…1e30c               Head {h00=0x0030, h01=0x0050, text=» CWK A3,240 SINGLE SECTOR/BLOCK APPLICATION?«, t00=0x0135, t01=0x0046}
0x1e30c…1e328               Head {h00=0x0018, h01=0x0050, text=» RF(NG) LOD:55 YES! «, t00=0x0135, t01=0x007a}
0x1e328…1e332               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0135, t01=0x0096}
0x1e332…1e34c               Head {h00=0x0016, h01=0x0050, text=»LOD:54 ADKL A10,8 «, t00=0x0135, t01=0x00a0}
0x1e34c…1e360               Head {h00=0x0010, h01=0x0050, text=»LOD:55 EQU *«, t00=0x0135, t01=0x00ba}
0x1e360…1e390               Head {h00=0x002c, h01=0x0050, text=» LDR A3,A7 NUMBER OF CHARACTERS TO MOVE «, t00=0x0135, t01=0x00ce}
0x1e390…1e3bc               Head {h00=0x0028, h01=0x0050, text=» LD A2,LLDADR+STKEND GET TO-ADDRESS «, t00=0x0135, t01=0x00fe}
0x1e3bc…1e3f0               Head {h00=0x0030, h01=0x0050, text=» ADS A3,LLDADR+STKEND UPDATE MEMORY ADDRESS «, t00=0x0135, t01=0x012a}
0x1e3f0…1e406               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0135, t01=0x015e}
0x1e406…1e42e               Head {h00=0x0024, h01=0x0050, text=» MVSU A3 MOVE TABLE FROM SYSTEM «, t00=0x0135, t01=0x0174}
0x1e42e…1e43a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0136, t01=0x000c}
0x1e43a…1e450               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0136, t01=0x0018}
0x1e450…1e462               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x0136, t01=0x002e}
0x1e462…1e46e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0136, t01=0x0040}
0x1e46e…1e492               Head {h00=0x0020, h01=0x0050, text=» LDR A10,A10 END OF SEGMENT?«, t00=0x0136, t01=0x004c}
0x1e492…1e4a8               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) LOD:70«, t00=0x0136, t01=0x0070}
0x1e4a8…1e4be               Head {h00=0x0012, h01=0x0050, text=» RTN A14 EXIT «, t00=0x0136, t01=0x0086}
0x1e4be…1e4d2               Head {h00=0x0010, h01=0x0050, text=»LODSEG EQU *«, t00=0x0136, t01=0x009c}
0x1e4d2…1e4fe               Head {h00=0x0028, h01=0x0050, text=» LDKL A1,256 NUMBER OF WORDS/SECTOR «, t00=0x0136, t01=0x00b0}
0x1e4fe…1e526               Head {h00=0x0024, h01=0x0050, text=» ST A1,LOD:10 MODIFY INSTRUCTION«, t00=0x0136, t01=0x00dc}
0x1e526…1e53a               Head {h00=0x0010, h01=0x0050, text=»LOD:70 EQU *«, t00=0x0136, t01=0x0104}
0x1e53a…1e54e               Head {h00=0x0010, h01=0x0050, text=» CF A14,READ«, t00=0x0136, t01=0x0118}
0x1e54e…1e562               Head {h00=0x0010, h01=0x0050, text=»READ EQU *-2«, t00=0x0136, t01=0x012c}
0x1e562…1e574               Head {h00=0x000e, h01=0x0050, text=» RB LODCOM«, t00=0x0136, t01=0x0140}
0x1e574…1e582               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0136, t01=0x0152}
0x1e582…1e5bc               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0136, t01=0x0160}
0x1e5bc…1e5f6               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x0137, t01=0x000a}
0x1e5f6…1e630               Head {h00=0x0036, h01=0x0050, text=»*        REBUF - RELOCATE BUFFER ROUTINE        * «, t00=0x0137, t01=0x0044}
0x1e630…1e66a               Head {h00=0x0036, h01=0x0050, text=»*        ===============================        * «, t00=0x0137, t01=0x007e}
0x1e66a…1e6a4               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x0137, t01=0x00b8}
0x1e6a4…1e6de               Head {h00=0x0036, h01=0x0050, text=»*  REFERENCED IN:  LODCOM/LODSEG                * «, t00=0x0137, t01=0x00f2}
0x1e6de…1e718               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x0137, t01=0x012c}
0x1e718…1e752               Head {h00=0x0036, h01=0x0050, text=»*  ENTRY:  A3 - START OF BUFFER                 * «, t00=0x0137, t01=0x0166}
0x1e752…1e78c               Head {h00=0x0036, h01=0x0050, text=»*          A2 - START OF RELOCATION TABLE       * «, t00=0x0138, t01=0x0010}
0x1e78c…1e7c6               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x0138, t01=0x004a}
0x1e7c6…1e800               Head {h00=0x0036, h01=0x0050, text=»*  EXIT:                                        * «, t00=0x0138, t01=0x0084}
0x1e800…1e83a               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x0138, t01=0x00be}
0x1e83a…1e874               Head {h00=0x0036, h01=0x0050, text=»*  WORK REGISTERS:  A1,A4,A5,A6                 * «, t00=0x0138, t01=0x00f8}
0x1e874…1e8ae               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x0138, t01=0x0132}
0x1e8ae…1e8e8               Head {h00=0x0036, h01=0x0050, text=»*  SUBROUTINES:                                 * «, t00=0x0138, t01=0x016c}
0x1e8e8…1e922               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x0139, t01=0x0016}
0x1e922…1e95c               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0139, t01=0x0050}
0x1e95c…1e970               Head {h00=0x0010, h01=0x0050, text=»REBUF EQU * «, t00=0x0139, t01=0x008a}
0x1e970…1e9a2               Head {h00=0x002e, h01=0x0050, text=» LDR A4,A2 GET START OPF RELOCATION TABLE «, t00=0x0139, t01=0x009e}
0x1e9a2…1e9b4               Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0139, t01=0x00d0}
0x1e9b4…1e9c8               Head {h00=0x0010, h01=0x0050, text=»REB:10 EQU *«, t00=0x0139, t01=0x00e2}
0x1e9c8…1e9ee               Head {h00=0x0022, h01=0x0050, text=» ADK A4,2 NEXT RELOCATION WORD«, t00=0x0139, t01=0x00f6}
0x1e9ee…1ea1a               Head {h00=0x0028, h01=0x0050, text=» LDK A6,16 NUMBER OF RELOCATION BITS«, t00=0x0139, t01=0x011c}
0x1ea1a…1ea42               Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A4 GET RELOCATION WORD «, t00=0x0139, t01=0x0148}
0x1ea42…1ea56               Head {h00=0x0010, h01=0x0050, text=»REB:20 EQU *«, t00=0x0139, t01=0x0170}
0x1ea56…1ea86               Head {h00=0x002c, h01=0x0050, text=» RF(NN) REB:30 DON'T RELOCATE THIS WORD!«, t00=0x0139, t01=0x0184}
0x1ea86…1eaa8               Head {h00=0x001e, h01=0x0050, text=» LDR* A5,A3 GET CODE WORD «, t00=0x013a, t01=0x0024}
0x1eaa8…1eac4               Head {h00=0x0018, h01=0x0050, text=» ADR A5,A8 RELOCATE «, t00=0x013a, t01=0x0046}
0x1eac4…1eae4               Head {h00=0x001c, h01=0x0050, text=» STR A5,A3 STORE IT BACK«, t00=0x013a, t01=0x0062}
0x1eae4…1eaf8               Head {h00=0x0010, h01=0x0050, text=»REB:30 EQU *«, t00=0x013a, t01=0x0082}
0x1eaf8…1eb18               Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 NEXT CODE WORD«, t00=0x013a, t01=0x0096}
0x1eb18…1eb42               Head {h00=0x0026, h01=0x0050, text=» CWR A3,A2 END OF CODE WORD PART? «, t00=0x013a, t01=0x00b6}
0x1eb42…1eb5c               Head {h00=0x0016, h01=0x0050, text=» RF(E) EXREL YES! «, t00=0x013a, t01=0x00e0}
0x1eb5c…1eb84               Head {h00=0x0024, h01=0x0050, text=» SUK A6,1 MOORE RELOCATION BITS?«, t00=0x013a, t01=0x00fa}
0x1eb84…1eb9e               Head {h00=0x0016, h01=0x0050, text=» RB(Z) REB:10 NO! «, t00=0x013a, t01=0x0122}
0x1eb9e…1ebc4               Head {h00=0x0022, h01=0x0050, text=» SLL A1,1 NEXT RELOCATION BIT «, t00=0x013a, t01=0x013c}
0x1ebc4…1ebd6               Head {h00=0x000e, h01=0x0050, text=» RB REB:20«, t00=0x013a, t01=0x0162}
0x1ebd6…1ebea               Head {h00=0x0010, h01=0x0050, text=»EXREL EQU * «, t00=0x013a, t01=0x0174}
0x1ebea…1ebfa               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x013a, t01=0x0188}
0x1ebfa…1ec08               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013b, t01=0x0008}
0x1ec08…1ec3a               Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x013b, t01=0x0016}
0x1ec3a…1ec6c               Head {h00=0x002e, h01=0x0050, text=»*  GETCON - GET CONTENT IN MEMORY WORD  * «, t00=0x013b, t01=0x0048}
0x1ec6c…1ec9e               Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x013b, t01=0x007a}
0x1ec9e…1eca8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x00ac}
0x1eca8…1ecca               Head {h00=0x001e, h01=0x0050, text=»*  REFERENCED IN:  SEGGEN «, t00=0x013b, t01=0x00b6}
0x1ecca…1ecd4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x00d8}
0x1ecd4…1ecfa               Head {h00=0x0022, h01=0x0050, text=»*  ENTRY:  A2 - MEMORY ADDRESS«, t00=0x013b, t01=0x00e2}
0x1ecfa…1ed2c               Head {h00=0x002e, h01=0x0050, text=»*          MMUOPT - MMU OPTION SWITCH (X) «, t00=0x013b, t01=0x0108}
0x1ed2c…1ed36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x013a}
0x1ed36…1ed66               Head {h00=0x002c, h01=0x0050, text=»*  EXIT:  A1 - CONTENT OF MEMORY ADDRESS«, t00=0x013b, t01=0x0144}
0x1ed66…1ed70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013b, t01=0x0174}
0x1ed70…1ed8a               Head {h00=0x0016, h01=0x0050, text=»*  WORK REGISTER: «, t00=0x013b, t01=0x017e}
0x1ed8a…1ed94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013c, t01=0x0008}
0x1ed94…1edac               Head {h00=0x0014, h01=0x0050, text=»*  SUBROUTINES: «, t00=0x013c, t01=0x0012}
0x1edac…1edb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013c, t01=0x002a}
0x1edb6…1edca               Head {h00=0x0010, h01=0x0050, text=»GETCON EQU *«, t00=0x013c, t01=0x0034}
0x1edca…1edf0               Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x013c, t01=0x0048}
0x1edf0…1ee0c               Head {h00=0x0018, h01=0x0050, text=» ANK A1,1 MMU OPTION«, t00=0x013c, t01=0x006e}
0x1ee0c…1ee28               Head {h00=0x0018, h01=0x0050, text=» RF(Z) GCON10 NO MMU«, t00=0x013c, t01=0x008a}
0x1ee28…1ee3a               Head {h00=0x000e, h01=0x0050, text=» ELR A1,A2«, t00=0x013c, t01=0x00a6}
0x1ee3a…1ee4c               Head {h00=0x000e, h01=0x0050, text=» RF GCON20«, t00=0x013c, t01=0x00b8}
0x1ee4c…1ee60               Head {h00=0x0010, h01=0x0050, text=»GCON10 EQU *«, t00=0x013c, t01=0x00ca}
0x1ee60…1ee74               Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A2 «, t00=0x013c, t01=0x00de}
0x1ee74…1ee88               Head {h00=0x0010, h01=0x0050, text=»GCON20 EQU *«, t00=0x013c, t01=0x00f2}
0x1ee88…1eea0               Head {h00=0x0014, h01=0x0050, text=» RTN A14 RETURN «, t00=0x013c, t01=0x0106}
0x1eea0…1eeae               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013c, t01=0x011e}
0x1eeae…1eee4               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x013c, t01=0x012c}
0x1eee4…1ef1a               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x013c, t01=0x0162}
0x1ef1a…1ef50               Head {h00=0x0032, h01=0x0050, text=»*               SCNCON                      * «, t00=0x013d, t01=0x0008}
0x1ef50…1ef86               Head {h00=0x0032, h01=0x0050, text=»*               ======                      * «, t00=0x013d, t01=0x003e}
0x1ef86…1efbc               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x013d, t01=0x0074}
0x1efbc…1eff2               Head {h00=0x0032, h01=0x0050, text=»*  SCAN CONFIGURATION FILE FOR POSSIBLE     * «, t00=0x013d, t01=0x00aa}
0x1eff2…1f028               Head {h00=0x0032, h01=0x0050, text=»*  APPLICATION DEFINITION BLOCKS. IF        * «, t00=0x013d, t01=0x00e0}
0x1f028…1f064               Head {h00=0x0038, h01=0x0050, text=»*  FOUND APLTAB+STKCOM IS UPDATED WITH DISC        *«, t00=0x013d, t01=0x0116}
0x1f064…1f09a               Head {h00=0x0032, h01=0x0050, text=»*  ADDRESSES.                               * «, t00=0x013d, t01=0x0152}
0x1f09a…1f0d0               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x013d, t01=0x0188}
0x1f0d0…1f106               Head {h00=0x0032, h01=0x0050, text=»*  ENTRY: A9 INPUT BUFFER ADDRESS           * «, t00=0x013e, t01=0x002e}
0x1f106…1f13c               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x013e, t01=0x0064}
0x1f13c…1f172               Head {h00=0x0032, h01=0x0050, text=»*  WORK REGISTERS  A1-A8,A10                * «, t00=0x013e, t01=0x009a}
0x1f172…1f1a8               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x013e, t01=0x00d0}
0x1f1a8…1f1de               Head {h00=0x0032, h01=0x0050, text=»*  ROUTINES REFERENCED: GETFIL, APLID       * «, t00=0x013e, t01=0x0106}
0x1f1de…1f214               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x013e, t01=0x013c}
0x1f214…1f24a               Head {h00=0x0032, h01=0x0050, text=»*  REFERENCED IN SYSLOD                     * «, t00=0x013e, t01=0x0172}
0x1f24a…1f280               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x013f, t01=0x0018}
0x1f280…1f2b6               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x013f, t01=0x004e}
0x1f2b6…1f2c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x0084}
0x1f2c0…1f2ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013f, t01=0x008e}
0x1f2ca…1f2de               Head {h00=0x0010, h01=0x0050, text=»SCNCON EQU *«, t00=0x013f, t01=0x0098}
0x1f2de…1f30c               Head {h00=0x002a, h01=0x0050, text=» CF A14,GETFIL GET CONFIGURATION FILE «, t00=0x013f, t01=0x00ac}
0x1f30c…1f346               Head {h00=0x0036, h01=0x0050, text=» ST A11,CONDAD+STKEND SAVE CONF. DISC FILE ADDRESS«, t00=0x013f, t01=0x00da}
0x1f346…1f376               Head {h00=0x002c, h01=0x0050, text=» ST A12,CONDAD+2+STKEND MOST SIGN. PART «, t00=0x013f, t01=0x0114}
0x1f376…1f39c               Head {h00=0x0022, h01=0x0050, text=» LDR A8,A9 GET START OF BUFFER«, t00=0x013f, t01=0x0144}
0x1f39c…1f3cc               Head {h00=0x002c, h01=0x0050, text=» ADKL A8,BUFLEN-6 ADD SECTOR LENGTH USED«, t00=0x013f, t01=0x016a}
0x1f3cc…1f3fc               Head {h00=0x002c, h01=0x0050, text=» ST A8,ECNFBF+STKEND AND SAVE BUFFER END«, t00=0x0140, t01=0x000a}
0x1f3fc…1f406               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0140, t01=0x003a}
0x1f406…1f42e               Head {h00=0x0024, h01=0x0050, text=» LDKL A10,0 RESET RECORD COUNTER«, t00=0x0140, t01=0x0044}
0x1f42e…1f464               Head {h00=0x0032, h01=0x0050, text=» LD A6,APLTAB+STKCOM GET APLTAB+STKCOM ADDRESS«, t00=0x0140, t01=0x006c}
0x1f464…1f492               Head {h00=0x002a, h01=0x0050, text=» ADK A6,ACBLEN+2 SKIP 1ST TABLE BLOCK «, t00=0x0140, t01=0x00a2}
0x1f492…1f4ba               Head {h00=0x0024, h01=0x0050, text=» CF A14,RDSEC READ FIRST SECTOR «, t00=0x0140, t01=0x00d0}
0x1f4ba…1f4e0               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A9 GET START OF RECORD«, t00=0x0140, t01=0x00f8}
0x1f4e0…1f504               Head {h00=0x0020, h01=0x0050, text=» LDR A8,A9 SAVE RECORD START«, t00=0x0140, t01=0x011e}
0x1f504…1f50e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0140, t01=0x0142}
0x1f50e…1f522               Head {h00=0x0010, h01=0x0050, text=»SCAN00 EQU *«, t00=0x0140, t01=0x014c}
0x1f522…1f54e               Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A4 GET FIRST WORD IN RECORD«, t00=0x0140, t01=0x0160}
0x1f54e…1f580               Head {h00=0x002e, h01=0x0050, text=» CWK A1,'A;' APPLICATION DEFINITION BLOCK?«, t00=0x0140, t01=0x018c}
0x1f580…1f59a               Head {h00=0x0016, h01=0x0050, text=» RF(NE) SCAN10 NO!«, t00=0x0141, t01=0x002e}
0x1f59a…1f5a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0141, t01=0x0048}
0x1f5a4…1f5d2               Head {h00=0x002a, h01=0x0050, text=» CF A14,APLID YES GET APPLICATION NAME«, t00=0x0141, t01=0x0052}
0x1f5d2…1f5e6               Head {h00=0x0010, h01=0x0050, text=»SCAN10 EQU *«, t00=0x0141, t01=0x0080}
0x1f5e6…1f612               Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x0141, t01=0x0094}
0x1f612…1f63c               Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD?«, t00=0x0141, t01=0x00c0}
0x1f63c…1f656               Head {h00=0x0016, h01=0x0050, text=» RF(E) SCNEND YES!«, t00=0x0141, t01=0x00ea}
0x1f656…1f660               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0141, t01=0x0104}
0x1f660…1f692               Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x0141, t01=0x010e}
0x1f692…1f6be               Head {h00=0x0028, h01=0x0050, text=» CW A8,ECNFBF+STKEND OUTSIDE SECTOR?«, t00=0x0141, t01=0x0140}
0x1f6be…1f6d8               Head {h00=0x0016, h01=0x0050, text=» RF(NE) SCAN20 NO!«, t00=0x0141, t01=0x016c}
0x1f6d8…1f6e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0141, t01=0x0186}
0x1f6e2…1f708               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDSEC READ NEXT SECTOR«, t00=0x0141, t01=0x0190}
0x1f708…1f730               Head {h00=0x0024, h01=0x0050, text=» LDR A8,A9 RESET RECORD ADDRESS «, t00=0x0142, t01=0x0026}
0x1f730…1f744               Head {h00=0x0010, h01=0x0050, text=»SCAN20 EQU *«, t00=0x0142, t01=0x004e}
0x1f744…1f768               Head {h00=0x0020, h01=0x0050, text=» LDR A4,A8 GET RECORD START «, t00=0x0142, t01=0x0062}
0x1f768…1f790               Head {h00=0x0024, h01=0x0050, text=» RB SCAN00 CONTINUE SCAN PROCESS«, t00=0x0142, t01=0x0086}
0x1f790…1f79a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0142, t01=0x00ae}
0x1f79a…1f7c2               Head {h00=0x0024, h01=0x0050, text=»*  THE WHOLE CONFIGURATION FILE «, t00=0x0142, t01=0x00b8}
0x1f7c2…1f7ea               Head {h00=0x0024, h01=0x0050, text=»*  IS PROCESSED. SEARCH VTOC FOR«, t00=0x0142, t01=0x00e0}
0x1f7ea…1f810               Head {h00=0x0022, h01=0x0050, text=»*  GIVEN FILE NAMES AND UPDATE«, t00=0x0142, t01=0x0108}
0x1f810…1f83c               Head {h00=0x0028, h01=0x0050, text=»*  APLTAB+STKCOM WITH CORRESPONDING «, t00=0x0142, t01=0x012e}
0x1f83c…1f856               Head {h00=0x0016, h01=0x0050, text=»*  DISC ADDRESSES.«, t00=0x0142, t01=0x015a}
0x1f856…1f860               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0142, t01=0x0174}
0x1f860…1f874               Head {h00=0x0010, h01=0x0050, text=»SCNEND EQU *«, t00=0x0142, t01=0x017e}
0x1f874…1f8a8 (323, 0, 400) Head {h00=0x0030, h01=0x0050, text=» LD A1,IPLDEV+STKEND CONFIGURE PGM LOAD DEV.«, t00=0x0143, t01=0x0004}
0x1f8a8…1f8be               Head {h00=0x0012, h01=0x0050, text=» CF A14,LODDEV«, t00=0x0143, t01=0x0038}
0x1f8be…1f8fa               Head {h00=0x0038, h01=0x0050, text=» LD A6,APLTAB+STKCOM GET APLTAB+STKCOM START ADDRESS«, t00=0x0143, t01=0x004e}
0x1f8fa…1f928               Head {h00=0x002a, h01=0x0050, text=» ADK A6,ACBLEN+2 SKIP 1ST TABLE BLOCK «, t00=0x0143, t01=0x008a}
0x1f928…1f95c               Head {h00=0x0030, h01=0x0050, text=» LD* A1,APLTAB+STKCOM GET NO OF APPLICATIONS«, t00=0x0143, t01=0x00b8}
0x1f95c…1f978               Head {h00=0x0018, h01=0x0050, text=» SUK A1,1 DECREMENT «, t00=0x0143, t01=0x00ec}
0x1f978…1f9a0               Head {h00=0x0024, h01=0x0050, text=» RF(Z) RTRN ONLY ONE APPLICATION«, t00=0x0143, t01=0x0108}
0x1f9a0…1f9ba               Head {h00=0x0016, h01=0x0050, text=» NGR A1,A1 NEGATE «, t00=0x0143, t01=0x0130}
0x1f9ba…1f9f0               Head {h00=0x0032, h01=0x0050, text=» ST A1,APLCNT+STKEND AND SAVE AS APPL. COUNTER«, t00=0x0143, t01=0x014a}
0x1f9f0…1fa20               Head {h00=0x002c, h01=0x0050, text=» CF A14,GETAPL UPDATE APPLIC. DISC ADDR.«, t00=0x0143, t01=0x0180}
0x1fa20…1fa2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0144, t01=0x0020}
0x1fa2a…1fa3c               Head {h00=0x000e, h01=0x0050, text=»RTRN EQU *«, t00=0x0144, t01=0x002a}
0x1fa3c…1fa5a               Head {h00=0x001a, h01=0x0050, text=» RTN A14 END OF SCNCON«, t00=0x0144, t01=0x003c}
0x1fa5a…1fa68               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0144, t01=0x005a}
0x1fa68…1fa9e               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0144, t01=0x0068}
0x1fa9e…1fad4               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0144, t01=0x009e}
0x1fad4…1fb0a               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0144, t01=0x00d4}
0x1fb0a…1fb40               Head {h00=0x0032, h01=0x0050, text=»*                 APLID                     * «, t00=0x0144, t01=0x010a}
0x1fb40…1fb76               Head {h00=0x0032, h01=0x0050, text=»*                 =====                     * «, t00=0x0144, t01=0x0140}
0x1fb76…1fbac               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0144, t01=0x0176}
0x1fbac…1fbe2               Head {h00=0x0032, h01=0x0050, text=»*  APLID TAKES THE NAME OF APPLICATION      * «, t00=0x0145, t01=0x001c}
0x1fbe2…1fc18               Head {h00=0x0032, h01=0x0050, text=»*  AND MOVES IT FROM CONF. FILE TO          * «, t00=0x0145, t01=0x0052}
0x1fc18…1fc54               Head {h00=0x0038, h01=0x0050, text=»*  APLTAB+STKCOM. FOR EACH APPLICATION A ENTRY     *«, t00=0x0145, t01=0x0088}
0x1fc54…1fc90               Head {h00=0x0038, h01=0x0050, text=»*  IN APLTAB+STKCOM IS CREATED ACCORDINGLY:        *«, t00=0x0145, t01=0x00c4}
0x1fc90…1fcc6               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0145, t01=0x0100}
0x1fcc6…1fcfc               Head {h00=0x0032, h01=0x0050, text=»*       LENGTH OF NAME (BYTES)              * «, t00=0x0145, t01=0x0136}
0x1fcfc…1fd32               Head {h00=0x0032, h01=0x0050, text=»*       NAME                                * «, t00=0x0145, t01=0x016c}
0x1fd32…1fd68               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0146, t01=0x0012}
0x1fd68…1fd9e               Head {h00=0x0032, h01=0x0050, text=»*  THE NAME ENTRY CONSISTS OF 1-4 WORDS     * «, t00=0x0146, t01=0x0048}
0x1fd9e…1fdd4               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0146, t01=0x007e}
0x1fdd4…1fe10               Head {h00=0x0038, h01=0x0050, text=»*  ENTRY: A6 POINTER INTO APLTAB+STKCOM            *«, t00=0x0146, t01=0x00b4}
0x1fe10…1fe46               Head {h00=0x0032, h01=0x0050, text=»*         A8 RECORD POINTER                 * «, t00=0x0146, t01=0x00f0}
0x1fe46…1fe7c               Head {h00=0x0032, h01=0x0050, text=»*         A10 RECORD COUNTER                * «, t00=0x0146, t01=0x0126}
0x1fe7c…1feb2               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0146, t01=0x015c}
0x1feb2…1fee8 (327, 0, 400) Head {h00=0x0032, h01=0x0050, text=»*  WORK REGISTERS: A1-A5                    * «, t00=0x0147, t01=0x0004}
0x1fee8…1ff1e               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0147, t01=0x003a}
0x1ff1e…1ff54               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0147, t01=0x0070}
0x1ff54…1ff5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x00a6}
0x1ff5e…1ff68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x00b0}
0x1ff68…1ff7c               Head {h00=0x0010, h01=0x0050, text=»APLID EQU * «, t00=0x0147, t01=0x00ba}
0x1ff7c…1ffa8               Head {h00=0x0028, h01=0x0050, text=» ADKL A10,1 INCREMENT RECORD COUNTER«, t00=0x0147, t01=0x00ce}
0x1ffa8…1ffd2               Head {h00=0x0026, h01=0x0050, text=» CW A10,LSTREC+STKEND LAST RECORD «, t00=0x0147, t01=0x00fa}
0x1ffd2…2000a               Head {h00=0x0034, h01=0x0050, text=» ABL(E) CONERR YES! ERROR IN CONFIGURATION FILE «, t00=0x0147, t01=0x0124}
0x2000a…20014               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0147, t01=0x015c}
0x20014…20046               Head {h00=0x002e, h01=0x0050, text=» ADKL A8,RECLEN+1 INCREMENT RECORD POINTER«, t00=0x0147, t01=0x0166}
0x20046…20072               Head {h00=0x0028, h01=0x0050, text=» CW A8,ECNFBF+STKEND OUTSIDE SECTOR?«, t00=0x0148, t01=0x0008}
0x20072…2008c               Head {h00=0x0016, h01=0x0050, text=» RF(NE) APLID0 NO!«, t00=0x0148, t01=0x0034}
0x2008c…20096               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0148, t01=0x004e}
0x20096…200bc               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDSEC READ NEXT SECTOR«, t00=0x0148, t01=0x0058}
0x200bc…200e0               Head {h00=0x0020, h01=0x0050, text=» LDR A8,A9 GET RECORD START «, t00=0x0148, t01=0x007e}
0x200e0…200f4               Head {h00=0x0010, h01=0x0050, text=»APLID0 EQU *«, t00=0x0148, t01=0x00a2}
0x200f4…20114               Head {h00=0x001c, h01=0x0050, text=» LDR A4,A8 RECORD START «, t00=0x0148, t01=0x00b6}
0x20114…2013e               Head {h00=0x0026, h01=0x0050, text=» LDK A5,0 RESET CHARACTER COUNTER «, t00=0x0148, t01=0x00d6}
0x2013e…20152               Head {h00=0x0010, h01=0x0050, text=»APLID2 EQU *«, t00=0x0148, t01=0x0100}
0x20152…20172               Head {h00=0x001c, h01=0x0050, text=» LCR A1,A4 GET CHARACTER«, t00=0x0148, t01=0x0114}
0x20172…2019c               Head {h00=0x0026, h01=0x0050, text=» CCK A1,';;' DELIMITER CHARACTER? «, t00=0x0148, t01=0x0134}
0x2019c…201c2               Head {h00=0x0022, h01=0x0050, text=» RF(E) APLID4 YES! END OF NAME«, t00=0x0148, t01=0x015e}
0x201c2…201cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0148, t01=0x0184}
0x201cc…201fa               Head {h00=0x002a, h01=0x0050, text=» ADK A4,1 INCREMENT CHARACTER POINTER «, t00=0x0148, t01=0x018e}
0x201fa…20226               Head {h00=0x0028, h01=0x0050, text=» ADK A5,1 INCREMENT CHARACTER COUNT «, t00=0x0149, t01=0x002c}
0x20226…20250               Head {h00=0x0026, h01=0x0050, text=» CWK A5,NCHAID END OF THIS RECORD?«, t00=0x0149, t01=0x0058}
0x20250…2027c               Head {h00=0x0028, h01=0x0050, text=» RB(NE) APLID2 NO GET NEXT CHARACTER«, t00=0x0149, t01=0x0082}
0x2027c…20286               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0149, t01=0x00ae}
0x20286…202ac               Head {h00=0x0022, h01=0x0050, text=»*  END OF NAME RECORD, LOOK IF«, t00=0x0149, t01=0x00b8}
0x202ac…202d4               Head {h00=0x0024, h01=0x0050, text=»*  NEXT CHARACTER IS A DELIMITER«, t00=0x0149, t01=0x00de}
0x202d4…202de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0149, t01=0x0106}
0x202de…202f0               Head {h00=0x000e, h01=0x0050, text=» LCR A1,A4«, t00=0x0149, t01=0x0110}
0x202f0…20304               Head {h00=0x0010, h01=0x0050, text=» CCK A1,';;'«, t00=0x0149, t01=0x0122}
0x20304…2033e               Head {h00=0x0036, h01=0x0050, text=» ABL(NE) CONERR NO DELIMITER, ERROR IN CONF. FILE «, t00=0x0149, t01=0x0136}
0x2033e…20348               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0149, t01=0x0170}
0x20348…2035c               Head {h00=0x0010, h01=0x0050, text=»APLID4 EQU *«, t00=0x0149, t01=0x017a}
0x2035c…2036e               Head {h00=0x000e, h01=0x0050, text=» ADK A5,0 «, t00=0x0149, t01=0x018e}
0x2036e…203a0               Head {h00=0x002e, h01=0x0050, text=» ABL(Z) CONERR NO LEGAL CHARACTER IN NAME «, t00=0x014a, t01=0x0010}
0x203a0…203aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014a, t01=0x0042}
0x203aa…203ce               Head {h00=0x0020, h01=0x0050, text=» LDR A3,A6 SAVE BLOCK START «, t00=0x014a, t01=0x004c}
0x203ce…20402               Head {h00=0x0030, h01=0x0050, text=» STR A5,A3 SAVE NAME LENGTH IN APLTAB+STKCOM«, t00=0x014a, t01=0x0070}
0x20402…20434               Head {h00=0x002e, h01=0x0050, text=» IM* APLTAB+STKCOM INCREMENT NO OF APPLIC.«, t00=0x014a, t01=0x00a4}
0x20434…20460               Head {h00=0x0028, h01=0x0050, text=» LDR A4,A8 GET START OF NAME RECORD «, t00=0x014a, t01=0x00d6}
0x20460…2048c               Head {h00=0x0028, h01=0x0050, text=» ADK A5,1 INCREMENT CHARACTER COUNT «, t00=0x014a, t01=0x0102}
0x2048c…204b2               Head {h00=0x0022, h01=0x0050, text=» SRA A5,1 AND MAKE WORD COUNT «, t00=0x014a, t01=0x012e}
0x204b2…204bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014a, t01=0x0154}
0x204bc…204d0               Head {h00=0x0010, h01=0x0050, text=»APLID6 EQU *«, t00=0x014a, t01=0x015e}
0x204d0…204f8               Head {h00=0x0024, h01=0x0050, text=» ADK A3,2 ADVANCE TABLE POINTER «, t00=0x014a, t01=0x0172}
0x204f8…20526               Head {h00=0x002a, h01=0x0050, text=» LDR* A1,A4 MOVE 2 CHARACTERS OF NAME «, t00=0x014b, t01=0x000a}
0x20526…2054a               Head {h00=0x0020, h01=0x0050, text=» STR A1,A3 TO APLTAB+STKCOM «, t00=0x014b, t01=0x0038}
0x2054a…20576               Head {h00=0x0028, h01=0x0050, text=» ADK A4,2 ADVANCE CHARACTER POINTER «, t00=0x014b, t01=0x005c}
0x20576…2059c               Head {h00=0x0022, h01=0x0050, text=» SUK A5,1 DECREMENT WORD COUNT«, t00=0x014b, t01=0x0088}
0x2059c…205ca               Head {h00=0x002a, h01=0x0050, text=» RB(P) APLID6 MORE CHARACTERS TO MOVE «, t00=0x014b, t01=0x00ae}
0x205ca…205d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014b, t01=0x00dc}
0x205d4…20608               Head {h00=0x0030, h01=0x0050, text=» ADK A6,ACBLEN PREPARE FOR NEXT TABLE ENTRY «, t00=0x014b, t01=0x00e6}
0x20608…20624               Head {h00=0x0018, h01=0x0050, text=» RTN A14 NO, RETURN «, t00=0x014b, t01=0x011a}
0x20624…20632               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x014b, t01=0x0136}
0x20632…20668               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x014b, t01=0x0144}
0x20668…2069e               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x014b, t01=0x017a}
0x2069e…206d4               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x014c, t01=0x0020}
0x206d4…2070a               Head {h00=0x0032, h01=0x0050, text=»*              GETAPL                       * «, t00=0x014c, t01=0x0056}
0x2070a…20740               Head {h00=0x0032, h01=0x0050, text=»*              ======                       * «, t00=0x014c, t01=0x008c}
0x20740…20776               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x014c, t01=0x00c2}
0x20776…207ac               Head {h00=0x0032, h01=0x0050, text=»*  SCANS VTOC FOR FILE NAMES LISTED IN      * «, t00=0x014c, t01=0x00f8}
0x207ac…207f0               Head {h00=0x0040, h01=0x0050, text=»*  APLTAB+STKCOM. APLTAB+STKCOM IS UPDATED WITH CORRE-    * «, t00=0x014c, t01=0x012e}
0x207f0…20826               Head {h00=0x0032, h01=0x0050, text=»*  SPONDING DISC ADDRESSE AND THE LENGTH    * «, t00=0x014c, t01=0x0172}
0x20826…20862               Head {h00=0x0038, h01=0x0050, text=»*  OF APLTAB+STKCOM IS THEN USED TO CALCULATE      *«, t00=0x014d, t01=0x0018}
0x20862…20898               Head {h00=0x0032, h01=0x0050, text=»*  START OF FREE AREA.                      * «, t00=0x014d, t01=0x0054}
0x20898…208ce               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x014d, t01=0x008a}
0x208ce…2090a               Head {h00=0x0038, h01=0x0050, text=»*  ENTRY: A6 - 1ST ENTRY IN APLTAB+STKCOM          *«, t00=0x014d, t01=0x00c0}
0x2090a…2094e               Head {h00=0x0040, h01=0x0050, text=»*         APLCNT+STKEND - NO OF ENTRIES IN APLTAB+STKCOM  * «, t00=0x014d, t01=0x00fc}
0x2094e…20984               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x014d, t01=0x0140}
0x20984…209ba               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x014d, t01=0x0176}
0x209ba…209c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014e, t01=0x001c}
0x209c4…209ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014e, t01=0x0026}
0x209ce…209e2               Head {h00=0x0010, h01=0x0050, text=»GETAPL EQU *«, t00=0x014e, t01=0x0030}
0x209e2…20a0a               Head {h00=0x0024, h01=0x0050, text=» CF A14,GETVLB READ VOLUME LABEL«, t00=0x014e, t01=0x0044}
0x20a0a…20a1e               Head {h00=0x0010, h01=0x0050, text=»GETAP0 EQU *«, t00=0x014e, t01=0x006c}
0x20a1e…20a40               Head {h00=0x001e, h01=0x0050, text=» CF A14,RDSEC READ SECTOR «, t00=0x014e, t01=0x0080}
0x20a40…20a6c               Head {h00=0x0028, h01=0x0050, text=» LDK A7,QBLFAC VTOC BLOCKING FACTOR «, t00=0x014e, t01=0x00a2}
0x20a6c…20a92               Head {h00=0x0022, h01=0x0050, text=» LDR A4,A9 GET START OF RECORD«, t00=0x014e, t01=0x00ce}
0x20a92…20aa6               Head {h00=0x0010, h01=0x0050, text=»GETAP2 EQU *«, t00=0x014e, t01=0x00f4}
0x20aa6…20ad2               Head {h00=0x0028, h01=0x0050, text=» LDR* A5,A6 GET LENGTH OF APPL. NAME«, t00=0x014e, t01=0x0108}
0x20ad2…20af6               Head {h00=0x0020, h01=0x0050, text=» LDR A3,A4 SAVE RECORD START«, t00=0x014e, t01=0x0134}
0x20af6…20b1a               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 AND TABLE POINTER«, t00=0x014e, t01=0x0158}
0x20b1a…20b42               Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 SKIP NO OF CHAR. ENTRY«, t00=0x014e, t01=0x017c}
0x20b42…20b74               Head {h00=0x002e, h01=0x0050, text=» LCR A2,A4 GET 1ST CHARACTER IN FILE NAME «, t00=0x014f, t01=0x0014}
0x20b74…20b92               Head {h00=0x001a, h01=0x0050, text=» CCK A2,/2020 UNUSED? «, t00=0x014f, t01=0x0046}
0x20b92…20bac               Head {h00=0x0016, h01=0x0050, text=» RF(E) GETAP4 YES!«, t00=0x014f, t01=0x0064}
0x20bac…20bb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x007e}
0x20bb6…20bdc               Head {h00=0x0022, h01=0x0050, text=» CF A14,CMPSYM COMPARE SYMBOLS«, t00=0x014f, t01=0x0088}
0x20bdc…20bee               Head {h00=0x000e, h01=0x0050, text=» ADK A5,0 «, t00=0x014f, t01=0x00ae}
0x20bee…20c08               Head {h00=0x0016, h01=0x0050, text=» RF(Z) FOUND EQUAL«, t00=0x014f, t01=0x00c0}
0x20c08…20c12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x00da}
0x20c12…20c3a               Head {h00=0x0024, h01=0x0050, text=»*  NO MATCH, TRY NEXT VTOC ENTRY«, t00=0x014f, t01=0x00e4}
0x20c3a…20c44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x014f, t01=0x010c}
0x20c44…20c58               Head {h00=0x0010, h01=0x0050, text=»GETAP4 EQU *«, t00=0x014f, t01=0x0116}
0x20c58…20c7a               Head {h00=0x001e, h01=0x0050, text=» ADR A4,A8 GET NEXT RECORD«, t00=0x014f, t01=0x012a}
0x20c7a…20ca4               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 BYPASS STATUS CHARACTER «, t00=0x014f, t01=0x014c}
0x20ca4…20cd2               Head {h00=0x002a, h01=0x0050, text=» SUK A7,1 MORE RECORDS IN THIS SECTOR «, t00=0x014f, t01=0x0176}
0x20cd2…20cec               Head {h00=0x0016, h01=0x0050, text=» RB(P) GETAP2 YES!«, t00=0x0150, t01=0x0014}
0x20cec…20cf6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0150, t01=0x002e}
0x20cf6…20d1c               Head {h00=0x0022, h01=0x0050, text=» CWR A11,A10 LAST VTOC SECTOR?«, t00=0x0150, t01=0x0038}
0x20d1c…20d46               Head {h00=0x0026, h01=0x0050, text=» ABL(E) CONERR ERROR IN CONF. FILE«, t00=0x0150, t01=0x005e}
0x20d46…20d50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0150, t01=0x0088}
0x20d50…20d62               Head {h00=0x000e, h01=0x0050, text=» RB GETAP0«, t00=0x0150, t01=0x0092}
0x20d62…20d6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0150, t01=0x00a4}
0x20d6c…20d80               Head {h00=0x0010, h01=0x0050, text=»FOUND EQU * «, t00=0x0150, t01=0x00ae}
0x20d80…20da8               Head {h00=0x0024, h01=0x0050, text=» LDK A2,'L' LOAD FILE CHARACTER «, t00=0x0150, t01=0x00c2}
0x20da8…20dc8               Head {h00=0x001c, h01=0x0050, text=» CC A2,27,A4 LOAD FILE? «, t00=0x0150, t01=0x00ea}
0x20dc8…20df6               Head {h00=0x002a, h01=0x0050, text=» ABL(NE) CONERR NO ERROR IN CONF. FILE«, t00=0x0150, t01=0x010a}
0x20df6…20e00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0150, t01=0x0138}
0x20e00…20e32               Head {h00=0x002e, h01=0x0050, text=» LD A2,16,A4 GET DISC ADDRESS (BITS 0-15) «, t00=0x0150, t01=0x0142}
0x20e32…20e60               Head {h00=0x002a, h01=0x0050, text=» ST A2,APLADA,A6 SAVE IN APLTAB+STKCOM«, t00=0x0150, t01=0x0174}
0x20e60…20e92               Head {h00=0x002e, h01=0x0050, text=» LD A2,18,A4 GET DISC ADDRESS (BITS 16-31)«, t00=0x0151, t01=0x0012}
0x20e92…20ec6               Head {h00=0x0030, h01=0x0050, text=» ST A2,APLADA+2,A6 AND SAVE IN APLTAB+STKCOM«, t00=0x0151, t01=0x0044}
0x20ec6…20ef8               Head {h00=0x002e, h01=0x0050, text=» ADK A6,ACBLEN ADVANCE TO NEXT TABLE BLOCK«, t00=0x0151, t01=0x0078}
0x20ef8…20f02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0151, t01=0x00aa}
0x20f02…20f38               Head {h00=0x0032, h01=0x0050, text=» IM APLCNT+STKEND INCREMENT APPLICATION COUNT «, t00=0x0151, t01=0x00b4}
0x20f38…20f5a               Head {h00=0x001e, h01=0x0050, text=» RB(NZ) GETAPL MORE TO DO!«, t00=0x0151, t01=0x00ea}
0x20f5a…20f64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0151, t01=0x010c}
0x20f64…20f82               Head {h00=0x001a, h01=0x0050, text=» RTN A14 END OF GETAPL«, t00=0x0151, t01=0x0116}
0x20f82…20f90               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0151, t01=0x0134}
0x20f90…20fc6               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0151, t01=0x0142}
0x20fc6…20ffc               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0151, t01=0x0178}
0x20ffc…21032               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0152, t01=0x001e}
0x21032…21068               Head {h00=0x0032, h01=0x0050, text=»*            CMPSYM                         * «, t00=0x0152, t01=0x0054}
0x21068…2109e               Head {h00=0x0032, h01=0x0050, text=»*            ======                         * «, t00=0x0152, t01=0x008a}
0x2109e…210d4               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0152, t01=0x00c0}
0x210d4…2110a               Head {h00=0x0032, h01=0x0050, text=»*  COMPARE TWO SYMBOLS WITH EACH OTHER      * «, t00=0x0152, t01=0x00f6}
0x2110a…21140               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0152, t01=0x012c}
0x21140…21176               Head {h00=0x0032, h01=0x0050, text=»*  ENTRY: A3 - START OF SYMBOL 1            * «, t00=0x0152, t01=0x0162}
0x21176…211ac               Head {h00=0x0032, h01=0x0050, text=»*         A1 - START OF SYMBOL 2            * «, t00=0x0153, t01=0x0008}
0x211ac…211e2               Head {h00=0x0032, h01=0x0050, text=»*         A5 - LENGTH OF SYMBOL 2           * «, t00=0x0153, t01=0x003e}
0x211e2…21218               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0153, t01=0x0074}
0x21218…2124e               Head {h00=0x0032, h01=0x0050, text=»*  EXIT:  A5 = 0 IF SYMBOLS EQUAL           * «, t00=0x0153, t01=0x00aa}
0x2124e…21284               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0153, t01=0x00e0}
0x21284…212ba               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0153, t01=0x0116}
0x212ba…212c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x014c}
0x212c4…212ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0153, t01=0x0156}
0x212ce…212e2               Head {h00=0x0010, h01=0x0050, text=»CMPSYM EQU *«, t00=0x0153, t01=0x0160}
0x212e2…2130e               Head {h00=0x0028, h01=0x0050, text=» LCR A2,A3 GET CHARACTER IN SYMBOL 1«, t00=0x0153, t01=0x0174}
0x2130e…21344               Head {h00=0x0032, h01=0x0050, text=» CCR A2,A1 COMPARE WITH CHARACTER IN SYMBOL 2 «, t00=0x0154, t01=0x0010}
0x21344…21370               Head {h00=0x0028, h01=0x0050, text=» RF(NE) CMPEND IF NOT EQUAL, RETURN «, t00=0x0154, t01=0x0046}
0x21370…2137a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x0072}
0x2137a…213a6               Head {h00=0x0028, h01=0x0050, text=» ADK A3,1 ADVANCE CHARACTER POINTERS«, t00=0x0154, t01=0x007c}
0x213a6…213b8               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0154, t01=0x00a8}
0x213b8…213e4               Head {h00=0x0028, h01=0x0050, text=» SUK A5,1 DECREMENT CHARACTER COUNT «, t00=0x0154, t01=0x00ba}
0x213e4…21414               Head {h00=0x002c, h01=0x0050, text=» RB(NZ) CMPSYM CONTINUE THE COMPARISION «, t00=0x0154, t01=0x00e6}
0x21414…2141e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0154, t01=0x0116}
0x2141e…21446               Head {h00=0x0024, h01=0x0050, text=» LDR* A2,A6 RESTORE NAME LENGTH «, t00=0x0154, t01=0x0120}
0x21446…2146c               Head {h00=0x0022, h01=0x0050, text=» CWK A2,8 LOOK IF MAX. LENGTH «, t00=0x0154, t01=0x0148}
0x2146c…21490               Head {h00=0x0020, h01=0x0050, text=» RF(E) CMPEND YES! FINISHED «, t00=0x0154, t01=0x016e}
0x21490…2149a (341, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0155, t01=0x0004}
0x2149a…214cc               Head {h00=0x002e, h01=0x0050, text=» LCR A2,A3 GET NEXT CHARACTER IN FILE NAME«, t00=0x0155, t01=0x000e}
0x214cc…214f4               Head {h00=0x0024, h01=0x0050, text=» CCK A2,/2020 END OF FILE NAME? «, t00=0x0155, t01=0x0040}
0x214f4…2150e               Head {h00=0x0016, h01=0x0050, text=» RF(E) CMPEND YES!«, t00=0x0155, t01=0x0068}
0x2150e…21518               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0155, t01=0x0082}
0x21518…21538               Head {h00=0x001c, h01=0x0050, text=» LDK A5,1 NO, NOT EQUAL!«, t00=0x0155, t01=0x008c}
0x21538…2154c               Head {h00=0x0010, h01=0x0050, text=»CMPEND EQU *«, t00=0x0155, t01=0x00ac}
0x2154c…2156a               Head {h00=0x001a, h01=0x0050, text=» RTN A14 END OF CMPSYM«, t00=0x0155, t01=0x00c0}
0x2156a…21578               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0155, t01=0x00de}
0x21578…215ae               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0155, t01=0x00ec}
0x215ae…215e4               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0155, t01=0x0122}
0x215e4…2161a               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0155, t01=0x0158}
0x2161a…21650               Head {h00=0x0032, h01=0x0050, text=»*               GETVLB                      * «, t00=0x0155, t01=0x018e}
0x21650…21686               Head {h00=0x0032, h01=0x0050, text=»*               ======                      * «, t00=0x0156, t01=0x0034}
0x21686…216bc               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0156, t01=0x006a}
0x216bc…216f2               Head {h00=0x0032, h01=0x0050, text=»*  READ SECTOR CONTAINIG VOLUME LABEL       * «, t00=0x0156, t01=0x00a0}
0x216f2…21728               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0156, t01=0x00d6}
0x21728…2175e               Head {h00=0x0032, h01=0x0050, text=»*  EXIT: A10 - LAST VTOC SECTOR             * «, t00=0x0156, t01=0x010c}
0x2175e…21794               Head {h00=0x0032, h01=0x0050, text=»*        A11 - FIRST VTOC SECTOR            * «, t00=0x0156, t01=0x0142}
0x21794…217ca               Head {h00=0x0032, h01=0x0050, text=»*        A8  - VTOC RECORD LENGTH           * «, t00=0x0156, t01=0x0178}
0x217ca…21800               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0157, t01=0x001e}
0x21800…21836               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0157, t01=0x0054}
0x21836…21840               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0157, t01=0x008a}
0x21840…2184a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0157, t01=0x0094}
0x2184a…2185e               Head {h00=0x0010, h01=0x0050, text=»GETVLB EQU *«, t00=0x0157, t01=0x009e}
0x2185e…21880               Head {h00=0x001e, h01=0x0050, text=» SUR A11,A11 VOLUME LABEL «, t00=0x0157, t01=0x00b2}
0x21880…21894               Head {h00=0x0010, h01=0x0050, text=» SUR A12,A12«, t00=0x0157, t01=0x00d4}
0x21894…218ba               Head {h00=0x0022, h01=0x0050, text=» CF A14,RDSEC GET VOLUME LABEL«, t00=0x0157, t01=0x00e8}
0x218ba…218de               Head {h00=0x0020, h01=0x0050, text=» LD A10,10,A9 GET VTOC BASE «, t00=0x0157, t01=0x010e}
0x218de…218f8               Head {h00=0x0016, h01=0x0050, text=» LDR A11,A10 SAVE «, t00=0x0157, t01=0x0132}
0x218f8…2191e               Head {h00=0x0022, h01=0x0050, text=» AD A10,6,A9 LAST VTOC SECTOR «, t00=0x0157, t01=0x014c}
0x2191e…2194a               Head {h00=0x0028, h01=0x0050, text=» LD A8,12,A9 GET VTOC RECORD LENGTH «, t00=0x0157, t01=0x0172}
0x2194a…2197c               Head {h00=0x002e, h01=0x0050, text=» AD A11,46,A9 FIRST FILE SECTOR IN VTOC =7«, t00=0x0158, t01=0x000e}
0x2197c…2199a               Head {h00=0x001a, h01=0x0050, text=» RTN A14 END OF GETVLB«, t00=0x0158, t01=0x0040}
0x2199a…219a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0158, t01=0x005e}
0x219a4…219b2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0158, t01=0x0068}
0x219b2…219e8               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0158, t01=0x0076}
0x219e8…21a1e               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0158, t01=0x00ac}
0x21a1e…21a54               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0158, t01=0x00e2}
0x21a54…21a8a               Head {h00=0x0032, h01=0x0050, text=»*                  RDSEC                    * «, t00=0x0158, t01=0x0118}
0x21a8a…21ac0               Head {h00=0x0032, h01=0x0050, text=»*                  =====                    * «, t00=0x0158, t01=0x014e}
0x21ac0…21af6               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0158, t01=0x0184}
0x21af6…21b2c               Head {h00=0x0032, h01=0x0050, text=»*  READS A SECTOR FROM INPUT DISC.          * «, t00=0x0159, t01=0x002a}
0x21b2c…21b62               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0159, t01=0x0060}
0x21b62…21b98               Head {h00=0x0032, h01=0x0050, text=»*  ENTRY: A9 - BUFFER ADDRESS               * «, t00=0x0159, t01=0x0096}
0x21b98…21bce               Head {h00=0x0032, h01=0x0050, text=»*         A11- SECTOR ADDRESS               * «, t00=0x0159, t01=0x00cc}
0x21bce…21c04               Head {h00=0x0032, h01=0x0050, text=»*         A12- SECTOR ADDRESS               * «, t00=0x0159, t01=0x0102}
0x21c04…21c3a               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0159, t01=0x0138}
0x21c3a…21c70               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0159, t01=0x016e}
0x21c70…21c7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x0014}
0x21c7a…21c84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x001e}
0x21c84…21c98               Head {h00=0x0010, h01=0x0050, text=»RDSEC EQU * «, t00=0x015a, t01=0x0028}
0x21c98…21cbe               Head {h00=0x0022, h01=0x0050, text=» CF A14,READS MODIFIED ADDRESS«, t00=0x015a, t01=0x003c}
0x21cbe…21cd4               Head {h00=0x0012, h01=0x0050, text=»READS EQU *-2 «, t00=0x015a, t01=0x0062}
0x21cd4…21ce4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x015a, t01=0x0078}
0x21ce4…21cf2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x015a, t01=0x0088}
0x21cf2…21cfc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x0096}
0x21cfc…21d1c               Head {h00=0x001c, h01=0x0050, text=»*  DATA AREA DEFINITION «, t00=0x015a, t01=0x00a0}
0x21d1c…21d26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015a, t01=0x00c0}
0x21d26…21d3a               Head {h00=0x0010, h01=0x0050, text=»SYSBAS EQU *«, t00=0x015a, t01=0x00ca}
0x21d3a…21d54               Head {h00=0x0016, h01=0x0050, text=»SAVCON DATA BUFLEN«, t00=0x015a, t01=0x00de}
0x21d54…21d8a               Head {h00=0x0032, h01=0x0050, text=»MXBUF DATA 0 DISC/FLEXIBLE DISC BUFFER ADDRESS«, t00=0x015a, t01=0x00f8}
0x21d8a…21daa               Head {h00=0x001c, h01=0x0050, text=»SAVMEM DATA 0 SAVE AREA «, t00=0x015a, t01=0x012e}
0x21daa…21dd4               Head {h00=0x0026, h01=0x0050, text=»CYLNBR DATA /FFFF CYLINDER NUMBER «, t00=0x015a, t01=0x014e}
0x21dd4…21e00               Head {h00=0x0028, h01=0x0050, text=»SECNBR DATA 0 PHYSICAL SECTOR NUMBER«, t00=0x015a, t01=0x0178}
0x21e00…21e1a               Head {h00=0x0016, h01=0x0050, text=» IFT CDDISC=1  =9 «, t00=0x015b, t01=0x0014}
0x21e1a…21e34               Head {h00=0x0016, h01=0x0050, text=» IFT CDDI16=0  =9 «, t00=0x015b, t01=0x002e}
0x21e34…21e62               Head {h00=0x002a, h01=0x0050, text=»DEVTAB DATA 0,/1909,/3717,/2808,/1404 «, t00=0x015b, t01=0x0048}
0x21e62…21e74               Head {h00=0x000e, h01=0x0050, text=» XIF   =9 «, t00=0x015b, t01=0x0076}
0x21e74…21e94               Head {h00=0x001c, h01=0x0050, text=» IFF CDDISC-CDDI16=1  =9«, t00=0x015b, t01=0x0088}
0x21e94…21ec4               Head {h00=0x002c, h01=0x0050, text=»DEVTAB DATA 0,/1909,/3717,/2808,/5717 =9«, t00=0x015b, t01=0x00a8}
0x21ec4…21ed6               Head {h00=0x000e, h01=0x0050, text=» XIF   =9 «, t00=0x015b, t01=0x00d8}
0x21ed6…21efe               Head {h00=0x0024, h01=0x0050, text=»SWPTAB DATA '$S','WA','P ','  ' «, t00=0x015b, t01=0x00ea}
0x21efe…21f14               Head {h00=0x0012, h01=0x0050, text=»FCTAB EQU * =5«, t00=0x015b, t01=0x0112}
0x21f14…21f32               Head {h00=0x001a, h01=0x0050, text=» DATA /F1F3,/F0F2  =5 «, t00=0x015b, t01=0x0128}
0x21f32…21f3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x015b, t01=0x0146}
0x21f3c…21f50               Head {h00=0x0010, h01=0x0050, text=» END SYSLOD «, t00=0x015b, t01=0x0150}
0x21f50…21f54               Head {h00=0x4004, h01=0x0000}
0x21f54…21f58               01 5b 01 64                                                                                                                                                                                                                                       ┆ [ d┆
0x21f58…21f60 (348, 1, 8)   20 04 00 00 01 5c 00 04                                                                                                                                                                                                                           ┆        ┆

DataMuseum.dk

Philips Data Systems

⟦53eefe75b⟧

Derivation

PTS(SC)

HexDump

Reduced view