⟦7dd9fde40⟧

PTS(SC)

	IDENT SYSLDA 	REL 10.0 80-05-29 870105041000 

			REL 10.0 80-03-14
			=1,FAULTY STACK BASE WHEN USING MMU
				
				
**********************************************************
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   SYSLDA = SYSTEM LOAD - APPLICATION CONFIGURATION PART 
* 
* 
* 
* 
* 
* 
**********************************************************
* 
* 
*   THIS PART OF THE SYSTEM START-UP WILL TAKE CARE OF APPLICATION
*   (CREDIT) CONFIGURATION AND START OF APPLICATION. SYSLDA IS
*   ENTERED AFTER MONITOR CONFIGURATION (PERFORMED BY SYSLDM), AND
*   IS AT THAT TIME LOCATED AT HIGHEST FREE ADDRESS OF SYSTEM AREA. 
* 
*   ASSEMBLER APPLICATION:
*      NO CONFIGURATION WILL TAKE PLACE. FIRST USER TASK IS ACTIVATED 
*      AND A BRANCH IS MADE TO  P F I N I T . ALL USER TASK TTAB'S
*      MM-TABLES ARE FILLED IN. 
* 
*   CREDIT APPLICATION: 
*      SYSLDA READS CONFIGURATION FILE (ALREADY IN CORE) AND BUILD
*      SHADOW-TABLES (TABLES CONTAINING NUMBER OF REAL TASKS &
*      NUMBER OF USER WORK-BLOCK COPIES). 
*      SYSLDA THEN MOVES ITSELF TO FOLLOW MONITOR AND WILL ALSO MOVE
*      DDIV-PROTOTYPE TO FOLLOW SYSLDA. 
* 
*      APPLICATION WORKBLOCKS, DESCRIPTORS, STACK AND TABLES ARE NOW
*      BUILT FROM 'BOTTOM' (HIGHEST FREE ADDRESS) OF MEMORY. BUFFERS
*      ARE, IN CASE OF MMU IN SYSTEM, ALSO ALLOCATED AT 'BOTTOM' OF 
*      MEMORY; ELSE, IF NO MMU, BUFFERS ARE ALLOCATED AFTER MONITOR 
*      'OVER' SYSLDA. 
* 
*      ALL USER TASKS ARE QUEUED    VIA  A C T O T AND ALL MM-TABLES
*      IN USER TASK TTAB'S ARE FILLED. A BRANCH IS FINALLY MADE TO
*      P F I N I T  TO START APPLICATION. 
	EJECT
				
*************************** 
*                         * 
*  ENTRIES AND EXTERNALS  * 
*                         * 
*************************** 
			 
* LABEL ENTRIES 
	ENTRY	JUMP	BYPASS JUMP FOR LOAD-MODULE 
	ENTRY	SYSLDX 
	ENTRY	REL	START OF CODE
	ENTRY	LDALEN	PROGRAM LENGTH	=00003 

* SUBROUTINE ENTRIES
	ENTRY	MOVE 
	ENTRY	ERROR
	ENTRY	CMPADR	COMPARE ADDRESSES 
	ENTRY	NXTBLK	SKIP TO NEXT CONFIGURATION BLOCK
	ENTRY	NXTCOM	SKIP COMMONDEVICE DEFINITION BLOCK
	ENTRY	CONVRT	CONVERSION ASCII-BINARY 
	ENTRY	GETNUM	CONVERT 3 ASCII-DIGITS TO BINARY
	ENTRY	MULT	MULTIPLICATION ROUTINE

* SAVE AND WORK AREA ENTRIES
	ENTRY	MMTAB	WORK-TABLE 1 (MMU
	ENTRY	TABBE	ABSOLUTE START ADDRESS OF WORK-TAB 1 
	ENTRY	MMEND	ABSOLUTE END ADDRESS OF WORK-TAB 1 
	ENTRY	MMDDIV	WORK-TABLE 2 (MM) RELATIVE 'REL'
	ENTRY	BUFSIZ	TEMPORARY MOVE-BUFFER SIZE
	ENTRY	SYSBUF	TEMPORARY MOVE-BUFFER START 
	ENTRY	M:REL	RELOCATION FOR RELOCATION WORD!!!! 
	ENTRY	I:RSTE	INTERPRETER RESTART ENTRY 
	ENTRY	SAVE01,SAVE12,SAVE03,SAVE04
	ENTRY	SAVE05,SAVE06,SAVE07,SAVE08
	ENTRY	SAVE09,SAVE10,SAVE11,SAVE02
	ENTRY	SAVE13,SAVE14,SAVE15,SAVE16
	ENTRY	SAVE17,SAVE18,SAVE19,SAVE20
	ENTRY	SAVE21,SAVE22,SAVE23,SAVE24
	ENTRY	SAVE25,SAVE26,SAVE27,SAVE28
	ENTRY	SAVE29,SAVE30
	ENTRY	APPTYP	APPLICATION TYPE
	EJECT

* SYSTEM CONTROL TABLE EXTERNALS
	EXTRN	SCTSFA	START OF FREE AREA
	EXTRN	SCTLAC	LOGICALL ADDRESS TO COMMON PART 
	EXTRN	SCTTCT	TC:TAB ADDRESS
	EXTRN	SCTSTB	A15 STACK-BASE
	EXTRN	SCTEFA	END OF FREE AREA
	EXTRN	SCTNOP	NUMBER OF PAGES 
	EXTRN	SCTPSZ	PAGE SIZE 
	EXTRN	SCTMMC		=00002 
	EXTRN	SCTOPT	SYSTEM OPTION 
	EXTRN	SCTPAG	PAGE TABLE ADDRESS
	EXTRN	SCTSWB	ADDRESS TO SWB CONTROL BLOCK TABLE
	EXTRN	SCTBUG	BUGGER ADDRESS

* EXTERNAL LABELS 
	EXTRN	SYSLDM	START OF MONITOR CONFIGURATION PART 
	EXTRN	PAGQUE	PAGE QUEUE POINTER

* EXTERNAL SUBROUTINES
	EXTRN	ACTOT	QUEUE TASK 
	EXTRN	PFINIT 
	EXTRN	SAVE8	SAVE 8 REGS
	EXTRN	RETUR8	RELOAD 8 REGS 
	EXTRN	TDISP	DISPATCHER ENTRY 

* 
	EXTRN	TTB:SA	START OF SAVE AREA IN TTAB
	EXTRN	TTB:CB	DISPL. TO CURRENT SEGMENT BASE ADDRESS
	EJECT


*************************************** 
* CONDITIONAL ASSEMBLY                * 
*************************************** 

MMUPAG	EQU	0	0 = NO MMU 

SWPBLK	EQU	0	SWAPPABLE WORK BLOCKS

CREDIT	EQU	1	0=ASSEMBLER

MMUSWB	EQU	MMUPAG+SWPBLK

SWBMMU	EQU	SWPBLK-MMUPAG
	EJECT

	  PROGRAM STRUCTURE: 

*          -------------------------------------------------------
*          !  RELOCATION ROUTINE                                 !<- A13
*          !  A14-STACK AND SUBROUTINE-HANDLER                   !
*          !-----------------------------------------------------!
*          !  SAVE & COMMUNICATION AREA. MMU - WORK TABLES       !
*          !-----------------------------------------------------!
*          !  SUBROUTINES. -COMMON TO ALL PARTS IN PROGRAM.      !
*          !-----------------------------------------------------!
*          !  R E A L T A                                        ! PART 2.B 
*          !  BUILD REAL TASK-LOCAL DATA AREAS                   !
*          !  -QUEUE TASK VIA 'ACTOT'                            !
*          !  -FILL MM-TABLE IN TTAB                             !
*          !  -COPY T:A'S ACCORDING TO SHADOW-TABLE              !
*          !  -BUILD TWB'S AND RESERVE FOR SWB'S                 !
*          !  -ALLOCATE FIXED BUFFERS AND STACK                  !
*          !  -UPDATE TID IN T:A AND SAVE TID IN T:AID TABLE     !
*          !  -START DEBUGGER (IF ANY) AND START APPLICATION     !
*          !-----------------------------------------------------!
*          !  SUBROUTINES                                        ! PART 2.A 
*          !  -MOVE DDIV PROTOTYPE TO FOLLOW SYSLDA              !
*          !                                                     !
*          !  C O M D A T                                        !
*          !  GENERATE COMMON DATA AREA. PROCESS CWB'S & UWB'S.  !
*          !  -MOVE D.T. AND W.B., COPY UWB'S ACCORDING TO       !
*          !   SHADOW-TABLE.                                     !
*          !                                                     !
*          !  C L A D A T                                        !
*          !  BUILD TASK CLASS DATA AREAS. PROCESS CWB'S, UWB'S  !
*          !  AND DWB'S.                                         !
*          !  -BUILD MM-TABLE                                    !
*          !  -MOVE T:D                                          !
*          !  -MOVE D.T. & W.B., COPY UWB'S                      !
*          !  -MOVE D.T.'S OF SWB'S AND TWB'S                    !
*          !  -SEARCH DBLK-TAB FOR DWB'S. MOVE D.T. AND UPDATE   !
*          !   W.B.-ADDRESS                                      !
*          !                                                     !
*          !  P R O D A T                                        !
*          !  BUILD PROTOTYPE TASK-LOCAL DATA AREAS.             !
*          !  -GENERATE TWB'S AND RESERVE FOR SWB'S              !
*          !  -ALLOCATE FIXED BUFFERS AND TERMINAL STACK         !
*          !  -MOVE T:A                                          !
*          !  -INCLUDE DDIV-PROTOTYPE & PART 2.A IN FREE AREA.   !
*          !  -CONTINUE IN PART 2.B                              !
*          !-----------------------------------------------------!
*          !  SUBROUTINES                                        ! PART 1 
*  ENTRY ->!                * SYSLDA ENTRY *                     !
*          !  CREDIT APPLICATION:      !  ASSEMBLER APPLICATION: !
*          !  READ CUNFIGURATION FILE  !  -FILL MM-TABLES IN     !
*          !  AND BUILD SHADOW-TABLES. !   USER TASK TTAB'S.     !
*          !                           !  -QUEUE 1:ST USER TASK  !
*          !  T:ATAB:                  !   AND START APPLICATION !
*          !  -A TABLE OF 'NUMBER OF   !-------------------------!
*          !   REAL TASKS' IS BUILT AT                           !
*          !   THE END OF MONITOR.                               !
*          !  U:BTAB:                                            !
*          !  -A TABLE OF 'NUMBER OF REAL UWB'S' IS BUILT IN     !
*          !   U:BTAB PROTOTYPE.                                 !
*          !                                                     !
*          !  -RELOCATE ALL W.B.-ADDRESSES IN DDIV-PROTOTYPE.    !
*          !  -REMOVE NOT USED ENTRIES IN T:ATAB                 !
*          !  -RELOCATE ADDRESSES IN U:BTAB                      !
*          !  -MOVE SYSLDA (NOT PART 1) TO FOLLOW T:ATAB SHADOW- !
*          !   TABLE                                             !
*          !  -CONTINUE IN PART 2.A                              !
*          !-----------------------------------------------------!
	EJECT
				
		***************** 
		***************** 
		**             ** 
		**  CONSTANTS  ** 
		***************** 
		**             ** 
		***************** 
				
**********
* P:MTAB *
**********
T:ATAB	EQU	0
U:BTAB	EQU	2
P:BAS	EQU	6	SEGMENT BASE
T:AID	EQU	32	ADDRESS TO 'TABLE OF T:A TID'
S:BTAB	EQU	40	DISP TO S:BTAB ADDRESS
I:RSTE	EQU	42	INTERPRETER RESTART ENTRY 


**********
* U:BTAB *
**********
UP:REC	EQU	6	RECORD LENGTH IN INITIAL U:BTAB
UPADDR	EQU	2	PROTOTYPE ADDRESS
UPNAME	EQU	4	PROTOTYPE NAME 
UPNUMB	EQU	7	SAVE AREA NUMBER OF COPIES (SHADOW-TBL)
* 
UR:REC	EQU	6	RECORD LENGTH IN REAL U:BTAB 
URADDR	EQU	2	ADDRESS TO FIRST REAL UWB
URNUMB	EQU	4	NUMBER OF UWB'S
URLENG	EQU	6	LENGTH OF UWB
	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	FIRST TERM DEF 
TDC	EQU	7	TERMINAL DEVICE CLASS 
TLC	EQU	6	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	FIRST 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	FIRST UDB-RECORD 
NAMUWB	EQU	3	NAME OF UWB
NUMUBL	EQU	3	NUMBER OF BLOCKS 
UDBREC	EQU	NAMUWB+NUMUBL	UDB RECORD-LENGTH
	EJECT
				
				
********* 
*  T:A  * 
********* 
T:ASTA	EQU	-14	T:A START
CSE	EQU	-14	CURRENT SEGMENT END (HERE: STACKSIZE) 
CSB	EQU	-12	CURRENT SEGMENT BASE
CSN	EQU	-10	CURRENT SEGMENT NUMBER (HERE LENGTH 
			                        OF ALL DSCB-RECORDS
T:DAD	EQU	-8	ADDRESS TO T:D 
CIA	EQU	-6	CURRENT INSTUCTION ADDRESS 
			(HERE: DISPLACEMENT TO T:A-START)
			 
T:ATID	EQU	-4	TASK ID 
STKE	EQU	-2	STACK END 
PA	EQU	0	STACK POINTER
STKB	EQU	2	STACK BASE 
WATFST	EQU	4	FIRST WAT-ELEMENT
* 
* DSCB-RECORD:
DSCBL	EQU	20	RECORD LENGTH
BA	EQU	2	BUFFER ADDRESS 
RL	EQU	4	REQ. LENGTH
EL	EQU	6	EFF. LENGTH
BL	EQU	14	LENGTH ITEM ADDRESS 
	EJECT
				
				
********* 
*  T:D  * 
********* 
FCD	EQU	0	DISPLACEMENT TO FCB IN T:A
T:DTID	EQU	2	TASK IDENTIFIER (PROTOTYPE)
DATLEN	EQU	4	NUMBER OF DATASETS (DSCB'S)
WATLEN	EQU	6	NUMBER OF WATELEMENTS
TWBMSK	EQU	8	MASK FOR TWB'S (ONE BIT/ENTRY) 
SWBMSK	EQU	10	MASK FOR SWB'S      -"- 
CWBMSK	EQU	12	MASK FOR CWB'S      -"- 
UWBMSK	EQU	14	MASK FOR UWB'S      -"- 
DWBFST	EQU	16	FIRST WORD IN DBLK-TAB

STPREC	EQU	4	RECORD LENGTH OF START-POINTS


****************
* SOP-HANDLING *
****************
SOP	EQU	/2E	DEVICE ADDRESS

		  LAMP CODE	MEANING 
		  ---------	------- 
LMP1	EQU	/400	SYSLOAD RUNS
LMP2	EQU	/200	READ ERROR
LMP3	EQU	/100	MEMORY OVERFLOW 
LMP4	EQU	/80	FORMAT ERROR (CONFIG)
LMP5	EQU	/40	TID ERROR
LMP6	EQU	/20	UWB OR SWB ERROR 
LMP7	EQU	/10	MM-TABLE OVERFLOW
LMP8	EQU	8
LMP9	EQU	4
LMP10	EQU	2 
LMP11	EQU	1 
	EJECT
********************* 
*  OTHER CONSTANTS  * 
********************* 
			 
WBLEN	EQU	-4	LENGTH OF WORK-BLOCK 
DTLEN	EQU	-2	LENGTH OF DESCRIPTOR-TABLE 
SWBLEN	EQU	4	DISP TO LENGTH OF SWB
			 
FCBDD1	EQU	8	DISP TO FIRST DSET 
FCBDD2	EQU	10	DISP TO 2:ND DSET 
			 
STKSZ	EQU	128	DEFAULT STACK-SIZE
			 
CREID	EQU	2	CREDIT IDENTIFICATION 
SEGREC	EQU	6	RECORD LENGTH IN S:GTAB
NUMSEG	EQU	10	DISPL. TO NUMBER OF SEGMENTS IN S:GTAB

TTBTID	EQU	2	TID IN TTAB
T:DSAV	EQU	0	SAVE FOR T:D-ADDRESS IN TTAB 
TTB:PP	EQU	6	SAVE AREA FOR TCL IN TTAB

NTPA	EQU	4	INTERPRETER START ADDRESS
IHRTC	EQU	4	RTC INTERRUPT ADDRESS 
RTCDA	EQU	/1B	RTC DEVICE ADDRESS
			 
***************************************************************** 
*  CALL-FORMAT, PERFORMS:  CFR      A14,A13                     * 
*                          DATA     [REL-ADDRESS]               * 
*                                                               * 
***************************************************************** 
			 
			 
			 
CALL	FORM	16=/F697,16 
	EJECT
				
**************************************************
**************************************************
**                                              **
**  RELOCATION ROUTINE & STACK INITIALLISATION  **
**                                              **
**************************************************
**************************************************
			 
REL	RF	SUBBA	JUMP TO SUBROUTINE HANDLER 
	LDR	A13,P	GET BASE ADDRESS TO A13
	SUKL	A13,4 
* ADJUST FOR PSW-ROUTINE *
**************************
	LDK	A3,GETPSW	RELATIVE ADDRESS TO 'PSW-ADDRESS'
	ADR	A3,A13	ABSOLUT DITO
	ST	A3,PSW,A13	STORE ADDRESS TO 'GETPSW'-ROUTINE
* LOAD STACKBASE *
******************

	LDKL	A14,STACKB
	ADR	A14,A13	RELOCATE 
	RTN	A8 
				
				
* STACK * 
********* 
* 
	RES	12 
STACKB	EQU	*-REL-2
	EJECT
			 
				
* ADDRESS TO PSW-ROUTINE *
**************************
* 
PSW	EQU	*-REL 
	DATA	GETPSW
			 
****************************************************************
*                        G E T P S W                           *
* LITTLE SUBROUTINE TO PUT PSW IN STACK FOR CALLING SUBROUTINE *
****************************************************************
			 
GETPSW	EQU	*-REL
	STR	A2,A14	SAVE A2 ON A14-STACK
	LD	A2,2,A14	GET PSW FROM CALLING SUBROUTINE
	ST	A2,6,A14	REPLACE PSW FROM MAIN PROGRAM
	LDR*	A2,A14	RESTORE A2 
	RTN	A14
	EJECT

********************************* 
*                               * 
*  SUBROUTINE-HANDLER           * 
*                               * 
********************************* 

SUBSUB	EQU	*-REL
SUBBA	ST	A10,MUL,A13	SAVE A10 
	LD*	A10,4,A14	GET SUBROUTINE REL ADDRESS 
	IM	4,A14	ADJUST RETURN ADDRESS 
	IM	4,A14 
	AD	A10,M:REL,A13	ADD FOR SYSLDM RELOCATION 
	STR	A10,A14	PUT ON STACK 
	LD	A10,MUL,A13	RESTORE A10 
	ABR*	A14 



******************************************************* 
* JUMP TO SYSLDM (FROM SYSLOD) ALWAYS VIA THIS MODULE * 
******************************************************* 

JUMP	ABL	SYSLDM 
	EJECT
				
************************************
**                                **
**  SAVE, AND COMMUNICATION AREA  **
**                                **
************************************
			 
T:ATOD	EQU	*-REL	T:ATAB 'OLD' ADDRESS 
	DATA	0 
T:ATNW	EQU	*-REL	T:ATAB 'NEW' ADDRESS 
	DATA	0 
U:BTOD	EQU	*-REL	U:BTAB OLD ADDRESS 
	DATA	0 
U:BTNW	EQU	*-REL	U:BTAB NEW ADDRESS 
	DATA	0 
S:BTOD	EQU	*-REL	S:BTAB OLD ADDRESS 
	DATA	0 
S:BTNW	EQU	*-REL	S:BTAB NEW ADDRESS 
	DATA	0 
MOVADD	EQU	*-REL	ADDRESS-CHANGE AFTER MOVE
	DATA	0 
MOVED	EQU	*-REL	INDICATOR IF BLOCK ALREDY MOVED 
	DATA	0 
ENDADD	EQU	*-REL	END-ADDRESS INDICATOR
			FOR TABLE-SCANNING 
	DATA	0 
LSTADR	EQU	*-REL	LAST ADDRESS WHEN BUILDING DATA PART 
	DATA	0 
FSTADR	EQU	*-REL	FIRST FREE ADDRESS WHEN ALLOCATING BUFFERS 
	DATA	0 
NEWAD1	EQU	*-REL	SAVE FOR W.B. ADDRESS
	DATA	0 
NEWAD2	EQU	*-REL	SAVE FORD.T. ADDRESS 
	DATA	0 
SWITCH	EQU	*-REL	D.T. INDICATOR 
	DATA	0 
FLAG	EQU	*-REL	REAL TASK DATA PROCESSING INDICATOR
	DATA	0 
UWB	EQU	*-REL	U.W.B. INDICATOR
	DATA	0 
APPTYP	EQU	*-REL	APPLICATION TYPE 
	DATA	0 
SAVE01	EQU	*-REL	TEMPORARY SAVE 
	DATA	0 
SAVE02	EQU	*-REL
	DATA	0 
SAVE03	EQU	*-REL
	DATA	0 
SAVE04	EQU	*-REL
	DATA	0 
SAVE05	EQU	*-REL
	DATA	0 
SAVE06	EQU	*-REL
	DATA	0 
SAVE07	EQU	*-REL
	DATA	0 
SAVE08	EQU	*-REL
	DATA	0 
SAVE09	EQU	*-REL	SAVE AREAS 
	DATA	0 
SAVE10	EQU	*-REL
	DATA	0 
SAVE11	EQU	*-REL
	DATA	0 
SAVE12	EQU	*-REL
	DATA	0 
SAVE13	EQU	*-REL
	DATA	0 
SAVE22	EQU	*-REL
	DATA	0 
SAVE25	EQU	*-REL
	DATA	0 
SAVE26	EQU	*-REL
	DATA	0 
SAVE27	EQU	*-REL
	DATA	0 
SAVE28	EQU	*-REL
	DATA	0 
SAVE29	EQU	*-REL
	DATA	0 
SAVE30	EQU	*-REL
	DATA	0 
WBADD	EQU	*-REL	W.B.-ADDRESS SAVE 
	DATA	0 
MUL	EQU	*-REL	MULTIPLICATION REGISTER 
	DATA	0 
BIT	EQU	*-REL	SAVE FOR SUPER-LOOP 
	DATA	0 
TADISP	EQU	*-REL	DISPLACEMENT IN T:A TO W.B. ADDRESS
	DATA	0 
DATEND	EQU	*-REL	END OF DDIV PROTOTYPE
	DATA	0 
MMREL1	EQU	*-REL	PHYSICALL PAGE BASE
	DATA	0 
M:REL	EQU	*-REL	RELOCATION FOR SYSLDM 
	DATA	0 
SYSBUF	EQU	*-REL
	DATA	0	TEMPORARY BUFFER START ADDRESS
BUFSIZ	EQU	*-REL	TEMP. BUFFER SIZE
	DATA	0 
MMTO	EQU	*-REL	MMTABLE ADDRESS
	DATA	0 
MMFROM	EQU	*-REL	2:ND MMTABLE ADDRESS 
	DATA	0 
FYSPAG	EQU	*-REL	LAST PHYSICALLY PAGE NUMBER
	DATA	0 
FSTPAG	EQU	*-REL
	DATA	0	FIRST FREE PAGE (PHYSICALL) 
TTAB	EQU	*-REL	CORRENT TTAB ADDRESS 
	DATA	0 
XMSAV	EQU	*-REL 
	DATA	0,0 
LDALEN	EQU	*-REL
	DATA	LDAEND-REL	PROGRAM LENGTH 



********************************* 
* EQUATES FOR SYSLDM SAVE-WORDS * 
********************************* 

SAVE14	EQU	U:BTOD 
SAVE15	EQU	U:BTNW 
SAVE16	EQU	MOVADD 
SAVE17	EQU	ENDADD 
SAVE18	EQU	LSTADR 
SAVE19	EQU	FSTADR 
SAVE20	EQU	MOVED
SAVE21	EQU	NEWAD1 
SAVE23	EQU	SWITCH 
SAVE24	EQU	FLAG 
	EJECT

* MMU TABLES *


MMDDIV	EQU	*-REL	DDIV (& SYSLDA) MM-TABLE 
	IFT MMUPAG=1 
	RES	16 
	XIF

MMTAB	EQU	*-REL	WORK AREA MM-TAB
TABBE	EQU	* 
	IFT MMUPAG=1 
	DATA	0,0,0,0,0,0,0,0 
	DATA	0,0,0,0,0,0,0,0 
	XIF
MMEND	EQU	* 
	DATA	0	CURRENT SEGMENT BASE IN T:A 
TTPAG	DATA	0	LAST ENTRY (FROM BOTTOM) IN MM-TAB 
LSTPAG	EQU	TTPAG-*	DISPL. TO 'ENTRY-POINTER'
	DATA	0 

MMBEG	EQU	TABBE-* 
	EJECT
				
***                                           *** 
***      S  U  B  R  O  U  T  I  N  E  S      *** 
***  -COMMON TO ALL PARTS IN PROGRAM          *** 
***                                           *** 
************************************************* 
************************************************* 
				
				
**              E R R O R             **
**                                    **
**                                    **
**  ERROR HANDLING ROUTINE.           **
**                                    **
**  INPUT :A1=SOP-MESSAGE             **
**  OUTPUT:A2=RELATIVE CALLING ADDRESS**
**            (REG-CONTENTS IS SAVED) **
****************************************

ERROR	EQU	* 
	ST	A2,SAVE01,A13	SAVE A2 
	LD	A2,4,A14	GET CALLING ABSOLUTE ADDRESS 
	SUR	A2,A13	RELATIVE DITO 
	OTR	A1,0,SOP 
	HLT
	DATA	/6300	(DEBUGGING PURPOS)
	EJECT

**         M O V E             ** 
**                             ** 
**                             ** 
**  MOVE  BLOCKS INSIDE MEMORY ** 
**                             ** 
**  INPUT:A1=FROM-ADDRESS      ** 
**        A2=TO-ADDRESS        ** 
**        A3=LENGTH            ** 
** OUTPUT:A3=-1                ** 
**  WORK-REG: A4               ** 
********************************* 
			 
MOVE	EQU	*
MOVES	ADR	A1,A3	END OF FROM AREA
	ADR	A2,A3	END OF TO-AREA 
	LD	A4,SCTEFA	GET END OF FREE AREA
	TNM	A2,A4	SIGN EQUAL?
	RF(NN)	MOVNN	YES 
	CWR	A4,A2	COMPARE WHEN UNEQUAL SIGN
	RF	MOVCK 
MOVNN	CWR	A2,A4	COMPARE WHEN EQUAL SIGN 
MOVCK	RF(NG)	MOVE10	END OF TO-AREA<=END OF FREE AREA
	LDKL	A1,LMP3	INDICATE MEMORY OVERFLOW
	CALL	ERROR 
MOVE10	SUK	A3,1	DEC LENGTH
	RF(N)	MOVE20	ALL DONE
	SUK	A1,1 
	SUK	A2,1 
	LCR	A4,A1	GET CHARACTER
	SCR	A4,A2	STORE CHARACTER
	RB	MOVE10
MOVE20	RTN	A14
	IFT CREDIT-MMUPAG=1
	EJECT
				
				
**                M O V I N G                ** 
**                                           ** 
**                                           ** 
**  USES ROUTINE 'MOVE' ABOVE. TO-ADDRESS IS ** 
**  ASSUMED TO BE DATA-PART OF MEMORY        ** 
**  LSTADR POINTS AT LAST (HIGHEST) FREE     ** 
**  ADDRESS. LSTADR IS UPDATED AND CHECKED   ** 
**                                           ** 
**  INPUT:A3 & A1 AS IN 'MOVE'               ** 
**  OUTPUT: A2=TO-ADDRESS (LSTADR UPDATED)   ** 
**  WORK-REG: A4                             ** 
*********************************************** 
			 
MOVING	EQU	*
	LD	A2,LSTADR,A13	GET LAST ADDRESS
	SUR	A2,A3	SUB LENGTH 
	ANKL	A2,/FFFE	MAKE EVEN ADDRESS
	ST	A11,SAVE01,A13	SAVE A11 
	ST	A9,SAVE12,A13	SAVE A9 
	LDR	A11,A2 
	LD	A9,DATEND,A13	END OF PROTOTYP AREA
	CALL	CMPADR	COMPARE ADDRESSES
	RF(NL)	MOV020
MOV010	LDKL	A1,LMP3	MEMORY OVERFLOW 
	CALL	ERROR 
MOV020	LD	A9,FSTADR,A13	CHECK FIRST FREE ADDRESS
	CALL	CMPADR
	RB(L)	MOV010 
	ST	A2,LSTADR,A13	NEW ADDRESS 
	LD	A9,SAVE12,A13	RESTORE REGISTERS 
	LD	A11,SAVE01,A13
	RB	MOVES 
	XIF
	IFT CREDIT+MMUPAG=2
	EJECT

**               X M O V E                    **
**                                            **
**                                            **
**  MOVE BLOCK INSIDE MEMORY VIA MMU          **
**  TWO PHASES:-MOVE TO SYSTEM AREA (BUFBEG)  **
**             -MOVE TO USER AREA             **
**  IF 'BUFSIZ' (TEMPORARY MOVE-BUFFER) IS NOT**
**  BIG ENOUGH THE MOVE IS REPEATED           **
**                                            **
**  INPUT :A1=FROM-ADDR(MMFROM=MM-TABLE ADDR.)**
**         A2=TO-ADDRESS (MMTO=MM-TABLE ADDR.)**
**         A3=LENGTH (IN BYTES)               **
**  WORK.REGS:A4,A10                          **
************************************************

XMOVE	EQU	* 
	ST	A1,SAVE09,A13 
	ST	A1,SAVE07,A13 
	ST	A2,SAVE10,A13 
	ST	A2,SAVE08,A13 
	ST	A3,SAVE11,A13 
	ST	A9,XMSAV,A13	SAVE A9 TEMPORARY
	ST	A11,XMSAV+2,A13	SAVE A11 TEMPORARY
XMOV05	EQU	*
	LDR	A10,A3	SAVE LENGTH 
	LDK	A4,0	RESET 'NUMBER-OF-MOVE' COUNTER
	LDR	A11,A3	GET LENGTH OF AREA TO MOVE
	LD	A9,BUFSIZ,A13	GET TEMPORARY BUFFER SIZE 
	CALL	CMPADR	TEMPORARY BUFFER BIG ENOUGTH 
	RF(G)	SPLIT	NO! SEVERAL MOVE 
XMOV10	LDR	A3,A10	GET LENGTH
	LD	A1,SAVE09,A13	GET FROM ADDRESS
	LD	A2,SYSBUF,A13	GET TEMP. BUFFER START-ADDRESS
	TL*	MMFROM,A13	LOAD FROM-TABLE 
	MVUS	A3	MOVE DATA-BLOCK TO TEMP. BUFFER
	ST	A1,SAVE09,A13	SAVE END OF 'FROM' ADDRESS
	LD	A1,SYSBUF,A13 
	LD	A2,SAVE08,A13	GET START OF 'TO' ADDRESS 
	LDR	A3,A10	GET LENGTH
	TL*	MMTO,A13	LOAD TO-TABLE 
	MVSU	A3	MOVE DATA-BLOCK FROM BUFFER
	SUK	A4,1	MORE PARTS TO MOVE? 
	RF(N)	XMOV30	NO! 
	ADR	A2,A10 
	ST	A2,SAVE08,A13	SAVE START OF 'TO' ADDRESS
	LD	A3,SAVE11,A13	GET REQUESTED LENGTH
	SUR	A3,A10	SUBTRACT MOVED PART 
	ST	A3,SAVE11,A13	SAVE
	CWR	A3,A10 
	RB(NL)	XMOV10
	LDR	A10,A3	LAST LENGTH 
	RB	XMOV10
	EJECT

SPLIT	EQU	* 
	LDK	A1,0	RESET DIVISION REG
	LDR	A2,A3	GET DIVISOR
	DV	BUFSIZ,A13	AND DIVIDE 
	LDR	A4,A2	GET QUOTIENT (=NUMBER OF MOVES - 1)
	LD	A10,BUFSIZ,A13	MOVE MAX LENGTH
	RB	XMOV10

XMOV30	LD	A2,SAVE10,A13	RESTORE 'TO-ADDRESS'
	LD	A1,SAVE07,A13	RESTORE 'FROM-ADDRESS'
	LD	A9,XMSAV,A13	RESTORE A9 
	LD	A11,XMSAV+2,A13	RESTORE A11 
	RTN	A14
	EJECT

**                M O V I N G                ** 
**                                           ** 
**                                           ** 
**  USES SUBROUTINE 'XMOVE' TO MOVE A BLOCK  ** 
**  VIA TWO MM-TABLES.PHYSICALL TO-ADDRESS   ** 
**  IS ALWAYS ASSUMED TO BE DATA PART OF     ** 
**  MEMORY. LSTADR & FYSPAG POINTS AT LAST   ** 
**  (HIGHEST) FREE ADDRESS. LSTADR &FYSPAG   ** 
**  IS UPDATED AND CHECKED.                  ** 
**                                           ** 
**  INPUT :A1 & A3 AS IN 'XMOVE'             ** 
**         TTAB=POINTER TO TTAB (OR LIKELY)  ** 
**  OUTPUT:A2=LOGICALL TO-ADDRESS            ** 
**  WORK-REGS: A4,A10                        ** 
*********************************************** 

MOVING	EQU	*
	ST	A11,SAVE01,A13	SAVE A11 
	ST	A9,SAVE12,A13	SAVE A9 
	LD	A4,FYSPAG,A13	GET ACT. PHYSICALL PAGE 
	LD	A10,TTAB,A13	LOAD TTAB-ADDRESS
	LD	A2,LSTPAG,A10	GET LAST TABLE-ENTRY IN TTAB
	LDR*	A9,A2	GET PAGE IN TABLE 
	ANKL	A9,/FC00
	CWR	A9,A4	CORRECT PAGE IN MMU-TABLE? 
	RF(E)	MOV010	YES!
	ADKL	A4,/400	ADJUST FOR 'SETTAB' 
	CALL	SETTAB	NEW PAGE IN TABLE! 
MOV010	LD	A11,LSTADR,A13	GET LAST LOGICALL ADDRESS
	ANKL	A11,/FFF
	LDR	A9,A3	GET LENGTH OF AREA TO MOVE 
	CALL	CMPADR	ENOUGTH SPACE IN CURRENT PAGE? 
	RF(NL)	MOV020	YES! 
	SUR	A11,A3	COMPUTE DISPLACEMENT IN PAGE
MOV015	RF(NP)	MOV025
	CALL	SETTAB	INITIALIZE NEW PAGE ENTRY
	ADKL	A11,4096	PHYSICAL PAGE INCREMENT
	RB	MOV015
MOV020	SUR	A11,A3	COMPUTE DISPLACEMENT IN PAGE
MOV025	RF(NN)	MOV050
MOV030	CALL	SETTAB	NEW PAGE IN TABLE! 
	ADKL	A11,4096	NEW PAGE INCREMENT 
	RB(N)	MOV030	NOT ENOUGH. NEW PAGE! 

* MM-TABLE CORRECT. SAVE ADDRESSES *

* A4=PHYSICALL PAGE NUMBER
* A11=DISPLACEM. WITHIN PAGE
* A2=CURRENT ENTRY IN MM-TABLE

MOV050	EQU	*
	ST	A2,LSTPAG,A10	SAVE MMU-ENTRY IN TTAB
	ST	A4,FYSPAG,A13	SAVE PHYSICALL PAGE NUMBER
	LDKL	A4,MMBEG	CALCULATE TABLE ENTRY DISPLACEM. 
	ADR	A4,A10	ABSOLUTE ENTRY ADDRESS
	ST	A4,MMTO,A13	SAVE TABLE ADDRESS
	SUR	A2,A4	RELATIVE ADDRESS 
	SLL	A2,11	SHIFT TO FOUR FIRST BITS & DIV BY 2
	ORR	A2,A11	GET DISPLACEM. WITHIN PAGE
	ANKL	A2,/FFFE	EVEN ADDRESS 
	ST	A2,LSTADR,A13	SAVE LOGICALL ADDRESS 
* CHECK ADDRESSES * 

	LD	A9,FSTPAG,A13	GET FIRST FREE PAGE 
	ST	A11,SAVE07,A13	SAVE A11 
	LD	A11,FYSPAG,A13
	CALL	CMPADR	AND COMPARE
	RF(G)	MOV090	OK! 
	RF(L)	MOV070	NOK!
	LD	A11,SAVE07,A13	RESTORE DISPL. 
	LD	A9,FSTADR,A13 
	CALL	CMPADR
	RF(NL)	MOV090	OK!
MOV070	LDKL	A1,LMP3 
	CALL	ERROR 
MOV090	EQU	*
	CALL	XMOVE	MOVE
	LD	A9,SAVE12,A13 
	LD	A11,SAVE01,A13	RESTORE REGISTERS
	TL*	MMFROM,A13	RESTORE MM-TABLE
	RTN	A14
	EJECT

**               S E T T A B                   ** 
**                                             ** 
**                                             ** 
**  SET NEW PAGE IN MM-TABLE & CHECK IF TABLE  ** 
**  OVERFLOW.                                  ** 
**                                             ** 
**  INPUT :A2-ADDRESS TO CURRENT ENTRY         ** 
**         A4=PHYSICALL PAGE                   ** 
**  OUTPUT:A2 & A4 IS UPDATED                  ** 
**   WORK.REG: A9                              ** 
************************************************* 

SETTAB	EQU	*
	SUKL	A4,/400	GET NEXT PAGE 
	SUK	A2,2	GET NEXT ENTRY

* CHECK IF MM-TABLE OVERFLOW *

	LDR	A9,A10	GET END-ADDRESS A10=TTAB
	ADKL	A9,MMBEG
	TNM	A2,A9	32-KB BOARDER CHECK
	RF(NN)	SETT00
	CWR	A9,A2
	RF	SETT05
SETT00	CWR	A2,A9	OVERFLOW?
SETT05	RF(NL)	SETT10	NO 
	LDK	A1,LMP7
	CALL	ERROR 
SETT10	EQU	*
	STR	A4,A2	STORE IN TABLE 
	RTN	A14
	XIF
	IFF CREDIT=0 
	EJECT
			 
**              G E T W B                    ** 
**                                           ** 
**                                           ** 
**  GET WORK BLOCK ADDRESS AND DISPLACE-     ** 
**  MENT IN T:A                              ** 
**                                           ** 
**  INPUT : A8= POINTER TO T:A-ADD IN T:ATAB ** 
**          BIT=BIT NUMBER SAT IN MASK (0-15)** 
**  OUTPUT: A4=W.B. DISPLACEMENT IN T:A      ** 
**          TADISP=A4                        ** 
**          A11=W.B.-ADDRESS                 ** 
**          WBADD=POINTER TO W.B.-ADD IN T:A ** 
*********************************************** 
			 
GETWB	EQU	* 
	LD	A4,BIT,A13	GET BIT NUMBER 
	SLL	A4,2	ADJUST FOR ADDRESSING 
	ADK	A4,WATFST+2
	ST	A4,TADISP,A13	SAVE DISPLACEMENT 
	IFT CREDIT-MMUPAG=1
	LDR*	A11,A8	GET T:A-ADDRESS
	ADR	A11,A4	ADD DISPLACEMENT
	ST	A11,WBADD,A13	SAVE
	LDR*	A11,A11	GET W.B.-ADDRESS
	XIF
	IFT CREDIT+MMUPAG=2
	LD	A11,FLAG,A13	REAL TASK-DATA PROCESSING? 
	RF(Z)	GETW10	NO! 
	TL*	MMTO,A13	LOAD TO-TABLE 
GETW10	ELR	A11,A8	GET T:A-ADDRESS 
	ADR	A11,A4	ADD DISPLACEMENT
	ST	A11,WBADD,A13	SAVE
	ELR	A11,A11	GET W.B.-ADDRESS 
	TL*	MMFROM,A13	RELOAD FROM-TABLE 
	XIF
	IFF CREDIT=0 
	RTN	A14
	EJECT
				
				
**              M O V W B                         **
**                                                **
**                                                **
**  MOVE WORK-BLOCK. W.B.-ADDRESS IS UPDATED      **
**                                                **
**  INPUT: A11=W.B.-ADDRESS                       **
** OUTPUT: 'WBADD'=POINTER TO MOVED W.B.ADDRESS   **
**  WORK-REGS: A1-A4                              **
****************************************************
			 
MOVWB	EQU	* 
	LDR	A1,A11	GET ADDRESS 
	ADKL	A1,WBLEN	FROM-ADDRESS 
	IFT CREDIT-MMUPAG=1
	LDR*	A3,A1	LENGTH
	CALL	MOVING
	SUKL	A2,WBLEN	ADJUST TO-ADDRESS FOR DISPLACEMENT 
	ST*	A2,WBADD,A13	UPDATE W.B.-ADDRESS AFTER MOVE
	XIF
	IFT CREDIT+MMUPAG=2
	ELR	A3,A1	LENGTH 
	CALL	MOVING
	SUKL	A2,WBLEN	ADJUST TO-ADDRESS FOR DISPLACEMENT 
	LD	A4,FLAG,A13	REAL DATA-PART PROCESSING?
	RF(Z)	MOVW10	NO! 
	TL*	MMTO,A13	LOAD TO-TABLE 
MOVW10	ES*	A2,WBADD,A13	UPDATE W.B.-ADDRESS AFTER MOVE
	TL*	MMFROM,A13	RELOAD FROM-TABLE 
	XIF
	IFF CREDIT=0 
	RTN	A14
	EJECT
				
				
**               M O V D T                         ** 
**                                                 ** 
**                                                 ** 
**  MOVE DISCRIPTOR TABLE. D.T.-ADDRESS IS UPDATED ** 
**                                                 ** 
**  INPUT :WBADD POINTS TO W.B.-ADDRESS IN T:A     ** 
**  OUTPUT: A3=POINTER TO W.B.-ADDRESS             ** 
**  WORK REGS: A1-A4                               ** 
***************************************************** 
			 
MOVDT	EQU	* 
	LD	A1,WBADD,A13	GET POINTER TO W.B-ADDRESS IN WAT
	SUK	A1,2	POINTER TO D.T.-ADDRESS 
	IFT CREDIT-MMUPAG=1
	LDR*	A1,A1	D.T.-ADDRESS
	ADKL	A1,DTLEN	ADJUST FOR LENGTH WORD 
	AD	A1,MOVADD,A13	RELOCATE
	LDR*	A3,A1	LENGTH
	CALL	MOVING
	LD	A3,WBADD,A13
	SUKL	A2,DTLEN
	SUKL	A1,DTLEN
	ST	A2,-2,A3	UPDATE D.T-ADDRESS. A2=NEW ADDRESS 
	XIF
	IFT CREDIT+MMUPAG=2
	ELR	A1,A1	D.T.-ADDRESS 
	ADKL	A1,DTLEN	ADJUST FOR LENGTH WORD 
	AD	A1,MOVADD,A13	RELOCATE
	ELR	A3,A1	LENGTH 
	CALL	MOVING
	LD	A3,WBADD,A13
	SUKL	A2,DTLEN
	SUKL	A1,DTLEN
	ES	A2,-2,A3	UPDATE D.T-ADDRESS. A2=NEW ADDRESS 
	XIF
	IFF CREDIT=0 
	RTN	A14
	EJECT
				
**                    M O V D W B                     **
**                                                    **
**                                                    **
**  SEARCH T:D FOR DUMMY W.B. IF ANY FOUND, MOVE D.T. **
**  AND UPDATE ADDRESSES (W.B. & D.T.)                **
**                                                    **
**  INPUT : A12=T:D-ADDRESS                           **
**          A8= POINTER TO T:A-ADDRESS                **
**          BIT=BIT NUMBER SAT IN DWBMSK ( 0-15 )     **
**  WORK.REGS: A1-A4                                  **
********************************************************
			 
MOVDWB	EQU	*
	ST	A6,SAVE05,A13	SAVE A5 
	LDK	A6,0 
MOVD10	LD	A4,BIT,A13	GET BIT NUMBER 
	ADK	A4,1	FIRST WAT-ELEMENT =1
	IFT CREDIT-MMUPAG=1
	LD	A2,WATLEN,A12 
	XIF
	IFT CREDIT+MMUPAG=2
	EL	A2,WATLEN,A12 
	XIF
	IFF CREDIT=0 
	SUR	A2,A6	ACTUAL TABLE LENGTH
	ADR	A6,A12	A6=TABLE POINTER
MOVD20	ADK	A6,1	A6=TABLE INDEX
	SUK	A2,1	ALL?
	RF(N)	MOVD60	YES!
	IFT CREDIT-MMUPAG=1
	CC	A4,DWBFST,A6	SHARED W.B.? 
	XIF
	IFT CREDIT+MMUPAG=2
	EL	A10,DWBFST,A6	CHECK IF SHARED W.B.
	SRC	A6,1	RIGHT OR LEFT BYTE? 
	RF(N)	MOVD30	RIGHT!
	ANKL	A10,/FF00 
	ECR	A10,A10
	RF	MOVD40
MOVD30	ANKL	A10,/FF 
MOVD40	SLC	A6,1	ADJUST POINTER
	CWR	A4,A10	SHARED W.B.?
	XIF
	IFF CREDIT=0 
	RB(NE)	MOVD20	NO!
* DWB FOUND * 
	NGR	A4,A2	CALCULATE DISPLACEMENT IN T:A
	IFT CREDIT-MMUPAG=1
	AD	A4,WATLEN,A12 
	XIF
	IFT CREDIT+MMUPAG=2
	EL	A10,WATLEN,A12
	ADR	A4,A10 
	XIF
	IFF CREDIT=0 
	LDR	A6,A4	SAVE TABLE INDEX 
	SUK	A4,1 
	SLL	A4,2 
	ADK	A4,WATFST+2
	LD	A3,NEWAD2,A13	GET NEW W.B.-ADDRESS
	IFT CREDIT-MMUPAG=1
	ADR*	A4,A8	A4=POINTER TO W.B.-ADDRESS IN T:A 
	STR	A3,A4	CHANGE W.B.-ADDRESS
	XIF
	IFT CREDIT+MMUPAG=2
	LD	A2,FLAG,A13	REAL DATA-PART PROCESSING?
	RF(Z)	MOVD50	NO! 
	TL*	MMTO,A13	LOAD TO-TABLE 
MOVD50	EQU	*
	ELR	A10,A8	A4=POINTER TO W.B.-ADDR IN T:A
	ADR	A4,A10 
	ESR	A3,A4	CHANGE W.B.-ADDRESS
	TL*	MMFROM,A13	RELOAD FROM-TABLE 
	XIF
	IFF CREDIT=0 
	ST	A4,WBADD,A13
	LD	A2,SWITCH,A13	WB-ADDRESS CHANGE ONLY? 
	RB(NZ)	MOVD10	YES! 
	CALL	MOVDT	MOVE D.T. 
	RB	MOVD10
MOVD60	EQU	*
	LD	A6,SAVE05,A13	RESTORE A6
	RTN	A14
	EJECT


**              T W B S W B                   **
**                                            **
**  COPY TWB'S AND RESERVE SPACE FOR SWB'S    **
**                                            **
**  INPUT : A8=ACTUAL T:A-ADDRESS             **
**          A12=T:D-ADDRESS                   **
**  WORK-REGS: A1-A4,   A11                   **
************************************************

TWBSWB	EQU	*
	ST	A7,SAVE04,A13	SAVE A7 
	LD	A7,TWBMSK,A12	GET TWB MASK
	IFT CREDIT+MMUPAG=2
	EL	A7,TWBMSK,A12	GET TWB MASK
	XIF
	IFF CREDIT=0 
	CALL	SHIFT 
TWSW10	RF(Z)	TWSW20	ALL DONE! 
	CALL	GETWB 
	CALL	MOVWB 
	ST	A2,NEWAD2,A13	SAVE NEW WB-ADDRESS 
	CALL	MOVDWB	CHANGE DWB-ADDRESSES 
	CALL	SKIFTA
	RB	TWSW10
TWSW20	EQU	*
	IFT	CREDIT+SWPBLK=2
	EJECT
				
				
* RESERVE SPACE FOR SWB'S * 
*************************** 
	XIF
	IFT	CREDIT+SWBMMU=2
	LD	A7,SWBMSK,A12 
	XIF
	IFT	CREDIT+MMUSWB=3
	EL	A7,SWBMSK,A12 
	XIF
	IFT	CREDIT+SWPBLK=2
	CALL	SHIFT 
TWSW30	RF(Z)	TARZAN	ALL DONE
	CALL	GETWB 
	CALL	MOVWB	RESERVE SPACE 
	ST	A2,NEWAD2,A13	SAVE W.B.-ADDRESS 
	CALL	MOVDWB	CHANGE DWB- ADDRESSES
	CALL	SKIFTA
	RB	TWSW30
TARZAN	EQU	*
	XIF
	IFT	CREDIT=1 
	LD	A7,SAVE04,A13	RESTORE A7
	RTN	A14
	EJECT


**                A L L B U F                 **
**                                            **
**  ALLOCATE FIXED DATA SET BUFFERS AND       **
**  TERMINAL STACK                            **
**                                            **
**  INPUT : A8=ACTUAL T:A-ADDRESS IN T:ATAB   **
**          A12=T:D-ADDRESS                   **
**          CSN (IN T:A)=LENGTH OF DSCB'S     **
**          CIA (IN T:A)=DISPL. TO T:A-START  **
**          CSE (IN T:A)=STACKSIZE            **
**  WORK-REGS. :A1-A4,A9,A11                  **
************************************************

ALLBUF	EQU	*
	IFT CREDIT-MMUPAG=1
	LD	A9,FSTADR,A13	GET BUFFER START ADDRESS
	LDR*	A1,A8	GET T:A-ADDRESS 
	LD	A3,CSN,A1	GET DSCB TOTAL LENGTH 
	RF(Z)	ALLB70	NO DSCB'S 
	ADKL	A1,T:ASTA	CALC START OF DSCB RECORDS
	LDR	A10,A1	SAVE START ADDRESS
	XIF
	IFT CREDIT+MMUPAG=2
	ELR	A1,A8	GET T:A-ADDRESS
	EL	A3,CSN,A1	GET DSCB TOTAL LENGTH 
	RF(Z)	ALLB70	NO DSCB 
	ADKL	A1,T:ASTA	CALCULATE START OF DSCB'S 
	LDR	A10,A1	SAVE START ADDRESS
	XIF
	IFF CREDIT=0 
	SUR	A3,A1
	NGR	A3,A3
	SUK	A3,DSCBL	END CONDITION 
	ST	A3,SAVE04,A13	SAVE ADDRESS TO END OF DSCB-RECORDS 
ALLB10	SUK	A1,DSCBL	A1=FIRST WORD IN FIRST DSCB-RECORD
	CW	A1,SAVE04,A13	ALL?
	RF(E)	ALLB70	YES!
	IFT CREDIT-MMUPAG=1
	LDR*	A3,A1	GET FIRST WORD IN ECB 
	SLL	A3,1	STATIC BUFFER?
	RB(NN)	ALLB10	NO!
	ST	A9,BA,A1	BUFFER START 
	LD	A3,RL,A1	BUFFER LENGTH
	ST	A3,BL,A1
	LD	A2,EL,A1	SHARED BUFFER? 
	RF(Z)	NOTSH	NO!
	LDR	A4,A1	RESTORE START OF DSCB'S
	XIF
	IFT CREDIT+MMUPAG=2
	ELR	A3,A1	GET FIRST WORD IN ECB
	SLL	A3,1	STATIC BUFFER?
	RB(NN)	ALLB10	NO!
	EL	A3,RL,A1	BUFFER LENGTH
	ES	A3,BL,A1
	EL	A2,EL,A1	SHARED BUFFER? 
	RF(Z)	NOTSH	NO!
	LDR	A4,A1	RESTORE START OF DSCB'S
	XIF
	IFF CREDIT=0 
	ADK	A4,DSCBL	FIRST WORD
ALLB20	SUK	A2,1	A2=INDEX
	RF(NN)	ALLB30
	LDK	A1,LMP4	FORMAT ERROR 
	CALL	ERROR 
ALLB30	EQU	*
	RF(Z)	ALLB40	ECB FOUND 
	ADK	A4,DSCBL	A4=ADDRESS TO DSCB TO EXAMINE 
	CWR	A4,A10 
	RB(NE)	ALLB20
	LDK	A1,LMP4	BUFFER NOT FOUND 
	CALL	ERROR 
	IFT CREDIT-MMUPAG=1
ALLB40	LD	A4,BA,A4	BUFFER ALLOCATED?
	RF(NZ)	ALLB50	YES! 
	LDK	A1,LMP4	FORMAT ERROR 
	CALL	ERROR 
ALLB50	EQU	*
	ST	A4,BA,A1	AND STORE IN CURRENT ECB 
	XIF
	IFT CREDIT+MMUPAG=2
ALLB40	EL	A4,BA,A4	BUFFER ALLOCATED?
	RF(NZ)	ALLB50	YES! 
	LDK	A1,LMP4	FORMAT ERROR 
	CALL	ERROR 
ALLB50	EQU	*
	ES	A4,BA,A1	AND ESORE IN CURRENT ECB 
	XIF
	IFF CREDIT=0 
	RB	ALLB10

	IFT CREDIT-MMUPAG=1
NOTSH	LDR	A9,A9	PAGING? 
	RF(NZ)	NOTS10	NO!
	CALL	MOVING	ALLOCATE BUFFER FROM BOTTOM
	ST	A2,BA,A1	STORE BUFFER ADDRESS 
	RB	ALLB10
NOTS10	ADR	A9,A3	ALLOCATE BUFFER FROM TOP 
	ADKL	A9,1
	ANKL	A9,/FFFE	EVEN ADDRESS 
* CHECK ADDRESS:
			 
	LD	A11,LSTADR,A13	DATA START 
	CALL	CMPADR
	RF(NL)	ALLB60	OK!
	LDKL	A1,LMP3 
	CALL	ERROR 
ALLB60	EQU	*
	ST	A9,FSTADR,A13	SAVE BUFFER END ADDRESS 
	XIF
	IFT CREDIT+MMUPAG=2
NOTSH	CALL	MOVING	ALLOCATE BUFFER FROM 'BOTTOM' 
	ES	A2,BA,A1	STORE BUFFER ADDRESS 
	XIF
	IFF CREDIT=0 
	RB	ALLB10
				
* RESERVE STACK AND SET STACKPOINTERS * 

ALLB70	EQU	*
	IFT CREDIT-MMUPAG=1
	LDR*	A1,A8	GET T:A-ADDRESS 
	LD	A4,LSTADR,A13 
	SUK	A4,2 
	LD	A3,CSE,A1	GET STACK SIZE
	RF(NZ)	ALLB80
	LDK	A3,STKSZ	DEFAULT STACKSIZE 
ALLB80	EQU	*
	ST	A4,STKB,A1	SET STACKBASE
	STR	A4,A1	STACK POINTER
	CALL	MOVING	ALLOCATE STACK 
	ST	A2,STKE,A1	SET STACK-END
	XIF
	IFT CREDIT+MMUPAG=2
	ELR	A1,A8	GET T:A-ADDRESS
	EL	A3,CSE,A1	GET STACK SIZE
	RF(NZ)	ALLB80	USER DEFINED STACK SIZE
	LDK	A3,STKSZ	DEFAULT STACK SIZE
ALLB80	ES	A3,STKB,A1	SAVE STACK SIZE
	CALL	MOVING	ALLOCATE STACK 
	ES	A2,STKE,A1	STORE STACK END
	EL	A3,STKB,A1	GET STACK SIZE 
	ADR	A2,A3	COMPUTE STACK BASE 
	SUK	A2,2	ADDRESS TO LAST WORD IN STACK	=1
	ES	A2,STKB,A1	STORE STACK BASE 
	ESR	A2,A1	STORE CURRENT STACK POINTER
	XIF
	IFF CREDIT=0 
	RTN	A14
	EJECT

**              M O V T : A                   **
**                                            **
**  MOVE T:A AND UPDATE DATA SET ADDRESSES IN **
**  FORMAT CONTROL BLOCK                      **
**                                            **
**  INPUT : A8=T:A-ADDRESS                    **
**          A12=T:D-ADDRESS                   **
**          CIA (IN T:A)=DISL. TO T:A-START   **
**  OUTPUT: A2=NEW T:A-ADDRESS                **
**  WORKREGS: A1-A4                           **
************************************************

MOVT:A	EQU	*
	IFT CREDIT-MMUPAG=1
	LDR*	A1,A8	GET T:A-ADDRESS 
	LD	A3,WATLEN,A12	GET LENGTH OF WAT 
	SLL	A3,2	BYTES 
	SU	A3,CIA,A1	ADD DISPLACEMENT TO START 
	ADK	A3,WATFST	A3=LENGTH
	AD	A1,CIA,A1	FROM-ADDRESS
	CALL	MOVING
	LDR*	A4,A8 
	SU	A2,CIA,A4	NEW T:A-ADDRESS 
	SU	A1,CIA,A4	'OLD' T:A-ADDRESS 

* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * 

	LD	A3,FCD,A12	ANY FCD? 
	RF(Z)	MOVT10	NO! 
	ADR	A3,A2	START OF FCB 
	LDR	A4,A2	SAVE T:A-ADDRESS 
	LD	A10,FLAG,A13	REAL TASK DATA PROCESSING? 
	RF(Z)	MOVT05	NO! 
	SUR	A4,A1	ADJUST FOR OLD RELOCATION (OLD T:A-ADDRESS)
MOVT05	EQU	*
	ADS	A4,FCBDD1,A3 
	ADS	A4,FCBDD2,A3 
MOVT10	RTN	A14
	XIF
	IFT CREDIT+MMUPAG=2

	ELR	A1,A8	GET T:A-ADDRESS
	EL	A3,WATLEN,A12	GET LENGTH OF WAT 
	SLL	A3,2	BYTES 
	EL	A10,CIA,A1
	SUR	A3,A10	ADD DISPL. TO START 
	ADK	A3,WATFST	A3=LENGTH
	ADR	A1,A10	FROM-ADDRESS
	CALL	MOVING
	ELR	A4,A8
	EL	A10,CIA,A4
	SUR	A2,A10	NEW T:A-ADDRESS 
	SUR	A1,A10	'OLD' T:A-ADDRESS 
* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * 

	EL	A3,FCD,A12	ANY FCD? 
	RF(Z)	MOVT10	NO! 
	LDR	A4,A2	GET T:A-ADDRESS
	LD	A10,FLAG,A13	REAL TASK DATA PROCESSING? 
	RF(Z)	MOVT05	NO! 
	SUR	A4,A1	ADJUST FOR OLD RELOCATION (OLD T:A-ADDR.)
MOVT05	EQU	*
	ADR	A3,A2	START OF FCB 
	TL*	MMTO,13	LOAD TO-TABLE
	EL	A10,FCBDD1,A3 
	ADR	A10,A4 
	ES	A10,FCBDD1,A3 
	EL	A10,FCBDD2,A3 
	ADR	A10,A4 
	ES	A10,FCBDD2,A3 
	TL*	MMFROM,A13	RELOAD FROM-TABLE 
MOVT10	RTN	A14
	XIF
	EJECT



**                 C M P A D R                  **
**                                              **
**                                              **
**  COMPARE ADDRESSES. RESULT IN PSW ON RETURN  **
**                                              **
**  INPUT : A11 COMPARED TO..                   **
**          A9                                  **
**  OUTPUT: RESULT IN A14-STACK                 **
**************************************************
			 
CMPADR	EQU	*
	TNM	A11,A9 
	RF(NN)	CMPA10
	CWR	A9,A11 
	RF	CMPA20
CMPA10	CWR	A11,A9 
CMPA20	CFI	A14,PSW,A13	PUT RESULT ON STACK
	RTN	A14
	IFF CREDIT=0 
	EJECT
*************************************************************** 
*                                                             * 
*  ICBMVD - INDICATE CURRENT BLOCK MOVED                      * 
*  =====================================                      * 
*                                                             * 
*  REFERENCED IN:  MOVCOM                                     * 
*                                                             * 
*  ENTRY:  A8 - FIRST T:A POINTER                             * 
*          A6 - SECOND T:A POINTER                            * 
*         BIT - BIT NUMBER SET IN CWB- OR UWB-MASK            * 
*                                                             * 
*  EXIT:  CORRESPONDING BIT IN CURRENT STATCK POINTER         * 
*         IN T:A IS SET                                       * 
*                                                             * 
*  WORK REGISTERS:  A1,A2                                     * 
*                                                             * 
*  SUBROUTINES:                                               * 
*                                                             * 
*************************************************************** 
	EJECT
ICBMVD	EQU	*
	LDKL	A1,/8000	SET BIT 0
	LD	A2,BIT,A13	GET BIT NUMBER IN CWB- OR UWB-MASK 
IBAM10	RF(Z)	IBAM20	BIT FOUND 
	SRL	A1,1	SHIFT BIT RIGHT ONE STEP
	SUK	A2,1	DECREMENT BIT COUNTER 
	RB	IBAM10
* 
*  UPDATE MOVED MASK IN FIRST T:A 
* 
	XIF
	IFT	CREDIT-MMUPAG=1
IBAM20	LDR*	A2,A8	GET T:A POINTER 
	LDR*	A3,A2	GET MOVED BLOCK MASK
	ORR	A3,A1	INDICATE CURRENT BLOCK MOVED 
	STR	A3,A2	STORE NEW MOVED BLOCK MASK 
* 
*  UPDATE MOVED MASK IN SECOND T:A
* 
	LDR*	A2,A6	GET T:A POINTER 
	LDR*	A3,A2	GET MOVED BLOCK MASK
	ORR	A3,A1	INDICATE CURRENT BLOCK MOVED 
	STR	A3,A2	STORE NEW MOVED BLOCK MASK 
	XIF
	IFT	CREDIT+MMUPAG=2
IBAM20	ELR	A2,A8	GET T:A POINTER
	ELR	A3,A2	GET MOVED BLOCK MASK 
	ORR	A3,A1	INDICATE CURRENT BLOCK MOVED 
	ESR	A3,A2	STORE NEW MOVED BLOCK MASK 
* 
*  UPDATE MOVED MASK IN SECOND T:A
* 
	ELR	A2,A6	GET T:A POINTER
	ELR	A3,A2	GET MOVED BLOCK MASK 
	ORR	A3,A1	INDICATE CURRENT BLOCK MOVED 
	ESR	A3,A2	STORE NEW MOVED BLOCK MASK 
	XIF
	IFF	CREDIT=0 
	RTN	A14
	EJECT
********************************************************************* 
*                                                                   * 
*               CHKMVD - CHECK IF BLOCK ALREADY MOVED               * 
*               =====================================               * 
*                                                                   * 
*  REFERENCED IN:  MOVCOM,MOVCLA                                    * 
*                                                                   * 
*  ENTRY:  A8 - POINTER TO T:A                                      * 
*         BIT - BIT NUMBER IN CWB- OR UWB-MASK                      * 
*                                                                   * 
*  EXIT:  IF BLOCK ALREADY MOVED THEN CR=2 ELSE CR<>2               * 
*                                                                   * 
*  WORK REGISTER:  A1,A2                                            * 
*                                                                   * 
*  SUBROUTINES:                                                     * 
*                                                                   * 
********************************************************************* 
	EJECT
CHKMVD	EQU	*
	IFT	CREDIT-MMUPAG=1
	LDR*	A1,A8	GET T:A POINTER 
	LDR*	A1,A1	GET MOVED BLOCK MASK
	XIF
	IFT	CREDIT+MMUPAG=2
	ELR	A1,A8	GET T:A POINTER
	ELR	A1,A1	GET MOVED BLOCK MASK 
	XIF
	IFF	CREDIT=0 
	LD	A2,BIT,A13	GET BIT SET IN CWB- OR UWB-MASK
CHKM10	RF(Z)	CHKM20	BIT IN MOVED BLOCK MASK FOUND 
	SLL	A1,1	NEXT BIT IN MOVED BLOCK MASK
	SUK	A2,1	DECREMENT BIT COUNTER 
	RB	CHKM10
CHKM20	ADK	A1,0	SET CR
	CFI	A14,PSW,A13	PUT CONDITION IN PSW 
	RTN	A14
	EJECT
				
				
*****     S * U * P * E * R * L * O * O * P       ****
**                                                  **
**           S H I F T        &       SKIFTA        **
**                                                  **
**  CALCULATES BIT NUMBER SAT IN MASK-WORD          **
**  INPUT : A7=MASK WORD                            **
**  OUTPUT: BIT=BIT NUMBER                          **
**          CONDITION CODE IN PSW ON RETURN         **
******************************************************
			 
SHIFT	EQU	* 
	CM	BIT,A13	RESET BIT COUNTER 
	LDR	A7,A7
	RF	SHIF20
SKIFTA	EQU	*	ENTRY: CONTINUE SHIFT
SHIF10	IM	BIT,A13 
	SLL	A7,1 
SHIF20	EQU	*
	RF(Z)	SHIF30	NO MOORE BITS SAT 
	RB(NN)	SHIF10
SHIF30	CFI	A14,PSW,A13	PUT COND IN PSW
	RTN	A14
	XIF
	EJECT
				
				
**                M U L T                     **
**                                            **
**                                            **
**  MULTIPLICATION  (A2) X A3(), A2#0         **
**                                            **
**  INPUT : A3,A2                             **
**  OUTPUT:A3=RESULT                          **
************************************************
MULT	EQU	*
	ST	A3,MUL,A13
	STR	A2,A14	SAVE A2 TEMPORARY 
	LDK	A3,0 
ADD	AD	A3,MUL,A13 
	SUK	A2,1 
	RB(NZ)	ADD 
	LDR*	A2,A14
	RTN	A14

	IFT MMUPAG=1 
	EJECT

**               M M E N T                   ** 
**                                           ** 
**                                           ** 
**  FIND LAST USED ENTRY IN MM-TAB. SCAN     ** 
**  FROM LOW ADDRESS. NOT USED ENTRY=0.      ** 
**                                           ** 
**  INPUT :A3=MM-TABLE ADDRESS               ** 
**  OUTPUT:A3=ENTRY ADDRESS                  ** 
**         A9=TTAB-ADDRESS                   ** 
**         LSTPAG IN TTAB=A3                 ** 
**         A1=CONTENTS OF 1:ST USED ENTRY    ** 
*********************************************** 

MMENT	EQU	* 
	LDR	A9,A3	GET TABLE ADDRESS
	SUKL	A9,MMBEG	ADJUST A9 (LOOKS LIKE TTAB POINTER)
	SUK	A3,2 
MMEN10	ADK	A3,2	INCREMENT ADDRESS 
	LDR*	A1,A3	GET CONTENTS OF MM-TABLE
	ANKL	A1,/FC00
	CWK	A1,/FC00 
	RB(Z)	MMEN10 
	ST	A3,LSTPAG,A9	SAVE FIRST FREE PAGE-ADDRESS 
	RTN	A14
	XIF
	IFF	CREDIT=0 
	EJECT

**              G E T T A B                 **
**                                          **
**                                          **
**  FIND TTAB ADDRESS                       **
**                                          **
**  INPUT :A8=POINTER TO T:A IN T:ATAB      **
**  OUTPUT:A2=TTAB-ADDRESS                  **
**         A1=TID                           **
**  WORKREGS:A3,A4,A10                      **
**********************************************

GETTAB	EQU	*
	XIF
	IFT MMUPAG=0 
	LDR*	A10,A8	T:A ADDRESS
	LD	A1,T:ATID,A10	GET TID TO MATCH
	LD	A12,T:DAD,A10	T:D-ADDRESS 
	XIF
	IFT MMUPAG=1 
	ELR	A10,A8	T:A-ADDRESS 
	EL	A1,T:ATID,A10	GET TID 
	EL	A12,T:DAD,A10 
	XIF
GETTTB	EQU	*	ENTRY. INPUT: A1=TID 
	LD	A4,SCTTCT	GET TC:TAB ADDRESS
	LDR*	A3,A4	TCTAB LENGTH
GETT10	ADK	A4,2 
	SUK	A3,2	ALL?
	RF(NN)	GETT20	NO!
	LDR	A3,A1	SAVE A1 (DEBUGGING PURPOS) 
	LDK	A1,LMP5	TID ERROR
	CALL	ERROR 
GETT20	LDR*	A2,A4	TTAB-ADDRESS
	CW	A1,TTB:PP,A2	TCL EQUAL? 
	RB(NE)	GETT10	NO!
	ST	A2,TTAB,A13	SAVE
	RTN	A14
	IFF CREDIT=0 
	EJECT


**                    Q U E J O B                ** 
**                                               ** 
**                                               ** 
**  QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL   ** 
**  0, ENB.                                      ** 
**                                               ** 
**  INPUT: A10=T:A-ADDRESS                       ** 
**         A12=T:D-ADDRESS                       ** 
**         A2=TTAB-ADDRESS                       ** 
*************************************************** 

QUEJOB	EQU	*
* QUEUE THIS TASK (THIS TID)

	LDKL	A3,RETUR	GET RETURN (FROM A15) ADDRESS
	ADR	A3,A13	RELOCATE
	STR	A3,A15	PUT ON STACK
	LDKL	A3,/00C0	SET LEVEL 0 AND ENABLE 
	STR	A3,A15	PSW 
	CF	A15,SAVE8	SAVE 8 REGS 
	LDK	A7,0	CLEAR ABORT INDICATOR 
	LD	A8,SCTLAC	GET P:MTAB-ADDRESS
	LDR	A5,A2	GET TTAB-ADDRESS 
	IFT CREDIT-MMUPAG=1
	LD	A4,WATLEN,A12	NUMBER OF WAT-ELEMENTS
	ADK	A4,2 
	ANKL	A4,/FFFE
	ADK	A4,DWBFST+4
	ADR	A4,A12	ADD T:A-ADDRESS => START OF START-POINTS
	LDR*	A6,A4	NUMBER OF START POINTS
GETT30	SUK	A6,1	DEC. NUMBER OF STARTPOINTS
	RF(N)	GETT40	ALL!
	LD	A1,4,A4	DISP ADDRESS
	LD	A3,2,A4	SEGMENT NUMBER
	LD	A2,NTPA,A8	INTERPRETER START ADDRESS
	XIF
	IFT CREDIT+MMUPAG=2
	EL	A4,WATLEN,A12	NUMBER OF WAT-ELEMENTS
	ADK	A4,2 
	ANKL	A4,/FFFE
	ADK	A4,DWBFST+4
	ADR	A4,A12	ADD T:A-ADDRESS => START OF START-POINTS
	ELR	A6,A4	NUMBER OF START-POINTS 
GETT30	SUK	A6,1	DEC. NUMBER OF STARTPOINTS
	RF(N)	GETT40	ALL!
	EL	A1,4,A4	DISP ADDRESS
	EL	A3,2,A4	SEGMENT NUMBER
	EL	A2,NTPA,A8	INTERPRETER START ADDRESS
	XIF
	IFF CREDIT=0 
	CF	A15,ACTOT 
	ADK	A4,STPREC	NEXT START-POINT 
	RB	GETT30
GETT40	ABL	RETUR8	RELOAD 8 REGS 
RETUR	EQU	*-REL 
	RTN	A14
	XIF
	IFT MMUPAG=1 
	EJECT

**              M O V M M T                  ** 
**                                           ** 
**                                           ** 
**  MOVE MM-TABLE                            ** 
**                                           ** 
**  INPUT :A2=TTAB-ADDRESS                   ** 
**         MMTAB HOLDS TABLE TO MOVE         ** 
**  OUTPUT:A2=START OF MM-TABLE IN TTAB      ** 
**          A9=TTAB ADDRESS                  ** 
**  WORKREGS:A1,A3                           ** 
*********************************************** 

MOVMMT	EQU	*
	ADKL	A2,MMBEG	GET TO-TABLE ADDRESS 
	TL	MMTAB,A13	LOAD FROM-TABLE 
	TSR	A2	MOVE
	LDR	A3,A2
	CALL	MMENT	FILL LAST ENTRY ADDRESS 
	TL*	MMFROM,A13	RELOAD TABLE
	RTN	A14
	XIF
	IFF CREDIT=0 
	EJECT
************************************************************
*                                                          *
*  CHTAID - CHANGE T:A-ID AND CLEAR TCL SAVE AREA IN TTAB  *
*           SAVE REAL TID IN AUXILIARY TABLE FOR DEBUGGER   * 
*  ======================================================  *
*                                                          *
*                                                          *
*  REFERENCED IN:  SYSLDA  PART 2 B.                       *
*                                                          *
*  ENTRY:  A5 - POINTER TO NUMBER OF COPIES                *
*          A7 - POINTER TO NEXT FREE ENTRY IN REAL T:ATAB  *
*                                                          *
*  EXIT:                                                   *
*                                                          *
*  WORK REGISTERS: A1,A3,A6,A8                             *
*                                                          *
*  SUBROUTINES:  GETTTB                                    *
*                                                          *
************************************************************
CHTAID	EQU	*
	LDR	A8,A7	GET NEXT FREE ENTRY IN REAL T:ATAB 
	LDR*	A6,A5	GET NUMBER OF COPIES
CHT:10	RF(Z)	CHT:90	NO MOORE! 
	SUKL	A8,2	LAST USED ENTRY IN REAL T:ATAB 
	IFT	CREDIT-MMUPAG=1
	LDR*	A1,A8	GET POINTER TO REAL T:A 
	LD	A1,T:ATID,A1	GET TCL IN T:A 
CHT:20	CALL	GETTTB	GET CORRESPONDING TTAB 
	LD	A4,TTBTID,A2	GET REAL TID IN TTAB 
	LD	A3,TTB:SA+26,A2	GET CORRESPONDING T:A-ADDRESS 
	ST	A4,T:ATID,A3	REPLACE TCL IN T:A 
	LDR	A3,A8	GET REAL T:ATAB POINTER
	SU*	A3,T:ATNW,A13	COMPUTE ENTRY IN AUX. TID TABLE
	STR	A4,A3	SAVE TID FOR DEBUGGER PURPOSE
	XIF
	IFT	CREDIT+MMUPAG=2
	ELR	A1,A8	GET POINTER TO REAL T:A
	EL	A1,T:ATID,A1	GET TCL IN T:A 
CHT:20	CALL	GETTTB	GET CORRESPONDING TTAB 
	LDR	A3,A2	GET POINTER TO TTAB ENTRY
	ADKL	A3,MMBEG	START OF MM-TABLE FOR THIS TTAB
	TLR	A3 
	LD	A4,TTBTID,A2	GET REAL TID IN TTAB	*79-04-11*
	LD	A3,TTB:SA+26,A2	GET CORRESPONDING T:A-ADDRESS 
	ES	A4,T:ATID,A3	REPLACE TCL IN T:A	*79-04-11*
	EL*	A3,T:ATNW,A13	GET LENGTH OF REAL T:ATAB
	NGR	A3,A3	NEGATIVE DISPLACEMENT
	ADR	A3,A8	COMPUTE ENTRY IN AUX. TID TABLE
	ESR	A4,A3	SAVE TID FOR DEBUGGER PURPOSE	*79-04-11* 
	XIF
	IFT	CREDIT=1 
	CM	TTB:PP,A2	CLEAR TCL SAVE AREA 
	SUK	A1,1	DECREMENT TCL 
	SUKL	A8,2	DECREMENT
	SUK	A6,1	DECREMENT NUMBER OF COPIES
	RB(P)	CHT:20	NEXT COPY 
CHT:90	RTN	A14
	EJECT


************************************************
***                                          ***
**            SYSLOAD PART 2.B                **
**                                            **
************************************************

*   BUILD REAL T:A'S. COPY T:A'S ACCORDING TO  *
*   SHADOW TABLE                               *
*                                              *
************************************************

PART2B	EQU	*-REL


REALTA	EQU	*
	LD	A5,SCTSFA	MONITOR END ADDRESS 
	LD	A8,T:ATOD,A13	T:ATAB PROTOTYP ADDRESS 
	LD	A7,T:ATNW,A13	REAL T:ATAB ADDRESS 
	ADK	A7,2 
	ST	A8,SAVE03,A13	SAVE A8 
SYA310	LD	A8,SAVE03,A13	RESTORE A8
	ADKL	A8,2
	CW	A8,ENDADD,A13	ALL?
	RF(E)	SYA350	YES!
	ST	A8,SAVE03,A13	SAVE
	ADK	A5,2	A5=SHADOW TAB POINTER 
	IFT CREDIT-MMUPAG=1
	CALL	GETTAB	GET CORRESPONDING TTAB AND QUEUE 
	CALL	QUEJOB
	ST	A10,TTB:SA+26,A2	SAVE T:A ADDR. IN TTAB (SAVE-A13)
	LD	A1,SCTOPT	GET OPTION WORD 
	ANK	A1,2	DISC PAGING?
	RF(Z)	SYA320	NO! 
	LDR	A1,A10	GET T:A-ADDRESS 
	ADKL	A1,CSB	ADDRESS TO CURRENT SEGMENT BASE
	ST	A1,TTB:CB,A2	STORE IN TTAB
SYA320	LDR*	A1,A8	GET T:A ADDRESS 
	STR	A1,A7	STORE IN REAL T:ATAB 
	ADK	A7,2 
	LDR*	A6,A5	GET NUMBER OF COPIES
	EJECT
SYA340	SUK	A6,1 
	RF(P)	SYA345	NEXT TASK 
	CALL	CHTAID	REPLACE TCL:S IN THIS TASK-CLASS 
	RB	SYA310	NEXT TASK-CLASS
SYA345	LD	A12,T:DAD,A1	GET T:D-ADDRESS
	CALL	MOVT:A	MOVE T:A 
	IM	T:ATID,A2	UPDATE TID
	STR	A2,A7	STORE IN REAL T:ATAB 
	LDR	A8,A7	CHANGE T:A TO COPY 
	CALL	GETTAB	GET CORRESPONDING TTAB AND QUEUE 
	CALL	QUEJOB	QUEUE THIS TASK
	ST	A10,TTB:SA+26,A2	SAVE T:A-ADDRESS IN TTAB 
	LD	A1,SCTOPT	GET OPTION WORD 
	ANK	A1,2	DISC PAGING?
	RF(Z)	SYA348	NO! 
	LDR	A1,A10	GET T:A-ADDRESS 
	ADKL	A1,CSB	ADDRESS TO CURRENT SEGMENT BASE
	ST	A1,TTB:CB,A2	STORE IN TTAB
SYA348	ADK	A7,2	NEXT ENTRY IN REAL T:ATAB 
	CALL	TWBSWB	MOVE TWB'S AND RESERVE FOR SWB'S 
	CALL	ALLBUF	ALLOCATE BUFFERS 
	XIF
	IFT CREDIT+MMUPAG=2
* GET ACTUAL MM-TABLE ADDRESS AND LOAD

	LDR	A1,A5
	AD*	A1,SCTSFA	ADD SHADOW-TABLE LENGTH
	LDR*	A1,A1	GET MM-TABLE ADDRESS
	TLR	A1	LOAD
	ST	A1,MMFROM,A13	SAVE ADDRESS
	CALL	GETTAB	GET CORRESPONDING TTAB 
	ST	A10,TTB:SA+26,A2	SAVE T:A ADDR. IN TTAB (SAVE-A13)
	LDR	A1,A10	GET T:A-ADDRESS 
	ADKL	A1,CSB	ADDRESS TO CURRENT SEGMENT BASE
	ST	A1,TTB:CB,A2	STORE IN TTAB
	LD	A1,T:DSAV,A2	GET CLASS-LOCAL LAST ENTRY 
	CALL	QUEJOB	QUEUE THIS TASK
	LDKL	A2,MMTAB	GET WORK TABLE ADDRESS 
	ADR	A2,A13 
	TSR	A2	SAVE CLASS-DATA TABLE 
* REMOVE TASK-LOCAL ENTRIES IN MM-TABLE 

	SUK	A2,2	START OF TABLE
	LDKL	A12,/FC00 
SYA320	SUK	A1,2	NEXT ENTRY
	CWR	A1,A2	ALL? 
	RF(E)	SYA330	YES!
	STR	A12,A1	REMOVE ENTRY
	RB	SYA320
SYA330	EQU	*
	ELR	A1,A8	GET T:A ADDRESS
	ESR	A1,A7	STORE IN REAL T:ATAB 
	EL	A12,T:DAD,A1	GET T:D ADDRESS
	EL	A1,T:ATID,A1	GET TID
	ADK	A7,2	NEXT ENTRY IN REAL T:ATAB 
	LDR*	A6,A5	GET NUMBER OF COPIES
SYA340	SUK	A6,1 
	RF(P)	SYA345	NEXT TASK 
	CALL	CHTAID	REPLACE TCL:S IN THIS TASK-CLASS 
	RB	SYA310	NEXT TASK-CLASS
SYA345	ADK	A1,1	NEXT T:A ID 
	CALL	GETTTB	FIND CORRESPONDING TTAB
	CALL	QUEJOB	QUEUE THIS TASK
	CALL	MOVMMT	MOVE MM-TABLE TO TTAB
	CALL	MOVT:A	MOVE T:A 
	ESR	A2,A7	STORE IN REAL T:ATAB 
	ST	A2,TTB:SA+26,A9	PUT T:A-ADDRESS IN TTAB. A9=TTAB ADDRESS
	LDR	A8,A2	GET T:A-ADDRESS
	ADKL	A8,CSB	ADDRESS TO CURRENT SEGMENT BASE
	ST	A8,TTB:CB,A9	STORE IN TTAB
	LDR	A8,A7	CHANGE T:A TO COPY 
	ADK	A7,2	NEXT FREE WORD IN REAL T:ATAB 
			A2=NEW ADDRESS 
	CALL	TWBSWB	MOVE TWB'S & RESERVE FOR SWB'S 
	LD	A1,MMTO,A13	GET TO-TABLE
	ST	A1,MMFROM,A13	CHANGE T:A ADDRESS-TABLE
	TLR	A1 
	CALL	ALLBUF	ALLOCATE BUFFERS 
	LD	A1,TTAB,A13	GET TTAB-ADDRESS
	CM	LSTPAG,A1	CLEAR SAVE-AREA IN TTAB 
	ELR	A10,A8	GET T:A-ADDRESS (NEW) 
	EL	A1,T:ATID,A10	GET TID 
	ADK	A1,1	UPDATE TID
	ES	A1,T:ATID,A10	RESTORE IN T:A
	XIF
	IFF CREDIT=0 
	RB	SYA340
	XIF
	EJECT
FINISH	EQU	*-REL

* ADJUST START OF FREE AREA 

SYA350	EQU	*
	IFF	CREDIT=0 
	LD	A1,LSTADR,A13	GET END OF FREE AREA
	LD	A14,SAVE13,A13	GET APPL. REL. BASE	=1 
	XIF
	IFT	CREDIT+MMUPAG=2
	ANKL	A1,/FFF 
	LD	A2,FYSPAG,A13 
	SLL	A2,2 
	ORR	A1,A2
	XIF
	IFF	CREDIT=1 
	LD	A1,SCTLAC 
	XIF
	IFT	MMUPAG-CREDIT=1
	ANKL	A1,/03FF
	SLL	A1,2 
	XIF
	ST	A1,SCTEFA+2 
	IFT	CREDIT=1 
	LD	A1,FYSPAG,A13 
	IFT	MMUPAG-CREDIT=1
	LD	A1,SCTLAC 
	XIF
	IFT	MMUPAG+CREDIT=0
	LDK	A1,0 
	XIF
	SRL	A1,14
	ST	A1,SCTEFA 
	IFT	CREDIT-MMUPAG=1
	LD	A1,FSTADR,A13	START OF FREE AREA
	RF(NZ)	SYA355
	XIF
	LD	A1,SCTSFA 
SYA355	ST	A1,SCTSFA+2 
	CM	SCTSFA
	IFT	CREDIT=1 
	EJECT
*************************************************************** 
*                                                             * 
*                 PAGGEN - BUILD PAGE TABLE                   * 
*                 =========================                   * 
*                                                             * 
*  REFERENCED IN:  SYSLDA                                     * 
*                                                             * 
*  ENTRY:  SCTSFA - START OF FREE AREA                        * 
*          SCTEFA - END OF FREE AREA                          * 
*          SAVE29 - NUMBER OF SEGMENTS                        * 
*          SCTNOP - NUMBER OF PAGES                           * 
*          SCTPSZ - PAGE SIZE                                 * 
*          SAVE22 - PHYSICAL ADDRESS TO FIRST PAGE (16 BITS)  * 
*                                                             * 
*  EXIT:  PAGQUE - POINTER TO FIRST FREE PAGE BLOCK           * 
*         PAGQUE+2 - POINTER TO LAST FREE PAGE BLOCK+2        * 
*                                                             * 
*  WORK REGISTERS:  A1-A12                                    * 
*                                                             * 
*  SUBROUTINES:                                               * 
*                                                             * 
*                                                             * 
*************************************************************** 
PAGGEN	EQU	*
	LDKL	A2,PAGEX	EXIT ADDRESS 
	ADR	A2,A13	RELOCATE
	LD	A1,SAVE29,A13	ANY SEGMENTS IN APPLICATION?
	ABR(Z)	A2	NO!
	LD	A1,SCTOPT	GET OPTION WORD 
	ANK	A1,3	PAGING? 
	ABR(Z)	A2	NO!
* 
*  RESERV SPACE FOR PAGE BLOCKS CORRESPONDING TO CORE RESIDENT SEGMENTS 
* 
	LD	A11,SCTSFA+2	GET START OF FREE AREA 
	ST	A11,SCTPAG	STORE IN SYSTAB
	LDR	A8,A13	GET RELOCATION BASE 
	ADKL	A8,PAG:60-REL	LIMIT FOR PAGE TABLE
	LDK	A7,0	RESET PAGE COUNTER
PAG:10	EQU	*
	CW	A7,SCTNOP	EQUAL TO NUMBER OF PAGES? 
	RF(E)	PAG:30	YES!
	LDK	A1,0	RESET NUMBER OF WORDS 
PAG:20	EQU	*
	ADKL	A11,2	INCLUDE NEXT WORD 
	RF(Z)	MEMOFL	MEMORY OVERFLOW (64 KB LIMIT) 
	ADK	A1,1	INCREMENT WORD COUNTER
	CWK	A1,4	4 WORDS RESERVED? 
	RF(E)	PAG:25	YES!
	CWR	A11,A8	CHECK PROGRAM OVERWRITE 
	RF(E)	MEMOFL	MEMORY OVERFLOW!
	RB	PAG:20
PAG:25	ADK	A7,1	INCREMENT PAGE BLOCK COUNTER
	RB	PAG:10
PAG:30	EQU	*
* 
*  RESERV MEMORY PAGES IN UNUSED PART OF MEMORY 
*  AND EXTEND PAGE TABLE WITH CORRESPONDING NUMBER
*  OF PAGE BLOCKS.
* 
	XIF
	IFT	CREDIT+MMUPAG=2
	LD	A1,SCTEFA	GET TWO MOST SIGN BITS OF 18-BITS ADDRESS 
	SLL	A1,14	TWO MOST SIGN BITS OF 16-BITS ADDRESS
	LD	A2,SCTEFA+2	GET BIT 2-18 OF 18-BITS ADDRESS 
	SRL	A2,2	SKIP TWO RIGHTMOST BITS 
	ORR	A1,A2	16 BITS PHYSICAL PAGE ADDRESS
	LDR	A3,A1	SAVE 
	LD	A2,SCTPSZ	GET PAGE SIZE 
	SRL	A2,2	SKIP TWO RIGHTMOST BITS 
	LDR	A10,A2	SAVE
	ANKL	A1,/FC00	MAKE EVEN 4K-MULTIPLE ADDRESS
	ANKL	A2,/0300	MODIFY FOR PAGE SIZE 
	ANR	A2,A3	EVEN 1-KB LIMIT
	ORR	A1,A2	MODIFY PAGE ADDRESS LIMIT
	XIF
	IFT	CREDIT-MMUPAG=1
	LD	A1,SCTEFA+2	END OF FREE AREA
	LD	A10,SCTPSZ	PAGE SIZE
	XIF
	IFT	CREDIT=1 
	LDR	A9,A1	INIT PAGE ADDRESS
	LDR	A6,A9	SAVE 
PAG:31	EQU	*
	TNM	A6,A10 
	RF(NN)	PAG:32
	CWR	A10,A6 
	RF	PAG:33
PAG:32	CWR	A6,A10 
PAG:33	RF(NG)	PAG:40
	SUR	A6,A10	COMPUTE ADDRESS TO NEXT PAGE
	LDR	A1,A6	GET PAGE ADDRESS 
	IFT	CREDIT+MMUPAG=2
	ANKL	A1,/C000	ADDRESS IN SYSTEM AREA?
	RF(NZ)	PAG:34	 NO! 
	LDR	A1,A6	PHYSICAL ADDRESS IN SYSTEM AREA
	SLL	A1,2	ABSOLUTE ADDRESS IN SYSTEM AREA 
	RF	PAG:36
PAG:34	LDK	A1,0	END OF FREE AREA
	XIF
	IFT	CREDIT=1 
PAG:36	LDK	A2,0	RESET WORD COUNTER
PAG:38	ADKL	A11,2	RESERV ANOTHER WORD 
	RF(Z)	PAG:40	64 KB LIMIT 
	ADK	A2,1	INCREMENT WORD COUNTER
	CWK	A2,4	BLOCK COMPLETE? 
	RF(E)	PAG:45	YES!
	LDR	A1,A1	ADDRESS IN SYSTEM AREA?
	RF(Z)	PAG:39	NO! 
	TNM	A11,A1	32-KB LIMIT CHECK 
	RF(NN)	PAG382
	CWR	A11,A1 
	RF	PAG384
PAG382	CWR	A1,A11 
PAG384	RF(NG)	PAG:40	NO MOORE MEMORY AVALIABLE! 
PAG:39	EQU	*
	CWR	A11,A8	PROGRAM OVERWRITE 
	RB(NE)	PAG:38	NO!
PAG:40	EQU	*
	CW	A7,SCTNOP	ONLY PAGES FOR CORE RESIDENT PAGES? 
	RF(G)	PAG:50	NO! 
	CW	A7,SAVE29,A13	ONLY CORE RESIDENT SEGMENTS IN APPLICATION? 
	RF(E)	PAG:50	YES!
MEMOFL	LDKL	A1,LMP3 
	OTR	A1,0,SOP	INDICATE MEMORY OVERFLOW
	HLT		HALT PROGRAM
PAG:45	CW	A7,SAVE29,A13	MOORE PAGES WANTED? 
	RF(E)	PAG:50	YES!
	ADK	A7,1	INCREMENT PAGE COUNTER
	LDR	A9,A6	SAVE PAGE ADDRESS
	RB	PAG:31
PAG:50	EQU	*
	ADKL	A11,2	START OF FREE AREA
	ST	A11,SCTSFA+2	SAVE 
	ST	A7,SCTNOP	SAVE NUMBER OF PAGES
	LDR	A1,A9	GET ADDRESS TO FIRST PAGE
	LDR	A2,A1	SAVE 
	XIF
	IFT	CREDIT+MMUPAG=2
	SRL	A1,14	BIT 0-1 OF 18-BITS ADDRESS 
	ST	A1,SCTEFA	SAVE
	SLL	A2,2	GET BITS 2-15 OF 18-BITS ADDRESS
	XIF
	IFT	CREDIT=1 
	ST	A2,SCTEFA+2	SAVE
* 
*  INITIATE PAGE BLOCK FOR CORE RESIDENT SEGMENTS AND 
*  STORE PAGE BLOCK ADDRESS IN SEGMENT BLOCKS 
* 
	LDK	A1,0 
	LD	A8,SAVE22,A13	PHYSICAL ADDRESS TO FIRST CORE RES. SEGM. 
	LD	A11,SAVE30,A13	START OF SEGMENT TABLE 
	LDK	A4,0	RESET RESIDENT SEGMENT COUNTER
	LD	A12,SCTPAG	START OF PAGE TABLE
	LD	A6,SAVE29,A13	NUMBER OF SEGMENTS
PAG:60	EQU	*
	ADKL	A11,8	NEXT SEGMENT BLOCK
	LDR*	A2,A11	GET STATUS 
	RF(NN)	PAG:65	SEGMENT NOT LOADED IN CORE 
	ST	A12,6,A11	STORE PAGE BLOCK ADDRESS
	STR	A1,A12	RESET QUEUE POINTER FORWARD 
	ST	A1,2,A12	RESET QUEUE POINTER BACKWARD 
	ST	A8,4,A12	STORE PAGE ADDRESS 
	ST	A11,6,A12	STORE SEGMENT BLOCK ADDRESS 
	ADK	A4,1	INCREMENT RESIDENT SEGMENT COUNTER
	ADR	A8,A10	 ADDRESS TO NEXT PAGE 
	ADKL	A12,8	NEXT PAGE BLOCK 
PAG:65	SUK	A6,1	DECREMENT SEGMENT BLOCK COUNTER 
	RB(P)	PAG:60 
* 
*  INITIATE PAGE BLOCK FOR FREE PAGES AND LINK TO PAGQUE
* 
	CWR	A4,A7	ANY FREE BLOCKS? 
	RF(E)	PAG:90	NO! 
	ST	A12,PAGQUE	POINTER TO FIRST FREE PAGE BLOCK 
	LDKL	A11,PAGQUE	POINTER TO PAGQUE
	LDR	A1,A12	SAVE ADDRESS TO FIRST PAGE BLOCK
	LDK	A2,0 
PAG:70	ST	A11,2,A12	STORE BACKWARD POINTER
	ST	A9,4,A12	STORE PAGE ADDRESS 
	ST	A2,6,A12	INDICATE PAGE FREE 
	ADK	A4,1	INCREMENT PAGE BLOCK COUNTER
	CWR	A4,A7	LAST PAGE BLOCK? 
	RF(E)	PAG:80	YES!
	LDR	A11,A12	SAVE ADDRESS TO PAGE BLOCK 
	ADK	A1,8	ADDRESS TO NEXT PAGE BLOCK
	STR	A1,A12	STORE FORWARD POINTER 
	LDR	A12,A1	NEXT PAGE BLOCK 
	ADR	A9,A10	NEXT PAGE 
	RB	PAG:70
PAG:80	EQU	*
	LDKL	A1,PAGQUE	POINTER TO PAGQUE 
	STR	A1,A12	STORE IN LAST BLOCK 
	ST	A12,PAGQUE+2	STORE IN PAGQUE+2
PAG:90	EQU	*
PAGEX	EQU	*-REL 
	EJECT
	XIF


* START BUGGER (IF ANY) 


* GET APPLICATION START 
	IFT CREDIT=0 
	LD	A14,SCTLAC	TRUE START OF APPLICATION
	XIF
				=1
				=1
				=1
	SUKL	A14,8	ADJUST FOR MAP
	ADKL	A13,SYA360	CONTINUATION ADDRESS 
	LDK	A1,0	INDICATE SYSLOAD ENDED
	OTR	A1,0,SOP 
	LD	A1,SCTBUG	GET BUGGER ADDRESS
	ABR(NZ)	A1 

SYA360	EQU	*-REL
	LDR	A13,P
SYA370	EQU	*-REL
	SUKL	A13,SYA370	RESTORE PROGRAM BASE OINTER
* 
*  INIT A15 STACK 
* 
	LD	A15,SCTSTB
	SUKL	A15,4 

* START APPLICATION 

	LD	A1,IHRTC	GET INTERRUPT ADDRESS FOR RTC
	ST	A1,SAVRTC,A13	SAVE
	LDKL	A1,IHRTCO	LOAD TEMPORARY INTERRUPT ADDRESS
	ADR	A1,A13	RELOCATE
	ST	A1,IHRTC	STORE IN INTERRUPT VECTOR
	CF	A15,PFINIT	INITIALIZE DEVICES 
	CF	A15,SAVE8	SAVE REGISTERS
* 
*  WAIT APPROXIMATELY 0.62 SECONDS BEFORE BRANCHING TO DISPATCHER 
* 
	LDKL	A1,/FFFF	SET COUNTER
DELAY	SRC	A2,31 
	SUK	A1,1 
	RB(NZ)	DELAY 
	INH
	LDKL	A1,0	GET RTC INTERRUPT ADDRESS
SAVRTC	EQU	*-REL-2
	ST	A1,IHRTC	RESTORE
*				=1 
*  LOCK SOP SWITCHES			=1 
*				=1 
	CIO	A1,0,SOP		=1 
	ABL	TDISP	BRANCH TO DISPATCHER 
				=1
				=1
				=1
				=1
* 
*  TEMPORARY INTERRUPT ROUTINE FOR RTC
* 
IHRTCO	EQU	*-REL
	RIT	RTCDA
	RTN	A15
	IFF CREDIT=0 
	EJECT
				
************************************************* 
***                                           *** 
**           SYSLOAD PART 2.A                  ** 
**                                             ** 
************************************************* 

*   BUILD COMMON AND TASKCLASS DATA AREAS.      * 
*   BUILD TASKDATA PROTOTYPE AREA               * 
*                                               * 
************************************************* 

PART2A	EQU	*-REL

********************************************
***                                      ***
**         S U B R O U T I N E S          **
********************************************

				
**                T : D A D D                 **
**                                            **
**                                            **
**  GET T:D - ADDRESS                         **
**                                            **
**  INPUT : A8=POINTER TO T:A (IN T:ATAB)     **
**  OUTPUT: A12=T:D ADDRESS                   **
************************************************
T:DADD	EQU	*
	IFT CREDIT-MMUPAG=1
	LDR*	A12,A8	T:A ADDRESS
	LD	A12,T:DAD,A12 
	XIF
	IFT CREDIT+MMUPAG=2
	ELR	A12,A8	T:A ADDRESS 
	EL	A12,T:DAD,A12 
	XIF
	IFF CREDIT=0 
	AD	A12,MOVADD,A13	RELOCATE 
	RTN	A14
	EJECT
				
				
**                  M O V C O M                ** 
**                                             ** 
**                                             ** 
**  SEARCH T:A'S FOR COMMON WORK BLOCKS THAT   ** 
**  ARE COMMON TO AT LEAST TWO T:A'S, AND MOVE ** 
**  TO COMMON AREA                             ** 
**                                             ** 
**  INPUT : A8=POINTER IN T:ATAB               ** 
**          BIT=BIT NUMBER, SAT IN MASK        ** 
**          ENDADD=ENDADDRESS OF T:ATAB        ** 
**          TADISP=W.B.-ADDR DISPLACEM. IN T:A ** 
**  WORK.REGS: A1-A6,A9,A11,A12                ** 
************************************************* 
			 
MOVCOM	EQU	*
	CALL	CHKMVD	BLOCK ALREADY MOVED? 
	RF(N)	MOVC20	YES!
	CALL	GETWB	POINTER TO WB ADD TO 'WBADD',A5=T:A-DISPL 
	ST	A11,SAVE06,A13	SAVE W.B.-ADDRESS
	CM	MOVED,A13	CLEAR MOVED INDICATOR 
	LDR	A6,A8
MOVC10	ADK	A6,2	NEXT T:A
	CW	A6,ENDADD,A13	ALL DONE? 
	RF(NE)	MOVC30	NO 
MOVC20	RTN	A14	YES! 
	IFT CREDIT-MMUPAG=1
MOVC30	LDR*	A11,A6
	LD	A2,T:DAD,A11	T:D-ADDRESS
	AD	A2,MOVADD,A13	RELOCATE
	ST	A2,SAVE03,A13	SAVE
	LD	A2,WATLEN,A2	NUMBER OF WAT-ELEMENTS 
	CW	A2,BIT,A13	ENOUGHT? 
	RB(NG)	MOVC10	TO FEW WAT ELEMENTS. TAKE NEXT T:A 
	AD	A11,TADISP,A13	W.B.-ADDRESS TO EXAMINE
	LDR*	A11,A11 
	CW	A11,SAVE06,A13	COMPARE W.B.-ADDRESSES 
	XIF
	IFT CREDIT+MMUPAG=2
MOVC30	ELR	A11,A6 
	EL	A2,T:DAD,A11	T:D-ADDRESS
	AD	A2,MOVADD,A13	RELOCATE
	ST	A2,SAVE03,A13	SAVE T:D-ADDRESS TEMPORARY
	EL	A2,WATLEN,A2	NUMBER OF WAT-ELEMENTS 
	CW	A2,BIT,A13	ENOUGHT? 
	RB(NG)	MOVC10	TO FEW WAT ELEMENTS. TAKE NEXT T:A 
	AD	A11,TADISP,A13	W.B.-ADDRESS TO EXAMINE
	ELR	A11,A11
	CW	A11,SAVE06,A13	COMPARE W.B.-ADDRESSES 
	XIF
	IFF CREDIT=0 
	RB(NE)	MOVC10	.NEQ.
	LD	A9,MOVED,A13	W.B. ALREADY MOVED?
	RF(NZ)	MOVC50	YES! CHANGE ADDRESSES ONLY 
	CALL	MOVDT	MOVE DESCRIPTOR-TABLE 
	ST	A2,NEWAD1,A13	SAVE D.T.-ADRESS
	CALL	MOVWB	MOV WORK BLOCK
	IM	MOVED,A13	INDICATE MOVED
	LD	A4,UWB,A13	UWB-BLOCKS?
	RF(Z)	MOVC40	NO! 
	CALL	GETPRO	CREATE REAL UWB'S
MOVC40	ST	A2,NEWAD2,A13	SAVE NEW ADDRESS TO W.B.
	CALL	MOVDWB
MOVC50	CALL	CHADR	CHANGE ADDRESSES
	CALL	ICBMVD	INDICATE CURRENT BLOCK MOVED 
	LDR	A11,A8	SAVE T:A-POINTER
	ST	A12,SAVE25,A13	SAVE T:A-ADDRESS 
	LDR	A8,A6	REPLACE POINTER TO T:A 
	LD	A12,SAVE03,A13	REPLACE T:D-ADDRESS
	CALL	MOVDWB
	LDR	A8,A11 
	LD	A12,SAVE25,A13	RELOAD T:D-ADDRESS 
	RB	MOVC10
	EJECT
				
				
**               G E T P R O                  **
**                                            **
**                                            **
**  SEARCH U:BTAB PROTOTYPE AND GET NUMBER OF **
**  COPIES. FILL REAL U:BTAB                  **
**                                            **
**  INPUT : A11=PROTOTYPE ADDRESS             **
**          A2=LAST W.B. - ADDRESS            **
**  OUTPUT: A2=NEW ADDRESS                    **
**  WORK-REGS: A1-A5,A9                       **
************************************************
			 
GETPRO	EQU	*
	LD	A3,U:BTOD,A13	GET U:BTAB ADDRESS
	IFT CREDIT-MMUPAG=1
	LDR*	A4,A3	LENGTH
GETP10	EQU	*
	SUK	A4,UP:REC	SUB RECORD LENGTH FRM TABLE LENGTH 
	RF(NN)	GETP20
	LDK	A1,LMP6	W.B. NOT FOUND!
	CALL	ERROR 
GETP20	EQU	*
	CW	A11,UPADDR,A3	SAME W.B.?
	RF(E)	GETP30	YES! GET NUMBER OF COPIES 
	ADK	A3,UP:REC	NEXT 
	RB	GETP10
				
* GET NUMBER OF COPIES                     *
* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB *

GETP30	EQU	*
	LD	A4,WBLEN,A11	W.B.-LENGTH
	LC	A5,UPNUMB,A3	GET NUMBER OF COPIES 
	ANK	A5,/FF 
	SU	A3,U:BTOD,A13	GET TABLE DISPLACEMENT
	AD	A3,U:BTNW,A13	ADD TO NEW TABLE ADDRESS
	LDR	A9,A3
	ST	A4,URLENG,A9	STORE LENGTH 
	ST	A5,URNUMB,A9	STORE IN REAL U:BTAB 
* COPY NUMBER OF WORKBLOCKS TO COMMON AREA *
********************************************
	SUK	A5,1	ONE ALREADY MOVED (IN 'MOVCOM') 
	RF(NP)	GETP50
GETP40	CALL	MOVWB 
	SUK	A5,1 
	RB(NZ)	GETP40
				
* UPDATE POINTER IN REAL U:BTAB * 
********************************* 
GETP50	EQU	*
	ST	A2,URADDR,A9	STORE ADDRESS TO FIRST IN U:BTAB 
	XIF
	IFT CREDIT+MMUPAG=2
	ELR	A4,A3	LENGTH 
GETP10	EQU	*
	SUK	A4,UP:REC	SUB RECORD LENGTH FRM TABLE LENGTH 
	RF(NN)	GETP20
	LDK	A1,LMP6	W.B. NOT FOUND!
	CALL	ERROR 
GETP20	EQU	*
	EL	A10,UPADDR,A3	CHECK IF SAME W.B.
	CWR	A11,A10
	RF(E)	GETP30	YES! GET NUMBER OF COPIES 
	ADK	A3,UP:REC	NEXT 
	RB	GETP10
				
* GET NUMBER OF COPIES                     *
* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB *
********************************************

GETP30	EQU	*
	EL	A4,WBLEN,A11	W.B.-LENGTH
	EL	A5,UPNUMB-1,A3	GET NUMBER OF COPIES 
	ANK	A5,/FF 
	SU	A3,U:BTOD,A13	GET TABLE DISPLACEMENT
	AD	A3,U:BTNW,A13	ADD TO NEW TABLE ADDRESS
	LDR	A9,A3
	TL*	MMTO,A13	LOAD TO-TABLE 
	ES	A5,URNUMB,A9	ESORE IN REAL U:BTAB 
	ES	A4,URLENG,A9	STORE LENGTH 
	TL*	MMFROM,A13	RELOAD FROM TABLE 
* COPY NUMBER OF WORKBLOCKS TO COMMON AREA *
********************************************
	SUK	A5,1	ONE ALREADY MOVED (IN 'MOVCOM') 
	RF(NP)	GETP50
GETP40	CALL	MOVWB 
	SUK	A5,1 
	RB(NZ)	GETP40
				
* UPDATE POINTER IN REAL U:BTAB * 
********************************* 
GETP50	EQU	*
	TL*	MMTO,A13 
	ES	A2,URADDR,A9	ESORE ADDRESS TO FIRES IN U:BTAB 
	TL*	MMFROM,A13 
	XIF
	IFF CREDIT=0 
	RTN	A14
	EJECT
				
**                M O V C L A              ** 
**                                         ** 
**                                         ** 
**  CHECKS IF W.B. ALREADY MOVED TO COMMON ** 
**  AREA. IF NOT MOVE W.B. & D.T. AND      ** 
**  CHECK IF ANY DWB'S                     ** 
**                                         ** 
**  A LOT OF WORKREGS.                     ** 
********************************************* 

MOVCLA	EQU	*
	CALL	SHIFT 
	RF(Z)	MVCL30 
MVCL10	CALL	GETWB	W.B.-ADDRESS TO A11 
	CALL	CHKMVD	BLOCK ALREADY MOVED? 
	RF(NN)	MVCL40	NO!
MVCL20	CALL	SKIFTA	GET NEXT BIT IN MASK 
	RB(NZ)	MVCL10
MVCL30	RTN	A14
MVCL40	CALL	MOVDT 
	CALL	MOVWB 
	LD	A4,UWB,A13	UWB-SCANNING 
	RF(Z)	MVCL50	NO! 
	CALL	GETPRO	DUPLICATE WB'S 
MVCL50	ST	A2,NEWAD2,A13	SAVE W.B.-ADDRESS 
	CALL	MOVDWB	PROCESS DWB'S
	RB	MVCL20
	EJECT
				
				
**                  C H A D R                  ** 
**                                             ** 
**                                             ** 
**  CHANGE ADDRESS TO W.B. & D.T. IN T:A,      ** 
**  BLOCKS ALREDY MOVED                        ** 
**                                             ** 
**  INPUT : A6=POINTER IN T:ATAB TO T:A        ** 
**          NEWADR1=NEW D.T.-ADDRESS           ** 
**          NEWAD2= NEW W.B.-ADDRESS           ** 
**          TADISP=DISPLACEMENT TO WB-ADDR     ** 
**  WORK.REGS: A1,A2                           ** 
************************************************* 
			 
CHADR	EQU	* 
	IFT CREDIT-MMUPAG=1
	LDR*	A1,A6	T:A-ADDRESS 
	AD	A1,TADISP,A13	ADDRESS  TO W.B.-ADDRESS
	LD	A2,NEWAD2,A13 
	STR	A2,A1
	SUK	A1,2	ADDRESS TO D.T.-ADDRESS 
	LD	A2,NEWAD1,A13 
	STR	A2,A1
	XIF
	IFT CREDIT+MMUPAG=2
	ELR	A1,A6	T:A-ADDRESS
	AD	A1,TADISP,A13	ADDRESS  TO W.B.-ADDRESS
	LD	A2,NEWAD2,A13 
	ESR	A2,A1
	SUK	A1,2	ADDRESS TO D.T.-ADDRESS 
	LD	A2,NEWAD1,A13 
	ESR	A2,A1
	XIF
	IFF CREDIT=0 
	RTN	A14
	XIF
	IFT	CREDIT+SWPBLK=2
	EJECT
**************************************************************
*                                                            *
*                                                            *
*  B:RSWT - BUILD REAL SWB CONTROL TABLE                     *
*  =====================================                     *
*                                                            *
*  REFERENCED IN:  SYSLDA                                    *
*                                                            *
*  ENTRY:  A2 - POINTER TO FIRST RECORD IN REAL S:BTAB       *
*          A5 - LENGTH OF REAL S:BTAB                        *
*                                                            *
*  EXIT:                                                     *
*                                                            *
*  WORK REGISTERS:  A1-A7                                    *
*                                                            *
*  SUBROUTINES:                                              *
*                                                            *
**************************************************************
	EJECT
B:RSWT	EQU	*
	LDR	A8,A2	SAVE POINTER TO FIRST BLOCK
	LD	A1,SCTSWB	POINTER TO SWB BLOCK TABLE
	RF(Z)	RSWBEX	NO SWB:S IN APPLICATION 
	LDR*	A3,A1	NUMBER OF TYPES 
	RF(Z)	RSWBEX	NO MOORE
	LDK	A6,0 
	SUK	A5,2	SKIP LENGTH WORD
RSWB10	ADK	A1,2	NEXT TYPE 
	LDR*	A4,A1	POINTER TO BLOCK
	LCR	A6,A4	NUMBER OF COPIES 
	LD	A7,SWBLEN,A4	LENGTH IN BYTES
	XIF
	IFT	CREDIT+MMUSWB=3
	ES	A6,2,A2	STORE NUMBER OF COPIES
	ES	A7,4,A2	STORE LENGTH OF SWB IN BYTES
	XIF
	IFT	CREDIT+SWBMMU=2
	ST	A6,2,A2	STORE NUMBER OF COPIES
	ST	A7,4,A2	STORE LENGTH OF SWB IN BYTES
	XIF
	IFT	CREDIT+SWPBLK=2
	SUK	A5,6	DECREMENTS S:BTAB LENGTH
	ADK	A2,6	INCREMENT POINTER IN BLOCK
	SUK	A3,1	DECREMENT NUMBER OF TYPES 
	RB(P)	RSWB10 
	LDR	A4,A2
* 
*  INIT POINTERS TO TID BLOCKS FOR EACH SWB TYPE
*  AND RESET ALL WORDS IN TID BLOCKS
* 
RSWB20	EQU	*
	LDR	A6,A2	GET ADDRESS TO TID BLOCK 
	SUR	A6,A8	COMPUTE DISPLACEMENT 
	IFT	CREDIT+SWBMMU=2
	LD	A1,2,A8	NUMBER OF COPIES
	RF(Z)	RSWB50	NO COPIES!
	STR	A6,A8	STORE POINTER TO TID BLOCK 
RSWB30	STR	A3,A2	RESET TID
	ADK	A2,2	INCREMENT POINTER IN TID BLOCK
	SUK	A5,2	DECREMENT LENGTH OF REAL S:BTAB 
	SUK	A1,1	DECR. NUMBER OF COPIES
	RB(P)	RSWB30	NEXT COPY 
	XIF
	IFT	CREDIT+MMUSWB=3
	EL	A1,2,A8	GET NUMBER OF COPIES
	RF(Z)	RSWB50	NO COPIES!
	ESR	A6,A8	STORE POINTER TO TID BLOCK 
RSWB40	ESR	A3,A2	RESET TID
	ADK	A2,2	INCREMENT POINTER IN TID BLOCK
	SUK	A5,2	DECREMENT LENGTH OF REAL S:BTAB 
	SUK	A1,1	DECREMENT NUMBER OF COPIES
	RB(P)	RSWB40	NEXT COPY 
	XIF
	IFT	CREDIT+SWPBLK=2
RSWB50	ADKL	A8,6
	CWR	A8,A4
	RB(NE)	RSWB20
	LDR	A5,A5	S:BTAB CONSISTENT? 
	RF(Z)	RSWBEX	YES 
	LDKL	A1,LMP6	SWB ERROR!
	CALL	ERROR 
RSWBEX	RTN	A14
	XIF
	IFF	CREDIT=0 
	EJECT

* **************************
* START OF PROGRAM PART 2.A * 
***************************** 

* LOAD BASE ADDRESS * 
********************* 
* A5=START-ADDRESS
* A9=P:MTAB ADDRESS 
* SAVE03=DDIV TO-ADDRESS
* SAVE04=DDIV FROM ADDRESS
* SAVE05=LENGTH OF REAL T:ATAB
* SAVE06=LENGTH OF REAL U:BTAB
				
START2	EQU	*-REL
	LDR	A8,P	LOAD TEMP. STACKBASE
	ADK	A5,2	ADD FOR RELOCATION ROUTINE
	CFR	A8,A5
* MOVE DDIV * 

	LD	A1,SAVE04,A13	GET FROM-ADDRESS
	LD	A2,SAVE03,A13	GET TO ADDRESS
	LDR	A3,A9	GET P:MTAB START (=END OF DDIV 
	SUR	A3,A1	=> LENGTH
	XIF
	IFT CREDIT-MMUPAG=1
	LD	A8,SAVE29,A13	ANY SEGMENTS IN APPLICATION?
	RF(Z)	NOSGMT	NO! 
	LDKL	A8,0	RESET FSTADR IF SEGMENTS!
	RF	SEGMTS
NOSGMT	LD	A8,SCTSFA	ALLOCATE BUFFERS FROM TOP 
SEGMTS	ST	A8,FSTADR,A13	STORE 
MOVNXT	LDR*	A4,A1	GET WORD
	STR	A4,A2	STORE
	ADK	A1,2 
	ADK	A2,2 
	SUK	A3,2	DEC LENGTH
	RB(NN)	MOVNXT
	XIF
	IFT CREDIT+MMUPAG=2
	CALL	XMOVE 
* REMOVE DDIV ENTRIES IN MM-TABLE 

	LDR	A1,A9	GET P:MTAB ADDRESS 
	SRL	A1,11	ADJUST FOR ADDRESSING
	ANK	A1,/1E 
	LDK	A2,MMTAB-2	GET TABLE ADDRESS 
	ADR	A2,A13	RELOCATE
	ADR	A1,A2	P:MTAB START ENTRY 
	LDKL	A4,/FC00
SYA205	CWR	A1,A2	ALL? 
	RF(E)	SYA207	YES!
	STR	A4,A1	REPLACE ENTRY WITH PAGE ERROR
	SUK	A1,2 
	RB	SYA205
SYA207	EQU	*
* CHANGE TABLE-ADDRESSES
	LD	A4,MMFROM,A13 
	LD	A5,MMTO,A13 
	ST	A4,MMTO,A13 
	ST	A5,MMFROM,A13 
	XIF
	IFF CREDIT=0 
	ANKL	A9,/FFFE	EVEN ADDRESS 
	ST	A9,LSTADR,A13	SAVE END OF FREE AREA 


				
* RESERVE SPACE FOR REAL T:A- AND U:BTAB *

	IFT CREDIT+MMUPAG=2
	LDKL	A3,MMTAB	GET CURRENT MM-TABLE 
	ADR	A3,A13 
* FIND LAST USED ENTRY IN REAL MMUTAB * 

	CALL	MMENT 
	ST	A9,TTAB,A13 
	ST	A1,FYSPAG,A13	SAVE PHYSICALL PAGE 
	LD	A3,SAVE05,A13	GET LENGTH OF T:ATAB
	LDR	A5,A3	SAVE 
	CALL	MOVING RESERVE SPACE FOR T:ATAB 
	TL*	MMTO,A13	SET CORRECT TABLE 
	ESR	A5,A2	STORE T:ATAB LENGTH
	ST	A2,T:ATNW,A13	SAVE NEW T:ATAB ADDRESS 
	ADK	A2,2	SKIP LENGTH WORD
	LD	A9,SCTLAC	GET P:MTAB ADDRESS
	ES	A2,T:ATAB,A9	STORE IN P:MTAB
* RESERVE PLACE FOR T:AID TABLE 

	LDR	A3,A5	GET LENGTH 
	CALL	MOVING
	TL*	MMTO,A13 
	LDR	A3,A9	GET P:MTAB 
	ADK	A3,T:AID	ADD TO ADDRESS WORD 
	ESR	A5,A2	STORE TABLE LENGTH IN T:TID-TABLE
	ADK	A2,2	ADJUST TABLE ADDRESS
	ESR	A2,A3	STORE IN P:MTAB
	XIF
	IFF CREDIT=0 
	LD	A3,SAVE06,A13	GET U:BTAB LENGTH 
	LDR	A5,A3	SAVE 
	CALL	MOVING	RESERVE SPACE
	ST	A2,U:BTNW,A13	SAVE NEW (REAL) U:BTAB ADDRESS
	IFT CREDIT-MMUPAG=1
	STR	A5,A2	STORE LENGTH 
	ADK	A2,2 
	ST	A2,U:BTAB,A9	SAVE 'REAL' U:BTAB-ADDRESS IN P:MTAB 
	LD	A3,SAVE05,A13	GET LENGTH OF T:ATAB
	LDR	A5,A3	SAVE 
	CALL	MOVING RESERVE SPACE FOR T:ATAB 
	STR	A5,A2	STORE T:ATAB LENGTH
	ST	A2,T:ATNW,A13	SAVE NEW T:ATAB ADDRESS 
	ADK	A2,2 
	ST	A2,T:ATAB,A9	SAVE REAL ADDRESS
* RESERVE FOR T:AID TABLE 

	LDR	A3,A5	LENGTH 
	CALL	MOVING
	STR	A5,A2	STORE LENGTH 
	ADK	A2,2	ADJUST FOR LENGTH-WORD
	ST	A2,T:AID,A9	STORE ADDRESS IN P:MTAB 
	XIF
	IFT CREDIT+MMUPAG=2
	TL*	MMTO,A13	SET CORRECT TABLE 
	ESR	A5,A2	STORE LENGTH 
	ADK	A2,2	SKIP LENGTH WORD
	ES	A2,U:BTAB,A9	STORE IN P:MTAB
	XIF
	IFT	SWPBLK+CREDIT=2
* 
*  RESERV SPACE FOR REAL S:BTAB TABLE 
* 
	LD	A3,SAVE25,A13	LENGTH OF REAL S:BTAB 
	LDR	A5,A3	SAVE 
	CALL	MOVING
	ST	A2,S:BTNW,A13 
	XIF
	IFT	CREDIT+MMUSWB=3
	TL*	MMTO,A13 
	ESR	A5,A2
	ADK	A2,2 
	ES	A2,S:BTAB,A9
	CALL	B:RSWT
	XIF
	IFT	CREDIT+SWBMMU=2
	STR	A5,A2
	ADK	A2,2 
	ST	A2,S:BTAB,A9
	CALL	B:RSWT
	XIF
	IFT	CREDIT+MMUPAG=2
	TL*	MMFROM,A13	RELOAD  TABLE 
	XIF
	IFF CREDIT=0 
	EJECT
				
* BUILD COMMON DATA AREA *
**************************
* SEARCH CWB'S: 
			 
	LD	A8,T:ATOD,A13	GET T:ATAB ADDRESS
	IFT CREDIT-MMUPAG=1
	LDR*	A3,A8	GET LENGTH
	XIF
	IFT CREDIT+MMUPAG=2
	ELR	A3,A8	GET LENGTH 
	XIF
	IFF CREDIT=0 
	ADR	A3,A8
	ST	A3,ENDADD,A13	SAVE END OF T:ATAB ADDRESS
SYA210	EQU	*
	CM	UWB,A13	INDICATE CWB-SCANNING 
	ADKL	A8,2
	CW	A8,ENDADD,A13	ALL DONE? 
	RF(E)	CLADAT	YES!
	CALL	T:DADD	T:D-ADDRESS TO A12 
	IFT CREDIT-MMUPAG=1
	LD	A7,CWBMSK,A12	GET CWB-MASK
	XIF
	IFT CREDIT+MMUPAG=2
	EL	A7,CWBMSK,A12 
	XIF
	IFF CREDIT=0 
	CALL	SHIFT	SUPER-LOOPA 
SYA220	RF(Z)	UWBCOM	ALL!
	CALL	MOVCOM
	CALL	SKIFTA
	RB	SYA220
	EJECT
				
				
UWBCOM	EQU	*
* SEARCH UWB'S: 
* 
	IM	UWB,A13	INDICATE UWB-SCANNING 
	IFT CREDIT-MMUPAG=1
	LD	A7,UWBMSK,A12 
	XIF
	IFT CREDIT+MMUPAG=2
	EL	A7,UWBMSK,A12 
	XIF
	IFF CREDIT=0 
	CALL	SHIFT 
SYA230	RB(Z)	SYA210	ALL DONE! 
SYA235	CALL	MOVCOM
SYA240	CALL	SKIFTA
	RB	SYA230
	EJECT
				
* TASK CLASS DATA CONFIGURATION PART *
**************************************

CLADAT	EQU	*
	LD	A8,T:ATOD,A13	SET POINTER TO LENGTH INT:ATAB
	IFT CREDIT-MMUPAG=1
SYA250	CM	UWB,A13	INDICATE CWB
	ADKL	A8,2	STEP TO NEXT T:A ADDRESS 
	CW	A8,ENDADD,A13 
	RF(E)	SYA270	ALL	T:A'S DONE
	CALL	T:DADD	GET T:D ADDRESS TO A12 

* CALCULATE LENGTH OF T:D 

	LD	A1,WATLEN,A12	NUMBER OF BYTES-1 IN DBLKTAB
	ADK	A1,2 
	ANKL	A1,/FFFE	EVEN ADDRESS 
	ADK	A1,DWBFST+4	ADD DISPL. TO FIRST
	LDR	A3,A1	GET NUMBER OF START-POINTS 
	ADR	A3,A12	ADD T:D-ADDRESS 
	LDR*	A3,A3	. 
	LDK	A2,STPREC	GET STARTPOINTS RECORD LENGTH
	CALL	MULT	AND MULTIPLY 
	ADK	A3,2	'NUMBER-WORD' 
	ADR	A3,A1	=>LENGTH 
	LDR	A1,A12	FROM-ADDRESS
	CALL	MOVING	MOVE T:D 
	LDR*	A1,A8	GET T:A ADDRESS 
	ST	A2,T:DAD,A1	STORE NEW T:D ADDRESS 
	LD	A7,CWBMSK,A12	GET CWBMASK 
	XIF
	IFT CREDIT+MMUPAG=2
* INITIATE MM-ADDRESS TABLE POINTER 

	LD	A1,SCTSFA	SHADOW TABLE START
	AD*	A1,SCTSFA	ADDRESS TABLE START
	ST	A1,SAVE06,A13	SAVE
SYA250	CM	UWB,A13	INDICATE CWB
	ADKL	A8,2	STEP TO NEXT T:A ADDRESS 
	CW	A8,ENDADD,A13 
	RF(E)	SYA270	ALL T:A'S DONE! 
	CALL	GETTAB	GET TTAB-ADDRESS 
	CALL	MOVMMT	MOVE MM-TABLE
* FILL MM-TABLE ADDRESS TABLE 

	LD	A1,SAVE06,A13 
	ADK	A1,2	INCREMENT TABLE POINTER 
	ST	A1,SAVE06,A13	RESTORE 
	STR	A2,A1	FILL TABLE 
	CALL	T:DADD	GET T:D ADDRESS TO A12 
	ST	A12,T:DSAV,A9	SAVE 'OLD' T:D-ADDRESS IN TTAB

* CALCULATE LENGTH OF T:D 

	EL	A1,WATLEN,A12	NUMBER OF BYTES-1 IN DBLKTAB
	ADK	A1,2 
	ANKL	A1,/FFFE	EVEN ADDRESS 
	ADK	A1,DWBFST+4	ADD DISPL. TO FIRST
	LDR	A3,A1	GET NUMB. OF START-POINTS... 
	ADR	A3,A12	. 
	ELR	A3,A3	.
	LDK	A2,STPREC	GET STARTPOINTS RECORD LENGTH
	CALL	MULT	AND MULTIPLY 
	ADK	A3,2	'NUMBER-WORD' 
	ADR	A3,A1	=>LENGTH 
	LDR	A1,A12	FROM-ADDRESS
	CALL	MOVING	MOVE T:D 
	ELR	A1,A8	GET T:A ADDRESS
	ES	A2,T:DAD,A1	ESORE NEW T:D ADDRESS 
	EL	A7,CWBMSK,A12	GET CWBMASK 
	XIF
	IFF CREDIT=0 
	CALL	MOVCLA
	EJECT
				
				
* TASK CLASS DATA UWB'S * 
************************* 
	IM	UWB,A13	INDICATE UWB SCANNING 
	IFT CREDIT-MMUPAG=1
	LD	A7,UWBMSK,A12	GET UWBMASK 
	XIF
	IFT CREDIT+MMUPAG=2
	EL	A7,UWBMSK,A12 
	XIF
	IFF CREDIT=0 
	CALL	MOVCLA
	EJECT
				
				
* MOVE DT:S OF SWB'S & TWB'S *
******************************

SYA260	EQU	*
	IFT CREDIT-MMUPAG=1
	LD	A7,SWBMSK,A12 
	RF(Z)	SYA265	NONE
	CALL	SKRITT
SYA265	LD	A7,TWBMSK,A12 
	XIF
	IFT CREDIT+MMUPAG=2
	EL	A7,SWBMSK,A12 
	RF(Z)	SYA265	NONE
	CALL	SKRITT
SYA265	EL	A7,TWBMSK,A12 
	XIF
	IFF CREDIT=0 
	RB(Z)	SYA250 
	CALL	SKRITT
	RB	SYA250
				
SYA270	RF	PRODAT
	EJECT
				
				
**              S K R I T T                  ** 
**                                           ** 
**  MOVE D.T                                 ** 
**                                           ** 
*********************************************** 
SKRITT	EQU	*
	CALL	SHIFT 
NO	RF(NZ)	NES 
	RTN	A14
NES	CALL	GETWB
	CALL	MOVDT 
	CM	NEWAD2,A13	NO NEW W.B.-ADDRESS (YET!) 
	CALL	MOVDWB
	CALL	SKIFTA
	RB	NO
	EJECT
				
* BUILD TASKDATA PROTOTYPE AREA * 
********************************* 
PRODAT	EQU	*
				=00001
	LD	A1,SAVE02,A13	BUGGER TASK INCLUDED? 
	RF(Z)	SYA275	NO! 
	CALL	GETTTB	GET TTAB ADDRESS. TID 'TB' IN A1 
	CM	TTB:PP,A2	CLEAR TCL SAVE AREA 
	LDR	A8,A2	SAVE TTAB-ADDRESS
	XIF
	IFT	CREDIT+MMUPAG=2
	CALL	MOVMMT	MOVE MMU TABLE 
	XIF
	IFF	CREDIT=0 
	LDK	A3,2	RESERV ONE WORD FOR TRABUG-T:A
	CALL	MOVING	GET P:BAS
	IFT	CREDIT-MMUPAG=1
	LD	A1,SCTLAC	GET START OF P:MTAB 
	LD	A1,P:BAS,A1	GET P:BAS 
	STR	A1,A2	SAVE IN TRABUG'S T:A 
	LD	A1,SCTOPT	GET OPTION WORD 
	ANK	A1,2	DISC PAGING?
	RF(Z)	SYA272	NO
	XIF
	IFF	CREDIT=0 
	ST	A2,TTB:CB,A8	SAVE ADDRESS TO CSB-POINTER
SYA272	EQU	*
	SUKL	A2,CSB	ADD DISPL. TO CURRENT SEGMENT BAE
	ST	A2,TTB:SA+26,A8	SAVE A13
	IFT	CREDIT+MMUPAG=2
	LD	A1,SCTLAC	GET START OF P:MTAB 
	TL*	MMTO,A13	LOAD CORRECT TABLE
	EL	A1,P:BAS,A1	GET P:BAS 
	TL	MMBEG,A8	LOAD TRABUG'S MMU-TABLE
	ES	A1,CSB,A2	STORE CURRENT SEGMENT BASE
	TL*	MMFROM,A13	RELOAD DDIV TABLE 
	XIF			=00001 
	IFF	CREDIT=0		=00001 
SYA275	EQU	*
				=00001
				=00001
	IM	SWITCH,A13	INDICATE: -NO MORE D.T. MOVE!
	LD	A8,T:ATOD,A13	T:ATAB ADDRESS
SYA280	ADKL	A8,2
	CW	A8,ENDADD,A13 
	RF(E)	SYA290	ALL DONE
	IFT CREDIT-MMUPAG=1
	LDR*	A12,A8	GET T:D ADDRESS..
	LD	A12,T:DAD,A12	. 
	CALL	TWBSWB	MOVE TWB'S & RESERVE FOR SWB'S 
				
* CALCULATE LENGTH OF DSCB'S *
***                        ***
				
	LDR*	A1,A8	GET T:A-ADDRESS 
	LD	A3,DATLEN,A12	A12=T:D-ADDRESS 
	LDK	A2,DSCBL	DSCB-LENGTH 
	CALL	MULT	A3() X (A2) RESULT IN A3 
	ST	A3,CSN,A1	SAVE LENG OF DSCB'S 
	LD	A2,FCD,A12	GET FCB-DISPLACEMENT 
	RF(NZ)	SYA285	FCB PRESENT
	SUR	A2,A3	MOVD30E A3(DSCB-LENGTH)
	ADKL	A2,T:ASTA	INCREMENT TO FIRST WORD 
SYA285	ST	A2,CIA,A1	SAVE DISPLACEMENT TO T:A-START
	LD	A2,STKB,A1	GET STACK SIZE 
	ST	A2,CSE,A1	AND SAVE TEMPORARY
	LD	A2,SCTLAC	GET START OF COMMON PART
	LD	A2,P:BAS,A2	GET P:BAS 
	ST	A2,CSB,A1	AND SAVE
	CALL	ALLBUF	ALLOCATE BUFFERS 
	CALL	MOVT:A	MOVE T:A 
	STR	A2,A8	STORE NEW ADDRESS IN T:ATAB
	XIF
	IFT CREDIT+MMUPAG=2
	CALL	GETTAB	SET CORRECT TTAB-ADDRESS 
	LD	A12,T:DSAV,A2	GET 'OLD' T:D-ADDRESS 

* GET LAST USED ENTRY IN CLASS-LOCAL MM-TABLE 

	TL	MMBEG,A2	LOAD CLASS LOCAL TABLE 
	LDKL	A3,MMTAB	GET WORK TABLE ADDRESS 
	ADR	A3,A13 
	TSR	A3	STORE TABLE IN WORK-AREA
	TL	MMDDIV,A13	RELOAD DDIV TABLE
	CALL	MMENT	GET ENTRY 
	ST	A3,T:DSAV,A2	SAVE IN TTAB 
	CALL	TWBSWB	MOVE TWB'S & RESERVE FOR SWB'S 
* CALCULATE LENGTH OF DSCB'S *
***                        ***
				
	ELR	A1,A8	GET T:A-ADDRESS
	EL	A3,DATLEN,A12	A12=T:D-ADDRESS 
	LDK	A2,DSCBL	DSCB-LENGTH 
	CALL	MULT	A3() X (A2) RESULT IN A3 
	ES	A3,CSN,A1	SAVE LENG OF DSCB'S 
	EL	A2,FCD,A12	GET FCB-DISPLACEMENT 
	RF(NZ)	SYA285	FCB PRESENT
	SUR	A2,A3	MOVD30E A3(DSCB-LENGTH)
	ADKL	A2,T:ASTA	INCREMENT TO FIRST WORD 
SYA285	ES	A2,CIA,A1	SAVE DISPLACEMENT TO T:A-ESART
	EL	A2,STKB,A1	GET STACK SIZE 
	ES	A2,CSE,A1	AND SAVE (TEMPORARY)
	LD	A2,SCTLAC	GET START OF P:MTAB 
	TL*	MMTO,A13	LOAD CORRECT TABLE
	EL	A2,P:BAS,A2	GET P:BAS 
	TL*	MMFROM,A13	RELOAD DDIV TABLE 
	ES	A2,CSB,A1	AND SAVE
	CALL	ALLBUF	ALLOCATE BUFFERS 
	CALL	MOVT:A	MOVE T:A 
	ESR	A2,A8	STORE NEW ADDRESS IN T:ATAB
	XIF
	IFF CREDIT=0 
	RB	SYA280	NEXT 
	EJECT
SYA290	EQU	*
	IM	FLAG,A13	INDICATE REAL DATA-PART PROCESSING 
* INCLUDE DDIV AND PART 2.A IN FREE AREA

	LDKL	A2,PART2A	NEW (RELATIVE) END ADDRESS
	ADR	A2,A13	ABSOLUT DITO
	IFT CREDIT+MMUPAG=2
	LDR	A3,A2
	ANKL	A3,/F000
	SRL	A3,2	GET NEW PHYSICALL PAGE
	ST	A3,FSTPAG,A13	SAVE
	ANKL	A2,/FFF	GET NEW PAGE INCREMENT
	ST	A2,FSTADR,A13	SAVE
* MOVE T:ATAB 

	LD	A2,T:ATNW,A13	GET REAL T:A-ADDRESS
	XIF
	IFT CREDIT-MMUPAG=1
	ST	A2,DATEND,A13	SAVE NEW END ADDRESS
* MOVE T:ATAB 

	LD	A2,T:ATNW,A13	GET REAL T:A-TAB ADDRESS
	LDR*	A1,A2	REAL LENGTH 
	ADR	A2,A1	END OF TABLE ADDRESS 
	ST	A2,ENDADD,A13	SAVE
	LD	A1,T:ATOD,A13	GET FROM-ADDRESS
	LDR*	A3,A1	MOVE-LENGTH 
	SUR	A2,A3	TO-ADDRESS 
	ST	A2,T:ATOD,A13	SAVE
	CALL	MOVE
	XIF
	IFT CREDIT+MMUPAG=2
	TL*	MMTO,A13	LOAD CORRECT TABLE
	ELR	A1,A2	GET REAL T:ATAB LENGTH 
	TL*	MMFROM,A13	RELOAD TABLE
	ADR	A2,A1	END ADDRESS
	ST	A2,ENDADD,A13	SAVE 'END-OF-T:ATAB-CONDITION'
	LD	A1,T:ATOD,A13	GET PROTOTYP T:ATAB 
	ELR	A3,A1	GET LENGTH 
	SUR	A2,A3	TO-ADDRESS 
	ST	A2,T:ATOD,A13	SAVE
	CALL	XMOVE 
	XIF
	IFF CREDIT=0 

* CONTINUE IN PART 2.B *

	LDKL	A5,PART2B	RELATIVE START ADDRESS
	ADR	A5,A13	ADD BASE ADDRESS
	ABR	A5 
LENGT2	EQU	*-REL	LENGTH OF PART 2 
	EJECT
			 
			 
********************************************* 
*******                               ******* 
**                                         ** 
*            SYSLOAD PART 1                 * 
**                                         ** 
*****                                   ***** 
********************************************* 
			 
*   READ CONFIGURATION FILE & BUILD         * 
*   SHADOW-TABLES                           * 
*                                           * 
********************************************* 
			 
	XIF
			 
			 
************************************* 
***                               *** 
**     S U B R O U T I N E S       ** 
**  -USED IN THIS PART ONLY        *
************************************* 
	EJECT
				
				
**                  C O N V R T                 **
**                                              **
**                                              **
**  CONVERSION OF TWO ASCII-DIGITS TO BINARY    **
**                                              **
**  INPUT : A5=ASCII DIGITS                     **
**  OUTPUT: A1=BINARY RESULT                    **
**  WORK.REGS: A3,A2                            **
**************************************************
			 
CONVRT	EQU	*
	LDK	A1,0	CLEAR RESULT REG
	LDR	A3,A5
	SRL	A3,8	GET TEN'S 
	SUK	A3,/30 
	ADR	A1,A3
	LDR	A2,A1	MULT BY 10 
	ADR	A1,A1	.
	SLL	A2,3	. 
	ADR	A1,A2	.... 
	LDR	A3,A5
	ANK	A3,/F	GET ONE'S
	ADR	A1,A3
	RTN	A14
	EJECT

**                  N X T B L K                 **
**                                              **
**                                              **
**  SKIP TO NEXT BLOCK IN CONFIGURATION FILE    **
**                                              **
**  INPUT: A11=ADDRESS TO CURRENT BLOCK-START   **
**  OUTPUT:A11=ADDRESS TO NEXT BLOCK            **
**         A2=BLOCK TYPE (T,C,U) IN RIGTH BYTE  **
**  WORKREGS: A1,A3-A5                          **
**************************************************

NXTBLK	EQU	*
	ADKL	A11,TDBNC	NUMBER OF TERMINAL DEVICE CLASSES 
NXTCOM	EQU	*	ENTRY: SKIP TO NEXT COMMON-BLOCK 
	LCR	A5,A11 
	SLL	A5,8 
	LC	A5,1,A11
	CALL	CONVRT
	LDK	A2,TDBREC
	LDR	A3,A1
	CALL	MULT
	ADR	A11,A3 
	ADKL	A11,2 
	LCR	A5,A11	GET NUMBER OF SPEC, DEV. CLASSES
	SLL	A5,8 
	LC	A5,1,A11
	CALL	CONVRT
	LDK	A2,SDC	SPEC. DEV. CL. RECORD LENGTH
	LDR	A3,A1
	CALL	MULT
	ADR	A11,A3	A11=NEXT BLOCK
	ADKL	A11,2 
	LC	A2,TDBBT,A11	GET BLOCK TYPE 
	RTN	A14
				
				
**                     G E T N U M                **
**                                                **
**                                                **
**  CONVERT 3 ASCII-DIGITS TO BINARY              **
**                                                **
**  INPUT : A6=ADDRESS TO FIRST ASCII-CHARACTER   **
**  OUTPUT: A5=BINARY VALUE                       **
**  WORK.REGS: A2,A4                              **
****************************************************
			 
GETNUM	EQU	*
	LDK	A4,100	FIRST INCREMENT 
	LDK	A5,0	CLEAR RESULT REG
	SUK	A6,1	INIT POINTER
GET030	ADK	A6,1	NEXT DIGIT
	LCR	A2,A6	GET CHAR 
	ANK	A2,/F
GET050	SUK	A2,1 
	RF(N)	GET100	THIS DIGIT READY
	ADR	A5,A4	ACCUMULATE 
	RB	GET050
GET100	SUK	A4,90	NEXT INCREMENT (TEN'S) 
	RB(P)	GET030 
	ADK	A4,81	NEXT INCREMENT (ONE'S) 
	RB(P)	GET030	THIRD DIGIT 
	RTN	A14
	EJECT

* START OF PROGRAM PART 1 * 

* SAVE02=POINTER TO 1:ST USER TASK TTAB-ADDRESS 
* SAVE09=EXECUTION START ADDRESS
			 
SYSLDX	EQU	*-REL	PROGRAM START
* 
*  INIT A15 STACK 
* 
	LD	A15,SCTSTB
	SUKL	A15,4 

	LD	A2,SCTLAC	GET S:GTAB (IF ANY) 
	IFT MMUPAG=0 
	LD	A2,CREID,A2	GET CREDIT IDENTIFICATION 
	XIF
	IFT MMUPAG=1 
	TL	MMTAB,A13	%%##
	EL	A2,CREID,A2 
	XIF
	CM	SWITCH,A13	RESET SAVE-AREAS USED IN SYSLDM
	CM	FLAG,A13
	CWK	A2,'CR'	CREDIT APPLICATION?
	RF(E)	SYA100	YES! START CONFIGURATE
	IFF	CREDIT=1 

* ASSEMBLER APPLICATION 

* SWITCH TO LEVEL 0 ENB 

	LDKL	A4,SYA103	CONTINUATION ADDRESS
	ADR	A4,A13	RELOCATE
	STR	A4,A15	PUT ON STACK
	LDKL	A4,/00C0
	STR	A4,A15	PUT PSW ON STACK
	RTN	A15
SYA103	EQU	*-REL
	XIF
	IFT	MMUPAG-CREDIT=1
	LDKL	A4,MMTAB	GET MM-TABLE ADDRESS 
	ADR	A4,A13	RELOCATE
	ST	A4,MMFROM,A13	SAVE
* FILL MM-TABLES IN USER TASK TTAB'S

	LD*	A5,SCTTCT	GET LENGTH OF TC:TAB 
	LD	A6,SAVE02,A13	1:ST USER TASK
	LDR	A3,A6	SAVE 
	SU	A3,SCTTCT	GET DISPLACEMENT TO 1:ST USER 
	SUR	A5,A3	=> LENGTH OF TC:TAB TO SCAN
* 
*  INIT UNUSED MMU ENTRIES
* 
	LDKL	A1,/FC00
	LDKL	A2,MMTAB
	ADR	A2,A13 
	LDR	A4,A2		=00002
	SUKL	A4,MMBEG
	AD	A4,SCTMMC 
SYA:10	CWR	A4,A2
	RF(E)	SYA105 
	SUK	A4,2 
	STR	A1,A4
	RB	SYA:10
SYA105	SUK	A5,2	ALL?
	RF(N)	SYA107	YES!
	LDR*	A2,A6	TTAB-ADDRESS
	CALL	MOVMMT	MOVE MM-TABLE
	ADK	A6,2	NEXT TTAB 
	RB	SYA105
SYA107	EQU	*
	XIF
	IFF	CREDIT=1 
	LD*	A5,SAVE02,A13	1:ST USER TASK TTAB ADDRESS
	LD	A2,SAVE09,A13	EXECUTION START ADDRESS 
	AD	A2,SCTLAC	ADD RELOCATION ADDRESS
	LDK	A3,0	SEGMENT NUMBER
	CF	A15,ACTOT	QUEUE TASK
	LDKL	A1,FINISH	END OF SYSLDA 
	ADR	A1,A13 
	ABR	A1 
	XIF
SYA100	EQU	*
	IFF CREDIT=0 
	EJECT
			 
* READ CONFIG FILE AND BUILD SHADOWTABLE
			 
	CM	SAVE02,A13	CLEAR 'BUGGER TASK INDICATOR'
	IFT CREDIT-MMUPAG=1
	LD*	A2,SCTLAC	GET START OF P:MTAB
	LD	A12,T:ATAB,A2	T:ATAB ADDRESS
	SUKL	A12,2	ADJUST FOR LENGTH-WORD
	ST	A12,T:ATOD,A13	SAVE 
	LD	A4,U:BTAB,A2	GET U:BTAB FROM P:MTAB 
	SUK	A4,2	INCLUDE LENGTH-WORD 
	ST	A4,U:BTOD,A13	SAVE IN SYSLDA
	XIF
	IFT	CREDIT+SWBMMU=2
	LD	A4,S:BTAB,A2	GET S:BTAB ADDRESS 
	SUK	A4,2	ADJUST FOR LENGTH WORD
	ST	A4,S:BTOD,A13	SAVE
	XIF
	IFT	CREDIT-MMUPAG=1
* T:ATAB PROCESSING:
			 
	LDR*	A4,A12	T:ATAB-LENGTH
	LDR	A3,A4	SAVE 
	AD	A3,SCTSFA	ADD MONITOR END ADDRESS 
* CHECK ADDRESSES 

	LDR	A11,A3	END OF SHADOW-TAB 
	LDR	A9,A13	START OF SYSLDA 
	CALL	CMPADR
	RF(L)	SYA110	OK! 
	LDKL	A1,LMP3	MEMORY OVERFLOW 
	CALL	ERROR 
SYA110	LDR	A9,A2	GET P:MTAB ADDRESS 
	LDK	A2,0 
* CLEAR T:ATAB SHADOW-TABLE:
			 
ZERO	SUK	A3,2	NEXT
	STR	A2,A3	CLEAR
	CW	A3,SCTSFA	ALL?
	RB(NE)	ZERO	NO!
	STR	A4,A3	STORE TABLE LENGTH 
	LD	A11,SAVE01,A13	GET CONFIG START 
	LC	A2,TDBBT,A11	GET BLOCKTYPE
	CCK	A2,'TT'	TASK DEF?
	RF(E)	SYA120	OK! 
	LDK	A1,LMP4	NO TASK PRESENT
	CALL	ERROR 
SYA120	LC	A2,TDBMC+4,A11	GET TASK ID
	SLL	A2,8	. 
	LC	A2,TDBMC+5,A11	...
	CWK	A2,'TB'	BUGGER TASK? 
	RF(NE)	SYA125	NO!
	ST	A2,SAVE02,A13	INDICATE BUGGER TASK PRESENT	=00001 
	RF	SYA136	SKIP TO NEXT BLOCK 
SYA125	LDR	A8,A12	SAVE
	LDR*	A4,A12	T:ATAB LENGTH
SYA130	ADKL	A8,2	NEXT T:A 
	LDR*	A6,A8	GET T:A ADDRESS 
	SUK	A4,2 
	RF(NZ)	SYA135
	LDK	A1,LMP5	NO PROTOTYPE FOUND (TID ERROR) 
	CALL	ERROR 
SYA135	EQU	*
	CW	A2,T:ATID,A6	TID EQUAL? 
	RB(NE)	SYA130	NO!
	SUR*	A4,A12	T:ATAB LENGTH
	XIF
	IFT CREDIT+MMUPAG=2
	EL*	A2,SCTLAC	GET START OF P:MTAB
	EL	A12,T:ATAB,A2	T:ATAB ADDRESS
	SUKL	A12,2	INCLUDE LENGTH WORD 
	ST	A12,T:ATOD,A13	SAVE IN SYSLDA 
	EL	A4,U:BTAB,A2	U:BTAB ADDRESS 
	SUK	A4,2	ADJUST FOR LENGTH WORD
	ST	A4,U:BTOD,A13	SAVE IN SYSLDA
	XIF
	IFT	CREDIT+MMUSWB=3
	EL	A4,S:BTAB,A2	GET S:BTAB ADDRESS 
	SUK	A4,2	ADJUST FOR LENGTH WORD
	ST	A4,S:BTOD,A13	SAVE
	XIF
	IFT	CREDIT+MMUPAG=2
* T:ATAB PROCESSING:
			 
	ELR	A4,A12	T:ATAB-LENGTH 
	LDR	A3,A4	SAVE 
	SLL	A3,1	RESERVE FOR MM-TABLE ADDRESS TABLE
	AD	A3,SCTSFA	ADD MONITOR END ADDRESS 
* CHECK ADDRESSES 

	LDR	A11,A3	END OF SHADOW-TABLE 
	LDR	A9,A13	START OF SYSLDA 
	CALL	CMPADR
	RF(L)	SYA110	OK! 
	LDKL	A1,LMP3	MEMORY OVERFLOW 
	CALL	ERROR 
SYA110	LDR	A9,A2	GET P:MTAB ADDRESS 
* CLEAR T:ATAB SHADOW-TABLE:
			 
SYA115	SUK	A3,2	NEXT
	CMR	A3	CLEAR 
	CW	A3,SCTSFA	ALL?
	RB(NE)	SYA115	NO!
	STR	A4,A3	STORE TABLE LENGTH 
	LD	A11,SAVE01,A13	GET CONFIG START 
	LC	A2,TDBBT,A11	GET BLOCKTYPE
	CCK	A2,'TT'	TASK DEF?
	RF(E)	SYA120	OK! 
	LDK	A1,LMP4	NO TASK PRESENT
	CALL	ERROR 
SYA120	LC	A2,TDBMC+4,A11	GET TASK ID
	SLL	A2,8	. 
	LC	A2,TDBMC+5,A11	...
	CWK	A2,'TB'	BUGGER TASK? 
	RF(NE)	SYA125	NO!
	ST	A2,SAVE02,A13	INDICATE 'BUGGER TASK PRESENT'
	RF	SYA136	SKIP THIS BLOCK
SYA125	LDR	A8,A12	SAVE
	ELR	A4,A12	T:ATAB LENGTH 
SYA130	ADKL	A8,2	NEXT T:A 
	ELR	A6,A8	GET T:A ADDRESS
	SUK	A4,2 
	RF(NZ)	SYA135
	LDK	A1,LMP5	NO PROT. FOUND (TID ERROR) 
	CALL	ERROR 
SYA135	EQU	*
	EL	A10,T:ATID,A6	GET TID 
	CWR	A2,A10	TID EQUAL?
	RB(NE)	SYA130	NO!
	ELR	A10,A12
	SUR	A4,A10	T:ATAB LENGTH 
	XIF
	IFF CREDIT=0 
	NGR	A4,A4	=> A4=DISPLACEM. IN SHADOW-TAB 
	LC	A5,TDBNT,A11	GET NUMBER OF TASKS
	SLL	A5,8 
	LC	A5,TDBNT+1,A11
	CALL	CONVRT
	LD	A2,SCTSFA	START OF SHADOW TABLE 
	ADR	A2,A4
	ADRS	A1,A2	STORE NUMBER OF TASKS IN SHADOW TABLE 
			 
* SKIP TO NEXT BLOCK
			 
SYA136	CALL	NXTBLK
SYA137	EQU	*
	CCK	A2,'TT'
	RB(E)	SYA120	NEXT TASK DEF BLOCK 
	CCK	A2,'CC'
	RF(NE)	SYA140
	ADKL	A11,1	STEP TO NUMBER OF COM.DEV.
	CALL	NXTCOM	SKIP COMMON DEF
SYA140	CCK	A2,'UU'
	RF(NE)	SYA141	NO UWB'S 
	LD	A8,U:BTOD,A13	GET MODIFIED U:BTAB ADDRESS 
	CALL	USWBTP	INSERT NUMBER OF COPIES IN PROTOTYPE 
SYA141	EQU	*
	XIF
	IFT	CREDIT+SWPBLK=2
	LCR	A2,A11 
	CCK	A2,'SS'
	RF(NE)	SYA152
	LD	A8,S:BTOD,A13 
	CALL	USWBTP
	XIF
	IFT	CREDIT=1 
	RF	SYA152
	EJECT
*********************************************************************** 
*                                                                     * 
*  USWBTP - INSERT NUMBER OF COPIES IN U:BTAB/S:BTAB PROTOTYPE TABLE  * 
*  =================================================================  * 
*                                                                     * 
*  REFERENCED IN:  SYSLDA                                             * 
*                                                                     * 
*  ENTRY:  A8 - MODIFIED ADDRESS TO U:BTAB/S:BTAB PROTOTYPE TABLE     * 
*          A11- POINTER IN CONFIGURATION TABLE TO 'U' OR 'S' BLOCK    * 
*                                                                     * 
*  EXIT:                                                              * 
*                                                                     * 
*  WORK REGISTERS:                                                    * 
*                                                                     * 
*  SUBROUTINES:  GETNUM,ERROR                                         * 
*                                                                     * 
*********************************************************************** 

USWBTP	EQU	*

	XIF
	IFT CREDIT-MMUPAG=1
	ADKL	A11,1 
	LDR	A6,A11 
	CALL	GETNUM	PACK 3 DIG. RESULT IN A5 
	LDR	A1,A5	SAVE NUMBER OF UWB'S 
SYA142	EQU	*
	LDR	A12,A8 
	LDR*	A3,A12	LENGTH OF U:BTAB 
	ADKL	A11,UDBFST-1	FIRST UDB RECORD 
SYA145	EQU	*
	LCR	A2,A11	GET FIRST CHARACTER FROM CONFIG 
	SLL	A2,8 
	LC	A2,1,A11	GET 2:ND CHAR
	CW	A2,UPNAME,A12	COMPARE W. 1:ST WORD IN PROTOTYP
	RF(E)	FRSTOK	FIRST TWO CHARACTERS OK!
SYA147	SUK	A3,UP:REC	DEC. NUMBER OF PROT.'S 
	RF(NN)	SYA150
	LDK	A1,LMP6	UWB NOT FOUND
	CALL	ERROR 
SYA150	EQU	*
	ADKL	A12,UP:REC	ADD TO NEXT RECORD 
	RB	SYA145
FRSTOK	LC	A2,2,A11	GET 3:RD CHAR
	CC	A2,UPNAME+2,A12 
	RB(NE)	SYA147	.NEQ.
	EJECT
			 
* PROTOTYPE FOUND * 
			 
	ADKL	A11,NAMUWB	SKIP TO 'NUMBER OF BOCKS' IN CONFIG
	LDR	A6,A11 
	CALL	GETNUM	CONVERT
	SC	A5,UPNUMB,A12	SAVE IN U:BTAB (SHADOWTABLE)
	SUK	A1,1	DEC. NO OF TYPES IN CONFIG FILE 
	RB(P)	SYA142 
	ADKL	A11,UDBFST-1
	RTN	A14
	XIF
	IFT CREDIT+MMUPAG=2
	ADKL	A11,1 
	LDR	A6,A11 
	CALL	GETNUM	PACK 3 DIG. RESULT IN A5 
	LDR	A1,A5	SAVE NUMBER OF UWB'S 
SYA142	EQU	*
	LDR	A12,A8	START OF TABLE
	ELR	A3,A12	LENGTH OF U:BTAB
	ADKL	A11,UDBFST-1	FIRST UDB RECORD 
SYA145	EQU	*
	LCR	A2,A11	GET FIRST CHARACTER FROM CONFIG 
	SLL	A2,8 
	LC	A2,1,A11	GET 2:ND CHAR
	EL	A10,UPNAME,A12	GET FIRST WORD IN PROTOTYPE
	CWR	A2,A10 
	RF(E)	FRSTOK	FIRST WORD OK!
SYA147	SUK	A3,UP:REC	DEC. NUMBER OF PROT.'S 
	RF(NN)	SYA150
	LDK	A1,LMP6	UWB NOT FOUND
	CALL	ERROR 
SYA150	EQU	*
	ADKL	A12,UP:REC	ADD TO NEXT RECORD 
	RB	SYA145
FRSTOK	LC	A10,2,A11	GET 3:RD CHAR FROM CONFIG 
	EL	A2,UPNAME+2,A12	GET 3:RD CHAR FROM PROY 
	SRL	A2,8 
	ANKL	A10,/FF 
	CWR	A10,A2 
	RB(NE)	SYA147	.NEQ.
	EJECT
			 
* PROTOTYPE FOUND * 
******************* 
			 
	ADKL	A11,NAMUWB	SKIP TO 'NUMBER OF BOCKS' IN CONFIG
	LDR	A6,A11 
	CALL	GETNUM	CONVERT
	EL	A10,UPNUMB-1,A12	SAVE IN U:BTAB SHADOW-TABLE
	ANKL	A10,/FF00 
	ORR	A10,A5 
	ES	A10,UPNUMB-1,A12
	SUK	A1,1	DEC. NO OF TYPES IN CONFIG FILE 
	RB(P)	SYA142 
	ADKL	A11,UDBFST-1
	RTN	A14
	XIF
	IFT	CREDIT=1 
	EJECT
SYA152	EQU	*

* GET START OF SYSLOAD AFTER MOVE 
			 
	XIF
	IFT	CREDIT-MMUPAG=1
	LD*	A7,T:ATOD,A13	GET LENGTH OF T:ATAB 
	XIF
	IFT	CREDIT+MMUPAG=2
	EL*	A7,T:ATOD,A13	GET T:ATAB LENGTH
	SLL	A7,1	RESERVE FOR MM-ADDRESS-TABLE
	XIF
	IFF CREDIT=0 
	AD	A7,SCTSFA	TO-ADDRESS (AFTER SHADOW-TABLE
	ADK	A7,1 
	ANKL	A7,/FFFE	EVEN ADDRESS 

* CALCULATE RELOCATION

	LDR	A2,A13 
	SUR	A2,A7	MOVE-LENGTH (SYSLDA) 
	NGR	A2,A2
	ST	A2,SAVE04,A13	SAVE NEW RELOCATION TEMPORARY 
	IFT CREDIT+MMUPAG=2
* CREATE SYSLDA & DDIV MM-TABLE * 

	LDR	A2,A7	TO-ADDRESS (SYSLDA)
	ANKL	A2,/F000	FIRST PAGE 
	ST	A2,MMREL1,A13	SAVE PHYSICAL PAGE
	SRL	A2,2	SHIFT FOR MM-PAGING 
	LDKL	A11,MMDDIV
	ADR	A11,A13	GET MM-TABLE START ADDRESSS= 
	LDK	A3,16	SET COUNTER
SYA157	STR	A2,A11	STORE PAGE-POINTER
	ADKL	A11,2	NEXT ENTRY
	ADKL	A2,/400	PAGE INCREMENT
	SUK	A3,1	ALL?
	RB(NZ)	SYA157	NO!
	ANKL	A7,/FFF	GET DISPLACEM. IN PAGE
	XIF
	IFF CREDIT=0 
	ST	A7,SAVE12,A13	SAVE (LOGICAL) TO-ADDRESS 
	ADKL	A7,LENGT2	ADD LEN. OF SYSLDA TO MOVE
	ST	A7,SAVE03,A13	SAVE NEW DDIV ADDRESS 
	LDR	A6,A7	 
* CALCULATE DDIV FROM-ADDRESS * 

	LD	A1,SCTLAC	GET S:GTAB
	ST	A1,SAVE13,A13	SAVE S:GTAB ADDRESS 
	ST	A9,SCTLAC	SAVE START OF P:MTAB
	IFT CREDIT-MMUPAG=1
	LD	A3,NUMSEG,A1	NUMBER OF SEGMENTS 
	XIF
	IFT CREDIT+MMUPAG=2
	EL	A3,NUMSEG,A1	NUMBER OF SEGMENTS 
	XIF
	IFF CREDIT=0 
	LDK	A2,SEGREC	SEGMENT BLOCK RECORD LENGTH
	CALL	MULT
	ADR	A1,A3
	ADK	A1,NUMSEG+2	=> START OF DDIV 
	LD	A2,SAVE04,A13	GET NEW RELOCATION INCREMENT
	ADS	A2,M:REL,A13	AND ADJUST RELOCATION BASE
	IFT CREDIT+MMUPAG=2

	ST	A1,SAVE04,A13	SAVE DDIV 'FROM'-ADDRESS
	XIF
	IFT CREDIT-MMUPAG=1
	ST	A1,SAVE04,A13	SAVE DDIV FROM-ADDRESS
	XIF
	IFF CREDIT=0 
	SUR	A6,A1	RELOCATION FOR DDIV
	EJECT

				
				
* RELOCATE ADDRESSES IN T:ATAB AFTER MOVE * 
* CALCULATE TOTAL (=REAL) LENGTH        * 
* REMOVE NOT USED ENTRIES IN T:ATAB     * 
* A9=P:MTAB   A6=MOVE-RELOC             * 
***************************************** 
	IFT CREDIT-MMUPAG=1

* INITIATE POINTERS 

	LD	A8,T:ATOD,A13	GET T:ATAB ADDRESS
	LDR*	A3,A8	GET LENGTH
	ADR	A3,A8	END OF T:ATAB
	ST	A3,ENDADD,A13	SAVE
	LD	A5,SCTSFA	GET START OF T:ATAB SHADOW-TAB
	LDR	A4,A5	2:ND POINTER 
	LDR	A2,A8	2:ND POINTER IN T:ATAB 
	LDK	A3,2	SET 'NEW' T:ATAB COUNTER
	SUR	A11,A11	CLEAR REAL LENGTH ACCUMULATOR

* SCAN T:ATAB:

SYA160	ADKL	A8,2	TAKE NEXT T:A
	ADK	A5,2	NEXT T:A IN SHADOW-TAB
	CW	A8,ENDADD,A13 
	RF(E)	SYA170	ALL DONE
	LDR*	A1,A8	GET T:A 
	LDR*	A7,A5	GET CONTENTS OF SHADOW-TAB
	RB(Z)	SYA160	THIS T:A IS NOT USED!!!!! 
	ADR	A11,A7	ACCUMULATE LENGTH 
	ADK	A3,2	INCREMENT 'NEW' T:ATAB LENGTH 
	ADK	A4,2	UPDATE 2:ND SHADOW-TAB ADDRESS
	ADK	A2,2	UPDATE 2:ND T:ATAB ADDRESS
	STR	A7,A4	STORE NUMBER OF T:A'S (EV. ON NEW PLACE) 
	LDR*	A10,A8	GET T:A-ADDRESS
	ADR	A10,A6	RELOCATE
	STR	A10,A2	STORE ADDR. (EV. ON NEW PLACE)
* RELOCATE W.B.-ADDRESSES 

	LD	A12,T:DAD,A1	GET T:D-ADDRESS
	LD	A7,WATLEN,A12	LENGTH OF WAT 
	ADK	A1,WATFST+2	ADD TO FIRST W.B.-ADDRESS
SYA165	SUK	A7,1	DEC. COUNTER
	RB(N)	SYA160	TAKE NEXT T:A 
	ADRS	A6,A1	RELOCATE
	XIF
	IFT CREDIT+MMUPAG=2

* INITIATE POINTERS 

	LD	A8,T:ATOD,A13	T:ATAB
	ELR	A3,A8	GET LENGTH 
	ADR	A3,A8	END OF T:ATAB
	ST	A3,ENDADD,A13	SAVE
	LD	A5,SCTSFA	GET START OF T:ATAB SHADOW-TAB
	LDR	A4,A5	2:ND POINTER 
	LDR	A2,A8	2:ND POINTER IN T:ATAB 
	LDK	A3,2	SET 'NEW' T:ATAB COUNTER
	SUR	A11,A11	CLEAR REAL LENGTH ACCUMULATOR

* SCAN T:ATAB:

SYA160	ADKL	A8,2	TAKE NEXT T:A
	ADK	A5,2	NEXT T:A IN SHADOW-TAB
	CW	A8,ENDADD,A13 
	RF(E)	SYA170	ALL DONE
	ELR	A1,A8	GET T:A
	LDR*	A7,A5	GET CONTENTS OF SHADOW-TAB
	RB(Z)	SYA160	THIS T:A IS NOT USED!!!!! 
	ADR	A11,A7	ACCUMULATE LENGTH 
	ADK	A3,2	INCREMENT 'NEW' T:ATAB LENGTH 
	ADK	A4,2	UPDATE 2:ND SHADOW-TAB ADDRESS
	ADK	A2,2	UPDATE 2:ND T:ATAB ADDRESS
	STR	A7,A4	STORE NUMBER OF T:A'S (EV. ON NEW PLACE) 
	ELR	A10,A8	GET T:A-ADDRESS 
	ADR	A10,A6	RELOCATE
	ESR	A10,A2	STORE ADDR. (EV. ON NEW PLACE)
* RELOCATE W.B.-ADDRESSES 

	EL	A12,T:DAD,A1	GET T:D-ADDRESS
	EL	A7,WATLEN,A12	LENGTH OF WAT 
	ADK	A1,WATFST+2	ADD TO FIRST W.B.-ADDRESS
SYA165	SUK	A7,1	DEC. COUNTER
	RB(N)	SYA160	TAKE NEXT T:A 
	ELR	A10,A1	GET ADDRESS 
	ADR	A10,A6	RELOCATE
	ESR	A10,A1 
	XIF
	IFF CREDIT=0 
	ADK	A1,4	NEXT W.B. 
	RB	SYA165

SYA170	EQU	*
	ST	A6,MOVADD,A13	SAVE
	ST*	A3,SCTSFA	STORE NEW TABLE LENGTH IN SHADOW-TAB 
	IFT CREDIT+MMUPAG=2
	ES*	A3,T:ATOD,A13	AND IN T:ATAB
	XIF
	IFT CREDIT-MMUPAG=1
	ST*	A3,T:ATOD,A13	AND IN T:ATAB
	XIF
	IFF CREDIT=0 
	LDR	A2,A11	GET NUMBER OF T:A'S ACCUMULATOR 
	SLL	A2,1	CALC. REAL LENGTH (BYTES) 
	ADK	A2,2 
	ST	A2,SAVE05,A13	SAVE TOT. NUMBER OF T:A'S 
				
	EJECT
******************************
* RELOCATE ADDRESSES IN U:BTAB *
* (REAL LENGTH=PROTOTYPE LEN.) *
********************************

	IFT CREDIT-MMUPAG=1
	LD	A5,U:BTOD,A13	U:BTAB ADDRESS
	LDR*	A3,A5	LENGTH
	ST	A3,SAVE06,A13 
	ADK	A5,2	SKIP LENGTH WORD
	SUK	A3,2	  -"- 
SYA180	RF(Z)	SYA185	ALL DONE! 
	ADRS	A6,A5	RELOCATE
	XIF
	IFT CREDIT+MMUPAG=2
	LD	A5,U:BTOD,A13	U:BTAB ADDRESS
	ELR	A3,A5	TABLE LENGTH 
	ST	A3,SAVE06,A13	SAVE LENGTH OF U:BTAB 
	ADK	A5,2 
	SUK	A3,2	SUB LENGTH-WORD 
SYA180	RF(Z)	SYA185 
	ELR	A10,A5	GET ADDRESS 
	ADR	A10,A6	RELOCATE
	ESR	A10,A5 
	XIF
	IFF CREDIT=0 
	ADK	A5,UP:REC	ADD TO NEXT RECORD IN U:BTAB PROTOTYP
	SUK	A3,UP:REC
	RB	SYA180
	EJECT
SYA185	EQU	*
	IFT	CREDIT+MMUSWB=3
* 
*  COMPUTE REAL LENGTH OF S:BTAB
* 
	LD	A5,S:BTOD,A13	S:BTAB ADDRESS
	ELR	A3,A5	LENGTH OF PROTOTYPE
	LDR	A2,A3	SAVE 
	SUK	A3,2	EXCLUDE LENGTH WORD 
SYA190	RF(Z)	SYA199	ALL RECORDS SCANNED!
	EL	A4,2,A5	GET PROT. W.B.-ADDR.
	ADR	A4,A6	RELOCATE 
	ES	A4,2,A5	STORE IT BACK 
	EL	A4,UPNUMB-1,A5	GET NUMBER OF COPIES 
	ANK	A4,/FF	GET RIGHT BYTE
SYA192	RF(Z)	SYA194	NO MOORE OF THIS TYPE!
	ADK	A2,2	INCREMENT LENGTH
	SUK	A4,1	DECREMENT NUMBER OF COPIES
	RB	SYA192
SYA194	ADK	A5,UP:REC	NEXT RECORD IN S:BTAB PROTOTYPE
	SUK	A3,UP:REC	DECREMENT LENGTH 
	RB	SYA190
	XIF
	IFT	CREDIT+SWBMMU=2
	LD	A5,S:BTOD,A13	S:BTAB ADDRESS
	LDR*	A3,A5	LENGTH OF S:BTAB PROTOTYPE
	LDR	A2,A3	SAVE 
	SUK	A3,2	EXCLUDE LENGTH WORD 
SYA195	RF(Z)	SYA199	ALL RECORDS SCANNED!
	LD	A4,2,A5	GET PROT. W.B.-ADDR.
	ADR	A4,A6	RELOCATE 
	ST	A4,2,A5	STORE IT BACK 
	LD	A4,UPNUMB-1,A5	GET NUMBER OF COPIES 
	ANK	A4,/FF 
SYA196	RF(Z)	SYA198	NO MOORE OF THIS TYPE!
	ADK	A2,2	INCREMENT LENGTH
	SUK	A4,1	DECREMENT NUMBER OF COPIES
	RB	SYA196
SYA198	ADK	A5,UP:REC	NEXT RECORD IN S:BTAB PROTOTYPE
	SUK	A3,UP:REC	DECREMENT LENGTH 
	RB	SYA195
	XIF
	IFT	CREDIT+SWPBLK=2
SYA199	ST	A2,SAVE25,A13	SAVE COMPUTED LENGTH
	XIF
	IFT	CREDIT=1 
	EJECT

* RELOCATE T:ATAB- AND U:BTAB-ADDRESSES IN P:MTAB 
			 
	ADS	A6,T:ATOD,A13
	ADS	A6,U:BTOD,A13
	IFT	CREDIT+SWPBLK=2
	ADS	A6,S:BTOD,A13
	XIF
	IFT CREDIT-MMUPAG=1
* CALCULATE NEW DDIV END

	LDR	A5,A9
	SU	A5,SAVE04,A13	END-START 
	AD	A5,SAVE12,A13	ADD NEW START 
	ST	A5,DATEND,A13	SAVE
	XIF
	IFT CREDIT+MMUPAG=2


* STORE MMTABLE ADDRESSES 

	LDK	A4,MMDDIV
	ADR	A4,A13	GET TABLE ADDRESS 
	LDR	A5,A13	CALC. REAL RELOCATION 
	SU	A5,SAVE12,A13 
	SU	A5,MMREL1,A13 
	SUR	A4,A5	RELOCATE 
	ST	A4,MMTO,A13	AND SAVE
	LDK	A4,MMTAB 
	ADR	A4,A13	'WORK-TABLE' ADDRESS
	SUR	A4,A5	RELOCATE 
	ST	A4,MMFROM,A13 
* CALCULATE DDIV END

	LDR	A5,A9	DDIV END 
	SU	A5,SAVE04,A13	ENT-START 
	AD	A5,SAVE12,A13	ADD NEW START 
	LDR	A6,A5
	ANKL	A6,/F000	GET LOGICALL PAGE (MM-ENTRY) 
	SRL	A6,11	ADJUST FOR ADDRESSING
	ADK	A6,MMDDIV	ADD RELATIVE START ADDRESS 
	ADR	A6,A13	RELOCATE
	LDR*	A6,A6	GET MM-TABLE CONTENTS 
	ST	A6,FSTPAG,A13	SAVE
	ANKL	A5,/FFF	GET DISPLACEMENT
	ST	A5,FSTADR,A13	AND SAVE
	XIF
	IFF CREDIT=0 
* CONTINUE IN PART 2 *
			 
	LD	A2,SAVE12,A13	GET TO-ADDRESS (SYSLDA) 
	OR	A2,MMREL1,A13	PHYSICALL ADDRESS 
	LDR	A5,A2	SAVE 
	LDKL	A7,START2	GET EXECUTION START ADDRESS 
	ADR	A7,A2
	LDKL	A3,LENGT2	SYSLDA LENGTH 
	LDR	A1,A13	FROM-ADDRESS

* MOVE SYSLDA * 

	IFT CREDIT-MMUPAG=1
NXTMOV	LDR*	A4,A1	GET WORD
	STR	A4,A2	STORE WORD 
	ADK	A1,2 
	ADK	A2,2 
	SUK	A3,2	DEC. LENGTH 
	RB(NN)	NXTMOV
	XIF
	IFT CREDIT+MMUPAG=2
	MVB	A3 
	XIF
	IFF CREDIT=0 

	ABR	A7	HEJ SVEJS! VI SES I PART 2... 
	XIF
	IFT	CREDIT=0 
	LDKL	A1,LMP9 
	CALL	ERROR	INCONSISTENT MONITOR
	XIF
LDAEND	EQU	*
	END

HexDump

0x00000…00036 (0, 0, 398)   Head {h00=0x0032, h01=0x0050, text=» IDENT SYSLDA  REL 10.0 80-05-29 870105041000 «, t00=0x0000, t01=0x0004}
0x00036…0003e               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x0003e…0005a               Head {h00=0x0018, h01=0x0050, text=»   REL 10.0 80-03-14«, t00=0x0000, t01=0x0042}
0x0005a…00088               Head {h00=0x002a, h01=0x0050, text=»   =1,FAULTY STACK BASE WHEN USING MMU«, t00=0x0000, t01=0x005e}
0x00088…00094               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0000, t01=0x008c}
0x00094…000a0               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0000, t01=0x0098}
0x000a0…000e2               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0000, t01=0x00a4}
0x000e2…000ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e6}
0x000ec…00114               Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00f0}
0x00114…0011e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x0011e…00160               Head {h00=0x003e, h01=0x0050, text=»*   SYSLDA = SYSTEM LOAD - APPLICATION CONFIGURATION PART «, t00=0x0000, t01=0x0122}
0x00160…0016a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0164}
0x0016a…00174               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016e}
0x00174…0017e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0178}
0x0017e…00188               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0182}
0x00188…00192               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x018c}
0x00192…0019c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0008}
0x0019c…001de               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0001, t01=0x0012}
0x001de…001e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0054}
0x001e8…001f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x005e}
0x001f2…0023c               Head {h00=0x0046, h01=0x0050, text=»*   THIS PART OF THE SYSTEM START-UP WILL TAKE CARE OF APPLICATION«, t00=0x0001, t01=0x0068}
0x0023c…00282               Head {h00=0x0042, h01=0x0050, text=»*   (CREDIT) CONFIGURATION AND START OF APPLICATION. SYSLDA IS«, t00=0x0001, t01=0x00b2}
0x00282…002cc               Head {h00=0x0046, h01=0x0050, text=»*   ENTERED AFTER MONITOR CONFIGURATION (PERFORMED BY SYSLDM), AND«, t00=0x0001, t01=0x00f8}
0x002cc…00318               Head {h00=0x0048, h01=0x0050, text=»*   IS AT THAT TIME LOCATED AT HIGHEST FREE ADDRESS OF SYSTEM AREA. «, t00=0x0001, t01=0x0142}
0x00318…00322               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x018e}
0x00322…00344               Head {h00=0x001e, h01=0x0050, text=»*   ASSEMBLER APPLICATION:«, t00=0x0002, t01=0x0008}
0x00344…00392               Head {h00=0x004a, h01=0x0050, text=»*      NO CONFIGURATION WILL TAKE PLACE. FIRST USER TASK IS ACTIVATED «, t00=0x0002, t01=0x002a}
0x00392…003dc               Head {h00=0x0046, h01=0x0050, text=»*      AND A BRANCH IS MADE TO  P F I N I T . ALL USER TASK TTAB'S«, t00=0x0002, t01=0x0078}
0x003dc…00404               Head {h00=0x0024, h01=0x0050, text=»*      MM-TABLES ARE FILLED IN. «, t00=0x0002, t01=0x00c2}
0x00404…0040e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ea}
0x0040e…0042e               Head {h00=0x001c, h01=0x0050, text=»*   CREDIT APPLICATION: «, t00=0x0002, t01=0x00f4}
0x0042e…00478               Head {h00=0x0046, h01=0x0050, text=»*      SYSLDA READS CONFIGURATION FILE (ALREADY IN CORE) AND BUILD«, t00=0x0002, t01=0x0114}
0x00478…004be               Head {h00=0x0042, h01=0x0050, text=»*      SHADOW-TABLES (TABLES CONTAINING NUMBER OF REAL TASKS &«, t00=0x0002, t01=0x015e}
0x004be…004f0               Head {h00=0x002e, h01=0x0050, text=»*      NUMBER OF USER WORK-BLOCK COPIES). «, t00=0x0003, t01=0x0014}
0x004f0…0053c               Head {h00=0x0048, h01=0x0050, text=»*      SYSLDA THEN MOVES ITSELF TO FOLLOW MONITOR AND WILL ALSO MOVE«, t00=0x0003, t01=0x0046}
0x0053c…0056c               Head {h00=0x002c, h01=0x0050, text=»*      DDIV-PROTOTYPE TO FOLLOW SYSLDA. «, t00=0x0003, t01=0x0092}
0x0056c…00576               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c2}
0x00576…005c2               Head {h00=0x0048, h01=0x0050, text=»*      APPLICATION WORKBLOCKS, DESCRIPTORS, STACK AND TABLES ARE NOW«, t00=0x0003, t01=0x00cc}
0x005c2…0060e               Head {h00=0x0048, h01=0x0050, text=»*      BUILT FROM 'BOTTOM' (HIGHEST FREE ADDRESS) OF MEMORY. BUFFERS«, t00=0x0003, t01=0x0118}
0x0060e…0065a               Head {h00=0x0048, h01=0x0050, text=»*      ARE, IN CASE OF MMU IN SYSTEM, ALSO ALLOCATED AT 'BOTTOM' OF «, t00=0x0003, t01=0x0164}
0x0065a…006a6               Head {h00=0x0048, h01=0x0050, text=»*      MEMORY; ELSE, IF NO MMU, BUFFERS ARE ALLOCATED AFTER MONITOR «, t00=0x0004, t01=0x0020}
0x006a6…006c4               Head {h00=0x001a, h01=0x0050, text=»*      'OVER' SYSLDA. «, t00=0x0004, t01=0x006c}
0x006c4…006ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008a}
0x006ce…0071a               Head {h00=0x0048, h01=0x0050, text=»*      ALL USER TASKS ARE QUEUED    VIA  A C T O T AND ALL MM-TABLES«, t00=0x0004, t01=0x0094}
0x0071a…00764               Head {h00=0x0046, h01=0x0050, text=»*      IN USER TASK TTAB'S ARE FILLED. A BRANCH IS FINALLY MADE TO«, t00=0x0004, t01=0x00e0}
0x00764…00796               Head {h00=0x002e, h01=0x0050, text=»*      P F I N I T  TO START APPLICATION. «, t00=0x0004, t01=0x012a}
0x00796…007a4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x015c}
0x007a4…007b0               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0004, t01=0x016a}
0x007b0…007d4               Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0004, t01=0x0176}
0x007d4…007f8               Head {h00=0x0020, h01=0x0050, text=»*                         * «, t00=0x0005, t01=0x000a}
0x007f8…0081c               Head {h00=0x0020, h01=0x0050, text=»*  ENTRIES AND EXTERNALS  * «, t00=0x0005, t01=0x002e}
0x0081c…00840               Head {h00=0x0020, h01=0x0050, text=»*                         * «, t00=0x0005, t01=0x0052}
0x00840…00864               Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0005, t01=0x0076}
0x00864…00870               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0005, t01=0x009a}
0x00870…00888               Head {h00=0x0014, h01=0x0050, text=»* LABEL ENTRIES «, t00=0x0005, t01=0x00a6}
0x00888…008b8               Head {h00=0x002c, h01=0x0050, text=» ENTRY JUMP BYPASS JUMP FOR LOAD-MODULE «, t00=0x0005, t01=0x00be}
0x008b8…008ce               Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSLDX «, t00=0x0005, t01=0x00ee}
0x008ce…008ee               Head {h00=0x001c, h01=0x0050, text=» ENTRY REL START OF CODE«, t00=0x0005, t01=0x0104}
0x008ee…0091a               Head {h00=0x0028, h01=0x0050, text=» ENTRY LDALEN PROGRAM LENGTH =00003 «, t00=0x0005, t01=0x0124}
0x0091a…00922               Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0150}
0x00922…0093e               Head {h00=0x0018, h01=0x0050, text=»* SUBROUTINE ENTRIES«, t00=0x0005, t01=0x0158}
0x0093e…00952               Head {h00=0x0010, h01=0x0050, text=» ENTRY MOVE «, t00=0x0005, t01=0x0174}
0x00952…00966               Head {h00=0x0010, h01=0x0050, text=» ENTRY ERROR«, t00=0x0005, t01=0x0188}
0x00966…0098e               Head {h00=0x0024, h01=0x0050, text=» ENTRY CMPADR COMPARE ADDRESSES «, t00=0x0006, t01=0x000c}
0x0098e…009c4               Head {h00=0x0032, h01=0x0050, text=» ENTRY NXTBLK SKIP TO NEXT CONFIGURATION BLOCK«, t00=0x0006, t01=0x0034}
0x009c4…009fc               Head {h00=0x0034, h01=0x0050, text=» ENTRY NXTCOM SKIP COMMONDEVICE DEFINITION BLOCK«, t00=0x0006, t01=0x006a}
0x009fc…00a2a               Head {h00=0x002a, h01=0x0050, text=» ENTRY CONVRT CONVERSION ASCII-BINARY «, t00=0x0006, t01=0x00a2}
0x00a2a…00a60               Head {h00=0x0032, h01=0x0050, text=» ENTRY GETNUM CONVERT 3 ASCII-DIGITS TO BINARY«, t00=0x0006, t01=0x00d0}
0x00a60…00a8a               Head {h00=0x0026, h01=0x0050, text=» ENTRY MULT MULTIPLICATION ROUTINE«, t00=0x0006, t01=0x0106}
0x00a8a…00a92               Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0130}
0x00a92…00ab6               Head {h00=0x0020, h01=0x0050, text=»* SAVE AND WORK AREA ENTRIES«, t00=0x0006, t01=0x0138}
0x00ab6…00adc               Head {h00=0x0022, h01=0x0050, text=» ENTRY MMTAB WORK-TABLE 1 (MMU«, t00=0x0006, t01=0x015c}
0x00adc…00b16               Head {h00=0x0036, h01=0x0050, text=» ENTRY TABBE ABSOLUTE START ADDRESS OF WORK-TAB 1 «, t00=0x0006, t01=0x0182}
0x00b16…00b4e               Head {h00=0x0034, h01=0x0050, text=» ENTRY MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 «, t00=0x0007, t01=0x002c}
0x00b4e…00b84               Head {h00=0x0032, h01=0x0050, text=» ENTRY MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL'«, t00=0x0007, t01=0x0064}
0x00b84…00bb4               Head {h00=0x002c, h01=0x0050, text=» ENTRY BUFSIZ TEMPORARY MOVE-BUFFER SIZE«, t00=0x0007, t01=0x009a}
0x00bb4…00be6               Head {h00=0x002e, h01=0x0050, text=» ENTRY SYSBUF TEMPORARY MOVE-BUFFER START «, t00=0x0007, t01=0x00ca}
0x00be6…00c1e               Head {h00=0x0034, h01=0x0050, text=» ENTRY M:REL RELOCATION FOR RELOCATION WORD!!!! «, t00=0x0007, t01=0x00fc}
0x00c1e…00c4e               Head {h00=0x002c, h01=0x0050, text=» ENTRY I:RSTE INTERPRETER RESTART ENTRY «, t00=0x0007, t01=0x0134}
0x00c4e…00c78               Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE01,SAVE12,SAVE03,SAVE04«, t00=0x0007, t01=0x0164}
0x00c78…00ca2               Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE05,SAVE06,SAVE07,SAVE08«, t00=0x0007, t01=0x018e}
0x00ca2…00ccc               Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE09,SAVE10,SAVE11,SAVE02«, t00=0x0008, t01=0x0028}
0x00ccc…00cf6               Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE13,SAVE14,SAVE15,SAVE16«, t00=0x0008, t01=0x0052}
0x00cf6…00d20               Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE17,SAVE18,SAVE19,SAVE20«, t00=0x0008, t01=0x007c}
0x00d20…00d4a               Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE21,SAVE22,SAVE23,SAVE24«, t00=0x0008, t01=0x00a6}
0x00d4a…00d74               Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE25,SAVE26,SAVE27,SAVE28«, t00=0x0008, t01=0x00d0}
0x00d74…00d90               Head {h00=0x0018, h01=0x0050, text=» ENTRY SAVE29,SAVE30«, t00=0x0008, t01=0x00fa}
0x00d90…00db6               Head {h00=0x0022, h01=0x0050, text=» ENTRY APPTYP APPLICATION TYPE«, t00=0x0008, t01=0x0116}
0x00db6…00dc4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x013c}
0x00dc4…00dcc               Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x014a}
0x00dcc…00df4               Head {h00=0x0024, h01=0x0050, text=»* SYSTEM CONTROL TABLE EXTERNALS«, t00=0x0008, t01=0x0152}
0x00df4…00e1c               Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTSFA START OF FREE AREA«, t00=0x0008, t01=0x017a}
0x00e1c…00e52               Head {h00=0x0032, h01=0x0050, text=» EXTRN SCTLAC LOGICALL ADDRESS TO COMMON PART «, t00=0x0009, t01=0x0012}
0x00e52…00e76               Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTTCT TC:TAB ADDRESS«, t00=0x0009, t01=0x0048}
0x00e76…00e9a               Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTSTB A15 STACK-BASE«, t00=0x0009, t01=0x006c}
0x00e9a…00ec0               Head {h00=0x0022, h01=0x0050, text=» EXTRN SCTEFA END OF FREE AREA«, t00=0x0009, t01=0x0090}
0x00ec0…00ee6               Head {h00=0x0022, h01=0x0050, text=» EXTRN SCTNOP NUMBER OF PAGES «, t00=0x0009, t01=0x00b6}
0x00ee6…00f06               Head {h00=0x001c, h01=0x0050, text=» EXTRN SCTPSZ PAGE SIZE «, t00=0x0009, t01=0x00dc}
0x00f06…00f24               Head {h00=0x001a, h01=0x0050, text=» EXTRN SCTMMC  =00002 «, t00=0x0009, t01=0x00fc}
0x00f24…00f48               Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTOPT SYSTEM OPTION «, t00=0x0009, t01=0x011a}
0x00f48…00f70               Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTPAG PAGE TABLE ADDRESS«, t00=0x0009, t01=0x013e}
0x00f70…00fa8               Head {h00=0x0034, h01=0x0050, text=» EXTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK TABLE«, t00=0x0009, t01=0x0166}
0x00fa8…00fcc               Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTBUG BUGGER ADDRESS«, t00=0x000a, t01=0x000e}
0x00fcc…00fd4               Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0032}
0x00fd4…00fee               Head {h00=0x0016, h01=0x0050, text=»* EXTERNAL LABELS «, t00=0x000a, t01=0x003a}
0x00fee…01028               Head {h00=0x0036, h01=0x0050, text=» EXTRN SYSLDM START OF MONITOR CONFIGURATION PART «, t00=0x000a, t01=0x0054}
0x01028…01050               Head {h00=0x0024, h01=0x0050, text=» EXTRN PAGQUE PAGE QUEUE POINTER«, t00=0x000a, t01=0x008e}
0x01050…01058               Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00b6}
0x01058…01076               Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL SUBROUTINES«, t00=0x000a, t01=0x00be}
0x01076…01096               Head {h00=0x001c, h01=0x0050, text=» EXTRN ACTOT QUEUE TASK «, t00=0x000a, t01=0x00dc}
0x01096…010ac               Head {h00=0x0012, h01=0x0050, text=» EXTRN PFINIT «, t00=0x000a, t01=0x00fc}
0x010ac…010cc               Head {h00=0x001c, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGS«, t00=0x000a, t01=0x0112}
0x010cc…010f0               Head {h00=0x0020, h01=0x0050, text=» EXTRN RETUR8 RELOAD 8 REGS «, t00=0x000a, t01=0x0132}
0x010f0…01116               Head {h00=0x0022, h01=0x0050, text=» EXTRN TDISP DISPATCHER ENTRY «, t00=0x000a, t01=0x0156}
0x01116…0111e               Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x017c}
0x0111e…01128               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0184}
0x01128…01158               Head {h00=0x002c, h01=0x0050, text=» EXTRN TTB:SA START OF SAVE AREA IN TTAB«, t00=0x000a, t01=0x018e}
0x01158…01194               Head {h00=0x0038, h01=0x0050, text=» EXTRN TTB:CB DISPL. TO CURRENT SEGMENT BASE ADDRESS«, t00=0x000b, t01=0x002e}
0x01194…011a2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x006a}
0x011a2…011aa               Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0078}
0x011aa…011b2               Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0080}
0x011b2…011e2               Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000b, t01=0x0088}
0x011e2…01212               Head {h00=0x002c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY                * «, t00=0x000b, t01=0x00b8}
0x01212…01242               Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000b, t01=0x00e8}
0x01242…0124a               Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0118}
0x0124a…0126a               Head {h00=0x001c, h01=0x0050, text=»MMUPAG EQU 0 0 = NO MMU «, t00=0x000b, t01=0x0120}
0x0126a…01272               Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0140}
0x01272…0129c               Head {h00=0x0026, h01=0x0050, text=»SWPBLK EQU 0 SWAPPABLE WORK BLOCKS«, t00=0x000b, t01=0x0148}
0x0129c…012a4               Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0172}
0x012a4…012c4               Head {h00=0x001c, h01=0x0050, text=»CREDIT EQU 1 0=ASSEMBLER«, t00=0x000b, t01=0x017a}
0x012c4…012cc               Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x000a}
0x012cc…012ec               Head {h00=0x001c, h01=0x0050, text=»MMUSWB EQU MMUPAG+SWPBLK«, t00=0x000c, t01=0x0012}
0x012ec…012f4               Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0032}
0x012f4…01314               Head {h00=0x001c, h01=0x0050, text=»SWBMMU EQU SWPBLK-MMUPAG«, t00=0x000c, t01=0x003a}
0x01314…01322               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x005a}
0x01322…0132a               Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0068}
0x0132a…01348               Head {h00=0x001a, h01=0x0050, text=»   PROGRAM STRUCTURE: «, t00=0x000c, t01=0x0070}
0x01348…01350               Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x008e}
0x01350…0139a               Head {h00=0x0046, h01=0x0050, text=»*          -------------------------------------------------------«, t00=0x000c, t01=0x0096}
0x0139a…013ea               Head {h00=0x004c, h01=0x0050, text=»*          !  RELOCATION ROUTINE                                 !<- A13«, t00=0x000c, t01=0x00e0}
0x013ea…01434               Head {h00=0x0046, h01=0x0050, text=»*          !  A14-STACK AND SUBROUTINE-HANDLER                   !«, t00=0x000c, t01=0x0130}
0x01434…0147e               Head {h00=0x0046, h01=0x0050, text=»*          !-----------------------------------------------------!«, t00=0x000c, t01=0x017a}
0x0147e…014c8               Head {h00=0x0046, h01=0x0050, text=»*          !  SAVE & COMMUNICATION AREA. MMU - WORK TABLES       !«, t00=0x000d, t01=0x0034}
0x014c8…01512               Head {h00=0x0046, h01=0x0050, text=»*          !-----------------------------------------------------!«, t00=0x000d, t01=0x007e}
0x01512…0155c               Head {h00=0x0046, h01=0x0050, text=»*          !  SUBROUTINES. -COMMON TO ALL PARTS IN PROGRAM.      !«, t00=0x000d, t01=0x00c8}
0x0155c…015a6               Head {h00=0x0046, h01=0x0050, text=»*          !-----------------------------------------------------!«, t00=0x000d, t01=0x0112}
0x015a6…015fa               Head {h00=0x0050, h01=0x0050, text=»*          !  R E A L T A                                        ! PART 2.B «, t00=0x000d, t01=0x015c}
0x015fa…01644               Head {h00=0x0046, h01=0x0050, text=»*          !  BUILD REAL TASK-LOCAL DATA AREAS                   !«, t00=0x000e, t01=0x0020}
0x01644…0168e               Head {h00=0x0046, h01=0x0050, text=»*          !  -QUEUE TASK VIA 'ACTOT'                            !«, t00=0x000e, t01=0x006a}
0x0168e…016d8               Head {h00=0x0046, h01=0x0050, text=»*          !  -FILL MM-TABLE IN TTAB                             !«, t00=0x000e, t01=0x00b4}
0x016d8…01722               Head {h00=0x0046, h01=0x0050, text=»*          !  -COPY T:A'S ACCORDING TO SHADOW-TABLE              !«, t00=0x000e, t01=0x00fe}
0x01722…0176c               Head {h00=0x0046, h01=0x0050, text=»*          !  -BUILD TWB'S AND RESERVE FOR SWB'S                 !«, t00=0x000e, t01=0x0148}
0x0176c…017b6 (15, 0, 400)  Head {h00=0x0046, h01=0x0050, text=»*          !  -ALLOCATE FIXED BUFFERS AND STACK                  !«, t00=0x000f, t01=0x0004}
0x017b6…01800               Head {h00=0x0046, h01=0x0050, text=»*          !  -UPDATE TID IN T:A AND SAVE TID IN T:AID TABLE     !«, t00=0x000f, t01=0x004e}
0x01800…0184a               Head {h00=0x0046, h01=0x0050, text=»*          !  -START DEBUGGER (IF ANY) AND START APPLICATION     !«, t00=0x000f, t01=0x0098}
0x0184a…01894               Head {h00=0x0046, h01=0x0050, text=»*          !-----------------------------------------------------!«, t00=0x000f, t01=0x00e2}
0x01894…018e8               Head {h00=0x0050, h01=0x0050, text=»*          !  SUBROUTINES                                        ! PART 2.A «, t00=0x000f, t01=0x012c}
0x018e8…01932               Head {h00=0x0046, h01=0x0050, text=»*          !  -MOVE DDIV PROTOTYPE TO FOLLOW SYSLDA              !«, t00=0x000f, t01=0x0180}
0x01932…0197c               Head {h00=0x0046, h01=0x0050, text=»*          !                                                     !«, t00=0x0010, t01=0x003a}
0x0197c…019c6               Head {h00=0x0046, h01=0x0050, text=»*          !  C O M D A T                                        !«, t00=0x0010, t01=0x0084}
0x019c6…01a10               Head {h00=0x0046, h01=0x0050, text=»*          !  GENERATE COMMON DATA AREA. PROCESS CWB'S & UWB'S.  !«, t00=0x0010, t01=0x00ce}
0x01a10…01a5a               Head {h00=0x0046, h01=0x0050, text=»*          !  -MOVE D.T. AND W.B., COPY UWB'S ACCORDING TO       !«, t00=0x0010, t01=0x0118}
0x01a5a…01aa4               Head {h00=0x0046, h01=0x0050, text=»*          !   SHADOW-TABLE.                                     !«, t00=0x0010, t01=0x0162}
0x01aa4…01aee               Head {h00=0x0046, h01=0x0050, text=»*          !                                                     !«, t00=0x0011, t01=0x001c}
0x01aee…01b38               Head {h00=0x0046, h01=0x0050, text=»*          !  C L A D A T                                        !«, t00=0x0011, t01=0x0066}
0x01b38…01b82               Head {h00=0x0046, h01=0x0050, text=»*          !  BUILD TASK CLASS DATA AREAS. PROCESS CWB'S, UWB'S  !«, t00=0x0011, t01=0x00b0}
0x01b82…01bcc               Head {h00=0x0046, h01=0x0050, text=»*          !  AND DWB'S.                                         !«, t00=0x0011, t01=0x00fa}
0x01bcc…01c16               Head {h00=0x0046, h01=0x0050, text=»*          !  -BUILD MM-TABLE                                    !«, t00=0x0011, t01=0x0144}
0x01c16…01c60               Head {h00=0x0046, h01=0x0050, text=»*          !  -MOVE T:D                                          !«, t00=0x0011, t01=0x018e}
0x01c60…01caa               Head {h00=0x0046, h01=0x0050, text=»*          !  -MOVE D.T. & W.B., COPY UWB'S                      !«, t00=0x0012, t01=0x0048}
0x01caa…01cf4               Head {h00=0x0046, h01=0x0050, text=»*          !  -MOVE D.T.'S OF SWB'S AND TWB'S                    !«, t00=0x0012, t01=0x0092}
0x01cf4…01d3e               Head {h00=0x0046, h01=0x0050, text=»*          !  -SEARCH DBLK-TAB FOR DWB'S. MOVE D.T. AND UPDATE   !«, t00=0x0012, t01=0x00dc}
0x01d3e…01d88               Head {h00=0x0046, h01=0x0050, text=»*          !   W.B.-ADDRESS                                      !«, t00=0x0012, t01=0x0126}
0x01d88…01dd2               Head {h00=0x0046, h01=0x0050, text=»*          !                                                     !«, t00=0x0012, t01=0x0170}
0x01dd2…01e1c               Head {h00=0x0046, h01=0x0050, text=»*          !  P R O D A T                                        !«, t00=0x0013, t01=0x002a}
0x01e1c…01e66               Head {h00=0x0046, h01=0x0050, text=»*          !  BUILD PROTOTYPE TASK-LOCAL DATA AREAS.             !«, t00=0x0013, t01=0x0074}
0x01e66…01eb0               Head {h00=0x0046, h01=0x0050, text=»*          !  -GENERATE TWB'S AND RESERVE FOR SWB'S              !«, t00=0x0013, t01=0x00be}
0x01eb0…01efa               Head {h00=0x0046, h01=0x0050, text=»*          !  -ALLOCATE FIXED BUFFERS AND TERMINAL STACK         !«, t00=0x0013, t01=0x0108}
0x01efa…01f44               Head {h00=0x0046, h01=0x0050, text=»*          !  -MOVE T:A                                          !«, t00=0x0013, t01=0x0152}
0x01f44…01f8e               Head {h00=0x0046, h01=0x0050, text=»*          !  -INCLUDE DDIV-PROTOTYPE & PART 2.A IN FREE AREA.   !«, t00=0x0014, t01=0x000c}
0x01f8e…01fd8               Head {h00=0x0046, h01=0x0050, text=»*          !  -CONTINUE IN PART 2.B                              !«, t00=0x0014, t01=0x0056}
0x01fd8…02022               Head {h00=0x0046, h01=0x0050, text=»*          !-----------------------------------------------------!«, t00=0x0014, t01=0x00a0}
0x02022…02074               Head {h00=0x004e, h01=0x0050, text=»*          !  SUBROUTINES                                        ! PART 1 «, t00=0x0014, t01=0x00ea}
0x02074…020be               Head {h00=0x0046, h01=0x0050, text=»*  ENTRY ->!                * SYSLDA ENTRY *                     !«, t00=0x0014, t01=0x013c}
0x020be…02108               Head {h00=0x0046, h01=0x0050, text=»*          !  CREDIT APPLICATION:      !  ASSEMBLER APPLICATION: !«, t00=0x0014, t01=0x0186}
0x02108…02152               Head {h00=0x0046, h01=0x0050, text=»*          !  READ CUNFIGURATION FILE  !  -FILL MM-TABLES IN     !«, t00=0x0015, t01=0x0040}
0x02152…0219c               Head {h00=0x0046, h01=0x0050, text=»*          !  AND BUILD SHADOW-TABLES. !   USER TASK TTAB'S.     !«, t00=0x0015, t01=0x008a}
0x0219c…021e6               Head {h00=0x0046, h01=0x0050, text=»*          !                           !  -QUEUE 1:ST USER TASK  !«, t00=0x0015, t01=0x00d4}
0x021e6…02230               Head {h00=0x0046, h01=0x0050, text=»*          !  T:ATAB:                  !   AND START APPLICATION !«, t00=0x0015, t01=0x011e}
0x02230…0227a               Head {h00=0x0046, h01=0x0050, text=»*          !  -A TABLE OF 'NUMBER OF   !-------------------------!«, t00=0x0015, t01=0x0168}
0x0227a…022c4               Head {h00=0x0046, h01=0x0050, text=»*          !   REAL TASKS' IS BUILT AT                           !«, t00=0x0016, t01=0x0022}
0x022c4…0230e               Head {h00=0x0046, h01=0x0050, text=»*          !   THE END OF MONITOR.                               !«, t00=0x0016, t01=0x006c}
0x0230e…02358               Head {h00=0x0046, h01=0x0050, text=»*          !  U:BTAB:                                            !«, t00=0x0016, t01=0x00b6}
0x02358…023a2               Head {h00=0x0046, h01=0x0050, text=»*          !  -A TABLE OF 'NUMBER OF REAL UWB'S' IS BUILT IN     !«, t00=0x0016, t01=0x0100}
0x023a2…023ec               Head {h00=0x0046, h01=0x0050, text=»*          !   U:BTAB PROTOTYPE.                                 !«, t00=0x0016, t01=0x014a}
0x023ec…02436 (23, 0, 400)  Head {h00=0x0046, h01=0x0050, text=»*          !                                                     !«, t00=0x0017, t01=0x0004}
0x02436…02480               Head {h00=0x0046, h01=0x0050, text=»*          !  -RELOCATE ALL W.B.-ADDRESSES IN DDIV-PROTOTYPE.    !«, t00=0x0017, t01=0x004e}
0x02480…024ca               Head {h00=0x0046, h01=0x0050, text=»*          !  -REMOVE NOT USED ENTRIES IN T:ATAB                 !«, t00=0x0017, t01=0x0098}
0x024ca…02514               Head {h00=0x0046, h01=0x0050, text=»*          !  -RELOCATE ADDRESSES IN U:BTAB                      !«, t00=0x0017, t01=0x00e2}
0x02514…0255e               Head {h00=0x0046, h01=0x0050, text=»*          !  -MOVE SYSLDA (NOT PART 1) TO FOLLOW T:ATAB SHADOW- !«, t00=0x0017, t01=0x012c}
0x0255e…025a8               Head {h00=0x0046, h01=0x0050, text=»*          !   TABLE                                             !«, t00=0x0017, t01=0x0176}
0x025a8…025f2               Head {h00=0x0046, h01=0x0050, text=»*          !  -CONTINUE IN PART 2.A                              !«, t00=0x0018, t01=0x0030}
0x025f2…0263c               Head {h00=0x0046, h01=0x0050, text=»*          !-----------------------------------------------------!«, t00=0x0018, t01=0x007a}
0x0263c…0264a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00c4}
0x0264a…02656               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0018, t01=0x00d2}
0x02656…02672               Head {h00=0x0018, h01=0x0050, text=»  ***************** «, t00=0x0018, t01=0x00de}
0x02672…0268e               Head {h00=0x0018, h01=0x0050, text=»  ***************** «, t00=0x0018, t01=0x00fa}
0x0268e…026aa               Head {h00=0x0018, h01=0x0050, text=»  **             ** «, t00=0x0018, t01=0x0116}
0x026aa…026c6               Head {h00=0x0018, h01=0x0050, text=»  **  CONSTANTS  ** «, t00=0x0018, t01=0x0132}
0x026c6…026e2               Head {h00=0x0018, h01=0x0050, text=»  ***************** «, t00=0x0018, t01=0x014e}
0x026e2…026fe               Head {h00=0x0018, h01=0x0050, text=»  **             ** «, t00=0x0018, t01=0x016a}
0x026fe…0271a               Head {h00=0x0018, h01=0x0050, text=»  ***************** «, t00=0x0018, t01=0x0186}
0x0271a…02726               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0019, t01=0x0012}
0x02726…02738               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x001e}
0x02738…0274a               Head {h00=0x000e, h01=0x0050, text=»* P:MTAB *«, t00=0x0019, t01=0x0030}
0x0274a…0275c               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x0042}
0x0275c…02770               Head {h00=0x0010, h01=0x0050, text=»T:ATAB EQU 0«, t00=0x0019, t01=0x0054}
0x02770…02784               Head {h00=0x0010, h01=0x0050, text=»U:BTAB EQU 2«, t00=0x0019, t01=0x0068}
0x02784…027a4               Head {h00=0x001c, h01=0x0050, text=»P:BAS EQU 6 SEGMENT BASE«, t00=0x0019, t01=0x007c}
0x027a4…027d6               Head {h00=0x002e, h01=0x0050, text=»T:AID EQU 32 ADDRESS TO 'TABLE OF T:A TID'«, t00=0x0019, t01=0x009c}
0x027d6…02802               Head {h00=0x0028, h01=0x0050, text=»S:BTAB EQU 40 DISP TO S:BTAB ADDRESS«, t00=0x0019, t01=0x00ce}
0x02802…02832               Head {h00=0x002c, h01=0x0050, text=»I:RSTE EQU 42 INTERPRETER RESTART ENTRY «, t00=0x0019, t01=0x00fa}
0x02832…0283a               Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x012a}
0x0283a…02842               Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0132}
0x02842…02854               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x013a}
0x02854…02866               Head {h00=0x000e, h01=0x0050, text=»* U:BTAB *«, t00=0x0019, t01=0x014c}
0x02866…02878               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x015e}
0x02878…028ac               Head {h00=0x0030, h01=0x0050, text=»UP:REC EQU 6 RECORD LENGTH IN INITIAL U:BTAB«, t00=0x0019, t01=0x0170}
0x028ac…028d2               Head {h00=0x0022, h01=0x0050, text=»UPADDR EQU 2 PROTOTYPE ADDRESS«, t00=0x001a, t01=0x0014}
0x028d2…028f6               Head {h00=0x0020, h01=0x0050, text=»UPNAME EQU 4 PROTOTYPE NAME «, t00=0x001a, t01=0x003a}
0x028f6…02932               Head {h00=0x0038, h01=0x0050, text=»UPNUMB EQU 7 SAVE AREA NUMBER OF COPIES (SHADOW-TBL)«, t00=0x001a, t01=0x005e}
0x02932…0293c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x009a}
0x0293c…0296e               Head {h00=0x002e, h01=0x0050, text=»UR:REC EQU 6 RECORD LENGTH IN REAL U:BTAB «, t00=0x001a, t01=0x00a4}
0x0296e…0299c               Head {h00=0x002a, h01=0x0050, text=»URADDR EQU 2 ADDRESS TO FIRST REAL UWB«, t00=0x001a, t01=0x00d6}
0x0299c…029c0               Head {h00=0x0020, h01=0x0050, text=»URNUMB EQU 4 NUMBER OF UWB'S«, t00=0x001a, t01=0x0104}
0x029c0…029e2               Head {h00=0x001e, h01=0x0050, text=»URLENG EQU 6 LENGTH OF UWB«, t00=0x001a, t01=0x0128}
0x029e2…029f0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x014a}
0x029f0…029fc               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x001a, t01=0x0158}
0x029fc…02a08               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x001a, t01=0x0164}
0x02a08…02a14               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x001a, t01=0x0170}
0x02a14…02a3c               Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x001a, t01=0x017c}
0x02a3c…02a64               Head {h00=0x0024, h01=0x0050, text=»* CONFIGURATION FILE (CONFIG) * «, t00=0x001b, t01=0x0014}
0x02a64…02a8c               Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x001b, t01=0x003c}
0x02a8c…02a98               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x001b, t01=0x0064}
0x02a98…02ab8               Head {h00=0x001c, h01=0x0050, text=»* TASK DEFINITION BLOCK:«, t00=0x001b, t01=0x0070}
0x02ab8…02ada               Head {h00=0x001e, h01=0x0050, text=»TDBBT EQU 0 1A BLOCK TYPE «, t00=0x001b, t01=0x0090}
0x02ada…02b06               Head {h00=0x0028, h01=0x0050, text=»TDBNT EQU TDBBT+1 2N NUMBER OF TASKS«, t00=0x001b, t01=0x00b2}
0x02b06…02b36               Head {h00=0x002c, h01=0x0050, text=»TDBID EQU TDBNT+2 6A TASK ID START VALUE«, t00=0x001b, t01=0x00de}
0x02b36…02b66               Head {h00=0x002c, h01=0x0050, text=»TDBMC EQU TDBID+6 6A MATCHING TASK CLASS«, t00=0x001b, t01=0x010e}
0x02b66…02b8e               Head {h00=0x0024, h01=0x0050, text=»TDBTL EQU TDBMC+6 6A TASK LEVEL «, t00=0x001b, t01=0x013e}
0x02b8e…02bcc               Head {h00=0x003a, h01=0x0050, text=»TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x001b, t01=0x0166}
0x02bcc…02bd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0014}
0x02bd6…02c00               Head {h00=0x0026, h01=0x0050, text=»TDBFST EQU TDBNC+2 FIRST TERM DEF «, t00=0x001c, t01=0x001e}
0x02c00…02c28               Head {h00=0x0024, h01=0x0050, text=»TDC EQU 7 TERMINAL DEVICE CLASS «, t00=0x001c, t01=0x0048}
0x02c28…02c4a               Head {h00=0x001e, h01=0x0050, text=»TLC EQU 6 LINE CONNECTION «, t00=0x001c, t01=0x0070}
0x02c4a…02c76               Head {h00=0x0028, h01=0x0050, text=»TDBREC EQU TDC+TLC TDB-RECORD LENGTH«, t00=0x001c, t01=0x0092}
0x02c76…02c80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00be}
0x02c80…02cae               Head {h00=0x002a, h01=0x0050, text=»SDC EQU 7 SPECIAL DEVICE CLASS-RECORD «, t00=0x001c, t01=0x00c8}
0x02cae…02cb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00f6}
0x02cb8…02cdc               Head {h00=0x0020, h01=0x0050, text=»* COMMON DEVICE DEF. BLOCK: «, t00=0x001c, t01=0x0100}
0x02cdc…02cfe               Head {h00=0x001e, h01=0x0050, text=»CDBBT EQU 0 1A BLOCK TYPE «, t00=0x001c, t01=0x0124}
0x02cfe…02d38               Head {h00=0x0036, h01=0x0050, text=»CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES «, t00=0x001c, t01=0x0146}
0x02d38…02d64               Head {h00=0x0028, h01=0x0050, text=»SDCFST EQU CDBNC+2 FIRST SDC-RECORD «, t00=0x001c, t01=0x0180}
0x02d64…02d6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x001c}
0x02d6e…02d78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0026}
0x02d78…02da2               Head {h00=0x0026, h01=0x0050, text=»* USER WORK BLOCK TYPE DEF. BLOCK «, t00=0x001d, t01=0x0030}
0x02da2…02dc4               Head {h00=0x001e, h01=0x0050, text=»UDBBT EQU 0 1A BLOCK TYPE «, t00=0x001d, t01=0x005a}
0x02dc4…02df4               Head {h00=0x002c, h01=0x0050, text=»UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES«, t00=0x001d, t01=0x007c}
0x02df4…02dfe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ac}
0x02dfe…02e2a               Head {h00=0x0028, h01=0x0050, text=»UDBFST EQU UDBNU+3 FIRST UDB-RECORD «, t00=0x001d, t01=0x00b6}
0x02e2a…02e4a               Head {h00=0x001c, h01=0x0050, text=»NAMUWB EQU 3 NAME OF UWB«, t00=0x001d, t01=0x00e2}
0x02e4a…02e70               Head {h00=0x0022, h01=0x0050, text=»NUMUBL EQU 3 NUMBER OF BLOCKS «, t00=0x001d, t01=0x0102}
0x02e70…02ea2               Head {h00=0x002e, h01=0x0050, text=»UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH«, t00=0x001d, t01=0x0128}
0x02ea2…02eb0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x015a}
0x02eb0…02ebc               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x001d, t01=0x0168}
0x02ebc…02ec8               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x001d, t01=0x0174}
0x02ec8…02eda               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x001d, t01=0x0180}
0x02eda…02eec (30, 0, 398)  Head {h00=0x000e, h01=0x0050, text=»*  T:A  * «, t00=0x001e, t01=0x0004}
0x02eec…02efe               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x001e, t01=0x0016}
0x02efe…02f1e               Head {h00=0x001c, h01=0x0050, text=»T:ASTA EQU -14 T:A START«, t00=0x001e, t01=0x0028}
0x02f1e…02f58               Head {h00=0x0036, h01=0x0050, text=»CSE EQU -14 CURRENT SEGMENT END (HERE: STACKSIZE) «, t00=0x001e, t01=0x0048}
0x02f58…02f80               Head {h00=0x0024, h01=0x0050, text=»CSB EQU -12 CURRENT SEGMENT BASE«, t00=0x001e, t01=0x0082}
0x02f80…02fb8               Head {h00=0x0034, h01=0x0050, text=»CSN EQU -10 CURRENT SEGMENT NUMBER (HERE LENGTH «, t00=0x001e, t01=0x00aa}
0x02fb8…02fee               Head {h00=0x0032, h01=0x0050, text=»                           OF ALL DSCB-RECORDS«, t00=0x001e, t01=0x00e2}
0x02fee…03012               Head {h00=0x0020, h01=0x0050, text=»T:DAD EQU -8 ADDRESS TO T:D «, t00=0x001e, t01=0x0118}
0x03012…03040               Head {h00=0x002a, h01=0x0050, text=»CIA EQU -6 CURRENT INSTUCTION ADDRESS «, t00=0x001e, t01=0x013c}
0x03040…0306c               Head {h00=0x0028, h01=0x0050, text=»   (HERE: DISPLACEMENT TO T:A-START)«, t00=0x001e, t01=0x016a}
0x0306c…03078               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x001f, t01=0x0008}
0x03078…03096               Head {h00=0x001a, h01=0x0050, text=»T:ATID EQU -4 TASK ID «, t00=0x001f, t01=0x0014}
0x03096…030b4               Head {h00=0x001a, h01=0x0050, text=»STKE EQU -2 STACK END «, t00=0x001f, t01=0x0032}
0x030b4…030d2               Head {h00=0x001a, h01=0x0050, text=»PA EQU 0 STACK POINTER«, t00=0x001f, t01=0x0050}
0x030d2…030f0               Head {h00=0x001a, h01=0x0050, text=»STKB EQU 2 STACK BASE «, t00=0x001f, t01=0x006e}
0x030f0…03116               Head {h00=0x0022, h01=0x0050, text=»WATFST EQU 4 FIRST WAT-ELEMENT«, t00=0x001f, t01=0x008c}
0x03116…03120               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00b2}
0x03120…03136               Head {h00=0x0012, h01=0x0050, text=»* DSCB-RECORD:«, t00=0x001f, t01=0x00bc}
0x03136…03158               Head {h00=0x001e, h01=0x0050, text=»DSCBL EQU 20 RECORD LENGTH«, t00=0x001f, t01=0x00d2}
0x03158…03178               Head {h00=0x001c, h01=0x0050, text=»BA EQU 2 BUFFER ADDRESS «, t00=0x001f, t01=0x00f4}
0x03178…03194               Head {h00=0x0018, h01=0x0050, text=»RL EQU 4 REQ. LENGTH«, t00=0x001f, t01=0x0114}
0x03194…031b0               Head {h00=0x0018, h01=0x0050, text=»EL EQU 6 EFF. LENGTH«, t00=0x001f, t01=0x0130}
0x031b0…031d6               Head {h00=0x0022, h01=0x0050, text=»BL EQU 14 LENGTH ITEM ADDRESS «, t00=0x001f, t01=0x014c}
0x031d6…031e4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0172}
0x031e4…031f0               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x001f, t01=0x0180}
0x031f0…031fc               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x001f, t01=0x018c}
0x031fc…0320e               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0020, t01=0x0008}
0x0320e…03220               Head {h00=0x000e, h01=0x0050, text=»*  T:D  * «, t00=0x0020, t01=0x001a}
0x03220…03232               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0020, t01=0x002c}
0x03232…0325e               Head {h00=0x0028, h01=0x0050, text=»FCD EQU 0 DISPLACEMENT TO FCB IN T:A«, t00=0x0020, t01=0x003e}
0x0325e…0328e               Head {h00=0x002c, h01=0x0050, text=»T:DTID EQU 2 TASK IDENTIFIER (PROTOTYPE)«, t00=0x0020, t01=0x006a}
0x0328e…032be               Head {h00=0x002c, h01=0x0050, text=»DATLEN EQU 4 NUMBER OF DATASETS (DSCB'S)«, t00=0x0020, t01=0x009a}
0x032be…032e8               Head {h00=0x0026, h01=0x0050, text=»WATLEN EQU 6 NUMBER OF WATELEMENTS«, t00=0x0020, t01=0x00ca}
0x032e8…0331c               Head {h00=0x0030, h01=0x0050, text=»TWBMSK EQU 8 MASK FOR TWB'S (ONE BIT/ENTRY) «, t00=0x0020, t01=0x00f4}
0x0331c…0334a               Head {h00=0x002a, h01=0x0050, text=»SWBMSK EQU 10 MASK FOR SWB'S      -"- «, t00=0x0020, t01=0x0128}
0x0334a…03378               Head {h00=0x002a, h01=0x0050, text=»CWBMSK EQU 12 MASK FOR CWB'S      -"- «, t00=0x0020, t01=0x0156}
0x03378…033a6               Head {h00=0x002a, h01=0x0050, text=»UWBMSK EQU 14 MASK FOR UWB'S      -"- «, t00=0x0020, t01=0x0184}
0x033a6…033d2               Head {h00=0x0028, h01=0x0050, text=»DWBFST EQU 16 FIRST WORD IN DBLK-TAB«, t00=0x0021, t01=0x0022}
0x033d2…033da               Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x004e}
0x033da…0340c               Head {h00=0x002e, h01=0x0050, text=»STPREC EQU 4 RECORD LENGTH OF START-POINTS«, t00=0x0021, t01=0x0056}
0x0340c…03414               Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0088}
0x03414…0341c               Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0090}
0x0341c…03434               Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0021, t01=0x0098}
0x03434…0344c               Head {h00=0x0014, h01=0x0050, text=»* SOP-HANDLING *«, t00=0x0021, t01=0x00b0}
0x0344c…03464               Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0021, t01=0x00c8}
0x03464…03486               Head {h00=0x001e, h01=0x0050, text=»SOP EQU /2E DEVICE ADDRESS«, t00=0x0021, t01=0x00e0}
0x03486…0348e               Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0102}
0x0348e…034ac               Head {h00=0x001a, h01=0x0050, text=»    LAMP CODE MEANING «, t00=0x0021, t01=0x010a}
0x034ac…034ca               Head {h00=0x001a, h01=0x0050, text=»    --------- ------- «, t00=0x0021, t01=0x0128}
0x034ca…034ec               Head {h00=0x001e, h01=0x0050, text=»LMP1 EQU /400 SYSLOAD RUNS«, t00=0x0021, t01=0x0146}
0x034ec…0350c               Head {h00=0x001c, h01=0x0050, text=»LMP2 EQU /200 READ ERROR«, t00=0x0021, t01=0x0168}
0x0350c…03532               Head {h00=0x0022, h01=0x0050, text=»LMP3 EQU /100 MEMORY OVERFLOW «, t00=0x0021, t01=0x0188}
0x03532…0355c               Head {h00=0x0026, h01=0x0050, text=»LMP4 EQU /80 FORMAT ERROR (CONFIG)«, t00=0x0022, t01=0x001e}
0x0355c…0357a               Head {h00=0x001a, h01=0x0050, text=»LMP5 EQU /40 TID ERROR«, t00=0x0022, t01=0x0048}
0x0357a…035a0               Head {h00=0x0022, h01=0x0050, text=»LMP6 EQU /20 UWB OR SWB ERROR «, t00=0x0022, t01=0x0066}
0x035a0…035c6               Head {h00=0x0022, h01=0x0050, text=»LMP7 EQU /10 MM-TABLE OVERFLOW«, t00=0x0022, t01=0x008c}
0x035c6…035d8               Head {h00=0x000e, h01=0x0050, text=»LMP8 EQU 8«, t00=0x0022, t01=0x00b2}
0x035d8…035ea               Head {h00=0x000e, h01=0x0050, text=»LMP9 EQU 4«, t00=0x0022, t01=0x00c4}
0x035ea…035fe               Head {h00=0x0010, h01=0x0050, text=»LMP10 EQU 2 «, t00=0x0022, t01=0x00d6}
0x035fe…03612               Head {h00=0x0010, h01=0x0050, text=»LMP11 EQU 1 «, t00=0x0022, t01=0x00ea}
0x03612…03620               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x00fe}
0x03620…0363e               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0022, t01=0x010c}
0x0363e…0365c               Head {h00=0x001a, h01=0x0050, text=»*  OTHER CONSTANTS  * «, t00=0x0022, t01=0x012a}
0x0365c…0367a               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0022, t01=0x0148}
0x0367a…03686               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0022, t01=0x0166}
0x03686…036b0               Head {h00=0x0026, h01=0x0050, text=»WBLEN EQU -4 LENGTH OF WORK-BLOCK «, t00=0x0022, t01=0x0172}
0x036b0…036e0               Head {h00=0x002c, h01=0x0050, text=»DTLEN EQU -2 LENGTH OF DESCRIPTOR-TABLE «, t00=0x0023, t01=0x000c}
0x036e0…0370a               Head {h00=0x0026, h01=0x0050, text=»SWBLEN EQU 4 DISP TO LENGTH OF SWB«, t00=0x0023, t01=0x003c}
0x0370a…03716               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0023, t01=0x0066}
0x03716…0373e               Head {h00=0x0024, h01=0x0050, text=»FCBDD1 EQU 8 DISP TO FIRST DSET «, t00=0x0023, t01=0x0072}
0x0373e…03766               Head {h00=0x0024, h01=0x0050, text=»FCBDD2 EQU 10 DISP TO 2:ND DSET «, t00=0x0023, t01=0x009a}
0x03766…03772               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0023, t01=0x00c2}
0x03772…0379a               Head {h00=0x0024, h01=0x0050, text=»STKSZ EQU 128 DEFAULT STACK-SIZE«, t00=0x0023, t01=0x00ce}
0x0379a…037a6               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0023, t01=0x00f6}
0x037a6…037d0               Head {h00=0x0026, h01=0x0050, text=»CREID EQU 2 CREDIT IDENTIFICATION «, t00=0x0023, t01=0x0102}
0x037d0…037fc               Head {h00=0x0028, h01=0x0050, text=»SEGREC EQU 6 RECORD LENGTH IN S:GTAB«, t00=0x0023, t01=0x012c}
0x037fc…03838               Head {h00=0x0038, h01=0x0050, text=»NUMSEG EQU 10 DISPL. TO NUMBER OF SEGMENTS IN S:GTAB«, t00=0x0023, t01=0x0158}
0x03838…03840 (36, 0, 400)  Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x0004}
0x03840…03860               Head {h00=0x001c, h01=0x0050, text=»TTBTID EQU 2 TID IN TTAB«, t00=0x0024, t01=0x000c}
0x03860…03892               Head {h00=0x002e, h01=0x0050, text=»T:DSAV EQU 0 SAVE FOR T:D-ADDRESS IN TTAB «, t00=0x0024, t01=0x002c}
0x03892…038c0               Head {h00=0x002a, h01=0x0050, text=»TTB:PP EQU 6 SAVE AREA FOR TCL IN TTAB«, t00=0x0024, t01=0x005e}
0x038c0…038c8               Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x008c}
0x038c8…038f4               Head {h00=0x0028, h01=0x0050, text=»NTPA EQU 4 INTERPRETER START ADDRESS«, t00=0x0024, t01=0x0094}
0x038f4…0391e               Head {h00=0x0026, h01=0x0050, text=»IHRTC EQU 4 RTC INTERRUPT ADDRESS «, t00=0x0024, t01=0x00c0}
0x0391e…03946               Head {h00=0x0024, h01=0x0050, text=»RTCDA EQU /1B RTC DEVICE ADDRESS«, t00=0x0024, t01=0x00ea}
0x03946…03952               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0024, t01=0x0112}
0x03952…0399c               Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0024, t01=0x011e}
0x0399c…039e6               Head {h00=0x0046, h01=0x0050, text=»*  CALL-FORMAT, PERFORMS:  CFR      A14,A13                     * «, t00=0x0024, t01=0x0168}
0x039e6…03a30               Head {h00=0x0046, h01=0x0050, text=»*                          DATA     [REL-ADDRESS]               * «, t00=0x0025, t01=0x0022}
0x03a30…03a7a               Head {h00=0x0046, h01=0x0050, text=»*                                                               * «, t00=0x0025, t01=0x006c}
0x03a7a…03ac4               Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0025, t01=0x00b6}
0x03ac4…03ad0               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0025, t01=0x0100}
0x03ad0…03adc               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0025, t01=0x010c}
0x03adc…03ae8               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0025, t01=0x0118}
0x03ae8…03b06               Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F697,16 «, t00=0x0025, t01=0x0124}
0x03b06…03b14               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0142}
0x03b14…03b20               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0025, t01=0x0150}
0x03b20…03b5a               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0025, t01=0x015c}
0x03b5a…03b94               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0026, t01=0x0008}
0x03b94…03bce               Head {h00=0x0036, h01=0x0050, text=»**                                              **«, t00=0x0026, t01=0x0042}
0x03bce…03c08               Head {h00=0x0036, h01=0x0050, text=»**  RELOCATION ROUTINE & STACK INITIALLISATION  **«, t00=0x0026, t01=0x007c}
0x03c08…03c42               Head {h00=0x0036, h01=0x0050, text=»**                                              **«, t00=0x0026, t01=0x00b6}
0x03c42…03c7c               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0026, t01=0x00f0}
0x03c7c…03cb6               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0026, t01=0x012a}
0x03cb6…03cc2               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0026, t01=0x0164}
0x03cc2…03cf2               Head {h00=0x002c, h01=0x0050, text=»REL RF SUBBA JUMP TO SUBROUTINE HANDLER «, t00=0x0026, t01=0x0170}
0x03cf2…03d1c               Head {h00=0x0026, h01=0x0050, text=» LDR A13,P GET BASE ADDRESS TO A13«, t00=0x0027, t01=0x0010}
0x03d1c…03d30               Head {h00=0x0010, h01=0x0050, text=» SUKL A13,4 «, t00=0x0027, t01=0x003a}
0x03d30…03d52               Head {h00=0x001e, h01=0x0050, text=»* ADJUST FOR PSW-ROUTINE *«, t00=0x0027, t01=0x004e}
0x03d52…03d74               Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0027, t01=0x0070}
0x03d74…03dac               Head {h00=0x0034, h01=0x0050, text=» LDK A3,GETPSW RELATIVE ADDRESS TO 'PSW-ADDRESS'«, t00=0x0027, t01=0x0092}
0x03dac…03dcc               Head {h00=0x001c, h01=0x0050, text=» ADR A3,A13 ABSOLUT DITO«, t00=0x0027, t01=0x00ca}
0x03dcc…03e04               Head {h00=0x0034, h01=0x0050, text=» ST A3,PSW,A13 STORE ADDRESS TO 'GETPSW'-ROUTINE«, t00=0x0027, t01=0x00ea}
0x03e04…03e1e               Head {h00=0x0016, h01=0x0050, text=»* LOAD STACKBASE *«, t00=0x0027, t01=0x0122}
0x03e1e…03e38               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0027, t01=0x013c}
0x03e38…03e40               Head {h00=0x0004, h01=0x0050, t00=0x0027, t01=0x0156}
0x03e40…03e58               Head {h00=0x0014, h01=0x0050, text=» LDKL A14,STACKB«, t00=0x0027, t01=0x015e}
0x03e58…03e76               Head {h00=0x001a, h01=0x0050, text=» ADR A14,A13 RELOCATE «, t00=0x0027, t01=0x0176}
0x03e76…03e86 (40, 0, 400)  Head {h00=0x000c, h01=0x0050, text=» RTN A8 «, t00=0x0028, t01=0x0004}
0x03e86…03e92               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0028, t01=0x0014}
0x03e92…03e9e               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0028, t01=0x0020}
0x03e9e…03eb0               Head {h00=0x000e, h01=0x0050, text=»* STACK * «, t00=0x0028, t01=0x002c}
0x03eb0…03ec2               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0028, t01=0x003e}
0x03ec2…03ecc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0050}
0x03ecc…03edc               Head {h00=0x000c, h01=0x0050, text=» RES 12 «, t00=0x0028, t01=0x005a}
0x03edc…03ef6               Head {h00=0x0016, h01=0x0050, text=»STACKB EQU *-REL-2«, t00=0x0028, t01=0x006a}
0x03ef6…03f04               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0084}
0x03f04…03f10               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0028, t01=0x0092}
0x03f10…03f1c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0028, t01=0x009e}
0x03f1c…03f3e               Head {h00=0x001e, h01=0x0050, text=»* ADDRESS TO PSW-ROUTINE *«, t00=0x0028, t01=0x00aa}
0x03f3e…03f60               Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0028, t01=0x00cc}
0x03f60…03f6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00ee}
0x03f6a…03f80               Head {h00=0x0012, h01=0x0050, text=»PSW EQU *-REL «, t00=0x0028, t01=0x00f8}
0x03f80…03f94               Head {h00=0x0010, h01=0x0050, text=» DATA GETPSW«, t00=0x0028, t01=0x010e}
0x03f94…03fa0               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0028, t01=0x0122}
0x03fa0…03fe8               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0028, t01=0x012e}
0x03fe8…04030               Head {h00=0x0044, h01=0x0050, text=»*                        G E T P S W                           *«, t00=0x0028, t01=0x0176}
0x04030…04078               Head {h00=0x0044, h01=0x0050, text=»* LITTLE SUBROUTINE TO PUT PSW IN STACK FOR CALLING SUBROUTINE *«, t00=0x0029, t01=0x002e}
0x04078…040c0               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0029, t01=0x0076}
0x040c0…040cc               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0029, t01=0x00be}
0x040cc…040e4               Head {h00=0x0014, h01=0x0050, text=»GETPSW EQU *-REL«, t00=0x0029, t01=0x00ca}
0x040e4…0410c               Head {h00=0x0024, h01=0x0050, text=» STR A2,A14 SAVE A2 ON A14-STACK«, t00=0x0029, t01=0x00e2}
0x0410c…04140               Head {h00=0x0030, h01=0x0050, text=» LD A2,2,A14 GET PSW FROM CALLING SUBROUTINE«, t00=0x0029, t01=0x010a}
0x04140…04172               Head {h00=0x002e, h01=0x0050, text=» ST A2,6,A14 REPLACE PSW FROM MAIN PROGRAM«, t00=0x0029, t01=0x013e}
0x04172…04192               Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A14 RESTORE A2 «, t00=0x0029, t01=0x0170}
0x04192…041a2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x0190}
0x041a2…041b0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0010}
0x041b0…041b8               Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x001e}
0x041b8…041e2               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x002a, t01=0x0026}
0x041e2…0420c               Head {h00=0x0026, h01=0x0050, text=»*                               * «, t00=0x002a, t01=0x0050}
0x0420c…04236               Head {h00=0x0026, h01=0x0050, text=»*  SUBROUTINE-HANDLER           * «, t00=0x002a, t01=0x007a}
0x04236…04260               Head {h00=0x0026, h01=0x0050, text=»*                               * «, t00=0x002a, t01=0x00a4}
0x04260…0428a               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x002a, t01=0x00ce}
0x0428a…04292               Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x00f8}
0x04292…042aa               Head {h00=0x0014, h01=0x0050, text=»SUBSUB EQU *-REL«, t00=0x002a, t01=0x0100}
0x042aa…042d0               Head {h00=0x0022, h01=0x0050, text=»SUBBA ST A10,MUL,A13 SAVE A10 «, t00=0x002a, t01=0x0118}
0x042d0…04302               Head {h00=0x002e, h01=0x0050, text=» LD* A10,4,A14 GET SUBROUTINE REL ADDRESS «, t00=0x002a, t01=0x013e}
0x04302…0432a               Head {h00=0x0024, h01=0x0050, text=» IM 4,A14 ADJUST RETURN ADDRESS «, t00=0x002a, t01=0x0170}
0x0432a…0433c               Head {h00=0x000e, h01=0x0050, text=» IM 4,A14 «, t00=0x002b, t01=0x0008}
0x0433c…04370               Head {h00=0x0030, h01=0x0050, text=» AD A10,M:REL,A13 ADD FOR SYSLDM RELOCATION «, t00=0x002b, t01=0x001a}
0x04370…04392               Head {h00=0x001e, h01=0x0050, text=» STR A10,A14 PUT ON STACK «, t00=0x002b, t01=0x004e}
0x04392…043b6               Head {h00=0x0020, h01=0x0050, text=» LD A10,MUL,A13 RESTORE A10 «, t00=0x002b, t01=0x0070}
0x043b6…043c8               Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x002b, t01=0x0094}
0x043c8…043d0               Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x00a6}
0x043d0…043d8               Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x00ae}
0x043d8…043e0               Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x00b6}
0x043e0…04420               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002b, t01=0x00be}
0x04420…04460               Head {h00=0x003c, h01=0x0050, text=»* JUMP TO SYSLDM (FROM SYSLOD) ALWAYS VIA THIS MODULE * «, t00=0x002b, t01=0x00fe}
0x04460…044a0               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002b, t01=0x013e}
0x044a0…044a8               Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x017e}
0x044a8…044c0               Head {h00=0x0014, h01=0x0050, text=»JUMP ABL SYSLDM «, t00=0x002b, t01=0x0186}
0x044c0…044ce               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x000e}
0x044ce…044da               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x002c, t01=0x001c}
0x044da…04506               Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x002c, t01=0x0028}
0x04506…04532               Head {h00=0x0028, h01=0x0050, text=»**                                **«, t00=0x002c, t01=0x0054}
0x04532…0455e               Head {h00=0x0028, h01=0x0050, text=»**  SAVE, AND COMMUNICATION AREA  **«, t00=0x002c, t01=0x0080}
0x0455e…0458a               Head {h00=0x0028, h01=0x0050, text=»**                                **«, t00=0x002c, t01=0x00ac}
0x0458a…045b6               Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x002c, t01=0x00d8}
0x045b6…045c2               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x002c, t01=0x0104}
0x045c2…045f0               Head {h00=0x002a, h01=0x0050, text=»T:ATOD EQU *-REL T:ATAB 'OLD' ADDRESS «, t00=0x002c, t01=0x0110}
0x045f0…04600               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002c, t01=0x013e}
0x04600…0462e               Head {h00=0x002a, h01=0x0050, text=»T:ATNW EQU *-REL T:ATAB 'NEW' ADDRESS «, t00=0x002c, t01=0x014e}
0x0462e…0463e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002c, t01=0x017c}
0x0463e…0466a               Head {h00=0x0028, h01=0x0050, text=»U:BTOD EQU *-REL U:BTAB OLD ADDRESS «, t00=0x002c, t01=0x018c}
0x0466a…0467a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x0028}
0x0467a…046a6               Head {h00=0x0028, h01=0x0050, text=»U:BTNW EQU *-REL U:BTAB NEW ADDRESS «, t00=0x002d, t01=0x0038}
0x046a6…046b6               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x0064}
0x046b6…046e2               Head {h00=0x0028, h01=0x0050, text=»S:BTOD EQU *-REL S:BTAB OLD ADDRESS «, t00=0x002d, t01=0x0074}
0x046e2…046f2               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x00a0}
0x046f2…0471e               Head {h00=0x0028, h01=0x0050, text=»S:BTNW EQU *-REL S:BTAB NEW ADDRESS «, t00=0x002d, t01=0x00b0}
0x0471e…0472e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x00dc}
0x0472e…04760               Head {h00=0x002e, h01=0x0050, text=»MOVADD EQU *-REL ADDRESS-CHANGE AFTER MOVE«, t00=0x002d, t01=0x00ec}
0x04760…04770               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x011e}
0x04770…047a8               Head {h00=0x0034, h01=0x0050, text=»MOVED EQU *-REL INDICATOR IF BLOCK ALREDY MOVED «, t00=0x002d, t01=0x012e}
0x047a8…047b8               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x0166}
0x047b8…047e6               Head {h00=0x002a, h01=0x0050, text=»ENDADD EQU *-REL END-ADDRESS INDICATOR«, t00=0x002d, t01=0x0176}
0x047e6…04804               Head {h00=0x001a, h01=0x0050, text=»   FOR TABLE-SCANNING «, t00=0x002e, t01=0x0014}
0x04804…04814               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x0032}
0x04814…04852               Head {h00=0x003a, h01=0x0050, text=»LSTADR EQU *-REL LAST ADDRESS WHEN BUILDING DATA PART «, t00=0x002e, t01=0x0042}
0x04852…04862               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x0080}
0x04862…048a6               Head {h00=0x0040, h01=0x0050, text=»FSTADR EQU *-REL FIRST FREE ADDRESS WHEN ALLOCATING BUFFERS «, t00=0x002e, t01=0x0090}
0x048a6…048b6               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x00d4}
0x048b6…048e4               Head {h00=0x002a, h01=0x0050, text=»NEWAD1 EQU *-REL SAVE FOR W.B. ADDRESS«, t00=0x002e, t01=0x00e4}
0x048e4…048f4               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x0112}
0x048f4…04922               Head {h00=0x002a, h01=0x0050, text=»NEWAD2 EQU *-REL SAVE FORD.T. ADDRESS «, t00=0x002e, t01=0x0122}
0x04922…04932               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x0150}
0x04932…0495a               Head {h00=0x0024, h01=0x0050, text=»SWITCH EQU *-REL D.T. INDICATOR «, t00=0x002e, t01=0x0160}
0x0495a…0496a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x0188}
0x0496a…049a4               Head {h00=0x0036, h01=0x0050, text=»FLAG EQU *-REL REAL TASK DATA PROCESSING INDICATOR«, t00=0x002f, t01=0x0008}
0x049a4…049b4               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x0042}
0x049b4…049da               Head {h00=0x0022, h01=0x0050, text=»UWB EQU *-REL U.W.B. INDICATOR«, t00=0x002f, t01=0x0052}
0x049da…049ea               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x0078}
0x049ea…04a14               Head {h00=0x0026, h01=0x0050, text=»APPTYP EQU *-REL APPLICATION TYPE «, t00=0x002f, t01=0x0088}
0x04a14…04a24               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x00b2}
0x04a24…04a4c               Head {h00=0x0024, h01=0x0050, text=»SAVE01 EQU *-REL TEMPORARY SAVE «, t00=0x002f, t01=0x00c2}
0x04a4c…04a5c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x00ea}
0x04a5c…04a74               Head {h00=0x0014, h01=0x0050, text=»SAVE02 EQU *-REL«, t00=0x002f, t01=0x00fa}
0x04a74…04a84               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x0112}
0x04a84…04a9c               Head {h00=0x0014, h01=0x0050, text=»SAVE03 EQU *-REL«, t00=0x002f, t01=0x0122}
0x04a9c…04aac               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x013a}
0x04aac…04ac4               Head {h00=0x0014, h01=0x0050, text=»SAVE04 EQU *-REL«, t00=0x002f, t01=0x014a}
0x04ac4…04ad4               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x0162}
0x04ad4…04aec               Head {h00=0x0014, h01=0x0050, text=»SAVE05 EQU *-REL«, t00=0x002f, t01=0x0172}
0x04aec…04afc               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x018a}
0x04afc…04b14               Head {h00=0x0014, h01=0x0050, text=»SAVE06 EQU *-REL«, t00=0x0030, t01=0x000a}
0x04b14…04b24               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0022}
0x04b24…04b3c               Head {h00=0x0014, h01=0x0050, text=»SAVE07 EQU *-REL«, t00=0x0030, t01=0x0032}
0x04b3c…04b4c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x004a}
0x04b4c…04b64               Head {h00=0x0014, h01=0x0050, text=»SAVE08 EQU *-REL«, t00=0x0030, t01=0x005a}
0x04b64…04b74               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0072}
0x04b74…04b98               Head {h00=0x0020, h01=0x0050, text=»SAVE09 EQU *-REL SAVE AREAS «, t00=0x0030, t01=0x0082}
0x04b98…04ba8               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x00a6}
0x04ba8…04bc0               Head {h00=0x0014, h01=0x0050, text=»SAVE10 EQU *-REL«, t00=0x0030, t01=0x00b6}
0x04bc0…04bd0               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x00ce}
0x04bd0…04be8               Head {h00=0x0014, h01=0x0050, text=»SAVE11 EQU *-REL«, t00=0x0030, t01=0x00de}
0x04be8…04bf8               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x00f6}
0x04bf8…04c10               Head {h00=0x0014, h01=0x0050, text=»SAVE12 EQU *-REL«, t00=0x0030, t01=0x0106}
0x04c10…04c20               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x011e}
0x04c20…04c38               Head {h00=0x0014, h01=0x0050, text=»SAVE13 EQU *-REL«, t00=0x0030, t01=0x012e}
0x04c38…04c48               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0146}
0x04c48…04c60               Head {h00=0x0014, h01=0x0050, text=»SAVE22 EQU *-REL«, t00=0x0030, t01=0x0156}
0x04c60…04c70               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x016e}
0x04c70…04c88               Head {h00=0x0014, h01=0x0050, text=»SAVE25 EQU *-REL«, t00=0x0030, t01=0x017e}
0x04c88…04c98               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x0008}
0x04c98…04cb0               Head {h00=0x0014, h01=0x0050, text=»SAVE26 EQU *-REL«, t00=0x0031, t01=0x0018}
0x04cb0…04cc0               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x0030}
0x04cc0…04cd8               Head {h00=0x0014, h01=0x0050, text=»SAVE27 EQU *-REL«, t00=0x0031, t01=0x0040}
0x04cd8…04ce8               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x0058}
0x04ce8…04d00               Head {h00=0x0014, h01=0x0050, text=»SAVE28 EQU *-REL«, t00=0x0031, t01=0x0068}
0x04d00…04d10               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x0080}
0x04d10…04d28               Head {h00=0x0014, h01=0x0050, text=»SAVE29 EQU *-REL«, t00=0x0031, t01=0x0090}
0x04d28…04d38               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x00a8}
0x04d38…04d50               Head {h00=0x0014, h01=0x0050, text=»SAVE30 EQU *-REL«, t00=0x0031, t01=0x00b8}
0x04d50…04d60               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x00d0}
0x04d60…04d8a               Head {h00=0x0026, h01=0x0050, text=»WBADD EQU *-REL W.B.-ADDRESS SAVE «, t00=0x0031, t01=0x00e0}
0x04d8a…04d9a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x010a}
0x04d9a…04dc8               Head {h00=0x002a, h01=0x0050, text=»MUL EQU *-REL MULTIPLICATION REGISTER «, t00=0x0031, t01=0x011a}
0x04dc8…04dd8               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x0148}
0x04dd8…04e02               Head {h00=0x0026, h01=0x0050, text=»BIT EQU *-REL SAVE FOR SUPER-LOOP «, t00=0x0031, t01=0x0158}
0x04e02…04e12               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x0182}
0x04e12…04e4e (50, 0, 400)  Head {h00=0x0038, h01=0x0050, text=»TADISP EQU *-REL DISPLACEMENT IN T:A TO W.B. ADDRESS«, t00=0x0032, t01=0x0004}
0x04e4e…04e5e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x0040}
0x04e5e…04e8c               Head {h00=0x002a, h01=0x0050, text=»DATEND EQU *-REL END OF DDIV PROTOTYPE«, t00=0x0032, t01=0x0050}
0x04e8c…04e9c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x007e}
0x04e9c…04ec8               Head {h00=0x0028, h01=0x0050, text=»MMREL1 EQU *-REL PHYSICALL PAGE BASE«, t00=0x0032, t01=0x008e}
0x04ec8…04ed8               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x00ba}
0x04ed8…04f06               Head {h00=0x002a, h01=0x0050, text=»M:REL EQU *-REL RELOCATION FOR SYSLDM «, t00=0x0032, t01=0x00ca}
0x04f06…04f16               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x00f8}
0x04f16…04f2e               Head {h00=0x0014, h01=0x0050, text=»SYSBUF EQU *-REL«, t00=0x0032, t01=0x0108}
0x04f2e…04f5c               Head {h00=0x002a, h01=0x0050, text=» DATA 0 TEMPORARY BUFFER START ADDRESS«, t00=0x0032, t01=0x0120}
0x04f5c…04f86               Head {h00=0x0026, h01=0x0050, text=»BUFSIZ EQU *-REL TEMP. BUFFER SIZE«, t00=0x0032, t01=0x014e}
0x04f86…04f96               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x0178}
0x04f96…04fbc               Head {h00=0x0022, h01=0x0050, text=»MMTO EQU *-REL MMTABLE ADDRESS«, t00=0x0032, t01=0x0188}
0x04fbc…04fcc               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0033, t01=0x001e}
0x04fcc…04ffa               Head {h00=0x002a, h01=0x0050, text=»MMFROM EQU *-REL 2:ND MMTABLE ADDRESS «, t00=0x0033, t01=0x002e}
0x04ffa…0500a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0033, t01=0x005c}
0x0500a…0503e               Head {h00=0x0030, h01=0x0050, text=»FYSPAG EQU *-REL LAST PHYSICALLY PAGE NUMBER«, t00=0x0033, t01=0x006c}
0x0503e…0504e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0033, t01=0x00a0}
0x0504e…05066               Head {h00=0x0014, h01=0x0050, text=»FSTPAG EQU *-REL«, t00=0x0033, t01=0x00b0}
0x05066…05092               Head {h00=0x0028, h01=0x0050, text=» DATA 0 FIRST FREE PAGE (PHYSICALL) «, t00=0x0033, t01=0x00c8}
0x05092…050be               Head {h00=0x0028, h01=0x0050, text=»TTAB EQU *-REL CORRENT TTAB ADDRESS «, t00=0x0033, t01=0x00f4}
0x050be…050ce               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0033, t01=0x0120}
0x050ce…050e6               Head {h00=0x0014, h01=0x0050, text=»XMSAV EQU *-REL «, t00=0x0033, t01=0x0130}
0x050e6…050f8               Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0033, t01=0x0148}
0x050f8…05110               Head {h00=0x0014, h01=0x0050, text=»LDALEN EQU *-REL«, t00=0x0033, t01=0x015a}
0x05110…05138               Head {h00=0x0024, h01=0x0050, text=» DATA LDAEND-REL PROGRAM LENGTH «, t00=0x0033, t01=0x0172}
0x05138…05140               Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x000a}
0x05140…05148               Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x0012}
0x05148…05150               Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x001a}
0x05150…0517a               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0034, t01=0x0022}
0x0517a…051a4               Head {h00=0x0026, h01=0x0050, text=»* EQUATES FOR SYSLDM SAVE-WORDS * «, t00=0x0034, t01=0x004c}
0x051a4…051ce               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0034, t01=0x0076}
0x051ce…051d6               Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x00a0}
0x051d6…051f0               Head {h00=0x0016, h01=0x0050, text=»SAVE14 EQU U:BTOD «, t00=0x0034, t01=0x00a8}
0x051f0…0520a               Head {h00=0x0016, h01=0x0050, text=»SAVE15 EQU U:BTNW «, t00=0x0034, t01=0x00c2}
0x0520a…05224               Head {h00=0x0016, h01=0x0050, text=»SAVE16 EQU MOVADD «, t00=0x0034, t01=0x00dc}
0x05224…0523e               Head {h00=0x0016, h01=0x0050, text=»SAVE17 EQU ENDADD «, t00=0x0034, t01=0x00f6}
0x0523e…05258               Head {h00=0x0016, h01=0x0050, text=»SAVE18 EQU LSTADR «, t00=0x0034, t01=0x0110}
0x05258…05272               Head {h00=0x0016, h01=0x0050, text=»SAVE19 EQU FSTADR «, t00=0x0034, t01=0x012a}
0x05272…0528a               Head {h00=0x0014, h01=0x0050, text=»SAVE20 EQU MOVED«, t00=0x0034, t01=0x0144}
0x0528a…052a4               Head {h00=0x0016, h01=0x0050, text=»SAVE21 EQU NEWAD1 «, t00=0x0034, t01=0x015c}
0x052a4…052be               Head {h00=0x0016, h01=0x0050, text=»SAVE23 EQU SWITCH «, t00=0x0034, t01=0x0176}
0x052be…052d6               Head {h00=0x0014, h01=0x0050, text=»SAVE24 EQU FLAG «, t00=0x0034, t01=0x0190}
0x052d6…052e4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x0018}
0x052e4…052ec               Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x0026}
0x052ec…05302               Head {h00=0x0012, h01=0x0050, text=»* MMU TABLES *«, t00=0x0035, t01=0x002e}
0x05302…0530a               Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x0044}
0x0530a…05312               Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x004c}
0x05312…05344               Head {h00=0x002e, h01=0x0050, text=»MMDDIV EQU *-REL DDIV (& SYSLDA) MM-TABLE «, t00=0x0035, t01=0x0054}
0x05344…0535a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0035, t01=0x0086}
0x0535a…0536a               Head {h00=0x000c, h01=0x0050, text=» RES 16 «, t00=0x0035, t01=0x009c}
0x0536a…05376               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x00ac}
0x05376…0537e               Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x00b8}
0x0537e…053a6               Head {h00=0x0024, h01=0x0050, text=»MMTAB EQU *-REL WORK AREA MM-TAB«, t00=0x0035, t01=0x00c0}
0x053a6…053ba               Head {h00=0x0010, h01=0x0050, text=»TABBE EQU * «, t00=0x0035, t01=0x00e8}
0x053ba…053d0               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0035, t01=0x00fc}
0x053d0…053ee               Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0035, t01=0x0112}
0x053ee…0540c               Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0035, t01=0x0130}
0x0540c…05418               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x014e}
0x05418…0542c               Head {h00=0x0010, h01=0x0050, text=»MMEND EQU * «, t00=0x0035, t01=0x015a}
0x0542c…05458               Head {h00=0x0028, h01=0x0050, text=» DATA 0 CURRENT SEGMENT BASE IN T:A «, t00=0x0035, t01=0x016e}
0x05458…05490               Head {h00=0x0034, h01=0x0050, text=»TTPAG DATA 0 LAST ENTRY (FROM BOTTOM) IN MM-TAB «, t00=0x0036, t01=0x000a}
0x05490…054c4               Head {h00=0x0030, h01=0x0050, text=»LSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER'«, t00=0x0036, t01=0x0042}
0x054c4…054d4               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0036, t01=0x0076}
0x054d4…054dc               Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x0086}
0x054dc…054f6               Head {h00=0x0016, h01=0x0050, text=»MMBEG EQU TABBE-* «, t00=0x0036, t01=0x008e}
0x054f6…05504               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x00a8}
0x05504…05510               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0036, t01=0x00b6}
0x05510…0554a               Head {h00=0x0036, h01=0x0050, text=»***                                           *** «, t00=0x0036, t01=0x00c2}
0x0554a…05584               Head {h00=0x0036, h01=0x0050, text=»***      S  U  B  R  O  U  T  I  N  E  S      *** «, t00=0x0036, t01=0x00fc}
0x05584…055be               Head {h00=0x0036, h01=0x0050, text=»***  -COMMON TO ALL PARTS IN PROGRAM          *** «, t00=0x0036, t01=0x0136}
0x055be…055f8               Head {h00=0x0036, h01=0x0050, text=»***                                           *** «, t00=0x0036, t01=0x0170}
0x055f8…05632               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0037, t01=0x001a}
0x05632…0566c               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0037, t01=0x0054}
0x0566c…05678               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0037, t01=0x008e}
0x05678…05684               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0037, t01=0x009a}
0x05684…056b4               Head {h00=0x002c, h01=0x0050, text=»**              E R R O R             **«, t00=0x0037, t01=0x00a6}
0x056b4…056e4               Head {h00=0x002c, h01=0x0050, text=»**                                    **«, t00=0x0037, t01=0x00d6}
0x056e4…05714               Head {h00=0x002c, h01=0x0050, text=»**                                    **«, t00=0x0037, t01=0x0106}
0x05714…05744               Head {h00=0x002c, h01=0x0050, text=»**  ERROR HANDLING ROUTINE.           **«, t00=0x0037, t01=0x0136}
0x05744…05774               Head {h00=0x002c, h01=0x0050, text=»**                                    **«, t00=0x0037, t01=0x0166}
0x05774…057a4               Head {h00=0x002c, h01=0x0050, text=»**  INPUT :A1=SOP-MESSAGE             **«, t00=0x0038, t01=0x0008}
0x057a4…057d4               Head {h00=0x002c, h01=0x0050, text=»**  OUTPUT:A2=RELATIVE CALLING ADDRESS**«, t00=0x0038, t01=0x0038}
0x057d4…05804               Head {h00=0x002c, h01=0x0050, text=»**            (REG-CONTENTS IS SAVED) **«, t00=0x0038, t01=0x0068}
0x05804…05834               Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0038, t01=0x0098}
0x05834…0583c               Head {h00=0x0004, h01=0x0050, t00=0x0038, t01=0x00c8}
0x0583c…05850               Head {h00=0x0010, h01=0x0050, text=»ERROR EQU * «, t00=0x0038, t01=0x00d0}
0x05850…05872               Head {h00=0x001e, h01=0x0050, text=» ST A2,SAVE01,A13 SAVE A2 «, t00=0x0038, t01=0x00e4}
0x05872…058a4               Head {h00=0x002e, h01=0x0050, text=» LD A2,4,A14 GET CALLING ABSOLUTE ADDRESS «, t00=0x0038, t01=0x0106}
0x058a4…058c6               Head {h00=0x001e, h01=0x0050, text=» SUR A2,A13 RELATIVE DITO «, t00=0x0038, t01=0x0138}
0x058c6…058dc               Head {h00=0x0012, h01=0x0050, text=» OTR A1,0,SOP «, t00=0x0038, t01=0x015a}
0x058dc…058e8               Head {h00=0x0008, h01=0x0050, text=» HLT«, t00=0x0038, t01=0x0170}
0x058e8…0590e               Head {h00=0x0022, h01=0x0050, text=» DATA /6300 (DEBUGGING PURPOS)«, t00=0x0038, t01=0x017c}
0x0590e…0591c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x0012}
0x0591c…05924               Head {h00=0x0004, h01=0x0050, t00=0x0039, t01=0x0020}
0x05924…0594e               Head {h00=0x0026, h01=0x0050, text=»**         M O V E             ** «, t00=0x0039, t01=0x0028}
0x0594e…05978               Head {h00=0x0026, h01=0x0050, text=»**                             ** «, t00=0x0039, t01=0x0052}
0x05978…059a2               Head {h00=0x0026, h01=0x0050, text=»**                             ** «, t00=0x0039, t01=0x007c}
0x059a2…059cc               Head {h00=0x0026, h01=0x0050, text=»**  MOVE  BLOCKS INSIDE MEMORY ** «, t00=0x0039, t01=0x00a6}
0x059cc…059f6               Head {h00=0x0026, h01=0x0050, text=»**                             ** «, t00=0x0039, t01=0x00d0}
0x059f6…05a20               Head {h00=0x0026, h01=0x0050, text=»**  INPUT:A1=FROM-ADDRESS      ** «, t00=0x0039, t01=0x00fa}
0x05a20…05a4a               Head {h00=0x0026, h01=0x0050, text=»**        A2=TO-ADDRESS        ** «, t00=0x0039, t01=0x0124}
0x05a4a…05a74               Head {h00=0x0026, h01=0x0050, text=»**        A3=LENGTH            ** «, t00=0x0039, t01=0x014e}
0x05a74…05a9e               Head {h00=0x0026, h01=0x0050, text=»** OUTPUT:A3=-1                ** «, t00=0x0039, t01=0x0178}
0x05a9e…05ac8               Head {h00=0x0026, h01=0x0050, text=»**  WORK-REG: A4               ** «, t00=0x003a, t01=0x0012}
0x05ac8…05af2               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x003a, t01=0x003c}
0x05af2…05afe               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x003a, t01=0x0066}
0x05afe…05b10               Head {h00=0x000e, h01=0x0050, text=»MOVE EQU *«, t00=0x003a, t01=0x0072}
0x05b10…05b38               Head {h00=0x0024, h01=0x0050, text=»MOVES ADR A1,A3 END OF FROM AREA«, t00=0x003a, t01=0x0084}
0x05b38…05b5a               Head {h00=0x001e, h01=0x0050, text=» ADR A2,A3 END OF TO-AREA «, t00=0x003a, t01=0x00ac}
0x05b5a…05b84               Head {h00=0x0026, h01=0x0050, text=» LD A4,SCTEFA GET END OF FREE AREA«, t00=0x003a, t01=0x00ce}
0x05b84…05ba2               Head {h00=0x001a, h01=0x0050, text=» TNM A2,A4 SIGN EQUAL?«, t00=0x003a, t01=0x00f8}
0x05ba2…05bbc               Head {h00=0x0016, h01=0x0050, text=» RF(NN) MOVNN YES «, t00=0x003a, t01=0x0116}
0x05bbc…05be8               Head {h00=0x0028, h01=0x0050, text=» CWR A4,A2 COMPARE WHEN UNEQUAL SIGN«, t00=0x003a, t01=0x0130}
0x05be8…05bfa               Head {h00=0x000e, h01=0x0050, text=» RF MOVCK «, t00=0x003a, t01=0x015c}
0x05bfa…05c2a               Head {h00=0x002c, h01=0x0050, text=»MOVNN CWR A2,A4 COMPARE WHEN EQUAL SIGN «, t00=0x003a, t01=0x016e}
0x05c2a…05c66               Head {h00=0x0038, h01=0x0050, text=»MOVCK RF(NG) MOVE10 END OF TO-AREA<=END OF FREE AREA«, t00=0x003b, t01=0x000e}
0x05c66…05c94               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW«, t00=0x003b, t01=0x004a}
0x05c94…05ca8               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x003b, t01=0x0078}
0x05ca8…05cca               Head {h00=0x001e, h01=0x0050, text=»MOVE10 SUK A3,1 DEC LENGTH«, t00=0x003b, t01=0x008c}
0x05cca…05ce8               Head {h00=0x001a, h01=0x0050, text=» RF(N) MOVE20 ALL DONE«, t00=0x003b, t01=0x00ae}
0x05ce8…05cfa               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x003b, t01=0x00cc}
0x05cfa…05d0c               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x003b, t01=0x00de}
0x05d0c…05d2c               Head {h00=0x001c, h01=0x0050, text=» LCR A4,A1 GET CHARACTER«, t00=0x003b, t01=0x00f0}
0x05d2c…05d4e               Head {h00=0x001e, h01=0x0050, text=» SCR A4,A2 STORE CHARACTER«, t00=0x003b, t01=0x0110}
0x05d4e…05d60               Head {h00=0x000e, h01=0x0050, text=» RB MOVE10«, t00=0x003b, t01=0x0132}
0x05d60…05d76               Head {h00=0x0012, h01=0x0050, text=»MOVE20 RTN A14«, t00=0x003b, t01=0x0144}
0x05d76…05d92               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x003b, t01=0x015a}
0x05d92…05da0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x0176}
0x05da0…05dac               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x003b, t01=0x0184}
0x05dac…05db8               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x003b, t01=0x0190}
0x05db8…05df0               Head {h00=0x0034, h01=0x0050, text=»**                M O V I N G                ** «, t00=0x003c, t01=0x000c}
0x05df0…05e28               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x003c, t01=0x0044}
0x05e28…05e60               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x003c, t01=0x007c}
0x05e60…05e98               Head {h00=0x0034, h01=0x0050, text=»**  USES ROUTINE 'MOVE' ABOVE. TO-ADDRESS IS ** «, t00=0x003c, t01=0x00b4}
0x05e98…05ed0               Head {h00=0x0034, h01=0x0050, text=»**  ASSUMED TO BE DATA-PART OF MEMORY        ** «, t00=0x003c, t01=0x00ec}
0x05ed0…05f08               Head {h00=0x0034, h01=0x0050, text=»**  LSTADR POINTS AT LAST (HIGHEST) FREE     ** «, t00=0x003c, t01=0x0124}
0x05f08…05f40               Head {h00=0x0034, h01=0x0050, text=»**  ADDRESS. LSTADR IS UPDATED AND CHECKED   ** «, t00=0x003c, t01=0x015c}
0x05f40…05f78 (61, 0, 400)  Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x003d, t01=0x0004}
0x05f78…05fb0               Head {h00=0x0034, h01=0x0050, text=»**  INPUT:A3 & A1 AS IN 'MOVE'               ** «, t00=0x003d, t01=0x003c}
0x05fb0…05fe8               Head {h00=0x0034, h01=0x0050, text=»**  OUTPUT: A2=TO-ADDRESS (LSTADR UPDATED)   ** «, t00=0x003d, t01=0x0074}
0x05fe8…06020               Head {h00=0x0034, h01=0x0050, text=»**  WORK-REG: A4                             ** «, t00=0x003d, t01=0x00ac}
0x06020…06058               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x003d, t01=0x00e4}
0x06058…06064               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x003d, t01=0x011c}
0x06064…06078               Head {h00=0x0010, h01=0x0050, text=»MOVING EQU *«, t00=0x003d, t01=0x0128}
0x06078…060a2               Head {h00=0x0026, h01=0x0050, text=» LD A2,LSTADR,A13 GET LAST ADDRESS«, t00=0x003d, t01=0x013c}
0x060a2…060c0               Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 SUB LENGTH «, t00=0x003d, t01=0x0166}
0x060c0…060e8               Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN ADDRESS«, t00=0x003d, t01=0x0184}
0x060e8…0610c               Head {h00=0x0020, h01=0x0050, text=» ST A11,SAVE01,A13 SAVE A11 «, t00=0x003e, t01=0x001c}
0x0610c…0612e               Head {h00=0x001e, h01=0x0050, text=» ST A9,SAVE12,A13 SAVE A9 «, t00=0x003e, t01=0x0040}
0x0612e…06142               Head {h00=0x0010, h01=0x0050, text=» LDR A11,A2 «, t00=0x003e, t01=0x0062}
0x06142…06170               Head {h00=0x002a, h01=0x0050, text=» LD A9,DATEND,A13 END OF PROTOTYP AREA«, t00=0x003e, t01=0x0076}
0x06170…06196               Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR COMPARE ADDRESSES«, t00=0x003e, t01=0x00a4}
0x06196…061ac               Head {h00=0x0012, h01=0x0050, text=» RF(NL) MOV020«, t00=0x003e, t01=0x00ca}
0x061ac…061d8               Head {h00=0x0028, h01=0x0050, text=»MOV010 LDKL A1,LMP3 MEMORY OVERFLOW «, t00=0x003e, t01=0x00e0}
0x061d8…061ec               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x003e, t01=0x010c}
0x061ec…06224               Head {h00=0x0034, h01=0x0050, text=»MOV020 LD A9,FSTADR,A13 CHECK FIRST FREE ADDRESS«, t00=0x003e, t01=0x0120}
0x06224…06238               Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x003e, t01=0x0158}
0x06238…0624e               Head {h00=0x0012, h01=0x0050, text=» RB(L) MOV010 «, t00=0x003e, t01=0x016c}
0x0624e…06274               Head {h00=0x0022, h01=0x0050, text=» ST A2,LSTADR,A13 NEW ADDRESS «, t00=0x003e, t01=0x0182}
0x06274…062a0               Head {h00=0x0028, h01=0x0050, text=» LD A9,SAVE12,A13 RESTORE REGISTERS «, t00=0x003f, t01=0x0018}
0x062a0…062ba               Head {h00=0x0016, h01=0x0050, text=» LD A11,SAVE01,A13«, t00=0x003f, t01=0x0044}
0x062ba…062cc               Head {h00=0x000e, h01=0x0050, text=» RB MOVES «, t00=0x003f, t01=0x005e}
0x062cc…062d8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x0070}
0x062d8…062f4               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x003f, t01=0x007c}
0x062f4…06302               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x0098}
0x06302…0630a               Head {h00=0x0004, h01=0x0001, t00=0x003f, t01=0x00a6}
0x0630a…06342               Head {h00=0x0034, h01=0x0050, text=»**               X M O V E                    **«, t00=0x003f, t01=0x00ae}
0x06342…0637a               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x003f, t01=0x00e6}
0x0637a…063b2               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x003f, t01=0x011e}
0x063b2…063ea               Head {h00=0x0034, h01=0x0050, text=»**  MOVE BLOCK INSIDE MEMORY VIA MMU          **«, t00=0x003f, t01=0x0156}
0x063ea…06422               Head {h00=0x0034, h01=0x0050, text=»**  TWO PHASES:-MOVE TO SYSTEM AREA (BUFBEG)  **«, t00=0x003f, t01=0x018e}
0x06422…0645a               Head {h00=0x0034, h01=0x0050, text=»**             -MOVE TO USER AREA             **«, t00=0x0040, t01=0x0036}
0x0645a…06492               Head {h00=0x0034, h01=0x0050, text=»**  IF 'BUFSIZ' (TEMPORARY MOVE-BUFFER) IS NOT**«, t00=0x0040, t01=0x006e}
0x06492…064ca               Head {h00=0x0034, h01=0x0050, text=»**  BIG ENOUGH THE MOVE IS REPEATED           **«, t00=0x0040, t01=0x00a6}
0x064ca…06502               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x0040, t01=0x00de}
0x06502…0653a               Head {h00=0x0034, h01=0x0050, text=»**  INPUT :A1=FROM-ADDR(MMFROM=MM-TABLE ADDR.)**«, t00=0x0040, t01=0x0116}
0x0653a…06572               Head {h00=0x0034, h01=0x0050, text=»**         A2=TO-ADDRESS (MMTO=MM-TABLE ADDR.)**«, t00=0x0040, t01=0x014e}
0x06572…065aa               Head {h00=0x0034, h01=0x0050, text=»**         A3=LENGTH (IN BYTES)               **«, t00=0x0040, t01=0x0186}
0x065aa…065e2               Head {h00=0x0034, h01=0x0050, text=»**  WORK.REGS:A4,A10                          **«, t00=0x0041, t01=0x002e}
0x065e2…0661a               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0041, t01=0x0066}
0x0661a…06622               Head {h00=0x0004, h01=0x0050, t00=0x0041, t01=0x009e}
0x06622…06636               Head {h00=0x0010, h01=0x0050, text=»XMOVE EQU * «, t00=0x0041, t01=0x00a6}
0x06636…06650               Head {h00=0x0016, h01=0x0050, text=» ST A1,SAVE09,A13 «, t00=0x0041, t01=0x00ba}
0x06650…0666a               Head {h00=0x0016, h01=0x0050, text=» ST A1,SAVE07,A13 «, t00=0x0041, t01=0x00d4}
0x0666a…06684               Head {h00=0x0016, h01=0x0050, text=» ST A2,SAVE10,A13 «, t00=0x0041, t01=0x00ee}
0x06684…0669e               Head {h00=0x0016, h01=0x0050, text=» ST A2,SAVE08,A13 «, t00=0x0041, t01=0x0108}
0x0669e…066b8               Head {h00=0x0016, h01=0x0050, text=» ST A3,SAVE11,A13 «, t00=0x0041, t01=0x0122}
0x066b8…066e2               Head {h00=0x0026, h01=0x0050, text=» ST A9,XMSAV,A13 SAVE A9 TEMPORARY«, t00=0x0041, t01=0x013c}
0x066e2…06710               Head {h00=0x002a, h01=0x0050, text=» ST A11,XMSAV+2,A13 SAVE A11 TEMPORARY«, t00=0x0041, t01=0x0166}
0x06710…06724 (66, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»XMOV05 EQU *«, t00=0x0042, t01=0x0004}
0x06724…06744               Head {h00=0x001c, h01=0x0017, text=» LDR A10,A3 SAVE LENGTH «, t00=0x0042, t01=0x0018}
0x06744…06774               Head {h00=0x002c, h01=0x0028, text=» LDK A4,0 RESET 'NUMBER-OF-MOVE' COUNTER«, t00=0x0042, t01=0x0038}
0x06774…067a2               Head {h00=0x002a, h01=0x0050, text=» LDR A11,A3 GET LENGTH OF AREA TO MOVE«, t00=0x0042, t01=0x0068}
0x067a2…067d6               Head {h00=0x0030, h01=0x0050, text=» LD A9,BUFSIZ,A13 GET TEMPORARY BUFFER SIZE «, t00=0x0042, t01=0x0096}
0x067d6…06808               Head {h00=0x002e, h01=0x0050, text=» CALL CMPADR TEMPORARY BUFFER BIG ENOUGTH «, t00=0x0042, t01=0x00ca}
0x06808…0682e               Head {h00=0x0022, h01=0x001d, text=» RF(G) SPLIT NO! SEVERAL MOVE «, t00=0x0042, t01=0x00fc}
0x0682e…06852               Head {h00=0x0020, h01=0x0050, text=»XMOV10 LDR A3,A10 GET LENGTH«, t00=0x0042, t01=0x0122}
0x06852…0687c               Head {h00=0x0026, h01=0x0050, text=» LD A1,SAVE09,A13 GET FROM ADDRESS«, t00=0x0042, t01=0x0146}
0x0687c…068b4               Head {h00=0x0034, h01=0x0050, text=» LD A2,SYSBUF,A13 GET TEMP. BUFFER START-ADDRESS«, t00=0x0042, t01=0x0170}
0x068b4…068dc               Head {h00=0x0024, h01=0x0050, text=» TL* MMFROM,A13 LOAD FROM-TABLE «, t00=0x0043, t01=0x0018}
0x068dc…0690c               Head {h00=0x002c, h01=0x0028, text=» MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER«, t00=0x0043, t01=0x0040}
0x0690c…06940               Head {h00=0x0030, h01=0x0050, text=» ST A1,SAVE09,A13 SAVE END OF 'FROM' ADDRESS«, t00=0x0043, t01=0x0070}
0x06940…0695a               Head {h00=0x0016, h01=0x0050, text=» LD A1,SYSBUF,A13 «, t00=0x0043, t01=0x00a4}
0x0695a…0698e               Head {h00=0x0030, h01=0x0050, text=» LD A2,SAVE08,A13 GET START OF 'TO' ADDRESS «, t00=0x0043, t01=0x00be}
0x0698e…069ac               Head {h00=0x001a, h01=0x0016, text=» LDR A3,A10 GET LENGTH«, t00=0x0043, t01=0x00f2}
0x069ac…069d0               Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x0043, t01=0x0110}
0x069d0…069fc               Head {h00=0x0028, h01=0x0024, text=» MVSU A3 MOVE DATA-BLOCK FROM BUFFER«, t00=0x0043, t01=0x0134}
0x069fc…06a22               Head {h00=0x0022, h01=0x001d, text=» SUK A4,1 MORE PARTS TO MOVE? «, t00=0x0043, t01=0x0160}
0x06a22…06a3c               Head {h00=0x0016, h01=0x0050, text=» RF(N) XMOV30 NO! «, t00=0x0043, t01=0x0186}
0x06a3c…06a50               Head {h00=0x0010, h01=0x0050, text=» ADR A2,A10 «, t00=0x0044, t01=0x0010}
0x06a50…06a84               Head {h00=0x0030, h01=0x0050, text=» ST A2,SAVE08,A13 SAVE START OF 'TO' ADDRESS«, t00=0x0044, t01=0x0024}
0x06a84…06ab2               Head {h00=0x002a, h01=0x0050, text=» LD A3,SAVE11,A13 GET REQUESTED LENGTH«, t00=0x0044, t01=0x0058}
0x06ab2…06ada               Head {h00=0x0024, h01=0x001f, text=» SUR A3,A10 SUBTRACT MOVED PART «, t00=0x0044, t01=0x0086}
0x06ada…06af8               Head {h00=0x001a, h01=0x0050, text=» ST A3,SAVE11,A13 SAVE«, t00=0x0044, t01=0x00ae}
0x06af8…06b0c               Head {h00=0x0010, h01=0x0050, text=» CWR A3,A10 «, t00=0x0044, t01=0x00cc}
0x06b0c…06b22               Head {h00=0x0012, h01=0x0050, text=» RB(NL) XMOV10«, t00=0x0044, t01=0x00e0}
0x06b22…06b42               Head {h00=0x001c, h01=0x0050, text=» LDR A10,A3 LAST LENGTH «, t00=0x0044, t01=0x00f6}
0x06b42…06b54               Head {h00=0x000e, h01=0x0050, text=» RB XMOV10«, t00=0x0044, t01=0x0116}
0x06b54…06b62               Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0044, t01=0x0128}
0x06b62…06b6a               Head {h00=0x0004, h01=0x0001, t00=0x0044, t01=0x0136}
0x06b6a…06b7e               Head {h00=0x0010, h01=0x000b, text=»SPLIT EQU * «, t00=0x0044, t01=0x013e}
0x06b7e…06ba2               Head {h00=0x0020, h01=0x001c, text=» LDK A1,0 RESET DIVISION REG«, t00=0x0044, t01=0x0152}
0x06ba2…06bc0               Head {h00=0x001a, h01=0x0016, text=» LDR A2,A3 GET DIVISOR«, t00=0x0044, t01=0x0176}
0x06bc0…06be2 (69, 0, 400)  Head {h00=0x001e, h01=0x0019, text=» DV BUFSIZ,A13 AND DIVIDE «, t00=0x0045, t01=0x0004}
0x06be2…06c18               Head {h00=0x0032, h01=0x0050, text=» LDR A4,A2 GET QUOTIENT (=NUMBER OF MOVES - 1)«, t00=0x0045, t01=0x0026}
0x06c18…06c42               Head {h00=0x0026, h01=0x0022, text=» LD A10,BUFSIZ,A13 MOVE MAX LENGTH«, t00=0x0045, t01=0x005c}
0x06c42…06c54               Head {h00=0x000e, h01=0x0050, text=» RB XMOV10«, t00=0x0045, t01=0x0086}
0x06c54…06c5c               Head {h00=0x0004, h01=0x0001, t00=0x0045, t01=0x0098}
0x06c5c…06c90               Head {h00=0x0030, h01=0x0050, text=»XMOV30 LD A2,SAVE10,A13 RESTORE 'TO-ADDRESS'«, t00=0x0045, t01=0x00a0}
0x06c90…06cc0               Head {h00=0x002c, h01=0x0050, text=» LD A1,SAVE07,A13 RESTORE 'FROM-ADDRESS'«, t00=0x0045, t01=0x00d4}
0x06cc0…06ce4               Head {h00=0x0020, h01=0x0050, text=» LD A9,XMSAV,A13 RESTORE A9 «, t00=0x0045, t01=0x0104}
0x06ce4…06d0c               Head {h00=0x0024, h01=0x0050, text=» LD A11,XMSAV+2,A13 RESTORE A11 «, t00=0x0045, t01=0x0128}
0x06d0c…06d1c               Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0045, t01=0x0150}
0x06d1c…06d2a               Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0045, t01=0x0160}
0x06d2a…06d32               Head {h00=0x0004, h01=0x0001, t00=0x0045, t01=0x016e}
0x06d32…06d6a               Head {h00=0x0034, h01=0x0050, text=»**                M O V I N G                ** «, t00=0x0045, t01=0x0176}
0x06d6a…06da2               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x0046, t01=0x001e}
0x06da2…06dda               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x0046, t01=0x0056}
0x06dda…06e12               Head {h00=0x0034, h01=0x0050, text=»**  USES SUBROUTINE 'XMOVE' TO MOVE A BLOCK  ** «, t00=0x0046, t01=0x008e}
0x06e12…06e4a               Head {h00=0x0034, h01=0x0050, text=»**  VIA TWO MM-TABLES.PHYSICALL TO-ADDRESS   ** «, t00=0x0046, t01=0x00c6}
0x06e4a…06e82               Head {h00=0x0034, h01=0x0050, text=»**  IS ALWAYS ASSUMED TO BE DATA PART OF     ** «, t00=0x0046, t01=0x00fe}
0x06e82…06eba               Head {h00=0x0034, h01=0x0050, text=»**  MEMORY. LSTADR & FYSPAG POINTS AT LAST   ** «, t00=0x0046, t01=0x0136}
0x06eba…06ef2               Head {h00=0x0034, h01=0x0050, text=»**  (HIGHEST) FREE ADDRESS. LSTADR &FYSPAG   ** «, t00=0x0046, t01=0x016e}
0x06ef2…06f2a               Head {h00=0x0034, h01=0x0050, text=»**  IS UPDATED AND CHECKED.                  ** «, t00=0x0047, t01=0x0016}
0x06f2a…06f62               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x0047, t01=0x004e}
0x06f62…06f9a               Head {h00=0x0034, h01=0x0050, text=»**  INPUT :A1 & A3 AS IN 'XMOVE'             ** «, t00=0x0047, t01=0x0086}
0x06f9a…06fd2               Head {h00=0x0034, h01=0x0050, text=»**         TTAB=POINTER TO TTAB (OR LIKELY)  ** «, t00=0x0047, t01=0x00be}
0x06fd2…0700a               Head {h00=0x0034, h01=0x0050, text=»**  OUTPUT:A2=LOGICALL TO-ADDRESS            ** «, t00=0x0047, t01=0x00f6}
0x0700a…07042               Head {h00=0x0034, h01=0x0050, text=»**  WORK-REGS: A4,A10                        ** «, t00=0x0047, t01=0x012e}
0x07042…0707a               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0047, t01=0x0166}
0x0707a…07082               Head {h00=0x0004, h01=0x0050, t00=0x0048, t01=0x000e}
0x07082…07096               Head {h00=0x0010, h01=0x0050, text=»MOVING EQU *«, t00=0x0048, t01=0x0016}
0x07096…070ba               Head {h00=0x0020, h01=0x0050, text=» ST A11,SAVE01,A13 SAVE A11 «, t00=0x0048, t01=0x002a}
0x070ba…070dc               Head {h00=0x001e, h01=0x0050, text=» ST A9,SAVE12,A13 SAVE A9 «, t00=0x0048, t01=0x004e}
0x070dc…0710e               Head {h00=0x002e, h01=0x0029, text=» LD A4,FYSPAG,A13 GET ACT. PHYSICALL PAGE «, t00=0x0048, t01=0x0070}
0x0710e…07138               Head {h00=0x0026, h01=0x0050, text=» LD A10,TTAB,A13 LOAD TTAB-ADDRESS«, t00=0x0048, t01=0x00a2}
0x07138…0716e               Head {h00=0x0032, h01=0x002e, text=» LD A2,LSTPAG,A10 GET LAST TABLE-ENTRY IN TTAB«, t00=0x0048, t01=0x00cc}
0x0716e…07194               Head {h00=0x0022, h01=0x001d, text=» LDR* A9,A2 GET PAGE IN TABLE «, t00=0x0048, t01=0x0102}
0x07194…071aa               Head {h00=0x0012, h01=0x0050, text=» ANKL A9,/FC00«, t00=0x0048, t01=0x0128}
0x071aa…071d8               Head {h00=0x002a, h01=0x0025, text=» CWR A9,A4 CORRECT PAGE IN MMU-TABLE? «, t00=0x0048, t01=0x013e}
0x071d8…071f2               Head {h00=0x0016, h01=0x0050, text=» RF(E) MOV010 YES!«, t00=0x0048, t01=0x016c}
0x071f2…0721c               Head {h00=0x0026, h01=0x0050, text=» ADKL A4,/400 ADJUST FOR 'SETTAB' «, t00=0x0048, t01=0x0186}
0x0721c…07244               Head {h00=0x0024, h01=0x0050, text=» CALL SETTAB NEW PAGE IN TABLE! «, t00=0x0049, t01=0x0020}
0x07244…0727e               Head {h00=0x0036, h01=0x0050, text=»MOV010 LD A11,LSTADR,A13 GET LAST LOGICALL ADDRESS«, t00=0x0049, t01=0x0048}
0x0727e…07294               Head {h00=0x0012, h01=0x000e, text=» ANKL A11,/FFF«, t00=0x0049, t01=0x0082}
0x07294…072c2               Head {h00=0x002a, h01=0x0050, text=» LDR A9,A3 GET LENGTH OF AREA TO MOVE «, t00=0x0049, t01=0x0098}
0x072c2…072f6               Head {h00=0x0030, h01=0x0050, text=» CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? «, t00=0x0049, t01=0x00c6}
0x072f6…07312               Head {h00=0x0018, h01=0x0050, text=» RF(NL) MOV020 YES! «, t00=0x0049, t01=0x00fa}
0x07312…07342               Head {h00=0x002c, h01=0x0050, text=» SUR A11,A3 COMPUTE DISPLACEMENT IN PAGE«, t00=0x0049, t01=0x0116}
0x07342…0735e               Head {h00=0x0018, h01=0x0050, text=»MOV015 RF(NP) MOV025«, t00=0x0049, t01=0x0146}
0x0735e…0738c               Head {h00=0x002a, h01=0x0050, text=» CALL SETTAB INITIALIZE NEW PAGE ENTRY«, t00=0x0049, t01=0x0162}
0x0738c…073ba               Head {h00=0x002a, h01=0x0050, text=» ADKL A11,4096 PHYSICAL PAGE INCREMENT«, t00=0x0049, t01=0x0190}
0x073ba…073cc               Head {h00=0x000e, h01=0x0050, text=» RB MOV015«, t00=0x004a, t01=0x002e}
0x073cc…07402               Head {h00=0x0032, h01=0x0050, text=»MOV020 SUR A11,A3 COMPUTE DISPLACEMENT IN PAGE«, t00=0x004a, t01=0x0040}
0x07402…0741e               Head {h00=0x0018, h01=0x0050, text=»MOV025 RF(NN) MOV050«, t00=0x004a, t01=0x0076}
0x0741e…0744c               Head {h00=0x002a, h01=0x0050, text=»MOV030 CALL SETTAB NEW PAGE IN TABLE! «, t00=0x004a, t01=0x0092}
0x0744c…07476               Head {h00=0x0026, h01=0x0021, text=» ADKL A11,4096 NEW PAGE INCREMENT «, t00=0x004a, t01=0x00c0}
0x07476…074a2               Head {h00=0x0028, h01=0x0050, text=» RB(N) MOV030 NOT ENOUGH. NEW PAGE! «, t00=0x004a, t01=0x00ea}
0x074a2…074aa               Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x0116}
0x074aa…074d6               Head {h00=0x0028, h01=0x0050, text=»* MM-TABLE CORRECT. SAVE ADDRESSES *«, t00=0x004a, t01=0x011e}
0x074d6…074de               Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x014a}
0x074de…07500               Head {h00=0x001e, h01=0x0050, text=»* A4=PHYSICALL PAGE NUMBER«, t00=0x004a, t01=0x0152}
0x07500…07524               Head {h00=0x0020, h01=0x0050, text=»* A11=DISPLACEM. WITHIN PAGE«, t00=0x004a, t01=0x0174}
0x07524…0754a               Head {h00=0x0022, h01=0x0050, text=»* A2=CURRENT ENTRY IN MM-TABLE«, t00=0x004b, t01=0x0008}
0x0754a…07552               Head {h00=0x0004, h01=0x0001, t00=0x004b, t01=0x002e}
0x07552…07566               Head {h00=0x0010, h01=0x0050, text=»MOV050 EQU *«, t00=0x004b, t01=0x0036}
0x07566…07596               Head {h00=0x002c, h01=0x0028, text=» ST A2,LSTPAG,A10 SAVE MMU-ENTRY IN TTAB«, t00=0x004b, t01=0x004a}
0x07596…075ca               Head {h00=0x0030, h01=0x002c, text=» ST A4,FYSPAG,A13 SAVE PHYSICALL PAGE NUMBER«, t00=0x004b, t01=0x007a}
0x075ca…07602               Head {h00=0x0034, h01=0x0050, text=» LDKL A4,MMBEG CALCULATE TABLE ENTRY DISPLACEM. «, t00=0x004b, t01=0x00ae}
0x07602…0762c               Head {h00=0x0026, h01=0x0022, text=» ADR A4,A10 ABSOLUTE ENTRY ADDRESS«, t00=0x004b, t01=0x00e6}
0x0762c…07656               Head {h00=0x0026, h01=0x0050, text=» ST A4,MMTO,A13 SAVE TABLE ADDRESS«, t00=0x004b, t01=0x0110}
0x07656…0767a               Head {h00=0x0020, h01=0x001b, text=» SUR A2,A4 RELATIVE ADDRESS «, t00=0x004b, t01=0x013a}
0x0767a…076b0               Head {h00=0x0032, h01=0x0050, text=» SLL A2,11 SHIFT TO FOUR FIRST BITS & DIV BY 2«, t00=0x004b, t01=0x015e}
0x076b0…076de (76, 0, 400)  Head {h00=0x002a, h01=0x0050, text=» ORR A2,A11 GET DISPLACEM. WITHIN PAGE«, t00=0x004c, t01=0x0004}
0x076de…07702               Head {h00=0x0020, h01=0x0050, text=» ANKL A2,/FFFE EVEN ADDRESS «, t00=0x004c, t01=0x0032}
0x07702…07732               Head {h00=0x002c, h01=0x0027, text=» ST A2,LSTADR,A13 SAVE LOGICALL ADDRESS «, t00=0x004c, t01=0x0056}
0x07732…0774e               Head {h00=0x0018, h01=0x0050, text=»* CHECK ADDRESSES * «, t00=0x004c, t01=0x0086}
0x0774e…07756               Head {h00=0x0004, h01=0x0050, t00=0x004c, t01=0x00a2}
0x07756…07784               Head {h00=0x002a, h01=0x0050, text=» LD A9,FSTPAG,A13 GET FIRST FREE PAGE «, t00=0x004c, t01=0x00aa}
0x07784…077a8               Head {h00=0x0020, h01=0x0050, text=» ST A11,SAVE07,A13 SAVE A11 «, t00=0x004c, t01=0x00d8}
0x077a8…077c2               Head {h00=0x0016, h01=0x0050, text=» LD A11,FYSPAG,A13«, t00=0x004c, t01=0x00fc}
0x077c2…077e2               Head {h00=0x001c, h01=0x0050, text=» CALL CMPADR AND COMPARE«, t00=0x004c, t01=0x0116}
0x077e2…077fc               Head {h00=0x0016, h01=0x0050, text=» RF(G) MOV090 OK! «, t00=0x004c, t01=0x0136}
0x077fc…07816               Head {h00=0x0016, h01=0x0050, text=» RF(L) MOV070 NOK!«, t00=0x004c, t01=0x0150}
0x07816…07840               Head {h00=0x0026, h01=0x0050, text=» LD A11,SAVE07,A13 RESTORE DISPL. «, t00=0x004c, t01=0x016a}
0x07840…0785a (77, 0, 400)  Head {h00=0x0016, h01=0x0050, text=» LD A9,FSTADR,A13 «, t00=0x004d, t01=0x0004}
0x0785a…0786e               Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x004d, t01=0x001e}
0x0786e…07888               Head {h00=0x0016, h01=0x0050, text=» RF(NL) MOV090 OK!«, t00=0x004d, t01=0x0032}
0x07888…078a4               Head {h00=0x0018, h01=0x0050, text=»MOV070 LDKL A1,LMP3 «, t00=0x004d, t01=0x004c}
0x078a4…078b8               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x004d, t01=0x0068}
0x078b8…078cc               Head {h00=0x0010, h01=0x0050, text=»MOV090 EQU *«, t00=0x004d, t01=0x007c}
0x078cc…078e4               Head {h00=0x0014, h01=0x0050, text=» CALL XMOVE MOVE«, t00=0x004d, t01=0x0090}
0x078e4…078fe               Head {h00=0x0016, h01=0x0050, text=» LD A9,SAVE12,A13 «, t00=0x004d, t01=0x00a8}
0x078fe…0792a               Head {h00=0x0028, h01=0x0050, text=» LD A11,SAVE01,A13 RESTORE REGISTERS«, t00=0x004d, t01=0x00c2}
0x0792a…07952               Head {h00=0x0024, h01=0x0050, text=» TL* MMFROM,A13 RESTORE MM-TABLE«, t00=0x004d, t01=0x00ee}
0x07952…07962               Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x004d, t01=0x0116}
0x07962…07970               Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x004d, t01=0x0126}
0x07970…07978               Head {h00=0x0004, h01=0x0001, t00=0x004d, t01=0x0134}
0x07978…079b2               Head {h00=0x0036, h01=0x0050, text=»**               S E T T A B                   ** «, t00=0x004d, t01=0x013c}
0x079b2…079ec               Head {h00=0x0036, h01=0x0050, text=»**                                             ** «, t00=0x004d, t01=0x0176}
0x079ec…07a26               Head {h00=0x0036, h01=0x0050, text=»**                                             ** «, t00=0x004e, t01=0x0020}
0x07a26…07a60               Head {h00=0x0036, h01=0x0050, text=»**  SET NEW PAGE IN MM-TABLE & CHECK IF TABLE  ** «, t00=0x004e, t01=0x005a}
0x07a60…07a9a               Head {h00=0x0036, h01=0x0050, text=»**  OVERFLOW.                                  ** «, t00=0x004e, t01=0x0094}
0x07a9a…07ad4               Head {h00=0x0036, h01=0x0050, text=»**                                             ** «, t00=0x004e, t01=0x00ce}
0x07ad4…07b0e               Head {h00=0x0036, h01=0x0050, text=»**  INPUT :A2-ADDRESS TO CURRENT ENTRY         ** «, t00=0x004e, t01=0x0108}
0x07b0e…07b48               Head {h00=0x0036, h01=0x0050, text=»**         A4=PHYSICALL PAGE                   ** «, t00=0x004e, t01=0x0142}
0x07b48…07b82               Head {h00=0x0036, h01=0x0050, text=»**  OUTPUT:A2 & A4 IS UPDATED                  ** «, t00=0x004e, t01=0x017c}
0x07b82…07bbc               Head {h00=0x0036, h01=0x0050, text=»**   WORK.REG: A9                              ** «, t00=0x004f, t01=0x0026}
0x07bbc…07bf6               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x004f, t01=0x0060}
0x07bf6…07bfe               Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x009a}
0x07bfe…07c12               Head {h00=0x0010, h01=0x0050, text=»SETTAB EQU *«, t00=0x004f, t01=0x00a2}
0x07c12…07c36               Head {h00=0x0020, h01=0x001b, text=» SUKL A4,/400 GET NEXT PAGE «, t00=0x004f, t01=0x00b6}
0x07c36…07c56               Head {h00=0x001c, h01=0x0018, text=» SUK A2,2 GET NEXT ENTRY«, t00=0x004f, t01=0x00da}
0x07c56…07c5e               Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x00fa}
0x07c5e…07c84               Head {h00=0x0022, h01=0x0050, text=»* CHECK IF MM-TABLE OVERFLOW *«, t00=0x004f, t01=0x0102}
0x07c84…07c8c               Head {h00=0x0004, h01=0x0050, t00=0x004f, t01=0x0128}
0x07c8c…07cb8               Head {h00=0x0028, h01=0x0050, text=» LDR A9,A10 GET END-ADDRESS A10=TTAB«, t00=0x004f, t01=0x0130}
0x07cb8…07cce               Head {h00=0x0012, h01=0x0050, text=» ADKL A9,MMBEG«, t00=0x004f, t01=0x015c}
0x07cce…07cf4               Head {h00=0x0022, h01=0x0050, text=» TNM A2,A9 32-KB BOARDER CHECK«, t00=0x004f, t01=0x0172}
0x07cf4…07d0a               Head {h00=0x0012, h01=0x0050, text=» RF(NN) SETT00«, t00=0x0050, t01=0x0008}
0x07d0a…07d1c               Head {h00=0x000e, h01=0x0050, text=» CWR A9,A2«, t00=0x0050, t01=0x001e}
0x07d1c…07d2e               Head {h00=0x000e, h01=0x0050, text=» RF SETT05«, t00=0x0050, t01=0x0030}
0x07d2e…07d50               Head {h00=0x001e, h01=0x0050, text=»SETT00 CWR A2,A9 OVERFLOW?«, t00=0x0050, t01=0x0042}
0x07d50…07d70               Head {h00=0x001c, h01=0x0050, text=»SETT05 RF(NL) SETT10 NO «, t00=0x0050, t01=0x0064}
0x07d70…07d84               Head {h00=0x0010, h01=0x0050, text=» LDK A1,LMP7«, t00=0x0050, t01=0x0084}
0x07d84…07d98               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0050, t01=0x0098}
0x07d98…07dac               Head {h00=0x0010, h01=0x0050, text=»SETT10 EQU *«, t00=0x0050, t01=0x00ac}
0x07dac…07dce               Head {h00=0x001e, h01=0x0019, text=» STR A4,A2 STORE IN TABLE «, t00=0x0050, t01=0x00c0}
0x07dce…07dde               Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x0050, t01=0x00e2}
0x07dde…07dea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x00f2}
0x07dea…07e00               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0050, t01=0x00fe}
0x07e00…07e0e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x0114}
0x07e0e…07e1a               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0050, t01=0x0122}
0x07e1a…07e52               Head {h00=0x0034, h01=0x0050, text=»**              G E T W B                    ** «, t00=0x0050, t01=0x012e}
0x07e52…07e8a               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x0050, t01=0x0166}
0x07e8a…07ec2               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x0051, t01=0x000e}
0x07ec2…07efa               Head {h00=0x0034, h01=0x0050, text=»**  GET WORK BLOCK ADDRESS AND DISPLACE-     ** «, t00=0x0051, t01=0x0046}
0x07efa…07f32               Head {h00=0x0034, h01=0x0050, text=»**  MENT IN T:A                              ** «, t00=0x0051, t01=0x007e}
0x07f32…07f6a               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x0051, t01=0x00b6}
0x07f6a…07fa2               Head {h00=0x0034, h01=0x0050, text=»**  INPUT : A8= POINTER TO T:A-ADD IN T:ATAB ** «, t00=0x0051, t01=0x00ee}
0x07fa2…07fda               Head {h00=0x0034, h01=0x0050, text=»**          BIT=BIT NUMBER SAT IN MASK (0-15)** «, t00=0x0051, t01=0x0126}
0x07fda…08012               Head {h00=0x0034, h01=0x0050, text=»**  OUTPUT: A4=W.B. DISPLACEMENT IN T:A      ** «, t00=0x0051, t01=0x015e}
0x08012…0804a               Head {h00=0x0034, h01=0x0050, text=»**          TADISP=A4                        ** «, t00=0x0052, t01=0x0008}
0x0804a…08082               Head {h00=0x0034, h01=0x0050, text=»**          A11=W.B.-ADDRESS                 ** «, t00=0x0052, t01=0x0040}
0x08082…080ba               Head {h00=0x0034, h01=0x0050, text=»**          WBADD=POINTER TO W.B.-ADD IN T:A ** «, t00=0x0052, t01=0x0078}
0x080ba…080f2               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0052, t01=0x00b0}
0x080f2…080fe               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0052, t01=0x00e8}
0x080fe…08112               Head {h00=0x0010, h01=0x0050, text=»GETWB EQU * «, t00=0x0052, t01=0x00f4}
0x08112…08138               Head {h00=0x0022, h01=0x0050, text=» LD A4,BIT,A13 GET BIT NUMBER «, t00=0x0052, t01=0x0108}
0x08138…08160               Head {h00=0x0024, h01=0x0050, text=» SLL A4,2 ADJUST FOR ADDRESSING «, t00=0x0052, t01=0x012e}
0x08160…08178               Head {h00=0x0014, h01=0x0050, text=» ADK A4,WATFST+2«, t00=0x0052, t01=0x0156}
0x08178…081a4               Head {h00=0x0028, h01=0x0050, text=» ST A4,TADISP,A13 SAVE DISPLACEMENT «, t00=0x0052, t01=0x016e}
0x081a4…081c0               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0053, t01=0x000a}
0x081c0…081e4               Head {h00=0x0020, h01=0x0050, text=» LDR* A11,A8 GET T:A-ADDRESS«, t00=0x0053, t01=0x0026}
0x081e4…08208               Head {h00=0x0020, h01=0x0050, text=» ADR A11,A4 ADD DISPLACEMENT«, t00=0x0053, t01=0x004a}
0x08208…08226               Head {h00=0x001a, h01=0x0050, text=» ST A11,WBADD,A13 SAVE«, t00=0x0053, t01=0x006e}
0x08226…0824c               Head {h00=0x0022, h01=0x0050, text=» LDR* A11,A11 GET W.B.-ADDRESS«, t00=0x0053, t01=0x008c}
0x0824c…08258               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x00b2}
0x08258…08274               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0053, t01=0x00be}
0x08274…082a8               Head {h00=0x0030, h01=0x0050, text=» LD A11,FLAG,A13 REAL TASK-DATA PROCESSING? «, t00=0x0053, t01=0x00da}
0x082a8…082c2               Head {h00=0x0016, h01=0x0050, text=» RF(Z) GETW10 NO! «, t00=0x0053, t01=0x010e}
0x082c2…082e6               Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x0053, t01=0x0128}
0x082e6…08310               Head {h00=0x0026, h01=0x0050, text=»GETW10 ELR A11,A8 GET T:A-ADDRESS «, t00=0x0053, t01=0x014c}
0x08310…08334               Head {h00=0x0020, h01=0x0050, text=» ADR A11,A4 ADD DISPLACEMENT«, t00=0x0053, t01=0x0176}
0x08334…08352               Head {h00=0x001a, h01=0x0050, text=» ST A11,WBADD,A13 SAVE«, t00=0x0054, t01=0x000a}
0x08352…08378               Head {h00=0x0022, h01=0x0050, text=» ELR A11,A11 GET W.B.-ADDRESS «, t00=0x0054, t01=0x0028}
0x08378…083a2               Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM-TABLE «, t00=0x0054, t01=0x004e}
0x083a2…083ae               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x0078}
0x083ae…083c4               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0054, t01=0x0084}
0x083c4…083d4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0054, t01=0x009a}
0x083d4…083e2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x00aa}
0x083e2…083ee               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0054, t01=0x00b8}
0x083ee…083fa               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0054, t01=0x00c4}
0x083fa…08436               Head {h00=0x0038, h01=0x0050, text=»**              M O V W B                         **«, t00=0x0054, t01=0x00d0}
0x08436…08472               Head {h00=0x0038, h01=0x0050, text=»**                                                **«, t00=0x0054, t01=0x010c}
0x08472…084ae               Head {h00=0x0038, h01=0x0050, text=»**                                                **«, t00=0x0054, t01=0x0148}
0x084ae…084ea               Head {h00=0x0038, h01=0x0050, text=»**  MOVE WORK-BLOCK. W.B.-ADDRESS IS UPDATED      **«, t00=0x0054, t01=0x0184}
0x084ea…08526               Head {h00=0x0038, h01=0x0050, text=»**                                                **«, t00=0x0055, t01=0x0030}
0x08526…08562               Head {h00=0x0038, h01=0x0050, text=»**  INPUT: A11=W.B.-ADDRESS                       **«, t00=0x0055, t01=0x006c}
0x08562…0859e               Head {h00=0x0038, h01=0x0050, text=»** OUTPUT: 'WBADD'=POINTER TO MOVED W.B.ADDRESS   **«, t00=0x0055, t01=0x00a8}
0x0859e…085da               Head {h00=0x0038, h01=0x0050, text=»**  WORK-REGS: A1-A4                              **«, t00=0x0055, t01=0x00e4}
0x085da…08616               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0055, t01=0x0120}
0x08616…08622               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0055, t01=0x015c}
0x08622…08636               Head {h00=0x0010, h01=0x0050, text=»MOVWB EQU * «, t00=0x0055, t01=0x0168}
0x08636…08656               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A11 GET ADDRESS «, t00=0x0055, t01=0x017c}
0x08656…0867a               Head {h00=0x0020, h01=0x0050, text=» ADKL A1,WBLEN FROM-ADDRESS «, t00=0x0056, t01=0x000c}
0x0867a…08696               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0056, t01=0x0030}
0x08696…086b0               Head {h00=0x0016, h01=0x0050, text=» LDR* A3,A1 LENGTH«, t00=0x0056, t01=0x004c}
0x086b0…086c4               Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0056, t01=0x0066}
0x086c4…086fe               Head {h00=0x0036, h01=0x0050, text=» SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT «, t00=0x0056, t01=0x007a}
0x086fe…08736               Head {h00=0x0034, h01=0x0050, text=» ST* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE«, t00=0x0056, t01=0x00b4}
0x08736…08742               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0056, t01=0x00ec}
0x08742…0875e               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0056, t01=0x00f8}
0x0875e…08778               Head {h00=0x0016, h01=0x0050, text=» ELR A3,A1 LENGTH «, t00=0x0056, t01=0x0114}
0x08778…0878c               Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0056, t01=0x012e}
0x0878c…087c6               Head {h00=0x0036, h01=0x0050, text=» SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT «, t00=0x0056, t01=0x0142}
0x087c6…087f8               Head {h00=0x002e, h01=0x0050, text=» LD A4,FLAG,A13 REAL DATA-PART PROCESSING?«, t00=0x0056, t01=0x017c}
0x087f8…08812               Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVW10 NO! «, t00=0x0057, t01=0x001e}
0x08812…08836               Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x0057, t01=0x0038}
0x08836…08874               Head {h00=0x003a, h01=0x0050, text=»MOVW10 ES* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE«, t00=0x0057, t01=0x005c}
0x08874…0889e               Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM-TABLE «, t00=0x0057, t01=0x009a}
0x0889e…088aa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x00c4}
0x088aa…088c0               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0057, t01=0x00d0}
0x088c0…088d0               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0057, t01=0x00e6}
0x088d0…088de               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x00f6}
0x088de…088ea               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0057, t01=0x0104}
0x088ea…088f6               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0057, t01=0x0110}
0x088f6…08934               Head {h00=0x003a, h01=0x0050, text=»**               M O V D T                         ** «, t00=0x0057, t01=0x011c}
0x08934…08972               Head {h00=0x003a, h01=0x0050, text=»**                                                 ** «, t00=0x0057, t01=0x015a}
0x08972…089b0               Head {h00=0x003a, h01=0x0050, text=»**                                                 ** «, t00=0x0058, t01=0x0008}
0x089b0…089ee               Head {h00=0x003a, h01=0x0050, text=»**  MOVE DISCRIPTOR TABLE. D.T.-ADDRESS IS UPDATED ** «, t00=0x0058, t01=0x0046}
0x089ee…08a2c               Head {h00=0x003a, h01=0x0050, text=»**                                                 ** «, t00=0x0058, t01=0x0084}
0x08a2c…08a6a               Head {h00=0x003a, h01=0x0050, text=»**  INPUT :WBADD POINTS TO W.B.-ADDRESS IN T:A     ** «, t00=0x0058, t01=0x00c2}
0x08a6a…08aa8               Head {h00=0x003a, h01=0x0050, text=»**  OUTPUT: A3=POINTER TO W.B.-ADDRESS             ** «, t00=0x0058, t01=0x0100}
0x08aa8…08ae6               Head {h00=0x003a, h01=0x0050, text=»**  WORK REGS: A1-A4                               ** «, t00=0x0058, t01=0x013e}
0x08ae6…08b24               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0058, t01=0x017c}
0x08b24…08b30               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0059, t01=0x002a}
0x08b30…08b44               Head {h00=0x0010, h01=0x0050, text=»MOVDT EQU * «, t00=0x0059, t01=0x0036}
0x08b44…08b7e               Head {h00=0x0036, h01=0x0050, text=» LD A1,WBADD,A13 GET POINTER TO W.B-ADDRESS IN WAT«, t00=0x0059, t01=0x004a}
0x08b7e…08ba8               Head {h00=0x0026, h01=0x0050, text=» SUK A1,2 POINTER TO D.T.-ADDRESS «, t00=0x0059, t01=0x0084}
0x08ba8…08bc4               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0059, t01=0x00ae}
0x08bc4…08be4               Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A1 D.T.-ADDRESS«, t00=0x0059, t01=0x00ca}
0x08be4…08c12               Head {h00=0x002a, h01=0x0050, text=» ADKL A1,DTLEN ADJUST FOR LENGTH WORD «, t00=0x0059, t01=0x00ea}
0x08c12…08c34               Head {h00=0x001e, h01=0x0050, text=» AD A1,MOVADD,A13 RELOCATE«, t00=0x0059, t01=0x0118}
0x08c34…08c4e               Head {h00=0x0016, h01=0x0050, text=» LDR* A3,A1 LENGTH«, t00=0x0059, t01=0x013a}
0x08c4e…08c62               Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0059, t01=0x0154}
0x08c62…08c7a               Head {h00=0x0014, h01=0x0050, text=» LD A3,WBADD,A13«, t00=0x0059, t01=0x0168}
0x08c7a…08c90               Head {h00=0x0012, h01=0x0050, text=» SUKL A2,DTLEN«, t00=0x0059, t01=0x0180}
0x08c90…08ca6               Head {h00=0x0012, h01=0x0050, text=» SUKL A1,DTLEN«, t00=0x005a, t01=0x0008}
0x08ca6…08cde               Head {h00=0x0034, h01=0x0050, text=» ST A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS «, t00=0x005a, t01=0x001e}
0x08cde…08cea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x0056}
0x08cea…08d06               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x005a, t01=0x0062}
0x08d06…08d26               Head {h00=0x001c, h01=0x0050, text=» ELR A1,A1 D.T.-ADDRESS «, t00=0x005a, t01=0x007e}
0x08d26…08d54               Head {h00=0x002a, h01=0x0050, text=» ADKL A1,DTLEN ADJUST FOR LENGTH WORD «, t00=0x005a, t01=0x009e}
0x08d54…08d76               Head {h00=0x001e, h01=0x0050, text=» AD A1,MOVADD,A13 RELOCATE«, t00=0x005a, t01=0x00cc}
0x08d76…08d90               Head {h00=0x0016, h01=0x0050, text=» ELR A3,A1 LENGTH «, t00=0x005a, t01=0x00ee}
0x08d90…08da4               Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x005a, t01=0x0108}
0x08da4…08dbc               Head {h00=0x0014, h01=0x0050, text=» LD A3,WBADD,A13«, t00=0x005a, t01=0x011c}
0x08dbc…08dd2               Head {h00=0x0012, h01=0x0050, text=» SUKL A2,DTLEN«, t00=0x005a, t01=0x0134}
0x08dd2…08de8               Head {h00=0x0012, h01=0x0050, text=» SUKL A1,DTLEN«, t00=0x005a, t01=0x014a}
0x08de8…08e20               Head {h00=0x0034, h01=0x0050, text=» ES A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS «, t00=0x005a, t01=0x0160}
0x08e20…08e2c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x0008}
0x08e2c…08e42               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x005b, t01=0x0014}
0x08e42…08e52               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005b, t01=0x002a}
0x08e52…08e60               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005b, t01=0x003a}
0x08e60…08e6c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x005b, t01=0x0048}
0x08e6c…08eac               Head {h00=0x003c, h01=0x0050, text=»**                    M O V D W B                     **«, t00=0x005b, t01=0x0054}
0x08eac…08eec               Head {h00=0x003c, h01=0x0050, text=»**                                                    **«, t00=0x005b, t01=0x0094}
0x08eec…08f2c               Head {h00=0x003c, h01=0x0050, text=»**                                                    **«, t00=0x005b, t01=0x00d4}
0x08f2c…08f6c               Head {h00=0x003c, h01=0x0050, text=»**  SEARCH T:D FOR DUMMY W.B. IF ANY FOUND, MOVE D.T. **«, t00=0x005b, t01=0x0114}
0x08f6c…08fac               Head {h00=0x003c, h01=0x0050, text=»**  AND UPDATE ADDRESSES (W.B. & D.T.)                **«, t00=0x005b, t01=0x0154}
0x08fac…08fec (92, 0, 400)  Head {h00=0x003c, h01=0x0050, text=»**                                                    **«, t00=0x005c, t01=0x0004}
0x08fec…0902c               Head {h00=0x003c, h01=0x0050, text=»**  INPUT : A12=T:D-ADDRESS                           **«, t00=0x005c, t01=0x0044}
0x0902c…0906c               Head {h00=0x003c, h01=0x0050, text=»**          A8= POINTER TO T:A-ADDRESS                **«, t00=0x005c, t01=0x0084}
0x0906c…090ac               Head {h00=0x003c, h01=0x0050, text=»**          BIT=BIT NUMBER SAT IN DWBMSK ( 0-15 )     **«, t00=0x005c, t01=0x00c4}
0x090ac…090ec               Head {h00=0x003c, h01=0x0050, text=»**  WORK.REGS: A1-A4                                  **«, t00=0x005c, t01=0x0104}
0x090ec…0912c               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x005c, t01=0x0144}
0x0912c…09138               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x005c, t01=0x0184}
0x09138…0914c               Head {h00=0x0010, h01=0x0050, text=»MOVDWB EQU *«, t00=0x005c, t01=0x0190}
0x0914c…0916e               Head {h00=0x001e, h01=0x0050, text=» ST A6,SAVE05,A13 SAVE A5 «, t00=0x005d, t01=0x0014}
0x0916e…09180               Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x005d, t01=0x0036}
0x09180…091ac               Head {h00=0x0028, h01=0x0050, text=»MOVD10 LD A4,BIT,A13 GET BIT NUMBER «, t00=0x005d, t01=0x0048}
0x091ac…091d2               Head {h00=0x0022, h01=0x0050, text=» ADK A4,1 FIRST WAT-ELEMENT =1«, t00=0x005d, t01=0x0074}
0x091d2…091ee               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x005d, t01=0x009a}
0x091ee…09208               Head {h00=0x0016, h01=0x0050, text=» LD A2,WATLEN,A12 «, t00=0x005d, t01=0x00b6}
0x09208…09214               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005d, t01=0x00d0}
0x09214…09230               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x005d, t01=0x00dc}
0x09230…0924a               Head {h00=0x0016, h01=0x0050, text=» EL A2,WATLEN,A12 «, t00=0x005d, t01=0x00f8}
0x0924a…09256               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005d, t01=0x0112}
0x09256…0926c               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x005d, t01=0x011e}
0x0926c…09292               Head {h00=0x0022, h01=0x0050, text=» SUR A2,A6 ACTUAL TABLE LENGTH«, t00=0x005d, t01=0x0134}
0x09292…092b6               Head {h00=0x0020, h01=0x0050, text=» ADR A6,A12 A6=TABLE POINTER«, t00=0x005d, t01=0x015a}
0x092b6…092dc               Head {h00=0x0022, h01=0x0050, text=»MOVD20 ADK A6,1 A6=TABLE INDEX«, t00=0x005d, t01=0x017e}
0x092dc…092f2               Head {h00=0x0012, h01=0x0050, text=» SUK A2,1 ALL?«, t00=0x005e, t01=0x0014}
0x092f2…0930c               Head {h00=0x0016, h01=0x0050, text=» RF(N) MOVD60 YES!«, t00=0x005e, t01=0x002a}
0x0930c…09328               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x005e, t01=0x0044}
0x09328…0934e               Head {h00=0x0022, h01=0x0050, text=» CC A4,DWBFST,A6 SHARED W.B.? «, t00=0x005e, t01=0x0060}
0x0934e…0935a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x0086}
0x0935a…09376               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x005e, t01=0x0092}
0x09376…093a4               Head {h00=0x002a, h01=0x0050, text=» EL A10,DWBFST,A6 CHECK IF SHARED W.B.«, t00=0x005e, t01=0x00ae}
0x093a4…093ca               Head {h00=0x0022, h01=0x0050, text=» SRC A6,1 RIGHT OR LEFT BYTE? «, t00=0x005e, t01=0x00dc}
0x093ca…093e6               Head {h00=0x0018, h01=0x0050, text=» RF(N) MOVD30 RIGHT!«, t00=0x005e, t01=0x0102}
0x093e6…093fe               Head {h00=0x0014, h01=0x0050, text=» ANKL A10,/FF00 «, t00=0x005e, t01=0x011e}
0x093fe…09412               Head {h00=0x0010, h01=0x0050, text=» ECR A10,A10«, t00=0x005e, t01=0x0136}
0x09412…09424               Head {h00=0x000e, h01=0x0050, text=» RF MOVD40«, t00=0x005e, t01=0x014a}
0x09424…09440               Head {h00=0x0018, h01=0x0050, text=»MOVD30 ANKL A10,/FF «, t00=0x005e, t01=0x015c}
0x09440…09466               Head {h00=0x0022, h01=0x0050, text=»MOVD40 SLC A6,1 ADJUST POINTER«, t00=0x005e, t01=0x0178}
0x09466…09486               Head {h00=0x001c, h01=0x0050, text=» CWR A4,A10 SHARED W.B.?«, t00=0x005f, t01=0x000e}
0x09486…09492               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x002e}
0x09492…094a8               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x005f, t01=0x003a}
0x094a8…094c2               Head {h00=0x0016, h01=0x0050, text=» RB(NE) MOVD20 NO!«, t00=0x005f, t01=0x0050}
0x094c2…094d8               Head {h00=0x0012, h01=0x0050, text=»* DWB FOUND * «, t00=0x005f, t01=0x006a}
0x094d8…09508               Head {h00=0x002c, h01=0x0050, text=» NGR A4,A2 CALCULATE DISPLACEMENT IN T:A«, t00=0x005f, t01=0x0080}
0x09508…09524               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x005f, t01=0x00b0}
0x09524…0953e               Head {h00=0x0016, h01=0x0050, text=» AD A4,WATLEN,A12 «, t00=0x005f, t01=0x00cc}
0x0953e…0954a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x00e6}
0x0954a…09566               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x005f, t01=0x00f2}
0x09566…09580               Head {h00=0x0016, h01=0x0050, text=» EL A10,WATLEN,A12«, t00=0x005f, t01=0x010e}
0x09580…09594               Head {h00=0x0010, h01=0x0050, text=» ADR A4,A10 «, t00=0x005f, t01=0x0128}
0x09594…095a0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x013c}
0x095a0…095b6               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x005f, t01=0x0148}
0x095b6…095da               Head {h00=0x0020, h01=0x0050, text=» LDR A6,A4 SAVE TABLE INDEX «, t00=0x005f, t01=0x015e}
0x095da…095ec               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x005f, t01=0x0182}
0x095ec…095fe (96, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» SLL A4,2 «, t00=0x0060, t01=0x0004}
0x095fe…09616               Head {h00=0x0014, h01=0x0050, text=» ADK A4,WATFST+2«, t00=0x0060, t01=0x0016}
0x09616…09644               Head {h00=0x002a, h01=0x0050, text=» LD A3,NEWAD2,A13 GET NEW W.B.-ADDRESS«, t00=0x0060, t01=0x002e}
0x09644…09660               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0060, t01=0x005c}
0x09660…09696               Head {h00=0x0032, h01=0x0050, text=» ADR* A4,A8 A4=POINTER TO W.B.-ADDRESS IN T:A «, t00=0x0060, t01=0x0078}
0x09696…096bc               Head {h00=0x0022, h01=0x0050, text=» STR A3,A4 CHANGE W.B.-ADDRESS«, t00=0x0060, t01=0x00ae}
0x096bc…096c8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x00d4}
0x096c8…096e4               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0060, t01=0x00e0}
0x096e4…09716               Head {h00=0x002e, h01=0x0050, text=» LD A2,FLAG,A13 REAL DATA-PART PROCESSING?«, t00=0x0060, t01=0x00fc}
0x09716…09730               Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVD50 NO! «, t00=0x0060, t01=0x012e}
0x09730…09754               Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x0060, t01=0x0148}
0x09754…09768               Head {h00=0x0010, h01=0x0050, text=»MOVD50 EQU *«, t00=0x0060, t01=0x016c}
0x09768…0979a               Head {h00=0x002e, h01=0x0050, text=» ELR A10,A8 A4=POINTER TO W.B.-ADDR IN T:A«, t00=0x0060, t01=0x0180}
0x0979a…097ae               Head {h00=0x0010, h01=0x0050, text=» ADR A4,A10 «, t00=0x0061, t01=0x0022}
0x097ae…097d4               Head {h00=0x0022, h01=0x0050, text=» ESR A3,A4 CHANGE W.B.-ADDRESS«, t00=0x0061, t01=0x0036}
0x097d4…097fe               Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM-TABLE «, t00=0x0061, t01=0x005c}
0x097fe…0980a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x0086}
0x0980a…09820               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0061, t01=0x0092}
0x09820…09838               Head {h00=0x0014, h01=0x0050, text=» ST A4,WBADD,A13«, t00=0x0061, t01=0x00a8}
0x09838…0986a               Head {h00=0x002e, h01=0x0050, text=» LD A2,SWITCH,A13 WB-ADDRESS CHANGE ONLY? «, t00=0x0061, t01=0x00c0}
0x0986a…09886               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) MOVD10 YES! «, t00=0x0061, t01=0x00f2}
0x09886…098a4               Head {h00=0x001a, h01=0x0050, text=» CALL MOVDT MOVE D.T. «, t00=0x0061, t01=0x010e}
0x098a4…098b6               Head {h00=0x000e, h01=0x0050, text=» RB MOVD10«, t00=0x0061, t01=0x012c}
0x098b6…098ca               Head {h00=0x0010, h01=0x0050, text=»MOVD60 EQU *«, t00=0x0061, t01=0x013e}
0x098ca…098ee               Head {h00=0x0020, h01=0x0050, text=» LD A6,SAVE05,A13 RESTORE A6«, t00=0x0061, t01=0x0152}
0x098ee…098fe               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0061, t01=0x0176}
0x098fe…0990c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0061, t01=0x0186}
0x0990c…09914 (98, 0, 400)  Head {h00=0x0004, h01=0x0050, t00=0x0062, t01=0x0004}
0x09914…0991c               Head {h00=0x0004, h01=0x0050, t00=0x0062, t01=0x000c}
0x0991c…09954               Head {h00=0x0034, h01=0x0050, text=»**              T W B S W B                   **«, t00=0x0062, t01=0x0014}
0x09954…0998c               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x0062, t01=0x004c}
0x0998c…099c4               Head {h00=0x0034, h01=0x0050, text=»**  COPY TWB'S AND RESERVE SPACE FOR SWB'S    **«, t00=0x0062, t01=0x0084}
0x099c4…099fc               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x0062, t01=0x00bc}
0x099fc…09a34               Head {h00=0x0034, h01=0x0050, text=»**  INPUT : A8=ACTUAL T:A-ADDRESS             **«, t00=0x0062, t01=0x00f4}
0x09a34…09a6c               Head {h00=0x0034, h01=0x0050, text=»**          A12=T:D-ADDRESS                   **«, t00=0x0062, t01=0x012c}
0x09a6c…09aa4               Head {h00=0x0034, h01=0x0050, text=»**  WORK-REGS: A1-A4,   A11                   **«, t00=0x0062, t01=0x0164}
0x09aa4…09adc               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0063, t01=0x000c}
0x09adc…09ae4               Head {h00=0x0004, h01=0x0050, t00=0x0063, t01=0x0044}
0x09ae4…09af8               Head {h00=0x0010, h01=0x0050, text=»TWBSWB EQU *«, t00=0x0063, t01=0x004c}
0x09af8…09b1a               Head {h00=0x001e, h01=0x0050, text=» ST A7,SAVE04,A13 SAVE A7 «, t00=0x0063, t01=0x0060}
0x09b1a…09b40               Head {h00=0x0022, h01=0x0050, text=» LD A7,TWBMSK,A12 GET TWB MASK«, t00=0x0063, t01=0x0082}
0x09b40…09b5c               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0063, t01=0x00a8}
0x09b5c…09b82               Head {h00=0x0022, h01=0x0050, text=» EL A7,TWBMSK,A12 GET TWB MASK«, t00=0x0063, t01=0x00c4}
0x09b82…09b8e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x00ea}
0x09b8e…09ba4               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0063, t01=0x00f6}
0x09ba4…09bb8               Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x0063, t01=0x010c}
0x09bb8…09bde               Head {h00=0x0022, h01=0x0050, text=»TWSW10 RF(Z) TWSW20 ALL DONE! «, t00=0x0063, t01=0x0120}
0x09bde…09bf2               Head {h00=0x0010, h01=0x0050, text=» CALL GETWB «, t00=0x0063, t01=0x0146}
0x09bf2…09c06               Head {h00=0x0010, h01=0x0050, text=» CALL MOVWB «, t00=0x0063, t01=0x015a}
0x09c06…09c34               Head {h00=0x002a, h01=0x0050, text=» ST A2,NEWAD2,A13 SAVE NEW WB-ADDRESS «, t00=0x0063, t01=0x016e}
0x09c34…09c5e               Head {h00=0x0026, h01=0x0050, text=» CALL MOVDWB CHANGE DWB-ADDRESSES «, t00=0x0064, t01=0x000c}
0x09c5e…09c72               Head {h00=0x0010, h01=0x0050, text=» CALL SKIFTA«, t00=0x0064, t01=0x0036}
0x09c72…09c84               Head {h00=0x000e, h01=0x0050, text=» RB TWSW10«, t00=0x0064, t01=0x004a}
0x09c84…09c98               Head {h00=0x0010, h01=0x0050, text=»TWSW20 EQU *«, t00=0x0064, t01=0x005c}
0x09c98…09cb4               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0064, t01=0x0070}
0x09cb4…09cc2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0064, t01=0x008c}
0x09cc2…09cce               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0064, t01=0x009a}
0x09cce…09cda               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0064, t01=0x00a6}
0x09cda…09cfe               Head {h00=0x0020, h01=0x0050, text=»* RESERVE SPACE FOR SWB'S * «, t00=0x0064, t01=0x00b2}
0x09cfe…09d22               Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0064, t01=0x00d6}
0x09d22…09d2e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x00fa}
0x09d2e…09d4a               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x0064, t01=0x0106}
0x09d4a…09d64               Head {h00=0x0016, h01=0x0050, text=» LD A7,SWBMSK,A12 «, t00=0x0064, t01=0x0122}
0x09d64…09d70               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x013c}
0x09d70…09d8c               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x0064, t01=0x0148}
0x09d8c…09da6               Head {h00=0x0016, h01=0x0050, text=» EL A7,SWBMSK,A12 «, t00=0x0064, t01=0x0164}
0x09da6…09db2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x017e}
0x09db2…09dce               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0064, t01=0x018a}
0x09dce…09de2               Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x0065, t01=0x0016}
0x09de2…09e06               Head {h00=0x0020, h01=0x0050, text=»TWSW30 RF(Z) TARZAN ALL DONE«, t00=0x0065, t01=0x002a}
0x09e06…09e1a               Head {h00=0x0010, h01=0x0050, text=» CALL GETWB «, t00=0x0065, t01=0x004e}
0x09e1a…09e3c               Head {h00=0x001e, h01=0x0050, text=» CALL MOVWB RESERVE SPACE «, t00=0x0065, t01=0x0062}
0x09e3c…09e68               Head {h00=0x0028, h01=0x0050, text=» ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS «, t00=0x0065, t01=0x0084}
0x09e68…09e92               Head {h00=0x0026, h01=0x0050, text=» CALL MOVDWB CHANGE DWB- ADDRESSES«, t00=0x0065, t01=0x00b0}
0x09e92…09ea6               Head {h00=0x0010, h01=0x0050, text=» CALL SKIFTA«, t00=0x0065, t01=0x00da}
0x09ea6…09eb8               Head {h00=0x000e, h01=0x0050, text=» RB TWSW30«, t00=0x0065, t01=0x00ee}
0x09eb8…09ecc               Head {h00=0x0010, h01=0x0050, text=»TARZAN EQU *«, t00=0x0065, t01=0x0100}
0x09ecc…09ed8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0065, t01=0x0114}
0x09ed8…09eee               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0065, t01=0x0120}
0x09eee…09f12               Head {h00=0x0020, h01=0x0050, text=» LD A7,SAVE04,A13 RESTORE A7«, t00=0x0065, t01=0x0136}
0x09f12…09f22               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0065, t01=0x015a}
0x09f22…09f30               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0065, t01=0x016a}
0x09f30…09f38               Head {h00=0x0004, h01=0x0050, t00=0x0065, t01=0x0178}
0x09f38…09f40               Head {h00=0x0004, h01=0x0050, t00=0x0065, t01=0x0180}
0x09f40…09f78               Head {h00=0x0034, h01=0x0050, text=»**                A L L B U F                 **«, t00=0x0065, t01=0x0188}
0x09f78…09fb0               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x0066, t01=0x0030}
0x09fb0…09fe8               Head {h00=0x0034, h01=0x0050, text=»**  ALLOCATE FIXED DATA SET BUFFERS AND       **«, t00=0x0066, t01=0x0068}
0x09fe8…0a020               Head {h00=0x0034, h01=0x0050, text=»**  TERMINAL STACK                            **«, t00=0x0066, t01=0x00a0}
0x0a020…0a058               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x0066, t01=0x00d8}
0x0a058…0a090               Head {h00=0x0034, h01=0x0050, text=»**  INPUT : A8=ACTUAL T:A-ADDRESS IN T:ATAB   **«, t00=0x0066, t01=0x0110}
0x0a090…0a0c8               Head {h00=0x0034, h01=0x0050, text=»**          A12=T:D-ADDRESS                   **«, t00=0x0066, t01=0x0148}
0x0a0c8…0a100               Head {h00=0x0034, h01=0x0050, text=»**          CSN (IN T:A)=LENGTH OF DSCB'S     **«, t00=0x0066, t01=0x0180}
0x0a100…0a138               Head {h00=0x0034, h01=0x0050, text=»**          CIA (IN T:A)=DISPL. TO T:A-START  **«, t00=0x0067, t01=0x0028}
0x0a138…0a170               Head {h00=0x0034, h01=0x0050, text=»**          CSE (IN T:A)=STACKSIZE            **«, t00=0x0067, t01=0x0060}
0x0a170…0a1a8               Head {h00=0x0034, h01=0x0050, text=»**  WORK-REGS. :A1-A4,A9,A11                  **«, t00=0x0067, t01=0x0098}
0x0a1a8…0a1e0               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0067, t01=0x00d0}
0x0a1e0…0a1e8               Head {h00=0x0004, h01=0x0050, t00=0x0067, t01=0x0108}
0x0a1e8…0a1fc               Head {h00=0x0010, h01=0x0050, text=»ALLBUF EQU *«, t00=0x0067, t01=0x0110}
0x0a1fc…0a218               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0067, t01=0x0124}
0x0a218…0a24a               Head {h00=0x002e, h01=0x0050, text=» LD A9,FSTADR,A13 GET BUFFER START ADDRESS«, t00=0x0067, t01=0x0140}
0x0a24a…0a26e               Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A-ADDRESS «, t00=0x0067, t01=0x0172}
0x0a26e…0a29a               Head {h00=0x0028, h01=0x0050, text=» LD A3,CSN,A1 GET DSCB TOTAL LENGTH «, t00=0x0068, t01=0x0008}
0x0a29a…0a2ba               Head {h00=0x001c, h01=0x0050, text=» RF(Z) ALLB70 NO DSCB'S «, t00=0x0068, t01=0x0034}
0x0a2ba…0a2ec               Head {h00=0x002e, h01=0x0050, text=» ADKL A1,T:ASTA CALC START OF DSCB RECORDS«, t00=0x0068, t01=0x0054}
0x0a2ec…0a312               Head {h00=0x0022, h01=0x0050, text=» LDR A10,A1 SAVE START ADDRESS«, t00=0x0068, t01=0x0086}
0x0a312…0a31e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x00ac}
0x0a31e…0a33a               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0068, t01=0x00b8}
0x0a33a…0a35c               Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A-ADDRESS«, t00=0x0068, t01=0x00d4}
0x0a35c…0a388               Head {h00=0x0028, h01=0x0050, text=» EL A3,CSN,A1 GET DSCB TOTAL LENGTH «, t00=0x0068, t01=0x00f6}
0x0a388…0a3a6               Head {h00=0x001a, h01=0x0050, text=» RF(Z) ALLB70 NO DSCB «, t00=0x0068, t01=0x0122}
0x0a3a6…0a3d8               Head {h00=0x002e, h01=0x0050, text=» ADKL A1,T:ASTA CALCULATE START OF DSCB'S «, t00=0x0068, t01=0x0140}
0x0a3d8…0a3fe               Head {h00=0x0022, h01=0x0050, text=» LDR A10,A1 SAVE START ADDRESS«, t00=0x0068, t01=0x0172}
0x0a3fe…0a40a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0069, t01=0x0008}
0x0a40a…0a420               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0069, t01=0x0014}
0x0a420…0a432               Head {h00=0x000e, h01=0x0050, text=» SUR A3,A1«, t00=0x0069, t01=0x002a}
0x0a432…0a444               Head {h00=0x000e, h01=0x0050, text=» NGR A3,A3«, t00=0x0069, t01=0x003c}
0x0a444…0a468               Head {h00=0x0020, h01=0x0050, text=» SUK A3,DSCBL END CONDITION «, t00=0x0069, t01=0x004e}
0x0a468…0a4a6               Head {h00=0x003a, h01=0x0050, text=» ST A3,SAVE04,A13 SAVE ADDRESS TO END OF DSCB-RECORDS «, t00=0x0069, t01=0x0072}
0x0a4a6…0a4e4               Head {h00=0x003a, h01=0x0050, text=»ALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD«, t00=0x0069, t01=0x00b0}
0x0a4e4…0a502               Head {h00=0x001a, h01=0x0050, text=» CW A1,SAVE04,A13 ALL?«, t00=0x0069, t01=0x00ee}
0x0a502…0a51c               Head {h00=0x0016, h01=0x0050, text=» RF(E) ALLB70 YES!«, t00=0x0069, t01=0x010c}
0x0a51c…0a538               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0069, t01=0x0126}
0x0a538…0a562               Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A1 GET FIRST WORD IN ECB «, t00=0x0069, t01=0x0142}
0x0a562…0a582               Head {h00=0x001c, h01=0x0050, text=» SLL A3,1 STATIC BUFFER?«, t00=0x0069, t01=0x016c}
0x0a582…0a59c               Head {h00=0x0016, h01=0x0050, text=» RB(NN) ALLB10 NO!«, t00=0x0069, t01=0x018c}
0x0a59c…0a5be               Head {h00=0x001e, h01=0x0050, text=» ST A9,BA,A1 BUFFER START «, t00=0x006a, t01=0x0016}
0x0a5be…0a5e0               Head {h00=0x001e, h01=0x0050, text=» LD A3,RL,A1 BUFFER LENGTH«, t00=0x006a, t01=0x0038}
0x0a5e0…0a5f4               Head {h00=0x0010, h01=0x0050, text=» ST A3,BL,A1«, t00=0x006a, t01=0x005a}
0x0a5f4…0a618               Head {h00=0x0020, h01=0x0050, text=» LD A2,EL,A1 SHARED BUFFER? «, t00=0x006a, t01=0x006e}
0x0a618…0a630               Head {h00=0x0014, h01=0x0050, text=» RF(Z) NOTSH NO!«, t00=0x006a, t01=0x0092}
0x0a630…0a65a               Head {h00=0x0026, h01=0x0050, text=» LDR A4,A1 RESTORE START OF DSCB'S«, t00=0x006a, t01=0x00aa}
0x0a65a…0a666               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006a, t01=0x00d4}
0x0a666…0a682               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x006a, t01=0x00e0}
0x0a682…0a6aa               Head {h00=0x0024, h01=0x0050, text=» ELR A3,A1 GET FIRST WORD IN ECB«, t00=0x006a, t01=0x00fc}
0x0a6aa…0a6ca               Head {h00=0x001c, h01=0x0050, text=» SLL A3,1 STATIC BUFFER?«, t00=0x006a, t01=0x0124}
0x0a6ca…0a6e4               Head {h00=0x0016, h01=0x0050, text=» RB(NN) ALLB10 NO!«, t00=0x006a, t01=0x0144}
0x0a6e4…0a706               Head {h00=0x001e, h01=0x0050, text=» EL A3,RL,A1 BUFFER LENGTH«, t00=0x006a, t01=0x015e}
0x0a706…0a71a               Head {h00=0x0010, h01=0x0050, text=» ES A3,BL,A1«, t00=0x006a, t01=0x0180}
0x0a71a…0a73e (107, 0, 400) Head {h00=0x0020, h01=0x0050, text=» EL A2,EL,A1 SHARED BUFFER? «, t00=0x006b, t01=0x0004}
0x0a73e…0a756               Head {h00=0x0014, h01=0x0050, text=» RF(Z) NOTSH NO!«, t00=0x006b, t01=0x0028}
0x0a756…0a780               Head {h00=0x0026, h01=0x0050, text=» LDR A4,A1 RESTORE START OF DSCB'S«, t00=0x006b, t01=0x0040}
0x0a780…0a78c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006b, t01=0x006a}
0x0a78c…0a7a2               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x006b, t01=0x0076}
0x0a7a2…0a7c2               Head {h00=0x001c, h01=0x0050, text=» ADK A4,DSCBL FIRST WORD«, t00=0x006b, t01=0x008c}
0x0a7c2…0a7e2               Head {h00=0x001c, h01=0x0050, text=»ALLB20 SUK A2,1 A2=INDEX«, t00=0x006b, t01=0x00ac}
0x0a7e2…0a7f8               Head {h00=0x0012, h01=0x0050, text=» RF(NN) ALLB30«, t00=0x006b, t01=0x00cc}
0x0a7f8…0a81a               Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP4 FORMAT ERROR «, t00=0x006b, t01=0x00e2}
0x0a81a…0a82e               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006b, t01=0x0104}
0x0a82e…0a842               Head {h00=0x0010, h01=0x0050, text=»ALLB30 EQU *«, t00=0x006b, t01=0x0118}
0x0a842…0a862               Head {h00=0x001c, h01=0x0050, text=» RF(Z) ALLB40 ECB FOUND «, t00=0x006b, t01=0x012c}
0x0a862…0a896               Head {h00=0x0030, h01=0x0050, text=» ADK A4,DSCBL A4=ADDRESS TO DSCB TO EXAMINE «, t00=0x006b, t01=0x014c}
0x0a896…0a8aa               Head {h00=0x0010, h01=0x0050, text=» CWR A4,A10 «, t00=0x006b, t01=0x0180}
0x0a8aa…0a8c0 (108, 0, 400) Head {h00=0x0012, h01=0x0050, text=» RB(NE) ALLB20«, t00=0x006c, t01=0x0004}
0x0a8c0…0a8e6               Head {h00=0x0022, h01=0x0050, text=» LDK A1,LMP4 BUFFER NOT FOUND «, t00=0x006c, t01=0x001a}
0x0a8e6…0a8fa               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006c, t01=0x0040}
0x0a8fa…0a916               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x006c, t01=0x0054}
0x0a916…0a942               Head {h00=0x0028, h01=0x0050, text=»ALLB40 LD A4,BA,A4 BUFFER ALLOCATED?«, t00=0x006c, t01=0x0070}
0x0a942…0a95e               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ALLB50 YES! «, t00=0x006c, t01=0x009c}
0x0a95e…0a980               Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP4 FORMAT ERROR «, t00=0x006c, t01=0x00b8}
0x0a980…0a994               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006c, t01=0x00da}
0x0a994…0a9a8               Head {h00=0x0010, h01=0x0050, text=»ALLB50 EQU *«, t00=0x006c, t01=0x00ee}
0x0a9a8…0a9d6               Head {h00=0x002a, h01=0x0050, text=» ST A4,BA,A1 AND STORE IN CURRENT ECB «, t00=0x006c, t01=0x0102}
0x0a9d6…0a9e2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006c, t01=0x0130}
0x0a9e2…0a9fe               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x006c, t01=0x013c}
0x0a9fe…0aa2a               Head {h00=0x0028, h01=0x0050, text=»ALLB40 EL A4,BA,A4 BUFFER ALLOCATED?«, t00=0x006c, t01=0x0158}
0x0aa2a…0aa46               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ALLB50 YES! «, t00=0x006c, t01=0x0184}
0x0aa46…0aa68               Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP4 FORMAT ERROR «, t00=0x006d, t01=0x0010}
0x0aa68…0aa7c               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006d, t01=0x0032}
0x0aa7c…0aa90               Head {h00=0x0010, h01=0x0050, text=»ALLB50 EQU *«, t00=0x006d, t01=0x0046}
0x0aa90…0aabe               Head {h00=0x002a, h01=0x0050, text=» ES A4,BA,A1 AND ESORE IN CURRENT ECB «, t00=0x006d, t01=0x005a}
0x0aabe…0aaca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006d, t01=0x0088}
0x0aaca…0aae0               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x006d, t01=0x0094}
0x0aae0…0aaf2               Head {h00=0x000e, h01=0x0050, text=» RB ALLB10«, t00=0x006d, t01=0x00aa}
0x0aaf2…0aafa               Head {h00=0x0004, h01=0x0050, t00=0x006d, t01=0x00bc}
0x0aafa…0ab16               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x006d, t01=0x00c4}
0x0ab16…0ab36               Head {h00=0x001c, h01=0x0050, text=»NOTSH LDR A9,A9 PAGING? «, t00=0x006d, t01=0x00e0}
0x0ab36…0ab50               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) NOTS10 NO!«, t00=0x006d, t01=0x0100}
0x0ab50…0ab80               Head {h00=0x002c, h01=0x0050, text=» CALL MOVING ALLOCATE BUFFER FROM BOTTOM«, t00=0x006d, t01=0x011a}
0x0ab80…0abaa               Head {h00=0x0026, h01=0x0050, text=» ST A2,BA,A1 STORE BUFFER ADDRESS «, t00=0x006d, t01=0x014a}
0x0abaa…0abbc               Head {h00=0x000e, h01=0x0050, text=» RB ALLB10«, t00=0x006d, t01=0x0174}
0x0abbc…0abee               Head {h00=0x002e, h01=0x0050, text=»NOTS10 ADR A9,A3 ALLOCATE BUFFER FROM TOP «, t00=0x006d, t01=0x0186}
0x0abee…0ac00               Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x006e, t01=0x0028}
0x0ac00…0ac24               Head {h00=0x0020, h01=0x0050, text=» ANKL A9,/FFFE EVEN ADDRESS «, t00=0x006e, t01=0x003a}
0x0ac24…0ac3c               Head {h00=0x0014, h01=0x0050, text=»* CHECK ADDRESS:«, t00=0x006e, t01=0x005e}
0x0ac3c…0ac48               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x006e, t01=0x0076}
0x0ac48…0ac6e               Head {h00=0x0022, h01=0x0050, text=» LD A11,LSTADR,A13 DATA START «, t00=0x006e, t01=0x0082}
0x0ac6e…0ac82               Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x006e, t01=0x00a8}
0x0ac82…0ac9c               Head {h00=0x0016, h01=0x0050, text=» RF(NL) ALLB60 OK!«, t00=0x006e, t01=0x00bc}
0x0ac9c…0acb2               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x006e, t01=0x00d6}
0x0acb2…0acc6               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006e, t01=0x00ec}
0x0acc6…0acda               Head {h00=0x0010, h01=0x0050, text=»ALLB60 EQU *«, t00=0x006e, t01=0x0100}
0x0acda…0ad0c               Head {h00=0x002e, h01=0x0050, text=» ST A9,FSTADR,A13 SAVE BUFFER END ADDRESS «, t00=0x006e, t01=0x0114}
0x0ad0c…0ad18               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006e, t01=0x0146}
0x0ad18…0ad34               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x006e, t01=0x0152}
0x0ad34…0ad6c               Head {h00=0x0034, h01=0x0050, text=»NOTSH CALL MOVING ALLOCATE BUFFER FROM 'BOTTOM' «, t00=0x006e, t01=0x016e}
0x0ad6c…0ad96               Head {h00=0x0026, h01=0x0050, text=» ES A2,BA,A1 STORE BUFFER ADDRESS «, t00=0x006f, t01=0x0016}
0x0ad96…0ada2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006f, t01=0x0040}
0x0ada2…0adb8               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x006f, t01=0x004c}
0x0adb8…0adca               Head {h00=0x000e, h01=0x0050, text=» RB ALLB10«, t00=0x006f, t01=0x0062}
0x0adca…0add6               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x006f, t01=0x0074}
0x0add6…0ae06               Head {h00=0x002c, h01=0x0050, text=»* RESERVE STACK AND SET STACKPOINTERS * «, t00=0x006f, t01=0x0080}
0x0ae06…0ae0e               Head {h00=0x0004, h01=0x0050, t00=0x006f, t01=0x00b0}
0x0ae0e…0ae22               Head {h00=0x0010, h01=0x0050, text=»ALLB70 EQU *«, t00=0x006f, t01=0x00b8}
0x0ae22…0ae3e               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x006f, t01=0x00cc}
0x0ae3e…0ae62               Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A-ADDRESS «, t00=0x006f, t01=0x00e8}
0x0ae62…0ae7c               Head {h00=0x0016, h01=0x0050, text=» LD A4,LSTADR,A13 «, t00=0x006f, t01=0x010c}
0x0ae7c…0ae8e               Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x006f, t01=0x0126}
0x0ae8e…0aeb2               Head {h00=0x0020, h01=0x0050, text=» LD A3,CSE,A1 GET STACK SIZE«, t00=0x006f, t01=0x0138}
0x0aeb2…0aec8               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) ALLB80«, t00=0x006f, t01=0x015c}
0x0aec8…0aef0               Head {h00=0x0024, h01=0x0050, text=» LDK A3,STKSZ DEFAULT STACKSIZE «, t00=0x006f, t01=0x0172}
0x0aef0…0af04               Head {h00=0x0010, h01=0x0050, text=»ALLB80 EQU *«, t00=0x0070, t01=0x000a}
0x0af04…0af28               Head {h00=0x0020, h01=0x0050, text=» ST A4,STKB,A1 SET STACKBASE«, t00=0x0070, t01=0x001e}
0x0af28…0af48               Head {h00=0x001c, h01=0x0050, text=» STR A4,A1 STACK POINTER«, t00=0x0070, t01=0x0042}
0x0af48…0af6c               Head {h00=0x0020, h01=0x0050, text=» CALL MOVING ALLOCATE STACK «, t00=0x0070, t01=0x0062}
0x0af6c…0af90               Head {h00=0x0020, h01=0x0050, text=» ST A2,STKE,A1 SET STACK-END«, t00=0x0070, t01=0x0086}
0x0af90…0af9c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0070, t01=0x00aa}
0x0af9c…0afb8               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0070, t01=0x00b6}
0x0afb8…0afda               Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A-ADDRESS«, t00=0x0070, t01=0x00d2}
0x0afda…0affe               Head {h00=0x0020, h01=0x0050, text=» EL A3,CSE,A1 GET STACK SIZE«, t00=0x0070, t01=0x00f4}
0x0affe…0b02c               Head {h00=0x002a, h01=0x0050, text=» RF(NZ) ALLB80 USER DEFINED STACK SIZE«, t00=0x0070, t01=0x0118}
0x0b02c…0b054               Head {h00=0x0024, h01=0x0050, text=» LDK A3,STKSZ DEFAULT STACK SIZE«, t00=0x0070, t01=0x0146}
0x0b054…0b080               Head {h00=0x0028, h01=0x0050, text=»ALLB80 ES A3,STKB,A1 SAVE STACK SIZE«, t00=0x0070, t01=0x016e}
0x0b080…0b0a4               Head {h00=0x0020, h01=0x0050, text=» CALL MOVING ALLOCATE STACK «, t00=0x0071, t01=0x000a}
0x0b0a4…0b0ca               Head {h00=0x0022, h01=0x0050, text=» ES A2,STKE,A1 STORE STACK END«, t00=0x0071, t01=0x002e}
0x0b0ca…0b0f0               Head {h00=0x0022, h01=0x0050, text=» EL A3,STKB,A1 GET STACK SIZE «, t00=0x0071, t01=0x0054}
0x0b0f0…0b116               Head {h00=0x0022, h01=0x0050, text=» ADR A2,A3 COMPUTE STACK BASE «, t00=0x0071, t01=0x007a}
0x0b116…0b148               Head {h00=0x002e, h01=0x0050, text=» SUK A2,2 ADDRESS TO LAST WORD IN STACK =1«, t00=0x0071, t01=0x00a0}
0x0b148…0b170               Head {h00=0x0024, h01=0x0050, text=» ES A2,STKB,A1 STORE STACK BASE «, t00=0x0071, t01=0x00d2}
0x0b170…0b19e               Head {h00=0x002a, h01=0x0050, text=» ESR A2,A1 STORE CURRENT STACK POINTER«, t00=0x0071, t01=0x00fa}
0x0b19e…0b1aa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0071, t01=0x0128}
0x0b1aa…0b1c0               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0071, t01=0x0134}
0x0b1c0…0b1d0               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0071, t01=0x014a}
0x0b1d0…0b1de               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0071, t01=0x015a}
0x0b1de…0b1e6               Head {h00=0x0004, h01=0x0050, t00=0x0071, t01=0x0168}
0x0b1e6…0b21e               Head {h00=0x0034, h01=0x0050, text=»**              M O V T : A                   **«, t00=0x0071, t01=0x0170}
0x0b21e…0b256               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x0072, t01=0x0018}
0x0b256…0b28e               Head {h00=0x0034, h01=0x0050, text=»**  MOVE T:A AND UPDATE DATA SET ADDRESSES IN **«, t00=0x0072, t01=0x0050}
0x0b28e…0b2c6               Head {h00=0x0034, h01=0x0050, text=»**  FORMAT CONTROL BLOCK                      **«, t00=0x0072, t01=0x0088}
0x0b2c6…0b2fe               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x0072, t01=0x00c0}
0x0b2fe…0b336               Head {h00=0x0034, h01=0x0050, text=»**  INPUT : A8=T:A-ADDRESS                    **«, t00=0x0072, t01=0x00f8}
0x0b336…0b36e               Head {h00=0x0034, h01=0x0050, text=»**          A12=T:D-ADDRESS                   **«, t00=0x0072, t01=0x0130}
0x0b36e…0b3a6               Head {h00=0x0034, h01=0x0050, text=»**          CIA (IN T:A)=DISL. TO T:A-START   **«, t00=0x0072, t01=0x0168}
0x0b3a6…0b3de               Head {h00=0x0034, h01=0x0050, text=»**  OUTPUT: A2=NEW T:A-ADDRESS                **«, t00=0x0073, t01=0x0010}
0x0b3de…0b416               Head {h00=0x0034, h01=0x0050, text=»**  WORKREGS: A1-A4                           **«, t00=0x0073, t01=0x0048}
0x0b416…0b44e               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0073, t01=0x0080}
0x0b44e…0b456               Head {h00=0x0004, h01=0x0050, t00=0x0073, t01=0x00b8}
0x0b456…0b46a               Head {h00=0x0010, h01=0x0050, text=»MOVT:A EQU *«, t00=0x0073, t01=0x00c0}
0x0b46a…0b486               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0073, t01=0x00d4}
0x0b486…0b4aa               Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A-ADDRESS «, t00=0x0073, t01=0x00f0}
0x0b4aa…0b4d6               Head {h00=0x0028, h01=0x0050, text=» LD A3,WATLEN,A12 GET LENGTH OF WAT «, t00=0x0073, t01=0x0114}
0x0b4d6…0b4ee               Head {h00=0x0014, h01=0x0050, text=» SLL A3,2 BYTES «, t00=0x0073, t01=0x0140}
0x0b4ee…0b51e               Head {h00=0x002c, h01=0x0050, text=» SU A3,CIA,A1 ADD DISPLACEMENT TO START «, t00=0x0073, t01=0x0158}
0x0b51e…0b53e               Head {h00=0x001c, h01=0x0050, text=» ADK A3,WATFST A3=LENGTH«, t00=0x0073, t01=0x0188}
0x0b53e…0b560               Head {h00=0x001e, h01=0x0050, text=» AD A1,CIA,A1 FROM-ADDRESS«, t00=0x0074, t01=0x0018}
0x0b560…0b574               Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0074, t01=0x003a}
0x0b574…0b588               Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A8 «, t00=0x0074, t01=0x004e}
0x0b588…0b5ae               Head {h00=0x0022, h01=0x0050, text=» SU A2,CIA,A4 NEW T:A-ADDRESS «, t00=0x0074, t01=0x0062}
0x0b5ae…0b5d6               Head {h00=0x0024, h01=0x0050, text=» SU A1,CIA,A4 'OLD' T:A-ADDRESS «, t00=0x0074, t01=0x0088}
0x0b5d6…0b5de               Head {h00=0x0004, h01=0x0050, t00=0x0074, t01=0x00b0}
0x0b5de…0b61a               Head {h00=0x0038, h01=0x0050, text=»* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * «, t00=0x0074, t01=0x00b8}
0x0b61a…0b622               Head {h00=0x0004, h01=0x0050, t00=0x0074, t01=0x00f4}
0x0b622…0b642               Head {h00=0x001c, h01=0x0050, text=» LD A3,FCD,A12 ANY FCD? «, t00=0x0074, t01=0x00fc}
0x0b642…0b65c               Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVT10 NO! «, t00=0x0074, t01=0x011c}
0x0b65c…0b67c               Head {h00=0x001c, h01=0x0050, text=» ADR A3,A2 START OF FCB «, t00=0x0074, t01=0x0136}
0x0b67c…0b6a0               Head {h00=0x0020, h01=0x0050, text=» LDR A4,A2 SAVE T:A-ADDRESS «, t00=0x0074, t01=0x0156}
0x0b6a0…0b6d4               Head {h00=0x0030, h01=0x0050, text=» LD A10,FLAG,A13 REAL TASK DATA PROCESSING? «, t00=0x0074, t01=0x017a}
0x0b6d4…0b6ee               Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVT05 NO! «, t00=0x0075, t01=0x001e}
0x0b6ee…0b72c               Head {h00=0x003a, h01=0x0050, text=» SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDRESS)«, t00=0x0075, t01=0x0038}
0x0b72c…0b740               Head {h00=0x0010, h01=0x0050, text=»MOVT05 EQU *«, t00=0x0075, t01=0x0076}
0x0b740…0b75a               Head {h00=0x0016, h01=0x0050, text=» ADS A4,FCBDD1,A3 «, t00=0x0075, t01=0x008a}
0x0b75a…0b774               Head {h00=0x0016, h01=0x0050, text=» ADS A4,FCBDD2,A3 «, t00=0x0075, t01=0x00a4}
0x0b774…0b78a               Head {h00=0x0012, h01=0x0050, text=»MOVT10 RTN A14«, t00=0x0075, t01=0x00be}
0x0b78a…0b796               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0075, t01=0x00d4}
0x0b796…0b7b2               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0075, t01=0x00e0}
0x0b7b2…0b7ba               Head {h00=0x0004, h01=0x0050, t00=0x0075, t01=0x00fc}
0x0b7ba…0b7dc               Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A-ADDRESS«, t00=0x0075, t01=0x0104}
0x0b7dc…0b808               Head {h00=0x0028, h01=0x0050, text=» EL A3,WATLEN,A12 GET LENGTH OF WAT «, t00=0x0075, t01=0x0126}
0x0b808…0b820               Head {h00=0x0014, h01=0x0050, text=» SLL A3,2 BYTES «, t00=0x0075, t01=0x0152}
0x0b820…0b836               Head {h00=0x0012, h01=0x0050, text=» EL A10,CIA,A1«, t00=0x0075, t01=0x016a}
0x0b836…0b85e               Head {h00=0x0024, h01=0x0050, text=» SUR A3,A10 ADD DISPL. TO START «, t00=0x0075, t01=0x0180}
0x0b85e…0b87e               Head {h00=0x001c, h01=0x0050, text=» ADK A3,WATFST A3=LENGTH«, t00=0x0076, t01=0x0018}
0x0b87e…0b89e               Head {h00=0x001c, h01=0x0050, text=» ADR A1,A10 FROM-ADDRESS«, t00=0x0076, t01=0x0038}
0x0b89e…0b8b2               Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0076, t01=0x0058}
0x0b8b2…0b8c4               Head {h00=0x000e, h01=0x0050, text=» ELR A4,A8«, t00=0x0076, t01=0x006c}
0x0b8c4…0b8da               Head {h00=0x0012, h01=0x0050, text=» EL A10,CIA,A4«, t00=0x0076, t01=0x007e}
0x0b8da…0b8fe               Head {h00=0x0020, h01=0x0050, text=» SUR A2,A10 NEW T:A-ADDRESS «, t00=0x0076, t01=0x0094}
0x0b8fe…0b924               Head {h00=0x0022, h01=0x0050, text=» SUR A1,A10 'OLD' T:A-ADDRESS «, t00=0x0076, t01=0x00b8}
0x0b924…0b960               Head {h00=0x0038, h01=0x0050, text=»* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * «, t00=0x0076, t01=0x00de}
0x0b960…0b968               Head {h00=0x0004, h01=0x0050, t00=0x0076, t01=0x011a}
0x0b968…0b988               Head {h00=0x001c, h01=0x0050, text=» EL A3,FCD,A12 ANY FCD? «, t00=0x0076, t01=0x0122}
0x0b988…0b9a2               Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVT10 NO! «, t00=0x0076, t01=0x0142}
0x0b9a2…0b9c4               Head {h00=0x001e, h01=0x0050, text=» LDR A4,A2 GET T:A-ADDRESS«, t00=0x0076, t01=0x015c}
0x0b9c4…0b9f8               Head {h00=0x0030, h01=0x0050, text=» LD A10,FLAG,A13 REAL TASK DATA PROCESSING? «, t00=0x0076, t01=0x017e}
0x0b9f8…0ba12               Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVT05 NO! «, t00=0x0077, t01=0x0022}
0x0ba12…0ba4e               Head {h00=0x0038, h01=0x0050, text=» SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDR.)«, t00=0x0077, t01=0x003c}
0x0ba4e…0ba62               Head {h00=0x0010, h01=0x0050, text=»MOVT05 EQU *«, t00=0x0077, t01=0x0078}
0x0ba62…0ba82               Head {h00=0x001c, h01=0x0050, text=» ADR A3,A2 START OF FCB «, t00=0x0077, t01=0x008c}
0x0ba82…0baa4               Head {h00=0x001e, h01=0x0050, text=» TL* MMTO,13 LOAD TO-TABLE«, t00=0x0077, t01=0x00ac}
0x0baa4…0babe               Head {h00=0x0016, h01=0x0050, text=» EL A10,FCBDD1,A3 «, t00=0x0077, t01=0x00ce}
0x0babe…0bad2               Head {h00=0x0010, h01=0x0050, text=» ADR A10,A4 «, t00=0x0077, t01=0x00e8}
0x0bad2…0baec               Head {h00=0x0016, h01=0x0050, text=» ES A10,FCBDD1,A3 «, t00=0x0077, t01=0x00fc}
0x0baec…0bb06               Head {h00=0x0016, h01=0x0050, text=» EL A10,FCBDD2,A3 «, t00=0x0077, t01=0x0116}
0x0bb06…0bb1a               Head {h00=0x0010, h01=0x0050, text=» ADR A10,A4 «, t00=0x0077, t01=0x0130}
0x0bb1a…0bb34               Head {h00=0x0016, h01=0x0050, text=» ES A10,FCBDD2,A3 «, t00=0x0077, t01=0x0144}
0x0bb34…0bb5e               Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM-TABLE «, t00=0x0077, t01=0x015e}
0x0bb5e…0bb74               Head {h00=0x0012, h01=0x0050, text=»MOVT10 RTN A14«, t00=0x0077, t01=0x0188}
0x0bb74…0bb80               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0078, t01=0x000e}
0x0bb80…0bb8e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0078, t01=0x001a}
0x0bb8e…0bb96               Head {h00=0x0004, h01=0x0050, t00=0x0078, t01=0x0028}
0x0bb96…0bb9e               Head {h00=0x0004, h01=0x0050, t00=0x0078, t01=0x0030}
0x0bb9e…0bba6               Head {h00=0x0004, h01=0x0050, t00=0x0078, t01=0x0038}
0x0bba6…0bbe0               Head {h00=0x0036, h01=0x0050, text=»**                 C M P A D R                  **«, t00=0x0078, t01=0x0040}
0x0bbe0…0bc1a               Head {h00=0x0036, h01=0x0050, text=»**                                              **«, t00=0x0078, t01=0x007a}
0x0bc1a…0bc54               Head {h00=0x0036, h01=0x0050, text=»**                                              **«, t00=0x0078, t01=0x00b4}
0x0bc54…0bc8e               Head {h00=0x0036, h01=0x0050, text=»**  COMPARE ADDRESSES. RESULT IN PSW ON RETURN  **«, t00=0x0078, t01=0x00ee}
0x0bc8e…0bcc8               Head {h00=0x0036, h01=0x0050, text=»**                                              **«, t00=0x0078, t01=0x0128}
0x0bcc8…0bd02               Head {h00=0x0036, h01=0x0050, text=»**  INPUT : A11 COMPARED TO..                   **«, t00=0x0078, t01=0x0162}
0x0bd02…0bd3c               Head {h00=0x0036, h01=0x0050, text=»**          A9                                  **«, t00=0x0079, t01=0x000c}
0x0bd3c…0bd76               Head {h00=0x0036, h01=0x0050, text=»**  OUTPUT: RESULT IN A14-STACK                 **«, t00=0x0079, t01=0x0046}
0x0bd76…0bdb0               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0079, t01=0x0080}
0x0bdb0…0bdbc               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0079, t01=0x00ba}
0x0bdbc…0bdd0               Head {h00=0x0010, h01=0x0050, text=»CMPADR EQU *«, t00=0x0079, t01=0x00c6}
0x0bdd0…0bde4               Head {h00=0x0010, h01=0x0050, text=» TNM A11,A9 «, t00=0x0079, t01=0x00da}
0x0bde4…0bdfa               Head {h00=0x0012, h01=0x0050, text=» RF(NN) CMPA10«, t00=0x0079, t01=0x00ee}
0x0bdfa…0be0e               Head {h00=0x0010, h01=0x0050, text=» CWR A9,A11 «, t00=0x0079, t01=0x0104}
0x0be0e…0be20               Head {h00=0x000e, h01=0x0050, text=» RF CMPA20«, t00=0x0079, t01=0x0118}
0x0be20…0be3a               Head {h00=0x0016, h01=0x0050, text=»CMPA10 CWR A11,A9 «, t00=0x0079, t01=0x012a}
0x0be3a…0be6c               Head {h00=0x002e, h01=0x0050, text=»CMPA20 CFI A14,PSW,A13 PUT RESULT ON STACK«, t00=0x0079, t01=0x0144}
0x0be6c…0be7c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0079, t01=0x0176}
0x0be7c…0be92               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0079, t01=0x0186}
0x0be92…0bea0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007a, t01=0x000c}
0x0bea0…0bee8               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x007a, t01=0x001a}
0x0bee8…0bf30               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x007a, t01=0x0062}
0x0bf30…0bf78               Head {h00=0x0044, h01=0x0050, text=»*  ICBMVD - INDICATE CURRENT BLOCK MOVED                      * «, t00=0x007a, t01=0x00aa}
0x0bf78…0bfc0               Head {h00=0x0044, h01=0x0050, text=»*  =====================================                      * «, t00=0x007a, t01=0x00f2}
0x0bfc0…0c008               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x007a, t01=0x013a}
0x0c008…0c050               Head {h00=0x0044, h01=0x0050, text=»*  REFERENCED IN:  MOVCOM                                     * «, t00=0x007a, t01=0x0182}
0x0c050…0c098               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x007b, t01=0x003a}
0x0c098…0c0e0               Head {h00=0x0044, h01=0x0050, text=»*  ENTRY:  A8 - FIRST T:A POINTER                             * «, t00=0x007b, t01=0x0082}
0x0c0e0…0c128               Head {h00=0x0044, h01=0x0050, text=»*          A6 - SECOND T:A POINTER                            * «, t00=0x007b, t01=0x00ca}
0x0c128…0c170               Head {h00=0x0044, h01=0x0050, text=»*         BIT - BIT NUMBER SET IN CWB- OR UWB-MASK            * «, t00=0x007b, t01=0x0112}
0x0c170…0c1b8               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x007b, t01=0x015a}
0x0c1b8…0c200               Head {h00=0x0044, h01=0x0050, text=»*  EXIT:  CORRESPONDING BIT IN CURRENT STATCK POINTER         * «, t00=0x007c, t01=0x0012}
0x0c200…0c248               Head {h00=0x0044, h01=0x0050, text=»*         IN T:A IS SET                                       * «, t00=0x007c, t01=0x005a}
0x0c248…0c290               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x007c, t01=0x00a2}
0x0c290…0c2d8               Head {h00=0x0044, h01=0x0050, text=»*  WORK REGISTERS:  A1,A2                                     * «, t00=0x007c, t01=0x00ea}
0x0c2d8…0c320               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x007c, t01=0x0132}
0x0c320…0c368               Head {h00=0x0044, h01=0x0050, text=»*  SUBROUTINES:                                               * «, t00=0x007c, t01=0x017a}
0x0c368…0c3b0               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x007d, t01=0x0032}
0x0c3b0…0c3f8               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x007d, t01=0x007a}
0x0c3f8…0c406               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007d, t01=0x00c2}
0x0c406…0c41a               Head {h00=0x0010, h01=0x0050, text=»ICBMVD EQU *«, t00=0x007d, t01=0x00d0}
0x0c41a…0c43a               Head {h00=0x001c, h01=0x0050, text=» LDKL A1,/8000 SET BIT 0«, t00=0x007d, t01=0x00e4}
0x0c43a…0c474               Head {h00=0x0036, h01=0x0050, text=» LD A2,BIT,A13 GET BIT NUMBER IN CWB- OR UWB-MASK «, t00=0x007d, t01=0x0104}
0x0c474…0c49a               Head {h00=0x0022, h01=0x0050, text=»IBAM10 RF(Z) IBAM20 BIT FOUND «, t00=0x007d, t01=0x013e}
0x0c49a…0c4c4               Head {h00=0x0026, h01=0x0050, text=» SRL A1,1 SHIFT BIT RIGHT ONE STEP«, t00=0x007d, t01=0x0164}
0x0c4c4…0c4ec               Head {h00=0x0024, h01=0x0050, text=» SUK A2,1 DECREMENT BIT COUNTER «, t00=0x007d, t01=0x018e}
0x0c4ec…0c4fe               Head {h00=0x000e, h01=0x0050, text=» RB IBAM10«, t00=0x007e, t01=0x0026}
0x0c4fe…0c508               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0038}
0x0c508…0c532               Head {h00=0x0026, h01=0x0050, text=»*  UPDATE MOVED MASK IN FIRST T:A «, t00=0x007e, t01=0x0042}
0x0c532…0c53c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x006c}
0x0c53c…0c548               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007e, t01=0x0076}
0x0c548…0c564               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x007e, t01=0x0082}
0x0c564…0c58e               Head {h00=0x0026, h01=0x0050, text=»IBAM20 LDR* A2,A8 GET T:A POINTER «, t00=0x007e, t01=0x009e}
0x0c58e…0c5b6               Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A2 GET MOVED BLOCK MASK«, t00=0x007e, t01=0x00c8}
0x0c5b6…0c5e6               Head {h00=0x002c, h01=0x0050, text=» ORR A3,A1 INDICATE CURRENT BLOCK MOVED «, t00=0x007e, t01=0x00f0}
0x0c5e6…0c614               Head {h00=0x002a, h01=0x0050, text=» STR A3,A2 STORE NEW MOVED BLOCK MASK «, t00=0x007e, t01=0x0120}
0x0c614…0c61e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x014e}
0x0c61e…0c648               Head {h00=0x0026, h01=0x0050, text=»*  UPDATE MOVED MASK IN SECOND T:A«, t00=0x007e, t01=0x0158}
0x0c648…0c652               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0182}
0x0c652…0c676               Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A6 GET T:A POINTER «, t00=0x007e, t01=0x018c}
0x0c676…0c69e               Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A2 GET MOVED BLOCK MASK«, t00=0x007f, t01=0x0020}
0x0c69e…0c6ce               Head {h00=0x002c, h01=0x0050, text=» ORR A3,A1 INDICATE CURRENT BLOCK MOVED «, t00=0x007f, t01=0x0048}
0x0c6ce…0c6fc               Head {h00=0x002a, h01=0x0050, text=» STR A3,A2 STORE NEW MOVED BLOCK MASK «, t00=0x007f, t01=0x0078}
0x0c6fc…0c708               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007f, t01=0x00a6}
0x0c708…0c724               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x007f, t01=0x00b2}
0x0c724…0c74c               Head {h00=0x0024, h01=0x0050, text=»IBAM20 ELR A2,A8 GET T:A POINTER«, t00=0x007f, t01=0x00ce}
0x0c74c…0c774               Head {h00=0x0024, h01=0x0050, text=» ELR A3,A2 GET MOVED BLOCK MASK «, t00=0x007f, t01=0x00f6}
0x0c774…0c7a4               Head {h00=0x002c, h01=0x0050, text=» ORR A3,A1 INDICATE CURRENT BLOCK MOVED «, t00=0x007f, t01=0x011e}
0x0c7a4…0c7d2               Head {h00=0x002a, h01=0x0050, text=» ESR A3,A2 STORE NEW MOVED BLOCK MASK «, t00=0x007f, t01=0x014e}
0x0c7d2…0c7dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x017c}
0x0c7dc…0c806               Head {h00=0x0026, h01=0x0050, text=»*  UPDATE MOVED MASK IN SECOND T:A«, t00=0x007f, t01=0x0186}
0x0c806…0c810               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0020}
0x0c810…0c832               Head {h00=0x001e, h01=0x0050, text=» ELR A2,A6 GET T:A POINTER«, t00=0x0080, t01=0x002a}
0x0c832…0c85a               Head {h00=0x0024, h01=0x0050, text=» ELR A3,A2 GET MOVED BLOCK MASK «, t00=0x0080, t01=0x004c}
0x0c85a…0c88a               Head {h00=0x002c, h01=0x0050, text=» ORR A3,A1 INDICATE CURRENT BLOCK MOVED «, t00=0x0080, t01=0x0074}
0x0c88a…0c8b8               Head {h00=0x002a, h01=0x0050, text=» ESR A3,A2 STORE NEW MOVED BLOCK MASK «, t00=0x0080, t01=0x00a4}
0x0c8b8…0c8c4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0080, t01=0x00d2}
0x0c8c4…0c8da               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0080, t01=0x00de}
0x0c8da…0c8ea               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0080, t01=0x00f4}
0x0c8ea…0c8f8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0080, t01=0x0104}
0x0c8f8…0c946               Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0080, t01=0x0112}
0x0c946…0c994               Head {h00=0x004a, h01=0x0050, text=»*                                                                   * «, t00=0x0080, t01=0x0160}
0x0c994…0c9e2               Head {h00=0x004a, h01=0x0050, text=»*               CHKMVD - CHECK IF BLOCK ALREADY MOVED               * «, t00=0x0081, t01=0x001e}
0x0c9e2…0ca30               Head {h00=0x004a, h01=0x0050, text=»*               =====================================               * «, t00=0x0081, t01=0x006c}
0x0ca30…0ca7e               Head {h00=0x004a, h01=0x0050, text=»*                                                                   * «, t00=0x0081, t01=0x00ba}
0x0ca7e…0cacc               Head {h00=0x004a, h01=0x0050, text=»*  REFERENCED IN:  MOVCOM,MOVCLA                                    * «, t00=0x0081, t01=0x0108}
0x0cacc…0cb1a               Head {h00=0x004a, h01=0x0050, text=»*                                                                   * «, t00=0x0081, t01=0x0156}
0x0cb1a…0cb68               Head {h00=0x004a, h01=0x0050, text=»*  ENTRY:  A8 - POINTER TO T:A                                      * «, t00=0x0082, t01=0x0014}
0x0cb68…0cbb6               Head {h00=0x004a, h01=0x0050, text=»*         BIT - BIT NUMBER IN CWB- OR UWB-MASK                      * «, t00=0x0082, t01=0x0062}
0x0cbb6…0cc04               Head {h00=0x004a, h01=0x0050, text=»*                                                                   * «, t00=0x0082, t01=0x00b0}
0x0cc04…0cc52               Head {h00=0x004a, h01=0x0050, text=»*  EXIT:  IF BLOCK ALREADY MOVED THEN CR=2 ELSE CR<>2               * «, t00=0x0082, t01=0x00fe}
0x0cc52…0cca0               Head {h00=0x004a, h01=0x0050, text=»*                                                                   * «, t00=0x0082, t01=0x014c}
0x0cca0…0ccee               Head {h00=0x004a, h01=0x0050, text=»*  WORK REGISTER:  A1,A2                                            * «, t00=0x0083, t01=0x000a}
0x0ccee…0cd3c               Head {h00=0x004a, h01=0x0050, text=»*                                                                   * «, t00=0x0083, t01=0x0058}
0x0cd3c…0cd8a               Head {h00=0x004a, h01=0x0050, text=»*  SUBROUTINES:                                                     * «, t00=0x0083, t01=0x00a6}
0x0cd8a…0cdd8               Head {h00=0x004a, h01=0x0050, text=»*                                                                   * «, t00=0x0083, t01=0x00f4}
0x0cdd8…0ce26               Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0083, t01=0x0142}
0x0ce26…0ce34               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0083, t01=0x0190}
0x0ce34…0ce48               Head {h00=0x0010, h01=0x0050, text=»CHKMVD EQU *«, t00=0x0084, t01=0x000e}
0x0ce48…0ce64               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0084, t01=0x0022}
0x0ce64…0ce88               Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A POINTER «, t00=0x0084, t01=0x003e}
0x0ce88…0ceb0               Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET MOVED BLOCK MASK«, t00=0x0084, t01=0x0062}
0x0ceb0…0cebc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0084, t01=0x008a}
0x0cebc…0ced8               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0084, t01=0x0096}
0x0ced8…0cefa               Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A POINTER«, t00=0x0084, t01=0x00b2}
0x0cefa…0cf22               Head {h00=0x0024, h01=0x0050, text=» ELR A1,A1 GET MOVED BLOCK MASK «, t00=0x0084, t01=0x00d4}
0x0cf22…0cf2e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0084, t01=0x00fc}
0x0cf2e…0cf44               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0084, t01=0x0108}
0x0cf44…0cf7a               Head {h00=0x0032, h01=0x0050, text=» LD A2,BIT,A13 GET BIT SET IN CWB- OR UWB-MASK«, t00=0x0084, t01=0x011e}
0x0cf7a…0cfb4               Head {h00=0x0036, h01=0x0050, text=»CHKM10 RF(Z) CHKM20 BIT IN MOVED BLOCK MASK FOUND «, t00=0x0084, t01=0x0154}
0x0cfb4…0cfe2               Head {h00=0x002a, h01=0x0050, text=» SLL A1,1 NEXT BIT IN MOVED BLOCK MASK«, t00=0x0084, t01=0x018e}
0x0cfe2…0d00a               Head {h00=0x0024, h01=0x0050, text=» SUK A2,1 DECREMENT BIT COUNTER «, t00=0x0085, t01=0x002c}
0x0d00a…0d01c               Head {h00=0x000e, h01=0x0050, text=» RB CHKM10«, t00=0x0085, t01=0x0054}
0x0d01c…0d03a               Head {h00=0x001a, h01=0x0050, text=»CHKM20 ADK A1,0 SET CR«, t00=0x0085, t01=0x0066}
0x0d03a…0d068               Head {h00=0x002a, h01=0x0050, text=» CFI A14,PSW,A13 PUT CONDITION IN PSW «, t00=0x0085, t01=0x0084}
0x0d068…0d078               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0085, t01=0x00b2}
0x0d078…0d086               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0085, t01=0x00c2}
0x0d086…0d092               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0085, t01=0x00d0}
0x0d092…0d09e               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0085, t01=0x00dc}
0x0d09e…0d0dc               Head {h00=0x003a, h01=0x0050, text=»*****     S * U * P * E * R * L * O * O * P       ****«, t00=0x0085, t01=0x00e8}
0x0d0dc…0d11a               Head {h00=0x003a, h01=0x0050, text=»**                                                  **«, t00=0x0085, t01=0x0126}
0x0d11a…0d158               Head {h00=0x003a, h01=0x0050, text=»**           S H I F T        &       SKIFTA        **«, t00=0x0085, t01=0x0164}
0x0d158…0d196               Head {h00=0x003a, h01=0x0050, text=»**                                                  **«, t00=0x0086, t01=0x0012}
0x0d196…0d1d4               Head {h00=0x003a, h01=0x0050, text=»**  CALCULATES BIT NUMBER SAT IN MASK-WORD          **«, t00=0x0086, t01=0x0050}
0x0d1d4…0d212               Head {h00=0x003a, h01=0x0050, text=»**  INPUT : A7=MASK WORD                            **«, t00=0x0086, t01=0x008e}
0x0d212…0d250               Head {h00=0x003a, h01=0x0050, text=»**  OUTPUT: BIT=BIT NUMBER                          **«, t00=0x0086, t01=0x00cc}
0x0d250…0d28e               Head {h00=0x003a, h01=0x0050, text=»**          CONDITION CODE IN PSW ON RETURN         **«, t00=0x0086, t01=0x010a}
0x0d28e…0d2cc               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0086, t01=0x0148}
0x0d2cc…0d2d8               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0086, t01=0x0186}
0x0d2d8…0d2ec (135, 0, 400) Head {h00=0x0010, h01=0x0050, text=»SHIFT EQU * «, t00=0x0087, t01=0x0004}
0x0d2ec…0d312               Head {h00=0x0022, h01=0x0050, text=» CM BIT,A13 RESET BIT COUNTER «, t00=0x0087, t01=0x0018}
0x0d312…0d324               Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0087, t01=0x003e}
0x0d324…0d336               Head {h00=0x000e, h01=0x0050, text=» RF SHIF20«, t00=0x0087, t01=0x0050}
0x0d336…0d360               Head {h00=0x0026, h01=0x0050, text=»SKIFTA EQU * ENTRY: CONTINUE SHIFT«, t00=0x0087, t01=0x0062}
0x0d360…0d37a               Head {h00=0x0016, h01=0x0050, text=»SHIF10 IM BIT,A13 «, t00=0x0087, t01=0x008c}
0x0d37a…0d38c               Head {h00=0x000e, h01=0x0050, text=» SLL A7,1 «, t00=0x0087, t01=0x00a6}
0x0d38c…0d3a0               Head {h00=0x0010, h01=0x0050, text=»SHIF20 EQU *«, t00=0x0087, t01=0x00b8}
0x0d3a0…0d3c8               Head {h00=0x0024, h01=0x0050, text=» RF(Z) SHIF30 NO MOORE BITS SAT «, t00=0x0087, t01=0x00cc}
0x0d3c8…0d3de               Head {h00=0x0012, h01=0x0050, text=» RB(NN) SHIF10«, t00=0x0087, t01=0x00f4}
0x0d3de…0d40c               Head {h00=0x002a, h01=0x0050, text=»SHIF30 CFI A14,PSW,A13 PUT COND IN PSW«, t00=0x0087, t01=0x010a}
0x0d40c…0d41c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0087, t01=0x0138}
0x0d41c…0d428               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0087, t01=0x0148}
0x0d428…0d436               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0087, t01=0x0154}
0x0d436…0d442               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0087, t01=0x0162}
0x0d442…0d44e               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0087, t01=0x016e}
0x0d44e…0d486               Head {h00=0x0034, h01=0x0050, text=»**                M U L T                     **«, t00=0x0087, t01=0x017a}
0x0d486…0d4be               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x0088, t01=0x0022}
0x0d4be…0d4f6               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x0088, t01=0x005a}
0x0d4f6…0d52e               Head {h00=0x0034, h01=0x0050, text=»**  MULTIPLICATION  (A2) X A3(), A2#0         **«, t00=0x0088, t01=0x0092}
0x0d52e…0d566               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x0088, t01=0x00ca}
0x0d566…0d59e               Head {h00=0x0034, h01=0x0050, text=»**  INPUT : A3,A2                             **«, t00=0x0088, t01=0x0102}
0x0d59e…0d5d6               Head {h00=0x0034, h01=0x0050, text=»**  OUTPUT:A3=RESULT                          **«, t00=0x0088, t01=0x013a}
0x0d5d6…0d60e               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0088, t01=0x0172}
0x0d60e…0d620               Head {h00=0x000e, h01=0x0050, text=»MULT EQU *«, t00=0x0089, t01=0x001a}
0x0d620…0d636               Head {h00=0x0012, h01=0x0050, text=» ST A3,MUL,A13«, t00=0x0089, t01=0x002c}
0x0d636…0d65c               Head {h00=0x0022, h01=0x0050, text=» STR A2,A14 SAVE A2 TEMPORARY «, t00=0x0089, t01=0x0042}
0x0d65c…0d66e               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0089, t01=0x0068}
0x0d66e…0d688               Head {h00=0x0016, h01=0x0050, text=»ADD AD A3,MUL,A13 «, t00=0x0089, t01=0x007a}
0x0d688…0d69a               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0089, t01=0x0094}
0x0d69a…0d6ae               Head {h00=0x0010, h01=0x0050, text=» RB(NZ) ADD «, t00=0x0089, t01=0x00a6}
0x0d6ae…0d6c2               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A14«, t00=0x0089, t01=0x00ba}
0x0d6c2…0d6d2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0089, t01=0x00ce}
0x0d6d2…0d6da               Head {h00=0x0004, h01=0x0050, t00=0x0089, t01=0x00de}
0x0d6da…0d6f0               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0089, t01=0x00e6}
0x0d6f0…0d6fe               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0089, t01=0x00fc}
0x0d6fe…0d706               Head {h00=0x0004, h01=0x0050, t00=0x0089, t01=0x010a}
0x0d706…0d73e               Head {h00=0x0034, h01=0x0050, text=»**               M M E N T                   ** «, t00=0x0089, t01=0x0112}
0x0d73e…0d776               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x0089, t01=0x014a}
0x0d776…0d7ae               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x0089, t01=0x0182}
0x0d7ae…0d7e6               Head {h00=0x0034, h01=0x0050, text=»**  FIND LAST USED ENTRY IN MM-TAB. SCAN     ** «, t00=0x008a, t01=0x002a}
0x0d7e6…0d81e               Head {h00=0x0034, h01=0x0050, text=»**  FROM LOW ADDRESS. NOT USED ENTRY=0.      ** «, t00=0x008a, t01=0x0062}
0x0d81e…0d856               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x008a, t01=0x009a}
0x0d856…0d88e               Head {h00=0x0034, h01=0x0050, text=»**  INPUT :A3=MM-TABLE ADDRESS               ** «, t00=0x008a, t01=0x00d2}
0x0d88e…0d8c6               Head {h00=0x0034, h01=0x0050, text=»**  OUTPUT:A3=ENTRY ADDRESS                  ** «, t00=0x008a, t01=0x010a}
0x0d8c6…0d8fe               Head {h00=0x0034, h01=0x0050, text=»**         A9=TTAB-ADDRESS                   ** «, t00=0x008a, t01=0x0142}
0x0d8fe…0d936               Head {h00=0x0034, h01=0x0050, text=»**         LSTPAG IN TTAB=A3                 ** «, t00=0x008a, t01=0x017a}
0x0d936…0d96e               Head {h00=0x0034, h01=0x0050, text=»**         A1=CONTENTS OF 1:ST USED ENTRY    ** «, t00=0x008b, t01=0x0022}
0x0d96e…0d9a6               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x008b, t01=0x005a}
0x0d9a6…0d9ae               Head {h00=0x0004, h01=0x0050, t00=0x008b, t01=0x0092}
0x0d9ae…0d9c2               Head {h00=0x0010, h01=0x0050, text=»MMENT EQU * «, t00=0x008b, t01=0x009a}
0x0d9c2…0d9e6               Head {h00=0x0020, h01=0x0050, text=» LDR A9,A3 GET TABLE ADDRESS«, t00=0x008b, t01=0x00ae}
0x0d9e6…0da20               Head {h00=0x0036, h01=0x0050, text=» SUKL A9,MMBEG ADJUST A9 (LOOKS LIKE TTAB POINTER)«, t00=0x008b, t01=0x00d2}
0x0da20…0da32               Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x008b, t01=0x010c}
0x0da32…0da5c               Head {h00=0x0026, h01=0x0050, text=»MMEN10 ADK A3,2 INCREMENT ADDRESS «, t00=0x008b, t01=0x011e}
0x0da5c…0da88               Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A3 GET CONTENTS OF MM-TABLE«, t00=0x008b, t01=0x0148}
0x0da88…0da9e               Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FC00«, t00=0x008b, t01=0x0174}
0x0da9e…0dab4               Head {h00=0x0012, h01=0x0050, text=» CWK A1,/FC00 «, t00=0x008b, t01=0x018a}
0x0dab4…0daca               Head {h00=0x0012, h01=0x0050, text=» RB(Z) MMEN10 «, t00=0x008c, t01=0x0010}
0x0daca…0db00               Head {h00=0x0032, h01=0x0050, text=» ST A3,LSTPAG,A9 SAVE FIRST FREE PAGE-ADDRESS «, t00=0x008c, t01=0x0026}
0x0db00…0db10               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008c, t01=0x005c}
0x0db10…0db1c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008c, t01=0x006c}
0x0db1c…0db32               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x008c, t01=0x0078}
0x0db32…0db40               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008c, t01=0x008e}
0x0db40…0db48               Head {h00=0x0004, h01=0x0050, t00=0x008c, t01=0x009c}
0x0db48…0db7e               Head {h00=0x0032, h01=0x0050, text=»**              G E T T A B                 **«, t00=0x008c, t01=0x00a4}
0x0db7e…0dbb4               Head {h00=0x0032, h01=0x0050, text=»**                                          **«, t00=0x008c, t01=0x00da}
0x0dbb4…0dbea               Head {h00=0x0032, h01=0x0050, text=»**                                          **«, t00=0x008c, t01=0x0110}
0x0dbea…0dc20               Head {h00=0x0032, h01=0x0050, text=»**  FIND TTAB ADDRESS                       **«, t00=0x008c, t01=0x0146}
0x0dc20…0dc56               Head {h00=0x0032, h01=0x0050, text=»**                                          **«, t00=0x008c, t01=0x017c}
0x0dc56…0dc8c               Head {h00=0x0032, h01=0x0050, text=»**  INPUT :A8=POINTER TO T:A IN T:ATAB      **«, t00=0x008d, t01=0x0022}
0x0dc8c…0dcc2               Head {h00=0x0032, h01=0x0050, text=»**  OUTPUT:A2=TTAB-ADDRESS                  **«, t00=0x008d, t01=0x0058}
0x0dcc2…0dcf8               Head {h00=0x0032, h01=0x0050, text=»**         A1=TID                           **«, t00=0x008d, t01=0x008e}
0x0dcf8…0dd2e               Head {h00=0x0032, h01=0x0050, text=»**  WORKREGS:A3,A4,A10                      **«, t00=0x008d, t01=0x00c4}
0x0dd2e…0dd64               Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x008d, t01=0x00fa}
0x0dd64…0dd6c               Head {h00=0x0004, h01=0x0050, t00=0x008d, t01=0x0130}
0x0dd6c…0dd80               Head {h00=0x0010, h01=0x0050, text=»GETTAB EQU *«, t00=0x008d, t01=0x0138}
0x0dd80…0dd8c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008d, t01=0x014c}
0x0dd8c…0dda2               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x008d, t01=0x0158}
0x0dda2…0ddc2               Head {h00=0x001c, h01=0x0050, text=» LDR* A10,A8 T:A ADDRESS«, t00=0x008d, t01=0x016e}
0x0ddc2…0ddec               Head {h00=0x0026, h01=0x0050, text=» LD A1,T:ATID,A10 GET TID TO MATCH«, t00=0x008d, t01=0x018e}
0x0ddec…0de12               Head {h00=0x0022, h01=0x0050, text=» LD A12,T:DAD,A10 T:D-ADDRESS «, t00=0x008e, t01=0x0028}
0x0de12…0de1e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x004e}
0x0de1e…0de34               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x008e, t01=0x005a}
0x0de34…0de54               Head {h00=0x001c, h01=0x0050, text=» ELR A10,A8 T:A-ADDRESS «, t00=0x008e, t01=0x0070}
0x0de54…0de76               Head {h00=0x001e, h01=0x0050, text=» EL A1,T:ATID,A10 GET TID «, t00=0x008e, t01=0x0090}
0x0de76…0de90               Head {h00=0x0016, h01=0x0050, text=» EL A12,T:DAD,A10 «, t00=0x008e, t01=0x00b2}
0x0de90…0de9c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x00cc}
0x0de9c…0dec6               Head {h00=0x0026, h01=0x0050, text=»GETTTB EQU * ENTRY. INPUT: A1=TID «, t00=0x008e, t01=0x00d8}
0x0dec6…0deee               Head {h00=0x0024, h01=0x0050, text=» LD A4,SCTTCT GET TC:TAB ADDRESS«, t00=0x008e, t01=0x0102}
0x0deee…0df0e               Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A4 TCTAB LENGTH«, t00=0x008e, t01=0x012a}
0x0df0e…0df26               Head {h00=0x0014, h01=0x0050, text=»GETT10 ADK A4,2 «, t00=0x008e, t01=0x014a}
0x0df26…0df3c               Head {h00=0x0012, h01=0x0050, text=» SUK A3,2 ALL?«, t00=0x008e, t01=0x0162}
0x0df3c…0df56               Head {h00=0x0016, h01=0x0050, text=» RF(NN) GETT20 NO!«, t00=0x008e, t01=0x0178}
0x0df56…0df84 (143, 0, 400) Head {h00=0x002a, h01=0x0050, text=» LDR A3,A1 SAVE A1 (DEBUGGING PURPOS) «, t00=0x008f, t01=0x0004}
0x0df84…0dfa2               Head {h00=0x001a, h01=0x0050, text=» LDK A1,LMP5 TID ERROR«, t00=0x008f, t01=0x0032}
0x0dfa2…0dfb6               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x008f, t01=0x0050}
0x0dfb6…0dfdc               Head {h00=0x0022, h01=0x0050, text=»GETT20 LDR* A2,A4 TTAB-ADDRESS«, t00=0x008f, t01=0x0064}
0x0dfdc…0e000               Head {h00=0x0020, h01=0x0050, text=» CW A1,TTB:PP,A2 TCL EQUAL? «, t00=0x008f, t01=0x008a}
0x0e000…0e01a               Head {h00=0x0016, h01=0x0050, text=» RB(NE) GETT10 NO!«, t00=0x008f, t01=0x00ae}
0x0e01a…0e036               Head {h00=0x0018, h01=0x0050, text=» ST A2,TTAB,A13 SAVE«, t00=0x008f, t01=0x00c8}
0x0e036…0e046               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008f, t01=0x00e4}
0x0e046…0e05c               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x008f, t01=0x00f4}
0x0e05c…0e06a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008f, t01=0x010a}
0x0e06a…0e072               Head {h00=0x0004, h01=0x0050, t00=0x008f, t01=0x0118}
0x0e072…0e07a               Head {h00=0x0004, h01=0x0050, t00=0x008f, t01=0x0120}
0x0e07a…0e0b6               Head {h00=0x0038, h01=0x0050, text=»**                    Q U E J O B                ** «, t00=0x008f, t01=0x0128}
0x0e0b6…0e0f2               Head {h00=0x0038, h01=0x0050, text=»**                                               ** «, t00=0x008f, t01=0x0164}
0x0e0f2…0e12e               Head {h00=0x0038, h01=0x0050, text=»**                                               ** «, t00=0x0090, t01=0x0010}
0x0e12e…0e16a               Head {h00=0x0038, h01=0x0050, text=»**  QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL   ** «, t00=0x0090, t01=0x004c}
0x0e16a…0e1a6               Head {h00=0x0038, h01=0x0050, text=»**  0, ENB.                                      ** «, t00=0x0090, t01=0x0088}
0x0e1a6…0e1e2               Head {h00=0x0038, h01=0x0050, text=»**                                               ** «, t00=0x0090, t01=0x00c4}
0x0e1e2…0e21e               Head {h00=0x0038, h01=0x0050, text=»**  INPUT: A10=T:A-ADDRESS                       ** «, t00=0x0090, t01=0x0100}
0x0e21e…0e25a               Head {h00=0x0038, h01=0x0050, text=»**         A12=T:D-ADDRESS                       ** «, t00=0x0090, t01=0x013c}
0x0e25a…0e296               Head {h00=0x0038, h01=0x0050, text=»**         A2=TTAB-ADDRESS                       ** «, t00=0x0090, t01=0x0178}
0x0e296…0e2d2               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0091, t01=0x0024}
0x0e2d2…0e2da               Head {h00=0x0004, h01=0x0050, t00=0x0091, t01=0x0060}
0x0e2da…0e2ee               Head {h00=0x0010, h01=0x0050, text=»QUEJOB EQU *«, t00=0x0091, t01=0x0068}
0x0e2ee…0e312               Head {h00=0x0020, h01=0x0050, text=»* QUEUE THIS TASK (THIS TID)«, t00=0x0091, t01=0x007c}
0x0e312…0e31a               Head {h00=0x0004, h01=0x0050, t00=0x0091, t01=0x00a0}
0x0e31a…0e34e               Head {h00=0x0030, h01=0x0050, text=» LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS«, t00=0x0091, t01=0x00a8}
0x0e34e…0e36a               Head {h00=0x0018, h01=0x0050, text=» ADR A3,A13 RELOCATE«, t00=0x0091, t01=0x00dc}
0x0e36a…0e38a               Head {h00=0x001c, h01=0x0050, text=» STR A3,A15 PUT ON STACK«, t00=0x0091, t01=0x00f8}
0x0e38a…0e3b8               Head {h00=0x002a, h01=0x0050, text=» LDKL A3,/00C0 SET LEVEL 0 AND ENABLE «, t00=0x0091, t01=0x0118}
0x0e3b8…0e3d0               Head {h00=0x0014, h01=0x0050, text=» STR A3,A15 PSW «, t00=0x0091, t01=0x0146}
0x0e3d0…0e3f2               Head {h00=0x001e, h01=0x0050, text=» CF A15,SAVE8 SAVE 8 REGS «, t00=0x0091, t01=0x015e}
0x0e3f2…0e41a               Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 CLEAR ABORT INDICATOR «, t00=0x0091, t01=0x0180}
0x0e41a…0e442               Head {h00=0x0024, h01=0x0050, text=» LD A8,SCTLAC GET P:MTAB-ADDRESS«, t00=0x0092, t01=0x0018}
0x0e442…0e466               Head {h00=0x0020, h01=0x0050, text=» LDR A5,A2 GET TTAB-ADDRESS «, t00=0x0092, t01=0x0040}
0x0e466…0e482               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0092, t01=0x0064}
0x0e482…0e4b2               Head {h00=0x002c, h01=0x0050, text=» LD A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS«, t00=0x0092, t01=0x0080}
0x0e4b2…0e4c4               Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0092, t01=0x00b0}
0x0e4c4…0e4da               Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/FFFE«, t00=0x0092, t01=0x00c2}
0x0e4da…0e4f2               Head {h00=0x0014, h01=0x0050, text=» ADK A4,DWBFST+4«, t00=0x0092, t01=0x00d8}
0x0e4f2…0e52e               Head {h00=0x0038, h01=0x0050, text=» ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS«, t00=0x0092, t01=0x00f0}
0x0e52e…0e558               Head {h00=0x0026, h01=0x0050, text=» LDR* A6,A4 NUMBER OF START POINTS«, t00=0x0092, t01=0x012c}
0x0e558…0e58a               Head {h00=0x002e, h01=0x0050, text=»GETT30 SUK A6,1 DEC. NUMBER OF STARTPOINTS«, t00=0x0092, t01=0x0156}
0x0e58a…0e5a4               Head {h00=0x0016, h01=0x0050, text=» RF(N) GETT40 ALL!«, t00=0x0092, t01=0x0188}
0x0e5a4…0e5c4               Head {h00=0x001c, h01=0x0050, text=» LD A1,4,A4 DISP ADDRESS«, t00=0x0093, t01=0x0012}
0x0e5c4…0e5e6               Head {h00=0x001e, h01=0x0050, text=» LD A3,2,A4 SEGMENT NUMBER«, t00=0x0093, t01=0x0032}
0x0e5e6…0e616               Head {h00=0x002c, h01=0x0050, text=» LD A2,NTPA,A8 INTERPRETER START ADDRESS«, t00=0x0093, t01=0x0054}
0x0e616…0e622               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0093, t01=0x0084}
0x0e622…0e63e               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0093, t01=0x0090}
0x0e63e…0e66e               Head {h00=0x002c, h01=0x0050, text=» EL A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS«, t00=0x0093, t01=0x00ac}
0x0e66e…0e680               Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0093, t01=0x00dc}
0x0e680…0e696               Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/FFFE«, t00=0x0093, t01=0x00ee}
0x0e696…0e6ae               Head {h00=0x0014, h01=0x0050, text=» ADK A4,DWBFST+4«, t00=0x0093, t01=0x0104}
0x0e6ae…0e6ea               Head {h00=0x0038, h01=0x0050, text=» ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS«, t00=0x0093, t01=0x011c}
0x0e6ea…0e714               Head {h00=0x0026, h01=0x0050, text=» ELR A6,A4 NUMBER OF START-POINTS «, t00=0x0093, t01=0x0158}
0x0e714…0e746               Head {h00=0x002e, h01=0x0050, text=»GETT30 SUK A6,1 DEC. NUMBER OF STARTPOINTS«, t00=0x0093, t01=0x0182}
0x0e746…0e760               Head {h00=0x0016, h01=0x0050, text=» RF(N) GETT40 ALL!«, t00=0x0094, t01=0x0024}
0x0e760…0e780               Head {h00=0x001c, h01=0x0050, text=» EL A1,4,A4 DISP ADDRESS«, t00=0x0094, t01=0x003e}
0x0e780…0e7a2               Head {h00=0x001e, h01=0x0050, text=» EL A3,2,A4 SEGMENT NUMBER«, t00=0x0094, t01=0x005e}
0x0e7a2…0e7d2               Head {h00=0x002c, h01=0x0050, text=» EL A2,NTPA,A8 INTERPRETER START ADDRESS«, t00=0x0094, t01=0x0080}
0x0e7d2…0e7de               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0094, t01=0x00b0}
0x0e7de…0e7f4               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0094, t01=0x00bc}
0x0e7f4…0e80a               Head {h00=0x0012, h01=0x0050, text=» CF A15,ACTOT «, t00=0x0094, t01=0x00d2}
0x0e80a…0e832               Head {h00=0x0024, h01=0x0050, text=» ADK A4,STPREC NEXT START-POINT «, t00=0x0094, t01=0x00e8}
0x0e832…0e844               Head {h00=0x000e, h01=0x0050, text=» RB GETT30«, t00=0x0094, t01=0x0110}
0x0e844…0e86c               Head {h00=0x0024, h01=0x0050, text=»GETT40 ABL RETUR8 RELOAD 8 REGS «, t00=0x0094, t01=0x0122}
0x0e86c…0e884               Head {h00=0x0014, h01=0x0050, text=»RETUR EQU *-REL «, t00=0x0094, t01=0x014a}
0x0e884…0e894               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0094, t01=0x0162}
0x0e894…0e8a0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0094, t01=0x0172}
0x0e8a0…0e8b6               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0094, t01=0x017e}
0x0e8b6…0e8c4 (149, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0095, t01=0x0004}
0x0e8c4…0e8cc               Head {h00=0x0004, h01=0x0050, t00=0x0095, t01=0x0012}
0x0e8cc…0e904               Head {h00=0x0034, h01=0x0050, text=»**              M O V M M T                  ** «, t00=0x0095, t01=0x001a}
0x0e904…0e93c               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x0095, t01=0x0052}
0x0e93c…0e974               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x0095, t01=0x008a}
0x0e974…0e9ac               Head {h00=0x0034, h01=0x0050, text=»**  MOVE MM-TABLE                            ** «, t00=0x0095, t01=0x00c2}
0x0e9ac…0e9e4               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x0095, t01=0x00fa}
0x0e9e4…0ea1c               Head {h00=0x0034, h01=0x0050, text=»**  INPUT :A2=TTAB-ADDRESS                   ** «, t00=0x0095, t01=0x0132}
0x0ea1c…0ea54               Head {h00=0x0034, h01=0x0050, text=»**         MMTAB HOLDS TABLE TO MOVE         ** «, t00=0x0095, t01=0x016a}
0x0ea54…0ea8c               Head {h00=0x0034, h01=0x0050, text=»**  OUTPUT:A2=START OF MM-TABLE IN TTAB      ** «, t00=0x0096, t01=0x0012}
0x0ea8c…0eac4               Head {h00=0x0034, h01=0x0050, text=»**          A9=TTAB ADDRESS                  ** «, t00=0x0096, t01=0x004a}
0x0eac4…0eafc               Head {h00=0x0034, h01=0x0050, text=»**  WORKREGS:A1,A3                           ** «, t00=0x0096, t01=0x0082}
0x0eafc…0eb34               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0096, t01=0x00ba}
0x0eb34…0eb3c               Head {h00=0x0004, h01=0x0050, t00=0x0096, t01=0x00f2}
0x0eb3c…0eb50               Head {h00=0x0010, h01=0x0050, text=»MOVMMT EQU *«, t00=0x0096, t01=0x00fa}
0x0eb50…0eb7c               Head {h00=0x0028, h01=0x0050, text=» ADKL A2,MMBEG GET TO-TABLE ADDRESS «, t00=0x0096, t01=0x010e}
0x0eb7c…0eba2               Head {h00=0x0022, h01=0x0050, text=» TL MMTAB,A13 LOAD FROM-TABLE «, t00=0x0096, t01=0x013a}
0x0eba2…0ebb6               Head {h00=0x0010, h01=0x0050, text=» TSR A2 MOVE«, t00=0x0096, t01=0x0160}
0x0ebb6…0ebc8               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0096, t01=0x0174}
0x0ebc8…0ebf4               Head {h00=0x0028, h01=0x0050, text=» CALL MMENT FILL LAST ENTRY ADDRESS «, t00=0x0096, t01=0x0186}
0x0ebf4…0ec18               Head {h00=0x0020, h01=0x0050, text=» TL* MMFROM,A13 RELOAD TABLE«, t00=0x0097, t01=0x0022}
0x0ec18…0ec28               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0097, t01=0x0046}
0x0ec28…0ec34               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0097, t01=0x0056}
0x0ec34…0ec4a               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0097, t01=0x0062}
0x0ec4a…0ec58               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0097, t01=0x0078}
0x0ec58…0ec9c               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0097, t01=0x0086}
0x0ec9c…0ece0               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0097, t01=0x00ca}
0x0ece0…0ed24               Head {h00=0x0040, h01=0x0050, text=»*  CHTAID - CHANGE T:A-ID AND CLEAR TCL SAVE AREA IN TTAB  *«, t00=0x0097, t01=0x010e}
0x0ed24…0ed6a               Head {h00=0x0042, h01=0x0050, text=»*           SAVE REAL TID IN AUXILIARY TABLE FOR DEBUGGER   * «, t00=0x0097, t01=0x0152}
0x0ed6a…0edae               Head {h00=0x0040, h01=0x0050, text=»*  ======================================================  *«, t00=0x0098, t01=0x0008}
0x0edae…0edf2               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0098, t01=0x004c}
0x0edf2…0ee36               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0098, t01=0x0090}
0x0ee36…0ee7a               Head {h00=0x0040, h01=0x0050, text=»*  REFERENCED IN:  SYSLDA  PART 2 B.                       *«, t00=0x0098, t01=0x00d4}
0x0ee7a…0eebe               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0098, t01=0x0118}
0x0eebe…0ef02               Head {h00=0x0040, h01=0x0050, text=»*  ENTRY:  A5 - POINTER TO NUMBER OF COPIES                *«, t00=0x0098, t01=0x015c}
0x0ef02…0ef46               Head {h00=0x0040, h01=0x0050, text=»*          A7 - POINTER TO NEXT FREE ENTRY IN REAL T:ATAB  *«, t00=0x0099, t01=0x0010}
0x0ef46…0ef8a               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0099, t01=0x0054}
0x0ef8a…0efce               Head {h00=0x0040, h01=0x0050, text=»*  EXIT:                                                   *«, t00=0x0099, t01=0x0098}
0x0efce…0f012               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0099, t01=0x00dc}
0x0f012…0f056               Head {h00=0x0040, h01=0x0050, text=»*  WORK REGISTERS: A1,A3,A6,A8                             *«, t00=0x0099, t01=0x0120}
0x0f056…0f09a               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0099, t01=0x0164}
0x0f09a…0f0de               Head {h00=0x0040, h01=0x0050, text=»*  SUBROUTINES:  GETTTB                                    *«, t00=0x009a, t01=0x0018}
0x0f0de…0f122               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x009a, t01=0x005c}
0x0f122…0f166               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x009a, t01=0x00a0}
0x0f166…0f17a               Head {h00=0x0010, h01=0x0050, text=»CHTAID EQU *«, t00=0x009a, t01=0x00e4}
0x0f17a…0f1b0               Head {h00=0x0032, h01=0x0050, text=» LDR A8,A7 GET NEXT FREE ENTRY IN REAL T:ATAB «, t00=0x009a, t01=0x00f8}
0x0f1b0…0f1d8               Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A5 GET NUMBER OF COPIES«, t00=0x009a, t01=0x012e}
0x0f1d8…0f1fe               Head {h00=0x0022, h01=0x0050, text=»CHT:10 RF(Z) CHT:90 NO MOORE! «, t00=0x009a, t01=0x0156}
0x0f1fe…0f230               Head {h00=0x002e, h01=0x0050, text=» SUKL A8,2 LAST USED ENTRY IN REAL T:ATAB «, t00=0x009a, t01=0x017c}
0x0f230…0f24c               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x009b, t01=0x001e}
0x0f24c…0f278               Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A8 GET POINTER TO REAL T:A «, t00=0x009b, t01=0x003a}
0x0f278…0f2a0               Head {h00=0x0024, h01=0x0050, text=» LD A1,T:ATID,A1 GET TCL IN T:A «, t00=0x009b, t01=0x0066}
0x0f2a0…0f2d2               Head {h00=0x002e, h01=0x0050, text=»CHT:20 CALL GETTTB GET CORRESPONDING TTAB «, t00=0x009b, t01=0x008e}
0x0f2d2…0f300               Head {h00=0x002a, h01=0x0050, text=» LD A4,TTBTID,A2 GET REAL TID IN TTAB «, t00=0x009b, t01=0x00c0}
0x0f300…0f33a               Head {h00=0x0036, h01=0x0050, text=» LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS «, t00=0x009b, t01=0x00ee}
0x0f33a…0f366               Head {h00=0x0028, h01=0x0050, text=» ST A4,T:ATID,A3 REPLACE TCL IN T:A «, t00=0x009b, t01=0x0128}
0x0f366…0f390               Head {h00=0x0026, h01=0x0050, text=» LDR A3,A8 GET REAL T:ATAB POINTER«, t00=0x009b, t01=0x0154}
0x0f390…0f3ca               Head {h00=0x0036, h01=0x0050, text=» SU* A3,T:ATNW,A13 COMPUTE ENTRY IN AUX. TID TABLE«, t00=0x009b, t01=0x017e}
0x0f3ca…0f3fa               Head {h00=0x002c, h01=0x0050, text=» STR A4,A3 SAVE TID FOR DEBUGGER PURPOSE«, t00=0x009c, t01=0x0028}
0x0f3fa…0f406               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009c, t01=0x0058}
0x0f406…0f422               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x009c, t01=0x0064}
0x0f422…0f44c               Head {h00=0x0026, h01=0x0050, text=» ELR A1,A8 GET POINTER TO REAL T:A«, t00=0x009c, t01=0x0080}
0x0f44c…0f474               Head {h00=0x0024, h01=0x0050, text=» EL A1,T:ATID,A1 GET TCL IN T:A «, t00=0x009c, t01=0x00aa}
0x0f474…0f4a6               Head {h00=0x002e, h01=0x0050, text=»CHT:20 CALL GETTTB GET CORRESPONDING TTAB «, t00=0x009c, t01=0x00d2}
0x0f4a6…0f4d2               Head {h00=0x0028, h01=0x0050, text=» LDR A3,A2 GET POINTER TO TTAB ENTRY«, t00=0x009c, t01=0x0104}
0x0f4d2…0f508               Head {h00=0x0032, h01=0x0050, text=» ADKL A3,MMBEG START OF MM-TABLE FOR THIS TTAB«, t00=0x009c, t01=0x0130}
0x0f508…0f518               Head {h00=0x000c, h01=0x0050, text=» TLR A3 «, t00=0x009c, t01=0x0166}
0x0f518…0f550               Head {h00=0x0034, h01=0x0050, text=» LD A4,TTBTID,A2 GET REAL TID IN TTAB *79-04-11*«, t00=0x009c, t01=0x0176}
0x0f550…0f58a               Head {h00=0x0036, h01=0x0050, text=» LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS «, t00=0x009d, t01=0x001e}
0x0f58a…0f5c0               Head {h00=0x0032, h01=0x0050, text=» ES A4,T:ATID,A3 REPLACE TCL IN T:A *79-04-11*«, t00=0x009d, t01=0x0058}
0x0f5c0…0f5f4               Head {h00=0x0030, h01=0x0050, text=» EL* A3,T:ATNW,A13 GET LENGTH OF REAL T:ATAB«, t00=0x009d, t01=0x008e}
0x0f5f4…0f61c               Head {h00=0x0024, h01=0x0050, text=» NGR A3,A3 NEGATIVE DISPLACEMENT«, t00=0x009d, t01=0x00c2}
0x0f61c…0f64e               Head {h00=0x002e, h01=0x0050, text=» ADR A3,A8 COMPUTE ENTRY IN AUX. TID TABLE«, t00=0x009d, t01=0x00ea}
0x0f64e…0f68a               Head {h00=0x0038, h01=0x0050, text=» ESR A4,A3 SAVE TID FOR DEBUGGER PURPOSE *79-04-11* «, t00=0x009d, t01=0x011c}
0x0f68a…0f696               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009d, t01=0x0158}
0x0f696…0f6ac               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x009d, t01=0x0164}
0x0f6ac…0f6d6               Head {h00=0x0026, h01=0x0050, text=» CM TTB:PP,A2 CLEAR TCL SAVE AREA «, t00=0x009d, t01=0x017a}
0x0f6d6…0f6f6               Head {h00=0x001c, h01=0x0050, text=» SUK A1,1 DECREMENT TCL «, t00=0x009e, t01=0x0014}
0x0f6f6…0f712               Head {h00=0x0018, h01=0x0050, text=» SUKL A8,2 DECREMENT«, t00=0x009e, t01=0x0034}
0x0f712…0f73e               Head {h00=0x0028, h01=0x0050, text=» SUK A6,1 DECREMENT NUMBER OF COPIES«, t00=0x009e, t01=0x0050}
0x0f73e…0f75e               Head {h00=0x001c, h01=0x0050, text=» RB(P) CHT:20 NEXT COPY «, t00=0x009e, t01=0x007c}
0x0f75e…0f774               Head {h00=0x0012, h01=0x0050, text=»CHT:90 RTN A14«, t00=0x009e, t01=0x009c}
0x0f774…0f782               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009e, t01=0x00b2}
0x0f782…0f78a               Head {h00=0x0004, h01=0x0050, t00=0x009e, t01=0x00c0}
0x0f78a…0f792               Head {h00=0x0004, h01=0x0050, t00=0x009e, t01=0x00c8}
0x0f792…0f7ca               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x009e, t01=0x00d0}
0x0f7ca…0f802               Head {h00=0x0034, h01=0x0050, text=»***                                          ***«, t00=0x009e, t01=0x0108}
0x0f802…0f83a               Head {h00=0x0034, h01=0x0050, text=»**            SYSLOAD PART 2.B                **«, t00=0x009e, t01=0x0140}
0x0f83a…0f872               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x009e, t01=0x0178}
0x0f872…0f8aa               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x009f, t01=0x0020}
0x0f8aa…0f8b2               Head {h00=0x0004, h01=0x0050, t00=0x009f, t01=0x0058}
0x0f8b2…0f8ea               Head {h00=0x0034, h01=0x0050, text=»*   BUILD REAL T:A'S. COPY T:A'S ACCORDING TO  *«, t00=0x009f, t01=0x0060}
0x0f8ea…0f922               Head {h00=0x0034, h01=0x0050, text=»*   SHADOW TABLE                               *«, t00=0x009f, t01=0x0098}
0x0f922…0f95a               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x009f, t01=0x00d0}
0x0f95a…0f992               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x009f, t01=0x0108}
0x0f992…0f99a               Head {h00=0x0004, h01=0x0050, t00=0x009f, t01=0x0140}
0x0f99a…0f9b2               Head {h00=0x0014, h01=0x0050, text=»PART2B EQU *-REL«, t00=0x009f, t01=0x0148}
0x0f9b2…0f9ba               Head {h00=0x0004, h01=0x0050, t00=0x009f, t01=0x0160}
0x0f9ba…0f9c2               Head {h00=0x0004, h01=0x0050, t00=0x009f, t01=0x0168}
0x0f9c2…0f9d6               Head {h00=0x0010, h01=0x0050, text=»REALTA EQU *«, t00=0x009f, t01=0x0170}
0x0f9d6…0fa00               Head {h00=0x0026, h01=0x0050, text=» LD A5,SCTSFA MONITOR END ADDRESS «, t00=0x009f, t01=0x0184}
0x0fa00…0fa32               Head {h00=0x002e, h01=0x0050, text=» LD A8,T:ATOD,A13 T:ATAB PROTOTYP ADDRESS «, t00=0x00a0, t01=0x001e}
0x0fa32…0fa60               Head {h00=0x002a, h01=0x0050, text=» LD A7,T:ATNW,A13 REAL T:ATAB ADDRESS «, t00=0x00a0, t01=0x0050}
0x0fa60…0fa72               Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x00a0, t01=0x007e}
0x0fa72…0fa94               Head {h00=0x001e, h01=0x0050, text=» ST A8,SAVE03,A13 SAVE A8 «, t00=0x00a0, t01=0x0090}
0x0fa94…0fabe               Head {h00=0x0026, h01=0x0050, text=»SYA310 LD A8,SAVE03,A13 RESTORE A8«, t00=0x00a0, t01=0x00b2}
0x0fabe…0fad0               Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x00a0, t01=0x00dc}
0x0fad0…0faee               Head {h00=0x001a, h01=0x0050, text=» CW A8,ENDADD,A13 ALL?«, t00=0x00a0, t01=0x00ee}
0x0faee…0fb08               Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA350 YES!«, t00=0x00a0, t01=0x010c}
0x0fb08…0fb26               Head {h00=0x001a, h01=0x0050, text=» ST A8,SAVE03,A13 SAVE«, t00=0x00a0, t01=0x0126}
0x0fb26…0fb4e               Head {h00=0x0024, h01=0x0050, text=» ADK A5,2 A5=SHADOW TAB POINTER «, t00=0x00a0, t01=0x0144}
0x0fb4e…0fb6a               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00a0, t01=0x016c}
0x0fb6a…0fba0               Head {h00=0x0032, h01=0x0050, text=» CALL GETTAB GET CORRESPONDING TTAB AND QUEUE «, t00=0x00a0, t01=0x0188}
0x0fba0…0fbb4               Head {h00=0x0010, h01=0x0050, text=» CALL QUEJOB«, t00=0x00a1, t01=0x002e}
0x0fbb4…0fbf2               Head {h00=0x003a, h01=0x0050, text=» ST A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13)«, t00=0x00a1, t01=0x0042}
0x0fbf2…0fc18               Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00a1, t01=0x0080}
0x0fc18…0fc36               Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x00a1, t01=0x00a6}
0x0fc36…0fc50               Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYA320 NO! «, t00=0x00a1, t01=0x00c4}
0x0fc50…0fc74               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A10 GET T:A-ADDRESS «, t00=0x00a1, t01=0x00de}
0x0fc74…0fca8               Head {h00=0x0030, h01=0x0050, text=» ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE«, t00=0x00a1, t01=0x0102}
0x0fca8…0fcce               Head {h00=0x0022, h01=0x0050, text=» ST A1,TTB:CB,A2 STORE IN TTAB«, t00=0x00a1, t01=0x0136}
0x0fcce…0fcf8               Head {h00=0x0026, h01=0x0050, text=»SYA320 LDR* A1,A8 GET T:A ADDRESS «, t00=0x00a1, t01=0x015c}
0x0fcf8…0fd20               Head {h00=0x0024, h01=0x0050, text=» STR A1,A7 STORE IN REAL T:ATAB «, t00=0x00a1, t01=0x0186}
0x0fd20…0fd32               Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x00a2, t01=0x001e}
0x0fd32…0fd5a               Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A5 GET NUMBER OF COPIES«, t00=0x00a2, t01=0x0030}
0x0fd5a…0fd68               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a2, t01=0x0058}
0x0fd68…0fd80               Head {h00=0x0014, h01=0x0050, text=»SYA340 SUK A6,1 «, t00=0x00a2, t01=0x0066}
0x0fd80…0fda0               Head {h00=0x001c, h01=0x0050, text=» RF(P) SYA345 NEXT TASK «, t00=0x00a2, t01=0x007e}
0x0fda0…0fdd6               Head {h00=0x0032, h01=0x0050, text=» CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS «, t00=0x00a2, t01=0x009e}
0x0fdd6…0fdf8               Head {h00=0x001e, h01=0x0050, text=» RB SYA310 NEXT TASK-CLASS«, t00=0x00a2, t01=0x00d4}
0x0fdf8…0fe26               Head {h00=0x002a, h01=0x0050, text=»SYA345 LD A12,T:DAD,A1 GET T:D-ADDRESS«, t00=0x00a2, t01=0x00f6}
0x0fe26…0fe44               Head {h00=0x001a, h01=0x0050, text=» CALL MOVT:A MOVE T:A «, t00=0x00a2, t01=0x0124}
0x0fe44…0fe64               Head {h00=0x001c, h01=0x0050, text=» IM T:ATID,A2 UPDATE TID«, t00=0x00a2, t01=0x0142}
0x0fe64…0fe8c               Head {h00=0x0024, h01=0x0050, text=» STR A2,A7 STORE IN REAL T:ATAB «, t00=0x00a2, t01=0x0162}
0x0fe8c…0feb2               Head {h00=0x0022, h01=0x0050, text=» LDR A8,A7 CHANGE T:A TO COPY «, t00=0x00a2, t01=0x018a}
0x0feb2…0fee8               Head {h00=0x0032, h01=0x0050, text=» CALL GETTAB GET CORRESPONDING TTAB AND QUEUE «, t00=0x00a3, t01=0x0020}
0x0fee8…0ff0c               Head {h00=0x0020, h01=0x0050, text=» CALL QUEJOB QUEUE THIS TASK«, t00=0x00a3, t01=0x0056}
0x0ff0c…0ff42               Head {h00=0x0032, h01=0x0050, text=» ST A10,TTB:SA+26,A2 SAVE T:A-ADDRESS IN TTAB «, t00=0x00a3, t01=0x007a}
0x0ff42…0ff68               Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00a3, t01=0x00b0}
0x0ff68…0ff86               Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x00a3, t01=0x00d6}
0x0ff86…0ffa0               Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYA348 NO! «, t00=0x00a3, t01=0x00f4}
0x0ffa0…0ffc4               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A10 GET T:A-ADDRESS «, t00=0x00a3, t01=0x010e}
0x0ffc4…0fff8               Head {h00=0x0030, h01=0x0050, text=» ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE«, t00=0x00a3, t01=0x0132}
0x0fff8…1001e               Head {h00=0x0022, h01=0x0050, text=» ST A1,TTB:CB,A2 STORE IN TTAB«, t00=0x00a3, t01=0x0166}
0x1001e…10050               Head {h00=0x002e, h01=0x0050, text=»SYA348 ADK A7,2 NEXT ENTRY IN REAL T:ATAB «, t00=0x00a3, t01=0x018c}
0x10050…10086               Head {h00=0x0032, h01=0x0050, text=» CALL TWBSWB MOVE TWB'S AND RESERVE FOR SWB'S «, t00=0x00a4, t01=0x002e}
0x10086…100ac               Head {h00=0x0022, h01=0x0050, text=» CALL ALLBUF ALLOCATE BUFFERS «, t00=0x00a4, t01=0x0064}
0x100ac…100b8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a4, t01=0x008a}
0x100b8…100d4               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00a4, t01=0x0096}
0x100d4…10102               Head {h00=0x002a, h01=0x0050, text=»* GET ACTUAL MM-TABLE ADDRESS AND LOAD«, t00=0x00a4, t01=0x00b2}
0x10102…1010a               Head {h00=0x0004, h01=0x0050, t00=0x00a4, t01=0x00e0}
0x1010a…1011c               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x00a4, t01=0x00e8}
0x1011c…1014a               Head {h00=0x002a, h01=0x0050, text=» AD* A1,SCTSFA ADD SHADOW-TABLE LENGTH«, t00=0x00a4, t01=0x00fa}
0x1014a…10172               Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET MM-TABLE ADDRESS«, t00=0x00a4, t01=0x0128}
0x10172…10186               Head {h00=0x0010, h01=0x0050, text=» TLR A1 LOAD«, t00=0x00a4, t01=0x0150}
0x10186…101ac               Head {h00=0x0022, h01=0x0050, text=» ST A1,MMFROM,A13 SAVE ADDRESS«, t00=0x00a4, t01=0x0164}
0x101ac…101d8               Head {h00=0x0028, h01=0x0050, text=» CALL GETTAB GET CORRESPONDING TTAB «, t00=0x00a4, t01=0x018a}
0x101d8…10216               Head {h00=0x003a, h01=0x0050, text=» ST A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13)«, t00=0x00a5, t01=0x0026}
0x10216…1023a               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A10 GET T:A-ADDRESS «, t00=0x00a5, t01=0x0064}
0x1023a…1026e               Head {h00=0x0030, h01=0x0050, text=» ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE«, t00=0x00a5, t01=0x0088}
0x1026e…10294               Head {h00=0x0022, h01=0x0050, text=» ST A1,TTB:CB,A2 STORE IN TTAB«, t00=0x00a5, t01=0x00bc}
0x10294…102c8               Head {h00=0x0030, h01=0x0050, text=» LD A1,T:DSAV,A2 GET CLASS-LOCAL LAST ENTRY «, t00=0x00a5, t01=0x00e2}
0x102c8…102ec               Head {h00=0x0020, h01=0x0050, text=» CALL QUEJOB QUEUE THIS TASK«, t00=0x00a5, t01=0x0116}
0x102ec…1031a               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,MMTAB GET WORK TABLE ADDRESS «, t00=0x00a5, t01=0x013a}
0x1031a…1032e               Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x00a5, t01=0x0168}
0x1032e…10354               Head {h00=0x0022, h01=0x0050, text=» TSR A2 SAVE CLASS-DATA TABLE «, t00=0x00a5, t01=0x017c}
0x10354…10384               Head {h00=0x002c, h01=0x0050, text=»* REMOVE TASK-LOCAL ENTRIES IN MM-TABLE «, t00=0x00a6, t01=0x0012}
0x10384…1038c               Head {h00=0x0004, h01=0x0050, t00=0x00a6, t01=0x0042}
0x1038c…103ac               Head {h00=0x001c, h01=0x0050, text=» SUK A2,2 START OF TABLE«, t00=0x00a6, t01=0x004a}
0x103ac…103c4               Head {h00=0x0014, h01=0x0050, text=» LDKL A12,/FC00 «, t00=0x00a6, t01=0x006a}
0x103c4…103e6               Head {h00=0x001e, h01=0x0050, text=»SYA320 SUK A1,2 NEXT ENTRY«, t00=0x00a6, t01=0x0082}
0x103e6…103fe               Head {h00=0x0014, h01=0x0050, text=» CWR A1,A2 ALL? «, t00=0x00a6, t01=0x00a4}
0x103fe…10418               Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA330 YES!«, t00=0x00a6, t01=0x00bc}
0x10418…10438               Head {h00=0x001c, h01=0x0050, text=» STR A12,A1 REMOVE ENTRY«, t00=0x00a6, t01=0x00d6}
0x10438…1044a               Head {h00=0x000e, h01=0x0050, text=» RB SYA320«, t00=0x00a6, t01=0x00f6}
0x1044a…1045e               Head {h00=0x0010, h01=0x0050, text=»SYA330 EQU *«, t00=0x00a6, t01=0x0108}
0x1045e…10480               Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A ADDRESS«, t00=0x00a6, t01=0x011c}
0x10480…104a8               Head {h00=0x0024, h01=0x0050, text=» ESR A1,A7 STORE IN REAL T:ATAB «, t00=0x00a6, t01=0x013e}
0x104a8…104d0               Head {h00=0x0024, h01=0x0050, text=» EL A12,T:DAD,A1 GET T:D ADDRESS«, t00=0x00a6, t01=0x0166}
0x104d0…104f0               Head {h00=0x001c, h01=0x0050, text=» EL A1,T:ATID,A1 GET TID«, t00=0x00a6, t01=0x018e}
0x104f0…1051c               Head {h00=0x0028, h01=0x0050, text=» ADK A7,2 NEXT ENTRY IN REAL T:ATAB «, t00=0x00a7, t01=0x001e}
0x1051c…10544               Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A5 GET NUMBER OF COPIES«, t00=0x00a7, t01=0x004a}
0x10544…1055c               Head {h00=0x0014, h01=0x0050, text=»SYA340 SUK A6,1 «, t00=0x00a7, t01=0x0072}
0x1055c…1057c               Head {h00=0x001c, h01=0x0050, text=» RF(P) SYA345 NEXT TASK «, t00=0x00a7, t01=0x008a}
0x1057c…105b2               Head {h00=0x0032, h01=0x0050, text=» CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS «, t00=0x00a7, t01=0x00aa}
0x105b2…105d4               Head {h00=0x001e, h01=0x0050, text=» RB SYA310 NEXT TASK-CLASS«, t00=0x00a7, t01=0x00e0}
0x105d4…105f8               Head {h00=0x0020, h01=0x0050, text=»SYA345 ADK A1,1 NEXT T:A ID «, t00=0x00a7, t01=0x0102}
0x105f8…10624               Head {h00=0x0028, h01=0x0050, text=» CALL GETTTB FIND CORRESPONDING TTAB«, t00=0x00a7, t01=0x0126}
0x10624…10648               Head {h00=0x0020, h01=0x0050, text=» CALL QUEJOB QUEUE THIS TASK«, t00=0x00a7, t01=0x0152}
0x10648…10672               Head {h00=0x0026, h01=0x0050, text=» CALL MOVMMT MOVE MM-TABLE TO TTAB«, t00=0x00a7, t01=0x0176}
0x10672…10690               Head {h00=0x001a, h01=0x0050, text=» CALL MOVT:A MOVE T:A «, t00=0x00a8, t01=0x0010}
0x10690…106b8               Head {h00=0x0024, h01=0x0050, text=» ESR A2,A7 STORE IN REAL T:ATAB «, t00=0x00a8, t01=0x002e}
0x106b8…106fc               Head {h00=0x0040, h01=0x0050, text=» ST A2,TTB:SA+26,A9 PUT T:A-ADDRESS IN TTAB. A9=TTAB ADDRESS«, t00=0x00a8, t01=0x0056}
0x106fc…1071e               Head {h00=0x001e, h01=0x0050, text=» LDR A8,A2 GET T:A-ADDRESS«, t00=0x00a8, t01=0x009a}
0x1071e…10752               Head {h00=0x0030, h01=0x0050, text=» ADKL A8,CSB ADDRESS TO CURRENT SEGMENT BASE«, t00=0x00a8, t01=0x00bc}
0x10752…10778               Head {h00=0x0022, h01=0x0050, text=» ST A8,TTB:CB,A9 STORE IN TTAB«, t00=0x00a8, t01=0x00f0}
0x10778…1079e               Head {h00=0x0022, h01=0x0050, text=» LDR A8,A7 CHANGE T:A TO COPY «, t00=0x00a8, t01=0x0116}
0x1079e…107ce               Head {h00=0x002c, h01=0x0050, text=» ADK A7,2 NEXT FREE WORD IN REAL T:ATAB «, t00=0x00a8, t01=0x013c}
0x107ce…107e8               Head {h00=0x0016, h01=0x0050, text=»   A2=NEW ADDRESS «, t00=0x00a8, t01=0x016c}
0x107e8…1081c               Head {h00=0x0030, h01=0x0050, text=» CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S «, t00=0x00a8, t01=0x0186}
0x1081c…10840               Head {h00=0x0020, h01=0x0050, text=» LD A1,MMTO,A13 GET TO-TABLE«, t00=0x00a9, t01=0x002a}
0x10840…10872               Head {h00=0x002e, h01=0x0050, text=» ST A1,MMFROM,A13 CHANGE T:A ADDRESS-TABLE«, t00=0x00a9, t01=0x004e}
0x10872…10882               Head {h00=0x000c, h01=0x0050, text=» TLR A1 «, t00=0x00a9, t01=0x0080}
0x10882…108a8               Head {h00=0x0022, h01=0x0050, text=» CALL ALLBUF ALLOCATE BUFFERS «, t00=0x00a9, t01=0x0090}
0x108a8…108d0               Head {h00=0x0024, h01=0x0050, text=» LD A1,TTAB,A13 GET TTAB-ADDRESS«, t00=0x00a9, t01=0x00b6}
0x108d0…108fe               Head {h00=0x002a, h01=0x0050, text=» CM LSTPAG,A1 CLEAR SAVE-AREA IN TTAB «, t00=0x00a9, t01=0x00de}
0x108fe…10928               Head {h00=0x0026, h01=0x0050, text=» ELR A10,A8 GET T:A-ADDRESS (NEW) «, t00=0x00a9, t01=0x010c}
0x10928…1094a               Head {h00=0x001e, h01=0x0050, text=» EL A1,T:ATID,A10 GET TID «, t00=0x00a9, t01=0x0136}
0x1094a…10966               Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 UPDATE TID«, t00=0x00a9, t01=0x0158}
0x10966…1098e               Head {h00=0x0024, h01=0x0050, text=» ES A1,T:ATID,A10 RESTORE IN T:A«, t00=0x00a9, t01=0x0174}
0x1098e…1099a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00aa, t01=0x000c}
0x1099a…109b0               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00aa, t01=0x0018}
0x109b0…109c2               Head {h00=0x000e, h01=0x0050, text=» RB SYA340«, t00=0x00aa, t01=0x002e}
0x109c2…109ce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00aa, t01=0x0040}
0x109ce…109dc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00aa, t01=0x004c}
0x109dc…109f4               Head {h00=0x0014, h01=0x0050, text=»FINISH EQU *-REL«, t00=0x00aa, t01=0x005a}
0x109f4…109fc               Head {h00=0x0004, h01=0x0050, t00=0x00aa, t01=0x0072}
0x109fc…10a20               Head {h00=0x0020, h01=0x0050, text=»* ADJUST START OF FREE AREA «, t00=0x00aa, t01=0x007a}
0x10a20…10a28               Head {h00=0x0004, h01=0x0050, t00=0x00aa, t01=0x009e}
0x10a28…10a3c               Head {h00=0x0010, h01=0x0050, text=»SYA350 EQU *«, t00=0x00aa, t01=0x00a6}
0x10a3c…10a52               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00aa, t01=0x00ba}
0x10a52…10a80               Head {h00=0x002a, h01=0x0050, text=» LD A1,LSTADR,A13 GET END OF FREE AREA«, t00=0x00aa, t01=0x00d0}
0x10a80…10ab2               Head {h00=0x002e, h01=0x0050, text=» LD A14,SAVE13,A13 GET APPL. REL. BASE =1 «, t00=0x00aa, t01=0x00fe}
0x10ab2…10abe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00aa, t01=0x0130}
0x10abe…10ada               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00aa, t01=0x013c}
0x10ada…10af0               Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FFF «, t00=0x00aa, t01=0x0158}
0x10af0…10b0a               Head {h00=0x0016, h01=0x0050, text=» LD A2,FYSPAG,A13 «, t00=0x00aa, t01=0x016e}
0x10b0a…10b1c               Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x00aa, t01=0x0188}
0x10b1c…10b2e               Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x00ab, t01=0x000a}
0x10b2e…10b3a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ab, t01=0x001c}
0x10b3a…10b50               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=1 «, t00=0x00ab, t01=0x0028}
0x10b50…10b66               Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTLAC «, t00=0x00ab, t01=0x003e}
0x10b66…10b72               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ab, t01=0x0054}
0x10b72…10b8e               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG-CREDIT=1«, t00=0x00ab, t01=0x0060}
0x10b8e…10ba4               Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/03FF«, t00=0x00ab, t01=0x007c}
0x10ba4…10bb6               Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x00ab, t01=0x0092}
0x10bb6…10bc2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ab, t01=0x00a4}
0x10bc2…10bda               Head {h00=0x0014, h01=0x0050, text=» ST A1,SCTEFA+2 «, t00=0x00ab, t01=0x00b0}
0x10bda…10bf0               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00ab, t01=0x00c8}
0x10bf0…10c0a               Head {h00=0x0016, h01=0x0050, text=» LD A1,FYSPAG,A13 «, t00=0x00ab, t01=0x00de}
0x10c0a…10c26               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG-CREDIT=1«, t00=0x00ab, t01=0x00f8}
0x10c26…10c3c               Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTLAC «, t00=0x00ab, t01=0x0114}
0x10c3c…10c48               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ab, t01=0x012a}
0x10c48…10c64               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+CREDIT=0«, t00=0x00ab, t01=0x0136}
0x10c64…10c76               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x00ab, t01=0x0152}
0x10c76…10c82               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ab, t01=0x0164}
0x10c82…10c94               Head {h00=0x000e, h01=0x0050, text=» SRL A1,14«, t00=0x00ab, t01=0x0170}
0x10c94…10caa               Head {h00=0x0012, h01=0x0050, text=» ST A1,SCTEFA «, t00=0x00ab, t01=0x0182}
0x10caa…10cc6               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00ac, t01=0x0008}
0x10cc6…10cf2               Head {h00=0x0028, h01=0x0050, text=» LD A1,FSTADR,A13 START OF FREE AREA«, t00=0x00ac, t01=0x0024}
0x10cf2…10d08               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SYA355«, t00=0x00ac, t01=0x0050}
0x10d08…10d14               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ac, t01=0x0066}
0x10d14…10d2a               Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTSFA «, t00=0x00ac, t01=0x0072}
0x10d2a…10d48               Head {h00=0x001a, h01=0x0050, text=»SYA355 ST A1,SCTSFA+2 «, t00=0x00ac, t01=0x0088}
0x10d48…10d5a               Head {h00=0x000e, h01=0x0050, text=» CM SCTSFA«, t00=0x00ac, t01=0x00a6}
0x10d5a…10d70               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00ac, t01=0x00b8}
0x10d70…10d7e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ac, t01=0x00ce}
0x10d7e…10dc6               Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x00ac, t01=0x00dc}
0x10dc6…10e0e               Head {h00=0x0044, h01=0x003f, text=»*                                                             * «, t00=0x00ac, t01=0x0124}
0x10e0e…10e56               Head {h00=0x0044, h01=0x003f, text=»*                 PAGGEN - BUILD PAGE TABLE                   * «, t00=0x00ac, t01=0x016c}
0x10e56…10e9e               Head {h00=0x0044, h01=0x003f, text=»*                 =========================                   * «, t00=0x00ad, t01=0x0024}
0x10e9e…10ee6               Head {h00=0x0044, h01=0x003f, text=»*                                                             * «, t00=0x00ad, t01=0x006c}
0x10ee6…10f2e               Head {h00=0x0044, h01=0x003f, text=»*  REFERENCED IN:  SYSLDA                                     * «, t00=0x00ad, t01=0x00b4}
0x10f2e…10f76               Head {h00=0x0044, h01=0x003f, text=»*                                                             * «, t00=0x00ad, t01=0x00fc}
0x10f76…10fbe               Head {h00=0x0044, h01=0x003f, text=»*  ENTRY:  SCTSFA - START OF FREE AREA                        * «, t00=0x00ad, t01=0x0144}
0x10fbe…11006               Head {h00=0x0044, h01=0x003f, text=»*          SCTEFA - END OF FREE AREA                          * «, t00=0x00ad, t01=0x018c}
0x11006…1104e               Head {h00=0x0044, h01=0x0050, text=»*          SAVE29 - NUMBER OF SEGMENTS                        * «, t00=0x00ae, t01=0x0044}
0x1104e…11096               Head {h00=0x0044, h01=0x003f, text=»*          SCTNOP - NUMBER OF PAGES                           * «, t00=0x00ae, t01=0x008c}
0x11096…110de               Head {h00=0x0044, h01=0x003f, text=»*          SCTPSZ - PAGE SIZE                                 * «, t00=0x00ae, t01=0x00d4}
0x110de…11126               Head {h00=0x0044, h01=0x003f, text=»*          SAVE22 - PHYSICAL ADDRESS TO FIRST PAGE (16 BITS)  * «, t00=0x00ae, t01=0x011c}
0x11126…1116e               Head {h00=0x0044, h01=0x003f, text=»*                                                             * «, t00=0x00ae, t01=0x0164}
0x1116e…111b6               Head {h00=0x0044, h01=0x003f, text=»*  EXIT:  PAGQUE - POINTER TO FIRST FREE PAGE BLOCK           * «, t00=0x00af, t01=0x001c}
0x111b6…111fe               Head {h00=0x0044, h01=0x003f, text=»*         PAGQUE+2 - POINTER TO LAST FREE PAGE BLOCK+2        * «, t00=0x00af, t01=0x0064}
0x111fe…11246               Head {h00=0x0044, h01=0x003f, text=»*                                                             * «, t00=0x00af, t01=0x00ac}
0x11246…1128e               Head {h00=0x0044, h01=0x003f, text=»*  WORK REGISTERS:  A1-A12                                    * «, t00=0x00af, t01=0x00f4}
0x1128e…112d6               Head {h00=0x0044, h01=0x003f, text=»*                                                             * «, t00=0x00af, t01=0x013c}
0x112d6…1131e               Head {h00=0x0044, h01=0x003f, text=»*  SUBROUTINES:                                               * «, t00=0x00af, t01=0x0184}
0x1131e…11366               Head {h00=0x0044, h01=0x003f, text=»*                                                             * «, t00=0x00b0, t01=0x003c}
0x11366…113ae               Head {h00=0x0044, h01=0x003f, text=»*                                                             * «, t00=0x00b0, t01=0x0084}
0x113ae…113f6               Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x00b0, t01=0x00cc}
0x113f6…1140a               Head {h00=0x0010, h01=0x000c, text=»PAGGEN EQU *«, t00=0x00b0, t01=0x0114}
0x1140a…1142e               Head {h00=0x0020, h01=0x0050, text=» LDKL A2,PAGEX EXIT ADDRESS «, t00=0x00b0, t01=0x0128}
0x1142e…1144a               Head {h00=0x0018, h01=0x0050, text=» ADR A2,A13 RELOCATE«, t00=0x00b0, t01=0x014c}
0x1144a…11480               Head {h00=0x0032, h01=0x0050, text=» LD A1,SAVE29,A13 ANY SEGMENTS IN APPLICATION?«, t00=0x00b0, t01=0x0168}
0x11480…11496               Head {h00=0x0012, h01=0x0050, text=» ABR(Z) A2 NO!«, t00=0x00b1, t01=0x000e}
0x11496…114bc               Head {h00=0x0022, h01=0x001d, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00b1, t01=0x0024}
0x114bc…114d6               Head {h00=0x0016, h01=0x0011, text=» ANK A1,3 PAGING? «, t00=0x00b1, t01=0x004a}
0x114d6…114ec               Head {h00=0x0012, h01=0x0050, text=» ABR(Z) A2 NO!«, t00=0x00b1, t01=0x0064}
0x114ec…114f6               Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b1, t01=0x007a}
0x114f6…11546               Head {h00=0x004c, h01=0x0047, text=»*  RESERV SPACE FOR PAGE BLOCKS CORRESPONDING TO CORE RESIDENT SEGMENTS «, t00=0x00b1, t01=0x0084}
0x11546…11550               Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b1, t01=0x00d4}
0x11550…11580               Head {h00=0x002c, h01=0x0027, text=» LD A11,SCTSFA+2 GET START OF FREE AREA «, t00=0x00b1, t01=0x00de}
0x11580…115a6               Head {h00=0x0022, h01=0x001e, text=» ST A11,SCTPAG STORE IN SYSTAB«, t00=0x00b1, t01=0x010e}
0x115a6…115ce               Head {h00=0x0024, h01=0x001f, text=» LDR A8,A13 GET RELOCATION BASE «, t00=0x00b1, t01=0x0134}
0x115ce…115fe               Head {h00=0x002c, h01=0x0050, text=» ADKL A8,PAG:60-REL LIMIT FOR PAGE TABLE«, t00=0x00b1, t01=0x015c}
0x115fe…11622               Head {h00=0x0020, h01=0x001c, text=» LDK A7,0 RESET PAGE COUNTER«, t00=0x00b1, t01=0x018c}
0x11622…11636               Head {h00=0x0010, h01=0x000c, text=»PAG:10 EQU *«, t00=0x00b2, t01=0x0020}
0x11636…11666               Head {h00=0x002c, h01=0x0027, text=» CW A7,SCTNOP EQUAL TO NUMBER OF PAGES? «, t00=0x00b2, t01=0x0034}
0x11666…11680               Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:30 YES!«, t00=0x00b2, t01=0x0064}
0x11680…116a8               Head {h00=0x0024, h01=0x001f, text=» LDK A1,0 RESET NUMBER OF WORDS «, t00=0x00b2, t01=0x007e}
0x116a8…116bc               Head {h00=0x0010, h01=0x000c, text=»PAG:20 EQU *«, t00=0x00b2, t01=0x00a6}
0x116bc…116e2               Head {h00=0x0022, h01=0x001d, text=» ADKL A11,2 INCLUDE NEXT WORD «, t00=0x00b2, t01=0x00ba}
0x116e2…11716               Head {h00=0x0030, h01=0x002b, text=» RF(Z) MEMOFL MEMORY OVERFLOW (64 KB LIMIT) «, t00=0x00b2, t01=0x00e0}
0x11716…1173e               Head {h00=0x0024, h01=0x0020, text=» ADK A1,1 INCREMENT WORD COUNTER«, t00=0x00b2, t01=0x0114}
0x1173e…11762               Head {h00=0x0020, h01=0x001b, text=» CWK A1,4 4 WORDS RESERVED? «, t00=0x00b2, t01=0x013c}
0x11762…1177c               Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:25 YES!«, t00=0x00b2, t01=0x0160}
0x1177c…117a8               Head {h00=0x0028, h01=0x0023, text=» CWR A11,A8 CHECK PROGRAM OVERWRITE «, t00=0x00b2, t01=0x017a}
0x117a8…117ce               Head {h00=0x0022, h01=0x001e, text=» RF(E) MEMOFL MEMORY OVERFLOW!«, t00=0x00b3, t01=0x0016}
0x117ce…117e0               Head {h00=0x000e, h01=0x000a, text=» RB PAG:20«, t00=0x00b3, t01=0x003c}
0x117e0…11814               Head {h00=0x0030, h01=0x002c, text=»PAG:25 ADK A7,1 INCREMENT PAGE BLOCK COUNTER«, t00=0x00b3, t01=0x004e}
0x11814…11826               Head {h00=0x000e, h01=0x000a, text=» RB PAG:10«, t00=0x00b3, t01=0x0082}
0x11826…1183a               Head {h00=0x0010, h01=0x000c, text=»PAG:30 EQU *«, t00=0x00b3, t01=0x0094}
0x1183a…11844               Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b3, t01=0x00a8}
0x11844…1187c               Head {h00=0x0034, h01=0x002f, text=»*  RESERV MEMORY PAGES IN UNUSED PART OF MEMORY «, t00=0x00b3, t01=0x00b2}
0x1187c…118b6               Head {h00=0x0036, h01=0x0032, text=»*  AND EXTEND PAGE TABLE WITH CORRESPONDING NUMBER«, t00=0x00b3, t01=0x00ea}
0x118b6…118d0               Head {h00=0x0016, h01=0x0012, text=»*  OF PAGE BLOCKS.«, t00=0x00b3, t01=0x0124}
0x118d0…118da               Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00b3, t01=0x013e}
0x118da…118e6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b3, t01=0x0148}
0x118e6…11902               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00b3, t01=0x0154}
0x11902…11942               Head {h00=0x003c, h01=0x0037, text=» LD A1,SCTEFA GET TWO MOST SIGN BITS OF 18-BITS ADDRESS «, t00=0x00b3, t01=0x0170}
0x11942…1197a               Head {h00=0x0034, h01=0x0050, text=» SLL A1,14 TWO MOST SIGN BITS OF 16-BITS ADDRESS«, t00=0x00b4, t01=0x0020}
0x1197a…119b2               Head {h00=0x0034, h01=0x002f, text=» LD A2,SCTEFA+2 GET BIT 2-18 OF 18-BITS ADDRESS «, t00=0x00b4, t01=0x0058}
0x119b2…119dc               Head {h00=0x0026, h01=0x0021, text=» SRL A2,2 SKIP TWO RIGHTMOST BITS «, t00=0x00b4, t01=0x0090}
0x119dc…11a0c               Head {h00=0x002c, h01=0x0050, text=» ORR A1,A2 16 BITS PHYSICAL PAGE ADDRESS«, t00=0x00b4, t01=0x00ba}
0x11a0c…11a24               Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x00b4, t01=0x00ea}
0x11a24…11a48               Head {h00=0x0020, h01=0x001b, text=» LD A2,SCTPSZ GET PAGE SIZE «, t00=0x00b4, t01=0x0102}
0x11a48…11a72               Head {h00=0x0026, h01=0x0021, text=» SRL A2,2 SKIP TWO RIGHTMOST BITS «, t00=0x00b4, t01=0x0126}
0x11a72…11a8a               Head {h00=0x0014, h01=0x0010, text=» LDR A10,A2 SAVE«, t00=0x00b4, t01=0x0150}
0x11a8a…11abe               Head {h00=0x0030, h01=0x002c, text=» ANKL A1,/FC00 MAKE EVEN 4K-MULTIPLE ADDRESS«, t00=0x00b4, t01=0x0168}
0x11abe…11aea               Head {h00=0x0028, h01=0x0023, text=» ANKL A2,/0300 MODIFY FOR PAGE SIZE «, t00=0x00b5, t01=0x000c}
0x11aea…11b0c               Head {h00=0x001e, h01=0x0050, text=» ANR A2,A3 EVEN 1-KB LIMIT«, t00=0x00b5, t01=0x0038}
0x11b0c…11b38               Head {h00=0x0028, h01=0x0024, text=» ORR A1,A2 MODIFY PAGE ADDRESS LIMIT«, t00=0x00b5, t01=0x005a}
0x11b38…11b44               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b5, t01=0x0086}
0x11b44…11b60               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00b5, t01=0x0092}
0x11b60…11b88               Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTEFA+2 END OF FREE AREA«, t00=0x00b5, t01=0x00ae}
0x11b88…11ba8               Head {h00=0x001c, h01=0x0050, text=» LD A10,SCTPSZ PAGE SIZE«, t00=0x00b5, t01=0x00d6}
0x11ba8…11bb4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b5, t01=0x00f6}
0x11bb4…11bca               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00b5, t01=0x0102}
0x11bca…11bee               Head {h00=0x0020, h01=0x001c, text=» LDR A9,A1 INIT PAGE ADDRESS«, t00=0x00b5, t01=0x0118}
0x11bee…11c06               Head {h00=0x0014, h01=0x000f, text=» LDR A6,A9 SAVE «, t00=0x00b5, t01=0x013c}
0x11c06…11c1a               Head {h00=0x0010, h01=0x0050, text=»PAG:31 EQU *«, t00=0x00b5, t01=0x0154}
0x11c1a…11c2e               Head {h00=0x0010, h01=0x0050, text=» TNM A6,A10 «, t00=0x00b5, t01=0x0168}
0x11c2e…11c44               Head {h00=0x0012, h01=0x0050, text=» RF(NN) PAG:32«, t00=0x00b5, t01=0x017c}
0x11c44…11c58 (182, 0, 400) Head {h00=0x0010, h01=0x0050, text=» CWR A10,A6 «, t00=0x00b6, t01=0x0004}
0x11c58…11c6a               Head {h00=0x000e, h01=0x0050, text=» RF PAG:33«, t00=0x00b6, t01=0x0018}
0x11c6a…11c84               Head {h00=0x0016, h01=0x0050, text=»PAG:32 CWR A6,A10 «, t00=0x00b6, t01=0x002a}
0x11c84…11ca0               Head {h00=0x0018, h01=0x0050, text=»PAG:33 RF(NG) PAG:40«, t00=0x00b6, t01=0x0044}
0x11ca0…11cd0               Head {h00=0x002c, h01=0x0050, text=» SUR A6,A10 COMPUTE ADDRESS TO NEXT PAGE«, t00=0x00b6, t01=0x0060}
0x11cd0…11cf4               Head {h00=0x0020, h01=0x001b, text=» LDR A1,A6 GET PAGE ADDRESS «, t00=0x00b6, t01=0x0090}
0x11cf4…11d10               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00b6, t01=0x00b4}
0x11d10…11d3e               Head {h00=0x002a, h01=0x0026, text=» ANKL A1,/C000 ADDRESS IN SYSTEM AREA?«, t00=0x00b6, t01=0x00d0}
0x11d3e…11d5a               Head {h00=0x0018, h01=0x0013, text=» RF(NZ) PAG:34  NO! «, t00=0x00b6, t01=0x00fe}
0x11d5a…11d8c               Head {h00=0x002e, h01=0x002a, text=» LDR A1,A6 PHYSICAL ADDRESS IN SYSTEM AREA«, t00=0x00b6, t01=0x011a}
0x11d8c…11dbe               Head {h00=0x002e, h01=0x0029, text=» SLL A1,2 ABSOLUTE ADDRESS IN SYSTEM AREA «, t00=0x00b6, t01=0x014c}
0x11dbe…11dd0               Head {h00=0x000e, h01=0x000a, text=» RF PAG:36«, t00=0x00b6, t01=0x017e}
0x11dd0…11df8               Head {h00=0x0024, h01=0x0020, text=»PAG:34 LDK A1,0 END OF FREE AREA«, t00=0x00b6, t01=0x0190}
0x11df8…11e04               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b7, t01=0x0028}
0x11e04…11e1a               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00b7, t01=0x0034}
0x11e1a…11e44               Head {h00=0x0026, h01=0x0022, text=»PAG:36 LDK A2,0 RESET WORD COUNTER«, t00=0x00b7, t01=0x004a}
0x11e44…11e72               Head {h00=0x002a, h01=0x0025, text=»PAG:38 ADKL A11,2 RESERV ANOTHER WORD «, t00=0x00b7, t01=0x0074}
0x11e72…11e94               Head {h00=0x001e, h01=0x0019, text=» RF(Z) PAG:40 64 KB LIMIT «, t00=0x00b7, t01=0x00a2}
0x11e94…11ebc               Head {h00=0x0024, h01=0x0020, text=» ADK A2,1 INCREMENT WORD COUNTER«, t00=0x00b7, t01=0x00c4}
0x11ebc…11ede               Head {h00=0x001e, h01=0x0019, text=» CWK A2,4 BLOCK COMPLETE? «, t00=0x00b7, t01=0x00ec}
0x11ede…11ef8               Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:45 YES!«, t00=0x00b7, t01=0x010e}
0x11ef8…11f22               Head {h00=0x0026, h01=0x0050, text=» LDR A1,A1 ADDRESS IN SYSTEM AREA?«, t00=0x00b7, t01=0x0128}
0x11f22…11f3c               Head {h00=0x0016, h01=0x0050, text=» RF(Z) PAG:39 NO! «, t00=0x00b7, t01=0x0152}
0x11f3c…11f62               Head {h00=0x0022, h01=0x0050, text=» TNM A11,A1 32-KB LIMIT CHECK «, t00=0x00b7, t01=0x016c}
0x11f62…11f78 (184, 0, 400) Head {h00=0x0012, h01=0x0050, text=» RF(NN) PAG382«, t00=0x00b8, t01=0x0004}
0x11f78…11f8c               Head {h00=0x0010, h01=0x0050, text=» CWR A11,A1 «, t00=0x00b8, t01=0x001a}
0x11f8c…11f9e               Head {h00=0x000e, h01=0x0050, text=» RF PAG384«, t00=0x00b8, t01=0x002e}
0x11f9e…11fb8               Head {h00=0x0016, h01=0x0050, text=»PAG382 CWR A1,A11 «, t00=0x00b8, t01=0x0040}
0x11fb8…11ff0               Head {h00=0x0034, h01=0x0050, text=»PAG384 RF(NG) PAG:40 NO MOORE MEMORY AVALIABLE! «, t00=0x00b8, t01=0x005a}
0x11ff0…12004               Head {h00=0x0010, h01=0x0050, text=»PAG:39 EQU *«, t00=0x00b8, t01=0x0092}
0x12004…1202a               Head {h00=0x0022, h01=0x001d, text=» CWR A11,A8 PROGRAM OVERWRITE «, t00=0x00b8, t01=0x00a6}
0x1202a…12044               Head {h00=0x0016, h01=0x0012, text=» RB(NE) PAG:38 NO!«, t00=0x00b8, t01=0x00cc}
0x12044…12058               Head {h00=0x0010, h01=0x000c, text=»PAG:40 EQU *«, t00=0x00b8, t01=0x00e6}
0x12058…12092               Head {h00=0x0036, h01=0x0031, text=» CW A7,SCTNOP ONLY PAGES FOR CORE RESIDENT PAGES? «, t00=0x00b8, t01=0x00fa}
0x12092…120ac               Head {h00=0x0016, h01=0x0011, text=» RF(G) PAG:50 NO! «, t00=0x00b8, t01=0x0134}
0x120ac…120f2               Head {h00=0x0042, h01=0x0050, text=» CW A7,SAVE29,A13 ONLY CORE RESIDENT SEGMENTS IN APPLICATION? «, t00=0x00b8, t01=0x014e}
0x120f2…1210c (185, 0, 400) Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:50 YES!«, t00=0x00b9, t01=0x0004}
0x1210c…12128               Head {h00=0x0018, h01=0x0013, text=»MEMOFL LDKL A1,LMP3 «, t00=0x00b9, t01=0x001e}
0x12128…12156               Head {h00=0x002a, h01=0x0026, text=» OTR A1,0,SOP INDICATE MEMORY OVERFLOW«, t00=0x00b9, t01=0x003a}
0x12156…12170               Head {h00=0x0016, h01=0x0012, text=» HLT  HALT PROGRAM«, t00=0x00b9, t01=0x0068}
0x12170…121a4               Head {h00=0x0030, h01=0x0050, text=»PAG:45 CW A7,SAVE29,A13 MOORE PAGES WANTED? «, t00=0x00b9, t01=0x0082}
0x121a4…121be               Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:50 YES!«, t00=0x00b9, t01=0x00b6}
0x121be…121e6               Head {h00=0x0024, h01=0x0020, text=» ADK A7,1 INCREMENT PAGE COUNTER«, t00=0x00b9, t01=0x00d0}
0x121e6…1220a               Head {h00=0x0020, h01=0x001c, text=» LDR A9,A6 SAVE PAGE ADDRESS«, t00=0x00b9, t01=0x00f8}
0x1220a…1221c               Head {h00=0x000e, h01=0x0050, text=» RB PAG:31«, t00=0x00b9, t01=0x011c}
0x1221c…12230               Head {h00=0x0010, h01=0x000c, text=»PAG:50 EQU *«, t00=0x00b9, t01=0x012e}
0x12230…12256               Head {h00=0x0022, h01=0x001e, text=» ADKL A11,2 START OF FREE AREA«, t00=0x00b9, t01=0x0142}
0x12256…12274               Head {h00=0x001a, h01=0x0015, text=» ST A11,SCTSFA+2 SAVE «, t00=0x00b9, t01=0x0168}
0x12274…1229e               Head {h00=0x0026, h01=0x0022, text=» ST A7,SCTNOP SAVE NUMBER OF PAGES«, t00=0x00b9, t01=0x0186}
0x1229e…122ca               Head {h00=0x0028, h01=0x0024, text=» LDR A1,A9 GET ADDRESS TO FIRST PAGE«, t00=0x00ba, t01=0x0020}
0x122ca…122e2               Head {h00=0x0014, h01=0x000f, text=» LDR A2,A1 SAVE «, t00=0x00ba, t01=0x004c}
0x122e2…122ee               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ba, t01=0x0064}
0x122ee…1230a               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00ba, t01=0x0070}
0x1230a…12338               Head {h00=0x002a, h01=0x0050, text=» SRL A1,14 BIT 0-1 OF 18-BITS ADDRESS «, t00=0x00ba, t01=0x008c}
0x12338…12352               Head {h00=0x0016, h01=0x0012, text=» ST A1,SCTEFA SAVE«, t00=0x00ba, t01=0x00ba}
0x12352…12384               Head {h00=0x002e, h01=0x002a, text=» SLL A2,2 GET BITS 2-15 OF 18-BITS ADDRESS«, t00=0x00ba, t01=0x00d4}
0x12384…12390               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ba, t01=0x0106}
0x12390…123a6               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00ba, t01=0x0112}
0x123a6…123c2               Head {h00=0x0018, h01=0x0014, text=» ST A2,SCTEFA+2 SAVE«, t00=0x00ba, t01=0x0128}
0x123c2…123cc               Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00ba, t01=0x0144}
0x123cc…1240a               Head {h00=0x003a, h01=0x0035, text=»*  INITIATE PAGE BLOCK FOR CORE RESIDENT SEGMENTS AND «, t00=0x00ba, t01=0x014e}
0x1240a…12440               Head {h00=0x0032, h01=0x002d, text=»*  STORE PAGE BLOCK ADDRESS IN SEGMENT BLOCKS «, t00=0x00ba, t01=0x018c}
0x12440…1244a               Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00bb, t01=0x0032}
0x1244a…1245c               Head {h00=0x000e, h01=0x0009, text=» LDK A1,0 «, t00=0x00bb, t01=0x003c}
0x1245c…124a0               Head {h00=0x0040, h01=0x003b, text=» LD A8,SAVE22,A13 PHYSICAL ADDRESS TO FIRST CORE RES. SEGM. «, t00=0x00bb, t01=0x004e}
0x124a0…124d2               Head {h00=0x002e, h01=0x0050, text=» LD A11,SAVE30,A13 START OF SEGMENT TABLE «, t00=0x00bb, t01=0x0092}
0x124d2…12502               Head {h00=0x002c, h01=0x0028, text=» LDK A4,0 RESET RESIDENT SEGMENT COUNTER«, t00=0x00bb, t01=0x00c4}
0x12502…1252c               Head {h00=0x0026, h01=0x0022, text=» LD A12,SCTPAG START OF PAGE TABLE«, t00=0x00bb, t01=0x00f4}
0x1252c…12558               Head {h00=0x0028, h01=0x0050, text=» LD A6,SAVE29,A13 NUMBER OF SEGMENTS«, t00=0x00bb, t01=0x011e}
0x12558…1256c               Head {h00=0x0010, h01=0x0050, text=»PAG:60 EQU *«, t00=0x00bb, t01=0x014a}
0x1256c…12592               Head {h00=0x0022, h01=0x001e, text=» ADKL A11,8 NEXT SEGMENT BLOCK«, t00=0x00bb, t01=0x015e}
0x12592…125b2               Head {h00=0x001c, h01=0x0017, text=» LDR* A2,A11 GET STATUS «, t00=0x00bb, t01=0x0184}
0x125b2…125e4               Head {h00=0x002e, h01=0x0029, text=» RF(NN) PAG:65 SEGMENT NOT LOADED IN CORE «, t00=0x00bc, t01=0x0014}
0x125e4…12612               Head {h00=0x002a, h01=0x0026, text=» ST A12,6,A11 STORE PAGE BLOCK ADDRESS«, t00=0x00bc, t01=0x0046}
0x12612…12642               Head {h00=0x002c, h01=0x0027, text=» STR A1,A12 RESET QUEUE POINTER FORWARD «, t00=0x00bc, t01=0x0074}
0x12642…12674               Head {h00=0x002e, h01=0x0029, text=» ST A1,2,A12 RESET QUEUE POINTER BACKWARD «, t00=0x00bc, t01=0x00a4}
0x12674…1269c               Head {h00=0x0024, h01=0x001f, text=» ST A8,4,A12 STORE PAGE ADDRESS «, t00=0x00bc, t01=0x00d6}
0x1269c…126ce               Head {h00=0x002e, h01=0x0029, text=» ST A11,6,A12 STORE SEGMENT BLOCK ADDRESS «, t00=0x00bc, t01=0x00fe}
0x126ce…12702               Head {h00=0x0030, h01=0x002c, text=» ADK A4,1 INCREMENT RESIDENT SEGMENT COUNTER«, t00=0x00bc, t01=0x0130}
0x12702…1272c               Head {h00=0x0026, h01=0x0021, text=» ADR A8,A10  ADDRESS TO NEXT PAGE «, t00=0x00bc, t01=0x0164}
0x1272c…12750               Head {h00=0x0020, h01=0x001b, text=» ADKL A12,8 NEXT PAGE BLOCK «, t00=0x00bc, t01=0x018e}
0x12750…12788               Head {h00=0x0034, h01=0x002f, text=»PAG:65 SUK A6,1 DECREMENT SEGMENT BLOCK COUNTER «, t00=0x00bd, t01=0x0022}
0x12788…1279e               Head {h00=0x0012, h01=0x000d, text=» RB(P) PAG:60 «, t00=0x00bd, t01=0x005a}
0x1279e…127a8               Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00bd, t01=0x0070}
0x127a8…127e8               Head {h00=0x003c, h01=0x0038, text=»*  INITIATE PAGE BLOCK FOR FREE PAGES AND LINK TO PAGQUE«, t00=0x00bd, t01=0x007a}
0x127e8…127f2               Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x00bd, t01=0x00ba}
0x127f2…12816               Head {h00=0x0020, h01=0x001b, text=» CWR A4,A7 ANY FREE BLOCKS? «, t00=0x00bd, t01=0x00c4}
0x12816…12830               Head {h00=0x0016, h01=0x0050, text=» RF(E) PAG:90 NO! «, t00=0x00bd, t01=0x00e8}
0x12830…12868               Head {h00=0x0034, h01=0x002f, text=» ST A12,PAGQUE POINTER TO FIRST FREE PAGE BLOCK «, t00=0x00bd, t01=0x0102}
0x12868…12892               Head {h00=0x0026, h01=0x0022, text=» LDKL A11,PAGQUE POINTER TO PAGQUE«, t00=0x00bd, t01=0x013a}
0x12892…128c6               Head {h00=0x0030, h01=0x002c, text=» LDR A1,A12 SAVE ADDRESS TO FIRST PAGE BLOCK«, t00=0x00bd, t01=0x0164}
0x128c6…128d8               Head {h00=0x000e, h01=0x0009, text=» LDK A2,0 «, t00=0x00be, t01=0x0008}
0x128d8…1290a               Head {h00=0x002e, h01=0x002a, text=»PAG:70 ST A11,2,A12 STORE BACKWARD POINTER«, t00=0x00be, t01=0x001a}
0x1290a…12932               Head {h00=0x0024, h01=0x001f, text=» ST A9,4,A12 STORE PAGE ADDRESS «, t00=0x00be, t01=0x004c}
0x12932…1295a               Head {h00=0x0024, h01=0x001f, text=» ST A2,6,A12 INDICATE PAGE FREE «, t00=0x00be, t01=0x0074}
0x1295a…12988               Head {h00=0x002a, h01=0x0026, text=» ADK A4,1 INCREMENT PAGE BLOCK COUNTER«, t00=0x00be, t01=0x009c}
0x12988…129ac               Head {h00=0x0020, h01=0x001b, text=» CWR A4,A7 LAST PAGE BLOCK? «, t00=0x00be, t01=0x00ca}
0x129ac…129c6               Head {h00=0x0016, h01=0x0012, text=» RF(E) PAG:80 YES!«, t00=0x00be, t01=0x00ee}
0x129c6…129f6               Head {h00=0x002c, h01=0x0027, text=» LDR A11,A12 SAVE ADDRESS TO PAGE BLOCK «, t00=0x00be, t01=0x0108}
0x129f6…12a22               Head {h00=0x0028, h01=0x0024, text=» ADK A1,8 ADDRESS TO NEXT PAGE BLOCK«, t00=0x00be, t01=0x0138}
0x12a22…12a4c               Head {h00=0x0026, h01=0x0021, text=» STR A1,A12 STORE FORWARD POINTER «, t00=0x00be, t01=0x0164}
0x12a4c…12a70               Head {h00=0x0020, h01=0x001b, text=» LDR A12,A1 NEXT PAGE BLOCK «, t00=0x00be, t01=0x018e}
0x12a70…12a8e               Head {h00=0x001a, h01=0x0015, text=» ADR A9,A10 NEXT PAGE «, t00=0x00bf, t01=0x0022}
0x12a8e…12aa0               Head {h00=0x000e, h01=0x000a, text=» RB PAG:70«, t00=0x00bf, t01=0x0040}
0x12aa0…12ab4               Head {h00=0x0010, h01=0x000c, text=»PAG:80 EQU *«, t00=0x00bf, t01=0x0052}
0x12ab4…12ade               Head {h00=0x0026, h01=0x0021, text=» LDKL A1,PAGQUE POINTER TO PAGQUE «, t00=0x00bf, t01=0x0066}
0x12ade…12b06               Head {h00=0x0024, h01=0x001f, text=» STR A1,A12 STORE IN LAST BLOCK «, t00=0x00bf, t01=0x0090}
0x12b06…12b30               Head {h00=0x0026, h01=0x0022, text=» ST A12,PAGQUE+2 STORE IN PAGQUE+2«, t00=0x00bf, t01=0x00b8}
0x12b30…12b44               Head {h00=0x0010, h01=0x0050, text=»PAG:90 EQU *«, t00=0x00bf, t01=0x00e2}
0x12b44…12b5c               Head {h00=0x0014, h01=0x0050, text=»PAGEX EQU *-REL «, t00=0x00bf, t01=0x00f6}
0x12b5c…12b6a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bf, t01=0x010e}
0x12b6a…12b76               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bf, t01=0x011c}
0x12b76…12b7e               Head {h00=0x0004, h01=0x0050, t00=0x00bf, t01=0x0128}
0x12b7e…12b86               Head {h00=0x0004, h01=0x0050, t00=0x00bf, t01=0x0130}
0x12b86…12ba6               Head {h00=0x001c, h01=0x0050, text=»* START BUGGER (IF ANY) «, t00=0x00bf, t01=0x0138}
0x12ba6…12bae               Head {h00=0x0004, h01=0x0050, t00=0x00bf, t01=0x0158}
0x12bae…12bb6               Head {h00=0x0004, h01=0x0050, t00=0x00bf, t01=0x0160}
0x12bb6…12bd6               Head {h00=0x001c, h01=0x0050, text=»* GET APPLICATION START «, t00=0x00bf, t01=0x0168}
0x12bd6…12bec               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x00bf, t01=0x0188}
0x12bec…12c1c               Head {h00=0x002c, h01=0x0050, text=» LD A14,SCTLAC TRUE START OF APPLICATION«, t00=0x00c0, t01=0x000e}
0x12c1c…12c28               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c0, t01=0x003e}
0x12c28…12c36               Head {h00=0x000a, h01=0x0050, text=»    =1«, t00=0x00c0, t01=0x004a}
0x12c36…12c44               Head {h00=0x000a, h01=0x0050, text=»    =1«, t00=0x00c0, t01=0x0058}
0x12c44…12c52               Head {h00=0x000a, h01=0x0050, text=»    =1«, t00=0x00c0, t01=0x0066}
0x12c52…12c74               Head {h00=0x001e, h01=0x0050, text=» SUKL A14,8 ADJUST FOR MAP«, t00=0x00c0, t01=0x0074}
0x12c74…12ca2               Head {h00=0x002a, h01=0x0050, text=» ADKL A13,SYA360 CONTINUATION ADDRESS «, t00=0x00c0, t01=0x0096}
0x12ca2…12cca               Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 INDICATE SYSLOAD ENDED«, t00=0x00c0, t01=0x00c4}
0x12cca…12ce0               Head {h00=0x0012, h01=0x0050, text=» OTR A1,0,SOP «, t00=0x00c0, t01=0x00ec}
0x12ce0…12d08               Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTBUG GET BUGGER ADDRESS«, t00=0x00c0, t01=0x0102}
0x12d08…12d1c               Head {h00=0x0010, h01=0x0050, text=» ABR(NZ) A1 «, t00=0x00c0, t01=0x012a}
0x12d1c…12d24               Head {h00=0x0004, h01=0x0050, t00=0x00c0, t01=0x013e}
0x12d24…12d3c               Head {h00=0x0014, h01=0x0050, text=»SYA360 EQU *-REL«, t00=0x00c0, t01=0x0146}
0x12d3c…12d4e               Head {h00=0x000e, h01=0x0050, text=» LDR A13,P«, t00=0x00c0, t01=0x015e}
0x12d4e…12d66               Head {h00=0x0014, h01=0x0050, text=»SYA370 EQU *-REL«, t00=0x00c0, t01=0x0170}
0x12d66…12d9a               Head {h00=0x0030, h01=0x0050, text=» SUKL A13,SYA370 RESTORE PROGRAM BASE OINTER«, t00=0x00c0, t01=0x0188}
0x12d9a…12da4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c1, t01=0x002c}
0x12da4…12dbe               Head {h00=0x0016, h01=0x0050, text=»*  INIT A15 STACK «, t00=0x00c1, t01=0x0036}
0x12dbe…12dc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c1, t01=0x0050}
0x12dc8…12dde               Head {h00=0x0012, h01=0x0050, text=» LD A15,SCTSTB«, t00=0x00c1, t01=0x005a}
0x12dde…12df2               Head {h00=0x0010, h01=0x0050, text=» SUKL A15,4 «, t00=0x00c1, t01=0x0070}
0x12df2…12dfa               Head {h00=0x0004, h01=0x0050, t00=0x00c1, t01=0x0084}
0x12dfa…12e16               Head {h00=0x0018, h01=0x0050, text=»* START APPLICATION «, t00=0x00c1, t01=0x008c}
0x12e16…12e1e               Head {h00=0x0004, h01=0x0050, t00=0x00c1, t01=0x00a8}
0x12e1e…12e50               Head {h00=0x002e, h01=0x0050, text=» LD A1,IHRTC GET INTERRUPT ADDRESS FOR RTC«, t00=0x00c1, t01=0x00b0}
0x12e50…12e6e               Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVRTC,A13 SAVE«, t00=0x00c1, t01=0x00e2}
0x12e6e…12ea6               Head {h00=0x0034, h01=0x0050, text=» LDKL A1,IHRTCO LOAD TEMPORARY INTERRUPT ADDRESS«, t00=0x00c1, t01=0x0100}
0x12ea6…12ec2               Head {h00=0x0018, h01=0x0050, text=» ADR A1,A13 RELOCATE«, t00=0x00c1, t01=0x0138}
0x12ec2…12ef0               Head {h00=0x002a, h01=0x0050, text=» ST A1,IHRTC STORE IN INTERRUPT VECTOR«, t00=0x00c1, t01=0x0154}
0x12ef0…12f1a               Head {h00=0x0026, h01=0x0050, text=» CF A15,PFINIT INITIALIZE DEVICES «, t00=0x00c1, t01=0x0182}
0x12f1a…12f3e               Head {h00=0x0020, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS«, t00=0x00c2, t01=0x001c}
0x12f3e…12f48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c2, t01=0x0040}
0x12f48…12f92               Head {h00=0x0046, h01=0x0050, text=»*  WAIT APPROXIMATELY 0.62 SECONDS BEFORE BRANCHING TO DISPATCHER «, t00=0x00c2, t01=0x004a}
0x12f92…12f9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c2, t01=0x0094}
0x12f9c…12fbe               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/FFFF SET COUNTER«, t00=0x00c2, t01=0x009e}
0x12fbe…12fd6               Head {h00=0x0014, h01=0x0050, text=»DELAY SRC A2,31 «, t00=0x00c2, t01=0x00c0}
0x12fd6…12fe8               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x00c2, t01=0x00d8}
0x12fe8…12ffe               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DELAY «, t00=0x00c2, t01=0x00ea}
0x12ffe…1300a               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x00c2, t01=0x0100}
0x1300a…13036               Head {h00=0x0028, h01=0x0050, text=» LDKL A1,0 GET RTC INTERRUPT ADDRESS«, t00=0x00c2, t01=0x010c}
0x13036…13050               Head {h00=0x0016, h01=0x0050, text=»SAVRTC EQU *-REL-2«, t00=0x00c2, t01=0x0138}
0x13050…1306c               Head {h00=0x0018, h01=0x0050, text=» ST A1,IHRTC RESTORE«, t00=0x00c2, t01=0x0152}
0x1306c…1307c               Head {h00=0x000c, h01=0x0050, text=»*    =1 «, t00=0x00c2, t01=0x016e}
0x1307c…1309e               Head {h00=0x001e, h01=0x0050, text=»*  LOCK SOP SWITCHES   =1 «, t00=0x00c2, t01=0x017e}
0x1309e…130ae               Head {h00=0x000c, h01=0x0050, text=»*    =1 «, t00=0x00c3, t01=0x0010}
0x130ae…130c8               Head {h00=0x0016, h01=0x0050, text=» CIO A1,0,SOP  =1 «, t00=0x00c3, t01=0x0020}
0x130c8…130f0               Head {h00=0x0024, h01=0x0050, text=» ABL TDISP BRANCH TO DISPATCHER «, t00=0x00c3, t01=0x003a}
0x130f0…130fe               Head {h00=0x000a, h01=0x0050, text=»    =1«, t00=0x00c3, t01=0x0062}
0x130fe…1310c               Head {h00=0x000a, h01=0x0050, text=»    =1«, t00=0x00c3, t01=0x0070}
0x1310c…1311a               Head {h00=0x000a, h01=0x0050, text=»    =1«, t00=0x00c3, t01=0x007e}
0x1311a…13128               Head {h00=0x000a, h01=0x0050, text=»    =1«, t00=0x00c3, t01=0x008c}
0x13128…13132               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c3, t01=0x009a}
0x13132…13160               Head {h00=0x002a, h01=0x0050, text=»*  TEMPORARY INTERRUPT ROUTINE FOR RTC«, t00=0x00c3, t01=0x00a4}
0x13160…1316a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c3, t01=0x00d2}
0x1316a…13182               Head {h00=0x0014, h01=0x0050, text=»IHRTCO EQU *-REL«, t00=0x00c3, t01=0x00dc}
0x13182…13194               Head {h00=0x000e, h01=0x0050, text=» RIT RTCDA«, t00=0x00c3, t01=0x00f4}
0x13194…131a4               Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x00c3, t01=0x0106}
0x131a4…131ba               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00c3, t01=0x0116}
0x131ba…131c8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c3, t01=0x012c}
0x131c8…131d4               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00c3, t01=0x013a}
0x131d4…1320e               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00c3, t01=0x0146}
0x1320e…13248               Head {h00=0x0036, h01=0x0050, text=»***                                           *** «, t00=0x00c3, t01=0x0180}
0x13248…13282               Head {h00=0x0036, h01=0x0050, text=»**           SYSLOAD PART 2.A                  ** «, t00=0x00c4, t01=0x002a}
0x13282…132bc               Head {h00=0x0036, h01=0x0050, text=»**                                             ** «, t00=0x00c4, t01=0x0064}
0x132bc…132f6               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00c4, t01=0x009e}
0x132f6…132fe               Head {h00=0x0004, h01=0x0050, t00=0x00c4, t01=0x00d8}
0x132fe…13338               Head {h00=0x0036, h01=0x0050, text=»*   BUILD COMMON AND TASKCLASS DATA AREAS.      * «, t00=0x00c4, t01=0x00e0}
0x13338…13372               Head {h00=0x0036, h01=0x0050, text=»*   BUILD TASKDATA PROTOTYPE AREA               * «, t00=0x00c4, t01=0x011a}
0x13372…133ac               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x00c4, t01=0x0154}
0x133ac…133e6               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00c4, t01=0x018e}
0x133e6…133ee               Head {h00=0x0004, h01=0x0050, t00=0x00c5, t01=0x0038}
0x133ee…13406               Head {h00=0x0014, h01=0x0050, text=»PART2A EQU *-REL«, t00=0x00c5, t01=0x0040}
0x13406…1340e               Head {h00=0x0004, h01=0x0050, t00=0x00c5, t01=0x0058}
0x1340e…13442               Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00c5, t01=0x0060}
0x13442…13476               Head {h00=0x0030, h01=0x0050, text=»***                                      ***«, t00=0x00c5, t01=0x0094}
0x13476…134aa               Head {h00=0x0030, h01=0x0050, text=»**         S U B R O U T I N E S          **«, t00=0x00c5, t01=0x00c8}
0x134aa…134de               Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00c5, t01=0x00fc}
0x134de…134e6               Head {h00=0x0004, h01=0x0050, t00=0x00c5, t01=0x0130}
0x134e6…134f2               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00c5, t01=0x0138}
0x134f2…1352a               Head {h00=0x0034, h01=0x0050, text=»**                T : D A D D                 **«, t00=0x00c5, t01=0x0144}
0x1352a…13562               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x00c5, t01=0x017c}
0x13562…1359a               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x00c6, t01=0x0024}
0x1359a…135d2               Head {h00=0x0034, h01=0x0050, text=»**  GET T:D - ADDRESS                         **«, t00=0x00c6, t01=0x005c}
0x135d2…1360a               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x00c6, t01=0x0094}
0x1360a…13642               Head {h00=0x0034, h01=0x0050, text=»**  INPUT : A8=POINTER TO T:A (IN T:ATAB)     **«, t00=0x00c6, t01=0x00cc}
0x13642…1367a               Head {h00=0x0034, h01=0x0050, text=»**  OUTPUT: A12=T:D ADDRESS                   **«, t00=0x00c6, t01=0x0104}
0x1367a…136b2               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00c6, t01=0x013c}
0x136b2…136c6               Head {h00=0x0010, h01=0x0050, text=»T:DADD EQU *«, t00=0x00c6, t01=0x0174}
0x136c6…136e2               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00c6, t01=0x0188}
0x136e2…13702               Head {h00=0x001c, h01=0x0050, text=» LDR* A12,A8 T:A ADDRESS«, t00=0x00c7, t01=0x0014}
0x13702…1371c               Head {h00=0x0016, h01=0x0050, text=» LD A12,T:DAD,A12 «, t00=0x00c7, t01=0x0034}
0x1371c…13728               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c7, t01=0x004e}
0x13728…13744               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00c7, t01=0x005a}
0x13744…13764               Head {h00=0x001c, h01=0x0050, text=» ELR A12,A8 T:A ADDRESS «, t00=0x00c7, t01=0x0076}
0x13764…1377e               Head {h00=0x0016, h01=0x0050, text=» EL A12,T:DAD,A12 «, t00=0x00c7, t01=0x0096}
0x1377e…1378a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c7, t01=0x00b0}
0x1378a…137a0               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00c7, t01=0x00bc}
0x137a0…137c4               Head {h00=0x0020, h01=0x0050, text=» AD A12,MOVADD,A13 RELOCATE «, t00=0x00c7, t01=0x00d2}
0x137c4…137d4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00c7, t01=0x00f6}
0x137d4…137e2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c7, t01=0x0106}
0x137e2…137ee               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00c7, t01=0x0114}
0x137ee…137fa               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00c7, t01=0x0120}
0x137fa…13834               Head {h00=0x0036, h01=0x0050, text=»**                  M O V C O M                ** «, t00=0x00c7, t01=0x012c}
0x13834…1386e               Head {h00=0x0036, h01=0x0050, text=»**                                             ** «, t00=0x00c7, t01=0x0166}
0x1386e…138a8               Head {h00=0x0036, h01=0x0050, text=»**                                             ** «, t00=0x00c8, t01=0x0010}
0x138a8…138e2               Head {h00=0x0036, h01=0x0050, text=»**  SEARCH T:A'S FOR COMMON WORK BLOCKS THAT   ** «, t00=0x00c8, t01=0x004a}
0x138e2…1391c               Head {h00=0x0036, h01=0x0050, text=»**  ARE COMMON TO AT LEAST TWO T:A'S, AND MOVE ** «, t00=0x00c8, t01=0x0084}
0x1391c…13956               Head {h00=0x0036, h01=0x0050, text=»**  TO COMMON AREA                             ** «, t00=0x00c8, t01=0x00be}
0x13956…13990               Head {h00=0x0036, h01=0x0050, text=»**                                             ** «, t00=0x00c8, t01=0x00f8}
0x13990…139ca               Head {h00=0x0036, h01=0x0050, text=»**  INPUT : A8=POINTER IN T:ATAB               ** «, t00=0x00c8, t01=0x0132}
0x139ca…13a04               Head {h00=0x0036, h01=0x0050, text=»**          BIT=BIT NUMBER, SAT IN MASK        ** «, t00=0x00c8, t01=0x016c}
0x13a04…13a3e               Head {h00=0x0036, h01=0x0050, text=»**          ENDADD=ENDADDRESS OF T:ATAB        ** «, t00=0x00c9, t01=0x0016}
0x13a3e…13a78               Head {h00=0x0036, h01=0x0050, text=»**          TADISP=W.B.-ADDR DISPLACEM. IN T:A ** «, t00=0x00c9, t01=0x0050}
0x13a78…13ab2               Head {h00=0x0036, h01=0x0050, text=»**  WORK.REGS: A1-A6,A9,A11,A12                ** «, t00=0x00c9, t01=0x008a}
0x13ab2…13aec               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00c9, t01=0x00c4}
0x13aec…13af8               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00c9, t01=0x00fe}
0x13af8…13b0c               Head {h00=0x0010, h01=0x0050, text=»MOVCOM EQU *«, t00=0x00c9, t01=0x010a}
0x13b0c…13b36               Head {h00=0x0026, h01=0x0050, text=» CALL CHKMVD BLOCK ALREADY MOVED? «, t00=0x00c9, t01=0x011e}
0x13b36…13b50               Head {h00=0x0016, h01=0x0050, text=» RF(N) MOVC20 YES!«, t00=0x00c9, t01=0x0148}
0x13b50…13b8e               Head {h00=0x003a, h01=0x0050, text=» CALL GETWB POINTER TO WB ADD TO 'WBADD',A5=T:A-DISPL «, t00=0x00c9, t01=0x0162}
0x13b8e…13bba               Head {h00=0x0028, h01=0x0050, text=» ST A11,SAVE06,A13 SAVE W.B.-ADDRESS«, t00=0x00ca, t01=0x0010}
0x13bba…13be6               Head {h00=0x0028, h01=0x0050, text=» CM MOVED,A13 CLEAR MOVED INDICATOR «, t00=0x00ca, t01=0x003c}
0x13be6…13bf8               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A8«, t00=0x00ca, t01=0x0068}
0x13bf8…13c18               Head {h00=0x001c, h01=0x0050, text=»MOVC10 ADK A6,2 NEXT T:A«, t00=0x00ca, t01=0x007a}
0x13c18…13c3c               Head {h00=0x0020, h01=0x0050, text=» CW A6,ENDADD,A13 ALL DONE? «, t00=0x00ca, t01=0x009a}
0x13c3c…13c56               Head {h00=0x0016, h01=0x0050, text=» RF(NE) MOVC30 NO «, t00=0x00ca, t01=0x00be}
0x13c56…13c72               Head {h00=0x0018, h01=0x0050, text=»MOVC20 RTN A14 YES! «, t00=0x00ca, t01=0x00d8}
0x13c72…13c8e               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00ca, t01=0x00f4}
0x13c8e…13ca8               Head {h00=0x0016, h01=0x0050, text=»MOVC30 LDR* A11,A6«, t00=0x00ca, t01=0x0110}
0x13ca8…13ccc               Head {h00=0x0020, h01=0x0050, text=» LD A2,T:DAD,A11 T:D-ADDRESS«, t00=0x00ca, t01=0x012a}
0x13ccc…13cee               Head {h00=0x001e, h01=0x0050, text=» AD A2,MOVADD,A13 RELOCATE«, t00=0x00ca, t01=0x014e}
0x13cee…13d0c               Head {h00=0x001a, h01=0x0050, text=» ST A2,SAVE03,A13 SAVE«, t00=0x00ca, t01=0x0170}
0x13d0c…13d3c               Head {h00=0x002c, h01=0x0050, text=» LD A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS «, t00=0x00ca, t01=0x018e}
0x13d3c…13d5c               Head {h00=0x001c, h01=0x0050, text=» CW A2,BIT,A13 ENOUGHT? «, t00=0x00cb, t01=0x002e}
0x13d5c…13d96               Head {h00=0x0036, h01=0x0050, text=» RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A «, t00=0x00cb, t01=0x004e}
0x13d96…13dc8               Head {h00=0x002e, h01=0x0050, text=» AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE«, t00=0x00cb, t01=0x0088}
0x13dc8…13dde               Head {h00=0x0012, h01=0x0050, text=» LDR* A11,A11 «, t00=0x00cb, t01=0x00ba}
0x13dde…13e10               Head {h00=0x002e, h01=0x0050, text=» CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES «, t00=0x00cb, t01=0x00d0}
0x13e10…13e1c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cb, t01=0x0102}
0x13e1c…13e38               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00cb, t01=0x010e}
0x13e38…13e52               Head {h00=0x0016, h01=0x0050, text=»MOVC30 ELR A11,A6 «, t00=0x00cb, t01=0x012a}
0x13e52…13e76               Head {h00=0x0020, h01=0x0050, text=» EL A2,T:DAD,A11 T:D-ADDRESS«, t00=0x00cb, t01=0x0144}
0x13e76…13e98               Head {h00=0x001e, h01=0x0050, text=» AD A2,MOVADD,A13 RELOCATE«, t00=0x00cb, t01=0x0168}
0x13e98…13ecc               Head {h00=0x0030, h01=0x0050, text=» ST A2,SAVE03,A13 SAVE T:D-ADDRESS TEMPORARY«, t00=0x00cb, t01=0x018a}
0x13ecc…13efc               Head {h00=0x002c, h01=0x0050, text=» EL A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS «, t00=0x00cc, t01=0x002e}
0x13efc…13f1c               Head {h00=0x001c, h01=0x0050, text=» CW A2,BIT,A13 ENOUGHT? «, t00=0x00cc, t01=0x005e}
0x13f1c…13f56               Head {h00=0x0036, h01=0x0050, text=» RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A «, t00=0x00cc, t01=0x007e}
0x13f56…13f88               Head {h00=0x002e, h01=0x0050, text=» AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE«, t00=0x00cc, t01=0x00b8}
0x13f88…13f9c               Head {h00=0x0010, h01=0x0050, text=» ELR A11,A11«, t00=0x00cc, t01=0x00ea}
0x13f9c…13fce               Head {h00=0x002e, h01=0x0050, text=» CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES «, t00=0x00cc, t01=0x00fe}
0x13fce…13fda               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00cc, t01=0x0130}
0x13fda…13ff0               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00cc, t01=0x013c}
0x13ff0…1400c               Head {h00=0x0018, h01=0x0050, text=» RB(NE) MOVC10 .NEQ.«, t00=0x00cc, t01=0x0152}
0x1400c…14038               Head {h00=0x0028, h01=0x0050, text=» LD A9,MOVED,A13 W.B. ALREADY MOVED?«, t00=0x00cc, t01=0x016e}
0x14038…1406a               Head {h00=0x002e, h01=0x0050, text=» RF(NZ) MOVC50 YES! CHANGE ADDRESSES ONLY «, t00=0x00cd, t01=0x000a}
0x1406a…14094               Head {h00=0x0026, h01=0x0050, text=» CALL MOVDT MOVE DESCRIPTOR-TABLE «, t00=0x00cd, t01=0x003c}
0x14094…140be               Head {h00=0x0026, h01=0x0050, text=» ST A2,NEWAD1,A13 SAVE D.T.-ADRESS«, t00=0x00cd, t01=0x0066}
0x140be…140e0               Head {h00=0x001e, h01=0x0050, text=» CALL MOVWB MOV WORK BLOCK«, t00=0x00cd, t01=0x0090}
0x140e0…14104               Head {h00=0x0020, h01=0x0050, text=» IM MOVED,A13 INDICATE MOVED«, t00=0x00cd, t01=0x00b2}
0x14104…14126               Head {h00=0x001e, h01=0x0050, text=» LD A4,UWB,A13 UWB-BLOCKS?«, t00=0x00cd, t01=0x00d6}
0x14126…14140               Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVC40 NO! «, t00=0x00cd, t01=0x00f8}
0x14140…14166               Head {h00=0x0022, h01=0x0050, text=» CALL GETPRO CREATE REAL UWB'S«, t00=0x00cd, t01=0x0112}
0x14166…1419e               Head {h00=0x0034, h01=0x0050, text=»MOVC40 ST A2,NEWAD2,A13 SAVE NEW ADDRESS TO W.B.«, t00=0x00cd, t01=0x0138}
0x1419e…141b2               Head {h00=0x0010, h01=0x0050, text=» CALL MOVDWB«, t00=0x00cd, t01=0x0170}
0x141b2…141dc               Head {h00=0x0026, h01=0x0050, text=»MOVC50 CALL CHADR CHANGE ADDRESSES«, t00=0x00cd, t01=0x0184}
0x141dc…1420e               Head {h00=0x002e, h01=0x0050, text=» CALL ICBMVD INDICATE CURRENT BLOCK MOVED «, t00=0x00ce, t01=0x001e}
0x1420e…14232               Head {h00=0x0020, h01=0x0050, text=» LDR A11,A8 SAVE T:A-POINTER«, t00=0x00ce, t01=0x0050}
0x14232…1425e               Head {h00=0x0028, h01=0x0050, text=» ST A12,SAVE25,A13 SAVE T:A-ADDRESS «, t00=0x00ce, t01=0x0074}
0x1425e…14288               Head {h00=0x0026, h01=0x0050, text=» LDR A8,A6 REPLACE POINTER TO T:A «, t00=0x00ce, t01=0x00a0}
0x14288…142b6               Head {h00=0x002a, h01=0x0050, text=» LD A12,SAVE03,A13 REPLACE T:D-ADDRESS«, t00=0x00ce, t01=0x00ca}
0x142b6…142ca               Head {h00=0x0010, h01=0x0050, text=» CALL MOVDWB«, t00=0x00ce, t01=0x00f8}
0x142ca…142de               Head {h00=0x0010, h01=0x0050, text=» LDR A8,A11 «, t00=0x00ce, t01=0x010c}
0x142de…1430c               Head {h00=0x002a, h01=0x0050, text=» LD A12,SAVE25,A13 RELOAD T:D-ADDRESS «, t00=0x00ce, t01=0x0120}
0x1430c…1431e               Head {h00=0x000e, h01=0x0050, text=» RB MOVC10«, t00=0x00ce, t01=0x014e}
0x1431e…1432c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ce, t01=0x0160}
0x1432c…14338               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00ce, t01=0x016e}
0x14338…14344               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00ce, t01=0x017a}
0x14344…1437c               Head {h00=0x0034, h01=0x0050, text=»**               G E T P R O                  **«, t00=0x00ce, t01=0x0186}
0x1437c…143b4               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x00cf, t01=0x002e}
0x143b4…143ec               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x00cf, t01=0x0066}
0x143ec…14424               Head {h00=0x0034, h01=0x0050, text=»**  SEARCH U:BTAB PROTOTYPE AND GET NUMBER OF **«, t00=0x00cf, t01=0x009e}
0x14424…1445c               Head {h00=0x0034, h01=0x0050, text=»**  COPIES. FILL REAL U:BTAB                  **«, t00=0x00cf, t01=0x00d6}
0x1445c…14494               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x00cf, t01=0x010e}
0x14494…144cc               Head {h00=0x0034, h01=0x0050, text=»**  INPUT : A11=PROTOTYPE ADDRESS             **«, t00=0x00cf, t01=0x0146}
0x144cc…14504               Head {h00=0x0034, h01=0x0050, text=»**          A2=LAST W.B. - ADDRESS            **«, t00=0x00cf, t01=0x017e}
0x14504…1453c               Head {h00=0x0034, h01=0x0050, text=»**  OUTPUT: A2=NEW ADDRESS                    **«, t00=0x00d0, t01=0x0026}
0x1453c…14574               Head {h00=0x0034, h01=0x0050, text=»**  WORK-REGS: A1-A5,A9                       **«, t00=0x00d0, t01=0x005e}
0x14574…145ac               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00d0, t01=0x0096}
0x145ac…145b8               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00d0, t01=0x00ce}
0x145b8…145cc               Head {h00=0x0010, h01=0x0050, text=»GETPRO EQU *«, t00=0x00d0, t01=0x00da}
0x145cc…145f8               Head {h00=0x0028, h01=0x0050, text=» LD A3,U:BTOD,A13 GET U:BTAB ADDRESS«, t00=0x00d0, t01=0x00ee}
0x145f8…14614               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00d0, t01=0x011a}
0x14614…1462e               Head {h00=0x0016, h01=0x0050, text=» LDR* A4,A3 LENGTH«, t00=0x00d0, t01=0x0136}
0x1462e…14642               Head {h00=0x0010, h01=0x0050, text=»GETP10 EQU *«, t00=0x00d0, t01=0x0150}
0x14642…1467c               Head {h00=0x0036, h01=0x0050, text=» SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH «, t00=0x00d0, t01=0x0164}
0x1467c…14692               Head {h00=0x0012, h01=0x0050, text=» RF(NN) GETP20«, t00=0x00d1, t01=0x000e}
0x14692…146b6               Head {h00=0x0020, h01=0x0050, text=» LDK A1,LMP6 W.B. NOT FOUND!«, t00=0x00d1, t01=0x0024}
0x146b6…146ca               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00d1, t01=0x0048}
0x146ca…146de               Head {h00=0x0010, h01=0x0050, text=»GETP20 EQU *«, t00=0x00d1, t01=0x005c}
0x146de…14702               Head {h00=0x0020, h01=0x0050, text=» CW A11,UPADDR,A3 SAME W.B.?«, t00=0x00d1, t01=0x0070}
0x14702…14732               Head {h00=0x002c, h01=0x0050, text=» RF(E) GETP30 YES! GET NUMBER OF COPIES «, t00=0x00d1, t01=0x0094}
0x14732…1474e               Head {h00=0x0018, h01=0x0050, text=» ADK A3,UP:REC NEXT «, t00=0x00d1, t01=0x00c4}
0x1474e…14760               Head {h00=0x000e, h01=0x0050, text=» RB GETP10«, t00=0x00d1, t01=0x00e0}
0x14760…1476c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00d1, t01=0x00f2}
0x1476c…147a0               Head {h00=0x0030, h01=0x0050, text=»* GET NUMBER OF COPIES                     *«, t00=0x00d1, t01=0x00fe}
0x147a0…147d4               Head {h00=0x0030, h01=0x0050, text=»* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB *«, t00=0x00d1, t01=0x0132}
0x147d4…147dc               Head {h00=0x0004, h01=0x0050, t00=0x00d1, t01=0x0166}
0x147dc…147f0               Head {h00=0x0010, h01=0x0050, text=»GETP30 EQU *«, t00=0x00d1, t01=0x016e}
0x147f0…14814               Head {h00=0x0020, h01=0x0050, text=» LD A4,WBLEN,A11 W.B.-LENGTH«, t00=0x00d1, t01=0x0182}
0x14814…14842               Head {h00=0x002a, h01=0x0050, text=» LC A5,UPNUMB,A3 GET NUMBER OF COPIES «, t00=0x00d2, t01=0x0016}
0x14842…14856               Head {h00=0x0010, h01=0x0050, text=» ANK A5,/FF «, t00=0x00d2, t01=0x0044}
0x14856…14886               Head {h00=0x002c, h01=0x0050, text=» SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT«, t00=0x00d2, t01=0x0058}
0x14886…148b8               Head {h00=0x002e, h01=0x0050, text=» AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS«, t00=0x00d2, t01=0x0088}
0x148b8…148ca               Head {h00=0x000e, h01=0x0050, text=» LDR A9,A3«, t00=0x00d2, t01=0x00ba}
0x148ca…148f0               Head {h00=0x0022, h01=0x0050, text=» ST A4,URLENG,A9 STORE LENGTH «, t00=0x00d2, t01=0x00cc}
0x148f0…1491e               Head {h00=0x002a, h01=0x0050, text=» ST A5,URNUMB,A9 STORE IN REAL U:BTAB «, t00=0x00d2, t01=0x00f2}
0x1491e…14952               Head {h00=0x0030, h01=0x0050, text=»* COPY NUMBER OF WORKBLOCKS TO COMMON AREA *«, t00=0x00d2, t01=0x0120}
0x14952…14986               Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00d2, t01=0x0154}
0x14986…149b8               Head {h00=0x002e, h01=0x0050, text=» SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') «, t00=0x00d2, t01=0x0188}
0x149b8…149ce               Head {h00=0x0012, h01=0x0050, text=» RF(NP) GETP50«, t00=0x00d3, t01=0x002a}
0x149ce…149e8               Head {h00=0x0016, h01=0x0050, text=»GETP40 CALL MOVWB «, t00=0x00d3, t01=0x0040}
0x149e8…149fa               Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x00d3, t01=0x005a}
0x149fa…14a10               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) GETP40«, t00=0x00d3, t01=0x006c}
0x14a10…14a1c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00d3, t01=0x0082}
0x14a1c…14a46               Head {h00=0x0026, h01=0x0050, text=»* UPDATE POINTER IN REAL U:BTAB * «, t00=0x00d3, t01=0x008e}
0x14a46…14a70               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x00d3, t01=0x00b8}
0x14a70…14a84               Head {h00=0x0010, h01=0x0050, text=»GETP50 EQU *«, t00=0x00d3, t01=0x00e2}
0x14a84…14abe               Head {h00=0x0036, h01=0x0050, text=» ST A2,URADDR,A9 STORE ADDRESS TO FIRST IN U:BTAB «, t00=0x00d3, t01=0x00f6}
0x14abe…14aca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d3, t01=0x0130}
0x14aca…14ae6               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00d3, t01=0x013c}
0x14ae6…14b00               Head {h00=0x0016, h01=0x0050, text=» ELR A4,A3 LENGTH «, t00=0x00d3, t01=0x0158}
0x14b00…14b14               Head {h00=0x0010, h01=0x0050, text=»GETP10 EQU *«, t00=0x00d3, t01=0x0172}
0x14b14…14b4e               Head {h00=0x0036, h01=0x0050, text=» SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH «, t00=0x00d3, t01=0x0186}
0x14b4e…14b64               Head {h00=0x0012, h01=0x0050, text=» RF(NN) GETP20«, t00=0x00d4, t01=0x0030}
0x14b64…14b88               Head {h00=0x0020, h01=0x0050, text=» LDK A1,LMP6 W.B. NOT FOUND!«, t00=0x00d4, t01=0x0046}
0x14b88…14b9c               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00d4, t01=0x006a}
0x14b9c…14bb0               Head {h00=0x0010, h01=0x0050, text=»GETP20 EQU *«, t00=0x00d4, t01=0x007e}
0x14bb0…14bdc               Head {h00=0x0028, h01=0x0050, text=» EL A10,UPADDR,A3 CHECK IF SAME W.B.«, t00=0x00d4, t01=0x0092}
0x14bdc…14bf0               Head {h00=0x0010, h01=0x0050, text=» CWR A11,A10«, t00=0x00d4, t01=0x00be}
0x14bf0…14c20               Head {h00=0x002c, h01=0x0050, text=» RF(E) GETP30 YES! GET NUMBER OF COPIES «, t00=0x00d4, t01=0x00d2}
0x14c20…14c3c               Head {h00=0x0018, h01=0x0050, text=» ADK A3,UP:REC NEXT «, t00=0x00d4, t01=0x0102}
0x14c3c…14c4e               Head {h00=0x000e, h01=0x0050, text=» RB GETP10«, t00=0x00d4, t01=0x011e}
0x14c4e…14c5a               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00d4, t01=0x0130}
0x14c5a…14c8e               Head {h00=0x0030, h01=0x0050, text=»* GET NUMBER OF COPIES                     *«, t00=0x00d4, t01=0x013c}
0x14c8e…14cc2               Head {h00=0x0030, h01=0x0050, text=»* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB *«, t00=0x00d4, t01=0x0170}
0x14cc2…14cf6               Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00d5, t01=0x0014}
0x14cf6…14cfe               Head {h00=0x0004, h01=0x0050, t00=0x00d5, t01=0x0048}
0x14cfe…14d12               Head {h00=0x0010, h01=0x0050, text=»GETP30 EQU *«, t00=0x00d5, t01=0x0050}
0x14d12…14d36               Head {h00=0x0020, h01=0x0050, text=» EL A4,WBLEN,A11 W.B.-LENGTH«, t00=0x00d5, t01=0x0064}
0x14d36…14d66               Head {h00=0x002c, h01=0x0050, text=» EL A5,UPNUMB-1,A3 GET NUMBER OF COPIES «, t00=0x00d5, t01=0x0088}
0x14d66…14d7a               Head {h00=0x0010, h01=0x0050, text=» ANK A5,/FF «, t00=0x00d5, t01=0x00b8}
0x14d7a…14daa               Head {h00=0x002c, h01=0x0050, text=» SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT«, t00=0x00d5, t01=0x00cc}
0x14daa…14ddc               Head {h00=0x002e, h01=0x0050, text=» AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS«, t00=0x00d5, t01=0x00fc}
0x14ddc…14dee               Head {h00=0x000e, h01=0x0050, text=» LDR A9,A3«, t00=0x00d5, t01=0x012e}
0x14dee…14e12               Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x00d5, t01=0x0140}
0x14e12…14e40               Head {h00=0x002a, h01=0x0050, text=» ES A5,URNUMB,A9 ESORE IN REAL U:BTAB «, t00=0x00d5, t01=0x0164}
0x14e40…14e66 (214, 0, 400) Head {h00=0x0022, h01=0x0050, text=» ES A4,URLENG,A9 STORE LENGTH «, t00=0x00d6, t01=0x0004}
0x14e66…14e90               Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM TABLE «, t00=0x00d6, t01=0x002a}
0x14e90…14ec4               Head {h00=0x0030, h01=0x0050, text=»* COPY NUMBER OF WORKBLOCKS TO COMMON AREA *«, t00=0x00d6, t01=0x0054}
0x14ec4…14ef8               Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00d6, t01=0x0088}
0x14ef8…14f2a               Head {h00=0x002e, h01=0x0050, text=» SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') «, t00=0x00d6, t01=0x00bc}
0x14f2a…14f40               Head {h00=0x0012, h01=0x0050, text=» RF(NP) GETP50«, t00=0x00d6, t01=0x00ee}
0x14f40…14f5a               Head {h00=0x0016, h01=0x0050, text=»GETP40 CALL MOVWB «, t00=0x00d6, t01=0x0104}
0x14f5a…14f6c               Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x00d6, t01=0x011e}
0x14f6c…14f82               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) GETP40«, t00=0x00d6, t01=0x0130}
0x14f82…14f8e               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00d6, t01=0x0146}
0x14f8e…14fb8               Head {h00=0x0026, h01=0x0050, text=»* UPDATE POINTER IN REAL U:BTAB * «, t00=0x00d6, t01=0x0152}
0x14fb8…14fe2               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x00d6, t01=0x017c}
0x14fe2…14ff6               Head {h00=0x0010, h01=0x0050, text=»GETP50 EQU *«, t00=0x00d7, t01=0x0016}
0x14ff6…1500c               Head {h00=0x0012, h01=0x0050, text=» TL* MMTO,A13 «, t00=0x00d7, t01=0x002a}
0x1500c…15046               Head {h00=0x0036, h01=0x0050, text=» ES A2,URADDR,A9 ESORE ADDRESS TO FIRES IN U:BTAB «, t00=0x00d7, t01=0x0040}
0x15046…1505e               Head {h00=0x0014, h01=0x0050, text=» TL* MMFROM,A13 «, t00=0x00d7, t01=0x007a}
0x1505e…1506a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d7, t01=0x0092}
0x1506a…15080               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00d7, t01=0x009e}
0x15080…15090               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00d7, t01=0x00b4}
0x15090…1509e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d7, t01=0x00c4}
0x1509e…150aa               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00d7, t01=0x00d2}
0x150aa…150e0               Head {h00=0x0032, h01=0x0050, text=»**                M O V C L A              ** «, t00=0x00d7, t01=0x00de}
0x150e0…15116               Head {h00=0x0032, h01=0x0050, text=»**                                         ** «, t00=0x00d7, t01=0x0114}
0x15116…1514c               Head {h00=0x0032, h01=0x0050, text=»**                                         ** «, t00=0x00d7, t01=0x014a}
0x1514c…15182               Head {h00=0x0032, h01=0x0050, text=»**  CHECKS IF W.B. ALREADY MOVED TO COMMON ** «, t00=0x00d7, t01=0x0180}
0x15182…151b8               Head {h00=0x0032, h01=0x0050, text=»**  AREA. IF NOT MOVE W.B. & D.T. AND      ** «, t00=0x00d8, t01=0x0026}
0x151b8…151ee               Head {h00=0x0032, h01=0x0050, text=»**  CHECK IF ANY DWB'S                     ** «, t00=0x00d8, t01=0x005c}
0x151ee…15224               Head {h00=0x0032, h01=0x0050, text=»**                                         ** «, t00=0x00d8, t01=0x0092}
0x15224…1525a               Head {h00=0x0032, h01=0x0050, text=»**  A LOT OF WORKREGS.                     ** «, t00=0x00d8, t01=0x00c8}
0x1525a…15290               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x00d8, t01=0x00fe}
0x15290…15298               Head {h00=0x0004, h01=0x0050, t00=0x00d8, t01=0x0134}
0x15298…152ac               Head {h00=0x0010, h01=0x0050, text=»MOVCLA EQU *«, t00=0x00d8, t01=0x013c}
0x152ac…152c0               Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x00d8, t01=0x0150}
0x152c0…152d6               Head {h00=0x0012, h01=0x0050, text=» RF(Z) MVCL30 «, t00=0x00d8, t01=0x0164}
0x152d6…15304               Head {h00=0x002a, h01=0x0050, text=»MVCL10 CALL GETWB W.B.-ADDRESS TO A11 «, t00=0x00d8, t01=0x017a}
0x15304…1532e               Head {h00=0x0026, h01=0x0050, text=» CALL CHKMVD BLOCK ALREADY MOVED? «, t00=0x00d9, t01=0x0018}
0x1532e…15348               Head {h00=0x0016, h01=0x0050, text=» RF(NN) MVCL40 NO!«, t00=0x00d9, t01=0x0042}
0x15348…15378               Head {h00=0x002c, h01=0x0050, text=»MVCL20 CALL SKIFTA GET NEXT BIT IN MASK «, t00=0x00d9, t01=0x005c}
0x15378…1538e               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) MVCL10«, t00=0x00d9, t01=0x008c}
0x1538e…153a4               Head {h00=0x0012, h01=0x0050, text=»MVCL30 RTN A14«, t00=0x00d9, t01=0x00a2}
0x153a4…153be               Head {h00=0x0016, h01=0x0050, text=»MVCL40 CALL MOVDT «, t00=0x00d9, t01=0x00b8}
0x153be…153d2               Head {h00=0x0010, h01=0x0050, text=» CALL MOVWB «, t00=0x00d9, t01=0x00d2}
0x153d2…153f6               Head {h00=0x0020, h01=0x0050, text=» LD A4,UWB,A13 UWB-SCANNING «, t00=0x00d9, t01=0x00e6}
0x153f6…15410               Head {h00=0x0016, h01=0x0050, text=» RF(Z) MVCL50 NO! «, t00=0x00d9, t01=0x010a}
0x15410…15434               Head {h00=0x0020, h01=0x0050, text=» CALL GETPRO DUPLICATE WB'S «, t00=0x00d9, t01=0x0124}
0x15434…15466               Head {h00=0x002e, h01=0x0050, text=»MVCL50 ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS «, t00=0x00d9, t01=0x0148}
0x15466…15488               Head {h00=0x001e, h01=0x0050, text=» CALL MOVDWB PROCESS DWB'S«, t00=0x00d9, t01=0x017a}
0x15488…1549a               Head {h00=0x000e, h01=0x0050, text=» RB MVCL20«, t00=0x00da, t01=0x000c}
0x1549a…154a8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00da, t01=0x001e}
0x154a8…154b4               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00da, t01=0x002c}
0x154b4…154c0               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00da, t01=0x0038}
0x154c0…154fa               Head {h00=0x0036, h01=0x0050, text=»**                  C H A D R                  ** «, t00=0x00da, t01=0x0044}
0x154fa…15534               Head {h00=0x0036, h01=0x0050, text=»**                                             ** «, t00=0x00da, t01=0x007e}
0x15534…1556e               Head {h00=0x0036, h01=0x0050, text=»**                                             ** «, t00=0x00da, t01=0x00b8}
0x1556e…155a8               Head {h00=0x0036, h01=0x0050, text=»**  CHANGE ADDRESS TO W.B. & D.T. IN T:A,      ** «, t00=0x00da, t01=0x00f2}
0x155a8…155e2               Head {h00=0x0036, h01=0x0050, text=»**  BLOCKS ALREDY MOVED                        ** «, t00=0x00da, t01=0x012c}
0x155e2…1561c               Head {h00=0x0036, h01=0x0050, text=»**                                             ** «, t00=0x00da, t01=0x0166}
0x1561c…15656               Head {h00=0x0036, h01=0x0050, text=»**  INPUT : A6=POINTER IN T:ATAB TO T:A        ** «, t00=0x00db, t01=0x0010}
0x15656…15690               Head {h00=0x0036, h01=0x0050, text=»**          NEWADR1=NEW D.T.-ADDRESS           ** «, t00=0x00db, t01=0x004a}
0x15690…156ca               Head {h00=0x0036, h01=0x0050, text=»**          NEWAD2= NEW W.B.-ADDRESS           ** «, t00=0x00db, t01=0x0084}
0x156ca…15704               Head {h00=0x0036, h01=0x0050, text=»**          TADISP=DISPLACEMENT TO WB-ADDR     ** «, t00=0x00db, t01=0x00be}
0x15704…1573e               Head {h00=0x0036, h01=0x0050, text=»**  WORK.REGS: A1,A2                           ** «, t00=0x00db, t01=0x00f8}
0x1573e…15778               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00db, t01=0x0132}
0x15778…15784               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00db, t01=0x016c}
0x15784…15798               Head {h00=0x0010, h01=0x0050, text=»CHADR EQU * «, t00=0x00db, t01=0x0178}
0x15798…157b4               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00db, t01=0x018c}
0x157b4…157d4               Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A6 T:A-ADDRESS «, t00=0x00dc, t01=0x0018}
0x157d4…15806               Head {h00=0x002e, h01=0x0050, text=» AD A1,TADISP,A13 ADDRESS  TO W.B.-ADDRESS«, t00=0x00dc, t01=0x0038}
0x15806…15820               Head {h00=0x0016, h01=0x0050, text=» LD A2,NEWAD2,A13 «, t00=0x00dc, t01=0x006a}
0x15820…15832               Head {h00=0x000e, h01=0x0050, text=» STR A2,A1«, t00=0x00dc, t01=0x0084}
0x15832…1585c               Head {h00=0x0026, h01=0x0050, text=» SUK A1,2 ADDRESS TO D.T.-ADDRESS «, t00=0x00dc, t01=0x0096}
0x1585c…15876               Head {h00=0x0016, h01=0x0050, text=» LD A2,NEWAD1,A13 «, t00=0x00dc, t01=0x00c0}
0x15876…15888               Head {h00=0x000e, h01=0x0050, text=» STR A2,A1«, t00=0x00dc, t01=0x00da}
0x15888…15894               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00dc, t01=0x00ec}
0x15894…158b0               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00dc, t01=0x00f8}
0x158b0…158ce               Head {h00=0x001a, h01=0x0050, text=» ELR A1,A6 T:A-ADDRESS«, t00=0x00dc, t01=0x0114}
0x158ce…15900               Head {h00=0x002e, h01=0x0050, text=» AD A1,TADISP,A13 ADDRESS  TO W.B.-ADDRESS«, t00=0x00dc, t01=0x0132}
0x15900…1591a               Head {h00=0x0016, h01=0x0050, text=» LD A2,NEWAD2,A13 «, t00=0x00dc, t01=0x0164}
0x1591a…1592c               Head {h00=0x000e, h01=0x0050, text=» ESR A2,A1«, t00=0x00dc, t01=0x017e}
0x1592c…15956               Head {h00=0x0026, h01=0x0050, text=» SUK A1,2 ADDRESS TO D.T.-ADDRESS «, t00=0x00dc, t01=0x0190}
0x15956…15970               Head {h00=0x0016, h01=0x0050, text=» LD A2,NEWAD1,A13 «, t00=0x00dd, t01=0x002a}
0x15970…15982               Head {h00=0x000e, h01=0x0050, text=» ESR A2,A1«, t00=0x00dd, t01=0x0044}
0x15982…1598e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00dd, t01=0x0056}
0x1598e…159a4               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00dd, t01=0x0062}
0x159a4…159b4               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00dd, t01=0x0078}
0x159b4…159c0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00dd, t01=0x0088}
0x159c0…159dc               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x00dd, t01=0x0094}
0x159dc…159ea               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00dd, t01=0x00b0}
0x159ea…15a30               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00dd, t01=0x00be}
0x15a30…15a76               Head {h00=0x0042, h01=0x0050, text=»*                                                            *«, t00=0x00dd, t01=0x0104}
0x15a76…15abc               Head {h00=0x0042, h01=0x0050, text=»*                                                            *«, t00=0x00dd, t01=0x014a}
0x15abc…15b02               Head {h00=0x0042, h01=0x0050, text=»*  B:RSWT - BUILD REAL SWB CONTROL TABLE                     *«, t00=0x00dd, t01=0x0190}
0x15b02…15b48               Head {h00=0x0042, h01=0x0050, text=»*  =====================================                     *«, t00=0x00de, t01=0x0046}
0x15b48…15b8e               Head {h00=0x0042, h01=0x0050, text=»*                                                            *«, t00=0x00de, t01=0x008c}
0x15b8e…15bd4               Head {h00=0x0042, h01=0x0050, text=»*  REFERENCED IN:  SYSLDA                                    *«, t00=0x00de, t01=0x00d2}
0x15bd4…15c1a               Head {h00=0x0042, h01=0x0050, text=»*                                                            *«, t00=0x00de, t01=0x0118}
0x15c1a…15c60               Head {h00=0x0042, h01=0x0050, text=»*  ENTRY:  A2 - POINTER TO FIRST RECORD IN REAL S:BTAB       *«, t00=0x00de, t01=0x015e}
0x15c60…15ca6               Head {h00=0x0042, h01=0x0050, text=»*          A5 - LENGTH OF REAL S:BTAB                        *«, t00=0x00df, t01=0x0014}
0x15ca6…15cec               Head {h00=0x0042, h01=0x0050, text=»*                                                            *«, t00=0x00df, t01=0x005a}
0x15cec…15d32               Head {h00=0x0042, h01=0x0050, text=»*  EXIT:                                                     *«, t00=0x00df, t01=0x00a0}
0x15d32…15d78               Head {h00=0x0042, h01=0x0050, text=»*                                                            *«, t00=0x00df, t01=0x00e6}
0x15d78…15dbe               Head {h00=0x0042, h01=0x0050, text=»*  WORK REGISTERS:  A1-A7                                    *«, t00=0x00df, t01=0x012c}
0x15dbe…15e04               Head {h00=0x0042, h01=0x0050, text=»*                                                            *«, t00=0x00df, t01=0x0172}
0x15e04…15e4a               Head {h00=0x0042, h01=0x0050, text=»*  SUBROUTINES:                                              *«, t00=0x00e0, t01=0x0028}
0x15e4a…15e90               Head {h00=0x0042, h01=0x0050, text=»*                                                            *«, t00=0x00e0, t01=0x006e}
0x15e90…15ed6               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00e0, t01=0x00b4}
0x15ed6…15ee4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e0, t01=0x00fa}
0x15ee4…15ef8               Head {h00=0x0010, h01=0x0050, text=»B:RSWT EQU *«, t00=0x00e0, t01=0x0108}
0x15ef8…15f26               Head {h00=0x002a, h01=0x0050, text=» LDR A8,A2 SAVE POINTER TO FIRST BLOCK«, t00=0x00e0, t01=0x011c}
0x15f26…15f56               Head {h00=0x002c, h01=0x0050, text=» LD A1,SCTSWB POINTER TO SWB BLOCK TABLE«, t00=0x00e0, t01=0x014a}
0x15f56…15f84               Head {h00=0x002a, h01=0x0050, text=» RF(Z) RSWBEX NO SWB:S IN APPLICATION «, t00=0x00e0, t01=0x017a}
0x15f84…15fa8               Head {h00=0x0020, h01=0x0050, text=» LDR* A3,A1 NUMBER OF TYPES «, t00=0x00e1, t01=0x0018}
0x15fa8…15fc6               Head {h00=0x001a, h01=0x0050, text=» RF(Z) RSWBEX NO MOORE«, t00=0x00e1, t01=0x003c}
0x15fc6…15fd8               Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x00e1, t01=0x005a}
0x15fd8…15ffa               Head {h00=0x001e, h01=0x0050, text=» SUK A5,2 SKIP LENGTH WORD«, t00=0x00e1, t01=0x006c}
0x15ffa…1601c               Head {h00=0x001e, h01=0x0050, text=»RSWB10 ADK A1,2 NEXT TYPE «, t00=0x00e1, t01=0x008e}
0x1601c…16040               Head {h00=0x0020, h01=0x0050, text=» LDR* A4,A1 POINTER TO BLOCK«, t00=0x00e1, t01=0x00b0}
0x16040…16064               Head {h00=0x0020, h01=0x0050, text=» LCR A6,A4 NUMBER OF COPIES «, t00=0x00e1, t01=0x00d4}
0x16064…1608c               Head {h00=0x0024, h01=0x0050, text=» LD A7,SWBLEN,A4 LENGTH IN BYTES«, t00=0x00e1, t01=0x00f8}
0x1608c…16098               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e1, t01=0x0120}
0x16098…160b4               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x00e1, t01=0x012c}
0x160b4…160de               Head {h00=0x0026, h01=0x0050, text=» ES A6,2,A2 STORE NUMBER OF COPIES«, t00=0x00e1, t01=0x0148}
0x160de…1610e               Head {h00=0x002c, h01=0x0050, text=» ES A7,4,A2 STORE LENGTH OF SWB IN BYTES«, t00=0x00e1, t01=0x0172}
0x1610e…1611a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e2, t01=0x0012}
0x1611a…16136               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x00e2, t01=0x001e}
0x16136…16160               Head {h00=0x0026, h01=0x0050, text=» ST A6,2,A2 STORE NUMBER OF COPIES«, t00=0x00e2, t01=0x003a}
0x16160…16190               Head {h00=0x002c, h01=0x0050, text=» ST A7,4,A2 STORE LENGTH OF SWB IN BYTES«, t00=0x00e2, t01=0x0064}
0x16190…1619c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e2, t01=0x0094}
0x1619c…161b8               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x00e2, t01=0x00a0}
0x161b8…161e2               Head {h00=0x0026, h01=0x0050, text=» SUK A5,6 DECREMENTS S:BTAB LENGTH«, t00=0x00e2, t01=0x00bc}
0x161e2…1620e               Head {h00=0x0028, h01=0x0050, text=» ADK A2,6 INCREMENT POINTER IN BLOCK«, t00=0x00e2, t01=0x00e6}
0x1620e…1623a               Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT NUMBER OF TYPES «, t00=0x00e2, t01=0x0112}
0x1623a…16250               Head {h00=0x0012, h01=0x0050, text=» RB(P) RSWB10 «, t00=0x00e2, t01=0x013e}
0x16250…16262               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x00e2, t01=0x0154}
0x16262…1626c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e2, t01=0x0166}
0x1626c…162a4               Head {h00=0x0034, h01=0x0050, text=»*  INIT POINTERS TO TID BLOCKS FOR EACH SWB TYPE«, t00=0x00e2, t01=0x0170}
0x162a4…162d0               Head {h00=0x0028, h01=0x0050, text=»*  AND RESET ALL WORDS IN TID BLOCKS«, t00=0x00e3, t01=0x0018}
0x162d0…162da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00e3, t01=0x0044}
0x162da…162ee               Head {h00=0x0010, h01=0x0050, text=»RSWB20 EQU *«, t00=0x00e3, t01=0x004e}
0x162ee…1631a               Head {h00=0x0028, h01=0x0050, text=» LDR A6,A2 GET ADDRESS TO TID BLOCK «, t00=0x00e3, t01=0x0062}
0x1631a…16342               Head {h00=0x0024, h01=0x0050, text=» SUR A6,A8 COMPUTE DISPLACEMENT «, t00=0x00e3, t01=0x008e}
0x16342…1635e               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x00e3, t01=0x00b6}
0x1635e…16382               Head {h00=0x0020, h01=0x0050, text=» LD A1,2,A8 NUMBER OF COPIES«, t00=0x00e3, t01=0x00d2}
0x16382…163a2               Head {h00=0x001c, h01=0x0050, text=» RF(Z) RSWB50 NO COPIES!«, t00=0x00e3, t01=0x00f6}
0x163a2…163d0               Head {h00=0x002a, h01=0x0050, text=» STR A6,A8 STORE POINTER TO TID BLOCK «, t00=0x00e3, t01=0x0116}
0x163d0…163f2               Head {h00=0x001e, h01=0x0050, text=»RSWB30 STR A3,A2 RESET TID«, t00=0x00e3, t01=0x0144}
0x163f2…16422               Head {h00=0x002c, h01=0x0050, text=» ADK A2,2 INCREMENT POINTER IN TID BLOCK«, t00=0x00e3, t01=0x0166}
0x16422…16454               Head {h00=0x002e, h01=0x0050, text=» SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB «, t00=0x00e4, t01=0x0008}
0x16454…1647c               Head {h00=0x0024, h01=0x0050, text=» SUK A1,1 DECR. NUMBER OF COPIES«, t00=0x00e4, t01=0x003a}
0x1647c…1649c               Head {h00=0x001c, h01=0x0050, text=» RB(P) RSWB30 NEXT COPY «, t00=0x00e4, t01=0x0062}
0x1649c…164a8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e4, t01=0x0082}
0x164a8…164c4               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x00e4, t01=0x008e}
0x164c4…164ec               Head {h00=0x0024, h01=0x0050, text=» EL A1,2,A8 GET NUMBER OF COPIES«, t00=0x00e4, t01=0x00aa}
0x164ec…1650c               Head {h00=0x001c, h01=0x0050, text=» RF(Z) RSWB50 NO COPIES!«, t00=0x00e4, t01=0x00d2}
0x1650c…1653a               Head {h00=0x002a, h01=0x0050, text=» ESR A6,A8 STORE POINTER TO TID BLOCK «, t00=0x00e4, t01=0x00f2}
0x1653a…1655c               Head {h00=0x001e, h01=0x0050, text=»RSWB40 ESR A3,A2 RESET TID«, t00=0x00e4, t01=0x0120}
0x1655c…1658c               Head {h00=0x002c, h01=0x0050, text=» ADK A2,2 INCREMENT POINTER IN TID BLOCK«, t00=0x00e4, t01=0x0142}
0x1658c…165be               Head {h00=0x002e, h01=0x0050, text=» SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB «, t00=0x00e4, t01=0x0172}
0x165be…165ea               Head {h00=0x0028, h01=0x0050, text=» SUK A1,1 DECREMENT NUMBER OF COPIES«, t00=0x00e5, t01=0x0014}
0x165ea…1660a               Head {h00=0x001c, h01=0x0050, text=» RB(P) RSWB40 NEXT COPY «, t00=0x00e5, t01=0x0040}
0x1660a…16616               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e5, t01=0x0060}
0x16616…16632               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x00e5, t01=0x006c}
0x16632…1664a               Head {h00=0x0014, h01=0x0050, text=»RSWB50 ADKL A8,6«, t00=0x00e5, t01=0x0088}
0x1664a…1665c               Head {h00=0x000e, h01=0x0050, text=» CWR A8,A4«, t00=0x00e5, t01=0x00a0}
0x1665c…16672               Head {h00=0x0012, h01=0x0050, text=» RB(NE) RSWB20«, t00=0x00e5, t01=0x00b2}
0x16672…16698               Head {h00=0x0022, h01=0x0050, text=» LDR A5,A5 S:BTAB CONSISTENT? «, t00=0x00e5, t01=0x00c8}
0x16698…166b2               Head {h00=0x0016, h01=0x0050, text=» RF(Z) RSWBEX YES «, t00=0x00e5, t01=0x00ee}
0x166b2…166d2               Head {h00=0x001c, h01=0x0050, text=» LDKL A1,LMP6 SWB ERROR!«, t00=0x00e5, t01=0x0108}
0x166d2…166e6               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00e5, t01=0x0128}
0x166e6…166fc               Head {h00=0x0012, h01=0x0050, text=»RSWBEX RTN A14«, t00=0x00e5, t01=0x013c}
0x166fc…16708               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e5, t01=0x0152}
0x16708…1671e               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00e5, t01=0x015e}
0x1671e…1672c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e5, t01=0x0174}
0x1672c…16734               Head {h00=0x0004, h01=0x0050, t00=0x00e5, t01=0x0182}
0x16734…16758               Head {h00=0x0020, h01=0x0050, text=»* **************************«, t00=0x00e5, t01=0x018a}
0x16758…1677e               Head {h00=0x0022, h01=0x0050, text=»* START OF PROGRAM PART 2.A * «, t00=0x00e6, t01=0x001e}
0x1677e…167a4               Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x00e6, t01=0x0044}
0x167a4…167ac               Head {h00=0x0004, h01=0x0050, t00=0x00e6, t01=0x006a}
0x167ac…167ca               Head {h00=0x001a, h01=0x0050, text=»* LOAD BASE ADDRESS * «, t00=0x00e6, t01=0x0072}
0x167ca…167e8               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x00e6, t01=0x0090}
0x167e8…16802               Head {h00=0x0016, h01=0x0050, text=»* A5=START-ADDRESS«, t00=0x00e6, t01=0x00ae}
0x16802…1681e               Head {h00=0x0018, h01=0x0050, text=»* A9=P:MTAB ADDRESS «, t00=0x00e6, t01=0x00c8}
0x1681e…1683e               Head {h00=0x001c, h01=0x0050, text=»* SAVE03=DDIV TO-ADDRESS«, t00=0x00e6, t01=0x00e4}
0x1683e…16860               Head {h00=0x001e, h01=0x0050, text=»* SAVE04=DDIV FROM ADDRESS«, t00=0x00e6, t01=0x0104}
0x16860…16886               Head {h00=0x0022, h01=0x0050, text=»* SAVE05=LENGTH OF REAL T:ATAB«, t00=0x00e6, t01=0x0126}
0x16886…168ac               Head {h00=0x0022, h01=0x0050, text=»* SAVE06=LENGTH OF REAL U:BTAB«, t00=0x00e6, t01=0x014c}
0x168ac…168b8               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00e6, t01=0x0172}
0x168b8…168d0               Head {h00=0x0014, h01=0x0050, text=»START2 EQU *-REL«, t00=0x00e6, t01=0x017e}
0x168d0…168f6               Head {h00=0x0022, h01=0x0050, text=» LDR A8,P LOAD TEMP. STACKBASE«, t00=0x00e7, t01=0x0008}
0x168f6…16922               Head {h00=0x0028, h01=0x0050, text=» ADK A5,2 ADD FOR RELOCATION ROUTINE«, t00=0x00e7, t01=0x002e}
0x16922…16934               Head {h00=0x000e, h01=0x0050, text=» CFR A8,A5«, t00=0x00e7, t01=0x005a}
0x16934…1694a               Head {h00=0x0012, h01=0x0050, text=»* MOVE DDIV * «, t00=0x00e7, t01=0x006c}
0x1694a…16952               Head {h00=0x0004, h01=0x0050, t00=0x00e7, t01=0x0082}
0x16952…1697c               Head {h00=0x0026, h01=0x0050, text=» LD A1,SAVE04,A13 GET FROM-ADDRESS«, t00=0x00e7, t01=0x008a}
0x1697c…169a4               Head {h00=0x0024, h01=0x0050, text=» LD A2,SAVE03,A13 GET TO ADDRESS«, t00=0x00e7, t01=0x00b4}
0x169a4…169d6               Head {h00=0x002e, h01=0x0050, text=» LDR A3,A9 GET P:MTAB START (=END OF DDIV «, t00=0x00e7, t01=0x00dc}
0x169d6…169f2               Head {h00=0x0018, h01=0x0050, text=» SUR A3,A1 => LENGTH«, t00=0x00e7, t01=0x010e}
0x169f2…169fe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e7, t01=0x012a}
0x169fe…16a1a               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00e7, t01=0x0136}
0x16a1a…16a50               Head {h00=0x0032, h01=0x0050, text=» LD A8,SAVE29,A13 ANY SEGMENTS IN APPLICATION?«, t00=0x00e7, t01=0x0152}
0x16a50…16a6a               Head {h00=0x0016, h01=0x0050, text=» RF(Z) NOSGMT NO! «, t00=0x00e7, t01=0x0188}
0x16a6a…16a96               Head {h00=0x0028, h01=0x0050, text=» LDKL A8,0 RESET FSTADR IF SEGMENTS!«, t00=0x00e8, t01=0x0012}
0x16a96…16aa8               Head {h00=0x000e, h01=0x0050, text=» RF SEGMTS«, t00=0x00e8, t01=0x003e}
0x16aa8…16ade               Head {h00=0x0032, h01=0x0050, text=»NOSGMT LD A8,SCTSFA ALLOCATE BUFFERS FROM TOP «, t00=0x00e8, t01=0x0050}
0x16ade…16b04               Head {h00=0x0022, h01=0x0050, text=»SEGMTS ST A8,FSTADR,A13 STORE «, t00=0x00e8, t01=0x0086}
0x16b04…16b26               Head {h00=0x001e, h01=0x0050, text=»MOVNXT LDR* A4,A1 GET WORD«, t00=0x00e8, t01=0x00ac}
0x16b26…16b3e               Head {h00=0x0014, h01=0x0050, text=» STR A4,A2 STORE«, t00=0x00e8, t01=0x00ce}
0x16b3e…16b50               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x00e8, t01=0x00e6}
0x16b50…16b62               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00e8, t01=0x00f8}
0x16b62…16b7e               Head {h00=0x0018, h01=0x0050, text=» SUK A3,2 DEC LENGTH«, t00=0x00e8, t01=0x010a}
0x16b7e…16b94               Head {h00=0x0012, h01=0x0050, text=» RB(NN) MOVNXT«, t00=0x00e8, t01=0x0126}
0x16b94…16ba0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e8, t01=0x013c}
0x16ba0…16bbc               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00e8, t01=0x0148}
0x16bbc…16bd0               Head {h00=0x0010, h01=0x0050, text=» CALL XMOVE «, t00=0x00e8, t01=0x0164}
0x16bd0…16bfa               Head {h00=0x0026, h01=0x0050, text=»* REMOVE DDIV ENTRIES IN MM-TABLE «, t00=0x00e8, t01=0x0178}
0x16bfa…16c02               Head {h00=0x0004, h01=0x0050, t00=0x00e9, t01=0x0012}
0x16c02…16c28               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET P:MTAB ADDRESS «, t00=0x00e9, t01=0x001a}
0x16c28…16c50               Head {h00=0x0024, h01=0x0050, text=» SRL A1,11 ADJUST FOR ADDRESSING«, t00=0x00e9, t01=0x0040}
0x16c50…16c64               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/1E «, t00=0x00e9, t01=0x0068}
0x16c64…16c8e               Head {h00=0x0026, h01=0x0050, text=» LDK A2,MMTAB-2 GET TABLE ADDRESS «, t00=0x00e9, t01=0x007c}
0x16c8e…16caa               Head {h00=0x0018, h01=0x0050, text=» ADR A2,A13 RELOCATE«, t00=0x00e9, t01=0x00a6}
0x16caa…16cd0               Head {h00=0x0022, h01=0x0050, text=» ADR A1,A2 P:MTAB START ENTRY «, t00=0x00e9, t01=0x00c2}
0x16cd0…16ce6               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/FC00«, t00=0x00e9, t01=0x00e8}
0x16ce6…16d04               Head {h00=0x001a, h01=0x0050, text=»SYA205 CWR A1,A2 ALL? «, t00=0x00e9, t01=0x00fe}
0x16d04…16d1e               Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA207 YES!«, t00=0x00e9, t01=0x011c}
0x16d1e…16d4e               Head {h00=0x002c, h01=0x0050, text=» STR A4,A1 REPLACE ENTRY WITH PAGE ERROR«, t00=0x00e9, t01=0x0136}
0x16d4e…16d60               Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x00e9, t01=0x0166}
0x16d60…16d72               Head {h00=0x000e, h01=0x0050, text=» RB SYA205«, t00=0x00e9, t01=0x0178}
0x16d72…16d86               Head {h00=0x0010, h01=0x0050, text=»SYA207 EQU *«, t00=0x00e9, t01=0x018a}
0x16d86…16da6               Head {h00=0x001c, h01=0x0050, text=»* CHANGE TABLE-ADDRESSES«, t00=0x00ea, t01=0x000e}
0x16da6…16dc0               Head {h00=0x0016, h01=0x0050, text=» LD A4,MMFROM,A13 «, t00=0x00ea, t01=0x002e}
0x16dc0…16dd8               Head {h00=0x0014, h01=0x0050, text=» LD A5,MMTO,A13 «, t00=0x00ea, t01=0x0048}
0x16dd8…16df0               Head {h00=0x0014, h01=0x0050, text=» ST A4,MMTO,A13 «, t00=0x00ea, t01=0x0060}
0x16df0…16e0a               Head {h00=0x0016, h01=0x0050, text=» ST A5,MMFROM,A13 «, t00=0x00ea, t01=0x0078}
0x16e0a…16e16               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ea, t01=0x0092}
0x16e16…16e2c               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00ea, t01=0x009e}
0x16e2c…16e50               Head {h00=0x0020, h01=0x0050, text=» ANKL A9,/FFFE EVEN ADDRESS «, t00=0x00ea, t01=0x00b4}
0x16e50…16e80               Head {h00=0x002c, h01=0x0050, text=» ST A9,LSTADR,A13 SAVE END OF FREE AREA «, t00=0x00ea, t01=0x00d8}
0x16e80…16e88               Head {h00=0x0004, h01=0x0050, t00=0x00ea, t01=0x0108}
0x16e88…16e90               Head {h00=0x0004, h01=0x0050, t00=0x00ea, t01=0x0110}
0x16e90…16e9c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00ea, t01=0x0118}
0x16e9c…16ece               Head {h00=0x002e, h01=0x0050, text=»* RESERVE SPACE FOR REAL T:A- AND U:BTAB *«, t00=0x00ea, t01=0x0124}
0x16ece…16ed6               Head {h00=0x0004, h01=0x0050, t00=0x00ea, t01=0x0156}
0x16ed6…16ef2               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00ea, t01=0x015e}
0x16ef2…16f1e               Head {h00=0x0028, h01=0x0050, text=» LDKL A3,MMTAB GET CURRENT MM-TABLE «, t00=0x00ea, t01=0x017a}
0x16f1e…16f32               Head {h00=0x0010, h01=0x0050, text=» ADR A3,A13 «, t00=0x00eb, t01=0x0016}
0x16f32…16f62               Head {h00=0x002c, h01=0x0050, text=»* FIND LAST USED ENTRY IN REAL MMUTAB * «, t00=0x00eb, t01=0x002a}
0x16f62…16f6a               Head {h00=0x0004, h01=0x0050, t00=0x00eb, t01=0x005a}
0x16f6a…16f7e               Head {h00=0x0010, h01=0x0050, text=» CALL MMENT «, t00=0x00eb, t01=0x0062}
0x16f7e…16f96               Head {h00=0x0014, h01=0x0050, text=» ST A9,TTAB,A13 «, t00=0x00eb, t01=0x0076}
0x16f96…16fc4               Head {h00=0x002a, h01=0x0050, text=» ST A1,FYSPAG,A13 SAVE PHYSICALL PAGE «, t00=0x00eb, t01=0x008e}
0x16fc4…16ff2               Head {h00=0x002a, h01=0x0050, text=» LD A3,SAVE05,A13 GET LENGTH OF T:ATAB«, t00=0x00eb, t01=0x00bc}
0x16ff2…1700a               Head {h00=0x0014, h01=0x0050, text=» LDR A5,A3 SAVE «, t00=0x00eb, t01=0x00ea}
0x1700a…17038               Head {h00=0x002a, h01=0x0050, text=» CALL MOVING RESERVE SPACE FOR T:ATAB «, t00=0x00eb, t01=0x0102}
0x17038…17060               Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 SET CORRECT TABLE «, t00=0x00eb, t01=0x0130}
0x17060…17086               Head {h00=0x0022, h01=0x0050, text=» ESR A5,A2 STORE T:ATAB LENGTH«, t00=0x00eb, t01=0x0158}
0x17086…170b8               Head {h00=0x002e, h01=0x0050, text=» ST A2,T:ATNW,A13 SAVE NEW T:ATAB ADDRESS «, t00=0x00eb, t01=0x017e}
0x170b8…170da               Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 SKIP LENGTH WORD«, t00=0x00ec, t01=0x0020}
0x170da…17102               Head {h00=0x0024, h01=0x0050, text=» LD A9,SCTLAC GET P:MTAB ADDRESS«, t00=0x00ec, t01=0x0042}
0x17102…1712a               Head {h00=0x0024, h01=0x0050, text=» ES A2,T:ATAB,A9 STORE IN P:MTAB«, t00=0x00ec, t01=0x006a}
0x1712a…17152               Head {h00=0x0024, h01=0x0050, text=»* RESERVE PLACE FOR T:AID TABLE «, t00=0x00ec, t01=0x0092}
0x17152…1715a               Head {h00=0x0004, h01=0x0050, t00=0x00ec, t01=0x00ba}
0x1715a…17178               Head {h00=0x001a, h01=0x0050, text=» LDR A3,A5 GET LENGTH «, t00=0x00ec, t01=0x00c2}
0x17178…1718c               Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x00ec, t01=0x00e0}
0x1718c…171a2               Head {h00=0x0012, h01=0x0050, text=» TL* MMTO,A13 «, t00=0x00ec, t01=0x00f4}
0x171a2…171c0               Head {h00=0x001a, h01=0x0050, text=» LDR A3,A9 GET P:MTAB «, t00=0x00ec, t01=0x010a}
0x171c0…171ea               Head {h00=0x0026, h01=0x0050, text=» ADK A3,T:AID ADD TO ADDRESS WORD «, t00=0x00ec, t01=0x0128}
0x171ea…1721e               Head {h00=0x0030, h01=0x0050, text=» ESR A5,A2 STORE TABLE LENGTH IN T:TID-TABLE«, t00=0x00ec, t01=0x0152}
0x1721e…17244               Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 ADJUST TABLE ADDRESS«, t00=0x00ec, t01=0x0186}
0x17244…17266               Head {h00=0x001e, h01=0x0050, text=» ESR A2,A3 STORE IN P:MTAB«, t00=0x00ed, t01=0x001c}
0x17266…17272               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ed, t01=0x003e}
0x17272…17288               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00ed, t01=0x004a}
0x17288…172b4               Head {h00=0x0028, h01=0x0050, text=» LD A3,SAVE06,A13 GET U:BTAB LENGTH «, t00=0x00ed, t01=0x0060}
0x172b4…172cc               Head {h00=0x0014, h01=0x0050, text=» LDR A5,A3 SAVE «, t00=0x00ed, t01=0x008c}
0x172cc…172ee               Head {h00=0x001e, h01=0x0050, text=» CALL MOVING RESERVE SPACE«, t00=0x00ed, t01=0x00a4}
0x172ee…17326               Head {h00=0x0034, h01=0x0050, text=» ST A2,U:BTNW,A13 SAVE NEW (REAL) U:BTAB ADDRESS«, t00=0x00ed, t01=0x00c6}
0x17326…17342               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00ed, t01=0x00fe}
0x17342…17362               Head {h00=0x001c, h01=0x0050, text=» STR A5,A2 STORE LENGTH «, t00=0x00ed, t01=0x011a}
0x17362…17374               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00ed, t01=0x013a}
0x17374…173b2               Head {h00=0x003a, h01=0x0050, text=» ST A2,U:BTAB,A9 SAVE 'REAL' U:BTAB-ADDRESS IN P:MTAB «, t00=0x00ed, t01=0x014c}
0x173b2…173e0               Head {h00=0x002a, h01=0x0050, text=» LD A3,SAVE05,A13 GET LENGTH OF T:ATAB«, t00=0x00ed, t01=0x018a}
0x173e0…173f8               Head {h00=0x0014, h01=0x0050, text=» LDR A5,A3 SAVE «, t00=0x00ee, t01=0x0028}
0x173f8…17426               Head {h00=0x002a, h01=0x0050, text=» CALL MOVING RESERVE SPACE FOR T:ATAB «, t00=0x00ee, t01=0x0040}
0x17426…1744c               Head {h00=0x0022, h01=0x0050, text=» STR A5,A2 STORE T:ATAB LENGTH«, t00=0x00ee, t01=0x006e}
0x1744c…1747e               Head {h00=0x002e, h01=0x0050, text=» ST A2,T:ATNW,A13 SAVE NEW T:ATAB ADDRESS «, t00=0x00ee, t01=0x0094}
0x1747e…17490               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00ee, t01=0x00c6}
0x17490…174ba               Head {h00=0x0026, h01=0x0050, text=» ST A2,T:ATAB,A9 SAVE REAL ADDRESS«, t00=0x00ee, t01=0x00d8}
0x174ba…174dc               Head {h00=0x001e, h01=0x0050, text=»* RESERVE FOR T:AID TABLE «, t00=0x00ee, t01=0x0102}
0x174dc…174e4               Head {h00=0x0004, h01=0x0050, t00=0x00ee, t01=0x0124}
0x174e4…174fe               Head {h00=0x0016, h01=0x0050, text=» LDR A3,A5 LENGTH «, t00=0x00ee, t01=0x012c}
0x174fe…17512               Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x00ee, t01=0x0146}
0x17512…17532               Head {h00=0x001c, h01=0x0050, text=» STR A5,A2 STORE LENGTH «, t00=0x00ee, t01=0x015a}
0x17532…1755a               Head {h00=0x0024, h01=0x0050, text=» ADK A2,2 ADJUST FOR LENGTH-WORD«, t00=0x00ee, t01=0x017a}
0x1755a…1758a               Head {h00=0x002c, h01=0x0050, text=» ST A2,T:AID,A9 STORE ADDRESS IN P:MTAB «, t00=0x00ef, t01=0x0012}
0x1758a…17596               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ef, t01=0x0042}
0x17596…175b2               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00ef, t01=0x004e}
0x175b2…175da               Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 SET CORRECT TABLE «, t00=0x00ef, t01=0x006a}
0x175da…175fa               Head {h00=0x001c, h01=0x0050, text=» ESR A5,A2 STORE LENGTH «, t00=0x00ef, t01=0x0092}
0x175fa…1761c               Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 SKIP LENGTH WORD«, t00=0x00ef, t01=0x00b2}
0x1761c…17644               Head {h00=0x0024, h01=0x0050, text=» ES A2,U:BTAB,A9 STORE IN P:MTAB«, t00=0x00ef, t01=0x00d4}
0x17644…17650               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ef, t01=0x00fc}
0x17650…1766c               Head {h00=0x0018, h01=0x0050, text=» IFT SWPBLK+CREDIT=2«, t00=0x00ef, t01=0x0108}
0x1766c…17676               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x0124}
0x17676…176a4               Head {h00=0x002a, h01=0x0050, text=»*  RESERV SPACE FOR REAL S:BTAB TABLE «, t00=0x00ef, t01=0x012e}
0x176a4…176ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ef, t01=0x015c}
0x176ae…176de               Head {h00=0x002c, h01=0x0050, text=» LD A3,SAVE25,A13 LENGTH OF REAL S:BTAB «, t00=0x00ef, t01=0x0166}
0x176de…176f6               Head {h00=0x0014, h01=0x0050, text=» LDR A5,A3 SAVE «, t00=0x00f0, t01=0x0008}
0x176f6…1770a               Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x00f0, t01=0x0020}
0x1770a…17724               Head {h00=0x0016, h01=0x0050, text=» ST A2,S:BTNW,A13 «, t00=0x00f0, t01=0x0034}
0x17724…17730               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f0, t01=0x004e}
0x17730…1774c               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x00f0, t01=0x005a}
0x1774c…17762               Head {h00=0x0012, h01=0x0050, text=» TL* MMTO,A13 «, t00=0x00f0, t01=0x0076}
0x17762…17774               Head {h00=0x000e, h01=0x0050, text=» ESR A5,A2«, t00=0x00f0, t01=0x008c}
0x17774…17786               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00f0, t01=0x009e}
0x17786…1779e               Head {h00=0x0014, h01=0x0050, text=» ES A2,S:BTAB,A9«, t00=0x00f0, t01=0x00b0}
0x1779e…177b2               Head {h00=0x0010, h01=0x0050, text=» CALL B:RSWT«, t00=0x00f0, t01=0x00c8}
0x177b2…177be               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f0, t01=0x00dc}
0x177be…177da               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x00f0, t01=0x00e8}
0x177da…177ec               Head {h00=0x000e, h01=0x0050, text=» STR A5,A2«, t00=0x00f0, t01=0x0104}
0x177ec…177fe               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00f0, t01=0x0116}
0x177fe…17816               Head {h00=0x0014, h01=0x0050, text=» ST A2,S:BTAB,A9«, t00=0x00f0, t01=0x0128}
0x17816…1782a               Head {h00=0x0010, h01=0x0050, text=» CALL B:RSWT«, t00=0x00f0, t01=0x0140}
0x1782a…17836               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f0, t01=0x0154}
0x17836…17852               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f0, t01=0x0160}
0x17852…17878               Head {h00=0x0022, h01=0x0050, text=» TL* MMFROM,A13 RELOAD  TABLE «, t00=0x00f0, t01=0x017c}
0x17878…17884               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f1, t01=0x0012}
0x17884…1789a               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f1, t01=0x001e}
0x1789a…178a8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f1, t01=0x0034}
0x178a8…178b4               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00f1, t01=0x0042}
0x178b4…178d6               Head {h00=0x001e, h01=0x0050, text=»* BUILD COMMON DATA AREA *«, t00=0x00f1, t01=0x004e}
0x178d6…178f8               Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x00f1, t01=0x0070}
0x178f8…17910               Head {h00=0x0014, h01=0x0050, text=»* SEARCH CWB'S: «, t00=0x00f1, t01=0x0092}
0x17910…1791c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00f1, t01=0x00aa}
0x1791c…17948               Head {h00=0x0028, h01=0x0050, text=» LD A8,T:ATOD,A13 GET T:ATAB ADDRESS«, t00=0x00f1, t01=0x00b6}
0x17948…17964               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f1, t01=0x00e2}
0x17964…17982               Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A8 GET LENGTH«, t00=0x00f1, t01=0x00fe}
0x17982…1798e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f1, t01=0x011c}
0x1798e…179aa               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f1, t01=0x0128}
0x179aa…179c8               Head {h00=0x001a, h01=0x0050, text=» ELR A3,A8 GET LENGTH «, t00=0x00f1, t01=0x0144}
0x179c8…179d4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f1, t01=0x0162}
0x179d4…179ea               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f1, t01=0x016e}
0x179ea…179fc               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A8«, t00=0x00f1, t01=0x0184}
0x179fc…17a30               Head {h00=0x0030, h01=0x0050, text=» ST A3,ENDADD,A13 SAVE END OF T:ATAB ADDRESS«, t00=0x00f2, t01=0x0008}
0x17a30…17a44               Head {h00=0x0010, h01=0x0050, text=»SYA210 EQU *«, t00=0x00f2, t01=0x003c}
0x17a44…17a6e               Head {h00=0x0026, h01=0x0050, text=» CM UWB,A13 INDICATE CWB-SCANNING «, t00=0x00f2, t01=0x0050}
0x17a6e…17a80               Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x00f2, t01=0x007a}
0x17a80…17aa4               Head {h00=0x0020, h01=0x0050, text=» CW A8,ENDADD,A13 ALL DONE? «, t00=0x00f2, t01=0x008c}
0x17aa4…17abe               Head {h00=0x0016, h01=0x0050, text=» RF(E) CLADAT YES!«, t00=0x00f2, t01=0x00b0}
0x17abe…17ae6               Head {h00=0x0024, h01=0x0050, text=» CALL T:DADD T:D-ADDRESS TO A12 «, t00=0x00f2, t01=0x00ca}
0x17ae6…17b02               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f2, t01=0x00f2}
0x17b02…17b28               Head {h00=0x0022, h01=0x0050, text=» LD A7,CWBMSK,A12 GET CWB-MASK«, t00=0x00f2, t01=0x010e}
0x17b28…17b34               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f2, t01=0x0134}
0x17b34…17b50               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f2, t01=0x0140}
0x17b50…17b6a               Head {h00=0x0016, h01=0x0050, text=» EL A7,CWBMSK,A12 «, t00=0x00f2, t01=0x015c}
0x17b6a…17b76               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f2, t01=0x0176}
0x17b76…17b8c               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f2, t01=0x0182}
0x17b8c…17bac               Head {h00=0x001c, h01=0x0050, text=» CALL SHIFT SUPER-LOOPA «, t00=0x00f3, t01=0x0008}
0x17bac…17bcc               Head {h00=0x001c, h01=0x0050, text=»SYA220 RF(Z) UWBCOM ALL!«, t00=0x00f3, t01=0x0028}
0x17bcc…17be0               Head {h00=0x0010, h01=0x0050, text=» CALL MOVCOM«, t00=0x00f3, t01=0x0048}
0x17be0…17bf4               Head {h00=0x0010, h01=0x0050, text=» CALL SKIFTA«, t00=0x00f3, t01=0x005c}
0x17bf4…17c06               Head {h00=0x000e, h01=0x0050, text=» RB SYA220«, t00=0x00f3, t01=0x0070}
0x17c06…17c14               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f3, t01=0x0082}
0x17c14…17c20               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00f3, t01=0x0090}
0x17c20…17c2c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00f3, t01=0x009c}
0x17c2c…17c40               Head {h00=0x0010, h01=0x0050, text=»UWBCOM EQU *«, t00=0x00f3, t01=0x00a8}
0x17c40…17c58               Head {h00=0x0014, h01=0x0050, text=»* SEARCH UWB'S: «, t00=0x00f3, t01=0x00bc}
0x17c58…17c62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f3, t01=0x00d4}
0x17c62…17c8c               Head {h00=0x0026, h01=0x0050, text=» IM UWB,A13 INDICATE UWB-SCANNING «, t00=0x00f3, t01=0x00de}
0x17c8c…17ca8               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f3, t01=0x0108}
0x17ca8…17cc2               Head {h00=0x0016, h01=0x0050, text=» LD A7,UWBMSK,A12 «, t00=0x00f3, t01=0x0124}
0x17cc2…17cce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f3, t01=0x013e}
0x17cce…17cea               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f3, t01=0x014a}
0x17cea…17d04               Head {h00=0x0016, h01=0x0050, text=» EL A7,UWBMSK,A12 «, t00=0x00f3, t01=0x0166}
0x17d04…17d10               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f3, t01=0x0180}
0x17d10…17d26               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f3, t01=0x018c}
0x17d26…17d3a               Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x00f4, t01=0x0012}
0x17d3a…17d60               Head {h00=0x0022, h01=0x0050, text=»SYA230 RB(Z) SYA210 ALL DONE! «, t00=0x00f4, t01=0x0026}
0x17d60…17d7a               Head {h00=0x0016, h01=0x0050, text=»SYA235 CALL MOVCOM«, t00=0x00f4, t01=0x004c}
0x17d7a…17d94               Head {h00=0x0016, h01=0x0050, text=»SYA240 CALL SKIFTA«, t00=0x00f4, t01=0x0066}
0x17d94…17da6               Head {h00=0x000e, h01=0x0050, text=» RB SYA230«, t00=0x00f4, t01=0x0080}
0x17da6…17db4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f4, t01=0x0092}
0x17db4…17dc0               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00f4, t01=0x00a0}
0x17dc0…17dee               Head {h00=0x002a, h01=0x0050, text=»* TASK CLASS DATA CONFIGURATION PART *«, t00=0x00f4, t01=0x00ac}
0x17dee…17e1c               Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x00f4, t01=0x00da}
0x17e1c…17e24               Head {h00=0x0004, h01=0x0050, t00=0x00f4, t01=0x0108}
0x17e24…17e38               Head {h00=0x0010, h01=0x0050, text=»CLADAT EQU *«, t00=0x00f4, t01=0x0110}
0x17e38…17e70               Head {h00=0x0034, h01=0x0050, text=» LD A8,T:ATOD,A13 SET POINTER TO LENGTH INT:ATAB«, t00=0x00f4, t01=0x0124}
0x17e70…17e8c               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f4, t01=0x015c}
0x17e8c…17eb2               Head {h00=0x0022, h01=0x0050, text=»SYA250 CM UWB,A13 INDICATE CWB«, t00=0x00f4, t01=0x0178}
0x17eb2…17ede               Head {h00=0x0028, h01=0x0050, text=» ADKL A8,2 STEP TO NEXT T:A ADDRESS «, t00=0x00f5, t01=0x000e}
0x17ede…17ef8               Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x00f5, t01=0x003a}
0x17ef8…17f1c               Head {h00=0x0020, h01=0x0050, text=» RF(E) SYA270 ALL T:A'S DONE«, t00=0x00f5, t01=0x0054}
0x17f1c…17f48               Head {h00=0x0028, h01=0x0050, text=» CALL T:DADD GET T:D ADDRESS TO A12 «, t00=0x00f5, t01=0x0078}
0x17f48…17f50               Head {h00=0x0004, h01=0x0050, t00=0x00f5, t01=0x00a4}
0x17f50…17f72               Head {h00=0x001e, h01=0x0050, text=»* CALCULATE LENGTH OF T:D «, t00=0x00f5, t01=0x00ac}
0x17f72…17f7a               Head {h00=0x0004, h01=0x0050, t00=0x00f5, t01=0x00ce}
0x17f7a…17fb0               Head {h00=0x0032, h01=0x0050, text=» LD A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB«, t00=0x00f5, t01=0x00d6}
0x17fb0…17fc2               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x00f5, t01=0x010c}
0x17fc2…17fe6               Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFE EVEN ADDRESS «, t00=0x00f5, t01=0x011e}
0x17fe6…18012               Head {h00=0x0028, h01=0x0050, text=» ADK A1,DWBFST+4 ADD DISPL. TO FIRST«, t00=0x00f5, t01=0x0142}
0x18012…18040               Head {h00=0x002a, h01=0x0050, text=» LDR A3,A1 GET NUMBER OF START-POINTS «, t00=0x00f5, t01=0x016e}
0x18040…18064               Head {h00=0x0020, h01=0x0050, text=» ADR A3,A12 ADD T:D-ADDRESS «, t00=0x00f6, t01=0x000c}
0x18064…1807a               Head {h00=0x0012, h01=0x0050, text=» LDR* A3,A3 . «, t00=0x00f6, t01=0x0030}
0x1807a…180ae               Head {h00=0x0030, h01=0x0050, text=» LDK A2,STPREC GET STARTPOINTS RECORD LENGTH«, t00=0x00f6, t01=0x0046}
0x180ae…180ce               Head {h00=0x001c, h01=0x0050, text=» CALL MULT AND MULTIPLY «, t00=0x00f6, t01=0x007a}
0x180ce…180ee               Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 'NUMBER-WORD' «, t00=0x00f6, t01=0x009a}
0x180ee…1810a               Head {h00=0x0018, h01=0x0050, text=» ADR A3,A1 =>LENGTH «, t00=0x00f6, t01=0x00ba}
0x1810a…1812a               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A12 FROM-ADDRESS«, t00=0x00f6, t01=0x00d6}
0x1812a…18148               Head {h00=0x001a, h01=0x0050, text=» CALL MOVING MOVE T:D «, t00=0x00f6, t01=0x00f6}
0x18148…1816c               Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A ADDRESS «, t00=0x00f6, t01=0x0114}
0x1816c…1819a               Head {h00=0x002a, h01=0x0050, text=» ST A2,T:DAD,A1 STORE NEW T:D ADDRESS «, t00=0x00f6, t01=0x0138}
0x1819a…181c0               Head {h00=0x0022, h01=0x0050, text=» LD A7,CWBMSK,A12 GET CWBMASK «, t00=0x00f6, t01=0x0166}
0x181c0…181cc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f6, t01=0x018c}
0x181cc…181e8               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f7, t01=0x0008}
0x181e8…18214               Head {h00=0x0028, h01=0x0050, text=»* INITIATE MM-ADDRESS TABLE POINTER «, t00=0x00f7, t01=0x0024}
0x18214…1821c               Head {h00=0x0004, h01=0x0050, t00=0x00f7, t01=0x0050}
0x1821c…18244               Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTSFA SHADOW TABLE START«, t00=0x00f7, t01=0x0058}
0x18244…1826e               Head {h00=0x0026, h01=0x0050, text=» AD* A1,SCTSFA ADDRESS TABLE START«, t00=0x00f7, t01=0x0080}
0x1826e…1828c               Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE06,A13 SAVE«, t00=0x00f7, t01=0x00aa}
0x1828c…182b2               Head {h00=0x0022, h01=0x0050, text=»SYA250 CM UWB,A13 INDICATE CWB«, t00=0x00f7, t01=0x00c8}
0x182b2…182de               Head {h00=0x0028, h01=0x0050, text=» ADKL A8,2 STEP TO NEXT T:A ADDRESS «, t00=0x00f7, t01=0x00ee}
0x182de…182f8               Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x00f7, t01=0x011a}
0x182f8…1831e               Head {h00=0x0022, h01=0x0050, text=» RF(E) SYA270 ALL T:A'S DONE! «, t00=0x00f7, t01=0x0134}
0x1831e…18344               Head {h00=0x0022, h01=0x0050, text=» CALL GETTAB GET TTAB-ADDRESS «, t00=0x00f7, t01=0x015a}
0x18344…18366               Head {h00=0x001e, h01=0x0050, text=» CALL MOVMMT MOVE MM-TABLE«, t00=0x00f7, t01=0x0180}
0x18366…1838c               Head {h00=0x0022, h01=0x0050, text=»* FILL MM-TABLE ADDRESS TABLE «, t00=0x00f8, t01=0x0012}
0x1838c…18394               Head {h00=0x0004, h01=0x0050, t00=0x00f8, t01=0x0038}
0x18394…183ae               Head {h00=0x0016, h01=0x0050, text=» LD A1,SAVE06,A13 «, t00=0x00f8, t01=0x0040}
0x183ae…183d8               Head {h00=0x0026, h01=0x0050, text=» ADK A1,2 INCREMENT TABLE POINTER «, t00=0x00f8, t01=0x005a}
0x183d8…183fa               Head {h00=0x001e, h01=0x0050, text=» ST A1,SAVE06,A13 RESTORE «, t00=0x00f8, t01=0x0084}
0x183fa…18418               Head {h00=0x001a, h01=0x0050, text=» STR A2,A1 FILL TABLE «, t00=0x00f8, t01=0x00a6}
0x18418…18444               Head {h00=0x0028, h01=0x0050, text=» CALL T:DADD GET T:D ADDRESS TO A12 «, t00=0x00f8, t01=0x00c4}
0x18444…1847c               Head {h00=0x0034, h01=0x0050, text=» ST A12,T:DSAV,A9 SAVE 'OLD' T:D-ADDRESS IN TTAB«, t00=0x00f8, t01=0x00f0}
0x1847c…18484               Head {h00=0x0004, h01=0x0050, t00=0x00f8, t01=0x0128}
0x18484…184a6               Head {h00=0x001e, h01=0x0050, text=»* CALCULATE LENGTH OF T:D «, t00=0x00f8, t01=0x0130}
0x184a6…184ae               Head {h00=0x0004, h01=0x0050, t00=0x00f8, t01=0x0152}
0x184ae…184e4               Head {h00=0x0032, h01=0x0050, text=» EL A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB«, t00=0x00f8, t01=0x015a}
0x184e4…184f6               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x00f8, t01=0x0190}
0x184f6…1851a               Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFE EVEN ADDRESS «, t00=0x00f9, t01=0x0012}
0x1851a…18546               Head {h00=0x0028, h01=0x0050, text=» ADK A1,DWBFST+4 ADD DISPL. TO FIRST«, t00=0x00f9, t01=0x0036}
0x18546…18576               Head {h00=0x002c, h01=0x0050, text=» LDR A3,A1 GET NUMB. OF START-POINTS... «, t00=0x00f9, t01=0x0062}
0x18576…1858c               Head {h00=0x0012, h01=0x0050, text=» ADR A3,A12 . «, t00=0x00f9, t01=0x0092}
0x1858c…185a0               Head {h00=0x0010, h01=0x0050, text=» ELR A3,A3 .«, t00=0x00f9, t01=0x00a8}
0x185a0…185d4               Head {h00=0x0030, h01=0x0050, text=» LDK A2,STPREC GET STARTPOINTS RECORD LENGTH«, t00=0x00f9, t01=0x00bc}
0x185d4…185f4               Head {h00=0x001c, h01=0x0050, text=» CALL MULT AND MULTIPLY «, t00=0x00f9, t01=0x00f0}
0x185f4…18614               Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 'NUMBER-WORD' «, t00=0x00f9, t01=0x0110}
0x18614…18630               Head {h00=0x0018, h01=0x0050, text=» ADR A3,A1 =>LENGTH «, t00=0x00f9, t01=0x0130}
0x18630…18650               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A12 FROM-ADDRESS«, t00=0x00f9, t01=0x014c}
0x18650…1866e               Head {h00=0x001a, h01=0x0050, text=» CALL MOVING MOVE T:D «, t00=0x00f9, t01=0x016c}
0x1866e…18690               Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A ADDRESS«, t00=0x00f9, t01=0x018a}
0x18690…186be               Head {h00=0x002a, h01=0x0050, text=» ES A2,T:DAD,A1 ESORE NEW T:D ADDRESS «, t00=0x00fa, t01=0x001c}
0x186be…186e4               Head {h00=0x0022, h01=0x0050, text=» EL A7,CWBMSK,A12 GET CWBMASK «, t00=0x00fa, t01=0x004a}
0x186e4…186f0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00fa, t01=0x0070}
0x186f0…18706               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00fa, t01=0x007c}
0x18706…1871a               Head {h00=0x0010, h01=0x0050, text=» CALL MOVCLA«, t00=0x00fa, t01=0x0092}
0x1871a…18728               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fa, t01=0x00a6}
0x18728…18734               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00fa, t01=0x00b4}
0x18734…18740               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00fa, t01=0x00c0}
0x18740…18762               Head {h00=0x001e, h01=0x0050, text=»* TASK CLASS DATA UWB'S * «, t00=0x00fa, t01=0x00cc}
0x18762…18784               Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x00fa, t01=0x00ee}
0x18784…187ae               Head {h00=0x0026, h01=0x0050, text=» IM UWB,A13 INDICATE UWB SCANNING «, t00=0x00fa, t01=0x0110}
0x187ae…187ca               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00fa, t01=0x013a}
0x187ca…187f0               Head {h00=0x0022, h01=0x0050, text=» LD A7,UWBMSK,A12 GET UWBMASK «, t00=0x00fa, t01=0x0156}
0x187f0…187fc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00fa, t01=0x017c}
0x187fc…18818               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00fa, t01=0x0188}
0x18818…18832               Head {h00=0x0016, h01=0x0050, text=» EL A7,UWBMSK,A12 «, t00=0x00fb, t01=0x0014}
0x18832…1883e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00fb, t01=0x002e}
0x1883e…18854               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00fb, t01=0x003a}
0x18854…18868               Head {h00=0x0010, h01=0x0050, text=» CALL MOVCLA«, t00=0x00fb, t01=0x0050}
0x18868…18876               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fb, t01=0x0064}
0x18876…18882               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00fb, t01=0x0072}
0x18882…1888e               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00fb, t01=0x007e}
0x1888e…188b4               Head {h00=0x0022, h01=0x0050, text=»* MOVE DT:S OF SWB'S & TWB'S *«, t00=0x00fb, t01=0x008a}
0x188b4…188da               Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x00fb, t01=0x00b0}
0x188da…188e2               Head {h00=0x0004, h01=0x0050, t00=0x00fb, t01=0x00d6}
0x188e2…188f6               Head {h00=0x0010, h01=0x0050, text=»SYA260 EQU *«, t00=0x00fb, t01=0x00de}
0x188f6…18912               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00fb, t01=0x00f2}
0x18912…1892c               Head {h00=0x0016, h01=0x0050, text=» LD A7,SWBMSK,A12 «, t00=0x00fb, t01=0x010e}
0x1892c…18946               Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYA265 NONE«, t00=0x00fb, t01=0x0128}
0x18946…1895a               Head {h00=0x0010, h01=0x0050, text=» CALL SKRITT«, t00=0x00fb, t01=0x0142}
0x1895a…1897a               Head {h00=0x001c, h01=0x0050, text=»SYA265 LD A7,TWBMSK,A12 «, t00=0x00fb, t01=0x0156}
0x1897a…18986               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00fb, t01=0x0176}
0x18986…189a2               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00fb, t01=0x0182}
0x189a2…189bc               Head {h00=0x0016, h01=0x0050, text=» EL A7,SWBMSK,A12 «, t00=0x00fc, t01=0x000e}
0x189bc…189d6               Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYA265 NONE«, t00=0x00fc, t01=0x0028}
0x189d6…189ea               Head {h00=0x0010, h01=0x0050, text=» CALL SKRITT«, t00=0x00fc, t01=0x0042}
0x189ea…18a0a               Head {h00=0x001c, h01=0x0050, text=»SYA265 EL A7,TWBMSK,A12 «, t00=0x00fc, t01=0x0056}
0x18a0a…18a16               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00fc, t01=0x0076}
0x18a16…18a2c               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00fc, t01=0x0082}
0x18a2c…18a42               Head {h00=0x0012, h01=0x0050, text=» RB(Z) SYA250 «, t00=0x00fc, t01=0x0098}
0x18a42…18a56               Head {h00=0x0010, h01=0x0050, text=» CALL SKRITT«, t00=0x00fc, t01=0x00ae}
0x18a56…18a68               Head {h00=0x000e, h01=0x0050, text=» RB SYA250«, t00=0x00fc, t01=0x00c2}
0x18a68…18a74               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00fc, t01=0x00d4}
0x18a74…18a8c               Head {h00=0x0014, h01=0x0050, text=»SYA270 RF PRODAT«, t00=0x00fc, t01=0x00e0}
0x18a8c…18a9a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fc, t01=0x00f8}
0x18a9a…18aa6               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00fc, t01=0x0106}
0x18aa6…18ab2               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00fc, t01=0x0112}
0x18ab2…18aea               Head {h00=0x0034, h01=0x0050, text=»**              S K R I T T                  ** «, t00=0x00fc, t01=0x011e}
0x18aea…18b22               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x00fc, t01=0x0156}
0x18b22…18b5a               Head {h00=0x0034, h01=0x0050, text=»**  MOVE D.T                                 ** «, t00=0x00fc, t01=0x018e}
0x18b5a…18b92               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x00fd, t01=0x0036}
0x18b92…18bca               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00fd, t01=0x006e}
0x18bca…18bde               Head {h00=0x0010, h01=0x0050, text=»SKRITT EQU *«, t00=0x00fd, t01=0x00a6}
0x18bde…18bf2               Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x00fd, t01=0x00ba}
0x18bf2…18c08               Head {h00=0x0012, h01=0x0050, text=»NO RF(NZ) NES «, t00=0x00fd, t01=0x00ce}
0x18c08…18c18               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00fd, t01=0x00e4}
0x18c18…18c2e               Head {h00=0x0012, h01=0x0050, text=»NES CALL GETWB«, t00=0x00fd, t01=0x00f4}
0x18c2e…18c42               Head {h00=0x0010, h01=0x0050, text=» CALL MOVDT «, t00=0x00fd, t01=0x010a}
0x18c42…18c74               Head {h00=0x002e, h01=0x0050, text=» CM NEWAD2,A13 NO NEW W.B.-ADDRESS (YET!) «, t00=0x00fd, t01=0x011e}
0x18c74…18c88               Head {h00=0x0010, h01=0x0050, text=» CALL MOVDWB«, t00=0x00fd, t01=0x0150}
0x18c88…18c9c               Head {h00=0x0010, h01=0x0050, text=» CALL SKIFTA«, t00=0x00fd, t01=0x0164}
0x18c9c…18caa               Head {h00=0x000a, h01=0x0050, text=» RB NO«, t00=0x00fd, t01=0x0178}
0x18caa…18cb8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fd, t01=0x0186}
0x18cb8…18cc4 (254, 0, 400) Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00fe, t01=0x0004}
0x18cc4…18cee               Head {h00=0x0026, h01=0x0050, text=»* BUILD TASKDATA PROTOTYPE AREA * «, t00=0x00fe, t01=0x0010}
0x18cee…18d18               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x00fe, t01=0x003a}
0x18d18…18d2c               Head {h00=0x0010, h01=0x0050, text=»PRODAT EQU *«, t00=0x00fe, t01=0x0064}
0x18d2c…18d3e               Head {h00=0x000e, h01=0x0050, text=»    =00001«, t00=0x00fe, t01=0x0078}
0x18d3e…18d6e               Head {h00=0x002c, h01=0x0050, text=» LD A1,SAVE02,A13 BUGGER TASK INCLUDED? «, t00=0x00fe, t01=0x008a}
0x18d6e…18d88               Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYA275 NO! «, t00=0x00fe, t01=0x00ba}
0x18d88…18dbe               Head {h00=0x0032, h01=0x0050, text=» CALL GETTTB GET TTAB ADDRESS. TID 'TB' IN A1 «, t00=0x00fe, t01=0x00d4}
0x18dbe…18de8               Head {h00=0x0026, h01=0x0050, text=» CM TTB:PP,A2 CLEAR TCL SAVE AREA «, t00=0x00fe, t01=0x010a}
0x18de8…18e0c               Head {h00=0x0020, h01=0x0050, text=» LDR A8,A2 SAVE TTAB-ADDRESS«, t00=0x00fe, t01=0x0134}
0x18e0c…18e18               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00fe, t01=0x0158}
0x18e18…18e34               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00fe, t01=0x0164}
0x18e34…18e58               Head {h00=0x0020, h01=0x0050, text=» CALL MOVMMT MOVE MMU TABLE «, t00=0x00fe, t01=0x0180}
0x18e58…18e64               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ff, t01=0x0014}
0x18e64…18e7a               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00ff, t01=0x0020}
0x18e7a…18eaa               Head {h00=0x002c, h01=0x0050, text=» LDK A3,2 RESERV ONE WORD FOR TRABUG-T:A«, t00=0x00ff, t01=0x0036}
0x18eaa…18ec8               Head {h00=0x001a, h01=0x0050, text=» CALL MOVING GET P:BAS«, t00=0x00ff, t01=0x0066}
0x18ec8…18ee4               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00ff, t01=0x0084}
0x18ee4…18f0e               Head {h00=0x0026, h01=0x0050, text=» LD A1,SCTLAC GET START OF P:MTAB «, t00=0x00ff, t01=0x00a0}
0x18f0e…18f30               Head {h00=0x001e, h01=0x0050, text=» LD A1,P:BAS,A1 GET P:BAS «, t00=0x00ff, t01=0x00ca}
0x18f30…18f58               Head {h00=0x0024, h01=0x0050, text=» STR A1,A2 SAVE IN TRABUG'S T:A «, t00=0x00ff, t01=0x00ec}
0x18f58…18f7e               Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00ff, t01=0x0114}
0x18f7e…18f9c               Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 DISC PAGING?«, t00=0x00ff, t01=0x013a}
0x18f9c…18fb4               Head {h00=0x0014, h01=0x0050, text=» RF(Z) SYA272 NO«, t00=0x00ff, t01=0x0158}
0x18fb4…18fc0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ff, t01=0x0170}
0x18fc0…18fd6               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00ff, t01=0x017c}
0x18fd6…1900a (256, 0, 398) Head {h00=0x0030, h01=0x0050, text=» ST A2,TTB:CB,A8 SAVE ADDRESS TO CSB-POINTER«, t00=0x0100, t01=0x0004}
0x1900a…1901e               Head {h00=0x0010, h01=0x0050, text=»SYA272 EQU *«, t00=0x0100, t01=0x0038}
0x1901e…19054               Head {h00=0x0032, h01=0x0050, text=» SUKL A2,CSB ADD DISPL. TO CURRENT SEGMENT BAE«, t00=0x0100, t01=0x004c}
0x19054…19078               Head {h00=0x0020, h01=0x0050, text=» ST A2,TTB:SA+26,A8 SAVE A13«, t00=0x0100, t01=0x0082}
0x19078…19094               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0100, t01=0x00a6}
0x19094…190be               Head {h00=0x0026, h01=0x0050, text=» LD A1,SCTLAC GET START OF P:MTAB «, t00=0x0100, t01=0x00c2}
0x190be…190e6               Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 LOAD CORRECT TABLE«, t00=0x0100, t01=0x00ec}
0x190e6…19108               Head {h00=0x001e, h01=0x0050, text=» EL A1,P:BAS,A1 GET P:BAS «, t00=0x0100, t01=0x0114}
0x19108…19134               Head {h00=0x0028, h01=0x0050, text=» TL MMBEG,A8 LOAD TRABUG'S MMU-TABLE«, t00=0x0100, t01=0x0136}
0x19134…19164               Head {h00=0x002c, h01=0x0050, text=» ES A1,CSB,A2 STORE CURRENT SEGMENT BASE«, t00=0x0100, t01=0x0162}
0x19164…1918e (257, 0, 400) Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD DDIV TABLE «, t00=0x0101, t01=0x0004}
0x1918e…191a4               Head {h00=0x0012, h01=0x0050, text=» XIF   =00001 «, t00=0x0101, t01=0x002e}
0x191a4…191c2               Head {h00=0x001a, h01=0x0050, text=» IFF CREDIT=0  =00001 «, t00=0x0101, t01=0x0044}
0x191c2…191d6               Head {h00=0x0010, h01=0x0050, text=»SYA275 EQU *«, t00=0x0101, t01=0x0062}
0x191d6…191e8               Head {h00=0x000e, h01=0x0050, text=»    =00001«, t00=0x0101, t01=0x0076}
0x191e8…191fa               Head {h00=0x000e, h01=0x0050, text=»    =00001«, t00=0x0101, t01=0x0088}
0x191fa…1922e               Head {h00=0x0030, h01=0x0050, text=» IM SWITCH,A13 INDICATE: -NO MORE D.T. MOVE!«, t00=0x0101, t01=0x009a}
0x1922e…19256               Head {h00=0x0024, h01=0x0050, text=» LD A8,T:ATOD,A13 T:ATAB ADDRESS«, t00=0x0101, t01=0x00ce}
0x19256…1926e               Head {h00=0x0014, h01=0x0050, text=»SYA280 ADKL A8,2«, t00=0x0101, t01=0x00f6}
0x1926e…19288               Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x0101, t01=0x010e}
0x19288…192a6               Head {h00=0x001a, h01=0x0050, text=» RF(E) SYA290 ALL DONE«, t00=0x0101, t01=0x0128}
0x192a6…192c2               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0101, t01=0x0146}
0x192c2…192e8               Head {h00=0x0022, h01=0x0050, text=» LDR* A12,A8 GET T:D ADDRESS..«, t00=0x0101, t01=0x0162}
0x192e8…19304               Head {h00=0x0018, h01=0x0050, text=» LD A12,T:DAD,A12 . «, t00=0x0101, t01=0x0188}
0x19304…19338               Head {h00=0x0030, h01=0x0050, text=» CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S «, t00=0x0102, t01=0x0014}
0x19338…19344               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0102, t01=0x0048}
0x19344…1936a               Head {h00=0x0022, h01=0x0050, text=»* CALCULATE LENGTH OF DSCB'S *«, t00=0x0102, t01=0x0054}
0x1936a…19390               Head {h00=0x0022, h01=0x0050, text=»***                        ***«, t00=0x0102, t01=0x007a}
0x19390…1939c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0102, t01=0x00a0}
0x1939c…193c0               Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A-ADDRESS «, t00=0x0102, t01=0x00ac}
0x193c0…193ea               Head {h00=0x0026, h01=0x0050, text=» LD A3,DATLEN,A12 A12=T:D-ADDRESS «, t00=0x0102, t01=0x00d0}
0x193ea…1940c               Head {h00=0x001e, h01=0x0050, text=» LDK A2,DSCBL DSCB-LENGTH «, t00=0x0102, t01=0x00fa}
0x1940c…19438               Head {h00=0x0028, h01=0x0050, text=» CALL MULT A3() X (A2) RESULT IN A3 «, t00=0x0102, t01=0x011c}
0x19438…19462               Head {h00=0x0026, h01=0x0050, text=» ST A3,CSN,A1 SAVE LENG OF DSCB'S «, t00=0x0102, t01=0x0148}
0x19462…1948e               Head {h00=0x0028, h01=0x0050, text=» LD A2,FCD,A12 GET FCB-DISPLACEMENT «, t00=0x0102, t01=0x0172}
0x1948e…194b0               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) SYA285 FCB PRESENT«, t00=0x0103, t01=0x000e}
0x194b0…194da               Head {h00=0x0026, h01=0x0050, text=» SUR A2,A3 MOVD30E A3(DSCB-LENGTH)«, t00=0x0103, t01=0x0030}
0x194da…1950a               Head {h00=0x002c, h01=0x0050, text=» ADKL A2,T:ASTA INCREMENT TO FIRST WORD «, t00=0x0103, t01=0x005a}
0x1950a…19544               Head {h00=0x0036, h01=0x0050, text=»SYA285 ST A2,CIA,A1 SAVE DISPLACEMENT TO T:A-START«, t00=0x0103, t01=0x008a}
0x19544…1956a               Head {h00=0x0022, h01=0x0050, text=» LD A2,STKB,A1 GET STACK SIZE «, t00=0x0103, t01=0x00c4}
0x1956a…19592               Head {h00=0x0024, h01=0x0050, text=» ST A2,CSE,A1 AND SAVE TEMPORARY«, t00=0x0103, t01=0x00ea}
0x19592…195c0               Head {h00=0x002a, h01=0x0050, text=» LD A2,SCTLAC GET START OF COMMON PART«, t00=0x0103, t01=0x0112}
0x195c0…195e2               Head {h00=0x001e, h01=0x0050, text=» LD A2,P:BAS,A2 GET P:BAS «, t00=0x0103, t01=0x0140}
0x195e2…19600               Head {h00=0x001a, h01=0x0050, text=» ST A2,CSB,A1 AND SAVE«, t00=0x0103, t01=0x0162}
0x19600…19626               Head {h00=0x0022, h01=0x0050, text=» CALL ALLBUF ALLOCATE BUFFERS «, t00=0x0103, t01=0x0180}
0x19626…19644               Head {h00=0x001a, h01=0x0050, text=» CALL MOVT:A MOVE T:A «, t00=0x0104, t01=0x0016}
0x19644…19672               Head {h00=0x002a, h01=0x0050, text=» STR A2,A8 STORE NEW ADDRESS IN T:ATAB«, t00=0x0104, t01=0x0034}
0x19672…1967e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0104, t01=0x0062}
0x1967e…1969a               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0104, t01=0x006e}
0x1969a…196c8               Head {h00=0x002a, h01=0x0050, text=» CALL GETTAB SET CORRECT TTAB-ADDRESS «, t00=0x0104, t01=0x008a}
0x196c8…196f8               Head {h00=0x002c, h01=0x0050, text=» LD A12,T:DSAV,A2 GET 'OLD' T:D-ADDRESS «, t00=0x0104, t01=0x00b8}
0x196f8…19700               Head {h00=0x0004, h01=0x0050, t00=0x0104, t01=0x00e8}
0x19700…19736               Head {h00=0x0032, h01=0x0050, text=»* GET LAST USED ENTRY IN CLASS-LOCAL MM-TABLE «, t00=0x0104, t01=0x00f0}
0x19736…1973e               Head {h00=0x0004, h01=0x0050, t00=0x0104, t01=0x0126}
0x1973e…1976a               Head {h00=0x0028, h01=0x0050, text=» TL MMBEG,A2 LOAD CLASS LOCAL TABLE «, t00=0x0104, t01=0x012e}
0x1976a…19798               Head {h00=0x002a, h01=0x0050, text=» LDKL A3,MMTAB GET WORK TABLE ADDRESS «, t00=0x0104, t01=0x015a}
0x19798…197ac               Head {h00=0x0010, h01=0x0050, text=» ADR A3,A13 «, t00=0x0104, t01=0x0188}
0x197ac…197d4               Head {h00=0x0024, h01=0x0050, text=» TSR A3 STORE TABLE IN WORK-AREA«, t00=0x0105, t01=0x000c}
0x197d4…197fc               Head {h00=0x0024, h01=0x0050, text=» TL MMDDIV,A13 RELOAD DDIV TABLE«, t00=0x0105, t01=0x0034}
0x197fc…1981a               Head {h00=0x001a, h01=0x0050, text=» CALL MMENT GET ENTRY «, t00=0x0105, t01=0x005c}
0x1981a…19840               Head {h00=0x0022, h01=0x0050, text=» ST A3,T:DSAV,A2 SAVE IN TTAB «, t00=0x0105, t01=0x007a}
0x19840…19874               Head {h00=0x0030, h01=0x0050, text=» CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S «, t00=0x0105, t01=0x00a0}
0x19874…1989a               Head {h00=0x0022, h01=0x0050, text=»* CALCULATE LENGTH OF DSCB'S *«, t00=0x0105, t01=0x00d4}
0x1989a…198c0               Head {h00=0x0022, h01=0x0050, text=»***                        ***«, t00=0x0105, t01=0x00fa}
0x198c0…198cc               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0105, t01=0x0120}
0x198cc…198ee               Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A-ADDRESS«, t00=0x0105, t01=0x012c}
0x198ee…19918               Head {h00=0x0026, h01=0x0050, text=» EL A3,DATLEN,A12 A12=T:D-ADDRESS «, t00=0x0105, t01=0x014e}
0x19918…1993a               Head {h00=0x001e, h01=0x0050, text=» LDK A2,DSCBL DSCB-LENGTH «, t00=0x0105, t01=0x0178}
0x1993a…19966               Head {h00=0x0028, h01=0x0050, text=» CALL MULT A3() X (A2) RESULT IN A3 «, t00=0x0106, t01=0x000a}
0x19966…19990               Head {h00=0x0026, h01=0x0050, text=» ES A3,CSN,A1 SAVE LENG OF DSCB'S «, t00=0x0106, t01=0x0036}
0x19990…199bc               Head {h00=0x0028, h01=0x0050, text=» EL A2,FCD,A12 GET FCB-DISPLACEMENT «, t00=0x0106, t01=0x0060}
0x199bc…199de               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) SYA285 FCB PRESENT«, t00=0x0106, t01=0x008c}
0x199de…19a08               Head {h00=0x0026, h01=0x0050, text=» SUR A2,A3 MOVD30E A3(DSCB-LENGTH)«, t00=0x0106, t01=0x00ae}
0x19a08…19a38               Head {h00=0x002c, h01=0x0050, text=» ADKL A2,T:ASTA INCREMENT TO FIRST WORD «, t00=0x0106, t01=0x00d8}
0x19a38…19a72               Head {h00=0x0036, h01=0x0050, text=»SYA285 ES A2,CIA,A1 SAVE DISPLACEMENT TO T:A-ESART«, t00=0x0106, t01=0x0108}
0x19a72…19a98               Head {h00=0x0022, h01=0x0050, text=» EL A2,STKB,A1 GET STACK SIZE «, t00=0x0106, t01=0x0142}
0x19a98…19ac2               Head {h00=0x0026, h01=0x0050, text=» ES A2,CSE,A1 AND SAVE (TEMPORARY)«, t00=0x0106, t01=0x0168}
0x19ac2…19aec (263, 0, 400) Head {h00=0x0026, h01=0x0050, text=» LD A2,SCTLAC GET START OF P:MTAB «, t00=0x0107, t01=0x0004}
0x19aec…19b14               Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 LOAD CORRECT TABLE«, t00=0x0107, t01=0x002e}
0x19b14…19b36               Head {h00=0x001e, h01=0x0050, text=» EL A2,P:BAS,A2 GET P:BAS «, t00=0x0107, t01=0x0056}
0x19b36…19b60               Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD DDIV TABLE «, t00=0x0107, t01=0x0078}
0x19b60…19b7e               Head {h00=0x001a, h01=0x0050, text=» ES A2,CSB,A1 AND SAVE«, t00=0x0107, t01=0x00a2}
0x19b7e…19ba4               Head {h00=0x0022, h01=0x0050, text=» CALL ALLBUF ALLOCATE BUFFERS «, t00=0x0107, t01=0x00c0}
0x19ba4…19bc2               Head {h00=0x001a, h01=0x0050, text=» CALL MOVT:A MOVE T:A «, t00=0x0107, t01=0x00e6}
0x19bc2…19bf0               Head {h00=0x002a, h01=0x0050, text=» ESR A2,A8 STORE NEW ADDRESS IN T:ATAB«, t00=0x0107, t01=0x0104}
0x19bf0…19bfc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0107, t01=0x0132}
0x19bfc…19c12               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0107, t01=0x013e}
0x19c12…19c2a               Head {h00=0x0014, h01=0x0050, text=» RB SYA280 NEXT «, t00=0x0107, t01=0x0154}
0x19c2a…19c38               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0107, t01=0x016c}
0x19c38…19c4c               Head {h00=0x0010, h01=0x0050, text=»SYA290 EQU *«, t00=0x0107, t01=0x017a}
0x19c4c…19c84               Head {h00=0x0034, h01=0x0050, text=» IM FLAG,A13 INDICATE REAL DATA-PART PROCESSING «, t00=0x0107, t01=0x018e}
0x19c84…19cb4               Head {h00=0x002c, h01=0x0050, text=»* INCLUDE DDIV AND PART 2.A IN FREE AREA«, t00=0x0108, t01=0x0036}
0x19cb4…19cbc               Head {h00=0x0004, h01=0x0050, t00=0x0108, t01=0x0066}
0x19cbc…19cee               Head {h00=0x002e, h01=0x0050, text=» LDKL A2,PART2A NEW (RELATIVE) END ADDRESS«, t00=0x0108, t01=0x006e}
0x19cee…19d0e               Head {h00=0x001c, h01=0x0050, text=» ADR A2,A13 ABSOLUT DITO«, t00=0x0108, t01=0x00a0}
0x19d0e…19d2a               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0108, t01=0x00c0}
0x19d2a…19d3c               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0108, t01=0x00dc}
0x19d3c…19d52               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/F000«, t00=0x0108, t01=0x00ee}
0x19d52…19d7a               Head {h00=0x0024, h01=0x0050, text=» SRL A3,2 GET NEW PHYSICALL PAGE«, t00=0x0108, t01=0x0104}
0x19d7a…19d98               Head {h00=0x001a, h01=0x0050, text=» ST A3,FSTPAG,A13 SAVE«, t00=0x0108, t01=0x012c}
0x19d98…19dc4               Head {h00=0x0028, h01=0x0050, text=» ANKL A2,/FFF GET NEW PAGE INCREMENT«, t00=0x0108, t01=0x014a}
0x19dc4…19de2               Head {h00=0x001a, h01=0x0050, text=» ST A2,FSTADR,A13 SAVE«, t00=0x0108, t01=0x0176}
0x19de2…19df8 (265, 0, 400) Head {h00=0x0012, h01=0x0050, text=»* MOVE T:ATAB «, t00=0x0109, t01=0x0004}
0x19df8…19e00               Head {h00=0x0004, h01=0x0050, t00=0x0109, t01=0x001a}
0x19e00…19e2e               Head {h00=0x002a, h01=0x0050, text=» LD A2,T:ATNW,A13 GET REAL T:A-ADDRESS«, t00=0x0109, t01=0x0022}
0x19e2e…19e3a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0109, t01=0x0050}
0x19e3a…19e56               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0109, t01=0x005c}
0x19e56…19e84               Head {h00=0x002a, h01=0x0050, text=» ST A2,DATEND,A13 SAVE NEW END ADDRESS«, t00=0x0109, t01=0x0078}
0x19e84…19e9a               Head {h00=0x0012, h01=0x0050, text=»* MOVE T:ATAB «, t00=0x0109, t01=0x00a6}
0x19e9a…19ea2               Head {h00=0x0004, h01=0x0050, t00=0x0109, t01=0x00bc}
0x19ea2…19ed4               Head {h00=0x002e, h01=0x0050, text=» LD A2,T:ATNW,A13 GET REAL T:A-TAB ADDRESS«, t00=0x0109, t01=0x00c4}
0x19ed4…19ef4               Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A2 REAL LENGTH «, t00=0x0109, t01=0x00f6}
0x19ef4…19f1c               Head {h00=0x0024, h01=0x0050, text=» ADR A2,A1 END OF TABLE ADDRESS «, t00=0x0109, t01=0x0116}
0x19f1c…19f3a               Head {h00=0x001a, h01=0x0050, text=» ST A2,ENDADD,A13 SAVE«, t00=0x0109, t01=0x013e}
0x19f3a…19f64               Head {h00=0x0026, h01=0x0050, text=» LD A1,T:ATOD,A13 GET FROM-ADDRESS«, t00=0x0109, t01=0x015c}
0x19f64…19f84               Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A1 MOVE-LENGTH «, t00=0x0109, t01=0x0186}
0x19f84…19fa2               Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x010a, t01=0x0016}
0x19fa2…19fc0               Head {h00=0x001a, h01=0x0050, text=» ST A2,T:ATOD,A13 SAVE«, t00=0x010a, t01=0x0034}
0x19fc0…19fd2               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x010a, t01=0x0052}
0x19fd2…19fde               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x010a, t01=0x0064}
0x19fde…19ffa               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x010a, t01=0x0070}
0x19ffa…1a022               Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 LOAD CORRECT TABLE«, t00=0x010a, t01=0x008c}
0x1a022…1a04c               Head {h00=0x0026, h01=0x0050, text=» ELR A1,A2 GET REAL T:ATAB LENGTH «, t00=0x010a, t01=0x00b4}
0x1a04c…1a070               Head {h00=0x0020, h01=0x0050, text=» TL* MMFROM,A13 RELOAD TABLE«, t00=0x010a, t01=0x00de}
0x1a070…1a08e               Head {h00=0x001a, h01=0x0050, text=» ADR A2,A1 END ADDRESS«, t00=0x010a, t01=0x0102}
0x1a08e…1a0c6               Head {h00=0x0034, h01=0x0050, text=» ST A2,ENDADD,A13 SAVE 'END-OF-T:ATAB-CONDITION'«, t00=0x010a, t01=0x0120}
0x1a0c6…1a0f4               Head {h00=0x002a, h01=0x0050, text=» LD A1,T:ATOD,A13 GET PROTOTYP T:ATAB «, t00=0x010a, t01=0x0158}
0x1a0f4…1a112               Head {h00=0x001a, h01=0x0050, text=» ELR A3,A1 GET LENGTH «, t00=0x010a, t01=0x0186}
0x1a112…1a130               Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x010b, t01=0x0014}
0x1a130…1a14e               Head {h00=0x001a, h01=0x0050, text=» ST A2,T:ATOD,A13 SAVE«, t00=0x010b, t01=0x0032}
0x1a14e…1a162               Head {h00=0x0010, h01=0x0050, text=» CALL XMOVE «, t00=0x010b, t01=0x0050}
0x1a162…1a16e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x010b, t01=0x0064}
0x1a16e…1a184               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x010b, t01=0x0070}
0x1a184…1a18c               Head {h00=0x0004, h01=0x0050, t00=0x010b, t01=0x0086}
0x1a18c…1a1ac               Head {h00=0x001c, h01=0x0050, text=»* CONTINUE IN PART 2.B *«, t00=0x010b, t01=0x008e}
0x1a1ac…1a1b4               Head {h00=0x0004, h01=0x0050, t00=0x010b, t01=0x00ae}
0x1a1b4…1a1e2               Head {h00=0x002a, h01=0x0050, text=» LDKL A5,PART2B RELATIVE START ADDRESS«, t00=0x010b, t01=0x00b6}
0x1a1e2…1a206               Head {h00=0x0020, h01=0x0050, text=» ADR A5,A13 ADD BASE ADDRESS«, t00=0x010b, t01=0x00e4}
0x1a206…1a216               Head {h00=0x000c, h01=0x0050, text=» ABR A5 «, t00=0x010b, t01=0x0108}
0x1a216…1a240               Head {h00=0x0026, h01=0x0050, text=»LENGT2 EQU *-REL LENGTH OF PART 2 «, t00=0x010b, t01=0x0118}
0x1a240…1a24e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010b, t01=0x0142}
0x1a24e…1a25a               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x010b, t01=0x0150}
0x1a25a…1a266               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x010b, t01=0x015c}
0x1a266…1a29c               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x010b, t01=0x0168}
0x1a29c…1a2d2               Head {h00=0x0032, h01=0x0050, text=»*******                               ******* «, t00=0x010c, t01=0x000e}
0x1a2d2…1a308               Head {h00=0x0032, h01=0x0050, text=»**                                         ** «, t00=0x010c, t01=0x0044}
0x1a308…1a33e               Head {h00=0x0032, h01=0x0050, text=»*            SYSLOAD PART 1                 * «, t00=0x010c, t01=0x007a}
0x1a33e…1a374               Head {h00=0x0032, h01=0x0050, text=»**                                         ** «, t00=0x010c, t01=0x00b0}
0x1a374…1a3aa               Head {h00=0x0032, h01=0x0050, text=»*****                                   ***** «, t00=0x010c, t01=0x00e6}
0x1a3aa…1a3e0               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x010c, t01=0x011c}
0x1a3e0…1a3ec               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x010c, t01=0x0152}
0x1a3ec…1a422               Head {h00=0x0032, h01=0x0050, text=»*   READ CONFIGURATION FILE & BUILD         * «, t00=0x010c, t01=0x015e}
0x1a422…1a458 (269, 0, 400) Head {h00=0x0032, h01=0x0050, text=»*   SHADOW-TABLES                           * «, t00=0x010d, t01=0x0004}
0x1a458…1a48e               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x010d, t01=0x003a}
0x1a48e…1a4c4               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x010d, t01=0x0070}
0x1a4c4…1a4d0               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x010d, t01=0x00a6}
0x1a4d0…1a4dc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x010d, t01=0x00b2}
0x1a4dc…1a4e8               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x010d, t01=0x00be}
0x1a4e8…1a4f4               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x010d, t01=0x00ca}
0x1a4f4…1a522               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x010d, t01=0x00d6}
0x1a522…1a550               Head {h00=0x002a, h01=0x0050, text=»***                               *** «, t00=0x010d, t01=0x0104}
0x1a550…1a57e               Head {h00=0x002a, h01=0x0050, text=»**     S U B R O U T I N E S       ** «, t00=0x010d, t01=0x0132}
0x1a57e…1a5aa               Head {h00=0x0028, h01=0x0050, text=»**  -USED IN THIS PART ONLY        *«, t00=0x010d, t01=0x0160}
0x1a5aa…1a5d8               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x010d, t01=0x018c}
0x1a5d8…1a5e6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010e, t01=0x002a}
0x1a5e6…1a5f2               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x010e, t01=0x0038}
0x1a5f2…1a5fe               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x010e, t01=0x0044}
0x1a5fe…1a638               Head {h00=0x0036, h01=0x0050, text=»**                  C O N V R T                 **«, t00=0x010e, t01=0x0050}
0x1a638…1a672               Head {h00=0x0036, h01=0x0050, text=»**                                              **«, t00=0x010e, t01=0x008a}
0x1a672…1a6ac               Head {h00=0x0036, h01=0x0050, text=»**                                              **«, t00=0x010e, t01=0x00c4}
0x1a6ac…1a6e6               Head {h00=0x0036, h01=0x0050, text=»**  CONVERSION OF TWO ASCII-DIGITS TO BINARY    **«, t00=0x010e, t01=0x00fe}
0x1a6e6…1a720               Head {h00=0x0036, h01=0x0050, text=»**                                              **«, t00=0x010e, t01=0x0138}
0x1a720…1a75a               Head {h00=0x0036, h01=0x0050, text=»**  INPUT : A5=ASCII DIGITS                     **«, t00=0x010e, t01=0x0172}
0x1a75a…1a794               Head {h00=0x0036, h01=0x0050, text=»**  OUTPUT: A1=BINARY RESULT                    **«, t00=0x010f, t01=0x001c}
0x1a794…1a7ce               Head {h00=0x0036, h01=0x0050, text=»**  WORK.REGS: A3,A2                            **«, t00=0x010f, t01=0x0056}
0x1a7ce…1a808               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x010f, t01=0x0090}
0x1a808…1a814               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x010f, t01=0x00ca}
0x1a814…1a828               Head {h00=0x0010, h01=0x0050, text=»CONVRT EQU *«, t00=0x010f, t01=0x00d6}
0x1a828…1a84a               Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 CLEAR RESULT REG«, t00=0x010f, t01=0x00ea}
0x1a84a…1a85c               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x010f, t01=0x010c}
0x1a85c…1a878               Head {h00=0x0018, h01=0x0050, text=» SRL A3,8 GET TEN'S «, t00=0x010f, t01=0x011e}
0x1a878…1a88c               Head {h00=0x0010, h01=0x0050, text=» SUK A3,/30 «, t00=0x010f, t01=0x013a}
0x1a88c…1a89e               Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x010f, t01=0x014e}
0x1a89e…1a8bc               Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 MULT BY 10 «, t00=0x010f, t01=0x0160}
0x1a8bc…1a8d0               Head {h00=0x0010, h01=0x0050, text=» ADR A1,A1 .«, t00=0x010f, t01=0x017e}
0x1a8d0…1a8e4 (272, 0, 400) Head {h00=0x0010, h01=0x0050, text=» SLL A2,3 . «, t00=0x0110, t01=0x0004}
0x1a8e4…1a8fc               Head {h00=0x0014, h01=0x0050, text=» ADR A1,A2 .... «, t00=0x0110, t01=0x0018}
0x1a8fc…1a90e               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x0110, t01=0x0030}
0x1a90e…1a92a               Head {h00=0x0018, h01=0x0050, text=» ANK A3,/F GET ONE'S«, t00=0x0110, t01=0x0042}
0x1a92a…1a93c               Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x0110, t01=0x005e}
0x1a93c…1a94c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0110, t01=0x0070}
0x1a94c…1a95a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0110, t01=0x0080}
0x1a95a…1a962               Head {h00=0x0004, h01=0x0050, t00=0x0110, t01=0x008e}
0x1a962…1a99c               Head {h00=0x0036, h01=0x0050, text=»**                  N X T B L K                 **«, t00=0x0110, t01=0x0096}
0x1a99c…1a9d6               Head {h00=0x0036, h01=0x0050, text=»**                                              **«, t00=0x0110, t01=0x00d0}
0x1a9d6…1aa10               Head {h00=0x0036, h01=0x0050, text=»**                                              **«, t00=0x0110, t01=0x010a}
0x1aa10…1aa4a               Head {h00=0x0036, h01=0x0050, text=»**  SKIP TO NEXT BLOCK IN CONFIGURATION FILE    **«, t00=0x0110, t01=0x0144}
0x1aa4a…1aa84               Head {h00=0x0036, h01=0x0050, text=»**                                              **«, t00=0x0110, t01=0x017e}
0x1aa84…1aabe               Head {h00=0x0036, h01=0x0050, text=»**  INPUT: A11=ADDRESS TO CURRENT BLOCK-START   **«, t00=0x0111, t01=0x0028}
0x1aabe…1aaf8               Head {h00=0x0036, h01=0x0050, text=»**  OUTPUT:A11=ADDRESS TO NEXT BLOCK            **«, t00=0x0111, t01=0x0062}
0x1aaf8…1ab32               Head {h00=0x0036, h01=0x0050, text=»**         A2=BLOCK TYPE (T,C,U) IN RIGTH BYTE  **«, t00=0x0111, t01=0x009c}
0x1ab32…1ab6c               Head {h00=0x0036, h01=0x0050, text=»**  WORKREGS: A1,A3-A5                          **«, t00=0x0111, t01=0x00d6}
0x1ab6c…1aba6               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0111, t01=0x0110}
0x1aba6…1abae               Head {h00=0x0004, h01=0x0050, t00=0x0111, t01=0x014a}
0x1abae…1abc2               Head {h00=0x0010, h01=0x0050, text=»NXTBLK EQU *«, t00=0x0111, t01=0x0152}
0x1abc2…1abfc               Head {h00=0x0036, h01=0x0050, text=» ADKL A11,TDBNC NUMBER OF TERMINAL DEVICE CLASSES «, t00=0x0111, t01=0x0166}
0x1abfc…1ac32               Head {h00=0x0032, h01=0x0050, text=»NXTCOM EQU * ENTRY: SKIP TO NEXT COMMON-BLOCK «, t00=0x0112, t01=0x0010}
0x1ac32…1ac46               Head {h00=0x0010, h01=0x0050, text=» LCR A5,A11 «, t00=0x0112, t01=0x0046}
0x1ac46…1ac58               Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x0112, t01=0x005a}
0x1ac58…1ac6c               Head {h00=0x0010, h01=0x0050, text=» LC A5,1,A11«, t00=0x0112, t01=0x006c}
0x1ac6c…1ac80               Head {h00=0x0010, h01=0x0050, text=» CALL CONVRT«, t00=0x0112, t01=0x0080}
0x1ac80…1ac96               Head {h00=0x0012, h01=0x0050, text=» LDK A2,TDBREC«, t00=0x0112, t01=0x0094}
0x1ac96…1aca8               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0112, t01=0x00aa}
0x1aca8…1acba               Head {h00=0x000e, h01=0x0050, text=» CALL MULT«, t00=0x0112, t01=0x00bc}
0x1acba…1acce               Head {h00=0x0010, h01=0x0050, text=» ADR A11,A3 «, t00=0x0112, t01=0x00ce}
0x1acce…1ace2               Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x0112, t01=0x00e2}
0x1ace2…1ad16               Head {h00=0x0030, h01=0x0050, text=» LCR A5,A11 GET NUMBER OF SPEC, DEV. CLASSES«, t00=0x0112, t01=0x00f6}
0x1ad16…1ad28               Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x0112, t01=0x012a}
0x1ad28…1ad3c               Head {h00=0x0010, h01=0x0050, text=» LC A5,1,A11«, t00=0x0112, t01=0x013c}
0x1ad3c…1ad50               Head {h00=0x0010, h01=0x0050, text=» CALL CONVRT«, t00=0x0112, t01=0x0150}
0x1ad50…1ad80               Head {h00=0x002c, h01=0x0050, text=» LDK A2,SDC SPEC. DEV. CL. RECORD LENGTH«, t00=0x0112, t01=0x0164}
0x1ad80…1ad92 (275, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0113, t01=0x0004}
0x1ad92…1ada4               Head {h00=0x000e, h01=0x0050, text=» CALL MULT«, t00=0x0113, t01=0x0016}
0x1ada4…1adc6               Head {h00=0x001e, h01=0x0050, text=» ADR A11,A3 A11=NEXT BLOCK«, t00=0x0113, t01=0x0028}
0x1adc6…1adda               Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x0113, t01=0x004a}
0x1adda…1ae02               Head {h00=0x0024, h01=0x0050, text=» LC A2,TDBBT,A11 GET BLOCK TYPE «, t00=0x0113, t01=0x005e}
0x1ae02…1ae12               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0113, t01=0x0086}
0x1ae12…1ae1e               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0113, t01=0x0096}
0x1ae1e…1ae2a               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0113, t01=0x00a2}
0x1ae2a…1ae66               Head {h00=0x0038, h01=0x0050, text=»**                     G E T N U M                **«, t00=0x0113, t01=0x00ae}
0x1ae66…1aea2               Head {h00=0x0038, h01=0x0050, text=»**                                                **«, t00=0x0113, t01=0x00ea}
0x1aea2…1aede               Head {h00=0x0038, h01=0x0050, text=»**                                                **«, t00=0x0113, t01=0x0126}
0x1aede…1af1a               Head {h00=0x0038, h01=0x0050, text=»**  CONVERT 3 ASCII-DIGITS TO BINARY              **«, t00=0x0113, t01=0x0162}
0x1af1a…1af56               Head {h00=0x0038, h01=0x0050, text=»**                                                **«, t00=0x0114, t01=0x000e}
0x1af56…1af92               Head {h00=0x0038, h01=0x0050, text=»**  INPUT : A6=ADDRESS TO FIRST ASCII-CHARACTER   **«, t00=0x0114, t01=0x004a}
0x1af92…1afce               Head {h00=0x0038, h01=0x0050, text=»**  OUTPUT: A5=BINARY VALUE                       **«, t00=0x0114, t01=0x0086}
0x1afce…1b00a               Head {h00=0x0038, h01=0x0050, text=»**  WORK.REGS: A2,A4                              **«, t00=0x0114, t01=0x00c2}
0x1b00a…1b046               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0114, t01=0x00fe}
0x1b046…1b052               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0114, t01=0x013a}
0x1b052…1b066               Head {h00=0x0010, h01=0x0050, text=»GETNUM EQU *«, t00=0x0114, t01=0x0146}
0x1b066…1b08a               Head {h00=0x0020, h01=0x0050, text=» LDK A4,100 FIRST INCREMENT «, t00=0x0114, t01=0x015a}
0x1b08a…1b0ac               Head {h00=0x001e, h01=0x0050, text=» LDK A5,0 CLEAR RESULT REG«, t00=0x0114, t01=0x017e}
0x1b0ac…1b0ca               Head {h00=0x001a, h01=0x0050, text=» SUK A6,1 INIT POINTER«, t00=0x0115, t01=0x0010}
0x1b0ca…1b0ec               Head {h00=0x001e, h01=0x0050, text=»GET030 ADK A6,1 NEXT DIGIT«, t00=0x0115, t01=0x002e}
0x1b0ec…1b108               Head {h00=0x0018, h01=0x0050, text=» LCR A2,A6 GET CHAR «, t00=0x0115, t01=0x0050}
0x1b108…1b11a               Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0115, t01=0x006c}
0x1b11a…1b132               Head {h00=0x0014, h01=0x0050, text=»GET050 SUK A2,1 «, t00=0x0115, t01=0x007e}
0x1b132…1b158               Head {h00=0x0022, h01=0x0050, text=» RF(N) GET100 THIS DIGIT READY«, t00=0x0115, t01=0x0096}
0x1b158…1b176               Head {h00=0x001a, h01=0x0050, text=» ADR A5,A4 ACCUMULATE «, t00=0x0115, t01=0x00bc}
0x1b176…1b188               Head {h00=0x000e, h01=0x0050, text=» RB GET050«, t00=0x0115, t01=0x00da}
0x1b188…1b1b8               Head {h00=0x002c, h01=0x0050, text=»GET100 SUK A4,90 NEXT INCREMENT (TEN'S) «, t00=0x0115, t01=0x00ec}
0x1b1b8…1b1ce               Head {h00=0x0012, h01=0x0050, text=» RB(P) GET030 «, t00=0x0115, t01=0x011c}
0x1b1ce…1b1f8               Head {h00=0x0026, h01=0x0050, text=» ADK A4,81 NEXT INCREMENT (ONE'S) «, t00=0x0115, t01=0x0132}
0x1b1f8…1b21a               Head {h00=0x001e, h01=0x0050, text=» RB(P) GET030 THIRD DIGIT «, t00=0x0115, t01=0x015c}
0x1b21a…1b22a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0115, t01=0x017e}
0x1b22a…1b238               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0115, t01=0x018e}
0x1b238…1b240               Head {h00=0x0004, h01=0x0050, t00=0x0116, t01=0x000c}
0x1b240…1b264               Head {h00=0x0020, h01=0x0050, text=»* START OF PROGRAM PART 1 * «, t00=0x0116, t01=0x0014}
0x1b264…1b26c               Head {h00=0x0004, h01=0x0050, t00=0x0116, t01=0x0038}
0x1b26c…1b2a4               Head {h00=0x0034, h01=0x0050, text=»* SAVE02=POINTER TO 1:ST USER TASK TTAB-ADDRESS «, t00=0x0116, t01=0x0040}
0x1b2a4…1b2cc               Head {h00=0x0024, h01=0x0050, text=»* SAVE09=EXECUTION START ADDRESS«, t00=0x0116, t01=0x0078}
0x1b2cc…1b2d8               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0116, t01=0x00a0}
0x1b2d8…1b2fe               Head {h00=0x0022, h01=0x0050, text=»SYSLDX EQU *-REL PROGRAM START«, t00=0x0116, t01=0x00ac}
0x1b2fe…1b308               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0116, t01=0x00d2}
0x1b308…1b322               Head {h00=0x0016, h01=0x0050, text=»*  INIT A15 STACK «, t00=0x0116, t01=0x00dc}
0x1b322…1b32c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0116, t01=0x00f6}
0x1b32c…1b342               Head {h00=0x0012, h01=0x0050, text=» LD A15,SCTSTB«, t00=0x0116, t01=0x0100}
0x1b342…1b356               Head {h00=0x0010, h01=0x0050, text=» SUKL A15,4 «, t00=0x0116, t01=0x0116}
0x1b356…1b35e               Head {h00=0x0004, h01=0x0050, t00=0x0116, t01=0x012a}
0x1b35e…1b388               Head {h00=0x0026, h01=0x0050, text=» LD A2,SCTLAC GET S:GTAB (IF ANY) «, t00=0x0116, t01=0x0132}
0x1b388…1b39e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0116, t01=0x015c}
0x1b39e…1b3d0               Head {h00=0x002e, h01=0x0050, text=» LD A2,CREID,A2 GET CREDIT IDENTIFICATION «, t00=0x0116, t01=0x0172}
0x1b3d0…1b3dc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0117, t01=0x0014}
0x1b3dc…1b3f2               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0117, t01=0x0020}
0x1b3f2…1b40c               Head {h00=0x0016, h01=0x0050, text=» TL MMTAB,A13 %%##«, t00=0x0117, t01=0x0036}
0x1b40c…1b424               Head {h00=0x0014, h01=0x0050, text=» EL A2,CREID,A2 «, t00=0x0117, t01=0x0050}
0x1b424…1b430               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0117, t01=0x0068}
0x1b430…1b466               Head {h00=0x0032, h01=0x0050, text=» CM SWITCH,A13 RESET SAVE-AREAS USED IN SYSLDM«, t00=0x0117, t01=0x0074}
0x1b466…1b47a               Head {h00=0x0010, h01=0x0050, text=» CM FLAG,A13«, t00=0x0117, t01=0x00aa}
0x1b47a…1b4a2               Head {h00=0x0024, h01=0x0050, text=» CWK A2,'CR' CREDIT APPLICATION?«, t00=0x0117, t01=0x00be}
0x1b4a2…1b4ce               Head {h00=0x0028, h01=0x0050, text=» RF(E) SYA100 YES! START CONFIGURATE«, t00=0x0117, t01=0x00e6}
0x1b4ce…1b4e4               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=1 «, t00=0x0117, t01=0x0112}
0x1b4e4…1b4ec               Head {h00=0x0004, h01=0x0050, t00=0x0117, t01=0x0128}
0x1b4ec…1b50c               Head {h00=0x001c, h01=0x0050, text=»* ASSEMBLER APPLICATION «, t00=0x0117, t01=0x0130}
0x1b50c…1b514               Head {h00=0x0004, h01=0x0050, t00=0x0117, t01=0x0150}
0x1b514…1b534               Head {h00=0x001c, h01=0x0050, text=»* SWITCH TO LEVEL 0 ENB «, t00=0x0117, t01=0x0158}
0x1b534…1b53c               Head {h00=0x0004, h01=0x0050, t00=0x0117, t01=0x0178}
0x1b53c…1b568               Head {h00=0x0028, h01=0x0050, text=» LDKL A4,SYA103 CONTINUATION ADDRESS«, t00=0x0117, t01=0x0180}
0x1b568…1b584               Head {h00=0x0018, h01=0x0050, text=» ADR A4,A13 RELOCATE«, t00=0x0118, t01=0x001c}
0x1b584…1b5a4               Head {h00=0x001c, h01=0x0050, text=» STR A4,A15 PUT ON STACK«, t00=0x0118, t01=0x0038}
0x1b5a4…1b5ba               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/00C0«, t00=0x0118, t01=0x0058}
0x1b5ba…1b5de               Head {h00=0x0020, h01=0x0050, text=» STR A4,A15 PUT PSW ON STACK«, t00=0x0118, t01=0x006e}
0x1b5de…1b5ee               Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0118, t01=0x0092}
0x1b5ee…1b606               Head {h00=0x0014, h01=0x0050, text=»SYA103 EQU *-REL«, t00=0x0118, t01=0x00a2}
0x1b606…1b612               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0118, t01=0x00ba}
0x1b612…1b62e               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG-CREDIT=1«, t00=0x0118, t01=0x00c6}
0x1b62e…1b65a               Head {h00=0x0028, h01=0x0050, text=» LDKL A4,MMTAB GET MM-TABLE ADDRESS «, t00=0x0118, t01=0x00e2}
0x1b65a…1b676               Head {h00=0x0018, h01=0x0050, text=» ADR A4,A13 RELOCATE«, t00=0x0118, t01=0x010e}
0x1b676…1b694               Head {h00=0x001a, h01=0x0050, text=» ST A4,MMFROM,A13 SAVE«, t00=0x0118, t01=0x012a}
0x1b694…1b6c0               Head {h00=0x0028, h01=0x0050, text=»* FILL MM-TABLES IN USER TASK TTAB'S«, t00=0x0118, t01=0x0148}
0x1b6c0…1b6c8               Head {h00=0x0004, h01=0x0050, t00=0x0118, t01=0x0174}
0x1b6c8…1b6f4               Head {h00=0x0028, h01=0x0050, text=» LD* A5,SCTTCT GET LENGTH OF TC:TAB «, t00=0x0118, t01=0x017c}
0x1b6f4…1b71c               Head {h00=0x0024, h01=0x0050, text=» LD A6,SAVE02,A13 1:ST USER TASK«, t00=0x0119, t01=0x0018}
0x1b71c…1b734               Head {h00=0x0014, h01=0x0050, text=» LDR A3,A6 SAVE «, t00=0x0119, t01=0x0040}
0x1b734…1b768               Head {h00=0x0030, h01=0x0050, text=» SU A3,SCTTCT GET DISPLACEMENT TO 1:ST USER «, t00=0x0119, t01=0x0058}
0x1b768…1b796               Head {h00=0x002a, h01=0x0050, text=» SUR A5,A3 => LENGTH OF TC:TAB TO SCAN«, t00=0x0119, t01=0x008c}
0x1b796…1b7a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x00ba}
0x1b7a0…1b7c2               Head {h00=0x001e, h01=0x0050, text=»*  INIT UNUSED MMU ENTRIES«, t00=0x0119, t01=0x00c4}
0x1b7c2…1b7cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0119, t01=0x00e6}
0x1b7cc…1b7e2               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/FC00«, t00=0x0119, t01=0x00f0}
0x1b7e2…1b7f8               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,MMTAB«, t00=0x0119, t01=0x0106}
0x1b7f8…1b80c               Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x0119, t01=0x011c}
0x1b80c…1b826               Head {h00=0x0016, h01=0x0050, text=» LDR A4,A2  =00002«, t00=0x0119, t01=0x0130}
0x1b826…1b83c               Head {h00=0x0012, h01=0x0050, text=» SUKL A4,MMBEG«, t00=0x0119, t01=0x014a}
0x1b83c…1b852               Head {h00=0x0012, h01=0x0050, text=» AD A4,SCTMMC «, t00=0x0119, t01=0x0160}
0x1b852…1b86a               Head {h00=0x0014, h01=0x0050, text=»SYA:10 CWR A4,A2«, t00=0x0119, t01=0x0176}
0x1b86a…1b880               Head {h00=0x0012, h01=0x0050, text=» RF(E) SYA105 «, t00=0x0119, t01=0x018e}
0x1b880…1b892               Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x011a, t01=0x0014}
0x1b892…1b8a4               Head {h00=0x000e, h01=0x0050, text=» STR A1,A4«, t00=0x011a, t01=0x0026}
0x1b8a4…1b8b6               Head {h00=0x000e, h01=0x0050, text=» RB SYA:10«, t00=0x011a, t01=0x0038}
0x1b8b6…1b8d2               Head {h00=0x0018, h01=0x0050, text=»SYA105 SUK A5,2 ALL?«, t00=0x011a, t01=0x004a}
0x1b8d2…1b8ec               Head {h00=0x0016, h01=0x0050, text=» RF(N) SYA107 YES!«, t00=0x011a, t01=0x0066}
0x1b8ec…1b90c               Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A6 TTAB-ADDRESS«, t00=0x011a, t01=0x0080}
0x1b90c…1b92e               Head {h00=0x001e, h01=0x0050, text=» CALL MOVMMT MOVE MM-TABLE«, t00=0x011a, t01=0x00a0}
0x1b92e…1b94a               Head {h00=0x0018, h01=0x0050, text=» ADK A6,2 NEXT TTAB «, t00=0x011a, t01=0x00c2}
0x1b94a…1b95c               Head {h00=0x000e, h01=0x0050, text=» RB SYA105«, t00=0x011a, t01=0x00de}
0x1b95c…1b970               Head {h00=0x0010, h01=0x0050, text=»SYA107 EQU *«, t00=0x011a, t01=0x00f0}
0x1b970…1b97c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011a, t01=0x0104}
0x1b97c…1b992               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=1 «, t00=0x011a, t01=0x0110}
0x1b992…1b9c8               Head {h00=0x0032, h01=0x0050, text=» LD* A5,SAVE02,A13 1:ST USER TASK TTAB ADDRESS«, t00=0x011a, t01=0x0126}
0x1b9c8…1b9fa               Head {h00=0x002e, h01=0x0050, text=» LD A2,SAVE09,A13 EXECUTION START ADDRESS «, t00=0x011a, t01=0x015c}
0x1b9fa…1ba26               Head {h00=0x0028, h01=0x0050, text=» AD A2,SCTLAC ADD RELOCATION ADDRESS«, t00=0x011a, t01=0x018e}
0x1ba26…1ba46               Head {h00=0x001c, h01=0x0050, text=» LDK A3,0 SEGMENT NUMBER«, t00=0x011b, t01=0x002a}
0x1ba46…1ba66               Head {h00=0x001c, h01=0x0050, text=» CF A15,ACTOT QUEUE TASK«, t00=0x011b, t01=0x004a}
0x1ba66…1ba8c               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,FINISH END OF SYSLDA «, t00=0x011b, t01=0x006a}
0x1ba8c…1baa0               Head {h00=0x0010, h01=0x0050, text=» ADR A1,A13 «, t00=0x011b, t01=0x0090}
0x1baa0…1bab0               Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x011b, t01=0x00a4}
0x1bab0…1babc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011b, t01=0x00b4}
0x1babc…1bad0               Head {h00=0x0010, h01=0x0050, text=»SYA100 EQU *«, t00=0x011b, t01=0x00c0}
0x1bad0…1bae6               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x011b, t01=0x00d4}
0x1bae6…1baf4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x011b, t01=0x00ea}
0x1baf4…1bb00               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x011b, t01=0x00f8}
0x1bb00…1bb30               Head {h00=0x002c, h01=0x0050, text=»* READ CONFIG FILE AND BUILD SHADOWTABLE«, t00=0x011b, t01=0x0104}
0x1bb30…1bb3c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x011b, t01=0x0134}
0x1bb3c…1bb70               Head {h00=0x0030, h01=0x0050, text=» CM SAVE02,A13 CLEAR 'BUGGER TASK INDICATOR'«, t00=0x011b, t01=0x0140}
0x1bb70…1bb8c               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x011b, t01=0x0174}
0x1bb8c…1bbb6               Head {h00=0x0026, h01=0x0050, text=» LD* A2,SCTLAC GET START OF P:MTAB«, t00=0x011b, t01=0x0190}
0x1bbb6…1bbde               Head {h00=0x0024, h01=0x0050, text=» LD A12,T:ATAB,A2 T:ATAB ADDRESS«, t00=0x011c, t01=0x002a}
0x1bbde…1bc08               Head {h00=0x0026, h01=0x0050, text=» SUKL A12,2 ADJUST FOR LENGTH-WORD«, t00=0x011c, t01=0x0052}
0x1bc08…1bc28               Head {h00=0x001c, h01=0x0050, text=» ST A12,T:ATOD,A13 SAVE «, t00=0x011c, t01=0x007c}
0x1bc28…1bc58               Head {h00=0x002c, h01=0x0050, text=» LD A4,U:BTAB,A2 GET U:BTAB FROM P:MTAB «, t00=0x011c, t01=0x009c}
0x1bc58…1bc7e               Head {h00=0x0022, h01=0x0050, text=» SUK A4,2 INCLUDE LENGTH-WORD «, t00=0x011c, t01=0x00cc}
0x1bc7e…1bca6               Head {h00=0x0024, h01=0x0050, text=» ST A4,U:BTOD,A13 SAVE IN SYSLDA«, t00=0x011c, t01=0x00f2}
0x1bca6…1bcb2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011c, t01=0x011a}
0x1bcb2…1bcce               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x011c, t01=0x0126}
0x1bcce…1bcfa               Head {h00=0x0028, h01=0x0050, text=» LD A4,S:BTAB,A2 GET S:BTAB ADDRESS «, t00=0x011c, t01=0x0142}
0x1bcfa…1bd22               Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 ADJUST FOR LENGTH WORD«, t00=0x011c, t01=0x016e}
0x1bd22…1bd40               Head {h00=0x001a, h01=0x0050, text=» ST A4,S:BTOD,A13 SAVE«, t00=0x011d, t01=0x0008}
0x1bd40…1bd4c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011d, t01=0x0026}
0x1bd4c…1bd68               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x011d, t01=0x0032}
0x1bd68…1bd84               Head {h00=0x0018, h01=0x0050, text=»* T:ATAB PROCESSING:«, t00=0x011d, t01=0x004e}
0x1bd84…1bd90               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x011d, t01=0x006a}
0x1bd90…1bdb2               Head {h00=0x001e, h01=0x0050, text=» LDR* A4,A12 T:ATAB-LENGTH«, t00=0x011d, t01=0x0076}
0x1bdb2…1bdca               Head {h00=0x0014, h01=0x0050, text=» LDR A3,A4 SAVE «, t00=0x011d, t01=0x0098}
0x1bdca…1bdf8               Head {h00=0x002a, h01=0x0050, text=» AD A3,SCTSFA ADD MONITOR END ADDRESS «, t00=0x011d, t01=0x00b0}
0x1bdf8…1be12               Head {h00=0x0016, h01=0x0050, text=»* CHECK ADDRESSES «, t00=0x011d, t01=0x00de}
0x1be12…1be1a               Head {h00=0x0004, h01=0x0050, t00=0x011d, t01=0x00f8}
0x1be1a…1be40               Head {h00=0x0022, h01=0x0050, text=» LDR A11,A3 END OF SHADOW-TAB «, t00=0x011d, t01=0x0100}
0x1be40…1be64               Head {h00=0x0020, h01=0x0050, text=» LDR A9,A13 START OF SYSLDA «, t00=0x011d, t01=0x0126}
0x1be64…1be78               Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x011d, t01=0x014a}
0x1be78…1be92               Head {h00=0x0016, h01=0x0050, text=» RF(L) SYA110 OK! «, t00=0x011d, t01=0x015e}
0x1be92…1beb8               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP3 MEMORY OVERFLOW «, t00=0x011d, t01=0x0178}
0x1beb8…1becc               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x011e, t01=0x000e}
0x1becc…1bef8               Head {h00=0x0028, h01=0x0050, text=»SYA110 LDR A9,A2 GET P:MTAB ADDRESS «, t00=0x011e, t01=0x0022}
0x1bef8…1bf0a               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x011e, t01=0x004e}
0x1bf0a…1bf2e               Head {h00=0x0020, h01=0x0050, text=»* CLEAR T:ATAB SHADOW-TABLE:«, t00=0x011e, t01=0x0060}
0x1bf2e…1bf3a               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x011e, t01=0x0084}
0x1bf3a…1bf54               Head {h00=0x0016, h01=0x0050, text=»ZERO SUK A3,2 NEXT«, t00=0x011e, t01=0x0090}
0x1bf54…1bf6c               Head {h00=0x0014, h01=0x0050, text=» STR A2,A3 CLEAR«, t00=0x011e, t01=0x00aa}
0x1bf6c…1bf86               Head {h00=0x0016, h01=0x0050, text=» CW A3,SCTSFA ALL?«, t00=0x011e, t01=0x00c2}
0x1bf86…1bf9e               Head {h00=0x0014, h01=0x0050, text=» RB(NE) ZERO NO!«, t00=0x011e, t01=0x00dc}
0x1bf9e…1bfc4               Head {h00=0x0022, h01=0x0050, text=» STR A4,A3 STORE TABLE LENGTH «, t00=0x011e, t01=0x00f4}
0x1bfc4…1bff0               Head {h00=0x0028, h01=0x0050, text=» LD A11,SAVE01,A13 GET CONFIG START «, t00=0x011e, t01=0x011a}
0x1bff0…1c016               Head {h00=0x0022, h01=0x0050, text=» LC A2,TDBBT,A11 GET BLOCKTYPE«, t00=0x011e, t01=0x0146}
0x1c016…1c034               Head {h00=0x001a, h01=0x0050, text=» CCK A2,'TT' TASK DEF?«, t00=0x011e, t01=0x016c}
0x1c034…1c04e               Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA120 OK! «, t00=0x011e, t01=0x018a}
0x1c04e…1c072               Head {h00=0x0020, h01=0x0050, text=» LDK A1,LMP4 NO TASK PRESENT«, t00=0x011f, t01=0x0014}
0x1c072…1c086               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x011f, t01=0x0038}
0x1c086…1c0b2               Head {h00=0x0028, h01=0x0050, text=»SYA120 LC A2,TDBMC+4,A11 GET TASK ID«, t00=0x011f, t01=0x004c}
0x1c0b2…1c0c6               Head {h00=0x0010, h01=0x0050, text=» SLL A2,8 . «, t00=0x011f, t01=0x0078}
0x1c0c6…1c0e4               Head {h00=0x001a, h01=0x0050, text=» LC A2,TDBMC+5,A11 ...«, t00=0x011f, t01=0x008c}
0x1c0e4…1c106               Head {h00=0x001e, h01=0x0050, text=» CWK A2,'TB' BUGGER TASK? «, t00=0x011f, t01=0x00aa}
0x1c106…1c120               Head {h00=0x0016, h01=0x0050, text=» RF(NE) SYA125 NO!«, t00=0x011f, t01=0x00cc}
0x1c120…1c15e               Head {h00=0x003a, h01=0x0050, text=» ST A2,SAVE02,A13 INDICATE BUGGER TASK PRESENT =00001 «, t00=0x011f, t01=0x00e6}
0x1c15e…1c184               Head {h00=0x0022, h01=0x0050, text=» RF SYA136 SKIP TO NEXT BLOCK «, t00=0x011f, t01=0x0124}
0x1c184…1c1a2               Head {h00=0x001a, h01=0x0050, text=»SYA125 LDR A8,A12 SAVE«, t00=0x011f, t01=0x014a}
0x1c1a2…1c1c4               Head {h00=0x001e, h01=0x0050, text=» LDR* A4,A12 T:ATAB LENGTH«, t00=0x011f, t01=0x0168}
0x1c1c4…1c1e6               Head {h00=0x001e, h01=0x0050, text=»SYA130 ADKL A8,2 NEXT T:A «, t00=0x011f, t01=0x018a}
0x1c1e6…1c20a               Head {h00=0x0020, h01=0x0050, text=» LDR* A6,A8 GET T:A ADDRESS «, t00=0x0120, t01=0x001c}
0x1c20a…1c21c               Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0120, t01=0x0040}
0x1c21c…1c232               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SYA135«, t00=0x0120, t01=0x0052}
0x1c232…1c266               Head {h00=0x0030, h01=0x0050, text=» LDK A1,LMP5 NO PROTOTYPE FOUND (TID ERROR) «, t00=0x0120, t01=0x0068}
0x1c266…1c27a               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0120, t01=0x009c}
0x1c27a…1c28e               Head {h00=0x0010, h01=0x0050, text=»SYA135 EQU *«, t00=0x0120, t01=0x00b0}
0x1c28e…1c2b2               Head {h00=0x0020, h01=0x0050, text=» CW A2,T:ATID,A6 TID EQUAL? «, t00=0x0120, t01=0x00c4}
0x1c2b2…1c2cc               Head {h00=0x0016, h01=0x0050, text=» RB(NE) SYA130 NO!«, t00=0x0120, t01=0x00e8}
0x1c2cc…1c2ee               Head {h00=0x001e, h01=0x0050, text=» SUR* A4,A12 T:ATAB LENGTH«, t00=0x0120, t01=0x0102}
0x1c2ee…1c2fa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0120, t01=0x0124}
0x1c2fa…1c316               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0120, t01=0x0130}
0x1c316…1c340               Head {h00=0x0026, h01=0x0050, text=» EL* A2,SCTLAC GET START OF P:MTAB«, t00=0x0120, t01=0x014c}
0x1c340…1c368               Head {h00=0x0024, h01=0x0050, text=» EL A12,T:ATAB,A2 T:ATAB ADDRESS«, t00=0x0120, t01=0x0176}
0x1c368…1c390               Head {h00=0x0024, h01=0x0050, text=» SUKL A12,2 INCLUDE LENGTH WORD «, t00=0x0121, t01=0x000e}
0x1c390…1c3ba               Head {h00=0x0026, h01=0x0050, text=» ST A12,T:ATOD,A13 SAVE IN SYSLDA «, t00=0x0121, t01=0x0036}
0x1c3ba…1c3e2               Head {h00=0x0024, h01=0x0050, text=» EL A4,U:BTAB,A2 U:BTAB ADDRESS «, t00=0x0121, t01=0x0060}
0x1c3e2…1c40a               Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 ADJUST FOR LENGTH WORD«, t00=0x0121, t01=0x0088}
0x1c40a…1c432               Head {h00=0x0024, h01=0x0050, text=» ST A4,U:BTOD,A13 SAVE IN SYSLDA«, t00=0x0121, t01=0x00b0}
0x1c432…1c43e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0121, t01=0x00d8}
0x1c43e…1c45a               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x0121, t01=0x00e4}
0x1c45a…1c486               Head {h00=0x0028, h01=0x0050, text=» EL A4,S:BTAB,A2 GET S:BTAB ADDRESS «, t00=0x0121, t01=0x0100}
0x1c486…1c4ae               Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 ADJUST FOR LENGTH WORD«, t00=0x0121, t01=0x012c}
0x1c4ae…1c4cc               Head {h00=0x001a, h01=0x0050, text=» ST A4,S:BTOD,A13 SAVE«, t00=0x0121, t01=0x0154}
0x1c4cc…1c4d8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0121, t01=0x0172}
0x1c4d8…1c4f4               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0121, t01=0x017e}
0x1c4f4…1c510               Head {h00=0x0018, h01=0x0050, text=»* T:ATAB PROCESSING:«, t00=0x0122, t01=0x000a}
0x1c510…1c51c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0122, t01=0x0026}
0x1c51c…1c53e               Head {h00=0x001e, h01=0x0050, text=» ELR A4,A12 T:ATAB-LENGTH «, t00=0x0122, t01=0x0032}
0x1c53e…1c556               Head {h00=0x0014, h01=0x0050, text=» LDR A3,A4 SAVE «, t00=0x0122, t01=0x0054}
0x1c556…1c58a               Head {h00=0x0030, h01=0x0050, text=» SLL A3,1 RESERVE FOR MM-TABLE ADDRESS TABLE«, t00=0x0122, t01=0x006c}
0x1c58a…1c5b8               Head {h00=0x002a, h01=0x0050, text=» AD A3,SCTSFA ADD MONITOR END ADDRESS «, t00=0x0122, t01=0x00a0}
0x1c5b8…1c5d2               Head {h00=0x0016, h01=0x0050, text=»* CHECK ADDRESSES «, t00=0x0122, t01=0x00ce}
0x1c5d2…1c5da               Head {h00=0x0004, h01=0x0050, t00=0x0122, t01=0x00e8}
0x1c5da…1c602               Head {h00=0x0024, h01=0x0050, text=» LDR A11,A3 END OF SHADOW-TABLE «, t00=0x0122, t01=0x00f0}
0x1c602…1c626               Head {h00=0x0020, h01=0x0050, text=» LDR A9,A13 START OF SYSLDA «, t00=0x0122, t01=0x0118}
0x1c626…1c63a               Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x0122, t01=0x013c}
0x1c63a…1c654               Head {h00=0x0016, h01=0x0050, text=» RF(L) SYA110 OK! «, t00=0x0122, t01=0x0150}
0x1c654…1c67a               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP3 MEMORY OVERFLOW «, t00=0x0122, t01=0x016a}
0x1c67a…1c68e               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0122, t01=0x0190}
0x1c68e…1c6ba               Head {h00=0x0028, h01=0x0050, text=»SYA110 LDR A9,A2 GET P:MTAB ADDRESS «, t00=0x0123, t01=0x0014}
0x1c6ba…1c6de               Head {h00=0x0020, h01=0x0050, text=»* CLEAR T:ATAB SHADOW-TABLE:«, t00=0x0123, t01=0x0040}
0x1c6de…1c6ea               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0123, t01=0x0064}
0x1c6ea…1c706               Head {h00=0x0018, h01=0x0050, text=»SYA115 SUK A3,2 NEXT«, t00=0x0123, t01=0x0070}
0x1c706…1c71c               Head {h00=0x0012, h01=0x0050, text=» CMR A3 CLEAR «, t00=0x0123, t01=0x008c}
0x1c71c…1c736               Head {h00=0x0016, h01=0x0050, text=» CW A3,SCTSFA ALL?«, t00=0x0123, t01=0x00a2}
0x1c736…1c750               Head {h00=0x0016, h01=0x0050, text=» RB(NE) SYA115 NO!«, t00=0x0123, t01=0x00bc}
0x1c750…1c776               Head {h00=0x0022, h01=0x0050, text=» STR A4,A3 STORE TABLE LENGTH «, t00=0x0123, t01=0x00d6}
0x1c776…1c7a2               Head {h00=0x0028, h01=0x0050, text=» LD A11,SAVE01,A13 GET CONFIG START «, t00=0x0123, t01=0x00fc}
0x1c7a2…1c7c8               Head {h00=0x0022, h01=0x0050, text=» LC A2,TDBBT,A11 GET BLOCKTYPE«, t00=0x0123, t01=0x0128}
0x1c7c8…1c7e6               Head {h00=0x001a, h01=0x0050, text=» CCK A2,'TT' TASK DEF?«, t00=0x0123, t01=0x014e}
0x1c7e6…1c800               Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA120 OK! «, t00=0x0123, t01=0x016c}
0x1c800…1c824               Head {h00=0x0020, h01=0x0050, text=» LDK A1,LMP4 NO TASK PRESENT«, t00=0x0123, t01=0x0186}
0x1c824…1c838               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0124, t01=0x001a}
0x1c838…1c864               Head {h00=0x0028, h01=0x0050, text=»SYA120 LC A2,TDBMC+4,A11 GET TASK ID«, t00=0x0124, t01=0x002e}
0x1c864…1c878               Head {h00=0x0010, h01=0x0050, text=» SLL A2,8 . «, t00=0x0124, t01=0x005a}
0x1c878…1c896               Head {h00=0x001a, h01=0x0050, text=» LC A2,TDBMC+5,A11 ...«, t00=0x0124, t01=0x006e}
0x1c896…1c8b8               Head {h00=0x001e, h01=0x0050, text=» CWK A2,'TB' BUGGER TASK? «, t00=0x0124, t01=0x008c}
0x1c8b8…1c8d2               Head {h00=0x0016, h01=0x0050, text=» RF(NE) SYA125 NO!«, t00=0x0124, t01=0x00ae}
0x1c8d2…1c90a               Head {h00=0x0034, h01=0x0050, text=» ST A2,SAVE02,A13 INDICATE 'BUGGER TASK PRESENT'«, t00=0x0124, t01=0x00c8}
0x1c90a…1c92c               Head {h00=0x001e, h01=0x0050, text=» RF SYA136 SKIP THIS BLOCK«, t00=0x0124, t01=0x0100}
0x1c92c…1c94a               Head {h00=0x001a, h01=0x0050, text=»SYA125 LDR A8,A12 SAVE«, t00=0x0124, t01=0x0122}
0x1c94a…1c96c               Head {h00=0x001e, h01=0x0050, text=» ELR A4,A12 T:ATAB LENGTH «, t00=0x0124, t01=0x0140}
0x1c96c…1c98e               Head {h00=0x001e, h01=0x0050, text=»SYA130 ADKL A8,2 NEXT T:A «, t00=0x0124, t01=0x0162}
0x1c98e…1c9b0               Head {h00=0x001e, h01=0x0050, text=» ELR A6,A8 GET T:A ADDRESS«, t00=0x0124, t01=0x0184}
0x1c9b0…1c9c2               Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0125, t01=0x0016}
0x1c9c2…1c9d8               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SYA135«, t00=0x0125, t01=0x0028}
0x1c9d8…1ca08               Head {h00=0x002c, h01=0x0050, text=» LDK A1,LMP5 NO PROT. FOUND (TID ERROR) «, t00=0x0125, t01=0x003e}
0x1ca08…1ca1c               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0125, t01=0x006e}
0x1ca1c…1ca30               Head {h00=0x0010, h01=0x0050, text=»SYA135 EQU *«, t00=0x0125, t01=0x0082}
0x1ca30…1ca52               Head {h00=0x001e, h01=0x0050, text=» EL A10,T:ATID,A6 GET TID «, t00=0x0125, t01=0x0096}
0x1ca52…1ca70               Head {h00=0x001a, h01=0x0050, text=» CWR A2,A10 TID EQUAL?«, t00=0x0125, t01=0x00b8}
0x1ca70…1ca8a               Head {h00=0x0016, h01=0x0050, text=» RB(NE) SYA130 NO!«, t00=0x0125, t01=0x00d6}
0x1ca8a…1ca9e               Head {h00=0x0010, h01=0x0050, text=» ELR A10,A12«, t00=0x0125, t01=0x00f0}
0x1ca9e…1cac0               Head {h00=0x001e, h01=0x0050, text=» SUR A4,A10 T:ATAB LENGTH «, t00=0x0125, t01=0x0104}
0x1cac0…1cacc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0125, t01=0x0126}
0x1cacc…1cae2               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0125, t01=0x0132}
0x1cae2…1cb14               Head {h00=0x002e, h01=0x0050, text=» NGR A4,A4 => A4=DISPLACEM. IN SHADOW-TAB «, t00=0x0125, t01=0x0148}
0x1cb14…1cb40               Head {h00=0x0028, h01=0x0050, text=» LC A5,TDBNT,A11 GET NUMBER OF TASKS«, t00=0x0125, t01=0x017a}
0x1cb40…1cb52               Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x0126, t01=0x0016}
0x1cb52…1cb6c               Head {h00=0x0016, h01=0x0050, text=» LC A5,TDBNT+1,A11«, t00=0x0126, t01=0x0028}
0x1cb6c…1cb80               Head {h00=0x0010, h01=0x0050, text=» CALL CONVRT«, t00=0x0126, t01=0x0042}
0x1cb80…1cbac               Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTSFA START OF SHADOW TABLE «, t00=0x0126, t01=0x0056}
0x1cbac…1cbbe               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x0126, t01=0x0082}
0x1cbbe…1cbf8               Head {h00=0x0036, h01=0x0050, text=» ADRS A1,A2 STORE NUMBER OF TASKS IN SHADOW TABLE «, t00=0x0126, t01=0x0094}
0x1cbf8…1cc04               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0126, t01=0x00ce}
0x1cc04…1cc20               Head {h00=0x0018, h01=0x0050, text=»* SKIP TO NEXT BLOCK«, t00=0x0126, t01=0x00da}
0x1cc20…1cc2c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0126, t01=0x00f6}
0x1cc2c…1cc46               Head {h00=0x0016, h01=0x0050, text=»SYA136 CALL NXTBLK«, t00=0x0126, t01=0x0102}
0x1cc46…1cc5a               Head {h00=0x0010, h01=0x0050, text=»SYA137 EQU *«, t00=0x0126, t01=0x011c}
0x1cc5a…1cc6e               Head {h00=0x0010, h01=0x0050, text=» CCK A2,'TT'«, t00=0x0126, t01=0x0130}
0x1cc6e…1cc98               Head {h00=0x0026, h01=0x0050, text=» RB(E) SYA120 NEXT TASK DEF BLOCK «, t00=0x0126, t01=0x0144}
0x1cc98…1ccac               Head {h00=0x0010, h01=0x0050, text=» CCK A2,'CC'«, t00=0x0126, t01=0x016e}
0x1ccac…1ccc2               Head {h00=0x0012, h01=0x0050, text=» RF(NE) SYA140«, t00=0x0126, t01=0x0182}
0x1ccc2…1ccf0               Head {h00=0x002a, h01=0x0050, text=» ADKL A11,1 STEP TO NUMBER OF COM.DEV.«, t00=0x0127, t01=0x0008}
0x1ccf0…1cd14               Head {h00=0x0020, h01=0x0050, text=» CALL NXTCOM SKIP COMMON DEF«, t00=0x0127, t01=0x0036}
0x1cd14…1cd2e               Head {h00=0x0016, h01=0x0050, text=»SYA140 CCK A2,'UU'«, t00=0x0127, t01=0x005a}
0x1cd2e…1cd4e               Head {h00=0x001c, h01=0x0050, text=» RF(NE) SYA141 NO UWB'S «, t00=0x0127, t01=0x0074}
0x1cd4e…1cd84               Head {h00=0x0032, h01=0x0050, text=» LD A8,U:BTOD,A13 GET MODIFIED U:BTAB ADDRESS «, t00=0x0127, t01=0x0094}
0x1cd84…1cdbe               Head {h00=0x0036, h01=0x0050, text=» CALL USWBTP INSERT NUMBER OF COPIES IN PROTOTYPE «, t00=0x0127, t01=0x00ca}
0x1cdbe…1cdd2               Head {h00=0x0010, h01=0x0050, text=»SYA141 EQU *«, t00=0x0127, t01=0x0104}
0x1cdd2…1cdde               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0127, t01=0x0118}
0x1cdde…1cdfa               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0127, t01=0x0124}
0x1cdfa…1ce0e               Head {h00=0x0010, h01=0x0050, text=» LCR A2,A11 «, t00=0x0127, t01=0x0140}
0x1ce0e…1ce22               Head {h00=0x0010, h01=0x0050, text=» CCK A2,'SS'«, t00=0x0127, t01=0x0154}
0x1ce22…1ce38               Head {h00=0x0012, h01=0x0050, text=» RF(NE) SYA152«, t00=0x0127, t01=0x0168}
0x1ce38…1ce52               Head {h00=0x0016, h01=0x0050, text=» LD A8,S:BTOD,A13 «, t00=0x0127, t01=0x017e}
0x1ce52…1ce66               Head {h00=0x0010, h01=0x0050, text=» CALL USWBTP«, t00=0x0128, t01=0x0008}
0x1ce66…1ce72               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0128, t01=0x001c}
0x1ce72…1ce88               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0128, t01=0x0028}
0x1ce88…1ce9a               Head {h00=0x000e, h01=0x0050, text=» RF SYA152«, t00=0x0128, t01=0x003e}
0x1ce9a…1cea8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0128, t01=0x0050}
0x1cea8…1cef8               Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0128, t01=0x005e}
0x1cef8…1cf48               Head {h00=0x004c, h01=0x0050, text=»*                                                                     * «, t00=0x0128, t01=0x00ae}
0x1cf48…1cf98               Head {h00=0x004c, h01=0x0050, text=»*  USWBTP - INSERT NUMBER OF COPIES IN U:BTAB/S:BTAB PROTOTYPE TABLE  * «, t00=0x0128, t01=0x00fe}
0x1cf98…1cfe8               Head {h00=0x004c, h01=0x0050, text=»*  =================================================================  * «, t00=0x0128, t01=0x014e}
0x1cfe8…1d038               Head {h00=0x004c, h01=0x0050, text=»*                                                                     * «, t00=0x0129, t01=0x000e}
0x1d038…1d088               Head {h00=0x004c, h01=0x0050, text=»*  REFERENCED IN:  SYSLDA                                             * «, t00=0x0129, t01=0x005e}
0x1d088…1d0d8               Head {h00=0x004c, h01=0x0050, text=»*                                                                     * «, t00=0x0129, t01=0x00ae}
0x1d0d8…1d128               Head {h00=0x004c, h01=0x0050, text=»*  ENTRY:  A8 - MODIFIED ADDRESS TO U:BTAB/S:BTAB PROTOTYPE TABLE     * «, t00=0x0129, t01=0x00fe}
0x1d128…1d178               Head {h00=0x004c, h01=0x0050, text=»*          A11- POINTER IN CONFIGURATION TABLE TO 'U' OR 'S' BLOCK    * «, t00=0x0129, t01=0x014e}
0x1d178…1d1c8               Head {h00=0x004c, h01=0x0050, text=»*                                                                     * «, t00=0x012a, t01=0x000e}
0x1d1c8…1d218               Head {h00=0x004c, h01=0x0050, text=»*  EXIT:                                                              * «, t00=0x012a, t01=0x005e}
0x1d218…1d268               Head {h00=0x004c, h01=0x0050, text=»*                                                                     * «, t00=0x012a, t01=0x00ae}
0x1d268…1d2b8               Head {h00=0x004c, h01=0x0050, text=»*  WORK REGISTERS:                                                    * «, t00=0x012a, t01=0x00fe}
0x1d2b8…1d308               Head {h00=0x004c, h01=0x0050, text=»*                                                                     * «, t00=0x012a, t01=0x014e}
0x1d308…1d358               Head {h00=0x004c, h01=0x0050, text=»*  SUBROUTINES:  GETNUM,ERROR                                         * «, t00=0x012b, t01=0x000e}
0x1d358…1d3a8               Head {h00=0x004c, h01=0x0050, text=»*                                                                     * «, t00=0x012b, t01=0x005e}
0x1d3a8…1d3f8               Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x012b, t01=0x00ae}
0x1d3f8…1d400               Head {h00=0x0004, h01=0x0050, t00=0x012b, t01=0x00fe}
0x1d400…1d414               Head {h00=0x0010, h01=0x0050, text=»USWBTP EQU *«, t00=0x012b, t01=0x0106}
0x1d414…1d41c               Head {h00=0x0004, h01=0x0050, t00=0x012b, t01=0x011a}
0x1d41c…1d428               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012b, t01=0x0122}
0x1d428…1d444               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x012b, t01=0x012e}
0x1d444…1d458               Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x012b, t01=0x014a}
0x1d458…1d46c               Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x012b, t01=0x015e}
0x1d46c…1d49a               Head {h00=0x002a, h01=0x0050, text=» CALL GETNUM PACK 3 DIG. RESULT IN A5 «, t00=0x012b, t01=0x0172}
0x1d49a…1d4c2               Head {h00=0x0024, h01=0x0050, text=» LDR A1,A5 SAVE NUMBER OF UWB'S «, t00=0x012c, t01=0x0010}
0x1d4c2…1d4d6               Head {h00=0x0010, h01=0x0050, text=»SYA142 EQU *«, t00=0x012c, t01=0x0038}
0x1d4d6…1d4ea               Head {h00=0x0010, h01=0x0050, text=» LDR A12,A8 «, t00=0x012c, t01=0x004c}
0x1d4ea…1d510               Head {h00=0x0022, h01=0x0050, text=» LDR* A3,A12 LENGTH OF U:BTAB «, t00=0x012c, t01=0x0060}
0x1d510…1d53c               Head {h00=0x0028, h01=0x0050, text=» ADKL A11,UDBFST-1 FIRST UDB RECORD «, t00=0x012c, t01=0x0086}
0x1d53c…1d550               Head {h00=0x0010, h01=0x0050, text=»SYA145 EQU *«, t00=0x012c, t01=0x00b2}
0x1d550…1d584               Head {h00=0x0030, h01=0x0050, text=» LCR A2,A11 GET FIRST CHARACTER FROM CONFIG «, t00=0x012c, t01=0x00c6}
0x1d584…1d596               Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x012c, t01=0x00fa}
0x1d596…1d5b8               Head {h00=0x001e, h01=0x0050, text=» LC A2,1,A11 GET 2:ND CHAR«, t00=0x012c, t01=0x010c}
0x1d5b8…1d5f2               Head {h00=0x0036, h01=0x0050, text=» CW A2,UPNAME,A12 COMPARE W. 1:ST WORD IN PROTOTYP«, t00=0x012c, t01=0x012e}
0x1d5f2…1d620               Head {h00=0x002a, h01=0x0050, text=» RF(E) FRSTOK FIRST TWO CHARACTERS OK!«, t00=0x012c, t01=0x0168}
0x1d620…1d654               Head {h00=0x0030, h01=0x0050, text=»SYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S «, t00=0x012d, t01=0x0008}
0x1d654…1d66a               Head {h00=0x0012, h01=0x0050, text=» RF(NN) SYA150«, t00=0x012d, t01=0x003c}
0x1d66a…1d68c               Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP6 UWB NOT FOUND«, t00=0x012d, t01=0x0052}
0x1d68c…1d6a0               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x012d, t01=0x0074}
0x1d6a0…1d6b4               Head {h00=0x0010, h01=0x0050, text=»SYA150 EQU *«, t00=0x012d, t01=0x0088}
0x1d6b4…1d6e0               Head {h00=0x0028, h01=0x0050, text=» ADKL A12,UP:REC ADD TO NEXT RECORD «, t00=0x012d, t01=0x009c}
0x1d6e0…1d6f2               Head {h00=0x000e, h01=0x0050, text=» RB SYA145«, t00=0x012d, t01=0x00c8}
0x1d6f2…1d71a               Head {h00=0x0024, h01=0x0050, text=»FRSTOK LC A2,2,A11 GET 3:RD CHAR«, t00=0x012d, t01=0x00da}
0x1d71a…1d736               Head {h00=0x0018, h01=0x0050, text=» CC A2,UPNAME+2,A12 «, t00=0x012d, t01=0x0102}
0x1d736…1d752               Head {h00=0x0018, h01=0x0050, text=» RB(NE) SYA147 .NEQ.«, t00=0x012d, t01=0x011e}
0x1d752…1d760               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012d, t01=0x013a}
0x1d760…1d76c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x012d, t01=0x0148}
0x1d76c…1d788               Head {h00=0x0018, h01=0x0050, text=»* PROTOTYPE FOUND * «, t00=0x012d, t01=0x0154}
0x1d788…1d794               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x012d, t01=0x0170}
0x1d794…1d7d0               Head {h00=0x0038, h01=0x0050, text=» ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG«, t00=0x012d, t01=0x017c}
0x1d7d0…1d7e4               Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x012e, t01=0x0028}
0x1d7e4…1d800               Head {h00=0x0018, h01=0x0050, text=» CALL GETNUM CONVERT«, t00=0x012e, t01=0x003c}
0x1d800…1d836               Head {h00=0x0032, h01=0x0050, text=» SC A5,UPNUMB,A12 SAVE IN U:BTAB (SHADOWTABLE)«, t00=0x012e, t01=0x0058}
0x1d836…1d868               Head {h00=0x002e, h01=0x0050, text=» SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE «, t00=0x012e, t01=0x008e}
0x1d868…1d87e               Head {h00=0x0012, h01=0x0050, text=» RB(P) SYA142 «, t00=0x012e, t01=0x00c0}
0x1d87e…1d898               Head {h00=0x0016, h01=0x0050, text=» ADKL A11,UDBFST-1«, t00=0x012e, t01=0x00d6}
0x1d898…1d8a8               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x012e, t01=0x00f0}
0x1d8a8…1d8b4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012e, t01=0x0100}
0x1d8b4…1d8d0               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x012e, t01=0x010c}
0x1d8d0…1d8e4               Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x012e, t01=0x0128}
0x1d8e4…1d8f8               Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x012e, t01=0x013c}
0x1d8f8…1d926               Head {h00=0x002a, h01=0x0050, text=» CALL GETNUM PACK 3 DIG. RESULT IN A5 «, t00=0x012e, t01=0x0150}
0x1d926…1d94e               Head {h00=0x0024, h01=0x0050, text=» LDR A1,A5 SAVE NUMBER OF UWB'S «, t00=0x012e, t01=0x017e}
0x1d94e…1d962               Head {h00=0x0010, h01=0x0050, text=»SYA142 EQU *«, t00=0x012f, t01=0x0016}
0x1d962…1d984               Head {h00=0x001e, h01=0x0050, text=» LDR A12,A8 START OF TABLE«, t00=0x012f, t01=0x002a}
0x1d984…1d9a8               Head {h00=0x0020, h01=0x0050, text=» ELR A3,A12 LENGTH OF U:BTAB«, t00=0x012f, t01=0x004c}
0x1d9a8…1d9d4               Head {h00=0x0028, h01=0x0050, text=» ADKL A11,UDBFST-1 FIRST UDB RECORD «, t00=0x012f, t01=0x0070}
0x1d9d4…1d9e8               Head {h00=0x0010, h01=0x0050, text=»SYA145 EQU *«, t00=0x012f, t01=0x009c}
0x1d9e8…1da1c               Head {h00=0x0030, h01=0x0050, text=» LCR A2,A11 GET FIRST CHARACTER FROM CONFIG «, t00=0x012f, t01=0x00b0}
0x1da1c…1da2e               Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x012f, t01=0x00e4}
0x1da2e…1da50               Head {h00=0x001e, h01=0x0050, text=» LC A2,1,A11 GET 2:ND CHAR«, t00=0x012f, t01=0x00f6}
0x1da50…1da86               Head {h00=0x0032, h01=0x0050, text=» EL A10,UPNAME,A12 GET FIRST WORD IN PROTOTYPE«, t00=0x012f, t01=0x0118}
0x1da86…1da9a               Head {h00=0x0010, h01=0x0050, text=» CWR A2,A10 «, t00=0x012f, t01=0x014e}
0x1da9a…1dabe               Head {h00=0x0020, h01=0x0050, text=» RF(E) FRSTOK FIRST WORD OK!«, t00=0x012f, t01=0x0162}
0x1dabe…1daf2               Head {h00=0x0030, h01=0x0050, text=»SYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S «, t00=0x012f, t01=0x0186}
0x1daf2…1db08               Head {h00=0x0012, h01=0x0050, text=» RF(NN) SYA150«, t00=0x0130, t01=0x002a}
0x1db08…1db2a               Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP6 UWB NOT FOUND«, t00=0x0130, t01=0x0040}
0x1db2a…1db3e               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0130, t01=0x0062}
0x1db3e…1db52               Head {h00=0x0010, h01=0x0050, text=»SYA150 EQU *«, t00=0x0130, t01=0x0076}
0x1db52…1db7e               Head {h00=0x0028, h01=0x0050, text=» ADKL A12,UP:REC ADD TO NEXT RECORD «, t00=0x0130, t01=0x008a}
0x1db7e…1db90               Head {h00=0x000e, h01=0x0050, text=» RB SYA145«, t00=0x0130, t01=0x00b6}
0x1db90…1dbc6               Head {h00=0x0032, h01=0x0050, text=»FRSTOK LC A10,2,A11 GET 3:RD CHAR FROM CONFIG «, t00=0x0130, t01=0x00c8}
0x1dbc6…1dbfa               Head {h00=0x0030, h01=0x0050, text=» EL A2,UPNAME+2,A12 GET 3:RD CHAR FROM PROY «, t00=0x0130, t01=0x00fe}
0x1dbfa…1dc0c               Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x0130, t01=0x0132}
0x1dc0c…1dc22               Head {h00=0x0012, h01=0x0050, text=» ANKL A10,/FF «, t00=0x0130, t01=0x0144}
0x1dc22…1dc36               Head {h00=0x0010, h01=0x0050, text=» CWR A10,A2 «, t00=0x0130, t01=0x015a}
0x1dc36…1dc52               Head {h00=0x0018, h01=0x0050, text=» RB(NE) SYA147 .NEQ.«, t00=0x0130, t01=0x016e}
0x1dc52…1dc60               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0130, t01=0x018a}
0x1dc60…1dc6c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0131, t01=0x0008}
0x1dc6c…1dc88               Head {h00=0x0018, h01=0x0050, text=»* PROTOTYPE FOUND * «, t00=0x0131, t01=0x0014}
0x1dc88…1dca4               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0131, t01=0x0030}
0x1dca4…1dcb0               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0131, t01=0x004c}
0x1dcb0…1dcec               Head {h00=0x0038, h01=0x0050, text=» ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG«, t00=0x0131, t01=0x0058}
0x1dcec…1dd00               Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0131, t01=0x0094}
0x1dd00…1dd1c               Head {h00=0x0018, h01=0x0050, text=» CALL GETNUM CONVERT«, t00=0x0131, t01=0x00a8}
0x1dd1c…1dd54               Head {h00=0x0034, h01=0x0050, text=» EL A10,UPNUMB-1,A12 SAVE IN U:BTAB SHADOW-TABLE«, t00=0x0131, t01=0x00c4}
0x1dd54…1dd6c               Head {h00=0x0014, h01=0x0050, text=» ANKL A10,/FF00 «, t00=0x0131, t01=0x00fc}
0x1dd6c…1dd80               Head {h00=0x0010, h01=0x0050, text=» ORR A10,A5 «, t00=0x0131, t01=0x0114}
0x1dd80…1dd9c               Head {h00=0x0018, h01=0x0050, text=» ES A10,UPNUMB-1,A12«, t00=0x0131, t01=0x0128}
0x1dd9c…1ddce               Head {h00=0x002e, h01=0x0050, text=» SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE «, t00=0x0131, t01=0x0144}
0x1ddce…1dde4               Head {h00=0x0012, h01=0x0050, text=» RB(P) SYA142 «, t00=0x0131, t01=0x0176}
0x1dde4…1ddfe               Head {h00=0x0016, h01=0x0050, text=» ADKL A11,UDBFST-1«, t00=0x0131, t01=0x018c}
0x1ddfe…1de0e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0132, t01=0x0016}
0x1de0e…1de1a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0132, t01=0x0026}
0x1de1a…1de30               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0132, t01=0x0032}
0x1de30…1de3e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0132, t01=0x0048}
0x1de3e…1de52               Head {h00=0x0010, h01=0x0050, text=»SYA152 EQU *«, t00=0x0132, t01=0x0056}
0x1de52…1de5a               Head {h00=0x0004, h01=0x0050, t00=0x0132, t01=0x006a}
0x1de5a…1de84               Head {h00=0x0026, h01=0x0050, text=»* GET START OF SYSLOAD AFTER MOVE «, t00=0x0132, t01=0x0072}
0x1de84…1de90               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0132, t01=0x009c}
0x1de90…1de9c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0132, t01=0x00a8}
0x1de9c…1deb8               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0132, t01=0x00b4}
0x1deb8…1dee8               Head {h00=0x002c, h01=0x0050, text=» LD* A7,T:ATOD,A13 GET LENGTH OF T:ATAB «, t00=0x0132, t01=0x00d0}
0x1dee8…1def4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0132, t01=0x0100}
0x1def4…1df10               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0132, t01=0x010c}
0x1df10…1df3c               Head {h00=0x0028, h01=0x0050, text=» EL* A7,T:ATOD,A13 GET T:ATAB LENGTH«, t00=0x0132, t01=0x0128}
0x1df3c…1df6a               Head {h00=0x002a, h01=0x0050, text=» SLL A7,1 RESERVE FOR MM-ADDRESS-TABLE«, t00=0x0132, t01=0x0154}
0x1df6a…1df76               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0132, t01=0x0182}
0x1df76…1df8c               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0132, t01=0x018e}
0x1df8c…1dfc0               Head {h00=0x0030, h01=0x0050, text=» AD A7,SCTSFA TO-ADDRESS (AFTER SHADOW-TABLE«, t00=0x0133, t01=0x0014}
0x1dfc0…1dfd2               Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0133, t01=0x0048}
0x1dfd2…1dff6               Head {h00=0x0020, h01=0x0050, text=» ANKL A7,/FFFE EVEN ADDRESS «, t00=0x0133, t01=0x005a}
0x1dff6…1dffe               Head {h00=0x0004, h01=0x0050, t00=0x0133, t01=0x007e}
0x1dffe…1e01c               Head {h00=0x001a, h01=0x0050, text=»* CALCULATE RELOCATION«, t00=0x0133, t01=0x0086}
0x1e01c…1e024               Head {h00=0x0004, h01=0x0050, t00=0x0133, t01=0x00a4}
0x1e024…1e038               Head {h00=0x0010, h01=0x0050, text=» LDR A2,A13 «, t00=0x0133, t01=0x00ac}
0x1e038…1e060               Head {h00=0x0024, h01=0x0050, text=» SUR A2,A7 MOVE-LENGTH (SYSLDA) «, t00=0x0133, t01=0x00c0}
0x1e060…1e072               Head {h00=0x000e, h01=0x0050, text=» NGR A2,A2«, t00=0x0133, t01=0x00e8}
0x1e072…1e0aa               Head {h00=0x0034, h01=0x0050, text=» ST A2,SAVE04,A13 SAVE NEW RELOCATION TEMPORARY «, t00=0x0133, t01=0x00fa}
0x1e0aa…1e0c6               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0133, t01=0x0132}
0x1e0c6…1e0f0               Head {h00=0x0026, h01=0x0050, text=»* CREATE SYSLDA & DDIV MM-TABLE * «, t00=0x0133, t01=0x014e}
0x1e0f0…1e0f8               Head {h00=0x0004, h01=0x0050, t00=0x0133, t01=0x0178}
0x1e0f8…1e11e               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A7 TO-ADDRESS (SYSLDA)«, t00=0x0133, t01=0x0180}
0x1e11e…1e140               Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/F000 FIRST PAGE «, t00=0x0134, t01=0x0016}
0x1e140…1e16c               Head {h00=0x0028, h01=0x0050, text=» ST A2,MMREL1,A13 SAVE PHYSICAL PAGE«, t00=0x0134, t01=0x0038}
0x1e16c…1e192               Head {h00=0x0022, h01=0x0050, text=» SRL A2,2 SHIFT FOR MM-PAGING «, t00=0x0134, t01=0x0064}
0x1e192…1e1aa               Head {h00=0x0014, h01=0x0050, text=» LDKL A11,MMDDIV«, t00=0x0134, t01=0x008a}
0x1e1aa…1e1dc               Head {h00=0x002e, h01=0x0050, text=» ADR A11,A13 GET MM-TABLE START ADDRESSS= «, t00=0x0134, t01=0x00a2}
0x1e1dc…1e1fa               Head {h00=0x001a, h01=0x0050, text=» LDK A3,16 SET COUNTER«, t00=0x0134, t01=0x00d4}
0x1e1fa…1e226               Head {h00=0x0028, h01=0x0050, text=»SYA157 STR A2,A11 STORE PAGE-POINTER«, t00=0x0134, t01=0x00f2}
0x1e226…1e244               Head {h00=0x001a, h01=0x0050, text=» ADKL A11,2 NEXT ENTRY«, t00=0x0134, t01=0x011e}
0x1e244…1e268               Head {h00=0x0020, h01=0x0050, text=» ADKL A2,/400 PAGE INCREMENT«, t00=0x0134, t01=0x013c}
0x1e268…1e27e               Head {h00=0x0012, h01=0x0050, text=» SUK A3,1 ALL?«, t00=0x0134, t01=0x0160}
0x1e27e…1e298               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) SYA157 NO!«, t00=0x0134, t01=0x0176}
0x1e298…1e2c4               Head {h00=0x0028, h01=0x0050, text=» ANKL A7,/FFF GET DISPLACEM. IN PAGE«, t00=0x0134, t01=0x0190}
0x1e2c4…1e2d0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0135, t01=0x002c}
0x1e2d0…1e2e6               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0135, t01=0x0038}
0x1e2e6…1e31a               Head {h00=0x0030, h01=0x0050, text=» ST A7,SAVE12,A13 SAVE (LOGICAL) TO-ADDRESS «, t00=0x0135, t01=0x004e}
0x1e31a…1e34c               Head {h00=0x002e, h01=0x0050, text=» ADKL A7,LENGT2 ADD LEN. OF SYSLDA TO MOVE«, t00=0x0135, t01=0x0082}
0x1e34c…1e37c               Head {h00=0x002c, h01=0x0050, text=» ST A7,SAVE03,A13 SAVE NEW DDIV ADDRESS «, t00=0x0135, t01=0x00b4}
0x1e37c…1e390               Head {h00=0x0010, h01=0x0050, text=» LDR A6,A7  «, t00=0x0135, t01=0x00e4}
0x1e390…1e3b8               Head {h00=0x0024, h01=0x0050, text=»* CALCULATE DDIV FROM-ADDRESS * «, t00=0x0135, t01=0x00f8}
0x1e3b8…1e3c0               Head {h00=0x0004, h01=0x0050, t00=0x0135, t01=0x0120}
0x1e3c0…1e3e0               Head {h00=0x001c, h01=0x0050, text=» LD A1,SCTLAC GET S:GTAB«, t00=0x0135, t01=0x0128}
0x1e3e0…1e40e               Head {h00=0x002a, h01=0x0050, text=» ST A1,SAVE13,A13 SAVE S:GTAB ADDRESS «, t00=0x0135, t01=0x0148}
0x1e40e…1e438               Head {h00=0x0026, h01=0x0050, text=» ST A9,SCTLAC SAVE START OF P:MTAB«, t00=0x0135, t01=0x0176}
0x1e438…1e454               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0136, t01=0x0010}
0x1e454…1e480               Head {h00=0x0028, h01=0x0050, text=» LD A3,NUMSEG,A1 NUMBER OF SEGMENTS «, t00=0x0136, t01=0x002c}
0x1e480…1e48c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0136, t01=0x0058}
0x1e48c…1e4a8               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0136, t01=0x0064}
0x1e4a8…1e4d4               Head {h00=0x0028, h01=0x0050, text=» EL A3,NUMSEG,A1 NUMBER OF SEGMENTS «, t00=0x0136, t01=0x0080}
0x1e4d4…1e4e0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0136, t01=0x00ac}
0x1e4e0…1e4f6               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0136, t01=0x00b8}
0x1e4f6…1e528               Head {h00=0x002e, h01=0x0050, text=» LDK A2,SEGREC SEGMENT BLOCK RECORD LENGTH«, t00=0x0136, t01=0x00ce}
0x1e528…1e53a               Head {h00=0x000e, h01=0x0050, text=» CALL MULT«, t00=0x0136, t01=0x0100}
0x1e53a…1e54c               Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x0136, t01=0x0112}
0x1e54c…1e576               Head {h00=0x0026, h01=0x0050, text=» ADK A1,NUMSEG+2 => START OF DDIV «, t00=0x0136, t01=0x0124}
0x1e576…1e5ac               Head {h00=0x0032, h01=0x0050, text=» LD A2,SAVE04,A13 GET NEW RELOCATION INCREMENT«, t00=0x0136, t01=0x014e}
0x1e5ac…1e5e0               Head {h00=0x0030, h01=0x0050, text=» ADS A2,M:REL,A13 AND ADJUST RELOCATION BASE«, t00=0x0136, t01=0x0184}
0x1e5e0…1e5fc               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0137, t01=0x0028}
0x1e5fc…1e604               Head {h00=0x0004, h01=0x0050, t00=0x0137, t01=0x0044}
0x1e604…1e636               Head {h00=0x002e, h01=0x0050, text=» ST A1,SAVE04,A13 SAVE DDIV 'FROM'-ADDRESS«, t00=0x0137, t01=0x004c}
0x1e636…1e642               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0137, t01=0x007e}
0x1e642…1e65e               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0137, t01=0x008a}
0x1e65e…1e68e               Head {h00=0x002c, h01=0x0050, text=» ST A1,SAVE04,A13 SAVE DDIV FROM-ADDRESS«, t00=0x0137, t01=0x00a6}
0x1e68e…1e69a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0137, t01=0x00d6}
0x1e69a…1e6b0               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0137, t01=0x00e2}
0x1e6b0…1e6d6               Head {h00=0x0022, h01=0x0050, text=» SUR A6,A1 RELOCATION FOR DDIV«, t00=0x0137, t01=0x00f8}
0x1e6d6…1e6e4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0137, t01=0x011e}
0x1e6e4…1e6ec               Head {h00=0x0004, h01=0x0050, t00=0x0137, t01=0x012c}
0x1e6ec…1e6f8               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0137, t01=0x0134}
0x1e6f8…1e704               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0137, t01=0x0140}
0x1e704…1e738               Head {h00=0x0030, h01=0x0050, text=»* RELOCATE ADDRESSES IN T:ATAB AFTER MOVE * «, t00=0x0137, t01=0x014c}
0x1e738…1e76a               Head {h00=0x002e, h01=0x0050, text=»* CALCULATE TOTAL (=REAL) LENGTH        * «, t00=0x0137, t01=0x0180}
0x1e76a…1e79c               Head {h00=0x002e, h01=0x0050, text=»* REMOVE NOT USED ENTRIES IN T:ATAB     * «, t00=0x0138, t01=0x0022}
0x1e79c…1e7ce               Head {h00=0x002e, h01=0x0050, text=»* A9=P:MTAB   A6=MOVE-RELOC             * «, t00=0x0138, t01=0x0054}
0x1e7ce…1e800               Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0138, t01=0x0086}
0x1e800…1e81c               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0138, t01=0x00b8}
0x1e81c…1e824               Head {h00=0x0004, h01=0x0050, t00=0x0138, t01=0x00d4}
0x1e824…1e840               Head {h00=0x0018, h01=0x0050, text=»* INITIATE POINTERS «, t00=0x0138, t01=0x00dc}
0x1e840…1e848               Head {h00=0x0004, h01=0x0050, t00=0x0138, t01=0x00f8}
0x1e848…1e874               Head {h00=0x0028, h01=0x0050, text=» LD A8,T:ATOD,A13 GET T:ATAB ADDRESS«, t00=0x0138, t01=0x0100}
0x1e874…1e892               Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A8 GET LENGTH«, t00=0x0138, t01=0x012c}
0x1e892…1e8b2               Head {h00=0x001c, h01=0x0050, text=» ADR A3,A8 END OF T:ATAB«, t00=0x0138, t01=0x014a}
0x1e8b2…1e8d0               Head {h00=0x001a, h01=0x0050, text=» ST A3,ENDADD,A13 SAVE«, t00=0x0138, t01=0x016a}
0x1e8d0…1e904               Head {h00=0x0030, h01=0x0050, text=» LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB«, t00=0x0138, t01=0x0188}
0x1e904…1e924               Head {h00=0x001c, h01=0x0050, text=» LDR A4,A5 2:ND POINTER «, t00=0x0139, t01=0x002c}
0x1e924…1e94e               Head {h00=0x0026, h01=0x0050, text=» LDR A2,A8 2:ND POINTER IN T:ATAB «, t00=0x0139, t01=0x004c}
0x1e94e…1e978               Head {h00=0x0026, h01=0x0050, text=» LDK A3,2 SET 'NEW' T:ATAB COUNTER«, t00=0x0139, t01=0x0076}
0x1e978…1e9aa               Head {h00=0x002e, h01=0x0050, text=» SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR«, t00=0x0139, t01=0x00a0}
0x1e9aa…1e9b2               Head {h00=0x0004, h01=0x0050, t00=0x0139, t01=0x00d2}
0x1e9b2…1e9c8               Head {h00=0x0012, h01=0x0050, text=»* SCAN T:ATAB:«, t00=0x0139, t01=0x00da}
0x1e9c8…1e9d0               Head {h00=0x0004, h01=0x0050, t00=0x0139, t01=0x00f0}
0x1e9d0…1e9f6               Head {h00=0x0022, h01=0x0050, text=»SYA160 ADKL A8,2 TAKE NEXT T:A«, t00=0x0139, t01=0x00f8}
0x1e9f6…1ea1e               Head {h00=0x0024, h01=0x0050, text=» ADK A5,2 NEXT T:A IN SHADOW-TAB«, t00=0x0139, t01=0x011e}
0x1ea1e…1ea38               Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x0139, t01=0x0146}
0x1ea38…1ea56               Head {h00=0x001a, h01=0x0050, text=» RF(E) SYA170 ALL DONE«, t00=0x0139, t01=0x0160}
0x1ea56…1ea72               Head {h00=0x0018, h01=0x0050, text=» LDR* A1,A8 GET T:A «, t00=0x0139, t01=0x017e}
0x1ea72…1eaa0               Head {h00=0x002a, h01=0x0050, text=» LDR* A7,A5 GET CONTENTS OF SHADOW-TAB«, t00=0x013a, t01=0x000a}
0x1eaa0…1ead0               Head {h00=0x002c, h01=0x0050, text=» RB(Z) SYA160 THIS T:A IS NOT USED!!!!! «, t00=0x013a, t01=0x0038}
0x1ead0…1eaf6               Head {h00=0x0022, h01=0x0050, text=» ADR A11,A7 ACCUMULATE LENGTH «, t00=0x013a, t01=0x0068}
0x1eaf6…1eb26               Head {h00=0x002c, h01=0x0050, text=» ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH «, t00=0x013a, t01=0x008e}
0x1eb26…1eb56               Head {h00=0x002c, h01=0x0050, text=» ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS«, t00=0x013a, t01=0x00be}
0x1eb56…1eb82               Head {h00=0x0028, h01=0x0050, text=» ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS«, t00=0x013a, t01=0x00ee}
0x1eb82…1ebbe               Head {h00=0x0038, h01=0x0050, text=» STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) «, t00=0x013a, t01=0x011a}
0x1ebbe…1ebe2               Head {h00=0x0020, h01=0x0050, text=» LDR* A10,A8 GET T:A-ADDRESS«, t00=0x013a, t01=0x0156}
0x1ebe2…1ebfe               Head {h00=0x0018, h01=0x0050, text=» ADR A10,A6 RELOCATE«, t00=0x013a, t01=0x017a}
0x1ebfe…1ec30               Head {h00=0x002e, h01=0x0050, text=» STR A10,A2 STORE ADDR. (EV. ON NEW PLACE)«, t00=0x013b, t01=0x0008}
0x1ec30…1ec52               Head {h00=0x001e, h01=0x0050, text=»* RELOCATE W.B.-ADDRESSES «, t00=0x013b, t01=0x003a}
0x1ec52…1ec5a               Head {h00=0x0004, h01=0x0050, t00=0x013b, t01=0x005c}
0x1ec5a…1ec82               Head {h00=0x0024, h01=0x0050, text=» LD A12,T:DAD,A1 GET T:D-ADDRESS«, t00=0x013b, t01=0x0064}
0x1ec82…1ecaa               Head {h00=0x0024, h01=0x0050, text=» LD A7,WATLEN,A12 LENGTH OF WAT «, t00=0x013b, t01=0x008c}
0x1ecaa…1ecdc               Head {h00=0x002e, h01=0x0050, text=» ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS«, t00=0x013b, t01=0x00b4}
0x1ecdc…1ed00               Head {h00=0x0020, h01=0x0050, text=»SYA165 SUK A7,1 DEC. COUNTER«, t00=0x013b, t01=0x00e6}
0x1ed00…1ed24               Head {h00=0x0020, h01=0x0050, text=» RB(N) SYA160 TAKE NEXT T:A «, t00=0x013b, t01=0x010a}
0x1ed24…1ed40               Head {h00=0x0018, h01=0x0050, text=» ADRS A6,A1 RELOCATE«, t00=0x013b, t01=0x012e}
0x1ed40…1ed4c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013b, t01=0x014a}
0x1ed4c…1ed68               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x013b, t01=0x0156}
0x1ed68…1ed70               Head {h00=0x0004, h01=0x0050, t00=0x013b, t01=0x0172}
0x1ed70…1ed8c               Head {h00=0x0018, h01=0x0050, text=»* INITIATE POINTERS «, t00=0x013b, t01=0x017a}
0x1ed8c…1ed94               Head {h00=0x0004, h01=0x0050, t00=0x013c, t01=0x0008}
0x1ed94…1edb4               Head {h00=0x001c, h01=0x0050, text=» LD A8,T:ATOD,A13 T:ATAB«, t00=0x013c, t01=0x0010}
0x1edb4…1edd2               Head {h00=0x001a, h01=0x0050, text=» ELR A3,A8 GET LENGTH «, t00=0x013c, t01=0x0030}
0x1edd2…1edf2               Head {h00=0x001c, h01=0x0050, text=» ADR A3,A8 END OF T:ATAB«, t00=0x013c, t01=0x004e}
0x1edf2…1ee10               Head {h00=0x001a, h01=0x0050, text=» ST A3,ENDADD,A13 SAVE«, t00=0x013c, t01=0x006e}
0x1ee10…1ee44               Head {h00=0x0030, h01=0x0050, text=» LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB«, t00=0x013c, t01=0x008c}
0x1ee44…1ee64               Head {h00=0x001c, h01=0x0050, text=» LDR A4,A5 2:ND POINTER «, t00=0x013c, t01=0x00c0}
0x1ee64…1ee8e               Head {h00=0x0026, h01=0x0050, text=» LDR A2,A8 2:ND POINTER IN T:ATAB «, t00=0x013c, t01=0x00e0}
0x1ee8e…1eeb8               Head {h00=0x0026, h01=0x0050, text=» LDK A3,2 SET 'NEW' T:ATAB COUNTER«, t00=0x013c, t01=0x010a}
0x1eeb8…1eeea               Head {h00=0x002e, h01=0x0050, text=» SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR«, t00=0x013c, t01=0x0134}
0x1eeea…1eef2               Head {h00=0x0004, h01=0x0050, t00=0x013c, t01=0x0166}
0x1eef2…1ef08               Head {h00=0x0012, h01=0x0050, text=»* SCAN T:ATAB:«, t00=0x013c, t01=0x016e}
0x1ef08…1ef10               Head {h00=0x0004, h01=0x0050, t00=0x013c, t01=0x0184}
0x1ef10…1ef36               Head {h00=0x0022, h01=0x0050, text=»SYA160 ADKL A8,2 TAKE NEXT T:A«, t00=0x013c, t01=0x018c}
0x1ef36…1ef5e               Head {h00=0x0024, h01=0x0050, text=» ADK A5,2 NEXT T:A IN SHADOW-TAB«, t00=0x013d, t01=0x0022}
0x1ef5e…1ef78               Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x013d, t01=0x004a}
0x1ef78…1ef96               Head {h00=0x001a, h01=0x0050, text=» RF(E) SYA170 ALL DONE«, t00=0x013d, t01=0x0064}
0x1ef96…1efb0               Head {h00=0x0016, h01=0x0050, text=» ELR A1,A8 GET T:A«, t00=0x013d, t01=0x0082}
0x1efb0…1efde               Head {h00=0x002a, h01=0x0050, text=» LDR* A7,A5 GET CONTENTS OF SHADOW-TAB«, t00=0x013d, t01=0x009c}
0x1efde…1f00e               Head {h00=0x002c, h01=0x0050, text=» RB(Z) SYA160 THIS T:A IS NOT USED!!!!! «, t00=0x013d, t01=0x00ca}
0x1f00e…1f034               Head {h00=0x0022, h01=0x0050, text=» ADR A11,A7 ACCUMULATE LENGTH «, t00=0x013d, t01=0x00fa}
0x1f034…1f064               Head {h00=0x002c, h01=0x0050, text=» ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH «, t00=0x013d, t01=0x0120}
0x1f064…1f094               Head {h00=0x002c, h01=0x0050, text=» ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS«, t00=0x013d, t01=0x0150}
0x1f094…1f0c0               Head {h00=0x0028, h01=0x0050, text=» ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS«, t00=0x013d, t01=0x0180}
0x1f0c0…1f0fc               Head {h00=0x0038, h01=0x0050, text=» STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) «, t00=0x013e, t01=0x001c}
0x1f0fc…1f120               Head {h00=0x0020, h01=0x0050, text=» ELR A10,A8 GET T:A-ADDRESS «, t00=0x013e, t01=0x0058}
0x1f120…1f13c               Head {h00=0x0018, h01=0x0050, text=» ADR A10,A6 RELOCATE«, t00=0x013e, t01=0x007c}
0x1f13c…1f16e               Head {h00=0x002e, h01=0x0050, text=» ESR A10,A2 STORE ADDR. (EV. ON NEW PLACE)«, t00=0x013e, t01=0x0098}
0x1f16e…1f190               Head {h00=0x001e, h01=0x0050, text=»* RELOCATE W.B.-ADDRESSES «, t00=0x013e, t01=0x00ca}
0x1f190…1f198               Head {h00=0x0004, h01=0x0050, t00=0x013e, t01=0x00ec}
0x1f198…1f1c0               Head {h00=0x0024, h01=0x0050, text=» EL A12,T:DAD,A1 GET T:D-ADDRESS«, t00=0x013e, t01=0x00f4}
0x1f1c0…1f1e8               Head {h00=0x0024, h01=0x0050, text=» EL A7,WATLEN,A12 LENGTH OF WAT «, t00=0x013e, t01=0x011c}
0x1f1e8…1f21a               Head {h00=0x002e, h01=0x0050, text=» ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS«, t00=0x013e, t01=0x0144}
0x1f21a…1f23e               Head {h00=0x0020, h01=0x0050, text=»SYA165 SUK A7,1 DEC. COUNTER«, t00=0x013e, t01=0x0176}
0x1f23e…1f262               Head {h00=0x0020, h01=0x0050, text=» RB(N) SYA160 TAKE NEXT T:A «, t00=0x013f, t01=0x000a}
0x1f262…1f282               Head {h00=0x001c, h01=0x0050, text=» ELR A10,A1 GET ADDRESS «, t00=0x013f, t01=0x002e}
0x1f282…1f29e               Head {h00=0x0018, h01=0x0050, text=» ADR A10,A6 RELOCATE«, t00=0x013f, t01=0x004e}
0x1f29e…1f2b2               Head {h00=0x0010, h01=0x0050, text=» ESR A10,A1 «, t00=0x013f, t01=0x006a}
0x1f2b2…1f2be               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013f, t01=0x007e}
0x1f2be…1f2d4               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x013f, t01=0x008a}
0x1f2d4…1f2f0               Head {h00=0x0018, h01=0x0050, text=» ADK A1,4 NEXT W.B. «, t00=0x013f, t01=0x00a0}
0x1f2f0…1f302               Head {h00=0x000e, h01=0x0050, text=» RB SYA165«, t00=0x013f, t01=0x00bc}
0x1f302…1f30a               Head {h00=0x0004, h01=0x0050, t00=0x013f, t01=0x00ce}
0x1f30a…1f31e               Head {h00=0x0010, h01=0x0050, text=»SYA170 EQU *«, t00=0x013f, t01=0x00d6}
0x1f31e…1f33c               Head {h00=0x001a, h01=0x0050, text=» ST A6,MOVADD,A13 SAVE«, t00=0x013f, t01=0x00ea}
0x1f33c…1f378               Head {h00=0x0038, h01=0x0050, text=» ST* A3,SCTSFA STORE NEW TABLE LENGTH IN SHADOW-TAB «, t00=0x013f, t01=0x0108}
0x1f378…1f394               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x013f, t01=0x0144}
0x1f394…1f3bc               Head {h00=0x0024, h01=0x0050, text=» ES* A3,T:ATOD,A13 AND IN T:ATAB«, t00=0x013f, t01=0x0160}
0x1f3bc…1f3c8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013f, t01=0x0188}
0x1f3c8…1f3e4 (320, 0, 400) Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0140, t01=0x0004}
0x1f3e4…1f40c               Head {h00=0x0024, h01=0x0050, text=» ST* A3,T:ATOD,A13 AND IN T:ATAB«, t00=0x0140, t01=0x0020}
0x1f40c…1f418               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0140, t01=0x0048}
0x1f418…1f42e               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0140, t01=0x0054}
0x1f42e…1f462               Head {h00=0x0030, h01=0x0050, text=» LDR A2,A11 GET NUMBER OF T:A'S ACCUMULATOR «, t00=0x0140, t01=0x006a}
0x1f462…1f48e               Head {h00=0x0028, h01=0x0050, text=» SLL A2,1 CALC. REAL LENGTH (BYTES) «, t00=0x0140, t01=0x009e}
0x1f48e…1f4a0               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0140, t01=0x00ca}
0x1f4a0…1f4d4               Head {h00=0x0030, h01=0x0050, text=» ST A2,SAVE05,A13 SAVE TOT. NUMBER OF T:A'S «, t00=0x0140, t01=0x00dc}
0x1f4d4…1f4e0               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0140, t01=0x0110}
0x1f4e0…1f4ee               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0140, t01=0x011c}
0x1f4ee…1f514               Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0140, t01=0x012a}
0x1f514…1f53c               Head {h00=0x0024, h01=0x0050, text=»* RELOCATE ADDRESSES IN U:BTAB *«, t00=0x0140, t01=0x0150}
0x1f53c…1f564               Head {h00=0x0024, h01=0x0050, text=»* (REAL LENGTH=PROTOTYPE LEN.) *«, t00=0x0140, t01=0x0178}
0x1f564…1f58c               Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0141, t01=0x0010}
0x1f58c…1f594               Head {h00=0x0004, h01=0x0050, t00=0x0141, t01=0x0038}
0x1f594…1f5b0               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0141, t01=0x0040}
0x1f5b0…1f5d8               Head {h00=0x0024, h01=0x0050, text=» LD A5,U:BTOD,A13 U:BTAB ADDRESS«, t00=0x0141, t01=0x005c}
0x1f5d8…1f5f2               Head {h00=0x0016, h01=0x0050, text=» LDR* A3,A5 LENGTH«, t00=0x0141, t01=0x0084}
0x1f5f2…1f60c               Head {h00=0x0016, h01=0x0050, text=» ST A3,SAVE06,A13 «, t00=0x0141, t01=0x009e}
0x1f60c…1f62e               Head {h00=0x001e, h01=0x0050, text=» ADK A5,2 SKIP LENGTH WORD«, t00=0x0141, t01=0x00b8}
0x1f62e…1f646               Head {h00=0x0014, h01=0x0050, text=» SUK A3,2   -"- «, t00=0x0141, t01=0x00da}
0x1f646…1f66c               Head {h00=0x0022, h01=0x0050, text=»SYA180 RF(Z) SYA185 ALL DONE! «, t00=0x0141, t01=0x00f2}
0x1f66c…1f688               Head {h00=0x0018, h01=0x0050, text=» ADRS A6,A5 RELOCATE«, t00=0x0141, t01=0x0118}
0x1f688…1f694               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0141, t01=0x0134}
0x1f694…1f6b0               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0141, t01=0x0140}
0x1f6b0…1f6d8               Head {h00=0x0024, h01=0x0050, text=» LD A5,U:BTOD,A13 U:BTAB ADDRESS«, t00=0x0141, t01=0x015c}
0x1f6d8…1f6f8               Head {h00=0x001c, h01=0x0050, text=» ELR A3,A5 TABLE LENGTH «, t00=0x0141, t01=0x0184}
0x1f6f8…1f728               Head {h00=0x002c, h01=0x0050, text=» ST A3,SAVE06,A13 SAVE LENGTH OF U:BTAB «, t00=0x0142, t01=0x0014}
0x1f728…1f73a               Head {h00=0x000e, h01=0x0050, text=» ADK A5,2 «, t00=0x0142, t01=0x0044}
0x1f73a…1f75c               Head {h00=0x001e, h01=0x0050, text=» SUK A3,2 SUB LENGTH-WORD «, t00=0x0142, t01=0x0056}
0x1f75c…1f778               Head {h00=0x0018, h01=0x0050, text=»SYA180 RF(Z) SYA185 «, t00=0x0142, t01=0x0078}
0x1f778…1f798               Head {h00=0x001c, h01=0x0050, text=» ELR A10,A5 GET ADDRESS «, t00=0x0142, t01=0x0094}
0x1f798…1f7b4               Head {h00=0x0018, h01=0x0050, text=» ADR A10,A6 RELOCATE«, t00=0x0142, t01=0x00b4}
0x1f7b4…1f7c8               Head {h00=0x0010, h01=0x0050, text=» ESR A10,A5 «, t00=0x0142, t01=0x00d0}
0x1f7c8…1f7d4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0142, t01=0x00e4}
0x1f7d4…1f7ea               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0142, t01=0x00f0}
0x1f7ea…1f826               Head {h00=0x0038, h01=0x0050, text=» ADK A5,UP:REC ADD TO NEXT RECORD IN U:BTAB PROTOTYP«, t00=0x0142, t01=0x0106}
0x1f826…1f83c               Head {h00=0x0012, h01=0x0050, text=» SUK A3,UP:REC«, t00=0x0142, t01=0x0142}
0x1f83c…1f84e               Head {h00=0x000e, h01=0x0050, text=» RB SYA180«, t00=0x0142, t01=0x0158}
0x1f84e…1f85c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0142, t01=0x016a}
0x1f85c…1f870               Head {h00=0x0010, h01=0x0050, text=»SYA185 EQU *«, t00=0x0142, t01=0x0178}
0x1f870…1f88c               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x0142, t01=0x018c}
0x1f88c…1f896               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0143, t01=0x0018}
0x1f896…1f8be               Head {h00=0x0024, h01=0x0050, text=»*  COMPUTE REAL LENGTH OF S:BTAB«, t00=0x0143, t01=0x0022}
0x1f8be…1f8c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0143, t01=0x004a}
0x1f8c8…1f8f0               Head {h00=0x0024, h01=0x0050, text=» LD A5,S:BTOD,A13 S:BTAB ADDRESS«, t00=0x0143, t01=0x0054}
0x1f8f0…1f916               Head {h00=0x0022, h01=0x0050, text=» ELR A3,A5 LENGTH OF PROTOTYPE«, t00=0x0143, t01=0x007c}
0x1f916…1f92e               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A3 SAVE «, t00=0x0143, t01=0x00a2}
0x1f92e…1f954               Head {h00=0x0022, h01=0x0050, text=» SUK A3,2 EXCLUDE LENGTH WORD «, t00=0x0143, t01=0x00ba}
0x1f954…1f984               Head {h00=0x002c, h01=0x0050, text=»SYA190 RF(Z) SYA199 ALL RECORDS SCANNED!«, t00=0x0143, t01=0x00e0}
0x1f984…1f9ac               Head {h00=0x0024, h01=0x0050, text=» EL A4,2,A5 GET PROT. W.B.-ADDR.«, t00=0x0143, t01=0x0110}
0x1f9ac…1f9c8               Head {h00=0x0018, h01=0x0050, text=» ADR A4,A6 RELOCATE «, t00=0x0143, t01=0x0138}
0x1f9c8…1f9ea               Head {h00=0x001e, h01=0x0050, text=» ES A4,2,A5 STORE IT BACK «, t00=0x0143, t01=0x0154}
0x1f9ea…1fa1a               Head {h00=0x002c, h01=0x0050, text=» EL A4,UPNUMB-1,A5 GET NUMBER OF COPIES «, t00=0x0143, t01=0x0176}
0x1fa1a…1fa3c               Head {h00=0x001e, h01=0x0050, text=» ANK A4,/FF GET RIGHT BYTE«, t00=0x0144, t01=0x0016}
0x1fa3c…1fa6e               Head {h00=0x002e, h01=0x0050, text=»SYA192 RF(Z) SYA194 NO MOORE OF THIS TYPE!«, t00=0x0144, t01=0x0038}
0x1fa6e…1fa90               Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 INCREMENT LENGTH«, t00=0x0144, t01=0x006a}
0x1fa90…1fabc               Head {h00=0x0028, h01=0x0050, text=» SUK A4,1 DECREMENT NUMBER OF COPIES«, t00=0x0144, t01=0x008c}
0x1fabc…1face               Head {h00=0x000e, h01=0x0050, text=» RB SYA192«, t00=0x0144, t01=0x00b8}
0x1face…1fb0a               Head {h00=0x0038, h01=0x0050, text=»SYA194 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE«, t00=0x0144, t01=0x00ca}
0x1fb0a…1fb32               Head {h00=0x0024, h01=0x0050, text=» SUK A3,UP:REC DECREMENT LENGTH «, t00=0x0144, t01=0x0106}
0x1fb32…1fb44               Head {h00=0x000e, h01=0x0050, text=» RB SYA190«, t00=0x0144, t01=0x012e}
0x1fb44…1fb50               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0144, t01=0x0140}
0x1fb50…1fb6c               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x0144, t01=0x014c}
0x1fb6c…1fb94               Head {h00=0x0024, h01=0x0050, text=» LD A5,S:BTOD,A13 S:BTAB ADDRESS«, t00=0x0144, t01=0x0168}
0x1fb94…1fbc2               Head {h00=0x002a, h01=0x0050, text=» LDR* A3,A5 LENGTH OF S:BTAB PROTOTYPE«, t00=0x0144, t01=0x0190}
0x1fbc2…1fbda               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A3 SAVE «, t00=0x0145, t01=0x002e}
0x1fbda…1fc00               Head {h00=0x0022, h01=0x0050, text=» SUK A3,2 EXCLUDE LENGTH WORD «, t00=0x0145, t01=0x0046}
0x1fc00…1fc30               Head {h00=0x002c, h01=0x0050, text=»SYA195 RF(Z) SYA199 ALL RECORDS SCANNED!«, t00=0x0145, t01=0x006c}
0x1fc30…1fc58               Head {h00=0x0024, h01=0x0050, text=» LD A4,2,A5 GET PROT. W.B.-ADDR.«, t00=0x0145, t01=0x009c}
0x1fc58…1fc74               Head {h00=0x0018, h01=0x0050, text=» ADR A4,A6 RELOCATE «, t00=0x0145, t01=0x00c4}
0x1fc74…1fc96               Head {h00=0x001e, h01=0x0050, text=» ST A4,2,A5 STORE IT BACK «, t00=0x0145, t01=0x00e0}
0x1fc96…1fcc6               Head {h00=0x002c, h01=0x0050, text=» LD A4,UPNUMB-1,A5 GET NUMBER OF COPIES «, t00=0x0145, t01=0x0102}
0x1fcc6…1fcda               Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0145, t01=0x0132}
0x1fcda…1fd0c               Head {h00=0x002e, h01=0x0050, text=»SYA196 RF(Z) SYA198 NO MOORE OF THIS TYPE!«, t00=0x0145, t01=0x0146}
0x1fd0c…1fd2e               Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 INCREMENT LENGTH«, t00=0x0145, t01=0x0178}
0x1fd2e…1fd5a               Head {h00=0x0028, h01=0x0050, text=» SUK A4,1 DECREMENT NUMBER OF COPIES«, t00=0x0146, t01=0x000a}
0x1fd5a…1fd6c               Head {h00=0x000e, h01=0x0050, text=» RB SYA196«, t00=0x0146, t01=0x0036}
0x1fd6c…1fda8               Head {h00=0x0038, h01=0x0050, text=»SYA198 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE«, t00=0x0146, t01=0x0048}
0x1fda8…1fdd0               Head {h00=0x0024, h01=0x0050, text=» SUK A3,UP:REC DECREMENT LENGTH «, t00=0x0146, t01=0x0084}
0x1fdd0…1fde2               Head {h00=0x000e, h01=0x0050, text=» RB SYA195«, t00=0x0146, t01=0x00ac}
0x1fde2…1fdee               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0146, t01=0x00be}
0x1fdee…1fe0a               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0146, t01=0x00ca}
0x1fe0a…1fe3e               Head {h00=0x0030, h01=0x0050, text=»SYA199 ST A2,SAVE25,A13 SAVE COMPUTED LENGTH«, t00=0x0146, t01=0x00e6}
0x1fe3e…1fe4a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0146, t01=0x011a}
0x1fe4a…1fe60               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0146, t01=0x0126}
0x1fe60…1fe6e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0146, t01=0x013c}
0x1fe6e…1fe76               Head {h00=0x0004, h01=0x0050, t00=0x0146, t01=0x014a}
0x1fe76…1feb0               Head {h00=0x0036, h01=0x0050, text=»* RELOCATE T:ATAB- AND U:BTAB-ADDRESSES IN P:MTAB «, t00=0x0146, t01=0x0152}
0x1feb0…1febc               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0146, t01=0x018c}
0x1febc…1fed6               Head {h00=0x0016, h01=0x0050, text=» ADS A6,T:ATOD,A13«, t00=0x0147, t01=0x0008}
0x1fed6…1fef0               Head {h00=0x0016, h01=0x0050, text=» ADS A6,U:BTOD,A13«, t00=0x0147, t01=0x0022}
0x1fef0…1ff0c               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0147, t01=0x003c}
0x1ff0c…1ff26               Head {h00=0x0016, h01=0x0050, text=» ADS A6,S:BTOD,A13«, t00=0x0147, t01=0x0058}
0x1ff26…1ff32               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0147, t01=0x0072}
0x1ff32…1ff4e               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0147, t01=0x007e}
0x1ff4e…1ff6e               Head {h00=0x001c, h01=0x0050, text=»* CALCULATE NEW DDIV END«, t00=0x0147, t01=0x009a}
0x1ff6e…1ff76               Head {h00=0x0004, h01=0x0050, t00=0x0147, t01=0x00ba}
0x1ff76…1ff88               Head {h00=0x000e, h01=0x0050, text=» LDR A5,A9«, t00=0x0147, t01=0x00c2}
0x1ff88…1ffac               Head {h00=0x0020, h01=0x0050, text=» SU A5,SAVE04,A13 END-START «, t00=0x0147, t01=0x00d4}
0x1ffac…1ffd4               Head {h00=0x0024, h01=0x0050, text=» AD A5,SAVE12,A13 ADD NEW START «, t00=0x0147, t01=0x00f8}
0x1ffd4…1fff2               Head {h00=0x001a, h01=0x0050, text=» ST A5,DATEND,A13 SAVE«, t00=0x0147, t01=0x0120}
0x1fff2…1fffe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0147, t01=0x013e}
0x1fffe…2001a               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0147, t01=0x014a}
0x2001a…20022               Head {h00=0x0004, h01=0x0050, t00=0x0147, t01=0x0166}
0x20022…2002a               Head {h00=0x0004, h01=0x0050, t00=0x0147, t01=0x016e}
0x2002a…2004c               Head {h00=0x001e, h01=0x0050, text=»* STORE MMTABLE ADDRESSES «, t00=0x0147, t01=0x0176}
0x2004c…20054               Head {h00=0x0004, h01=0x0050, t00=0x0148, t01=0x0008}
0x20054…2006a               Head {h00=0x0012, h01=0x0050, text=» LDK A4,MMDDIV«, t00=0x0148, t01=0x0010}
0x2006a…20090               Head {h00=0x0022, h01=0x0050, text=» ADR A4,A13 GET TABLE ADDRESS «, t00=0x0148, t01=0x0026}
0x20090…200ba               Head {h00=0x0026, h01=0x0050, text=» LDR A5,A13 CALC. REAL RELOCATION «, t00=0x0148, t01=0x004c}
0x200ba…200d4               Head {h00=0x0016, h01=0x0050, text=» SU A5,SAVE12,A13 «, t00=0x0148, t01=0x0076}
0x200d4…200ee               Head {h00=0x0016, h01=0x0050, text=» SU A5,MMREL1,A13 «, t00=0x0148, t01=0x0090}
0x200ee…2010a               Head {h00=0x0018, h01=0x0050, text=» SUR A4,A5 RELOCATE «, t00=0x0148, t01=0x00aa}
0x2010a…2012a               Head {h00=0x001c, h01=0x0050, text=» ST A4,MMTO,A13 AND SAVE«, t00=0x0148, t01=0x00c6}
0x2012a…20140               Head {h00=0x0012, h01=0x0050, text=» LDK A4,MMTAB «, t00=0x0148, t01=0x00e6}
0x20140…20168               Head {h00=0x0024, h01=0x0050, text=» ADR A4,A13 'WORK-TABLE' ADDRESS«, t00=0x0148, t01=0x00fc}
0x20168…20184               Head {h00=0x0018, h01=0x0050, text=» SUR A4,A5 RELOCATE «, t00=0x0148, t01=0x0124}
0x20184…2019e               Head {h00=0x0016, h01=0x0050, text=» ST A4,MMFROM,A13 «, t00=0x0148, t01=0x0140}
0x2019e…201ba               Head {h00=0x0018, h01=0x0050, text=»* CALCULATE DDIV END«, t00=0x0148, t01=0x015a}
0x201ba…201c2               Head {h00=0x0004, h01=0x0050, t00=0x0148, t01=0x0176}
0x201c2…201de               Head {h00=0x0018, h01=0x0050, text=» LDR A5,A9 DDIV END «, t00=0x0148, t01=0x017e}
0x201de…20202               Head {h00=0x0020, h01=0x0050, text=» SU A5,SAVE04,A13 ENT-START «, t00=0x0149, t01=0x000a}
0x20202…2022a               Head {h00=0x0024, h01=0x0050, text=» AD A5,SAVE12,A13 ADD NEW START «, t00=0x0149, t01=0x002e}
0x2022a…2023c               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A5«, t00=0x0149, t01=0x0056}
0x2023c…20270               Head {h00=0x0030, h01=0x0050, text=» ANKL A6,/F000 GET LOGICALL PAGE (MM-ENTRY) «, t00=0x0149, t01=0x0068}
0x20270…20298               Head {h00=0x0024, h01=0x0050, text=» SRL A6,11 ADJUST FOR ADDRESSING«, t00=0x0149, t01=0x009c}
0x20298…202ca               Head {h00=0x002e, h01=0x0050, text=» ADK A6,MMDDIV ADD RELATIVE START ADDRESS «, t00=0x0149, t01=0x00c4}
0x202ca…202e6               Head {h00=0x0018, h01=0x0050, text=» ADR A6,A13 RELOCATE«, t00=0x0149, t01=0x00f6}
0x202e6…20310               Head {h00=0x0026, h01=0x0050, text=» LDR* A6,A6 GET MM-TABLE CONTENTS «, t00=0x0149, t01=0x0112}
0x20310…2032e               Head {h00=0x001a, h01=0x0050, text=» ST A6,FSTPAG,A13 SAVE«, t00=0x0149, t01=0x013c}
0x2032e…20354               Head {h00=0x0022, h01=0x0050, text=» ANKL A5,/FFF GET DISPLACEMENT«, t00=0x0149, t01=0x015a}
0x20354…20376               Head {h00=0x001e, h01=0x0050, text=» ST A5,FSTADR,A13 AND SAVE«, t00=0x0149, t01=0x0180}
0x20376…20382               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x014a, t01=0x0012}
0x20382…20398               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x014a, t01=0x001e}
0x20398…203b6               Head {h00=0x001a, h01=0x0050, text=»* CONTINUE IN PART 2 *«, t00=0x014a, t01=0x0034}
0x203b6…203c2               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x014a, t01=0x0052}
0x203c2…203f4               Head {h00=0x002e, h01=0x0050, text=» LD A2,SAVE12,A13 GET TO-ADDRESS (SYSLDA) «, t00=0x014a, t01=0x005e}
0x203f4…20420               Head {h00=0x0028, h01=0x0050, text=» OR A2,MMREL1,A13 PHYSICALL ADDRESS «, t00=0x014a, t01=0x0090}
0x20420…20438               Head {h00=0x0014, h01=0x0050, text=» LDR A5,A2 SAVE «, t00=0x014a, t01=0x00bc}
0x20438…2046c               Head {h00=0x0030, h01=0x0050, text=» LDKL A7,START2 GET EXECUTION START ADDRESS «, t00=0x014a, t01=0x00d4}
0x2046c…2047e               Head {h00=0x000e, h01=0x0050, text=» ADR A7,A2«, t00=0x014a, t01=0x0108}
0x2047e…204a4               Head {h00=0x0022, h01=0x0050, text=» LDKL A3,LENGT2 SYSLDA LENGTH «, t00=0x014a, t01=0x011a}
0x204a4…204c4               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A13 FROM-ADDRESS«, t00=0x014a, t01=0x0140}
0x204c4…204cc               Head {h00=0x0004, h01=0x0050, t00=0x014a, t01=0x0160}
0x204cc…204e4               Head {h00=0x0014, h01=0x0050, text=»* MOVE SYSLDA * «, t00=0x014a, t01=0x0168}
0x204e4…204ec               Head {h00=0x0004, h01=0x0050, t00=0x014a, t01=0x0180}
0x204ec…20508               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x014a, t01=0x0188}
0x20508…2052a               Head {h00=0x001e, h01=0x0050, text=»NXTMOV LDR* A4,A1 GET WORD«, t00=0x014b, t01=0x0014}
0x2052a…20548               Head {h00=0x001a, h01=0x0050, text=» STR A4,A2 STORE WORD «, t00=0x014b, t01=0x0036}
0x20548…2055a               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x014b, t01=0x0054}
0x2055a…2056c               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x014b, t01=0x0066}
0x2056c…2058a               Head {h00=0x001a, h01=0x0050, text=» SUK A3,2 DEC. LENGTH «, t00=0x014b, t01=0x0078}
0x2058a…205a0               Head {h00=0x0012, h01=0x0050, text=» RB(NN) NXTMOV«, t00=0x014b, t01=0x0096}
0x205a0…205ac               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x014b, t01=0x00ac}
0x205ac…205c8               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x014b, t01=0x00b8}
0x205c8…205d8               Head {h00=0x000c, h01=0x0050, text=» MVB A3 «, t00=0x014b, t01=0x00d4}
0x205d8…205e4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x014b, t01=0x00e4}
0x205e4…205fa               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x014b, t01=0x00f0}
0x205fa…20602               Head {h00=0x0004, h01=0x0050, t00=0x014b, t01=0x0106}
0x20602…20630               Head {h00=0x002a, h01=0x0050, text=» ABR A7 HEJ SVEJS! VI SES I PART 2... «, t00=0x014b, t01=0x010e}
0x20630…2063c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x014b, t01=0x013c}
0x2063c…20652               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x014b, t01=0x0148}
0x20652…20668               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x014b, t01=0x015e}
0x20668…20690               Head {h00=0x0024, h01=0x0050, text=» CALL ERROR INCONSISTENT MONITOR«, t00=0x014b, t01=0x0174}
0x20690…2069c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x014c, t01=0x000c}
0x2069c…206b0               Head {h00=0x0010, h01=0x0050, text=»LDAEND EQU *«, t00=0x014c, t01=0x0018}
0x206b0…206bc               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x014c, t01=0x002c}
0x206bc…206c0               Head {h00=0x4004, h01=0x0000}
0x206c0…206c4               01 4c 00 38                                                                                                                                                                                                                                       ┆ L 8┆
0x206c4…206cc (333, 1, 8)   20 04 00 00 01 4d 00 04                                                                                                                                                                                                                           ┆     M  ┆
0x206cc…2071c (334, 0, 400) 00 5d 01 8e 00 16 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 5e 00 08 00 16 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 5e 00 22 00 16 00 50 2a 20 20 20 42 49 4f 53 51 20 20 20 20 20 20 20 2a 20 00 5e   ┆ ]     P*****************  ^     P*               *  ^ "   P*   BIOSQ       *  ^┆
0x2071c…2076c               00 3c 00 16 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 5e 00 56 00 16 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 5e 00 70 00 06 00 50 2a 20 00 5e 00 8a 00 1e 00 50 2a 20 20 49 4e 50 55 54 3a 20 20 41   ┆ <   P*               *  ^ V   P*****************  ^ p   P*  ^     P*  INPUT:  A┆
0x2076c…207bc               38 20 20 45 43 42 20 41 44 44 52 45 53 53 00 5e 00 94 00 1a 00 50 2a 20 20 20 20 20 20 20 20 20 20 41 34 20 20 20 4f 52 44 45 52 20 00 5e 00 b6 00 06 00 50 2a 20 00 5e 00 d4 00 3e 00 50 2a 20 20 4f 55 54 50 55 54 3a 20 41 32 20 20 42 49 54   ┆8  ECB ADDRESS ^     P*          A4   ORDER  ^     P*  ^   > P*  OUTPUT: A2  BIT┆
0x207bc…2080c               53 20 30 2d 31 32 20 4f 46 20 43 4f 4e 54 52 4f 4c 20 57 4f 52 44 20 55 53 45 44 20 42 59 20 43 49 4f 20 53 54 41 52 54 00 5e 00 de 00 30 00 50 2a 20 20 20 20 20 20 20 20 20 20 41 33 20 20 4e 4f 20 4f 46 20 42 59 54 45 53 20 54 4f 20 42 45   ┆S 0-12 OF CONTROL WORD USED BY CIO START ^   0 P*          A3  NO OF BYTES TO BE┆
0x2080c…2085c               20 54 52 41 4e 53 46 45 52 45 44 20 00 5e 01 20 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 20 41 34 20 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 00 5e 01 54 00 06 00 50 2a 20 00 5e 01 7a 00 10 00 50 42 49 4f 53 51 5c 45 51 55 5c 2a 20   ┆ TRANSFERED  ^   " P*          A4  BUFFER ADDRESS  ^ T   P*  ^ z   PBIOSQ EQU * ┆
0x2085c…208ac (335, 0, 400) 00 5e 01 84 00 0e 00 50 5c 49 46 54 5c 49 42 4d 3d 31 00 5f 00 08 00 26 00 50 5c 4c 44 5c 41 32 2c 45 43 42 43 57 32 2c 41 38 5c 47 45 54 20 53 45 43 54 4f 52 20 4e 55 4d 42 45 52 00 5f 00 1a 00 28 00 50 5c 53 4c 4c 5c 41 32 2c 33 5c 50 55   ┆ ^     P IFT IBM=1 _   & P LD A2,ECBCW2,A8 GET SECTOR NUMBER _   ( P SLL A2,3 PU┆
0x208ac…208fc               54 20 49 4e 20 52 49 47 48 54 20 42 49 4f 20 50 4f 53 49 54 49 4f 4e 20 00 5f 00 44 00 26 00 50 5c 41 44 52 5c 41 32 2c 41 34 5c 43 4f 4d 50 4c 45 54 45 20 42 49 4f 20 57 49 54 48 20 4f 52 44 45 52 00 5f 00 70 00 06 00 50 2a 20 00 5f 00 9a   ┆T IN RIGHT BIO POSITION  _ D & P ADR A2,A4 COMPLETE BIO WITH ORDER _ p   P*  _  ┆
0x208fc…2094c               00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 30 20 00 5f 00 a4 00 26 00 50 5c 4c 44 5c 41 34 2c 45 43 42 42 41 2c 41 38 5c 47 45 54 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 00 5f 00 ba 00 08 00 50 5c 58 49 46 00 5f 00 e4 00 06 00 50   ┆   P IFT MMUPAG=0  _   & P LD A4,ECBBA,A8 GET BUFFER ADDRESS _     P XIF _     P┆
0x2094c…2099c               2a 20 00 5f 00 f0 00 0e 00 50 5c 49 46 54 5c 49 42 4d 3d 31 00 5f 00 fa 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 5f 01 0c 00 26 00 50 5c 4c 44 4b 4c 5c 41 34 2c 42 55 46 5c 44 52 49 56 45 52 20 42 55 46 46 45 52 20 41 44 44   ┆*  _     P IFT IBM=1 _     P IFT MMUPAG=1  _   & P LDKL A4,BUF DRIVER BUFFER ADD┆
0x2099c…209ec               52 45 53 53 00 5f 01 22 00 08 00 50 5c 58 49 46 00 5f 01 4c 00 06 00 50 2a 20 00 5f 01 58 00 0e 00 50 5c 49 46 54 5c 49 42 4d 3d 31 00 5f 01 62 00 24 00 50 5c 4c 44 4b 5c 41 33 2c 53 45 43 4c 45 4e 5c 52 45 51 55 45 53 54 45 44 20 4c 45 4e   ┆RESS _ "   P XIF _ L   P*  _ X   P IFT IBM=1 _ b $ P LDK A3,SECLEN REQUESTED LEN┆
0x209ec…20a3c (336, 0, 400) 47 54 48 20 00 5f 01 74 00 0c 00 50 5c 52 54 4e 5c 41 35 20 00 60 00 0c 00 08 00 50 5c 58 49 46 00 60 00 1c 00 06 00 50 2a 20 00 60 00 28 00 12 00 50 5c 45 4a 45 43 54 5c 5c 44 52 46 44 30 31 00 60 00 32 00 06 00 50 2a 20 00 60 00 48 00 16   ┆GTH  _ t   P RTN A5  `     P XIF `     P*  ` (   P EJECT  DRFD01 ` 2   P*  ` H  ┆
0x20a3c…20a8c               00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 60 00 52 00 16 00 50 2a 20 20 20 56 4f 3a 4e 41 4d 20 20 20 20 20 20 20 2a 00 60 00 6c 00 16 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 60 00 86 00 06 00 50   ┆ P****************** ` R   P*   VO:NAM       * ` l   P****************** `     P┆
0x20a8c…20adc               2a 20 00 60 00 a0 00 06 00 50 2a 20 00 60 00 aa 00 10 00 50 56 4f 3a 4e 41 4d 5c 45 51 55 5c 2a 00 60 00 b4 00 14 00 50 5c 49 46 54 5c 54 4f 53 53 2b 49 42 4d 3d 32 20 00 60 00 c8 00 16 00 50 5c 4c 44 4b 5c 41 33 2c 33 36 5c 4c 45 4e 47 54   ┆*  `     P*  `     PVO:NAM EQU * `     P IFT TOSS+IBM=2  `     P LDK A3,36 LENGT┆
0x20adc…20b2c               48 20 00 60 00 e0 00 08 00 50 5c 58 49 46 00 60 00 fa 00 06 00 50 2a 20 00 60 01 06 00 10 00 50 5c 49 46 54 5c 54 4f 53 53 3d 31 20 00 60 01 10 00 0e 00 50 5c 49 46 54 5c 49 42 4d 3d 30 00 60 01 24 00 20 00 50 5c 4c 44 4b 5c 41 33 2c 36 5c   ┆H  `     P XIF `     P*  `     P IFT TOSS=1  `     P IFT IBM=0 ` $   P LDK A3,6 ┆
0x20b2c…20b7c               56 4f 4c 55 4d 45 20 4e 41 4d 45 20 4c 45 4e 47 54 48 00 60 01 36 00 08 00 50 5c 58 49 46 00 60 01 5a 00 06 00 50 2a 20 00 60 01 66 00 10 00 50 5c 49 46 54 5c 54 4f 53 53 3d 31 20 00 60 01 70 00 12 00 50 5c 4c 44 4b 5c 41 32 2c 30 5c 42 49   ┆VOLUME NAME LENGTH ` 6   P XIF ` Z   P*  ` f   P IFT TOSS=1  ` p   P LDK A2,0 BI┆
0x20b7c…20bcc (337, 0, 398) 4f 20 00 60 01 84 00 20 00 50 5c 4c 44 4b 4c 5c 41 34 2c 42 55 46 5c 52 45 41 44 20 54 4f 20 42 55 46 46 45 52 20 00 61 00 0a 00 12 00 50 5c 43 46 5c 41 35 2c 46 44 3a 52 45 41 20 00 61 00 2e 00 1c 00 50 5c 41 4e 4b 5c 41 33 2c 2f 31 37 5c   ┆O  `     P LDKL A4,BUF READ TO BUFFER  a     P CF A5,FD:REA  a .   P ANK A3,/17 ┆
0x20bcc…20c1c               46 41 54 41 4c 20 45 52 52 4f 52 20 00 61 00 44 00 12 00 50 5c 52 46 28 4e 5a 29 5c 56 4f 4c 3a 34 30 00 61 00 64 00 0e 00 50 5c 49 46 54 5c 49 42 4d 3d 31 00 61 00 7a 00 12 00 50 5c 4c 44 5c 41 32 2c 42 55 46 2b 33 32 20 00 61 00 8c 00 10   ┆FATAL ERROR  a D   P RF(NZ) VOL:40 a d   P IFT IBM=1 a z   P LD A2,BUF+32  a    ┆
0x20c1c…20c6c               00 50 5c 43 57 4b 5c 41 32 2c 27 54 4f 27 00 61 00 a2 00 1c 00 50 5c 52 46 28 4e 45 29 5c 56 4f 4c 3a 31 30 5c 49 42 4d 20 44 49 53 43 20 00 61 00 b6 00 20 00 50 5c 4c 44 5c 41 32 2c 42 55 46 2b 33 34 5c 47 45 54 20 4e 45 58 54 20 57 4f 52   ┆ P CWK A2,'TO' a     P RF(NE) VOL:10 IBM DISC  a     P LD A2,BUF+34 GET NEXT WOR┆
0x20c6c…20cbc               44 20 00 61 00 d6 00 10 00 50 5c 43 57 4b 5c 41 32 2c 27 53 53 27 00 61 00 fa 00 1c 00 50 5c 52 46 28 4e 5a 29 5c 56 4f 4c 3a 31 30 5c 49 42 4d 20 44 49 53 43 20 00 61 01 0e 00 22 00 50 5c 43 31 5c 41 31 2c 44 57 54 41 33 2c 41 36 5c 44 52   ┆D  a     P CWK A2,'SS' a     P RF(NZ) VOL:10 IBM DISC  a   " P C1 A1,DWTA3,A6 DR┆
0x20cbc…20d0a               49 56 45 20 42 49 54 20 4d 41 53 4b 00 61 01 2e 00 28 00 50 5c 41 4e 53 5c 41 31 2c 44 57 54 4c 41 42 2c 41 36 5c 49 4e 44 49 43 41 54 45 20 54 4f 53 53 20 44 49 53 43 00 61 01 54 00 08 00 50 5c 58 49 46 00 61 01 80 00 06 00 50 2a 20         ┆IVE BIT MASK a . ( P ANS A1,DWTLAB,A6 INDICATE TOSS DISC a T   P XIF a     P* ┆
0x20d0a…20d5a (338, 0, 400) 00 61 01 8c 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 46 44 30 31 20 00 62 00 08 00 06 00 50 2a 20 00 62 00 20 00 06 00 50 2a 20 00 62 00 2a 00 10 00 50 5c 49 46 54 5c 54 4f 53 53 3d 31 20 00 62 00 34 00 10 00 50 5c 4c 44 4b 4c 5c 41 32   ┆ a     P EJECT   DRFD01  b     P*  b     P*  b *   P IFT TOSS=1  b 4   P LDKL A2┆
0x20d5a…20daa               2c 42 55 46 00 62 00 48 00 0e 00 50 5c 49 46 54 5c 49 42 4d 3d 31 00 62 00 5c 00 0e 00 50 5c 52 46 5c 56 4f 4c 3a 32 30 00 62 00 6e 00 08 00 50 5c 58 49 46 00 62 00 80 00 06 00 50 2a 20 00 62 00 8c 00 0e 00 50 5c 49 46 54 5c 49 42 4d 3d 31   ┆,BUF b H   P IFT IBM=1 b     P RF VOL:20 b n   P XIF b     P*  b     P IFT IBM=1┆
0x20daa…20dfa               00 62 00 96 00 10 00 50 56 4f 4c 3a 31 30 5c 45 51 55 5c 2a 00 62 00 a8 00 16 00 50 5c 4c 44 4b 5c 41 33 2c 31 30 5c 4c 45 4e 47 54 48 20 00 62 00 bc 00 14 00 50 5c 4c 44 4b 5c 41 32 2c 2f 33 30 5c 42 49 4f 20 00 62 00 d6 00 20 00 50 5c 4c   ┆ b     PVOL:10 EQU * b     P LDK A3,10 LENGTH  b     P LDK A2,/30 BIO  b     P L┆
0x20dfa…20e4a               44 4b 4c 5c 41 34 2c 42 55 46 5c 52 45 41 44 20 54 4f 20 42 55 46 46 45 52 20 00 62 00 ee 00 12 00 50 5c 43 46 5c 41 35 2c 46 44 3a 52 45 41 20 00 62 01 12 00 10 00 50 5c 43 46 5c 41 35 2c 4c 44 3a 52 43 00 62 01 28 00 26 00 50 5c 4c 44 5c   ┆DKL A4,BUF READ TO BUFFER  b     P CF A5,FD:REA  b     P CF A5,LD:RC b ( & P LD ┆
0x20e4a…20e9a               41 31 2c 44 57 54 41 33 2c 41 36 5c 44 52 49 56 45 20 4e 4f 20 42 49 54 20 4d 41 53 4b 20 00 62 01 3c 00 22 00 50 5c 4f 52 53 5c 41 31 2c 44 57 54 4c 41 42 2c 41 36 5c 49 4e 44 49 43 41 54 45 20 49 42 4d 00 62 01 66 00 12 00 50 5c 4c 44 4b   ┆A1,DWTA3,A6 DRIVE NO BIT MASK  b < " P ORS A1,DWTLAB,A6 INDICATE IBM b f   P LDK┆
0x20e9a…20eea (339, 0, 400) 4c 5c 41 31 2c 2f 34 30 30 20 00 62 01 8c 00 2c 00 50 5c 4f 52 52 53 5c 41 31 2c 41 36 5c 55 50 44 41 54 45 20 54 45 4d 50 4f 52 41 52 59 20 52 45 54 55 52 4e 20 43 4f 44 45 00 63 00 12 00 20 00 50 5c 4c 44 4b 5c 41 37 2c 31 30 5c 4e 4f 20   ┆L A1,/400  b   , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE c     P LDK A7,10 NO ┆
0x20eea…20f3a               4f 46 20 43 48 41 52 41 43 54 45 52 53 20 00 63 00 42 00 32 00 50 5c 43 46 5c 41 35 2c 41 53 43 49 49 5c 54 52 41 4e 53 46 45 52 20 49 42 4d 20 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 54 4f 20 41 53 43 49 49 00 63 00 66 00 30 00 50 5c 4c 44 4b   ┆OF CHARACTERS  c B 2 P CF A5,ASCII TRANSFER IBM VOLUME NAME TO ASCII c f 0 P LDK┆
0x20f3a…20f8a               4c 5c 41 32 2c 42 55 46 2b 34 5c 53 54 41 52 54 20 41 44 44 52 45 53 53 20 4f 46 20 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 00 63 00 9c 00 08 00 50 5c 58 49 46 00 63 00 d0 00 06 00 50 2a 20 00 63 00 dc 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44   ┆L A2,BUF+4 START ADDRESS OF VOLUME NAME  c     P XIF c     P*  c     P EJECT   D┆
0x20f8a…20fda               52 46 44 30 31 20 00 63 00 e6 00 06 00 50 2a 20 00 63 00 fe 00 06 00 50 2a 20 00 63 01 08 00 10 00 50 56 4f 4c 3a 32 30 5c 45 51 55 5c 2a 00 63 01 12 00 14 00 50 5c 49 46 46 5c 54 4f 53 53 2b 49 42 4d 3d 30 20 00 63 01 26 00 1a 00 50 5c 4c   ┆RFD01  c     P*  c     P*  c     PVOL:20 EQU * c     P IFF TOSS+IBM=0  c &   P L┆
0x20fda…2102a               44 4b 5c 41 33 2c 2f 46 38 5c 46 49 4c 45 20 43 4f 44 45 20 00 63 01 3e 00 14 00 50 5c 4c 44 5c 41 31 2c 44 57 54 53 54 32 2c 41 36 00 63 01 5c 00 22 00 50 5c 52 46 28 4e 5a 29 5c 56 4f 4c 3a 33 30 5c 4e 4f 54 20 54 45 53 54 20 53 54 41 54   ┆DK A3,/F8 FILE CODE  c >   P LD A1,DWTST2,A6 c   " P RF(NZ) VOL:30 NOT TEST STAT┆
0x2102a…2107a (340, 0, 400) 55 53 00 63 01 74 00 2a 00 50 5c 4f 52 4b 4c 5c 41 33 2c 2f 38 30 30 30 5c 49 4e 44 49 43 41 54 45 20 4e 4f 20 4e 45 57 20 4e 56 4c 20 53 45 54 00 64 00 0a 00 10 00 50 56 4f 4c 3a 33 30 5c 45 51 55 5c 2a 00 64 00 38 00 2e 00 50 5c 43 46 5c   ┆US c t * P ORKL A3,/8000 INDICATE NO NEW NVL SET d     PVOL:30 EQU * d 8 . P CF ┆
0x2107a…210ca               41 31 35 2c 56 4f 4c 47 45 54 5c 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 54 4f 20 44 57 54 20 53 45 54 20 4e 56 4c 20 00 64 00 4c 00 14 00 50 5c 4c 44 5c 41 38 2c 44 57 54 45 43 42 2c 41 36 00 64 00 7e 00 0e 00 50 5c 4c 44 4b 5c 41 33 2c 30 20   ┆A15,VOLGET VOLUME NAME TO DWT SET NVL  d L   P LD A8,DWTECB,A6 d ~   P LDK A3,0 ┆
0x210ca…2111a               00 64 00 96 00 10 00 50 56 4f 4c 3a 34 30 5c 45 51 55 5c 2a 00 64 00 a8 00 0c 00 50 5c 52 54 4e 5c 41 35 20 00 64 00 bc 00 08 00 50 5c 58 49 46 00 64 00 cc 00 06 00 50 2a 20 00 64 00 d8 00 0e 00 50 5c 49 46 54 5c 49 42 4d 3d 31 00 64 00 e2   ┆ d     PVOL:40 EQU * d     P RTN A5  d     P XIF d     P*  d     P IFT IBM=1 d  ┆
0x2111a…2116a               00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 46 44 30 31 20 00 64 00 f4 00 06 00 50 2a 20 00 64 01 0c 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 64 01 16 00 0e 00 50 2a 20 41 53 43 49 49 20 2a 20 00 64 01 28 00 0e 00 50 2a 2a 2a 2a 2a 2a   ┆   P EJECT   DRFD01  d     P*  d     P*********  d     P* ASCII *  d (   P******┆
0x2116a…211ba               2a 2a 2a 20 00 64 01 3a 00 06 00 50 2a 20 00 64 01 4c 00 3a 00 50 2a 20 20 46 55 4e 43 54 49 4f 4e 3a 20 20 41 53 43 49 49 20 54 52 41 4e 53 46 4f 52 4d 53 20 41 20 53 54 52 49 4e 47 20 46 52 4f 4d 20 45 42 43 44 49 43 20 54 4f 00 64 01 56   ┆***  d :   P*  d L : P*  FUNCTION:  ASCII TRANSFORMS A STRING FROM EBCDIC TO d V┆

DataMuseum.dk

Philips Data Systems

⟦7dd9fde40⟧

Derivation

PTS(SC)

HexDump

Reduced view