⟦e32ee308d⟧

PTS(SC)

	IDENT SYSLDA 	REL 9.2 79-12-21  870105040920 

			=5,MOVING AREAS>32K DOES NOT WORK
			REL 9.2 79-12-21 ST
			=4, FAULTY STACK BASE & CWB/UWB BLOCKS 
			REL 9.1 79-07-17 
			=3, IMPOSSIBLE TO LOAD NON MMU SYSTEM
			REL 9.1 79-05-23 
				
				
**********************************************************
* 
*   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	SYSLDA 
	ENTRY	REL	START OF CODE
	ENTRY	LDALEN	PROGRAM LENGTH

* 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

* 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	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,SAVE25 
	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	SCTNOS	NUMBER OF SEGMENTS
	EXTRN	SCTNOP	NUMBER OF PAGES 
	EXTRN	SCTPSZ	PAGE SIZE 
	EXTRN	SCTMMC		=00002 
	EXTRN	SCTOPT	SYSTEM OPTION 
	EXTRN	SCTSEG	SEGMENT TABLE ADDRESS 
	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
	EJECT


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

MMUPAG	EQU	1	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


**********
* 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 'PSWSW-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 
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 
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 
LDALEN	EQU	*-REL
	DATA	LDAEND-REL
XMSAV	EQU	*-REL 
	DATA	0,0 




********************************* 
* 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	* 
TTPAG	DATA	0	LAST ENTRY (FROM BOTTOM) IN MM-TAB 

MMBEG	EQU	TABBE-* 
LSTPAG	EQU	TTPAG-*	DISPL. TO 'ENTRY-POINTER'
	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	EQUAL SIGN?
	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 
	CALL	ERROR	INDICATE MEMORY OVERFLOW
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	COMPARE
	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 WITHIN 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 WITHIN 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 
	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 AUXILARY 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	=3
	LD	A3,TTB:SA+26,A2	GET CORRESPONDING T:A-ADDRESS 
	ST	A4,T:ATID,A3	REPLACE TCL IN T:A	=3
	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	=3 
	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	=3
	LD	A3,TTB:SA+26,A2	GET CORRESPONDING T:A-ADDRESS 
	ES	A4,T:ATID,A3	REPLACE TCL IN T:A	=3
	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	=3 
	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)
	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 
	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)
	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,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
	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                          * 
*          SCTNOS - 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,SCTNOS	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,SCTNOS	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,SCTNOS	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,SCTSEG	START OF SEGMENT TABLE 
	LDK	A4,0	RESET RESIDENT SEGMENT COUNTER
	LD	A12,SCTPAG	START OF PAGE TABLE
	LD	A6,SCTNOS	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
	IFT CREDIT=1 
	LD	A14,SAVE13,A13	TRUE START OF S:GTAB 
	XIF
	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
	ABL	TDISP	BRANCH TO DISPATCHER 
* 
*  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
	SUK	A5,2	SKIP LENGTH WORD
RSWB10	ADK	A1,2	NEXT TYPE 
	LDR*	A4,A1	POINTER TO BLOCK
	LDR*	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,SCTNOS	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 
	IFT	CREDIT+MMUPAG=2		=00001
	CALL	MOVMMT	MOVE MM-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
			 
SYSLDA	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, 400)   Head {h00=0x0032, h01=0x0050, text=» IDENT SYSLDA  REL 9.2 79-12-21  870105040920 «, t00=0x0000, t01=0x0004}
0x00036…0003e               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x0003e…0006a               Head {h00=0x0028, h01=0x0050, text=»   =5,MOVING AREAS>32K DOES NOT WORK«, t00=0x0000, t01=0x0042}
0x0006a…00088               Head {h00=0x001a, h01=0x0050, text=»   REL 9.2 79-12-21 ST«, t00=0x0000, t01=0x006e}
0x00088…000ba               Head {h00=0x002e, h01=0x0050, text=»   =4, FAULTY STACK BASE & CWB/UWB BLOCKS «, t00=0x0000, t01=0x008c}
0x000ba…000d6               Head {h00=0x0018, h01=0x0050, text=»   REL 9.1 79-07-17 «, t00=0x0000, t01=0x00be}
0x000d6…00106               Head {h00=0x002c, h01=0x0050, text=»   =3, IMPOSSIBLE TO LOAD NON MMU SYSTEM«, t00=0x0000, t01=0x00da}
0x00106…00122               Head {h00=0x0018, h01=0x0050, text=»   REL 9.1 79-05-23 «, t00=0x0000, t01=0x010a}
0x00122…0012e               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0000, t01=0x0126}
0x0012e…0013a               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0000, t01=0x0132}
0x0013a…0017c               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0000, t01=0x013e}
0x0017c…00186               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0180}
0x00186…001ae               Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x018a}
0x001ae…001b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0022}
0x001b8…001fa               Head {h00=0x003e, h01=0x0050, text=»*   SYSLDA = SYSTEM LOAD - APPLICATION CONFIGURATION PART «, t00=0x0001, t01=0x002c}
0x001fa…00204               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x006e}
0x00204…0020e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0078}
0x0020e…00218               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0082}
0x00218…00222               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x008c}
0x00222…0022c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0096}
0x0022c…00236               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a0}
0x00236…00278               Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0001, t01=0x00aa}
0x00278…00282               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ec}
0x00282…0028c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f6}
0x0028c…002d6               Head {h00=0x0046, h01=0x0050, text=»*   THIS PART OF THE SYSTEM START-UP WILL TAKE CARE OF APPLICATION«, t00=0x0001, t01=0x0100}
0x002d6…0031c               Head {h00=0x0042, h01=0x0050, text=»*   (CREDIT) CONFIGURATION AND START OF APPLICATION. SYSLDA IS«, t00=0x0001, t01=0x014a}
0x0031c…00366               Head {h00=0x0046, h01=0x0050, text=»*   ENTERED AFTER MONITOR CONFIGURATION (PERFORMED BY SYSLDM), AND«, t00=0x0001, t01=0x0190}
0x00366…003b2               Head {h00=0x0048, h01=0x0050, text=»*   IS AT THAT TIME LOCATED AT HIGHEST FREE ADDRESS OF SYSTEM AREA. «, t00=0x0002, t01=0x004a}
0x003b2…003bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0096}
0x003bc…003de               Head {h00=0x001e, h01=0x0050, text=»*   ASSEMBLER APPLICATION:«, t00=0x0002, t01=0x00a0}
0x003de…0042c               Head {h00=0x004a, h01=0x0050, text=»*      NO CONFIGURATION WILL TAKE PLACE. FIRST USER TASK IS ACTIVATED «, t00=0x0002, t01=0x00c2}
0x0042c…00476               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=0x0110}
0x00476…0049e               Head {h00=0x0024, h01=0x0050, text=»*      MM-TABLES ARE FILLED IN. «, t00=0x0002, t01=0x015a}
0x0049e…004a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0182}
0x004a8…004c8               Head {h00=0x001c, h01=0x0050, text=»*   CREDIT APPLICATION: «, t00=0x0002, t01=0x018c}
0x004c8…00512               Head {h00=0x0046, h01=0x0050, text=»*      SYSLDA READS CONFIGURATION FILE (ALREADY IN CORE) AND BUILD«, t00=0x0003, t01=0x001c}
0x00512…00558               Head {h00=0x0042, h01=0x0050, text=»*      SHADOW-TABLES (TABLES CONTAINING NUMBER OF REAL TASKS &«, t00=0x0003, t01=0x0066}
0x00558…0058a               Head {h00=0x002e, h01=0x0050, text=»*      NUMBER OF USER WORK-BLOCK COPIES). «, t00=0x0003, t01=0x00ac}
0x0058a…005d6               Head {h00=0x0048, h01=0x0050, text=»*      SYSLDA THEN MOVES ITSELF TO FOLLOW MONITOR AND WILL ALSO MOVE«, t00=0x0003, t01=0x00de}
0x005d6…00606               Head {h00=0x002c, h01=0x0050, text=»*      DDIV-PROTOTYPE TO FOLLOW SYSLDA. «, t00=0x0003, t01=0x012a}
0x00606…00610               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x015a}
0x00610…0065c               Head {h00=0x0048, h01=0x0050, text=»*      APPLICATION WORKBLOCKS, DESCRIPTORS, STACK AND TABLES ARE NOW«, t00=0x0003, t01=0x0164}
0x0065c…006a8               Head {h00=0x0048, h01=0x0050, text=»*      BUILT FROM 'BOTTOM' (HIGHEST FREE ADDRESS) OF MEMORY. BUFFERS«, t00=0x0004, t01=0x0020}
0x006a8…006f4               Head {h00=0x0048, h01=0x0050, text=»*      ARE, IN CASE OF MMU IN SYSTEM, ALSO ALLOCATED AT 'BOTTOM' OF «, t00=0x0004, t01=0x006c}
0x006f4…00740               Head {h00=0x0048, h01=0x0050, text=»*      MEMORY; ELSE, IF NO MMU, BUFFERS ARE ALLOCATED AFTER MONITOR «, t00=0x0004, t01=0x00b8}
0x00740…0075e               Head {h00=0x001a, h01=0x0050, text=»*      'OVER' SYSLDA. «, t00=0x0004, t01=0x0104}
0x0075e…00768               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0122}
0x00768…007b4               Head {h00=0x0048, h01=0x0050, text=»*      ALL USER TASKS ARE QUEUED    VIA  A C T O T AND ALL MM-TABLES«, t00=0x0004, t01=0x012c}
0x007b4…007fe               Head {h00=0x0046, h01=0x0050, text=»*      IN USER TASK TTAB'S ARE FILLED. A BRANCH IS FINALLY MADE TO«, t00=0x0004, t01=0x0178}
0x007fe…00830               Head {h00=0x002e, h01=0x0050, text=»*      P F I N I T  TO START APPLICATION. «, t00=0x0005, t01=0x0032}
0x00830…0083e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0064}
0x0083e…0084a               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0005, t01=0x0072}
0x0084a…0086e               Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0005, t01=0x007e}
0x0086e…00892               Head {h00=0x0020, h01=0x0050, text=»*                         * «, t00=0x0005, t01=0x00a2}
0x00892…008b6               Head {h00=0x0020, h01=0x0050, text=»*  ENTRIES AND EXTERNALS  * «, t00=0x0005, t01=0x00c6}
0x008b6…008da               Head {h00=0x0020, h01=0x0050, text=»*                         * «, t00=0x0005, t01=0x00ea}
0x008da…008fe               Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0005, t01=0x010e}
0x008fe…0090a               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0005, t01=0x0132}
0x0090a…00922               Head {h00=0x0014, h01=0x0050, text=»* LABEL ENTRIES «, t00=0x0005, t01=0x013e}
0x00922…00952               Head {h00=0x002c, h01=0x0050, text=» ENTRY JUMP BYPASS JUMP FOR LOAD-MODULE «, t00=0x0005, t01=0x0156}
0x00952…00968               Head {h00=0x0012, h01=0x0050, text=» ENTRY SYSLDA «, t00=0x0005, t01=0x0186}
0x00968…00988               Head {h00=0x001c, h01=0x0050, text=» ENTRY REL START OF CODE«, t00=0x0006, t01=0x000c}
0x00988…009ac               Head {h00=0x0020, h01=0x0050, text=» ENTRY LDALEN PROGRAM LENGTH«, t00=0x0006, t01=0x002c}
0x009ac…009b4               Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0050}
0x009b4…009d0               Head {h00=0x0018, h01=0x0050, text=»* SUBROUTINE ENTRIES«, t00=0x0006, t01=0x0058}
0x009d0…009e4               Head {h00=0x0010, h01=0x0050, text=» ENTRY MOVE «, t00=0x0006, t01=0x0074}
0x009e4…009f8               Head {h00=0x0010, h01=0x0050, text=» ENTRY ERROR«, t00=0x0006, t01=0x0088}
0x009f8…00a20               Head {h00=0x0024, h01=0x0050, text=» ENTRY CMPADR COMPARE ADDRESSES «, t00=0x0006, t01=0x009c}
0x00a20…00a56               Head {h00=0x0032, h01=0x0050, text=» ENTRY NXTBLK SKIP TO NEXT CONFIGURATION BLOCK«, t00=0x0006, t01=0x00c4}
0x00a56…00a8e               Head {h00=0x0034, h01=0x0050, text=» ENTRY NXTCOM SKIP COMMONDEVICE DEFINITION BLOCK«, t00=0x0006, t01=0x00fa}
0x00a8e…00abc               Head {h00=0x002a, h01=0x0050, text=» ENTRY CONVRT CONVERSION ASCII-BINARY «, t00=0x0006, t01=0x0132}
0x00abc…00af2               Head {h00=0x0032, h01=0x0050, text=» ENTRY GETNUM CONVERT 3 ASCII-DIGITS TO BINARY«, t00=0x0006, t01=0x0160}
0x00af2…00afa               Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0008}
0x00afa…00b1e               Head {h00=0x0020, h01=0x0050, text=»* SAVE AND WORK AREA ENTRIES«, t00=0x0007, t01=0x0010}
0x00b1e…00b44               Head {h00=0x0022, h01=0x0050, text=» ENTRY MMTAB WORK-TABLE 1 (MMU«, t00=0x0007, t01=0x0034}
0x00b44…00b7e               Head {h00=0x0036, h01=0x0050, text=» ENTRY TABBE ABSOLUTE START ADDRESS OF WORK-TAB 1 «, t00=0x0007, t01=0x005a}
0x00b7e…00bb6               Head {h00=0x0034, h01=0x0050, text=» ENTRY MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 «, t00=0x0007, t01=0x0094}
0x00bb6…00bec               Head {h00=0x0032, h01=0x0050, text=» ENTRY MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL'«, t00=0x0007, t01=0x00cc}
0x00bec…00c1c               Head {h00=0x002c, h01=0x0050, text=» ENTRY BUFSIZ TEMPORARY MOVE-BUFFER SIZE«, t00=0x0007, t01=0x0102}
0x00c1c…00c4e               Head {h00=0x002e, h01=0x0050, text=» ENTRY SYSBUF TEMPORARY MOVE-BUFFER START «, t00=0x0007, t01=0x0132}
0x00c4e…00c86               Head {h00=0x0034, h01=0x0050, text=» ENTRY M:REL RELOCATION FOR RELOCATION WORD!!!! «, t00=0x0007, t01=0x0164}
0x00c86…00cb0               Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE01,SAVE12,SAVE03,SAVE04«, t00=0x0008, t01=0x000c}
0x00cb0…00cda               Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE05,SAVE06,SAVE07,SAVE08«, t00=0x0008, t01=0x0036}
0x00cda…00d04               Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE09,SAVE10,SAVE11,SAVE02«, t00=0x0008, t01=0x0060}
0x00d04…00d2e               Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE13,SAVE14,SAVE15,SAVE16«, t00=0x0008, t01=0x008a}
0x00d2e…00d58               Head {h00=0x0026, h01=0x0050, text=» ENTRY SAVE17,SAVE18,SAVE19,SAVE20«, t00=0x0008, t01=0x00b4}
0x00d58…00d8a               Head {h00=0x002e, h01=0x0050, text=» ENTRY SAVE21,SAVE22,SAVE23,SAVE24,SAVE25 «, t00=0x0008, t01=0x00de}
0x00d8a…00d98               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0110}
0x00d98…00da0               Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x011e}
0x00da0…00dc8               Head {h00=0x0024, h01=0x0050, text=»* SYSTEM CONTROL TABLE EXTERNALS«, t00=0x0008, t01=0x0126}
0x00dc8…00df0               Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTSFA START OF FREE AREA«, t00=0x0008, t01=0x014e}
0x00df0…00e26               Head {h00=0x0032, h01=0x0050, text=» EXTRN SCTLAC LOGICALL ADDRESS TO COMMON PART «, t00=0x0008, t01=0x0176}
0x00e26…00e4a               Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTTCT TC:TAB ADDRESS«, t00=0x0009, t01=0x001c}
0x00e4a…00e6e               Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTSTB A15 STACK-BASE«, t00=0x0009, t01=0x0040}
0x00e6e…00e94               Head {h00=0x0022, h01=0x0050, text=» EXTRN SCTEFA END OF FREE AREA«, t00=0x0009, t01=0x0064}
0x00e94…00ebc               Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTNOS NUMBER OF SEGMENTS«, t00=0x0009, t01=0x008a}
0x00ebc…00ee2               Head {h00=0x0022, h01=0x0050, text=» EXTRN SCTNOP NUMBER OF PAGES «, t00=0x0009, t01=0x00b2}
0x00ee2…00f02               Head {h00=0x001c, h01=0x0050, text=» EXTRN SCTPSZ PAGE SIZE «, t00=0x0009, t01=0x00d8}
0x00f02…00f20               Head {h00=0x001a, h01=0x0050, text=» EXTRN SCTMMC  =00002 «, t00=0x0009, t01=0x00f8}
0x00f20…00f44               Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTOPT SYSTEM OPTION «, t00=0x0009, t01=0x0116}
0x00f44…00f70               Head {h00=0x0028, h01=0x0050, text=» EXTRN SCTSEG SEGMENT TABLE ADDRESS «, t00=0x0009, t01=0x013a}
0x00f70…00f98               Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTPAG PAGE TABLE ADDRESS«, t00=0x0009, t01=0x0166}
0x00f98…00fd0               Head {h00=0x0034, h01=0x0050, text=» EXTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK TABLE«, t00=0x0009, t01=0x018e}
0x00fd0…00ff4               Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTBUG BUGGER ADDRESS«, t00=0x000a, t01=0x0036}
0x00ff4…00ffc               Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x005a}
0x00ffc…01016               Head {h00=0x0016, h01=0x0050, text=»* EXTERNAL LABELS «, t00=0x000a, t01=0x0062}
0x01016…01050               Head {h00=0x0036, h01=0x0050, text=» EXTRN SYSLDM START OF MONITOR CONFIGURATION PART «, t00=0x000a, t01=0x007c}
0x01050…01078               Head {h00=0x0024, h01=0x0050, text=» EXTRN PAGQUE PAGE QUEUE POINTER«, t00=0x000a, t01=0x00b6}
0x01078…01080               Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00de}
0x01080…0109e               Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL SUBROUTINES«, t00=0x000a, t01=0x00e6}
0x0109e…010be               Head {h00=0x001c, h01=0x0050, text=» EXTRN ACTOT QUEUE TASK «, t00=0x000a, t01=0x0104}
0x010be…010d4               Head {h00=0x0012, h01=0x0050, text=» EXTRN PFINIT «, t00=0x000a, t01=0x0124}
0x010d4…010f4               Head {h00=0x001c, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGS«, t00=0x000a, t01=0x013a}
0x010f4…01118               Head {h00=0x0020, h01=0x0050, text=» EXTRN RETUR8 RELOAD 8 REGS «, t00=0x000a, t01=0x015a}
0x01118…0113e               Head {h00=0x0022, h01=0x0050, text=» EXTRN TDISP DISPATCHER ENTRY «, t00=0x000a, t01=0x017e}
0x0113e…01146               Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0014}
0x01146…01150               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x001c}
0x01150…01180               Head {h00=0x002c, h01=0x0050, text=» EXTRN TTB:SA START OF SAVE AREA IN TTAB«, t00=0x000b, t01=0x0026}
0x01180…0118e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0056}
0x0118e…01196               Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0064}
0x01196…0119e               Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x006c}
0x0119e…011ce               Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000b, t01=0x0074}
0x011ce…011fe               Head {h00=0x002c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY                * «, t00=0x000b, t01=0x00a4}
0x011fe…0122e               Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000b, t01=0x00d4}
0x0122e…01236               Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0104}
0x01236…01256               Head {h00=0x001c, h01=0x0050, text=»MMUPAG EQU 1 0 = NO MMU «, t00=0x000b, t01=0x010c}
0x01256…0125e               Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x012c}
0x0125e…01288               Head {h00=0x0026, h01=0x0050, text=»SWPBLK EQU 0 SWAPPABLE WORK BLOCKS«, t00=0x000b, t01=0x0134}
0x01288…01290               Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x015e}
0x01290…012b2               Head {h00=0x001e, h01=0x0050, text=»CREDIT EQU 1 0 = ASSEMBLER«, t00=0x000b, t01=0x0166}
0x012b2…012ba               Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0188}
0x012ba…012da               Head {h00=0x001c, h01=0x0050, text=»MMUSWB EQU MMUPAG+SWPBLK«, t00=0x000b, t01=0x0190}
0x012da…012e2               Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0020}
0x012e2…01302               Head {h00=0x001c, h01=0x0050, text=»SWBMMU EQU SWPBLK-MMUPAG«, t00=0x000c, t01=0x0028}
0x01302…01310               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0048}
0x01310…01318               Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0056}
0x01318…01336               Head {h00=0x001a, h01=0x0050, text=»   PROGRAM STRUCTURE: «, t00=0x000c, t01=0x005e}
0x01336…0133e               Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x007c}
0x0133e…01388               Head {h00=0x0046, h01=0x0050, text=»*          -------------------------------------------------------«, t00=0x000c, t01=0x0084}
0x01388…013d8               Head {h00=0x004c, h01=0x0050, text=»*          !  RELOCATION ROUTINE                                 !<- A13«, t00=0x000c, t01=0x00ce}
0x013d8…01422               Head {h00=0x0046, h01=0x0050, text=»*          !  A14-STACK AND SUBROUTINE-HANDLER                   !«, t00=0x000c, t01=0x011e}
0x01422…0146c               Head {h00=0x0046, h01=0x0050, text=»*          !-----------------------------------------------------!«, t00=0x000c, t01=0x0168}
0x0146c…014b6               Head {h00=0x0046, h01=0x0050, text=»*          !  SAVE & COMMUNICATION AREA. MMU - WORK TABLES       !«, t00=0x000d, t01=0x0022}
0x014b6…01500               Head {h00=0x0046, h01=0x0050, text=»*          !-----------------------------------------------------!«, t00=0x000d, t01=0x006c}
0x01500…0154a               Head {h00=0x0046, h01=0x0050, text=»*          !  SUBROUTINES. -COMMON TO ALL PARTS IN PROGRAM.      !«, t00=0x000d, t01=0x00b6}
0x0154a…01594               Head {h00=0x0046, h01=0x0050, text=»*          !-----------------------------------------------------!«, t00=0x000d, t01=0x0100}
0x01594…015e8               Head {h00=0x0050, h01=0x0050, text=»*          !  R E A L T A                                        ! PART 2.B «, t00=0x000d, t01=0x014a}
0x015e8…01632               Head {h00=0x0046, h01=0x0050, text=»*          !  BUILD REAL TASK-LOCAL DATA AREAS                   !«, t00=0x000e, t01=0x000e}
0x01632…0167c               Head {h00=0x0046, h01=0x0050, text=»*          !  -QUEUE TASK VIA 'ACTOT'                            !«, t00=0x000e, t01=0x0058}
0x0167c…016c6               Head {h00=0x0046, h01=0x0050, text=»*          !  -FILL MM-TABLE IN TTAB                             !«, t00=0x000e, t01=0x00a2}
0x016c6…01710               Head {h00=0x0046, h01=0x0050, text=»*          !  -COPY T:A'S ACCORDING TO SHADOW-TABLE              !«, t00=0x000e, t01=0x00ec}
0x01710…0175a               Head {h00=0x0046, h01=0x0050, text=»*          !  -BUILD TWB'S AND RESERVE FOR SWB'S                 !«, t00=0x000e, t01=0x0136}
0x0175a…017a4               Head {h00=0x0046, h01=0x0050, text=»*          !  -ALLOCATE FIXED BUFFERS AND STACK                  !«, t00=0x000e, t01=0x0180}
0x017a4…017ee               Head {h00=0x0046, h01=0x0050, text=»*          !  -UPDATE TID IN T:A AND SAVE TID IN T:AID TABLE     !«, t00=0x000f, t01=0x003a}
0x017ee…01838               Head {h00=0x0046, h01=0x0050, text=»*          !  -START DEBUGGER (IF ANY) AND START APPLICATION     !«, t00=0x000f, t01=0x0084}
0x01838…01882               Head {h00=0x0046, h01=0x0050, text=»*          !-----------------------------------------------------!«, t00=0x000f, t01=0x00ce}
0x01882…018d6               Head {h00=0x0050, h01=0x0050, text=»*          !  SUBROUTINES                                        ! PART 2.A «, t00=0x000f, t01=0x0118}
0x018d6…01920               Head {h00=0x0046, h01=0x0050, text=»*          !  -MOVE DDIV PROTOTYPE TO FOLLOW SYSLDA              !«, t00=0x000f, t01=0x016c}
0x01920…0196a               Head {h00=0x0046, h01=0x0050, text=»*          !                                                     !«, t00=0x0010, t01=0x0026}
0x0196a…019b4               Head {h00=0x0046, h01=0x0050, text=»*          !  C O M D A T                                        !«, t00=0x0010, t01=0x0070}
0x019b4…019fe               Head {h00=0x0046, h01=0x0050, text=»*          !  GENERATE COMMON DATA AREA. PROCESS CWB'S & UWB'S.  !«, t00=0x0010, t01=0x00ba}
0x019fe…01a48               Head {h00=0x0046, h01=0x0050, text=»*          !  -MOVE D.T. AND W.B., COPY UWB'S ACCORDING TO       !«, t00=0x0010, t01=0x0104}
0x01a48…01a92               Head {h00=0x0046, h01=0x0050, text=»*          !   SHADOW-TABLE.                                     !«, t00=0x0010, t01=0x014e}
0x01a92…01adc               Head {h00=0x0046, h01=0x0050, text=»*          !                                                     !«, t00=0x0011, t01=0x0008}
0x01adc…01b26               Head {h00=0x0046, h01=0x0050, text=»*          !  C L A D A T                                        !«, t00=0x0011, t01=0x0052}
0x01b26…01b70               Head {h00=0x0046, h01=0x0050, text=»*          !  BUILD TASK CLASS DATA AREAS. PROCESS CWB'S, UWB'S  !«, t00=0x0011, t01=0x009c}
0x01b70…01bba               Head {h00=0x0046, h01=0x0050, text=»*          !  AND DWB'S.                                         !«, t00=0x0011, t01=0x00e6}
0x01bba…01c04               Head {h00=0x0046, h01=0x0050, text=»*          !  -BUILD MM-TABLE                                    !«, t00=0x0011, t01=0x0130}
0x01c04…01c4e               Head {h00=0x0046, h01=0x0050, text=»*          !  -MOVE T:D                                          !«, t00=0x0011, t01=0x017a}
0x01c4e…01c98               Head {h00=0x0046, h01=0x0050, text=»*          !  -MOVE D.T. & W.B., COPY UWB'S                      !«, t00=0x0012, t01=0x0034}
0x01c98…01ce2               Head {h00=0x0046, h01=0x0050, text=»*          !  -MOVE D.T.'S OF SWB'S AND TWB'S                    !«, t00=0x0012, t01=0x007e}
0x01ce2…01d2c               Head {h00=0x0046, h01=0x0050, text=»*          !  -SEARCH DBLK-TAB FOR DWB'S. MOVE D.T. AND UPDATE   !«, t00=0x0012, t01=0x00c8}
0x01d2c…01d76               Head {h00=0x0046, h01=0x0050, text=»*          !   W.B.-ADDRESS                                      !«, t00=0x0012, t01=0x0112}
0x01d76…01dc0               Head {h00=0x0046, h01=0x0050, text=»*          !                                                     !«, t00=0x0012, t01=0x015c}
0x01dc0…01e0a               Head {h00=0x0046, h01=0x0050, text=»*          !  P R O D A T                                        !«, t00=0x0013, t01=0x0016}
0x01e0a…01e54               Head {h00=0x0046, h01=0x0050, text=»*          !  BUILD PROTOTYPE TASK-LOCAL DATA AREAS.             !«, t00=0x0013, t01=0x0060}
0x01e54…01e9e               Head {h00=0x0046, h01=0x0050, text=»*          !  -GENERATE TWB'S AND RESERVE FOR SWB'S              !«, t00=0x0013, t01=0x00aa}
0x01e9e…01ee8               Head {h00=0x0046, h01=0x0050, text=»*          !  -ALLOCATE FIXED BUFFERS AND TERMINAL STACK         !«, t00=0x0013, t01=0x00f4}
0x01ee8…01f32               Head {h00=0x0046, h01=0x0050, text=»*          !  -MOVE T:A                                          !«, t00=0x0013, t01=0x013e}
0x01f32…01f7c               Head {h00=0x0046, h01=0x0050, text=»*          !  -INCLUDE DDIV-PROTOTYPE & PART 2.A IN FREE AREA.   !«, t00=0x0013, t01=0x0188}
0x01f7c…01fc6               Head {h00=0x0046, h01=0x0050, text=»*          !  -CONTINUE IN PART 2.B                              !«, t00=0x0014, t01=0x0042}
0x01fc6…02010               Head {h00=0x0046, h01=0x0050, text=»*          !-----------------------------------------------------!«, t00=0x0014, t01=0x008c}
0x02010…02062               Head {h00=0x004e, h01=0x0050, text=»*          !  SUBROUTINES                                        ! PART 1 «, t00=0x0014, t01=0x00d6}
0x02062…020ac               Head {h00=0x0046, h01=0x0050, text=»*  ENTRY ->!                * SYSLDA ENTRY *                     !«, t00=0x0014, t01=0x0128}
0x020ac…020f6               Head {h00=0x0046, h01=0x0050, text=»*          !  CREDIT APPLICATION:      !  ASSEMBLER APPLICATION: !«, t00=0x0014, t01=0x0172}
0x020f6…02140               Head {h00=0x0046, h01=0x0050, text=»*          !  READ CUNFIGURATION FILE  !  -FILL MM-TABLES IN     !«, t00=0x0015, t01=0x002c}
0x02140…0218a               Head {h00=0x0046, h01=0x0050, text=»*          !  AND BUILD SHADOW-TABLES. !   USER TASK TTAB'S.     !«, t00=0x0015, t01=0x0076}
0x0218a…021d4               Head {h00=0x0046, h01=0x0050, text=»*          !                           !  -QUEUE 1:ST USER TASK  !«, t00=0x0015, t01=0x00c0}
0x021d4…0221e               Head {h00=0x0046, h01=0x0050, text=»*          !  T:ATAB:                  !   AND START APPLICATION !«, t00=0x0015, t01=0x010a}
0x0221e…02268               Head {h00=0x0046, h01=0x0050, text=»*          !  -A TABLE OF 'NUMBER OF   !-------------------------!«, t00=0x0015, t01=0x0154}
0x02268…022b2               Head {h00=0x0046, h01=0x0050, text=»*          !   REAL TASKS' IS BUILT AT                           !«, t00=0x0016, t01=0x000e}
0x022b2…022fc               Head {h00=0x0046, h01=0x0050, text=»*          !   THE END OF MONITOR.                               !«, t00=0x0016, t01=0x0058}
0x022fc…02346               Head {h00=0x0046, h01=0x0050, text=»*          !  U:BTAB:                                            !«, t00=0x0016, t01=0x00a2}
0x02346…02390               Head {h00=0x0046, h01=0x0050, text=»*          !  -A TABLE OF 'NUMBER OF REAL UWB'S' IS BUILT IN     !«, t00=0x0016, t01=0x00ec}
0x02390…023da               Head {h00=0x0046, h01=0x0050, text=»*          !   U:BTAB PROTOTYPE.                                 !«, t00=0x0016, t01=0x0136}
0x023da…02424               Head {h00=0x0046, h01=0x0050, text=»*          !                                                     !«, t00=0x0016, t01=0x0180}
0x02424…0246e               Head {h00=0x0046, h01=0x0050, text=»*          !  -RELOCATE ALL W.B.-ADDRESSES IN DDIV-PROTOTYPE.    !«, t00=0x0017, t01=0x003a}
0x0246e…024b8               Head {h00=0x0046, h01=0x0050, text=»*          !  -REMOVE NOT USED ENTRIES IN T:ATAB                 !«, t00=0x0017, t01=0x0084}
0x024b8…02502               Head {h00=0x0046, h01=0x0050, text=»*          !  -RELOCATE ADDRESSES IN U:BTAB                      !«, t00=0x0017, t01=0x00ce}
0x02502…0254c               Head {h00=0x0046, h01=0x0050, text=»*          !  -MOVE SYSLDA (NOT PART 1) TO FOLLOW T:ATAB SHADOW- !«, t00=0x0017, t01=0x0118}
0x0254c…02596               Head {h00=0x0046, h01=0x0050, text=»*          !   TABLE                                             !«, t00=0x0017, t01=0x0162}
0x02596…025e0               Head {h00=0x0046, h01=0x0050, text=»*          !  -CONTINUE IN PART 2.A                              !«, t00=0x0018, t01=0x001c}
0x025e0…0262a               Head {h00=0x0046, h01=0x0050, text=»*          !-----------------------------------------------------!«, t00=0x0018, t01=0x0066}
0x0262a…02638               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00b0}
0x02638…02644               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0018, t01=0x00be}
0x02644…02660               Head {h00=0x0018, h01=0x0050, text=»  ***************** «, t00=0x0018, t01=0x00ca}
0x02660…0267c               Head {h00=0x0018, h01=0x0050, text=»  ***************** «, t00=0x0018, t01=0x00e6}
0x0267c…02698               Head {h00=0x0018, h01=0x0050, text=»  **             ** «, t00=0x0018, t01=0x0102}
0x02698…026b4               Head {h00=0x0018, h01=0x0050, text=»  **  CONSTANTS  ** «, t00=0x0018, t01=0x011e}
0x026b4…026d0               Head {h00=0x0018, h01=0x0050, text=»  ***************** «, t00=0x0018, t01=0x013a}
0x026d0…026ec               Head {h00=0x0018, h01=0x0050, text=»  **             ** «, t00=0x0018, t01=0x0156}
0x026ec…02708               Head {h00=0x0018, h01=0x0050, text=»  ***************** «, t00=0x0018, t01=0x0172}
0x02708…02714               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0018, t01=0x018e}
0x02714…02726               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x000a}
0x02726…02738               Head {h00=0x000e, h01=0x0050, text=»* P:MTAB *«, t00=0x0019, t01=0x001c}
0x02738…0274a               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x002e}
0x0274a…0275e               Head {h00=0x0010, h01=0x0050, text=»T:ATAB EQU 0«, t00=0x0019, t01=0x0040}
0x0275e…02772               Head {h00=0x0010, h01=0x0050, text=»U:BTAB EQU 2«, t00=0x0019, t01=0x0054}
0x02772…02792               Head {h00=0x001c, h01=0x0050, text=»P:BAS EQU 6 SEGMENT BASE«, t00=0x0019, t01=0x0068}
0x02792…027c4               Head {h00=0x002e, h01=0x0050, text=»T:AID EQU 32 ADDRESS TO 'TABLE OF T:A TID'«, t00=0x0019, t01=0x0088}
0x027c4…027f0               Head {h00=0x0028, h01=0x0050, text=»S:BTAB EQU 40 DISP TO S:BTAB ADDRESS«, t00=0x0019, t01=0x00ba}
0x027f0…027f8               Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x00e6}
0x027f8…02800               Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x00ee}
0x02800…02812               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x00f6}
0x02812…02824               Head {h00=0x000e, h01=0x0050, text=»* U:BTAB *«, t00=0x0019, t01=0x0108}
0x02824…02836               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x011a}
0x02836…0286a               Head {h00=0x0030, h01=0x0050, text=»UP:REC EQU 6 RECORD LENGTH IN INITIAL U:BTAB«, t00=0x0019, t01=0x012c}
0x0286a…02890               Head {h00=0x0022, h01=0x0050, text=»UPADDR EQU 2 PROTOTYPE ADDRESS«, t00=0x0019, t01=0x0160}
0x02890…028b4               Head {h00=0x0020, h01=0x0050, text=»UPNAME EQU 4 PROTOTYPE NAME «, t00=0x0019, t01=0x0186}
0x028b4…028f0               Head {h00=0x0038, h01=0x0050, text=»UPNUMB EQU 7 SAVE AREA NUMBER OF COPIES (SHADOW-TBL)«, t00=0x001a, t01=0x001a}
0x028f0…028fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0056}
0x028fa…0292c               Head {h00=0x002e, h01=0x0050, text=»UR:REC EQU 6 RECORD LENGTH IN REAL U:BTAB «, t00=0x001a, t01=0x0060}
0x0292c…0295a               Head {h00=0x002a, h01=0x0050, text=»URADDR EQU 2 ADDRESS TO FIRST REAL UWB«, t00=0x001a, t01=0x0092}
0x0295a…0297e               Head {h00=0x0020, h01=0x0050, text=»URNUMB EQU 4 NUMBER OF UWB'S«, t00=0x001a, t01=0x00c0}
0x0297e…029a0               Head {h00=0x001e, h01=0x0050, text=»URLENG EQU 6 LENGTH OF UWB«, t00=0x001a, t01=0x00e4}
0x029a0…029ae               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0106}
0x029ae…029ba               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x001a, t01=0x0114}
0x029ba…029c6               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x001a, t01=0x0120}
0x029c6…029d2               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x001a, t01=0x012c}
0x029d2…029fa               Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x001a, t01=0x0138}
0x029fa…02a22               Head {h00=0x0024, h01=0x0050, text=»* CONFIGURATION FILE (CONFIG) * «, t00=0x001a, t01=0x0160}
0x02a22…02a4a               Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x001a, t01=0x0188}
0x02a4a…02a56               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x001b, t01=0x0020}
0x02a56…02a76               Head {h00=0x001c, h01=0x0050, text=»* TASK DEFINITION BLOCK:«, t00=0x001b, t01=0x002c}
0x02a76…02a98               Head {h00=0x001e, h01=0x0050, text=»TDBBT EQU 0 1A BLOCK TYPE «, t00=0x001b, t01=0x004c}
0x02a98…02ac4               Head {h00=0x0028, h01=0x0050, text=»TDBNT EQU TDBBT+1 2N NUMBER OF TASKS«, t00=0x001b, t01=0x006e}
0x02ac4…02af4               Head {h00=0x002c, h01=0x0050, text=»TDBID EQU TDBNT+2 6A TASK ID START VALUE«, t00=0x001b, t01=0x009a}
0x02af4…02b24               Head {h00=0x002c, h01=0x0050, text=»TDBMC EQU TDBID+6 6A MATCHING TASK CLASS«, t00=0x001b, t01=0x00ca}
0x02b24…02b4c               Head {h00=0x0024, h01=0x0050, text=»TDBTL EQU TDBMC+6 6A TASK LEVEL «, t00=0x001b, t01=0x00fa}
0x02b4c…02b8a               Head {h00=0x003a, h01=0x0050, text=»TDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES«, t00=0x001b, t01=0x0122}
0x02b8a…02b94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0160}
0x02b94…02bbe               Head {h00=0x0026, h01=0x0050, text=»TDBFST EQU TDBNC+2 FIRST TERM DEF «, t00=0x001b, t01=0x016a}
0x02bbe…02be6 (28, 0, 400)  Head {h00=0x0024, h01=0x0050, text=»TDC EQU 7 TERMINAL DEVICE CLASS «, t00=0x001c, t01=0x0004}
0x02be6…02c08               Head {h00=0x001e, h01=0x0050, text=»TLC EQU 6 LINE CONNECTION «, t00=0x001c, t01=0x002c}
0x02c08…02c34               Head {h00=0x0028, h01=0x0050, text=»TDBREC EQU TDC+TLC TDB-RECORD LENGTH«, t00=0x001c, t01=0x004e}
0x02c34…02c3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x007a}
0x02c3e…02c6c               Head {h00=0x002a, h01=0x0050, text=»SDC EQU 7 SPECIAL DEVICE CLASS-RECORD «, t00=0x001c, t01=0x0084}
0x02c6c…02c76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00b2}
0x02c76…02c9a               Head {h00=0x0020, h01=0x0050, text=»* COMMON DEVICE DEF. BLOCK: «, t00=0x001c, t01=0x00bc}
0x02c9a…02cbc               Head {h00=0x001e, h01=0x0050, text=»CDBBT EQU 0 1A BLOCK TYPE «, t00=0x001c, t01=0x00e0}
0x02cbc…02cf6               Head {h00=0x0036, h01=0x0050, text=»CDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES «, t00=0x001c, t01=0x0102}
0x02cf6…02d22               Head {h00=0x0028, h01=0x0050, text=»SDCFST EQU CDBNC+2 FIRST SDC-RECORD «, t00=0x001c, t01=0x013c}
0x02d22…02d2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0168}
0x02d2c…02d36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0172}
0x02d36…02d60               Head {h00=0x0026, h01=0x0050, text=»* USER WORK BLOCK TYPE DEF. BLOCK «, t00=0x001c, t01=0x017c}
0x02d60…02d82               Head {h00=0x001e, h01=0x0050, text=»UDBBT EQU 0 1A BLOCK TYPE «, t00=0x001d, t01=0x0016}
0x02d82…02db2               Head {h00=0x002c, h01=0x0050, text=»UDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES«, t00=0x001d, t01=0x0038}
0x02db2…02dbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0068}
0x02dbc…02de8               Head {h00=0x0028, h01=0x0050, text=»UDBFST EQU UDBNU+3 FIRST UDB-RECORD «, t00=0x001d, t01=0x0072}
0x02de8…02e08               Head {h00=0x001c, h01=0x0050, text=»NAMUWB EQU 3 NAME OF UWB«, t00=0x001d, t01=0x009e}
0x02e08…02e2e               Head {h00=0x0022, h01=0x0050, text=»NUMUBL EQU 3 NUMBER OF BLOCKS «, t00=0x001d, t01=0x00be}
0x02e2e…02e60               Head {h00=0x002e, h01=0x0050, text=»UDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH«, t00=0x001d, t01=0x00e4}
0x02e60…02e6e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0116}
0x02e6e…02e7a               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x001d, t01=0x0124}
0x02e7a…02e86               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x001d, t01=0x0130}
0x02e86…02e98               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x001d, t01=0x013c}
0x02e98…02eaa               Head {h00=0x000e, h01=0x0050, text=»*  T:A  * «, t00=0x001d, t01=0x014e}
0x02eaa…02ebc               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x001d, t01=0x0160}
0x02ebc…02edc               Head {h00=0x001c, h01=0x0050, text=»T:ASTA EQU -14 T:A START«, t00=0x001d, t01=0x0172}
0x02edc…02f16 (30, 0, 400)  Head {h00=0x0036, h01=0x0050, text=»CSE EQU -14 CURRENT SEGMENT END (HERE: STACKSIZE) «, t00=0x001e, t01=0x0004}
0x02f16…02f3e               Head {h00=0x0024, h01=0x0050, text=»CSB EQU -12 CURRENT SEGMENT BASE«, t00=0x001e, t01=0x003e}
0x02f3e…02f76               Head {h00=0x0034, h01=0x0050, text=»CSN EQU -10 CURRENT SEGMENT NUMBER (HERE LENGTH «, t00=0x001e, t01=0x0066}
0x02f76…02fac               Head {h00=0x0032, h01=0x0050, text=»                           OF ALL DSCB-RECORDS«, t00=0x001e, t01=0x009e}
0x02fac…02fd0               Head {h00=0x0020, h01=0x0050, text=»T:DAD EQU -8 ADDRESS TO T:D «, t00=0x001e, t01=0x00d4}
0x02fd0…02ffe               Head {h00=0x002a, h01=0x0050, text=»CIA EQU -6 CURRENT INSTUCTION ADDRESS «, t00=0x001e, t01=0x00f8}
0x02ffe…0302a               Head {h00=0x0028, h01=0x0050, text=»   (HERE: DISPLACEMENT TO T:A-START)«, t00=0x001e, t01=0x0126}
0x0302a…03036               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x001e, t01=0x0152}
0x03036…03054               Head {h00=0x001a, h01=0x0050, text=»T:ATID EQU -4 TASK ID «, t00=0x001e, t01=0x015e}
0x03054…03072               Head {h00=0x001a, h01=0x0050, text=»STKE EQU -2 STACK END «, t00=0x001e, t01=0x017c}
0x03072…03090               Head {h00=0x001a, h01=0x0050, text=»PA EQU 0 STACK POINTER«, t00=0x001f, t01=0x000a}
0x03090…030ae               Head {h00=0x001a, h01=0x0050, text=»STKB EQU 2 STACK BASE «, t00=0x001f, t01=0x0028}
0x030ae…030d4               Head {h00=0x0022, h01=0x0050, text=»WATFST EQU 4 FIRST WAT-ELEMENT«, t00=0x001f, t01=0x0046}
0x030d4…030de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x006c}
0x030de…030f4               Head {h00=0x0012, h01=0x0050, text=»* DSCB-RECORD:«, t00=0x001f, t01=0x0076}
0x030f4…03116               Head {h00=0x001e, h01=0x0050, text=»DSCBL EQU 20 RECORD LENGTH«, t00=0x001f, t01=0x008c}
0x03116…03136               Head {h00=0x001c, h01=0x0050, text=»BA EQU 2 BUFFER ADDRESS «, t00=0x001f, t01=0x00ae}
0x03136…03152               Head {h00=0x0018, h01=0x0050, text=»RL EQU 4 REQ. LENGTH«, t00=0x001f, t01=0x00ce}
0x03152…0316e               Head {h00=0x0018, h01=0x0050, text=»EL EQU 6 EFF. LENGTH«, t00=0x001f, t01=0x00ea}
0x0316e…03194               Head {h00=0x0022, h01=0x0050, text=»BL EQU 14 LENGTH ITEM ADDRESS «, t00=0x001f, t01=0x0106}
0x03194…031a2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x012c}
0x031a2…031ae               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x001f, t01=0x013a}
0x031ae…031ba               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x001f, t01=0x0146}
0x031ba…031cc               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x001f, t01=0x0152}
0x031cc…031de               Head {h00=0x000e, h01=0x0050, text=»*  T:D  * «, t00=0x001f, t01=0x0164}
0x031de…031f0               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x001f, t01=0x0176}
0x031f0…0321c               Head {h00=0x0028, h01=0x0050, text=»FCD EQU 0 DISPLACEMENT TO FCB IN T:A«, t00=0x001f, t01=0x0188}
0x0321c…0324c               Head {h00=0x002c, h01=0x0050, text=»T:DTID EQU 2 TASK IDENTIFIER (PROTOTYPE)«, t00=0x0020, t01=0x0024}
0x0324c…0327c               Head {h00=0x002c, h01=0x0050, text=»DATLEN EQU 4 NUMBER OF DATASETS (DSCB'S)«, t00=0x0020, t01=0x0054}
0x0327c…032a6               Head {h00=0x0026, h01=0x0050, text=»WATLEN EQU 6 NUMBER OF WATELEMENTS«, t00=0x0020, t01=0x0084}
0x032a6…032da               Head {h00=0x0030, h01=0x0050, text=»TWBMSK EQU 8 MASK FOR TWB'S (ONE BIT/ENTRY) «, t00=0x0020, t01=0x00ae}
0x032da…03308               Head {h00=0x002a, h01=0x0050, text=»SWBMSK EQU 10 MASK FOR SWB'S      -"- «, t00=0x0020, t01=0x00e2}
0x03308…03336               Head {h00=0x002a, h01=0x0050, text=»CWBMSK EQU 12 MASK FOR CWB'S      -"- «, t00=0x0020, t01=0x0110}
0x03336…03364               Head {h00=0x002a, h01=0x0050, text=»UWBMSK EQU 14 MASK FOR UWB'S      -"- «, t00=0x0020, t01=0x013e}
0x03364…03390               Head {h00=0x0028, h01=0x0050, text=»DWBFST EQU 16 FIRST WORD IN DBLK-TAB«, t00=0x0020, t01=0x016c}
0x03390…03398               Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0008}
0x03398…033ca               Head {h00=0x002e, h01=0x0050, text=»STPREC EQU 4 RECORD LENGTH OF START-POINTS«, t00=0x0021, t01=0x0010}
0x033ca…033d2               Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0042}
0x033d2…033da               Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x004a}
0x033da…033f2               Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0021, t01=0x0052}
0x033f2…0340a               Head {h00=0x0014, h01=0x0050, text=»* SOP-HANDLING *«, t00=0x0021, t01=0x006a}
0x0340a…03422               Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0021, t01=0x0082}
0x03422…03444               Head {h00=0x001e, h01=0x0050, text=»SOP EQU /2E DEVICE ADDRESS«, t00=0x0021, t01=0x009a}
0x03444…0344c               Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x00bc}
0x0344c…0346a               Head {h00=0x001a, h01=0x0050, text=»    LAMP CODE MEANING «, t00=0x0021, t01=0x00c4}
0x0346a…03488               Head {h00=0x001a, h01=0x0050, text=»    --------- ------- «, t00=0x0021, t01=0x00e2}
0x03488…034aa               Head {h00=0x001e, h01=0x0050, text=»LMP1 EQU /400 SYSLOAD RUNS«, t00=0x0021, t01=0x0100}
0x034aa…034ca               Head {h00=0x001c, h01=0x0050, text=»LMP2 EQU /200 READ ERROR«, t00=0x0021, t01=0x0122}
0x034ca…034f0               Head {h00=0x0022, h01=0x0050, text=»LMP3 EQU /100 MEMORY OVERFLOW «, t00=0x0021, t01=0x0142}
0x034f0…0351a               Head {h00=0x0026, h01=0x0050, text=»LMP4 EQU /80 FORMAT ERROR (CONFIG)«, t00=0x0021, t01=0x0168}
0x0351a…03538 (34, 0, 400)  Head {h00=0x001a, h01=0x0050, text=»LMP5 EQU /40 TID ERROR«, t00=0x0022, t01=0x0004}
0x03538…0355e               Head {h00=0x0022, h01=0x0050, text=»LMP6 EQU /20 UWB OR SWB ERROR «, t00=0x0022, t01=0x0022}
0x0355e…03584               Head {h00=0x0022, h01=0x0050, text=»LMP7 EQU /10 MM-TABLE OVERFLOW«, t00=0x0022, t01=0x0048}
0x03584…03596               Head {h00=0x000e, h01=0x0050, text=»LMP8 EQU 8«, t00=0x0022, t01=0x006e}
0x03596…035a8               Head {h00=0x000e, h01=0x0050, text=»LMP9 EQU 4«, t00=0x0022, t01=0x0080}
0x035a8…035bc               Head {h00=0x0010, h01=0x0050, text=»LMP10 EQU 2 «, t00=0x0022, t01=0x0092}
0x035bc…035d0               Head {h00=0x0010, h01=0x0050, text=»LMP11 EQU 1 «, t00=0x0022, t01=0x00a6}
0x035d0…035de               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x00ba}
0x035de…035fc               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0022, t01=0x00c8}
0x035fc…0361a               Head {h00=0x001a, h01=0x0050, text=»*  OTHER CONSTANTS  * «, t00=0x0022, t01=0x00e6}
0x0361a…03638               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0022, t01=0x0104}
0x03638…03644               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0022, t01=0x0122}
0x03644…0366e               Head {h00=0x0026, h01=0x0050, text=»WBLEN EQU -4 LENGTH OF WORK-BLOCK «, t00=0x0022, t01=0x012e}
0x0366e…0369e               Head {h00=0x002c, h01=0x0050, text=»DTLEN EQU -2 LENGTH OF DESCRIPTOR-TABLE «, t00=0x0022, t01=0x0158}
0x0369e…036c8               Head {h00=0x0026, h01=0x0050, text=»SWBLEN EQU 4 DISP TO LENGTH OF SWB«, t00=0x0022, t01=0x0188}
0x036c8…036d4               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0023, t01=0x0022}
0x036d4…036fc               Head {h00=0x0024, h01=0x0050, text=»FCBDD1 EQU 8 DISP TO FIRST DSET «, t00=0x0023, t01=0x002e}
0x036fc…03724               Head {h00=0x0024, h01=0x0050, text=»FCBDD2 EQU 10 DISP TO 2:ND DSET «, t00=0x0023, t01=0x0056}
0x03724…03730               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0023, t01=0x007e}
0x03730…03758               Head {h00=0x0024, h01=0x0050, text=»STKSZ EQU 128 DEFAULT STACK-SIZE«, t00=0x0023, t01=0x008a}
0x03758…03764               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0023, t01=0x00b2}
0x03764…0378e               Head {h00=0x0026, h01=0x0050, text=»CREID EQU 2 CREDIT IDENTIFICATION «, t00=0x0023, t01=0x00be}
0x0378e…037ba               Head {h00=0x0028, h01=0x0050, text=»SEGREC EQU 6 RECORD LENGTH IN S:GTAB«, t00=0x0023, t01=0x00e8}
0x037ba…037f6               Head {h00=0x0038, h01=0x0050, text=»NUMSEG EQU 10 DISPL. TO NUMBER OF SEGMENTS IN S:GTAB«, t00=0x0023, t01=0x0114}
0x037f6…037fe               Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x0150}
0x037fe…0381e               Head {h00=0x001c, h01=0x0050, text=»TTBTID EQU 2 TID IN TTAB«, t00=0x0023, t01=0x0158}
0x0381e…03850               Head {h00=0x002e, h01=0x0050, text=»T:DSAV EQU 0 SAVE FOR T:D-ADDRESS IN TTAB «, t00=0x0023, t01=0x0178}
0x03850…0387e               Head {h00=0x002a, h01=0x0050, text=»TTB:PP EQU 6 SAVE AREA FOR TCL IN TTAB«, t00=0x0024, t01=0x001a}
0x0387e…03886               Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x0048}
0x03886…038b2               Head {h00=0x0028, h01=0x0050, text=»NTPA EQU 4 INTERPRETER START ADDRESS«, t00=0x0024, t01=0x0050}
0x038b2…038dc               Head {h00=0x0026, h01=0x0050, text=»IHRTC EQU 4 RTC INTERRUPT ADDRESS «, t00=0x0024, t01=0x007c}
0x038dc…03904               Head {h00=0x0024, h01=0x0050, text=»RTCDA EQU /1B RTC DEVICE ADDRESS«, t00=0x0024, t01=0x00a6}
0x03904…03910               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0024, t01=0x00ce}
0x03910…0395a               Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0024, t01=0x00da}
0x0395a…039a4               Head {h00=0x0046, h01=0x0050, text=»*  CALL-FORMAT, PERFORMS:  CFR      A14,A13                     * «, t00=0x0024, t01=0x0124}
0x039a4…039ee               Head {h00=0x0046, h01=0x0050, text=»*                          DATA     [REL-ADDRESS]               * «, t00=0x0024, t01=0x016e}
0x039ee…03a38               Head {h00=0x0046, h01=0x0050, text=»*                                                               * «, t00=0x0025, t01=0x0028}
0x03a38…03a82               Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0025, t01=0x0072}
0x03a82…03a8e               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0025, t01=0x00bc}
0x03a8e…03a9a               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0025, t01=0x00c8}
0x03a9a…03aa6               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0025, t01=0x00d4}
0x03aa6…03ac4               Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F697,16 «, t00=0x0025, t01=0x00e0}
0x03ac4…03ad2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x00fe}
0x03ad2…03ade               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0025, t01=0x010c}
0x03ade…03b18               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0025, t01=0x0118}
0x03b18…03b52               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0025, t01=0x0152}
0x03b52…03b8c               Head {h00=0x0036, h01=0x0050, text=»**                                              **«, t00=0x0025, t01=0x018c}
0x03b8c…03bc6               Head {h00=0x0036, h01=0x0050, text=»**  RELOCATION ROUTINE & STACK INITIALLISATION  **«, t00=0x0026, t01=0x0036}
0x03bc6…03c00               Head {h00=0x0036, h01=0x0050, text=»**                                              **«, t00=0x0026, t01=0x0070}
0x03c00…03c3a               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0026, t01=0x00aa}
0x03c3a…03c74               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0026, t01=0x00e4}
0x03c74…03c80               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0026, t01=0x011e}
0x03c80…03cb0               Head {h00=0x002c, h01=0x0050, text=»REL RF SUBBA JUMP TO SUBROUTINE HANDLER «, t00=0x0026, t01=0x012a}
0x03cb0…03cda               Head {h00=0x0026, h01=0x0050, text=» LDR A13,P GET BASE ADDRESS TO A13«, t00=0x0026, t01=0x015a}
0x03cda…03cee               Head {h00=0x0010, h01=0x0050, text=» SUKL A13,4 «, t00=0x0026, t01=0x0184}
0x03cee…03d10               Head {h00=0x001e, h01=0x0050, text=»* ADJUST FOR PSW-ROUTINE *«, t00=0x0027, t01=0x0008}
0x03d10…03d32               Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0027, t01=0x002a}
0x03d32…03d6c               Head {h00=0x0036, h01=0x0050, text=» LDK A3,GETPSW RELATIVE ADDRESS TO 'PSWSW-ADDRESS'«, t00=0x0027, t01=0x004c}
0x03d6c…03d8c               Head {h00=0x001c, h01=0x0050, text=» ADR A3,A13 ABSOLUT DITO«, t00=0x0027, t01=0x0086}
0x03d8c…03dc4               Head {h00=0x0034, h01=0x0050, text=» ST A3,PSW,A13 STORE ADDRESS TO 'GETPSW'-ROUTINE«, t00=0x0027, t01=0x00a6}
0x03dc4…03dde               Head {h00=0x0016, h01=0x0050, text=»* LOAD STACKBASE *«, t00=0x0027, t01=0x00de}
0x03dde…03df8               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0027, t01=0x00f8}
0x03df8…03e00               Head {h00=0x0004, h01=0x0050, t00=0x0027, t01=0x0112}
0x03e00…03e18               Head {h00=0x0014, h01=0x0050, text=» LDKL A14,STACKB«, t00=0x0027, t01=0x011a}
0x03e18…03e36               Head {h00=0x001a, h01=0x0050, text=» ADR A14,A13 RELOCATE «, t00=0x0027, t01=0x0132}
0x03e36…03e46               Head {h00=0x000c, h01=0x0050, text=» RTN A8 «, t00=0x0027, t01=0x0150}
0x03e46…03e52               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0027, t01=0x0160}
0x03e52…03e5e               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0027, t01=0x016c}
0x03e5e…03e70               Head {h00=0x000e, h01=0x0050, text=»* STACK * «, t00=0x0027, t01=0x0178}
0x03e70…03e82               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0027, t01=0x018a}
0x03e82…03e8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x000c}
0x03e8c…03e9c               Head {h00=0x000c, h01=0x0050, text=» RES 12 «, t00=0x0028, t01=0x0016}
0x03e9c…03eb6               Head {h00=0x0016, h01=0x0050, text=»STACKB EQU *-REL-2«, t00=0x0028, t01=0x0026}
0x03eb6…03ec4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0040}
0x03ec4…03ed0               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0028, t01=0x004e}
0x03ed0…03edc               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0028, t01=0x005a}
0x03edc…03efe               Head {h00=0x001e, h01=0x0050, text=»* ADDRESS TO PSW-ROUTINE *«, t00=0x0028, t01=0x0066}
0x03efe…03f20               Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0028, t01=0x0088}
0x03f20…03f2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00aa}
0x03f2a…03f40               Head {h00=0x0012, h01=0x0050, text=»PSW EQU *-REL «, t00=0x0028, t01=0x00b4}
0x03f40…03f54               Head {h00=0x0010, h01=0x0050, text=» DATA GETPSW«, t00=0x0028, t01=0x00ca}
0x03f54…03f60               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0028, t01=0x00de}
0x03f60…03fa8               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0028, t01=0x00ea}
0x03fa8…03ff0               Head {h00=0x0044, h01=0x0050, text=»*                        G E T P S W                           *«, t00=0x0028, t01=0x0132}
0x03ff0…04038               Head {h00=0x0044, h01=0x0050, text=»* LITTLE SUBROUTINE TO PUT PSW IN STACK FOR CALLING SUBROUTINE *«, t00=0x0028, t01=0x017a}
0x04038…04080               Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0029, t01=0x0032}
0x04080…0408c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0029, t01=0x007a}
0x0408c…040a4               Head {h00=0x0014, h01=0x0050, text=»GETPSW EQU *-REL«, t00=0x0029, t01=0x0086}
0x040a4…040cc               Head {h00=0x0024, h01=0x0050, text=» STR A2,A14 SAVE A2 ON A14-STACK«, t00=0x0029, t01=0x009e}
0x040cc…04100               Head {h00=0x0030, h01=0x0050, text=» LD A2,2,A14 GET PSW FROM CALLING SUBROUTINE«, t00=0x0029, t01=0x00c6}
0x04100…04132               Head {h00=0x002e, h01=0x0050, text=» ST A2,6,A14 REPLACE PSW FROM MAIN PROGRAM«, t00=0x0029, t01=0x00fa}
0x04132…04152               Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A14 RESTORE A2 «, t00=0x0029, t01=0x012c}
0x04152…04162               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x014c}
0x04162…04170               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x015c}
0x04170…04178               Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x016a}
0x04178…041a2               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0029, t01=0x0172}
0x041a2…041cc               Head {h00=0x0026, h01=0x0050, text=»*                               * «, t00=0x002a, t01=0x000c}
0x041cc…041f6               Head {h00=0x0026, h01=0x0050, text=»*  SUBROUTINE-HANDLER           * «, t00=0x002a, t01=0x0036}
0x041f6…04220               Head {h00=0x0026, h01=0x0050, text=»*                               * «, t00=0x002a, t01=0x0060}
0x04220…0424a               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x002a, t01=0x008a}
0x0424a…04252               Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x00b4}
0x04252…0426a               Head {h00=0x0014, h01=0x0050, text=»SUBSUB EQU *-REL«, t00=0x002a, t01=0x00bc}
0x0426a…04290               Head {h00=0x0022, h01=0x0050, text=»SUBBA ST A10,MUL,A13 SAVE A10 «, t00=0x002a, t01=0x00d4}
0x04290…042c2               Head {h00=0x002e, h01=0x0050, text=» LD* A10,4,A14 GET SUBROUTINE REL ADDRESS «, t00=0x002a, t01=0x00fa}
0x042c2…042ea               Head {h00=0x0024, h01=0x0050, text=» IM 4,A14 ADJUST RETURN ADDRESS «, t00=0x002a, t01=0x012c}
0x042ea…042fc               Head {h00=0x000e, h01=0x0050, text=» IM 4,A14 «, t00=0x002a, t01=0x0154}
0x042fc…04330               Head {h00=0x0030, h01=0x0050, text=» AD A10,M:REL,A13 ADD FOR SYSLDM RELOCATION «, t00=0x002a, t01=0x0166}
0x04330…04352               Head {h00=0x001e, h01=0x0050, text=» STR A10,A14 PUT ON STACK «, t00=0x002b, t01=0x000a}
0x04352…04376               Head {h00=0x0020, h01=0x0050, text=» LD A10,MUL,A13 RESTORE A10 «, t00=0x002b, t01=0x002c}
0x04376…04388               Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x002b, t01=0x0050}
0x04388…04390               Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x0062}
0x04390…04398               Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x006a}
0x04398…043a0               Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x0072}
0x043a0…043e0               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002b, t01=0x007a}
0x043e0…04420               Head {h00=0x003c, h01=0x0050, text=»* JUMP TO SYSLDM (FROM SYSLOD) ALWAYS VIA THIS MODULE * «, t00=0x002b, t01=0x00ba}
0x04420…04460               Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002b, t01=0x00fa}
0x04460…04468               Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x013a}
0x04468…04480               Head {h00=0x0014, h01=0x0050, text=»JUMP ABL SYSLDM «, t00=0x002b, t01=0x0142}
0x04480…0448e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x015a}
0x0448e…0449a               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x002b, t01=0x0168}
0x0449a…044c6               Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x002b, t01=0x0174}
0x044c6…044f2               Head {h00=0x0028, h01=0x0050, text=»**                                **«, t00=0x002c, t01=0x0010}
0x044f2…0451e               Head {h00=0x0028, h01=0x0050, text=»**  SAVE, AND COMMUNICATION AREA  **«, t00=0x002c, t01=0x003c}
0x0451e…0454a               Head {h00=0x0028, h01=0x0050, text=»**                                **«, t00=0x002c, t01=0x0068}
0x0454a…04576               Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x002c, t01=0x0094}
0x04576…04582               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x002c, t01=0x00c0}
0x04582…045b0               Head {h00=0x002a, h01=0x0050, text=»T:ATOD EQU *-REL T:ATAB 'OLD' ADDRESS «, t00=0x002c, t01=0x00cc}
0x045b0…045c0               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002c, t01=0x00fa}
0x045c0…045ee               Head {h00=0x002a, h01=0x0050, text=»T:ATNW EQU *-REL T:ATAB 'NEW' ADDRESS «, t00=0x002c, t01=0x010a}
0x045ee…045fe               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002c, t01=0x0138}
0x045fe…0462a               Head {h00=0x0028, h01=0x0050, text=»U:BTOD EQU *-REL U:BTAB OLD ADDRESS «, t00=0x002c, t01=0x0148}
0x0462a…0463a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002c, t01=0x0174}
0x0463a…04666               Head {h00=0x0028, h01=0x0050, text=»U:BTNW EQU *-REL U:BTAB NEW ADDRESS «, t00=0x002c, t01=0x0184}
0x04666…04676               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x0020}
0x04676…046a2               Head {h00=0x0028, h01=0x0050, text=»S:BTOD EQU *-REL S:BTAB OLD ADDRESS «, t00=0x002d, t01=0x0030}
0x046a2…046b2               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x005c}
0x046b2…046de               Head {h00=0x0028, h01=0x0050, text=»S:BTNW EQU *-REL S:BTAB NEW ADDRESS «, t00=0x002d, t01=0x006c}
0x046de…046ee               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x0098}
0x046ee…04720               Head {h00=0x002e, h01=0x0050, text=»MOVADD EQU *-REL ADDRESS-CHANGE AFTER MOVE«, t00=0x002d, t01=0x00a8}
0x04720…04730               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x00da}
0x04730…04768               Head {h00=0x0034, h01=0x0050, text=»MOVED EQU *-REL INDICATOR IF BLOCK ALREDY MOVED «, t00=0x002d, t01=0x00ea}
0x04768…04778               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x0122}
0x04778…047a6               Head {h00=0x002a, h01=0x0050, text=»ENDADD EQU *-REL END-ADDRESS INDICATOR«, t00=0x002d, t01=0x0132}
0x047a6…047c4               Head {h00=0x001a, h01=0x0050, text=»   FOR TABLE-SCANNING «, t00=0x002d, t01=0x0160}
0x047c4…047d4               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002d, t01=0x017e}
0x047d4…04812               Head {h00=0x003a, h01=0x0050, text=»LSTADR EQU *-REL LAST ADDRESS WHEN BUILDING DATA PART «, t00=0x002d, t01=0x018e}
0x04812…04822               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x003c}
0x04822…04866               Head {h00=0x0040, h01=0x0050, text=»FSTADR EQU *-REL FIRST FREE ADDRESS WHEN ALLOCATING BUFFERS «, t00=0x002e, t01=0x004c}
0x04866…04876               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x0090}
0x04876…048a4               Head {h00=0x002a, h01=0x0050, text=»NEWAD1 EQU *-REL SAVE FOR W.B. ADDRESS«, t00=0x002e, t01=0x00a0}
0x048a4…048b4               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x00ce}
0x048b4…048e2               Head {h00=0x002a, h01=0x0050, text=»NEWAD2 EQU *-REL SAVE FORD.T. ADDRESS «, t00=0x002e, t01=0x00de}
0x048e2…048f2               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x010c}
0x048f2…0491a               Head {h00=0x0024, h01=0x0050, text=»SWITCH EQU *-REL D.T. INDICATOR «, t00=0x002e, t01=0x011c}
0x0491a…0492a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x0144}
0x0492a…04964               Head {h00=0x0036, h01=0x0050, text=»FLAG EQU *-REL REAL TASK DATA PROCESSING INDICATOR«, t00=0x002e, t01=0x0154}
0x04964…04974               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x018e}
0x04974…0499a               Head {h00=0x0022, h01=0x0050, text=»UWB EQU *-REL U.W.B. INDICATOR«, t00=0x002f, t01=0x000e}
0x0499a…049aa               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x0034}
0x049aa…049d2               Head {h00=0x0024, h01=0x0050, text=»SAVE01 EQU *-REL TEMPORARY SAVE «, t00=0x002f, t01=0x0044}
0x049d2…049e2               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x006c}
0x049e2…049fa               Head {h00=0x0014, h01=0x0050, text=»SAVE02 EQU *-REL«, t00=0x002f, t01=0x007c}
0x049fa…04a0a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x0094}
0x04a0a…04a22               Head {h00=0x0014, h01=0x0050, text=»SAVE03 EQU *-REL«, t00=0x002f, t01=0x00a4}
0x04a22…04a32               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x00bc}
0x04a32…04a4a               Head {h00=0x0014, h01=0x0050, text=»SAVE04 EQU *-REL«, t00=0x002f, t01=0x00cc}
0x04a4a…04a5a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x00e4}
0x04a5a…04a72               Head {h00=0x0014, h01=0x0050, text=»SAVE05 EQU *-REL«, t00=0x002f, t01=0x00f4}
0x04a72…04a82               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x010c}
0x04a82…04a9a               Head {h00=0x0014, h01=0x0050, text=»SAVE06 EQU *-REL«, t00=0x002f, t01=0x011c}
0x04a9a…04aaa               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x0134}
0x04aaa…04ac2               Head {h00=0x0014, h01=0x0050, text=»SAVE07 EQU *-REL«, t00=0x002f, t01=0x0144}
0x04ac2…04ad2               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x015c}
0x04ad2…04aea               Head {h00=0x0014, h01=0x0050, text=»SAVE08 EQU *-REL«, t00=0x002f, t01=0x016c}
0x04aea…04afa               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x0184}
0x04afa…04b1e (48, 0, 400)  Head {h00=0x0020, h01=0x0050, text=»SAVE09 EQU *-REL SAVE AREAS «, t00=0x0030, t01=0x0004}
0x04b1e…04b2e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0028}
0x04b2e…04b46               Head {h00=0x0014, h01=0x0050, text=»SAVE10 EQU *-REL«, t00=0x0030, t01=0x0038}
0x04b46…04b56               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0050}
0x04b56…04b6e               Head {h00=0x0014, h01=0x0050, text=»SAVE11 EQU *-REL«, t00=0x0030, t01=0x0060}
0x04b6e…04b7e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0078}
0x04b7e…04b96               Head {h00=0x0014, h01=0x0050, text=»SAVE12 EQU *-REL«, t00=0x0030, t01=0x0088}
0x04b96…04ba6               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x00a0}
0x04ba6…04bbe               Head {h00=0x0014, h01=0x0050, text=»SAVE13 EQU *-REL«, t00=0x0030, t01=0x00b0}
0x04bbe…04bce               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x00c8}
0x04bce…04be6               Head {h00=0x0014, h01=0x0050, text=»SAVE22 EQU *-REL«, t00=0x0030, t01=0x00d8}
0x04be6…04bf6               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x00f0}
0x04bf6…04c0e               Head {h00=0x0014, h01=0x0050, text=»SAVE25 EQU *-REL«, t00=0x0030, t01=0x0100}
0x04c0e…04c1e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0118}
0x04c1e…04c48               Head {h00=0x0026, h01=0x0050, text=»WBADD EQU *-REL W.B.-ADDRESS SAVE «, t00=0x0030, t01=0x0128}
0x04c48…04c58               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0152}
0x04c58…04c86               Head {h00=0x002a, h01=0x0050, text=»MUL EQU *-REL MULTIPLICATION REGISTER «, t00=0x0030, t01=0x0162}
0x04c86…04c96               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0030, t01=0x0190}
0x04c96…04cc0               Head {h00=0x0026, h01=0x0050, text=»BIT EQU *-REL SAVE FOR SUPER-LOOP «, t00=0x0031, t01=0x0010}
0x04cc0…04cd0               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x003a}
0x04cd0…04d0c               Head {h00=0x0038, h01=0x0050, text=»TADISP EQU *-REL DISPLACEMENT IN T:A TO W.B. ADDRESS«, t00=0x0031, t01=0x004a}
0x04d0c…04d1c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x0086}
0x04d1c…04d4a               Head {h00=0x002a, h01=0x0050, text=»DATEND EQU *-REL END OF DDIV PROTOTYPE«, t00=0x0031, t01=0x0096}
0x04d4a…04d5a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x00c4}
0x04d5a…04d86               Head {h00=0x0028, h01=0x0050, text=»MMREL1 EQU *-REL PHYSICALL PAGE BASE«, t00=0x0031, t01=0x00d4}
0x04d86…04d96               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x0100}
0x04d96…04dc4               Head {h00=0x002a, h01=0x0050, text=»M:REL EQU *-REL RELOCATION FOR SYSLDM «, t00=0x0031, t01=0x0110}
0x04dc4…04dd4               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x013e}
0x04dd4…04dec               Head {h00=0x0014, h01=0x0050, text=»SYSBUF EQU *-REL«, t00=0x0031, t01=0x014e}
0x04dec…04e1a               Head {h00=0x002a, h01=0x0050, text=» DATA 0 TEMPORARY BUFFER START ADDRESS«, t00=0x0031, t01=0x0166}
0x04e1a…04e44 (50, 0, 400)  Head {h00=0x0026, h01=0x0050, text=»BUFSIZ EQU *-REL TEMP. BUFFER SIZE«, t00=0x0032, t01=0x0004}
0x04e44…04e54               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x002e}
0x04e54…04e7a               Head {h00=0x0022, h01=0x0050, text=»MMTO EQU *-REL MMTABLE ADDRESS«, t00=0x0032, t01=0x003e}
0x04e7a…04e8a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x0064}
0x04e8a…04eb8               Head {h00=0x002a, h01=0x0050, text=»MMFROM EQU *-REL 2:ND MMTABLE ADDRESS «, t00=0x0032, t01=0x0074}
0x04eb8…04ec8               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x00a2}
0x04ec8…04efc               Head {h00=0x0030, h01=0x0050, text=»FYSPAG EQU *-REL LAST PHYSICALLY PAGE NUMBER«, t00=0x0032, t01=0x00b2}
0x04efc…04f0c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x00e6}
0x04f0c…04f24               Head {h00=0x0014, h01=0x0050, text=»FSTPAG EQU *-REL«, t00=0x0032, t01=0x00f6}
0x04f24…04f50               Head {h00=0x0028, h01=0x0050, text=» DATA 0 FIRST FREE PAGE (PHYSICALL) «, t00=0x0032, t01=0x010e}
0x04f50…04f7c               Head {h00=0x0028, h01=0x0050, text=»TTAB EQU *-REL CORRENT TTAB ADDRESS «, t00=0x0032, t01=0x013a}
0x04f7c…04f8c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0032, t01=0x0166}
0x04f8c…04fa4               Head {h00=0x0014, h01=0x0050, text=»LDALEN EQU *-REL«, t00=0x0032, t01=0x0176}
0x04fa4…04fbc               Head {h00=0x0014, h01=0x0050, text=» DATA LDAEND-REL«, t00=0x0032, t01=0x018e}
0x04fbc…04fd4               Head {h00=0x0014, h01=0x0050, text=»XMSAV EQU *-REL «, t00=0x0033, t01=0x0016}
0x04fd4…04fe6               Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0033, t01=0x002e}
0x04fe6…04fee               Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x0040}
0x04fee…04ff6               Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x0048}
0x04ff6…04ffe               Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x0050}
0x04ffe…05006               Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x0058}
0x05006…05030               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0033, t01=0x0060}
0x05030…0505a               Head {h00=0x0026, h01=0x0050, text=»* EQUATES FOR SYSLDM SAVE-WORDS * «, t00=0x0033, t01=0x008a}
0x0505a…05084               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0033, t01=0x00b4}
0x05084…0508c               Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x00de}
0x0508c…050a6               Head {h00=0x0016, h01=0x0050, text=»SAVE14 EQU U:BTOD «, t00=0x0033, t01=0x00e6}
0x050a6…050c0               Head {h00=0x0016, h01=0x0050, text=»SAVE15 EQU U:BTNW «, t00=0x0033, t01=0x0100}
0x050c0…050da               Head {h00=0x0016, h01=0x0050, text=»SAVE16 EQU MOVADD «, t00=0x0033, t01=0x011a}
0x050da…050f4               Head {h00=0x0016, h01=0x0050, text=»SAVE17 EQU ENDADD «, t00=0x0033, t01=0x0134}
0x050f4…0510e               Head {h00=0x0016, h01=0x0050, text=»SAVE18 EQU LSTADR «, t00=0x0033, t01=0x014e}
0x0510e…05128               Head {h00=0x0016, h01=0x0050, text=»SAVE19 EQU FSTADR «, t00=0x0033, t01=0x0168}
0x05128…05140               Head {h00=0x0014, h01=0x0050, text=»SAVE20 EQU MOVED«, t00=0x0033, t01=0x0182}
0x05140…0515a               Head {h00=0x0016, h01=0x0050, text=»SAVE21 EQU NEWAD1 «, t00=0x0034, t01=0x000a}
0x0515a…05174               Head {h00=0x0016, h01=0x0050, text=»SAVE23 EQU SWITCH «, t00=0x0034, t01=0x0024}
0x05174…0518c               Head {h00=0x0014, h01=0x0050, text=»SAVE24 EQU FLAG «, t00=0x0034, t01=0x003e}
0x0518c…0519a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x0056}
0x0519a…051a2               Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x0064}
0x051a2…051b8               Head {h00=0x0012, h01=0x0050, text=»* MMU TABLES *«, t00=0x0034, t01=0x006c}
0x051b8…051c0               Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x0082}
0x051c0…051c8               Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x008a}
0x051c8…051fa               Head {h00=0x002e, h01=0x0050, text=»MMDDIV EQU *-REL DDIV (& SYSLDA) MM-TABLE «, t00=0x0034, t01=0x0092}
0x051fa…05210               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0034, t01=0x00c4}
0x05210…05220               Head {h00=0x000c, h01=0x0050, text=» RES 16 «, t00=0x0034, t01=0x00da}
0x05220…0522c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x00ea}
0x0522c…05234               Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x00f6}
0x05234…0525c               Head {h00=0x0024, h01=0x0050, text=»MMTAB EQU *-REL WORK AREA MM-TAB«, t00=0x0034, t01=0x00fe}
0x0525c…05270               Head {h00=0x0010, h01=0x0050, text=»TABBE EQU * «, t00=0x0034, t01=0x0126}
0x05270…05286               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0034, t01=0x013a}
0x05286…052a4               Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0034, t01=0x0150}
0x052a4…052c2               Head {h00=0x001a, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0034, t01=0x016e}
0x052c2…052ce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x018c}
0x052ce…052e2               Head {h00=0x0010, h01=0x0050, text=»MMEND EQU * «, t00=0x0035, t01=0x0008}
0x052e2…0531a               Head {h00=0x0034, h01=0x0050, text=»TTPAG DATA 0 LAST ENTRY (FROM BOTTOM) IN MM-TAB «, t00=0x0035, t01=0x001c}
0x0531a…05322               Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x0054}
0x05322…0533c               Head {h00=0x0016, h01=0x0050, text=»MMBEG EQU TABBE-* «, t00=0x0035, t01=0x005c}
0x0533c…05370               Head {h00=0x0030, h01=0x0050, text=»LSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER'«, t00=0x0035, t01=0x0076}
0x05370…0537e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x00aa}
0x0537e…0538a               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0035, t01=0x00b8}
0x0538a…053c4               Head {h00=0x0036, h01=0x0050, text=»***                                           *** «, t00=0x0035, t01=0x00c4}
0x053c4…053fe               Head {h00=0x0036, h01=0x0050, text=»***      S  U  B  R  O  U  T  I  N  E  S      *** «, t00=0x0035, t01=0x00fe}
0x053fe…05438               Head {h00=0x0036, h01=0x0050, text=»***  -COMMON TO ALL PARTS IN PROGRAM          *** «, t00=0x0035, t01=0x0138}
0x05438…05472               Head {h00=0x0036, h01=0x0050, text=»***                                           *** «, t00=0x0035, t01=0x0172}
0x05472…054ac               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0036, t01=0x001c}
0x054ac…054e6               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0036, t01=0x0056}
0x054e6…054f2               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0036, t01=0x0090}
0x054f2…054fe               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0036, t01=0x009c}
0x054fe…0552e               Head {h00=0x002c, h01=0x0050, text=»**              E R R O R             **«, t00=0x0036, t01=0x00a8}
0x0552e…0555e               Head {h00=0x002c, h01=0x0050, text=»**                                    **«, t00=0x0036, t01=0x00d8}
0x0555e…0558e               Head {h00=0x002c, h01=0x0050, text=»**                                    **«, t00=0x0036, t01=0x0108}
0x0558e…055be               Head {h00=0x002c, h01=0x0050, text=»**  ERROR HANDLING ROUTINE.           **«, t00=0x0036, t01=0x0138}
0x055be…055ee               Head {h00=0x002c, h01=0x0050, text=»**                                    **«, t00=0x0036, t01=0x0168}
0x055ee…0561e               Head {h00=0x002c, h01=0x0050, text=»**  INPUT :A1=SOP-MESSAGE             **«, t00=0x0037, t01=0x0008}
0x0561e…0564e               Head {h00=0x002c, h01=0x0050, text=»**  OUTPUT:A2=RELATIVE CALLING ADDRESS**«, t00=0x0037, t01=0x0038}
0x0564e…0567e               Head {h00=0x002c, h01=0x0050, text=»**            (REG-CONTENTS IS SAVED) **«, t00=0x0037, t01=0x0068}
0x0567e…056ae               Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0037, t01=0x0098}
0x056ae…056b6               Head {h00=0x0004, h01=0x0050, t00=0x0037, t01=0x00c8}
0x056b6…056ca               Head {h00=0x0010, h01=0x0050, text=»ERROR EQU * «, t00=0x0037, t01=0x00d0}
0x056ca…056ec               Head {h00=0x001e, h01=0x0050, text=» ST A2,SAVE01,A13 SAVE A2 «, t00=0x0037, t01=0x00e4}
0x056ec…0571e               Head {h00=0x002e, h01=0x0050, text=» LD A2,4,A14 GET CALLING ABSOLUTE ADDRESS «, t00=0x0037, t01=0x0106}
0x0571e…05740               Head {h00=0x001e, h01=0x0050, text=» SUR A2,A13 RELATIVE DITO «, t00=0x0037, t01=0x0138}
0x05740…05756               Head {h00=0x0012, h01=0x0050, text=» OTR A1,0,SOP «, t00=0x0037, t01=0x015a}
0x05756…05762               Head {h00=0x0008, h01=0x0050, text=» HLT«, t00=0x0037, t01=0x0170}
0x05762…05788               Head {h00=0x0022, h01=0x0050, text=» DATA /6300 (DEBUGGING PURPOS)«, t00=0x0037, t01=0x017c}
0x05788…05796               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0012}
0x05796…0579e               Head {h00=0x0004, h01=0x0050, t00=0x0038, t01=0x0020}
0x0579e…057c8               Head {h00=0x0026, h01=0x0050, text=»**         M O V E             ** «, t00=0x0038, t01=0x0028}
0x057c8…057f2               Head {h00=0x0026, h01=0x0050, text=»**                             ** «, t00=0x0038, t01=0x0052}
0x057f2…0581c               Head {h00=0x0026, h01=0x0050, text=»**                             ** «, t00=0x0038, t01=0x007c}
0x0581c…05846               Head {h00=0x0026, h01=0x0050, text=»**  MOVE  BLOCKS INSIDE MEMORY ** «, t00=0x0038, t01=0x00a6}
0x05846…05870               Head {h00=0x0026, h01=0x0050, text=»**                             ** «, t00=0x0038, t01=0x00d0}
0x05870…0589a               Head {h00=0x0026, h01=0x0050, text=»**  INPUT:A1=FROM-ADDRESS      ** «, t00=0x0038, t01=0x00fa}
0x0589a…058c4               Head {h00=0x0026, h01=0x0050, text=»**        A2=TO-ADDRESS        ** «, t00=0x0038, t01=0x0124}
0x058c4…058ee               Head {h00=0x0026, h01=0x0050, text=»**        A3=LENGTH            ** «, t00=0x0038, t01=0x014e}
0x058ee…05918               Head {h00=0x0026, h01=0x0050, text=»** OUTPUT:A3=-1                ** «, t00=0x0038, t01=0x0178}
0x05918…05942               Head {h00=0x0026, h01=0x0050, text=»**  WORK-REG: A4               ** «, t00=0x0039, t01=0x0012}
0x05942…0596c               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0039, t01=0x003c}
0x0596c…05978               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0039, t01=0x0066}
0x05978…0598a               Head {h00=0x000e, h01=0x0050, text=»MOVE EQU *«, t00=0x0039, t01=0x0072}
0x0598a…059b2               Head {h00=0x0024, h01=0x0050, text=»MOVES ADR A1,A3 END OF FROM AREA«, t00=0x0039, t01=0x0084}
0x059b2…059d4               Head {h00=0x001e, h01=0x0050, text=» ADR A2,A3 END OF TO-AREA «, t00=0x0039, t01=0x00ac}
0x059d4…059fe               Head {h00=0x0026, h01=0x0050, text=» LD A4,SCTEFA GET END OF FREE AREA«, t00=0x0039, t01=0x00ce}
0x059fe…05a1c               Head {h00=0x001a, h01=0x0050, text=» TNM A2,A4 EQUAL SIGN?«, t00=0x0039, t01=0x00f8}
0x05a1c…05a36               Head {h00=0x0016, h01=0x0050, text=» RF(NN) MOVNN YES «, t00=0x0039, t01=0x0116}
0x05a36…05a62               Head {h00=0x0028, h01=0x0050, text=» CWR A4,A2 COMPARE WHEN UNEQUAL SIGN«, t00=0x0039, t01=0x0130}
0x05a62…05a74               Head {h00=0x000e, h01=0x0050, text=» RF MOVCK «, t00=0x0039, t01=0x015c}
0x05a74…05aa4               Head {h00=0x002c, h01=0x0050, text=»MOVNN CWR A2,A4 COMPARE WHEN EQUAL SIGN «, t00=0x0039, t01=0x016e}
0x05aa4…05ae0               Head {h00=0x0038, h01=0x0050, text=»MOVCK RF(NG) MOVE10 END OF TO-AREA<=END OF FREE AREA«, t00=0x003a, t01=0x000e}
0x05ae0…05af6               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x003a, t01=0x004a}
0x05af6…05b22               Head {h00=0x0028, h01=0x0050, text=» CALL ERROR INDICATE MEMORY OVERFLOW«, t00=0x003a, t01=0x0060}
0x05b22…05b44               Head {h00=0x001e, h01=0x0050, text=»MOVE10 SUK A3,1 DEC LENGTH«, t00=0x003a, t01=0x008c}
0x05b44…05b62               Head {h00=0x001a, h01=0x0050, text=» RF(N) MOVE20 ALL DONE«, t00=0x003a, t01=0x00ae}
0x05b62…05b74               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x003a, t01=0x00cc}
0x05b74…05b86               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x003a, t01=0x00de}
0x05b86…05ba6               Head {h00=0x001c, h01=0x0050, text=» LCR A4,A1 GET CHARACTER«, t00=0x003a, t01=0x00f0}
0x05ba6…05bc8               Head {h00=0x001e, h01=0x0050, text=» SCR A4,A2 STORE CHARACTER«, t00=0x003a, t01=0x0110}
0x05bc8…05bda               Head {h00=0x000e, h01=0x0050, text=» RB MOVE10«, t00=0x003a, t01=0x0132}
0x05bda…05bf0               Head {h00=0x0012, h01=0x0050, text=»MOVE20 RTN A14«, t00=0x003a, t01=0x0144}
0x05bf0…05c0c               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x003a, t01=0x015a}
0x05c0c…05c1a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0176}
0x05c1a…05c26               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x003a, t01=0x0184}
0x05c26…05c32               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x003a, t01=0x0190}
0x05c32…05c6a               Head {h00=0x0034, h01=0x0050, text=»**                M O V I N G                ** «, t00=0x003b, t01=0x000c}
0x05c6a…05ca2               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x003b, t01=0x0044}
0x05ca2…05cda               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x003b, t01=0x007c}
0x05cda…05d12               Head {h00=0x0034, h01=0x0050, text=»**  USES ROUTINE 'MOVE' ABOVE. TO-ADDRESS IS ** «, t00=0x003b, t01=0x00b4}
0x05d12…05d4a               Head {h00=0x0034, h01=0x0050, text=»**  ASSUMED TO BE DATA-PART OF MEMORY        ** «, t00=0x003b, t01=0x00ec}
0x05d4a…05d82               Head {h00=0x0034, h01=0x0050, text=»**  LSTADR POINTS AT LAST (HIGHEST) FREE     ** «, t00=0x003b, t01=0x0124}
0x05d82…05dba               Head {h00=0x0034, h01=0x0050, text=»**  ADDRESS. LSTADR IS UPDATED AND CHECKED   ** «, t00=0x003b, t01=0x015c}
0x05dba…05df2 (60, 0, 400)  Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x003c, t01=0x0004}
0x05df2…05e2a               Head {h00=0x0034, h01=0x0050, text=»**  INPUT:A3 & A1 AS IN 'MOVE'               ** «, t00=0x003c, t01=0x003c}
0x05e2a…05e62               Head {h00=0x0034, h01=0x0050, text=»**  OUTPUT: A2=TO-ADDRESS (LSTADR UPDATED)   ** «, t00=0x003c, t01=0x0074}
0x05e62…05e9a               Head {h00=0x0034, h01=0x0050, text=»**  WORK-REG: A4                             ** «, t00=0x003c, t01=0x00ac}
0x05e9a…05ed2               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x003c, t01=0x00e4}
0x05ed2…05ede               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x003c, t01=0x011c}
0x05ede…05ef2               Head {h00=0x0010, h01=0x0050, text=»MOVING EQU *«, t00=0x003c, t01=0x0128}
0x05ef2…05f1c               Head {h00=0x0026, h01=0x0050, text=» LD A2,LSTADR,A13 GET LAST ADDRESS«, t00=0x003c, t01=0x013c}
0x05f1c…05f3a               Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 SUB LENGTH «, t00=0x003c, t01=0x0166}
0x05f3a…05f62               Head {h00=0x0024, h01=0x0050, text=» ANKL A2,/FFFE MAKE EVEN ADDRESS«, t00=0x003c, t01=0x0184}
0x05f62…05f86               Head {h00=0x0020, h01=0x0050, text=» ST A11,SAVE01,A13 SAVE A11 «, t00=0x003d, t01=0x001c}
0x05f86…05fa8               Head {h00=0x001e, h01=0x0050, text=» ST A9,SAVE12,A13 SAVE A9 «, t00=0x003d, t01=0x0040}
0x05fa8…05fbc               Head {h00=0x0010, h01=0x0050, text=» LDR A11,A2 «, t00=0x003d, t01=0x0062}
0x05fbc…05fea               Head {h00=0x002a, h01=0x0050, text=» LD A9,DATEND,A13 END OF PROTOTYP AREA«, t00=0x003d, t01=0x0076}
0x05fea…06010               Head {h00=0x0022, h01=0x0050, text=» CALL CMPADR COMPARE ADDRESSES«, t00=0x003d, t01=0x00a4}
0x06010…06026               Head {h00=0x0012, h01=0x0050, text=» RF(NL) MOV020«, t00=0x003d, t01=0x00ca}
0x06026…06052               Head {h00=0x0028, h01=0x0050, text=»MOV010 LDKL A1,LMP3 MEMORY OVERFLOW «, t00=0x003d, t01=0x00e0}
0x06052…06066               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x003d, t01=0x010c}
0x06066…0609e               Head {h00=0x0034, h01=0x0050, text=»MOV020 LD A9,FSTADR,A13 CHECK FIRST FREE ADDRESS«, t00=0x003d, t01=0x0120}
0x0609e…060b2               Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x003d, t01=0x0158}
0x060b2…060c8               Head {h00=0x0012, h01=0x0050, text=» RB(L) MOV010 «, t00=0x003d, t01=0x016c}
0x060c8…060ee               Head {h00=0x0022, h01=0x0050, text=» ST A2,LSTADR,A13 NEW ADDRESS «, t00=0x003d, t01=0x0182}
0x060ee…0611a               Head {h00=0x0028, h01=0x0050, text=» LD A9,SAVE12,A13 RESTORE REGISTERS «, t00=0x003e, t01=0x0018}
0x0611a…06134               Head {h00=0x0016, h01=0x0050, text=» LD A11,SAVE01,A13«, t00=0x003e, t01=0x0044}
0x06134…06146               Head {h00=0x000e, h01=0x0050, text=» RB MOVES «, t00=0x003e, t01=0x005e}
0x06146…06152               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x0070}
0x06152…0616e               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x003e, t01=0x007c}
0x0616e…0617c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x0098}
0x0617c…06184               Head {h00=0x0004, h01=0x0050, t00=0x003e, t01=0x00a6}
0x06184…061bc               Head {h00=0x0034, h01=0x0050, text=»**               X M O V E                    **«, t00=0x003e, t01=0x00ae}
0x061bc…061f4               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x003e, t01=0x00e6}
0x061f4…0622c               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x003e, t01=0x011e}
0x0622c…06264               Head {h00=0x0034, h01=0x0050, text=»**  MOVE BLOCK INSIDE MEMORY VIA MMU          **«, t00=0x003e, t01=0x0156}
0x06264…0629c               Head {h00=0x0034, h01=0x0050, text=»**  TWO PHASES:-MOVE TO SYSTEM AREA (BUFBEG)  **«, t00=0x003e, t01=0x018e}
0x0629c…062d4               Head {h00=0x0034, h01=0x0050, text=»**             -MOVE TO USER AREA             **«, t00=0x003f, t01=0x0036}
0x062d4…0630c               Head {h00=0x0034, h01=0x0050, text=»**  IF 'BUFSIZ' (TEMPORARY MOVE-BUFFER) IS NOT**«, t00=0x003f, t01=0x006e}
0x0630c…06344               Head {h00=0x0034, h01=0x0050, text=»**  BIG ENOUGH THE MOVE IS REPEATED           **«, t00=0x003f, t01=0x00a6}
0x06344…0637c               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x003f, t01=0x00de}
0x0637c…063b4               Head {h00=0x0034, h01=0x0050, text=»**  INPUT :A1=FROM-ADDR(MMFROM=MM-TABLE ADDR.)**«, t00=0x003f, t01=0x0116}
0x063b4…063ec               Head {h00=0x0034, h01=0x0050, text=»**         A2=TO-ADDRESS (MMTO=MM-TABLE ADDR.)**«, t00=0x003f, t01=0x014e}
0x063ec…06424               Head {h00=0x0034, h01=0x0050, text=»**         A3=LENGTH (IN BYTES)               **«, t00=0x003f, t01=0x0186}
0x06424…0645c               Head {h00=0x0034, h01=0x0050, text=»**  WORK.REGS:A4,A10                          **«, t00=0x0040, t01=0x002e}
0x0645c…06494               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0040, t01=0x0066}
0x06494…0649c               Head {h00=0x0004, h01=0x0050, t00=0x0040, t01=0x009e}
0x0649c…064b0               Head {h00=0x0010, h01=0x0050, text=»XMOVE EQU * «, t00=0x0040, t01=0x00a6}
0x064b0…064ca               Head {h00=0x0016, h01=0x0050, text=» ST A1,SAVE09,A13 «, t00=0x0040, t01=0x00ba}
0x064ca…064e4               Head {h00=0x0016, h01=0x0050, text=» ST A1,SAVE07,A13 «, t00=0x0040, t01=0x00d4}
0x064e4…064fe               Head {h00=0x0016, h01=0x0050, text=» ST A2,SAVE10,A13 «, t00=0x0040, t01=0x00ee}
0x064fe…06518               Head {h00=0x0016, h01=0x0050, text=» ST A2,SAVE08,A13 «, t00=0x0040, t01=0x0108}
0x06518…06532               Head {h00=0x0016, h01=0x0050, text=» ST A3,SAVE11,A13 «, t00=0x0040, t01=0x0122}
0x06532…0655c               Head {h00=0x0026, h01=0x0050, text=» ST A9,XMSAV,A13 SAVE A9,TEMPORARY«, t00=0x0040, t01=0x013c}
0x0655c…0658a               Head {h00=0x002a, h01=0x0050, text=» ST A11,XMSAV+2,A13 SAVE A11 TEMPORARY«, t00=0x0040, t01=0x0166}
0x0658a…0659e (65, 0, 398)  Head {h00=0x0010, h01=0x0050, text=»XMOV05 EQU *«, t00=0x0041, t01=0x0004}
0x0659e…065be               Head {h00=0x001c, h01=0x0050, text=» LDR A10,A3 SAVE LENGTH «, t00=0x0041, t01=0x0018}
0x065be…065ee               Head {h00=0x002c, h01=0x0050, text=» LDK A4,0 RESET 'NUMBER-OF-MOVE' COUNTER«, t00=0x0041, t01=0x0038}
0x065ee…0661c               Head {h00=0x002a, h01=0x0050, text=» LDR A11,A3 GET LENGTH OF AREA TO MOVE«, t00=0x0041, t01=0x0068}
0x0661c…06650               Head {h00=0x0030, h01=0x0050, text=» LD A9,BUFSIZ,A13 GET TEMPORARY BUFFER SIZE «, t00=0x0041, t01=0x0096}
0x06650…0666c               Head {h00=0x0018, h01=0x0050, text=» CALL CMPADR COMPARE«, t00=0x0041, t01=0x00ca}
0x0666c…06692               Head {h00=0x0022, h01=0x0050, text=» RF(G) SPLIT NO! SEVERAL MOVE «, t00=0x0041, t01=0x00e6}
0x06692…066b6               Head {h00=0x0020, h01=0x0050, text=»XMOV10 LDR A3,A10 GET LENGTH«, t00=0x0041, t01=0x010c}
0x066b6…066e0               Head {h00=0x0026, h01=0x0050, text=» LD A1,SAVE09,A13 GET FROM ADDRESS«, t00=0x0041, t01=0x0130}
0x066e0…06718               Head {h00=0x0034, h01=0x0050, text=» LD A2,SYSBUF,A13 GET TEMP. BUFFER START-ADDRESS«, t00=0x0041, t01=0x015a}
0x06718…06740 (66, 0, 400)  Head {h00=0x0024, h01=0x0050, text=» TL* MMFROM,A13 LOAD FROM-TABLE «, t00=0x0042, t01=0x0004}
0x06740…06770               Head {h00=0x002c, h01=0x0050, text=» MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER«, t00=0x0042, t01=0x002c}
0x06770…067a4               Head {h00=0x0030, h01=0x0050, text=» ST A1,SAVE09,A13 SAVE END OF 'FROM' ADDRESS«, t00=0x0042, t01=0x005c}
0x067a4…067be               Head {h00=0x0016, h01=0x0050, text=» LD A1,SYSBUF,A13 «, t00=0x0042, t01=0x0090}
0x067be…067f2               Head {h00=0x0030, h01=0x0050, text=» LD A2,SAVE08,A13 GET START OF 'TO' ADDRESS «, t00=0x0042, t01=0x00aa}
0x067f2…06810               Head {h00=0x001a, h01=0x0050, text=» LDR A3,A10 GET LENGTH«, t00=0x0042, t01=0x00de}
0x06810…06834               Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x0042, t01=0x00fc}
0x06834…06860               Head {h00=0x0028, h01=0x0050, text=» MVSU A3 MOVE DATA-BLOCK FROM BUFFER«, t00=0x0042, t01=0x0120}
0x06860…06886               Head {h00=0x0022, h01=0x0050, text=» SUK A4,1 MORE PARTS TO MOVE? «, t00=0x0042, t01=0x014c}
0x06886…068a0               Head {h00=0x0016, h01=0x0050, text=» RF(N) XMOV30 NO! «, t00=0x0042, t01=0x0172}
0x068a0…068b4               Head {h00=0x0010, h01=0x0050, text=» ADR A2,A10 «, t00=0x0042, t01=0x018c}
0x068b4…068e8               Head {h00=0x0030, h01=0x0050, text=» ST A2,SAVE08,A13 SAVE START OF 'TO' ADDRESS«, t00=0x0043, t01=0x0010}
0x068e8…06916               Head {h00=0x002a, h01=0x0050, text=» LD A3,SAVE11,A13 GET REQUESTED LENGTH«, t00=0x0043, t01=0x0044}
0x06916…0693e               Head {h00=0x0024, h01=0x0050, text=» SUR A3,A10 SUBTRACT MOVED PART «, t00=0x0043, t01=0x0072}
0x0693e…0695c               Head {h00=0x001a, h01=0x0050, text=» ST A3,SAVE11,A13 SAVE«, t00=0x0043, t01=0x009a}
0x0695c…06970               Head {h00=0x0010, h01=0x0050, text=» CWR A3,A10 «, t00=0x0043, t01=0x00b8}
0x06970…06986               Head {h00=0x0012, h01=0x0050, text=» RB(NL) XMOV10«, t00=0x0043, t01=0x00cc}
0x06986…069a6               Head {h00=0x001c, h01=0x0050, text=» LDR A10,A3 LAST LENGTH «, t00=0x0043, t01=0x00e2}
0x069a6…069b8               Head {h00=0x000e, h01=0x0050, text=» RB XMOV10«, t00=0x0043, t01=0x0102}
0x069b8…069c6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x0114}
0x069c6…069ce               Head {h00=0x0004, h01=0x0050, t00=0x0043, t01=0x0122}
0x069ce…069e2               Head {h00=0x0010, h01=0x0050, text=»SPLIT EQU * «, t00=0x0043, t01=0x012a}
0x069e2…06a06               Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET DIVISION REG«, t00=0x0043, t01=0x013e}
0x06a06…06a24               Head {h00=0x001a, h01=0x0050, text=» LDR A2,A3 GET DIVISOR«, t00=0x0043, t01=0x0162}
0x06a24…06a46               Head {h00=0x001e, h01=0x0050, text=» DV BUFSIZ,A13 AND DIVIDE «, t00=0x0043, t01=0x0180}
0x06a46…06a7c               Head {h00=0x0032, h01=0x0050, text=» LDR A4,A2 GET QUOTIENT (=NUMBER OF MOVES - 1)«, t00=0x0044, t01=0x0012}
0x06a7c…06aa6               Head {h00=0x0026, h01=0x0050, text=» LD A10,BUFSIZ,A13 MOVE MAX LENGTH«, t00=0x0044, t01=0x0048}
0x06aa6…06ab8               Head {h00=0x000e, h01=0x0050, text=» RB XMOV10«, t00=0x0044, t01=0x0072}
0x06ab8…06ac0               Head {h00=0x0004, h01=0x0050, t00=0x0044, t01=0x0084}
0x06ac0…06af4               Head {h00=0x0030, h01=0x0050, text=»XMOV30 LD A2,SAVE10,A13 RESTORE 'TO-ADDRESS'«, t00=0x0044, t01=0x008c}
0x06af4…06b24               Head {h00=0x002c, h01=0x0050, text=» LD A1,SAVE07,A13 RESTORE 'FROM-ADDRESS'«, t00=0x0044, t01=0x00c0}
0x06b24…06b48               Head {h00=0x0020, h01=0x0050, text=» LD A9,XMSAV,A13 RESTORE A9 «, t00=0x0044, t01=0x00f0}
0x06b48…06b70               Head {h00=0x0024, h01=0x0050, text=» LD A11,XMSAV+2,A13 RESTORE A11 «, t00=0x0044, t01=0x0114}
0x06b70…06b80               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0044, t01=0x013c}
0x06b80…06b8e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x014c}
0x06b8e…06b96               Head {h00=0x0004, h01=0x0050, t00=0x0044, t01=0x015a}
0x06b96…06bce               Head {h00=0x0034, h01=0x0050, text=»**                M O V I N G                ** «, t00=0x0044, t01=0x0162}
0x06bce…06c06               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x0045, t01=0x000a}
0x06c06…06c3e               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x0045, t01=0x0042}
0x06c3e…06c76               Head {h00=0x0034, h01=0x0050, text=»**  USES SUBROUTINE 'XMOVE' TO MOVE A BLOCK  ** «, t00=0x0045, t01=0x007a}
0x06c76…06cae               Head {h00=0x0034, h01=0x0050, text=»**  VIA TWO MM-TABLES.PHYSICALL TO-ADDRESS   ** «, t00=0x0045, t01=0x00b2}
0x06cae…06ce6               Head {h00=0x0034, h01=0x0050, text=»**  IS ALWAYS ASSUMED TO BE DATA PART OF     ** «, t00=0x0045, t01=0x00ea}
0x06ce6…06d1e               Head {h00=0x0034, h01=0x0050, text=»**  MEMORY. LSTADR & FYSPAG POINTS AT LAST   ** «, t00=0x0045, t01=0x0122}
0x06d1e…06d56               Head {h00=0x0034, h01=0x0050, text=»**  (HIGHEST) FREE ADDRESS. LSTADR &FYSPAG   ** «, t00=0x0045, t01=0x015a}
0x06d56…06d8e (70, 0, 400)  Head {h00=0x0034, h01=0x0050, text=»**  IS UPDATED AND CHECKED.                  ** «, t00=0x0046, t01=0x0004}
0x06d8e…06dc6               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x0046, t01=0x003c}
0x06dc6…06dfe               Head {h00=0x0034, h01=0x0050, text=»**  INPUT :A1 & A3 AS IN 'XMOVE'             ** «, t00=0x0046, t01=0x0074}
0x06dfe…06e36               Head {h00=0x0034, h01=0x0050, text=»**         TTAB=POINTER TO TTAB (OR LIKELY)  ** «, t00=0x0046, t01=0x00ac}
0x06e36…06e6e               Head {h00=0x0034, h01=0x0050, text=»**  OUTPUT:A2=LOGICALL TO-ADDRESS            ** «, t00=0x0046, t01=0x00e4}
0x06e6e…06ea6               Head {h00=0x0034, h01=0x0050, text=»**  WORK-REGS: A4,A10                        ** «, t00=0x0046, t01=0x011c}
0x06ea6…06ede               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0046, t01=0x0154}
0x06ede…06ee6               Head {h00=0x0004, h01=0x0050, t00=0x0046, t01=0x018c}
0x06ee6…06efa (71, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»MOVING EQU *«, t00=0x0047, t01=0x0004}
0x06efa…06f1e               Head {h00=0x0020, h01=0x0050, text=» ST A11,SAVE01,A13 SAVE A11 «, t00=0x0047, t01=0x0018}
0x06f1e…06f40               Head {h00=0x001e, h01=0x0050, text=» ST A9,SAVE12,A13 SAVE A9 «, t00=0x0047, t01=0x003c}
0x06f40…06f72               Head {h00=0x002e, h01=0x0050, text=» LD A4,FYSPAG,A13 GET ACT. PHYSICALL PAGE «, t00=0x0047, t01=0x005e}
0x06f72…06f9c               Head {h00=0x0026, h01=0x0050, text=» LD A10,TTAB,A13 LOAD TTAB-ADDRESS«, t00=0x0047, t01=0x0090}
0x06f9c…06fd2               Head {h00=0x0032, h01=0x0050, text=» LD A2,LSTPAG,A10 GET LAST TABLE-ENTRY IN TTAB«, t00=0x0047, t01=0x00ba}
0x06fd2…06ff8               Head {h00=0x0022, h01=0x0050, text=» LDR* A9,A2 GET PAGE IN TABLE «, t00=0x0047, t01=0x00f0}
0x06ff8…0700e               Head {h00=0x0012, h01=0x0050, text=» ANKL A9,/FC00«, t00=0x0047, t01=0x0116}
0x0700e…0703c               Head {h00=0x002a, h01=0x0050, text=» CWR A9,A4 CORRECT PAGE IN MMU-TABLE? «, t00=0x0047, t01=0x012c}
0x0703c…07056               Head {h00=0x0016, h01=0x0050, text=» RF(E) MOV010 YES!«, t00=0x0047, t01=0x015a}
0x07056…07080               Head {h00=0x0026, h01=0x0050, text=» ADKL A4,/400 ADJUST FOR 'SETTAB' «, t00=0x0047, t01=0x0174}
0x07080…070a8               Head {h00=0x0024, h01=0x0050, text=» CALL SETTAB NEW PAGE IN TABLE! «, t00=0x0048, t01=0x000e}
0x070a8…070e2               Head {h00=0x0036, h01=0x0050, text=»MOV010 LD A11,LSTADR,A13 GET LAST LOGICALL ADDRESS«, t00=0x0048, t01=0x0036}
0x070e2…070f8               Head {h00=0x0012, h01=0x0050, text=» ANKL A11,/FFF«, t00=0x0048, t01=0x0070}
0x070f8…07126               Head {h00=0x002a, h01=0x0050, text=» LDR A9,A3 GET LENGTH OF AREA TO MOVE «, t00=0x0048, t01=0x0086}
0x07126…0715a               Head {h00=0x0030, h01=0x0050, text=» CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? «, t00=0x0048, t01=0x00b4}
0x0715a…07174               Head {h00=0x0016, h01=0x0050, text=» RF(NL) MOV020 YES«, t00=0x0048, t01=0x00e8}
0x07174…071a8               Head {h00=0x0030, h01=0x0050, text=» SUR A11,A3 COMPUTE DISPLACEMENT WITHIN PAGE«, t00=0x0048, t01=0x0102}
0x071a8…071c6               Head {h00=0x001a, h01=0x0050, text=»MOV015 RF(NP) MOV025  «, t00=0x0048, t01=0x0136}
0x071c6…071f4               Head {h00=0x002a, h01=0x0050, text=» CALL SETTAB INITIALIZE NEW PAGE ENTRY«, t00=0x0048, t01=0x0154}
0x071f4…07222               Head {h00=0x002a, h01=0x0050, text=» ADKL A11,4096 PHYSICAL PAGE INCREMENT«, t00=0x0048, t01=0x0182}
0x07222…07234               Head {h00=0x000e, h01=0x0050, text=» RB MOV015«, t00=0x0049, t01=0x0020}
0x07234…0726e               Head {h00=0x0036, h01=0x0050, text=»MOV020 SUR A11,A3 COMPUTE DISPLACEMENT WITHIN PAGE«, t00=0x0049, t01=0x0032}
0x0726e…0728a               Head {h00=0x0018, h01=0x0050, text=»MOV025 RF(NN) MOV050«, t00=0x0049, t01=0x006c}
0x0728a…072b8               Head {h00=0x002a, h01=0x0050, text=»MOV030 CALL SETTAB NEW PAGE IN TABLE! «, t00=0x0049, t01=0x0088}
0x072b8…072e2               Head {h00=0x0026, h01=0x0050, text=» ADKL A11,4096 NEW PAGE INCREMENT «, t00=0x0049, t01=0x00b6}
0x072e2…0730e               Head {h00=0x0028, h01=0x0050, text=» RB(N) MOV030 NOT ENOUGH. NEW PAGE! «, t00=0x0049, t01=0x00e0}
0x0730e…07316               Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x010c}
0x07316…07342               Head {h00=0x0028, h01=0x0050, text=»* MM-TABLE CORRECT. SAVE ADDRESSES *«, t00=0x0049, t01=0x0114}
0x07342…0734a               Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x0140}
0x0734a…0736c               Head {h00=0x001e, h01=0x0050, text=»* A4=PHYSICALL PAGE NUMBER«, t00=0x0049, t01=0x0148}
0x0736c…07390               Head {h00=0x0020, h01=0x0050, text=»* A11=DISPLACEM. WITHIN PAGE«, t00=0x0049, t01=0x016a}
0x07390…073b6               Head {h00=0x0022, h01=0x0050, text=»* A2=CURRENT ENTRY IN MM-TABLE«, t00=0x0049, t01=0x018e}
0x073b6…073be               Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x0024}
0x073be…073d2               Head {h00=0x0010, h01=0x0050, text=»MOV050 EQU *«, t00=0x004a, t01=0x002c}
0x073d2…07402               Head {h00=0x002c, h01=0x0050, text=» ST A2,LSTPAG,A10 SAVE MMU-ENTRY IN TTAB«, t00=0x004a, t01=0x0040}
0x07402…07436               Head {h00=0x0030, h01=0x0050, text=» ST A4,FYSPAG,A13 SAVE PHYSICALL PAGE NUMBER«, t00=0x004a, t01=0x0070}
0x07436…0746e               Head {h00=0x0034, h01=0x0050, text=» LDKL A4,MMBEG CALCULATE TABLE ENTRY DISPLACEM. «, t00=0x004a, t01=0x00a4}
0x0746e…07498               Head {h00=0x0026, h01=0x0050, text=» ADR A4,A10 ABSOLUTE ENTRY ADDRESS«, t00=0x004a, t01=0x00dc}
0x07498…074c2               Head {h00=0x0026, h01=0x0050, text=» ST A4,MMTO,A13 SAVE TABLE ADDRESS«, t00=0x004a, t01=0x0106}
0x074c2…074e6               Head {h00=0x0020, h01=0x0050, text=» SUR A2,A4 RELATIVE ADDRESS «, t00=0x004a, t01=0x0130}
0x074e6…0751c               Head {h00=0x0032, h01=0x0050, text=» SLL A2,11 SHIFT TO FOUR FIRST BITS & DIV BY 2«, t00=0x004a, t01=0x0154}
0x0751c…0754a               Head {h00=0x002a, h01=0x0050, text=» ORR A2,A11 GET DISPLACEM. WITHIN PAGE«, t00=0x004a, t01=0x018a}
0x0754a…0756e               Head {h00=0x0020, h01=0x0050, text=» ANKL A2,/FFFE EVEN ADDRESS «, t00=0x004b, t01=0x0028}
0x0756e…0759e               Head {h00=0x002c, h01=0x0050, text=» ST A2,LSTADR,A13 SAVE LOGICALL ADDRESS «, t00=0x004b, t01=0x004c}
0x0759e…075ba               Head {h00=0x0018, h01=0x0050, text=»* CHECK ADDRESSES * «, t00=0x004b, t01=0x007c}
0x075ba…075c2               Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x0098}
0x075c2…075f0               Head {h00=0x002a, h01=0x0050, text=» LD A9,FSTPAG,A13 GET FIRST FREE PAGE «, t00=0x004b, t01=0x00a0}
0x075f0…07614               Head {h00=0x0020, h01=0x0050, text=» ST A11,SAVE07,A13 SAVE A11 «, t00=0x004b, t01=0x00ce}
0x07614…0762e               Head {h00=0x0016, h01=0x0050, text=» LD A11,FYSPAG,A13«, t00=0x004b, t01=0x00f2}
0x0762e…0764e               Head {h00=0x001c, h01=0x0050, text=» CALL CMPADR AND COMPARE«, t00=0x004b, t01=0x010c}
0x0764e…07668               Head {h00=0x0016, h01=0x0050, text=» RF(G) MOV090 OK! «, t00=0x004b, t01=0x012c}
0x07668…07682               Head {h00=0x0016, h01=0x0050, text=» RF(L) MOV070 NOK!«, t00=0x004b, t01=0x0146}
0x07682…076ac               Head {h00=0x0026, h01=0x0050, text=» LD A11,SAVE07,A13 RESTORE DISPL. «, t00=0x004b, t01=0x0160}
0x076ac…076c6               Head {h00=0x0016, h01=0x0050, text=» LD A9,FSTADR,A13 «, t00=0x004b, t01=0x018a}
0x076c6…076da               Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x004c, t01=0x0014}
0x076da…076f4               Head {h00=0x0016, h01=0x0050, text=» RF(NL) MOV090 OK!«, t00=0x004c, t01=0x0028}
0x076f4…07710               Head {h00=0x0018, h01=0x0050, text=»MOV070 LDKL A1,LMP3 «, t00=0x004c, t01=0x0042}
0x07710…07724               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x004c, t01=0x005e}
0x07724…07738               Head {h00=0x0010, h01=0x0050, text=»MOV090 EQU *«, t00=0x004c, t01=0x0072}
0x07738…07750               Head {h00=0x0014, h01=0x0050, text=» CALL XMOVE MOVE«, t00=0x004c, t01=0x0086}
0x07750…0776a               Head {h00=0x0016, h01=0x0050, text=» LD A9,SAVE12,A13 «, t00=0x004c, t01=0x009e}
0x0776a…07796               Head {h00=0x0028, h01=0x0050, text=» LD A11,SAVE01,A13 RESTORE REGISTERS«, t00=0x004c, t01=0x00b8}
0x07796…077be               Head {h00=0x0024, h01=0x0050, text=» TL* MMFROM,A13 RESTORE MM-TABLE«, t00=0x004c, t01=0x00e4}
0x077be…077ce               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004c, t01=0x010c}
0x077ce…077dc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004c, t01=0x011c}
0x077dc…077e4               Head {h00=0x0004, h01=0x0050, t00=0x004c, t01=0x012a}
0x077e4…0781e               Head {h00=0x0036, h01=0x0050, text=»**               S E T T A B                   ** «, t00=0x004c, t01=0x0132}
0x0781e…07858               Head {h00=0x0036, h01=0x0050, text=»**                                             ** «, t00=0x004c, t01=0x016c}
0x07858…07892               Head {h00=0x0036, h01=0x0050, text=»**                                             ** «, t00=0x004d, t01=0x0016}
0x07892…078cc               Head {h00=0x0036, h01=0x0050, text=»**  SET NEW PAGE IN MM-TABLE & CHECK IF TABLE  ** «, t00=0x004d, t01=0x0050}
0x078cc…07906               Head {h00=0x0036, h01=0x0050, text=»**  OVERFLOW.                                  ** «, t00=0x004d, t01=0x008a}
0x07906…07940               Head {h00=0x0036, h01=0x0050, text=»**                                             ** «, t00=0x004d, t01=0x00c4}
0x07940…0797a               Head {h00=0x0036, h01=0x0050, text=»**  INPUT :A2-ADDRESS TO CURRENT ENTRY         ** «, t00=0x004d, t01=0x00fe}
0x0797a…079b4               Head {h00=0x0036, h01=0x0050, text=»**         A4=PHYSICALL PAGE                   ** «, t00=0x004d, t01=0x0138}
0x079b4…079ee               Head {h00=0x0036, h01=0x0050, text=»**  OUTPUT:A2 & A4 IS UPDATED                  ** «, t00=0x004d, t01=0x0172}
0x079ee…07a28               Head {h00=0x0036, h01=0x0050, text=»**   WORK.REG: A9                              ** «, t00=0x004e, t01=0x001c}
0x07a28…07a62               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x004e, t01=0x0056}
0x07a62…07a6a               Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x0090}
0x07a6a…07a7e               Head {h00=0x0010, h01=0x0050, text=»SETTAB EQU *«, t00=0x004e, t01=0x0098}
0x07a7e…07aa2               Head {h00=0x0020, h01=0x0050, text=» SUKL A4,/400 GET NEXT PAGE «, t00=0x004e, t01=0x00ac}
0x07aa2…07ac2               Head {h00=0x001c, h01=0x0050, text=» SUK A2,2 GET NEXT ENTRY«, t00=0x004e, t01=0x00d0}
0x07ac2…07aca               Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x00f0}
0x07aca…07af0               Head {h00=0x0022, h01=0x0050, text=»* CHECK IF MM-TABLE OVERFLOW *«, t00=0x004e, t01=0x00f8}
0x07af0…07af8               Head {h00=0x0004, h01=0x0050, t00=0x004e, t01=0x011e}
0x07af8…07b24               Head {h00=0x0028, h01=0x0050, text=» LDR A9,A10 GET END-ADDRESS A10=TTAB«, t00=0x004e, t01=0x0126}
0x07b24…07b3a               Head {h00=0x0012, h01=0x0050, text=» ADKL A9,MMBEG«, t00=0x004e, t01=0x0152}
0x07b3a…07b60               Head {h00=0x0022, h01=0x0050, text=» TNM A2,A9 32-KB BOARDER CHECK«, t00=0x004e, t01=0x0168}
0x07b60…07b76               Head {h00=0x0012, h01=0x0050, text=» RF(NN) SETT00«, t00=0x004e, t01=0x018e}
0x07b76…07b88               Head {h00=0x000e, h01=0x0050, text=» CWR A9,A2«, t00=0x004f, t01=0x0014}
0x07b88…07b9a               Head {h00=0x000e, h01=0x0050, text=» RF SETT05«, t00=0x004f, t01=0x0026}
0x07b9a…07bbc               Head {h00=0x001e, h01=0x0050, text=»SETT00 CWR A2,A9 OVERFLOW?«, t00=0x004f, t01=0x0038}
0x07bbc…07bdc               Head {h00=0x001c, h01=0x0050, text=»SETT05 RF(NL) SETT10 NO «, t00=0x004f, t01=0x005a}
0x07bdc…07bf0               Head {h00=0x0010, h01=0x0050, text=» LDK A1,LMP7«, t00=0x004f, t01=0x007a}
0x07bf0…07c04               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x004f, t01=0x008e}
0x07c04…07c18               Head {h00=0x0010, h01=0x0050, text=»SETT10 EQU *«, t00=0x004f, t01=0x00a2}
0x07c18…07c3a               Head {h00=0x001e, h01=0x0050, text=» STR A4,A2 STORE IN TABLE «, t00=0x004f, t01=0x00b6}
0x07c3a…07c4a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x004f, t01=0x00d8}
0x07c4a…07c56               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x00e8}
0x07c56…07c6c               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x004f, t01=0x00f4}
0x07c6c…07c7a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x010a}
0x07c7a…07c86               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x004f, t01=0x0118}
0x07c86…07cbe               Head {h00=0x0034, h01=0x0050, text=»**              G E T W B                    ** «, t00=0x004f, t01=0x0124}
0x07cbe…07cf6               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x004f, t01=0x015c}
0x07cf6…07d2e (80, 0, 400)  Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x0050, t01=0x0004}
0x07d2e…07d66               Head {h00=0x0034, h01=0x0050, text=»**  GET WORK BLOCK ADDRESS AND DISPLACE-     ** «, t00=0x0050, t01=0x003c}
0x07d66…07d9e               Head {h00=0x0034, h01=0x0050, text=»**  MENT IN T:A                              ** «, t00=0x0050, t01=0x0074}
0x07d9e…07dd6               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x0050, t01=0x00ac}
0x07dd6…07e0e               Head {h00=0x0034, h01=0x0050, text=»**  INPUT : A8= POINTER TO T:A-ADD IN T:ATAB ** «, t00=0x0050, t01=0x00e4}
0x07e0e…07e46               Head {h00=0x0034, h01=0x0050, text=»**          BIT=BIT NUMBER SAT IN MASK (0-15)** «, t00=0x0050, t01=0x011c}
0x07e46…07e7e               Head {h00=0x0034, h01=0x0050, text=»**  OUTPUT: A4=W.B. DISPLACEMENT IN T:A      ** «, t00=0x0050, t01=0x0154}
0x07e7e…07eb6               Head {h00=0x0034, h01=0x0050, text=»**          TADISP=A4                        ** «, t00=0x0050, t01=0x018c}
0x07eb6…07eee               Head {h00=0x0034, h01=0x0050, text=»**          A11=W.B.-ADDRESS                 ** «, t00=0x0051, t01=0x0034}
0x07eee…07f26               Head {h00=0x0034, h01=0x0050, text=»**          WBADD=POINTER TO W.B.-ADD IN T:A ** «, t00=0x0051, t01=0x006c}
0x07f26…07f5e               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0051, t01=0x00a4}
0x07f5e…07f6a               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0051, t01=0x00dc}
0x07f6a…07f7e               Head {h00=0x0010, h01=0x0050, text=»GETWB EQU * «, t00=0x0051, t01=0x00e8}
0x07f7e…07fa4               Head {h00=0x0022, h01=0x0050, text=» LD A4,BIT,A13 GET BIT NUMBER «, t00=0x0051, t01=0x00fc}
0x07fa4…07fcc               Head {h00=0x0024, h01=0x0050, text=» SLL A4,2 ADJUST FOR ADDRESSING «, t00=0x0051, t01=0x0122}
0x07fcc…07fe4               Head {h00=0x0014, h01=0x0050, text=» ADK A4,WATFST+2«, t00=0x0051, t01=0x014a}
0x07fe4…08010               Head {h00=0x0028, h01=0x0050, text=» ST A4,TADISP,A13 SAVE DISPLACEMENT «, t00=0x0051, t01=0x0162}
0x08010…0802c               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0051, t01=0x018e}
0x0802c…08050               Head {h00=0x0020, h01=0x0050, text=» LDR* A11,A8 GET T:A-ADDRESS«, t00=0x0052, t01=0x001a}
0x08050…08074               Head {h00=0x0020, h01=0x0050, text=» ADR A11,A4 ADD DISPLACEMENT«, t00=0x0052, t01=0x003e}
0x08074…08092               Head {h00=0x001a, h01=0x0050, text=» ST A11,WBADD,A13 SAVE«, t00=0x0052, t01=0x0062}
0x08092…080b8               Head {h00=0x0022, h01=0x0050, text=» LDR* A11,A11 GET W.B.-ADDRESS«, t00=0x0052, t01=0x0080}
0x080b8…080c4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x00a6}
0x080c4…080e0               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0052, t01=0x00b2}
0x080e0…08114               Head {h00=0x0030, h01=0x0050, text=» LD A11,FLAG,A13 REAL TASK-DATA PROCESSING? «, t00=0x0052, t01=0x00ce}
0x08114…0812e               Head {h00=0x0016, h01=0x0050, text=» RF(Z) GETW10 NO! «, t00=0x0052, t01=0x0102}
0x0812e…08152               Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x0052, t01=0x011c}
0x08152…0817c               Head {h00=0x0026, h01=0x0050, text=»GETW10 ELR A11,A8 GET T:A-ADDRESS «, t00=0x0052, t01=0x0140}
0x0817c…081a0               Head {h00=0x0020, h01=0x0050, text=» ADR A11,A4 ADD DISPLACEMENT«, t00=0x0052, t01=0x016a}
0x081a0…081be               Head {h00=0x001a, h01=0x0050, text=» ST A11,WBADD,A13 SAVE«, t00=0x0052, t01=0x018e}
0x081be…081e4               Head {h00=0x0022, h01=0x0050, text=» ELR A11,A11 GET W.B.-ADDRESS «, t00=0x0053, t01=0x001c}
0x081e4…0820e               Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM-TABLE «, t00=0x0053, t01=0x0042}
0x0820e…0821a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x006c}
0x0821a…08230               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0053, t01=0x0078}
0x08230…08240               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0053, t01=0x008e}
0x08240…0824e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0053, t01=0x009e}
0x0824e…0825a               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0053, t01=0x00ac}
0x0825a…08266               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0053, t01=0x00b8}
0x08266…082a2               Head {h00=0x0038, h01=0x0050, text=»**              M O V W B                         **«, t00=0x0053, t01=0x00c4}
0x082a2…082de               Head {h00=0x0038, h01=0x0050, text=»**                                                **«, t00=0x0053, t01=0x0100}
0x082de…0831a               Head {h00=0x0038, h01=0x0050, text=»**                                                **«, t00=0x0053, t01=0x013c}
0x0831a…08356               Head {h00=0x0038, h01=0x0050, text=»**  MOVE WORK-BLOCK. W.B.-ADDRESS IS UPDATED      **«, t00=0x0053, t01=0x0178}
0x08356…08392               Head {h00=0x0038, h01=0x0050, text=»**                                                **«, t00=0x0054, t01=0x0024}
0x08392…083ce               Head {h00=0x0038, h01=0x0050, text=»**  INPUT: A11=W.B.-ADDRESS                       **«, t00=0x0054, t01=0x0060}
0x083ce…0840a               Head {h00=0x0038, h01=0x0050, text=»** OUTPUT: 'WBADD'=POINTER TO MOVED W.B.ADDRESS   **«, t00=0x0054, t01=0x009c}
0x0840a…08446               Head {h00=0x0038, h01=0x0050, text=»**  WORK-REGS: A1-A4                              **«, t00=0x0054, t01=0x00d8}
0x08446…08482               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0054, t01=0x0114}
0x08482…0848e               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0054, t01=0x0150}
0x0848e…084a2               Head {h00=0x0010, h01=0x0050, text=»MOVWB EQU * «, t00=0x0054, t01=0x015c}
0x084a2…084c2               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A11 GET ADDRESS «, t00=0x0054, t01=0x0170}
0x084c2…084e6               Head {h00=0x0020, h01=0x0050, text=» ADKL A1,WBLEN FROM-ADDRESS «, t00=0x0054, t01=0x0190}
0x084e6…08502               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0055, t01=0x0024}
0x08502…0851c               Head {h00=0x0016, h01=0x0050, text=» LDR* A3,A1 LENGTH«, t00=0x0055, t01=0x0040}
0x0851c…08530               Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0055, t01=0x005a}
0x08530…0856a               Head {h00=0x0036, h01=0x0050, text=» SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT «, t00=0x0055, t01=0x006e}
0x0856a…085a2               Head {h00=0x0034, h01=0x0050, text=» ST* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE«, t00=0x0055, t01=0x00a8}
0x085a2…085ae               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x00e0}
0x085ae…085ca               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0055, t01=0x00ec}
0x085ca…085e4               Head {h00=0x0016, h01=0x0050, text=» ELR A3,A1 LENGTH «, t00=0x0055, t01=0x0108}
0x085e4…085f8               Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0055, t01=0x0122}
0x085f8…08632               Head {h00=0x0036, h01=0x0050, text=» SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT «, t00=0x0055, t01=0x0136}
0x08632…08664               Head {h00=0x002e, h01=0x0050, text=» LD A4,FLAG,A13 REAL DATA-PART PROCESSING?«, t00=0x0055, t01=0x0170}
0x08664…0867e               Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVW10 NO! «, t00=0x0056, t01=0x0012}
0x0867e…086a2               Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x0056, t01=0x002c}
0x086a2…086e0               Head {h00=0x003a, h01=0x0050, text=»MOVW10 ES* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE«, t00=0x0056, t01=0x0050}
0x086e0…0870a               Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM-TABLE «, t00=0x0056, t01=0x008e}
0x0870a…08716               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0056, t01=0x00b8}
0x08716…0872c               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0056, t01=0x00c4}
0x0872c…0873c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0056, t01=0x00da}
0x0873c…0874a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x00ea}
0x0874a…08756               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0056, t01=0x00f8}
0x08756…08762               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0056, t01=0x0104}
0x08762…087a0               Head {h00=0x003a, h01=0x0050, text=»**               M O V D T                         ** «, t00=0x0056, t01=0x0110}
0x087a0…087de               Head {h00=0x003a, h01=0x0050, text=»**                                                 ** «, t00=0x0056, t01=0x014e}
0x087de…0881c               Head {h00=0x003a, h01=0x0050, text=»**                                                 ** «, t00=0x0056, t01=0x018c}
0x0881c…0885a               Head {h00=0x003a, h01=0x0050, text=»**  MOVE DISCRIPTOR TABLE. D.T.-ADDRESS IS UPDATED ** «, t00=0x0057, t01=0x003a}
0x0885a…08898               Head {h00=0x003a, h01=0x0050, text=»**                                                 ** «, t00=0x0057, t01=0x0078}
0x08898…088d6               Head {h00=0x003a, h01=0x0050, text=»**  INPUT :WBADD POINTS TO W.B.-ADDRESS IN T:A     ** «, t00=0x0057, t01=0x00b6}
0x088d6…08914               Head {h00=0x003a, h01=0x0050, text=»**  OUTPUT: A3=POINTER TO W.B.-ADDRESS             ** «, t00=0x0057, t01=0x00f4}
0x08914…08952               Head {h00=0x003a, h01=0x0050, text=»**  WORK REGS: A1-A4                               ** «, t00=0x0057, t01=0x0132}
0x08952…08990               Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0057, t01=0x0170}
0x08990…0899c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0058, t01=0x001e}
0x0899c…089b0               Head {h00=0x0010, h01=0x0050, text=»MOVDT EQU * «, t00=0x0058, t01=0x002a}
0x089b0…089ea               Head {h00=0x0036, h01=0x0050, text=» LD A1,WBADD,A13 GET POINTER TO W.B-ADDRESS IN WAT«, t00=0x0058, t01=0x003e}
0x089ea…08a14               Head {h00=0x0026, h01=0x0050, text=» SUK A1,2 POINTER TO D.T.-ADDRESS «, t00=0x0058, t01=0x0078}
0x08a14…08a30               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0058, t01=0x00a2}
0x08a30…08a50               Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A1 D.T.-ADDRESS«, t00=0x0058, t01=0x00be}
0x08a50…08a7e               Head {h00=0x002a, h01=0x0050, text=» ADKL A1,DTLEN ADJUST FOR LENGTH WORD «, t00=0x0058, t01=0x00de}
0x08a7e…08aa0               Head {h00=0x001e, h01=0x0050, text=» AD A1,MOVADD,A13 RELOCATE«, t00=0x0058, t01=0x010c}
0x08aa0…08aba               Head {h00=0x0016, h01=0x0050, text=» LDR* A3,A1 LENGTH«, t00=0x0058, t01=0x012e}
0x08aba…08ace               Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0058, t01=0x0148}
0x08ace…08ae6               Head {h00=0x0014, h01=0x0050, text=» LD A3,WBADD,A13«, t00=0x0058, t01=0x015c}
0x08ae6…08afc               Head {h00=0x0012, h01=0x0050, text=» SUKL A2,DTLEN«, t00=0x0058, t01=0x0174}
0x08afc…08b12               Head {h00=0x0012, h01=0x0050, text=» SUKL A1,DTLEN«, t00=0x0058, t01=0x018a}
0x08b12…08b4a               Head {h00=0x0034, h01=0x0050, text=» ST A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS «, t00=0x0059, t01=0x0010}
0x08b4a…08b56               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x0048}
0x08b56…08b72               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0059, t01=0x0054}
0x08b72…08b92               Head {h00=0x001c, h01=0x0050, text=» ELR A1,A1 D.T.-ADDRESS «, t00=0x0059, t01=0x0070}
0x08b92…08bc0               Head {h00=0x002a, h01=0x0050, text=» ADKL A1,DTLEN ADJUST FOR LENGTH WORD «, t00=0x0059, t01=0x0090}
0x08bc0…08be2               Head {h00=0x001e, h01=0x0050, text=» AD A1,MOVADD,A13 RELOCATE«, t00=0x0059, t01=0x00be}
0x08be2…08bfc               Head {h00=0x0016, h01=0x0050, text=» ELR A3,A1 LENGTH «, t00=0x0059, t01=0x00e0}
0x08bfc…08c10               Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0059, t01=0x00fa}
0x08c10…08c28               Head {h00=0x0014, h01=0x0050, text=» LD A3,WBADD,A13«, t00=0x0059, t01=0x010e}
0x08c28…08c3e               Head {h00=0x0012, h01=0x0050, text=» SUKL A2,DTLEN«, t00=0x0059, t01=0x0126}
0x08c3e…08c54               Head {h00=0x0012, h01=0x0050, text=» SUKL A1,DTLEN«, t00=0x0059, t01=0x013c}
0x08c54…08c8c               Head {h00=0x0034, h01=0x0050, text=» ES A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS «, t00=0x0059, t01=0x0152}
0x08c8c…08c98               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x018a}
0x08c98…08cae               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x005a, t01=0x0008}
0x08cae…08cbe               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005a, t01=0x001e}
0x08cbe…08ccc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005a, t01=0x002e}
0x08ccc…08cd8               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x005a, t01=0x003c}
0x08cd8…08d18               Head {h00=0x003c, h01=0x0050, text=»**                    M O V D W B                     **«, t00=0x005a, t01=0x0048}
0x08d18…08d58               Head {h00=0x003c, h01=0x0050, text=»**                                                    **«, t00=0x005a, t01=0x0088}
0x08d58…08d98               Head {h00=0x003c, h01=0x0050, text=»**                                                    **«, t00=0x005a, t01=0x00c8}
0x08d98…08dd8               Head {h00=0x003c, h01=0x0050, text=»**  SEARCH T:D FOR DUMMY W.B. IF ANY FOUND, MOVE D.T. **«, t00=0x005a, t01=0x0108}
0x08dd8…08e18               Head {h00=0x003c, h01=0x0050, text=»**  AND UPDATE ADDRESSES (W.B. & D.T.)                **«, t00=0x005a, t01=0x0148}
0x08e18…08e58               Head {h00=0x003c, h01=0x0050, text=»**                                                    **«, t00=0x005a, t01=0x0188}
0x08e58…08e98               Head {h00=0x003c, h01=0x0050, text=»**  INPUT : A12=T:D-ADDRESS                           **«, t00=0x005b, t01=0x0038}
0x08e98…08ed8               Head {h00=0x003c, h01=0x0050, text=»**          A8= POINTER TO T:A-ADDRESS                **«, t00=0x005b, t01=0x0078}
0x08ed8…08f18               Head {h00=0x003c, h01=0x0050, text=»**          BIT=BIT NUMBER SAT IN DWBMSK ( 0-15 )     **«, t00=0x005b, t01=0x00b8}
0x08f18…08f58               Head {h00=0x003c, h01=0x0050, text=»**  WORK.REGS: A1-A4                                  **«, t00=0x005b, t01=0x00f8}
0x08f58…08f98               Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x005b, t01=0x0138}
0x08f98…08fa4               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x005b, t01=0x0178}
0x08fa4…08fb8               Head {h00=0x0010, h01=0x0050, text=»MOVDWB EQU *«, t00=0x005b, t01=0x0184}
0x08fb8…08fda               Head {h00=0x001e, h01=0x0050, text=» ST A6,SAVE05,A13 SAVE A5 «, t00=0x005c, t01=0x0008}
0x08fda…08fec               Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x005c, t01=0x002a}
0x08fec…09018               Head {h00=0x0028, h01=0x0050, text=»MOVD10 LD A4,BIT,A13 GET BIT NUMBER «, t00=0x005c, t01=0x003c}
0x09018…0903e               Head {h00=0x0022, h01=0x0050, text=» ADK A4,1 FIRST WAT-ELEMENT =1«, t00=0x005c, t01=0x0068}
0x0903e…0905a               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x005c, t01=0x008e}
0x0905a…09074               Head {h00=0x0016, h01=0x0050, text=» LD A2,WATLEN,A12 «, t00=0x005c, t01=0x00aa}
0x09074…09080               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005c, t01=0x00c4}
0x09080…0909c               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x005c, t01=0x00d0}
0x0909c…090b6               Head {h00=0x0016, h01=0x0050, text=» EL A2,WATLEN,A12 «, t00=0x005c, t01=0x00ec}
0x090b6…090c2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005c, t01=0x0106}
0x090c2…090d8               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x005c, t01=0x0112}
0x090d8…090fe               Head {h00=0x0022, h01=0x0050, text=» SUR A2,A6 ACTUAL TABLE LENGTH«, t00=0x005c, t01=0x0128}
0x090fe…09122               Head {h00=0x0020, h01=0x0050, text=» ADR A6,A12 A6=TABLE POINTER«, t00=0x005c, t01=0x014e}
0x09122…09148               Head {h00=0x0022, h01=0x0050, text=»MOVD20 ADK A6,1 A6=TABLE INDEX«, t00=0x005c, t01=0x0172}
0x09148…0915e               Head {h00=0x0012, h01=0x0050, text=» SUK A2,1 ALL?«, t00=0x005d, t01=0x0008}
0x0915e…09178               Head {h00=0x0016, h01=0x0050, text=» RF(N) MOVD60 YES!«, t00=0x005d, t01=0x001e}
0x09178…09194               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x005d, t01=0x0038}
0x09194…091ba               Head {h00=0x0022, h01=0x0050, text=» CC A4,DWBFST,A6 SHARED W.B.? «, t00=0x005d, t01=0x0054}
0x091ba…091c6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005d, t01=0x007a}
0x091c6…091e2               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x005d, t01=0x0086}
0x091e2…09210               Head {h00=0x002a, h01=0x0050, text=» EL A10,DWBFST,A6 CHECK IF SHARED W.B.«, t00=0x005d, t01=0x00a2}
0x09210…09236               Head {h00=0x0022, h01=0x0050, text=» SRC A6,1 RIGHT OR LEFT BYTE? «, t00=0x005d, t01=0x00d0}
0x09236…09252               Head {h00=0x0018, h01=0x0050, text=» RF(N) MOVD30 RIGHT!«, t00=0x005d, t01=0x00f6}
0x09252…0926a               Head {h00=0x0014, h01=0x0050, text=» ANKL A10,/FF00 «, t00=0x005d, t01=0x0112}
0x0926a…0927e               Head {h00=0x0010, h01=0x0050, text=» ECR A10,A10«, t00=0x005d, t01=0x012a}
0x0927e…09290               Head {h00=0x000e, h01=0x0050, text=» RF MOVD40«, t00=0x005d, t01=0x013e}
0x09290…092ac               Head {h00=0x0018, h01=0x0050, text=»MOVD30 ANKL A10,/FF «, t00=0x005d, t01=0x0150}
0x092ac…092d2               Head {h00=0x0022, h01=0x0050, text=»MOVD40 SLC A6,1 ADJUST POINTER«, t00=0x005d, t01=0x016c}
0x092d2…092f2 (94, 0, 400)  Head {h00=0x001c, h01=0x0050, text=» CWR A4,A10 SHARED W.B.?«, t00=0x005e, t01=0x0004}
0x092f2…092fe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x0024}
0x092fe…09314               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x005e, t01=0x0030}
0x09314…0932e               Head {h00=0x0016, h01=0x0050, text=» RB(NE) MOVD20 NO!«, t00=0x005e, t01=0x0046}
0x0932e…09344               Head {h00=0x0012, h01=0x0050, text=»* DWB FOUND * «, t00=0x005e, t01=0x0060}
0x09344…09374               Head {h00=0x002c, h01=0x0050, text=» NGR A4,A2 CALCULATE DISPLACEMENT IN T:A«, t00=0x005e, t01=0x0076}
0x09374…09390               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x005e, t01=0x00a6}
0x09390…093aa               Head {h00=0x0016, h01=0x0050, text=» AD A4,WATLEN,A12 «, t00=0x005e, t01=0x00c2}
0x093aa…093b6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x00dc}
0x093b6…093d2               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x005e, t01=0x00e8}
0x093d2…093ec               Head {h00=0x0016, h01=0x0050, text=» EL A10,WATLEN,A12«, t00=0x005e, t01=0x0104}
0x093ec…09400               Head {h00=0x0010, h01=0x0050, text=» ADR A4,A10 «, t00=0x005e, t01=0x011e}
0x09400…0940c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x0132}
0x0940c…09422               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x005e, t01=0x013e}
0x09422…09446               Head {h00=0x0020, h01=0x0050, text=» LDR A6,A4 SAVE TABLE INDEX «, t00=0x005e, t01=0x0154}
0x09446…09458               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x005e, t01=0x0178}
0x09458…0946a               Head {h00=0x000e, h01=0x0050, text=» SLL A4,2 «, t00=0x005e, t01=0x018a}
0x0946a…09482               Head {h00=0x0014, h01=0x0050, text=» ADK A4,WATFST+2«, t00=0x005f, t01=0x000c}
0x09482…094b0               Head {h00=0x002a, h01=0x0050, text=» LD A3,NEWAD2,A13 GET NEW W.B.-ADDRESS«, t00=0x005f, t01=0x0024}
0x094b0…094cc               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x005f, t01=0x0052}
0x094cc…09502               Head {h00=0x0032, h01=0x0050, text=» ADR* A4,A8 A4=POINTER TO W.B.-ADDRESS IN T:A «, t00=0x005f, t01=0x006e}
0x09502…09528               Head {h00=0x0022, h01=0x0050, text=» STR A3,A4 CHANGE W.B.-ADDRESS«, t00=0x005f, t01=0x00a4}
0x09528…09534               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x00ca}
0x09534…09550               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x005f, t01=0x00d6}
0x09550…09582               Head {h00=0x002e, h01=0x0050, text=» LD A2,FLAG,A13 REAL DATA-PART PROCESSING?«, t00=0x005f, t01=0x00f2}
0x09582…0959c               Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVD50 NO! «, t00=0x005f, t01=0x0124}
0x0959c…095c0               Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x005f, t01=0x013e}
0x095c0…095d4               Head {h00=0x0010, h01=0x0050, text=»MOVD50 EQU *«, t00=0x005f, t01=0x0162}
0x095d4…09606               Head {h00=0x002e, h01=0x0050, text=» ELR A10,A8 A4=POINTER TO W.B.-ADDR IN T:A«, t00=0x005f, t01=0x0176}
0x09606…0961a               Head {h00=0x0010, h01=0x0050, text=» ADR A4,A10 «, t00=0x0060, t01=0x0018}
0x0961a…09640               Head {h00=0x0022, h01=0x0050, text=» ESR A3,A4 CHANGE W.B.-ADDRESS«, t00=0x0060, t01=0x002c}
0x09640…0966a               Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM-TABLE «, t00=0x0060, t01=0x0052}
0x0966a…09676               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x007c}
0x09676…0968c               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0060, t01=0x0088}
0x0968c…096a4               Head {h00=0x0014, h01=0x0050, text=» ST A4,WBADD,A13«, t00=0x0060, t01=0x009e}
0x096a4…096d6               Head {h00=0x002e, h01=0x0050, text=» LD A2,SWITCH,A13 WB-ADDRESS CHANGE ONLY? «, t00=0x0060, t01=0x00b6}
0x096d6…096f2               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) MOVD10 YES! «, t00=0x0060, t01=0x00e8}
0x096f2…09710               Head {h00=0x001a, h01=0x0050, text=» CALL MOVDT MOVE D.T. «, t00=0x0060, t01=0x0104}
0x09710…09722               Head {h00=0x000e, h01=0x0050, text=» RB MOVD10«, t00=0x0060, t01=0x0122}
0x09722…09736               Head {h00=0x0010, h01=0x0050, text=»MOVD60 EQU *«, t00=0x0060, t01=0x0134}
0x09736…0975a               Head {h00=0x0020, h01=0x0050, text=» LD A6,SAVE05,A13 RESTORE A6«, t00=0x0060, t01=0x0148}
0x0975a…0976a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0060, t01=0x016c}
0x0976a…09778               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0060, t01=0x017c}
0x09778…09780               Head {h00=0x0004, h01=0x0050, t00=0x0060, t01=0x018a}
0x09780…09788 (97, 0, 400)  Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x0004}
0x09788…097c0               Head {h00=0x0034, h01=0x0050, text=»**              T W B S W B                   **«, t00=0x0061, t01=0x000c}
0x097c0…097f8               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x0061, t01=0x0044}
0x097f8…09830               Head {h00=0x0034, h01=0x0050, text=»**  COPY TWB'S AND RESERVE SPACE FOR SWB'S    **«, t00=0x0061, t01=0x007c}
0x09830…09868               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x0061, t01=0x00b4}
0x09868…098a0               Head {h00=0x0034, h01=0x0050, text=»**  INPUT : A8=ACTUAL T:A-ADDRESS             **«, t00=0x0061, t01=0x00ec}
0x098a0…098d8               Head {h00=0x0034, h01=0x0050, text=»**          A12=T:D-ADDRESS                   **«, t00=0x0061, t01=0x0124}
0x098d8…09910               Head {h00=0x0034, h01=0x0050, text=»**  WORK-REGS: A1-A4,   A11                   **«, t00=0x0061, t01=0x015c}
0x09910…09948 (98, 0, 400)  Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0062, t01=0x0004}
0x09948…09950               Head {h00=0x0004, h01=0x0050, t00=0x0062, t01=0x003c}
0x09950…09964               Head {h00=0x0010, h01=0x0050, text=»TWBSWB EQU *«, t00=0x0062, t01=0x0044}
0x09964…09986               Head {h00=0x001e, h01=0x0050, text=» ST A7,SAVE04,A13 SAVE A7 «, t00=0x0062, t01=0x0058}
0x09986…099ac               Head {h00=0x0022, h01=0x0050, text=» LD A7,TWBMSK,A12 GET TWB MASK«, t00=0x0062, t01=0x007a}
0x099ac…099c8               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0062, t01=0x00a0}
0x099c8…099ee               Head {h00=0x0022, h01=0x0050, text=» EL A7,TWBMSK,A12 GET TWB MASK«, t00=0x0062, t01=0x00bc}
0x099ee…099fa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0062, t01=0x00e2}
0x099fa…09a10               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0062, t01=0x00ee}
0x09a10…09a24               Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x0062, t01=0x0104}
0x09a24…09a4a               Head {h00=0x0022, h01=0x0050, text=»TWSW10 RF(Z) TWSW20 ALL DONE! «, t00=0x0062, t01=0x0118}
0x09a4a…09a5e               Head {h00=0x0010, h01=0x0050, text=» CALL GETWB «, t00=0x0062, t01=0x013e}
0x09a5e…09a72               Head {h00=0x0010, h01=0x0050, text=» CALL MOVWB «, t00=0x0062, t01=0x0152}
0x09a72…09aa0               Head {h00=0x002a, h01=0x0050, text=» ST A2,NEWAD2,A13 SAVE NEW WB-ADDRESS «, t00=0x0062, t01=0x0166}
0x09aa0…09aca (99, 0, 400)  Head {h00=0x0026, h01=0x0050, text=» CALL MOVDWB CHANGE DWB-ADDRESSES «, t00=0x0063, t01=0x0004}
0x09aca…09ade               Head {h00=0x0010, h01=0x0050, text=» CALL SKIFTA«, t00=0x0063, t01=0x002e}
0x09ade…09af0               Head {h00=0x000e, h01=0x0050, text=» RB TWSW10«, t00=0x0063, t01=0x0042}
0x09af0…09b04               Head {h00=0x0010, h01=0x0050, text=»TWSW20 EQU *«, t00=0x0063, t01=0x0054}
0x09b04…09b20               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0063, t01=0x0068}
0x09b20…09b2e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0063, t01=0x0084}
0x09b2e…09b3a               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0063, t01=0x0092}
0x09b3a…09b46               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0063, t01=0x009e}
0x09b46…09b6a               Head {h00=0x0020, h01=0x0050, text=»* RESERVE SPACE FOR SWB'S * «, t00=0x0063, t01=0x00aa}
0x09b6a…09b8e               Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0063, t01=0x00ce}
0x09b8e…09b9a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x00f2}
0x09b9a…09bb6               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x0063, t01=0x00fe}
0x09bb6…09bd0               Head {h00=0x0016, h01=0x0050, text=» LD A7,SWBMSK,A12 «, t00=0x0063, t01=0x011a}
0x09bd0…09bdc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x0134}
0x09bdc…09bf8               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x0063, t01=0x0140}
0x09bf8…09c12               Head {h00=0x0016, h01=0x0050, text=» EL A7,SWBMSK,A12 «, t00=0x0063, t01=0x015c}
0x09c12…09c1e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x0176}
0x09c1e…09c3a               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0063, t01=0x0182}
0x09c3a…09c4e               Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x0064, t01=0x000e}
0x09c4e…09c72               Head {h00=0x0020, h01=0x0050, text=»TWSW30 RF(Z) TARZAN ALL DONE«, t00=0x0064, t01=0x0022}
0x09c72…09c86               Head {h00=0x0010, h01=0x0050, text=» CALL GETWB «, t00=0x0064, t01=0x0046}
0x09c86…09ca8               Head {h00=0x001e, h01=0x0050, text=» CALL MOVWB RESERVE SPACE «, t00=0x0064, t01=0x005a}
0x09ca8…09cd4               Head {h00=0x0028, h01=0x0050, text=» ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS «, t00=0x0064, t01=0x007c}
0x09cd4…09cfe               Head {h00=0x0026, h01=0x0050, text=» CALL MOVDWB CHANGE DWB- ADDRESSES«, t00=0x0064, t01=0x00a8}
0x09cfe…09d12               Head {h00=0x0010, h01=0x0050, text=» CALL SKIFTA«, t00=0x0064, t01=0x00d2}
0x09d12…09d24               Head {h00=0x000e, h01=0x0050, text=» RB TWSW30«, t00=0x0064, t01=0x00e6}
0x09d24…09d38               Head {h00=0x0010, h01=0x0050, text=»TARZAN EQU *«, t00=0x0064, t01=0x00f8}
0x09d38…09d44               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x010c}
0x09d44…09d5a               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0064, t01=0x0118}
0x09d5a…09d7e               Head {h00=0x0020, h01=0x0050, text=» LD A7,SAVE04,A13 RESTORE A7«, t00=0x0064, t01=0x012e}
0x09d7e…09d8e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0064, t01=0x0152}
0x09d8e…09d9c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0064, t01=0x0162}
0x09d9c…09da4               Head {h00=0x0004, h01=0x0050, t00=0x0064, t01=0x0170}
0x09da4…09dac               Head {h00=0x0004, h01=0x0050, t00=0x0064, t01=0x0178}
0x09dac…09de4               Head {h00=0x0034, h01=0x0050, text=»**                A L L B U F                 **«, t00=0x0064, t01=0x0180}
0x09de4…09e1c               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x0065, t01=0x0028}
0x09e1c…09e54               Head {h00=0x0034, h01=0x0050, text=»**  ALLOCATE FIXED DATA SET BUFFERS AND       **«, t00=0x0065, t01=0x0060}
0x09e54…09e8c               Head {h00=0x0034, h01=0x0050, text=»**  TERMINAL STACK                            **«, t00=0x0065, t01=0x0098}
0x09e8c…09ec4               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x0065, t01=0x00d0}
0x09ec4…09efc               Head {h00=0x0034, h01=0x0050, text=»**  INPUT : A8=ACTUAL T:A-ADDRESS IN T:ATAB   **«, t00=0x0065, t01=0x0108}
0x09efc…09f34               Head {h00=0x0034, h01=0x0050, text=»**          A12=T:D-ADDRESS                   **«, t00=0x0065, t01=0x0140}
0x09f34…09f6c               Head {h00=0x0034, h01=0x0050, text=»**          CSN (IN T:A)=LENGTH OF DSCB'S     **«, t00=0x0065, t01=0x0178}
0x09f6c…09fa4               Head {h00=0x0034, h01=0x0050, text=»**          CIA (IN T:A)=DISPL. TO T:A-START  **«, t00=0x0066, t01=0x0020}
0x09fa4…09fdc               Head {h00=0x0034, h01=0x0050, text=»**          CSE (IN T:A)=STACKSIZE            **«, t00=0x0066, t01=0x0058}
0x09fdc…0a014               Head {h00=0x0034, h01=0x0050, text=»**  WORK-REGS. :A1-A4,A9,A11                  **«, t00=0x0066, t01=0x0090}
0x0a014…0a04c               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0066, t01=0x00c8}
0x0a04c…0a054               Head {h00=0x0004, h01=0x0050, t00=0x0066, t01=0x0100}
0x0a054…0a068               Head {h00=0x0010, h01=0x0050, text=»ALLBUF EQU *«, t00=0x0066, t01=0x0108}
0x0a068…0a084               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0066, t01=0x011c}
0x0a084…0a0b6               Head {h00=0x002e, h01=0x0050, text=» LD A9,FSTADR,A13 GET BUFFER START ADDRESS«, t00=0x0066, t01=0x0138}
0x0a0b6…0a0da               Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A-ADDRESS «, t00=0x0066, t01=0x016a}
0x0a0da…0a106               Head {h00=0x0028, h01=0x0050, text=» LD A3,CSN,A1 GET DSCB TOTAL LENGTH «, t00=0x0066, t01=0x018e}
0x0a106…0a126               Head {h00=0x001c, h01=0x0050, text=» RF(Z) ALLB70 NO DSCB'S «, t00=0x0067, t01=0x002a}
0x0a126…0a158               Head {h00=0x002e, h01=0x0050, text=» ADKL A1,T:ASTA CALC START OF DSCB RECORDS«, t00=0x0067, t01=0x004a}
0x0a158…0a17e               Head {h00=0x0022, h01=0x0050, text=» LDR A10,A1 SAVE START ADDRESS«, t00=0x0067, t01=0x007c}
0x0a17e…0a18a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0067, t01=0x00a2}
0x0a18a…0a1a6               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0067, t01=0x00ae}
0x0a1a6…0a1c8               Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A-ADDRESS«, t00=0x0067, t01=0x00ca}
0x0a1c8…0a1f4               Head {h00=0x0028, h01=0x0050, text=» EL A3,CSN,A1 GET DSCB TOTAL LENGTH «, t00=0x0067, t01=0x00ec}
0x0a1f4…0a212               Head {h00=0x001a, h01=0x0050, text=» RF(Z) ALLB70 NO DSCB «, t00=0x0067, t01=0x0118}
0x0a212…0a244               Head {h00=0x002e, h01=0x0050, text=» ADKL A1,T:ASTA CALCULATE START OF DSCB'S «, t00=0x0067, t01=0x0136}
0x0a244…0a26a               Head {h00=0x0022, h01=0x0050, text=» LDR A10,A1 SAVE START ADDRESS«, t00=0x0067, t01=0x0168}
0x0a26a…0a276               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0067, t01=0x018e}
0x0a276…0a28c               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0068, t01=0x000a}
0x0a28c…0a29e               Head {h00=0x000e, h01=0x0050, text=» SUR A3,A1«, t00=0x0068, t01=0x0020}
0x0a29e…0a2b0               Head {h00=0x000e, h01=0x0050, text=» NGR A3,A3«, t00=0x0068, t01=0x0032}
0x0a2b0…0a2d4               Head {h00=0x0020, h01=0x0050, text=» SUK A3,DSCBL END CONDITION «, t00=0x0068, t01=0x0044}
0x0a2d4…0a312               Head {h00=0x003a, h01=0x0050, text=» ST A3,SAVE04,A13 SAVE ADDRESS TO END OF DSCB-RECORDS «, t00=0x0068, t01=0x0068}
0x0a312…0a350               Head {h00=0x003a, h01=0x0050, text=»ALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD«, t00=0x0068, t01=0x00a6}
0x0a350…0a36e               Head {h00=0x001a, h01=0x0050, text=» CW A1,SAVE04,A13 ALL?«, t00=0x0068, t01=0x00e4}
0x0a36e…0a388               Head {h00=0x0016, h01=0x0050, text=» RF(E) ALLB70 YES!«, t00=0x0068, t01=0x0102}
0x0a388…0a3a4               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0068, t01=0x011c}
0x0a3a4…0a3ce               Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A1 GET FIRST WORD IN ECB «, t00=0x0068, t01=0x0138}
0x0a3ce…0a3ee               Head {h00=0x001c, h01=0x0050, text=» SLL A3,1 STATIC BUFFER?«, t00=0x0068, t01=0x0162}
0x0a3ee…0a408               Head {h00=0x0016, h01=0x0050, text=» RB(NN) ALLB10 NO!«, t00=0x0068, t01=0x0182}
0x0a408…0a42a               Head {h00=0x001e, h01=0x0050, text=» ST A9,BA,A1 BUFFER START «, t00=0x0069, t01=0x000c}
0x0a42a…0a44c               Head {h00=0x001e, h01=0x0050, text=» LD A3,RL,A1 BUFFER LENGTH«, t00=0x0069, t01=0x002e}
0x0a44c…0a460               Head {h00=0x0010, h01=0x0050, text=» ST A3,BL,A1«, t00=0x0069, t01=0x0050}
0x0a460…0a484               Head {h00=0x0020, h01=0x0050, text=» LD A2,EL,A1 SHARED BUFFER? «, t00=0x0069, t01=0x0064}
0x0a484…0a49c               Head {h00=0x0014, h01=0x0050, text=» RF(Z) NOTSH NO!«, t00=0x0069, t01=0x0088}
0x0a49c…0a4c6               Head {h00=0x0026, h01=0x0050, text=» LDR A4,A1 RESTORE START OF DSCB'S«, t00=0x0069, t01=0x00a0}
0x0a4c6…0a4d2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0069, t01=0x00ca}
0x0a4d2…0a4ee               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0069, t01=0x00d6}
0x0a4ee…0a516               Head {h00=0x0024, h01=0x0050, text=» ELR A3,A1 GET FIRST WORD IN ECB«, t00=0x0069, t01=0x00f2}
0x0a516…0a536               Head {h00=0x001c, h01=0x0050, text=» SLL A3,1 STATIC BUFFER?«, t00=0x0069, t01=0x011a}
0x0a536…0a550               Head {h00=0x0016, h01=0x0050, text=» RB(NN) ALLB10 NO!«, t00=0x0069, t01=0x013a}
0x0a550…0a572               Head {h00=0x001e, h01=0x0050, text=» EL A3,RL,A1 BUFFER LENGTH«, t00=0x0069, t01=0x0154}
0x0a572…0a586               Head {h00=0x0010, h01=0x0050, text=» ES A3,BL,A1«, t00=0x0069, t01=0x0176}
0x0a586…0a5aa               Head {h00=0x0020, h01=0x0050, text=» EL A2,EL,A1 SHARED BUFFER? «, t00=0x0069, t01=0x018a}
0x0a5aa…0a5c2               Head {h00=0x0014, h01=0x0050, text=» RF(Z) NOTSH NO!«, t00=0x006a, t01=0x001e}
0x0a5c2…0a5ec               Head {h00=0x0026, h01=0x0050, text=» LDR A4,A1 RESTORE START OF DSCB'S«, t00=0x006a, t01=0x0036}
0x0a5ec…0a5f8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006a, t01=0x0060}
0x0a5f8…0a60e               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x006a, t01=0x006c}
0x0a60e…0a62e               Head {h00=0x001c, h01=0x0050, text=» ADK A4,DSCBL FIRST WORD«, t00=0x006a, t01=0x0082}
0x0a62e…0a64e               Head {h00=0x001c, h01=0x0050, text=»ALLB20 SUK A2,1 A2=INDEX«, t00=0x006a, t01=0x00a2}
0x0a64e…0a664               Head {h00=0x0012, h01=0x0050, text=» RF(NN) ALLB30«, t00=0x006a, t01=0x00c2}
0x0a664…0a686               Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP4 FORMAT ERROR «, t00=0x006a, t01=0x00d8}
0x0a686…0a69a               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006a, t01=0x00fa}
0x0a69a…0a6ae               Head {h00=0x0010, h01=0x0050, text=»ALLB30 EQU *«, t00=0x006a, t01=0x010e}
0x0a6ae…0a6ce               Head {h00=0x001c, h01=0x0050, text=» RF(Z) ALLB40 ECB FOUND «, t00=0x006a, t01=0x0122}
0x0a6ce…0a702               Head {h00=0x0030, h01=0x0050, text=» ADK A4,DSCBL A4=ADDRESS TO DSCB TO EXAMINE «, t00=0x006a, t01=0x0142}
0x0a702…0a716               Head {h00=0x0010, h01=0x0050, text=» CWR A4,A10 «, t00=0x006a, t01=0x0176}
0x0a716…0a72c               Head {h00=0x0012, h01=0x0050, text=» RB(NE) ALLB20«, t00=0x006a, t01=0x018a}
0x0a72c…0a752               Head {h00=0x0022, h01=0x0050, text=» LDK A1,LMP4 BUFFER NOT FOUND «, t00=0x006b, t01=0x0010}
0x0a752…0a766               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006b, t01=0x0036}
0x0a766…0a782               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x006b, t01=0x004a}
0x0a782…0a7ae               Head {h00=0x0028, h01=0x0050, text=»ALLB40 LD A4,BA,A4 BUFFER ALLOCATED?«, t00=0x006b, t01=0x0066}
0x0a7ae…0a7ca               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ALLB50 YES! «, t00=0x006b, t01=0x0092}
0x0a7ca…0a7ec               Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP4 FORMAT ERROR «, t00=0x006b, t01=0x00ae}
0x0a7ec…0a800               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006b, t01=0x00d0}
0x0a800…0a814               Head {h00=0x0010, h01=0x0050, text=»ALLB50 EQU *«, t00=0x006b, t01=0x00e4}
0x0a814…0a842               Head {h00=0x002a, h01=0x0050, text=» ST A4,BA,A1 AND STORE IN CURRENT ECB «, t00=0x006b, t01=0x00f8}
0x0a842…0a84e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006b, t01=0x0126}
0x0a84e…0a86a               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x006b, t01=0x0132}
0x0a86a…0a896               Head {h00=0x0028, h01=0x0050, text=»ALLB40 EL A4,BA,A4 BUFFER ALLOCATED?«, t00=0x006b, t01=0x014e}
0x0a896…0a8b2               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ALLB50 YES! «, t00=0x006b, t01=0x017a}
0x0a8b2…0a8d4               Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP4 FORMAT ERROR «, t00=0x006c, t01=0x0008}
0x0a8d4…0a8e8               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006c, t01=0x002a}
0x0a8e8…0a8fc               Head {h00=0x0010, h01=0x0050, text=»ALLB50 EQU *«, t00=0x006c, t01=0x003e}
0x0a8fc…0a92a               Head {h00=0x002a, h01=0x0050, text=» ES A4,BA,A1 AND ESORE IN CURRENT ECB «, t00=0x006c, t01=0x0052}
0x0a92a…0a936               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006c, t01=0x0080}
0x0a936…0a94c               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x006c, t01=0x008c}
0x0a94c…0a95e               Head {h00=0x000e, h01=0x0050, text=» RB ALLB10«, t00=0x006c, t01=0x00a2}
0x0a95e…0a966               Head {h00=0x0004, h01=0x0050, t00=0x006c, t01=0x00b4}
0x0a966…0a982               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x006c, t01=0x00bc}
0x0a982…0a9a2               Head {h00=0x001c, h01=0x0050, text=»NOTSH LDR A9,A9 PAGING? «, t00=0x006c, t01=0x00d8}
0x0a9a2…0a9bc               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) NOTS10 NO!«, t00=0x006c, t01=0x00f8}
0x0a9bc…0a9ec               Head {h00=0x002c, h01=0x0050, text=» CALL MOVING ALLOCATE BUFFER FROM BOTTOM«, t00=0x006c, t01=0x0112}
0x0a9ec…0aa16               Head {h00=0x0026, h01=0x0050, text=» ST A2,BA,A1 STORE BUFFER ADDRESS «, t00=0x006c, t01=0x0142}
0x0aa16…0aa28               Head {h00=0x000e, h01=0x0050, text=» RB ALLB10«, t00=0x006c, t01=0x016c}
0x0aa28…0aa5a               Head {h00=0x002e, h01=0x0050, text=»NOTS10 ADR A9,A3 ALLOCATE BUFFER FROM TOP «, t00=0x006c, t01=0x017e}
0x0aa5a…0aa6c               Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x006d, t01=0x0020}
0x0aa6c…0aa90               Head {h00=0x0020, h01=0x0050, text=» ANKL A9,/FFFE EVEN ADDRESS «, t00=0x006d, t01=0x0032}
0x0aa90…0aaa8               Head {h00=0x0014, h01=0x0050, text=»* CHECK ADDRESS:«, t00=0x006d, t01=0x0056}
0x0aaa8…0aab4               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x006d, t01=0x006e}
0x0aab4…0aada               Head {h00=0x0022, h01=0x0050, text=» LD A11,LSTADR,A13 DATA START «, t00=0x006d, t01=0x007a}
0x0aada…0aaee               Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x006d, t01=0x00a0}
0x0aaee…0ab08               Head {h00=0x0016, h01=0x0050, text=» RF(NL) ALLB60 OK!«, t00=0x006d, t01=0x00b4}
0x0ab08…0ab1e               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP3 «, t00=0x006d, t01=0x00ce}
0x0ab1e…0ab32               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x006d, t01=0x00e4}
0x0ab32…0ab46               Head {h00=0x0010, h01=0x0050, text=»ALLB60 EQU *«, t00=0x006d, t01=0x00f8}
0x0ab46…0ab78               Head {h00=0x002e, h01=0x0050, text=» ST A9,FSTADR,A13 SAVE BUFFER END ADDRESS «, t00=0x006d, t01=0x010c}
0x0ab78…0ab84               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006d, t01=0x013e}
0x0ab84…0aba0               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x006d, t01=0x014a}
0x0aba0…0abd8               Head {h00=0x0034, h01=0x0050, text=»NOTSH CALL MOVING ALLOCATE BUFFER FROM 'BOTTOM' «, t00=0x006d, t01=0x0166}
0x0abd8…0ac02               Head {h00=0x0026, h01=0x0050, text=» ES A2,BA,A1 STORE BUFFER ADDRESS «, t00=0x006e, t01=0x000e}
0x0ac02…0ac0e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006e, t01=0x0038}
0x0ac0e…0ac24               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x006e, t01=0x0044}
0x0ac24…0ac36               Head {h00=0x000e, h01=0x0050, text=» RB ALLB10«, t00=0x006e, t01=0x005a}
0x0ac36…0ac42               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x006e, t01=0x006c}
0x0ac42…0ac72               Head {h00=0x002c, h01=0x0050, text=»* RESERVE STACK AND SET STACKPOINTERS * «, t00=0x006e, t01=0x0078}
0x0ac72…0ac7a               Head {h00=0x0004, h01=0x0050, t00=0x006e, t01=0x00a8}
0x0ac7a…0ac8e               Head {h00=0x0010, h01=0x0050, text=»ALLB70 EQU *«, t00=0x006e, t01=0x00b0}
0x0ac8e…0acaa               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x006e, t01=0x00c4}
0x0acaa…0acce               Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A-ADDRESS «, t00=0x006e, t01=0x00e0}
0x0acce…0ace8               Head {h00=0x0016, h01=0x0050, text=» LD A4,LSTADR,A13 «, t00=0x006e, t01=0x0104}
0x0ace8…0acfa               Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x006e, t01=0x011e}
0x0acfa…0ad1e               Head {h00=0x0020, h01=0x0050, text=» LD A3,CSE,A1 GET STACK SIZE«, t00=0x006e, t01=0x0130}
0x0ad1e…0ad34               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) ALLB80«, t00=0x006e, t01=0x0154}
0x0ad34…0ad5c               Head {h00=0x0024, h01=0x0050, text=» LDK A3,STKSZ DEFAULT STACKSIZE «, t00=0x006e, t01=0x016a}
0x0ad5c…0ad70 (111, 0, 400) Head {h00=0x0010, h01=0x0050, text=»ALLB80 EQU *«, t00=0x006f, t01=0x0004}
0x0ad70…0ad94               Head {h00=0x0020, h01=0x0050, text=» ST A4,STKB,A1 SET STACKBASE«, t00=0x006f, t01=0x0018}
0x0ad94…0adb4               Head {h00=0x001c, h01=0x0050, text=» STR A4,A1 STACK POINTER«, t00=0x006f, t01=0x003c}
0x0adb4…0add8               Head {h00=0x0020, h01=0x0050, text=» CALL MOVING ALLOCATE STACK «, t00=0x006f, t01=0x005c}
0x0add8…0adfc               Head {h00=0x0020, h01=0x0050, text=» ST A2,STKE,A1 SET STACK-END«, t00=0x006f, t01=0x0080}
0x0adfc…0ae08               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006f, t01=0x00a4}
0x0ae08…0ae24               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x006f, t01=0x00b0}
0x0ae24…0ae46               Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A-ADDRESS«, t00=0x006f, t01=0x00cc}
0x0ae46…0ae6a               Head {h00=0x0020, h01=0x0050, text=» EL A3,CSE,A1 GET STACK SIZE«, t00=0x006f, t01=0x00ee}
0x0ae6a…0ae98               Head {h00=0x002a, h01=0x0050, text=» RF(NZ) ALLB80 USER DEFINED STACK SIZE«, t00=0x006f, t01=0x0112}
0x0ae98…0aec0               Head {h00=0x0024, h01=0x0050, text=» LDK A3,STKSZ DEFAULT STACK SIZE«, t00=0x006f, t01=0x0140}
0x0aec0…0aeec               Head {h00=0x0028, h01=0x0050, text=»ALLB80 ES A3,STKB,A1 SAVE STACK SIZE«, t00=0x006f, t01=0x0168}
0x0aeec…0af10 (112, 0, 400) Head {h00=0x0020, h01=0x0050, text=» CALL MOVING ALLOCATE STACK «, t00=0x0070, t01=0x0004}
0x0af10…0af36               Head {h00=0x0022, h01=0x0050, text=» ES A2,STKE,A1 STORE STACK END«, t00=0x0070, t01=0x0028}
0x0af36…0af5c               Head {h00=0x0022, h01=0x0050, text=» EL A3,STKB,A1 GET STACK SIZE «, t00=0x0070, t01=0x004e}
0x0af5c…0af82               Head {h00=0x0022, h01=0x0050, text=» ADR A2,A3 COMPUTE STACK BASE «, t00=0x0070, t01=0x0074}
0x0af82…0afaa               Head {h00=0x0024, h01=0x0050, text=» ES A2,STKB,A1 STORE STACK BASE «, t00=0x0070, t01=0x009a}
0x0afaa…0afd8               Head {h00=0x002a, h01=0x0050, text=» ESR A2,A1 STORE CURRENT STACK POINTER«, t00=0x0070, t01=0x00c2}
0x0afd8…0afe4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0070, t01=0x00f0}
0x0afe4…0affa               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0070, t01=0x00fc}
0x0affa…0b00a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0070, t01=0x0112}
0x0b00a…0b018               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0070, t01=0x0122}
0x0b018…0b020               Head {h00=0x0004, h01=0x0050, t00=0x0070, t01=0x0130}
0x0b020…0b058               Head {h00=0x0034, h01=0x0050, text=»**              M O V T : A                   **«, t00=0x0070, t01=0x0138}
0x0b058…0b090               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x0070, t01=0x0170}
0x0b090…0b0c8               Head {h00=0x0034, h01=0x0050, text=»**  MOVE T:A AND UPDATE DATA SET ADDRESSES IN **«, t00=0x0071, t01=0x0018}
0x0b0c8…0b100               Head {h00=0x0034, h01=0x0050, text=»**  FORMAT CONTROL BLOCK                      **«, t00=0x0071, t01=0x0050}
0x0b100…0b138               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x0071, t01=0x0088}
0x0b138…0b170               Head {h00=0x0034, h01=0x0050, text=»**  INPUT : A8=T:A-ADDRESS                    **«, t00=0x0071, t01=0x00c0}
0x0b170…0b1a8               Head {h00=0x0034, h01=0x0050, text=»**          A12=T:D-ADDRESS                   **«, t00=0x0071, t01=0x00f8}
0x0b1a8…0b1e0               Head {h00=0x0034, h01=0x0050, text=»**          CIA (IN T:A)=DISL. TO T:A-START   **«, t00=0x0071, t01=0x0130}
0x0b1e0…0b218               Head {h00=0x0034, h01=0x0050, text=»**  OUTPUT: A2=NEW T:A-ADDRESS                **«, t00=0x0071, t01=0x0168}
0x0b218…0b250               Head {h00=0x0034, h01=0x0050, text=»**  WORKREGS: A1-A4                           **«, t00=0x0072, t01=0x0010}
0x0b250…0b288               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0072, t01=0x0048}
0x0b288…0b290               Head {h00=0x0004, h01=0x0050, t00=0x0072, t01=0x0080}
0x0b290…0b2a4               Head {h00=0x0010, h01=0x0050, text=»MOVT:A EQU *«, t00=0x0072, t01=0x0088}
0x0b2a4…0b2c0               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0072, t01=0x009c}
0x0b2c0…0b2e4               Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A-ADDRESS «, t00=0x0072, t01=0x00b8}
0x0b2e4…0b310               Head {h00=0x0028, h01=0x0050, text=» LD A3,WATLEN,A12 GET LENGTH OF WAT «, t00=0x0072, t01=0x00dc}
0x0b310…0b328               Head {h00=0x0014, h01=0x0050, text=» SLL A3,2 BYTES «, t00=0x0072, t01=0x0108}
0x0b328…0b358               Head {h00=0x002c, h01=0x0050, text=» SU A3,CIA,A1 ADD DISPLACEMENT TO START «, t00=0x0072, t01=0x0120}
0x0b358…0b378               Head {h00=0x001c, h01=0x0050, text=» ADK A3,WATFST A3=LENGTH«, t00=0x0072, t01=0x0150}
0x0b378…0b39a               Head {h00=0x001e, h01=0x0050, text=» AD A1,CIA,A1 FROM-ADDRESS«, t00=0x0072, t01=0x0170}
0x0b39a…0b3ae (115, 0, 398) Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0073, t01=0x0004}
0x0b3ae…0b3c2               Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A8 «, t00=0x0073, t01=0x0018}
0x0b3c2…0b3e8               Head {h00=0x0022, h01=0x0050, text=» SU A2,CIA,A4 NEW T:A-ADDRESS «, t00=0x0073, t01=0x002c}
0x0b3e8…0b410               Head {h00=0x0024, h01=0x0050, text=» SU A1,CIA,A4 'OLD' T:A-ADDRESS «, t00=0x0073, t01=0x0052}
0x0b410…0b418               Head {h00=0x0004, h01=0x0050, t00=0x0073, t01=0x007a}
0x0b418…0b454               Head {h00=0x0038, h01=0x0050, text=»* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * «, t00=0x0073, t01=0x0082}
0x0b454…0b45c               Head {h00=0x0004, h01=0x0050, t00=0x0073, t01=0x00be}
0x0b45c…0b47c               Head {h00=0x001c, h01=0x0050, text=» LD A3,FCD,A12 ANY FCD? «, t00=0x0073, t01=0x00c6}
0x0b47c…0b496               Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVT10 NO! «, t00=0x0073, t01=0x00e6}
0x0b496…0b4b6               Head {h00=0x001c, h01=0x0050, text=» ADR A3,A2 START OF FCB «, t00=0x0073, t01=0x0100}
0x0b4b6…0b4da               Head {h00=0x0020, h01=0x0050, text=» LDR A4,A2 SAVE T:A-ADDRESS «, t00=0x0073, t01=0x0120}
0x0b4da…0b50e               Head {h00=0x0030, h01=0x0050, text=» LD A10,FLAG,A13 REAL TASK DATA PROCESSING? «, t00=0x0073, t01=0x0144}
0x0b50e…0b528               Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVT05 NO! «, t00=0x0073, t01=0x0178}
0x0b528…0b566 (116, 0, 400) Head {h00=0x003a, h01=0x0050, text=» SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDRESS)«, t00=0x0074, t01=0x0004}
0x0b566…0b57a               Head {h00=0x0010, h01=0x0050, text=»MOVT05 EQU *«, t00=0x0074, t01=0x0042}
0x0b57a…0b594               Head {h00=0x0016, h01=0x0050, text=» ADS A4,FCBDD1,A3 «, t00=0x0074, t01=0x0056}
0x0b594…0b5ae               Head {h00=0x0016, h01=0x0050, text=» ADS A4,FCBDD2,A3 «, t00=0x0074, t01=0x0070}
0x0b5ae…0b5c4               Head {h00=0x0012, h01=0x0050, text=»MOVT10 RTN A14«, t00=0x0074, t01=0x008a}
0x0b5c4…0b5d0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0074, t01=0x00a0}
0x0b5d0…0b5ec               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0074, t01=0x00ac}
0x0b5ec…0b5f4               Head {h00=0x0004, h01=0x0050, t00=0x0074, t01=0x00c8}
0x0b5f4…0b616               Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A-ADDRESS«, t00=0x0074, t01=0x00d0}
0x0b616…0b642               Head {h00=0x0028, h01=0x0050, text=» EL A3,WATLEN,A12 GET LENGTH OF WAT «, t00=0x0074, t01=0x00f2}
0x0b642…0b65a               Head {h00=0x0014, h01=0x0050, text=» SLL A3,2 BYTES «, t00=0x0074, t01=0x011e}
0x0b65a…0b670               Head {h00=0x0012, h01=0x0050, text=» EL A10,CIA,A1«, t00=0x0074, t01=0x0136}
0x0b670…0b698               Head {h00=0x0024, h01=0x0050, text=» SUR A3,A10 ADD DISPL. TO START «, t00=0x0074, t01=0x014c}
0x0b698…0b6b8               Head {h00=0x001c, h01=0x0050, text=» ADK A3,WATFST A3=LENGTH«, t00=0x0074, t01=0x0174}
0x0b6b8…0b6d8 (117, 0, 400) Head {h00=0x001c, h01=0x0050, text=» ADR A1,A10 FROM-ADDRESS«, t00=0x0075, t01=0x0004}
0x0b6d8…0b6ec               Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x0075, t01=0x0024}
0x0b6ec…0b6fe               Head {h00=0x000e, h01=0x0050, text=» ELR A4,A8«, t00=0x0075, t01=0x0038}
0x0b6fe…0b714               Head {h00=0x0012, h01=0x0050, text=» EL A10,CIA,A4«, t00=0x0075, t01=0x004a}
0x0b714…0b738               Head {h00=0x0020, h01=0x0050, text=» SUR A2,A10 NEW T:A-ADDRESS «, t00=0x0075, t01=0x0060}
0x0b738…0b75e               Head {h00=0x0022, h01=0x0050, text=» SUR A1,A10 'OLD' T:A-ADDRESS «, t00=0x0075, t01=0x0084}
0x0b75e…0b79a               Head {h00=0x0038, h01=0x0050, text=»* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * «, t00=0x0075, t01=0x00aa}
0x0b79a…0b7a2               Head {h00=0x0004, h01=0x0050, t00=0x0075, t01=0x00e6}
0x0b7a2…0b7c2               Head {h00=0x001c, h01=0x0050, text=» EL A3,FCD,A12 ANY FCD? «, t00=0x0075, t01=0x00ee}
0x0b7c2…0b7dc               Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVT10 NO! «, t00=0x0075, t01=0x010e}
0x0b7dc…0b7fe               Head {h00=0x001e, h01=0x0050, text=» LDR A4,A2 GET T:A-ADDRESS«, t00=0x0075, t01=0x0128}
0x0b7fe…0b832               Head {h00=0x0030, h01=0x0050, text=» LD A10,FLAG,A13 REAL TASK DATA PROCESSING? «, t00=0x0075, t01=0x014a}
0x0b832…0b84c               Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVT05 NO! «, t00=0x0075, t01=0x017e}
0x0b84c…0b888               Head {h00=0x0038, h01=0x0050, text=» SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDR.)«, t00=0x0076, t01=0x0008}
0x0b888…0b89c               Head {h00=0x0010, h01=0x0050, text=»MOVT05 EQU *«, t00=0x0076, t01=0x0044}
0x0b89c…0b8bc               Head {h00=0x001c, h01=0x0050, text=» ADR A3,A2 START OF FCB «, t00=0x0076, t01=0x0058}
0x0b8bc…0b8de               Head {h00=0x001e, h01=0x0050, text=» TL* MMTO,13 LOAD TO-TABLE«, t00=0x0076, t01=0x0078}
0x0b8de…0b8f8               Head {h00=0x0016, h01=0x0050, text=» EL A10,FCBDD1,A3 «, t00=0x0076, t01=0x009a}
0x0b8f8…0b90c               Head {h00=0x0010, h01=0x0050, text=» ADR A10,A4 «, t00=0x0076, t01=0x00b4}
0x0b90c…0b926               Head {h00=0x0016, h01=0x0050, text=» ES A10,FCBDD1,A3 «, t00=0x0076, t01=0x00c8}
0x0b926…0b940               Head {h00=0x0016, h01=0x0050, text=» EL A10,FCBDD2,A3 «, t00=0x0076, t01=0x00e2}
0x0b940…0b954               Head {h00=0x0010, h01=0x0050, text=» ADR A10,A4 «, t00=0x0076, t01=0x00fc}
0x0b954…0b96e               Head {h00=0x0016, h01=0x0050, text=» ES A10,FCBDD2,A3 «, t00=0x0076, t01=0x0110}
0x0b96e…0b998               Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM-TABLE «, t00=0x0076, t01=0x012a}
0x0b998…0b9ae               Head {h00=0x0012, h01=0x0050, text=»MOVT10 RTN A14«, t00=0x0076, t01=0x0154}
0x0b9ae…0b9ba               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0076, t01=0x016a}
0x0b9ba…0b9c8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0076, t01=0x0176}
0x0b9c8…0b9d0               Head {h00=0x0004, h01=0x0050, t00=0x0076, t01=0x0184}
0x0b9d0…0b9d8               Head {h00=0x0004, h01=0x0050, t00=0x0076, t01=0x018c}
0x0b9d8…0b9e0 (119, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0077, t01=0x0004}
0x0b9e0…0ba1a               Head {h00=0x0036, h01=0x0050, text=»**                 C M P A D R                  **«, t00=0x0077, t01=0x000c}
0x0ba1a…0ba54               Head {h00=0x0036, h01=0x0050, text=»**                                              **«, t00=0x0077, t01=0x0046}
0x0ba54…0ba8e               Head {h00=0x0036, h01=0x0050, text=»**                                              **«, t00=0x0077, t01=0x0080}
0x0ba8e…0bac8               Head {h00=0x0036, h01=0x0050, text=»**  COMPARE ADDRESSES. RESULT IN PSW ON RETURN  **«, t00=0x0077, t01=0x00ba}
0x0bac8…0bb02               Head {h00=0x0036, h01=0x0050, text=»**                                              **«, t00=0x0077, t01=0x00f4}
0x0bb02…0bb3c               Head {h00=0x0036, h01=0x0050, text=»**  INPUT : A11 COMPARED TO..                   **«, t00=0x0077, t01=0x012e}
0x0bb3c…0bb76               Head {h00=0x0036, h01=0x0050, text=»**          A9                                  **«, t00=0x0077, t01=0x0168}
0x0bb76…0bbb0               Head {h00=0x0036, h01=0x0050, text=»**  OUTPUT: RESULT IN A14-STACK                 **«, t00=0x0078, t01=0x0012}
0x0bbb0…0bbea               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0078, t01=0x004c}
0x0bbea…0bbf6               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0078, t01=0x0086}
0x0bbf6…0bc0a               Head {h00=0x0010, h01=0x0050, text=»CMPADR EQU *«, t00=0x0078, t01=0x0092}
0x0bc0a…0bc1e               Head {h00=0x0010, h01=0x0050, text=» TNM A11,A9 «, t00=0x0078, t01=0x00a6}
0x0bc1e…0bc34               Head {h00=0x0012, h01=0x0050, text=» RF(NN) CMPA10«, t00=0x0078, t01=0x00ba}
0x0bc34…0bc48               Head {h00=0x0010, h01=0x0050, text=» CWR A9,A11 «, t00=0x0078, t01=0x00d0}
0x0bc48…0bc5a               Head {h00=0x000e, h01=0x0050, text=» RF CMPA20«, t00=0x0078, t01=0x00e4}
0x0bc5a…0bc74               Head {h00=0x0016, h01=0x0050, text=»CMPA10 CWR A11,A9 «, t00=0x0078, t01=0x00f6}
0x0bc74…0bca6               Head {h00=0x002e, h01=0x0050, text=»CMPA20 CFI A14,PSW,A13 PUT RESULT ON STACK«, t00=0x0078, t01=0x0110}
0x0bca6…0bcb6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0078, t01=0x0142}
0x0bcb6…0bccc               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0078, t01=0x0152}
0x0bccc…0bcda               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0078, t01=0x0168}
0x0bcda…0bd22               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0078, t01=0x0176}
0x0bd22…0bd6a               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x0079, t01=0x002e}
0x0bd6a…0bdb2               Head {h00=0x0044, h01=0x0050, text=»*  ICBMVD - INDICATE CURRENT BLOCK MOVED                      * «, t00=0x0079, t01=0x0076}
0x0bdb2…0bdfa               Head {h00=0x0044, h01=0x0050, text=»*  =====================================                      * «, t00=0x0079, t01=0x00be}
0x0bdfa…0be42               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x0079, t01=0x0106}
0x0be42…0be8a               Head {h00=0x0044, h01=0x0050, text=»*  REFERENCED IN:  MOVCOM                                     * «, t00=0x0079, t01=0x014e}
0x0be8a…0bed2               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x007a, t01=0x0008}
0x0bed2…0bf1a               Head {h00=0x0044, h01=0x0050, text=»*  ENTRY:  A8 - FIRST T:A POINTER                             * «, t00=0x007a, t01=0x0050}
0x0bf1a…0bf62               Head {h00=0x0044, h01=0x0050, text=»*          A6 - SECOND T:A POINTER                            * «, t00=0x007a, t01=0x0098}
0x0bf62…0bfaa               Head {h00=0x0044, h01=0x0050, text=»*         BIT - BIT NUMBER SET IN CWB- OR UWB-MASK            * «, t00=0x007a, t01=0x00e0}
0x0bfaa…0bff2               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x007a, t01=0x0128}
0x0bff2…0c03a               Head {h00=0x0044, h01=0x0050, text=»*  EXIT:  CORRESPONDING BIT IN CURRENT STATCK POINTER         * «, t00=0x007a, t01=0x0170}
0x0c03a…0c082               Head {h00=0x0044, h01=0x0050, text=»*         IN T:A IS SET                                       * «, t00=0x007b, t01=0x0028}
0x0c082…0c0ca               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x007b, t01=0x0070}
0x0c0ca…0c112               Head {h00=0x0044, h01=0x0050, text=»*  WORK REGISTERS:  A1,A2                                     * «, t00=0x007b, t01=0x00b8}
0x0c112…0c15a               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x007b, t01=0x0100}
0x0c15a…0c1a2               Head {h00=0x0044, h01=0x0050, text=»*  SUBROUTINES:                                               * «, t00=0x007b, t01=0x0148}
0x0c1a2…0c1ea               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x007b, t01=0x0190}
0x0c1ea…0c232               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x007c, t01=0x0048}
0x0c232…0c240               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007c, t01=0x0090}
0x0c240…0c254               Head {h00=0x0010, h01=0x0050, text=»ICBMVD EQU *«, t00=0x007c, t01=0x009e}
0x0c254…0c274               Head {h00=0x001c, h01=0x0050, text=» LDKL A1,/8000 SET BIT 0«, t00=0x007c, t01=0x00b2}
0x0c274…0c2ae               Head {h00=0x0036, h01=0x0050, text=» LD A2,BIT,A13 GET BIT NUMBER IN CWB- OR UWB-MASK «, t00=0x007c, t01=0x00d2}
0x0c2ae…0c2d4               Head {h00=0x0022, h01=0x0050, text=»IBAM10 RF(Z) IBAM20 BIT FOUND «, t00=0x007c, t01=0x010c}
0x0c2d4…0c2fe               Head {h00=0x0026, h01=0x0050, text=» SRL A1,1 SHIFT BIT RIGHT ONE STEP«, t00=0x007c, t01=0x0132}
0x0c2fe…0c326               Head {h00=0x0024, h01=0x0050, text=» SUK A2,1 DECREMENT BIT COUNTER «, t00=0x007c, t01=0x015c}
0x0c326…0c338               Head {h00=0x000e, h01=0x0050, text=» RB IBAM10«, t00=0x007c, t01=0x0184}
0x0c338…0c342               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0008}
0x0c342…0c36c               Head {h00=0x0026, h01=0x0050, text=»*  UPDATE MOVED MASK IN FIRST T:A «, t00=0x007d, t01=0x0012}
0x0c36c…0c376               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x003c}
0x0c376…0c382               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007d, t01=0x0046}
0x0c382…0c39e               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x007d, t01=0x0052}
0x0c39e…0c3c8               Head {h00=0x0026, h01=0x0050, text=»IBAM20 LDR* A2,A8 GET T:A POINTER «, t00=0x007d, t01=0x006e}
0x0c3c8…0c3f0               Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A2 GET MOVED BLOCK MASK«, t00=0x007d, t01=0x0098}
0x0c3f0…0c420               Head {h00=0x002c, h01=0x0050, text=» ORR A3,A1 INDICATE CURRENT BLOCK MOVED «, t00=0x007d, t01=0x00c0}
0x0c420…0c44e               Head {h00=0x002a, h01=0x0050, text=» STR A3,A2 STORE NEW MOVED BLOCK MASK «, t00=0x007d, t01=0x00f0}
0x0c44e…0c458               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x011e}
0x0c458…0c482               Head {h00=0x0026, h01=0x0050, text=»*  UPDATE MOVED MASK IN SECOND T:A«, t00=0x007d, t01=0x0128}
0x0c482…0c48c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0152}
0x0c48c…0c4b0               Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A6 GET T:A POINTER «, t00=0x007d, t01=0x015c}
0x0c4b0…0c4d8               Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A2 GET MOVED BLOCK MASK«, t00=0x007d, t01=0x0180}
0x0c4d8…0c508               Head {h00=0x002c, h01=0x0050, text=» ORR A3,A1 INDICATE CURRENT BLOCK MOVED «, t00=0x007e, t01=0x0018}
0x0c508…0c536               Head {h00=0x002a, h01=0x0050, text=» STR A3,A2 STORE NEW MOVED BLOCK MASK «, t00=0x007e, t01=0x0048}
0x0c536…0c542               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007e, t01=0x0076}
0x0c542…0c55e               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x007e, t01=0x0082}
0x0c55e…0c586               Head {h00=0x0024, h01=0x0050, text=»IBAM20 ELR A2,A8 GET T:A POINTER«, t00=0x007e, t01=0x009e}
0x0c586…0c5ae               Head {h00=0x0024, h01=0x0050, text=» ELR A3,A2 GET MOVED BLOCK MASK «, t00=0x007e, t01=0x00c6}
0x0c5ae…0c5de               Head {h00=0x002c, h01=0x0050, text=» ORR A3,A1 INDICATE CURRENT BLOCK MOVED «, t00=0x007e, t01=0x00ee}
0x0c5de…0c60c               Head {h00=0x002a, h01=0x0050, text=» ESR A3,A2 STORE NEW MOVED BLOCK MASK «, t00=0x007e, t01=0x011e}
0x0c60c…0c616               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x014c}
0x0c616…0c640               Head {h00=0x0026, h01=0x0050, text=»*  UPDATE MOVED MASK IN SECOND T:A«, t00=0x007e, t01=0x0156}
0x0c640…0c64a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0180}
0x0c64a…0c66c               Head {h00=0x001e, h01=0x0050, text=» ELR A2,A6 GET T:A POINTER«, t00=0x007e, t01=0x018a}
0x0c66c…0c694               Head {h00=0x0024, h01=0x0050, text=» ELR A3,A2 GET MOVED BLOCK MASK «, t00=0x007f, t01=0x001c}
0x0c694…0c6c4               Head {h00=0x002c, h01=0x0050, text=» ORR A3,A1 INDICATE CURRENT BLOCK MOVED «, t00=0x007f, t01=0x0044}
0x0c6c4…0c6f2               Head {h00=0x002a, h01=0x0050, text=» ESR A3,A2 STORE NEW MOVED BLOCK MASK «, t00=0x007f, t01=0x0074}
0x0c6f2…0c6fe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007f, t01=0x00a2}
0x0c6fe…0c714               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x007f, t01=0x00ae}
0x0c714…0c724               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x007f, t01=0x00c4}
0x0c724…0c732               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007f, t01=0x00d4}
0x0c732…0c780               Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x007f, t01=0x00e2}
0x0c780…0c7ce               Head {h00=0x004a, h01=0x0050, text=»*                                                                   * «, t00=0x007f, t01=0x0130}
0x0c7ce…0c81c               Head {h00=0x004a, h01=0x0050, text=»*               CHKMVD - CHECK IF BLOCK ALREADY MOVED               * «, t00=0x007f, t01=0x017e}
0x0c81c…0c86a               Head {h00=0x004a, h01=0x0050, text=»*               =====================================               * «, t00=0x0080, t01=0x003c}
0x0c86a…0c8b8               Head {h00=0x004a, h01=0x0050, text=»*                                                                   * «, t00=0x0080, t01=0x008a}
0x0c8b8…0c906               Head {h00=0x004a, h01=0x0050, text=»*  REFERENCED IN:  MOVCOM,MOVCLA                                    * «, t00=0x0080, t01=0x00d8}
0x0c906…0c954               Head {h00=0x004a, h01=0x0050, text=»*                                                                   * «, t00=0x0080, t01=0x0126}
0x0c954…0c9a2               Head {h00=0x004a, h01=0x0050, text=»*  ENTRY:  A8 - POINTER TO T:A                                      * «, t00=0x0080, t01=0x0174}
0x0c9a2…0c9f0               Head {h00=0x004a, h01=0x0050, text=»*         BIT - BIT NUMBER IN CWB- OR UWB-MASK                      * «, t00=0x0081, t01=0x0032}
0x0c9f0…0ca3e               Head {h00=0x004a, h01=0x0050, text=»*                                                                   * «, t00=0x0081, t01=0x0080}
0x0ca3e…0ca8c               Head {h00=0x004a, h01=0x0050, text=»*  EXIT:  IF BLOCK ALREADY MOVED THEN CR=2 ELSE CR<>2               * «, t00=0x0081, t01=0x00ce}
0x0ca8c…0cada               Head {h00=0x004a, h01=0x0050, text=»*                                                                   * «, t00=0x0081, t01=0x011c}
0x0cada…0cb28               Head {h00=0x004a, h01=0x0050, text=»*  WORK REGISTER:  A1,A2                                            * «, t00=0x0081, t01=0x016a}
0x0cb28…0cb76               Head {h00=0x004a, h01=0x0050, text=»*                                                                   * «, t00=0x0082, t01=0x0028}
0x0cb76…0cbc4               Head {h00=0x004a, h01=0x0050, text=»*  SUBROUTINES:                                                     * «, t00=0x0082, t01=0x0076}
0x0cbc4…0cc12               Head {h00=0x004a, h01=0x0050, text=»*                                                                   * «, t00=0x0082, t01=0x00c4}
0x0cc12…0cc60               Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0082, t01=0x0112}
0x0cc60…0cc6e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0082, t01=0x0160}
0x0cc6e…0cc82               Head {h00=0x0010, h01=0x0050, text=»CHKMVD EQU *«, t00=0x0082, t01=0x016e}
0x0cc82…0cc9e               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0082, t01=0x0182}
0x0cc9e…0ccc2               Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A POINTER «, t00=0x0083, t01=0x000e}
0x0ccc2…0ccea               Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET MOVED BLOCK MASK«, t00=0x0083, t01=0x0032}
0x0ccea…0ccf6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0083, t01=0x005a}
0x0ccf6…0cd12               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0083, t01=0x0066}
0x0cd12…0cd34               Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A POINTER«, t00=0x0083, t01=0x0082}
0x0cd34…0cd5c               Head {h00=0x0024, h01=0x0050, text=» ELR A1,A1 GET MOVED BLOCK MASK «, t00=0x0083, t01=0x00a4}
0x0cd5c…0cd68               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0083, t01=0x00cc}
0x0cd68…0cd7e               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0083, t01=0x00d8}
0x0cd7e…0cdb4               Head {h00=0x0032, h01=0x0050, text=» LD A2,BIT,A13 GET BIT SET IN CWB- OR UWB-MASK«, t00=0x0083, t01=0x00ee}
0x0cdb4…0cdee               Head {h00=0x0036, h01=0x0050, text=»CHKM10 RF(Z) CHKM20 BIT IN MOVED BLOCK MASK FOUND «, t00=0x0083, t01=0x0124}
0x0cdee…0ce1c               Head {h00=0x002a, h01=0x0050, text=» SLL A1,1 NEXT BIT IN MOVED BLOCK MASK«, t00=0x0083, t01=0x015e}
0x0ce1c…0ce44               Head {h00=0x0024, h01=0x0050, text=» SUK A2,1 DECREMENT BIT COUNTER «, t00=0x0083, t01=0x018c}
0x0ce44…0ce56               Head {h00=0x000e, h01=0x0050, text=» RB CHKM10«, t00=0x0084, t01=0x0024}
0x0ce56…0ce74               Head {h00=0x001a, h01=0x0050, text=»CHKM20 ADK A1,0 SET CR«, t00=0x0084, t01=0x0036}
0x0ce74…0cea2               Head {h00=0x002a, h01=0x0050, text=» CFI A14,PSW,A13 PUT CONDITION IN PSW «, t00=0x0084, t01=0x0054}
0x0cea2…0ceb2               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0084, t01=0x0082}
0x0ceb2…0cec0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0084, t01=0x0092}
0x0cec0…0cecc               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0084, t01=0x00a0}
0x0cecc…0ced8               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0084, t01=0x00ac}
0x0ced8…0cf16               Head {h00=0x003a, h01=0x0050, text=»*****     S * U * P * E * R * L * O * O * P       ****«, t00=0x0084, t01=0x00b8}
0x0cf16…0cf54               Head {h00=0x003a, h01=0x0050, text=»**                                                  **«, t00=0x0084, t01=0x00f6}
0x0cf54…0cf92               Head {h00=0x003a, h01=0x0050, text=»**           S H I F T        &       SKIFTA        **«, t00=0x0084, t01=0x0134}
0x0cf92…0cfd0               Head {h00=0x003a, h01=0x0050, text=»**                                                  **«, t00=0x0084, t01=0x0172}
0x0cfd0…0d00e               Head {h00=0x003a, h01=0x0050, text=»**  CALCULATES BIT NUMBER SAT IN MASK-WORD          **«, t00=0x0085, t01=0x0020}
0x0d00e…0d04c               Head {h00=0x003a, h01=0x0050, text=»**  INPUT : A7=MASK WORD                            **«, t00=0x0085, t01=0x005e}
0x0d04c…0d08a               Head {h00=0x003a, h01=0x0050, text=»**  OUTPUT: BIT=BIT NUMBER                          **«, t00=0x0085, t01=0x009c}
0x0d08a…0d0c8               Head {h00=0x003a, h01=0x0050, text=»**          CONDITION CODE IN PSW ON RETURN         **«, t00=0x0085, t01=0x00da}
0x0d0c8…0d106               Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0085, t01=0x0118}
0x0d106…0d112               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0085, t01=0x0156}
0x0d112…0d126               Head {h00=0x0010, h01=0x0050, text=»SHIFT EQU * «, t00=0x0085, t01=0x0162}
0x0d126…0d14c               Head {h00=0x0022, h01=0x0050, text=» CM BIT,A13 RESET BIT COUNTER «, t00=0x0085, t01=0x0176}
0x0d14c…0d15e               Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0086, t01=0x000c}
0x0d15e…0d170               Head {h00=0x000e, h01=0x0050, text=» RF SHIF20«, t00=0x0086, t01=0x001e}
0x0d170…0d19a               Head {h00=0x0026, h01=0x0050, text=»SKIFTA EQU * ENTRY: CONTINUE SHIFT«, t00=0x0086, t01=0x0030}
0x0d19a…0d1b4               Head {h00=0x0016, h01=0x0050, text=»SHIF10 IM BIT,A13 «, t00=0x0086, t01=0x005a}
0x0d1b4…0d1c6               Head {h00=0x000e, h01=0x0050, text=» SLL A7,1 «, t00=0x0086, t01=0x0074}
0x0d1c6…0d1da               Head {h00=0x0010, h01=0x0050, text=»SHIF20 EQU *«, t00=0x0086, t01=0x0086}
0x0d1da…0d202               Head {h00=0x0024, h01=0x0050, text=» RF(Z) SHIF30 NO MOORE BITS SAT «, t00=0x0086, t01=0x009a}
0x0d202…0d218               Head {h00=0x0012, h01=0x0050, text=» RB(NN) SHIF10«, t00=0x0086, t01=0x00c2}
0x0d218…0d246               Head {h00=0x002a, h01=0x0050, text=»SHIF30 CFI A14,PSW,A13 PUT COND IN PSW«, t00=0x0086, t01=0x00d8}
0x0d246…0d256               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0086, t01=0x0106}
0x0d256…0d262               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0086, t01=0x0116}
0x0d262…0d270               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0086, t01=0x0122}
0x0d270…0d27c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0086, t01=0x0130}
0x0d27c…0d288               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0086, t01=0x013c}
0x0d288…0d2c0               Head {h00=0x0034, h01=0x0050, text=»**                M U L T                     **«, t00=0x0086, t01=0x0148}
0x0d2c0…0d2f8               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x0086, t01=0x0180}
0x0d2f8…0d330               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x0087, t01=0x0028}
0x0d330…0d368               Head {h00=0x0034, h01=0x0050, text=»**  MULTIPLICATION  (A2) X A3(), A2#0         **«, t00=0x0087, t01=0x0060}
0x0d368…0d3a0               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x0087, t01=0x0098}
0x0d3a0…0d3d8               Head {h00=0x0034, h01=0x0050, text=»**  INPUT : A3,A2                             **«, t00=0x0087, t01=0x00d0}
0x0d3d8…0d410               Head {h00=0x0034, h01=0x0050, text=»**  OUTPUT:A3=RESULT                          **«, t00=0x0087, t01=0x0108}
0x0d410…0d448               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0087, t01=0x0140}
0x0d448…0d45a               Head {h00=0x000e, h01=0x0050, text=»MULT EQU *«, t00=0x0087, t01=0x0178}
0x0d45a…0d470               Head {h00=0x0012, h01=0x0050, text=» ST A3,MUL,A13«, t00=0x0087, t01=0x018a}
0x0d470…0d496               Head {h00=0x0022, h01=0x0050, text=» STR A2,A14 SAVE A2 TEMPORARY «, t00=0x0088, t01=0x0010}
0x0d496…0d4a8               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0088, t01=0x0036}
0x0d4a8…0d4c2               Head {h00=0x0016, h01=0x0050, text=»ADD AD A3,MUL,A13 «, t00=0x0088, t01=0x0048}
0x0d4c2…0d4d4               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0088, t01=0x0062}
0x0d4d4…0d4e8               Head {h00=0x0010, h01=0x0050, text=» RB(NZ) ADD «, t00=0x0088, t01=0x0074}
0x0d4e8…0d4fc               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A14«, t00=0x0088, t01=0x0088}
0x0d4fc…0d50c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0088, t01=0x009c}
0x0d50c…0d514               Head {h00=0x0004, h01=0x0050, t00=0x0088, t01=0x00ac}
0x0d514…0d52a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0088, t01=0x00b4}
0x0d52a…0d538               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0088, t01=0x00ca}
0x0d538…0d540               Head {h00=0x0004, h01=0x0050, t00=0x0088, t01=0x00d8}
0x0d540…0d578               Head {h00=0x0034, h01=0x0050, text=»**               M M E N T                   ** «, t00=0x0088, t01=0x00e0}
0x0d578…0d5b0               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x0088, t01=0x0118}
0x0d5b0…0d5e8               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x0088, t01=0x0150}
0x0d5e8…0d620               Head {h00=0x0034, h01=0x0050, text=»**  FIND LAST USED ENTRY IN MM-TAB. SCAN     ** «, t00=0x0088, t01=0x0188}
0x0d620…0d658               Head {h00=0x0034, h01=0x0050, text=»**  FROM LOW ADDRESS. NOT USED ENTRY=0.      ** «, t00=0x0089, t01=0x0030}
0x0d658…0d690               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x0089, t01=0x0068}
0x0d690…0d6c8               Head {h00=0x0034, h01=0x0050, text=»**  INPUT :A3=MM-TABLE ADDRESS               ** «, t00=0x0089, t01=0x00a0}
0x0d6c8…0d700               Head {h00=0x0034, h01=0x0050, text=»**  OUTPUT:A3=ENTRY ADDRESS                  ** «, t00=0x0089, t01=0x00d8}
0x0d700…0d738               Head {h00=0x0034, h01=0x0050, text=»**         A9=TTAB-ADDRESS                   ** «, t00=0x0089, t01=0x0110}
0x0d738…0d770               Head {h00=0x0034, h01=0x0050, text=»**         LSTPAG IN TTAB=A3                 ** «, t00=0x0089, t01=0x0148}
0x0d770…0d7a8               Head {h00=0x0034, h01=0x0050, text=»**         A1=CONTENTS OF 1:ST USED ENTRY    ** «, t00=0x0089, t01=0x0180}
0x0d7a8…0d7e0               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x008a, t01=0x0028}
0x0d7e0…0d7e8               Head {h00=0x0004, h01=0x0050, t00=0x008a, t01=0x0060}
0x0d7e8…0d7fc               Head {h00=0x0010, h01=0x0050, text=»MMENT EQU * «, t00=0x008a, t01=0x0068}
0x0d7fc…0d820               Head {h00=0x0020, h01=0x0050, text=» LDR A9,A3 GET TABLE ADDRESS«, t00=0x008a, t01=0x007c}
0x0d820…0d85a               Head {h00=0x0036, h01=0x0050, text=» SUKL A9,MMBEG ADJUST A9 (LOOKS LIKE TTAB POINTER)«, t00=0x008a, t01=0x00a0}
0x0d85a…0d86c               Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x008a, t01=0x00da}
0x0d86c…0d896               Head {h00=0x0026, h01=0x0050, text=»MMEN10 ADK A3,2 INCREMENT ADDRESS «, t00=0x008a, t01=0x00ec}
0x0d896…0d8c2               Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A3 GET CONTENTS OF MM-TABLE«, t00=0x008a, t01=0x0116}
0x0d8c2…0d8d8               Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FC00«, t00=0x008a, t01=0x0142}
0x0d8d8…0d8ee               Head {h00=0x0012, h01=0x0050, text=» CWK A1,/FC00 «, t00=0x008a, t01=0x0158}
0x0d8ee…0d904               Head {h00=0x0012, h01=0x0050, text=» RB(Z) MMEN10 «, t00=0x008a, t01=0x016e}
0x0d904…0d93a               Head {h00=0x0032, h01=0x0050, text=» ST A3,LSTPAG,A9 SAVE FIRST FREE PAGE-ADDRESS «, t00=0x008a, t01=0x0184}
0x0d93a…0d94a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008b, t01=0x002a}
0x0d94a…0d956               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008b, t01=0x003a}
0x0d956…0d96c               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x008b, t01=0x0046}
0x0d96c…0d97a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008b, t01=0x005c}
0x0d97a…0d982               Head {h00=0x0004, h01=0x0050, t00=0x008b, t01=0x006a}
0x0d982…0d9b8               Head {h00=0x0032, h01=0x0050, text=»**              G E T T A B                 **«, t00=0x008b, t01=0x0072}
0x0d9b8…0d9ee               Head {h00=0x0032, h01=0x0050, text=»**                                          **«, t00=0x008b, t01=0x00a8}
0x0d9ee…0da24               Head {h00=0x0032, h01=0x0050, text=»**                                          **«, t00=0x008b, t01=0x00de}
0x0da24…0da5a               Head {h00=0x0032, h01=0x0050, text=»**  FIND TTAB ADDRESS                       **«, t00=0x008b, t01=0x0114}
0x0da5a…0da90               Head {h00=0x0032, h01=0x0050, text=»**                                          **«, t00=0x008b, t01=0x014a}
0x0da90…0dac6               Head {h00=0x0032, h01=0x0050, text=»**  INPUT :A8=POINTER TO T:A IN T:ATAB      **«, t00=0x008b, t01=0x0180}
0x0dac6…0dafc               Head {h00=0x0032, h01=0x0050, text=»**  OUTPUT:A2=TTAB-ADDRESS                  **«, t00=0x008c, t01=0x0026}
0x0dafc…0db32               Head {h00=0x0032, h01=0x0050, text=»**         A1=TID                           **«, t00=0x008c, t01=0x005c}
0x0db32…0db68               Head {h00=0x0032, h01=0x0050, text=»**  WORKREGS:A3,A4,A10                      **«, t00=0x008c, t01=0x0092}
0x0db68…0db9e               Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x008c, t01=0x00c8}
0x0db9e…0dba6               Head {h00=0x0004, h01=0x0050, t00=0x008c, t01=0x00fe}
0x0dba6…0dbba               Head {h00=0x0010, h01=0x0050, text=»GETTAB EQU *«, t00=0x008c, t01=0x0106}
0x0dbba…0dbc6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008c, t01=0x011a}
0x0dbc6…0dbdc               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x008c, t01=0x0126}
0x0dbdc…0dbfc               Head {h00=0x001c, h01=0x0050, text=» LDR* A10,A8 T:A ADDRESS«, t00=0x008c, t01=0x013c}
0x0dbfc…0dc26               Head {h00=0x0026, h01=0x0050, text=» LD A1,T:ATID,A10 GET TID TO MATCH«, t00=0x008c, t01=0x015c}
0x0dc26…0dc4c               Head {h00=0x0022, h01=0x0050, text=» LD A12,T:DAD,A10 T:D-ADDRESS «, t00=0x008c, t01=0x0186}
0x0dc4c…0dc58               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008d, t01=0x001c}
0x0dc58…0dc6e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x008d, t01=0x0028}
0x0dc6e…0dc8e               Head {h00=0x001c, h01=0x0050, text=» ELR A10,A8 T:A-ADDRESS «, t00=0x008d, t01=0x003e}
0x0dc8e…0dcb0               Head {h00=0x001e, h01=0x0050, text=» EL A1,T:ATID,A10 GET TID «, t00=0x008d, t01=0x005e}
0x0dcb0…0dcca               Head {h00=0x0016, h01=0x0050, text=» EL A12,T:DAD,A10 «, t00=0x008d, t01=0x0080}
0x0dcca…0dcd6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008d, t01=0x009a}
0x0dcd6…0dd00               Head {h00=0x0026, h01=0x0050, text=»GETTTB EQU * ENTRY. INPUT: A1=TID «, t00=0x008d, t01=0x00a6}
0x0dd00…0dd28               Head {h00=0x0024, h01=0x0050, text=» LD A4,SCTTCT GET TC:TAB ADDRESS«, t00=0x008d, t01=0x00d0}
0x0dd28…0dd48               Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A4 TCTAB LENGTH«, t00=0x008d, t01=0x00f8}
0x0dd48…0dd60               Head {h00=0x0014, h01=0x0050, text=»GETT10 ADK A4,2 «, t00=0x008d, t01=0x0118}
0x0dd60…0dd76               Head {h00=0x0012, h01=0x0050, text=» SUK A3,2 ALL?«, t00=0x008d, t01=0x0130}
0x0dd76…0dd90               Head {h00=0x0016, h01=0x0050, text=» RF(NN) GETT20 NO!«, t00=0x008d, t01=0x0146}
0x0dd90…0ddbe               Head {h00=0x002a, h01=0x0050, text=» LDR A3,A1 SAVE A1 (DEBUGGING PURPOS) «, t00=0x008d, t01=0x0160}
0x0ddbe…0dddc               Head {h00=0x001a, h01=0x0050, text=» LDK A1,LMP5 TID ERROR«, t00=0x008d, t01=0x018e}
0x0dddc…0ddf0               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x008e, t01=0x001c}
0x0ddf0…0de16               Head {h00=0x0022, h01=0x0050, text=»GETT20 LDR* A2,A4 TTAB-ADDRESS«, t00=0x008e, t01=0x0030}
0x0de16…0de3a               Head {h00=0x0020, h01=0x0050, text=» CW A1,TTB:PP,A2 TCL EQUAL? «, t00=0x008e, t01=0x0056}
0x0de3a…0de54               Head {h00=0x0016, h01=0x0050, text=» RB(NE) GETT10 NO!«, t00=0x008e, t01=0x007a}
0x0de54…0de70               Head {h00=0x0018, h01=0x0050, text=» ST A2,TTAB,A13 SAVE«, t00=0x008e, t01=0x0094}
0x0de70…0de80               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008e, t01=0x00b0}
0x0de80…0de96               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x008e, t01=0x00c0}
0x0de96…0dea4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x008e, t01=0x00d6}
0x0dea4…0deac               Head {h00=0x0004, h01=0x0050, t00=0x008e, t01=0x00e4}
0x0deac…0deb4               Head {h00=0x0004, h01=0x0050, t00=0x008e, t01=0x00ec}
0x0deb4…0def0               Head {h00=0x0038, h01=0x0050, text=»**                    Q U E J O B                ** «, t00=0x008e, t01=0x00f4}
0x0def0…0df2c               Head {h00=0x0038, h01=0x0050, text=»**                                               ** «, t00=0x008e, t01=0x0130}
0x0df2c…0df68               Head {h00=0x0038, h01=0x0050, text=»**                                               ** «, t00=0x008e, t01=0x016c}
0x0df68…0dfa4               Head {h00=0x0038, h01=0x0050, text=»**  QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL   ** «, t00=0x008f, t01=0x0018}
0x0dfa4…0dfe0               Head {h00=0x0038, h01=0x0050, text=»**  0, ENB.                                      ** «, t00=0x008f, t01=0x0054}
0x0dfe0…0e01c               Head {h00=0x0038, h01=0x0050, text=»**                                               ** «, t00=0x008f, t01=0x0090}
0x0e01c…0e058               Head {h00=0x0038, h01=0x0050, text=»**  INPUT: A10=T:A-ADDRESS                       ** «, t00=0x008f, t01=0x00cc}
0x0e058…0e094               Head {h00=0x0038, h01=0x0050, text=»**         A12=T:D-ADDRESS                       ** «, t00=0x008f, t01=0x0108}
0x0e094…0e0d0               Head {h00=0x0038, h01=0x0050, text=»**         A2=TTAB-ADDRESS                       ** «, t00=0x008f, t01=0x0144}
0x0e0d0…0e10c               Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x008f, t01=0x0180}
0x0e10c…0e114               Head {h00=0x0004, h01=0x0050, t00=0x0090, t01=0x002c}
0x0e114…0e128               Head {h00=0x0010, h01=0x0050, text=»QUEJOB EQU *«, t00=0x0090, t01=0x0034}
0x0e128…0e14c               Head {h00=0x0020, h01=0x0050, text=»* QUEUE THIS TASK (THIS TID)«, t00=0x0090, t01=0x0048}
0x0e14c…0e154               Head {h00=0x0004, h01=0x0050, t00=0x0090, t01=0x006c}
0x0e154…0e188               Head {h00=0x0030, h01=0x0050, text=» LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS«, t00=0x0090, t01=0x0074}
0x0e188…0e1a4               Head {h00=0x0018, h01=0x0050, text=» ADR A3,A13 RELOCATE«, t00=0x0090, t01=0x00a8}
0x0e1a4…0e1c4               Head {h00=0x001c, h01=0x0050, text=» STR A3,A15 PUT ON STACK«, t00=0x0090, t01=0x00c4}
0x0e1c4…0e1f2               Head {h00=0x002a, h01=0x0050, text=» LDKL A3,/00C0 SET LEVEL 0 AND ENABLE «, t00=0x0090, t01=0x00e4}
0x0e1f2…0e20a               Head {h00=0x0014, h01=0x0050, text=» STR A3,A15 PSW «, t00=0x0090, t01=0x0112}
0x0e20a…0e22c               Head {h00=0x001e, h01=0x0050, text=» CF A15,SAVE8 SAVE 8 REGS «, t00=0x0090, t01=0x012a}
0x0e22c…0e254               Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 CLEAR ABORT INDICATOR «, t00=0x0090, t01=0x014c}
0x0e254…0e27c               Head {h00=0x0024, h01=0x0050, text=» LD A8,SCTLAC GET P:MTAB-ADDRESS«, t00=0x0090, t01=0x0174}
0x0e27c…0e2a0               Head {h00=0x0020, h01=0x0050, text=» LDR A5,A2 GET TTAB-ADDRESS «, t00=0x0091, t01=0x000c}
0x0e2a0…0e2bc               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0091, t01=0x0030}
0x0e2bc…0e2ec               Head {h00=0x002c, h01=0x0050, text=» LD A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS«, t00=0x0091, t01=0x004c}
0x0e2ec…0e2fe               Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0091, t01=0x007c}
0x0e2fe…0e314               Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/FFFE«, t00=0x0091, t01=0x008e}
0x0e314…0e32c               Head {h00=0x0014, h01=0x0050, text=» ADK A4,DWBFST+4«, t00=0x0091, t01=0x00a4}
0x0e32c…0e368               Head {h00=0x0038, h01=0x0050, text=» ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS«, t00=0x0091, t01=0x00bc}
0x0e368…0e392               Head {h00=0x0026, h01=0x0050, text=» LDR* A6,A4 NUMBER OF START POINTS«, t00=0x0091, t01=0x00f8}
0x0e392…0e3c4               Head {h00=0x002e, h01=0x0050, text=»GETT30 SUK A6,1 DEC. NUMBER OF STARTPOINTS«, t00=0x0091, t01=0x0122}
0x0e3c4…0e3de               Head {h00=0x0016, h01=0x0050, text=» RF(N) GETT40 ALL!«, t00=0x0091, t01=0x0154}
0x0e3de…0e3fe               Head {h00=0x001c, h01=0x0050, text=» LD A1,4,A4 DISP ADDRESS«, t00=0x0091, t01=0x016e}
0x0e3fe…0e420               Head {h00=0x001e, h01=0x0050, text=» LD A3,2,A4 SEGMENT NUMBER«, t00=0x0091, t01=0x018e}
0x0e420…0e450               Head {h00=0x002c, h01=0x0050, text=» LD A2,NTPA,A8 INTERPRETER START ADDRESS«, t00=0x0092, t01=0x0020}
0x0e450…0e45c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0092, t01=0x0050}
0x0e45c…0e478               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0092, t01=0x005c}
0x0e478…0e4a8               Head {h00=0x002c, h01=0x0050, text=» EL A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS«, t00=0x0092, t01=0x0078}
0x0e4a8…0e4ba               Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0092, t01=0x00a8}
0x0e4ba…0e4d0               Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/FFFE«, t00=0x0092, t01=0x00ba}
0x0e4d0…0e4e8               Head {h00=0x0014, h01=0x0050, text=» ADK A4,DWBFST+4«, t00=0x0092, t01=0x00d0}
0x0e4e8…0e524               Head {h00=0x0038, h01=0x0050, text=» ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS«, t00=0x0092, t01=0x00e8}
0x0e524…0e54e               Head {h00=0x0026, h01=0x0050, text=» ELR A6,A4 NUMBER OF START-POINTS «, t00=0x0092, t01=0x0124}
0x0e54e…0e580               Head {h00=0x002e, h01=0x0050, text=»GETT30 SUK A6,1 DEC. NUMBER OF STARTPOINTS«, t00=0x0092, t01=0x014e}
0x0e580…0e59a               Head {h00=0x0016, h01=0x0050, text=» RF(N) GETT40 ALL!«, t00=0x0092, t01=0x0180}
0x0e59a…0e5ba               Head {h00=0x001c, h01=0x0050, text=» EL A1,4,A4 DISP ADDRESS«, t00=0x0093, t01=0x000a}
0x0e5ba…0e5dc               Head {h00=0x001e, h01=0x0050, text=» EL A3,2,A4 SEGMENT NUMBER«, t00=0x0093, t01=0x002a}
0x0e5dc…0e60c               Head {h00=0x002c, h01=0x0050, text=» EL A2,NTPA,A8 INTERPRETER START ADDRESS«, t00=0x0093, t01=0x004c}
0x0e60c…0e618               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0093, t01=0x007c}
0x0e618…0e62e               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0093, t01=0x0088}
0x0e62e…0e644               Head {h00=0x0012, h01=0x0050, text=» CF A15,ACTOT «, t00=0x0093, t01=0x009e}
0x0e644…0e66c               Head {h00=0x0024, h01=0x0050, text=» ADK A4,STPREC NEXT START-POINT «, t00=0x0093, t01=0x00b4}
0x0e66c…0e67e               Head {h00=0x000e, h01=0x0050, text=» RB GETT30«, t00=0x0093, t01=0x00dc}
0x0e67e…0e6a6               Head {h00=0x0024, h01=0x0050, text=»GETT40 ABL RETUR8 RELOAD 8 REGS «, t00=0x0093, t01=0x00ee}
0x0e6a6…0e6be               Head {h00=0x0014, h01=0x0050, text=»RETUR EQU *-REL «, t00=0x0093, t01=0x0116}
0x0e6be…0e6ce               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0093, t01=0x012e}
0x0e6ce…0e6da               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0093, t01=0x013e}
0x0e6da…0e6f0               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0093, t01=0x014a}
0x0e6f0…0e6fe               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0093, t01=0x0160}
0x0e6fe…0e706               Head {h00=0x0004, h01=0x0050, t00=0x0093, t01=0x016e}
0x0e706…0e73e               Head {h00=0x0034, h01=0x0050, text=»**              M O V M M T                  ** «, t00=0x0093, t01=0x0176}
0x0e73e…0e776               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x0094, t01=0x001e}
0x0e776…0e7ae               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x0094, t01=0x0056}
0x0e7ae…0e7e6               Head {h00=0x0034, h01=0x0050, text=»**  MOVE MM-TABLE                            ** «, t00=0x0094, t01=0x008e}
0x0e7e6…0e81e               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x0094, t01=0x00c6}
0x0e81e…0e856               Head {h00=0x0034, h01=0x0050, text=»**  INPUT :A2=TTAB-ADDRESS                   ** «, t00=0x0094, t01=0x00fe}
0x0e856…0e88e               Head {h00=0x0034, h01=0x0050, text=»**         MMTAB HOLDS TABLE TO MOVE         ** «, t00=0x0094, t01=0x0136}
0x0e88e…0e8c6               Head {h00=0x0034, h01=0x0050, text=»**  OUTPUT:A2=START OF MM-TABLE IN TTAB      ** «, t00=0x0094, t01=0x016e}
0x0e8c6…0e8fe               Head {h00=0x0034, h01=0x0050, text=»**          A9=TTAB ADDRESS                  ** «, t00=0x0095, t01=0x0016}
0x0e8fe…0e936               Head {h00=0x0034, h01=0x0050, text=»**  WORKREGS:A1,A3                           ** «, t00=0x0095, t01=0x004e}
0x0e936…0e96e               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0095, t01=0x0086}
0x0e96e…0e976               Head {h00=0x0004, h01=0x0050, t00=0x0095, t01=0x00be}
0x0e976…0e98a               Head {h00=0x0010, h01=0x0050, text=»MOVMMT EQU *«, t00=0x0095, t01=0x00c6}
0x0e98a…0e9b6               Head {h00=0x0028, h01=0x0050, text=» ADKL A2,MMBEG GET TO-TABLE ADDRESS «, t00=0x0095, t01=0x00da}
0x0e9b6…0e9dc               Head {h00=0x0022, h01=0x0050, text=» TL MMTAB,A13 LOAD FROM-TABLE «, t00=0x0095, t01=0x0106}
0x0e9dc…0e9f0               Head {h00=0x0010, h01=0x0050, text=» TSR A2 MOVE«, t00=0x0095, t01=0x012c}
0x0e9f0…0ea02               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0095, t01=0x0140}
0x0ea02…0ea2e               Head {h00=0x0028, h01=0x0050, text=» CALL MMENT FILL LAST ENTRY ADDRESS «, t00=0x0095, t01=0x0152}
0x0ea2e…0ea52               Head {h00=0x0020, h01=0x0050, text=» TL* MMFROM,A13 RELOAD TABLE«, t00=0x0095, t01=0x017e}
0x0ea52…0ea62               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0096, t01=0x0012}
0x0ea62…0ea6e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0096, t01=0x0022}
0x0ea6e…0ea84               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0096, t01=0x002e}
0x0ea84…0ea92               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0096, t01=0x0044}
0x0ea92…0ead6               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0096, t01=0x0052}
0x0ead6…0eb1a               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0096, t01=0x0096}
0x0eb1a…0eb5e               Head {h00=0x0040, h01=0x0050, text=»*  CHTAID - CHANGE T:A-ID AND CLEAR TCL SAVE AREA IN TTAB  *«, t00=0x0096, t01=0x00da}
0x0eb5e…0eba2               Head {h00=0x0040, h01=0x0050, text=»*           SAVE REAL TID IN AUXILARY TABLE FOR DEBUGGER   *«, t00=0x0096, t01=0x011e}
0x0eba2…0ebe6               Head {h00=0x0040, h01=0x0050, text=»*  ======================================================  *«, t00=0x0096, t01=0x0162}
0x0ebe6…0ec2a               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0097, t01=0x0016}
0x0ec2a…0ec6e               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0097, t01=0x005a}
0x0ec6e…0ecb2               Head {h00=0x0040, h01=0x0050, text=»*  REFERENCED IN:  SYSLDA  PART 2 B.                       *«, t00=0x0097, t01=0x009e}
0x0ecb2…0ecf6               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0097, t01=0x00e2}
0x0ecf6…0ed3a               Head {h00=0x0040, h01=0x0050, text=»*  ENTRY:  A5 - POINTER TO NUMBER OF COPIES                *«, t00=0x0097, t01=0x0126}
0x0ed3a…0ed7e               Head {h00=0x0040, h01=0x0050, text=»*          A7 - POINTER TO NEXT FREE ENTRY IN REAL T:ATAB  *«, t00=0x0097, t01=0x016a}
0x0ed7e…0edc2               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0098, t01=0x001e}
0x0edc2…0ee06               Head {h00=0x0040, h01=0x0050, text=»*  EXIT:                                                   *«, t00=0x0098, t01=0x0062}
0x0ee06…0ee4a               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0098, t01=0x00a6}
0x0ee4a…0ee8e               Head {h00=0x0040, h01=0x0050, text=»*  WORK REGISTERS: A1,A3,A6,A8                             *«, t00=0x0098, t01=0x00ea}
0x0ee8e…0eed2               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0098, t01=0x012e}
0x0eed2…0ef16               Head {h00=0x0040, h01=0x0050, text=»*  SUBROUTINES:  GETTTB                                    *«, t00=0x0098, t01=0x0172}
0x0ef16…0ef5a               Head {h00=0x0040, h01=0x0050, text=»*                                                          *«, t00=0x0099, t01=0x0026}
0x0ef5a…0ef9e               Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0099, t01=0x006a}
0x0ef9e…0efb2               Head {h00=0x0010, h01=0x0050, text=»CHTAID EQU *«, t00=0x0099, t01=0x00ae}
0x0efb2…0efe8               Head {h00=0x0032, h01=0x0050, text=» LDR A8,A7 GET NEXT FREE ENTRY IN REAL T:ATAB «, t00=0x0099, t01=0x00c2}
0x0efe8…0f010               Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A5 GET NUMBER OF COPIES«, t00=0x0099, t01=0x00f8}
0x0f010…0f036               Head {h00=0x0022, h01=0x0050, text=»CHT:10 RF(Z) CHT:90 NO MOORE! «, t00=0x0099, t01=0x0120}
0x0f036…0f068               Head {h00=0x002e, h01=0x0050, text=» SUKL A8,2 LAST USED ENTRY IN REAL T:ATAB «, t00=0x0099, t01=0x0146}
0x0f068…0f084               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0099, t01=0x0178}
0x0f084…0f0b0 (154, 0, 400) Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A8 GET POINTER TO REAL T:A «, t00=0x009a, t01=0x0004}
0x0f0b0…0f0d8               Head {h00=0x0024, h01=0x0050, text=» LD A1,T:ATID,A1 GET TCL IN T:A «, t00=0x009a, t01=0x0030}
0x0f0d8…0f10a               Head {h00=0x002e, h01=0x0050, text=»CHT:20 CALL GETTTB GET CORRESPONDING TTAB «, t00=0x009a, t01=0x0058}
0x0f10a…0f13a               Head {h00=0x002c, h01=0x0050, text=» LD A4,TTBTID,A2 GET REAL TID IN TTAB =3«, t00=0x009a, t01=0x008a}
0x0f13a…0f174               Head {h00=0x0036, h01=0x0050, text=» LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS «, t00=0x009a, t01=0x00ba}
0x0f174…0f1a2               Head {h00=0x002a, h01=0x0050, text=» ST A4,T:ATID,A3 REPLACE TCL IN T:A =3«, t00=0x009a, t01=0x00f4}
0x0f1a2…0f1cc               Head {h00=0x0026, h01=0x0050, text=» LDR A3,A8 GET REAL T:ATAB POINTER«, t00=0x009a, t01=0x0122}
0x0f1cc…0f206               Head {h00=0x0036, h01=0x0050, text=» SU* A3,T:ATNW,A13 COMPUTE ENTRY IN AUX. TID TABLE«, t00=0x009a, t01=0x014c}
0x0f206…0f23a               Head {h00=0x0030, h01=0x0050, text=» STR A4,A3 SAVE TID FOR DEBUGGER PURPOSE =3 «, t00=0x009a, t01=0x0186}
0x0f23a…0f246               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009b, t01=0x002a}
0x0f246…0f262               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x009b, t01=0x0036}
0x0f262…0f28c               Head {h00=0x0026, h01=0x0050, text=» ELR A1,A8 GET POINTER TO REAL T:A«, t00=0x009b, t01=0x0052}
0x0f28c…0f2b4               Head {h00=0x0024, h01=0x0050, text=» EL A1,T:ATID,A1 GET TCL IN T:A «, t00=0x009b, t01=0x007c}
0x0f2b4…0f2e6               Head {h00=0x002e, h01=0x0050, text=»CHT:20 CALL GETTTB GET CORRESPONDING TTAB «, t00=0x009b, t01=0x00a4}
0x0f2e6…0f312               Head {h00=0x0028, h01=0x0050, text=» LDR A3,A2 GET POINTER TO TTAB ENTRY«, t00=0x009b, t01=0x00d6}
0x0f312…0f348               Head {h00=0x0032, h01=0x0050, text=» ADKL A3,MMBEG START OF MM-TABLE FOR THIS TTAB«, t00=0x009b, t01=0x0102}
0x0f348…0f358               Head {h00=0x000c, h01=0x0050, text=» TLR A3 «, t00=0x009b, t01=0x0138}
0x0f358…0f388               Head {h00=0x002c, h01=0x0050, text=» LD A4,TTBTID,A2 GET REAL TID IN TTAB =3«, t00=0x009b, t01=0x0148}
0x0f388…0f3c2               Head {h00=0x0036, h01=0x0050, text=» LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS «, t00=0x009b, t01=0x0178}
0x0f3c2…0f3f0               Head {h00=0x002a, h01=0x0050, text=» ES A4,T:ATID,A3 REPLACE TCL IN T:A =3«, t00=0x009c, t01=0x0022}
0x0f3f0…0f424               Head {h00=0x0030, h01=0x0050, text=» EL* A3,T:ATNW,A13 GET LENGTH OF REAL T:ATAB«, t00=0x009c, t01=0x0050}
0x0f424…0f44c               Head {h00=0x0024, h01=0x0050, text=» NGR A3,A3 NEGATIVE DISPLACEMENT«, t00=0x009c, t01=0x0084}
0x0f44c…0f47e               Head {h00=0x002e, h01=0x0050, text=» ADR A3,A8 COMPUTE ENTRY IN AUX. TID TABLE«, t00=0x009c, t01=0x00ac}
0x0f47e…0f4b2               Head {h00=0x0030, h01=0x0050, text=» ESR A4,A3 SAVE TID FOR DEBUGGER PURPOSE =3 «, t00=0x009c, t01=0x00de}
0x0f4b2…0f4be               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x009c, t01=0x0112}
0x0f4be…0f4d4               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x009c, t01=0x011e}
0x0f4d4…0f4fe               Head {h00=0x0026, h01=0x0050, text=» CM TTB:PP,A2 CLEAR TCL SAVE AREA «, t00=0x009c, t01=0x0134}
0x0f4fe…0f51e               Head {h00=0x001c, h01=0x0050, text=» SUK A1,1 DECREMENT TCL «, t00=0x009c, t01=0x015e}
0x0f51e…0f53a               Head {h00=0x0018, h01=0x0050, text=» SUKL A8,2 DECREMENT«, t00=0x009c, t01=0x017e}
0x0f53a…0f566               Head {h00=0x0028, h01=0x0050, text=» SUK A6,1 DECREMENT NUMBER OF COPIES«, t00=0x009d, t01=0x000a}
0x0f566…0f586               Head {h00=0x001c, h01=0x0050, text=» RB(P) CHT:20 NEXT COPY «, t00=0x009d, t01=0x0036}
0x0f586…0f59c               Head {h00=0x0012, h01=0x0050, text=»CHT:90 RTN A14«, t00=0x009d, t01=0x0056}
0x0f59c…0f5aa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x009d, t01=0x006c}
0x0f5aa…0f5b2               Head {h00=0x0004, h01=0x0050, t00=0x009d, t01=0x007a}
0x0f5b2…0f5ba               Head {h00=0x0004, h01=0x0050, t00=0x009d, t01=0x0082}
0x0f5ba…0f5f2               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x009d, t01=0x008a}
0x0f5f2…0f62a               Head {h00=0x0034, h01=0x0050, text=»***                                          ***«, t00=0x009d, t01=0x00c2}
0x0f62a…0f662               Head {h00=0x0034, h01=0x0050, text=»**            SYSLOAD PART 2.B                **«, t00=0x009d, t01=0x00fa}
0x0f662…0f69a               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x009d, t01=0x0132}
0x0f69a…0f6d2               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x009d, t01=0x016a}
0x0f6d2…0f6da               Head {h00=0x0004, h01=0x0050, t00=0x009e, t01=0x0012}
0x0f6da…0f712               Head {h00=0x0034, h01=0x0050, text=»*   BUILD REAL T:A'S. COPY T:A'S ACCORDING TO  *«, t00=0x009e, t01=0x001a}
0x0f712…0f74a               Head {h00=0x0034, h01=0x0050, text=»*   SHADOW TABLE                               *«, t00=0x009e, t01=0x0052}
0x0f74a…0f782               Head {h00=0x0034, h01=0x0050, text=»*                                              *«, t00=0x009e, t01=0x008a}
0x0f782…0f7ba               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x009e, t01=0x00c2}
0x0f7ba…0f7c2               Head {h00=0x0004, h01=0x0050, t00=0x009e, t01=0x00fa}
0x0f7c2…0f7da               Head {h00=0x0014, h01=0x0050, text=»PART2B EQU *-REL«, t00=0x009e, t01=0x0102}
0x0f7da…0f7e2               Head {h00=0x0004, h01=0x0050, t00=0x009e, t01=0x011a}
0x0f7e2…0f7ea               Head {h00=0x0004, h01=0x0050, t00=0x009e, t01=0x0122}
0x0f7ea…0f7fe               Head {h00=0x0010, h01=0x0050, text=»REALTA EQU *«, t00=0x009e, t01=0x012a}
0x0f7fe…0f828               Head {h00=0x0026, h01=0x0050, text=» LD A5,SCTSFA MONITOR END ADDRESS «, t00=0x009e, t01=0x013e}
0x0f828…0f85a               Head {h00=0x002e, h01=0x0050, text=» LD A8,T:ATOD,A13 T:ATAB PROTOTYP ADDRESS «, t00=0x009e, t01=0x0168}
0x0f85a…0f888               Head {h00=0x002a, h01=0x0050, text=» LD A7,T:ATNW,A13 REAL T:ATAB ADDRESS «, t00=0x009f, t01=0x000a}
0x0f888…0f89a               Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x009f, t01=0x0038}
0x0f89a…0f8bc               Head {h00=0x001e, h01=0x0050, text=» ST A8,SAVE03,A13 SAVE A8 «, t00=0x009f, t01=0x004a}
0x0f8bc…0f8e6               Head {h00=0x0026, h01=0x0050, text=»SYA310 LD A8,SAVE03,A13 RESTORE A8«, t00=0x009f, t01=0x006c}
0x0f8e6…0f8f8               Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x009f, t01=0x0096}
0x0f8f8…0f916               Head {h00=0x001a, h01=0x0050, text=» CW A8,ENDADD,A13 ALL?«, t00=0x009f, t01=0x00a8}
0x0f916…0f930               Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA350 YES!«, t00=0x009f, t01=0x00c6}
0x0f930…0f94e               Head {h00=0x001a, h01=0x0050, text=» ST A8,SAVE03,A13 SAVE«, t00=0x009f, t01=0x00e0}
0x0f94e…0f976               Head {h00=0x0024, h01=0x0050, text=» ADK A5,2 A5=SHADOW TAB POINTER «, t00=0x009f, t01=0x00fe}
0x0f976…0f992               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x009f, t01=0x0126}
0x0f992…0f9c8               Head {h00=0x0032, h01=0x0050, text=» CALL GETTAB GET CORRESPONDING TTAB AND QUEUE «, t00=0x009f, t01=0x0142}
0x0f9c8…0f9dc               Head {h00=0x0010, h01=0x0050, text=» CALL QUEJOB«, t00=0x009f, t01=0x0178}
0x0f9dc…0fa1a               Head {h00=0x003a, h01=0x0050, text=» ST A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13)«, t00=0x009f, t01=0x018c}
0x0fa1a…0fa3e               Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A ADDRESS «, t00=0x00a0, t01=0x003a}
0x0fa3e…0fa66               Head {h00=0x0024, h01=0x0050, text=» STR A1,A7 STORE IN REAL T:ATAB «, t00=0x00a0, t01=0x005e}
0x0fa66…0fa78               Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x00a0, t01=0x0086}
0x0fa78…0faa0               Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A5 GET NUMBER OF COPIES«, t00=0x00a0, t01=0x0098}
0x0faa0…0faae               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a0, t01=0x00c0}
0x0faae…0fac6               Head {h00=0x0014, h01=0x0050, text=»SYA340 SUK A6,1 «, t00=0x00a0, t01=0x00ce}
0x0fac6…0fae6               Head {h00=0x001c, h01=0x0050, text=» RF(P) SYA345 NEXT TASK «, t00=0x00a0, t01=0x00e6}
0x0fae6…0fb1c               Head {h00=0x0032, h01=0x0050, text=» CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS «, t00=0x00a0, t01=0x0106}
0x0fb1c…0fb3e               Head {h00=0x001e, h01=0x0050, text=» RB SYA310 NEXT TASK-CLASS«, t00=0x00a0, t01=0x013c}
0x0fb3e…0fb6c               Head {h00=0x002a, h01=0x0050, text=»SYA345 LD A12,T:DAD,A1 GET T:D-ADDRESS«, t00=0x00a0, t01=0x015e}
0x0fb6c…0fb8a               Head {h00=0x001a, h01=0x0050, text=» CALL MOVT:A MOVE T:A «, t00=0x00a0, t01=0x018c}
0x0fb8a…0fbaa               Head {h00=0x001c, h01=0x0050, text=» IM T:ATID,A2 UPDATE TID«, t00=0x00a1, t01=0x001a}
0x0fbaa…0fbd2               Head {h00=0x0024, h01=0x0050, text=» STR A2,A7 STORE IN REAL T:ATAB «, t00=0x00a1, t01=0x003a}
0x0fbd2…0fbf8               Head {h00=0x0022, h01=0x0050, text=» LDR A8,A7 CHANGE T:A TO COPY «, t00=0x00a1, t01=0x0062}
0x0fbf8…0fc2e               Head {h00=0x0032, h01=0x0050, text=» CALL GETTAB GET CORRESPONDING TTAB AND QUEUE «, t00=0x00a1, t01=0x0088}
0x0fc2e…0fc52               Head {h00=0x0020, h01=0x0050, text=» CALL QUEJOB QUEUE THIS TASK«, t00=0x00a1, t01=0x00be}
0x0fc52…0fc88               Head {h00=0x0032, h01=0x0050, text=» ST A10,TTB:SA+26,A2 SAVE T:A-ADDRESS IN TTAB «, t00=0x00a1, t01=0x00e2}
0x0fc88…0fcb4               Head {h00=0x0028, h01=0x0050, text=» ADK A7,2 NEXT ENTRY IN REAL T:ATAB «, t00=0x00a1, t01=0x0118}
0x0fcb4…0fcea               Head {h00=0x0032, h01=0x0050, text=» CALL TWBSWB MOVE TWB'S AND RESERVE FOR SWB'S «, t00=0x00a1, t01=0x0144}
0x0fcea…0fd10               Head {h00=0x0022, h01=0x0050, text=» CALL ALLBUF ALLOCATE BUFFERS «, t00=0x00a1, t01=0x017a}
0x0fd10…0fd1c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a2, t01=0x0010}
0x0fd1c…0fd38               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00a2, t01=0x001c}
0x0fd38…0fd66               Head {h00=0x002a, h01=0x0050, text=»* GET ACTUAL MM-TABLE ADDRESS AND LOAD«, t00=0x00a2, t01=0x0038}
0x0fd66…0fd6e               Head {h00=0x0004, h01=0x0050, t00=0x00a2, t01=0x0066}
0x0fd6e…0fd80               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x00a2, t01=0x006e}
0x0fd80…0fdae               Head {h00=0x002a, h01=0x0050, text=» AD* A1,SCTSFA ADD SHADOW-TABLE LENGTH«, t00=0x00a2, t01=0x0080}
0x0fdae…0fdd6               Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 GET MM-TABLE ADDRESS«, t00=0x00a2, t01=0x00ae}
0x0fdd6…0fdea               Head {h00=0x0010, h01=0x0050, text=» TLR A1 LOAD«, t00=0x00a2, t01=0x00d6}
0x0fdea…0fe10               Head {h00=0x0022, h01=0x0050, text=» ST A1,MMFROM,A13 SAVE ADDRESS«, t00=0x00a2, t01=0x00ea}
0x0fe10…0fe3c               Head {h00=0x0028, h01=0x0050, text=» CALL GETTAB GET CORRESPONDING TTAB «, t00=0x00a2, t01=0x0110}
0x0fe3c…0fe7a               Head {h00=0x003a, h01=0x0050, text=» ST A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13)«, t00=0x00a2, t01=0x013c}
0x0fe7a…0feae               Head {h00=0x0030, h01=0x0050, text=» LD A1,T:DSAV,A2 GET CLASS-LOCAL LAST ENTRY «, t00=0x00a2, t01=0x017a}
0x0feae…0fed2               Head {h00=0x0020, h01=0x0050, text=» CALL QUEJOB QUEUE THIS TASK«, t00=0x00a3, t01=0x001e}
0x0fed2…0ff00               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,MMTAB GET WORK TABLE ADDRESS «, t00=0x00a3, t01=0x0042}
0x0ff00…0ff14               Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x00a3, t01=0x0070}
0x0ff14…0ff3a               Head {h00=0x0022, h01=0x0050, text=» TSR A2 SAVE CLASS-DATA TABLE «, t00=0x00a3, t01=0x0084}
0x0ff3a…0ff6a               Head {h00=0x002c, h01=0x0050, text=»* REMOVE TASK-LOCAL ENTRIES IN MM-TABLE «, t00=0x00a3, t01=0x00aa}
0x0ff6a…0ff72               Head {h00=0x0004, h01=0x0050, t00=0x00a3, t01=0x00da}
0x0ff72…0ff92               Head {h00=0x001c, h01=0x0050, text=» SUK A2,2 START OF TABLE«, t00=0x00a3, t01=0x00e2}
0x0ff92…0ffaa               Head {h00=0x0014, h01=0x0050, text=» LDKL A12,/FC00 «, t00=0x00a3, t01=0x0102}
0x0ffaa…0ffcc               Head {h00=0x001e, h01=0x0050, text=»SYA320 SUK A1,2 NEXT ENTRY«, t00=0x00a3, t01=0x011a}
0x0ffcc…0ffe4               Head {h00=0x0014, h01=0x0050, text=» CWR A1,A2 ALL? «, t00=0x00a3, t01=0x013c}
0x0ffe4…0fffe               Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA330 YES!«, t00=0x00a3, t01=0x0154}
0x0fffe…1001e               Head {h00=0x001c, h01=0x0050, text=» STR A12,A1 REMOVE ENTRY«, t00=0x00a3, t01=0x016e}
0x1001e…10030               Head {h00=0x000e, h01=0x0050, text=» RB SYA320«, t00=0x00a3, t01=0x018e}
0x10030…10044               Head {h00=0x0010, h01=0x0050, text=»SYA330 EQU *«, t00=0x00a4, t01=0x0010}
0x10044…10066               Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A ADDRESS«, t00=0x00a4, t01=0x0024}
0x10066…1008e               Head {h00=0x0024, h01=0x0050, text=» ESR A1,A7 STORE IN REAL T:ATAB «, t00=0x00a4, t01=0x0046}
0x1008e…100b6               Head {h00=0x0024, h01=0x0050, text=» EL A12,T:DAD,A1 GET T:D ADDRESS«, t00=0x00a4, t01=0x006e}
0x100b6…100d6               Head {h00=0x001c, h01=0x0050, text=» EL A1,T:ATID,A1 GET TID«, t00=0x00a4, t01=0x0096}
0x100d6…10102               Head {h00=0x0028, h01=0x0050, text=» ADK A7,2 NEXT ENTRY IN REAL T:ATAB «, t00=0x00a4, t01=0x00b6}
0x10102…1012a               Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A5 GET NUMBER OF COPIES«, t00=0x00a4, t01=0x00e2}
0x1012a…10142               Head {h00=0x0014, h01=0x0050, text=»SYA340 SUK A6,1 «, t00=0x00a4, t01=0x010a}
0x10142…10162               Head {h00=0x001c, h01=0x0050, text=» RF(P) SYA345 NEXT TASK «, t00=0x00a4, t01=0x0122}
0x10162…10198               Head {h00=0x0032, h01=0x0050, text=» CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS «, t00=0x00a4, t01=0x0142}
0x10198…101ba               Head {h00=0x001e, h01=0x0050, text=» RB SYA310 NEXT TASK-CLASS«, t00=0x00a4, t01=0x0178}
0x101ba…101de               Head {h00=0x0020, h01=0x0050, text=»SYA345 ADK A1,1 NEXT T:A ID «, t00=0x00a5, t01=0x000a}
0x101de…1020a               Head {h00=0x0028, h01=0x0050, text=» CALL GETTTB FIND CORRESPONDING TTAB«, t00=0x00a5, t01=0x002e}
0x1020a…1022e               Head {h00=0x0020, h01=0x0050, text=» CALL QUEJOB QUEUE THIS TASK«, t00=0x00a5, t01=0x005a}
0x1022e…10258               Head {h00=0x0026, h01=0x0050, text=» CALL MOVMMT MOVE MM-TABLE TO TTAB«, t00=0x00a5, t01=0x007e}
0x10258…10276               Head {h00=0x001a, h01=0x0050, text=» CALL MOVT:A MOVE T:A «, t00=0x00a5, t01=0x00a8}
0x10276…1029e               Head {h00=0x0024, h01=0x0050, text=» ESR A2,A7 STORE IN REAL T:ATAB «, t00=0x00a5, t01=0x00c6}
0x1029e…102e2               Head {h00=0x0040, h01=0x0050, text=» ST A2,TTB:SA+26,A9 PUT T:A-ADDRESS IN TTAB. A9=TTAB ADDRESS«, t00=0x00a5, t01=0x00ee}
0x102e2…10308               Head {h00=0x0022, h01=0x0050, text=» LDR A8,A7 CHANGE T:A TO COPY «, t00=0x00a5, t01=0x0132}
0x10308…10338               Head {h00=0x002c, h01=0x0050, text=» ADK A7,2 NEXT FREE WORD IN REAL T:ATAB «, t00=0x00a5, t01=0x0158}
0x10338…10352               Head {h00=0x0016, h01=0x0050, text=»   A2=NEW ADDRESS «, t00=0x00a5, t01=0x0188}
0x10352…10386               Head {h00=0x0030, h01=0x0050, text=» CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S «, t00=0x00a6, t01=0x0012}
0x10386…103aa               Head {h00=0x0020, h01=0x0050, text=» LD A1,MMTO,A13 GET TO-TABLE«, t00=0x00a6, t01=0x0046}
0x103aa…103dc               Head {h00=0x002e, h01=0x0050, text=» ST A1,MMFROM,A13 CHANGE T:A ADDRESS-TABLE«, t00=0x00a6, t01=0x006a}
0x103dc…103ec               Head {h00=0x000c, h01=0x0050, text=» TLR A1 «, t00=0x00a6, t01=0x009c}
0x103ec…10412               Head {h00=0x0022, h01=0x0050, text=» CALL ALLBUF ALLOCATE BUFFERS «, t00=0x00a6, t01=0x00ac}
0x10412…1043a               Head {h00=0x0024, h01=0x0050, text=» LD A1,TTAB,A13 GET TTAB-ADDRESS«, t00=0x00a6, t01=0x00d2}
0x1043a…10468               Head {h00=0x002a, h01=0x0050, text=» CM LSTPAG,A1 CLEAR SAVE-AREA IN TTAB «, t00=0x00a6, t01=0x00fa}
0x10468…10492               Head {h00=0x0026, h01=0x0050, text=» ELR A10,A8 GET T:A-ADDRESS (NEW) «, t00=0x00a6, t01=0x0128}
0x10492…104b4               Head {h00=0x001e, h01=0x0050, text=» EL A1,T:ATID,A10 GET TID «, t00=0x00a6, t01=0x0152}
0x104b4…104d0               Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 UPDATE TID«, t00=0x00a6, t01=0x0174}
0x104d0…104f8               Head {h00=0x0024, h01=0x0050, text=» ES A1,T:ATID,A10 RESTORE IN T:A«, t00=0x00a6, t01=0x0190}
0x104f8…10504               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a7, t01=0x0028}
0x10504…1051a               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00a7, t01=0x0034}
0x1051a…1052c               Head {h00=0x000e, h01=0x0050, text=» RB SYA340«, t00=0x00a7, t01=0x004a}
0x1052c…10538               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a7, t01=0x005c}
0x10538…10546               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a7, t01=0x0068}
0x10546…1055e               Head {h00=0x0014, h01=0x0050, text=»FINISH EQU *-REL«, t00=0x00a7, t01=0x0076}
0x1055e…10566               Head {h00=0x0004, h01=0x0050, t00=0x00a7, t01=0x008e}
0x10566…1058a               Head {h00=0x0020, h01=0x0050, text=»* ADJUST START OF FREE AREA «, t00=0x00a7, t01=0x0096}
0x1058a…10592               Head {h00=0x0004, h01=0x0050, t00=0x00a7, t01=0x00ba}
0x10592…105a6               Head {h00=0x0010, h01=0x0050, text=»SYA350 EQU *«, t00=0x00a7, t01=0x00c2}
0x105a6…105bc               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00a7, t01=0x00d6}
0x105bc…105ea               Head {h00=0x002a, h01=0x0050, text=» LD A1,LSTADR,A13 GET END OF FREE AREA«, t00=0x00a7, t01=0x00ec}
0x105ea…105f6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a7, t01=0x011a}
0x105f6…10612               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00a7, t01=0x0126}
0x10612…10628               Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FFF «, t00=0x00a7, t01=0x0142}
0x10628…10642               Head {h00=0x0016, h01=0x0050, text=» LD A2,FYSPAG,A13 «, t00=0x00a7, t01=0x0158}
0x10642…10654               Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x00a7, t01=0x0172}
0x10654…10666               Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x00a7, t01=0x0184}
0x10666…10672               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a8, t01=0x0008}
0x10672…10688               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=1 «, t00=0x00a8, t01=0x0014}
0x10688…1069e               Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTLAC «, t00=0x00a8, t01=0x002a}
0x1069e…106aa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a8, t01=0x0040}
0x106aa…106c6               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG-CREDIT=1«, t00=0x00a8, t01=0x004c}
0x106c6…106dc               Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/03FF«, t00=0x00a8, t01=0x0068}
0x106dc…106ee               Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x00a8, t01=0x007e}
0x106ee…106fa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a8, t01=0x0090}
0x106fa…10712               Head {h00=0x0014, h01=0x0050, text=» ST A1,SCTEFA+2 «, t00=0x00a8, t01=0x009c}
0x10712…10728               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00a8, t01=0x00b4}
0x10728…10742               Head {h00=0x0016, h01=0x0050, text=» LD A1,FYSPAG,A13 «, t00=0x00a8, t01=0x00ca}
0x10742…1075e               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG-CREDIT=1«, t00=0x00a8, t01=0x00e4}
0x1075e…10774               Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTLAC «, t00=0x00a8, t01=0x0100}
0x10774…10780               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a8, t01=0x0116}
0x10780…1079c               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+CREDIT=0«, t00=0x00a8, t01=0x0122}
0x1079c…107ae               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x00a8, t01=0x013e}
0x107ae…107ba               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a8, t01=0x0150}
0x107ba…107cc               Head {h00=0x000e, h01=0x0050, text=» SRL A1,14«, t00=0x00a8, t01=0x015c}
0x107cc…107e2               Head {h00=0x0012, h01=0x0050, text=» ST A1,SCTEFA «, t00=0x00a8, t01=0x016e}
0x107e2…107fe               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00a8, t01=0x0184}
0x107fe…1082a               Head {h00=0x0028, h01=0x0050, text=» LD A1,FSTADR,A13 START OF FREE AREA«, t00=0x00a9, t01=0x0010}
0x1082a…10840               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SYA355«, t00=0x00a9, t01=0x003c}
0x10840…1084c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00a9, t01=0x0052}
0x1084c…10862               Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTSFA «, t00=0x00a9, t01=0x005e}
0x10862…10880               Head {h00=0x001a, h01=0x0050, text=»SYA355 ST A1,SCTSFA+2 «, t00=0x00a9, t01=0x0074}
0x10880…10892               Head {h00=0x000e, h01=0x0050, text=» CM SCTSFA«, t00=0x00a9, t01=0x0092}
0x10892…108a8               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00a9, t01=0x00a4}
0x108a8…108b6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00a9, t01=0x00ba}
0x108b6…108fe               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x00a9, t01=0x00c8}
0x108fe…10946               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x00a9, t01=0x0110}
0x10946…1098e               Head {h00=0x0044, h01=0x0050, text=»*                 PAGGEN - BUILD PAGE TABLE                   * «, t00=0x00a9, t01=0x0158}
0x1098e…109d6               Head {h00=0x0044, h01=0x0050, text=»*                 =========================                   * «, t00=0x00aa, t01=0x0010}
0x109d6…10a1e               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x00aa, t01=0x0058}
0x10a1e…10a66               Head {h00=0x0044, h01=0x0050, text=»*  REFERENCED IN:  SYSLDA                                     * «, t00=0x00aa, t01=0x00a0}
0x10a66…10aae               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x00aa, t01=0x00e8}
0x10aae…10af6               Head {h00=0x0044, h01=0x0050, text=»*  ENTRY:  SCTSFA - START OF FREE AREA                        * «, t00=0x00aa, t01=0x0130}
0x10af6…10b3e               Head {h00=0x0044, h01=0x0050, text=»*          SCTEFA - END OF FREE AREA                          * «, t00=0x00aa, t01=0x0178}
0x10b3e…10b86               Head {h00=0x0044, h01=0x0050, text=»*          SCTNOS - NUMBER OF SEGMENTS                        * «, t00=0x00ab, t01=0x0030}
0x10b86…10bce               Head {h00=0x0044, h01=0x0050, text=»*          SCTNOP - NUMBER OF PAGES                           * «, t00=0x00ab, t01=0x0078}
0x10bce…10c16               Head {h00=0x0044, h01=0x0050, text=»*          SCTPSZ - PAGE SIZE                                 * «, t00=0x00ab, t01=0x00c0}
0x10c16…10c5e               Head {h00=0x0044, h01=0x0050, text=»*          SAVE22 - PHYSICAL ADDRESS TO FIRST PAGE (16 BITS)  * «, t00=0x00ab, t01=0x0108}
0x10c5e…10ca6               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x00ab, t01=0x0150}
0x10ca6…10cee               Head {h00=0x0044, h01=0x0050, text=»*  EXIT:  PAGQUE - POINTER TO FIRST FREE PAGE BLOCK           * «, t00=0x00ac, t01=0x0008}
0x10cee…10d36               Head {h00=0x0044, h01=0x0050, text=»*         PAGQUE+2 - POINTER TO LAST FREE PAGE BLOCK+2        * «, t00=0x00ac, t01=0x0050}
0x10d36…10d7e               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x00ac, t01=0x0098}
0x10d7e…10dc6               Head {h00=0x0044, h01=0x0050, text=»*  WORK REGISTERS:  A1-A12                                    * «, t00=0x00ac, t01=0x00e0}
0x10dc6…10e0e               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x00ac, t01=0x0128}
0x10e0e…10e56               Head {h00=0x0044, h01=0x0050, text=»*  SUBROUTINES:                                               * «, t00=0x00ac, t01=0x0170}
0x10e56…10e9e               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x00ad, t01=0x0028}
0x10e9e…10ee6               Head {h00=0x0044, h01=0x0050, text=»*                                                             * «, t00=0x00ad, t01=0x0070}
0x10ee6…10f2e               Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x00ad, t01=0x00b8}
0x10f2e…10f42               Head {h00=0x0010, h01=0x0050, text=»PAGGEN EQU *«, t00=0x00ad, t01=0x0100}
0x10f42…10f66               Head {h00=0x0020, h01=0x0050, text=» LDKL A2,PAGEX EXIT ADDRESS «, t00=0x00ad, t01=0x0114}
0x10f66…10f82               Head {h00=0x0018, h01=0x0050, text=» ADR A2,A13 RELOCATE«, t00=0x00ad, t01=0x0138}
0x10f82…10fb4               Head {h00=0x002e, h01=0x0050, text=» LD A1,SCTNOS ANY SEGMENTS IN APPLICATION?«, t00=0x00ad, t01=0x0154}
0x10fb4…10fca               Head {h00=0x0012, h01=0x0050, text=» ABR(Z) A2 NO!«, t00=0x00ad, t01=0x0186}
0x10fca…10ff0               Head {h00=0x0022, h01=0x0050, text=» LD A1,SCTOPT GET OPTION WORD «, t00=0x00ae, t01=0x000c}
0x10ff0…1100a               Head {h00=0x0016, h01=0x0050, text=» ANK A1,3 PAGING? «, t00=0x00ae, t01=0x0032}
0x1100a…11020               Head {h00=0x0012, h01=0x0050, text=» ABR(Z) A2 NO!«, t00=0x00ae, t01=0x004c}
0x11020…1102a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x0062}
0x1102a…1107a               Head {h00=0x004c, h01=0x0050, text=»*  RESERV SPACE FOR PAGE BLOCKS CORRESPONDING TO CORE RESIDENT SEGMENTS «, t00=0x00ae, t01=0x006c}
0x1107a…11084               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ae, t01=0x00bc}
0x11084…110b4               Head {h00=0x002c, h01=0x0050, text=» LD A11,SCTSFA+2 GET START OF FREE AREA «, t00=0x00ae, t01=0x00c6}
0x110b4…110da               Head {h00=0x0022, h01=0x0050, text=» ST A11,SCTPAG STORE IN SYSTAB«, t00=0x00ae, t01=0x00f6}
0x110da…11102               Head {h00=0x0024, h01=0x0050, text=» LDR A8,A13 GET RELOCATION BASE «, t00=0x00ae, t01=0x011c}
0x11102…11132               Head {h00=0x002c, h01=0x0050, text=» ADKL A8,PAG:60-REL LIMIT FOR PAGE TABLE«, t00=0x00ae, t01=0x0144}
0x11132…11156               Head {h00=0x0020, h01=0x0050, text=» LDK A7,0 RESET PAGE COUNTER«, t00=0x00ae, t01=0x0174}
0x11156…1116a               Head {h00=0x0010, h01=0x0050, text=»PAG:10 EQU *«, t00=0x00af, t01=0x0008}
0x1116a…1119a               Head {h00=0x002c, h01=0x0050, text=» CW A7,SCTNOP EQUAL TO NUMBER OF PAGES? «, t00=0x00af, t01=0x001c}
0x1119a…111b4               Head {h00=0x0016, h01=0x0050, text=» RF(E) PAG:30 YES!«, t00=0x00af, t01=0x004c}
0x111b4…111dc               Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 RESET NUMBER OF WORDS «, t00=0x00af, t01=0x0066}
0x111dc…111f0               Head {h00=0x0010, h01=0x0050, text=»PAG:20 EQU *«, t00=0x00af, t01=0x008e}
0x111f0…11216               Head {h00=0x0022, h01=0x0050, text=» ADKL A11,2 INCLUDE NEXT WORD «, t00=0x00af, t01=0x00a2}
0x11216…1124a               Head {h00=0x0030, h01=0x0050, text=» RF(Z) MEMOFL MEMORY OVERFLOW (64 KB LIMIT) «, t00=0x00af, t01=0x00c8}
0x1124a…11272               Head {h00=0x0024, h01=0x0050, text=» ADK A1,1 INCREMENT WORD COUNTER«, t00=0x00af, t01=0x00fc}
0x11272…11296               Head {h00=0x0020, h01=0x0050, text=» CWK A1,4 4 WORDS RESERVED? «, t00=0x00af, t01=0x0124}
0x11296…112b0               Head {h00=0x0016, h01=0x0050, text=» RF(E) PAG:25 YES!«, t00=0x00af, t01=0x0148}
0x112b0…112dc               Head {h00=0x0028, h01=0x0050, text=» CWR A11,A8 CHECK PROGRAM OVERWRITE «, t00=0x00af, t01=0x0162}
0x112dc…11302               Head {h00=0x0022, h01=0x0050, text=» RF(E) MEMOFL MEMORY OVERFLOW!«, t00=0x00af, t01=0x018e}
0x11302…11314               Head {h00=0x000e, h01=0x0050, text=» RB PAG:20«, t00=0x00b0, t01=0x0024}
0x11314…11348               Head {h00=0x0030, h01=0x0050, text=»PAG:25 ADK A7,1 INCREMENT PAGE BLOCK COUNTER«, t00=0x00b0, t01=0x0036}
0x11348…1135a               Head {h00=0x000e, h01=0x0050, text=» RB PAG:10«, t00=0x00b0, t01=0x006a}
0x1135a…1136e               Head {h00=0x0010, h01=0x0050, text=»PAG:30 EQU *«, t00=0x00b0, t01=0x007c}
0x1136e…11378               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x0090}
0x11378…113b0               Head {h00=0x0034, h01=0x0050, text=»*  RESERV MEMORY PAGES IN UNUSED PART OF MEMORY «, t00=0x00b0, t01=0x009a}
0x113b0…113ea               Head {h00=0x0036, h01=0x0050, text=»*  AND EXTEND PAGE TABLE WITH CORRESPONDING NUMBER«, t00=0x00b0, t01=0x00d2}
0x113ea…11404               Head {h00=0x0016, h01=0x0050, text=»*  OF PAGE BLOCKS.«, t00=0x00b0, t01=0x010c}
0x11404…1140e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b0, t01=0x0126}
0x1140e…1141a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b0, t01=0x0130}
0x1141a…11436               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00b0, t01=0x013c}
0x11436…11476               Head {h00=0x003c, h01=0x0050, text=» LD A1,SCTEFA GET TWO MOST SIGN BITS OF 18-BITS ADDRESS «, t00=0x00b0, t01=0x0158}
0x11476…114ae               Head {h00=0x0034, h01=0x0050, text=» SLL A1,14 TWO MOST SIGN BITS OF 16-BITS ADDRESS«, t00=0x00b1, t01=0x0008}
0x114ae…114e6               Head {h00=0x0034, h01=0x0050, text=» LD A2,SCTEFA+2 GET BIT 2-18 OF 18-BITS ADDRESS «, t00=0x00b1, t01=0x0040}
0x114e6…11510               Head {h00=0x0026, h01=0x0050, text=» SRL A2,2 SKIP TWO RIGHTMOST BITS «, t00=0x00b1, t01=0x0078}
0x11510…11540               Head {h00=0x002c, h01=0x0050, text=» ORR A1,A2 16 BITS PHYSICAL PAGE ADDRESS«, t00=0x00b1, t01=0x00a2}
0x11540…11558               Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x00b1, t01=0x00d2}
0x11558…1157c               Head {h00=0x0020, h01=0x0050, text=» LD A2,SCTPSZ GET PAGE SIZE «, t00=0x00b1, t01=0x00ea}
0x1157c…115a6               Head {h00=0x0026, h01=0x0050, text=» SRL A2,2 SKIP TWO RIGHTMOST BITS «, t00=0x00b1, t01=0x010e}
0x115a6…115be               Head {h00=0x0014, h01=0x0050, text=» LDR A10,A2 SAVE«, t00=0x00b1, t01=0x0138}
0x115be…115f2               Head {h00=0x0030, h01=0x0050, text=» ANKL A1,/FC00 MAKE EVEN 4K-MULTIPLE ADDRESS«, t00=0x00b1, t01=0x0150}
0x115f2…1161e               Head {h00=0x0028, h01=0x0050, text=» ANKL A2,/0300 MODIFY FOR PAGE SIZE «, t00=0x00b1, t01=0x0184}
0x1161e…11640               Head {h00=0x001e, h01=0x0050, text=» ANR A2,A3 EVEN 1-KB LIMIT«, t00=0x00b2, t01=0x0020}
0x11640…1166c               Head {h00=0x0028, h01=0x0050, text=» ORR A1,A2 MODIFY PAGE ADDRESS LIMIT«, t00=0x00b2, t01=0x0042}
0x1166c…11678               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b2, t01=0x006e}
0x11678…11694               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00b2, t01=0x007a}
0x11694…116bc               Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTEFA+2 END OF FREE AREA«, t00=0x00b2, t01=0x0096}
0x116bc…116dc               Head {h00=0x001c, h01=0x0050, text=» LD A10,SCTPSZ PAGE SIZE«, t00=0x00b2, t01=0x00be}
0x116dc…116e8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b2, t01=0x00de}
0x116e8…116fe               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00b2, t01=0x00ea}
0x116fe…11722               Head {h00=0x0020, h01=0x0050, text=» LDR A9,A1 INIT PAGE ADDRESS«, t00=0x00b2, t01=0x0100}
0x11722…1173a               Head {h00=0x0014, h01=0x0050, text=» LDR A6,A9 SAVE «, t00=0x00b2, t01=0x0124}
0x1173a…1174e               Head {h00=0x0010, h01=0x0050, text=»PAG:31 EQU *«, t00=0x00b2, t01=0x013c}
0x1174e…11762               Head {h00=0x0010, h01=0x0050, text=» TNM A6,A10 «, t00=0x00b2, t01=0x0150}
0x11762…11778               Head {h00=0x0012, h01=0x0050, text=» RF(NN) PAG:32«, t00=0x00b2, t01=0x0164}
0x11778…1178c               Head {h00=0x0010, h01=0x0050, text=» CWR A10,A6 «, t00=0x00b2, t01=0x017a}
0x1178c…1179e               Head {h00=0x000e, h01=0x0050, text=» RF PAG:33«, t00=0x00b2, t01=0x018e}
0x1179e…117b8               Head {h00=0x0016, h01=0x0050, text=»PAG:32 CWR A6,A10 «, t00=0x00b3, t01=0x0010}
0x117b8…117d4               Head {h00=0x0018, h01=0x0050, text=»PAG:33 RF(NG) PAG:40«, t00=0x00b3, t01=0x002a}
0x117d4…11804               Head {h00=0x002c, h01=0x0050, text=» SUR A6,A10 COMPUTE ADDRESS TO NEXT PAGE«, t00=0x00b3, t01=0x0046}
0x11804…11828               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 GET PAGE ADDRESS «, t00=0x00b3, t01=0x0076}
0x11828…11844               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00b3, t01=0x009a}
0x11844…11872               Head {h00=0x002a, h01=0x0050, text=» ANKL A1,/C000 ADDRESS IN SYSTEM AREA?«, t00=0x00b3, t01=0x00b6}
0x11872…1188e               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) PAG:34  NO! «, t00=0x00b3, t01=0x00e4}
0x1188e…118c0               Head {h00=0x002e, h01=0x0050, text=» LDR A1,A6 PHYSICAL ADDRESS IN SYSTEM AREA«, t00=0x00b3, t01=0x0100}
0x118c0…118f2               Head {h00=0x002e, h01=0x0050, text=» SLL A1,2 ABSOLUTE ADDRESS IN SYSTEM AREA «, t00=0x00b3, t01=0x0132}
0x118f2…11904               Head {h00=0x000e, h01=0x0050, text=» RF PAG:36«, t00=0x00b3, t01=0x0164}
0x11904…1192c               Head {h00=0x0024, h01=0x0050, text=»PAG:34 LDK A1,0 END OF FREE AREA«, t00=0x00b3, t01=0x0176}
0x1192c…11938               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b4, t01=0x000e}
0x11938…1194e               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00b4, t01=0x001a}
0x1194e…11978               Head {h00=0x0026, h01=0x0050, text=»PAG:36 LDK A2,0 RESET WORD COUNTER«, t00=0x00b4, t01=0x0030}
0x11978…119a6               Head {h00=0x002a, h01=0x0050, text=»PAG:38 ADKL A11,2 RESERV ANOTHER WORD «, t00=0x00b4, t01=0x005a}
0x119a6…119c8               Head {h00=0x001e, h01=0x0050, text=» RF(Z) PAG:40 64 KB LIMIT «, t00=0x00b4, t01=0x0088}
0x119c8…119f0               Head {h00=0x0024, h01=0x0050, text=» ADK A2,1 INCREMENT WORD COUNTER«, t00=0x00b4, t01=0x00aa}
0x119f0…11a12               Head {h00=0x001e, h01=0x0050, text=» CWK A2,4 BLOCK COMPLETE? «, t00=0x00b4, t01=0x00d2}
0x11a12…11a2c               Head {h00=0x0016, h01=0x0050, text=» RF(E) PAG:45 YES!«, t00=0x00b4, t01=0x00f4}
0x11a2c…11a56               Head {h00=0x0026, h01=0x0050, text=» LDR A1,A1 ADDRESS IN SYSTEM AREA?«, t00=0x00b4, t01=0x010e}
0x11a56…11a70               Head {h00=0x0016, h01=0x0050, text=» RF(Z) PAG:39 NO! «, t00=0x00b4, t01=0x0138}
0x11a70…11a96               Head {h00=0x0022, h01=0x0050, text=» TNM A11,A1 32-KB LIMIT CHECK «, t00=0x00b4, t01=0x0152}
0x11a96…11aac               Head {h00=0x0012, h01=0x0050, text=» RF(NN) PAG382«, t00=0x00b4, t01=0x0178}
0x11aac…11ac0               Head {h00=0x0010, h01=0x0050, text=» CWR A11,A1 «, t00=0x00b4, t01=0x018e}
0x11ac0…11ad2               Head {h00=0x000e, h01=0x0050, text=» RF PAG384«, t00=0x00b5, t01=0x0012}
0x11ad2…11aec               Head {h00=0x0016, h01=0x0050, text=»PAG382 CWR A1,A11 «, t00=0x00b5, t01=0x0024}
0x11aec…11b24               Head {h00=0x0034, h01=0x0050, text=»PAG384 RF(NG) PAG:40 NO MOORE MEMORY AVALIABLE! «, t00=0x00b5, t01=0x003e}
0x11b24…11b38               Head {h00=0x0010, h01=0x0050, text=»PAG:39 EQU *«, t00=0x00b5, t01=0x0076}
0x11b38…11b5e               Head {h00=0x0022, h01=0x0050, text=» CWR A11,A8 PROGRAM OVERWRITE «, t00=0x00b5, t01=0x008a}
0x11b5e…11b78               Head {h00=0x0016, h01=0x0050, text=» RB(NE) PAG:38 NO!«, t00=0x00b5, t01=0x00b0}
0x11b78…11b8c               Head {h00=0x0010, h01=0x0050, text=»PAG:40 EQU *«, t00=0x00b5, t01=0x00ca}
0x11b8c…11bc6               Head {h00=0x0036, h01=0x0050, text=» CW A7,SCTNOP ONLY PAGES FOR CORE RESIDENT PAGES? «, t00=0x00b5, t01=0x00de}
0x11bc6…11be0               Head {h00=0x0016, h01=0x0050, text=» RF(G) PAG:50 NO! «, t00=0x00b5, t01=0x0118}
0x11be0…11c22               Head {h00=0x003e, h01=0x0050, text=» CW A7,SCTNOS ONLY CORE RESIDENT SEGMENTS IN APPLICATION? «, t00=0x00b5, t01=0x0132}
0x11c22…11c3c               Head {h00=0x0016, h01=0x0050, text=» RF(E) PAG:50 YES!«, t00=0x00b5, t01=0x0174}
0x11c3c…11c58               Head {h00=0x0018, h01=0x0050, text=»MEMOFL LDKL A1,LMP3 «, t00=0x00b5, t01=0x018e}
0x11c58…11c86               Head {h00=0x002a, h01=0x0050, text=» OTR A1,0,SOP INDICATE MEMORY OVERFLOW«, t00=0x00b6, t01=0x001a}
0x11c86…11ca0               Head {h00=0x0016, h01=0x0050, text=» HLT  HALT PROGRAM«, t00=0x00b6, t01=0x0048}
0x11ca0…11cd0               Head {h00=0x002c, h01=0x0050, text=»PAG:45 CW A7,SCTNOS MOORE PAGES WANTED? «, t00=0x00b6, t01=0x0062}
0x11cd0…11cea               Head {h00=0x0016, h01=0x0050, text=» RF(E) PAG:50 YES!«, t00=0x00b6, t01=0x0092}
0x11cea…11d12               Head {h00=0x0024, h01=0x0050, text=» ADK A7,1 INCREMENT PAGE COUNTER«, t00=0x00b6, t01=0x00ac}
0x11d12…11d36               Head {h00=0x0020, h01=0x0050, text=» LDR A9,A6 SAVE PAGE ADDRESS«, t00=0x00b6, t01=0x00d4}
0x11d36…11d48               Head {h00=0x000e, h01=0x0050, text=» RB PAG:31«, t00=0x00b6, t01=0x00f8}
0x11d48…11d5c               Head {h00=0x0010, h01=0x0050, text=»PAG:50 EQU *«, t00=0x00b6, t01=0x010a}
0x11d5c…11d82               Head {h00=0x0022, h01=0x0050, text=» ADKL A11,2 START OF FREE AREA«, t00=0x00b6, t01=0x011e}
0x11d82…11da0               Head {h00=0x001a, h01=0x0050, text=» ST A11,SCTSFA+2 SAVE «, t00=0x00b6, t01=0x0144}
0x11da0…11dca               Head {h00=0x0026, h01=0x0050, text=» ST A7,SCTNOP SAVE NUMBER OF PAGES«, t00=0x00b6, t01=0x0162}
0x11dca…11df6               Head {h00=0x0028, h01=0x0050, text=» LDR A1,A9 GET ADDRESS TO FIRST PAGE«, t00=0x00b6, t01=0x018c}
0x11df6…11e0e               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 SAVE «, t00=0x00b7, t01=0x0028}
0x11e0e…11e1a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b7, t01=0x0040}
0x11e1a…11e36               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00b7, t01=0x004c}
0x11e36…11e64               Head {h00=0x002a, h01=0x0050, text=» SRL A1,14 BIT 0-1 OF 18-BITS ADDRESS «, t00=0x00b7, t01=0x0068}
0x11e64…11e7e               Head {h00=0x0016, h01=0x0050, text=» ST A1,SCTEFA SAVE«, t00=0x00b7, t01=0x0096}
0x11e7e…11eb0               Head {h00=0x002e, h01=0x0050, text=» SLL A2,2 GET BITS 2-15 OF 18-BITS ADDRESS«, t00=0x00b7, t01=0x00b0}
0x11eb0…11ebc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00b7, t01=0x00e2}
0x11ebc…11ed2               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00b7, t01=0x00ee}
0x11ed2…11eee               Head {h00=0x0018, h01=0x0050, text=» ST A2,SCTEFA+2 SAVE«, t00=0x00b7, t01=0x0104}
0x11eee…11ef8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b7, t01=0x0120}
0x11ef8…11f36               Head {h00=0x003a, h01=0x0050, text=»*  INITIATE PAGE BLOCK FOR CORE RESIDENT SEGMENTS AND «, t00=0x00b7, t01=0x012a}
0x11f36…11f6c               Head {h00=0x0032, h01=0x0050, text=»*  STORE PAGE BLOCK ADDRESS IN SEGMENT BLOCKS «, t00=0x00b7, t01=0x0168}
0x11f6c…11f76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00b8, t01=0x000e}
0x11f76…11f88               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x00b8, t01=0x0018}
0x11f88…11fcc               Head {h00=0x0040, h01=0x0050, text=» LD A8,SAVE22,A13 PHYSICAL ADDRESS TO FIRST CORE RES. SEGM. «, t00=0x00b8, t01=0x002a}
0x11fcc…11ffa               Head {h00=0x002a, h01=0x0050, text=» LD A11,SCTSEG START OF SEGMENT TABLE «, t00=0x00b8, t01=0x006e}
0x11ffa…1202a               Head {h00=0x002c, h01=0x0050, text=» LDK A4,0 RESET RESIDENT SEGMENT COUNTER«, t00=0x00b8, t01=0x009c}
0x1202a…12054               Head {h00=0x0026, h01=0x0050, text=» LD A12,SCTPAG START OF PAGE TABLE«, t00=0x00b8, t01=0x00cc}
0x12054…1207c               Head {h00=0x0024, h01=0x0050, text=» LD A6,SCTNOS NUMBER OF SEGMENTS«, t00=0x00b8, t01=0x00f6}
0x1207c…12090               Head {h00=0x0010, h01=0x0050, text=»PAG:60 EQU *«, t00=0x00b8, t01=0x011e}
0x12090…120b6               Head {h00=0x0022, h01=0x0050, text=» ADKL A11,8 NEXT SEGMENT BLOCK«, t00=0x00b8, t01=0x0132}
0x120b6…120d6               Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A11 GET STATUS «, t00=0x00b8, t01=0x0158}
0x120d6…12108               Head {h00=0x002e, h01=0x0050, text=» RF(NN) PAG:65 SEGMENT NOT LOADED IN CORE «, t00=0x00b8, t01=0x0178}
0x12108…12136               Head {h00=0x002a, h01=0x0050, text=» ST A12,6,A11 STORE PAGE BLOCK ADDRESS«, t00=0x00b9, t01=0x001a}
0x12136…12166               Head {h00=0x002c, h01=0x0050, text=» STR A1,A12 RESET QUEUE POINTER FORWARD «, t00=0x00b9, t01=0x0048}
0x12166…12198               Head {h00=0x002e, h01=0x0050, text=» ST A1,2,A12 RESET QUEUE POINTER BACKWARD «, t00=0x00b9, t01=0x0078}
0x12198…121c0               Head {h00=0x0024, h01=0x0050, text=» ST A8,4,A12 STORE PAGE ADDRESS «, t00=0x00b9, t01=0x00aa}
0x121c0…121f2               Head {h00=0x002e, h01=0x0050, text=» ST A11,6,A12 STORE SEGMENT BLOCK ADDRESS «, t00=0x00b9, t01=0x00d2}
0x121f2…12226               Head {h00=0x0030, h01=0x0050, text=» ADK A4,1 INCREMENT RESIDENT SEGMENT COUNTER«, t00=0x00b9, t01=0x0104}
0x12226…12250               Head {h00=0x0026, h01=0x0050, text=» ADR A8,A10  ADDRESS TO NEXT PAGE «, t00=0x00b9, t01=0x0138}
0x12250…12274               Head {h00=0x0020, h01=0x0050, text=» ADKL A12,8 NEXT PAGE BLOCK «, t00=0x00b9, t01=0x0162}
0x12274…122ac               Head {h00=0x0034, h01=0x0050, text=»PAG:65 SUK A6,1 DECREMENT SEGMENT BLOCK COUNTER «, t00=0x00b9, t01=0x0186}
0x122ac…122c2               Head {h00=0x0012, h01=0x0050, text=» RB(P) PAG:60 «, t00=0x00ba, t01=0x002e}
0x122c2…122cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x0044}
0x122cc…1230c               Head {h00=0x003c, h01=0x0050, text=»*  INITIATE PAGE BLOCK FOR FREE PAGES AND LINK TO PAGQUE«, t00=0x00ba, t01=0x004e}
0x1230c…12316               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ba, t01=0x008e}
0x12316…1233a               Head {h00=0x0020, h01=0x0050, text=» CWR A4,A7 ANY FREE BLOCKS? «, t00=0x00ba, t01=0x0098}
0x1233a…12354               Head {h00=0x0016, h01=0x0050, text=» RF(E) PAG:90 NO! «, t00=0x00ba, t01=0x00bc}
0x12354…1238c               Head {h00=0x0034, h01=0x0050, text=» ST A12,PAGQUE POINTER TO FIRST FREE PAGE BLOCK «, t00=0x00ba, t01=0x00d6}
0x1238c…123b6               Head {h00=0x0026, h01=0x0050, text=» LDKL A11,PAGQUE POINTER TO PAGQUE«, t00=0x00ba, t01=0x010e}
0x123b6…123ea               Head {h00=0x0030, h01=0x0050, text=» LDR A1,A12 SAVE ADDRESS TO FIRST PAGE BLOCK«, t00=0x00ba, t01=0x0138}
0x123ea…123fc               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x00ba, t01=0x016c}
0x123fc…1242e               Head {h00=0x002e, h01=0x0050, text=»PAG:70 ST A11,2,A12 STORE BACKWARD POINTER«, t00=0x00ba, t01=0x017e}
0x1242e…12456               Head {h00=0x0024, h01=0x0050, text=» ST A9,4,A12 STORE PAGE ADDRESS «, t00=0x00bb, t01=0x0020}
0x12456…1247e               Head {h00=0x0024, h01=0x0050, text=» ST A2,6,A12 INDICATE PAGE FREE «, t00=0x00bb, t01=0x0048}
0x1247e…124ac               Head {h00=0x002a, h01=0x0050, text=» ADK A4,1 INCREMENT PAGE BLOCK COUNTER«, t00=0x00bb, t01=0x0070}
0x124ac…124d0               Head {h00=0x0020, h01=0x0050, text=» CWR A4,A7 LAST PAGE BLOCK? «, t00=0x00bb, t01=0x009e}
0x124d0…124ea               Head {h00=0x0016, h01=0x0050, text=» RF(E) PAG:80 YES!«, t00=0x00bb, t01=0x00c2}
0x124ea…1251a               Head {h00=0x002c, h01=0x0050, text=» LDR A11,A12 SAVE ADDRESS TO PAGE BLOCK «, t00=0x00bb, t01=0x00dc}
0x1251a…12546               Head {h00=0x0028, h01=0x0050, text=» ADK A1,8 ADDRESS TO NEXT PAGE BLOCK«, t00=0x00bb, t01=0x010c}
0x12546…12570               Head {h00=0x0026, h01=0x0050, text=» STR A1,A12 STORE FORWARD POINTER «, t00=0x00bb, t01=0x0138}
0x12570…12594               Head {h00=0x0020, h01=0x0050, text=» LDR A12,A1 NEXT PAGE BLOCK «, t00=0x00bb, t01=0x0162}
0x12594…125b2               Head {h00=0x001a, h01=0x0050, text=» ADR A9,A10 NEXT PAGE «, t00=0x00bb, t01=0x0186}
0x125b2…125c4               Head {h00=0x000e, h01=0x0050, text=» RB PAG:70«, t00=0x00bc, t01=0x0014}
0x125c4…125d8               Head {h00=0x0010, h01=0x0050, text=»PAG:80 EQU *«, t00=0x00bc, t01=0x0026}
0x125d8…12602               Head {h00=0x0026, h01=0x0050, text=» LDKL A1,PAGQUE POINTER TO PAGQUE «, t00=0x00bc, t01=0x003a}
0x12602…1262a               Head {h00=0x0024, h01=0x0050, text=» STR A1,A12 STORE IN LAST BLOCK «, t00=0x00bc, t01=0x0064}
0x1262a…12654               Head {h00=0x0026, h01=0x0050, text=» ST A12,PAGQUE+2 STORE IN PAGQUE+2«, t00=0x00bc, t01=0x008c}
0x12654…12668               Head {h00=0x0010, h01=0x0050, text=»PAG:90 EQU *«, t00=0x00bc, t01=0x00b6}
0x12668…12680               Head {h00=0x0014, h01=0x0050, text=»PAGEX EQU *-REL «, t00=0x00bc, t01=0x00ca}
0x12680…1268e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00bc, t01=0x00e2}
0x1268e…1269a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bc, t01=0x00f0}
0x1269a…126a2               Head {h00=0x0004, h01=0x0050, t00=0x00bc, t01=0x00fc}
0x126a2…126aa               Head {h00=0x0004, h01=0x0050, t00=0x00bc, t01=0x0104}
0x126aa…126ca               Head {h00=0x001c, h01=0x0050, text=»* START BUGGER (IF ANY) «, t00=0x00bc, t01=0x010c}
0x126ca…126d2               Head {h00=0x0004, h01=0x0050, t00=0x00bc, t01=0x012c}
0x126d2…126da               Head {h00=0x0004, h01=0x0050, t00=0x00bc, t01=0x0134}
0x126da…126fa               Head {h00=0x001c, h01=0x0050, text=»* GET APPLICATION START «, t00=0x00bc, t01=0x013c}
0x126fa…12710               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x00bc, t01=0x015c}
0x12710…12740               Head {h00=0x002c, h01=0x0050, text=» LD A14,SCTLAC TRUE START OF APPLICATION«, t00=0x00bc, t01=0x0172}
0x12740…1274c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bd, t01=0x0012}
0x1274c…12762               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x00bd, t01=0x001e}
0x12762…12792               Head {h00=0x002c, h01=0x0050, text=» LD A14,SAVE13,A13 TRUE START OF S:GTAB «, t00=0x00bd, t01=0x0034}
0x12792…1279e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00bd, t01=0x0064}
0x1279e…127c0               Head {h00=0x001e, h01=0x0050, text=» SUKL A14,8 ADJUST FOR MAP«, t00=0x00bd, t01=0x0070}
0x127c0…127ee               Head {h00=0x002a, h01=0x0050, text=» ADKL A13,SYA360 CONTINUATION ADDRESS «, t00=0x00bd, t01=0x0092}
0x127ee…12816               Head {h00=0x0024, h01=0x0050, text=» LDK A1,0 INDICATE SYSLOAD ENDED«, t00=0x00bd, t01=0x00c0}
0x12816…1282c               Head {h00=0x0012, h01=0x0050, text=» OTR A1,0,SOP «, t00=0x00bd, t01=0x00e8}
0x1282c…12854               Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTBUG GET BUGGER ADDRESS«, t00=0x00bd, t01=0x00fe}
0x12854…12868               Head {h00=0x0010, h01=0x0050, text=» ABR(NZ) A1 «, t00=0x00bd, t01=0x0126}
0x12868…12870               Head {h00=0x0004, h01=0x0050, t00=0x00bd, t01=0x013a}
0x12870…12888               Head {h00=0x0014, h01=0x0050, text=»SYA360 EQU *-REL«, t00=0x00bd, t01=0x0142}
0x12888…1289a               Head {h00=0x000e, h01=0x0050, text=» LDR A13,P«, t00=0x00bd, t01=0x015a}
0x1289a…128b2               Head {h00=0x0014, h01=0x0050, text=»SYA370 EQU *-REL«, t00=0x00bd, t01=0x016c}
0x128b2…128e6               Head {h00=0x0030, h01=0x0050, text=» SUKL A13,SYA370 RESTORE PROGRAM BASE OINTER«, t00=0x00bd, t01=0x0184}
0x128e6…128f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x0028}
0x128f0…1290a               Head {h00=0x0016, h01=0x0050, text=»*  INIT A15 STACK «, t00=0x00be, t01=0x0032}
0x1290a…12914               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00be, t01=0x004c}
0x12914…1292a               Head {h00=0x0012, h01=0x0050, text=» LD A15,SCTSTB«, t00=0x00be, t01=0x0056}
0x1292a…1293e               Head {h00=0x0010, h01=0x0050, text=» SUKL A15,4 «, t00=0x00be, t01=0x006c}
0x1293e…12946               Head {h00=0x0004, h01=0x0050, t00=0x00be, t01=0x0080}
0x12946…12962               Head {h00=0x0018, h01=0x0050, text=»* START APPLICATION «, t00=0x00be, t01=0x0088}
0x12962…1296a               Head {h00=0x0004, h01=0x0050, t00=0x00be, t01=0x00a4}
0x1296a…1299c               Head {h00=0x002e, h01=0x0050, text=» LD A1,IHRTC GET INTERRUPT ADDRESS FOR RTC«, t00=0x00be, t01=0x00ac}
0x1299c…129ba               Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVRTC,A13 SAVE«, t00=0x00be, t01=0x00de}
0x129ba…129f2               Head {h00=0x0034, h01=0x0050, text=» LDKL A1,IHRTCO LOAD TEMPORARY INTERRUPT ADDRESS«, t00=0x00be, t01=0x00fc}
0x129f2…12a0e               Head {h00=0x0018, h01=0x0050, text=» ADR A1,A13 RELOCATE«, t00=0x00be, t01=0x0134}
0x12a0e…12a3c               Head {h00=0x002a, h01=0x0050, text=» ST A1,IHRTC STORE IN INTERRUPT VECTOR«, t00=0x00be, t01=0x0150}
0x12a3c…12a66               Head {h00=0x0026, h01=0x0050, text=» CF A15,PFINIT INITIALIZE DEVICES «, t00=0x00be, t01=0x017e}
0x12a66…12a8a               Head {h00=0x0020, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS«, t00=0x00bf, t01=0x0018}
0x12a8a…12a94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x003c}
0x12a94…12ade               Head {h00=0x0046, h01=0x0050, text=»*  WAIT APPROXIMATELY 0.62 SECONDS BEFORE BRANCHING TO DISPATCHER «, t00=0x00bf, t01=0x0046}
0x12ade…12ae8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00bf, t01=0x0090}
0x12ae8…12b0a               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/FFFF SET COUNTER«, t00=0x00bf, t01=0x009a}
0x12b0a…12b22               Head {h00=0x0014, h01=0x0050, text=»DELAY SRC A2,31 «, t00=0x00bf, t01=0x00bc}
0x12b22…12b34               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x00bf, t01=0x00d4}
0x12b34…12b4a               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DELAY «, t00=0x00bf, t01=0x00e6}
0x12b4a…12b56               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x00bf, t01=0x00fc}
0x12b56…12b82               Head {h00=0x0028, h01=0x0050, text=» LDKL A1,0 GET RTC INTERRUPT ADDRESS«, t00=0x00bf, t01=0x0108}
0x12b82…12b9c               Head {h00=0x0016, h01=0x0050, text=»SAVRTC EQU *-REL-2«, t00=0x00bf, t01=0x0134}
0x12b9c…12bb8               Head {h00=0x0018, h01=0x0050, text=» ST A1,IHRTC RESTORE«, t00=0x00bf, t01=0x014e}
0x12bb8…12be0               Head {h00=0x0024, h01=0x0050, text=» ABL TDISP BRANCH TO DISPATCHER «, t00=0x00bf, t01=0x016a}
0x12be0…12bea (192, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x0004}
0x12bea…12c18               Head {h00=0x002a, h01=0x0050, text=»*  TEMPORARY INTERRUPT ROUTINE FOR RTC«, t00=0x00c0, t01=0x000e}
0x12c18…12c22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00c0, t01=0x003c}
0x12c22…12c3a               Head {h00=0x0014, h01=0x0050, text=»IHRTCO EQU *-REL«, t00=0x00c0, t01=0x0046}
0x12c3a…12c4c               Head {h00=0x000e, h01=0x0050, text=» RIT RTCDA«, t00=0x00c0, t01=0x005e}
0x12c4c…12c5c               Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x00c0, t01=0x0070}
0x12c5c…12c72               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00c0, t01=0x0080}
0x12c72…12c80               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c0, t01=0x0096}
0x12c80…12c8c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00c0, t01=0x00a4}
0x12c8c…12cc6               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00c0, t01=0x00b0}
0x12cc6…12d00               Head {h00=0x0036, h01=0x0050, text=»***                                           *** «, t00=0x00c0, t01=0x00ea}
0x12d00…12d3a               Head {h00=0x0036, h01=0x0050, text=»**           SYSLOAD PART 2.A                  ** «, t00=0x00c0, t01=0x0124}
0x12d3a…12d74               Head {h00=0x0036, h01=0x0050, text=»**                                             ** «, t00=0x00c0, t01=0x015e}
0x12d74…12dae               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00c1, t01=0x0008}
0x12dae…12db6               Head {h00=0x0004, h01=0x0050, t00=0x00c1, t01=0x0042}
0x12db6…12df0               Head {h00=0x0036, h01=0x0050, text=»*   BUILD COMMON AND TASKCLASS DATA AREAS.      * «, t00=0x00c1, t01=0x004a}
0x12df0…12e2a               Head {h00=0x0036, h01=0x0050, text=»*   BUILD TASKDATA PROTOTYPE AREA               * «, t00=0x00c1, t01=0x0084}
0x12e2a…12e64               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x00c1, t01=0x00be}
0x12e64…12e9e               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00c1, t01=0x00f8}
0x12e9e…12ea6               Head {h00=0x0004, h01=0x0050, t00=0x00c1, t01=0x0132}
0x12ea6…12ebe               Head {h00=0x0014, h01=0x0050, text=»PART2A EQU *-REL«, t00=0x00c1, t01=0x013a}
0x12ebe…12ec6               Head {h00=0x0004, h01=0x0050, t00=0x00c1, t01=0x0152}
0x12ec6…12efa               Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00c1, t01=0x015a}
0x12efa…12f2e               Head {h00=0x0030, h01=0x0050, text=»***                                      ***«, t00=0x00c1, t01=0x018e}
0x12f2e…12f62               Head {h00=0x0030, h01=0x0050, text=»**         S U B R O U T I N E S          **«, t00=0x00c2, t01=0x0032}
0x12f62…12f96               Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00c2, t01=0x0066}
0x12f96…12f9e               Head {h00=0x0004, h01=0x0050, t00=0x00c2, t01=0x009a}
0x12f9e…12faa               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00c2, t01=0x00a2}
0x12faa…12fe2               Head {h00=0x0034, h01=0x0050, text=»**                T : D A D D                 **«, t00=0x00c2, t01=0x00ae}
0x12fe2…1301a               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x00c2, t01=0x00e6}
0x1301a…13052               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x00c2, t01=0x011e}
0x13052…1308a               Head {h00=0x0034, h01=0x0050, text=»**  GET T:D - ADDRESS                         **«, t00=0x00c2, t01=0x0156}
0x1308a…130c2               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x00c2, t01=0x018e}
0x130c2…130fa               Head {h00=0x0034, h01=0x0050, text=»**  INPUT : A8=POINTER TO T:A (IN T:ATAB)     **«, t00=0x00c3, t01=0x0036}
0x130fa…13132               Head {h00=0x0034, h01=0x0050, text=»**  OUTPUT: A12=T:D ADDRESS                   **«, t00=0x00c3, t01=0x006e}
0x13132…1316a               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00c3, t01=0x00a6}
0x1316a…1317e               Head {h00=0x0010, h01=0x0050, text=»T:DADD EQU *«, t00=0x00c3, t01=0x00de}
0x1317e…1319a               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00c3, t01=0x00f2}
0x1319a…131ba               Head {h00=0x001c, h01=0x0050, text=» LDR* A12,A8 T:A ADDRESS«, t00=0x00c3, t01=0x010e}
0x131ba…131d4               Head {h00=0x0016, h01=0x0050, text=» LD A12,T:DAD,A12 «, t00=0x00c3, t01=0x012e}
0x131d4…131e0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c3, t01=0x0148}
0x131e0…131fc               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00c3, t01=0x0154}
0x131fc…1321c               Head {h00=0x001c, h01=0x0050, text=» ELR A12,A8 T:A ADDRESS «, t00=0x00c3, t01=0x0170}
0x1321c…13236               Head {h00=0x0016, h01=0x0050, text=» EL A12,T:DAD,A12 «, t00=0x00c3, t01=0x0190}
0x13236…13242               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c4, t01=0x001a}
0x13242…13258               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00c4, t01=0x0026}
0x13258…1327c               Head {h00=0x0020, h01=0x0050, text=» AD A12,MOVADD,A13 RELOCATE «, t00=0x00c4, t01=0x003c}
0x1327c…1328c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00c4, t01=0x0060}
0x1328c…1329a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00c4, t01=0x0070}
0x1329a…132a6               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00c4, t01=0x007e}
0x132a6…132b2               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00c4, t01=0x008a}
0x132b2…132ec               Head {h00=0x0036, h01=0x0050, text=»**                  M O V C O M                ** «, t00=0x00c4, t01=0x0096}
0x132ec…13326               Head {h00=0x0036, h01=0x0050, text=»**                                             ** «, t00=0x00c4, t01=0x00d0}
0x13326…13360               Head {h00=0x0036, h01=0x0050, text=»**                                             ** «, t00=0x00c4, t01=0x010a}
0x13360…1339a               Head {h00=0x0036, h01=0x0050, text=»**  SEARCH T:A'S FOR COMMON WORK BLOCKS THAT   ** «, t00=0x00c4, t01=0x0144}
0x1339a…133d4               Head {h00=0x0036, h01=0x0050, text=»**  ARE COMMON TO AT LEAST TWO T:A'S, AND MOVE ** «, t00=0x00c4, t01=0x017e}
0x133d4…1340e               Head {h00=0x0036, h01=0x0050, text=»**  TO COMMON AREA                             ** «, t00=0x00c5, t01=0x0028}
0x1340e…13448               Head {h00=0x0036, h01=0x0050, text=»**                                             ** «, t00=0x00c5, t01=0x0062}
0x13448…13482               Head {h00=0x0036, h01=0x0050, text=»**  INPUT : A8=POINTER IN T:ATAB               ** «, t00=0x00c5, t01=0x009c}
0x13482…134bc               Head {h00=0x0036, h01=0x0050, text=»**          BIT=BIT NUMBER, SAT IN MASK        ** «, t00=0x00c5, t01=0x00d6}
0x134bc…134f6               Head {h00=0x0036, h01=0x0050, text=»**          ENDADD=ENDADDRESS OF T:ATAB        ** «, t00=0x00c5, t01=0x0110}
0x134f6…13530               Head {h00=0x0036, h01=0x0050, text=»**          TADISP=W.B.-ADDR DISPLACEM. IN T:A ** «, t00=0x00c5, t01=0x014a}
0x13530…1356a               Head {h00=0x0036, h01=0x0050, text=»**  WORK.REGS: A1-A6,A9,A11,A12                ** «, t00=0x00c5, t01=0x0184}
0x1356a…135a4               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00c6, t01=0x002e}
0x135a4…135b0               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00c6, t01=0x0068}
0x135b0…135c4               Head {h00=0x0010, h01=0x0050, text=»MOVCOM EQU *«, t00=0x00c6, t01=0x0074}
0x135c4…135ee               Head {h00=0x0026, h01=0x0050, text=» CALL CHKMVD BLOCK ALREADY MOVED? «, t00=0x00c6, t01=0x0088}
0x135ee…13608               Head {h00=0x0016, h01=0x0050, text=» RF(N) MOVC20 YES!«, t00=0x00c6, t01=0x00b2}
0x13608…13646               Head {h00=0x003a, h01=0x0050, text=» CALL GETWB POINTER TO WB ADD TO 'WBADD',A5=T:A-DISPL «, t00=0x00c6, t01=0x00cc}
0x13646…13672               Head {h00=0x0028, h01=0x0050, text=» ST A11,SAVE06,A13 SAVE W.B.-ADDRESS«, t00=0x00c6, t01=0x010a}
0x13672…1369e               Head {h00=0x0028, h01=0x0050, text=» CM MOVED,A13 CLEAR MOVED INDICATOR «, t00=0x00c6, t01=0x0136}
0x1369e…136b0               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A8«, t00=0x00c6, t01=0x0162}
0x136b0…136d0               Head {h00=0x001c, h01=0x0050, text=»MOVC10 ADK A6,2 NEXT T:A«, t00=0x00c6, t01=0x0174}
0x136d0…136f4 (199, 0, 400) Head {h00=0x0020, h01=0x0050, text=» CW A6,ENDADD,A13 ALL DONE? «, t00=0x00c7, t01=0x0004}
0x136f4…1370e               Head {h00=0x0016, h01=0x0050, text=» RF(NE) MOVC30 NO «, t00=0x00c7, t01=0x0028}
0x1370e…1372a               Head {h00=0x0018, h01=0x0050, text=»MOVC20 RTN A14 YES! «, t00=0x00c7, t01=0x0042}
0x1372a…13746               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00c7, t01=0x005e}
0x13746…13760               Head {h00=0x0016, h01=0x0050, text=»MOVC30 LDR* A11,A6«, t00=0x00c7, t01=0x007a}
0x13760…13784               Head {h00=0x0020, h01=0x0050, text=» LD A2,T:DAD,A11 T:D-ADDRESS«, t00=0x00c7, t01=0x0094}
0x13784…137a6               Head {h00=0x001e, h01=0x0050, text=» AD A2,MOVADD,A13 RELOCATE«, t00=0x00c7, t01=0x00b8}
0x137a6…137c4               Head {h00=0x001a, h01=0x0050, text=» ST A2,SAVE03,A13 SAVE«, t00=0x00c7, t01=0x00da}
0x137c4…137f4               Head {h00=0x002c, h01=0x0050, text=» LD A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS «, t00=0x00c7, t01=0x00f8}
0x137f4…13814               Head {h00=0x001c, h01=0x0050, text=» CW A2,BIT,A13 ENOUGHT? «, t00=0x00c7, t01=0x0128}
0x13814…1384e               Head {h00=0x0036, h01=0x0050, text=» RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A «, t00=0x00c7, t01=0x0148}
0x1384e…13880               Head {h00=0x002e, h01=0x0050, text=» AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE«, t00=0x00c7, t01=0x0182}
0x13880…13896               Head {h00=0x0012, h01=0x0050, text=» LDR* A11,A11 «, t00=0x00c8, t01=0x0024}
0x13896…138c8               Head {h00=0x002e, h01=0x0050, text=» CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES «, t00=0x00c8, t01=0x003a}
0x138c8…138d4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c8, t01=0x006c}
0x138d4…138f0               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00c8, t01=0x0078}
0x138f0…1390a               Head {h00=0x0016, h01=0x0050, text=»MOVC30 ELR A11,A6 «, t00=0x00c8, t01=0x0094}
0x1390a…1392e               Head {h00=0x0020, h01=0x0050, text=» EL A2,T:DAD,A11 T:D-ADDRESS«, t00=0x00c8, t01=0x00ae}
0x1392e…13950               Head {h00=0x001e, h01=0x0050, text=» AD A2,MOVADD,A13 RELOCATE«, t00=0x00c8, t01=0x00d2}
0x13950…13984               Head {h00=0x0030, h01=0x0050, text=» ST A2,SAVE03,A13 SAVE T:D-ADDRESS TEMPORARY«, t00=0x00c8, t01=0x00f4}
0x13984…139b4               Head {h00=0x002c, h01=0x0050, text=» EL A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS «, t00=0x00c8, t01=0x0128}
0x139b4…139d4               Head {h00=0x001c, h01=0x0050, text=» CW A2,BIT,A13 ENOUGHT? «, t00=0x00c8, t01=0x0158}
0x139d4…13a0e               Head {h00=0x0036, h01=0x0050, text=» RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A «, t00=0x00c8, t01=0x0178}
0x13a0e…13a40               Head {h00=0x002e, h01=0x0050, text=» AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE«, t00=0x00c9, t01=0x0022}
0x13a40…13a54               Head {h00=0x0010, h01=0x0050, text=» ELR A11,A11«, t00=0x00c9, t01=0x0054}
0x13a54…13a86               Head {h00=0x002e, h01=0x0050, text=» CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES «, t00=0x00c9, t01=0x0068}
0x13a86…13a92               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00c9, t01=0x009a}
0x13a92…13aa8               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00c9, t01=0x00a6}
0x13aa8…13ac4               Head {h00=0x0018, h01=0x0050, text=» RB(NE) MOVC10 .NEQ.«, t00=0x00c9, t01=0x00bc}
0x13ac4…13af0               Head {h00=0x0028, h01=0x0050, text=» LD A9,MOVED,A13 W.B. ALREADY MOVED?«, t00=0x00c9, t01=0x00d8}
0x13af0…13b22               Head {h00=0x002e, h01=0x0050, text=» RF(NZ) MOVC50 YES! CHANGE ADDRESSES ONLY «, t00=0x00c9, t01=0x0104}
0x13b22…13b4c               Head {h00=0x0026, h01=0x0050, text=» CALL MOVDT MOVE DESCRIPTOR-TABLE «, t00=0x00c9, t01=0x0136}
0x13b4c…13b76               Head {h00=0x0026, h01=0x0050, text=» ST A2,NEWAD1,A13 SAVE D.T.-ADRESS«, t00=0x00c9, t01=0x0160}
0x13b76…13b98               Head {h00=0x001e, h01=0x0050, text=» CALL MOVWB MOV WORK BLOCK«, t00=0x00c9, t01=0x018a}
0x13b98…13bbc               Head {h00=0x0020, h01=0x0050, text=» IM MOVED,A13 INDICATE MOVED«, t00=0x00ca, t01=0x001c}
0x13bbc…13bde               Head {h00=0x001e, h01=0x0050, text=» LD A4,UWB,A13 UWB-BLOCKS?«, t00=0x00ca, t01=0x0040}
0x13bde…13bf8               Head {h00=0x0016, h01=0x0050, text=» RF(Z) MOVC40 NO! «, t00=0x00ca, t01=0x0062}
0x13bf8…13c1e               Head {h00=0x0022, h01=0x0050, text=» CALL GETPRO CREATE REAL UWB'S«, t00=0x00ca, t01=0x007c}
0x13c1e…13c56               Head {h00=0x0034, h01=0x0050, text=»MOVC40 ST A2,NEWAD2,A13 SAVE NEW ADDRESS TO W.B.«, t00=0x00ca, t01=0x00a2}
0x13c56…13c6a               Head {h00=0x0010, h01=0x0050, text=» CALL MOVDWB«, t00=0x00ca, t01=0x00da}
0x13c6a…13c94               Head {h00=0x0026, h01=0x0050, text=»MOVC50 CALL CHADR CHANGE ADDRESSES«, t00=0x00ca, t01=0x00ee}
0x13c94…13cc6               Head {h00=0x002e, h01=0x0050, text=» CALL ICBMVD INDICATE CURRENT BLOCK MOVED «, t00=0x00ca, t01=0x0118}
0x13cc6…13cea               Head {h00=0x0020, h01=0x0050, text=» LDR A11,A8 SAVE T:A-POINTER«, t00=0x00ca, t01=0x014a}
0x13cea…13d16               Head {h00=0x0028, h01=0x0050, text=» ST A12,SAVE25,A13 SAVE T:A-ADDRESS «, t00=0x00ca, t01=0x016e}
0x13d16…13d40               Head {h00=0x0026, h01=0x0050, text=» LDR A8,A6 REPLACE POINTER TO T:A «, t00=0x00cb, t01=0x000a}
0x13d40…13d6e               Head {h00=0x002a, h01=0x0050, text=» LD A12,SAVE03,A13 REPLACE T:D-ADDRESS«, t00=0x00cb, t01=0x0034}
0x13d6e…13d82               Head {h00=0x0010, h01=0x0050, text=» CALL MOVDWB«, t00=0x00cb, t01=0x0062}
0x13d82…13d96               Head {h00=0x0010, h01=0x0050, text=» LDR A8,A11 «, t00=0x00cb, t01=0x0076}
0x13d96…13dc4               Head {h00=0x002a, h01=0x0050, text=» LD A12,SAVE25,A13 RELOAD T:D-ADDRESS «, t00=0x00cb, t01=0x008a}
0x13dc4…13dd6               Head {h00=0x000e, h01=0x0050, text=» RB MOVC10«, t00=0x00cb, t01=0x00b8}
0x13dd6…13de4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00cb, t01=0x00ca}
0x13de4…13df0               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00cb, t01=0x00d8}
0x13df0…13dfc               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00cb, t01=0x00e4}
0x13dfc…13e34               Head {h00=0x0034, h01=0x0050, text=»**               G E T P R O                  **«, t00=0x00cb, t01=0x00f0}
0x13e34…13e6c               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x00cb, t01=0x0128}
0x13e6c…13ea4               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x00cb, t01=0x0160}
0x13ea4…13edc               Head {h00=0x0034, h01=0x0050, text=»**  SEARCH U:BTAB PROTOTYPE AND GET NUMBER OF **«, t00=0x00cc, t01=0x0008}
0x13edc…13f14               Head {h00=0x0034, h01=0x0050, text=»**  COPIES. FILL REAL U:BTAB                  **«, t00=0x00cc, t01=0x0040}
0x13f14…13f4c               Head {h00=0x0034, h01=0x0050, text=»**                                            **«, t00=0x00cc, t01=0x0078}
0x13f4c…13f84               Head {h00=0x0034, h01=0x0050, text=»**  INPUT : A11=PROTOTYPE ADDRESS             **«, t00=0x00cc, t01=0x00b0}
0x13f84…13fbc               Head {h00=0x0034, h01=0x0050, text=»**          A2=LAST W.B. - ADDRESS            **«, t00=0x00cc, t01=0x00e8}
0x13fbc…13ff4               Head {h00=0x0034, h01=0x0050, text=»**  OUTPUT: A2=NEW ADDRESS                    **«, t00=0x00cc, t01=0x0120}
0x13ff4…1402c               Head {h00=0x0034, h01=0x0050, text=»**  WORK-REGS: A1-A5,A9                       **«, t00=0x00cc, t01=0x0158}
0x1402c…14064               Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x00cc, t01=0x0190}
0x14064…14070               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00cd, t01=0x0038}
0x14070…14084               Head {h00=0x0010, h01=0x0050, text=»GETPRO EQU *«, t00=0x00cd, t01=0x0044}
0x14084…140b0               Head {h00=0x0028, h01=0x0050, text=» LD A3,U:BTOD,A13 GET U:BTAB ADDRESS«, t00=0x00cd, t01=0x0058}
0x140b0…140cc               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00cd, t01=0x0084}
0x140cc…140e6               Head {h00=0x0016, h01=0x0050, text=» LDR* A4,A3 LENGTH«, t00=0x00cd, t01=0x00a0}
0x140e6…140fa               Head {h00=0x0010, h01=0x0050, text=»GETP10 EQU *«, t00=0x00cd, t01=0x00ba}
0x140fa…14134               Head {h00=0x0036, h01=0x0050, text=» SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH «, t00=0x00cd, t01=0x00ce}
0x14134…1414a               Head {h00=0x0012, h01=0x0050, text=» RF(NN) GETP20«, t00=0x00cd, t01=0x0108}
0x1414a…1416e               Head {h00=0x0020, h01=0x0050, text=» LDK A1,LMP6 W.B. NOT FOUND!«, t00=0x00cd, t01=0x011e}
0x1416e…14182               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00cd, t01=0x0142}
0x14182…14196               Head {h00=0x0010, h01=0x0050, text=»GETP20 EQU *«, t00=0x00cd, t01=0x0156}
0x14196…141ba               Head {h00=0x0020, h01=0x0050, text=» CW A11,UPADDR,A3 SAME W.B.?«, t00=0x00cd, t01=0x016a}
0x141ba…141ea               Head {h00=0x002c, h01=0x0050, text=» RF(E) GETP30 YES! GET NUMBER OF COPIES «, t00=0x00cd, t01=0x018e}
0x141ea…14206               Head {h00=0x0018, h01=0x0050, text=» ADK A3,UP:REC NEXT «, t00=0x00ce, t01=0x002e}
0x14206…14218               Head {h00=0x000e, h01=0x0050, text=» RB GETP10«, t00=0x00ce, t01=0x004a}
0x14218…14224               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00ce, t01=0x005c}
0x14224…14258               Head {h00=0x0030, h01=0x0050, text=»* GET NUMBER OF COPIES                     *«, t00=0x00ce, t01=0x0068}
0x14258…1428c               Head {h00=0x0030, h01=0x0050, text=»* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB *«, t00=0x00ce, t01=0x009c}
0x1428c…14294               Head {h00=0x0004, h01=0x0050, t00=0x00ce, t01=0x00d0}
0x14294…142a8               Head {h00=0x0010, h01=0x0050, text=»GETP30 EQU *«, t00=0x00ce, t01=0x00d8}
0x142a8…142cc               Head {h00=0x0020, h01=0x0050, text=» LD A4,WBLEN,A11 W.B.-LENGTH«, t00=0x00ce, t01=0x00ec}
0x142cc…142fa               Head {h00=0x002a, h01=0x0050, text=» LC A5,UPNUMB,A3 GET NUMBER OF COPIES «, t00=0x00ce, t01=0x0110}
0x142fa…1430e               Head {h00=0x0010, h01=0x0050, text=» ANK A5,/FF «, t00=0x00ce, t01=0x013e}
0x1430e…1433e               Head {h00=0x002c, h01=0x0050, text=» SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT«, t00=0x00ce, t01=0x0152}
0x1433e…14370               Head {h00=0x002e, h01=0x0050, text=» AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS«, t00=0x00ce, t01=0x0182}
0x14370…14382               Head {h00=0x000e, h01=0x0050, text=» LDR A9,A3«, t00=0x00cf, t01=0x0024}
0x14382…143a8               Head {h00=0x0022, h01=0x0050, text=» ST A4,URLENG,A9 STORE LENGTH «, t00=0x00cf, t01=0x0036}
0x143a8…143d6               Head {h00=0x002a, h01=0x0050, text=» ST A5,URNUMB,A9 STORE IN REAL U:BTAB «, t00=0x00cf, t01=0x005c}
0x143d6…1440a               Head {h00=0x0030, h01=0x0050, text=»* COPY NUMBER OF WORKBLOCKS TO COMMON AREA *«, t00=0x00cf, t01=0x008a}
0x1440a…1443e               Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00cf, t01=0x00be}
0x1443e…14470               Head {h00=0x002e, h01=0x0050, text=» SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') «, t00=0x00cf, t01=0x00f2}
0x14470…14486               Head {h00=0x0012, h01=0x0050, text=» RF(NP) GETP50«, t00=0x00cf, t01=0x0124}
0x14486…144a0               Head {h00=0x0016, h01=0x0050, text=»GETP40 CALL MOVWB «, t00=0x00cf, t01=0x013a}
0x144a0…144b2               Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x00cf, t01=0x0154}
0x144b2…144c8               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) GETP40«, t00=0x00cf, t01=0x0166}
0x144c8…144d4               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00cf, t01=0x017c}
0x144d4…144fe               Head {h00=0x0026, h01=0x0050, text=»* UPDATE POINTER IN REAL U:BTAB * «, t00=0x00cf, t01=0x0188}
0x144fe…14528               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x00d0, t01=0x0022}
0x14528…1453c               Head {h00=0x0010, h01=0x0050, text=»GETP50 EQU *«, t00=0x00d0, t01=0x004c}
0x1453c…14576               Head {h00=0x0036, h01=0x0050, text=» ST A2,URADDR,A9 STORE ADDRESS TO FIRST IN U:BTAB «, t00=0x00d0, t01=0x0060}
0x14576…14582               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d0, t01=0x009a}
0x14582…1459e               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00d0, t01=0x00a6}
0x1459e…145b8               Head {h00=0x0016, h01=0x0050, text=» ELR A4,A3 LENGTH «, t00=0x00d0, t01=0x00c2}
0x145b8…145cc               Head {h00=0x0010, h01=0x0050, text=»GETP10 EQU *«, t00=0x00d0, t01=0x00dc}
0x145cc…14606               Head {h00=0x0036, h01=0x0050, text=» SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH «, t00=0x00d0, t01=0x00f0}
0x14606…1461c               Head {h00=0x0012, h01=0x0050, text=» RF(NN) GETP20«, t00=0x00d0, t01=0x012a}
0x1461c…14640               Head {h00=0x0020, h01=0x0050, text=» LDK A1,LMP6 W.B. NOT FOUND!«, t00=0x00d0, t01=0x0140}
0x14640…14654               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00d0, t01=0x0164}
0x14654…14668               Head {h00=0x0010, h01=0x0050, text=»GETP20 EQU *«, t00=0x00d0, t01=0x0178}
0x14668…14694               Head {h00=0x0028, h01=0x0050, text=» EL A10,UPADDR,A3 CHECK IF SAME W.B.«, t00=0x00d0, t01=0x018c}
0x14694…146a8               Head {h00=0x0010, h01=0x0050, text=» CWR A11,A10«, t00=0x00d1, t01=0x0028}
0x146a8…146d8               Head {h00=0x002c, h01=0x0050, text=» RF(E) GETP30 YES! GET NUMBER OF COPIES «, t00=0x00d1, t01=0x003c}
0x146d8…146f4               Head {h00=0x0018, h01=0x0050, text=» ADK A3,UP:REC NEXT «, t00=0x00d1, t01=0x006c}
0x146f4…14706               Head {h00=0x000e, h01=0x0050, text=» RB GETP10«, t00=0x00d1, t01=0x0088}
0x14706…14712               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00d1, t01=0x009a}
0x14712…14746               Head {h00=0x0030, h01=0x0050, text=»* GET NUMBER OF COPIES                     *«, t00=0x00d1, t01=0x00a6}
0x14746…1477a               Head {h00=0x0030, h01=0x0050, text=»* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB *«, t00=0x00d1, t01=0x00da}
0x1477a…147ae               Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00d1, t01=0x010e}
0x147ae…147b6               Head {h00=0x0004, h01=0x0050, t00=0x00d1, t01=0x0142}
0x147b6…147ca               Head {h00=0x0010, h01=0x0050, text=»GETP30 EQU *«, t00=0x00d1, t01=0x014a}
0x147ca…147ee               Head {h00=0x0020, h01=0x0050, text=» EL A4,WBLEN,A11 W.B.-LENGTH«, t00=0x00d1, t01=0x015e}
0x147ee…1481e               Head {h00=0x002c, h01=0x0050, text=» EL A5,UPNUMB-1,A3 GET NUMBER OF COPIES «, t00=0x00d1, t01=0x0182}
0x1481e…14832               Head {h00=0x0010, h01=0x0050, text=» ANK A5,/FF «, t00=0x00d2, t01=0x0022}
0x14832…14862               Head {h00=0x002c, h01=0x0050, text=» SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT«, t00=0x00d2, t01=0x0036}
0x14862…14894               Head {h00=0x002e, h01=0x0050, text=» AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS«, t00=0x00d2, t01=0x0066}
0x14894…148a6               Head {h00=0x000e, h01=0x0050, text=» LDR A9,A3«, t00=0x00d2, t01=0x0098}
0x148a6…148ca               Head {h00=0x0020, h01=0x0050, text=» TL* MMTO,A13 LOAD TO-TABLE «, t00=0x00d2, t01=0x00aa}
0x148ca…148f8               Head {h00=0x002a, h01=0x0050, text=» ES A5,URNUMB,A9 ESORE IN REAL U:BTAB «, t00=0x00d2, t01=0x00ce}
0x148f8…1491e               Head {h00=0x0022, h01=0x0050, text=» ES A4,URLENG,A9 STORE LENGTH «, t00=0x00d2, t01=0x00fc}
0x1491e…14948               Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD FROM TABLE «, t00=0x00d2, t01=0x0122}
0x14948…1497c               Head {h00=0x0030, h01=0x0050, text=»* COPY NUMBER OF WORKBLOCKS TO COMMON AREA *«, t00=0x00d2, t01=0x014c}
0x1497c…149b0               Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x00d2, t01=0x0180}
0x149b0…149e2               Head {h00=0x002e, h01=0x0050, text=» SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') «, t00=0x00d3, t01=0x0024}
0x149e2…149f8               Head {h00=0x0012, h01=0x0050, text=» RF(NP) GETP50«, t00=0x00d3, t01=0x0056}
0x149f8…14a12               Head {h00=0x0016, h01=0x0050, text=»GETP40 CALL MOVWB «, t00=0x00d3, t01=0x006c}
0x14a12…14a24               Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x00d3, t01=0x0086}
0x14a24…14a3a               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) GETP40«, t00=0x00d3, t01=0x0098}
0x14a3a…14a46               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00d3, t01=0x00ae}
0x14a46…14a70               Head {h00=0x0026, h01=0x0050, text=»* UPDATE POINTER IN REAL U:BTAB * «, t00=0x00d3, t01=0x00ba}
0x14a70…14a9a               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x00d3, t01=0x00e4}
0x14a9a…14aae               Head {h00=0x0010, h01=0x0050, text=»GETP50 EQU *«, t00=0x00d3, t01=0x010e}
0x14aae…14ac4               Head {h00=0x0012, h01=0x0050, text=» TL* MMTO,A13 «, t00=0x00d3, t01=0x0122}
0x14ac4…14afe               Head {h00=0x0036, h01=0x0050, text=» ES A2,URADDR,A9 ESORE ADDRESS TO FIRES IN U:BTAB «, t00=0x00d3, t01=0x0138}
0x14afe…14b16               Head {h00=0x0014, h01=0x0050, text=» TL* MMFROM,A13 «, t00=0x00d3, t01=0x0172}
0x14b16…14b22               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d3, t01=0x018a}
0x14b22…14b38               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00d4, t01=0x0008}
0x14b38…14b48               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00d4, t01=0x001e}
0x14b48…14b56               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d4, t01=0x002e}
0x14b56…14b62               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00d4, t01=0x003c}
0x14b62…14b98               Head {h00=0x0032, h01=0x0050, text=»**                M O V C L A              ** «, t00=0x00d4, t01=0x0048}
0x14b98…14bce               Head {h00=0x0032, h01=0x0050, text=»**                                         ** «, t00=0x00d4, t01=0x007e}
0x14bce…14c04               Head {h00=0x0032, h01=0x0050, text=»**                                         ** «, t00=0x00d4, t01=0x00b4}
0x14c04…14c3a               Head {h00=0x0032, h01=0x0050, text=»**  CHECKS IF W.B. ALREADY MOVED TO COMMON ** «, t00=0x00d4, t01=0x00ea}
0x14c3a…14c70               Head {h00=0x0032, h01=0x0050, text=»**  AREA. IF NOT MOVE W.B. & D.T. AND      ** «, t00=0x00d4, t01=0x0120}
0x14c70…14ca6               Head {h00=0x0032, h01=0x0050, text=»**  CHECK IF ANY DWB'S                     ** «, t00=0x00d4, t01=0x0156}
0x14ca6…14cdc               Head {h00=0x0032, h01=0x0050, text=»**                                         ** «, t00=0x00d4, t01=0x018c}
0x14cdc…14d12               Head {h00=0x0032, h01=0x0050, text=»**  A LOT OF WORKREGS.                     ** «, t00=0x00d5, t01=0x0032}
0x14d12…14d48               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x00d5, t01=0x0068}
0x14d48…14d50               Head {h00=0x0004, h01=0x0050, t00=0x00d5, t01=0x009e}
0x14d50…14d64               Head {h00=0x0010, h01=0x0050, text=»MOVCLA EQU *«, t00=0x00d5, t01=0x00a6}
0x14d64…14d78               Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x00d5, t01=0x00ba}
0x14d78…14d8e               Head {h00=0x0012, h01=0x0050, text=» RF(Z) MVCL30 «, t00=0x00d5, t01=0x00ce}
0x14d8e…14dbc               Head {h00=0x002a, h01=0x0050, text=»MVCL10 CALL GETWB W.B.-ADDRESS TO A11 «, t00=0x00d5, t01=0x00e4}
0x14dbc…14de6               Head {h00=0x0026, h01=0x0050, text=» CALL CHKMVD BLOCK ALREADY MOVED? «, t00=0x00d5, t01=0x0112}
0x14de6…14e00               Head {h00=0x0016, h01=0x0050, text=» RF(NN) MVCL40 NO!«, t00=0x00d5, t01=0x013c}
0x14e00…14e30               Head {h00=0x002c, h01=0x0050, text=»MVCL20 CALL SKIFTA GET NEXT BIT IN MASK «, t00=0x00d5, t01=0x0156}
0x14e30…14e46               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) MVCL10«, t00=0x00d5, t01=0x0186}
0x14e46…14e5c               Head {h00=0x0012, h01=0x0050, text=»MVCL30 RTN A14«, t00=0x00d6, t01=0x000c}
0x14e5c…14e76               Head {h00=0x0016, h01=0x0050, text=»MVCL40 CALL MOVDT «, t00=0x00d6, t01=0x0022}
0x14e76…14e8a               Head {h00=0x0010, h01=0x0050, text=» CALL MOVWB «, t00=0x00d6, t01=0x003c}
0x14e8a…14eae               Head {h00=0x0020, h01=0x0050, text=» LD A4,UWB,A13 UWB-SCANNING «, t00=0x00d6, t01=0x0050}
0x14eae…14ec8               Head {h00=0x0016, h01=0x0050, text=» RF(Z) MVCL50 NO! «, t00=0x00d6, t01=0x0074}
0x14ec8…14eec               Head {h00=0x0020, h01=0x0050, text=» CALL GETPRO DUPLICATE WB'S «, t00=0x00d6, t01=0x008e}
0x14eec…14f1e               Head {h00=0x002e, h01=0x0050, text=»MVCL50 ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS «, t00=0x00d6, t01=0x00b2}
0x14f1e…14f40               Head {h00=0x001e, h01=0x0050, text=» CALL MOVDWB PROCESS DWB'S«, t00=0x00d6, t01=0x00e4}
0x14f40…14f52               Head {h00=0x000e, h01=0x0050, text=» RB MVCL20«, t00=0x00d6, t01=0x0106}
0x14f52…14f60               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00d6, t01=0x0118}
0x14f60…14f6c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00d6, t01=0x0126}
0x14f6c…14f78               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00d6, t01=0x0132}
0x14f78…14fb2               Head {h00=0x0036, h01=0x0050, text=»**                  C H A D R                  ** «, t00=0x00d6, t01=0x013e}
0x14fb2…14fec               Head {h00=0x0036, h01=0x0050, text=»**                                             ** «, t00=0x00d6, t01=0x0178}
0x14fec…15026               Head {h00=0x0036, h01=0x0050, text=»**                                             ** «, t00=0x00d7, t01=0x0022}
0x15026…15060               Head {h00=0x0036, h01=0x0050, text=»**  CHANGE ADDRESS TO W.B. & D.T. IN T:A,      ** «, t00=0x00d7, t01=0x005c}
0x15060…1509a               Head {h00=0x0036, h01=0x0050, text=»**  BLOCKS ALREDY MOVED                        ** «, t00=0x00d7, t01=0x0096}
0x1509a…150d4               Head {h00=0x0036, h01=0x0050, text=»**                                             ** «, t00=0x00d7, t01=0x00d0}
0x150d4…1510e               Head {h00=0x0036, h01=0x0050, text=»**  INPUT : A6=POINTER IN T:ATAB TO T:A        ** «, t00=0x00d7, t01=0x010a}
0x1510e…15148               Head {h00=0x0036, h01=0x0050, text=»**          NEWADR1=NEW D.T.-ADDRESS           ** «, t00=0x00d7, t01=0x0144}
0x15148…15182               Head {h00=0x0036, h01=0x0050, text=»**          NEWAD2= NEW W.B.-ADDRESS           ** «, t00=0x00d7, t01=0x017e}
0x15182…151bc               Head {h00=0x0036, h01=0x0050, text=»**          TADISP=DISPLACEMENT TO WB-ADDR     ** «, t00=0x00d8, t01=0x0028}
0x151bc…151f6               Head {h00=0x0036, h01=0x0050, text=»**  WORK.REGS: A1,A2                           ** «, t00=0x00d8, t01=0x0062}
0x151f6…15230               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x00d8, t01=0x009c}
0x15230…1523c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00d8, t01=0x00d6}
0x1523c…15250               Head {h00=0x0010, h01=0x0050, text=»CHADR EQU * «, t00=0x00d8, t01=0x00e2}
0x15250…1526c               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00d8, t01=0x00f6}
0x1526c…1528c               Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A6 T:A-ADDRESS «, t00=0x00d8, t01=0x0112}
0x1528c…152be               Head {h00=0x002e, h01=0x0050, text=» AD A1,TADISP,A13 ADDRESS  TO W.B.-ADDRESS«, t00=0x00d8, t01=0x0132}
0x152be…152d8               Head {h00=0x0016, h01=0x0050, text=» LD A2,NEWAD2,A13 «, t00=0x00d8, t01=0x0164}
0x152d8…152ea               Head {h00=0x000e, h01=0x0050, text=» STR A2,A1«, t00=0x00d8, t01=0x017e}
0x152ea…15314               Head {h00=0x0026, h01=0x0050, text=» SUK A1,2 ADDRESS TO D.T.-ADDRESS «, t00=0x00d8, t01=0x0190}
0x15314…1532e               Head {h00=0x0016, h01=0x0050, text=» LD A2,NEWAD1,A13 «, t00=0x00d9, t01=0x002a}
0x1532e…15340               Head {h00=0x000e, h01=0x0050, text=» STR A2,A1«, t00=0x00d9, t01=0x0044}
0x15340…1534c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d9, t01=0x0056}
0x1534c…15368               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00d9, t01=0x0062}
0x15368…15386               Head {h00=0x001a, h01=0x0050, text=» ELR A1,A6 T:A-ADDRESS«, t00=0x00d9, t01=0x007e}
0x15386…153b8               Head {h00=0x002e, h01=0x0050, text=» AD A1,TADISP,A13 ADDRESS  TO W.B.-ADDRESS«, t00=0x00d9, t01=0x009c}
0x153b8…153d2               Head {h00=0x0016, h01=0x0050, text=» LD A2,NEWAD2,A13 «, t00=0x00d9, t01=0x00ce}
0x153d2…153e4               Head {h00=0x000e, h01=0x0050, text=» ESR A2,A1«, t00=0x00d9, t01=0x00e8}
0x153e4…1540e               Head {h00=0x0026, h01=0x0050, text=» SUK A1,2 ADDRESS TO D.T.-ADDRESS «, t00=0x00d9, t01=0x00fa}
0x1540e…15428               Head {h00=0x0016, h01=0x0050, text=» LD A2,NEWAD1,A13 «, t00=0x00d9, t01=0x0124}
0x15428…1543a               Head {h00=0x000e, h01=0x0050, text=» ESR A2,A1«, t00=0x00d9, t01=0x013e}
0x1543a…15446               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d9, t01=0x0150}
0x15446…1545c               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00d9, t01=0x015c}
0x1545c…1546c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00d9, t01=0x0172}
0x1546c…15478               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00d9, t01=0x0182}
0x15478…15494               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x00d9, t01=0x018e}
0x15494…154a2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00da, t01=0x001a}
0x154a2…154e8               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00da, t01=0x0028}
0x154e8…1552e               Head {h00=0x0042, h01=0x0050, text=»*                                                            *«, t00=0x00da, t01=0x006e}
0x1552e…15574               Head {h00=0x0042, h01=0x0050, text=»*                                                            *«, t00=0x00da, t01=0x00b4}
0x15574…155ba               Head {h00=0x0042, h01=0x0050, text=»*  B:RSWT - BUILD REAL SWB CONTROL TABLE                     *«, t00=0x00da, t01=0x00fa}
0x155ba…15600               Head {h00=0x0042, h01=0x0050, text=»*  =====================================                     *«, t00=0x00da, t01=0x0140}
0x15600…15646               Head {h00=0x0042, h01=0x0050, text=»*                                                            *«, t00=0x00da, t01=0x0186}
0x15646…1568c               Head {h00=0x0042, h01=0x0050, text=»*  REFERENCED IN:  SYSLDA                                    *«, t00=0x00db, t01=0x003c}
0x1568c…156d2               Head {h00=0x0042, h01=0x0050, text=»*                                                            *«, t00=0x00db, t01=0x0082}
0x156d2…15718               Head {h00=0x0042, h01=0x0050, text=»*  ENTRY:  A2 - POINTER TO FIRST RECORD IN REAL S:BTAB       *«, t00=0x00db, t01=0x00c8}
0x15718…1575e               Head {h00=0x0042, h01=0x0050, text=»*          A5 - LENGTH OF REAL S:BTAB                        *«, t00=0x00db, t01=0x010e}
0x1575e…157a4               Head {h00=0x0042, h01=0x0050, text=»*                                                            *«, t00=0x00db, t01=0x0154}
0x157a4…157ea               Head {h00=0x0042, h01=0x0050, text=»*  EXIT:                                                     *«, t00=0x00dc, t01=0x000a}
0x157ea…15830               Head {h00=0x0042, h01=0x0050, text=»*                                                            *«, t00=0x00dc, t01=0x0050}
0x15830…15876               Head {h00=0x0042, h01=0x0050, text=»*  WORK REGISTERS:  A1-A7                                    *«, t00=0x00dc, t01=0x0096}
0x15876…158bc               Head {h00=0x0042, h01=0x0050, text=»*                                                            *«, t00=0x00dc, t01=0x00dc}
0x158bc…15902               Head {h00=0x0042, h01=0x0050, text=»*  SUBROUTINES:                                              *«, t00=0x00dc, t01=0x0122}
0x15902…15948               Head {h00=0x0042, h01=0x0050, text=»*                                                            *«, t00=0x00dc, t01=0x0168}
0x15948…1598e               Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x00dd, t01=0x001e}
0x1598e…1599c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00dd, t01=0x0064}
0x1599c…159b0               Head {h00=0x0010, h01=0x0050, text=»B:RSWT EQU *«, t00=0x00dd, t01=0x0072}
0x159b0…159de               Head {h00=0x002a, h01=0x0050, text=» LDR A8,A2 SAVE POINTER TO FIRST BLOCK«, t00=0x00dd, t01=0x0086}
0x159de…15a0e               Head {h00=0x002c, h01=0x0050, text=» LD A1,SCTSWB POINTER TO SWB BLOCK TABLE«, t00=0x00dd, t01=0x00b4}
0x15a0e…15a3c               Head {h00=0x002a, h01=0x0050, text=» RF(Z) RSWBEX NO SWB:S IN APPLICATION «, t00=0x00dd, t01=0x00e4}
0x15a3c…15a60               Head {h00=0x0020, h01=0x0050, text=» LDR* A3,A1 NUMBER OF TYPES «, t00=0x00dd, t01=0x0112}
0x15a60…15a7e               Head {h00=0x001a, h01=0x0050, text=» RF(Z) RSWBEX NO MOORE«, t00=0x00dd, t01=0x0136}
0x15a7e…15aa0               Head {h00=0x001e, h01=0x0050, text=» SUK A5,2 SKIP LENGTH WORD«, t00=0x00dd, t01=0x0154}
0x15aa0…15ac2               Head {h00=0x001e, h01=0x0050, text=»RSWB10 ADK A1,2 NEXT TYPE «, t00=0x00dd, t01=0x0176}
0x15ac2…15ae6               Head {h00=0x0020, h01=0x0050, text=» LDR* A4,A1 POINTER TO BLOCK«, t00=0x00de, t01=0x0008}
0x15ae6…15b0a               Head {h00=0x0020, h01=0x0050, text=» LDR* A6,A4 NUMBER OF COPIES«, t00=0x00de, t01=0x002c}
0x15b0a…15b32               Head {h00=0x0024, h01=0x0050, text=» LD A7,SWBLEN,A4 LENGTH IN BYTES«, t00=0x00de, t01=0x0050}
0x15b32…15b3e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00de, t01=0x0078}
0x15b3e…15b5a               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x00de, t01=0x0084}
0x15b5a…15b84               Head {h00=0x0026, h01=0x0050, text=» ES A6,2,A2 STORE NUMBER OF COPIES«, t00=0x00de, t01=0x00a0}
0x15b84…15bb4               Head {h00=0x002c, h01=0x0050, text=» ES A7,4,A2 STORE LENGTH OF SWB IN BYTES«, t00=0x00de, t01=0x00ca}
0x15bb4…15bc0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00de, t01=0x00fa}
0x15bc0…15bdc               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x00de, t01=0x0106}
0x15bdc…15c06               Head {h00=0x0026, h01=0x0050, text=» ST A6,2,A2 STORE NUMBER OF COPIES«, t00=0x00de, t01=0x0122}
0x15c06…15c36               Head {h00=0x002c, h01=0x0050, text=» ST A7,4,A2 STORE LENGTH OF SWB IN BYTES«, t00=0x00de, t01=0x014c}
0x15c36…15c42               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00de, t01=0x017c}
0x15c42…15c5e               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x00de, t01=0x0188}
0x15c5e…15c88               Head {h00=0x0026, h01=0x0050, text=» SUK A5,6 DECREMENTS S:BTAB LENGTH«, t00=0x00df, t01=0x0014}
0x15c88…15cb4               Head {h00=0x0028, h01=0x0050, text=» ADK A2,6 INCREMENT POINTER IN BLOCK«, t00=0x00df, t01=0x003e}
0x15cb4…15ce0               Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT NUMBER OF TYPES «, t00=0x00df, t01=0x006a}
0x15ce0…15cf6               Head {h00=0x0012, h01=0x0050, text=» RB(P) RSWB10 «, t00=0x00df, t01=0x0096}
0x15cf6…15d08               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x00df, t01=0x00ac}
0x15d08…15d12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x00be}
0x15d12…15d4a               Head {h00=0x0034, h01=0x0050, text=»*  INIT POINTERS TO TID BLOCKS FOR EACH SWB TYPE«, t00=0x00df, t01=0x00c8}
0x15d4a…15d76               Head {h00=0x0028, h01=0x0050, text=»*  AND RESET ALL WORDS IN TID BLOCKS«, t00=0x00df, t01=0x0100}
0x15d76…15d80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00df, t01=0x012c}
0x15d80…15d94               Head {h00=0x0010, h01=0x0050, text=»RSWB20 EQU *«, t00=0x00df, t01=0x0136}
0x15d94…15dc0               Head {h00=0x0028, h01=0x0050, text=» LDR A6,A2 GET ADDRESS TO TID BLOCK «, t00=0x00df, t01=0x014a}
0x15dc0…15de8               Head {h00=0x0024, h01=0x0050, text=» SUR A6,A8 COMPUTE DISPLACEMENT «, t00=0x00df, t01=0x0176}
0x15de8…15e04               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x00e0, t01=0x000e}
0x15e04…15e28               Head {h00=0x0020, h01=0x0050, text=» LD A1,2,A8 NUMBER OF COPIES«, t00=0x00e0, t01=0x002a}
0x15e28…15e48               Head {h00=0x001c, h01=0x0050, text=» RF(Z) RSWB50 NO COPIES!«, t00=0x00e0, t01=0x004e}
0x15e48…15e76               Head {h00=0x002a, h01=0x0050, text=» STR A6,A8 STORE POINTER TO TID BLOCK «, t00=0x00e0, t01=0x006e}
0x15e76…15e98               Head {h00=0x001e, h01=0x0050, text=»RSWB30 STR A3,A2 RESET TID«, t00=0x00e0, t01=0x009c}
0x15e98…15ec8               Head {h00=0x002c, h01=0x0050, text=» ADK A2,2 INCREMENT POINTER IN TID BLOCK«, t00=0x00e0, t01=0x00be}
0x15ec8…15efa               Head {h00=0x002e, h01=0x0050, text=» SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB «, t00=0x00e0, t01=0x00ee}
0x15efa…15f22               Head {h00=0x0024, h01=0x0050, text=» SUK A1,1 DECR. NUMBER OF COPIES«, t00=0x00e0, t01=0x0120}
0x15f22…15f42               Head {h00=0x001c, h01=0x0050, text=» RB(P) RSWB30 NEXT COPY «, t00=0x00e0, t01=0x0148}
0x15f42…15f4e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e0, t01=0x0168}
0x15f4e…15f6a               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x00e0, t01=0x0174}
0x15f6a…15f92               Head {h00=0x0024, h01=0x0050, text=» EL A1,2,A8 GET NUMBER OF COPIES«, t00=0x00e0, t01=0x0190}
0x15f92…15fb2               Head {h00=0x001c, h01=0x0050, text=» RF(Z) RSWB50 NO COPIES!«, t00=0x00e1, t01=0x0028}
0x15fb2…15fe0               Head {h00=0x002a, h01=0x0050, text=» ESR A6,A8 STORE POINTER TO TID BLOCK «, t00=0x00e1, t01=0x0048}
0x15fe0…16002               Head {h00=0x001e, h01=0x0050, text=»RSWB40 ESR A3,A2 RESET TID«, t00=0x00e1, t01=0x0076}
0x16002…16032               Head {h00=0x002c, h01=0x0050, text=» ADK A2,2 INCREMENT POINTER IN TID BLOCK«, t00=0x00e1, t01=0x0098}
0x16032…16064               Head {h00=0x002e, h01=0x0050, text=» SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB «, t00=0x00e1, t01=0x00c8}
0x16064…16090               Head {h00=0x0028, h01=0x0050, text=» SUK A1,1 DECREMENT NUMBER OF COPIES«, t00=0x00e1, t01=0x00fa}
0x16090…160b0               Head {h00=0x001c, h01=0x0050, text=» RB(P) RSWB40 NEXT COPY «, t00=0x00e1, t01=0x0126}
0x160b0…160bc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e1, t01=0x0146}
0x160bc…160d8               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x00e1, t01=0x0152}
0x160d8…160f0               Head {h00=0x0014, h01=0x0050, text=»RSWB50 ADKL A8,6«, t00=0x00e1, t01=0x016e}
0x160f0…16102               Head {h00=0x000e, h01=0x0050, text=» CWR A8,A4«, t00=0x00e1, t01=0x0186}
0x16102…16118               Head {h00=0x0012, h01=0x0050, text=» RB(NE) RSWB20«, t00=0x00e2, t01=0x0008}
0x16118…1613e               Head {h00=0x0022, h01=0x0050, text=» LDR A5,A5 S:BTAB CONSISTENT? «, t00=0x00e2, t01=0x001e}
0x1613e…16158               Head {h00=0x0016, h01=0x0050, text=» RF(Z) RSWBEX YES «, t00=0x00e2, t01=0x0044}
0x16158…16178               Head {h00=0x001c, h01=0x0050, text=» LDKL A1,LMP6 SWB ERROR!«, t00=0x00e2, t01=0x005e}
0x16178…1618c               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x00e2, t01=0x007e}
0x1618c…161a2               Head {h00=0x0012, h01=0x0050, text=»RSWBEX RTN A14«, t00=0x00e2, t01=0x0092}
0x161a2…161ae               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e2, t01=0x00a8}
0x161ae…161c4               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00e2, t01=0x00b4}
0x161c4…161d2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00e2, t01=0x00ca}
0x161d2…161da               Head {h00=0x0004, h01=0x0050, t00=0x00e2, t01=0x00d8}
0x161da…161fe               Head {h00=0x0020, h01=0x0050, text=»* **************************«, t00=0x00e2, t01=0x00e0}
0x161fe…16224               Head {h00=0x0022, h01=0x0050, text=»* START OF PROGRAM PART 2.A * «, t00=0x00e2, t01=0x0104}
0x16224…1624a               Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x00e2, t01=0x012a}
0x1624a…16252               Head {h00=0x0004, h01=0x0050, t00=0x00e2, t01=0x0150}
0x16252…16270               Head {h00=0x001a, h01=0x0050, text=»* LOAD BASE ADDRESS * «, t00=0x00e2, t01=0x0158}
0x16270…1628e               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x00e2, t01=0x0176}
0x1628e…162a8 (227, 0, 400) Head {h00=0x0016, h01=0x0050, text=»* A5=START-ADDRESS«, t00=0x00e3, t01=0x0004}
0x162a8…162c4               Head {h00=0x0018, h01=0x0050, text=»* A9=P:MTAB ADDRESS «, t00=0x00e3, t01=0x001e}
0x162c4…162e4               Head {h00=0x001c, h01=0x0050, text=»* SAVE03=DDIV TO-ADDRESS«, t00=0x00e3, t01=0x003a}
0x162e4…16306               Head {h00=0x001e, h01=0x0050, text=»* SAVE04=DDIV FROM ADDRESS«, t00=0x00e3, t01=0x005a}
0x16306…1632c               Head {h00=0x0022, h01=0x0050, text=»* SAVE05=LENGTH OF REAL T:ATAB«, t00=0x00e3, t01=0x007c}
0x1632c…16352               Head {h00=0x0022, h01=0x0050, text=»* SAVE06=LENGTH OF REAL U:BTAB«, t00=0x00e3, t01=0x00a2}
0x16352…1635e               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00e3, t01=0x00c8}
0x1635e…16376               Head {h00=0x0014, h01=0x0050, text=»START2 EQU *-REL«, t00=0x00e3, t01=0x00d4}
0x16376…1639c               Head {h00=0x0022, h01=0x0050, text=» LDR A8,P LOAD TEMP. STACKBASE«, t00=0x00e3, t01=0x00ec}
0x1639c…163c8               Head {h00=0x0028, h01=0x0050, text=» ADK A5,2 ADD FOR RELOCATION ROUTINE«, t00=0x00e3, t01=0x0112}
0x163c8…163da               Head {h00=0x000e, h01=0x0050, text=» CFR A8,A5«, t00=0x00e3, t01=0x013e}
0x163da…163f0               Head {h00=0x0012, h01=0x0050, text=»* MOVE DDIV * «, t00=0x00e3, t01=0x0150}
0x163f0…163f8               Head {h00=0x0004, h01=0x0050, t00=0x00e3, t01=0x0166}
0x163f8…16422               Head {h00=0x0026, h01=0x0050, text=» LD A1,SAVE04,A13 GET FROM-ADDRESS«, t00=0x00e3, t01=0x016e}
0x16422…1644a               Head {h00=0x0024, h01=0x0050, text=» LD A2,SAVE03,A13 GET TO ADDRESS«, t00=0x00e4, t01=0x0008}
0x1644a…1647c               Head {h00=0x002e, h01=0x0050, text=» LDR A3,A9 GET P:MTAB START (=END OF DDIV «, t00=0x00e4, t01=0x0030}
0x1647c…16498               Head {h00=0x0018, h01=0x0050, text=» SUR A3,A1 => LENGTH«, t00=0x00e4, t01=0x0062}
0x16498…164a4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e4, t01=0x007e}
0x164a4…164c0               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00e4, t01=0x008a}
0x164c0…164f2               Head {h00=0x002e, h01=0x0050, text=» LD A8,SCTNOS ANY SEGMENTS IN APPLICATION?«, t00=0x00e4, t01=0x00a6}
0x164f2…1650c               Head {h00=0x0016, h01=0x0050, text=» RF(Z) NOSGMT NO! «, t00=0x00e4, t01=0x00d8}
0x1650c…16538               Head {h00=0x0028, h01=0x0050, text=» LDKL A8,0 RESET FSTADR IF SEGMENTS!«, t00=0x00e4, t01=0x00f2}
0x16538…1654a               Head {h00=0x000e, h01=0x0050, text=» RF SEGMTS«, t00=0x00e4, t01=0x011e}
0x1654a…16580               Head {h00=0x0032, h01=0x0050, text=»NOSGMT LD A8,SCTSFA ALLOCATE BUFFERS FROM TOP «, t00=0x00e4, t01=0x0130}
0x16580…165a6               Head {h00=0x0022, h01=0x0050, text=»SEGMTS ST A8,FSTADR,A13 STORE «, t00=0x00e4, t01=0x0166}
0x165a6…165c8               Head {h00=0x001e, h01=0x0050, text=»MOVNXT LDR* A4,A1 GET WORD«, t00=0x00e4, t01=0x018c}
0x165c8…165e0               Head {h00=0x0014, h01=0x0050, text=» STR A4,A2 STORE«, t00=0x00e5, t01=0x001e}
0x165e0…165f2               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x00e5, t01=0x0036}
0x165f2…16604               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00e5, t01=0x0048}
0x16604…16620               Head {h00=0x0018, h01=0x0050, text=» SUK A3,2 DEC LENGTH«, t00=0x00e5, t01=0x005a}
0x16620…16636               Head {h00=0x0012, h01=0x0050, text=» RB(NN) MOVNXT«, t00=0x00e5, t01=0x0076}
0x16636…16642               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e5, t01=0x008c}
0x16642…1665e               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00e5, t01=0x0098}
0x1665e…16672               Head {h00=0x0010, h01=0x0050, text=» CALL XMOVE «, t00=0x00e5, t01=0x00b4}
0x16672…1669c               Head {h00=0x0026, h01=0x0050, text=»* REMOVE DDIV ENTRIES IN MM-TABLE «, t00=0x00e5, t01=0x00c8}
0x1669c…166a4               Head {h00=0x0004, h01=0x0050, t00=0x00e5, t01=0x00f2}
0x166a4…166ca               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 GET P:MTAB ADDRESS «, t00=0x00e5, t01=0x00fa}
0x166ca…166f2               Head {h00=0x0024, h01=0x0050, text=» SRL A1,11 ADJUST FOR ADDRESSING«, t00=0x00e5, t01=0x0120}
0x166f2…16706               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/1E «, t00=0x00e5, t01=0x0148}
0x16706…16730               Head {h00=0x0026, h01=0x0050, text=» LDK A2,MMTAB-2 GET TABLE ADDRESS «, t00=0x00e5, t01=0x015c}
0x16730…1674c               Head {h00=0x0018, h01=0x0050, text=» ADR A2,A13 RELOCATE«, t00=0x00e5, t01=0x0186}
0x1674c…16772               Head {h00=0x0022, h01=0x0050, text=» ADR A1,A2 P:MTAB START ENTRY «, t00=0x00e6, t01=0x0012}
0x16772…16788               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/FC00«, t00=0x00e6, t01=0x0038}
0x16788…167a6               Head {h00=0x001a, h01=0x0050, text=»SYA205 CWR A1,A2 ALL? «, t00=0x00e6, t01=0x004e}
0x167a6…167c0               Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA207 YES!«, t00=0x00e6, t01=0x006c}
0x167c0…167f0               Head {h00=0x002c, h01=0x0050, text=» STR A4,A1 REPLACE ENTRY WITH PAGE ERROR«, t00=0x00e6, t01=0x0086}
0x167f0…16802               Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x00e6, t01=0x00b6}
0x16802…16814               Head {h00=0x000e, h01=0x0050, text=» RB SYA205«, t00=0x00e6, t01=0x00c8}
0x16814…16828               Head {h00=0x0010, h01=0x0050, text=»SYA207 EQU *«, t00=0x00e6, t01=0x00da}
0x16828…16848               Head {h00=0x001c, h01=0x0050, text=»* CHANGE TABLE-ADDRESSES«, t00=0x00e6, t01=0x00ee}
0x16848…16862               Head {h00=0x0016, h01=0x0050, text=» LD A4,MMFROM,A13 «, t00=0x00e6, t01=0x010e}
0x16862…1687a               Head {h00=0x0014, h01=0x0050, text=» LD A5,MMTO,A13 «, t00=0x00e6, t01=0x0128}
0x1687a…16892               Head {h00=0x0014, h01=0x0050, text=» ST A4,MMTO,A13 «, t00=0x00e6, t01=0x0140}
0x16892…168ac               Head {h00=0x0016, h01=0x0050, text=» ST A5,MMFROM,A13 «, t00=0x00e6, t01=0x0158}
0x168ac…168b8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e6, t01=0x0172}
0x168b8…168ce               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00e6, t01=0x017e}
0x168ce…168f2 (231, 0, 400) Head {h00=0x0020, h01=0x0050, text=» ANKL A9,/FFFE EVEN ADDRESS «, t00=0x00e7, t01=0x0004}
0x168f2…16922               Head {h00=0x002c, h01=0x0050, text=» ST A9,LSTADR,A13 SAVE END OF FREE AREA «, t00=0x00e7, t01=0x0028}
0x16922…1692a               Head {h00=0x0004, h01=0x0050, t00=0x00e7, t01=0x0058}
0x1692a…16932               Head {h00=0x0004, h01=0x0050, t00=0x00e7, t01=0x0060}
0x16932…1693e               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00e7, t01=0x0068}
0x1693e…16970               Head {h00=0x002e, h01=0x0050, text=»* RESERVE SPACE FOR REAL T:A- AND U:BTAB *«, t00=0x00e7, t01=0x0074}
0x16970…16978               Head {h00=0x0004, h01=0x0050, t00=0x00e7, t01=0x00a6}
0x16978…16994               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00e7, t01=0x00ae}
0x16994…169c0               Head {h00=0x0028, h01=0x0050, text=» LDKL A3,MMTAB GET CURRENT MM-TABLE «, t00=0x00e7, t01=0x00ca}
0x169c0…169d4               Head {h00=0x0010, h01=0x0050, text=» ADR A3,A13 «, t00=0x00e7, t01=0x00f6}
0x169d4…16a04               Head {h00=0x002c, h01=0x0050, text=»* FIND LAST USED ENTRY IN REAL MMUTAB * «, t00=0x00e7, t01=0x010a}
0x16a04…16a0c               Head {h00=0x0004, h01=0x0050, t00=0x00e7, t01=0x013a}
0x16a0c…16a20               Head {h00=0x0010, h01=0x0050, text=» CALL MMENT «, t00=0x00e7, t01=0x0142}
0x16a20…16a38               Head {h00=0x0014, h01=0x0050, text=» ST A9,TTAB,A13 «, t00=0x00e7, t01=0x0156}
0x16a38…16a66               Head {h00=0x002a, h01=0x0050, text=» ST A1,FYSPAG,A13 SAVE PHYSICALL PAGE «, t00=0x00e7, t01=0x016e}
0x16a66…16a94               Head {h00=0x002a, h01=0x0050, text=» LD A3,SAVE05,A13 GET LENGTH OF T:ATAB«, t00=0x00e8, t01=0x000c}
0x16a94…16aac               Head {h00=0x0014, h01=0x0050, text=» LDR A5,A3 SAVE «, t00=0x00e8, t01=0x003a}
0x16aac…16ada               Head {h00=0x002a, h01=0x0050, text=» CALL MOVING RESERVE SPACE FOR T:ATAB «, t00=0x00e8, t01=0x0052}
0x16ada…16b02               Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 SET CORRECT TABLE «, t00=0x00e8, t01=0x0080}
0x16b02…16b28               Head {h00=0x0022, h01=0x0050, text=» ESR A5,A2 STORE T:ATAB LENGTH«, t00=0x00e8, t01=0x00a8}
0x16b28…16b5a               Head {h00=0x002e, h01=0x0050, text=» ST A2,T:ATNW,A13 SAVE NEW T:ATAB ADDRESS «, t00=0x00e8, t01=0x00ce}
0x16b5a…16b7c               Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 SKIP LENGTH WORD«, t00=0x00e8, t01=0x0100}
0x16b7c…16ba4               Head {h00=0x0024, h01=0x0050, text=» LD A9,SCTLAC GET P:MTAB ADDRESS«, t00=0x00e8, t01=0x0122}
0x16ba4…16bcc               Head {h00=0x0024, h01=0x0050, text=» ES A2,T:ATAB,A9 STORE IN P:MTAB«, t00=0x00e8, t01=0x014a}
0x16bcc…16bf4               Head {h00=0x0024, h01=0x0050, text=»* RESERVE PLACE FOR T:AID TABLE «, t00=0x00e8, t01=0x0172}
0x16bf4…16bfc               Head {h00=0x0004, h01=0x0050, t00=0x00e9, t01=0x000a}
0x16bfc…16c1a               Head {h00=0x001a, h01=0x0050, text=» LDR A3,A5 GET LENGTH «, t00=0x00e9, t01=0x0012}
0x16c1a…16c2e               Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x00e9, t01=0x0030}
0x16c2e…16c44               Head {h00=0x0012, h01=0x0050, text=» TL* MMTO,A13 «, t00=0x00e9, t01=0x0044}
0x16c44…16c62               Head {h00=0x001a, h01=0x0050, text=» LDR A3,A9 GET P:MTAB «, t00=0x00e9, t01=0x005a}
0x16c62…16c8c               Head {h00=0x0026, h01=0x0050, text=» ADK A3,T:AID ADD TO ADDRESS WORD «, t00=0x00e9, t01=0x0078}
0x16c8c…16cc0               Head {h00=0x0030, h01=0x0050, text=» ESR A5,A2 STORE TABLE LENGTH IN T:TID-TABLE«, t00=0x00e9, t01=0x00a2}
0x16cc0…16ce6               Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 ADJUST TABLE ADDRESS«, t00=0x00e9, t01=0x00d6}
0x16ce6…16d08               Head {h00=0x001e, h01=0x0050, text=» ESR A2,A3 STORE IN P:MTAB«, t00=0x00e9, t01=0x00fc}
0x16d08…16d14               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00e9, t01=0x011e}
0x16d14…16d2a               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00e9, t01=0x012a}
0x16d2a…16d56               Head {h00=0x0028, h01=0x0050, text=» LD A3,SAVE06,A13 GET U:BTAB LENGTH «, t00=0x00e9, t01=0x0140}
0x16d56…16d6e               Head {h00=0x0014, h01=0x0050, text=» LDR A5,A3 SAVE «, t00=0x00e9, t01=0x016c}
0x16d6e…16d90               Head {h00=0x001e, h01=0x0050, text=» CALL MOVING RESERVE SPACE«, t00=0x00e9, t01=0x0184}
0x16d90…16dc8               Head {h00=0x0034, h01=0x0050, text=» ST A2,U:BTNW,A13 SAVE NEW (REAL) U:BTAB ADDRESS«, t00=0x00ea, t01=0x0016}
0x16dc8…16de4               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00ea, t01=0x004e}
0x16de4…16e04               Head {h00=0x001c, h01=0x0050, text=» STR A5,A2 STORE LENGTH «, t00=0x00ea, t01=0x006a}
0x16e04…16e16               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00ea, t01=0x008a}
0x16e16…16e54               Head {h00=0x003a, h01=0x0050, text=» ST A2,U:BTAB,A9 SAVE 'REAL' U:BTAB-ADDRESS IN P:MTAB «, t00=0x00ea, t01=0x009c}
0x16e54…16e82               Head {h00=0x002a, h01=0x0050, text=» LD A3,SAVE05,A13 GET LENGTH OF T:ATAB«, t00=0x00ea, t01=0x00da}
0x16e82…16e9a               Head {h00=0x0014, h01=0x0050, text=» LDR A5,A3 SAVE «, t00=0x00ea, t01=0x0108}
0x16e9a…16ec8               Head {h00=0x002a, h01=0x0050, text=» CALL MOVING RESERVE SPACE FOR T:ATAB «, t00=0x00ea, t01=0x0120}
0x16ec8…16eee               Head {h00=0x0022, h01=0x0050, text=» STR A5,A2 STORE T:ATAB LENGTH«, t00=0x00ea, t01=0x014e}
0x16eee…16f20               Head {h00=0x002e, h01=0x0050, text=» ST A2,T:ATNW,A13 SAVE NEW T:ATAB ADDRESS «, t00=0x00ea, t01=0x0174}
0x16f20…16f32               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00eb, t01=0x0016}
0x16f32…16f5c               Head {h00=0x0026, h01=0x0050, text=» ST A2,T:ATAB,A9 SAVE REAL ADDRESS«, t00=0x00eb, t01=0x0028}
0x16f5c…16f7e               Head {h00=0x001e, h01=0x0050, text=»* RESERVE FOR T:AID TABLE «, t00=0x00eb, t01=0x0052}
0x16f7e…16f86               Head {h00=0x0004, h01=0x0050, t00=0x00eb, t01=0x0074}
0x16f86…16fa0               Head {h00=0x0016, h01=0x0050, text=» LDR A3,A5 LENGTH «, t00=0x00eb, t01=0x007c}
0x16fa0…16fb4               Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x00eb, t01=0x0096}
0x16fb4…16fd4               Head {h00=0x001c, h01=0x0050, text=» STR A5,A2 STORE LENGTH «, t00=0x00eb, t01=0x00aa}
0x16fd4…16ffc               Head {h00=0x0024, h01=0x0050, text=» ADK A2,2 ADJUST FOR LENGTH-WORD«, t00=0x00eb, t01=0x00ca}
0x16ffc…1702c               Head {h00=0x002c, h01=0x0050, text=» ST A2,T:AID,A9 STORE ADDRESS IN P:MTAB «, t00=0x00eb, t01=0x00f2}
0x1702c…17038               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00eb, t01=0x0122}
0x17038…17054               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00eb, t01=0x012e}
0x17054…1707c               Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 SET CORRECT TABLE «, t00=0x00eb, t01=0x014a}
0x1707c…1709c               Head {h00=0x001c, h01=0x0050, text=» ESR A5,A2 STORE LENGTH «, t00=0x00eb, t01=0x0172}
0x1709c…170be (236, 0, 400) Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 SKIP LENGTH WORD«, t00=0x00ec, t01=0x0004}
0x170be…170e6               Head {h00=0x0024, h01=0x0050, text=» ES A2,U:BTAB,A9 STORE IN P:MTAB«, t00=0x00ec, t01=0x0026}
0x170e6…170f2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ec, t01=0x004e}
0x170f2…1710e               Head {h00=0x0018, h01=0x0050, text=» IFT SWPBLK+CREDIT=2«, t00=0x00ec, t01=0x005a}
0x1710e…17118               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ec, t01=0x0076}
0x17118…17146               Head {h00=0x002a, h01=0x0050, text=»*  RESERV SPACE FOR REAL S:BTAB TABLE «, t00=0x00ec, t01=0x0080}
0x17146…17150               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00ec, t01=0x00ae}
0x17150…17180               Head {h00=0x002c, h01=0x0050, text=» LD A3,SAVE25,A13 LENGTH OF REAL S:BTAB «, t00=0x00ec, t01=0x00b8}
0x17180…17198               Head {h00=0x0014, h01=0x0050, text=» LDR A5,A3 SAVE «, t00=0x00ec, t01=0x00e8}
0x17198…171ac               Head {h00=0x0010, h01=0x0050, text=» CALL MOVING«, t00=0x00ec, t01=0x0100}
0x171ac…171c6               Head {h00=0x0016, h01=0x0050, text=» ST A2,S:BTNW,A13 «, t00=0x00ec, t01=0x0114}
0x171c6…171d2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ec, t01=0x012e}
0x171d2…171ee               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x00ec, t01=0x013a}
0x171ee…17204               Head {h00=0x0012, h01=0x0050, text=» TL* MMTO,A13 «, t00=0x00ec, t01=0x0156}
0x17204…17216               Head {h00=0x000e, h01=0x0050, text=» ESR A5,A2«, t00=0x00ec, t01=0x016c}
0x17216…17228               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00ec, t01=0x017e}
0x17228…17240               Head {h00=0x0014, h01=0x0050, text=» ES A2,S:BTAB,A9«, t00=0x00ec, t01=0x0190}
0x17240…17254               Head {h00=0x0010, h01=0x0050, text=» CALL B:RSWT«, t00=0x00ed, t01=0x0018}
0x17254…17260               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ed, t01=0x002c}
0x17260…1727c               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x00ed, t01=0x0038}
0x1727c…1728e               Head {h00=0x000e, h01=0x0050, text=» STR A5,A2«, t00=0x00ed, t01=0x0054}
0x1728e…172a0               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x00ed, t01=0x0066}
0x172a0…172b8               Head {h00=0x0014, h01=0x0050, text=» ST A2,S:BTAB,A9«, t00=0x00ed, t01=0x0078}
0x172b8…172cc               Head {h00=0x0010, h01=0x0050, text=» CALL B:RSWT«, t00=0x00ed, t01=0x0090}
0x172cc…172d8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ed, t01=0x00a4}
0x172d8…172f4               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00ed, t01=0x00b0}
0x172f4…1731a               Head {h00=0x0022, h01=0x0050, text=» TL* MMFROM,A13 RELOAD  TABLE «, t00=0x00ed, t01=0x00cc}
0x1731a…17326               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ed, t01=0x00f2}
0x17326…1733c               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00ed, t01=0x00fe}
0x1733c…1734a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ed, t01=0x0114}
0x1734a…17356               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00ed, t01=0x0122}
0x17356…17378               Head {h00=0x001e, h01=0x0050, text=»* BUILD COMMON DATA AREA *«, t00=0x00ed, t01=0x012e}
0x17378…1739a               Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x00ed, t01=0x0150}
0x1739a…173b2               Head {h00=0x0014, h01=0x0050, text=»* SEARCH CWB'S: «, t00=0x00ed, t01=0x0172}
0x173b2…173be               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00ed, t01=0x018a}
0x173be…173ea               Head {h00=0x0028, h01=0x0050, text=» LD A8,T:ATOD,A13 GET T:ATAB ADDRESS«, t00=0x00ee, t01=0x0008}
0x173ea…17406               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00ee, t01=0x0034}
0x17406…17424               Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A8 GET LENGTH«, t00=0x00ee, t01=0x0050}
0x17424…17430               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ee, t01=0x006e}
0x17430…1744c               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00ee, t01=0x007a}
0x1744c…1746a               Head {h00=0x001a, h01=0x0050, text=» ELR A3,A8 GET LENGTH «, t00=0x00ee, t01=0x0096}
0x1746a…17476               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ee, t01=0x00b4}
0x17476…1748c               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00ee, t01=0x00c0}
0x1748c…1749e               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A8«, t00=0x00ee, t01=0x00d6}
0x1749e…174d2               Head {h00=0x0030, h01=0x0050, text=» ST A3,ENDADD,A13 SAVE END OF T:ATAB ADDRESS«, t00=0x00ee, t01=0x00e8}
0x174d2…174e6               Head {h00=0x0010, h01=0x0050, text=»SYA210 EQU *«, t00=0x00ee, t01=0x011c}
0x174e6…17510               Head {h00=0x0026, h01=0x0050, text=» CM UWB,A13 INDICATE CWB-SCANNING «, t00=0x00ee, t01=0x0130}
0x17510…17522               Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x00ee, t01=0x015a}
0x17522…17546               Head {h00=0x0020, h01=0x0050, text=» CW A8,ENDADD,A13 ALL DONE? «, t00=0x00ee, t01=0x016c}
0x17546…17560               Head {h00=0x0016, h01=0x0050, text=» RF(E) CLADAT YES!«, t00=0x00ee, t01=0x0190}
0x17560…17588               Head {h00=0x0024, h01=0x0050, text=» CALL T:DADD T:D-ADDRESS TO A12 «, t00=0x00ef, t01=0x001a}
0x17588…175a4               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00ef, t01=0x0042}
0x175a4…175ca               Head {h00=0x0022, h01=0x0050, text=» LD A7,CWBMSK,A12 GET CWB-MASK«, t00=0x00ef, t01=0x005e}
0x175ca…175d6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ef, t01=0x0084}
0x175d6…175f2               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00ef, t01=0x0090}
0x175f2…1760c               Head {h00=0x0016, h01=0x0050, text=» EL A7,CWBMSK,A12 «, t00=0x00ef, t01=0x00ac}
0x1760c…17618               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00ef, t01=0x00c6}
0x17618…1762e               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00ef, t01=0x00d2}
0x1762e…1764e               Head {h00=0x001c, h01=0x0050, text=» CALL SHIFT SUPER-LOOPA «, t00=0x00ef, t01=0x00e8}
0x1764e…1766e               Head {h00=0x001c, h01=0x0050, text=»SYA220 RF(Z) UWBCOM ALL!«, t00=0x00ef, t01=0x0108}
0x1766e…17682               Head {h00=0x0010, h01=0x0050, text=» CALL MOVCOM«, t00=0x00ef, t01=0x0128}
0x17682…17696               Head {h00=0x0010, h01=0x0050, text=» CALL SKIFTA«, t00=0x00ef, t01=0x013c}
0x17696…176a8               Head {h00=0x000e, h01=0x0050, text=» RB SYA220«, t00=0x00ef, t01=0x0150}
0x176a8…176b6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00ef, t01=0x0162}
0x176b6…176c2               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00ef, t01=0x0170}
0x176c2…176ce               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00ef, t01=0x017c}
0x176ce…176e2               Head {h00=0x0010, h01=0x0050, text=»UWBCOM EQU *«, t00=0x00ef, t01=0x0188}
0x176e2…176fa               Head {h00=0x0014, h01=0x0050, text=»* SEARCH UWB'S: «, t00=0x00f0, t01=0x000c}
0x176fa…17704               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x00f0, t01=0x0024}
0x17704…1772e               Head {h00=0x0026, h01=0x0050, text=» IM UWB,A13 INDICATE UWB-SCANNING «, t00=0x00f0, t01=0x002e}
0x1772e…1774a               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f0, t01=0x0058}
0x1774a…17764               Head {h00=0x0016, h01=0x0050, text=» LD A7,UWBMSK,A12 «, t00=0x00f0, t01=0x0074}
0x17764…17770               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f0, t01=0x008e}
0x17770…1778c               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f0, t01=0x009a}
0x1778c…177a6               Head {h00=0x0016, h01=0x0050, text=» EL A7,UWBMSK,A12 «, t00=0x00f0, t01=0x00b6}
0x177a6…177b2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f0, t01=0x00d0}
0x177b2…177c8               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f0, t01=0x00dc}
0x177c8…177dc               Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x00f0, t01=0x00f2}
0x177dc…17802               Head {h00=0x0022, h01=0x0050, text=»SYA230 RB(Z) SYA210 ALL DONE! «, t00=0x00f0, t01=0x0106}
0x17802…1781c               Head {h00=0x0016, h01=0x0050, text=»SYA235 CALL MOVCOM«, t00=0x00f0, t01=0x012c}
0x1781c…17836               Head {h00=0x0016, h01=0x0050, text=»SYA240 CALL SKIFTA«, t00=0x00f0, t01=0x0146}
0x17836…17848               Head {h00=0x000e, h01=0x0050, text=» RB SYA230«, t00=0x00f0, t01=0x0160}
0x17848…17856               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f0, t01=0x0172}
0x17856…17862               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00f0, t01=0x0180}
0x17862…17890               Head {h00=0x002a, h01=0x0050, text=»* TASK CLASS DATA CONFIGURATION PART *«, t00=0x00f0, t01=0x018c}
0x17890…178be               Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x00f1, t01=0x002a}
0x178be…178c6               Head {h00=0x0004, h01=0x0050, t00=0x00f1, t01=0x0058}
0x178c6…178da               Head {h00=0x0010, h01=0x0050, text=»CLADAT EQU *«, t00=0x00f1, t01=0x0060}
0x178da…17912               Head {h00=0x0034, h01=0x0050, text=» LD A8,T:ATOD,A13 SET POINTER TO LENGTH INT:ATAB«, t00=0x00f1, t01=0x0074}
0x17912…1792e               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f1, t01=0x00ac}
0x1792e…17954               Head {h00=0x0022, h01=0x0050, text=»SYA250 CM UWB,A13 INDICATE CWB«, t00=0x00f1, t01=0x00c8}
0x17954…17980               Head {h00=0x0028, h01=0x0050, text=» ADKL A8,2 STEP TO NEXT T:A ADDRESS «, t00=0x00f1, t01=0x00ee}
0x17980…1799a               Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x00f1, t01=0x011a}
0x1799a…179be               Head {h00=0x0020, h01=0x0050, text=» RF(E) SYA270 ALL T:A'S DONE«, t00=0x00f1, t01=0x0134}
0x179be…179ea               Head {h00=0x0028, h01=0x0050, text=» CALL T:DADD GET T:D ADDRESS TO A12 «, t00=0x00f1, t01=0x0158}
0x179ea…179f2               Head {h00=0x0004, h01=0x0050, t00=0x00f1, t01=0x0184}
0x179f2…17a14               Head {h00=0x001e, h01=0x0050, text=»* CALCULATE LENGTH OF T:D «, t00=0x00f1, t01=0x018c}
0x17a14…17a1c               Head {h00=0x0004, h01=0x0050, t00=0x00f2, t01=0x001e}
0x17a1c…17a52               Head {h00=0x0032, h01=0x0050, text=» LD A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB«, t00=0x00f2, t01=0x0026}
0x17a52…17a64               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x00f2, t01=0x005c}
0x17a64…17a88               Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFE EVEN ADDRESS «, t00=0x00f2, t01=0x006e}
0x17a88…17ab4               Head {h00=0x0028, h01=0x0050, text=» ADK A1,DWBFST+4 ADD DISPL. TO FIRST«, t00=0x00f2, t01=0x0092}
0x17ab4…17ae2               Head {h00=0x002a, h01=0x0050, text=» LDR A3,A1 GET NUMBER OF START-POINTS «, t00=0x00f2, t01=0x00be}
0x17ae2…17b06               Head {h00=0x0020, h01=0x0050, text=» ADR A3,A12 ADD T:D-ADDRESS «, t00=0x00f2, t01=0x00ec}
0x17b06…17b1c               Head {h00=0x0012, h01=0x0050, text=» LDR* A3,A3 . «, t00=0x00f2, t01=0x0110}
0x17b1c…17b50               Head {h00=0x0030, h01=0x0050, text=» LDK A2,STPREC GET STARTPOINTS RECORD LENGTH«, t00=0x00f2, t01=0x0126}
0x17b50…17b70               Head {h00=0x001c, h01=0x0050, text=» CALL MULT AND MULTIPLY «, t00=0x00f2, t01=0x015a}
0x17b70…17b90               Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 'NUMBER-WORD' «, t00=0x00f2, t01=0x017a}
0x17b90…17bac               Head {h00=0x0018, h01=0x0050, text=» ADR A3,A1 =>LENGTH «, t00=0x00f3, t01=0x000a}
0x17bac…17bcc               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A12 FROM-ADDRESS«, t00=0x00f3, t01=0x0026}
0x17bcc…17bea               Head {h00=0x001a, h01=0x0050, text=» CALL MOVING MOVE T:D «, t00=0x00f3, t01=0x0046}
0x17bea…17c0e               Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A ADDRESS «, t00=0x00f3, t01=0x0064}
0x17c0e…17c3c               Head {h00=0x002a, h01=0x0050, text=» ST A2,T:DAD,A1 STORE NEW T:D ADDRESS «, t00=0x00f3, t01=0x0088}
0x17c3c…17c62               Head {h00=0x0022, h01=0x0050, text=» LD A7,CWBMSK,A12 GET CWBMASK «, t00=0x00f3, t01=0x00b6}
0x17c62…17c6e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f3, t01=0x00dc}
0x17c6e…17c8a               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f3, t01=0x00e8}
0x17c8a…17cb6               Head {h00=0x0028, h01=0x0050, text=»* INITIATE MM-ADDRESS TABLE POINTER «, t00=0x00f3, t01=0x0104}
0x17cb6…17cbe               Head {h00=0x0004, h01=0x0050, t00=0x00f3, t01=0x0130}
0x17cbe…17ce6               Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTSFA SHADOW TABLE START«, t00=0x00f3, t01=0x0138}
0x17ce6…17d10               Head {h00=0x0026, h01=0x0050, text=» AD* A1,SCTSFA ADDRESS TABLE START«, t00=0x00f3, t01=0x0160}
0x17d10…17d2e               Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVE06,A13 SAVE«, t00=0x00f3, t01=0x018a}
0x17d2e…17d54               Head {h00=0x0022, h01=0x0050, text=»SYA250 CM UWB,A13 INDICATE CWB«, t00=0x00f4, t01=0x0018}
0x17d54…17d80               Head {h00=0x0028, h01=0x0050, text=» ADKL A8,2 STEP TO NEXT T:A ADDRESS «, t00=0x00f4, t01=0x003e}
0x17d80…17d9a               Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x00f4, t01=0x006a}
0x17d9a…17dc0               Head {h00=0x0022, h01=0x0050, text=» RF(E) SYA270 ALL T:A'S DONE! «, t00=0x00f4, t01=0x0084}
0x17dc0…17de6               Head {h00=0x0022, h01=0x0050, text=» CALL GETTAB GET TTAB-ADDRESS «, t00=0x00f4, t01=0x00aa}
0x17de6…17e08               Head {h00=0x001e, h01=0x0050, text=» CALL MOVMMT MOVE MM-TABLE«, t00=0x00f4, t01=0x00d0}
0x17e08…17e2e               Head {h00=0x0022, h01=0x0050, text=»* FILL MM-TABLE ADDRESS TABLE «, t00=0x00f4, t01=0x00f2}
0x17e2e…17e36               Head {h00=0x0004, h01=0x0050, t00=0x00f4, t01=0x0118}
0x17e36…17e50               Head {h00=0x0016, h01=0x0050, text=» LD A1,SAVE06,A13 «, t00=0x00f4, t01=0x0120}
0x17e50…17e7a               Head {h00=0x0026, h01=0x0050, text=» ADK A1,2 INCREMENT TABLE POINTER «, t00=0x00f4, t01=0x013a}
0x17e7a…17e9c               Head {h00=0x001e, h01=0x0050, text=» ST A1,SAVE06,A13 RESTORE «, t00=0x00f4, t01=0x0164}
0x17e9c…17eba               Head {h00=0x001a, h01=0x0050, text=» STR A2,A1 FILL TABLE «, t00=0x00f4, t01=0x0186}
0x17eba…17ee6               Head {h00=0x0028, h01=0x0050, text=» CALL T:DADD GET T:D ADDRESS TO A12 «, t00=0x00f5, t01=0x0014}
0x17ee6…17f1e               Head {h00=0x0034, h01=0x0050, text=» ST A12,T:DSAV,A9 SAVE 'OLD' T:D-ADDRESS IN TTAB«, t00=0x00f5, t01=0x0040}
0x17f1e…17f26               Head {h00=0x0004, h01=0x0050, t00=0x00f5, t01=0x0078}
0x17f26…17f48               Head {h00=0x001e, h01=0x0050, text=»* CALCULATE LENGTH OF T:D «, t00=0x00f5, t01=0x0080}
0x17f48…17f50               Head {h00=0x0004, h01=0x0050, t00=0x00f5, t01=0x00a2}
0x17f50…17f86               Head {h00=0x0032, h01=0x0050, text=» EL A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB«, t00=0x00f5, t01=0x00aa}
0x17f86…17f98               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x00f5, t01=0x00e0}
0x17f98…17fbc               Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFE EVEN ADDRESS «, t00=0x00f5, t01=0x00f2}
0x17fbc…17fe8               Head {h00=0x0028, h01=0x0050, text=» ADK A1,DWBFST+4 ADD DISPL. TO FIRST«, t00=0x00f5, t01=0x0116}
0x17fe8…18018               Head {h00=0x002c, h01=0x0050, text=» LDR A3,A1 GET NUMB. OF START-POINTS... «, t00=0x00f5, t01=0x0142}
0x18018…1802e               Head {h00=0x0012, h01=0x0050, text=» ADR A3,A12 . «, t00=0x00f5, t01=0x0172}
0x1802e…18042               Head {h00=0x0010, h01=0x0050, text=» ELR A3,A3 .«, t00=0x00f5, t01=0x0188}
0x18042…18076               Head {h00=0x0030, h01=0x0050, text=» LDK A2,STPREC GET STARTPOINTS RECORD LENGTH«, t00=0x00f6, t01=0x000c}
0x18076…18096               Head {h00=0x001c, h01=0x0050, text=» CALL MULT AND MULTIPLY «, t00=0x00f6, t01=0x0040}
0x18096…180b6               Head {h00=0x001c, h01=0x0050, text=» ADK A3,2 'NUMBER-WORD' «, t00=0x00f6, t01=0x0060}
0x180b6…180d2               Head {h00=0x0018, h01=0x0050, text=» ADR A3,A1 =>LENGTH «, t00=0x00f6, t01=0x0080}
0x180d2…180f2               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A12 FROM-ADDRESS«, t00=0x00f6, t01=0x009c}
0x180f2…18110               Head {h00=0x001a, h01=0x0050, text=» CALL MOVING MOVE T:D «, t00=0x00f6, t01=0x00bc}
0x18110…18132               Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A ADDRESS«, t00=0x00f6, t01=0x00da}
0x18132…18160               Head {h00=0x002a, h01=0x0050, text=» ES A2,T:DAD,A1 ESORE NEW T:D ADDRESS «, t00=0x00f6, t01=0x00fc}
0x18160…18186               Head {h00=0x0022, h01=0x0050, text=» EL A7,CWBMSK,A12 GET CWBMASK «, t00=0x00f6, t01=0x012a}
0x18186…18192               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f6, t01=0x0150}
0x18192…181a8               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f6, t01=0x015c}
0x181a8…181bc               Head {h00=0x0010, h01=0x0050, text=» CALL MOVCLA«, t00=0x00f6, t01=0x0172}
0x181bc…181ca               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f6, t01=0x0186}
0x181ca…181d6 (247, 0, 400) Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00f7, t01=0x0004}
0x181d6…181e2               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00f7, t01=0x0010}
0x181e2…18204               Head {h00=0x001e, h01=0x0050, text=»* TASK CLASS DATA UWB'S * «, t00=0x00f7, t01=0x001c}
0x18204…18226               Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x00f7, t01=0x003e}
0x18226…18250               Head {h00=0x0026, h01=0x0050, text=» IM UWB,A13 INDICATE UWB SCANNING «, t00=0x00f7, t01=0x0060}
0x18250…1826c               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f7, t01=0x008a}
0x1826c…18292               Head {h00=0x0022, h01=0x0050, text=» LD A7,UWBMSK,A12 GET UWBMASK «, t00=0x00f7, t01=0x00a6}
0x18292…1829e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f7, t01=0x00cc}
0x1829e…182ba               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f7, t01=0x00d8}
0x182ba…182d4               Head {h00=0x0016, h01=0x0050, text=» EL A7,UWBMSK,A12 «, t00=0x00f7, t01=0x00f4}
0x182d4…182e0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f7, t01=0x010e}
0x182e0…182f6               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f7, t01=0x011a}
0x182f6…1830a               Head {h00=0x0010, h01=0x0050, text=» CALL MOVCLA«, t00=0x00f7, t01=0x0130}
0x1830a…18318               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f7, t01=0x0144}
0x18318…18324               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00f7, t01=0x0152}
0x18324…18330               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00f7, t01=0x015e}
0x18330…18356               Head {h00=0x0022, h01=0x0050, text=»* MOVE DT:S OF SWB'S & TWB'S *«, t00=0x00f7, t01=0x016a}
0x18356…1837c               Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x00f7, t01=0x0190}
0x1837c…18384               Head {h00=0x0004, h01=0x0050, t00=0x00f8, t01=0x0026}
0x18384…18398               Head {h00=0x0010, h01=0x0050, text=»SYA260 EQU *«, t00=0x00f8, t01=0x002e}
0x18398…183b4               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00f8, t01=0x0042}
0x183b4…183ce               Head {h00=0x0016, h01=0x0050, text=» LD A7,SWBMSK,A12 «, t00=0x00f8, t01=0x005e}
0x183ce…183e8               Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYA265 NONE«, t00=0x00f8, t01=0x0078}
0x183e8…183fc               Head {h00=0x0010, h01=0x0050, text=» CALL SKRITT«, t00=0x00f8, t01=0x0092}
0x183fc…1841c               Head {h00=0x001c, h01=0x0050, text=»SYA265 LD A7,TWBMSK,A12 «, t00=0x00f8, t01=0x00a6}
0x1841c…18428               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f8, t01=0x00c6}
0x18428…18444               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00f8, t01=0x00d2}
0x18444…1845e               Head {h00=0x0016, h01=0x0050, text=» EL A7,SWBMSK,A12 «, t00=0x00f8, t01=0x00ee}
0x1845e…18478               Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYA265 NONE«, t00=0x00f8, t01=0x0108}
0x18478…1848c               Head {h00=0x0010, h01=0x0050, text=» CALL SKRITT«, t00=0x00f8, t01=0x0122}
0x1848c…184ac               Head {h00=0x001c, h01=0x0050, text=»SYA265 EL A7,TWBMSK,A12 «, t00=0x00f8, t01=0x0136}
0x184ac…184b8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00f8, t01=0x0156}
0x184b8…184ce               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x00f8, t01=0x0162}
0x184ce…184e4               Head {h00=0x0012, h01=0x0050, text=» RB(Z) SYA250 «, t00=0x00f8, t01=0x0178}
0x184e4…184f8               Head {h00=0x0010, h01=0x0050, text=» CALL SKRITT«, t00=0x00f8, t01=0x018e}
0x184f8…1850a               Head {h00=0x000e, h01=0x0050, text=» RB SYA250«, t00=0x00f9, t01=0x0012}
0x1850a…18516               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00f9, t01=0x0024}
0x18516…1852e               Head {h00=0x0014, h01=0x0050, text=»SYA270 RF PRODAT«, t00=0x00f9, t01=0x0030}
0x1852e…1853c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00f9, t01=0x0048}
0x1853c…18548               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00f9, t01=0x0056}
0x18548…18554               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00f9, t01=0x0062}
0x18554…1858c               Head {h00=0x0034, h01=0x0050, text=»**              S K R I T T                  ** «, t00=0x00f9, t01=0x006e}
0x1858c…185c4               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x00f9, t01=0x00a6}
0x185c4…185fc               Head {h00=0x0034, h01=0x0050, text=»**  MOVE D.T                                 ** «, t00=0x00f9, t01=0x00de}
0x185fc…18634               Head {h00=0x0034, h01=0x0050, text=»**                                           ** «, t00=0x00f9, t01=0x0116}
0x18634…1866c               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x00f9, t01=0x014e}
0x1866c…18680               Head {h00=0x0010, h01=0x0050, text=»SKRITT EQU *«, t00=0x00f9, t01=0x0186}
0x18680…18694               Head {h00=0x0010, h01=0x0050, text=» CALL SHIFT «, t00=0x00fa, t01=0x000a}
0x18694…186aa               Head {h00=0x0012, h01=0x0050, text=»NO RF(NZ) NES «, t00=0x00fa, t01=0x001e}
0x186aa…186ba               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x00fa, t01=0x0034}
0x186ba…186d0               Head {h00=0x0012, h01=0x0050, text=»NES CALL GETWB«, t00=0x00fa, t01=0x0044}
0x186d0…186e4               Head {h00=0x0010, h01=0x0050, text=» CALL MOVDT «, t00=0x00fa, t01=0x005a}
0x186e4…18716               Head {h00=0x002e, h01=0x0050, text=» CM NEWAD2,A13 NO NEW W.B.-ADDRESS (YET!) «, t00=0x00fa, t01=0x006e}
0x18716…1872a               Head {h00=0x0010, h01=0x0050, text=» CALL MOVDWB«, t00=0x00fa, t01=0x00a0}
0x1872a…1873e               Head {h00=0x0010, h01=0x0050, text=» CALL SKIFTA«, t00=0x00fa, t01=0x00b4}
0x1873e…1874c               Head {h00=0x000a, h01=0x0050, text=» RB NO«, t00=0x00fa, t01=0x00c8}
0x1874c…1875a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x00fa, t01=0x00d6}
0x1875a…18766               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00fa, t01=0x00e4}
0x18766…18790               Head {h00=0x0026, h01=0x0050, text=»* BUILD TASKDATA PROTOTYPE AREA * «, t00=0x00fa, t01=0x00f0}
0x18790…187ba               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x00fa, t01=0x011a}
0x187ba…187ce               Head {h00=0x0010, h01=0x0050, text=»PRODAT EQU *«, t00=0x00fa, t01=0x0144}
0x187ce…187e0               Head {h00=0x000e, h01=0x0050, text=»    =00001«, t00=0x00fa, t01=0x0158}
0x187e0…18810               Head {h00=0x002c, h01=0x0050, text=» LD A1,SAVE02,A13 BUGGER TASK INCLUDED? «, t00=0x00fa, t01=0x016a}
0x18810…1882a               Head {h00=0x0016, h01=0x0050, text=» RF(Z) SYA275 NO! «, t00=0x00fb, t01=0x000a}
0x1882a…18860               Head {h00=0x0032, h01=0x0050, text=» CALL GETTTB GET TTAB ADDRESS. TID 'TB' IN A1 «, t00=0x00fb, t01=0x0024}
0x18860…1888a               Head {h00=0x0026, h01=0x0050, text=» CM TTB:PP,A2 CLEAR TCL SAVE AREA «, t00=0x00fb, t01=0x005a}
0x1888a…188ae               Head {h00=0x0020, h01=0x0050, text=» IFT CREDIT+MMUPAG=2  =00001«, t00=0x00fb, t01=0x0084}
0x188ae…188d0               Head {h00=0x001e, h01=0x0050, text=» CALL MOVMMT MOVE MM-TABLE«, t00=0x00fb, t01=0x00a8}
0x188d0…188e6               Head {h00=0x0012, h01=0x0050, text=» XIF   =00001 «, t00=0x00fb, t01=0x00ca}
0x188e6…18904               Head {h00=0x001a, h01=0x0050, text=» IFF CREDIT=0  =00001 «, t00=0x00fb, t01=0x00e0}
0x18904…18918               Head {h00=0x0010, h01=0x0050, text=»SYA275 EQU *«, t00=0x00fb, t01=0x00fe}
0x18918…1892a               Head {h00=0x000e, h01=0x0050, text=»    =00001«, t00=0x00fb, t01=0x0112}
0x1892a…1893c               Head {h00=0x000e, h01=0x0050, text=»    =00001«, t00=0x00fb, t01=0x0124}
0x1893c…18970               Head {h00=0x0030, h01=0x0050, text=» IM SWITCH,A13 INDICATE: -NO MORE D.T. MOVE!«, t00=0x00fb, t01=0x0136}
0x18970…18998               Head {h00=0x0024, h01=0x0050, text=» LD A8,T:ATOD,A13 T:ATAB ADDRESS«, t00=0x00fb, t01=0x016a}
0x18998…189b0 (252, 0, 400) Head {h00=0x0014, h01=0x0050, text=»SYA280 ADKL A8,2«, t00=0x00fc, t01=0x0004}
0x189b0…189ca               Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x00fc, t01=0x001c}
0x189ca…189e8               Head {h00=0x001a, h01=0x0050, text=» RF(E) SYA290 ALL DONE«, t00=0x00fc, t01=0x0036}
0x189e8…18a04               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x00fc, t01=0x0054}
0x18a04…18a2a               Head {h00=0x0022, h01=0x0050, text=» LDR* A12,A8 GET T:D ADDRESS..«, t00=0x00fc, t01=0x0070}
0x18a2a…18a46               Head {h00=0x0018, h01=0x0050, text=» LD A12,T:DAD,A12 . «, t00=0x00fc, t01=0x0096}
0x18a46…18a7a               Head {h00=0x0030, h01=0x0050, text=» CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S «, t00=0x00fc, t01=0x00b2}
0x18a7a…18a86               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00fc, t01=0x00e6}
0x18a86…18aac               Head {h00=0x0022, h01=0x0050, text=»* CALCULATE LENGTH OF DSCB'S *«, t00=0x00fc, t01=0x00f2}
0x18aac…18ad2               Head {h00=0x0022, h01=0x0050, text=»***                        ***«, t00=0x00fc, t01=0x0118}
0x18ad2…18ade               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x00fc, t01=0x013e}
0x18ade…18b02               Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A8 GET T:A-ADDRESS «, t00=0x00fc, t01=0x014a}
0x18b02…18b2c               Head {h00=0x0026, h01=0x0050, text=» LD A3,DATLEN,A12 A12=T:D-ADDRESS «, t00=0x00fc, t01=0x016e}
0x18b2c…18b4e               Head {h00=0x001e, h01=0x0050, text=» LDK A2,DSCBL DSCB-LENGTH «, t00=0x00fd, t01=0x0008}
0x18b4e…18b7a               Head {h00=0x0028, h01=0x0050, text=» CALL MULT A3() X (A2) RESULT IN A3 «, t00=0x00fd, t01=0x002a}
0x18b7a…18ba4               Head {h00=0x0026, h01=0x0050, text=» ST A3,CSN,A1 SAVE LENG OF DSCB'S «, t00=0x00fd, t01=0x0056}
0x18ba4…18bd0               Head {h00=0x0028, h01=0x0050, text=» LD A2,FCD,A12 GET FCB-DISPLACEMENT «, t00=0x00fd, t01=0x0080}
0x18bd0…18bf2               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) SYA285 FCB PRESENT«, t00=0x00fd, t01=0x00ac}
0x18bf2…18c1c               Head {h00=0x0026, h01=0x0050, text=» SUR A2,A3 MOVD30E A3(DSCB-LENGTH)«, t00=0x00fd, t01=0x00ce}
0x18c1c…18c4c               Head {h00=0x002c, h01=0x0050, text=» ADKL A2,T:ASTA INCREMENT TO FIRST WORD «, t00=0x00fd, t01=0x00f8}
0x18c4c…18c86               Head {h00=0x0036, h01=0x0050, text=»SYA285 ST A2,CIA,A1 SAVE DISPLACEMENT TO T:A-START«, t00=0x00fd, t01=0x0128}
0x18c86…18cac               Head {h00=0x0022, h01=0x0050, text=» LD A2,STKB,A1 GET STACK SIZE «, t00=0x00fd, t01=0x0162}
0x18cac…18cd4               Head {h00=0x0024, h01=0x0050, text=» ST A2,CSE,A1 AND SAVE TEMPORARY«, t00=0x00fd, t01=0x0188}
0x18cd4…18d02               Head {h00=0x002a, h01=0x0050, text=» LD A2,SCTLAC GET START OF COMMON PART«, t00=0x00fe, t01=0x0020}
0x18d02…18d24               Head {h00=0x001e, h01=0x0050, text=» LD A2,P:BAS,A2 GET P:BAS «, t00=0x00fe, t01=0x004e}
0x18d24…18d42               Head {h00=0x001a, h01=0x0050, text=» ST A2,CSB,A1 AND SAVE«, t00=0x00fe, t01=0x0070}
0x18d42…18d68               Head {h00=0x0022, h01=0x0050, text=» CALL ALLBUF ALLOCATE BUFFERS «, t00=0x00fe, t01=0x008e}
0x18d68…18d86               Head {h00=0x001a, h01=0x0050, text=» CALL MOVT:A MOVE T:A «, t00=0x00fe, t01=0x00b4}
0x18d86…18db4               Head {h00=0x002a, h01=0x0050, text=» STR A2,A8 STORE NEW ADDRESS IN T:ATAB«, t00=0x00fe, t01=0x00d2}
0x18db4…18dc0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x00fe, t01=0x0100}
0x18dc0…18ddc               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x00fe, t01=0x010c}
0x18ddc…18e0a               Head {h00=0x002a, h01=0x0050, text=» CALL GETTAB SET CORRECT TTAB-ADDRESS «, t00=0x00fe, t01=0x0128}
0x18e0a…18e3a               Head {h00=0x002c, h01=0x0050, text=» LD A12,T:DSAV,A2 GET 'OLD' T:D-ADDRESS «, t00=0x00fe, t01=0x0156}
0x18e3a…18e42               Head {h00=0x0004, h01=0x0050, t00=0x00fe, t01=0x0186}
0x18e42…18e78               Head {h00=0x0032, h01=0x0050, text=»* GET LAST USED ENTRY IN CLASS-LOCAL MM-TABLE «, t00=0x00fe, t01=0x018e}
0x18e78…18e80               Head {h00=0x0004, h01=0x0050, t00=0x00ff, t01=0x0034}
0x18e80…18eac               Head {h00=0x0028, h01=0x0050, text=» TL MMBEG,A2 LOAD CLASS LOCAL TABLE «, t00=0x00ff, t01=0x003c}
0x18eac…18eda               Head {h00=0x002a, h01=0x0050, text=» LDKL A3,MMTAB GET WORK TABLE ADDRESS «, t00=0x00ff, t01=0x0068}
0x18eda…18eee               Head {h00=0x0010, h01=0x0050, text=» ADR A3,A13 «, t00=0x00ff, t01=0x0096}
0x18eee…18f16               Head {h00=0x0024, h01=0x0050, text=» TSR A3 STORE TABLE IN WORK-AREA«, t00=0x00ff, t01=0x00aa}
0x18f16…18f3e               Head {h00=0x0024, h01=0x0050, text=» TL MMDDIV,A13 RELOAD DDIV TABLE«, t00=0x00ff, t01=0x00d2}
0x18f3e…18f5c               Head {h00=0x001a, h01=0x0050, text=» CALL MMENT GET ENTRY «, t00=0x00ff, t01=0x00fa}
0x18f5c…18f82               Head {h00=0x0022, h01=0x0050, text=» ST A3,T:DSAV,A2 SAVE IN TTAB «, t00=0x00ff, t01=0x0118}
0x18f82…18fb6               Head {h00=0x0030, h01=0x0050, text=» CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S «, t00=0x00ff, t01=0x013e}
0x18fb6…18fdc               Head {h00=0x0022, h01=0x0050, text=»* CALCULATE LENGTH OF DSCB'S *«, t00=0x00ff, t01=0x0172}
0x18fdc…19002               Head {h00=0x0022, h01=0x0050, text=»***                        ***«, t00=0x0100, t01=0x0008}
0x19002…1900e               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0100, t01=0x002e}
0x1900e…19030               Head {h00=0x001e, h01=0x0050, text=» ELR A1,A8 GET T:A-ADDRESS«, t00=0x0100, t01=0x003a}
0x19030…1905a               Head {h00=0x0026, h01=0x0050, text=» EL A3,DATLEN,A12 A12=T:D-ADDRESS «, t00=0x0100, t01=0x005c}
0x1905a…1907c               Head {h00=0x001e, h01=0x0050, text=» LDK A2,DSCBL DSCB-LENGTH «, t00=0x0100, t01=0x0086}
0x1907c…190a8               Head {h00=0x0028, h01=0x0050, text=» CALL MULT A3() X (A2) RESULT IN A3 «, t00=0x0100, t01=0x00a8}
0x190a8…190d2               Head {h00=0x0026, h01=0x0050, text=» ES A3,CSN,A1 SAVE LENG OF DSCB'S «, t00=0x0100, t01=0x00d4}
0x190d2…190fe               Head {h00=0x0028, h01=0x0050, text=» EL A2,FCD,A12 GET FCB-DISPLACEMENT «, t00=0x0100, t01=0x00fe}
0x190fe…19120               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) SYA285 FCB PRESENT«, t00=0x0100, t01=0x012a}
0x19120…1914a               Head {h00=0x0026, h01=0x0050, text=» SUR A2,A3 MOVD30E A3(DSCB-LENGTH)«, t00=0x0100, t01=0x014c}
0x1914a…1917a               Head {h00=0x002c, h01=0x0050, text=» ADKL A2,T:ASTA INCREMENT TO FIRST WORD «, t00=0x0100, t01=0x0176}
0x1917a…191b4               Head {h00=0x0036, h01=0x0050, text=»SYA285 ES A2,CIA,A1 SAVE DISPLACEMENT TO T:A-ESART«, t00=0x0101, t01=0x0016}
0x191b4…191da               Head {h00=0x0022, h01=0x0050, text=» EL A2,STKB,A1 GET STACK SIZE «, t00=0x0101, t01=0x0050}
0x191da…19204               Head {h00=0x0026, h01=0x0050, text=» ES A2,CSE,A1 AND SAVE (TEMPORARY)«, t00=0x0101, t01=0x0076}
0x19204…1922e               Head {h00=0x0026, h01=0x0050, text=» LD A2,SCTLAC GET START OF P:MTAB «, t00=0x0101, t01=0x00a0}
0x1922e…19256               Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 LOAD CORRECT TABLE«, t00=0x0101, t01=0x00ca}
0x19256…19278               Head {h00=0x001e, h01=0x0050, text=» EL A2,P:BAS,A2 GET P:BAS «, t00=0x0101, t01=0x00f2}
0x19278…192a2               Head {h00=0x0026, h01=0x0050, text=» TL* MMFROM,A13 RELOAD DDIV TABLE «, t00=0x0101, t01=0x0114}
0x192a2…192c0               Head {h00=0x001a, h01=0x0050, text=» ES A2,CSB,A1 AND SAVE«, t00=0x0101, t01=0x013e}
0x192c0…192e6               Head {h00=0x0022, h01=0x0050, text=» CALL ALLBUF ALLOCATE BUFFERS «, t00=0x0101, t01=0x015c}
0x192e6…19304               Head {h00=0x001a, h01=0x0050, text=» CALL MOVT:A MOVE T:A «, t00=0x0101, t01=0x0182}
0x19304…19332               Head {h00=0x002a, h01=0x0050, text=» ESR A2,A8 STORE NEW ADDRESS IN T:ATAB«, t00=0x0102, t01=0x0010}
0x19332…1933e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0102, t01=0x003e}
0x1933e…19354               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0102, t01=0x004a}
0x19354…1936c               Head {h00=0x0014, h01=0x0050, text=» RB SYA280 NEXT «, t00=0x0102, t01=0x0060}
0x1936c…1937a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0102, t01=0x0078}
0x1937a…1938e               Head {h00=0x0010, h01=0x0050, text=»SYA290 EQU *«, t00=0x0102, t01=0x0086}
0x1938e…193c6               Head {h00=0x0034, h01=0x0050, text=» IM FLAG,A13 INDICATE REAL DATA-PART PROCESSING «, t00=0x0102, t01=0x009a}
0x193c6…193f6               Head {h00=0x002c, h01=0x0050, text=»* INCLUDE DDIV AND PART 2.A IN FREE AREA«, t00=0x0102, t01=0x00d2}
0x193f6…193fe               Head {h00=0x0004, h01=0x0050, t00=0x0102, t01=0x0102}
0x193fe…19430               Head {h00=0x002e, h01=0x0050, text=» LDKL A2,PART2A NEW (RELATIVE) END ADDRESS«, t00=0x0102, t01=0x010a}
0x19430…19450               Head {h00=0x001c, h01=0x0050, text=» ADR A2,A13 ABSOLUT DITO«, t00=0x0102, t01=0x013c}
0x19450…1946c               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0102, t01=0x015c}
0x1946c…1947e               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0102, t01=0x0178}
0x1947e…19494               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/F000«, t00=0x0102, t01=0x018a}
0x19494…194bc               Head {h00=0x0024, h01=0x0050, text=» SRL A3,2 GET NEW PHYSICALL PAGE«, t00=0x0103, t01=0x0010}
0x194bc…194da               Head {h00=0x001a, h01=0x0050, text=» ST A3,FSTPAG,A13 SAVE«, t00=0x0103, t01=0x0038}
0x194da…19506               Head {h00=0x0028, h01=0x0050, text=» ANKL A2,/FFF GET NEW PAGE INCREMENT«, t00=0x0103, t01=0x0056}
0x19506…19524               Head {h00=0x001a, h01=0x0050, text=» ST A2,FSTADR,A13 SAVE«, t00=0x0103, t01=0x0082}
0x19524…1953a               Head {h00=0x0012, h01=0x0050, text=»* MOVE T:ATAB «, t00=0x0103, t01=0x00a0}
0x1953a…19542               Head {h00=0x0004, h01=0x0050, t00=0x0103, t01=0x00b6}
0x19542…19570               Head {h00=0x002a, h01=0x0050, text=» LD A2,T:ATNW,A13 GET REAL T:A-ADDRESS«, t00=0x0103, t01=0x00be}
0x19570…1957c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0103, t01=0x00ec}
0x1957c…19598               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0103, t01=0x00f8}
0x19598…195c6               Head {h00=0x002a, h01=0x0050, text=» ST A2,DATEND,A13 SAVE NEW END ADDRESS«, t00=0x0103, t01=0x0114}
0x195c6…195dc               Head {h00=0x0012, h01=0x0050, text=»* MOVE T:ATAB «, t00=0x0103, t01=0x0142}
0x195dc…195e4               Head {h00=0x0004, h01=0x0050, t00=0x0103, t01=0x0158}
0x195e4…19616               Head {h00=0x002e, h01=0x0050, text=» LD A2,T:ATNW,A13 GET REAL T:A-TAB ADDRESS«, t00=0x0103, t01=0x0160}
0x19616…19636 (260, 0, 400) Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A2 REAL LENGTH «, t00=0x0104, t01=0x0004}
0x19636…1965e               Head {h00=0x0024, h01=0x0050, text=» ADR A2,A1 END OF TABLE ADDRESS «, t00=0x0104, t01=0x0024}
0x1965e…1967c               Head {h00=0x001a, h01=0x0050, text=» ST A2,ENDADD,A13 SAVE«, t00=0x0104, t01=0x004c}
0x1967c…196a6               Head {h00=0x0026, h01=0x0050, text=» LD A1,T:ATOD,A13 GET FROM-ADDRESS«, t00=0x0104, t01=0x006a}
0x196a6…196c6               Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A1 MOVE-LENGTH «, t00=0x0104, t01=0x0094}
0x196c6…196e4               Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x0104, t01=0x00b4}
0x196e4…19702               Head {h00=0x001a, h01=0x0050, text=» ST A2,T:ATOD,A13 SAVE«, t00=0x0104, t01=0x00d2}
0x19702…19714               Head {h00=0x000e, h01=0x0050, text=» CALL MOVE«, t00=0x0104, t01=0x00f0}
0x19714…19720               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0104, t01=0x0102}
0x19720…1973c               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0104, t01=0x010e}
0x1973c…19764               Head {h00=0x0024, h01=0x0050, text=» TL* MMTO,A13 LOAD CORRECT TABLE«, t00=0x0104, t01=0x012a}
0x19764…1978e               Head {h00=0x0026, h01=0x0050, text=» ELR A1,A2 GET REAL T:ATAB LENGTH «, t00=0x0104, t01=0x0152}
0x1978e…197b2               Head {h00=0x0020, h01=0x0050, text=» TL* MMFROM,A13 RELOAD TABLE«, t00=0x0104, t01=0x017c}
0x197b2…197d0               Head {h00=0x001a, h01=0x0050, text=» ADR A2,A1 END ADDRESS«, t00=0x0105, t01=0x0010}
0x197d0…19808               Head {h00=0x0034, h01=0x0050, text=» ST A2,ENDADD,A13 SAVE 'END-OF-T:ATAB-CONDITION'«, t00=0x0105, t01=0x002e}
0x19808…19836               Head {h00=0x002a, h01=0x0050, text=» LD A1,T:ATOD,A13 GET PROTOTYP T:ATAB «, t00=0x0105, t01=0x0066}
0x19836…19854               Head {h00=0x001a, h01=0x0050, text=» ELR A3,A1 GET LENGTH «, t00=0x0105, t01=0x0094}
0x19854…19872               Head {h00=0x001a, h01=0x0050, text=» SUR A2,A3 TO-ADDRESS «, t00=0x0105, t01=0x00b2}
0x19872…19890               Head {h00=0x001a, h01=0x0050, text=» ST A2,T:ATOD,A13 SAVE«, t00=0x0105, t01=0x00d0}
0x19890…198a4               Head {h00=0x0010, h01=0x0050, text=» CALL XMOVE «, t00=0x0105, t01=0x00ee}
0x198a4…198b0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0105, t01=0x0102}
0x198b0…198c6               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0105, t01=0x010e}
0x198c6…198ce               Head {h00=0x0004, h01=0x0050, t00=0x0105, t01=0x0124}
0x198ce…198ee               Head {h00=0x001c, h01=0x0050, text=»* CONTINUE IN PART 2.B *«, t00=0x0105, t01=0x012c}
0x198ee…198f6               Head {h00=0x0004, h01=0x0050, t00=0x0105, t01=0x014c}
0x198f6…19924               Head {h00=0x002a, h01=0x0050, text=» LDKL A5,PART2B RELATIVE START ADDRESS«, t00=0x0105, t01=0x0154}
0x19924…19948               Head {h00=0x0020, h01=0x0050, text=» ADR A5,A13 ADD BASE ADDRESS«, t00=0x0105, t01=0x0182}
0x19948…19958               Head {h00=0x000c, h01=0x0050, text=» ABR A5 «, t00=0x0106, t01=0x0016}
0x19958…19982               Head {h00=0x0026, h01=0x0050, text=»LENGT2 EQU *-REL LENGTH OF PART 2 «, t00=0x0106, t01=0x0026}
0x19982…19990               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0106, t01=0x0050}
0x19990…1999c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0106, t01=0x005e}
0x1999c…199a8               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0106, t01=0x006a}
0x199a8…199de               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0106, t01=0x0076}
0x199de…19a14               Head {h00=0x0032, h01=0x0050, text=»*******                               ******* «, t00=0x0106, t01=0x00ac}
0x19a14…19a4a               Head {h00=0x0032, h01=0x0050, text=»**                                         ** «, t00=0x0106, t01=0x00e2}
0x19a4a…19a80               Head {h00=0x0032, h01=0x0050, text=»*            SYSLOAD PART 1                 * «, t00=0x0106, t01=0x0118}
0x19a80…19ab6               Head {h00=0x0032, h01=0x0050, text=»**                                         ** «, t00=0x0106, t01=0x014e}
0x19ab6…19aec               Head {h00=0x0032, h01=0x0050, text=»*****                                   ***** «, t00=0x0106, t01=0x0184}
0x19aec…19b22               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0107, t01=0x002a}
0x19b22…19b2e               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0107, t01=0x0060}
0x19b2e…19b64               Head {h00=0x0032, h01=0x0050, text=»*   READ CONFIGURATION FILE & BUILD         * «, t00=0x0107, t01=0x006c}
0x19b64…19b9a               Head {h00=0x0032, h01=0x0050, text=»*   SHADOW-TABLES                           * «, t00=0x0107, t01=0x00a2}
0x19b9a…19bd0               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x0107, t01=0x00d8}
0x19bd0…19c06               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0107, t01=0x010e}
0x19c06…19c12               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0107, t01=0x0144}
0x19c12…19c1e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0107, t01=0x0150}
0x19c1e…19c2a               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0107, t01=0x015c}
0x19c2a…19c36               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0107, t01=0x0168}
0x19c36…19c64               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0107, t01=0x0174}
0x19c64…19c92               Head {h00=0x002a, h01=0x0050, text=»***                               *** «, t00=0x0108, t01=0x0012}
0x19c92…19cc0               Head {h00=0x002a, h01=0x0050, text=»**     S U B R O U T I N E S       ** «, t00=0x0108, t01=0x0040}
0x19cc0…19cec               Head {h00=0x0028, h01=0x0050, text=»**  -USED IN THIS PART ONLY        *«, t00=0x0108, t01=0x006e}
0x19cec…19d1a               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0108, t01=0x009a}
0x19d1a…19d28               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0108, t01=0x00c8}
0x19d28…19d34               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0108, t01=0x00d6}
0x19d34…19d40               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0108, t01=0x00e2}
0x19d40…19d7a               Head {h00=0x0036, h01=0x0050, text=»**                  C O N V R T                 **«, t00=0x0108, t01=0x00ee}
0x19d7a…19db4               Head {h00=0x0036, h01=0x0050, text=»**                                              **«, t00=0x0108, t01=0x0128}
0x19db4…19dee               Head {h00=0x0036, h01=0x0050, text=»**                                              **«, t00=0x0108, t01=0x0162}
0x19dee…19e28               Head {h00=0x0036, h01=0x0050, text=»**  CONVERSION OF TWO ASCII-DIGITS TO BINARY    **«, t00=0x0109, t01=0x000c}
0x19e28…19e62               Head {h00=0x0036, h01=0x0050, text=»**                                              **«, t00=0x0109, t01=0x0046}
0x19e62…19e9c               Head {h00=0x0036, h01=0x0050, text=»**  INPUT : A5=ASCII DIGITS                     **«, t00=0x0109, t01=0x0080}
0x19e9c…19ed6               Head {h00=0x0036, h01=0x0050, text=»**  OUTPUT: A1=BINARY RESULT                    **«, t00=0x0109, t01=0x00ba}
0x19ed6…19f10               Head {h00=0x0036, h01=0x0050, text=»**  WORK.REGS: A3,A2                            **«, t00=0x0109, t01=0x00f4}
0x19f10…19f4a               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0109, t01=0x012e}
0x19f4a…19f56               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0109, t01=0x0168}
0x19f56…19f6a               Head {h00=0x0010, h01=0x0050, text=»CONVRT EQU *«, t00=0x0109, t01=0x0174}
0x19f6a…19f8c               Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 CLEAR RESULT REG«, t00=0x0109, t01=0x0188}
0x19f8c…19f9e               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x010a, t01=0x001a}
0x19f9e…19fba               Head {h00=0x0018, h01=0x0050, text=» SRL A3,8 GET TEN'S «, t00=0x010a, t01=0x002c}
0x19fba…19fce               Head {h00=0x0010, h01=0x0050, text=» SUK A3,/30 «, t00=0x010a, t01=0x0048}
0x19fce…19fe0               Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x010a, t01=0x005c}
0x19fe0…19ffe               Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 MULT BY 10 «, t00=0x010a, t01=0x006e}
0x19ffe…1a012               Head {h00=0x0010, h01=0x0050, text=» ADR A1,A1 .«, t00=0x010a, t01=0x008c}
0x1a012…1a026               Head {h00=0x0010, h01=0x0050, text=» SLL A2,3 . «, t00=0x010a, t01=0x00a0}
0x1a026…1a03e               Head {h00=0x0014, h01=0x0050, text=» ADR A1,A2 .... «, t00=0x010a, t01=0x00b4}
0x1a03e…1a050               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x010a, t01=0x00cc}
0x1a050…1a06c               Head {h00=0x0018, h01=0x0050, text=» ANK A3,/F GET ONE'S«, t00=0x010a, t01=0x00de}
0x1a06c…1a07e               Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x010a, t01=0x00fa}
0x1a07e…1a08e               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x010a, t01=0x010c}
0x1a08e…1a09c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x010a, t01=0x011c}
0x1a09c…1a0a4               Head {h00=0x0004, h01=0x0050, t00=0x010a, t01=0x012a}
0x1a0a4…1a0de               Head {h00=0x0036, h01=0x0050, text=»**                  N X T B L K                 **«, t00=0x010a, t01=0x0132}
0x1a0de…1a118               Head {h00=0x0036, h01=0x0050, text=»**                                              **«, t00=0x010a, t01=0x016c}
0x1a118…1a152               Head {h00=0x0036, h01=0x0050, text=»**                                              **«, t00=0x010b, t01=0x0016}
0x1a152…1a18c               Head {h00=0x0036, h01=0x0050, text=»**  SKIP TO NEXT BLOCK IN CONFIGURATION FILE    **«, t00=0x010b, t01=0x0050}
0x1a18c…1a1c6               Head {h00=0x0036, h01=0x0050, text=»**                                              **«, t00=0x010b, t01=0x008a}
0x1a1c6…1a200               Head {h00=0x0036, h01=0x0050, text=»**  INPUT: A11=ADDRESS TO CURRENT BLOCK-START   **«, t00=0x010b, t01=0x00c4}
0x1a200…1a23a               Head {h00=0x0036, h01=0x0050, text=»**  OUTPUT:A11=ADDRESS TO NEXT BLOCK            **«, t00=0x010b, t01=0x00fe}
0x1a23a…1a274               Head {h00=0x0036, h01=0x0050, text=»**         A2=BLOCK TYPE (T,C,U) IN RIGTH BYTE  **«, t00=0x010b, t01=0x0138}
0x1a274…1a2ae               Head {h00=0x0036, h01=0x0050, text=»**  WORKREGS: A1,A3-A5                          **«, t00=0x010b, t01=0x0172}
0x1a2ae…1a2e8               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x010c, t01=0x001c}
0x1a2e8…1a2f0               Head {h00=0x0004, h01=0x0050, t00=0x010c, t01=0x0056}
0x1a2f0…1a304               Head {h00=0x0010, h01=0x0050, text=»NXTBLK EQU *«, t00=0x010c, t01=0x005e}
0x1a304…1a33e               Head {h00=0x0036, h01=0x0050, text=» ADKL A11,TDBNC NUMBER OF TERMINAL DEVICE CLASSES «, t00=0x010c, t01=0x0072}
0x1a33e…1a374               Head {h00=0x0032, h01=0x0050, text=»NXTCOM EQU * ENTRY: SKIP TO NEXT COMMON-BLOCK «, t00=0x010c, t01=0x00ac}
0x1a374…1a388               Head {h00=0x0010, h01=0x0050, text=» LCR A5,A11 «, t00=0x010c, t01=0x00e2}
0x1a388…1a39a               Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x010c, t01=0x00f6}
0x1a39a…1a3ae               Head {h00=0x0010, h01=0x0050, text=» LC A5,1,A11«, t00=0x010c, t01=0x0108}
0x1a3ae…1a3c2               Head {h00=0x0010, h01=0x0050, text=» CALL CONVRT«, t00=0x010c, t01=0x011c}
0x1a3c2…1a3d8               Head {h00=0x0012, h01=0x0050, text=» LDK A2,TDBREC«, t00=0x010c, t01=0x0130}
0x1a3d8…1a3ea               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x010c, t01=0x0146}
0x1a3ea…1a3fc               Head {h00=0x000e, h01=0x0050, text=» CALL MULT«, t00=0x010c, t01=0x0158}
0x1a3fc…1a410               Head {h00=0x0010, h01=0x0050, text=» ADR A11,A3 «, t00=0x010c, t01=0x016a}
0x1a410…1a424               Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x010c, t01=0x017e}
0x1a424…1a458 (269, 0, 400) Head {h00=0x0030, h01=0x0050, text=» LCR A5,A11 GET NUMBER OF SPEC, DEV. CLASSES«, t00=0x010d, t01=0x0004}
0x1a458…1a46a               Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x010d, t01=0x0038}
0x1a46a…1a47e               Head {h00=0x0010, h01=0x0050, text=» LC A5,1,A11«, t00=0x010d, t01=0x004a}
0x1a47e…1a492               Head {h00=0x0010, h01=0x0050, text=» CALL CONVRT«, t00=0x010d, t01=0x005e}
0x1a492…1a4c2               Head {h00=0x002c, h01=0x0050, text=» LDK A2,SDC SPEC. DEV. CL. RECORD LENGTH«, t00=0x010d, t01=0x0072}
0x1a4c2…1a4d4               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x010d, t01=0x00a2}
0x1a4d4…1a4e6               Head {h00=0x000e, h01=0x0050, text=» CALL MULT«, t00=0x010d, t01=0x00b4}
0x1a4e6…1a508               Head {h00=0x001e, h01=0x0050, text=» ADR A11,A3 A11=NEXT BLOCK«, t00=0x010d, t01=0x00c6}
0x1a508…1a51c               Head {h00=0x0010, h01=0x0050, text=» ADKL A11,2 «, t00=0x010d, t01=0x00e8}
0x1a51c…1a544               Head {h00=0x0024, h01=0x0050, text=» LC A2,TDBBT,A11 GET BLOCK TYPE «, t00=0x010d, t01=0x00fc}
0x1a544…1a554               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x010d, t01=0x0124}
0x1a554…1a560               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x010d, t01=0x0134}
0x1a560…1a56c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x010d, t01=0x0140}
0x1a56c…1a5a8               Head {h00=0x0038, h01=0x0050, text=»**                     G E T N U M                **«, t00=0x010d, t01=0x014c}
0x1a5a8…1a5e4               Head {h00=0x0038, h01=0x0050, text=»**                                                **«, t00=0x010d, t01=0x0188}
0x1a5e4…1a620               Head {h00=0x0038, h01=0x0050, text=»**                                                **«, t00=0x010e, t01=0x0034}
0x1a620…1a65c               Head {h00=0x0038, h01=0x0050, text=»**  CONVERT 3 ASCII-DIGITS TO BINARY              **«, t00=0x010e, t01=0x0070}
0x1a65c…1a698               Head {h00=0x0038, h01=0x0050, text=»**                                                **«, t00=0x010e, t01=0x00ac}
0x1a698…1a6d4               Head {h00=0x0038, h01=0x0050, text=»**  INPUT : A6=ADDRESS TO FIRST ASCII-CHARACTER   **«, t00=0x010e, t01=0x00e8}
0x1a6d4…1a710               Head {h00=0x0038, h01=0x0050, text=»**  OUTPUT: A5=BINARY VALUE                       **«, t00=0x010e, t01=0x0124}
0x1a710…1a74c               Head {h00=0x0038, h01=0x0050, text=»**  WORK.REGS: A2,A4                              **«, t00=0x010e, t01=0x0160}
0x1a74c…1a788               Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x010f, t01=0x000c}
0x1a788…1a794               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x010f, t01=0x0048}
0x1a794…1a7a8               Head {h00=0x0010, h01=0x0050, text=»GETNUM EQU *«, t00=0x010f, t01=0x0054}
0x1a7a8…1a7cc               Head {h00=0x0020, h01=0x0050, text=» LDK A4,100 FIRST INCREMENT «, t00=0x010f, t01=0x0068}
0x1a7cc…1a7ee               Head {h00=0x001e, h01=0x0050, text=» LDK A5,0 CLEAR RESULT REG«, t00=0x010f, t01=0x008c}
0x1a7ee…1a80c               Head {h00=0x001a, h01=0x0050, text=» SUK A6,1 INIT POINTER«, t00=0x010f, t01=0x00ae}
0x1a80c…1a82e               Head {h00=0x001e, h01=0x0050, text=»GET030 ADK A6,1 NEXT DIGIT«, t00=0x010f, t01=0x00cc}
0x1a82e…1a84a               Head {h00=0x0018, h01=0x0050, text=» LCR A2,A6 GET CHAR «, t00=0x010f, t01=0x00ee}
0x1a84a…1a85c               Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x010f, t01=0x010a}
0x1a85c…1a874               Head {h00=0x0014, h01=0x0050, text=»GET050 SUK A2,1 «, t00=0x010f, t01=0x011c}
0x1a874…1a89a               Head {h00=0x0022, h01=0x0050, text=» RF(N) GET100 THIS DIGIT READY«, t00=0x010f, t01=0x0134}
0x1a89a…1a8b8               Head {h00=0x001a, h01=0x0050, text=» ADR A5,A4 ACCUMULATE «, t00=0x010f, t01=0x015a}
0x1a8b8…1a8ca               Head {h00=0x000e, h01=0x0050, text=» RB GET050«, t00=0x010f, t01=0x0178}
0x1a8ca…1a8fa               Head {h00=0x002c, h01=0x0050, text=»GET100 SUK A4,90 NEXT INCREMENT (TEN'S) «, t00=0x010f, t01=0x018a}
0x1a8fa…1a910               Head {h00=0x0012, h01=0x0050, text=» RB(P) GET030 «, t00=0x0110, t01=0x002a}
0x1a910…1a93a               Head {h00=0x0026, h01=0x0050, text=» ADK A4,81 NEXT INCREMENT (ONE'S) «, t00=0x0110, t01=0x0040}
0x1a93a…1a95c               Head {h00=0x001e, h01=0x0050, text=» RB(P) GET030 THIRD DIGIT «, t00=0x0110, t01=0x006a}
0x1a95c…1a96c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0110, t01=0x008c}
0x1a96c…1a97a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0110, t01=0x009c}
0x1a97a…1a982               Head {h00=0x0004, h01=0x0050, t00=0x0110, t01=0x00aa}
0x1a982…1a9a6               Head {h00=0x0020, h01=0x0050, text=»* START OF PROGRAM PART 1 * «, t00=0x0110, t01=0x00b2}
0x1a9a6…1a9ae               Head {h00=0x0004, h01=0x0050, t00=0x0110, t01=0x00d6}
0x1a9ae…1a9e6               Head {h00=0x0034, h01=0x0050, text=»* SAVE02=POINTER TO 1:ST USER TASK TTAB-ADDRESS «, t00=0x0110, t01=0x00de}
0x1a9e6…1aa0e               Head {h00=0x0024, h01=0x0050, text=»* SAVE09=EXECUTION START ADDRESS«, t00=0x0110, t01=0x0116}
0x1aa0e…1aa1a               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0110, t01=0x013e}
0x1aa1a…1aa40               Head {h00=0x0022, h01=0x0050, text=»SYSLDA EQU *-REL PROGRAM START«, t00=0x0110, t01=0x014a}
0x1aa40…1aa4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0110, t01=0x0170}
0x1aa4a…1aa64               Head {h00=0x0016, h01=0x0050, text=»*  INIT A15 STACK «, t00=0x0110, t01=0x017a}
0x1aa64…1aa6e (273, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0111, t01=0x0004}
0x1aa6e…1aa84               Head {h00=0x0012, h01=0x0050, text=» LD A15,SCTSTB«, t00=0x0111, t01=0x000e}
0x1aa84…1aa98               Head {h00=0x0010, h01=0x0050, text=» SUKL A15,4 «, t00=0x0111, t01=0x0024}
0x1aa98…1aaa0               Head {h00=0x0004, h01=0x0050, t00=0x0111, t01=0x0038}
0x1aaa0…1aaca               Head {h00=0x0026, h01=0x0050, text=» LD A2,SCTLAC GET S:GTAB (IF ANY) «, t00=0x0111, t01=0x0040}
0x1aaca…1aae0               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0111, t01=0x006a}
0x1aae0…1ab12               Head {h00=0x002e, h01=0x0050, text=» LD A2,CREID,A2 GET CREDIT IDENTIFICATION «, t00=0x0111, t01=0x0080}
0x1ab12…1ab1e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0111, t01=0x00b2}
0x1ab1e…1ab34               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0111, t01=0x00be}
0x1ab34…1ab4e               Head {h00=0x0016, h01=0x0050, text=» TL MMTAB,A13 %%##«, t00=0x0111, t01=0x00d4}
0x1ab4e…1ab66               Head {h00=0x0014, h01=0x0050, text=» EL A2,CREID,A2 «, t00=0x0111, t01=0x00ee}
0x1ab66…1ab72               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0111, t01=0x0106}
0x1ab72…1aba8               Head {h00=0x0032, h01=0x0050, text=» CM SWITCH,A13 RESET SAVE-AREAS USED IN SYSLDM«, t00=0x0111, t01=0x0112}
0x1aba8…1abbc               Head {h00=0x0010, h01=0x0050, text=» CM FLAG,A13«, t00=0x0111, t01=0x0148}
0x1abbc…1abe4               Head {h00=0x0024, h01=0x0050, text=» CWK A2,'CR' CREDIT APPLICATION?«, t00=0x0111, t01=0x015c}
0x1abe4…1ac10               Head {h00=0x0028, h01=0x0050, text=» RF(E) SYA100 YES! START CONFIGURATE«, t00=0x0111, t01=0x0184}
0x1ac10…1ac26               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=1 «, t00=0x0112, t01=0x0020}
0x1ac26…1ac2e               Head {h00=0x0004, h01=0x0050, t00=0x0112, t01=0x0036}
0x1ac2e…1ac4e               Head {h00=0x001c, h01=0x0050, text=»* ASSEMBLER APPLICATION «, t00=0x0112, t01=0x003e}
0x1ac4e…1ac56               Head {h00=0x0004, h01=0x0050, t00=0x0112, t01=0x005e}
0x1ac56…1ac76               Head {h00=0x001c, h01=0x0050, text=»* SWITCH TO LEVEL 0 ENB «, t00=0x0112, t01=0x0066}
0x1ac76…1ac7e               Head {h00=0x0004, h01=0x0050, t00=0x0112, t01=0x0086}
0x1ac7e…1acaa               Head {h00=0x0028, h01=0x0050, text=» LDKL A4,SYA103 CONTINUATION ADDRESS«, t00=0x0112, t01=0x008e}
0x1acaa…1acc6               Head {h00=0x0018, h01=0x0050, text=» ADR A4,A13 RELOCATE«, t00=0x0112, t01=0x00ba}
0x1acc6…1ace6               Head {h00=0x001c, h01=0x0050, text=» STR A4,A15 PUT ON STACK«, t00=0x0112, t01=0x00d6}
0x1ace6…1acfc               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/00C0«, t00=0x0112, t01=0x00f6}
0x1acfc…1ad20               Head {h00=0x0020, h01=0x0050, text=» STR A4,A15 PUT PSW ON STACK«, t00=0x0112, t01=0x010c}
0x1ad20…1ad30               Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0112, t01=0x0130}
0x1ad30…1ad48               Head {h00=0x0014, h01=0x0050, text=»SYA103 EQU *-REL«, t00=0x0112, t01=0x0140}
0x1ad48…1ad54               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0112, t01=0x0158}
0x1ad54…1ad70               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG-CREDIT=1«, t00=0x0112, t01=0x0164}
0x1ad70…1ad9c               Head {h00=0x0028, h01=0x0050, text=» LDKL A4,MMTAB GET MM-TABLE ADDRESS «, t00=0x0112, t01=0x0180}
0x1ad9c…1adb8               Head {h00=0x0018, h01=0x0050, text=» ADR A4,A13 RELOCATE«, t00=0x0113, t01=0x001c}
0x1adb8…1add6               Head {h00=0x001a, h01=0x0050, text=» ST A4,MMFROM,A13 SAVE«, t00=0x0113, t01=0x0038}
0x1add6…1ae02               Head {h00=0x0028, h01=0x0050, text=»* FILL MM-TABLES IN USER TASK TTAB'S«, t00=0x0113, t01=0x0056}
0x1ae02…1ae0a               Head {h00=0x0004, h01=0x0050, t00=0x0113, t01=0x0082}
0x1ae0a…1ae36               Head {h00=0x0028, h01=0x0050, text=» LD* A5,SCTTCT GET LENGTH OF TC:TAB «, t00=0x0113, t01=0x008a}
0x1ae36…1ae5e               Head {h00=0x0024, h01=0x0050, text=» LD A6,SAVE02,A13 1:ST USER TASK«, t00=0x0113, t01=0x00b6}
0x1ae5e…1ae76               Head {h00=0x0014, h01=0x0050, text=» LDR A3,A6 SAVE «, t00=0x0113, t01=0x00de}
0x1ae76…1aeaa               Head {h00=0x0030, h01=0x0050, text=» SU A3,SCTTCT GET DISPLACEMENT TO 1:ST USER «, t00=0x0113, t01=0x00f6}
0x1aeaa…1aed8               Head {h00=0x002a, h01=0x0050, text=» SUR A5,A3 => LENGTH OF TC:TAB TO SCAN«, t00=0x0113, t01=0x012a}
0x1aed8…1aee2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0113, t01=0x0158}
0x1aee2…1af04               Head {h00=0x001e, h01=0x0050, text=»*  INIT UNUSED MMU ENTRIES«, t00=0x0113, t01=0x0162}
0x1af04…1af0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0113, t01=0x0184}
0x1af0e…1af24               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/FC00«, t00=0x0113, t01=0x018e}
0x1af24…1af3a               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,MMTAB«, t00=0x0114, t01=0x0014}
0x1af3a…1af4e               Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x0114, t01=0x002a}
0x1af4e…1af68               Head {h00=0x0016, h01=0x0050, text=» LDR A4,A2  =00002«, t00=0x0114, t01=0x003e}
0x1af68…1af7e               Head {h00=0x0012, h01=0x0050, text=» SUKL A4,MMBEG«, t00=0x0114, t01=0x0058}
0x1af7e…1af94               Head {h00=0x0012, h01=0x0050, text=» AD A4,SCTMMC «, t00=0x0114, t01=0x006e}
0x1af94…1afac               Head {h00=0x0014, h01=0x0050, text=»SYA:10 CWR A4,A2«, t00=0x0114, t01=0x0084}
0x1afac…1afc2               Head {h00=0x0012, h01=0x0050, text=» RF(E) SYA105 «, t00=0x0114, t01=0x009c}
0x1afc2…1afd4               Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0114, t01=0x00b2}
0x1afd4…1afe6               Head {h00=0x000e, h01=0x0050, text=» STR A1,A4«, t00=0x0114, t01=0x00c4}
0x1afe6…1aff8               Head {h00=0x000e, h01=0x0050, text=» RB SYA:10«, t00=0x0114, t01=0x00d6}
0x1aff8…1b014               Head {h00=0x0018, h01=0x0050, text=»SYA105 SUK A5,2 ALL?«, t00=0x0114, t01=0x00e8}
0x1b014…1b02e               Head {h00=0x0016, h01=0x0050, text=» RF(N) SYA107 YES!«, t00=0x0114, t01=0x0104}
0x1b02e…1b04e               Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A6 TTAB-ADDRESS«, t00=0x0114, t01=0x011e}
0x1b04e…1b070               Head {h00=0x001e, h01=0x0050, text=» CALL MOVMMT MOVE MM-TABLE«, t00=0x0114, t01=0x013e}
0x1b070…1b08c               Head {h00=0x0018, h01=0x0050, text=» ADK A6,2 NEXT TTAB «, t00=0x0114, t01=0x0160}
0x1b08c…1b09e               Head {h00=0x000e, h01=0x0050, text=» RB SYA105«, t00=0x0114, t01=0x017c}
0x1b09e…1b0b2               Head {h00=0x0010, h01=0x0050, text=»SYA107 EQU *«, t00=0x0114, t01=0x018e}
0x1b0b2…1b0be               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0115, t01=0x0012}
0x1b0be…1b0d4               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=1 «, t00=0x0115, t01=0x001e}
0x1b0d4…1b10a               Head {h00=0x0032, h01=0x0050, text=» LD* A5,SAVE02,A13 1:ST USER TASK TTAB ADDRESS«, t00=0x0115, t01=0x0034}
0x1b10a…1b13c               Head {h00=0x002e, h01=0x0050, text=» LD A2,SAVE09,A13 EXECUTION START ADDRESS «, t00=0x0115, t01=0x006a}
0x1b13c…1b168               Head {h00=0x0028, h01=0x0050, text=» AD A2,SCTLAC ADD RELOCATION ADDRESS«, t00=0x0115, t01=0x009c}
0x1b168…1b188               Head {h00=0x001c, h01=0x0050, text=» LDK A3,0 SEGMENT NUMBER«, t00=0x0115, t01=0x00c8}
0x1b188…1b1a8               Head {h00=0x001c, h01=0x0050, text=» CF A15,ACTOT QUEUE TASK«, t00=0x0115, t01=0x00e8}
0x1b1a8…1b1ce               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,FINISH END OF SYSLDA «, t00=0x0115, t01=0x0108}
0x1b1ce…1b1e2               Head {h00=0x0010, h01=0x0050, text=» ADR A1,A13 «, t00=0x0115, t01=0x012e}
0x1b1e2…1b1f2               Head {h00=0x000c, h01=0x0050, text=» ABR A1 «, t00=0x0115, t01=0x0142}
0x1b1f2…1b1fe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0115, t01=0x0152}
0x1b1fe…1b212               Head {h00=0x0010, h01=0x0050, text=»SYA100 EQU *«, t00=0x0115, t01=0x015e}
0x1b212…1b228               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0115, t01=0x0172}
0x1b228…1b236               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0115, t01=0x0188}
0x1b236…1b242               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0116, t01=0x0008}
0x1b242…1b272               Head {h00=0x002c, h01=0x0050, text=»* READ CONFIG FILE AND BUILD SHADOWTABLE«, t00=0x0116, t01=0x0014}
0x1b272…1b27e               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0116, t01=0x0044}
0x1b27e…1b2b2               Head {h00=0x0030, h01=0x0050, text=» CM SAVE02,A13 CLEAR 'BUGGER TASK INDICATOR'«, t00=0x0116, t01=0x0050}
0x1b2b2…1b2ce               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0116, t01=0x0084}
0x1b2ce…1b2f8               Head {h00=0x0026, h01=0x0050, text=» LD* A2,SCTLAC GET START OF P:MTAB«, t00=0x0116, t01=0x00a0}
0x1b2f8…1b320               Head {h00=0x0024, h01=0x0050, text=» LD A12,T:ATAB,A2 T:ATAB ADDRESS«, t00=0x0116, t01=0x00ca}
0x1b320…1b34a               Head {h00=0x0026, h01=0x0050, text=» SUKL A12,2 ADJUST FOR LENGTH-WORD«, t00=0x0116, t01=0x00f2}
0x1b34a…1b36a               Head {h00=0x001c, h01=0x0050, text=» ST A12,T:ATOD,A13 SAVE «, t00=0x0116, t01=0x011c}
0x1b36a…1b39a               Head {h00=0x002c, h01=0x0050, text=» LD A4,U:BTAB,A2 GET U:BTAB FROM P:MTAB «, t00=0x0116, t01=0x013c}
0x1b39a…1b3c0               Head {h00=0x0022, h01=0x0050, text=» SUK A4,2 INCLUDE LENGTH-WORD «, t00=0x0116, t01=0x016c}
0x1b3c0…1b3e8 (279, 0, 400) Head {h00=0x0024, h01=0x0050, text=» ST A4,U:BTOD,A13 SAVE IN SYSLDA«, t00=0x0117, t01=0x0004}
0x1b3e8…1b3f4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0117, t01=0x002c}
0x1b3f4…1b410               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x0117, t01=0x0038}
0x1b410…1b43c               Head {h00=0x0028, h01=0x0050, text=» LD A4,S:BTAB,A2 GET S:BTAB ADDRESS «, t00=0x0117, t01=0x0054}
0x1b43c…1b464               Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 ADJUST FOR LENGTH WORD«, t00=0x0117, t01=0x0080}
0x1b464…1b482               Head {h00=0x001a, h01=0x0050, text=» ST A4,S:BTOD,A13 SAVE«, t00=0x0117, t01=0x00a8}
0x1b482…1b48e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0117, t01=0x00c6}
0x1b48e…1b4aa               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0117, t01=0x00d2}
0x1b4aa…1b4c6               Head {h00=0x0018, h01=0x0050, text=»* T:ATAB PROCESSING:«, t00=0x0117, t01=0x00ee}
0x1b4c6…1b4d2               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0117, t01=0x010a}
0x1b4d2…1b4f4               Head {h00=0x001e, h01=0x0050, text=» LDR* A4,A12 T:ATAB-LENGTH«, t00=0x0117, t01=0x0116}
0x1b4f4…1b50c               Head {h00=0x0014, h01=0x0050, text=» LDR A3,A4 SAVE «, t00=0x0117, t01=0x0138}
0x1b50c…1b53a               Head {h00=0x002a, h01=0x0050, text=» AD A3,SCTSFA ADD MONITOR END ADDRESS «, t00=0x0117, t01=0x0150}
0x1b53a…1b554               Head {h00=0x0016, h01=0x0050, text=»* CHECK ADDRESSES «, t00=0x0117, t01=0x017e}
0x1b554…1b55c               Head {h00=0x0004, h01=0x0050, t00=0x0118, t01=0x0008}
0x1b55c…1b582               Head {h00=0x0022, h01=0x0050, text=» LDR A11,A3 END OF SHADOW-TAB «, t00=0x0118, t01=0x0010}
0x1b582…1b5a6               Head {h00=0x0020, h01=0x0050, text=» LDR A9,A13 START OF SYSLDA «, t00=0x0118, t01=0x0036}
0x1b5a6…1b5ba               Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x0118, t01=0x005a}
0x1b5ba…1b5d4               Head {h00=0x0016, h01=0x0050, text=» RF(L) SYA110 OK! «, t00=0x0118, t01=0x006e}
0x1b5d4…1b5fa               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP3 MEMORY OVERFLOW «, t00=0x0118, t01=0x0088}
0x1b5fa…1b60e               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0118, t01=0x00ae}
0x1b60e…1b63a               Head {h00=0x0028, h01=0x0050, text=»SYA110 LDR A9,A2 GET P:MTAB ADDRESS «, t00=0x0118, t01=0x00c2}
0x1b63a…1b64c               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0118, t01=0x00ee}
0x1b64c…1b670               Head {h00=0x0020, h01=0x0050, text=»* CLEAR T:ATAB SHADOW-TABLE:«, t00=0x0118, t01=0x0100}
0x1b670…1b67c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0118, t01=0x0124}
0x1b67c…1b696               Head {h00=0x0016, h01=0x0050, text=»ZERO SUK A3,2 NEXT«, t00=0x0118, t01=0x0130}
0x1b696…1b6ae               Head {h00=0x0014, h01=0x0050, text=» STR A2,A3 CLEAR«, t00=0x0118, t01=0x014a}
0x1b6ae…1b6c8               Head {h00=0x0016, h01=0x0050, text=» CW A3,SCTSFA ALL?«, t00=0x0118, t01=0x0162}
0x1b6c8…1b6e0               Head {h00=0x0014, h01=0x0050, text=» RB(NE) ZERO NO!«, t00=0x0118, t01=0x017c}
0x1b6e0…1b706 (281, 0, 400) Head {h00=0x0022, h01=0x0050, text=» STR A4,A3 STORE TABLE LENGTH «, t00=0x0119, t01=0x0004}
0x1b706…1b732               Head {h00=0x0028, h01=0x0050, text=» LD A11,SAVE01,A13 GET CONFIG START «, t00=0x0119, t01=0x002a}
0x1b732…1b758               Head {h00=0x0022, h01=0x0050, text=» LC A2,TDBBT,A11 GET BLOCKTYPE«, t00=0x0119, t01=0x0056}
0x1b758…1b776               Head {h00=0x001a, h01=0x0050, text=» CCK A2,'TT' TASK DEF?«, t00=0x0119, t01=0x007c}
0x1b776…1b790               Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA120 OK! «, t00=0x0119, t01=0x009a}
0x1b790…1b7b4               Head {h00=0x0020, h01=0x0050, text=» LDK A1,LMP4 NO TASK PRESENT«, t00=0x0119, t01=0x00b4}
0x1b7b4…1b7c8               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0119, t01=0x00d8}
0x1b7c8…1b7f4               Head {h00=0x0028, h01=0x0050, text=»SYA120 LC A2,TDBMC+4,A11 GET TASK ID«, t00=0x0119, t01=0x00ec}
0x1b7f4…1b808               Head {h00=0x0010, h01=0x0050, text=» SLL A2,8 . «, t00=0x0119, t01=0x0118}
0x1b808…1b826               Head {h00=0x001a, h01=0x0050, text=» LC A2,TDBMC+5,A11 ...«, t00=0x0119, t01=0x012c}
0x1b826…1b848               Head {h00=0x001e, h01=0x0050, text=» CWK A2,'TB' BUGGER TASK? «, t00=0x0119, t01=0x014a}
0x1b848…1b862               Head {h00=0x0016, h01=0x0050, text=» RF(NE) SYA125 NO!«, t00=0x0119, t01=0x016c}
0x1b862…1b8a0               Head {h00=0x003a, h01=0x0050, text=» ST A2,SAVE02,A13 INDICATE BUGGER TASK PRESENT =00001 «, t00=0x0119, t01=0x0186}
0x1b8a0…1b8c6               Head {h00=0x0022, h01=0x0050, text=» RF SYA136 SKIP TO NEXT BLOCK «, t00=0x011a, t01=0x0034}
0x1b8c6…1b8e4               Head {h00=0x001a, h01=0x0050, text=»SYA125 LDR A8,A12 SAVE«, t00=0x011a, t01=0x005a}
0x1b8e4…1b906               Head {h00=0x001e, h01=0x0050, text=» LDR* A4,A12 T:ATAB LENGTH«, t00=0x011a, t01=0x0078}
0x1b906…1b928               Head {h00=0x001e, h01=0x0050, text=»SYA130 ADKL A8,2 NEXT T:A «, t00=0x011a, t01=0x009a}
0x1b928…1b94c               Head {h00=0x0020, h01=0x0050, text=» LDR* A6,A8 GET T:A ADDRESS «, t00=0x011a, t01=0x00bc}
0x1b94c…1b95e               Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x011a, t01=0x00e0}
0x1b95e…1b974               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SYA135«, t00=0x011a, t01=0x00f2}
0x1b974…1b9a8               Head {h00=0x0030, h01=0x0050, text=» LDK A1,LMP5 NO PROTOTYPE FOUND (TID ERROR) «, t00=0x011a, t01=0x0108}
0x1b9a8…1b9bc               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x011a, t01=0x013c}
0x1b9bc…1b9d0               Head {h00=0x0010, h01=0x0050, text=»SYA135 EQU *«, t00=0x011a, t01=0x0150}
0x1b9d0…1b9f4               Head {h00=0x0020, h01=0x0050, text=» CW A2,T:ATID,A6 TID EQUAL? «, t00=0x011a, t01=0x0164}
0x1b9f4…1ba0e               Head {h00=0x0016, h01=0x0050, text=» RB(NE) SYA130 NO!«, t00=0x011a, t01=0x0188}
0x1ba0e…1ba30               Head {h00=0x001e, h01=0x0050, text=» SUR* A4,A12 T:ATAB LENGTH«, t00=0x011b, t01=0x0012}
0x1ba30…1ba3c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011b, t01=0x0034}
0x1ba3c…1ba58               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x011b, t01=0x0040}
0x1ba58…1ba82               Head {h00=0x0026, h01=0x0050, text=» EL* A2,SCTLAC GET START OF P:MTAB«, t00=0x011b, t01=0x005c}
0x1ba82…1baaa               Head {h00=0x0024, h01=0x0050, text=» EL A12,T:ATAB,A2 T:ATAB ADDRESS«, t00=0x011b, t01=0x0086}
0x1baaa…1bad2               Head {h00=0x0024, h01=0x0050, text=» SUKL A12,2 INCLUDE LENGTH WORD «, t00=0x011b, t01=0x00ae}
0x1bad2…1bafc               Head {h00=0x0026, h01=0x0050, text=» ST A12,T:ATOD,A13 SAVE IN SYSLDA «, t00=0x011b, t01=0x00d6}
0x1bafc…1bb24               Head {h00=0x0024, h01=0x0050, text=» EL A4,U:BTAB,A2 U:BTAB ADDRESS «, t00=0x011b, t01=0x0100}
0x1bb24…1bb4c               Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 ADJUST FOR LENGTH WORD«, t00=0x011b, t01=0x0128}
0x1bb4c…1bb74               Head {h00=0x0024, h01=0x0050, text=» ST A4,U:BTOD,A13 SAVE IN SYSLDA«, t00=0x011b, t01=0x0150}
0x1bb74…1bb80               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011b, t01=0x0178}
0x1bb80…1bb9c               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x011b, t01=0x0184}
0x1bb9c…1bbc8               Head {h00=0x0028, h01=0x0050, text=» EL A4,S:BTAB,A2 GET S:BTAB ADDRESS «, t00=0x011c, t01=0x0010}
0x1bbc8…1bbf0               Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 ADJUST FOR LENGTH WORD«, t00=0x011c, t01=0x003c}
0x1bbf0…1bc0e               Head {h00=0x001a, h01=0x0050, text=» ST A4,S:BTOD,A13 SAVE«, t00=0x011c, t01=0x0064}
0x1bc0e…1bc1a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x011c, t01=0x0082}
0x1bc1a…1bc36               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x011c, t01=0x008e}
0x1bc36…1bc52               Head {h00=0x0018, h01=0x0050, text=»* T:ATAB PROCESSING:«, t00=0x011c, t01=0x00aa}
0x1bc52…1bc5e               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x011c, t01=0x00c6}
0x1bc5e…1bc80               Head {h00=0x001e, h01=0x0050, text=» ELR A4,A12 T:ATAB-LENGTH «, t00=0x011c, t01=0x00d2}
0x1bc80…1bc98               Head {h00=0x0014, h01=0x0050, text=» LDR A3,A4 SAVE «, t00=0x011c, t01=0x00f4}
0x1bc98…1bccc               Head {h00=0x0030, h01=0x0050, text=» SLL A3,1 RESERVE FOR MM-TABLE ADDRESS TABLE«, t00=0x011c, t01=0x010c}
0x1bccc…1bcfa               Head {h00=0x002a, h01=0x0050, text=» AD A3,SCTSFA ADD MONITOR END ADDRESS «, t00=0x011c, t01=0x0140}
0x1bcfa…1bd14               Head {h00=0x0016, h01=0x0050, text=»* CHECK ADDRESSES «, t00=0x011c, t01=0x016e}
0x1bd14…1bd1c               Head {h00=0x0004, h01=0x0050, t00=0x011c, t01=0x0188}
0x1bd1c…1bd44               Head {h00=0x0024, h01=0x0050, text=» LDR A11,A3 END OF SHADOW-TABLE «, t00=0x011c, t01=0x0190}
0x1bd44…1bd68               Head {h00=0x0020, h01=0x0050, text=» LDR A9,A13 START OF SYSLDA «, t00=0x011d, t01=0x0028}
0x1bd68…1bd7c               Head {h00=0x0010, h01=0x0050, text=» CALL CMPADR«, t00=0x011d, t01=0x004c}
0x1bd7c…1bd96               Head {h00=0x0016, h01=0x0050, text=» RF(L) SYA110 OK! «, t00=0x011d, t01=0x0060}
0x1bd96…1bdbc               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,LMP3 MEMORY OVERFLOW «, t00=0x011d, t01=0x007a}
0x1bdbc…1bdd0               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x011d, t01=0x00a0}
0x1bdd0…1bdfc               Head {h00=0x0028, h01=0x0050, text=»SYA110 LDR A9,A2 GET P:MTAB ADDRESS «, t00=0x011d, t01=0x00b4}
0x1bdfc…1be20               Head {h00=0x0020, h01=0x0050, text=»* CLEAR T:ATAB SHADOW-TABLE:«, t00=0x011d, t01=0x00e0}
0x1be20…1be2c               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x011d, t01=0x0104}
0x1be2c…1be48               Head {h00=0x0018, h01=0x0050, text=»SYA115 SUK A3,2 NEXT«, t00=0x011d, t01=0x0110}
0x1be48…1be5e               Head {h00=0x0012, h01=0x0050, text=» CMR A3 CLEAR «, t00=0x011d, t01=0x012c}
0x1be5e…1be78               Head {h00=0x0016, h01=0x0050, text=» CW A3,SCTSFA ALL?«, t00=0x011d, t01=0x0142}
0x1be78…1be92               Head {h00=0x0016, h01=0x0050, text=» RB(NE) SYA115 NO!«, t00=0x011d, t01=0x015c}
0x1be92…1beb8               Head {h00=0x0022, h01=0x0050, text=» STR A4,A3 STORE TABLE LENGTH «, t00=0x011d, t01=0x0176}
0x1beb8…1bee4               Head {h00=0x0028, h01=0x0050, text=» LD A11,SAVE01,A13 GET CONFIG START «, t00=0x011e, t01=0x000c}
0x1bee4…1bf0a               Head {h00=0x0022, h01=0x0050, text=» LC A2,TDBBT,A11 GET BLOCKTYPE«, t00=0x011e, t01=0x0038}
0x1bf0a…1bf28               Head {h00=0x001a, h01=0x0050, text=» CCK A2,'TT' TASK DEF?«, t00=0x011e, t01=0x005e}
0x1bf28…1bf42               Head {h00=0x0016, h01=0x0050, text=» RF(E) SYA120 OK! «, t00=0x011e, t01=0x007c}
0x1bf42…1bf66               Head {h00=0x0020, h01=0x0050, text=» LDK A1,LMP4 NO TASK PRESENT«, t00=0x011e, t01=0x0096}
0x1bf66…1bf7a               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x011e, t01=0x00ba}
0x1bf7a…1bfa6               Head {h00=0x0028, h01=0x0050, text=»SYA120 LC A2,TDBMC+4,A11 GET TASK ID«, t00=0x011e, t01=0x00ce}
0x1bfa6…1bfba               Head {h00=0x0010, h01=0x0050, text=» SLL A2,8 . «, t00=0x011e, t01=0x00fa}
0x1bfba…1bfd8               Head {h00=0x001a, h01=0x0050, text=» LC A2,TDBMC+5,A11 ...«, t00=0x011e, t01=0x010e}
0x1bfd8…1bffa               Head {h00=0x001e, h01=0x0050, text=» CWK A2,'TB' BUGGER TASK? «, t00=0x011e, t01=0x012c}
0x1bffa…1c014               Head {h00=0x0016, h01=0x0050, text=» RF(NE) SYA125 NO!«, t00=0x011e, t01=0x014e}
0x1c014…1c04c               Head {h00=0x0034, h01=0x0050, text=» ST A2,SAVE02,A13 INDICATE 'BUGGER TASK PRESENT'«, t00=0x011e, t01=0x0168}
0x1c04c…1c06e               Head {h00=0x001e, h01=0x0050, text=» RF SYA136 SKIP THIS BLOCK«, t00=0x011f, t01=0x0010}
0x1c06e…1c08c               Head {h00=0x001a, h01=0x0050, text=»SYA125 LDR A8,A12 SAVE«, t00=0x011f, t01=0x0032}
0x1c08c…1c0ae               Head {h00=0x001e, h01=0x0050, text=» ELR A4,A12 T:ATAB LENGTH «, t00=0x011f, t01=0x0050}
0x1c0ae…1c0d0               Head {h00=0x001e, h01=0x0050, text=»SYA130 ADKL A8,2 NEXT T:A «, t00=0x011f, t01=0x0072}
0x1c0d0…1c0f2               Head {h00=0x001e, h01=0x0050, text=» ELR A6,A8 GET T:A ADDRESS«, t00=0x011f, t01=0x0094}
0x1c0f2…1c104               Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x011f, t01=0x00b6}
0x1c104…1c11a               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SYA135«, t00=0x011f, t01=0x00c8}
0x1c11a…1c14a               Head {h00=0x002c, h01=0x0050, text=» LDK A1,LMP5 NO PROT. FOUND (TID ERROR) «, t00=0x011f, t01=0x00de}
0x1c14a…1c15e               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x011f, t01=0x010e}
0x1c15e…1c172               Head {h00=0x0010, h01=0x0050, text=»SYA135 EQU *«, t00=0x011f, t01=0x0122}
0x1c172…1c194               Head {h00=0x001e, h01=0x0050, text=» EL A10,T:ATID,A6 GET TID «, t00=0x011f, t01=0x0136}
0x1c194…1c1b2               Head {h00=0x001a, h01=0x0050, text=» CWR A2,A10 TID EQUAL?«, t00=0x011f, t01=0x0158}
0x1c1b2…1c1cc               Head {h00=0x0016, h01=0x0050, text=» RB(NE) SYA130 NO!«, t00=0x011f, t01=0x0176}
0x1c1cc…1c1e0               Head {h00=0x0010, h01=0x0050, text=» ELR A10,A12«, t00=0x011f, t01=0x0190}
0x1c1e0…1c202               Head {h00=0x001e, h01=0x0050, text=» SUR A4,A10 T:ATAB LENGTH «, t00=0x0120, t01=0x0014}
0x1c202…1c20e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0120, t01=0x0036}
0x1c20e…1c224               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0120, t01=0x0042}
0x1c224…1c256               Head {h00=0x002e, h01=0x0050, text=» NGR A4,A4 => A4=DISPLACEM. IN SHADOW-TAB «, t00=0x0120, t01=0x0058}
0x1c256…1c282               Head {h00=0x0028, h01=0x0050, text=» LC A5,TDBNT,A11 GET NUMBER OF TASKS«, t00=0x0120, t01=0x008a}
0x1c282…1c294               Head {h00=0x000e, h01=0x0050, text=» SLL A5,8 «, t00=0x0120, t01=0x00b6}
0x1c294…1c2ae               Head {h00=0x0016, h01=0x0050, text=» LC A5,TDBNT+1,A11«, t00=0x0120, t01=0x00c8}
0x1c2ae…1c2c2               Head {h00=0x0010, h01=0x0050, text=» CALL CONVRT«, t00=0x0120, t01=0x00e2}
0x1c2c2…1c2ee               Head {h00=0x0028, h01=0x0050, text=» LD A2,SCTSFA START OF SHADOW TABLE «, t00=0x0120, t01=0x00f6}
0x1c2ee…1c300               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x0120, t01=0x0122}
0x1c300…1c33a               Head {h00=0x0036, h01=0x0050, text=» ADRS A1,A2 STORE NUMBER OF TASKS IN SHADOW TABLE «, t00=0x0120, t01=0x0134}
0x1c33a…1c346               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0120, t01=0x016e}
0x1c346…1c362               Head {h00=0x0018, h01=0x0050, text=»* SKIP TO NEXT BLOCK«, t00=0x0120, t01=0x017a}
0x1c362…1c36e               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0121, t01=0x0008}
0x1c36e…1c388               Head {h00=0x0016, h01=0x0050, text=»SYA136 CALL NXTBLK«, t00=0x0121, t01=0x0014}
0x1c388…1c39c               Head {h00=0x0010, h01=0x0050, text=»SYA137 EQU *«, t00=0x0121, t01=0x002e}
0x1c39c…1c3b0               Head {h00=0x0010, h01=0x0050, text=» CCK A2,'TT'«, t00=0x0121, t01=0x0042}
0x1c3b0…1c3da               Head {h00=0x0026, h01=0x0050, text=» RB(E) SYA120 NEXT TASK DEF BLOCK «, t00=0x0121, t01=0x0056}
0x1c3da…1c3ee               Head {h00=0x0010, h01=0x0050, text=» CCK A2,'CC'«, t00=0x0121, t01=0x0080}
0x1c3ee…1c404               Head {h00=0x0012, h01=0x0050, text=» RF(NE) SYA140«, t00=0x0121, t01=0x0094}
0x1c404…1c432               Head {h00=0x002a, h01=0x0050, text=» ADKL A11,1 STEP TO NUMBER OF COM.DEV.«, t00=0x0121, t01=0x00aa}
0x1c432…1c456               Head {h00=0x0020, h01=0x0050, text=» CALL NXTCOM SKIP COMMON DEF«, t00=0x0121, t01=0x00d8}
0x1c456…1c470               Head {h00=0x0016, h01=0x0050, text=»SYA140 CCK A2,'UU'«, t00=0x0121, t01=0x00fc}
0x1c470…1c490               Head {h00=0x001c, h01=0x0050, text=» RF(NE) SYA141 NO UWB'S «, t00=0x0121, t01=0x0116}
0x1c490…1c4c6               Head {h00=0x0032, h01=0x0050, text=» LD A8,U:BTOD,A13 GET MODIFIED U:BTAB ADDRESS «, t00=0x0121, t01=0x0136}
0x1c4c6…1c500               Head {h00=0x0036, h01=0x0050, text=» CALL USWBTP INSERT NUMBER OF COPIES IN PROTOTYPE «, t00=0x0121, t01=0x016c}
0x1c500…1c514               Head {h00=0x0010, h01=0x0050, text=»SYA141 EQU *«, t00=0x0122, t01=0x0016}
0x1c514…1c520               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0122, t01=0x002a}
0x1c520…1c53c               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0122, t01=0x0036}
0x1c53c…1c550               Head {h00=0x0010, h01=0x0050, text=» LCR A2,A11 «, t00=0x0122, t01=0x0052}
0x1c550…1c564               Head {h00=0x0010, h01=0x0050, text=» CCK A2,'SS'«, t00=0x0122, t01=0x0066}
0x1c564…1c57a               Head {h00=0x0012, h01=0x0050, text=» RF(NE) SYA152«, t00=0x0122, t01=0x007a}
0x1c57a…1c594               Head {h00=0x0016, h01=0x0050, text=» LD A8,S:BTOD,A13 «, t00=0x0122, t01=0x0090}
0x1c594…1c5a8               Head {h00=0x0010, h01=0x0050, text=» CALL USWBTP«, t00=0x0122, t01=0x00aa}
0x1c5a8…1c5b4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0122, t01=0x00be}
0x1c5b4…1c5ca               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0122, t01=0x00ca}
0x1c5ca…1c5dc               Head {h00=0x000e, h01=0x0050, text=» RF SYA152«, t00=0x0122, t01=0x00e0}
0x1c5dc…1c5ea               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0122, t01=0x00f2}
0x1c5ea…1c63a               Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0122, t01=0x0100}
0x1c63a…1c68a               Head {h00=0x004c, h01=0x0050, text=»*                                                                     * «, t00=0x0122, t01=0x0150}
0x1c68a…1c6da               Head {h00=0x004c, h01=0x0050, text=»*  USWBTP - INSERT NUMBER OF COPIES IN U:BTAB/S:BTAB PROTOTYPE TABLE  * «, t00=0x0123, t01=0x0010}
0x1c6da…1c72a               Head {h00=0x004c, h01=0x0050, text=»*  =================================================================  * «, t00=0x0123, t01=0x0060}
0x1c72a…1c77a               Head {h00=0x004c, h01=0x0050, text=»*                                                                     * «, t00=0x0123, t01=0x00b0}
0x1c77a…1c7ca               Head {h00=0x004c, h01=0x0050, text=»*  REFERENCED IN:  SYSLDA                                             * «, t00=0x0123, t01=0x0100}
0x1c7ca…1c81a               Head {h00=0x004c, h01=0x0050, text=»*                                                                     * «, t00=0x0123, t01=0x0150}
0x1c81a…1c86a               Head {h00=0x004c, h01=0x0050, text=»*  ENTRY:  A8 - MODIFIED ADDRESS TO U:BTAB/S:BTAB PROTOTYPE TABLE     * «, t00=0x0124, t01=0x0010}
0x1c86a…1c8ba               Head {h00=0x004c, h01=0x0050, text=»*          A11- POINTER IN CONFIGURATION TABLE TO 'U' OR 'S' BLOCK    * «, t00=0x0124, t01=0x0060}
0x1c8ba…1c90a               Head {h00=0x004c, h01=0x0050, text=»*                                                                     * «, t00=0x0124, t01=0x00b0}
0x1c90a…1c95a               Head {h00=0x004c, h01=0x0050, text=»*  EXIT:                                                              * «, t00=0x0124, t01=0x0100}
0x1c95a…1c9aa               Head {h00=0x004c, h01=0x0050, text=»*                                                                     * «, t00=0x0124, t01=0x0150}
0x1c9aa…1c9fa               Head {h00=0x004c, h01=0x0050, text=»*  WORK REGISTERS:                                                    * «, t00=0x0125, t01=0x0010}
0x1c9fa…1ca4a               Head {h00=0x004c, h01=0x0050, text=»*                                                                     * «, t00=0x0125, t01=0x0060}
0x1ca4a…1ca9a               Head {h00=0x004c, h01=0x0050, text=»*  SUBROUTINES:  GETNUM,ERROR                                         * «, t00=0x0125, t01=0x00b0}
0x1ca9a…1caea               Head {h00=0x004c, h01=0x0050, text=»*                                                                     * «, t00=0x0125, t01=0x0100}
0x1caea…1cb3a               Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0125, t01=0x0150}
0x1cb3a…1cb42               Head {h00=0x0004, h01=0x0050, t00=0x0126, t01=0x0010}
0x1cb42…1cb56               Head {h00=0x0010, h01=0x0050, text=»USWBTP EQU *«, t00=0x0126, t01=0x0018}
0x1cb56…1cb5e               Head {h00=0x0004, h01=0x0050, t00=0x0126, t01=0x002c}
0x1cb5e…1cb6a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0126, t01=0x0034}
0x1cb6a…1cb86               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0126, t01=0x0040}
0x1cb86…1cb9a               Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x0126, t01=0x005c}
0x1cb9a…1cbae               Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0126, t01=0x0070}
0x1cbae…1cbdc               Head {h00=0x002a, h01=0x0050, text=» CALL GETNUM PACK 3 DIG. RESULT IN A5 «, t00=0x0126, t01=0x0084}
0x1cbdc…1cc04               Head {h00=0x0024, h01=0x0050, text=» LDR A1,A5 SAVE NUMBER OF UWB'S «, t00=0x0126, t01=0x00b2}
0x1cc04…1cc18               Head {h00=0x0010, h01=0x0050, text=»SYA142 EQU *«, t00=0x0126, t01=0x00da}
0x1cc18…1cc2c               Head {h00=0x0010, h01=0x0050, text=» LDR A12,A8 «, t00=0x0126, t01=0x00ee}
0x1cc2c…1cc52               Head {h00=0x0022, h01=0x0050, text=» LDR* A3,A12 LENGTH OF U:BTAB «, t00=0x0126, t01=0x0102}
0x1cc52…1cc7e               Head {h00=0x0028, h01=0x0050, text=» ADKL A11,UDBFST-1 FIRST UDB RECORD «, t00=0x0126, t01=0x0128}
0x1cc7e…1cc92               Head {h00=0x0010, h01=0x0050, text=»SYA145 EQU *«, t00=0x0126, t01=0x0154}
0x1cc92…1ccc6               Head {h00=0x0030, h01=0x0050, text=» LCR A2,A11 GET FIRST CHARACTER FROM CONFIG «, t00=0x0126, t01=0x0168}
0x1ccc6…1ccd8               Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x0127, t01=0x000c}
0x1ccd8…1ccfa               Head {h00=0x001e, h01=0x0050, text=» LC A2,1,A11 GET 2:ND CHAR«, t00=0x0127, t01=0x001e}
0x1ccfa…1cd34               Head {h00=0x0036, h01=0x0050, text=» CW A2,UPNAME,A12 COMPARE W. 1:ST WORD IN PROTOTYP«, t00=0x0127, t01=0x0040}
0x1cd34…1cd62               Head {h00=0x002a, h01=0x0050, text=» RF(E) FRSTOK FIRST TWO CHARACTERS OK!«, t00=0x0127, t01=0x007a}
0x1cd62…1cd96               Head {h00=0x0030, h01=0x0050, text=»SYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S «, t00=0x0127, t01=0x00a8}
0x1cd96…1cdac               Head {h00=0x0012, h01=0x0050, text=» RF(NN) SYA150«, t00=0x0127, t01=0x00dc}
0x1cdac…1cdce               Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP6 UWB NOT FOUND«, t00=0x0127, t01=0x00f2}
0x1cdce…1cde2               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x0127, t01=0x0114}
0x1cde2…1cdf6               Head {h00=0x0010, h01=0x0050, text=»SYA150 EQU *«, t00=0x0127, t01=0x0128}
0x1cdf6…1ce22               Head {h00=0x0028, h01=0x0050, text=» ADKL A12,UP:REC ADD TO NEXT RECORD «, t00=0x0127, t01=0x013c}
0x1ce22…1ce34               Head {h00=0x000e, h01=0x0050, text=» RB SYA145«, t00=0x0127, t01=0x0168}
0x1ce34…1ce5c               Head {h00=0x0024, h01=0x0050, text=»FRSTOK LC A2,2,A11 GET 3:RD CHAR«, t00=0x0127, t01=0x017a}
0x1ce5c…1ce78               Head {h00=0x0018, h01=0x0050, text=» CC A2,UPNAME+2,A12 «, t00=0x0128, t01=0x0012}
0x1ce78…1ce94               Head {h00=0x0018, h01=0x0050, text=» RB(NE) SYA147 .NEQ.«, t00=0x0128, t01=0x002e}
0x1ce94…1cea2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0128, t01=0x004a}
0x1cea2…1ceae               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0128, t01=0x0058}
0x1ceae…1ceca               Head {h00=0x0018, h01=0x0050, text=»* PROTOTYPE FOUND * «, t00=0x0128, t01=0x0064}
0x1ceca…1ced6               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0128, t01=0x0080}
0x1ced6…1cf12               Head {h00=0x0038, h01=0x0050, text=» ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG«, t00=0x0128, t01=0x008c}
0x1cf12…1cf26               Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0128, t01=0x00c8}
0x1cf26…1cf42               Head {h00=0x0018, h01=0x0050, text=» CALL GETNUM CONVERT«, t00=0x0128, t01=0x00dc}
0x1cf42…1cf78               Head {h00=0x0032, h01=0x0050, text=» SC A5,UPNUMB,A12 SAVE IN U:BTAB (SHADOWTABLE)«, t00=0x0128, t01=0x00f8}
0x1cf78…1cfaa               Head {h00=0x002e, h01=0x0050, text=» SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE «, t00=0x0128, t01=0x012e}
0x1cfaa…1cfc0               Head {h00=0x0012, h01=0x0050, text=» RB(P) SYA142 «, t00=0x0128, t01=0x0160}
0x1cfc0…1cfda               Head {h00=0x0016, h01=0x0050, text=» ADKL A11,UDBFST-1«, t00=0x0128, t01=0x0176}
0x1cfda…1cfea               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0128, t01=0x0190}
0x1cfea…1cff6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0129, t01=0x0010}
0x1cff6…1d012               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0129, t01=0x001c}
0x1d012…1d026               Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x0129, t01=0x0038}
0x1d026…1d03a               Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x0129, t01=0x004c}
0x1d03a…1d068               Head {h00=0x002a, h01=0x0050, text=» CALL GETNUM PACK 3 DIG. RESULT IN A5 «, t00=0x0129, t01=0x0060}
0x1d068…1d090               Head {h00=0x0024, h01=0x0050, text=» LDR A1,A5 SAVE NUMBER OF UWB'S «, t00=0x0129, t01=0x008e}
0x1d090…1d0a4               Head {h00=0x0010, h01=0x0050, text=»SYA142 EQU *«, t00=0x0129, t01=0x00b6}
0x1d0a4…1d0c6               Head {h00=0x001e, h01=0x0050, text=» LDR A12,A8 START OF TABLE«, t00=0x0129, t01=0x00ca}
0x1d0c6…1d0ea               Head {h00=0x0020, h01=0x0050, text=» ELR A3,A12 LENGTH OF U:BTAB«, t00=0x0129, t01=0x00ec}
0x1d0ea…1d116               Head {h00=0x0028, h01=0x0050, text=» ADKL A11,UDBFST-1 FIRST UDB RECORD «, t00=0x0129, t01=0x0110}
0x1d116…1d12a               Head {h00=0x0010, h01=0x0050, text=»SYA145 EQU *«, t00=0x0129, t01=0x013c}
0x1d12a…1d15e               Head {h00=0x0030, h01=0x0050, text=» LCR A2,A11 GET FIRST CHARACTER FROM CONFIG «, t00=0x0129, t01=0x0150}
0x1d15e…1d170               Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x0129, t01=0x0184}
0x1d170…1d192               Head {h00=0x001e, h01=0x0050, text=» LC A2,1,A11 GET 2:ND CHAR«, t00=0x012a, t01=0x0008}
0x1d192…1d1c8               Head {h00=0x0032, h01=0x0050, text=» EL A10,UPNAME,A12 GET FIRST WORD IN PROTOTYPE«, t00=0x012a, t01=0x002a}
0x1d1c8…1d1dc               Head {h00=0x0010, h01=0x0050, text=» CWR A2,A10 «, t00=0x012a, t01=0x0060}
0x1d1dc…1d200               Head {h00=0x0020, h01=0x0050, text=» RF(E) FRSTOK FIRST WORD OK!«, t00=0x012a, t01=0x0074}
0x1d200…1d234               Head {h00=0x0030, h01=0x0050, text=»SYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S «, t00=0x012a, t01=0x0098}
0x1d234…1d24a               Head {h00=0x0012, h01=0x0050, text=» RF(NN) SYA150«, t00=0x012a, t01=0x00cc}
0x1d24a…1d26c               Head {h00=0x001e, h01=0x0050, text=» LDK A1,LMP6 UWB NOT FOUND«, t00=0x012a, t01=0x00e2}
0x1d26c…1d280               Head {h00=0x0010, h01=0x0050, text=» CALL ERROR «, t00=0x012a, t01=0x0104}
0x1d280…1d294               Head {h00=0x0010, h01=0x0050, text=»SYA150 EQU *«, t00=0x012a, t01=0x0118}
0x1d294…1d2c0               Head {h00=0x0028, h01=0x0050, text=» ADKL A12,UP:REC ADD TO NEXT RECORD «, t00=0x012a, t01=0x012c}
0x1d2c0…1d2d2               Head {h00=0x000e, h01=0x0050, text=» RB SYA145«, t00=0x012a, t01=0x0158}
0x1d2d2…1d308               Head {h00=0x0032, h01=0x0050, text=»FRSTOK LC A10,2,A11 GET 3:RD CHAR FROM CONFIG «, t00=0x012a, t01=0x016a}
0x1d308…1d33c               Head {h00=0x0030, h01=0x0050, text=» EL A2,UPNAME+2,A12 GET 3:RD CHAR FROM PROY «, t00=0x012b, t01=0x0010}
0x1d33c…1d34e               Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x012b, t01=0x0044}
0x1d34e…1d364               Head {h00=0x0012, h01=0x0050, text=» ANKL A10,/FF «, t00=0x012b, t01=0x0056}
0x1d364…1d378               Head {h00=0x0010, h01=0x0050, text=» CWR A10,A2 «, t00=0x012b, t01=0x006c}
0x1d378…1d394               Head {h00=0x0018, h01=0x0050, text=» RB(NE) SYA147 .NEQ.«, t00=0x012b, t01=0x0080}
0x1d394…1d3a2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012b, t01=0x009c}
0x1d3a2…1d3ae               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x012b, t01=0x00aa}
0x1d3ae…1d3ca               Head {h00=0x0018, h01=0x0050, text=»* PROTOTYPE FOUND * «, t00=0x012b, t01=0x00b6}
0x1d3ca…1d3e6               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x012b, t01=0x00d2}
0x1d3e6…1d3f2               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x012b, t01=0x00ee}
0x1d3f2…1d42e               Head {h00=0x0038, h01=0x0050, text=» ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG«, t00=0x012b, t01=0x00fa}
0x1d42e…1d442               Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x012b, t01=0x0136}
0x1d442…1d45e               Head {h00=0x0018, h01=0x0050, text=» CALL GETNUM CONVERT«, t00=0x012b, t01=0x014a}
0x1d45e…1d496               Head {h00=0x0034, h01=0x0050, text=» EL A10,UPNUMB-1,A12 SAVE IN U:BTAB SHADOW-TABLE«, t00=0x012b, t01=0x0166}
0x1d496…1d4ae               Head {h00=0x0014, h01=0x0050, text=» ANKL A10,/FF00 «, t00=0x012c, t01=0x000e}
0x1d4ae…1d4c2               Head {h00=0x0010, h01=0x0050, text=» ORR A10,A5 «, t00=0x012c, t01=0x0026}
0x1d4c2…1d4de               Head {h00=0x0018, h01=0x0050, text=» ES A10,UPNUMB-1,A12«, t00=0x012c, t01=0x003a}
0x1d4de…1d510               Head {h00=0x002e, h01=0x0050, text=» SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE «, t00=0x012c, t01=0x0056}
0x1d510…1d526               Head {h00=0x0012, h01=0x0050, text=» RB(P) SYA142 «, t00=0x012c, t01=0x0088}
0x1d526…1d540               Head {h00=0x0016, h01=0x0050, text=» ADKL A11,UDBFST-1«, t00=0x012c, t01=0x009e}
0x1d540…1d550               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x012c, t01=0x00b8}
0x1d550…1d55c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012c, t01=0x00c8}
0x1d55c…1d572               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x012c, t01=0x00d4}
0x1d572…1d580               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x012c, t01=0x00ea}
0x1d580…1d594               Head {h00=0x0010, h01=0x0050, text=»SYA152 EQU *«, t00=0x012c, t01=0x00f8}
0x1d594…1d59c               Head {h00=0x0004, h01=0x0050, t00=0x012c, t01=0x010c}
0x1d59c…1d5c6               Head {h00=0x0026, h01=0x0050, text=»* GET START OF SYSLOAD AFTER MOVE «, t00=0x012c, t01=0x0114}
0x1d5c6…1d5d2               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x012c, t01=0x013e}
0x1d5d2…1d5de               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012c, t01=0x014a}
0x1d5de…1d5fa               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x012c, t01=0x0156}
0x1d5fa…1d62a               Head {h00=0x002c, h01=0x0050, text=» LD* A7,T:ATOD,A13 GET LENGTH OF T:ATAB «, t00=0x012c, t01=0x0172}
0x1d62a…1d636               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012d, t01=0x0012}
0x1d636…1d652               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x012d, t01=0x001e}
0x1d652…1d67e               Head {h00=0x0028, h01=0x0050, text=» EL* A7,T:ATOD,A13 GET T:ATAB LENGTH«, t00=0x012d, t01=0x003a}
0x1d67e…1d6ac               Head {h00=0x002a, h01=0x0050, text=» SLL A7,1 RESERVE FOR MM-ADDRESS-TABLE«, t00=0x012d, t01=0x0066}
0x1d6ac…1d6b8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012d, t01=0x0094}
0x1d6b8…1d6ce               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x012d, t01=0x00a0}
0x1d6ce…1d702               Head {h00=0x0030, h01=0x0050, text=» AD A7,SCTSFA TO-ADDRESS (AFTER SHADOW-TABLE«, t00=0x012d, t01=0x00b6}
0x1d702…1d714               Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x012d, t01=0x00ea}
0x1d714…1d738               Head {h00=0x0020, h01=0x0050, text=» ANKL A7,/FFFE EVEN ADDRESS «, t00=0x012d, t01=0x00fc}
0x1d738…1d740               Head {h00=0x0004, h01=0x0050, t00=0x012d, t01=0x0120}
0x1d740…1d75e               Head {h00=0x001a, h01=0x0050, text=»* CALCULATE RELOCATION«, t00=0x012d, t01=0x0128}
0x1d75e…1d766               Head {h00=0x0004, h01=0x0050, t00=0x012d, t01=0x0146}
0x1d766…1d77a               Head {h00=0x0010, h01=0x0050, text=» LDR A2,A13 «, t00=0x012d, t01=0x014e}
0x1d77a…1d7a2               Head {h00=0x0024, h01=0x0050, text=» SUR A2,A7 MOVE-LENGTH (SYSLDA) «, t00=0x012d, t01=0x0162}
0x1d7a2…1d7b4               Head {h00=0x000e, h01=0x0050, text=» NGR A2,A2«, t00=0x012d, t01=0x018a}
0x1d7b4…1d7ec               Head {h00=0x0034, h01=0x0050, text=» ST A2,SAVE04,A13 SAVE NEW RELOCATION TEMPORARY «, t00=0x012e, t01=0x000c}
0x1d7ec…1d808               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x012e, t01=0x0044}
0x1d808…1d832               Head {h00=0x0026, h01=0x0050, text=»* CREATE SYSLDA & DDIV MM-TABLE * «, t00=0x012e, t01=0x0060}
0x1d832…1d83a               Head {h00=0x0004, h01=0x0050, t00=0x012e, t01=0x008a}
0x1d83a…1d860               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A7 TO-ADDRESS (SYSLDA)«, t00=0x012e, t01=0x0092}
0x1d860…1d882               Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/F000 FIRST PAGE «, t00=0x012e, t01=0x00b8}
0x1d882…1d8ae               Head {h00=0x0028, h01=0x0050, text=» ST A2,MMREL1,A13 SAVE PHYSICAL PAGE«, t00=0x012e, t01=0x00da}
0x1d8ae…1d8d4               Head {h00=0x0022, h01=0x0050, text=» SRL A2,2 SHIFT FOR MM-PAGING «, t00=0x012e, t01=0x0106}
0x1d8d4…1d8ec               Head {h00=0x0014, h01=0x0050, text=» LDKL A11,MMDDIV«, t00=0x012e, t01=0x012c}
0x1d8ec…1d91e               Head {h00=0x002e, h01=0x0050, text=» ADR A11,A13 GET MM-TABLE START ADDRESSS= «, t00=0x012e, t01=0x0144}
0x1d91e…1d93c               Head {h00=0x001a, h01=0x0050, text=» LDK A3,16 SET COUNTER«, t00=0x012e, t01=0x0176}
0x1d93c…1d968 (303, 0, 400) Head {h00=0x0028, h01=0x0050, text=»SYA157 STR A2,A11 STORE PAGE-POINTER«, t00=0x012f, t01=0x0004}
0x1d968…1d986               Head {h00=0x001a, h01=0x0050, text=» ADKL A11,2 NEXT ENTRY«, t00=0x012f, t01=0x0030}
0x1d986…1d9aa               Head {h00=0x0020, h01=0x0050, text=» ADKL A2,/400 PAGE INCREMENT«, t00=0x012f, t01=0x004e}
0x1d9aa…1d9c0               Head {h00=0x0012, h01=0x0050, text=» SUK A3,1 ALL?«, t00=0x012f, t01=0x0072}
0x1d9c0…1d9da               Head {h00=0x0016, h01=0x0050, text=» RB(NZ) SYA157 NO!«, t00=0x012f, t01=0x0088}
0x1d9da…1da06               Head {h00=0x0028, h01=0x0050, text=» ANKL A7,/FFF GET DISPLACEM. IN PAGE«, t00=0x012f, t01=0x00a2}
0x1da06…1da12               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x012f, t01=0x00ce}
0x1da12…1da28               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x012f, t01=0x00da}
0x1da28…1da5c               Head {h00=0x0030, h01=0x0050, text=» ST A7,SAVE12,A13 SAVE (LOGICAL) TO-ADDRESS «, t00=0x012f, t01=0x00f0}
0x1da5c…1da8e               Head {h00=0x002e, h01=0x0050, text=» ADKL A7,LENGT2 ADD LEN. OF SYSLDA TO MOVE«, t00=0x012f, t01=0x0124}
0x1da8e…1dabe               Head {h00=0x002c, h01=0x0050, text=» ST A7,SAVE03,A13 SAVE NEW DDIV ADDRESS «, t00=0x012f, t01=0x0156}
0x1dabe…1dad2               Head {h00=0x0010, h01=0x0050, text=» LDR A6,A7  «, t00=0x012f, t01=0x0186}
0x1dad2…1dafa               Head {h00=0x0024, h01=0x0050, text=»* CALCULATE DDIV FROM-ADDRESS * «, t00=0x0130, t01=0x000a}
0x1dafa…1db02               Head {h00=0x0004, h01=0x0050, t00=0x0130, t01=0x0032}
0x1db02…1db22               Head {h00=0x001c, h01=0x0050, text=» LD A1,SCTLAC GET S:GTAB«, t00=0x0130, t01=0x003a}
0x1db22…1db50               Head {h00=0x002a, h01=0x0050, text=» ST A1,SAVE13,A13 SAVE S:GTAB ADDRESS «, t00=0x0130, t01=0x005a}
0x1db50…1db7a               Head {h00=0x0026, h01=0x0050, text=» ST A9,SCTLAC SAVE START OF P:MTAB«, t00=0x0130, t01=0x0088}
0x1db7a…1db96               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0130, t01=0x00b2}
0x1db96…1dbc2               Head {h00=0x0028, h01=0x0050, text=» LD A3,NUMSEG,A1 NUMBER OF SEGMENTS «, t00=0x0130, t01=0x00ce}
0x1dbc2…1dbce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0130, t01=0x00fa}
0x1dbce…1dbea               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0130, t01=0x0106}
0x1dbea…1dc16               Head {h00=0x0028, h01=0x0050, text=» EL A3,NUMSEG,A1 NUMBER OF SEGMENTS «, t00=0x0130, t01=0x0122}
0x1dc16…1dc22               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0130, t01=0x014e}
0x1dc22…1dc38               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0130, t01=0x015a}
0x1dc38…1dc6a               Head {h00=0x002e, h01=0x0050, text=» LDK A2,SEGREC SEGMENT BLOCK RECORD LENGTH«, t00=0x0130, t01=0x0170}
0x1dc6a…1dc7c               Head {h00=0x000e, h01=0x0050, text=» CALL MULT«, t00=0x0131, t01=0x0012}
0x1dc7c…1dc8e               Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x0131, t01=0x0024}
0x1dc8e…1dcb8               Head {h00=0x0026, h01=0x0050, text=» ADK A1,NUMSEG+2 => START OF DDIV «, t00=0x0131, t01=0x0036}
0x1dcb8…1dcee               Head {h00=0x0032, h01=0x0050, text=» LD A2,SAVE04,A13 GET NEW RELOCATION INCREMENT«, t00=0x0131, t01=0x0060}
0x1dcee…1dd22               Head {h00=0x0030, h01=0x0050, text=» ADS A2,M:REL,A13 AND ADJUST RELOCATION BASE«, t00=0x0131, t01=0x0096}
0x1dd22…1dd3e               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0131, t01=0x00ca}
0x1dd3e…1dd46               Head {h00=0x0004, h01=0x0050, t00=0x0131, t01=0x00e6}
0x1dd46…1dd78               Head {h00=0x002e, h01=0x0050, text=» ST A1,SAVE04,A13 SAVE DDIV 'FROM'-ADDRESS«, t00=0x0131, t01=0x00ee}
0x1dd78…1dd84               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0131, t01=0x0120}
0x1dd84…1dda0               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0131, t01=0x012c}
0x1dda0…1ddd0               Head {h00=0x002c, h01=0x0050, text=» ST A1,SAVE04,A13 SAVE DDIV FROM-ADDRESS«, t00=0x0131, t01=0x0148}
0x1ddd0…1dddc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0131, t01=0x0178}
0x1dddc…1ddf2               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0131, t01=0x0184}
0x1ddf2…1de18               Head {h00=0x0022, h01=0x0050, text=» SUR A6,A1 RELOCATION FOR DDIV«, t00=0x0132, t01=0x000a}
0x1de18…1de26               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0132, t01=0x0030}
0x1de26…1de2e               Head {h00=0x0004, h01=0x0050, t00=0x0132, t01=0x003e}
0x1de2e…1de3a               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0132, t01=0x0046}
0x1de3a…1de46               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0132, t01=0x0052}
0x1de46…1de7a               Head {h00=0x0030, h01=0x0050, text=»* RELOCATE ADDRESSES IN T:ATAB AFTER MOVE * «, t00=0x0132, t01=0x005e}
0x1de7a…1deac               Head {h00=0x002e, h01=0x0050, text=»* CALCULATE TOTAL (=REAL) LENGTH        * «, t00=0x0132, t01=0x0092}
0x1deac…1dede               Head {h00=0x002e, h01=0x0050, text=»* REMOVE NOT USED ENTRIES IN T:ATAB     * «, t00=0x0132, t01=0x00c4}
0x1dede…1df10               Head {h00=0x002e, h01=0x0050, text=»* A9=P:MTAB   A6=MOVE-RELOC             * «, t00=0x0132, t01=0x00f6}
0x1df10…1df42               Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0132, t01=0x0128}
0x1df42…1df5e               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0132, t01=0x015a}
0x1df5e…1df66               Head {h00=0x0004, h01=0x0050, t00=0x0132, t01=0x0176}
0x1df66…1df82               Head {h00=0x0018, h01=0x0050, text=»* INITIATE POINTERS «, t00=0x0132, t01=0x017e}
0x1df82…1df8a               Head {h00=0x0004, h01=0x0050, t00=0x0133, t01=0x000a}
0x1df8a…1dfb6               Head {h00=0x0028, h01=0x0050, text=» LD A8,T:ATOD,A13 GET T:ATAB ADDRESS«, t00=0x0133, t01=0x0012}
0x1dfb6…1dfd4               Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A8 GET LENGTH«, t00=0x0133, t01=0x003e}
0x1dfd4…1dff4               Head {h00=0x001c, h01=0x0050, text=» ADR A3,A8 END OF T:ATAB«, t00=0x0133, t01=0x005c}
0x1dff4…1e012               Head {h00=0x001a, h01=0x0050, text=» ST A3,ENDADD,A13 SAVE«, t00=0x0133, t01=0x007c}
0x1e012…1e046               Head {h00=0x0030, h01=0x0050, text=» LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB«, t00=0x0133, t01=0x009a}
0x1e046…1e066               Head {h00=0x001c, h01=0x0050, text=» LDR A4,A5 2:ND POINTER «, t00=0x0133, t01=0x00ce}
0x1e066…1e090               Head {h00=0x0026, h01=0x0050, text=» LDR A2,A8 2:ND POINTER IN T:ATAB «, t00=0x0133, t01=0x00ee}
0x1e090…1e0ba               Head {h00=0x0026, h01=0x0050, text=» LDK A3,2 SET 'NEW' T:ATAB COUNTER«, t00=0x0133, t01=0x0118}
0x1e0ba…1e0ec               Head {h00=0x002e, h01=0x0050, text=» SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR«, t00=0x0133, t01=0x0142}
0x1e0ec…1e0f4               Head {h00=0x0004, h01=0x0050, t00=0x0133, t01=0x0174}
0x1e0f4…1e10a               Head {h00=0x0012, h01=0x0050, text=»* SCAN T:ATAB:«, t00=0x0133, t01=0x017c}
0x1e10a…1e112 (308, 0, 398) Head {h00=0x0004, h01=0x0050, t00=0x0134, t01=0x0004}
0x1e112…1e138               Head {h00=0x0022, h01=0x0050, text=»SYA160 ADKL A8,2 TAKE NEXT T:A«, t00=0x0134, t01=0x000c}
0x1e138…1e160               Head {h00=0x0024, h01=0x0050, text=» ADK A5,2 NEXT T:A IN SHADOW-TAB«, t00=0x0134, t01=0x0032}
0x1e160…1e17a               Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x0134, t01=0x005a}
0x1e17a…1e198               Head {h00=0x001a, h01=0x0050, text=» RF(E) SYA170 ALL DONE«, t00=0x0134, t01=0x0074}
0x1e198…1e1b4               Head {h00=0x0018, h01=0x0050, text=» LDR* A1,A8 GET T:A «, t00=0x0134, t01=0x0092}
0x1e1b4…1e1e2               Head {h00=0x002a, h01=0x0050, text=» LDR* A7,A5 GET CONTENTS OF SHADOW-TAB«, t00=0x0134, t01=0x00ae}
0x1e1e2…1e212               Head {h00=0x002c, h01=0x0050, text=» RB(Z) SYA160 THIS T:A IS NOT USED!!!!! «, t00=0x0134, t01=0x00dc}
0x1e212…1e238               Head {h00=0x0022, h01=0x0050, text=» ADR A11,A7 ACCUMULATE LENGTH «, t00=0x0134, t01=0x010c}
0x1e238…1e268               Head {h00=0x002c, h01=0x0050, text=» ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH «, t00=0x0134, t01=0x0132}
0x1e268…1e298               Head {h00=0x002c, h01=0x0050, text=» ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS«, t00=0x0134, t01=0x0162}
0x1e298…1e2c4 (309, 0, 400) Head {h00=0x0028, h01=0x0050, text=» ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS«, t00=0x0135, t01=0x0004}
0x1e2c4…1e300               Head {h00=0x0038, h01=0x0050, text=» STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) «, t00=0x0135, t01=0x0030}
0x1e300…1e324               Head {h00=0x0020, h01=0x0050, text=» LDR* A10,A8 GET T:A-ADDRESS«, t00=0x0135, t01=0x006c}
0x1e324…1e340               Head {h00=0x0018, h01=0x0050, text=» ADR A10,A6 RELOCATE«, t00=0x0135, t01=0x0090}
0x1e340…1e372               Head {h00=0x002e, h01=0x0050, text=» STR A10,A2 STORE ADDR. (EV. ON NEW PLACE)«, t00=0x0135, t01=0x00ac}
0x1e372…1e394               Head {h00=0x001e, h01=0x0050, text=»* RELOCATE W.B.-ADDRESSES «, t00=0x0135, t01=0x00de}
0x1e394…1e39c               Head {h00=0x0004, h01=0x0050, t00=0x0135, t01=0x0100}
0x1e39c…1e3c4               Head {h00=0x0024, h01=0x0050, text=» LD A12,T:DAD,A1 GET T:D-ADDRESS«, t00=0x0135, t01=0x0108}
0x1e3c4…1e3ec               Head {h00=0x0024, h01=0x0050, text=» LD A7,WATLEN,A12 LENGTH OF WAT «, t00=0x0135, t01=0x0130}
0x1e3ec…1e41e               Head {h00=0x002e, h01=0x0050, text=» ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS«, t00=0x0135, t01=0x0158}
0x1e41e…1e442               Head {h00=0x0020, h01=0x0050, text=»SYA165 SUK A7,1 DEC. COUNTER«, t00=0x0135, t01=0x018a}
0x1e442…1e466               Head {h00=0x0020, h01=0x0050, text=» RB(N) SYA160 TAKE NEXT T:A «, t00=0x0136, t01=0x001e}
0x1e466…1e482               Head {h00=0x0018, h01=0x0050, text=» ADRS A6,A1 RELOCATE«, t00=0x0136, t01=0x0042}
0x1e482…1e48e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0136, t01=0x005e}
0x1e48e…1e4aa               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0136, t01=0x006a}
0x1e4aa…1e4b2               Head {h00=0x0004, h01=0x0050, t00=0x0136, t01=0x0086}
0x1e4b2…1e4ce               Head {h00=0x0018, h01=0x0050, text=»* INITIATE POINTERS «, t00=0x0136, t01=0x008e}
0x1e4ce…1e4d6               Head {h00=0x0004, h01=0x0050, t00=0x0136, t01=0x00aa}
0x1e4d6…1e4f6               Head {h00=0x001c, h01=0x0050, text=» LD A8,T:ATOD,A13 T:ATAB«, t00=0x0136, t01=0x00b2}
0x1e4f6…1e514               Head {h00=0x001a, h01=0x0050, text=» ELR A3,A8 GET LENGTH «, t00=0x0136, t01=0x00d2}
0x1e514…1e534               Head {h00=0x001c, h01=0x0050, text=» ADR A3,A8 END OF T:ATAB«, t00=0x0136, t01=0x00f0}
0x1e534…1e552               Head {h00=0x001a, h01=0x0050, text=» ST A3,ENDADD,A13 SAVE«, t00=0x0136, t01=0x0110}
0x1e552…1e586               Head {h00=0x0030, h01=0x0050, text=» LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB«, t00=0x0136, t01=0x012e}
0x1e586…1e5a6               Head {h00=0x001c, h01=0x0050, text=» LDR A4,A5 2:ND POINTER «, t00=0x0136, t01=0x0162}
0x1e5a6…1e5d0               Head {h00=0x0026, h01=0x0050, text=» LDR A2,A8 2:ND POINTER IN T:ATAB «, t00=0x0136, t01=0x0182}
0x1e5d0…1e5fa               Head {h00=0x0026, h01=0x0050, text=» LDK A3,2 SET 'NEW' T:ATAB COUNTER«, t00=0x0137, t01=0x001c}
0x1e5fa…1e62c               Head {h00=0x002e, h01=0x0050, text=» SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR«, t00=0x0137, t01=0x0046}
0x1e62c…1e634               Head {h00=0x0004, h01=0x0050, t00=0x0137, t01=0x0078}
0x1e634…1e64a               Head {h00=0x0012, h01=0x0050, text=»* SCAN T:ATAB:«, t00=0x0137, t01=0x0080}
0x1e64a…1e652               Head {h00=0x0004, h01=0x0050, t00=0x0137, t01=0x0096}
0x1e652…1e678               Head {h00=0x0022, h01=0x0050, text=»SYA160 ADKL A8,2 TAKE NEXT T:A«, t00=0x0137, t01=0x009e}
0x1e678…1e6a0               Head {h00=0x0024, h01=0x0050, text=» ADK A5,2 NEXT T:A IN SHADOW-TAB«, t00=0x0137, t01=0x00c4}
0x1e6a0…1e6ba               Head {h00=0x0016, h01=0x0050, text=» CW A8,ENDADD,A13 «, t00=0x0137, t01=0x00ec}
0x1e6ba…1e6d8               Head {h00=0x001a, h01=0x0050, text=» RF(E) SYA170 ALL DONE«, t00=0x0137, t01=0x0106}
0x1e6d8…1e6f2               Head {h00=0x0016, h01=0x0050, text=» ELR A1,A8 GET T:A«, t00=0x0137, t01=0x0124}
0x1e6f2…1e720               Head {h00=0x002a, h01=0x0050, text=» LDR* A7,A5 GET CONTENTS OF SHADOW-TAB«, t00=0x0137, t01=0x013e}
0x1e720…1e750               Head {h00=0x002c, h01=0x0050, text=» RB(Z) SYA160 THIS T:A IS NOT USED!!!!! «, t00=0x0137, t01=0x016c}
0x1e750…1e776               Head {h00=0x0022, h01=0x0050, text=» ADR A11,A7 ACCUMULATE LENGTH «, t00=0x0138, t01=0x000c}
0x1e776…1e7a6               Head {h00=0x002c, h01=0x0050, text=» ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH «, t00=0x0138, t01=0x0032}
0x1e7a6…1e7d6               Head {h00=0x002c, h01=0x0050, text=» ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS«, t00=0x0138, t01=0x0062}
0x1e7d6…1e802               Head {h00=0x0028, h01=0x0050, text=» ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS«, t00=0x0138, t01=0x0092}
0x1e802…1e83e               Head {h00=0x0038, h01=0x0050, text=» STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) «, t00=0x0138, t01=0x00be}
0x1e83e…1e862               Head {h00=0x0020, h01=0x0050, text=» ELR A10,A8 GET T:A-ADDRESS «, t00=0x0138, t01=0x00fa}
0x1e862…1e87e               Head {h00=0x0018, h01=0x0050, text=» ADR A10,A6 RELOCATE«, t00=0x0138, t01=0x011e}
0x1e87e…1e8b0               Head {h00=0x002e, h01=0x0050, text=» ESR A10,A2 STORE ADDR. (EV. ON NEW PLACE)«, t00=0x0138, t01=0x013a}
0x1e8b0…1e8d2               Head {h00=0x001e, h01=0x0050, text=»* RELOCATE W.B.-ADDRESSES «, t00=0x0138, t01=0x016c}
0x1e8d2…1e8da               Head {h00=0x0004, h01=0x0050, t00=0x0138, t01=0x018e}
0x1e8da…1e902               Head {h00=0x0024, h01=0x0050, text=» EL A12,T:DAD,A1 GET T:D-ADDRESS«, t00=0x0139, t01=0x0008}
0x1e902…1e92a               Head {h00=0x0024, h01=0x0050, text=» EL A7,WATLEN,A12 LENGTH OF WAT «, t00=0x0139, t01=0x0030}
0x1e92a…1e95c               Head {h00=0x002e, h01=0x0050, text=» ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS«, t00=0x0139, t01=0x0058}
0x1e95c…1e980               Head {h00=0x0020, h01=0x0050, text=»SYA165 SUK A7,1 DEC. COUNTER«, t00=0x0139, t01=0x008a}
0x1e980…1e9a4               Head {h00=0x0020, h01=0x0050, text=» RB(N) SYA160 TAKE NEXT T:A «, t00=0x0139, t01=0x00ae}
0x1e9a4…1e9c4               Head {h00=0x001c, h01=0x0050, text=» ELR A10,A1 GET ADDRESS «, t00=0x0139, t01=0x00d2}
0x1e9c4…1e9e0               Head {h00=0x0018, h01=0x0050, text=» ADR A10,A6 RELOCATE«, t00=0x0139, t01=0x00f2}
0x1e9e0…1e9f4               Head {h00=0x0010, h01=0x0050, text=» ESR A10,A1 «, t00=0x0139, t01=0x010e}
0x1e9f4…1ea00               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0139, t01=0x0122}
0x1ea00…1ea16               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0139, t01=0x012e}
0x1ea16…1ea32               Head {h00=0x0018, h01=0x0050, text=» ADK A1,4 NEXT W.B. «, t00=0x0139, t01=0x0144}
0x1ea32…1ea44               Head {h00=0x000e, h01=0x0050, text=» RB SYA165«, t00=0x0139, t01=0x0160}
0x1ea44…1ea4c               Head {h00=0x0004, h01=0x0050, t00=0x0139, t01=0x0172}
0x1ea4c…1ea60               Head {h00=0x0010, h01=0x0050, text=»SYA170 EQU *«, t00=0x0139, t01=0x017a}
0x1ea60…1ea7e               Head {h00=0x001a, h01=0x0050, text=» ST A6,MOVADD,A13 SAVE«, t00=0x0139, t01=0x018e}
0x1ea7e…1eaba               Head {h00=0x0038, h01=0x0050, text=» ST* A3,SCTSFA STORE NEW TABLE LENGTH IN SHADOW-TAB «, t00=0x013a, t01=0x001c}
0x1eaba…1ead6               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x013a, t01=0x0058}
0x1ead6…1eafe               Head {h00=0x0024, h01=0x0050, text=» ES* A3,T:ATOD,A13 AND IN T:ATAB«, t00=0x013a, t01=0x0074}
0x1eafe…1eb0a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013a, t01=0x009c}
0x1eb0a…1eb26               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x013a, t01=0x00a8}
0x1eb26…1eb4e               Head {h00=0x0024, h01=0x0050, text=» ST* A3,T:ATOD,A13 AND IN T:ATAB«, t00=0x013a, t01=0x00c4}
0x1eb4e…1eb5a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013a, t01=0x00ec}
0x1eb5a…1eb70               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x013a, t01=0x00f8}
0x1eb70…1eba4               Head {h00=0x0030, h01=0x0050, text=» LDR A2,A11 GET NUMBER OF T:A'S ACCUMULATOR «, t00=0x013a, t01=0x010e}
0x1eba4…1ebd0               Head {h00=0x0028, h01=0x0050, text=» SLL A2,1 CALC. REAL LENGTH (BYTES) «, t00=0x013a, t01=0x0142}
0x1ebd0…1ebe2               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x013a, t01=0x016e}
0x1ebe2…1ec16               Head {h00=0x0030, h01=0x0050, text=» ST A2,SAVE05,A13 SAVE TOT. NUMBER OF T:A'S «, t00=0x013a, t01=0x0180}
0x1ec16…1ec22               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x013b, t01=0x0024}
0x1ec22…1ec30               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013b, t01=0x0030}
0x1ec30…1ec56               Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x013b, t01=0x003e}
0x1ec56…1ec7e               Head {h00=0x0024, h01=0x0050, text=»* RELOCATE ADDRESSES IN U:BTAB *«, t00=0x013b, t01=0x0064}
0x1ec7e…1eca6               Head {h00=0x0024, h01=0x0050, text=»* (REAL LENGTH=PROTOTYPE LEN.) *«, t00=0x013b, t01=0x008c}
0x1eca6…1ecce               Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x013b, t01=0x00b4}
0x1ecce…1ecd6               Head {h00=0x0004, h01=0x0050, t00=0x013b, t01=0x00dc}
0x1ecd6…1ecf2               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x013b, t01=0x00e4}
0x1ecf2…1ed1a               Head {h00=0x0024, h01=0x0050, text=» LD A5,U:BTOD,A13 U:BTAB ADDRESS«, t00=0x013b, t01=0x0100}
0x1ed1a…1ed34               Head {h00=0x0016, h01=0x0050, text=» LDR* A3,A5 LENGTH«, t00=0x013b, t01=0x0128}
0x1ed34…1ed4e               Head {h00=0x0016, h01=0x0050, text=» ST A3,SAVE06,A13 «, t00=0x013b, t01=0x0142}
0x1ed4e…1ed70               Head {h00=0x001e, h01=0x0050, text=» ADK A5,2 SKIP LENGTH WORD«, t00=0x013b, t01=0x015c}
0x1ed70…1ed88               Head {h00=0x0014, h01=0x0050, text=» SUK A3,2   -"- «, t00=0x013b, t01=0x017e}
0x1ed88…1edae               Head {h00=0x0022, h01=0x0050, text=»SYA180 RF(Z) SYA185 ALL DONE! «, t00=0x013c, t01=0x0008}
0x1edae…1edca               Head {h00=0x0018, h01=0x0050, text=» ADRS A6,A5 RELOCATE«, t00=0x013c, t01=0x002e}
0x1edca…1edd6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013c, t01=0x004a}
0x1edd6…1edf2               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x013c, t01=0x0056}
0x1edf2…1ee1a               Head {h00=0x0024, h01=0x0050, text=» LD A5,U:BTOD,A13 U:BTAB ADDRESS«, t00=0x013c, t01=0x0072}
0x1ee1a…1ee3a               Head {h00=0x001c, h01=0x0050, text=» ELR A3,A5 TABLE LENGTH «, t00=0x013c, t01=0x009a}
0x1ee3a…1ee6a               Head {h00=0x002c, h01=0x0050, text=» ST A3,SAVE06,A13 SAVE LENGTH OF U:BTAB «, t00=0x013c, t01=0x00ba}
0x1ee6a…1ee7c               Head {h00=0x000e, h01=0x0050, text=» ADK A5,2 «, t00=0x013c, t01=0x00ea}
0x1ee7c…1ee9e               Head {h00=0x001e, h01=0x0050, text=» SUK A3,2 SUB LENGTH-WORD «, t00=0x013c, t01=0x00fc}
0x1ee9e…1eeba               Head {h00=0x0018, h01=0x0050, text=»SYA180 RF(Z) SYA185 «, t00=0x013c, t01=0x011e}
0x1eeba…1eeda               Head {h00=0x001c, h01=0x0050, text=» ELR A10,A5 GET ADDRESS «, t00=0x013c, t01=0x013a}
0x1eeda…1eef6               Head {h00=0x0018, h01=0x0050, text=» ADR A10,A6 RELOCATE«, t00=0x013c, t01=0x015a}
0x1eef6…1ef0a               Head {h00=0x0010, h01=0x0050, text=» ESR A10,A5 «, t00=0x013c, t01=0x0176}
0x1ef0a…1ef16               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013c, t01=0x018a}
0x1ef16…1ef2c               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x013d, t01=0x0008}
0x1ef2c…1ef68               Head {h00=0x0038, h01=0x0050, text=» ADK A5,UP:REC ADD TO NEXT RECORD IN U:BTAB PROTOTYP«, t00=0x013d, t01=0x001e}
0x1ef68…1ef7e               Head {h00=0x0012, h01=0x0050, text=» SUK A3,UP:REC«, t00=0x013d, t01=0x005a}
0x1ef7e…1ef90               Head {h00=0x000e, h01=0x0050, text=» RB SYA180«, t00=0x013d, t01=0x0070}
0x1ef90…1ef9e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x013d, t01=0x0082}
0x1ef9e…1efb2               Head {h00=0x0010, h01=0x0050, text=»SYA185 EQU *«, t00=0x013d, t01=0x0090}
0x1efb2…1efce               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUSWB=3«, t00=0x013d, t01=0x00a4}
0x1efce…1efd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013d, t01=0x00c0}
0x1efd8…1f000               Head {h00=0x0024, h01=0x0050, text=»*  COMPUTE REAL LENGTH OF S:BTAB«, t00=0x013d, t01=0x00ca}
0x1f000…1f00a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x013d, t01=0x00f2}
0x1f00a…1f032               Head {h00=0x0024, h01=0x0050, text=» LD A5,S:BTOD,A13 S:BTAB ADDRESS«, t00=0x013d, t01=0x00fc}
0x1f032…1f058               Head {h00=0x0022, h01=0x0050, text=» ELR A3,A5 LENGTH OF PROTOTYPE«, t00=0x013d, t01=0x0124}
0x1f058…1f070               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A3 SAVE «, t00=0x013d, t01=0x014a}
0x1f070…1f096               Head {h00=0x0022, h01=0x0050, text=» SUK A3,2 EXCLUDE LENGTH WORD «, t00=0x013d, t01=0x0162}
0x1f096…1f0c6               Head {h00=0x002c, h01=0x0050, text=»SYA190 RF(Z) SYA199 ALL RECORDS SCANNED!«, t00=0x013d, t01=0x0188}
0x1f0c6…1f0ee               Head {h00=0x0024, h01=0x0050, text=» EL A4,2,A5 GET PROT. W.B.-ADDR.«, t00=0x013e, t01=0x0028}
0x1f0ee…1f10a               Head {h00=0x0018, h01=0x0050, text=» ADR A4,A6 RELOCATE «, t00=0x013e, t01=0x0050}
0x1f10a…1f12c               Head {h00=0x001e, h01=0x0050, text=» ES A4,2,A5 STORE IT BACK «, t00=0x013e, t01=0x006c}
0x1f12c…1f15c               Head {h00=0x002c, h01=0x0050, text=» EL A4,UPNUMB-1,A5 GET NUMBER OF COPIES «, t00=0x013e, t01=0x008e}
0x1f15c…1f17e               Head {h00=0x001e, h01=0x0050, text=» ANK A4,/FF GET RIGHT BYTE«, t00=0x013e, t01=0x00be}
0x1f17e…1f1b0               Head {h00=0x002e, h01=0x0050, text=»SYA192 RF(Z) SYA194 NO MOORE OF THIS TYPE!«, t00=0x013e, t01=0x00e0}
0x1f1b0…1f1d2               Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 INCREMENT LENGTH«, t00=0x013e, t01=0x0112}
0x1f1d2…1f1fe               Head {h00=0x0028, h01=0x0050, text=» SUK A4,1 DECREMENT NUMBER OF COPIES«, t00=0x013e, t01=0x0134}
0x1f1fe…1f210               Head {h00=0x000e, h01=0x0050, text=» RB SYA192«, t00=0x013e, t01=0x0160}
0x1f210…1f24c               Head {h00=0x0038, h01=0x0050, text=»SYA194 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE«, t00=0x013e, t01=0x0172}
0x1f24c…1f274               Head {h00=0x0024, h01=0x0050, text=» SUK A3,UP:REC DECREMENT LENGTH «, t00=0x013f, t01=0x001e}
0x1f274…1f286               Head {h00=0x000e, h01=0x0050, text=» RB SYA190«, t00=0x013f, t01=0x0046}
0x1f286…1f292               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x013f, t01=0x0058}
0x1f292…1f2ae               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWBMMU=2«, t00=0x013f, t01=0x0064}
0x1f2ae…1f2d6               Head {h00=0x0024, h01=0x0050, text=» LD A5,S:BTOD,A13 S:BTAB ADDRESS«, t00=0x013f, t01=0x0080}
0x1f2d6…1f304               Head {h00=0x002a, h01=0x0050, text=» LDR* A3,A5 LENGTH OF S:BTAB PROTOTYPE«, t00=0x013f, t01=0x00a8}
0x1f304…1f31c               Head {h00=0x0014, h01=0x0050, text=» LDR A2,A3 SAVE «, t00=0x013f, t01=0x00d6}
0x1f31c…1f342               Head {h00=0x0022, h01=0x0050, text=» SUK A3,2 EXCLUDE LENGTH WORD «, t00=0x013f, t01=0x00ee}
0x1f342…1f372               Head {h00=0x002c, h01=0x0050, text=»SYA195 RF(Z) SYA199 ALL RECORDS SCANNED!«, t00=0x013f, t01=0x0114}
0x1f372…1f39a               Head {h00=0x0024, h01=0x0050, text=» LD A4,2,A5 GET PROT. W.B.-ADDR.«, t00=0x013f, t01=0x0144}
0x1f39a…1f3b6               Head {h00=0x0018, h01=0x0050, text=» ADR A4,A6 RELOCATE «, t00=0x013f, t01=0x016c}
0x1f3b6…1f3d8               Head {h00=0x001e, h01=0x0050, text=» ST A4,2,A5 STORE IT BACK «, t00=0x013f, t01=0x0188}
0x1f3d8…1f408               Head {h00=0x002c, h01=0x0050, text=» LD A4,UPNUMB-1,A5 GET NUMBER OF COPIES «, t00=0x0140, t01=0x001a}
0x1f408…1f41c               Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0140, t01=0x004a}
0x1f41c…1f44e               Head {h00=0x002e, h01=0x0050, text=»SYA196 RF(Z) SYA198 NO MOORE OF THIS TYPE!«, t00=0x0140, t01=0x005e}
0x1f44e…1f470               Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 INCREMENT LENGTH«, t00=0x0140, t01=0x0090}
0x1f470…1f49c               Head {h00=0x0028, h01=0x0050, text=» SUK A4,1 DECREMENT NUMBER OF COPIES«, t00=0x0140, t01=0x00b2}
0x1f49c…1f4ae               Head {h00=0x000e, h01=0x0050, text=» RB SYA196«, t00=0x0140, t01=0x00de}
0x1f4ae…1f4ea               Head {h00=0x0038, h01=0x0050, text=»SYA198 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE«, t00=0x0140, t01=0x00f0}
0x1f4ea…1f512               Head {h00=0x0024, h01=0x0050, text=» SUK A3,UP:REC DECREMENT LENGTH «, t00=0x0140, t01=0x012c}
0x1f512…1f524               Head {h00=0x000e, h01=0x0050, text=» RB SYA195«, t00=0x0140, t01=0x0154}
0x1f524…1f530               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0140, t01=0x0166}
0x1f530…1f54c               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0140, t01=0x0172}
0x1f54c…1f580               Head {h00=0x0030, h01=0x0050, text=»SYA199 ST A2,SAVE25,A13 SAVE COMPUTED LENGTH«, t00=0x0140, t01=0x018e}
0x1f580…1f58c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0141, t01=0x0032}
0x1f58c…1f5a2               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0141, t01=0x003e}
0x1f5a2…1f5b0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0141, t01=0x0054}
0x1f5b0…1f5b8               Head {h00=0x0004, h01=0x0050, t00=0x0141, t01=0x0062}
0x1f5b8…1f5f2               Head {h00=0x0036, h01=0x0050, text=»* RELOCATE T:ATAB- AND U:BTAB-ADDRESSES IN P:MTAB «, t00=0x0141, t01=0x006a}
0x1f5f2…1f5fe               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0141, t01=0x00a4}
0x1f5fe…1f618               Head {h00=0x0016, h01=0x0050, text=» ADS A6,T:ATOD,A13«, t00=0x0141, t01=0x00b0}
0x1f618…1f632               Head {h00=0x0016, h01=0x0050, text=» ADS A6,U:BTOD,A13«, t00=0x0141, t01=0x00ca}
0x1f632…1f64e               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+SWPBLK=2«, t00=0x0141, t01=0x00e4}
0x1f64e…1f668               Head {h00=0x0016, h01=0x0050, text=» ADS A6,S:BTOD,A13«, t00=0x0141, t01=0x0100}
0x1f668…1f674               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0141, t01=0x011a}
0x1f674…1f690               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0141, t01=0x0126}
0x1f690…1f6b0               Head {h00=0x001c, h01=0x0050, text=»* CALCULATE NEW DDIV END«, t00=0x0141, t01=0x0142}
0x1f6b0…1f6b8               Head {h00=0x0004, h01=0x0050, t00=0x0141, t01=0x0162}
0x1f6b8…1f6ca               Head {h00=0x000e, h01=0x0050, text=» LDR A5,A9«, t00=0x0141, t01=0x016a}
0x1f6ca…1f6ee               Head {h00=0x0020, h01=0x0050, text=» SU A5,SAVE04,A13 END-START «, t00=0x0141, t01=0x017c}
0x1f6ee…1f716               Head {h00=0x0024, h01=0x0050, text=» AD A5,SAVE12,A13 ADD NEW START «, t00=0x0142, t01=0x0010}
0x1f716…1f734               Head {h00=0x001a, h01=0x0050, text=» ST A5,DATEND,A13 SAVE«, t00=0x0142, t01=0x0038}
0x1f734…1f740               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0142, t01=0x0056}
0x1f740…1f75c               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0142, t01=0x0062}
0x1f75c…1f764               Head {h00=0x0004, h01=0x0050, t00=0x0142, t01=0x007e}
0x1f764…1f76c               Head {h00=0x0004, h01=0x0050, t00=0x0142, t01=0x0086}
0x1f76c…1f78e               Head {h00=0x001e, h01=0x0050, text=»* STORE MMTABLE ADDRESSES «, t00=0x0142, t01=0x008e}
0x1f78e…1f796               Head {h00=0x0004, h01=0x0050, t00=0x0142, t01=0x00b0}
0x1f796…1f7ac               Head {h00=0x0012, h01=0x0050, text=» LDK A4,MMDDIV«, t00=0x0142, t01=0x00b8}
0x1f7ac…1f7d2               Head {h00=0x0022, h01=0x0050, text=» ADR A4,A13 GET TABLE ADDRESS «, t00=0x0142, t01=0x00ce}
0x1f7d2…1f7fc               Head {h00=0x0026, h01=0x0050, text=» LDR A5,A13 CALC. REAL RELOCATION «, t00=0x0142, t01=0x00f4}
0x1f7fc…1f816               Head {h00=0x0016, h01=0x0050, text=» SU A5,SAVE12,A13 «, t00=0x0142, t01=0x011e}
0x1f816…1f830               Head {h00=0x0016, h01=0x0050, text=» SU A5,MMREL1,A13 «, t00=0x0142, t01=0x0138}
0x1f830…1f84c               Head {h00=0x0018, h01=0x0050, text=» SUR A4,A5 RELOCATE «, t00=0x0142, t01=0x0152}
0x1f84c…1f86c               Head {h00=0x001c, h01=0x0050, text=» ST A4,MMTO,A13 AND SAVE«, t00=0x0142, t01=0x016e}
0x1f86c…1f882               Head {h00=0x0012, h01=0x0050, text=» LDK A4,MMTAB «, t00=0x0142, t01=0x018e}
0x1f882…1f8aa               Head {h00=0x0024, h01=0x0050, text=» ADR A4,A13 'WORK-TABLE' ADDRESS«, t00=0x0143, t01=0x0014}
0x1f8aa…1f8c6               Head {h00=0x0018, h01=0x0050, text=» SUR A4,A5 RELOCATE «, t00=0x0143, t01=0x003c}
0x1f8c6…1f8e0               Head {h00=0x0016, h01=0x0050, text=» ST A4,MMFROM,A13 «, t00=0x0143, t01=0x0058}
0x1f8e0…1f8fc               Head {h00=0x0018, h01=0x0050, text=»* CALCULATE DDIV END«, t00=0x0143, t01=0x0072}
0x1f8fc…1f904               Head {h00=0x0004, h01=0x0050, t00=0x0143, t01=0x008e}
0x1f904…1f920               Head {h00=0x0018, h01=0x0050, text=» LDR A5,A9 DDIV END «, t00=0x0143, t01=0x0096}
0x1f920…1f944               Head {h00=0x0020, h01=0x0050, text=» SU A5,SAVE04,A13 ENT-START «, t00=0x0143, t01=0x00b2}
0x1f944…1f96c               Head {h00=0x0024, h01=0x0050, text=» AD A5,SAVE12,A13 ADD NEW START «, t00=0x0143, t01=0x00d6}
0x1f96c…1f97e               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A5«, t00=0x0143, t01=0x00fe}
0x1f97e…1f9b2               Head {h00=0x0030, h01=0x0050, text=» ANKL A6,/F000 GET LOGICALL PAGE (MM-ENTRY) «, t00=0x0143, t01=0x0110}
0x1f9b2…1f9da               Head {h00=0x0024, h01=0x0050, text=» SRL A6,11 ADJUST FOR ADDRESSING«, t00=0x0143, t01=0x0144}
0x1f9da…1fa0c               Head {h00=0x002e, h01=0x0050, text=» ADK A6,MMDDIV ADD RELATIVE START ADDRESS «, t00=0x0143, t01=0x016c}
0x1fa0c…1fa28               Head {h00=0x0018, h01=0x0050, text=» ADR A6,A13 RELOCATE«, t00=0x0144, t01=0x000e}
0x1fa28…1fa52               Head {h00=0x0026, h01=0x0050, text=» LDR* A6,A6 GET MM-TABLE CONTENTS «, t00=0x0144, t01=0x002a}
0x1fa52…1fa70               Head {h00=0x001a, h01=0x0050, text=» ST A6,FSTPAG,A13 SAVE«, t00=0x0144, t01=0x0054}
0x1fa70…1fa96               Head {h00=0x0022, h01=0x0050, text=» ANKL A5,/FFF GET DISPLACEMENT«, t00=0x0144, t01=0x0072}
0x1fa96…1fab8               Head {h00=0x001e, h01=0x0050, text=» ST A5,FSTADR,A13 AND SAVE«, t00=0x0144, t01=0x0098}
0x1fab8…1fac4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0144, t01=0x00ba}
0x1fac4…1fada               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0144, t01=0x00c6}
0x1fada…1faf8               Head {h00=0x001a, h01=0x0050, text=»* CONTINUE IN PART 2 *«, t00=0x0144, t01=0x00dc}
0x1faf8…1fb04               Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0144, t01=0x00fa}
0x1fb04…1fb36               Head {h00=0x002e, h01=0x0050, text=» LD A2,SAVE12,A13 GET TO-ADDRESS (SYSLDA) «, t00=0x0144, t01=0x0106}
0x1fb36…1fb62               Head {h00=0x0028, h01=0x0050, text=» OR A2,MMREL1,A13 PHYSICALL ADDRESS «, t00=0x0144, t01=0x0138}
0x1fb62…1fb7a               Head {h00=0x0014, h01=0x0050, text=» LDR A5,A2 SAVE «, t00=0x0144, t01=0x0164}
0x1fb7a…1fbae               Head {h00=0x0030, h01=0x0050, text=» LDKL A7,START2 GET EXECUTION START ADDRESS «, t00=0x0144, t01=0x017c}
0x1fbae…1fbc0               Head {h00=0x000e, h01=0x0050, text=» ADR A7,A2«, t00=0x0145, t01=0x0020}
0x1fbc0…1fbe6               Head {h00=0x0022, h01=0x0050, text=» LDKL A3,LENGT2 SYSLDA LENGTH «, t00=0x0145, t01=0x0032}
0x1fbe6…1fc06               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A13 FROM-ADDRESS«, t00=0x0145, t01=0x0058}
0x1fc06…1fc0e               Head {h00=0x0004, h01=0x0050, t00=0x0145, t01=0x0078}
0x1fc0e…1fc26               Head {h00=0x0014, h01=0x0050, text=»* MOVE SYSLDA * «, t00=0x0145, t01=0x0080}
0x1fc26…1fc2e               Head {h00=0x0004, h01=0x0050, t00=0x0145, t01=0x0098}
0x1fc2e…1fc4a               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT-MMUPAG=1«, t00=0x0145, t01=0x00a0}
0x1fc4a…1fc6c               Head {h00=0x001e, h01=0x0050, text=»NXTMOV LDR* A4,A1 GET WORD«, t00=0x0145, t01=0x00bc}
0x1fc6c…1fc8a               Head {h00=0x001a, h01=0x0050, text=» STR A4,A2 STORE WORD «, t00=0x0145, t01=0x00de}
0x1fc8a…1fc9c               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0145, t01=0x00fc}
0x1fc9c…1fcae               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0145, t01=0x010e}
0x1fcae…1fccc               Head {h00=0x001a, h01=0x0050, text=» SUK A3,2 DEC. LENGTH «, t00=0x0145, t01=0x0120}
0x1fccc…1fce2               Head {h00=0x0012, h01=0x0050, text=» RB(NN) NXTMOV«, t00=0x0145, t01=0x013e}
0x1fce2…1fcee               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0145, t01=0x0154}
0x1fcee…1fd0a               Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+MMUPAG=2«, t00=0x0145, t01=0x0160}
0x1fd0a…1fd1a               Head {h00=0x000c, h01=0x0050, text=» MVB A3 «, t00=0x0145, t01=0x017c}
0x1fd1a…1fd26               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0145, t01=0x018c}
0x1fd26…1fd3c               Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=0 «, t00=0x0146, t01=0x0008}
0x1fd3c…1fd44               Head {h00=0x0004, h01=0x0050, t00=0x0146, t01=0x001e}
0x1fd44…1fd72               Head {h00=0x002a, h01=0x0050, text=» ABR A7 HEJ SVEJS! VI SES I PART 2... «, t00=0x0146, t01=0x0026}
0x1fd72…1fd7e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0146, t01=0x0054}
0x1fd7e…1fd94               Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x0146, t01=0x0060}
0x1fd94…1fdaa               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,LMP9 «, t00=0x0146, t01=0x0076}
0x1fdaa…1fdd2               Head {h00=0x0024, h01=0x0050, text=» CALL ERROR INCONSISTENT MONITOR«, t00=0x0146, t01=0x008c}
0x1fdd2…1fdde               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0146, t01=0x00b4}
0x1fdde…1fdf2               Head {h00=0x0010, h01=0x0050, text=»LDAEND EQU *«, t00=0x0146, t01=0x00c0}
0x1fdf2…1fdfe               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0146, t01=0x00d4}
0x1fdfe…1fe02               Head {h00=0x4004, h01=0x0000}
0x1fe02…1fe06               01 46 00 e0                                                                                                                                                                                                                                       ┆ F  ┆
0x1fe06…1fe0e (327, 1, 8)   20 04 00 00 01 47 00 04                                                                                                                                                                                                                           ┆     G  ┆
0x1fe0e…1fe5e (328, 0, 400) 30 5c 44 49 53 50 4c 41 43 45 4d 45 4e 54 20 54 4f 20 46 43 42 20 49 4e 20 54 3a 41 00 1f 01 88 00 2c 00 50 54 3a 44 54 49 44 5c 45 51 55 5c 32 5c 54 41 53 4b 20 49 44 45 4e 54 49 46 49 45 52 20 28 50 52 4f 54 4f 54 59 50 45 29 00 20 00 24   ┆0 DISPLACEMENT TO FCB IN T:A     , PT:DTID EQU 2 TASK IDENTIFIER (PROTOTYPE)   $┆
0x1fe5e…1feae               00 2c 00 50 44 41 54 4c 45 4e 5c 45 51 55 5c 34 5c 4e 55 4d 42 45 52 20 4f 46 20 44 41 54 41 53 45 54 53 20 28 44 53 43 42 27 53 29 00 20 00 54 00 26 00 50 57 41 54 4c 45 4e 5c 45 51 55 5c 36 5c 4e 55 4d 42 45 52 20 4f 46 20 57 41 54 45 4c   ┆ , PDATLEN EQU 4 NUMBER OF DATASETS (DSCB'S)   T & PWATLEN EQU 6 NUMBER OF WATEL┆
0x1feae…1fefe               45 4d 45 4e 54 53 00 20 00 84 00 30 00 50 54 57 42 4d 53 4b 5c 45 51 55 5c 38 5c 4d 41 53 4b 20 46 4f 52 20 54 57 42 27 53 20 28 4f 4e 45 20 42 49 54 2f 45 4e 54 52 59 29 20 00 20 00 ae 00 2a 00 50 53 57 42 4d 53 4b 5c 45 51 55 5c 31 30 5c   ┆EMENTS     0 PTWBMSK EQU 8 MASK FOR TWB'S (ONE BIT/ENTRY)      * PSWBMSK EQU 10 ┆
0x1fefe…1ff4e               4d 41 53 4b 20 46 4f 52 20 53 57 42 27 53 20 20 20 20 20 20 2d 22 2d 20 00 20 00 e2 00 2a 00 50 43 57 42 4d 53 4b 5c 45 51 55 5c 31 32 5c 4d 41 53 4b 20 46 4f 52 20 43 57 42 27 53 20 20 20 20 20 20 2d 22 2d 20 00 20 01 10 00 2a 00 50 55 57   ┆MASK FOR SWB'S      -"-      * PCWBMSK EQU 12 MASK FOR CWB'S      -"-      * PUW┆
0x1ff4e…1ff9e               42 4d 53 4b 5c 45 51 55 5c 31 34 5c 4d 41 53 4b 20 46 4f 52 20 55 57 42 27 53 20 20 20 20 20 20 2d 22 2d 20 00 20 01 3e 00 28 00 50 44 57 42 46 53 54 5c 45 51 55 5c 31 36 5c 46 49 52 53 54 20 57 4f 52 44 20 49 4e 20 44 42 4c 4b 2d 54 41 42   ┆BMSK EQU 14 MASK FOR UWB'S      -"-    > ( PDWBFST EQU 16 FIRST WORD IN DBLK-TAB┆
0x1ff9e…1ffee (329, 0, 398) 00 20 01 6c 00 04 00 50 00 21 00 08 00 2e 00 50 53 54 50 52 45 43 5c 45 51 55 5c 34 5c 52 45 43 4f 52 44 20 4c 45 4e 47 54 48 20 4f 46 20 53 54 41 52 54 2d 50 4f 49 4e 54 53 00 21 00 10 00 04 00 50 00 21 00 42 00 04 00 50 00 21 00 4a 00 14   ┆   l   P !   . PSTPREC EQU 4 RECORD LENGTH OF START-POINTS !     P ! B   P ! J  ┆
0x1ffee…2003e               00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 21 00 52 00 14 00 50 2a 20 53 4f 50 2d 48 41 4e 44 4c 49 4e 47 20 2a 00 21 00 6a 00 14 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 21 00 82 00 1e 00 50 53 4f 50 5c 45 51   ┆ P**************** ! R   P* SOP-HANDLING * ! j   P**************** !     PSOP EQ┆
0x2003e…2008e               55 5c 2f 32 45 5c 44 45 56 49 43 45 20 41 44 44 52 45 53 53 00 21 00 9a 00 04 00 50 00 21 00 bc 00 1a 00 50 5c 5c 20 20 4c 41 4d 50 20 43 4f 44 45 5c 4d 45 41 4e 49 4e 47 20 00 21 00 c4 00 1a 00 50 5c 5c 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 5c   ┆U /2E DEVICE ADDRESS !     P !     P    LAMP CODE MEANING  !     P    --------- ┆
0x2008e…200de               2d 2d 2d 2d 2d 2d 2d 20 00 21 00 e2 00 1e 00 50 4c 4d 50 31 5c 45 51 55 5c 2f 34 30 30 5c 53 59 53 4c 4f 41 44 20 52 55 4e 53 00 21 01 00 00 1c 00 50 4c 4d 50 32 5c 45 51 55 5c 2f 32 30 30 5c 52 45 41 44 20 45 52 52 4f 52 00 21 01 22 00 22   ┆-------  !     PLMP1 EQU /400 SYSLOAD RUNS !     PLMP2 EQU /200 READ ERROR ! " "┆
0x200de…2012c               00 50 4c 4d 50 33 5c 45 51 55 5c 2f 31 30 30 5c 4d 45 4d 4f 52 59 20 4f 56 45 52 46 4c 4f 57 20 00 21 01 42 00 26 00 50 4c 4d 50 34 5c 45 51 55 5c 2f 38 30 5c 46 4f 52 4d 41 54 20 45 52 52 4f 52 20 28 43 4f 4e 46 49 47 29 00 21 01 68         ┆ PLMP3 EQU /100 MEMORY OVERFLOW  ! B & PLMP4 EQU /80 FORMAT ERROR (CONFIG) ! h┆
0x2012c…2017c (330, 0, 400) 00 1a 00 50 4c 4d 50 35 5c 45 51 55 5c 2f 34 30 5c 54 49 44 20 45 52 52 4f 52 00 22 00 04 00 22 00 50 4c 4d 50 36 5c 45 51 55 5c 2f 32 30 5c 55 57 42 20 4f 52 20 53 57 42 20 45 52 52 4f 52 20 00 22 00 22 00 22 00 50 4c 4d 50 37 5c 45 51 55   ┆   PLMP5 EQU /40 TID ERROR "   " PLMP6 EQU /20 UWB OR SWB ERROR  " " " PLMP7 EQU┆
0x2017c…201cc               5c 2f 31 30 5c 4d 4d 2d 54 41 42 4c 45 20 4f 56 45 52 46 4c 4f 57 00 22 00 48 00 0e 00 50 4c 4d 50 38 5c 45 51 55 5c 38 00 22 00 6e 00 0e 00 50 4c 4d 50 39 5c 45 51 55 5c 34 00 22 00 80 00 10 00 50 4c 4d 50 31 30 5c 45 51 55 5c 32 20 00 22   ┆ /10 MM-TABLE OVERFLOW " H   PLMP8 EQU 8 " n   PLMP9 EQU 4 "     PLMP10 EQU 2  "┆
0x201cc…2021c               00 92 00 10 00 50 4c 4d 50 31 31 5c 45 51 55 5c 31 20 00 22 00 a6 00 0a 00 50 5c 45 4a 45 43 54 00 22 00 ba 00 1a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 22 00 c8 00 1a 00 50 2a 20 20 4f 54 48 45 52 20 43   ┆     PLMP11 EQU 1  "     P EJECT "     P*********************  "     P*  OTHER C┆
0x2021c…2026c               4f 4e 53 54 41 4e 54 53 20 20 2a 20 00 22 00 e6 00 1a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 22 01 04 00 08 00 50 5c 5c 5c 20 00 22 01 22 00 26 00 50 57 42 4c 45 4e 5c 45 51 55 5c 2d 34 5c 4c 45 4e 47 54   ┆ONSTANTS  *  "     P*********************  "     P     " " & PWBLEN EQU -4 LENGT┆
0x2026c…202bc               48 20 4f 46 20 57 4f 52 4b 2d 42 4c 4f 43 4b 20 00 22 01 2e 00 2c 00 50 44 54 4c 45 4e 5c 45 51 55 5c 2d 32 5c 4c 45 4e 47 54 48 20 4f 46 20 44 45 53 43 52 49 50 54 4f 52 2d 54 41 42 4c 45 20 00 22 01 58 00 26 00 50 53 57 42 4c 45 4e 5c 45   ┆H OF WORK-BLOCK  " . , PDTLEN EQU -2 LENGTH OF DESCRIPTOR-TABLE  " X & PSWBLEN E┆
0x202bc…2030c (331, 0, 400) 51 55 5c 34 5c 44 49 53 50 20 54 4f 20 4c 45 4e 47 54 48 20 4f 46 20 53 57 42 00 22 01 88 00 08 00 50 5c 5c 5c 20 00 23 00 22 00 24 00 50 46 43 42 44 44 31 5c 45 51 55 5c 38 5c 44 49 53 50 20 54 4f 20 46 49 52 53 54 20 44 53 45 54 20 00 23   ┆QU 4 DISP TO LENGTH OF SWB "     P     # " $ PFCBDD1 EQU 8 DISP TO FIRST DSET  #┆
0x2030c…2035c               00 2e 00 24 00 50 46 43 42 44 44 32 5c 45 51 55 5c 31 30 5c 44 49 53 50 20 54 4f 20 32 3a 4e 44 20 44 53 45 54 20 00 23 00 56 00 08 00 50 5c 5c 5c 20 00 23 00 7e 00 24 00 50 53 54 4b 53 5a 5c 45 51 55 5c 31 32 38 5c 44 45 46 41 55 4c 54 20   ┆ . $ PFCBDD2 EQU 10 DISP TO 2:ND DSET  # V   P     # ~ $ PSTKSZ EQU 128 DEFAULT ┆
0x2035c…203ac               53 54 41 43 4b 2d 53 49 5a 45 00 23 00 8a 00 08 00 50 5c 5c 5c 20 00 23 00 b2 00 26 00 50 43 52 45 49 44 5c 45 51 55 5c 32 5c 43 52 45 44 49 54 20 49 44 45 4e 54 49 46 49 43 41 54 49 4f 4e 20 00 23 00 be 00 28 00 50 53 45 47 52 45 43 5c 45   ┆STACK-SIZE #     P     #   & PCREID EQU 2 CREDIT IDENTIFICATION  #   ( PSEGREC E┆
0x203ac…203fc               51 55 5c 36 5c 52 45 43 4f 52 44 20 4c 45 4e 47 54 48 20 49 4e 20 53 3a 47 54 41 42 00 23 00 e8 00 38 00 50 4e 55 4d 53 45 47 5c 45 51 55 5c 31 30 5c 44 49 53 50 4c 2e 20 54 4f 20 4e 55 4d 42 45 52 20 4f 46 20 53 45 47 4d 45 4e 54 53 20 49   ┆QU 6 RECORD LENGTH IN S:GTAB #   8 PNUMSEG EQU 10 DISPL. TO NUMBER OF SEGMENTS I┆
0x203fc…2044c               4e 20 53 3a 47 54 41 42 00 23 01 14 00 04 00 50 00 23 01 50 00 1c 00 50 54 54 42 54 49 44 5c 45 51 55 5c 32 5c 54 49 44 20 49 4e 20 54 54 41 42 00 23 01 58 00 2e 00 50 54 3a 44 53 41 56 5c 45 51 55 5c 30 5c 53 41 56 45 20 46 4f 52 20 54 3a   ┆N S:GTAB #     P # P   PTTBTID EQU 2 TID IN TTAB # X . PT:DSAV EQU 0 SAVE FOR T:┆
0x2044c…2049c (332, 0, 400) 44 2d 41 44 44 52 45 53 53 20 49 4e 20 54 54 41 42 20 00 23 01 78 00 2a 00 50 54 54 42 3a 50 50 5c 45 51 55 5c 36 5c 53 41 56 45 20 41 52 45 41 20 46 4f 52 20 54 43 4c 20 49 4e 20 54 54 41 42 00 24 00 1a 00 04 00 50 00 24 00 48 00 28 00 50   ┆D-ADDRESS IN TTAB  # x * PTTB:PP EQU 6 SAVE AREA FOR TCL IN TTAB $     P $ H ( P┆
0x2049c…204ec               4e 54 50 41 5c 45 51 55 5c 34 5c 49 4e 54 45 52 50 52 45 54 45 52 20 53 54 41 52 54 20 41 44 44 52 45 53 53 00 24 00 50 00 26 00 50 49 48 52 54 43 5c 45 51 55 5c 34 5c 52 54 43 20 49 4e 54 45 52 52 55 50 54 20 41 44 44 52 45 53 53 20 00 24   ┆NTPA EQU 4 INTERPRETER START ADDRESS $ P & PIHRTC EQU 4 RTC INTERRUPT ADDRESS  $┆
0x204ec…2053c               00 7c 00 24 00 50 52 54 43 44 41 5c 45 51 55 5c 2f 31 42 5c 52 54 43 20 44 45 56 49 43 45 20 41 44 44 52 45 53 53 00 24 00 a6 00 08 00 50 5c 5c 5c 20 00 24 00 ce 00 46 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆ | $ PRTCDA EQU /1B RTC DEVICE ADDRESS $     P     $   F P**********************┆
0x2053c…2058c               2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 24 00 da 00 46 00 50 2a 20 20 43 41 4c 4c 2d 46 4f 52 4d 41 54 2c 20 50 45 52 46 4f 52 4d 53 3a 20 20 43   ┆*******************************************  $   F P*  CALL-FORMAT, PERFORMS:  C┆
0x2058c…205dc               46 52 20 20 20 20 20 20 41 31 34 2c 41 31 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 24 01 24 00 46 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 41 54 41 20 20 20   ┆FR      A14,A13                     *  $ $ F P*                          DATA   ┆

DataMuseum.dk

Philips Data Systems

⟦e32ee308d⟧

Derivation

PTS(SC)

HexDump

Reduced view