Google
 

Trailing-Edge - PDP-10 Archives - BB-H311B-RM - rsx20f-swskit/listings/mbt.lis
There are no other files named mbt.lis in the archive.
.MAIN.	MACRO M1110  17-SEP-79 09:03
TABLE OF CONTENTS

     3-    1	ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
    96-   16	DETERMINE DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE
   104-  316	DETERMINE MA20/MB20 MAKSED START ADDRESSES & LENGTHS
   104-  343	MASKED START ADDRESSES & LENGTHS FOR AN MA20/MB20 PAIR
   110-  624	DETERMINE CONTROLLER PRESENSE & FUNCTION 01 DATA
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 1


      1		177777 			CORDET==-1
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 3
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.

					.SBTTL	ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
      2
      3						.NLIST	CND,BEX
      4						.LIST	MC,MD,MEB
      5						.ENABL	AMA
      6
      8					.TITLE	CORDET -- CORE MEMORY RESOURCE DETERMINATION OVERLAY
     12
     13					.REM	%
     14						THIS FILE CONTROLS THE ASSEMBLY OF THE 5 MEMORY BOOT OVERLAY MODULES.
     15					WHICH ONE OF THE MODULES IS DETERMINED BY WHICH ONE OF 5 SYMBOLS IS DEFINED.
     16					THE SYMBOLS ARE:
     17
     18							MBROOT, CORDET, MSSCTL, DBEOVL, OR FITCON.
     19
     20					THE SYMBOL SHOULD BE DEFINED IN THE ASSEMBLY CONTROL COMMAND USING THE /EQ:
     21					SWITCH.  ONE OTHER SYMBOL MAY BE DEFINED WITH THE EQUATE SWITCH: DEFINE "MBOKLG"
     22					WHEN DOING AN R$$20F ASSEMBLY IN THE DIAGNOSTIC ENVIRONMENT.  THIS SATISFIES
     23					EXTERNAL REFERENCES BY EXPLCITLY DEFINING THOSE SYMBOLS.
     24
     25						THE OVERLAY STRUCTURE OF THE MEMORY BOOT IS SIMPLE: ONE ROOT MODULE,
     26					MBROOT, WHICH LOADS ONE OF THE OTHER 4 MODULES UNDERNEATH IT AS NECESSARY.  THE
     27					TOTAL LENGTH OF OVERLAYS RESIDENT AT ANY ONE POINT IN TIME MUST BE LESS THAN
     28					16000(OCTAL) BYTES, BUT IT IS PREFERABLE TO KEEP IT AROUND 14000 TO ALLOW FOR
     29					EXPANSION.  THE OVERLAY STRUCTURE IS SHOWN GRAPHICALLY BELOW:
     30
     31					MEMORY
     32					16000
     33					 MAX
     34					  !	+-----------------------------------------------------------+
     35					  !	!							    !
     36					  !	!		    MBROOT (ROOT MODULE)		    !
     37					  !	!							    !
     38					  !	+--------------+--------------+--------------+--------------+
     39					  !	!	       !	      !		     !		    !
     40					  !	!    CORDET    !    MSSCTL    !    DBEOVL    !    FITCON    !
     41					  V	!	       !	      !		     !		    !
     42						+--------------+--------------+--------------+--------------+
     43
     44					TIME --------->
     45
     46						%
     47
     48		000001 			R$$20F=1	; *****FORCE ASSEMBLY OF MEM BOOT IN FRONT-END MODE *****
     49
     50					;-----DEFINE "CONMMR" TO AID IN MEMORY BOOT ERROR CHECKING.  UNDEFINE IT
     51					; TO SAVE APPROXIMATELY 400(8) BYTES IN THE MEMORY BOOT ROOT MODULE.  NOTE
     52					; THAT IF YOU UNDEFINE OR REDEFINE THIS THEN YOU MUST ALSO CHANGE THE POSITION
     53					; SUBROUTINE "MMRESP" IN THE FILE MBSUB.P11 SO THAT IT IS IN THE PROPER MODULE.
     54		000001 				CONMMR=1
     55
     56					;-----LISTING CONTROL.
     57		000001 			LSTMB=1
     58		000001 			LSBRTN=1
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 4
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.

     60					;-----SYMBOLS DEFINED TO GET RID OF UNDEFINED PROBLEMS.  THESE SYMBOLS WOULD
     61					; NORMALLY COME FROM PRM11.P11.
     62
     63		000001 			BIT0=1.
     64		000002 			BIT1=2.
     65		000004 			BIT2=4.
     66		000010 			BIT3=8.
     67		000020 			BIT4=16.
     68		000040 			BIT5=32.
     69		000100 			BIT6=64.
     70		000200 			BIT7=128.
     71		000400 			BIT8=256.
     72		001000 			BIT9=512.
     73		002000 			BIT10=1024.
     74		004000 			BIT11=2048.
     75		010000 			BIT12=4096.
     76		020000 			BIT13=8192.
     77		040000 			BIT14=16384.
     78		100000 			BIT15=32768.
     79
     80		001000 			HALTLP=	BIT9		;EBOX IS IN HALT LOOP
     81		004000 			ERRSTP=	BIT11		;EBOX CLOCK STOPPED DUE TO ERROR
     82
     83					;-----OTHER SYMBOLS DEFINED TO MAKE FLAGS GO AWAY.
     84					.MACRO	$DEF	;MAKE THE O FLAG GO AWAY   ......
     85					.ENDM
     86
     87					;-----PUSH AND POP MACROS ARE GIVEN HERE JUST TO NEATEN UP THE LISTING SOME.
     88
     89					.MACRO	PUSH	A
     90					.IRP	B,<A>
     91						  MOV	B,-(SP)	;PUSH B ON STACK
     92					.ENDR
     93					.ENDM
     94
     95					.MACRO	POP	A
     96					.IRP	B,<A>
     97						  MOV	(SP)+,B	;POP STACK INTO B
     98					.ENDR
     99					.ENDM
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 8
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.

    246					;-----THE FOLLOWING DEFINITIONS FORCE ASSEMBLY OF THE MEMORY BOOT SUBROUTINES
    247					; REQUIRED FOR THIS MODULE.
    248
    249		000001 			$DMADET=1
    250		000001 			$MABDET=1
    251		000001 			$MABPAD=1
    252					;		$CTFMTC=1	;NOT BEING CALLED AT THE MOMENT
    253		000001 			$CONDET=1
    254
    255
    261					;-----THE FOLLOWING MEMORY BOOT LABELS ARE GLOBAL.
    262
    263						.GLOBL	CONDET,DMADET,MABDET
    264
    265					;	.GLOBL	CTFMTC		;NOT BEING CALLED AT THE MOMENT
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 95
REGISTER SAVE/RESTORE TRANSLATION MACROS

      5
      6					;-----THIS SOURCE MODULE CONTAINS THE UPDATE FOR TCO "KLI 4.2094".  THIS CHANGE
      7					; FIXED THE PROBLEM WHICH OCCURED WITH THE COMBINATION OF KL10 MODEL A, EXTERNAL
      8					; MEMORY (DMA20), AND A MICROCODE NOT HAVING THE SXCT INSTRUCTION.  WITHOUT THIS
      9					; FIX THE MEMORY BOOT WOULD EITHER HANG OR SIZE EXTERNAL MEMORY INCORRECTLY.
     10					; ALSO INCLUDED ARE THE UPDATES FOR TCO "KLI 4.2430".  THE BUG HERE OCCURED
     11					; UNDER CIRCUMSTANCES SIMILAR TO THE ABOVE.  THE RESULT WAS THAT THE MEMORY BOOT
     12					; WOULD THINK THAT SXCT EXISTED WHEN IN FACT IT DID NOT.
     13
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 96
DETERMINE DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE

     16					.SBTTL		DETERMINE DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE
     17
     18					.REM	%
     19						SUBROUTINE DMADET DETERMINES THE BUS MODE OF EXTERNAL MEMORY AND WHAT
     20					ADDRESSES IT IS RESPONDING TO.
     21						%
     22
     23					;-----FIRST SEE IF THIS CAN AND SHOULD BE DONE
     24	000000				DMADET:	CONDET			;MAKE SURE CONTR DETERMINATION IS DONE
	000000	004737 	002224'			  JSR	PC,CONDET	;DETERMINE CONTROLLER PRESENSE & FUNCTION 01 DATA
     25	000004	105737 	000000G			TSTB	DMARD		;HAVE WE ALREADY  DONE THIS?
     26	000010	001007 				BNE	1$		;YES...DONT DO IT AGAIN
     27	000012	004737 	000000G			JSR	PC,INIDMA	;CLEAN OUT DMA20 SIZING DATA
     28	000016	105737 	000000G			TSTB	DMA20		;ANY DMA20 PRESENT?
     29	000022	003003 				BGT	DDCON		;IF YES GO CONTINUE SUBROUTINE
     30	000024	105237 	000000G			INCB	DMARD		;NO DMA20...MARK THIS SECTION AS DONE
     31	000030	000207 			1$:	RTS	PC		;ELSE NO X MEM...RETURN
     32
     33					.REM	%
     34						DDCON -- DETERMINE DMA20 (EXTERNAL MEMORY CONFIGURATION.  THERE ARE 3
     35					BASIC PARTS TO THIS TASK:
     36						DETERMINE METHOD OF GENERATING 22-BIT (EXTENDED) ADDRESSES.  FOR MODEL B
     37					THIS IS NO PROBLEM; JUST SET FORCE EXTEND.  FOR MODEL A TRY 22-BIT ADR EXAMINES.
     38					FAILING THAT USE THE SXCT INSTRUCTION.  MICROCODE HISTORY SAYS THAT ONE OR THE
     39					OTHER WILL EXIST; BOTH ON SOME UCODE VERSIONS.  CUSTOMER DEFINED MICROCODES
     40					HAVING NEITHER WILL NOT WORK BEYOND 256K.  THIS MAY CAUSE PROBLEMS.
     41						READ 4 CONTIGUOUS WORDS EVERY 16K IN EACH BUS MODE (1,2,4) AND RECORD
     42					THE NXMS WHICH OCCUR WHILE DOING THIS.
     43						DETERMINE THE BEST BUS MODE FOR EACH BLOCK OF EXTERNAL MEMORY WHICH
     44					RESPONDS DIFFERENTLY AND ALSO THE BEST BUS MODE FOR ALL OF X MEM.
     45
     46						THE REARRANGEMENT OF THIS SECTION CONSTITUTES TCO "KLI 4.2430". *****
     47						%
     48
     49					;-----INITIALIZE A FEW THINGS.
     50	000032				DDCON:	REGSAV			;SAVE REGS
	000032	004737 	000000G			 JSR	PC,SAV.5	; ** SAVE R1 - R5 ON THE STACK
     51	000036					SM			;RESET MACHINE
	000036	004737 	000000G			 JSR	PC,$KLMR	; ** MASTER RESET THE KL10
	000042	012700 	000001 			 MOV	#STRCLK,R0	; ** START CLOCK FUNCTION CODE TO R0
	000046	004737 	000000G			 JSR	PC,$DDFXC	; ** START THE KL10 CLOCK
     52	000052	012737 	000004 	000000G		MOV	#4,TSTCON	;SPECIFY DMA20 CONTR
     53	000060	005004 				CLR	R4		;SET EXT ADR METHOD TO DIRECT
     54	000062	012737 	000100 	000000G		MOV	#100,XMAL	;ASSUME WE CAN ADR ALL 4 MEGAWORDS
     55	000070	005737 	000000G			TST	MODELB		;IS THIS A MODEL B MACHINE
     56	000074	001152 				BNE	DDCONT		;YES...SKIP EXT ADR METHOD DETERMINATION
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 97
DETERMINE DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE

     58
     59					;-----DETERMINE THE EXTENDED ADDRESSING METHOD TO USE FOR THIS MODEL A
     60					; MACHINE.  TRY A 22-BIT ADR EXAMINE.  IF IT WORKS USE EXAMINES, OTHERWISE TRY A
     61					; SXCT.  IF THAT WORKS USE SXCT'S, OTHERWISE LIMIT ADDRESSING TO 18 BITS (256K)
     62					; & USE DIRECT ADDRESSING.
     63	000076					LOADAC	174,4$		;LOAD HELPFUL LITTLE PROGRAM
	000076	004537 	000106'			  JSR	R5,64$		;SAV R5, PT TO & SKIP ARG LIST
	000102	000174 				  .WORD 174		;LOAD MASK
	000104	000364'				  .WORD 4$		;PDP11 MEM ADR(S)
	000106	004737 	000000G		64$:	  JSR	PC,ACLOAD	;LOAD ACS FROM CONTIGUOUS 11 MEM
	000112	012605 				 MOV	(SP)+,R5
     64
     65	000114					RUN	AC2		;RUN IT TO CLR THINGS
	000114	004537 	000122'			  JSR	R5,65$		;SAV R5, PT TO & SKIP ARG LIST
	000120	000002 				  .WORD	AC2		;STARTING ADR
	000122	004737 	000000G		65$:	  JSR	PC,RUNPRG	;RUN PRGM 1 TIC USING GIVEN PC
	000126	012605 				 MOV	(SP)+,R5
     66	000130	012700 	000410'			MOV	#5$,R0		;PT R0 TO A 22-BIT ADR
     67	000134					EXAM			;TRY THE EXAMINE
	000134	010146 				MOV	R1,-(SP)	; [4.2218] SAVE R1
	000136	012701 	000000G			MOV	#.WORK,R1	; [4.2218] WORK SPACE
	000142	004737 	000000G			 JSR	PC,$EXAMD	; ** EXECUTE THE KL10 EXAMINE
	000146	012700 	000000G			MOV	#.WORK,R0	; [4.2218] PTR TO 36 BIT
	000152	012601 				MOV	(SP)+,R1	; [4.2218] RESTORE R1
     68	000154	004537 	000304'			JSR	R5,2$		;DID IT WORK?
     69	000160	000001 				 .WORD	1		;EXAMINE FLAG
     70
     71	000162					RUN	AC2		;SET THE ERA AGAIN.
	000162	004537 	000170'			  JSR	R5,66$		;SAV R5, PT TO & SKIP ARG LIST
	000166	000002 				  .WORD	AC2		;STARTING ADR
	000170	004737 	000000G		66$:	  JSR	PC,RUNPRG	;RUN PRGM 1 TIC USING GIVEN PC
	000174	012605 				 MOV	(SP)+,R5
     72	000176	012700 	000415'			MOV	#6$,R0		;PT TO SXCT
     73	000202					EXCT			; & TRY IT
	000202	004737 	000000G			 JSR	PC,$EXCT	; ** EXECUTE IT
     74	000206	004537 	000304'			JSR	R5,2$		;DID IT WORK?
     75	000212	177777 				 .WORD	-1		;SXCT FLAG
     76
     77					;-----HERE IF NEITHER OF THE METHODS WORKS
     78	000214					PFORCE			;SEND ERR MSG
     79	000214					$PMSG	1$
	000214	012700 	000240'			 MOV	#1$,R0		; ** TEXT POINTER TO R0
	000220	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
     81	000224					PBELL
	000224	004737 	000000G			 JSR	PC,$TTBEL	; ** PRINT A <BELL>
     82	000230					PNORML
     83	000230	012737 	000004 	000000G		MOV	#4,XMAL		;FORCE LIMIT OF SCAN TO BE 256K
     84	000236	000471 				BR	DDCONT
     85	000240	   125 	   103 	   117 	1$:	.ASCIZ	%UCODE ERR. CAN'T MAP X MEM > 256K\%
     86						.EVEN
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 98
DETERMINE DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE

     88
     89					;-----LITTLE SUBROUTINE TO SEE IF ADDRESSING METHOD WORKED.  RETURN IF NOT, ELSE
     90					; POP A LEVEL, SET R4, AND GO TO DDCONT IF IT DID.
     91	000304	012504 			2$:	MOV	(R5)+,R4	;INDICATE ADR METHOD TRIED
     92	000306	103416 				BCS	3$		;BR IF ERR
     93	000310					XX	RDERA0		;DO A RDERA & GET RESULT
	000310	012700 	000000G			  MOV	#RDERA0,R0		;PT R0 AT INSTR
	000314	004737 	000000G			  JSR	PC,XX1		;EXEC INSTR (ADDR IN R0) & EXAM AC0
     94	000320	103411 				BCS	3$		;BR IF FAILED
     95	000322	042737 	177703 	000002G		BIC	#177703,XXWD+2	;ISOLATE ADR SECTION BITS
     96	000330	022737 	000054 	000002G		CMP	#13*4,XXWD+2	;ERA ADR SECTION 13 SET?
     97	000336	001002 				BNE	3$		;BR IF NO.. DIDN'T GENERATE 22-BIT ADR
     98	000340					POP	R5		;RESTORE R5, ADR METHOD OK
	000340	012605 				 MOV	(SP)+,R5
     99	000342	000427 				BR	DDCONT
    100	000344	005004 			3$:	CLR	R4		;INDICATE ADR'G MODE FAILURE
    101	000346					SM			;RESET MACHINE
	000346	004737 	000000G			 JSR	PC,$KLMR	; ** MASTER RESET THE KL10
	000352	012700 	000001 			 MOV	#STRCLK,R0	; ** START CLOCK FUNCTION CODE TO R0
	000356	004737 	000000G			 JSR	PC,$DDFXC	; ** START THE KL10 CLOCK
    102	000362	000205 				RTS	R5		;TRY NEXT
    103
    104					;-----THIS IS A QUICKY PROGRAM TO AID IN DETERMINING IF SXCT OR EXTENDED
    105					; ADDRESS EXAMINES WORK WITH THE PARTICULAR MICRO-CODE LOADED.
    106	000364					BLK10	2
    107	000364				4$:	I10	MOVE,0,,20	;2--RD LOC 20 TO CLR ERA
	000364	   020 	   000 	   000
	000367	   000 	   004
    108	000371					IO10	CONO,APR,,27700	;3--CLR APR AGAIN TO UNLOCK ERA
	000371	   300 	   057 	   000
	000374	   002 	   016
    109	000376					I10	JRST,4,,4	;4--WAIT FOR THE 11 TO DO ITS STUFF
	000376	   004 	   000 	   000
	000401	   142 	   005
    110	000403					I10	MOVE,0,,0,6	;5--USED BY SXCT
	000403	   000 	   000 	   030
	000406	   000 	   004
    111	000410				5$:	WD36	0000,1300,0020	;6--ADR ABOVE 256K (SECTION 13)
	000410	   020 	   000 	   054
	000413	   000 	   000
    112
    113	000415				6$:	I10	SXCT,,,5	;USED TO SEE IF SXCT WORKS
	000415	   005 	   000 	   000
	000420	   060 	   002
    114	000422					ENDBLK
    115						.EVEN
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 99
DETERMINE DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE

    117
    118					;-----THE EXTENDED ADDRESSING METHOD HAS BEEN DETERMINED.  NOW LOAD THE
    119					; SCANNING PROGRAM AND MODIFY IT TO SUIT THE METHOD TO BE USED.
    120	000422				DDCONT:	RESET	SBUS		;RESET MEMORY
	000422	004537 	000430'			  JSR	R5,64$		;SAV R5, PT TO & SKIP SBUS LIST
	000426	100000 				  .WORD	SBUS
	000430	004737 	000000G		64$:	  JSR	PC,.RESET	;RESET SPECIFIED HARDWARE
	000434	012605 				 MOV	(SP)+,R5
    121	000436					LOADAC	7776,2$		;LOAD THE PROGRAM
	000436	004537 	000446'			  JSR	R5,65$		;SAV R5, PT TO & SKIP ARG LIST
	000442	007776 				  .WORD 7776		;LOAD MASK
	000444	000530'				  .WORD 2$		;PDP11 MEM ADR(S)
	000446	004737 	000000G		65$:	  JSR	PC,ACLOAD	;LOAD ACS FROM CONTIGUOUS 11 MEM
	000452	012605 				 MOV	(SP)+,R5
    122	000454	010437 	000000G			MOV	R4,DDCADM	;TEST THE METHOD FLAG
    123	000460	002461 				BLT	6$		;BR IF SXCT...DON'T MODIFY PROGRAM
    124	000462	001411 				BEQ	1$		;BR IF DIRECT...PUT MOVE IN PLACE
    125	000464					DPOST	AC3,5$		;ELSE EXAMINES...PUT HALT IN PLACE
	000464	012700 	000003 			 MOV	#AC3,R0	; ** ADDRESS TO R0
	000470	010146 				 MOV	R1,-(SP)	; ** SAVE R1
	000472	012701 	000617'			 MOV	#5$,R1	; ** 5$ POINTER TO R1
	000476	004737 	000000G			 JSR	PC,$DPOST	; ** EXECUTE THE DEPOSIT
	000502	012601 				 MOV	(SP)+,R1	; ** RESTORE R1
    127	000504	000447 				BR	6$
    128	000506				1$:	DPOST	AC3,4$		;HERE TO SUBSTITUTE MOVE FOR SXCT
	000506	012700 	000003 			 MOV	#AC3,R0	; ** ADDRESS TO R0
	000512	010146 				 MOV	R1,-(SP)	; ** SAVE R1
	000514	012701 	000612'			 MOV	#4$,R1	; ** 4$ POINTER TO R1
	000520	004737 	000000G			 JSR	PC,$DPOST	; ** EXECUTE THE DEPOSIT
	000524	012601 				 MOV	(SP)+,R1	; ** RESTORE R1
    130	000526	000436 				BR	6$
    131
    132					;-----THIS AC PROGRAM IS AN AID IN MAPPING EXTERNAL MEMORY RESPONSE.  ITS
    133					; FUNCTION IS TO TURN ON THE DMA20, AND THEN DO 4 READS AND RECORD THE NXM BIT
    134					; AFTER EACH READ.  IT SHOULD BE NOTED THAT THE INSTRUCTION IN AC3 MAY BE
    135					; OVERLAID DEPENDING ON THE METHOD BEING USED TO DO EXTENDED ADDRESS READS.
    136	000530					BLK10	1
    137	000530				2$:	IO10	SBDIAG,,,16	;1--CLR DMA20, SET BUS MODE
	000530	   016 	   000 	   000
	000533	   005 	   016
    138	000535					IO10	CONO,APR,,27700	;2--CLR APR TO SEE IF WE CAN GET NXM
	000535	   300 	   057 	   000
	000540	   002 	   016
    139	000542					I10	SXCT,,,13	;3--DO THE MEMORY ACCESS
	000542	   013 	   000 	   000
	000545	   060 	   002
    140	000547					I10	LSH,14,,1	;4--SHIFT NXM WORD
	000547	   001 	   000 	   000
	000552	   026 	   005
    141	000554					IO10	CONSZ,APR,,2000	;5--SKIP IF NO NXM
	000554	   000 	   004 	   000
	000557	   003 	   016
    142	000561					I10	IORI,14,,1	;6--ELSE MARK NXM IN NXM WORD
	000561	   001 	   000 	   000
	000564	   356 	   010
    143	000566					I10	ADDI,15,,1	;7--GO TO NXT WD OF QUADWORD
	000566	   001 	   000 	   200
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 99-1
DETERMINE DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE

	000571	   316 	   005
    144	000573					I10	TRNE,15,,3	;10-SKIP IF QUADWORD DONE
	000573	   003 	   000 	   200
	000576	   026 	   014
    145	000600					I10	JRST,,,2	;11-ELSE GO DO NXT WD
	000600	   002 	   000 	   000
	000603	   140 	   005
    146	000605				3$:	I10	JRST,4,,1	;12-HALT SO 11 CAN CNG SBDIAG WD OR EXAM
	000605	   001 	   000 	   000
	000610	   142 	   005
    147	000612				4$:	I10	MOVE,17,,0,15	;13-INSTR TO ACCESS MEM
	000612	   000 	   000 	   264
	000615	   007 	   004
    148									;14-NXM WD GEND HERE
    149									;15-ADDRESS LOAD HERE BY 11
    150	000617					ENDBLK			;16-SBDIAG WD LOADED HERE BY 11
    151									;17-SCRATCH
    152
    153	000617				5$:	I10	JRST,4,,4	;3--WAIT FOR THE 11 TO DO ITS STUFF
	000617	   004 	   000 	   000
	000622	   142 	   005
    154						.EVEN
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 100
DETERMINE DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE

    156
    157					;-----PROGRAM LOADED.  NOW ACCESS 4 MEMORY WORDS EVERY 16K IN EACH OF THE
    158					; BUS MODES TO GET A MAP OF WHERE NXM RESPONSES CHANGE.
    159	000624				6$:	RESET	SBUS		;RESET THE MEMORIES
	000624	004537 	000632'			  JSR	R5,66$		;SAV R5, PT TO & SKIP SBUS LIST
	000630	100000 				  .WORD	SBUS
	000632	004737 	000000G		66$:	  JSR	PC,.RESET	;RESET SPECIFIED HARDWARE
	000636	012605 				 MOV	(SP)+,R5
    161	000640					DFWRTT	EXTWD,76	;SET FORCE EXTENDED ADRG (NOP ON MOD A)
	000640	012700 	000076 			 MOV	#76,R0	; ** FUNCTION WRITE CODE TO R0
	000644	010146 				 MOV	R1,-(SP)	; ** SAVE R1
	000646	012701 	001541'			 MOV	#EXTWD,R1	; ** BUFFER POINTER TO R1
	000652	004737 	000000G			 JSR	PC,$DDFWR	; ** EXECUTE THE FUNCTION WRITE
	000656	012601 				 MOV	(SP)+,R1	; ** RESTORE R1
    162	000660					DFXCTT	STRCLK		;RESTART CLK
	000660	012700 	000001 			 MOV	#STRCLK,R0	; ** FUNCTION CODE TO R0
	000664	004737 	000000G			 JSR	PC,$DDFXC	; ** EXECUTE THE FUNCTION EXECUTE
    167	000670	012701 	001530'			MOV	#ADDR+2,R1	;INI ADR PTR FOR EXAMINES
    168	000674	005011 				CLR	(R1)		;NOW INI THE ADR
    169	000676	012741 	000020 			MOV	#20,-(R1)
    170	000702	005037 	000000G			CLR	D16KBN		;SET 16K BLK # TO 0
    171	000706	012702 	000000G			MOV	#DMA20T,R2	;INI PTR TO DMA20 ADR/SIZ TABLE
    172	000712	012703 	007777 			MOV	#7777,R3	;INI PREV NXM FLAGS TO TRUE NXM
    173	000716	005046 				CLR	-(SP)		;.OR. OF IMPERFECT NXMS
    174	000720	012704 	000000G			MOV	#DMARMP,R4	;RESPONSE MAP WD PTR
    175	000724	012705 	000001 			MOV	#1,R5		;RESPONSE MAP BIT PTR
    176	000730					EXECUTE	3$		;SET UP FOR CONTINUES
	000730	012700 	000605'			  MOV	#3$,R0		;PT TO INSTR TO BE EXECUTED
	000734	004737 	000000G			  JSR	PC,QXCT1	;EXECUTE THE INSTR PTD TO BY R0
    177					;-----TOP OF 16K MEMORY BLOCK LOOP.
    178	000740				7$:	LOADAC	ACC15,ADDR	;LOAD THE ADR WE WILL ACCESS
	000740	004537 	000750'			  JSR	R5,67$		;SAV R5, PT TO & SKIP ARG LIST
	000744	020000 				  .WORD ACC15		;LOAD MASK
	000746	001526'				  .WORD ADDR		;PDP11 MEM ADR(S)
	000750	004737 	000000G		67$:	  JSR	PC,ACLOAD	;LOAD ACS FROM CONTIGUOUS 11 MEM
	000754	012605 				 MOV	(SP)+,R5
    179	000756					CNTSD	CDCODW		;CONTR # TO SBDIAG WD
	000756	012700 	001534'			  MOV	#CDCODW,R0		;PT TO SBDIAG WD
	000762	004737 	000000G			  JSR	PC,CNTSD1	;CONTR # TO SBDIAG WD (ADDR IN R0)
    180	000766	012737 	070200 	001536'		MOV	#70200,CDCODW+2	;INI SBDIAG WD TO SAY 4-BUS MODE
    181					;-----TOP OF BUS MODE LOOP.
    182	000774				8$:	LOADAC	ACC16,CDCODW	;LOAD THE SBUS DIAG WD
	000774	004537 	001004'			  JSR	R5,68$		;SAV R5, PT TO & SKIP ARG LIST
	001000	040000 				  .WORD ACC16		;LOAD MASK
	001002	001534'				  .WORD CDCODW		;PDP11 MEM ADR(S)
	001004	004737 	000000G		68$:	  JSR	PC,ACLOAD	;LOAD ACS FROM CONTIGUOUS 11 MEM
	001010	012605 				 MOV	(SP)+,R5
    183	001012					CONTIN			;CONTINUE THE KL...WAIT FOR HALT
	001012	004737 	000000G			  JSR	PC,CONTIN	;RUN & CONTINUE
    184	001016	005737 	000000G			TST	DDCADM		;USING EXAMS AS EXT ADRG METHOD?
    185	001022	003417 				BLE	10$		;NO...GO DO NEXT BUS MODE
    186	001024	010100 			9$:	MOV	R1,R0		;PT R0 AT PDP10 ADR WD		** TCO "KLI 4.2094" **
    187	001026					EXAM			;ELSE DO THE EXAMINE
	001026	010146 				MOV	R1,-(SP)	; [4.2218] SAVE R1
	001030	012701 	000000G			MOV	#.WORK,R1	; [4.2218] WORK SPACE
	001034	004737 	000000G			 JSR	PC,$EXAMD	; ** EXECUTE THE KL10 EXAMINE
	001040	012700 	000000G			MOV	#.WORK,R0	; [4.2218] PTR TO 36 BIT
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 100-1
DETERMINE DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE

	001044	012601 				MOV	(SP)+,R1	; [4.2218] RESTORE R1
    188	001046					CONTIN			;CONTINUE THE KL10
	001046	004737 	000000G			  JSR	PC,CONTIN	;RUN & CONTINUE
    189	001052	005211 				INC	(R1)		;PT TO THE NXT OF THE 4 WORDS
    190	001054	032711 	000003 			BIT	#3,(R1)		;HAVE WE EXAMINED ALL 4 WORDS?
    191	001060	001361 				BNE	9$		;BR IF NO...KEEP GOING
    192	001062	162737 	010000 	001536'	10$:	SUB	#10000,CDCODW+2	;CALC NXT BUS MODE
    193	001070	032737 	030000 	001536'		BIT	#30000,CDCODW+2	;ALL 3 MODES DONE?
    194	001076	001336 				BNE	8$		;BR IF NO
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 101
DETERMINE DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE

    196
    197					;-----ALL THREE BUS MODES HAVE BEEN DONE FOR THIS 16K BLOCK NOW.  GET THE
    198					; RESULTING NXM MASK AND UPDATE THE TABLES IF IT HAS CHANGED SINCE THE LAST 16K.
    199	001100					EXAMT	AC14,REAPWD	;GET THE WORD
	001100	012700 	000014 			 MOV	#AC14,R0	; ** ADDRESS POINTER TO R0
	001104	010146 				 MOV	R1,-(SP)	; ** SAVE R1
	001106	012701 	000000G			 MOV	#REAPWD,R1	; ** REAPWD BUFFER POINTER TO R1
	001112	004737 	000000G			 JSR	PC,$EXAMT	; ** EXECUTE THE KL10 EXAMINE
	001116	012601 				 MOV	(SP)+,R1	; ** RESTORE R1
    201	001120	004737 	000000G			JSR	PC,CHKED
    202	001124	011000 				MOV	(R0),R0
    203	001126	042700 	170000 			BIC	#170000,R0	;SHUT OFF THE JUNK
    204	001132	020027 	007777 			CMP	R0,#7777	;ARE WE IN A NXM AREA?
    205	001136	001401 				BEQ	11$		;YES
    206	001140	050514 				BIS	R5,(R4)		;ELSE RECORD RESPONSE IN RESPONSE MAP
    207	001142	020003 			11$:	CMP	R0,R3		;HAS THE NXM MASK CHANGED?
    208	001144	001402 				BEQ	12$		;NO...JUST GO ON TO THE NXT 16K BLK
    209	001146	004737 	001450'			JSR	PC,23$		;ELSE CALL ROUTINE WHICH RECORDS CHANGES
    210	001152	005237 	000000G		12$:	INC	D16KBN		;UPDATE BLOCK NUMBER
    211	001156	062721 	040000 			ADD	#40000,(R1)+	;INC ADR BY 16K
    212	001162	005511 				ADC	(R1)
    213	001164	006305 				ASL	R5		;UPDATE RESPNSE MAPPING POINTERS
    214	001166	103002 				BCC	13$
    215	001170	006105 				ROL	R5
    216	001172	005724 				TST	(R4)+
    217	001174	033711 	000000G		13$:	BIT	XMAL,(R1)	;E-O ALLOWED ADR SPACE (256K OR 4 MEG)?
    218	001200	001003 				BNE	14$		;YES...FINISH UP THIS PHASE
    219	001202	042741 	000017 			BIC	#17,-(R1)	;ELSE FIX ADR CAUSE IT CHANGES FOR EXAM
    220	001206	000654 				BR	7$		; & GO DO NXT 16K BLOCK
    221					;-----ALL 16K BLOCKS HAVE BEEN DONE.  FINISH THE TABLES AND DO A CONSISTENCY
    222					; CHECK.
    223	001210	012700 	007777 		14$:	MOV	#7777,R0	;FOOL SUBRTN INTO THINKING IT GOT NXMS
    224	001214	004737 	001450'			JSR	PC,23$		;FINISH UP TABLES
    225	001220	006237 	000000G			ASR	DMA2TS		;DIV TABLE SIZE BY 2
    226	001224	103004 				BCC	15$		;BR IF WAS EVEN...ALL OK
    227	001226					FATAL	DTO	;SOMETHING WRONG IF HERE
	001226	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "DTO" ERROR
	001232	   104 	   124 	   117 		 .ASCIZ	%DTO%
    228					;-----ALL NXM INFO IS IN.  FIGURE OUT THE OVERALL BUS MODE.
    229	001236	012700 	000003 		15$:	MOV	#3,R0		;INI BUS MODE NUMBER
    230	001242	005001 				CLR	R1		;IND BUS MODE NOT FND YET
    231	001244	012602 				MOV	(SP)+,R2	;GET DMA20 NXM MASK OFF STACK
    232	001246	010237 	000000G			MOV	R2,DMANXM	;SAVE IT FOR POSTERITY
    233	001252	032702 	007400 		16$:	BIT	#7400,R2	;ANY NXMS FOR THIS BUS MODE?
    234	001256	001010 				BNE	18$		;YES.. DONT USE THIS BUS MOD
    235	001260	005701 				TST	R1		;HAS A HIGHEST BUS MODE BEEN FOUND?
    236	001262	001001 				BNE	17$		;YES
    237	001264	010001 				MOV	R0,R1		;ELSE SET NEW HIGHEST BUS MODE
    238	001266	120037 	000000G		17$:	CMPB	R0,INTMOD	;IS THIS THE MODE REQUESTED?
    239	001272	001002 				BNE	18$		;NO.. DON'T FORCE IT
    240	001274	010001 				MOV	R0,R1		;ELSE SET IT & EXIT LP
    241	001276	000405 				BR	19$
    242	001300				18$:	SL	R2,4		;SHIFT RESPONSE WD
	001300	006302 				  ASL	R2
	001302	006302 				  ASL	R2
	001304	006302 				  ASL	R2
	001306	006302 				  ASL	R2
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 101-1
DETERMINE DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE

    243	001310	077020 				SOB	R0,16$		;LOOP IF MORE, DROP THRU IF NO BUS MODE LEGAL
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 102
DETERMINE DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE

    245
    246					;-----CHECK FORCE BUS MODE FLAG.  DO NOTHING IF SET, ELSE SAVE THE BUS MODE
    247					; IF IT IS KNOWN.  IF NOT, ASK FOR IT.
    248	001312	105737 	000000G		19$:	TSTB	DMAFRC		;DMA20 BUS MODE FORCED BY EXPLICIT TYPE-IN?
    249	001316	001041 				BNE	22$		;YES.. DO NOTHING
    250	001320	110137 	000000G			MOVB	R1,DMABM	;ELSE SAVE THE BUS MODE FOUND
    251	001324	003036 				BGT	22$		;BR IF IT WAS GOOD
    253	001326					PMSG	<WARNING: CANNOT FIND A LEGAL DMA20 BUS MODE\>
	001326	012700 	001340'			 MOV	#69$,R0		; ** MESSAGE POINTER TO R0
	001332	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	001336	000427 				 BR	70$		; ** BRANCH AROUND TEXT
	001340	   127 	   101 	   122 	69$:	 .ASCIZ	%WARNING: CANNOT FIND A LEGAL DMA20 BUS MODE\%
    262	001416	105237 	000000G		21$:	INCB	DMAFRC		;MARK BUS MODE FORCED
    263					;-----BUS MODE IS NOW KNOWN.  CLEAR CONTROLLERS & EXIT.
    264	001422				22$:	RESET	SBUS		;RESET EVERYTHING ON THE SBUS
	001422	004537 	001430'			  JSR	R5,71$		;SAV R5, PT TO & SKIP SBUS LIST
	001426	100000 				  .WORD	SBUS
	001430	004737 	000000G		71$:	  JSR	PC,.RESET	;RESET SPECIFIED HARDWARE
	001434	012605 				 MOV	(SP)+,R5
    265	001436					REGRST			;DONE...RESTORE REGS & EXIT
	001436	004737 	000000G			 JSR	PC,RST.5	; ** RESTORE R1 - R5 AND RETURN
    266	001442	105237 	000000G			INCB	DMARD		;MARK THIS SECTION DONE
    267	001446	000207 				RTS	PC
    268
    269					;-----SUBROUTINE TO UPDATE THE DMA20 RESPONSE TABLE
    270	001450	032737 	000001 	000000G	23$:	BIT	#1,DMA2TS	;ON EVEN OR ODD WD OF TABLE?
    271	001456	001410 				BEQ	24$		;EVEN...START NEW ENTRY
    272	001460	005237 	000000G			INC	DMA2TS		;ELSE FINISH OLD ENTRY
    273	001464	013762 	000000G	000002 		MOV	D16KBN,2(R2)	;CALC BLOCK LENGTH
    274	001472	162212 				SUB	(R2)+,(R2)
    275	001474	062237 	000000G			ADD	(R2)+,DMASIZ	;ADD ENTRY SIZ TO TOTAL SIZ
    276	001500	020027 	007777 		24$:	CMP	R0,#7777	;WAS NEW RESP A TRUE NXM?
    277	001504	001406 				BEQ	25$		;YES...DON'T MAKE NEW ENTRY IN TABLE
    278	001506	050066 	000002 			BIS	R0,2(SP)	;NXM IS INCOMPLETE...RECORD RESPONSE
    279	001512	005237 	000000G			INC	DMA2TS		;ESLE CREATE NEW ENTRY
    280	001516	013712 	000000G			MOV	D16KBN,(R2)	;SAVE START ADR OF NEW RESPONSE BLK
    281	001522	010003 			25$:	MOV	R0,R3		;MAKE THE NEW RESP THE OLD RESP
    282	001524	000207 				RTS	PC		;RETURN TO CALLER
    283
    284					;-----DATA SECTIONS FOLLOW
    285	001526	000000 	000000 	000000 	ADDR:	.WORD	0,0,0		;ADDR WHERE CHANGE OCCURRED GOES HERE
    286	001534				CDCODW: WD36	1160,4000,0000	;DIAG FUNC 0, BITS 4-19 SET BY PROGRAM
	001534	   000 	   000 	   200
	001537	   160 	   002
    287	001541				EXTWD:	WD36	0000,0000,0400	;WD FOR DFWR TO FORCE EXTENDED ADRG
	001541	   000 	   001 	   000
	001544	   000 	   000
    288						.EVEN
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 104
DETERMINE MA20/MB20 MAKSED START ADDRESSES & LENGTHS

    316					.SBTTL		DETERMINE MA20/MB20 MAKSED START ADDRESSES & LENGTHS
    317
    318					.REM	%
    319						MABDET JUST CALLS MABPAD TWICE, ONCE FOR EACH POSSIBLE PAIR OF MA20 OR
    320					MB20 CONTROLLERS.  ALSO TRACKS INTERLOCK VARIABLES.
    321						%
    322
    323	001546				MABDET:	CONDET
	001546	004737 	002224'			  JSR	PC,CONDET	;DETERMINE CONTROLLER PRESENSE & FUNCTION 01 DATA
    324	001552	105737 	000000G			TSTB	MABRD		;HAVE WE ALREADY DONE THIS?
    325	001556	001015 				BNE	1$		;YES...DON'T DO IT AGAIN
    326	001560	004737 	000000G			JSR	PC,INIMAB	;RESET MA20/MB20 SIZING DATA
    327	001564	005037 	000000G			CLR	TSTCON		;FOR CONTR PAIR (0,1)
    328	001570					MABPAD			;START ADR & SIZ
	001570	004737 	001614'			  JSR	PC,MABPAD	;MASKED START ADDRESSES & LENGTHS FOR AN MA20/MB20 PAIR
    329	001574	012737 	000002 	000000G		MOV	#2,TSTCON	;FOR CONTR PAIR (2,3)
    330	001602					MABPAD
	001602	004737 	001614'			  JSR	PC,MABPAD	;MASKED START ADDRESSES & LENGTHS FOR AN MA20/MB20 PAIR
    337	001606	105237 	000000G			INCB	MABRD		;MARK MA20/MB20 ST ADR & SIZ CALC DONE
    338	001612	000207 			1$:	RTS	PC
    341
    342
    343					.SBTTL		MASKED START ADDRESSES & LENGTHS FOR AN MA20/MB20 PAIR
    344
    345					.REM	%
    346						MABPAD IS THE ROUTINE WHICH MATCHES UP MA20/MB20 CONTROLLERS, EITHER
    347					SINGALLY OR IN PAIRS, WITH THEIR AVAILABLE STORAGE MODULES AND THE RULES FOR
    348					CONFIGURING THEM.  THE OUTPUTS ARE THE FOLLOWING: MABSIZ IS THE "ROTATED-
    349					CONTIGUOUS" SIZE FROM MABSA, THE START ADDRESS.  THE ULTIMATE STARTING ADDRESS
    350					(DETERMINED BY FITMEM) MUST EQUAL MABSA .AND. .NOT. MABADC. ALSO THE INTERLEAVE
    351					(MABINT) IS DETERMINED.
    352						%
    353
    354	001614				MABPAD:	SAV.5
	001614	004737 	000000G			  JSR	PC,SAV.5	;SAVE R5-R1 ON STACK
    355	001620	013705 	000000G			MOV	TSTCON,R5	;CONTR # TO R5
    356					;-----SET UP FOR CONTROLLER PAIR.
    357	001624	016500 	000000G			MOV	TYPNUM(R5),R0	;IS PAIR MISSING COMPLETELY?
    358	001630	001453 				BEQ	3$		;YES...ALL DONE
    359	001632	005004 				CLR	R4		;INI RULE TABLE INDEX
    360	001634	032700 	001002 			BIT	#1002,R0	;IS EITHER CONTR AN MB20?
    361									; (IF ONE IS THEY BOTH SHOULD BE)
    362	001640	001402 				BEQ	1$		;NO
    363	001642	012704 	000040 			MOV	#40,R4		;ELSE SET MB20 BIT INTO NDX
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 105
MASKED START ADDRESSES & LENGTHS FOR AN MA20/MB20 PAIR

    365					;-----FIGURE OUT IF WE CAN HANDLE CONTRS AS A PAIR OR IF WE MUST DO THEM
    366					; EACH SEPARATELY.
    367	001646	116502 	000000G		1$:	MOVB	CONTI(R5),R2	;GET EVEN CONTR SM LAYOUT
    368	001652	116503 	000001G			MOVB	CONTI+1(R5),R3	;GET ODD CONTR SM LAYOUT
    369	001656	116202 	002204'			MOVB	ABSML(R2),R2	;LEGALIZE EVEN CONTR SM LAYOUT
    370	001662	116303 	002204'			MOVB	ABSML(R3),R3	;LEGALIZE ODD CONTR SM LAYOUT
    371	001666	123727 	000000G	000001 		CMPB	INTMOD,#1	;1WAY INTRLV FORCED?
    372	001674	001417 				BEQ	2$		;YES.. HANDLE CONTRS SEPARATELY
    373	001676	120065 	000001G			CMPB	R0,TYPNUM+1(R5)	;ARE CONTR TYPES THE SAME?
    374	001702	001014 				BNE	2$		;NO...THEREFORE ASSUME ONE IS MISSING
    375	001704	020203 				CMP	R2,R3		;ARE LEGALIZED SM LAYOUTS THE SAME?
    376	001706	001012 				BNE	2$		;NO...TREAT CONTROLLERS SEPARATELY
    377	001710	052704 	000020 			BIS	#20,R4		;SET PAIR BIT INTO RULE INDEX
    378	001714	050204 				BIS	R2,R4		;LEGALIZED SM LAYOUT INTO RULE NDX
    379	001716	132764 	000040 	002104'		BITB	#40,MABRUL(R4)	;IS PAIR PAIRABLE?
    380	001724	001403 				BEQ	2$		;NO...TREAT SEPARATELY
    381					;-----HERE FOR HANDLING AS PAIR
    382	001726	004737 	001764'			JSR	PC,4$		;DO IT FOR CONTR PAIR
    383	001732	000412 				BR	3$		;EXIT
    384					;-----HERE TO HANDLE CONTROLLERS APART FROM EACH OTHER.
    385	001734	042704 	177737 		2$:	BIC	#177737,R4	;CLR ALL BUT MB20 BIT FROM NDX
    386	001740	050204 				BIS	R2,R4		;PUT SM LAYOUT INTO NDX
    387	001742	004737 	001764'			JSR	PC,4$		;DO IT FOR A SINGLE CONTROLLER
    388	001746	010302 				MOV	R3,R2		;NOW FOR THE OTHER CONTROLLER
    389	001750	005205 				INC	R5
    390	001752	032705 	000001 			BIT	#1,R5		;HAVE WE DONE THE OTHER CONTROLER?
    391	001756	001366 				BNE	2$		;NO...DO IT TOO
    392	001760				3$:	R5.PC			;EXIT
	001760	000137 	000000G			  JMP	R5.PC		;RESTORE R1-R5 FROM STACK & DO RTS PC
    394
    395					;-----LOCAL SUBROUTINE TO DO "IT".  BREAK UP RULE BYTE INTO START ADDRESS,
    396					; ADR-DONT-CARE BITS, AND INTERLEAVE.  ALSO CALC SIZE.
    397	001764	116400 	002104'		4$:	MOVB	MABRUL(R4),R0	;GET & COPY RULE BYTE
    398	001770	010001 				MOV	R0,R1
    399	001772	042701 	177760 			BIC	#-16.,R1	;ISOLATE & SAVE START ADR
    405	001776	110165 	000000G		5$:	MOVB	R1,MABSA(R5)
    406	002002	004737 	000000G			JSR	PC,ASR0.4	;POS ADC & INTRLV BITS
    407	002006	010001 				MOV	R0,R1		;ISO & SAV INTRLV BITS
    408	002010	042701 	177774 			BIC	#-4,R1
    409	002014	105737 	000000G			TSTB	INTMOD		;IS AN INTERLEAVE FORCED?
    410	002020	001405 				BEQ	6$		;NO
    411	002022	123701 	000000G			CMPB	INTMOD,R1	;CAN WE HANDLE IT?
    412	002026	002002 				BGE	6$		;BR IF NOT OR IF SAME
    413	002030	113701 	000000G			MOVB	INTMOD,R1	;ELSE REDUCE INTRLV
    414	002034	110165 	000000G		6$:	MOVB	R1,MABINT(R5)
    415	002040	042700 	000003 			BIC	#3,R0		;ISO & SAV ADDR-DONT-CARE BITS
    416	002044	052700 	177760 			BIS	#-16.,R0	; (DONT CARE ABOUT ADR 14-17 EITHER)
    417	002050	110065 	000000G			MOVB	R0,MABADC(R5)
    418	002054	116200 	000000G			MOVB	BITCNT(R2),R0	;CALC ROTATED-CONTIG SIZE FROM SM LAYOUT
    419	002060	005301 				DEC	R1		;1-WAY INTRLV?
    420	002062	003401 				BLE	7$		;YES...DONT DOUBLE SIZE
    421	002064	006300 				ASL	R0
    422	002066	032704 	000040 		7$:	BIT	#40,R4		;MB20?
    423	002072	001401 				BEQ	8$		;NO...DONT DOUBLE SIZE
    424	002074	006300 				ASL	R0
    425	002076	110065 	000000G		8$:	MOVB	R0,MABSIZ(R5)	;SAV SIZE BYTE
    431	002102	000207 			9$:	RTS	PC
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 106
MASKED START ADDRESSES & LENGTHS FOR AN MA20/MB20 PAIR

    433					.REM	%
    434						MA20 AND MB20 RULE TABLE.  THIS IS ACCESSED AS BYTES USING TPSSSS AS
    435					INDEX WHERE T IS 1 FOR MB20, P IS 1 FOR A PAIR OF IDENTICAL CONTROLLERS, AND
    436					SSSS IS THE STORAGE MODULE CONFIGURATION AFTER BEING LEGALIZED.  ADCM STANDS FOR
    437					ADDRESS-DONT-CARE MASK (1=DONT CARE).
    438						%
    439
    440					;-----MACRO CREATES BYTE: MMIISSSS.
    441					.MACRO	RULE	M,S,I
    442					X=I
    443					.IIF	EQ,X-4,X=3
    444					.BYTE	^B'M&14+X*16.+^B'S
    445					.ENDM
    446
    447	002104				MABRUL:
    448					;	ADCM	ST ADR
    449					;	1122	1122			 SM
    450					;	8901	8901   INT    CONTR	3210
    451					;	----	----   ---  ----------- ----
    452	002104				RULE	1100	0000	0  ;SINGLE MA20	0000
	002104	   300 			.BYTE	^B1100&14+X*16.+^B0000
    453	002105				RULE	1100	0000	1  ;SINGLE MA20	0001
	002105	   320 			.BYTE	^B1100&14+X*16.+^B0000
    454	002106				RULE	1100	0001	1  ;SINGLE MA20	0010
	002106	   321 			.BYTE	^B1100&14+X*16.+^B0001
    455	002107				RULE	1100	0000	1  ;SINGLE MA20	0011
	002107	   320 			.BYTE	^B1100&14+X*16.+^B0000
    456	002110				RULE	1100	0010	1  ;SINGLE MA20	0100
	002110	   322 			.BYTE	^B1100&14+X*16.+^B0010
    457	002111				RULE	1100	0000	1  ;SINGLE MA20	0101	NOTE 1
	002111	   320 			.BYTE	^B1100&14+X*16.+^B0000
    458	002112				RULE	1100	0001	1  ;SINGLE MA20	0110
	002112	   321 			.BYTE	^B1100&14+X*16.+^B0001
    459	002113				RULE	1100	0000	1  ;SINGLE MA20	0111
	002113	   320 			.BYTE	^B1100&14+X*16.+^B0000
    460	002114				RULE	1100	0011	1  ;SINGLE MA20	1000
	002114	   323 			.BYTE	^B1100&14+X*16.+^B0011
    461	002115				RULE	1000	0011	1  ;SINGLE MA20	1001	NOTE 2
	002115	   223 			.BYTE	^B1000&14+X*16.+^B0011
    462	002116				RULE	1100	0001	1  ;SINGLE MA20	1010	NOTE 1
	002116	   321 			.BYTE	^B1100&14+X*16.+^B0001
    463	002117				RULE	1000	0011	1  ;SINGLE MA20	1011	NOTE 2
	002117	   223 			.BYTE	^B1000&14+X*16.+^B0011
    464	002120				RULE	1100	0010	1  ;SINGLE MA20	1100
	002120	   322 			.BYTE	^B1100&14+X*16.+^B0010
    465	002121				RULE	1000	0010	1  ;SINGLE MA20	1101	NOTE 2
	002121	   222 			.BYTE	^B1000&14+X*16.+^B0010
    466	002122				RULE	1100	0001	1  ;SINGLE MA20	1110
	002122	   321 			.BYTE	^B1100&14+X*16.+^B0001
    467	002123				RULE	1100	0000	1  ;SINGLE MA20	1111
	002123	   320 			.BYTE	^B1100&14+X*16.+^B0000
    468
    476	002124				RULE	1000	0000	0  ;MA20 PAIR	0000
	002124	   200 			.BYTE	^B1000&14+X*16.+^B0000
    477	002125				RULE	1000	0000	2  ;MA20 PAIR	0001
	002125	   240 			.BYTE	^B1000&14+X*16.+^B0000
    478	002126				RULE	1000	0010	2  ;MA20 PAIR	0010
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 106-1
MASKED START ADDRESSES & LENGTHS FOR AN MA20/MB20 PAIR

	002126	   242 			.BYTE	^B1000&14+X*16.+^B0010
    479	002127				RULE	1000	0000	4  ;MA20 PAIR	0011
	002127	   260 			.BYTE	^B1000&14+X*16.+^B0000
    480	002130				RULE	1000	0100	2  ;MA20 PAIR	0100
	002130	   244 			.BYTE	^B1000&14+X*16.+^B0100
    481	002131				RULE	1000	0000	2  ;MA20 PAIR	0101	NOTE 1
	002131	   240 			.BYTE	^B1000&14+X*16.+^B0000
    482	002132				RULE	1000	0010	2  ;MA20 PAIR	0110
	002132	   242 			.BYTE	^B1000&14+X*16.+^B0010
    483	002133				RULE	1000	0000	2  ;MA20 PAIR	0111
	002133	   240 			.BYTE	^B1000&14+X*16.+^B0000
    484	002134				RULE	1000	0110	2  ;MA20 PAIR	1000
	002134	   246 			.BYTE	^B1000&14+X*16.+^B0110
    485	002135				RULE	0000	0110	2  ;MA20 PAIR	1001	NOTE 2
	002135	   046 			.BYTE	^B0000&14+X*16.+^B0110
    486	002136				RULE	1000	0010	2  ;MA20 PAIR	1010	NOTE 1
	002136	   242 			.BYTE	^B1000&14+X*16.+^B0010
    487	002137				RULE	0000	0110	2  ;MA20 PAIR	1011	NOTE 2
	002137	   046 			.BYTE	^B0000&14+X*16.+^B0110
    488	002140				RULE	1000	0100	4  ;MA20 PAIR	1100
	002140	   264 			.BYTE	^B1000&14+X*16.+^B0100
    489	002141				RULE	0000	0100	2  ;MA20 PAIR	1101	NOTE 2
	002141	   044 			.BYTE	^B0000&14+X*16.+^B0100
    490	002142				RULE	1000	0010	2  ;MA20 PAIR	1110
	002142	   242 			.BYTE	^B1000&14+X*16.+^B0010
    491	002143				RULE	1000	0000	4  ;MA20 PAIR	1111
	002143	   260 			.BYTE	^B1000&14+X*16.+^B0000
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 107
MASKED START ADDRESSES & LENGTHS FOR AN MA20/MB20 PAIR

    493					;	ADCM	ST ADR
    494					;	1122	1122			 SM
    495					;	8901	8901   INT    CONTR	3210
    496					;	----	----   ---  ----------- ----
    497	002144				RULE	1000	0000	0  ;SINGLE MB20	0000
	002144	   200 			.BYTE	^B1000&14+X*16.+^B0000
    498	002145				RULE	1000	0000	1  ;SINGLE MB20	0001
	002145	   220 			.BYTE	^B1000&14+X*16.+^B0000
    499	002146				RULE	1000	0010	1  ;SINGLE MB20	0010
	002146	   222 			.BYTE	^B1000&14+X*16.+^B0010
    500	002147				RULE	1000	0000	1  ;SINGLE MB20	0011
	002147	   220 			.BYTE	^B1000&14+X*16.+^B0000
    501	002150				RULE	1000	0100	1  ;SINGLE MB20	0100
	002150	   224 			.BYTE	^B1000&14+X*16.+^B0100
    502	002151				RULE	1000	0000	1  ;SINGLE MB20	0101	NOTE 1
	002151	   220 			.BYTE	^B1000&14+X*16.+^B0000
    503	002152				RULE	1000	0010	1  ;SINGLE MB20	0110
	002152	   222 			.BYTE	^B1000&14+X*16.+^B0010
    504	002153				RULE	1000	0000	1  ;SINGLE MB20	0111
	002153	   220 			.BYTE	^B1000&14+X*16.+^B0000
    505	002154				RULE	1000	0110	1  ;SINGLE MB20	1000
	002154	   226 			.BYTE	^B1000&14+X*16.+^B0110
    506	002155				RULE	0000	0110	1  ;SINGLE MB20	1001	NOTE 2
	002155	   026 			.BYTE	^B0000&14+X*16.+^B0110
    507	002156				RULE	1000	0010	1  ;SINGLE MB20	1010	NOTE 1
	002156	   222 			.BYTE	^B1000&14+X*16.+^B0010
    508	002157				RULE	0000	0110	1  ;SINGLE MB20	1011	NOTE 2
	002157	   026 			.BYTE	^B0000&14+X*16.+^B0110
    509	002160				RULE	1000	0100	1  ;SINGLE MB20	1100
	002160	   224 			.BYTE	^B1000&14+X*16.+^B0100
    510	002161				RULE	0000	0100	1  ;SINGLE MB20	1101	NOTE 2
	002161	   024 			.BYTE	^B0000&14+X*16.+^B0100
    511	002162				RULE	1000	0010	1  ;SINGLE MB20	1110
	002162	   222 			.BYTE	^B1000&14+X*16.+^B0010
    512	002163				RULE	1000	0000	1  ;SINGLE MB20	1111
	002163	   220 			.BYTE	^B1000&14+X*16.+^B0000
    513
    521	002164				RULE	0000	0000	0  ;MB20 PAIR	0000
	002164	   000 			.BYTE	^B0000&14+X*16.+^B0000
    522	002165				RULE	0000	0000	2  ;MB20 PAIR	0001
	002165	   040 			.BYTE	^B0000&14+X*16.+^B0000
    523	002166				RULE	0000	0100	2  ;MB20 PAIR	0010
	002166	   044 			.BYTE	^B0000&14+X*16.+^B0100
    524	002167				RULE	0000	0000	4  ;MB20 PAIR	0011
	002167	   060 			.BYTE	^B0000&14+X*16.+^B0000
    525	002170				RULE	0000	1000	2  ;MB20 PAIR	0100
	002170	   050 			.BYTE	^B0000&14+X*16.+^B1000
    526	002171				RULE	0000	0000	2  ;MB20 PAIR	0101	NOTE 1
	002171	   040 			.BYTE	^B0000&14+X*16.+^B0000
    527	002172				RULE	0000	0100	2  ;MB20 PAIR	0110
	002172	   044 			.BYTE	^B0000&14+X*16.+^B0100
    528	002173				RULE	0000	0000	2  ;MB20 PAIR	0111
	002173	   040 			.BYTE	^B0000&14+X*16.+^B0000
    529	002174				RULE	0000	1100	2  ;MB20 PAIR	1000
	002174	   054 			.BYTE	^B0000&14+X*16.+^B1100
    530	002175				RULE	0000	0110	1  ;MB20 PAIR	1001	NOTE 3
	002175	   026 			.BYTE	^B0000&14+X*16.+^B0110
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 107-1
MASKED START ADDRESSES & LENGTHS FOR AN MA20/MB20 PAIR

    531	002176				RULE	0000	0100	2  ;MB20 PAIR	1010	NOTE 1
	002176	   044 			.BYTE	^B0000&14+X*16.+^B0100
    532	002177				RULE	0000	0110	1  ;MB20 PAIR	1011	NOTE 3
	002177	   026 			.BYTE	^B0000&14+X*16.+^B0110
    533	002200				RULE	0000	1000	4  ;MB20 PAIR	1100
	002200	   070 			.BYTE	^B0000&14+X*16.+^B1000
    534	002201				RULE	0000	0100	1  ;MB20 PAIR	1101	NOTE 3
	002201	   024 			.BYTE	^B0000&14+X*16.+^B0100
    535	002202				RULE	0000	0100	2  ;MB20 PAIR	1110
	002202	   044 			.BYTE	^B0000&14+X*16.+^B0100
    536	002203				RULE	0000	0000	4  ;MB20 PAIR	1111
	002203	   060 			.BYTE	^B0000&14+X*16.+^B0000
    537
    538
    539					;NOTES:
    540					; 1	ABSOLUTELY UNUSABLE STOR MOD CONFIGURATION.  HIGHER SM IS
    541					;	IGNORED.
    542					; 2	MISSING STOR MODS IN THE MIDDLE FORCES WRAP AROUND ADR ENABLE
    543					;	WHICH RESTRICTS START ADR.
    544					; 3	SAME AS 2.  ADDITIONALLY A CROCK IN THE MB20 ALSO FORCES 1-WAY
    545					;	INTERLEAVE BECAUSE WE CANNOT CROSS 256K BOUNDARIES EVER.
    546
    547					;-----MA20/MB20 STORAGE MODULE CONFIGURATION LEGALIZATION TABLE.  INDEXED BY
    548					; SM CONFIGURATION.
    549	002204	   000 	   001 	   002 	ABSML:	.BYTE	^B0000,^B0001,^B0010,^B0011,^B0100,^B0001,^B0110,^B0111
    550	002214	   010 	   011 	   002 		.BYTE	^B1000,^B1001,^B0010,^B1011,^B1100,^B1101,^B1110,^B1111
    551
    552						.EVEN
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 110
DETERMINE CONTROLLER PRESENSE & FUNCTION 01 DATA

    624					.SBTTL	DETERMINE CONTROLLER PRESENSE & FUNCTION 01 DATA
    625
    626					.REM	%
    627						CONDET IS RESPONSIBLE FOR FIGURING OUT WHAT CONTROLLERS ARE ON THE
    628					SYSTEM AND LOGGING THAT INFORMATION IN "TYPNUM".  IT ALSO FINDS OUT WHETHER THIS
    629					IS A MODEL A OR B, AND WHETHER WE HAVE A MASTER OSCILLATOR OR NOT.  TRACKS THE
    630					INTERLOCK VARIABLE CONRD.
    631						%
    632
    633	002224	105737 	000000G		CONDET:	TSTB	CONRD		;HAVE WE ALREADY DONE THIS?
    634	002230	001134 				BNE	12$		;YES...DONT DO IT AGAIN
    635	002232					REGSAV
	002232	004737 	000000G			 JSR	PC,SAV.5	; ** SAVE R1 - R5 ON THE STACK
    636					;-----RESET MACHINE.  FIGURE OUT IF MODEL A OR B.
    637	002236					SM			;RESET CPU
	002236	004737 	000000G			 JSR	PC,$KLMR	; ** MASTER RESET THE KL10
	002242	012700 	000001 			 MOV	#STRCLK,R0	; ** START CLOCK FUNCTION CODE TO R0
	002246	004737 	000000G			 JSR	PC,$DDFXC	; ** START THE KL10 CLOCK
    638	002252					XX	APRID0		;DO APRID AND GET RESULT
	002252	012700 	000000G			  MOV	#APRID0,R0		;PT R0 AT INSTR
	002256	004737 	000000G			  JSR	PC,XX1		;EXEC INSTR (ADDR IN R0) & EXAM AC0
    639	002262	032710 	040000 			BIT	#40000,(R0)	;MODEL B BIT SET FROM APRID?
    640	002266	001402 				BEQ	1$		;;NO...IS MODEL A
    641	002270	005237 	000000G			INC	MODELB		;ELSE SET MODEL B FLAG
    642					;-----SEE IF THERE IS A MASTER OSCILLATOR.  TURN IT ON IF SO.
    643	002274	032710 	020000 		1$:	BIT	#20000,(R0)	;IS MASTER OSC PRESENT (IS MOS PRESENT)?
    644	002300	001402 				BEQ	2$		;NO...WE DONT HAV MOS EITHER
    645	002302	105237 	000000G			INCB	MSTROS		;INDICATE WE HAVE MYSTERY OSCILLATOR
    647					;
    648					; *****   WE KNOW THAT WE HAVE A MASTER OSCILLATOR.    *****
    649					; ***** IT IS ASSUMED THAT KLI HAS ALREADY ENABLED IT. *****
    650					;
    659					;-----GO THRU ALL POSSIBLE CONTROLLERS & SEE WHAT WE CAN FIND.
    660	002306	012701 	000037 		2$:	MOV	#MAXCN,R1	;INI CONTR #
    661	002312					RESET	SBUS+CPU	;RESET ALL CONTROLLERS
	002312	004537 	002320'			  JSR	R5,64$		;SAV R5, PT TO & SKIP SBUS+CPU LIST
	002316	100200 				  .WORD	SBUS+CPU
	002320	004737 	000000G		64$:	  JSR	PC,.RESET	;RESET SPECIFIED HARDWARE
	002324	012605 				 MOV	(SP)+,R5
    662	002326	105037 	000000G			CLRB	MCOUNT
    663	002332	105061 	000000G		3$:	CLRB	CONTI(R1)	;MAKE SURE ALL OF CONTI IS CLEARED
    664	002336	010137 	000000G			MOV	R1,TSTCON	;SET CONTR # WD
    665	002342					SBDIAG	0000,0000,0001	;DO FUNC 1
	002342	004537 	002352'			  JSR	R5,65$		;SAV R5, PT TO & SKIP ARG LIST
	002346	000001 	000000
	002352	004737 	000000G		65$:	  JSR	PC,SBDT		;DO SBUS DIAG...WORD FOLLOWS
	002356	012605 				 MOV	(SP)+,R5
    666	002360	012004 				MOV	(R0)+,R4	;PICK UP RESULT IN R2,R3,R4
    667	002362	012003 				MOV	(R0)+,R3
    668	002364	111002 				MOVB	(R0),R2
    669	002366	010300 				MOV	R3,R0		;GET CONTR TYPE
    670	002370	000300 				SWAB	R0
    671	002372	042700 	177760 			BIC	#177760,R0
    672	002376	110061 	000000G			MOVB	R0,TYPNUM(R1)	;SAV TYPE IN TABLE
    673	002402	001402 				BEQ	4$		;BR IF NO CONTR
    674	002404	105237 	000000G			INCB	MCOUNT		;ELSE COUNT NON-NULL CONTR
    675	002410	020027 	000007 		4$:	CMP	R0,#UNDCTN	;KNOWN TYPE?
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 110-1
DETERMINE CONTROLLER PRESENSE & FUNCTION 01 DATA

    676	002414	002402 				BLT	5$		;YES
    677	002416	012700 	000007 			MOV	#UNDCTN,R0	;ELSE FORCE TO UNKNOWN
    678	002422	105260 	000000G		5$:	INCB	CNTCNT(R0)	;INC CONTR CNT BY TYPE
    679	002426	006300 				ASL	R0		;MAKE WD NDX FROM TYPE
    680	002430	000170 	002434'			JMP	@6$(R0)		;GO GET REST OF FUNC 1 INFO
    681	002434	002506'	002454'	002506'	6$:	.WORD	10$,7$,10$,7$,9$,9$,10$,10$
    682					;-----HERE FOR MA20/MB20.  GET STORAGE MODULE MAP.
    683	002454	012700 	000004 		7$:	MOV	#4,R0		;LP CNT
    684	002460	006103 			8$:	ROL	R3		;CREATE 8 BIT STOR MOD MAP
    685	002462	006102 				ROL	R2
    686	002464	077003 				SOB	R0,8$
    687	002466	110261 	000000G			MOVB	R2,CONTI(R1)	;SAV MAP IN TBL
    688	002472	000405 				BR 	11$
    689					;-----HERE FOR MF20.  GET CONFIG STATUS.
    690	002474	000304 			9$:	SWAB	R4		;ISOLATE THE 2 SOFTWARE STATE BITS
    691	002476	042704 	177774 			BIC	#-4,R4
    692	002502	110461 	000000G			MOVB	R4,CONTI(R1)	;TO TBL
    693					;	BR	11$
    694					;-----HERE FOR CUST., UNDEF., SBUS RECORDER, OR DMA20 CONTROLLER.
    695	002506				10$:				;NOP
    696					;-----END OF LOOP
    697	002506	005301 			11$:	DEC	R1		;NXT CONTR #
    698	002510	002310 				BGE	3$		;BR IF MORE
    699	002512	105237 	000000G			INCB	CONRD		;FLAG CONTR RES DET DONE
    700	002516					REGRST
	002516	004737 	000000G			 JSR	PC,RST.5	; ** RESTORE R1 - R5 AND RETURN
    701	002522	000207 			12$:	RTS	PC		;DONE
    702
    703	002524	   103 	   123 	   062 	CS2MSG:	.ASCIZ	/CS2/		;SETS CLK SRC 2 (MASTER OSC)
    705		000001 				.END
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 110-2
SYMBOL TABLE

ABSML   002204R  	ANDCMM= 000422   	CAIA  = 000304   	DIVM  = 000236   	FMPRM = 000166
AC    = 000004   	ANDI  = 000405   	CAIE  = 000302   	DMABM = ****** GX	FSB   = 000150
ACC0  = 000001   	ANDM  = 000406   	CAIG  = 000307   	DMACN = 000004   	FSBB  = 000153
ACC1  = 000002   	AOBJN = 000253   	CAIGE = 000305   	DMACTN= 000002   	FSBL  = 000151
ACC10 = 000400   	AOBJP = 000252   	CAIL  = 000301   	DMADET  000000RG 	FSBM  = 000152
ACC11 = 001000   	AOJ   = 000340   	CAILE = 000303   	DMAFRC= ****** GX	FSBR  = 000154
ACC12 = 002000   	AOJA  = 000344   	CAIN  = 000306   	DMANXM= ****** GX	FSBRB = 000157
ACC13 = 004000   	AOJE  = 000342   	CAM   = 000310   	DMARD = ****** GX	FSBRI = 000155
ACC14 = 010000   	AOJG  = 000347   	CAMA  = 000314   	DMARMP= ****** GX	FSBRM = 000156
ACC15 = 020000   	AOJGE = 000345   	CAME  = 000312   	DMASIZ= ****** GX	FSC   = 000132
ACC16 = 040000   	AOJL  = 000341   	CAMG  = 000317   	DMA2TS= ****** GX	HALTLP= 001000
ACC17 = 100000   	AOJLE = 000343   	CAMGE = 000315   	DMA20 = ****** GX	HLL   = 000500
ACC2  = 000004   	AOJN  = 000346   	CAML  = 000311   	DMA20T= ****** GX	HLLE  = 000530
ACC3  = 000010   	AOS   = 000350   	CAMLE = 000313   	DMOVE = 000120   	HLLEI = 000531
ACC4  = 000020   	AOSA  = 000354   	CAMN  = 000316   	DMOVEM= 000124   	HLLEM = 000532
ACC5  = 000040   	AOSE  = 000352   	CAS   = 020000   	DMOVN = 000121   	HLLES = 000533
ACC6  = 000100   	AOSG  = 000357   	CCA   = 000014   	DMOVNM= 000125   	HLLI  = 000501
ACC7  = 000200   	AOSGE = 000355   	CDCODW  001534R  	DMUL  = 000116   	HLLM  = 000502
ACLOAD= ****** GX	AOSL  = 000351   	CECLK = 000004   	DPB   = 000137   	HLLO  = 000520
AC0   = 000000   	AOSLE = 000353   	CHKED = ****** GX	DREADY= 001000   	HLLOI = 000521
AC1   = 000001   	AOSN  = 000356   	CLEAR = 000400   	DSUB  = 000115   	HLLOM = 000522
AC10  = 000010   	APR   = 000000   	CLEARB= 000403   	D16KBN= ****** GX	HLLOS = 000523
AC11  = 000011   	APRID0= ****** GX	CLEARI= 000401   	EQV   = 000444   	HLLS  = 000503
AC12  = 000012   	ASH   = 000240   	CLEARM= 000402   	EQVB  = 000447   	HLLZ  = 000510
AC13  = 000013   	ASHC  = 000244   	CLRMR = 000006   	EQVI  = 000445   	HLLZI = 000511
AC14  = 000014   	ASR0.4= ****** GX	CNTCNT= ****** GX	EQVM  = 000446   	HLLZM = 000512
AC15  = 000015   	BITCNT= ****** GX	CNTSD1= ****** GX	ERRSTP= 004000   	HLLZS = 000513
AC16  = 000016   	BIT0  = 000001   	CONBUT= 000012   	ER$DTO= 001226RG 	HLR   = 000544
AC17  = 000017   	BIT1  = 000002   	CONDET  002224RG 	EXCH  = 000250   	HLRE  = 000574
AC2   = 000002   	BIT10 = 002000   	CONI  = 000005   	EXTEND= 000123   	HLREI = 000575
AC3   = 000003   	BIT11 = 004000   	CONMMR= 000001   	EXTWD   001541R  	HLREM = 000576
AC4   = 000004   	BIT12 = 010000   	CONO  = 000004   	FAD   = 000140   	HLRES = 000577
AC5   = 000005   	BIT13 = 020000   	CONRD = ****** GX	FADB  = 000143   	HLRI  = 000545
AC6   = 000006   	BIT14 = 040000   	CONSO = 000007   	FADL  = 000141   	HLRM  = 000546
AC7   = 000007   	BIT15 = 100000   	CONSZ = 000006   	FADM  = 000142   	HLRO  = 000564
ADD   = 000270   	BIT2  = 000004   	CONTI = ****** GX	FADR  = 000144   	HLROI = 000565
ADDB  = 000273   	BIT3  = 000010   	CONTIN= ****** GX	FADRB = 000147   	HLROM = 000566
ADDI  = 000271   	BIT4  = 000020   	CORDET= 177777 G 	FADRI = 000145   	HLROS = 000567
ADDM  = 000272   	BIT5  = 000040   	CPU   = 000200   	FADRM = 000146   	HLRS  = 000547
ADDR    001526R  	BIT6  = 000100   	CS2MSG  002524R  	FDV   = 000170   	HLRZ  = 000554
ADH   = 000000   	BIT7  = 000200   	DADD  = 000114   	FDVB  = 000173   	HLRZI = 000555
ADJSP = 000105   	BIT8  = 000400   	DATAI = 000001   	FDVL  = 000171   	HLRZM = 000556
ADL   = 000004   	BIT9  = 001000   	DATAO = 000003   	FDVM  = 000172   	HLRZS = 000557
ADR2ND= 002000   	BLKI  = 000000   	DDCADM= ****** GX	FDVR  = 000174   	HRL   = 000504
AND   = 000404   	BLKO  = 000002   	DDCON   000032R  	FDVRB = 000177   	HRLE  = 000534
ANDB  = 000407   	BLK0  = 000000   	DDCONT  000422R  	FDVRI = 000175   	HRLEI = 000535
ANDCA = 000410   	BLK1  = 000001   	DDIV  = 000117   	FDVRM = 000176   	HRLEM = 000536
ANDCAB= 000413   	BLK2  = 000002   	DE$BUG= 070000   	FIX   = 000122   	HRLES = 000537
ANDCAI= 000411   	BLK3  = 000003   	DFAD  = 000110   	FIXR  = 000126   	HRLI  = 000505
ANDCAM= 000412   	BLK4  = 000004   	DFDV  = 000113   	FLTR  = 000127   	HRLM  = 000506
ANDCB = 000440   	BLK5  = 000005   	DFMP  = 000112   	FMP   = 000160   	HRLO  = 000524
ANDCBB= 000443   	BLK6  = 000006   	DFN   = 000131   	FMPB  = 000163   	HRLOI = 000525
ANDCBI= 000441   	BLT   = 000251   	DFSB  = 000111   	FMPL  = 000161   	HRLOM = 000526
ANDCBM= 000442   	BRCLK = 000005   	DIAG  = 000104   	FMPM  = 000162   	HRLOS = 000527
ANDCM = 000420   	BRCTN = 000006   	DIV   = 000234   	FMPR  = 000164   	HRLS  = 000507
ANDCMB= 000423   	BSYCLR= 000400   	DIVB  = 000237   	FMPRB = 000167   	HRLZ  = 000514
ANDCMI= 000421   	CAI   = 000300   	DIVI  = 000235   	FMPRI = 000165   	HRLZI = 000515
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 110-3
SYMBOL TABLE

HRLZM = 000516   	LSHC  = 000246   	ORCBB = 000473   	SETZM = 000402   	TLCN  = 000647
HRLZS = 000517   	LSTMB = 000001   	ORCBI = 000471   	SKIP  = 000330   	TLN   = 000601
HRR   = 000540   	LUBSRL= 000600   	ORCBM = 000472   	SKIPA = 000334   	TLNA  = 000605
HRRE  = 000570   	MABADC= ****** GX	ORCM  = 000464   	SKIPE = 000332   	TLNE  = 000603
HRREI = 000571   	MABDET  001546RG 	ORCMB = 000467   	SKIPG = 000337   	TLNN  = 000607
HRREM = 000572   	MABINT= ****** GX	ORCMI = 000465   	SKIPGE= 000335   	TLO   = 000661
HRRES = 000573   	MABPAD  001614R  	ORCMM = 000466   	SKIPL = 000331   	TLOA  = 000665
HRRI  = 000541   	MABRD = ****** GX	ORI   = 000435   	SKIPLE= 000333   	TLOE  = 000663
HRRM  = 000542   	MABRUL  002104R  	ORM   = 000436   	SKIPN = 000336   	TLON  = 000667
HRRO  = 000560   	MABSA = ****** GX	PAG   = 000010   	SOJ   = 000360   	TLZ   = 000621
HRROI = 000561   	MABSIZ= ****** GX	PI    = 000004   	SOJA  = 000364   	TLZA  = 000625
HRROM = 000562   	MACTN = 000001   	POP   = 000262   	SOJE  = 000362   	TLZE  = 000623
HRROS = 000563   	MAP   = 000257   	POPJ  = 000263   	SOJG  = 000367   	TLZN  = 000627
HRRS  = 000543   	MAXCN = 000037   	PUSH  = 000261   	SOJGE = 000365   	TRC   = 000640
HRRZ  = 000550   	MBCTN = 000003   	PUSHJ = 000260   	SOJL  = 000361   	TRCA  = 000644
HRRZI = 000551   	MCOUNT= ****** GX	PXCT  = 000256   	SOJLE = 000363   	TRCE  = 000642
HRRZM = 000552   	MFCTN = 000005   	QXCT1 = ****** GX	SOJN  = 000366   	TRCN  = 000646
HRRZS = 000553   	MNBRCN= 000036   	RAS   = 040000   	SOS   = 000370   	TRN   = 000600
I     = 000000   	MNMFCN= 000010   	RDERA0= ****** GX	SOSA  = 000374   	TRNA  = 000604
IBP   = 000133   	MNMXCN= 000006   	REAPWD= ****** GX	SOSE  = 000372   	TRNE  = 000602
IDIV  = 000230   	MNM.CN= 000000   	ROT   = 000241   	SOSG  = 000377   	TRNN  = 000606
IDIVB = 000233   	MNTITF= 000040   	ROTC  = 000245   	SOSGE = 000375   	TRO   = 000660
IDIVI = 000231   	MODELB= ****** GX	RST.5 = ****** GX	SOSL  = 000371   	TROA  = 000664
IDIVM = 000232   	MOVE  = 000200   	RS0RS1= 000010   	SOSLE = 000373   	TROE  = 000662
IDPB  = 000136   	MOVEI = 000201   	RS0TN0= 000020   	SOSN  = 000376   	TRON  = 000666
ILDB  = 000134   	MOVEM = 000202   	RUNPRG= ****** GX	SSCLK = 000002   	TRPAR = 010000
IMUL  = 000220   	MOVES = 000203   	R$$20F= 000001   	STPCLK= 000000   	TRZ   = 000620
IMULB = 000223   	MOVM  = 000214   	R5.PC = ****** GX	STRCLK= 000001   	TRZA  = 000624
IMULI = 000221   	MOVMI = 000215   	SAV.5 = ****** GX	SUB   = 000274   	TRZE  = 000622
IMULM = 000222   	MOVMM = 000216   	SBDT  = ****** GX	SUBB  = 000277   	TRZN  = 000626
INIDMA= ****** GX	MOVMS = 000217   	SBUS  = 100000   	SUBI  = 000275   	TSC   = 000651
INIMAB= ****** GX	MOVN  = 000210   	SECLK = 000003   	SUBM  = 000276   	TSCA  = 000655
INTMOD= ****** GX	MOVNI = 000211   	SETA  = 000424   	SXCT  = 000106   	TSCE  = 000653
IOR   = 000434   	MOVNM = 000212   	SETAB = 000427   	TADR  = 000010   	TSCN  = 000657
IORB  = 000437   	MOVNS = 000213   	SETAI = 000425   	TBN   = 000004   	TSN   = 000611
IORI  = 000435   	MOVS  = 000204   	SETAM = 000426   	TCN   = 000001   	TSNA  = 000615
IORM  = 000436   	MOVSI = 000205   	SETCA = 000450   	TDC   = 000650   	TSNE  = 000613
JFCL  = 000255   	MOVSM = 000206   	SETCAB= 000453   	TDCA  = 000654   	TSNN  = 000617
JFFO  = 000243   	MOVSS = 000207   	SETCAI= 000451   	TDCE  = 000652   	TSO   = 000671
JRA   = 000267   	MSAMSZ= 000140   	SETCAM= 000452   	TDCN  = 000656   	TSOA  = 000675
JRST  = 000254   	MSTROS= ****** GX	SETCM = 000460   	TDN   = 000610   	TSOE  = 000673
JSA   = 000266   	MUL   = 000224   	SETCMB= 000463   	TDNA  = 000614   	TSON  = 000677
JSP   = 000265   	MULB  = 000227   	SETCMI= 000461   	TDNE  = 000612   	TSTCON= ****** GX
JSR   = 000264   	MULI  = 000225   	SETCMM= 000462   	TDNN  = 000616   	TSZ   = 000631
JUMP  = 000320   	MULM  = 000226   	SETM  = 000414   	TDO   = 000670   	TSZA  = 000635
JUMPA = 000324   	MXBRCN= 000037   	SETMB = 000417   	TDOA  = 000674   	TSZE  = 000633
JUMPE = 000322   	MXCTN = 000004   	SETMI = 000415   	TDOE  = 000672   	TSZN  = 000637
JUMPG = 000327   	MXMFCN= 000017   	SETMM = 000416   	TDON  = 000676   	TYPNUM= ****** GX
JUMPGE= 000325   	MXMXCN= 000007   	SETMR = 000007   	TDZ   = 000630   	UFA   = 000130
JUMPL = 000321   	MXM.CN= 000003   	SETO  = 000474   	TDZA  = 000634   	UNDCTN= 000007
JUMPLE= 000323   	OR    = 000434   	SETOB = 000477   	TDZE  = 000632   	WENABL= 004000
JUMPN = 000326   	ORB   = 000437   	SETOI = 000475   	TDZN  = 000636   	X     = 000003
LDAR  = 000077   	ORCA  = 000454   	SETOM = 000476   	TGN   = 000002   	XCT   = 000256
LDB   = 000135   	ORCAB = 000457   	SETRUN= 000011   	TIMFS = 000044   	XDV   = 000000
LSBRTN= 000001   	ORCAI = 000455   	SETZ  = 000400   	TLC   = 000641   	XMAL  = ****** GX
LSBSRL= 000744   	ORCAM = 000456   	SETZB = 000403   	TLCA  = 000645   	XOP   = 000006
LSH   = 000242   	ORCB  = 000470   	SETZI = 000401   	TLCE  = 000643   	XOR   = 000430
CORDET -- CORE MEMORY RESOURCE 	MACRO M1110  17-SEP-79 09:03  PAGE 110-4
SYMBOL TABLE

XORB  = 000433   	$DMPAC= 070010   	$KL10B= 000102   	$SDW  = 000002   	$$NARG= 000001
XORI  = 000431   	$DPOST= ****** GX	$LOADA= 000001   	$SIZ16= 033061   	$$RDER= 000004
XORM  = 000432   	$EB   = 000530R  	$MABDE= 000001   	$SIZ32= 031063   	$$SBDI= 000004
XR    = 000000   	$EVENT= 000001   	$MABPA= 000001   	$SIZ4K= 032060   	$10BC = 070040
XXWD  = ****** GX	$EXAMD= ****** GX	$PATCH= 070004   	$SIZ64= 032066   	$10BP = 070034
XX1   = ****** GX	$EXAMT= ****** GX	$QXCT = 000001   	$STEP = 000001   	$10MB = 070050
$APRID= 000000   	$EXCT = ****** GX	$RDERA= 000000   	$TB   = 000001   	$10RB = 070044
$BRST = 000001   	$FATAL= ****** GX	$RELOA= 000001   	$TIMLP= 070014   	.RESET= ****** GX
$CNTSD= 000001   	$FIND = 000001   	$RESET= 000001   	$TL   = 000013   	.SBDIA= 000001
$CONDE= 000001   	$GETCT= 070020   	$RSTAC= 070030   	$TTBEL= ****** GX	.WORK = ****** GX
$DDFWR= ****** GX	$IND36= 000003   	$RUN  = 000001   	$TTDMS= ****** GX	...   = 000377
$DDFXC= ****** GX	$KLMR = ****** GX	$SAVAC= 070024   	$XX   = 000001   	......= 177777
$DMADE= 000001   	$KL10A= 000101   	$SBDIA= 000002   	$$APRI= 000000

. ABS.	000000	   000
      	002530	   001
ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  22536 WORDS  ( 89 PAGES)
DYNAMIC MEMORY:  20620 WORDS  ( 79 PAGES)
ELAPSED TIME:  00:03:01
[56,10]CORDET,[56,20]CORDET/-SP/CR=[56,30]CRDASM,MBOVLC,MOSMAC,MBMAC,MOSDEF,CORDET
CORDET     CREATED BY  MACRO  ON 17-SEP-79 AT 09:05	PAGE 1

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

ABSML 	  002204 R	 105-369    105-370   #107-549   
AC    	= 000004	#98-107    #98-107     98-107     98-107    #98-109    #98-109     98-109     98-109    #98-110    
                        #98-110     98-110     98-110    #98-113     98-113     98-113    #99-139     99-139     99-139    
                        #99-140    #99-140     99-140     99-140    #99-142    #99-142     99-142     99-142    #99-143    
                        #99-143     99-143     99-143    #99-144    #99-144     99-144     99-144    #99-145     99-145    
                         99-145    #99-146    #99-146     99-146     99-146    #99-147    #99-147     99-147     99-147    
                        #99-153    #99-153     99-153     99-153    
ACC0  	= 000001	#19-739    
ACC1  	= 000002	#19-740    
ACC10 	= 000400	#19-747    
ACC11 	= 001000	#19-748    
ACC12 	= 002000	#19-749    
ACC13 	= 004000	#19-750    
ACC14 	= 010000	#19-751    
ACC15 	= 020000	#19-752     100-178   
ACC16 	= 040000	#19-753     100-182   
ACC17 	= 100000	#19-754    
ACC2  	= 000004	#19-741    
ACC3  	= 000010	#19-742    
ACC4  	= 000020	#19-743    
ACC5  	= 000040	#19-744    
ACC6  	= 000100	#19-745    
ACC7  	= 000200	#19-746    
ACLOAD	= ******  GX	 97-63      99-121     100-178    100-182   
AC0   	= 000000	#12-27     
AC1   	= 000001	#12-28     
AC10  	= 000010	#12-35     
AC11  	= 000011	#12-36     
AC12  	= 000012	#12-37     
AC13  	= 000013	#12-38     
AC14  	= 000014	#12-39      101-199   
AC15  	= 000015	#12-40     
AC16  	= 000016	#12-41     
AC17  	= 000017	#12-42     
AC2   	= 000002	#12-29      97-65      97-71     
AC3   	= 000003	#12-30      99-125     99-128    
AC4   	= 000004	#12-31     
AC5   	= 000005	#12-32     
AC6   	= 000006	#12-33     
AC7   	= 000007	#12-34     
ADD   	= 000270	#12-167    
ADDB  	= 000273	#12-170    
ADDI  	= 000271	#12-168     99-143     99-143    
ADDM  	= 000272	#12-169    
ADDR  	  001526 R	 100-167    100-178   #102-285   
ADH   	= 000000	#98-107     98-107     98-107    #98-108     98-108     98-108    #98-109     98-109     98-109    
                        #98-110     98-110     98-110    #98-113     98-113     98-113    #99-137     99-137     99-137    
                        #99-138     99-138     99-138    #99-139     99-139     99-139    #99-140     99-140     99-140    
                        #99-141     99-141     99-141    #99-142     99-142     99-142    #99-143     99-143     99-143    
                        #99-144     99-144     99-144    #99-145     99-145     99-145    #99-146     99-146     99-146    
                        #99-147     99-147     99-147    #99-153     99-153     99-153    
ADJSP 	= 000105	#12-53     
CORDET     CREATED BY  MACRO  ON 17-SEP-79 AT 09:05	PAGE 2

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

ADL   	= 000004	#98-107     98-107     98-107    #98-107     98-107     98-107    #98-107     98-107     98-107    
                        #98-108     98-108     98-108    #98-108     98-108     98-108    #98-108     98-108     98-108    
                        #98-108     98-108     98-108    #98-108     98-108     98-108    #98-108     98-108     98-108    
                        #98-109     98-109     98-109    #98-109     98-109     98-109    #98-110     98-110     98-110    
                        #98-110     98-110     98-110    #98-113     98-113     98-113    #98-113     98-113     98-113    
                        #99-137     99-137     99-137    #99-137     99-137     99-137    #99-137     99-137     99-137    
                        #99-138     99-138     99-138    #99-138     99-138     99-138    #99-138     99-138     99-138    
                        #99-138     99-138     99-138    #99-138     99-138     99-138    #99-138     99-138     99-138    
                        #99-139     99-139     99-139    #99-139     99-139     99-139    #99-139     99-139     99-139    
                        #99-140     99-140     99-140    #99-140     99-140     99-140    #99-141     99-141     99-141    
                        #99-141     99-141     99-141    #99-141     99-141     99-141    #99-141     99-141     99-141    
                        #99-141     99-141     99-141    #99-142     99-142     99-142    #99-142     99-142     99-142    
                        #99-143     99-143     99-143    #99-143     99-143     99-143    #99-144     99-144     99-144    
                        #99-144     99-144     99-144    #99-145     99-145     99-145    #99-145     99-145     99-145    
                        #99-146     99-146     99-146    #99-146     99-146     99-146    #99-147     99-147     99-147    
                        #99-147     99-147     99-147    #99-153     99-153     99-153    #99-153     99-153     99-153    
ADR2ND	= 002000	#44-205     44-205     44-205    #44-205     44-205     44-205    #44-205     44-205     44-205    
                        #44-205     44-205     44-205    #44-205     44-205     44-205    #44-205     44-205     44-205    
                        #44-205     44-205     44-205    #44-205     44-205     44-205    #44-205     44-205     44-205    
                        #44-205     44-205     44-205    #44-205    
AND   	= 000404	#12-247    
ANDB  	= 000407	#12-250    
ANDCA 	= 000410	#12-251    
ANDCAB	= 000413	#12-254    
ANDCAI	= 000411	#12-252    
ANDCAM	= 000412	#12-253    
ANDCB 	= 000440	#12-279    
ANDCBB	= 000443	#12-282    
ANDCBI	= 000441	#12-280    
ANDCBM	= 000442	#12-281    
ANDCM 	= 000420	#12-259    
ANDCMB	= 000423	#12-262    
ANDCMI	= 000421	#12-260    
ANDCMM	= 000422	#12-261    
ANDI  	= 000405	#12-248    
ANDM  	= 000406	#12-249    
AOBJN 	= 000253	#12-153    
AOBJP 	= 000252	#12-152    
AOJ   	= 000340	#12-207    
AOJA  	= 000344	#12-211    
AOJE  	= 000342	#12-209    
AOJG  	= 000347	#12-214    
AOJGE 	= 000345	#12-212    
AOJL  	= 000341	#12-208    
AOJLE 	= 000343	#12-210    
AOJN  	= 000346	#12-213    
AOS   	= 000350	#12-215    
AOSA  	= 000354	#12-219    
AOSE  	= 000352	#12-217    
AOSG  	= 000357	#12-222    
AOSGE 	= 000355	#12-220    
AOSL  	= 000351	#12-216    
CORDET     CREATED BY  MACRO  ON 17-SEP-79 AT 09:05	PAGE 3

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

AOSLE 	= 000353	#12-218    
AOSN  	= 000356	#12-221    
APR   	= 000000	#12-449     55-130     98-108     99-138     99-141    
APRID0	= ******  GX	 110-638   
ASH   	= 000240	#12-143    
ASHC  	= 000244	#12-147    
ASR0.4	= ******  GX	 105-406   
BITCNT	= ******  GX	 105-418   
BIT0  	= 000001	#4-63      
BIT1  	= 000002	#4-64      
BIT10 	= 002000	#4-73      
BIT11 	= 004000	#4-74       4-81      
BIT12 	= 010000	#4-75      
BIT13 	= 020000	#4-76      
BIT14 	= 040000	#4-77      
BIT15 	= 100000	#4-78       26-1126   
BIT2  	= 000004	#4-65      
BIT3  	= 000010	#4-66      
BIT4  	= 000020	#4-67      
BIT5  	= 000040	#4-68      
BIT6  	= 000100	#4-69      
BIT7  	= 000200	#4-70       26-1125   
BIT8  	= 000400	#4-71      
BIT9  	= 001000	#4-72       4-80      
BLKI  	= 000000	#12-440     55-129     55-131    
BLKO  	= 000002	#12-442     55-127    
BLK0  	= 000000	#12-44     
BLK1  	= 000001	#12-45     
BLK2  	= 000002	#12-46     
BLK3  	= 000003	#12-47     
BLK4  	= 000004	#12-48     
BLK5  	= 000005	#12-49     
BLK6  	= 000006	#12-50     
BLT   	= 000251	#12-151    
BRCLK 	= 000005	#55-122    
BRCTN 	= 000006	#43-170    
BSYCLR	= 000400	#44-207     44-207     44-207    #44-207     44-207     44-207    #44-207     44-207     44-207    
                        #44-207     44-207     44-207    #44-207     44-207     44-207    #44-207     44-207     44-207    
                        #44-207     44-207     44-207    #44-207     44-207     44-207    #44-207    
CAI   	= 000300	#12-175    
CAIA  	= 000304	#12-179    
CAIE  	= 000302	#12-177    
CAIG  	= 000307	#12-182    
CAIGE 	= 000305	#12-180    
CAIL  	= 000301	#12-176    
CAILE 	= 000303	#12-178    
CAIN  	= 000306	#12-181    
CAM   	= 000310	#12-183    
CAMA  	= 000314	#12-187    
CAME  	= 000312	#12-185    
CAMG  	= 000317	#12-190    
CAMGE 	= 000315	#12-188    
CORDET     CREATED BY  MACRO  ON 17-SEP-79 AT 09:05	PAGE 4

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

CAML  	= 000311	#12-184    
CAMLE 	= 000313	#12-186    
CAMN  	= 000316	#12-189    
CAS   	= 020000	#44-202     44-202     44-202    #44-202     44-202     44-202    #44-202     44-202     44-202    
                        #44-202     44-202     44-202    #44-202     44-202     44-202    #44-202     44-202     44-202    
                        #44-202     44-202     44-202    #44-202     44-202     44-202    #44-202     44-202     44-202    
                        #44-202     44-202     44-202    #44-202     44-202     44-202    #44-202     44-202     44-202    
                        #44-202     44-202     44-202    #44-202    
CCA   	= 000014	#12-452    
CDCODW	  001534 R	 100-179   *100-180    100-182   *100-192    100-193   #102-286   
CECLK 	= 000004	#55-119    
CHKED 	= ******  GX	 101-201   
CLEAR 	= 000400	#12-239    
CLEARB	= 000403	#12-245    
CLEARI	= 000401	#12-241    
CLEARM	= 000402	#12-243    
CLRMR 	= 000006	#55-120    
CNTCNT	= ******  GX	*110-678   
CNTSD1	= ******  GX	 100-179   
CONBUT	= 000012	#55-124    
CONDET	  002224 RG	 8-263      96-24      104-323   #110-633   
CONI  	= 000005	#12-445    
CONMMR	= 000001	#3-54      
CONO  	= 000004	#12-444     98-108     99-138    
CONRD 	= ******  GX	 110-633   *110-699   
CONSO 	= 000007	#12-447    
CONSZ 	= 000006	#12-446     99-141    
CONTI 	= ******  GX	 105-367    105-368   *110-663   *110-687   *110-692   
CONTIN	= ******  GX	 100-183    100-188   
CORDET	= 177777  G	#1-1        3-8        7-244     
CPU   	= 000200	#26-1125    110-661   
CS2MSG	  002524 R	#110-703   
DADD  	= 000114	#12-59     
DATAI 	= 000001	#12-441    
DATAO 	= 000003	#12-443    
DBEOVL	= ******	 3-10       9-303     
DDCADM	= ******  GX	*99-122     100-184   
DDCON 	  000032 R	 96-29     #96-50     
DDCONT	  000422 R	 96-56      97-84      98-99     #99-120    
DDIV  	= 000117	#12-62     
DE$BUG	= 070000	#12-8      
DFAD  	= 000110	#12-55     
DFDV  	= 000113	#12-58     
DFMP  	= 000112	#12-57     
DFN   	= 000131	#12-72     
DFSB  	= 000111	#12-56     
DIAG  	= 000104	#12-52     
DIV   	= 000234	#12-139    
DIVB  	= 000237	#12-142    
DIVI  	= 000235	#12-140    
DIVM  	= 000236	#12-141    
DMABM 	= ******  GX	*102-250   
CORDET     CREATED BY  MACRO  ON 17-SEP-79 AT 09:05	PAGE 5

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

DMACN 	= 000004	#43-160    
DMACTN	= 000002	#43-159    
DMADET	  000000 RG	 8-263     #96-24     
DMAFRC	= ******  GX	 102-248   *102-262   
DMANXM	= ******  GX	*101-232   
DMARD 	= ******  GX	 96-25     *96-30     *102-266   
DMARMP	= ******  GX	 100-174   
DMASIZ	= ******  GX	*102-275   
DMA2TS	= ******  GX	*101-225    102-270   *102-272   *102-279   
DMA20 	= ******  GX	 96-28     
DMA20T	= ******  GX	 100-171   
DMOVE 	= 000120	#12-63     
DMOVEM	= 000124	#12-67     
DMOVN 	= 000121	#12-64     
DMOVNM	= 000125	#12-68     
DMUL  	= 000116	#12-61     
DPB   	= 000137	#12-78     
DREADY	= 001000	#44-206     44-206     44-206    #44-206     44-206     44-206    #44-206     44-206     44-206    
                        #44-206     44-206     44-206    #44-206     44-206     44-206    #44-206     44-206     44-206    
                        #44-206     44-206     44-206    #44-206     44-206     44-206    #44-206     44-206     44-206    
                        #44-206    
DSUB  	= 000115	#12-60     
D16KBN	= ******  GX	*100-170   *101-210    102-273    102-280   
EQV   	= 000444	#12-283    
EQVB  	= 000447	#12-286    
EQVI  	= 000445	#12-284    
EQVM  	= 000446	#12-285    
ERRSTP	= 004000	#4-81      
ER$DTO	= 001226 RG	#101-227   
EXCH  	= 000250	#12-150    
EXTEND	= 000123	#12-66     
EXTWD 	  001541 R	 100-161   #102-287   
FAD   	= 000140	#12-79     
FADB  	= 000143	#12-82     
FADL  	= 000141	#12-80     
FADM  	= 000142	#12-81     
FADR  	= 000144	#12-83     
FADRB 	= 000147	#12-86     
FADRI 	= 000145	#12-84     
FADRM 	= 000146	#12-85     
FDV   	= 000170	#12-103    
FDVB  	= 000173	#12-106    
FDVL  	= 000171	#12-104    
FDVM  	= 000172	#12-105    
FDVR  	= 000174	#12-107    
FDVRB 	= 000177	#12-110    
FDVRI 	= 000175	#12-108    
FDVRM 	= 000176	#12-109    
FITCON	= ******	 3-11       10-325    
FIX   	= 000122	#12-65     
FIXR  	= 000126	#12-69     
FLTR  	= 000127	#12-70     
CORDET     CREATED BY  MACRO  ON 17-SEP-79 AT 09:05	PAGE 6

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

FMP   	= 000160	#12-95     
FMPB  	= 000163	#12-98     
FMPL  	= 000161	#12-96     
FMPM  	= 000162	#12-97     
FMPR  	= 000164	#12-99     
FMPRB 	= 000167	#12-102    
FMPRI 	= 000165	#12-100    
FMPRM 	= 000166	#12-101    
FSB   	= 000150	#12-87     
FSBB  	= 000153	#12-90     
FSBL  	= 000151	#12-88     
FSBM  	= 000152	#12-89     
FSBR  	= 000154	#12-91     
FSBRB 	= 000157	#12-94     
FSBRI 	= 000155	#12-92     
FSBRM 	= 000156	#12-93     
FSC   	= 000132	#12-73     
HALTLP	= 001000	#4-80      
HLL   	= 000500	#12-311    
HLLE  	= 000530	#12-335    
HLLEI 	= 000531	#12-336    
HLLEM 	= 000532	#12-337    
HLLES 	= 000533	#12-338    
HLLI  	= 000501	#12-312    
HLLM  	= 000502	#12-313    
HLLO  	= 000520	#12-327    
HLLOI 	= 000521	#12-328    
HLLOM 	= 000522	#12-329    
HLLOS 	= 000523	#12-330    
HLLS  	= 000503	#12-314    
HLLZ  	= 000510	#12-319    
HLLZI 	= 000511	#12-320    
HLLZM 	= 000512	#12-321    
HLLZS 	= 000513	#12-322    
HLR   	= 000544	#12-347    
HLRE  	= 000574	#12-371    
HLREI 	= 000575	#12-372    
HLREM 	= 000576	#12-373    
HLRES 	= 000577	#12-374    
HLRI  	= 000545	#12-348    
HLRM  	= 000546	#12-349    
HLRO  	= 000564	#12-363    
HLROI 	= 000565	#12-364    
HLROM 	= 000566	#12-365    
HLROS 	= 000567	#12-366    
HLRS  	= 000547	#12-350    
HLRZ  	= 000554	#12-355    
HLRZI 	= 000555	#12-356    
HLRZM 	= 000556	#12-357    
HLRZS 	= 000557	#12-358    
HRL   	= 000504	#12-315    
HRLE  	= 000534	#12-339    
CORDET     CREATED BY  MACRO  ON 17-SEP-79 AT 09:05	PAGE 7

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

HRLEI 	= 000535	#12-340    
HRLEM 	= 000536	#12-341    
HRLES 	= 000537	#12-342    
HRLI  	= 000505	#12-316    
HRLM  	= 000506	#12-317    
HRLO  	= 000524	#12-331    
HRLOI 	= 000525	#12-332    
HRLOM 	= 000526	#12-333    
HRLOS 	= 000527	#12-334    
HRLS  	= 000507	#12-318    
HRLZ  	= 000514	#12-323    
HRLZI 	= 000515	#12-324    
HRLZM 	= 000516	#12-325    
HRLZS 	= 000517	#12-326    
HRR   	= 000540	#12-343    
HRRE  	= 000570	#12-367    
HRREI 	= 000571	#12-368    
HRREM 	= 000572	#12-369    
HRRES 	= 000573	#12-370    
HRRI  	= 000541	#12-344    
HRRM  	= 000542	#12-345    
HRRO  	= 000560	#12-359    
HRROI 	= 000561	#12-360    
HRROM 	= 000562	#12-361    
HRROS 	= 000563	#12-362    
HRRS  	= 000543	#12-346    
HRRZ  	= 000550	#12-351    
HRRZI 	= 000551	#12-352    
HRRZM 	= 000552	#12-353    
HRRZS 	= 000553	#12-354    
I     	= 000000	#98-107     98-107    #98-108     98-108    #98-109     98-109    #98-110     98-110    #98-113    
                         98-113    #99-137     99-137    #99-138     99-138    #99-139     99-139    #99-140     99-140    
                        #99-141     99-141    #99-142     99-142    #99-143     99-143    #99-144     99-144    #99-145    
                         99-145    #99-146     99-146    #99-147     99-147    #99-153     99-153    
IBP   	= 000133	#12-74     
IDIV  	= 000230	#12-135    
IDIVB 	= 000233	#12-138    
IDIVI 	= 000231	#12-136    
IDIVM 	= 000232	#12-137    
IDPB  	= 000136	#12-77     
ILDB  	= 000134	#12-75     
IMUL  	= 000220	#12-127    
IMULB 	= 000223	#12-130    
IMULI 	= 000221	#12-128    
IMULM 	= 000222	#12-129    
INIDMA	= ******  GX	 96-27     
INIMAB	= ******  GX	 104-326   
INTMOD	= ******  GX	 101-238    105-371    105-409    105-411    105-413   
IOR   	= 000434	#12-271    
IORB  	= 000437	#12-277    
IORI  	= 000435	#12-273     99-142     99-142    
IORM  	= 000436	#12-275    
CORDET     CREATED BY  MACRO  ON 17-SEP-79 AT 09:05	PAGE 8

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

JFCL  	= 000255	#12-155    
JFFO  	= 000243	#12-146    
JRA   	= 000267	#12-166    
JRST  	= 000254	#12-154     98-109     98-109     99-145     99-145     99-146     99-146     99-153     99-153    
JSA   	= 000266	#12-165    
JSP   	= 000265	#12-164    
JSR   	= 000264	#12-163    
JUMP  	= 000320	#12-191    
JUMPA 	= 000324	#12-195    
JUMPE 	= 000322	#12-193    
JUMPG 	= 000327	#12-198    
JUMPGE	= 000325	#12-196    
JUMPL 	= 000321	#12-192    
JUMPLE	= 000323	#12-194    
JUMPN 	= 000326	#12-197    
LDAR  	= 000077	#55-125    
LDB   	= 000135	#12-76     
LSBRTN	= 000001	#3-58      
LSBSRL	= 000744	#44-209    
LSH   	= 000242	#12-145     99-140     99-140    
LSHC  	= 000246	#12-149    
LSTALL	= ******	 12-455     39-1601    40-2       51-493     95-3      
LSTDIA	= ******	 51-494    
LSTMAC	= ******	 12-455     39-1601    40-2       51-493    
LSTMB 	= 000001	#3-57       95-3      
LUBSRL	= 000600	#44-210    
MABADC	= ******  GX	*105-417   
MABDET	  001546 RG	 8-263     #104-323   
MABINT	= ******  GX	*105-414   
MABPAD	  001614 R	 104-328    104-330   #104-354   
MABRD 	= ******  GX	 104-324   *104-337   
MABRUL	  002104 R	 105-379    105-397   #106-447   
MABSA 	= ******  GX	*105-405   
MABSIZ	= ******  GX	*105-425   
MACTN 	= 000001	#43-154    
MAP   	= 000257	#12-158    
MAXCN 	= 000037	#43-152     110-660   
MBCTN 	= 000003	#43-155    
MBOKLG	= ******	 4-100      8-256     
MBROOT	= ******	 3-7        5-158     
MCOUNT	= ******  GX	*110-662   *110-674   
MFCTN 	= 000005	#43-166    
MNBRCN	= 000036	#43-171    
MNMFCN	= 000010	#43-167     44-181     44-182     44-183    
MNMXCN	= 000006	#43-163    
MNM.CN	= 000000	#43-156    
MNTITF	= 000040	#40-31     
MODELB	= ******  GX	 96-55     *110-641   
MOVE  	= 000200	#12-111     98-107     98-107     98-110     98-110     99-147     99-147    
MOVEI 	= 000201	#12-112    
MOVEM 	= 000202	#12-113    
MOVES 	= 000203	#12-114    
CORDET     CREATED BY  MACRO  ON 17-SEP-79 AT 09:05	PAGE 9

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

MOVM  	= 000214	#12-123    
MOVMI 	= 000215	#12-124    
MOVMM 	= 000216	#12-125    
MOVMS 	= 000217	#12-126    
MOVN  	= 000210	#12-119    
MOVNI 	= 000211	#12-120    
MOVNM 	= 000212	#12-121    
MOVNS 	= 000213	#12-122    
MOVS  	= 000204	#12-115    
MOVSI 	= 000205	#12-116    
MOVSM 	= 000206	#12-117    
MOVSS 	= 000207	#12-118    
MSAMSZ	= 000140	#44-181    
MSSCTL	= ******	 3-9        8-268     
MSTROS	= ******  GX	*110-645   
MUL   	= 000224	#12-131    
MULB  	= 000227	#12-134    
MULI  	= 000225	#12-132    
MULM  	= 000226	#12-133    
MXBRCN	= 000037	#43-172    
MXCTN 	= 000004	#43-162    
MXMFCN	= 000017	#43-168     44-181     44-182     44-183    
MXMXCN	= 000007	#43-164    
MXM.CN	= 000003	#43-157    
OR    	= 000434	#12-272    
ORB   	= 000437	#12-278    
ORCA  	= 000454	#12-291    
ORCAB 	= 000457	#12-294    
ORCAI 	= 000455	#12-292    
ORCAM 	= 000456	#12-293    
ORCB  	= 000470	#12-303    
ORCBB 	= 000473	#12-306    
ORCBI 	= 000471	#12-304    
ORCBM 	= 000472	#12-305    
ORCM  	= 000464	#12-299    
ORCMB 	= 000467	#12-302    
ORCMI 	= 000465	#12-300    
ORCMM 	= 000466	#12-301    
ORI   	= 000435	#12-274    
ORM   	= 000436	#12-276    
PAG   	= 000010	#12-451    
PI    	= 000004	#12-450     55-128     55-132    
POP   	= 000262	#12-161    
POPJ  	= 000263	#12-162    
PUSH  	= 000261	#12-160    
PUSHJ 	= 000260	#12-159    
PXCT  	= 000256	#12-156    
QXCT1 	= ******  GX	 100-176   
RAS   	= 040000	#44-201     44-201     44-201    #44-201     44-201     44-201    #44-201     44-201     44-201    
                        #44-201     44-201     44-201    #44-201     44-201     44-201    #44-201     44-201     44-201    
                        #44-201     44-201     44-201    #44-201     44-201     44-201    #44-201     44-201     44-201    
                        #44-201     44-201     44-201    #44-201     44-201     44-201    #44-201     44-201     44-201    
CORDET     CREATED BY  MACRO  ON 17-SEP-79 AT 09:05	PAGE 10

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                        #44-201     44-201     44-201    #44-201     44-201     44-201    #44-201    
RDERA0	= ******  GX	 98-93     
REAPWD	= ******  GX	 101-199   
RELEAS	= ******	 12-454     39-1600    40-1       51-492     95-1       95-2       98-106     98-114     99-136    
                         99-150     105-393    106-469    107-514    110-658   
ROT   	= 000241	#12-144    
ROTC  	= 000245	#12-148    
RST.5 	= ******  GX	 102-265    110-700   
RS0RS1	= 000010	#44-182    
RS0TN0	= 000020	#44-183    
RUNPRG	= ******  GX	 97-65      97-71     
R$$20F	= 000001	#3-48       44-187     49-469     96-24      97-63      97-65      97-71      97-79      97-80     
                         98-93      98-106     98-114     99-120     99-121     99-125     99-126     99-128     99-129    
                         99-136     99-150     100-159    100-160    100-176    100-178    100-179    100-182    100-183   
                         100-183    100-188    100-188    101-199    101-200    102-252    102-264    102-289    104-323   
                         104-328    104-330    110-638    110-646    110-661    110-665    110-705   
R5.PC 	= ******  GX	 105-392   
SAV.5 	= ******  GX	 96-50      104-354    110-635   
SBDT  	= ******  GX	 110-665   
SBUS  	= 100000	#26-1126    99-120     100-159    102-264    110-661   
SECLK 	= 000003	#55-118    
SETA  	= 000424	#12-263    
SETAB 	= 000427	#12-266    
SETAI 	= 000425	#12-264    
SETAM 	= 000426	#12-265    
SETCA 	= 000450	#12-287    
SETCAB	= 000453	#12-290    
SETCAI	= 000451	#12-288    
SETCAM	= 000452	#12-289    
SETCM 	= 000460	#12-295    
SETCMB	= 000463	#12-298    
SETCMI	= 000461	#12-296    
SETCMM	= 000462	#12-297    
SETM  	= 000414	#12-255    
SETMB 	= 000417	#12-258    
SETMI 	= 000415	#12-256    
SETMM 	= 000416	#12-257    
SETMR 	= 000007	#55-121    
SETO  	= 000474	#12-307    
SETOB 	= 000477	#12-310    
SETOI 	= 000475	#12-308    
SETOM 	= 000476	#12-309    
SETRUN	= 000011	#55-123    
SETZ  	= 000400	#12-240    
SETZB 	= 000403	#12-246    
SETZI 	= 000401	#12-242    
SETZM 	= 000402	#12-244    
SKIP  	= 000330	#12-199    
SKIPA 	= 000334	#12-203    
SKIPE 	= 000332	#12-201    
SKIPG 	= 000337	#12-206    
SKIPGE	= 000335	#12-204    
CORDET     CREATED BY  MACRO  ON 17-SEP-79 AT 09:05	PAGE 11

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

SKIPL 	= 000331	#12-200    
SKIPLE	= 000333	#12-202    
SKIPN 	= 000336	#12-205    
SOJ   	= 000360	#12-223    
SOJA  	= 000364	#12-227    
SOJE  	= 000362	#12-225    
SOJG  	= 000367	#12-230    
SOJGE 	= 000365	#12-228    
SOJL  	= 000361	#12-224    
SOJLE 	= 000363	#12-226    
SOJN  	= 000366	#12-229    
SOS   	= 000370	#12-231    
SOSA  	= 000374	#12-235    
SOSE  	= 000372	#12-233    
SOSG  	= 000377	#12-238    
SOSGE 	= 000375	#12-236    
SOSL  	= 000371	#12-232    
SOSLE 	= 000373	#12-234    
SOSN  	= 000376	#12-237    
SRI8MB	= ******	 104-331    105-393    105-400    105-426   
SSCLK 	= 000002	#55-117    
STPCLK	= 000000	#55-115    
STRCLK	= 000001	#55-116     96-51      98-101     100-162    110-637   
SUB   	= 000274	#12-171    
SUBB  	= 000277	#12-174    
SUBI  	= 000275	#12-172    
SUBM  	= 000276	#12-173    
SXCT  	= 000106	#12-54      98-113     98-113     99-139     99-139    
TADR  	= 000010	#36-1491   
TBN   	= 000004	#36-1490   
TCN   	= 000001	#36-1488   
TDC   	= 000650	#12-415    
TDCA  	= 000654	#12-419    
TDCE  	= 000652	#12-417    
TDCN  	= 000656	#12-421    
TDN   	= 000610	#12-383    
TDNA  	= 000614	#12-387    
TDNE  	= 000612	#12-385    
TDNN  	= 000616	#12-389    
TDO   	= 000670	#12-431    
TDOA  	= 000674	#12-435    
TDOE  	= 000672	#12-433    
TDON  	= 000676	#12-437    
TDZ   	= 000630	#12-399    
TDZA  	= 000634	#12-403    
TDZE  	= 000632	#12-401    
TDZN  	= 000636	#12-405    
TGN   	= 000002	#36-1489   
TIMFS 	= 000044	#40-32     
TLC   	= 000641	#12-408    
TLCA  	= 000645	#12-412    
TLCE  	= 000643	#12-410    
CORDET     CREATED BY  MACRO  ON 17-SEP-79 AT 09:05	PAGE 12

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

TLCN  	= 000647	#12-414    
TLN   	= 000601	#12-376    
TLNA  	= 000605	#12-380    
TLNE  	= 000603	#12-378    
TLNN  	= 000607	#12-382    
TLO   	= 000661	#12-424    
TLOA  	= 000665	#12-428    
TLOE  	= 000663	#12-426    
TLON  	= 000667	#12-430    
TLZ   	= 000621	#12-392    
TLZA  	= 000625	#12-396    
TLZE  	= 000623	#12-394    
TLZN  	= 000627	#12-398    
TRC   	= 000640	#12-407    
TRCA  	= 000644	#12-411    
TRCE  	= 000642	#12-409    
TRCN  	= 000646	#12-413    
TRN   	= 000600	#12-375    
TRNA  	= 000604	#12-379    
TRNE  	= 000602	#12-377     99-144     99-144    
TRNN  	= 000606	#12-381    
TRO   	= 000660	#12-423    
TROA  	= 000664	#12-427    
TROE  	= 000662	#12-425    
TRON  	= 000666	#12-429    
TRPAR 	= 010000	#44-203     44-203     44-203    #44-203     44-203     44-203    #44-203     44-203     44-203    
                        #44-203     44-203     44-203    #44-203     44-203     44-203    #44-203     44-203     44-203    
                        #44-203     44-203     44-203    #44-203     44-203     44-203    #44-203     44-203     44-203    
                        #44-203     44-203     44-203    #44-203     44-203     44-203    #44-203     44-203     44-203    
                        #44-203    
TRZ   	= 000620	#12-391    
TRZA  	= 000624	#12-395    
TRZE  	= 000622	#12-393    
TRZN  	= 000626	#12-397    
TSC   	= 000651	#12-416    
TSCA  	= 000655	#12-420    
TSCE  	= 000653	#12-418    
TSCN  	= 000657	#12-422    
TSN   	= 000611	#12-384    
TSNA  	= 000615	#12-388    
TSNE  	= 000613	#12-386    
TSNN  	= 000617	#12-390    
TSO   	= 000671	#12-432    
TSOA  	= 000675	#12-436    
TSOE  	= 000673	#12-434    
TSON  	= 000677	#12-438    
TSTCON	= ******  GX	*96-52     *104-327   *104-329    104-355   *110-664   
TSZ   	= 000631	#12-400    
TSZA  	= 000635	#12-404    
TSZE  	= 000633	#12-402    
TSZN  	= 000637	#12-406    
TYPNUM	= ******  GX	 104-357    105-373   *110-672   
CORDET     CREATED BY  MACRO  ON 17-SEP-79 AT 09:05	PAGE 13

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

UFA   	= 000130	#12-71     
UNDCTN	= 000007	#43-174     110-675    110-677   
WENABL	= 004000	#44-204     44-204     44-204    #44-204     44-204     44-204    #44-204     44-204     44-204    
                        #44-204     44-204     44-204    #44-204     44-204     44-204    #44-204     44-204     44-204    
                        #44-204     44-204     44-204    #44-204     44-204     44-204    #44-204     44-204     44-204    
                        #44-204     44-204     44-204    #44-204     44-204     44-204    #44-204    
X     	= 000003	#98-107     98-107    #98-108     98-108    #98-109     98-109    #98-110     98-110    #98-111    
                         98-111    #98-113     98-113    #99-137     99-137    #99-138     99-138    #99-139     99-139    
                        #99-140     99-140    #99-141     99-141    #99-142     99-142    #99-143     99-143    #99-144    
                         99-144    #99-145     99-145    #99-146     99-146    #99-147     99-147    #99-153     99-153    
                        #102-286    102-286   #102-287    102-287   #106-452    106-452    106-452   #106-453    106-453   
                         106-453   #106-454    106-454    106-454   #106-455    106-455    106-455   #106-456    106-456   
                         106-456   #106-457    106-457    106-457   #106-458    106-458    106-458   #106-459    106-459   
                         106-459   #106-460    106-460    106-460   #106-461    106-461    106-461   #106-462    106-462   
                         106-462   #106-463    106-463    106-463   #106-464    106-464    106-464   #106-465    106-465   
                         106-465   #106-466    106-466    106-466   #106-467    106-467    106-467   #106-476    106-476   
                         106-476   #106-477    106-477    106-477   #106-478    106-478    106-478   #106-479    106-479   
                        #106-479    106-479   #106-480    106-480    106-480   #106-481    106-481    106-481   #106-482   
                         106-482    106-482   #106-483    106-483    106-483   #106-484    106-484    106-484   #106-485   
                         106-485    106-485   #106-486    106-486    106-486   #106-487    106-487    106-487   #106-488   
                         106-488   #106-488    106-488   #106-489    106-489    106-489   #106-490    106-490    106-490   
                        #106-491    106-491   #106-491    106-491   #107-497    107-497    107-497   #107-498    107-498   
                         107-498   #107-499    107-499    107-499   #107-500    107-500    107-500   #107-501    107-501   
                         107-501   #107-502    107-502    107-502   #107-503    107-503    107-503   #107-504    107-504   
                         107-504   #107-505    107-505    107-505   #107-506    107-506    107-506   #107-507    107-507   
                         107-507   #107-508    107-508    107-508   #107-509    107-509    107-509   #107-510    107-510   
                         107-510   #107-511    107-511    107-511   #107-512    107-512    107-512   #107-521    107-521   
                         107-521   #107-522    107-522    107-522   #107-523    107-523    107-523   #107-524    107-524   
                        #107-524    107-524   #107-525    107-525    107-525   #107-526    107-526    107-526   #107-527   
                         107-527    107-527   #107-528    107-528    107-528   #107-529    107-529    107-529   #107-530   
                         107-530    107-530   #107-531    107-531    107-531   #107-532    107-532    107-532   #107-533   
                         107-533   #107-533    107-533   #107-534    107-534    107-534   #107-535    107-535    107-535   
                        #107-536    107-536   #107-536    107-536   
XCT   	= 000256	#12-157    
XDV   	= 000000	#98-108     98-108     98-108    #99-137     99-137     99-137    #99-138     99-138     99-138    
                        #99-141     99-141     99-141    
XMAL  	= ******  GX	*96-54     *97-83      101-217   
XOP   	= 000006	#98-108     98-108     98-108    #99-137     99-137     99-137    #99-138     99-138     99-138    
                        #99-141     99-141     99-141    
XOR   	= 000430	#12-267    
XORB  	= 000433	#12-270    
XORI  	= 000431	#12-268    
XORM  	= 000432	#12-269    
XR    	= 000000	#98-107     98-107    #98-108     98-108    #98-109     98-109    #98-110    #98-110     98-110    
                        #98-113     98-113    #99-137     99-137    #99-138     99-138    #99-139     99-139    #99-140    
                         99-140    #99-141     99-141    #99-142     99-142    #99-143     99-143    #99-144     99-144    
                        #99-145     99-145    #99-146     99-146    #99-147    #99-147     99-147    #99-153     99-153    
XXWD  	= ******  GX	*98-95      98-96     
XX1   	= ******  GX	 98-93      110-638   
$APRID	= 000000	#55-129    
$BRST 	= 000001	#44-189    
$CNTSD	= 000001	#100-179   
CORDET     CREATED BY  MACRO  ON 17-SEP-79 AT 09:05	PAGE 14

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

$CONDE	= 000001	#8-253      109-622   
$CONEX	= ******	 49-469    
$CTFMT	= ******	 107-554   
$DDFWR	= ******  GX	 100-161   
$DDFXC	= ******  GX	 96-51      98-101     100-162    110-637   
$DMADE	= 000001	#8-249      95-14     
$DMPAC	= 070010	#12-10     
$DPOST	= ******  GX	 99-125     99-128    
$EB   	= 000530 R	#98-106     98-114    #99-136     99-150    
$EVENT	= 000001	#44-190    
$EXAMD	= ******  GX	 97-67      100-187   
$EXAMT	= ******  GX	 101-199   
$EXCT 	= ******  GX	 97-73     
$FATAL	= ******  GX	 101-227   
$FIND 	= 000001	#44-188    
$GETCT	= 070020	#12-12     
$IND36	= 000003	#28-1177   
$KLMR 	= ******  GX	 96-51      98-101     110-637   
$KL10A	= 000101	#41-61     
$KL10B	= 000102	#41-62     
$LOADA	= 000001	#97-63     #99-121    #100-178   #100-182   
$MABDE	= 000001	#8-250      103-314   
$MABPA	= 000001	#8-251      104-340   
$PATCH	= 070004	#12-9      
$QXCT 	= 000001	#100-176   
$RDERA	= 000000	#55-131    
$RELOA	= 000001	#28-1175   
$RESET	= 000001	#99-120    #100-159   #102-264   #110-661   
$RSTAC	= 070030	#12-14     
$RUN  	= 000001	#97-65     #97-71     
$SAVAC	= 070024	#12-13     
$SBDIA	= 000002	#55-127     99-137    
$SDW  	= 000002	#28-1176   
$SIZ16	= 033061	#41-64     
$SIZ32	= 031063	#41-65     
$SIZ4K	= 032060	#41-63     
$SIZ64	= 032066	#41-66     
$STEP 	= 000001	#44-191    
$TB   	= 000001	#98-106    #99-136    
$TIMLP	= 070014	#12-11     
$TL   	= 000013	#98-114    #99-150    
$TTBEL	= ******  GX	 97-81     
$TTDMS	= ******  GX	 97-79      102-253   
$XX   	= 000001	#98-93     #110-638   
$$APRI	= 000000	#55-130    
$$NARG	= 000001	#97-63      97-63      97-63     #99-121     99-121     99-121    #100-178    100-178    100-178   
                        #100-182    100-182    100-182   
$$RDER	= 000004	#55-132    
$$SBDI	= 000004	#55-128     99-137    
$10BC 	= 070040	#12-16     
$10BP 	= 070034	#12-15     
$10MB 	= 070050	#12-18     
CORDET     CREATED BY  MACRO  ON 17-SEP-79 AT 09:05	PAGE 15

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

$10RB 	= 070044	#12-17     
.RESET	= ******  GX	 99-120     100-159    102-264    110-661   
.SBDIA	= 000001	#110-665   
.WORK 	= ******  GX	 97-67      97-67      100-187    100-187   
...   	= 000377	#12-25     
......	= 177777	#12-24     
CORDET     CREATED BY  MACRO  ON 17-SEP-79 AT 09:05	PAGE 16

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

ACBLK 		#20-787    
BLK10 		#29-1207    98-106     99-136    
BP.   		#13-482    
BRST  		#18-716    
BTOFIX		#47-336    
BURST 		#68-556    
CABTE 		#46-291    
CALL  		#53-38     
CALLR 		#53-47     
CALPAR		#33-1363   
CGOTO 		#16-617    
CNTSD 		#33-1381   #100-179   
CONDET		#46-311     96-24      104-323   
CONDMA		#45-222    
CONFIG		#45-218    
CONMAB		#45-230    
CONMOS		#45-226    
CONMX 		#47-354    
CONTIN		#14-552    #100-183   #100-188   
COPYAC		#31-1325   
CTFMTC		#46-307    
DBESCN		#46-287    
DCNFBB		#47-326    
DFPC  		#67-526    
DFRD  		#56-163    
DFRDT 		#57-184    
DFSCLK		#66-516    
DFWRT 		#58-225    
DFWRTT		#59-265    #100-161   
DFXCT 		#60-304    
DFXCTT		#61-336    #100-162   
DMADET		#45-246    
DOLOOP		#22-907    
DPD   		#45-258    
DPOS  		#62-369    
DPOST 		#63-409    #99-125    #99-128    
DSOBAC		#18-707    
DTEBAS		#69-570    
ENBLPS		#21-854    
ENDBLK		#29-1222    98-114     99-150    
ENDLOO		#21-878    
ENDTIM		#42-126    
ERRCOM		#50-487    
ERRMSG		#50-473    
ERROR 		#50-479    
EVENT 		#17-650    
EXAM  		#64-448     97-67      100-187   
EXAMT 		#65-494     101-199   
EXCT  		#72-632     97-73     
EXECUT		#23-978     100-176   
EXOR  		#54-99     
EXP16K		#47-364    
CORDET     CREATED BY  MACRO  ON 17-SEP-79 AT 09:05	PAGE 17

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

FATAL 		#38-1590   #94-1291    101-227   
FIND  		#17-669    
FITMEM		#45-238    
FIXSB 		#47-340    
FSD   		#25-1070   
FSDCHK		#26-1100   
FSDMSK		#25-1050   
GBSRL 		#49-432    
GETBBD		#48-400    
GETCMP		#48-410    
GETTF 		#46-283    
GMCN  		#37-1522   
ICEON 		#47-321    
IND36 		#28-1190   
INIBSR		#48-390    
INIUDF		#38-1583   
INVAL 		#20-817    
IO10  		#30-1275   #98-108    #99-137    #99-138    #99-141    
I10   		#30-1252    98-107     98-109     98-110     98-113     99-139     99-140     99-142     99-143     99-144    
                 99-145     99-146     99-147     99-153    
JAB   		#37-1535   
LDATIM		#49-455    
LDBESP		#47-331    
LDEFER		#38-1594   
LDFSDP		#26-1095   
LDFVR 		#46-271    
LDNADR		#46-267    
LDREFR		#46-279    
LDTIMR		#46-275    
LOADAC		#19-761     97-63      99-121     100-178    100-182   
LODAR 		#70-601    
LOOP  		#21-869    
LOOPCO		#22-896    
LOOPDO		#22-912    
MABDET		#46-295    
MABL  		#27-1138   
MABPAD		#46-299    #104-328   #104-330   
MASK36		#35-1445   
MB    		#45-214    
MBINI 		#46-315    
MMRESP		#45-262    
MOSDET		#45-250    
MOSDMP		#23-955    
MRESET		#75-723    
MSKDAT		#35-1474   
MSK36R		#35-1462   
MXTADR		#47-349    
MX20MD		#47-344    
NUMARG		#16-626     97-63      99-121     100-178    100-182   
NUMTXT		#16-608    
OVRLOD		#38-1576   
PATERR		#23-965    
CORDET     CREATED BY  MACRO  ON 17-SEP-79 AT 09:05	PAGE 18

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

PBELL 		#89-1150    97-81     
PCRLF 		#89-1158   
PENDIS		#36-1515   
PFORCE		#77-776    #97-78     
PMSG  		#86-1059    102-253   
PNORML		#77-779    #97-82     
PNTADR		#79-834    
PNTAL 		#87-1090   
PNTAPR		#36-1504   
PNTBAK		#77-782    
PNTDEC		#84-980    
PNTNBR		#80-861    
PNTOCS		#83-948    
PNTOCT		#82-916    
PNTODT		#85-1013   
PNTVER		#20-807    
PNT36 		#78-806    
PNT36B		#81-889    
POP   		#4-95      #53-65     #97-63     #97-65     #97-71     #98-98     #99-120    #99-121    #100-159   #100-178   
                #100-182   #102-264   #110-661   #110-665   
PSLASH		#89-1146   
PSPACE		#89-1142   
PTAB  		#89-1154   
PUSH  		#4-89      #53-59     
PWTES 		#20-827    
RDPROM		#45-254    
READAC		#31-1309   
REGRST		#76-760    #102-265   #110-700   
REGSAV		#76-756     96-50      110-635   
REPCON		#46-303    
REPFIT		#45-234    
RESDET		#45-242    
RESET 		#26-1112    99-120     100-159    102-264    110-661   
RETURN		#53-51     
RST.4 		#32-1343   
RST.5 		#32-1354   
RULE  		#106-441    106-452    106-453    106-454    106-455    106-456    106-457    106-458    106-459    106-460   
                 106-461    106-462    106-463    106-464    106-465    106-466    106-467    106-476    106-477    106-478   
                 106-479    106-480    106-481    106-482    106-483    106-484    106-485    106-486    106-487    106-488   
                 106-489    106-490    106-491    107-497    107-498    107-499    107-500    107-501    107-502    107-503   
                 107-504    107-505    107-506    107-507    107-508    107-509    107-510    107-511    107-512    107-521   
                 107-522    107-523    107-524    107-525    107-526    107-527    107-528    107-529    107-530    107-531   
                 107-532    107-533    107-534    107-535    107-536   
RUN   		#15-565     97-65      97-71     
R4.R5 		#32-1347   
R5.PC 		#32-1357   #105-392   
SAV.4 		#32-1339   
SAV.5 		#32-1351   #104-354   
SBDIAG		#24-1002   #110-665   
SBSRL 		#49-416    
SCAN  		#47-359    
SETBBD		#48-395    
CORDET     CREATED BY  MACRO  ON 17-SEP-79 AT 09:05	PAGE 19

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

SETCMP		#48-405    
SETPAR		#33-1368   
SETRAM		#34-1422   
SL    		#54-71     #101-242   
SM    		#73-662     96-51      98-101     110-637   
SMFSS 		#48-375    
SOBAC 		#18-696    
SR    		#54-85     
STEP  		#19-733    
STEP10		#17-639    
STKEMD		#36-1496   
STKMEP		#36-1482   
STOPLO		#22-887    
STPCON		#18-686    
S10.  		#14-509    
TBIT  		#14-535    
TICK  		#42-94     
TIMING		#41-68     
TIMSIG		#40-43     #44-201    #44-202    #44-203    #44-204    #44-205    #44-206    #44-207    
TTIDEC		#91-1214   
TTILIN		#92-1240   
TTILNW		#93-1266   
TTIOCT		#90-1186   
UMAC  		#37-1550   
WD36  		#29-1243   #98-111    #102-286   #102-287   
WWADR 		#74-691    
XO10  		#29-1218   
XX    		#33-1397   #98-93     #110-638   
X10   		#29-1214   
$CNG  		#22-918    
$DEF  		#4-84      #52-34     #52-36     
$ENDLO		#22-933    
$LOOP 		#22-922    
$PMSG 		#88-1111   #97-79     
$PRADR		#13-465    
$RDG  		#22-927    
$STOPL		#22-930    
.MAIN.	MACRO M1110  17-SEP-79 09:10
TABLE OF CONTENTS

     3-    1	ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
    96-    7	DOUBLE BIT ERROR SCAN CONTROL ROUTINE
    99-   99	MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
   111-  681	SUBROUTINE TO DO DEFAULT INIT OF MF20 BITSUB RAM
   112-  727	CONFIGURE A MOS BLOCK TO END OF 256K ADDRESS SPACE
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 1


      1		177777 			DBEOVL==-1
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 3
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.

					.SBTTL	ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
      2
      3						.NLIST	CND,BEX
      4						.LIST	MC,MD,MEB
      5						.ENABL	AMA
      6
     10					.TITLE	DBEOVL -- MOS DOUBLE BIT ERROR SCAN OVERLAY
     12
     13					.REM	%
     14						THIS FILE CONTROLS THE ASSEMBLY OF THE 5 MEMORY BOOT OVERLAY MODULES.
     15					WHICH ONE OF THE MODULES IS DETERMINED BY WHICH ONE OF 5 SYMBOLS IS DEFINED.
     16					THE SYMBOLS ARE:
     17
     18							MBROOT, CORDET, MSSCTL, DBEOVL, OR FITCON.
     19
     20					THE SYMBOL SHOULD BE DEFINED IN THE ASSEMBLY CONTROL COMMAND USING THE /EQ:
     21					SWITCH.  ONE OTHER SYMBOL MAY BE DEFINED WITH THE EQUATE SWITCH: DEFINE "MBOKLG"
     22					WHEN DOING AN R$$20F ASSEMBLY IN THE DIAGNOSTIC ENVIRONMENT.  THIS SATISFIES
     23					EXTERNAL REFERENCES BY EXPLCITLY DEFINING THOSE SYMBOLS.
     24
     25						THE OVERLAY STRUCTURE OF THE MEMORY BOOT IS SIMPLE: ONE ROOT MODULE,
     26					MBROOT, WHICH LOADS ONE OF THE OTHER 4 MODULES UNDERNEATH IT AS NECESSARY.  THE
     27					TOTAL LENGTH OF OVERLAYS RESIDENT AT ANY ONE POINT IN TIME MUST BE LESS THAN
     28					16000(OCTAL) BYTES, BUT IT IS PREFERABLE TO KEEP IT AROUND 14000 TO ALLOW FOR
     29					EXPANSION.  THE OVERLAY STRUCTURE IS SHOWN GRAPHICALLY BELOW:
     30
     31					MEMORY
     32					16000
     33					 MAX
     34					  !	+-----------------------------------------------------------+
     35					  !	!							    !
     36					  !	!		    MBROOT (ROOT MODULE)		    !
     37					  !	!							    !
     38					  !	+--------------+--------------+--------------+--------------+
     39					  !	!	       !	      !		     !		    !
     40					  !	!    CORDET    !    MSSCTL    !    DBEOVL    !    FITCON    !
     41					  V	!	       !	      !		     !		    !
     42						+--------------+--------------+--------------+--------------+
     43
     44					TIME --------->
     45
     46						%
     47
     48		000001 			R$$20F=1	; *****FORCE ASSEMBLY OF MEM BOOT IN FRONT-END MODE *****
     49
     50					;-----DEFINE "CONMMR" TO AID IN MEMORY BOOT ERROR CHECKING.  UNDEFINE IT
     51					; TO SAVE APPROXIMATELY 400(8) BYTES IN THE MEMORY BOOT ROOT MODULE.  NOTE
     52					; THAT IF YOU UNDEFINE OR REDEFINE THIS THEN YOU MUST ALSO CHANGE THE POSITION
     53					; SUBROUTINE "MMRESP" IN THE FILE MBSUB.P11 SO THAT IT IS IN THE PROPER MODULE.
     54		000001 				CONMMR=1
     55
     56					;-----LISTING CONTROL.
     57		000001 			LSTMB=1
     58		000001 			LSBRTN=1
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 4
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.

     60					;-----SYMBOLS DEFINED TO GET RID OF UNDEFINED PROBLEMS.  THESE SYMBOLS WOULD
     61					; NORMALLY COME FROM PRM11.P11.
     62
     63		000001 			BIT0=1.
     64		000002 			BIT1=2.
     65		000004 			BIT2=4.
     66		000010 			BIT3=8.
     67		000020 			BIT4=16.
     68		000040 			BIT5=32.
     69		000100 			BIT6=64.
     70		000200 			BIT7=128.
     71		000400 			BIT8=256.
     72		001000 			BIT9=512.
     73		002000 			BIT10=1024.
     74		004000 			BIT11=2048.
     75		010000 			BIT12=4096.
     76		020000 			BIT13=8192.
     77		040000 			BIT14=16384.
     78		100000 			BIT15=32768.
     79
     80		001000 			HALTLP=	BIT9		;EBOX IS IN HALT LOOP
     81		004000 			ERRSTP=	BIT11		;EBOX CLOCK STOPPED DUE TO ERROR
     82
     83					;-----OTHER SYMBOLS DEFINED TO MAKE FLAGS GO AWAY.
     84					.MACRO	$DEF	;MAKE THE O FLAG GO AWAY   ......
     85					.ENDM
     86
     87					;-----PUSH AND POP MACROS ARE GIVEN HERE JUST TO NEATEN UP THE LISTING SOME.
     88
     89					.MACRO	PUSH	A
     90					.IRP	B,<A>
     91						  MOV	B,-(SP)	;PUSH B ON STACK
     92					.ENDR
     93					.ENDM
     94
     95					.MACRO	POP	A
     96					.IRP	B,<A>
     97						  MOV	(SP)+,B	;POP STACK INTO B
     98					.ENDR
     99					.ENDM
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 10
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.

    305					;-----THE FOLLOWING DEFINITIONS FORCE ASSEMBLY OF THE MEMORY BOOT SUBROUTINES
    306					; REQUIRED FOR THIS MODULE.
    307
    308		000001 			$DBESCN=1
    309		000001 			$CABTE=1
    310		000001 			$LDBESP=1
    311		000001 			$MXTADR=1
    312		000001 			$INIBSR=1
    313
    314
    320					;-----THE FOLLOWING MEMORY BOOT LABELS ARE GLOBAL.
    321
    322						.GLOBL	DBESCN
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 96
DOUBLE BIT ERROR SCAN CONTROL ROUTINE

      7					.SBTTL		DOUBLE BIT ERROR SCAN CONTROL ROUTINE
      8
      9					.REM	%
     10						DBESCN IS THE CONTROL ROUTINE FOR THE MF20 DOUBLE BIT ERROR SCAN.  IT
     11					JUST RUNS THE SUBROUTINES THAT DO THE REAL WORK, AND RECORDS THE RESULTS.
     12					DBESCN RETURNS THE BAD BLOCK MAP IN R0.  IF A BIT IS A 1 THEN THE BLOCK IS BAD.
     13					BIT 0 CORRESPONDS TO BLOCK 0, ETC.
     14						%
     15
     16	000000				DBESCN:	SAV.5			;SAVE REGS
	000000	004737 	000000G			  JSR	PC,SAV.5	;SAVE R5-R1 ON STACK
     17	000004					INIBSR			;DO DEFAULT BITSUB RAM INIT
	000004	004737 	003446'			  JSR	PC,INIBSR	;DO A DEFAULT INIT OF AN MF20'S BITSUB RAM
     18	000010					LDBESP			;LOAD THE SCAN PROGRAM
	000010	004737 	000306'			  JSR	PC,LDBESP	;LD DOUBLE BIT ERR SCAN AC PRGM
     19	000014					SBDIAG	0000,0000,201	;ENABLE THE CONTR, SS=0
	000014	004537 	000024'			  JSR	R5,64$		;SAV R5, PT TO & SKIP ARG LIST
	000020	000201 	000000
	000024	004737 	000000G		64$:	  JSR	PC,SBDT		;DO SBUS DIAG...WORD FOLLOWS
	000030	012605 				 MOV	(SP)+,R5
     20
     21					;-----INIT FOR BLOCK LOOP
     22	000032	005004 				CLR	R4		;INI BAD BLK MAP
     23	000034	012703 	000001 			MOV	#1,R3		;INI BAD BLK BIT PTR
     24	000040	012737 	177777 	000266'		MOV	#-1,BLKNO	;INI BLK #
     25
     26					;-----TOP OF BLOCK LOOP
     27	000046	005237 	000266'		1$:	INC	BLKNO		;CALC NEXT BLOCK #
     28	000052	013702 	000266'			MOV	BLKNO,R2	;GET NEW BLK #
     29	000056	010237 	000270'			MOV	R2,BIGN		;CALC BLOCK-IN-GROUP NUMBER
     30	000062	042737 	177774 	000270'		BIC	#-4,BIGN
     31	000070	020227 	000014 			CMP	R2,#12.		;HAVE WE SCANNED ALL POSSIBLE BLOCKS?
     32	000074	103070 				BHIS	8$		;YES...DONE WITH THIS MF20 CONTR
     33	000076	004737 	000000G			JSR	PC,BAF		;GET ADR OF 1ST SIZ BYTE
     34	000102	060200 				ADD	R2,R0		;CALC ADR OF SIZ BYT FOR BLK
     35	000104	111002 				MOVB	(R0),R2		;GET SIZ BYTE FOR CURRENT BLOCK
     36	000106	001461 				BEQ	7$		;BLOCK DOESN'T EXIST...TRY NEXT ONE
     37	000110	003004 				BGT	2$
     38	000112					FATAL	NBS	;*** ERROR - NEG BLK SIZE ***
	000112	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "NBS" ERROR
	000116	   116 	   102 	   123 		 .ASCIZ	%NBS%
     39	000122				2$:	CABTE			;CONFIGURE THE BLOCK...SIZ BYT ADR IN R0
	000122	004737 	003616'			  JSR	PC,CABTE	;CONFIGURE A MOS BLOCK TO END OF 256K ADR SPACE
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 97
DOUBLE BIT ERROR SCAN CONTROL ROUTINE

     41
     42					;-----SET UP 36-BIT BLOCK START ADDRESS AND BLOCK SIZE WORDS.  THESE ARE USED
     43					; DIRECTLY EXCEPT IF THE BLOCK HAS 64K RAMS.  IN THIS CASE SINCE THE BLOCK FILLS
     44					; THE ENTIRE 256K ADDRESS SPACE WE CANNOT GET AT THE LOW ORDER 20 WORDS, WE
     45					; THEREFORE ADJUST THE START ADR TO 20 AND THE SIZE TO 256K-20.
     46
     47	000126	012705 	000020 			MOV	#20,R5		;CONSTANT IN R5 SAVES SPACE
     48	000132	010500 				MOV	R5,R0		;CALC WHAT START ADR SHD B WHEN BLK IS SHOVED UP
     49	000134	160200 				SUB	R2,R0		;	AGAINST 256K.
     50	000136					EXP16K			;EXPAND 16K FMT ST ADT TO 36-BIT FMT
	000136	004737 	000000G			  JSR	PC,EXP16K	;EXPAND 16K FMT ADR IN R0 INTO 36 BITS IN REAPWD
     51	000142	012701 	000272'			MOV	#BLKADR,R1	;ADR IN R1 SAVES SPACE
     52	000146	012021 				MOV	(R0)+,(R1)+	;PUT ADR WHERE NEEDED
     53	000150	012021 				MOV	(R0)+,(R1)+
     54	000152	005021 				CLR	(R1)+
     55	000154	010200 				MOV	R2,R0		;EXPAND 16K FMT BLK SIZ TO 36 BITS
     56	000156					EXP16K
	000156	004737 	000000G			  JSR	PC,EXP16K	;EXPAND 16K FMT ADR IN R0 INTO 36 BITS IN REAPWD
     57	000162	012021 				MOV	(R0)+,(R1)+	; (BLK SIZ TO 'BLKSIZ')
     58	000164	011021 				MOV	(R0),(R1)+
     59	000166	005011 				CLR	(R1)
     60	000170	020205 				CMP	R2,R5		;IS THIS A 256K BLOCK?
     61	000172	103412 				BLO	4$		;NO.. NO CHANGES NECESSARY
     62	000174	001404 				BEQ	3$		;YES.. ADJ ST ADR AND SIZ
     63	000176					FATAL	BTL	;FATAL ERROR..  BLOCK > 256K IN SIZE
	000176	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "BTL" ERROR
	000202	   102 	   124 	   114 		 .ASCIZ	%BTL%
     64	000206	010537 	000272'		3$:	MOV	R5,BLKADR	;SAY THAT BLOCK STARTS AT 20
     65	000212	024141 				CMP	-(R1),-(R1)	;BAK UP SIZ WD PTR
     66	000214	160521 				SUB	R5,(R1)+	;ADJ 36 BIT SIZ WD BY -20
     67	000216	005611 				SBC	(R1)
     68
     69	000220				4$:	BTOFIX			;SPECIFY THE BLOCK WE ARE TESTING
	000220	004737 	000356'			  JSR	PC,BTOFIX	;SET UP DBE SCAN PARAMS FOR BLK TO FIX
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 98
DOUBLE BIT ERROR SCAN CONTROL ROUTINE

     71
     72					;-----TOP OF SUBBLOCK LOOP.
     73	000224	005001 				CLR	R1		;INI SUBBLOCK # TO TEST
     74	000226	010100 			5$:	MOV	R1,R0		;SB# TO PARAM REG
     75	000230					FIXSB			;TEST, FIX & RETEST IF NECESSARY
	000230	004737 	002074'			  JSR	PC,FIXSB	;SCAN SUBBLK FOR DBE, PATCH, & RETEST
     76	000234	103002 				BCC	6$		;BR IF SUB-BLOCK IS USABLE (EVEN WITH BIT-SWAPS)
     77	000236	050304 				BIS	R3,R4		;ELSE MARK BLOCK AS BAD
     78	000240	000404 				BR	7$		;AND GO TEST NXT BLK
     79	000242	005201 			6$:	INC	R1
     80	000244	020127 	000004 			CMP	R1,#4		;ALL SUBBLOCKS TESTED?
     81	000250	002766 				BLT	5$		;LP IF NOT
     82
     83					;-----BOTTOM OF BLOCK LOOP
     84	000252	006303 			7$:	ASL	R3		;SHIFT BLK BIT PTR FOR NXT BLK
     85	000254	000674 				BR	1$		;GO DO NEXT BLK
     86
     87					;-----EXIT SECTION.  PUT THE BAD BLOCK MAP WORD INTO R0, RESTORE REGS & RETURN.
     88	000256	010400 			8$:	MOV	R4,R0
     89	000260	000241 				CLC			;SAY NO ERROR
     90	000262					R5.PC
	000262	000137 	000000G			  JMP	R5.PC		;RESTORE R1-R5 FROM STACK & DO RTS PC
     91
     92	000266	000000 			BLKNO:	0	;4 BIT BLOCK NUMBER
     93	000270	000000 			BIGN:	0	;2 BIT BLOCK-IN-GROUP NUMBER
     94	000272	000000 	000000 	000000 	BLKADR:	0,0,0	;36-BIT BLOCK START ADR WHEN END ADR = 256K-1 (=20 FOR 256K BLK)
     95	000300	000000 	000000 	000000 	BLKSIZ:	0,0,0	;36-BIT BLOCK SIZE (=256K-20 FOR 256K BLK)
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 99
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES

     99					.SBTTL		MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
    100
    101					.REM	%
    102						LDBESP IS THE SUBROUTINE WHICH LOADS THE AC PROGRAM BELOW.  THE PROGRAM
    103					RESIDES IN AC BLOCKS 0-5.
    104						%
    105
    106	000306				LDBESP:	RESET	CPU		;RESET BEFORE LOADING
	000306	004537 	000314'			  JSR	R5,64$		;SAV R5, PT TO & SKIP CPU LIST
	000312	000200 				  .WORD	CPU
	000314	004737 	000000G		64$:	  JSR	PC,.RESET	;RESET SPECIFIED HARDWARE
	000320	012605 				 MOV	(SP)+,R5
    107	000322					MABL	<DBESM0,DBESM1,DBESM2,DBESM3,DBESM4,DBESM5>,DBESAC
	000322	004537 	000346'			  JSR	R5,65$		;SAV R5, PT TO & SKIP ARG LIST
	000326	000077 	001066'			  .WORD	X,DBESAC		;AC BLOCK MASK & INITIAL 11 ADR OF 10 DATA
	000332	037774 				  .WORD	DBESM0		;AC LOAD MASK(S)
	000334	037777 				  .WORD	DBESM1		;AC LOAD MASK(S)
	000336	177770 				  .WORD	DBESM2		;AC LOAD MASK(S)
	000340	036777 				  .WORD	DBESM3		;AC LOAD MASK(S)
	000342	177537 				  .WORD	DBESM4		;AC LOAD MASK(S)
	000344	007770 				  .WORD	DBESM5		;AC LOAD MASK(S)
	000346	004737 	000000G		65$:	  JSR	PC,MABL		;LD AC PRGM, NO ST ADR GIVEN
	000352	012605 				 MOV	(SP)+,R5
    108	000354	000207 				RTS	PC
    110
    111					.REM	%
    112						BTOFIX IS CALLED EACH TIME A NEW MOS BLOCK IS TO BE TESTED.  IT SETS UP
    113					THE NECESSARY CONTROLLER, GROUP, AND BLOCK RELATED PARAMETERS AND LOADS THOSE
    114					ACS WHICH NEED TO BE LOADED.  IT ASSUMES: (1) THAT THE AC PROGRAM IS LOADED AND
    115					THAT (2) IT IS CALLED FROM INSIDE AN "ALLBLK" LOOP AS IT USES PARAMETERS CREATED
    116					BY ALLBLK.
    117						%
    118
    119	000356				BTOFIX:	SAV.5
	000356	004737 	000000G			  JSR	PC,SAV.5	;SAVE R5-R1 ON STACK
    120					;-----CONTROLLER RELATED DATA INIT.
    121	000362	013700 	000000G			MOV	TSTCON,R0	;GET CONTR #
    122	000366	020037 	000000G			CMP	R0,BTFLCN	;SAME CONTR AS LAST TIME?
    123	000372	001441 				BEQ	1$		;YES...DON'T DO THIS SECTION
    124	000374	010037 	000000G			MOV	R0,BTFLCN	;ELSE SAV NEW CONTR #
    125	000400	006300 				ASL	R0		;CREATE LH OF F0 CLR 0-5 IN DBECNR RH
    126	000402	005200 				INC	R0		;	CLR 0-5 BIT
    127	000404	004737 	000000G			JSR	PC,ASL0.4
    128	000410	012701 	001233'			MOV	#DBECNR+1,R1
    129	000414	110021 				MOVB	R0,(R1)+	;	BITS 20-23
    130	000416	000300 				SWAB	R0		;	BITS 18-19
    131	000420	142711 	000003 			BICB	#3,(R1)
    132	000424	150011 				BISB	R0,(R1)
    133	000426					CNTSD	DBECNL		;CONTR # TO LH OF 2 OTHER WDS
	000426	012700 	001263'			  MOV	#DBECNL,R0		;PT TO SBDIAG WD
	000432	004737 	000000G			  JSR	PC,CNTSD1	;CONTR # TO SBDIAG WD (ADDR IN R0)
    134	000436					CNTSD	DBEMIP
	000436	012700 	001720'			  MOV	#DBEMIP,R0		;PT TO SBDIAG WD
	000442	004737 	000000G			  JSR	PC,CNTSD1	;CONTR # TO SBDIAG WD (ADDR IN R0)
    135	000446					ACBLK	1		;RELOAD CONTR DEPENDENT WORDS
	000446	012700 	000001 			  MOV	#1,R0		;AC BLK # TO R0
	000452	004737 	000000G			  JSR	PC,ACBLK1	;SWITCH TO AC BLK
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 99-1
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES

    136	000456					LOADAC	ACC10+ACC15,<DBECNR,DBECNL>
	000456	004537 	000470'			  JSR	R5,64$		;SAV R5, PT TO & SKIP ARG LIST
	000462	020400 				  .WORD ACC10+ACC15		;LOAD MASK
	000464	001232'	001263'			  .WORD DBECNR,DBECNL		;PDP11 MEM ADR(S)
	000470	004737 	000000G		64$:	  JSR	PC,ACSCAT	;LD ACS FROM SCATTERED 11 ADRS
	000474	012605 				 MOV	(SP)+,R5
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 100
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES

    138					;-----GROUP RELATED DATA INIT.
    139	000476	005737 	000270'		1$:	TST	BIGN		;IS THIS BLOCK 0 OF THE GROUP?
    140	000502	001053 				BNE	2$		;NO...ASSUME DATA ALREADY SET UP
    141	000504	012701 	000272'			MOV	#BLKADR,R1	;MOVE FIRST ADR IN BLK
    142	000510	012702 	001100'			MOV	#DBETSA,R2	;	TO FWD DIR ST ADR WD
    143	000514	012703 	001725'			MOV	#DBEMIA,R3	;	& TO MEM INIT CNT WD ALSO
    144	000520	111122 				MOVB	(R1),(R2)+
    145	000522	112123 				MOVB	(R1)+,(R3)+
    146	000524	111122 				MOVB	(R1),(R2)+
    147	000526	112123 				MOVB	(R1)+,(R3)+
    148	000530	142712 	000003 			BICB	#3,(R2)
    149	000534	151112 				BISB	(R1),(R2)
    150	000536	111113 				MOVB	(R1),(R3)
    151	000540	152713 	177774 			BISB	#-4,(R3)
    152
    153	000544	013700 	000300'			MOV	BLKSIZ,R0	;CALC (BLKSIZ)/4
    154	000550	013701 	000302'			MOV	BLKSIZ+2,R1
    155	000554	006201 				ASR	R1
    156	000556	006000 				ROR	R0
    157	000560	006201 				ASR	R1
    158	000562	006000 				ROR	R0
    159	000564	110037 	001105'			MOVB	R0,DBENWT	;USE IT TO SET UP LOOP COUNT
    160	000570	000300 				SWAB	R0
    161	000572	110037 	001106'			MOVB	R0,DBENWT+1
    162	000576					RESET	CPU		;RESET MACHINE & GO TO ACBLK 0
	000576	004537 	000604'			  JSR	R5,65$		;SAV R5, PT TO & SKIP CPU LIST
	000602	000200 				  .WORD	CPU
	000604	004737 	000000G		65$:	  JSR	PC,.RESET	;RESET SPECIFIED HARDWARE
	000610	012605 				 MOV	(SP)+,R5
    163	000612					DPOST	AC5,DBENWT	; & LD LP CNT INI INSTR
	000612	012700 	000005 			 MOV	#AC5,R0	; ** ADDRESS TO R0
	000616	010146 				 MOV	R1,-(SP)	; ** SAVE R1
	000620	012701 	001105'			 MOV	#DBENWT,R1	; ** DBENWT POINTER TO R1
	000624	004737 	000000G			 JSR	PC,$DPOST	; ** EXECUTE THE DEPOSIT
	000630	012601 				 MOV	(SP)+,R1	; ** RESTORE R1
    165
    166					;-----DO BLOCK RELATED DATA SETUP.
    167	000632	013700 	000266'		2$:	MOV	BLKNO,R0	;GET 4-BIT BLK #
    168	000636	004737 	000000G			JSR	PC,ASL0.3	;POSITION & PUT INTO F7 WD ADR FIELD
    169	000642	110037 	002067'			MOVB	R0,DBEF7A
    170	000646	112737 	177777 	002073'		MOVB	#-1,UCEFIB	;IND NO UNCORRECTABLE ERRS FOUND IN BLK YET
    171	000654	004737 	000664'			JSR	PC,DBESMI	;INIT ALL MOS RAM WDS IN BLK...CLR ERRS
    172	000660					R5.PC			;DONE
	000660	000137 	000000G			  JMP	R5.PC		;RESTORE R1-R5 FROM STACK & DO RTS PC
    174
    175					;-----THIS ROUTINE INITS THE MOS RAMS IN THE BLOCK BY LOADING AN OVERLAY TO
    176					; ACBLK 5 AND RUNNING IT.
    177	000664				DBESMI:	ACBLK	5
	000664	012700 	000005 			  MOV	#5,R0		;AC BLK # TO R0
	000670	004737 	000000G			  JSR	PC,ACBLK1	;SWITCH TO AC BLK
    178	000674	023727 	000272'	000020 	DBESMQ:	CMP	BLKADR,#20	;IS THIS A 256K BLOCK?
    179	000702	001037 				BNE	1$		;NO.. NO NEED TO CAUSE SPECIAL SHADOW MEM CLR
    180	000704					LOADAC	DBESMM,DBESMP	;LOAD SHADOW MEM INIT PROGRAM
	000704	004537 	000714'			  JSR	R5,64$		;SAV R5, PT TO & SKIP ARG LIST
	000710	170002 				  .WORD DBESMM		;LOAD MASK
	000712	001667'				  .WORD DBESMP		;PDP11 MEM ADR(S)
	000714	004737 	000000G		64$:	  JSR	PC,ACLOAD	;LOAD ACS FROM CONTIGUOUS 11 MEM
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 100-1
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES

	000720	012605 				 MOV	(SP)+,R5
    182	000722					DFWRTT	2$,76		;SET FORCE EXTENDED ADRG (NOP ON MOD A)
	000722	012700 	000076 			 MOV	#76,R0	; ** FUNCTION WRITE CODE TO R0
	000726	010146 				 MOV	R1,-(SP)	; ** SAVE R1
	000730	012701 	001060'			 MOV	#2$,R1	; ** BUFFER POINTER TO R1
	000734	004737 	000000G			 JSR	PC,$DDFWR	; ** EXECUTE THE FUNCTION WRITE
	000740	012601 				 MOV	(SP)+,R1	; ** RESTORE R1
    183	000742					DFXCTT	STRCLK		;RESTART CLK
	000742	012700 	000001 			 MOV	#STRCLK,R0	; ** FUNCTION CODE TO R0
	000746	004737 	000000G			 JSR	PC,$DDFXC	; ** EXECUTE THE FUNCTION EXECUTE
    189	000752					RUN	AC14
	000752	004537 	000760'			  JSR	R5,65$		;SAV R5, PT TO & SKIP ARG LIST
	000756	000014 				  .WORD	AC14		;STARTING ADR
	000760	004737 	000000G		65$:	  JSR	PC,RUNPRG	;RUN PRGM 1 TIC USING GIVEN PC
	000764	012605 				 MOV	(SP)+,R5
    190	000766					RESET	CPU		;SHUT OFF FORCE EXTNDED ADR
	000766	004537 	000774'			  JSR	R5,66$		;SAV R5, PT TO & SKIP CPU LIST
	000772	000200 				  .WORD	CPU
	000774	004737 	000000G		66$:	  JSR	PC,.RESET	;RESET SPECIFIED HARDWARE
	001000	012605 				 MOV	(SP)+,R5
    191	001002				1$:	LOADAC	DBEO5M,DBEMIP
	001002	004537 	001012'			  JSR	R5,67$		;SAV R5, PT TO & SKIP ARG LIST
	001006	170005 				  .WORD DBEO5M		;LOAD MASK
	001010	001720'				  .WORD DBEMIP		;PDP11 MEM ADR(S)
	001012	004737 	000000G		67$:	  JSR	PC,ACLOAD	;LOAD ACS FROM CONTIGUOUS 11 MEM
	001016	012605 				 MOV	(SP)+,R5
    192	001020					DPOST	AC1,INDEPR	;INITIAL MEM PTRN TO AC1
	001020	012700 	000001 			 MOV	#AC1,R0	; ** ADDRESS TO R0
	001024	010146 				 MOV	R1,-(SP)	; ** SAVE R1
	001026	012701 	001756'			 MOV	#INDEPR,R1	; ** INDEPR POINTER TO R1
	001032	004737 	000000G			 JSR	PC,$DPOST	; ** EXECUTE THE DEPOSIT
	001036	012601 				 MOV	(SP)+,R1	; ** RESTORE R1
    194	001040					RUN	AC14,10
	001040	004537 	001050'			  JSR	R5,68$		;SAV R5, PT TO & SKIP ARG LIST
	001044	000007 				  .WORD	10-1		;# 60 CYC CLK TICKS TO RUN PRGM (-1)
	001046	000014 				  .WORD	AC14		;STARTING ADR
	001050	004737 	000000G		68$:	  JSR	PC,RUNBIG	;RUN PRGM N TICS USING GIVEN PC
	001054	012605 				 MOV	(SP)+,R5
    195	001056	000207 				RTS	PC
    196
    197	001060				2$:	WD36	0000,0000,0400	;WD FOR DFWR TO FORCE EXTENDED ADRG
	001060	   000 	   001 	   000
	001063	   000 	   000
    198						.EVEN
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 101
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES

    200					.REM	%
    201						THIS IS THE AC PROGRAM WHICH SCANS FOR DOUBLE BIT ERRORS (DBE) AND
    202					RECORDS THEM.  ACBLK 0 DOES A SIMPLE READ/WRITE MARCH TEST IN ONE DIRECTION ONLY
    203					CHANGING ONE PATTERN (APAT) TO ANOTHER (BPAT).  THE PDP-11 MAY CHANGE THE
    204					DIRECTION, LENGTH, AND DATA OF THE SCAN AS REQUIRED.  EVERY FOURTH WORD IS
    205					TESTED WHICH CONFINES THE MARCH TO A PARTICULAR SUBBLOCK (AS DEFINED BY ADR
    206					34-35).  THE TEST REMAINS IN AC BLOCK 0 UNTIL AN ERROR IS DETECTED, WHEREUPON IT
    207					GOES THROUGH AC BLOCKS 1-5 (IN THAT ORDER) TO DECIPHER THE ERROR.  ANYTHING
    208					OTHER THAN A DOUBLE BIT ERROR (DBE) WILL CAUSE AN IMMEDIATE HALT.  CORRECTABLE
    209					ERRORS ARE ASSUMED TO BE IGNORED, THEREFORE WE SHOULD NEVER SEE ONE.
    210						THE PURPOSE OF ALL THIS IS TO FIND WHERE DBE'S OCCUR IN A WAY THAT
    211					ALLOWS US TO SUBSTITUTE FOR ONE OF THE 2 BAD BITS.  IN THIS MANNER WE CAN
    212					ELIMINATE (MAYBE) DBE'S.  BECAUSE ONE OF THE ADDRESS INPUTS TO THE BITSUB RAM IS
    213					ADDRESS BIT 33 WE ALSO BREAKDOWN THE ERRORS ACCORDING TO ADR 33.  THE NATURE OF
    214					THE SUBSTITUTION IS SUCH THAT IF WE HAVE MORE THAN 2 DBE'S FOR EACH VALUE OF ADR
    215					33, THEN ONE BAD BIT OF EACH DBE MUST BE THE SAME OR WE CANNOT SUBSTITUTE.  IF
    216					THIS HAPPENS WE STOP.
    217						%
    218
    219					;-----AC BLOCK 0 DOES A SIMPLE MARCH TEST ACCORDING TO THE PARAMETERS SET UP
    220					; BY THE PDP-11.  CONTROL REMAINS IN THIS ACBLK UNTIL AN ERROR IS DETECTED AT
    221					; WHICH POINT CONTROL GOES TO ACBLK 1.
    222	001066					BLK10
    223	001066				DBESAC:				;0-LOOP COUNT
    224									;1-WD FROM MEM GOES HERE
    225	001066					WD36	0201,0000,0007	;2-BYTE PTR FOR ADR BIT 33
	001066	   007 	   000 	   000
	001071	   201 	   000
    226	001073					WD36	4012,0000,0000	;3-DATAO PAG WD
	001073	   000 	   000 	   000
	001076	   012 	   010
    227	001100				DBETSA:	I10	HRRI,7,,600000	;4-<START> INI TEST START ADR		<DIRECTION
	001100	   000 	   000 	   203
	001103	   013 	   013
    228	001105				DBENWT:	I10	MOVEI,0,,40000	;5-INI # WDS TO TEST			<GROUP
	001105	   000 	   100 	   000
	001110	   010 	   004
    229	001112					I10	MOVE,1,,17	;6-BPAT TO AC FOR EXCH WITH APAT IN MEM
	001112	   017 	   000 	   200
	001115	   000 	   004
    230	001117					I10	EXCH,1,,000000	;7-RD & SAV APAT FROM MEM, WR BPAT
	001117	   000 	   000 	   200
	001122	   100 	   005
    231	001124					I10	CAMN,1,,16	;10-SKIP IF WE GOT BAD DATA
	001124	   016 	   000 	   200
	001127	   160 	   006
    232	001131					IO10	CONSZ,APR,,7700	;11-SKIP IF NO ERR DETECTED
	001131	   300 	   017 	   000
	001134	   003 	   016
    233	001136					IO10	DATAO,PAG,,3	;12-HERE ON ERR...ANALYZE IN ACBLK 1
	001136	   003 	   000 	   200
	001141	   011 	   016
    234	001143				DBEAA:	I10	HRRI,7,,4,7	;13-<FROM 6> NOW CALC NXT ADR TO TEST	<DIRECTION
	001143	   004 	   000 	   234
	001146	   013 	   013
    235	001150					I10	SOJG,0,,6	;14-LP TIL ALL WDS TESTED
	001150	   006 	   000 	   000
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 101-1
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES

	001153	   270 	   007
    236	001155					I10	JRST,4,,0	;15-<NORMAL HALT> MAY HAV FND DBE(S)
	001155	   000 	   000 	   000
	001160	   142 	   005
    237									;16-APAT PUT HERE BY 11			<DATA
    238									;17-BPAT PUT HERE BY 11			<DATA
    239		037774 			DBESM0=037774
    240
    241					; NOTE: <DATA MEANS RELOAD WHEN CHANGING DATA PATTERNS.  THE OTHER <NAME
    242					; FLAGS HAVE SIMILAR MEANINGS.
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 102
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES

    244					;-----AC BLOCK 1 HALTS IF THE ERROR FLAGS INDICATE ANYTHING OTHER THAN A
    245					; DOUBLE BIT ERROR.  OTHERWISE IT GETS THE LATCHED ECC, MOVES THAT ECC TO ACBLK
    246					; 2, AND CLEARS THE CONTROLLER'S ERROR FLAGS.
    247	001162					WD36	4020,0000,0000	;0-DATAO PAG WD
	001162	   000 	   000 	   000
	001165	   020 	   010
    248	001167					I10	MOVSI,16,,770000,10 ;1-SET UP SBDIAG F0 WD IN AC16
	001167	   000 	   360 	   043
	001172	   057 	   004
    249	001174					IO10	SBDIAG,,,16	;2-DO IT TO FIND OUT WHAT HAPPENED
	001174	   016 	   000 	   000
	001177	   005 	   016
    250	001201					I10	TLNN,17,,730000	;3-SKIP IF OTHER THAN RD DATA ERR
	001201	   000 	   260 	   203
	001204	   077 	   014
    251	001206					IO10	CONSZ,APR,,3300	;4-SKIP IF NO UNEXPECTED APR FLAGS...OK
	001206	   300 	   006 	   000
	001211	   003 	   016
    252	001213					I10	JRST,4,,1	;5-<ERROR 1> UNEXPECTED ERROR TYPE
	001213	   001 	   000 	   000
	001216	   142 	   005
    253	001220					IO10	SBDIAG,,,15	;6-NOW RD THE LATCHED ECC FROM CONTR
	001220	   015 	   000 	   000
	001223	   005 	   016
    254	001225					I10	PXCT,4,,14	;7-MOV IT TO ACBLK 2
	001225	   014 	   000 	   000
	001230	   162 	   005
    255	001232				DBECNR:	I10	MOVSI,16,,010000 ;10-SET UP SBDIAG F0 CLR0-5		<CONTROLLER
	001232	   000 	   020 	   000
	001235	   057 	   004
    256	001237					IO10	SBDIAG,,,16	;11- & DO IT TO CLR ERR FLAGS
	001237	   016 	   000 	   000
	001242	   005 	   016
    257	001244					IO10	DATAO,PAG,,0	;12-GO TO ACBLK 2
	001244	   000 	   000 	   200
	001247	   011 	   016
    258	001251					I10	JRST,,,1	;13-<FROM 0>
	001251	   001 	   000 	   000
	001254	   140 	   005
    259	001256					I10	HLLZM,16,,1	;14-PXCTD TO PUT ECC IN ACBLK 2 AC1
	001256	   001 	   000 	   000
	001261	   127 	   012
    260	001263				DBECNL:	WD36	0000,0000,0006	;15-SBDIAG F6.0 GETS LATCHED ECC	<CONTROLLER
	001263	   006 	   000 	   000
	001266	   000 	   000
    261									;16-SCRATCH
    262									;17-SCRATCH, F0 ERR FLAGS HERE ON HALT 1
    263		037777 			DBESM1=037777
    264
    265					;-----AC BLOCK 2 CREATES THE 43 BIT ERROR MAP (IN 2 WORDS) BY XOR'ING THE
    266					; EXPECTED DATA (APAT) AND ECC INTO THE ACTUAL.  IT ALSO MAKES AN INDEX=(0,2)
    267					; BASED ON THE VALUE OF ADR 33 FOR LATER USE.
    268									;0-DATA BIT ERR MAP BUILT HERE
    269									;1-ECC BIT ERR MAP BUILT HERE (07-13)
    270									;2-ERR ADR BIT 33 PUT HERE IN BIT 34
    271	001270					IO10	CONO,APR,,27700	;3-CLR APR FLAGS FOR NXT TIM
	001270	   300 	   057 	   000
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 102-1
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES

	001273	   002 	   016
    272	001275				DBECEB:	I10	TLC,1,,003760	;4-CALC ECC ERR MAP BY XOR W/XPCTD ECC	<DATA
	001275	   360 	   007 	   200
	001300	   010 	   015
    273	001302					I10	TLZ,1,,774017	;5-SHUT OFF OTHER GARBAGE
	001302	   017 	   370 	   203
	001305	   210 	   014
    274	001307					I10	PXCT,4,,14	;6-GET WD FROM MEM FROM ACBLK 0
	001307	   014 	   000 	   000
	001312	   162 	   005
    275	001314					I10	PXCT,4,,15	;7- & CREATE ERR MAP BY XOR WITH APAT
	001314	   015 	   000 	   000
	001317	   162 	   005
    276	001321					I10	PXCT,7,,16	;10-GET ERR ADR BIT 33
	001321	   016 	   000 	   200
	001324	   163 	   005
    277	001326					I10	LSH,2,,1	;11- & PUT IT INTO BIT 34 FOR USE AS NDX
	001326	   001 	   000 	   000
	001331	   021 	   005
    278	001333					IO10	DATAO,PAG,,17	;12-GO TO ACBLK 3
	001333	   017 	   000 	   200
	001336	   011 	   016
    279	001340					I10	JRST,,,3	;13-<FROM 1>
	001340	   003 	   000 	   000
	001343	   140 	   005
    280	001345					I10	MOVE,0,,1	;14-PXCTD TO GET MEM WD FROM ACBLK 0
	001345	   001 	   000 	   000
	001350	   000 	   004
    281	001352					I10	XOR,0,,16	;15-PXCTD TO CALC BIT DIFS
	001352	   016 	   000 	   000
	001355	   300 	   010
    282	001357					I10	LDB,2,,2	;16-PXCTD TO GET ERR ADR 33
	001357	   002 	   000 	   000
	001362	   351 	   002
    283	001364					WD36	4032,0000,0000	;17-DATAO PAG WD
	001364	   000 	   000 	   000
	001367	   032 	   010
    284		177770 			DBESM2=177770
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 103
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES

    286					;-----AC BLOCK 3 COUNTS THE NUMBER OF ERROR BITS AND HALTS IF THERE ARE NOT
    287					; EXACTLY 2 BITS BAD.  WE SHOULDN'T SEE SINGLE BIT ERRORS AND MULTIPLE ERRORS
    288					; CANNOT BE PATCHED, SO WHY GO ON.
    289	001371					I10	ROTC,16,,22	;0-POS NXT 18. BITS FOR ERR BIT CNT
	001371	   022 	   000 	   000
	001374	   057 	   005
    290	001376					I10	JUMPE,17,,4	;1-JUMP IF NO ERR BITS LEFT IN THIS 18.
	001376	   004 	   000 	   200
	001401	   227 	   006
    291	001403					I10	ANDI,17,,777777,17 ;2-ELSE ELIM RIGHTMOST ERR BIT
	001403	   377 	   377 	   277
	001406	   057 	   010
    292	001410					I10	AOJA,11,,1	;3- & COUNT IT THEN LP FOR NXT
	001410	   001 	   000 	   200
	001413	   044 	   007
    293	001415					I10	JUMPN,16,,0	;4-LP IF ANY ERR BITS LEFT TO DO
	001415	   000 	   000 	   000
	001420	   267 	   006
    294	001422					I10	CAIE,11,,2	;5-SKIP IF WE HAVE A DOUBLE BIT ERR...OK
	001422	   002 	   000 	   200
	001425	   024 	   006
    295	001427					I10	JRST,4,,2	;6-<ERROR 2> NOT A DOUBLE BIT ERROR
	001427	   002 	   000 	   000
	001432	   142 	   005
    296	001434					IO10	DATAO,PAG,,10	;7-GO TO ACBLK 4
	001434	   010 	   000 	   200
	001437	   011 	   016
    297	001441					WD36	4042,0000,0000	;10-DATAO PAG WD
	001441	   000 	   000 	   000
	001444	   042 	   010
    298									;11-ERR BIT COUNT GOES HERE
    299	001446					I10	DMOVE,16,,0	;12-PXCTD TO GET ERR MAPS FROM ACBLK 2
	001446	   000 	   000 	   000
	001451	   207 	   002
    300	001453					I10	PXCT,4,,12	;13-<FROM 2> GET ERR MAP WDS
	001453	   012 	   000 	   000
	001456	   162 	   005
    301	001460					I10	MOVEI,11,,0	;14-RESET ERR BIT CNT
	001460	   000 	   000 	   200
	001463	   014 	   004
    302	001465					I10	JRST,,,0	;15-
	001465	   000 	   000 	   000
	001470	   140 	   005
    303									;16-SCRATCH
    304									;17-SCRATCH
    305		036777 			DBESM3=036777
    306
    307					;-----AC BLOCK 4 MOSTLY JUST SHUFFLES ERROR INFO FROM ACBLK 2 TO 5.  IT ALSO
    308					; DECIDES IF THE ERROR MAP FOR THIS PARTICULAR VALUE OF ADR 33 HAS BEEN
    309					; INITIALIZED.  IF NOT IT CAUSES TRANSFER TO A DIFFERENT POINT IN ACBLK 5 WHICH
    310					; DOES THE INIT.
    311	001472					I10	MOVE,7,,2,5	;0-PXCTD & MODIFIED TO MOVE DATA
	001472	   002 	   000 	   224
	001475	   003 	   004
    312	001477					I10	TLON,4,@,4,7	;1-SKIP IF THIS ADR 33 INI ALREADY DONE
	001477	   004 	   000 	   134
	001502	   272 	   015
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 103-1
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES

    313	001504					IO10	DATAO,PAG,,4	;2-ELSE ENTER ACBLK 5 TO FORCE INIT
	001504	   004 	   000 	   200
	001507	   011 	   016
    314	001511					IO10	DATAO,PAG,,4	;3-HERE FOR NORMAL EXIT TO ACBLK 5
	001511	   004 	   000 	   200
	001514	   011 	   016
    315	001516				DBEIFW:	WD36	4050,0000,0100	;4-DATAO PAG WD & ADR 33 INIT FLAG BITS	<SUBBLOCK
	001516	   100 	   000 	   000
	001521	   050 	   010
    316									;5-DATA MOVER INDEX
    317	001523					WD36	4042,0000,0200	;6-PREV ACBLK # TOGGLED FOR DATA MOVE
	001523	   200 	   000 	   000
	001526	   042 	   010
    318									;7-WORDS STOP HERE ON THEIR JOURNEY
    319	001530				DBEMNI:	I10	MOVNI,5,,2	;10-<FROM 3> INI DATA MOVER INDEX	<SUBBLOCK
	001530	   002 	   000 	   200
	001533	   112 	   004
    320	001535					IO10	DATAO,PAG,,6	;11-SET PREV ACBLK
	001535	   006 	   000 	   200
	001540	   011 	   016
    321	001542					I10	PXCT,4,,0	;12-GET DATA OR SHIP IT OUT
	001542	   000 	   000 	   000
	001545	   162 	   005
    322	001547					I10	TLC,6,,700	;13-TOGGLE TO OTHER BLOCK
	001547	   300 	   001 	   000
	001552	   013 	   015
    323	001554					I10	TLCN,0,,2000	;14-MOVE/MOVEM & SKIP IF MOVEM JUST DONE
	001554	   000 	   004 	   000
	001557	   070 	   015
    324	001561					I10	JRST,,,11	;15-ELSE GO BACK & DO MOVEM
	001561	   011 	   000 	   000
	001564	   140 	   005
    325	001566					I10	AOJLE,5,,11	;16-LP TIL ALL WDS MOVED
	001566	   011 	   000 	   200
	001571	   032 	   007
    326	001573					I10	JRST,,,1	;17-
	001573	   001 	   000 	   000
	001576	   140 	   005
    327		177537 			DBESM4=177537
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 104
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES

    329					;-----AC BLOCK 5 CHECKS TO SEE THAT THERE IS AT LEAST ONE BIT IN COMMON
    330					; BETWEEN THE PREVIOUS DBE AND THE NEW DBE.  IF NOT IT HALTS, OTHERWISE IT
    331					; ELIMINATES THE BITS NOT IN COMMON FROM FURTHER CONSIDERATION.  THEN IT RETURNS
    332					; TO ACBLK 0 TO RESUME THE MARCH.
    333									;0-NEW DATA ERR MAP PUT HERE
    334									;1-NEW ECC ERR MAP PUT HERE
    335									;2-ADR 33 NDX PUT HERE
    336	001600					I10	DMOVEM,0,,14,2	;3-<FROM 4> INI PREV ERR MAP ON 1ST DBE
	001600	   014 	   000 	   010
	001603	   240 	   002
    337	001605					I10	TDCN,0,,14,2	;4-<FROM 4> HERE WE SEE IF THE NEW DBE
	001605	   014 	   000 	   010
	001610	   160 	   015
    338	001612					I10	TDNE,1,,15,2	;5-  HAS AT LEAST ONE BAD BIT IN COMMON
	001612	   015 	   000 	   210
	001615	   120 	   014
    339	001617					I10	TDCA,1,,15,2	;6-  WITH THE PREVIOUS DBE.  IF NOT
	001617	   015 	   000 	   210
	001622	   140 	   015
    340	001624				DBEH3:	I10	JRST,4,,3	;7-<ERROR 3> CANNOT PATCH OUT BOTH ERRS.
	001624	   003 	   000 	   000
	001627	   142 	   005
    341	001631					I10	ANDCAM,0,,14,2	;10-OFF BIT NOT IN COMMON IN DATA WD
	001631	   014 	   000 	   010
	001634	   120 	   010
    342	001636					I10	ANDCAM,1,,15,2	;11-SAME FOR ECC
	001636	   015 	   000 	   210
	001641	   120 	   010
    343	001643					IO10	DATAO,PAG,,13	;12-BACK TO ACBLK 0...CONTINUE SCAN
	001643	   013 	   000 	   200
	001646	   011 	   016
    344	001650					WD36	4000,0000,0000	;13-DATAO PAG WD
	001650	   000 	   000 	   000
	001653	   000 	   010
    345									;14-COMMON ERR BIT(S), DATA, ADR 33=0
    346									;15-COMMON ERR BIT(S), ECC, ADR 33=0
    347									;16-COMMON ERR BIT(S), DATA, ADR 33=1
    348									;17-COMMON ERR BIT(S), ECC, ADR 33=1
    349		007770 			DBESM5=007770
    350
    351					;-----OVERLAY FOR ACBLK 0 TO CAUSE DESCENDING ADDRESSING.
    352	001655				DBETEA:	I10	HRRI,7,,777774	;4-LD ST ADR AT HI END
	001655	   374 	   377 	   203
	001660	   013 	   013
    353	001662					I10	HRRI,7,,777774,7 ;13-CALC NXT LOWER ADR IN SUBBLOCK
	001662	   374 	   377 	   237
	001665	   013 	   013
    354
    355					;-----OVERLAY FOR ACBLK 5 USED TO INIT SHADOW MEM LOCATIONS 0-17.  IS RUN IN
    356					; FORCE EXTENDED ADDRESSING MODE.
    357	001667				DBESMP:				;0-NOT USED BY THIS OVERLAY
    358	001667					WD36	0000,2000,0017	;1-ADR WITH BIT13 SET FORCES MEM REF
	001667	   017 	   000 	   100
	001672	   000 	   000
    359									;2-13 NOT USED BY THIS OVERLAY
    360	001674					I10	SETZM,,,0,1	;14-<START> CLR SHADOW MEM LOC PTD TO BY AC1
	001674	   000 	   000 	   004
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 104-1
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES

	001677	   020 	   010
    361	001701					I10	TRNE,1,,17	;15-SKIP IF ALL 20 SHADOW MEM WORDS CLEARED
	001701	   017 	   000 	   200
	001704	   020 	   014
    362	001706					I10	SOJA,1,,14	;16-ELSE PT TO NEXT WD & DO IT
	001706	   014 	   000 	   200
	001711	   240 	   007
    363	001713					I10	JRST,4,,0	;17-HALT WHEN DONE
	001713	   000 	   000 	   000
	001716	   142 	   005
    364		170002 			DBESMM=170002	;AC PRGM OVERLAY LD MSK
    365
    366					;-----OVERLAY FOR AC BLOCK 5 TO INIT THE WORDS OF THE BLOCK TO THE FIRST DATA
    367					; PATTERN REQUIRED BY THE DOUBLE BIT ERROR SCAN.
    368
    369	001720				DBEMIP:	WD36	0100,0000,0000	;0-FCN 0 WD TO CLR ERROR FLAGS
	001720	   000 	   000 	   000
	001723	   100 	   000
    370									;1- 1ST APAT PUT HERE (FROM INDEPR)
    371	001725				DBEMIA:	WD36	7777,7760,0000	;2- -1,,BLK ST ADR, OVERFLOWS TO 0 AT BLK END
	001725	   000 	   000 	   377
	001730	   377 	   017
    372									;3-13 NOT USED BY THIS OVERLAY
    373	001732					I10	MOVEM,1,,0,2	;14-<START> MOVE FIRST APAT TO MEM WD
	001732	   000 	   000 	   210
	001735	   020 	   004
    374	001737					I10	AOJL,2,,14	;15-PT TO NXT WD & LP TIL ALL DONE
	001737	   014 	   000 	   000
	001742	   011 	   007
    375	001744					IO10	SBDIAG,,,0	;16-CLR ERR FLAGS IN CONTR
	001744	   000 	   000 	   000
	001747	   005 	   016
    376	001751					I10	JRST,4,,0	;17-STOP.  BLK ALL INITIALIZED TO FIRST APAT
	001751	   000 	   000 	   000
	001754	   142 	   005
    377
    378		170005 			DBEO5M=170005
    379
    380	001756					ENDBLK
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 105
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES

    382					.REM	%
    383						INDEPR IS A SET OF 11 36-BIT WORDS WHICH HAS THE FOLLOWING PROPERTY: ALL
    384					4 STATES (00,01,10,11) OF EVERY POSSIBLE BIT PAIR IN THE 36 DATA & 7 ECC BITS
    385					(THERE ARE 903 PAIRS IN 43 BITS) EXIST IN AT LEAST 1 OF THE PATTERNS.  THIS
    386					MEANS THAT ANY HARD FAILURE OF 2 (OR 1) BITS WILL BE DETECTED BY THESE PATTERNS
    387					REGARDLESS OF THE FAILING BITS' POLARITIES.
    388						THE FIRST 10 PATTERNS ARE SUFFICIENT TO COVER THE 36 DATA BITS.  THE
    389					11TH PATTERN COVERS THE FEW HOLES LEFT IN ECC/ECC & DATA/ECC PAIR STATES.  NOTE
    390					THAT ECC IS DEFINED HERE AS BEING THE MF20 ECC SCHEME.  NOTE ALSO THAT THE FIRST
    391					10 DATA PATTERNS ALSO TEST ALL BIT PAIRS INVOLVING THE 36-BIT PARITY BIT.
    392						%
    393
    394	001756				INDEPR:	WD36	0366,2447,5570	;ECC=216
	001756	   170 	   173 	   122
	001761	   366 	   000
    395	001763					WD36	0430,7552,3056	;ECC=066
	001763	   056 	   246 	   366
	001766	   030 	   001
    396	001770					WD36	3153,3026,0713	;ECC=332
	001770	   313 	   141 	   141
	001773	   153 	   006
    397	001775					WD36	4204,4210,4124	;ECC=106
	001775	   124 	   210 	   210
	002000	   204 	   010
    398	002002					WD36	7721,0775,3641	;ECC=174
	002002	   241 	   327 	   037
	002005	   321 	   017
    399	002007					WD36	1077,1301,7227	;ECC=226
	002007	   227 	   036 	   054
	002012	   077 	   002
    400	002014					WD36	7404,6464,6716	;ECC=350
	002014	   316 	   115 	   323
	002017	   004 	   017
    401	002021					WD36	6542,5133,0061	;ECC=052
	002021	   061 	   260 	   245
	002024	   142 	   015
    402	002026					WD36	2213,3700,5700	;ECC=246
	002026	   300 	   013 	   174
	002031	   213 	   004
    403	002033					WD36	5375,4266,0016	;ECC=040
	002033	   016 	   140 	   213
	002036	   375 	   012
    404	002040					WD36	0557,7713,7777	;ECC=320, INCLUDED TO FILL HOLES
	002040	   377 	   277 	   374
	002043	   157 	   001
    405
    406	002045					WD36	0000,0000,0000	;ECC=376, WRITTEN LAST, NOT CHECKED
	002045	   000 	   000 	   000
	002050	   000 	   000
    408
    409					;-----LIST OF ECC VALUES FOR THE ABOVE PATTERNS
    410	002052	   216 	   066 	   332 	IPECC:	.BYTE	216,066,332,106,174,226,350,052,246,040,320,376
    411
    412					;-----SBDIAG FUNCTION 07 WORD USED TO SET THE SPARE BIT NUMBER.
    413						.EVEN
    414	002066	   007 			DBEF07:	.BYTE	7		;FCN #
    415	002067	   377 			DBEF7A:	.BYTE	...		;BITSUB RAM ADR TO LD			<BLOCK
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 105-1
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES

    416	002070	177777 			DBEF7D:	.WORD	......	;BIT # TO SUB FOR, ICE, PAR, LD EN
    417	002072	   000 				.BYTE	0
    418
    419	002073	   377 			UCEFIB:	.BYTE	...		;UNCORR ERR FOUND IN BLK IF > -1
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 106
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES

    421					.REM	%
    422						FIXSB IS THE SUBROUTINE WHICH CONTROLLS THE RUNNING OF THE DBE SCANNER
    423					AC PROGRAM.  THE THEORY IS SIMPLE ALTHOUGH IT LOOKS RATHER BAD.  WHEN THIS
    424					ROUTINE IS CALLED THE SUBBLOCK IS ALREADY INITIALIZED TO THE FIRST DATA PATTERN.
    425					ALL SPARE BITS ARE DESELECTED AND ALL ICE (IGNORE CORRECTABLE ERROR) BITS ARE
    426					ON.  WE THEN LOAD UP THE PARAMETERS REQUIRED TO WORK ON THE SUBBLOCK (# IN R0)
    427					AND RUN THE PROGRAM.  WHEN IT HALTS WE CHECK THE HALT CODE.  FATAL ERRORS STOP
    428					THE PROGRAM RIGHT HERE, ELSE WE SEE IF THERE WERE ANY DBE'S.  IF NOT WE SIMPLY
    429					RETURN WITH C-BIT CLEAR, ELSE WE GO GET THE ERROR MAPS.  THERE ARE 2 MAPS; ONE
    430					FOR ADR 33=0 AND THE OTHER FOR ADR 33=1.  WE SCAN THESE MAPS TO GET 0, 1, OR 2
    431					ERROR BIT NUMBERS FROM EACH.  WE CHECK TO SEE IF THERE IS A COMMON ERROR BIT
    432					BETWEEN THE TWO MAPS.  IF SO WE USE THIS BIT # FOR SUBSTITUTION, ELSE WE USE THE
    433					RIGHTMOST BIT FOR EACH ADR 33.  AFTER SUBSTITUTION WE RE-WRITE THE A-PATTERN
    434					THROUGH THE BLOCK AND GO TEST THE SUBBLOCK AGAIN.  IF NO DBE'S SHOW UP WE RETURN
    435					WITH THE C-BIT CLEAR AND THE #S OF THE SWAPPED BITS IN R0, ELSE WE DO A C-BIT
    436					SET RETURN INDICATING THE SUBBLOCK CANNOT BE USED.
    437						%
    438					;-----SET UP SUBBLOCK NUMBER (IN R0) RELATED DATA.
    439	002074				FIXSB:	SAV.5
	002074	004737 	000000G			  JSR	PC,SAV.5	;SAVE R5-R1 ON STACK
    440	002100	142737 	000007 	002067'		BICB	#7,DBEF7A	;SBDIAG F07 SUBBLOCK #
    441	002106	150037 	002067'			BISB	R0,DBEF7A
    442	002112	142737 	000003 	001655'		BICB	#3,DBETEA	;LAST ADR IN SUBBLOCK
    443	002120	150037 	001655'			BISB	R0,DBETEA
    444	002124	142737 	000003 	001100'		BICB	#3,DBETSA	;FIRST ADR IN SUBBLOCK
    445	002132	150037 	001100'			BISB	R0,DBETSA
    446	002136	012705 	177777 			MOV	#-1,R5		;INI BIT SWAPS WD TO SAY NO SWAPS YET
    447	002142					ACBLK	4		;GO TO AC BLOCK 4
	002142	012700 	000004 			  MOV	#4,R0		;AC BLK # TO R0
	002146	004737 	000000G			  JSR	PC,ACBLK1	;SWITCH TO AC BLK
    448	002152					LOADAC	ACC4+ACC10,<DBEIFW,DBEMNI> ;REPAIR MODIFIED WORDS THERE
	002152	004537 	002164'			  JSR	R5,64$		;SAV R5, PT TO & SKIP ARG LIST
	002156	000420 				  .WORD ACC4+ACC10		;LOAD MASK
	002160	001516'	001530'			  .WORD DBEIFW,DBEMNI		;PDP11 MEM ADR(S)
	002164	004737 	000000G		64$:	  JSR	PC,ACSCAT	;LD ACS FROM SCATTERED 11 ADRS
	002170	012605 				 MOV	(SP)+,R5
    449					;-----INIT FOR DATA PATTERN LOOP.
    450	002172	005003 			1$:	CLR	R3		;PASS CNT =0
    451	002174	012704 	001756'			MOV	#INDEPR,R4	;DATA PTRN PTR
    453					;-----TOP OF DATA PATTERNS (PASS) LOOP.
    454	002200	116300 	002052'		2$:	MOVB	IPECC(R3),R0	;GET PROPER ECC VALUE
    455	002204	042700 	177400 			BIC	#177400,R0	;DE-JUNK
    456	002210	004737 	000000G			JSR	PC,ASL0.3	;POSITION IT
    457	002214	110037 	001275'			MOVB	R0,DBECEB	;MOVE IT TO THE RIGHT PLACE
    458	002220	000300 				SWAB	R0
    459	002222	110037 	001276'			MOVB	R0,DBECEB+1
    460	002226					ACBLK	2		;GO PUT XPCTD ECC INTO AC PRGM
	002226	012700 	000002 			  MOV	#2,R0		;AC BLK # TO R0
	002232	004737 	000000G			  JSR	PC,ACBLK1	;SWITCH TO AC BLK
    461	002236					LOADAC	ACC4,DBECEB
	002236	004537 	002246'			  JSR	R5,65$		;SAV R5, PT TO & SKIP ARG LIST
	002242	000020 				  .WORD ACC4		;LOAD MASK
	002244	001275'				  .WORD DBECEB		;PDP11 MEM ADR(S)
	002246	004737 	000000G		65$:	  JSR	PC,ACLOAD	;LOAD ACS FROM CONTIGUOUS 11 MEM
	002252	012605 				 MOV	(SP)+,R5
    462	002254					RESET	CPU		;CLR CPU AND GO TO ACBLK 0
	002254	004537 	002262'			  JSR	R5,66$		;SAV R5, PT TO & SKIP CPU LIST
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 106-1
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES

	002260	000200 				  .WORD	CPU
	002262	004737 	000000G		66$:	  JSR	PC,.RESET	;RESET SPECIFIED HARDWARE
	002266	012605 				 MOV	(SP)+,R5
    463	002270	032703 	000001 			BIT	#1,R3		;EVEN PASS?
    464	002274	001023 				BNE	4$		;NO...DON'T LOAD SCAN DIRECTION PARAMS
    465	002276	032703 	000002 			BIT	#2,R3		;SHD WE LD FWD OR REV DIRECTION SCAN?
    466	002302	001011 				BNE	3$		;LD REV DIR SCAN WDS
    467	002304					LOADAC	ACC4+ACC13,<DBETSA,DBEAA> ;ELSE LD FWD DIR SCAN WDS
	002304	004537 	002316'			  JSR	R5,67$		;SAV R5, PT TO & SKIP ARG LIST
	002310	004020 				  .WORD ACC4+ACC13		;LOAD MASK
	002312	001100'	001143'			  .WORD DBETSA,DBEAA		;PDP11 MEM ADR(S)
	002316	004737 	000000G		67$:	  JSR	PC,ACSCAT	;LD ACS FROM SCATTERED 11 ADRS
	002322	012605 				 MOV	(SP)+,R5
    468	002324	000407 				BR	4$
    469	002326				3$:	LOADAC	ACC4+ACC13,DBETEA
	002326	004537 	002336'			  JSR	R5,68$		;SAV R5, PT TO & SKIP ARG LIST
	002332	004020 				  .WORD ACC4+ACC13		;LOAD MASK
	002334	001655'				  .WORD DBETEA		;PDP11 MEM ADR(S)
	002336	004737 	000000G		68$:	  JSR	PC,ACLOAD	;LOAD ACS FROM CONTIGUOUS 11 MEM
	002342	012605 				 MOV	(SP)+,R5
    471	002344				4$:	PUSH	R5		;SAV R5
	002344	010546 				 MOV	R5,-(SP)
    472	002346					PUSH	<R4,#ACC16+ACC17> ;PUSH ARGS ON STK IN REVERSE ORDER
	002346	010446 				 MOV	R4,-(SP)
	002350	012746 	140000 			 MOV	#ACC16+ACC17,-(SP)
    473	002354	010605 				MOV	SP,R5		;PT TO ARGS WITH R5
    474	002356	004737 	000000G			JSR	PC,ACLOAD	;LOAD ACS FROM CONTIGUOUS 11 MEM
    475	002362	032626 				BIT	(SP)+,(SP)+	;DEL ARG WDS FROM STK -- C BIT NOT AFFECTED
    476	002364					POP	R5		;RESTORE R5
	002364	012605 				 MOV	(SP)+,R5
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 107
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES

    484					;-----NOW RUN THE PROGRAM AND BRANCH ACCORDING TO HALT CODE.
    485	002366					RUN	AC4,100
	002366	004537 	002376'			  JSR	R5,69$		;SAV R5, PT TO & SKIP ARG LIST
	002372	000077 				  .WORD	100-1		;# 60 CYC CLK TICKS TO RUN PRGM (-1)
	002374	000004 				  .WORD	AC4		;STARTING ADR
	002376	004737 	000000G		69$:	  JSR	PC,RUNBIG	;RUN PRGM N TICS USING GIVEN PC
	002402	012605 				 MOV	(SP)+,R5
    486	002404	020027 	000004 			CMP	R0,#4		;IS HALT CODE LEGAL?
    487	002410	103404 				BLO	6$		;YES
    488	002412					FATAL	SIH	;DBE SCAN ILLEGAL HALT CODE
	002412	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "SIH" ERROR
	002416	   123 	   111 	   110 		 .ASCIZ	%SIH%
    489	002422	006300 			6$:	ASL	R0		;DBL CODE FOR USE AS BRANCH NDX
    490	002424	000170 	002430'			JMP	@7$(R0)	;GO TO APPROPRIATE CODE
    491	002430	002722'	002440'	002712'	7$:	.WORD	16$,8$,14$,15$	;DISPATCH ADRS BASED ON R0
    492
    493					;-----UNEXPECTED ERROR TYPE: APR OTHER THAN SBUS ERR, MB PAR; SBDIAG F0
    494					; OTHER THAN RD PAR.
    495	002440				8$:	ACBLK	0		;GO TO BLK 0 SO WE DON'T CLOBBER AC PRGM
	002440	012700 	000000 			  MOV	#0,R0		;AC BLK # TO R0
	002444	004737 	000000G			  JSR	PC,ACBLK1	;SWITCH TO AC BLK
    496	002450	005002 				CLR	R2		;IND NO ERRS
    497	002452					XX	CIAPR0		;READ APR FLAGS
	002452	012700 	000000G			  MOV	#CIAPR0,R0		;PT R0 AT INSTR
	002456	004737 	000000G			  JSR	PC,XX1		;EXEC INSTR (ADDR IN R0) & EXAM AC0
    498	002462	032710 	003300 			BIT	#3300,(R0)	;ANY UNEXPECTED FLAG SET?
    499	002466	001401 				BEQ	9$		;NO...CHECK F0
    509	002470	005202 				INC	R2		;SET ERR STOP FLAG
    510	002472				9$:	SBDIAG	0000,0000,0000	;DO FCN 0 TO GET CONTR'S ERR FLAGS
	002472	004537 	002502'			  JSR	R5,70$		;SAV R5, PT TO & SKIP ARG LIST
	002476	000000 	000000
	002502	004737 	000000G		70$:	  JSR	PC,SBDT		;DO SBUS DIAG...WORD FOLLOWS
	002506	012605 				 MOV	(SP)+,R5
    511	002510	032760 	140000 	000002 		BIT	#140000,2(R0)	;TEST FOR WR DATA OR ADR PAR ERR
    512	002516	001004 				BNE	10$		;BR IF FND...FATAL
    513	002520	132760 	000014 	000004 		BITB	#14,4(R0)	;TEST FOR CONTR ERR, INCMP CYC
    514	002526	001424 				BEQ	11$		;NOT FOUND...NO CONTR ERR
    515	002530	005202 			10$:	INC	R2		;ELSE SET ERR STOP FLAG
    519	002532					PMSG	<SBDIAG FCN 0: >
	002532	012700 	002544'			 MOV	#71$,R0		; ** MESSAGE POINTER TO R0
	002536	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	002542	000410 				 BR	72$		; ** BRANCH AROUND TEXT
	002544	   123 	   102 	   104 	71$:	 .ASCIZ	%SBDIAG FCN 0: %
    520	002564	012700 	000000G			MOV	#SDWDFM,R0	;PT TO F0 WD
    521	002570					PNT36B			;PNT WD
	002570	004737 	000000G			 JSR	PC,$WDD36	; ** CALL TO PRINT ROUTINE
    522	002574					PCRLF
	002574	004737 	000000G			 JSR	PC,$TCRLF	; ** PRINT A <CR><LF>
    524	002600	005702 			11$:	TST	R2		;APR OR F0 SHOW ERR?
    525	002602	001443 				BEQ	14$		;NO...WAS "CORR ERR"...THEREFORE WAS 3BE
    526	002604					ERROR	<HDWR FAULT DURING SCAN FOR MF20 DOUBLE BIT ERRS>
	002604	012700 	002616'			 MOV	#73$,R0		; ** MESSAGE POINTER TO R0
	002610	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	002614	000430 				 BR	74$		; ** BRANCH AROUND TEXT
	002616	   110 	   104 	   127 	73$:	 .ASCIZ	%HDWR FAULT DURING SCAN FOR MF20 DOUBLE BIT ERRS%
	002676	004737 	000000G			 JSR	PC,$TCRLF	; ** PRINT A <CR><LF>
	002702	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "ERM" ERROR
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 107-1
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES

	002706	   105 	   122 	   115 		 .ASCIZ	%ERM%
    536
    537					;-----HERE FOR NON-DBE DATA ERROR.  PROBABLY A >2 BIT ERROR.
    538	002712				14$:
    539					;-----HERE FOR UNPATCHABLE COMBINATIONS OF DBE'S OR WHEN PATCHES ARE IN BUT
    540					; A DBE WAS DETECTED ANYWAY.  DO A C-BIT SET RETURN.
    541	002712	105237 	002073'		15$:	INCB	UCEFIB		;IND UNCORR ERR FND
    542	002716	000261 				SEC
    543	002720	000427 				BR	19$		;GO TO EXIT
    544
    545					;-----HERE FOR NORMAL HALT.  MAKE SURE ALL PATTERNS ARE RUN.
    546	002722	062704 	000005 		16$:	ADD	#5,R4		;PT TO NXT APAT/BPAT PAIR
    547	002726	005203 				INC	R3		;BUMP PASS #
    548	002730	020327 	000013 			CMP	R3,#11.		;DONE ALL PASSES?
    549	002734	002002 				BGE	17$		;BR IF YES
    550	002736	000137 	002200'			JMP	2$		;ELSE LOOP
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 108
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES

    552					;-----11 PASS SCAN DONE.  CHECK FOR PRESENSE OF DBE'S.
    553	002742	020527 	177777 		17$:	CMP	R5,#-1		;PATCHES DONE YET?
    554	002746	001013 				BNE	18$		;YES...NO DBE'S FND...DO C-BIT CLR EXIT
    555	002750					READAC	BLK4,AC4	;GET ADR 33 FLG BITS WHICH IND DBE'S
	002750	004537 	002756'			  JSR	R5,75$		;SAV R5, PT TO & SKIP ARG LIST
	002754	   004 	   004 			  .BYTE	BLK4,AC4
	002756	004737 	000000G		75$:	  JSR	PC,READAC	;READ THE SPECIFIED ACCUMULATOR
	002762	012605 				 MOV	(SP)+,R5
    556	002764	116002 	000003 			MOVB	3(R0),R2
    557	002770	042702 	177774 			BIC	#-4,R2
    558	002774	001006 				BNE	21$		;BR IF >0 DBE...MUST TRY TO PATCH
    559	002776	000241 			18$:	CLC			;ELSE NO ERRS...DO C-BIT CLR EXIT
    560	003000	010500 			19$:	MOV	R5,R0		;PUT PATCHED OUT BIT #S IN R0
    561	003002					R5.PC			;RETURN
	003002	000137 	000000G			  JMP	R5.PC		;RESTORE R1-R5 FROM STACK & DO RTS PC
    562
    563	003006	   000 	   003 	   014 	20$:	.BYTE	00,03,14,17
    564
    565					;-----ERRORS FOUND.  READ ERROR MAPS USING DBUF FOR SCRATCH AREA.
    566	003012				21$:	LOADAC	ACC10,DBEH3	;HALT,,,3 TO ACBLK 4...DBE IS NOW FATAL
	003012	004537 	003022'			  JSR	R5,76$		;SAV R5, PT TO & SKIP ARG LIST
	003016	000400 				  .WORD ACC10		;LOAD MASK
	003020	001624'				  .WORD DBEH3		;PDP11 MEM ADR(S)
	003022	004737 	000000G		76$:	  JSR	PC,ACLOAD	;LOAD ACS FROM CONTIGUOUS 11 MEM
	003026	012605 				 MOV	(SP)+,R5
    567	003030					ACBLK	5		;GO TO WHERE ERR MAPS ARE
	003030	012700 	000005 			  MOV	#5,R0		;AC BLK # TO R0
	003034	004737 	000000G			  JSR	PC,ACBLK1	;SWITCH TO AC BLK
    568	003040	116203 	003006'			MOVB	20$(R2),R3	;GET MAP OF WHICH ACS TO RD
    569	003044					PUSH	R2
	003044	010246 				 MOV	R2,-(SP)
    570	003046	012701 	000000G			MOV	#DBUF,R1	;PTR TO WHERE MAPS GO IN 11 MEM
    571	003052	012702 	000014 			MOV	#AC14,R2	;INI AC #
    572	003056	006203 			22$:	ASR	R3		;DO WE NEED THIS WD?
    573	003060	103007 				BCC	25$		;NO
    575	003062					PUSH	R1
	003062	010146 				 MOV	R1,-(SP)
    576	003064	010200 				MOV	R2,R0
    577	003066					EXAMT
	003066	004737 	000000G			 JSR	PC,$EXAMT	; ** EXECUTE THE KL10 EXAMINE
    578	003072					POP	R1
	003072	012601 				 MOV	(SP)+,R1
    586	003074	004737 	000000G			JSR	PC,CHKED
    587	003100	062701 	000005 		25$:	ADD	#5,R1		;NXT 11 ADR
    588	003104	105021 				CLRB	(R1)+
    589	003106	005202 				INC	R2		;NXT AC
    590	003110	005703 				TST	R3		;DONE?
    591	003112	001361 				BNE	22$		;NO...KEEP GOING
    592	003114					POP	R2
	003114	012602 				 MOV	(SP)+,R2
    594
    595					;-----SECTION TO EXTRACT ERROR BIT NUMBERS FROM ADR 33=1,0 ERR MAPS.
    596	003116	012700 	100200 			MOV	#100200,R0	;IND NO BITS BAD
    597	003122	032702 	000002 			BIT	#2,R2		;WAS THERE A DBE FOR ADR 33=1?
    598	003126	001406 				BEQ	26$		;NO...DONT SCAN
    599	003130					PUSH	R1
	003130	010146 				 MOV	R1,-(SP)
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 108-1
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES

    600	003132	012701 	000014G			MOV	#DBUF+<2*6>,R1	;PT TO DATA WDS
    601	003136	004737 	003340'			JSR	PC,34$
    602	003142					POP	R1
	003142	012601 				 MOV	(SP)+,R1
    603	003144	010001 			26$:	MOV	R0,R1		;R1 NOW HAS ADR 33=1 ERR BIT #S
    604	003146	012700 	177777 			MOV	#177777,R0	;IND NO BITS BAD
    605	003152	032702 	000001 			BIT	#1,R2		;WAS THERE A DBE FOR ADR 33=0?
    606	003156	001406 				BEQ	27$		;NO...DONT SCAN
    607	003160					PUSH	R1
	003160	010146 				 MOV	R1,-(SP)
    608	003162	012701 	000000G			MOV	#DBUF,R1	;PT TO DATA WDS
    609	003166	004737 	003340'			JSR	PC,34$
    610	003172					POP	R1
	003172	012601 				 MOV	(SP)+,R1
    611	003174				27$:				;R0 NOW HAS ADR 33=0 ERR BIT #S
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 109
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES

    613					;-----FIND OUT IF THERE WAS A BIT IN COMMON BETWEEN ADR 33=0 AN 1.
    614	003174	012702 	000002 			MOV	#2,R2		;LP CNT
    615	003200	012703 	000002 		28$:	MOV	#2,R3		;LP CNT
    616	003204	000300 				SWAB	R0
    617	003206	000301 			29$:	SWAB	R1
    618	003210	120001 				CMPB	R0,R1		;BIT # SAME?
    619	003212	001402 				BEQ	30$		;YES...USE THIS BIT
    620	003214	077304 				SOB	R3,29$
    621	003216	077210 				SOB	R2,28$
    622	003220	010105 			30$:	MOV	R1,R5		;PUT BIT SWAP #S INTO R5
    623	003222	000305 				SWAB	R5
    624	003224	105005 				CLRB	R5
    625	003226	150005 				BISB	R0,R5		;ADR33=1 IN LH, ADR33=0 IN RH
    626
    627					;-----MAKE SWAPS BY CHANGING BITSUB RAM AND THEN REWRITE MEMORY.
    628	003230	105700 				TSTB	R0		;SHD A SWAP BE MADE FOR ADR33=0?
    629	003232	002402 				BLT	31$		;NO...DONT MODIFY RAM
    630	003234	004737 	003266'			JSR	PC,33$		;ELSE GO FIX IT
    631	003240	110100 			31$:	MOVB	R1,R0		;SHD A SWAP BE MADE FOR ADR33=1?
    632	003242	002405 				BLT	32$		;NO
    633	003244	152737 	000004 	002067'		BISB	#4,DBEF7A	;ELSE SET ADR 33 BIT IN F7 RAM LD ADR
    634	003252	004737 	003266'			JSR	PC,33$		; AND GO SET RAM
    635	003256	004737 	000674'		32$:	JSR	PC,DBESMQ	;GO REWRITE MOS RAMS TO INI SPARE BIT
    636	003262	000137 	002172'			JMP	1$		;GO BAK & TEST IT ALL OVER AGAIN
    637
    638					;-----LITTLE SUBROUTINE TO ACTUALLY DO THE SWAP.
    639	003266	000300 			33$:	SWAB	R0		;POSITION THE BIT #
    640	003270	006200 				ASR	R0
    641	003272	052700 	000100 			BIS	#100,R0		;TURN ON ICE BIT (BIT13)
    642	003276	042700 	160077 			BIC	#160077,R0	;SHUT OFF ALL JUNK
    643	003302					SETPAR	40		;SET THE PARITY BIT AS REQUIRED
	003302	004537 	003310'			  JSR	R5,77$		;SAV R5, PT TO & SKIP ARG LIST
	003306	000040 				  .WORD	40
	003310	004737 	000000G		77$:	  JSR	PC,SETPAR	;SET PARITY BIT IN R0 USING 40
	003314	012605 				 MOV	(SP)+,R5
    644	003316	052700 	000020 			BIS	#20,R0		;SET LD EN BIT
    645	003322	010037 	002070'			MOV	R0,DBEF7D	;DATA TO F7 WD
    646	003326					SBDIAG	DBEF07		;LD THE RAM LOCATION
	003326	012700 	002066'			  MOV	#DBEF07,R0		;PT TO ARG
	003332	004737 	000000G			  JSR	PC,SBD0		;DO SBUS DIAG...ADR OF WD IN R0
    647	003336	000207 				RTS	PC
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 110
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES

    649					;-----ERROR BIT SCANNER SUBROUTINE.  LOOKS AT THE TWO ERROR MAP WORDS AND
    650					; SCANS FOR 0, 1, OR 2 ONE BITS (ERR BITS).  THE 7 BIT ECC IS ASSUMED TO OCCUPY
    651					; BITS 07-13 OF THE SECOND WORD.  DATA WORDS POINTER IS IN R1 UPON ENTRY.
    652	003340				34$:	SAV.5
	003340	004737 	000000G			  JSR	PC,SAV.5	;SAVE R5-R1 ON STACK
    653	003344	016102 	000010 			MOV	10(R1),R2	;GET & POS ECC BIT ERR MAP
    654	003350	006302 				ASL	R2
    655	003352	006302 				ASL	R2
    656	003354	000302 				SWAB	R2
    657	003356	012703 	000007 			MOV	#7,R3		;INI BITS-LEFT-IN-WD CNTR
    658	003362	012704 	000053 			MOV	#43.,R4		;INI BIT # +1
    659	003366	005702 			35$:	TST	R2		;ANY ERR BITS LEFT IN WD?
    660	003370	001416 				BEQ	38$		;NO...GET NEXT WD
    661	003372	005303 			36$:	DEC	R3		;ADJ CNTS
    662	003374	005304 				DEC	R4
    663	003376	006002 				ROR	R2		;GET BIT
    664	003400	103374 				BCC	36$		;LP IF THIS BIT IS NOT SET
    665	003402	000300 				SWAB	R0		;PUT BIT # INTO R0
    666	003404	105700 				TSTB	R0
    667	003406	002404 				BLT	37$
    668	003410					FATAL	3BB	; >2 BAD BITS...THIS SHOULDN'T HAPPEN
	003410	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "3BB" ERROR
	003414	   063 	   102 	   102 		 .ASCIZ	%3BB%
    669	003420	105000 			37$:	CLRB	R0
    670	003422	150400 				BISB	R4,R0
    671	003424	000760 				BR	35$		;BIT IS RECORDED...GO LOOK FOR NEXT
    672	003426	160304 			38$:	SUB	R3,R4		;HERE FOR NXT WD...ADJ BIT #
    673	003430	003404 				BLE	39$		;BR IF ALL DONE
    674	003432	012703 	000020 			MOV	#16.,R3		;REINI BITS-LEFT-IN-WD CNT
    675	003436	012102 				MOV	(R1)+,R2	;GET NXT WD
    676	003440	000752 				BR	35$		;GO SCAN IT
    677	003442				39$:	R5.PC			;RETURN TO CALLER
	003442	000137 	000000G			  JMP	R5.PC		;RESTORE R1-R5 FROM STACK & DO RTS PC
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 111
SUBROUTINE TO DO DEFAULT INIT OF MF20 BITSUB RAM

    681					.SBTTL		SUBROUTINE TO DO DEFAULT INIT OF MF20 BITSUB RAM
    682
    683					.REM	%
    684						INIBSR LOADS AN MF20'S BITSUB RAM WITH THE FOLLOWING DATA:
    685
    686					LOCATION  CONTENT  MEANING
    687					--------  -------  -----------------------------------------------------------
    688					000-574     256    SPARE BIT DESELECTED (MAPPED TO ITSELF), IGNORE CORRECTABLE
    689							   ERRORS, GOOD BITSUB RAM PARITY.
    690					600-???     254    SPARE BIT DESLECTED, DO NOT IGNORE CORRECTABLE ERRORS, BAD
    691							   BITSUB RAM PARITY.
    692					???-774     000    CLEAR DATA BITS USED BY SOFTWARE, DO NOT IGNORE CORRECTABLE
    693							   ERRORS, BAD BITSUB RAM PARITY.
    694
    695					??? IS THE BOUNDARY BETWEEN THE TRULY UNUSED BITSUB RAM LOCATIONS AND THOSE
    696					LOCATIONS USED ONLY BY THE SOFTWARE.  NEW SOFTWARE LOCATIONS SHOULD BE DEFINED
    697					IN A DOWNWARDS DIRECTION.  SYMBOL IS LSBSRL.
    698
    699						LOCATION 744 IS USED ONLY BY TGHA.  THE ONLY TIME WE EVER TOUCH IT IS
    700					WHEN THIS ROUTINE IS CALLED.  FURTHER, THIS ROUTINE IS ONLY CALLED WHEN AN MF20
    701					IS GOING FROM STATE 0 TO STATE 1.  AT THIS TIME 744 IS LOADED WITH 254.
    702						%
    703
    704	003446				INIBSR:	PUSH	R1		;SAV REG
	003446	010146 				 MOV	R1,-(SP)
    705	003450					FSDMSK	SDMSBR		;SET FSD CHK MASK FOR BITSUB RAM LOAD
	003450	012700 	000000G			  MOV	#SDMSBR,R0		;PT TO MASK
	003454	004737 	000000G			  JSR	PC,FSDM1	;LD SBDIAG CHK MASK PTD TO BY R0
    706	003460	012701 	000177 			MOV	#774/4,R1	;HIGHEST BITSUB RAM LOC ADR TO R1
    707	003464	110137 	003605'		1$:	MOVB	R1,3$+1		;SET LOC ADR INTO FCN 7 WD
    708	003470					FSD	3$,FAULT	;CLEAR A BITSUB RAM SFTWR LOC
	003470	004537 	003476'			  JSR	R5,64$		;SAV R5, PT TO & SKIP FAULT LIST
	003474	003604'				  .WORD	3$		;SBDIAG WORD ADDRESS
	003476	004737 	000000G		64$:	  JSR	PC,FSDCH	;DO FAST SBDIAG, FAULT ON ERR
	003502	012605 				 MOV	(SP)+,R5
    709	003504	005301 				DEC	R1
    710	003506	020127 	000171 			CMP	R1,#LSBSRL/4	;HAV ALL SFTWR LOCS BEEN CLRD?
    711	003512	103364 				BHIS	1$		;NO.. KEEP GOING
    712	003514	110137 	003612'		2$:	MOVB	R1,4$+1
    713	003520					FSD	4$,FAULT	;PUT BAD DATA IN TRULY UNUSED BITSUB RAM LOC
	003520	004537 	003526'			  JSR	R5,65$		;SAV R5, PT TO & SKIP FAULT LIST
	003524	003611'				  .WORD	4$		;SBDIAG WORD ADDRESS
	003526	004737 	000000G		65$:	  JSR	PC,FSDCH	;DO FAST SBDIAG, FAULT ON ERR
	003532	012605 				 MOV	(SP)+,R5
    714	003534	005301 				DEC	R1
    715	003536	020127 	000140 			CMP	R1,#LUBSRL/4	;HAV ALL UNUSED LOCS BEEN ZAPPED?
    716	003542	103364 				BHIS	2$		;NO.. KEEP GOING
    717	003544					SETRAM	0025,6405,7407	;NOW FILL THE REST OF THE BITSUB RAM
	003544	004537 	003554'			  JSR	R5,66$		;SAV R5, PT TO & SKIP ARG LIST
	003550	   007 	   137 	   320
	003553	   025 	   000
	003554	004737 	000000G		66$:	  JSR	PC,SETRAM	;SET CTL RAM LOC N TO 0 TO GIVEN VALUE
	003560	012605 				 MOV	(SP)+,R5
    718	003562					SBDIAG	0025,4407,4407	;254 TO BITSUB RAM LOC 744 FOR TGHA
	003562	004537 	003572'			  JSR	R5,67$		;SAV R5, PT TO & SKIP ARG LIST
	003566	074407 	012620
	003572	004737 	000000G		67$:	  JSR	PC,SBDT		;DO SBUS DIAG...WORD FOLLOWS
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 111-1
SUBROUTINE TO DO DEFAULT INIT OF MF20 BITSUB RAM

	003576	012605 				 MOV	(SP)+,R5
    719	003600					POP	R1
	003600	012601 				 MOV	(SP)+,R1
    720	003602	000207 				RTS	PC
    721
    722	003604				3$:	WD36	0000,0407,7407	;FCN 7 WD TO CLEAR SFTWR BITSUB RAM LOCS
	003604	   007 	   177 	   020
	003607	   000 	   000
    723	003611				4$:	WD36	0025,4407,7407	;FCN 7 WD TO ZAP TRULY UNUSED BITSUB RAM LOCS
	003611	   007 	   177 	   220
	003614	   025 	   000
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 112
CONFIGURE A MOS BLOCK TO END OF 256K ADDRESS SPACE

    727					.SBTTL		CONFIGURE A MOS BLOCK TO END OF 256K ADDRESS SPACE
    728
    729					.REM	%
    730						CABTE DOES THE NECESSARY SBDIAGS TO MAKE A GIVEN MOS BLOCK RESPOND TO
    731					ADDRESSES 256K-<BLK SIZ> THROUGH 256K-1.  UPON ENTRY R0 MUST POINT TO THE
    732					SIZE TABLE BYTE FOR THE DESIRED BLOCK.  R0 IS DESTROYED.  ASIDE FROM THE N
    733					RESPONSE RAM LOCATIONS USED THE RESPONSE RAM IS NOT AFFECTED.  THE CONTROLLER IS
    734					NOT TURNED ON.  C-BIT SET IF NO BLOCK.
    735						%
    736
    737	003616				CABTE:	PUSH	R1
	003616	010146 				 MOV	R1,-(SP)
    738	003620	111001 				MOVB	(R0),R1		;GET BLOCK SIZE
    739	003622	003002 				BGT	1$		;BR IF BLK PRESENT
    740	003624	000261 				SEC
    741	003626	000462 				BR	5$
    742	003630	162700 	000000G		1$:	SUB	#MDFSIZ,R0	;CALC BLK #
    743	003634	162700 	000014 		2$:	SUB	#12.,R0
    744	003640	002375 				BGE	2$
    745	003642	062700 	000014 			ADD	#12.,R0
    746	003646					PUSH	R0		;SAV BLK # ON STK
	003646	010046 				 MOV	R0,-(SP)
    747	003650	013700 	000000G			MOV	TSTCON,R0	;CONTR #
    748	003654	116000 	177770G			MOVB	RAMSZ0-MNMFCN(R0),R0 ;GET RAM SIZE CODE
    749	003660	126001 	000000G			CMPB	BSIZE(R0),R1	;DOES BLK USE TYPSEL=0 (SMALLER) RAMS?
    750	003664	001402 				BEQ	3$		;YES
    751	003666	052716 	000020 			BIS	#20,(SP)	;ELSE SET TYPSEL=1 BIT
    752	003672				3$:	POP	R0		;POSITION BLK # IN RESP RAM WD
	003672	012600 				 MOV	(SP)+,R0
    753	003674	000300 				SWAB	R0
    754	003676	006200 				ASR	R0
    755	003700	006200 				ASR	R0
    756	003702					SETPAR	4000		;SET PARITY BIT IF REQUIRED
	003702	004537 	003710'			  JSR	R5,64$		;SAV R5, PT TO & SKIP ARG LIST
	003706	004000 				  .WORD	4000
	003710	004737 	000000G		64$:	  JSR	PC,SETPAR	;SET PARITY BIT IN R0 USING 4000
	003714	012605 				 MOV	(SP)+,R5
    757	003716	052700 	000020 			BIS	#20,R0		;SET RAM LD EN BIT
    758	003722	010037 	004002'			MOV	R0,8$		;RAM WD TO SBDIAG
    759	003726	012700 	000020 			MOV	#20,R0		;INI RAM LD ADR CORREPONDING TO 256K-BLKSIZ
    760	003732	160100 				SUB	R1,R0
    761	003734	110037 	004001'			MOVB	R0,7$
    762	003740					FSDMSK	9$		;LD FSD CHK MASK
	003740	012700 	004005'			  MOV	#9$,R0		;PT TO MASK
	003744	004737 	000000G			  JSR	PC,FSDM1	;LD SBDIAG CHK MASK PTD TO BY R0
    763	003750				4$:	FSD	6$,FAULT	;LD RESPONSE RAM WORD
	003750	004537 	003756'			  JSR	R5,65$		;SAV R5, PT TO & SKIP FAULT LIST
	003754	004000'				  .WORD	6$		;SBDIAG WORD ADDRESS
	003756	004737 	000000G		65$:	  JSR	PC,FSDCH	;DO FAST SBDIAG, FAULT ON ERR
	003762	012605 				 MOV	(SP)+,R5
    764	003764	105237 	004001'			INCB	7$		;NXT ADR
    765	003770	077111 				SOB	R1,4$		;LOOP IF WE NEED TO LD ANOTHER RAM WD
    766	003772	000241 				CLC			;ELSE ALL DONE...DO C-BIT CLR RET...OK
    767	003774				5$:	POP	R1
	003774	012601 				 MOV	(SP)+,R1
    768	003776	000207 				RTS	PC
    770
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 112-1
CONFIGURE A MOS BLOCK TO END OF 256K ADDRESS SPACE

    771	004000	   012 			6$:	.BYTE	12		;SBDIAG FUNC 12 WD RHE
    772	004001	   000 			7$:	.BYTE	0		;RESP RAM LD ADR
    773	004002	000000 			8$:	.WORD	0		;RESP RAM WD
    774	004004	   000 				.BYTE	0
    775	004005				9$:	WD36	7600,0417,7412	;FSD LOAD CHECK MASK (FUNC 12)
	004005	   012 	   377 	   020
	004010	   200 	   017
    778
    779					.REM	%
    780						DUMMY ROUTINE TO SET MX20 ADDRESS RESPONSE TEMPORARILY TO ALLOW ACCESS
    781					TO A GIVEN MF20 SO THAT WE CAN WORK ON THE MF20.
    782						%
    783
    784	004012	000241 			MXTADR:	CLC			;INDICATE NO ERROR
    785	004014	000207 				RTS	PC		;RETURN
    787		000001 				.END
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 112-2
SYMBOL TABLE

AC    = 000004   	ANDCMM= 000422   	BRCLK = 000005   	DBEOVL= 177777 G 	FADRB = 000147
ACBLK1= ****** GX	ANDI  = 000405   	BRCTN = 000006   	DBEO5M= 170005   	FADRI = 000145
ACC0  = 000001   	ANDM  = 000406   	BSIZE = ****** GX	DBESAC  001066R  	FADRM = 000146
ACC1  = 000002   	AOBJN = 000253   	BSYCLR= 000400   	DBESCN  000000RG 	FDV   = 000170
ACC10 = 000400   	AOBJP = 000252   	BTFLCN= ****** GX	DBESMI  000664R  	FDVB  = 000173
ACC11 = 001000   	AOJ   = 000340   	BTOFIX  000356R  	DBESMM= 170002   	FDVL  = 000171
ACC12 = 002000   	AOJA  = 000344   	CABTE   003616R  	DBESMP  001667R  	FDVM  = 000172
ACC13 = 004000   	AOJE  = 000342   	CAI   = 000300   	DBESMQ  000674R  	FDVR  = 000174
ACC14 = 010000   	AOJG  = 000347   	CAIA  = 000304   	DBESM0= 037774   	FDVRB = 000177
ACC15 = 020000   	AOJGE = 000345   	CAIE  = 000302   	DBESM1= 037777   	FDVRI = 000175
ACC16 = 040000   	AOJL  = 000341   	CAIG  = 000307   	DBESM2= 177770   	FDVRM = 000176
ACC17 = 100000   	AOJLE = 000343   	CAIGE = 000305   	DBESM3= 036777   	FIX   = 000122
ACC2  = 000004   	AOJN  = 000346   	CAIL  = 000301   	DBESM4= 177537   	FIXR  = 000126
ACC3  = 000010   	AOS   = 000350   	CAILE = 000303   	DBESM5= 007770   	FIXSB   002074R
ACC4  = 000020   	AOSA  = 000354   	CAIN  = 000306   	DBETEA  001655R  	FLTR  = 000127
ACC5  = 000040   	AOSE  = 000352   	CAM   = 000310   	DBETSA  001100R  	FMP   = 000160
ACC6  = 000100   	AOSG  = 000357   	CAMA  = 000314   	DBUF  = ****** GX	FMPB  = 000163
ACC7  = 000200   	AOSGE = 000355   	CAME  = 000312   	DDIV  = 000117   	FMPL  = 000161
ACLOAD= ****** GX	AOSL  = 000351   	CAMG  = 000317   	DE$BUG= 070000   	FMPM  = 000162
ACSCAT= ****** GX	AOSLE = 000353   	CAMGE = 000315   	DFAD  = 000110   	FMPR  = 000164
AC0   = 000000   	AOSN  = 000356   	CAML  = 000311   	DFDV  = 000113   	FMPRB = 000167
AC1   = 000001   	APR   = 000000   	CAMLE = 000313   	DFMP  = 000112   	FMPRI = 000165
AC10  = 000010   	ASH   = 000240   	CAMN  = 000316   	DFN   = 000131   	FMPRM = 000166
AC11  = 000011   	ASHC  = 000244   	CAS   = 020000   	DFSB  = 000111   	FSB   = 000150
AC12  = 000012   	ASL0.3= ****** GX	CCA   = 000014   	DIAG  = 000104   	FSBB  = 000153
AC13  = 000013   	ASL0.4= ****** GX	CECLK = 000004   	DIV   = 000234   	FSBL  = 000151
AC14  = 000014   	BAF   = ****** GX	CHKED = ****** GX	DIVB  = 000237   	FSBM  = 000152
AC15  = 000015   	BIGN    000270R  	CIAPR0= ****** GX	DIVI  = 000235   	FSBR  = 000154
AC16  = 000016   	BIT0  = 000001   	CLEAR = 000400   	DIVM  = 000236   	FSBRB = 000157
AC17  = 000017   	BIT1  = 000002   	CLEARB= 000403   	DMACN = 000004   	FSBRI = 000155
AC2   = 000002   	BIT10 = 002000   	CLEARI= 000401   	DMACTN= 000002   	FSBRM = 000156
AC3   = 000003   	BIT11 = 004000   	CLEARM= 000402   	DMOVE = 000120   	FSC   = 000132
AC4   = 000004   	BIT12 = 010000   	CLRMR = 000006   	DMOVEM= 000124   	FSDCH = ****** GX
AC5   = 000005   	BIT13 = 020000   	CNTSD1= ****** GX	DMOVN = 000121   	FSDM1 = ****** GX
AC6   = 000006   	BIT14 = 040000   	CONBUT= 000012   	DMOVNM= 000125   	HALTLP= 001000
AC7   = 000007   	BIT15 = 100000   	CONI  = 000005   	DMUL  = 000116   	HLL   = 000500
ADD   = 000270   	BIT2  = 000004   	CONMMR= 000001   	DPB   = 000137   	HLLE  = 000530
ADDB  = 000273   	BIT3  = 000010   	CONO  = 000004   	DREADY= 001000   	HLLEI = 000531
ADDI  = 000271   	BIT4  = 000020   	CONSO = 000007   	DSUB  = 000115   	HLLEM = 000532
ADDM  = 000272   	BIT5  = 000040   	CONSZ = 000006   	EQV   = 000444   	HLLES = 000533
ADH   = 000000   	BIT6  = 000100   	CPU   = 000200   	EQVB  = 000447   	HLLI  = 000501
ADJSP = 000105   	BIT7  = 000200   	DADD  = 000114   	EQVI  = 000445   	HLLM  = 000502
ADL   = 000000   	BIT8  = 000400   	DATAI = 000001   	EQVM  = 000446   	HLLO  = 000520
ADR2ND= 002000   	BIT9  = 001000   	DATAO = 000003   	ERRSTP= 004000   	HLLOI = 000521
AND   = 000404   	BLKADR  000272R  	DBEAA   001143R  	ER$BTL= 000176RG 	HLLOM = 000522
ANDB  = 000407   	BLKI  = 000000   	DBECEB  001275R  	ER$ERM= 002702RG 	HLLOS = 000523
ANDCA = 000410   	BLKNO   000266R  	DBECNL  001263R  	ER$NBS= 000112RG 	HLLS  = 000503
ANDCAB= 000413   	BLKO  = 000002   	DBECNR  001232R  	ER$SIH= 002412RG 	HLLZ  = 000510
ANDCAI= 000411   	BLKSIZ  000300R  	DBEF07  002066R  	ER$3BB= 003410RG 	HLLZI = 000511
ANDCAM= 000412   	BLK0  = 000000   	DBEF7A  002067R  	EXCH  = 000250   	HLLZM = 000512
ANDCB = 000440   	BLK1  = 000001   	DBEF7D  002070R  	EXP16K= ****** GX	HLLZS = 000513
ANDCBB= 000443   	BLK2  = 000002   	DBEH3   001624R  	EXTEND= 000123   	HLR   = 000544
ANDCBI= 000441   	BLK3  = 000003   	DBEIFW  001516R  	FAD   = 000140   	HLRE  = 000574
ANDCBM= 000442   	BLK4  = 000004   	DBEMIA  001725R  	FADB  = 000143   	HLREI = 000575
ANDCM = 000420   	BLK5  = 000005   	DBEMIP  001720R  	FADL  = 000141   	HLREM = 000576
ANDCMB= 000423   	BLK6  = 000006   	DBEMNI  001530R  	FADM  = 000142   	HLRES = 000577
ANDCMI= 000421   	BLT   = 000251   	DBENWT  001105R  	FADR  = 000144   	HLRI  = 000545
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 112-3
SYMBOL TABLE

HLRM  = 000546   	IORB  = 000437   	MUL   = 000224   	SETCAI= 000451   	TDC   = 000650
HLRO  = 000564   	IORI  = 000435   	MULB  = 000227   	SETCAM= 000452   	TDCA  = 000654
HLROI = 000565   	IORM  = 000436   	MULI  = 000225   	SETCM = 000460   	TDCE  = 000652
HLROM = 000566   	IPECC   002052R  	MULM  = 000226   	SETCMB= 000463   	TDCN  = 000656
HLROS = 000567   	JFCL  = 000255   	MXBRCN= 000037   	SETCMI= 000461   	TDN   = 000610
HLRS  = 000547   	JFFO  = 000243   	MXCTN = 000004   	SETCMM= 000462   	TDNA  = 000614
HLRZ  = 000554   	JRA   = 000267   	MXMFCN= 000017   	SETM  = 000414   	TDNE  = 000612
HLRZI = 000555   	JRST  = 000254   	MXMXCN= 000007   	SETMB = 000417   	TDNN  = 000616
HLRZM = 000556   	JSA   = 000266   	MXM.CN= 000003   	SETMI = 000415   	TDO   = 000670
HLRZS = 000557   	JSP   = 000265   	MXTADR  004012R  	SETMM = 000416   	TDOA  = 000674
HRL   = 000504   	JSR   = 000264   	OR    = 000434   	SETMR = 000007   	TDOE  = 000672
HRLE  = 000534   	JUMP  = 000320   	ORB   = 000437   	SETO  = 000474   	TDON  = 000676
HRLEI = 000535   	JUMPA = 000324   	ORCA  = 000454   	SETOB = 000477   	TDZ   = 000630
HRLEM = 000536   	JUMPE = 000322   	ORCAB = 000457   	SETOI = 000475   	TDZA  = 000634
HRLES = 000537   	JUMPG = 000327   	ORCAI = 000455   	SETOM = 000476   	TDZE  = 000632
HRLI  = 000505   	JUMPGE= 000325   	ORCAM = 000456   	SETPAR= ****** GX	TDZN  = 000636
HRLM  = 000506   	JUMPL = 000321   	ORCB  = 000470   	SETRAM= ****** GX	TGN   = 000002
HRLO  = 000524   	JUMPLE= 000323   	ORCBB = 000473   	SETRUN= 000011   	TIMFS = 000044
HRLOI = 000525   	JUMPN = 000326   	ORCBI = 000471   	SETZ  = 000400   	TLC   = 000641
HRLOM = 000526   	LDAR  = 000077   	ORCBM = 000472   	SETZB = 000403   	TLCA  = 000645
HRLOS = 000527   	LDB   = 000135   	ORCM  = 000464   	SETZI = 000401   	TLCE  = 000643
HRLS  = 000507   	LDBESP  000306R  	ORCMB = 000467   	SETZM = 000402   	TLCN  = 000647
HRLZ  = 000514   	LSBRTN= 000001   	ORCMI = 000465   	SKIP  = 000330   	TLN   = 000601
HRLZI = 000515   	LSBSRL= 000744   	ORCMM = 000466   	SKIPA = 000334   	TLNA  = 000605
HRLZM = 000516   	LSH   = 000242   	ORI   = 000435   	SKIPE = 000332   	TLNE  = 000603
HRLZS = 000517   	LSHC  = 000246   	ORM   = 000436   	SKIPG = 000337   	TLNN  = 000607
HRR   = 000540   	LSTMB = 000001   	PAG   = 000010   	SKIPGE= 000335   	TLO   = 000661
HRRE  = 000570   	LUBSRL= 000600   	PI    = 000004   	SKIPL = 000331   	TLOA  = 000665
HRREI = 000571   	MABL  = ****** GX	POP   = 000262   	SKIPLE= 000333   	TLOE  = 000663
HRREM = 000572   	MACTN = 000001   	POPJ  = 000263   	SKIPN = 000336   	TLON  = 000667
HRRES = 000573   	MAP   = 000257   	PUSH  = 000261   	SOJ   = 000360   	TLZ   = 000621
HRRI  = 000541   	MAXCN = 000037   	PUSHJ = 000260   	SOJA  = 000364   	TLZA  = 000625
HRRM  = 000542   	MBCTN = 000003   	PXCT  = 000256   	SOJE  = 000362   	TLZE  = 000623
HRRO  = 000560   	MDFSIZ= ****** GX	RAMSZ0= ****** GX	SOJG  = 000367   	TLZN  = 000627
HRROI = 000561   	MFCTN = 000005   	RAS   = 040000   	SOJGE = 000365   	TRC   = 000640
HRROM = 000562   	MNBRCN= 000036   	READAC= ****** GX	SOJL  = 000361   	TRCA  = 000644
HRROS = 000563   	MNMFCN= 000010   	ROT   = 000241   	SOJLE = 000363   	TRCE  = 000642
HRRS  = 000543   	MNMXCN= 000006   	ROTC  = 000245   	SOJN  = 000366   	TRCN  = 000646
HRRZ  = 000550   	MNM.CN= 000000   	RS0RS1= 000010   	SOS   = 000370   	TRN   = 000600
HRRZI = 000551   	MNTITF= 000040   	RS0TN0= 000020   	SOSA  = 000374   	TRNA  = 000604
HRRZM = 000552   	MOVE  = 000200   	RUNBIG= ****** GX	SOSE  = 000372   	TRNE  = 000602
HRRZS = 000553   	MOVEI = 000201   	RUNPRG= ****** GX	SOSG  = 000377   	TRNN  = 000606
I     = 000000   	MOVEM = 000202   	R$$20F= 000001   	SOSGE = 000375   	TRO   = 000660
IBP   = 000133   	MOVES = 000203   	R5.PC = ****** GX	SOSL  = 000371   	TROA  = 000664
IDIV  = 000230   	MOVM  = 000214   	SAV.5 = ****** GX	SOSLE = 000373   	TROE  = 000662
IDIVB = 000233   	MOVMI = 000215   	SBDT  = ****** GX	SOSN  = 000376   	TRON  = 000666
IDIVI = 000231   	MOVMM = 000216   	SBD0  = ****** GX	SSCLK = 000002   	TRPAR = 010000
IDIVM = 000232   	MOVMS = 000217   	SBUS  = 100000   	STPCLK= 000000   	TRZ   = 000620
IDPB  = 000136   	MOVN  = 000210   	SDMSBR= ****** GX	STRCLK= 000001   	TRZA  = 000624
ILDB  = 000134   	MOVNI = 000211   	SDWDFM= ****** GX	SUB   = 000274   	TRZE  = 000622
IMUL  = 000220   	MOVNM = 000212   	SECLK = 000003   	SUBB  = 000277   	TRZN  = 000626
IMULB = 000223   	MOVNS = 000213   	SETA  = 000424   	SUBI  = 000275   	TSC   = 000651
IMULI = 000221   	MOVS  = 000204   	SETAB = 000427   	SUBM  = 000276   	TSCA  = 000655
IMULM = 000222   	MOVSI = 000205   	SETAI = 000425   	SXCT  = 000106   	TSCE  = 000653
INDEPR  001756R  	MOVSM = 000206   	SETAM = 000426   	TADR  = 000010   	TSCN  = 000657
INIBSR  003446R  	MOVSS = 000207   	SETCA = 000450   	TBN   = 000004   	TSN   = 000611
IOR   = 000434   	MSAMSZ= 000140   	SETCAB= 000453   	TCN   = 000001   	TSNA  = 000615
DBEOVL -- MOS DOUBLE BIT ERROR 	MACRO M1110  17-SEP-79 09:10  PAGE 112-4
SYMBOL TABLE

TSNE  = 000613   	XOP   = 000002   	$DPOST= ****** GX	$READA= 000001   	$TIMLP= 070014
TSNN  = 000617   	XOR   = 000430   	$EB   = 001066R  	$RELOA= 000001   	$TL   = 000130
TSO   = 000671   	XORB  = 000433   	$EVENT= 000001   	$RESET= 000001   	$TTDMS= ****** GX
TSOA  = 000675   	XORI  = 000431   	$EXAMT= ****** GX	$RSTAC= 070030   	$WDD36= ****** GX
TSOE  = 000673   	XORM  = 000432   	$FATAL= ****** GX	$RUN  = 000001   	$XX   = 000001
TSON  = 000677   	XR    = 000000   	$FIND = 000001   	$SAVAC= 070024   	$$APRI= 000000
TSTCON= ****** GX	XX1   = ****** GX	$GETCT= 070020   	$SBDIA= 000002   	$$NARG= 000001
TSZ   = 000631   	Z     = 000100   	$IND36= 000003   	$SDW  = 000002   	$$RDER= 000004
TSZA  = 000635   	$ACBLK= 000001   	$INIBS= 000001   	$SETPA= 000001   	$$SBDI= 000004
TSZE  = 000633   	$APRID= 000000   	$KL10A= 000101   	$SETRA= 000001   	$10BC = 070040
TSZN  = 000637   	$BRST = 000001   	$KL10B= 000102   	$SIZ16= 033061   	$10BP = 070034
UCEFIB  002073R  	$CABTE= 000001   	$LDBES= 000001   	$SIZ32= 031063   	$10MB = 070050
UFA   = 000130   	$CNTSD= 000001   	$LOADA= 000001   	$SIZ4K= 032060   	$10RB = 070044
UNDCTN= 000007   	$DBESC= 000001   	$MABL = 000001   	$SIZ64= 032066   	.RESET= ****** GX
WENABL= 004000   	$DDFWR= ****** GX	$MXTAD= 000001   	$STEP = 000001   	.SBDIA= 000001
X     = 000000   	$DDFXC= ****** GX	$PATCH= 070004   	$TB   = 000000   	...   = 000377
XCT   = 000256   	$DMPAC= 070010   	$RDERA= 000000   	$TCRLF= ****** GX	......= 177777
XDV   = 000004

. ABS.	000000	   000
      	004016	   001
ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  22768 WORDS  ( 89 PAGES)
DYNAMIC MEMORY:  20620 WORDS  ( 79 PAGES)
ELAPSED TIME:  00:04:16
[56,10]DBEOVL,[56,20]DBEOVL/-SP/CR=[56,30]DBEASM,MBOVLC,MOSMAC,MBMAC,MOSDEF,DBEOVL
DBEOVL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:13	PAGE 1

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

AC    	= 000004	#101-227   #101-227    101-227    101-227   #101-228   #101-228    101-228    101-228   #101-229   
                        #101-229    101-229    101-229   #101-230   #101-230    101-230    101-230   #101-231   #101-231   
                         101-231    101-231   #101-234   #101-234    101-234    101-234   #101-235   #101-235    101-235   
                         101-235   #101-236   #101-236    101-236    101-236   #102-248   #102-248    102-248    102-248   
                        #102-250   #102-250    102-250    102-250   #102-252   #102-252    102-252    102-252   #102-254   
                        #102-254    102-254    102-254   #102-255   #102-255    102-255    102-255   #102-258    102-258   
                         102-258   #102-259   #102-259    102-259    102-259   #102-272   #102-272    102-272    102-272   
                        #102-273   #102-273    102-273    102-273   #102-274   #102-274    102-274    102-274   #102-275   
                        #102-275    102-275    102-275   #102-276   #102-276    102-276    102-276   #102-277   #102-277   
                         102-277    102-277   #102-279    102-279    102-279   #102-280   #102-280    102-280    102-280   
                        #102-281   #102-281    102-281    102-281   #102-282   #102-282    102-282    102-282   #103-289   
                        #103-289    103-289    103-289   #103-290   #103-290    103-290    103-290   #103-291   #103-291   
                         103-291    103-291   #103-292   #103-292    103-292    103-292   #103-293   #103-293    103-293   
                         103-293   #103-294   #103-294    103-294    103-294   #103-295   #103-295    103-295    103-295   
                        #103-299   #103-299    103-299    103-299   #103-300   #103-300    103-300    103-300   #103-301   
                        #103-301    103-301    103-301   #103-302    103-302    103-302   #103-311   #103-311    103-311   
                         103-311   #103-312   #103-312    103-312    103-312   #103-319   #103-319    103-319    103-319   
                        #103-321   #103-321    103-321    103-321   #103-322   #103-322    103-322    103-322   #103-323   
                        #103-323    103-323    103-323   #103-324    103-324    103-324   #103-325   #103-325    103-325   
                         103-325   #103-326    103-326    103-326   #104-336   #104-336    104-336    104-336   #104-337   
                        #104-337    104-337    104-337   #104-338   #104-338    104-338    104-338   #104-339   #104-339   
                         104-339    104-339   #104-340   #104-340    104-340    104-340   #104-341   #104-341    104-341   
                         104-341   #104-342   #104-342    104-342    104-342   #104-352   #104-352    104-352    104-352   
                        #104-353   #104-353    104-353    104-353   #104-360    104-360    104-360   #104-361   #104-361   
                         104-361    104-361   #104-362   #104-362    104-362    104-362   #104-363   #104-363    104-363   
                         104-363   #104-373   #104-373    104-373    104-373   #104-374   #104-374    104-374    104-374   
                        #104-376   #104-376    104-376    104-376   
ACBLK1	= ******  GX	 99-135     100-177    106-447    106-460    107-495    108-567   
ACC0  	= 000001	#19-739    
ACC1  	= 000002	#19-740    
ACC10 	= 000400	#19-747     99-136     106-448    108-566   
ACC11 	= 001000	#19-748    
ACC12 	= 002000	#19-749    
ACC13 	= 004000	#19-750     106-467    106-469   
ACC14 	= 010000	#19-751    
ACC15 	= 020000	#19-752     99-136    
ACC16 	= 040000	#19-753     106-472   
ACC17 	= 100000	#19-754     106-472   
ACC2  	= 000004	#19-741    
ACC3  	= 000010	#19-742    
ACC4  	= 000020	#19-743     106-448    106-461    106-467    106-469   
ACC5  	= 000040	#19-744    
ACC6  	= 000100	#19-745    
ACC7  	= 000200	#19-746    
ACLOAD	= ******  GX	 100-180    100-191    106-461    106-469    106-474    108-566   
ACSCAT	= ******  GX	 99-136     106-448    106-467   
AC0   	= 000000	#12-27     
AC1   	= 000001	#12-28      100-192   
AC10  	= 000010	#12-35     
AC11  	= 000011	#12-36     
AC12  	= 000012	#12-37     
AC13  	= 000013	#12-38     
DBEOVL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:13	PAGE 2

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

AC14  	= 000014	#12-39      100-189    100-194    108-571   
AC15  	= 000015	#12-40     
AC16  	= 000016	#12-41     
AC17  	= 000017	#12-42     
AC2   	= 000002	#12-29     
AC3   	= 000003	#12-30     
AC4   	= 000004	#12-31      107-485    108-555   
AC5   	= 000005	#12-32      100-163   
AC6   	= 000006	#12-33     
AC7   	= 000007	#12-34     
ADD   	= 000270	#12-167    
ADDB  	= 000273	#12-170    
ADDI  	= 000271	#12-168    
ADDM  	= 000272	#12-169    
ADH   	= 000000	#101-227   #101-227    101-227    101-227   #101-228    101-228    101-228   #101-229    101-229   
                         101-229   #101-230    101-230    101-230   #101-231    101-231    101-231   #101-232    101-232   
                         101-232   #101-233    101-233    101-233   #101-234    101-234    101-234   #101-235    101-235   
                         101-235   #101-236    101-236    101-236   #102-248   #102-248    102-248    102-248   #102-249   
                         102-249    102-249   #102-250   #102-250    102-250    102-250   #102-251    102-251    102-251   
                        #102-252    102-252    102-252   #102-253    102-253    102-253   #102-254    102-254    102-254   
                        #102-255    102-255    102-255   #102-256    102-256    102-256   #102-257    102-257    102-257   
                        #102-258    102-258    102-258   #102-259    102-259    102-259   #102-271    102-271    102-271   
                        #102-272    102-272    102-272   #102-273   #102-273    102-273    102-273   #102-274    102-274   
                         102-274   #102-275    102-275    102-275   #102-276    102-276    102-276   #102-277    102-277   
                         102-277   #102-278    102-278    102-278   #102-279    102-279    102-279   #102-280    102-280   
                         102-280   #102-281    102-281    102-281   #102-282    102-282    102-282   #103-289    103-289   
                         103-289   #103-290    103-290    103-290   #103-291   #103-291    103-291    103-291   #103-292   
                         103-292    103-292   #103-293    103-293    103-293   #103-294    103-294    103-294   #103-295   
                         103-295    103-295   #103-296    103-296    103-296   #103-299    103-299    103-299   #103-300   
                         103-300    103-300   #103-301    103-301    103-301   #103-302    103-302    103-302   #103-311   
                         103-311    103-311   #103-312    103-312    103-312   #103-313    103-313    103-313   #103-314   
                         103-314    103-314   #103-319    103-319    103-319   #103-320    103-320    103-320   #103-321   
                         103-321    103-321   #103-322    103-322    103-322   #103-323    103-323    103-323   #103-324   
                         103-324    103-324   #103-325    103-325    103-325   #103-326    103-326    103-326   #104-336   
                         104-336    104-336   #104-337    104-337    104-337   #104-338    104-338    104-338   #104-339   
                         104-339    104-339   #104-340    104-340    104-340   #104-341    104-341    104-341   #104-342   
                         104-342    104-342   #104-343    104-343    104-343   #104-352   #104-352    104-352    104-352   
                        #104-353   #104-353    104-353    104-353   #104-360    104-360    104-360   #104-361    104-361   
                         104-361   #104-362    104-362    104-362   #104-363    104-363    104-363   #104-373    104-373   
                         104-373   #104-374    104-374    104-374   #104-375    104-375    104-375   #104-376    104-376   
                         104-376   
ADJSP 	= 000105	#12-53     
ADL   	= 000000	#101-227    101-227    101-227   #101-227    101-227    101-227   #101-227    101-227    101-227   
                        #101-227    101-227    101-227   #101-227    101-227    101-227   #101-227    101-227    101-227   
                         101-227   #101-227    101-227    101-227   #101-228    101-228    101-228   #101-228    101-228   
                         101-228   #101-228    101-228    101-228   #101-228    101-228    101-228   #101-228    101-228   
                         101-228   #101-228    101-228    101-228   #101-229    101-229    101-229   #101-229    101-229   
                         101-229   #101-229    101-229    101-229   #101-230    101-230    101-230   #101-230    101-230   
                         101-230   #101-230    101-230    101-230   #101-230    101-230    101-230   #101-230    101-230   
                         101-230   #101-230    101-230    101-230   #101-230    101-230    101-230   #101-231    101-231   
                         101-231   #101-231    101-231    101-231   #101-231    101-231    101-231   #101-232    101-232   
                         101-232   #101-232    101-232    101-232   #101-232    101-232    101-232   #101-232    101-232   
DBEOVL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:13	PAGE 3

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                         101-232   #101-232    101-232    101-232   #101-233    101-233    101-233   #101-233    101-233   
                         101-233   #101-234    101-234    101-234   #101-234    101-234    101-234   #101-235    101-235   
                         101-235   #101-235    101-235    101-235   #101-236    101-236    101-236   #101-236    101-236   
                         101-236   #102-248    102-248    102-248   #102-248    102-248    102-248   #102-248    102-248   
                         102-248   #102-248    102-248    102-248   #102-248    102-248    102-248   #102-248    102-248   
                         102-248    102-248   #102-248    102-248    102-248   #102-249    102-249    102-249   #102-249   
                         102-249    102-249   #102-249    102-249    102-249   #102-250    102-250    102-250   #102-250   
                         102-250    102-250   #102-250    102-250    102-250   #102-250    102-250    102-250   #102-250   
                         102-250    102-250   #102-250    102-250    102-250    102-250   #102-250    102-250    102-250   
                        #102-251    102-251    102-251   #102-251    102-251    102-251   #102-251    102-251    102-251   
                        #102-251    102-251    102-251   #102-251    102-251    102-251   #102-252    102-252    102-252   
                        #102-252    102-252    102-252   #102-253    102-253    102-253   #102-253    102-253    102-253   
                        #102-253    102-253    102-253   #102-254    102-254    102-254   #102-254    102-254    102-254   
                        #102-254    102-254    102-254   #102-255    102-255    102-255   #102-255    102-255    102-255   
                        #102-255    102-255    102-255   #102-255    102-255    102-255   #102-255    102-255    102-255   
                        #102-255    102-255    102-255   #102-255    102-255    102-255   #102-256    102-256    102-256   
                        #102-256    102-256    102-256   #102-256    102-256    102-256   #102-257    102-257    102-257   
                        #102-257    102-257    102-257   #102-258    102-258    102-258   #102-258    102-258    102-258   
                        #102-259    102-259    102-259   #102-259    102-259    102-259   #102-271    102-271    102-271   
                        #102-271    102-271    102-271   #102-271    102-271    102-271   #102-271    102-271    102-271   
                        #102-271    102-271    102-271   #102-271    102-271    102-271   #102-272    102-272    102-272   
                        #102-272    102-272    102-272   #102-272    102-272    102-272   #102-272    102-272    102-272   
                        #102-272    102-272    102-272   #102-272    102-272    102-272   #102-272    102-272    102-272   
                        #102-273    102-273    102-273   #102-273    102-273    102-273   #102-273    102-273    102-273   
                        #102-273    102-273    102-273   #102-273    102-273    102-273   #102-273    102-273    102-273   
                         102-273   #102-273    102-273    102-273   #102-274    102-274    102-274   #102-274    102-274   
                         102-274   #102-274    102-274    102-274   #102-275    102-275    102-275   #102-275    102-275   
                         102-275   #102-275    102-275    102-275   #102-276    102-276    102-276   #102-276    102-276   
                         102-276   #102-276    102-276    102-276   #102-277    102-277    102-277   #102-277    102-277   
                         102-277   #102-278    102-278    102-278   #102-278    102-278    102-278   #102-278    102-278   
                         102-278   #102-279    102-279    102-279   #102-279    102-279    102-279   #102-280    102-280   
                         102-280   #102-280    102-280    102-280   #102-281    102-281    102-281   #102-281    102-281   
                         102-281   #102-281    102-281    102-281   #102-282    102-282    102-282   #102-282    102-282   
                         102-282   #103-289    103-289    103-289   #103-289    103-289    103-289   #103-289    103-289   
                         103-289   #103-290    103-290    103-290   #103-290    103-290    103-290   #103-291    103-291   
                         103-291   #103-291    103-291    103-291   #103-291    103-291    103-291   #103-291    103-291   
                         103-291   #103-291    103-291    103-291   #103-291    103-291    103-291    103-291   #103-291   
                         103-291    103-291   #103-292    103-292    103-292   #103-292    103-292    103-292   #103-293   
                         103-293    103-293   #103-293    103-293    103-293   #103-294    103-294    103-294   #103-294   
                         103-294    103-294   #103-295    103-295    103-295   #103-295    103-295    103-295   #103-296   
                         103-296    103-296   #103-296    103-296    103-296   #103-296    103-296    103-296   #103-299   
                         103-299    103-299   #103-299    103-299    103-299   #103-300    103-300    103-300   #103-300   
                         103-300    103-300   #103-300    103-300    103-300   #103-301    103-301    103-301   #103-301   
                         103-301    103-301   #103-302    103-302    103-302   #103-302    103-302    103-302   #103-311   
                         103-311    103-311   #103-311    103-311    103-311   #103-312    103-312    103-312   #103-312   
                         103-312    103-312   #103-313    103-313    103-313   #103-313    103-313    103-313   #103-314   
                         103-314    103-314   #103-314    103-314    103-314   #103-319    103-319    103-319   #103-319   
                         103-319    103-319   #103-320    103-320    103-320   #103-320    103-320    103-320   #103-321   
                         103-321    103-321   #103-321    103-321    103-321   #103-322    103-322    103-322   #103-322   
                         103-322    103-322   #103-322    103-322    103-322   #103-322    103-322    103-322   #103-323   
                         103-323    103-323   #103-323    103-323    103-323   #103-323    103-323    103-323   #103-323   
                         103-323    103-323   #103-323    103-323    103-323   #103-324    103-324    103-324   #103-324   
DBEOVL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:13	PAGE 4

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                         103-324    103-324   #103-324    103-324    103-324   #103-325    103-325    103-325   #103-325   
                         103-325    103-325   #103-325    103-325    103-325   #103-326    103-326    103-326   #103-326   
                         103-326    103-326   #104-336    104-336    104-336   #104-336    104-336    104-336   #104-336   
                         104-336    104-336   #104-337    104-337    104-337   #104-337    104-337    104-337   #104-337   
                         104-337    104-337   #104-338    104-338    104-338   #104-338    104-338    104-338   #104-338   
                         104-338    104-338   #104-339    104-339    104-339   #104-339    104-339    104-339   #104-339   
                         104-339    104-339   #104-340    104-340    104-340   #104-340    104-340    104-340   #104-341   
                         104-341    104-341   #104-341    104-341    104-341   #104-341    104-341    104-341   #104-342   
                         104-342    104-342   #104-342    104-342    104-342   #104-342    104-342    104-342   #104-343   
                         104-343    104-343   #104-343    104-343    104-343   #104-343    104-343    104-343   #104-352   
                         104-352    104-352   #104-352    104-352    104-352   #104-352    104-352    104-352   #104-352   
                         104-352    104-352   #104-352    104-352    104-352   #104-352    104-352    104-352    104-352   
                        #104-352    104-352    104-352   #104-353    104-353    104-353   #104-353    104-353    104-353   
                        #104-353    104-353    104-353   #104-353    104-353    104-353   #104-353    104-353    104-353   
                        #104-353    104-353    104-353    104-353   #104-353    104-353    104-353   #104-360    104-360   
                         104-360   #104-360    104-360    104-360   #104-361    104-361    104-361   #104-361    104-361   
                         104-361   #104-361    104-361    104-361   #104-362    104-362    104-362   #104-362    104-362   
                         104-362   #104-362    104-362    104-362   #104-363    104-363    104-363   #104-363    104-363   
                         104-363   #104-373    104-373    104-373   #104-373    104-373    104-373   #104-374    104-374   
                         104-374   #104-374    104-374    104-374   #104-374    104-374    104-374   #104-375    104-375   
                         104-375   #104-375    104-375    104-375   #104-376    104-376    104-376   #104-376    104-376   
                         104-376   
ADR2ND	= 002000	#44-205     44-205     44-205    #44-205     44-205     44-205    #44-205     44-205     44-205    
                        #44-205     44-205     44-205    #44-205     44-205     44-205    #44-205     44-205     44-205    
                        #44-205     44-205     44-205    #44-205     44-205     44-205    #44-205     44-205     44-205    
                        #44-205     44-205     44-205    #44-205    
AND   	= 000404	#12-247    
ANDB  	= 000407	#12-250    
ANDCA 	= 000410	#12-251    
ANDCAB	= 000413	#12-254    
ANDCAI	= 000411	#12-252    
ANDCAM	= 000412	#12-253     104-341    104-341    104-342    104-342   
ANDCB 	= 000440	#12-279    
ANDCBB	= 000443	#12-282    
ANDCBI	= 000441	#12-280    
ANDCBM	= 000442	#12-281    
ANDCM 	= 000420	#12-259    
ANDCMB	= 000423	#12-262    
ANDCMI	= 000421	#12-260    
ANDCMM	= 000422	#12-261    
ANDI  	= 000405	#12-248     103-291    103-291   
ANDM  	= 000406	#12-249    
AOBJN 	= 000253	#12-153    
AOBJP 	= 000252	#12-152    
AOJ   	= 000340	#12-207    
AOJA  	= 000344	#12-211     103-292    103-292   
AOJE  	= 000342	#12-209    
AOJG  	= 000347	#12-214    
AOJGE 	= 000345	#12-212    
AOJL  	= 000341	#12-208     104-374    104-374   
AOJLE 	= 000343	#12-210     103-325    103-325   
AOJN  	= 000346	#12-213    
DBEOVL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:13	PAGE 5

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

AOS   	= 000350	#12-215    
AOSA  	= 000354	#12-219    
AOSE  	= 000352	#12-217    
AOSG  	= 000357	#12-222    
AOSGE 	= 000355	#12-220    
AOSL  	= 000351	#12-216    
AOSLE 	= 000353	#12-218    
AOSN  	= 000356	#12-221    
APR   	= 000000	#12-449     55-130     101-232    102-251    102-271   
ASH   	= 000240	#12-143    
ASHC  	= 000244	#12-147    
ASL0.3	= ******  GX	 100-168    106-456   
ASL0.4	= ******  GX	 99-127    
BAF   	= ******  GX	 96-33     
BIGN  	  000270 R	*96-29     *96-30     #98-93      100-139   
BIT0  	= 000001	#4-63      
BIT1  	= 000002	#4-64      
BIT10 	= 002000	#4-73      
BIT11 	= 004000	#4-74       4-81      
BIT12 	= 010000	#4-75      
BIT13 	= 020000	#4-76      
BIT14 	= 040000	#4-77      
BIT15 	= 100000	#4-78       26-1126   
BIT2  	= 000004	#4-65      
BIT3  	= 000010	#4-66      
BIT4  	= 000020	#4-67      
BIT5  	= 000040	#4-68      
BIT6  	= 000100	#4-69      
BIT7  	= 000200	#4-70       26-1125   
BIT8  	= 000400	#4-71      
BIT9  	= 001000	#4-72       4-80      
BLKADR	  000272 R	 97-51     *97-64     #98-94      100-141    100-178   
BLKI  	= 000000	#12-440     55-129     55-131    
BLKNO 	  000266 R	*96-24     *96-27      96-28     #98-92      100-167   
BLKO  	= 000002	#12-442     55-127    
BLKSIZ	  000300 R	#98-95      100-153    100-154   
BLK0  	= 000000	#12-44     
BLK1  	= 000001	#12-45     
BLK2  	= 000002	#12-46     
BLK3  	= 000003	#12-47     
BLK4  	= 000004	#12-48      108-555   
BLK5  	= 000005	#12-49     
BLK6  	= 000006	#12-50     
BLT   	= 000251	#12-151    
BRCLK 	= 000005	#55-122    
BRCTN 	= 000006	#43-170    
BSIZE 	= ******  GX	 112-749   
BSYCLR	= 000400	#44-207     44-207     44-207    #44-207     44-207     44-207    #44-207     44-207     44-207    
                        #44-207     44-207     44-207    #44-207     44-207     44-207    #44-207     44-207     44-207    
                        #44-207     44-207     44-207    #44-207     44-207     44-207    #44-207    
BTFLCN	= ******  GX	 99-122    *99-124    
BTOFIX	  000356 R	 97-69     #99-119    
DBEOVL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:13	PAGE 6

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

CABTE 	  003616 R	 96-39     #112-737   
CAI   	= 000300	#12-175    
CAIA  	= 000304	#12-179    
CAIE  	= 000302	#12-177     103-294    103-294   
CAIG  	= 000307	#12-182    
CAIGE 	= 000305	#12-180    
CAIL  	= 000301	#12-176    
CAILE 	= 000303	#12-178    
CAIN  	= 000306	#12-181    
CAM   	= 000310	#12-183    
CAMA  	= 000314	#12-187    
CAME  	= 000312	#12-185    
CAMG  	= 000317	#12-190    
CAMGE 	= 000315	#12-188    
CAML  	= 000311	#12-184    
CAMLE 	= 000313	#12-186    
CAMN  	= 000316	#12-189     101-231    101-231   
CAS   	= 020000	#44-202     44-202     44-202    #44-202     44-202     44-202    #44-202     44-202     44-202    
                        #44-202     44-202     44-202    #44-202     44-202     44-202    #44-202     44-202     44-202    
                        #44-202     44-202     44-202    #44-202     44-202     44-202    #44-202     44-202     44-202    
                        #44-202     44-202     44-202    #44-202     44-202     44-202    #44-202     44-202     44-202    
                        #44-202     44-202     44-202    #44-202    
CCA   	= 000014	#12-452    
CECLK 	= 000004	#55-119    
CHKED 	= ******  GX	 108-586   
CIAPR0	= ******  GX	 107-497   
CLEAR 	= 000400	#12-239    
CLEARB	= 000403	#12-245    
CLEARI	= 000401	#12-241    
CLEARM	= 000402	#12-243    
CLRMR 	= 000006	#55-120    
CNTSD1	= ******  GX	 99-133     99-134    
CONBUT	= 000012	#55-124    
CONI  	= 000005	#12-445    
CONMMR	= 000001	#3-54      
CONO  	= 000004	#12-444     102-271   
CONSO 	= 000007	#12-447    
CONSZ 	= 000006	#12-446     101-232    102-251   
CORDET	= ******	 3-8        7-244     
CPU   	= 000200	#26-1125    99-106     100-162    100-190    106-462   
DADD  	= 000114	#12-59     
DATAI 	= 000001	#12-441    
DATAO 	= 000003	#12-443     101-233    102-257    102-278    103-296    103-313    103-314    103-320    104-343   
DBEAA 	  001143 R	#101-234    106-467   
DBECEB	  001275 R	#102-272   *106-457   *106-459    106-461   
DBECNL	  001263 R	 99-133     99-136    #102-260   
DBECNR	  001232 R	 99-128     99-136    #102-255   
DBEF07	  002066 R	#105-414    109-646   
DBEF7A	  002067 R	*100-169   #105-415   *106-440   *106-441   *109-633   
DBEF7D	  002070 R	#105-416   *109-645   
DBEH3 	  001624 R	#104-340    108-566   
DBEIFW	  001516 R	#103-315    106-448   
DBEOVL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:13	PAGE 7

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

DBEMIA	  001725 R	 100-143   #104-371   
DBEMIP	  001720 R	 99-134     100-191   #104-369   
DBEMNI	  001530 R	#103-319    106-448   
DBENWT	  001105 R	*100-159   *100-161    100-163   #101-228   
DBEOVL	= 177777  G	#1-1        3-10       9-303     
DBEO5M	= 170005	 100-191   #104-378   
DBESAC	  001066 R	 99-107    #101-223   
DBESCN	  000000 RG	 10-322    #96-16     
DBESMI	  000664 R	 100-171   #100-177   
DBESMM	= 170002	 100-180   #104-364   
DBESMP	  001667 R	 100-180   #104-357   
DBESMQ	  000674 R	#100-178    109-635   
DBESM0	= 037774	 99-107    #101-239   
DBESM1	= 037777	 99-107    #102-263   
DBESM2	= 177770	 99-107    #102-284   
DBESM3	= 036777	 99-107    #103-305   
DBESM4	= 177537	 99-107    #103-327   
DBESM5	= 007770	 99-107    #104-349   
DBETEA	  001655 R	#104-352   *106-442   *106-443    106-469   
DBETSA	  001100 R	 100-142   #101-227   *106-444   *106-445    106-467   
DBUF  	= ******  GX	 108-570    108-600    108-608   
DDIV  	= 000117	#12-62     
DE$BUG	= 070000	#12-8      
DFAD  	= 000110	#12-55     
DFDV  	= 000113	#12-58     
DFMP  	= 000112	#12-57     
DFN   	= 000131	#12-72     
DFSB  	= 000111	#12-56     
DIACON	= ******	 107-516    107-527   
DIAG  	= 000104	#12-52     
DIV   	= 000234	#12-139    
DIVB  	= 000237	#12-142    
DIVI  	= 000235	#12-140    
DIVM  	= 000236	#12-141    
DMACN 	= 000004	#43-160    
DMACTN	= 000002	#43-159    
DMOVE 	= 000120	#12-63      103-299    103-299   
DMOVEM	= 000124	#12-67      104-336    104-336   
DMOVN 	= 000121	#12-64     
DMOVNM	= 000125	#12-68     
DMUL  	= 000116	#12-61     
DPB   	= 000137	#12-78     
DREADY	= 001000	#44-206     44-206     44-206    #44-206     44-206     44-206    #44-206     44-206     44-206    
                        #44-206     44-206     44-206    #44-206     44-206     44-206    #44-206     44-206     44-206    
                        #44-206     44-206     44-206    #44-206     44-206     44-206    #44-206     44-206     44-206    
                        #44-206    
DSUB  	= 000115	#12-60     
EQV   	= 000444	#12-283    
EQVB  	= 000447	#12-286    
EQVI  	= 000445	#12-284    
EQVM  	= 000446	#12-285    
ERRSTP	= 004000	#4-81      
DBEOVL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:13	PAGE 8

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

ER$BTL	= 000176 RG	#97-63     
ER$ERM	= 002702 RG	#107-526   
ER$NBS	= 000112 RG	#96-38     
ER$SIH	= 002412 RG	#107-488   
ER$3BB	= 003410 RG	#110-668   
EXCH  	= 000250	#12-150     101-230    101-230   
EXP16K	= ******  GX	 97-50      97-56     
EXTEND	= 000123	#12-66     
FAD   	= 000140	#12-79     
FADB  	= 000143	#12-82     
FADL  	= 000141	#12-80     
FADM  	= 000142	#12-81     
FADR  	= 000144	#12-83     
FADRB 	= 000147	#12-86     
FADRI 	= 000145	#12-84     
FADRM 	= 000146	#12-85     
FDV   	= 000170	#12-103    
FDVB  	= 000173	#12-106    
FDVL  	= 000171	#12-104    
FDVM  	= 000172	#12-105    
FDVR  	= 000174	#12-107    
FDVRB 	= 000177	#12-110    
FDVRI 	= 000175	#12-108    
FDVRM 	= 000176	#12-109    
FITCON	= ******	 3-11       10-325    
FIX   	= 000122	#12-65     
FIXR  	= 000126	#12-69     
FIXSB 	  002074 R	 98-75     #106-439   
FLTR  	= 000127	#12-70     
FMP   	= 000160	#12-95     
FMPB  	= 000163	#12-98     
FMPL  	= 000161	#12-96     
FMPM  	= 000162	#12-97     
FMPR  	= 000164	#12-99     
FMPRB 	= 000167	#12-102    
FMPRI 	= 000165	#12-100    
FMPRM 	= 000166	#12-101    
FSB   	= 000150	#12-87     
FSBB  	= 000153	#12-90     
FSBL  	= 000151	#12-88     
FSBM  	= 000152	#12-89     
FSBR  	= 000154	#12-91     
FSBRB 	= 000157	#12-94     
FSBRI 	= 000155	#12-92     
FSBRM 	= 000156	#12-93     
FSC   	= 000132	#12-73     
FSDCH 	= ******  GX	 111-708    111-713    112-763   
FSDM1 	= ******  GX	 111-705    112-762   
HALTLP	= 001000	#4-80      
HLL   	= 000500	#12-311    
HLLE  	= 000530	#12-335    
HLLEI 	= 000531	#12-336    
DBEOVL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:13	PAGE 9

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

HLLEM 	= 000532	#12-337    
HLLES 	= 000533	#12-338    
HLLI  	= 000501	#12-312    
HLLM  	= 000502	#12-313    
HLLO  	= 000520	#12-327    
HLLOI 	= 000521	#12-328    
HLLOM 	= 000522	#12-329    
HLLOS 	= 000523	#12-330    
HLLS  	= 000503	#12-314    
HLLZ  	= 000510	#12-319    
HLLZI 	= 000511	#12-320    
HLLZM 	= 000512	#12-321     102-259    102-259   
HLLZS 	= 000513	#12-322    
HLR   	= 000544	#12-347    
HLRE  	= 000574	#12-371    
HLREI 	= 000575	#12-372    
HLREM 	= 000576	#12-373    
HLRES 	= 000577	#12-374    
HLRI  	= 000545	#12-348    
HLRM  	= 000546	#12-349    
HLRO  	= 000564	#12-363    
HLROI 	= 000565	#12-364    
HLROM 	= 000566	#12-365    
HLROS 	= 000567	#12-366    
HLRS  	= 000547	#12-350    
HLRZ  	= 000554	#12-355    
HLRZI 	= 000555	#12-356    
HLRZM 	= 000556	#12-357    
HLRZS 	= 000557	#12-358    
HRL   	= 000504	#12-315    
HRLE  	= 000534	#12-339    
HRLEI 	= 000535	#12-340    
HRLEM 	= 000536	#12-341    
HRLES 	= 000537	#12-342    
HRLI  	= 000505	#12-316    
HRLM  	= 000506	#12-317    
HRLO  	= 000524	#12-331    
HRLOI 	= 000525	#12-332    
HRLOM 	= 000526	#12-333    
HRLOS 	= 000527	#12-334    
HRLS  	= 000507	#12-318    
HRLZ  	= 000514	#12-323    
HRLZI 	= 000515	#12-324    
HRLZM 	= 000516	#12-325    
HRLZS 	= 000517	#12-326    
HRR   	= 000540	#12-343    
HRRE  	= 000570	#12-367    
HRREI 	= 000571	#12-368    
HRREM 	= 000572	#12-369    
HRRES 	= 000573	#12-370    
HRRI  	= 000541	#12-344     101-227    101-227    101-234    101-234    104-352    104-352    104-353    104-353   
HRRM  	= 000542	#12-345    
DBEOVL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:13	PAGE 10

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

HRRO  	= 000560	#12-359    
HRROI 	= 000561	#12-360    
HRROM 	= 000562	#12-361    
HRROS 	= 000563	#12-362    
HRRS  	= 000543	#12-346    
HRRZ  	= 000550	#12-351    
HRRZI 	= 000551	#12-352    
HRRZM 	= 000552	#12-353    
HRRZS 	= 000553	#12-354    
I     	= 000000	#101-227    101-227   #101-228    101-228   #101-229    101-229   #101-230    101-230   #101-231   
                         101-231   #101-232    101-232   #101-233    101-233   #101-234    101-234   #101-235    101-235   
                        #101-236    101-236   #102-248    102-248   #102-249    102-249   #102-250    102-250   #102-251   
                         102-251   #102-252    102-252   #102-253    102-253   #102-254    102-254   #102-255    102-255   
                        #102-256    102-256   #102-257    102-257   #102-258    102-258   #102-259    102-259   #102-271   
                         102-271   #102-272    102-272   #102-273    102-273   #102-274    102-274   #102-275    102-275   
                        #102-276    102-276   #102-277    102-277   #102-278    102-278   #102-279    102-279   #102-280   
                         102-280   #102-281    102-281   #102-282    102-282   #103-289    103-289   #103-290    103-290   
                        #103-291    103-291   #103-292    103-292   #103-293    103-293   #103-294    103-294   #103-295   
                         103-295   #103-296    103-296   #103-299    103-299   #103-300    103-300   #103-301    103-301   
                        #103-302    103-302   #103-311    103-311   #103-312   #103-312    103-312   #103-313    103-313   
                        #103-314    103-314   #103-319    103-319   #103-320    103-320   #103-321    103-321   #103-322   
                         103-322   #103-323    103-323   #103-324    103-324   #103-325    103-325   #103-326    103-326   
                        #104-336    104-336   #104-337    104-337   #104-338    104-338   #104-339    104-339   #104-340   
                         104-340   #104-341    104-341   #104-342    104-342   #104-343    104-343   #104-352    104-352   
                        #104-353    104-353   #104-360    104-360   #104-361    104-361   #104-362    104-362   #104-363   
                         104-363   #104-373    104-373   #104-374    104-374   #104-375    104-375   #104-376    104-376   
IBP   	= 000133	#12-74     
IDIV  	= 000230	#12-135    
IDIVB 	= 000233	#12-138    
IDIVI 	= 000231	#12-136    
IDIVM 	= 000232	#12-137    
IDPB  	= 000136	#12-77     
ILDB  	= 000134	#12-75     
IMUL  	= 000220	#12-127    
IMULB 	= 000223	#12-130    
IMULI 	= 000221	#12-128    
IMULM 	= 000222	#12-129    
INDEPR	  001756 R	 100-192   #105-394    106-451   
INIBSR	  003446 R	 96-17     #111-704   
IOR   	= 000434	#12-271    
IORB  	= 000437	#12-277    
IORI  	= 000435	#12-273    
IORM  	= 000436	#12-275    
IPECC 	  002052 R	#105-410    106-454   
JFCL  	= 000255	#12-155    
JFFO  	= 000243	#12-146    
JRA   	= 000267	#12-166    
JRST  	= 000254	#12-154     101-236    101-236    102-252    102-252    102-258    102-258    102-279    102-279   
                         103-295    103-295    103-302    103-302    103-324    103-324    103-326    103-326    104-340   
                         104-340    104-363    104-363    104-376    104-376   
JSA   	= 000266	#12-165    
JSP   	= 000265	#12-164    
DBEOVL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:13	PAGE 11

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

JSR   	= 000264	#12-163    
JUMP  	= 000320	#12-191    
JUMPA 	= 000324	#12-195    
JUMPE 	= 000322	#12-193     103-290    103-290   
JUMPG 	= 000327	#12-198    
JUMPGE	= 000325	#12-196    
JUMPL 	= 000321	#12-192    
JUMPLE	= 000323	#12-194    
JUMPN 	= 000326	#12-197     103-293    103-293   
LDAR  	= 000077	#55-125    
LDB   	= 000135	#12-76      102-282    102-282   
LDBESP	  000306 R	 96-18     #99-106    
LSBRTN	= 000001	#3-58      
LSBSRL	= 000744	#44-209     111-710   
LSH   	= 000242	#12-145     102-277    102-277   
LSHC  	= 000246	#12-149    
LSTALL	= ******	 12-455     39-1601    40-2       51-493     95-3      
LSTDIA	= ******	 51-494    
LSTMAC	= ******	 12-455     39-1601    40-2       51-493    
LSTMB 	= 000001	#3-57       95-3      
LUBSRL	= 000600	#44-210     111-715   
MABL  	= ******  GX	 99-107    
MACTN 	= 000001	#43-154    
MAP   	= 000257	#12-158    
MAXCN 	= 000037	#43-152    
MBCTN 	= 000003	#43-155    
MBOKLG	= ******	 4-100      10-315    
MBROOT	= ******	 3-7        5-158     
MDFSIZ	= ******  GX	 112-742   
MFCTN 	= 000005	#43-166    
MNBRCN	= 000036	#43-171    
MNMFCN	= 000010	#43-167     44-181     44-182     44-183     112-748   
MNMXCN	= 000006	#43-163    
MNM.CN	= 000000	#43-156    
MNTITF	= 000040	#40-31     
MOVE  	= 000200	#12-111     101-229    101-229    102-280    102-280    103-311    103-311   
MOVEI 	= 000201	#12-112     101-228    101-228    103-301    103-301   
MOVEM 	= 000202	#12-113     104-373    104-373   
MOVES 	= 000203	#12-114    
MOVM  	= 000214	#12-123    
MOVMI 	= 000215	#12-124    
MOVMM 	= 000216	#12-125    
MOVMS 	= 000217	#12-126    
MOVN  	= 000210	#12-119    
MOVNI 	= 000211	#12-120     103-319    103-319   
MOVNM 	= 000212	#12-121    
MOVNS 	= 000213	#12-122    
MOVS  	= 000204	#12-115    
MOVSI 	= 000205	#12-116     102-248    102-248    102-255    102-255   
MOVSM 	= 000206	#12-117    
MOVSS 	= 000207	#12-118    
MSAMSZ	= 000140	#44-181    
DBEOVL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:13	PAGE 12

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

MSSCTL	= ******	 3-9        8-268     
MUL   	= 000224	#12-131    
MULB  	= 000227	#12-134    
MULI  	= 000225	#12-132    
MULM  	= 000226	#12-133    
MXBRCN	= 000037	#43-172    
MXCTN 	= 000004	#43-162    
MXMFCN	= 000017	#43-168     44-181     44-182     44-183    
MXMXCN	= 000007	#43-164    
MXM.CN	= 000003	#43-157    
MXTADR	  004012 R	#112-784   
OR    	= 000434	#12-272    
ORB   	= 000437	#12-278    
ORCA  	= 000454	#12-291    
ORCAB 	= 000457	#12-294    
ORCAI 	= 000455	#12-292    
ORCAM 	= 000456	#12-293    
ORCB  	= 000470	#12-303    
ORCBB 	= 000473	#12-306    
ORCBI 	= 000471	#12-304    
ORCBM 	= 000472	#12-305    
ORCM  	= 000464	#12-299    
ORCMB 	= 000467	#12-302    
ORCMI 	= 000465	#12-300    
ORCMM 	= 000466	#12-301    
ORI   	= 000435	#12-274    
ORM   	= 000436	#12-276    
PAG   	= 000010	#12-451     101-233    102-257    102-278    103-296    103-313    103-314    103-320    104-343   
PI    	= 000004	#12-450     55-128     55-132    
POP   	= 000262	#12-161    
POPJ  	= 000263	#12-162    
PUSH  	= 000261	#12-160    
PUSHJ 	= 000260	#12-159    
PXCT  	= 000256	#12-156     102-254    102-254    102-274    102-274    102-275    102-275    102-276    102-276   
                         103-300    103-300    103-321    103-321   
RAMSZ0	= ******  GX	 112-748   
RAS   	= 040000	#44-201     44-201     44-201    #44-201     44-201     44-201    #44-201     44-201     44-201    
                        #44-201     44-201     44-201    #44-201     44-201     44-201    #44-201     44-201     44-201    
                        #44-201     44-201     44-201    #44-201     44-201     44-201    #44-201     44-201     44-201    
                        #44-201     44-201     44-201    #44-201     44-201     44-201    #44-201     44-201     44-201    
                        #44-201     44-201     44-201    #44-201     44-201     44-201    #44-201    
READAC	= ******  GX	 108-555   
RELEAS	= ******	 12-454     39-1600    40-1       51-492     95-1       95-2       99-109     100-173    101-222   
                         104-380    105-407    106-452    107-535    108-593    112-769   
ROT   	= 000241	#12-144    
ROTC  	= 000245	#12-148     103-289    103-289   
RS0RS1	= 000010	#44-182    
RS0TN0	= 000020	#44-183    
RUNBIG	= ******  GX	 100-194    107-485   
RUNPRG	= ******  GX	 100-189   
R$$20F	= 000001	#3-48       44-187     49-469     96-17      96-18      96-19      96-39      97-50      97-56     
                         99-106     99-107     99-133     99-134     99-135     99-136     100-162    100-163    100-164   
DBEOVL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:13	PAGE 13

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                         100-177    100-180    100-181    100-189    100-190    100-191    100-192    100-193    100-194   
                         101-222    104-380    106-447    106-448    106-460    106-461    106-462    106-467    106-469   
                         106-470    107-485    107-495    107-497    107-500    107-510    108-555    108-566    108-567   
                         108-574    109-643    109-646    111-705    111-708    111-713    111-717    111-718    112-756   
                         112-762    112-763    112-787   
R5.PC 	= ******  GX	 98-90      100-172    108-561    110-677   
SAV.5 	= ******  GX	 96-16      99-119     106-439    110-652   
SBDT  	= ******  GX	 96-19      107-510    111-718   
SBD0  	= ******  GX	 109-646   
SBUS  	= 100000	#26-1126   
SDMSBR	= ******  GX	 111-705   
SDWDFM	= ******  GX	 107-520   
SECLK 	= 000003	#55-118    
SETA  	= 000424	#12-263    
SETAB 	= 000427	#12-266    
SETAI 	= 000425	#12-264    
SETAM 	= 000426	#12-265    
SETCA 	= 000450	#12-287    
SETCAB	= 000453	#12-290    
SETCAI	= 000451	#12-288    
SETCAM	= 000452	#12-289    
SETCM 	= 000460	#12-295    
SETCMB	= 000463	#12-298    
SETCMI	= 000461	#12-296    
SETCMM	= 000462	#12-297    
SETM  	= 000414	#12-255    
SETMB 	= 000417	#12-258    
SETMI 	= 000415	#12-256    
SETMM 	= 000416	#12-257    
SETMR 	= 000007	#55-121    
SETO  	= 000474	#12-307    
SETOB 	= 000477	#12-310    
SETOI 	= 000475	#12-308    
SETOM 	= 000476	#12-309    
SETPAR	= ******  GX	 109-643    112-756   
SETRAM	= ******  GX	 111-717   
SETRUN	= 000011	#55-123    
SETZ  	= 000400	#12-240    
SETZB 	= 000403	#12-246    
SETZI 	= 000401	#12-242    
SETZM 	= 000402	#12-244     104-360    104-360   
SKIP  	= 000330	#12-199    
SKIPA 	= 000334	#12-203    
SKIPE 	= 000332	#12-201    
SKIPG 	= 000337	#12-206    
SKIPGE	= 000335	#12-204    
SKIPL 	= 000331	#12-200    
SKIPLE	= 000333	#12-202    
SKIPN 	= 000336	#12-205    
SOJ   	= 000360	#12-223    
SOJA  	= 000364	#12-227     104-362    104-362   
SOJE  	= 000362	#12-225    
DBEOVL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:13	PAGE 14

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

SOJG  	= 000367	#12-230     101-235    101-235   
SOJGE 	= 000365	#12-228    
SOJL  	= 000361	#12-224    
SOJLE 	= 000363	#12-226    
SOJN  	= 000366	#12-229    
SOS   	= 000370	#12-231    
SOSA  	= 000374	#12-235    
SOSE  	= 000372	#12-233    
SOSG  	= 000377	#12-238    
SOSGE 	= 000375	#12-236    
SOSL  	= 000371	#12-232    
SOSLE 	= 000373	#12-234    
SOSN  	= 000376	#12-237    
SSCLK 	= 000002	#55-117    
STPCLK	= 000000	#55-115    
STRCLK	= 000001	#55-116     100-183   
SUB   	= 000274	#12-171    
SUBB  	= 000277	#12-174    
SUBI  	= 000275	#12-172    
SUBM  	= 000276	#12-173    
SXCT  	= 000106	#12-54     
TADR  	= 000010	#36-1491   
TBN   	= 000004	#36-1490   
TCN   	= 000001	#36-1488   
TDC   	= 000650	#12-415    
TDCA  	= 000654	#12-419     104-339    104-339   
TDCE  	= 000652	#12-417    
TDCN  	= 000656	#12-421     104-337    104-337   
TDN   	= 000610	#12-383    
TDNA  	= 000614	#12-387    
TDNE  	= 000612	#12-385     104-338    104-338   
TDNN  	= 000616	#12-389    
TDO   	= 000670	#12-431    
TDOA  	= 000674	#12-435    
TDOE  	= 000672	#12-433    
TDON  	= 000676	#12-437    
TDZ   	= 000630	#12-399    
TDZA  	= 000634	#12-403    
TDZE  	= 000632	#12-401    
TDZN  	= 000636	#12-405    
TGN   	= 000002	#36-1489   
TIMFS 	= 000044	#40-32     
TLC   	= 000641	#12-408     102-272    102-272    103-322    103-322   
TLCA  	= 000645	#12-412    
TLCE  	= 000643	#12-410    
TLCN  	= 000647	#12-414     103-323    103-323   
TLN   	= 000601	#12-376    
TLNA  	= 000605	#12-380    
TLNE  	= 000603	#12-378    
TLNN  	= 000607	#12-382     102-250    102-250   
TLO   	= 000661	#12-424    
TLOA  	= 000665	#12-428    
DBEOVL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:13	PAGE 15

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

TLOE  	= 000663	#12-426    
TLON  	= 000667	#12-430     103-312    103-312   
TLZ   	= 000621	#12-392     102-273    102-273   
TLZA  	= 000625	#12-396    
TLZE  	= 000623	#12-394    
TLZN  	= 000627	#12-398    
TRC   	= 000640	#12-407    
TRCA  	= 000644	#12-411    
TRCE  	= 000642	#12-409    
TRCN  	= 000646	#12-413    
TRN   	= 000600	#12-375    
TRNA  	= 000604	#12-379    
TRNE  	= 000602	#12-377     104-361    104-361   
TRNN  	= 000606	#12-381    
TRO   	= 000660	#12-423    
TROA  	= 000664	#12-427    
TROE  	= 000662	#12-425    
TRON  	= 000666	#12-429    
TRPAR 	= 010000	#44-203     44-203     44-203    #44-203     44-203     44-203    #44-203     44-203     44-203    
                        #44-203     44-203     44-203    #44-203     44-203     44-203    #44-203     44-203     44-203    
                        #44-203     44-203     44-203    #44-203     44-203     44-203    #44-203     44-203     44-203    
                        #44-203     44-203     44-203    #44-203     44-203     44-203    #44-203     44-203     44-203    
                        #44-203    
TRZ   	= 000620	#12-391    
TRZA  	= 000624	#12-395    
TRZE  	= 000622	#12-393    
TRZN  	= 000626	#12-397    
TSC   	= 000651	#12-416    
TSCA  	= 000655	#12-420    
TSCE  	= 000653	#12-418    
TSCN  	= 000657	#12-422    
TSN   	= 000611	#12-384    
TSNA  	= 000615	#12-388    
TSNE  	= 000613	#12-386    
TSNN  	= 000617	#12-390    
TSO   	= 000671	#12-432    
TSOA  	= 000675	#12-436    
TSOE  	= 000673	#12-434    
TSON  	= 000677	#12-438    
TSTCON	= ******  GX	 99-121     112-747   
TSZ   	= 000631	#12-400    
TSZA  	= 000635	#12-404    
TSZE  	= 000633	#12-402    
TSZN  	= 000637	#12-406    
UCEFIB	  002073 R	*100-170   #105-419   *107-541   
UFA   	= 000130	#12-71     
UNDCTN	= 000007	#43-174    
WENABL	= 004000	#44-204     44-204     44-204    #44-204     44-204     44-204    #44-204     44-204     44-204    
                        #44-204     44-204     44-204    #44-204     44-204     44-204    #44-204     44-204     44-204    
                        #44-204     44-204     44-204    #44-204     44-204     44-204    #44-204     44-204     44-204    
                        #44-204     44-204     44-204    #44-204     44-204     44-204    #44-204    
X     	= 000000	#99-107     99-107    #99-107     99-107    #99-107     99-107    #99-107     99-107    #99-107    
DBEOVL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:13	PAGE 16

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                         99-107    #99-107     99-107    #99-107     99-107    #100-197    100-197   #101-225    101-225   
                        #101-226    101-226   #101-227    101-227   #101-228    101-228   #101-229    101-229   #101-230   
                         101-230   #101-231    101-231   #101-232    101-232   #101-233    101-233   #101-234    101-234   
                        #101-235    101-235   #101-236    101-236   #102-247    102-247   #102-248    102-248   #102-249   
                         102-249   #102-250    102-250   #102-251    102-251   #102-252    102-252   #102-253    102-253   
                        #102-254    102-254   #102-255    102-255   #102-256    102-256   #102-257    102-257   #102-258   
                         102-258   #102-259    102-259   #102-260    102-260   #102-271    102-271   #102-272    102-272   
                        #102-273    102-273   #102-274    102-274   #102-275    102-275   #102-276    102-276   #102-277   
                         102-277   #102-278    102-278   #102-279    102-279   #102-280    102-280   #102-281    102-281   
                        #102-282    102-282   #102-283    102-283   #103-289    103-289   #103-290    103-290   #103-291   
                         103-291   #103-292    103-292   #103-293    103-293   #103-294    103-294   #103-295    103-295   
                        #103-296    103-296   #103-297    103-297   #103-299    103-299   #103-300    103-300   #103-301   
                         103-301   #103-302    103-302   #103-311    103-311   #103-312    103-312   #103-313    103-313   
                        #103-314    103-314   #103-315    103-315   #103-317    103-317   #103-319    103-319   #103-320   
                         103-320   #103-321    103-321   #103-322    103-322   #103-323    103-323   #103-324    103-324   
                        #103-325    103-325   #103-326    103-326   #104-336    104-336   #104-337    104-337   #104-338   
                         104-338   #104-339    104-339   #104-340    104-340   #104-341    104-341   #104-342    104-342   
                        #104-343    104-343   #104-344    104-344   #104-352    104-352   #104-353    104-353   #104-358   
                         104-358   #104-360    104-360   #104-361    104-361   #104-362    104-362   #104-363    104-363   
                        #104-369    104-369   #104-371    104-371   #104-373    104-373   #104-374    104-374   #104-375   
                         104-375   #104-376    104-376   #105-394    105-394   #105-395    105-395   #105-396    105-396   
                        #105-397    105-397   #105-398    105-398   #105-399    105-399   #105-400    105-400   #105-401   
                         105-401   #105-402    105-402   #105-403    105-403   #105-404    105-404   #105-406    105-406   
                        #111-717    111-717   #111-722    111-722   #111-723    111-723   #112-775    112-775   
XCT   	= 000256	#12-157    
XDV   	= 000004	#101-232    101-232    101-232   #101-233    101-233    101-233   #102-249    102-249    102-249   
                        #102-251    102-251    102-251   #102-253    102-253    102-253   #102-256    102-256    102-256   
                        #102-257    102-257    102-257   #102-271    102-271    102-271   #102-278    102-278    102-278   
                        #103-296    103-296    103-296   #103-313    103-313    103-313   #103-314    103-314    103-314   
                        #103-320    103-320    103-320   #104-343    104-343    104-343   #104-375    104-375    104-375   
XOP   	= 000002	#101-232    101-232    101-232   #101-233    101-233    101-233   #102-249    102-249    102-249   
                        #102-251    102-251    102-251   #102-253    102-253    102-253   #102-256    102-256    102-256   
                        #102-257    102-257    102-257   #102-271    102-271    102-271   #102-278    102-278    102-278   
                        #103-296    103-296    103-296   #103-313    103-313    103-313   #103-314    103-314    103-314   
                        #103-320    103-320    103-320   #104-343    104-343    104-343   #104-375    104-375    104-375   
XOR   	= 000430	#12-267     102-281    102-281   
XORB  	= 000433	#12-270    
XORI  	= 000431	#12-268    
XORM  	= 000432	#12-269    
XR    	= 000000	#101-227    101-227   #101-228    101-228   #101-229    101-229   #101-230    101-230   #101-231   
                         101-231   #101-232    101-232   #101-233    101-233   #101-234   #101-234    101-234   #101-235   
                         101-235   #101-236    101-236   #102-248   #102-248    102-248   #102-249    102-249   #102-250   
                         102-250   #102-251    102-251   #102-252    102-252   #102-253    102-253   #102-254    102-254   
                        #102-255    102-255   #102-256    102-256   #102-257    102-257   #102-258    102-258   #102-259   
                         102-259   #102-271    102-271   #102-272    102-272   #102-273    102-273   #102-274    102-274   
                        #102-275    102-275   #102-276    102-276   #102-277    102-277   #102-278    102-278   #102-279   
                         102-279   #102-280    102-280   #102-281    102-281   #102-282    102-282   #103-289    103-289   
                        #103-290    103-290   #103-291   #103-291    103-291   #103-292    103-292   #103-293    103-293   
                        #103-294    103-294   #103-295    103-295   #103-296    103-296   #103-299    103-299   #103-300   
                         103-300   #103-301    103-301   #103-302    103-302   #103-311   #103-311    103-311   #103-312   
                        #103-312    103-312   #103-313    103-313   #103-314    103-314   #103-319    103-319   #103-320   
                         103-320   #103-321    103-321   #103-322    103-322   #103-323    103-323   #103-324    103-324   
DBEOVL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:13	PAGE 17

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                        #103-325    103-325   #103-326    103-326   #104-336   #104-336    104-336   #104-337   #104-337   
                         104-337   #104-338   #104-338    104-338   #104-339   #104-339    104-339   #104-340    104-340   
                        #104-341   #104-341    104-341   #104-342   #104-342    104-342   #104-343    104-343   #104-352   
                         104-352   #104-353   #104-353    104-353   #104-360   #104-360    104-360   #104-361    104-361   
                        #104-362    104-362   #104-363    104-363   #104-373   #104-373    104-373   #104-374    104-374   
                        #104-375    104-375   #104-376    104-376   
XX1   	= ******  GX	 107-497   
Z     	= 000100	#99-107     99-107     99-107    #99-107     99-107     99-107    #99-107     99-107     99-107    
                        #99-107     99-107     99-107    #99-107     99-107     99-107    #99-107     99-107     99-107    
                        #99-107    
$ACBLK	= 000001	#99-135    #100-177   #106-447   #106-460   #107-495   #108-567   
$APRID	= 000000	#55-129    
$BRST 	= 000001	#44-189    
$CABTE	= 000001	#10-309     111-725   
$CNTSD	= 000001	#99-133    #99-134    
$CONEX	= ******	 49-469    
$DBESC	= 000001	#10-308     95-5      
$DDFWR	= ******  GX	 100-182   
$DDFXC	= ******  GX	 100-183   
$DMPAC	= 070010	#12-10     
$DPOST	= ******  GX	 100-163    100-192   
$EB   	= 001066 R	#101-222    104-380   
$EVENT	= 000001	#44-190    
$EXAMT	= ******  GX	 108-577   
$FATAL	= ******  GX	 96-38      97-63      107-488    107-526    110-668   
$FIND 	= 000001	#44-188    
$GETCT	= 070020	#12-12     
$IND36	= 000003	#28-1177   
$INIBS	= 000001	#10-312     110-679   
$KL10A	= 000101	#41-61     
$KL10B	= 000102	#41-62     
$LDBES	= 000001	#10-310     98-97     
$LOADA	= 000001	#99-136    #100-180   #100-191   #106-448   #106-461   #106-467   #106-469   #108-566   
$MABL 	= 000001	#99-107    
$MXTAD	= 000001	#10-311     112-777   
$PATCH	= 070004	#12-9      
$RDERA	= 000000	#55-131    
$READA	= 000001	#108-555   
$RELOA	= 000001	#28-1175   
$RESET	= 000001	#99-106    #100-162   #100-190   #106-462   
$RSTAC	= 070030	#12-14     
$RUN  	= 000001	#100-189   #100-194   #107-485   
$SAVAC	= 070024	#12-13     
$SBDIA	= 000002	#55-127     102-249    102-253    102-256    104-375   
$SDW  	= 000002	#28-1176   
$SETPA	= 000001	#109-643   #112-756   
$SETRA	= 000001	#111-717   
$SIZ16	= 033061	#41-64     
$SIZ32	= 031063	#41-65     
$SIZ4K	= 032060	#41-63     
$SIZ64	= 032066	#41-66     
$STEP 	= 000001	#44-191    
DBEOVL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:13	PAGE 18

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

$TB   	= 000000	#101-222   
$TCRLF	= ******  GX	 107-522    107-526   
$TIMLP	= 070014	#12-11     
$TL   	= 000130	#104-380   
$TTDMS	= ******  GX	 107-519    107-526   
$WDD36	= ******  GX	 107-521   
$XX   	= 000001	#107-497   
$$APRI	= 000000	#55-130    
$$NARG	= 000001	#99-136     99-136     99-136    #100-180    100-180    100-180   #100-191    100-191    100-191   
                        #106-448    106-448    106-448   #106-461    106-461    106-461   #106-467    106-467    106-467   
                        #106-469    106-469    106-469   #108-566    108-566    108-566   
$$RDER	= 000004	#55-132    
$$SBDI	= 000004	#55-128     102-249    102-253    102-256    104-375   
$10BC 	= 070040	#12-16     
$10BP 	= 070034	#12-15     
$10MB 	= 070050	#12-18     
$10RB 	= 070044	#12-17     
.RESET	= ******  GX	 99-106     100-162    100-190    106-462   
.SBDIA	= 000001	#96-19     #107-510   #109-646   #111-718   
...   	= 000377	#12-25      105-415    105-419   
......	= 177777	#12-24      105-416   
DBEOVL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:13	PAGE 19

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

ACBLK 		#20-787    #99-135    #100-177   #106-447   #106-460   #107-495   #108-567   
BLK10 		#29-1207    101-222   
BP.   		#13-482    
BRST  		#18-716    
BTOFIX		#47-336    #97-69     
BURST 		#68-556    
CABTE 		#46-291     96-39     
CALL  		#53-38     
CALLR 		#53-47     
CALPAR		#33-1363   
CGOTO 		#16-617    
CNTSD 		#33-1381   #99-133    #99-134    
CONDET		#46-311    
CONDMA		#45-222    
CONFIG		#45-218    
CONMAB		#45-230    
CONMOS		#45-226    
CONMX 		#47-354    
CONTIN		#14-552    
COPYAC		#31-1325   
CTFMTC		#46-307    
DBESCN		#46-287    
DCNFBB		#47-326    
DFPC  		#67-526    
DFRD  		#56-163    
DFRDT 		#57-184    
DFSCLK		#66-516    
DFWRT 		#58-225    
DFWRTT		#59-265    #100-182   
DFXCT 		#60-304    
DFXCTT		#61-336    #100-183   
DMADET		#45-246    
DOLOOP		#22-907    
DPD   		#45-258    
DPOS  		#62-369    
DPOST 		#63-409    #100-163   #100-192   
DSOBAC		#18-707    
DTEBAS		#69-570    
ENBLPS		#21-854    
ENDBLK		#29-1222    104-380   
ENDLOO		#21-878    
ENDTIM		#42-126    
ERRCOM		#50-487    
ERRMSG		#50-473    
ERROR 		#50-479    #107-526   
EVENT 		#17-650    
EXAM  		#64-448    
EXAMT 		#65-494     108-577   
EXCT  		#72-632    
EXECUT		#23-978    
EXOR  		#54-99     
EXP16K		#47-364    #97-50     #97-56     
DBEOVL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:13	PAGE 20

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

FATAL 		#38-1590   #94-1291    96-38      97-63      107-488    107-526    110-668   
FIND  		#17-669    
FITMEM		#45-238    
FIXSB 		#47-340    #98-75     
FSD   		#25-1070   #111-708   #111-713   #112-763   
FSDCHK		#26-1100   
FSDMSK		#25-1050   #111-705   #112-762   
GBSRL 		#49-432    
GETBBD		#48-400    
GETCMP		#48-410    
GETTF 		#46-283    
GMCN  		#37-1522   
ICEON 		#47-321    
IND36 		#28-1190   
INIBSR		#48-390     96-17     
INIUDF		#38-1583   
INVAL 		#20-817    
IO10  		#30-1275   #101-232   #101-233   #102-249   #102-251   #102-253   #102-256   #102-257   #102-271   #102-278   
                #103-296   #103-313   #103-314   #103-320   #104-343   #104-375   
I10   		#30-1252    101-227    101-228    101-229    101-230    101-231    101-234    101-235    101-236    102-248   
                 102-250    102-252    102-254    102-255    102-258    102-259    102-272    102-273    102-274    102-275   
                 102-276    102-277    102-279    102-280    102-281    102-282    103-289    103-290    103-291    103-292   
                 103-293    103-294    103-295    103-299    103-300    103-301    103-302    103-311    103-312    103-319   
                 103-321    103-322    103-323    103-324    103-325    103-326    104-336    104-337    104-338    104-339   
                 104-340    104-341    104-342    104-352    104-353    104-360    104-361    104-362    104-363    104-373   
                 104-374    104-376   
JAB   		#37-1535   
LDATIM		#49-455    
LDBESP		#47-331     96-18     
LDEFER		#38-1594   
LDFSDP		#26-1095   
LDFVR 		#46-271    
LDNADR		#46-267    
LDREFR		#46-279    
LDTIMR		#46-275    
LOADAC		#19-761     99-136     100-180    100-191    106-448    106-461    106-467    106-469    108-566   
LODAR 		#70-601    
LOOP  		#21-869    
LOOPCO		#22-896    
LOOPDO		#22-912    
MABDET		#46-295    
MABL  		#27-1138   #99-107    
MABPAD		#46-299    
MASK36		#35-1445   
MB    		#45-214    
MBINI 		#46-315    
MMRESP		#45-262    
MOSDET		#45-250    
MOSDMP		#23-955    
MRESET		#75-723    
MSKDAT		#35-1474   
MSK36R		#35-1462   
DBEOVL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:13	PAGE 21

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

MXTADR		#47-349    
MX20MD		#47-344    
NUMARG		#16-626     99-136     100-180    100-191    106-448    106-461    106-467    106-469    108-566   
NUMTXT		#16-608    
OVRLOD		#38-1576   
PATERR		#23-965    
PBELL 		#89-1150   
PCRLF 		#89-1158    107-522    107-526   
PENDIS		#36-1515   
PFORCE		#77-776    #107-526   
PMSG  		#86-1059    107-519    107-526   
PNORML		#77-779    #107-526   
PNTADR		#79-834    
PNTAL 		#87-1090   
PNTAPR		#36-1504   
PNTBAK		#77-782    
PNTDEC		#84-980    
PNTNBR		#80-861    
PNTOCS		#83-948    
PNTOCT		#82-916    
PNTODT		#85-1013   
PNTVER		#20-807    
PNT36 		#78-806    
PNT36B		#81-889    #107-521   
POP   		#4-95      #53-65     #96-19     #99-106    #99-107    #99-136    #100-162   #100-180   #100-189   #100-190   
                #100-191   #100-194   #106-448   #106-461   #106-462   #106-467   #106-469   #106-476   #107-485   #107-510   
                #108-555   #108-566   #108-578   #108-592   #108-602   #108-610   #109-643   #111-708   #111-713   #111-717   
                #111-718   #111-719   #112-752   #112-756   #112-763   #112-767   
PSLASH		#89-1146   
PSPACE		#89-1142   
PTAB  		#89-1154   
PUSH  		#4-89      #53-59     #106-471   #106-472   #108-569   #108-575   #108-599   #108-607   #111-704   #112-737   
                #112-746   
PWTES 		#20-827    
RDPROM		#45-254    
READAC		#31-1309   #108-555   
REGRST		#76-760    
REGSAV		#76-756    
REPCON		#46-303    
REPFIT		#45-234    
RESDET		#45-242    
RESET 		#26-1112    99-106     100-162    100-190    106-462   
RETURN		#53-51     
RST.4 		#32-1343   
RST.5 		#32-1354   
RUN   		#15-565     100-189    100-194    107-485   
R4.R5 		#32-1347   
R5.PC 		#32-1357   #98-90     #100-172   #108-561   #110-677   
SAV.4 		#32-1339   
SAV.5 		#32-1351   #96-16     #99-119    #106-439   #110-652   
SBDIAG		#24-1002   #96-19     #107-510   #109-646   #111-718   
SBSRL 		#49-416    
DBEOVL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:13	PAGE 22

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

SCAN  		#47-359    
SETBBD		#48-395    
SETCMP		#48-405    
SETPAR		#33-1368    109-643    112-756   
SETRAM		#34-1422    111-717   
SL    		#54-71     
SM    		#73-662    
SMFSS 		#48-375    
SOBAC 		#18-696    
SR    		#54-85     
STEP  		#19-733    
STEP10		#17-639    
STKEMD		#36-1496   
STKMEP		#36-1482   
STOPLO		#22-887    
STPCON		#18-686    
S10.  		#14-509    
TBIT  		#14-535    
TICK  		#42-94     
TIMING		#41-68     
TIMSIG		#40-43     #44-201    #44-202    #44-203    #44-204    #44-205    #44-206    #44-207    
TTIDEC		#91-1214   
TTILIN		#92-1240   
TTILNW		#93-1266   
TTIOCT		#90-1186   
UMAC  		#37-1550   
WD36  		#29-1243   #100-197   #101-225   #101-226   #102-247   #102-260   #102-283   #103-297   #103-315   #103-317   
                #104-344   #104-358   #104-369   #104-371   #105-394   #105-395   #105-396   #105-397   #105-398   #105-399   
                #105-400   #105-401   #105-402   #105-403   #105-404   #105-406   #111-717   #111-722   #111-723   #112-775   
WWADR 		#74-691    
XO10  		#29-1218   
XX    		#33-1397   #107-497   
X10   		#29-1214   
$CNG  		#22-918    
$DEF  		#4-84      #52-34     #52-36     
$ENDLO		#22-933    
$LOOP 		#22-922    
$PMSG 		#88-1111   
$PRADR		#13-465    
$RDG  		#22-927    
$STOPL		#22-930    
.MAIN.	MACRO M1110  17-SEP-79 09:15
TABLE OF CONTENTS

     2-    1	ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
    95-    8	PHYSICALLY CONFIGURE DMA20
    96-   35	PHYSICALLY CONFIGURE MF20 CONTROLLERS
    99-  155	QUICKY SUBROUTINE TO TURN ON AN MF20'S ICE BITS
   100-  190	PHYSICALLY CONFIGURE MA20 & MB20 CONTROLLERS
   102-  266	REPORT ON MEMORY FIT RESULTS
   107-  476	FIT MEMORY PIECES TOGETHER
   113-  722	REPORT WHAT CONTROLLER DATA WE HAVE TO NOW
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 1


      1		177777 			FITCON==-1
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 2
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.

					.SBTTL	ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
      2
      3						.NLIST	CND,BEX
      4						.LIST	MC,MD,MEB
      5						.ENABL	AMA
      6
     11					.TITLE	FITCON -- FITMEM/REPORT/CONFIGURE OVERLAY
     12
     13					.REM	%
     14						THIS FILE CONTROLS THE ASSEMBLY OF THE 5 MEMORY BOOT OVERLAY MODULES.
     15					WHICH ONE OF THE MODULES IS DETERMINED BY WHICH ONE OF 5 SYMBOLS IS DEFINED.
     16					THE SYMBOLS ARE:
     17
     18							MBROOT, CORDET, MSSCTL, DBEOVL, OR FITCON.
     19
     20					THE SYMBOL SHOULD BE DEFINED IN THE ASSEMBLY CONTROL COMMAND USING THE /EQ:
     21					SWITCH.  ONE OTHER SYMBOL MAY BE DEFINED WITH THE EQUATE SWITCH: DEFINE "MBOKLG"
     22					WHEN DOING AN R$$20F ASSEMBLY IN THE DIAGNOSTIC ENVIRONMENT.  THIS SATISFIES
     23					EXTERNAL REFERENCES BY EXPLCITLY DEFINING THOSE SYMBOLS.
     24
     25						THE OVERLAY STRUCTURE OF THE MEMORY BOOT IS SIMPLE: ONE ROOT MODULE,
     26					MBROOT, WHICH LOADS ONE OF THE OTHER 4 MODULES UNDERNEATH IT AS NECESSARY.  THE
     27					TOTAL LENGTH OF OVERLAYS RESIDENT AT ANY ONE POINT IN TIME MUST BE LESS THAN
     28					16000(OCTAL) BYTES, BUT IT IS PREFERABLE TO KEEP IT AROUND 14000 TO ALLOW FOR
     29					EXPANSION.  THE OVERLAY STRUCTURE IS SHOWN GRAPHICALLY BELOW:
     30
     31					MEMORY
     32					16000
     33					 MAX
     34					  !	+-----------------------------------------------------------+
     35					  !	!							    !
     36					  !	!		    MBROOT (ROOT MODULE)		    !
     37					  !	!							    !
     38					  !	+--------------+--------------+--------------+--------------+
     39					  !	!	       !	      !		     !		    !
     40					  !	!    CORDET    !    MSSCTL    !    DBEOVL    !    FITCON    !
     41					  V	!	       !	      !		     !		    !
     42						+--------------+--------------+--------------+--------------+
     43
     44					TIME --------->
     45
     46						%
     47
     48		000001 			R$$20F=1	; *****FORCE ASSEMBLY OF MEM BOOT IN FRONT-END MODE *****
     49
     50					;-----DEFINE "CONMMR" TO AID IN MEMORY BOOT ERROR CHECKING.  UNDEFINE IT
     51					; TO SAVE APPROXIMATELY 400(8) BYTES IN THE MEMORY BOOT ROOT MODULE.  NOTE
     52					; THAT IF YOU UNDEFINE OR REDEFINE THIS THEN YOU MUST ALSO CHANGE THE POSITION
     53					; SUBROUTINE "MMRESP" IN THE FILE MBSUB.P11 SO THAT IT IS IN THE PROPER MODULE.
     54		000001 				CONMMR=1
     55
     56					;-----LISTING CONTROL.
     57		000001 			LSTMB=1
     58		000001 			LSBRTN=1
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 3
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.

     60					;-----SYMBOLS DEFINED TO GET RID OF UNDEFINED PROBLEMS.  THESE SYMBOLS WOULD
     61					; NORMALLY COME FROM PRM11.P11.
     62
     63		000001 			BIT0=1.
     64		000002 			BIT1=2.
     65		000004 			BIT2=4.
     66		000010 			BIT3=8.
     67		000020 			BIT4=16.
     68		000040 			BIT5=32.
     69		000100 			BIT6=64.
     70		000200 			BIT7=128.
     71		000400 			BIT8=256.
     72		001000 			BIT9=512.
     73		002000 			BIT10=1024.
     74		004000 			BIT11=2048.
     75		010000 			BIT12=4096.
     76		020000 			BIT13=8192.
     77		040000 			BIT14=16384.
     78		100000 			BIT15=32768.
     79
     80		001000 			HALTLP=	BIT9		;EBOX IS IN HALT LOOP
     81		004000 			ERRSTP=	BIT11		;EBOX CLOCK STOPPED DUE TO ERROR
     82
     83					;-----OTHER SYMBOLS DEFINED TO MAKE FLAGS GO AWAY.
     84					.MACRO	$DEF	;MAKE THE O FLAG GO AWAY   ......
     85					.ENDM
     86
     87					;-----PUSH AND POP MACROS ARE GIVEN HERE JUST TO NEATEN UP THE LISTING SOME.
     88
     89					.MACRO	PUSH	A
     90					.IRP	B,<A>
     91						  MOV	B,-(SP)	;PUSH B ON STACK
     92					.ENDR
     93					.ENDM
     94
     95					.MACRO	POP	A
     96					.IRP	B,<A>
     97						  MOV	(SP)+,B	;POP STACK INTO B
     98					.ENDR
     99					.ENDM
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 10
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.

    327					;-----THE FOLLOWING DEFINITIONS FORCE ASSEMBLY OF THE MEMORY BOOT SUBROUTINES
    328					; REQUIRED FOR THIS MODULE.
    329
    330		000001 			$CONDMA=1
    331		000001 			$CONMOS=1
    332		000001 			$CONMAB=1
    333		000001 			$REPFIT=1
    334		000001 			$FITMEM=1
    335		000001 			$REPCON=1
    336		000001 			$ICEON=1
    337		000001 			$CONMX=1
    338
    339
    345					;-----THE FOLLOWING MEMORY BOOT LABELS ARE GLOBAL.
    346
    347						.GLOBL	CONDMA,CONMAB,CONMOS,CONMX,FITMEM
    348						.GLOBL	REPCON,REPFIT
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 95
REGISTER SAVE/RESTORE TRANSLATION MACROS

      7
      8					.SBTTL		PHYSICALLY CONFIGURE DMA20
      9
     10					.REM	%
     11						CONDMA SIMPLY TURNS ON THE DMA20 IF THE BUS MODE IS NOT 0.
     12						%
     13
     14	000000	113700 	000000G		CONDMA:	MOVB	DMABM,R0	;GET BUS MODE
     15	000004	001412 				BEQ	1$		;DONT SET BUS MODE IF 0
     16	000006	116037 	000033'	000042'		MOVB	2$-1(R0),3$+3	;GET PROPER BITS FOR THAT MODE
     17	000014	012737 	000004 	000000G		MOV	#4,TSTCON	;SET CONTR #
     18	000022					SBDIAG	3$		;SET DMA20 BUS MODE
	000022	012700 	000037'			  MOV	#3$,R0		;PT TO ARG
	000026	004737 	000000G			  JSR	PC,SBD0		;DO SBUS DIAG...ADR OF WD IN R0
     19	000032	000207 			1$:	RTS	PC
     20
     21	000034	   120 	   140 	   160 	2$:	.BYTE	120,140,160	;CLR 0-5, INTRLV BITS FOR FUNC 00
     22	000037				3$:	WD36	1160,4000,0000	;SBDIAG FUNC 00
	000037	   000 	   000 	   200
	000042	   160 	   002
     25
     26					.REM	%
     27						DUMMY ROUTINE TO DO FINAL CONFIGURATION OF AN MX20.
     28						%
     29
     30	000044	000241 			CONMX:	CLC			;INDICATE NO ERROR
     31	000046	000207 				RTS	PC		;RETURN
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 96
PHYSICALLY CONFIGURE MF20 CONTROLLERS

     35					.SBTTL		PHYSICALLY CONFIGURE MF20 CONTROLLERS
     36
     37					.REM	%
     38						CONMOS IS THE ROUTINE WHICH PHYSICALLY CONFIGURES ALL MOS CONTROLLERS.
     39					IT IS ASSUMED THAT FITMEM HAS BEEN CALLED BEFORE CONMOS SO THAT THE MOS BLOCK
     40					START ADDRESS TABLES ARE VALID.  IF A MOS CONTROLLER WAS ALREADY CONFIGURED IT
     41					IS NOT RECONFIGURED BUT JUST TURNED ON AGAIN.
     42						%
     43
     44	000050				CONMOS:	SAV.5
	000050	004737 	000000G			  JSR	PC,SAV.5	;SAVE R5-R1 ON STACK
     46	000054	012700 	000040 			MOV	#32.,R0		;COPY DMA20 RESP MAP INTO RSPMAP.
     47	000060	016060 	177776G	177776G	1$:	MOV	DMARMP-2(R0),RSPMAP-2(R0)
     48	000066	005300 				DEC	R0
     49	000070	077005 				SOB	R0,1$		; (LP TIL DONE)
     51
     52					;-----CREATE A MAP OF ALL EXISTING CONTROLLERS.  THIS MAP WILL BECOME OUR
     53					; "CONNECTED TO CPU" MAP WHICH WILL BE PUT INTO ALL MF20 CONTROLLERS.
     54	000072	005046 				CLR	-(SP)		;CLR WD ON STK FOR MAP
     55	000074	012701 	000010 			MOV	#MXMFCN-MNMFCN+1,R1 ;INI LP CNT
     56	000100	006316 			2$:	ASL	(SP)		;MAKE ROOM FOR NEW MAP BIT
     57	000102	105761 	000007G			TSTB	TYPNUM+MNMFCN-1(R1) ;DOES CONTR EXIST?
     58	000106	001401 				BEQ	3$		;NO.. DON'T PUT IN MAP
     59	000110	005216 				INC	(SP)		;ELSE MARK CONTR IN MAP
     60	000112	077106 			3$:	SOB	R1,2$		;LP TIL ALL POSSIBLE MF20S ARE LOOKED AT
     61
     62					;-----SCAN FOR EXISTING CONTROLLERS.  IF A CONTROLLER EXISTS SEE IF IT IS
     63					; ALREADY CONFIGURED.
     64	000114	012705 	000010 			MOV	#MNMFCN,R5	;INI CONTR #
     65	000120	126527 	000000G	000005 	4$:	CMPB	TYPNUM(R5),#MFCTN ;DOES THE CONTR EXIST?
     66	000126	001144 				BNE	15$		;NO...DO NXT
     67	000130	010537 	000000G			MOV	R5,TSTCON	;SAV CONTR #
     68	000134	116500 	000000G			MOVB	CONTI(R5),R0	;GET SFTWR STATE BITS
     69	000140	001004 				BNE	5$		;BR IF CONTR IS AT SS 1,2,3.. OK
     70	000142					FATAL	SS0	;ERROR.. MF20 EXISTS BUT IS AT SS 0.
	000142	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "SS0" ERROR
	000146	   123 	   123 	   060 		 .ASCIZ	%SS0%
     71	000152	005300 			5$:	DEC	R0		;IS CONTR AT SS 2 OR 3?
     72	000154	003062 				BGT	10$		;YES...JUST TURN IT ON
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 97
PHYSICALLY CONFIGURE MF20 CONTROLLERS

     74					;-----CONTROLLER IS NOT CONFIGURED.  SCAN FOR ALLOCATED BLOCKS.  FOR EACH ONE
     75					; FOUND CREATE A RESPONSE WORD.
     76	000156					FSDMSK	LADRRM		;FSD CHK MSK FOR ADRESP CTL RAM LOAD
	000156	012700 	000000G			  MOV	#LADRRM,R0		;PT TO MASK
	000162	004737 	000000G			  JSR	PC,FSDM1	;LD SBDIAG CHK MASK PTD TO BY R0
     77	000166	004737 	000000G			JSR	PC,BAF		;GET POINTER TO CONTROLLER'S SIZ BYTES
     78	000172	010004 				MOV	R0,R4		;  TO R4
     79	000174	005003 				CLR	R3		;INI BLOCK #
     80	000176	112402 			6$:	MOVB	(R4)+,R2	;GET BLK SIZ
     81	000200	002042 				BGE	9$		;BR IF NON-EX (OR NOT ALLOCATED...HMMMM)
     82	000202	005402 				NEG	R2		;USE BLOCK...GET +BLKSIZ IN R2
     83	000204	010300 				MOV	R3,R0		;COP & POS BLK #
     84	000206	000300 				SWAB	R0
     85	000210	006200 				ASR	R0
     86	000212	006200 				ASR	R0
     87	000214	116501 	177770G			MOVB	RAMSZ0-MNMFCN(R5),R1 ;GET RAM SIZ CODE FOR TYPSEL=0
     88	000220	120261 	000000G			CMPB	R2,BSIZE(R1)	;IS BLK THE RIGHT SIZE FOR TYPSEL=0
     89	000224	001402 				BEQ	7$		;YES...DONT SET TYPSEL BIT IN WD
     90	000226	052700 	002000 			BIS	#2000,R0	;ELSE ADD TYPSEL=1 BIT TO RESP WD
     91	000232				7$:	SETPAR	4000		;SET PROPER PARITY BIT INTO WD
	000232	004537 	000240'			  JSR	R5,64$		;SAV R5, PT TO & SKIP ARG LIST
	000236	004000 				  .WORD	4000
	000240	004737 	000000G		64$:	  JSR	PC,SETPAR	;SET PARITY BIT IN R0 USING 4000
	000244	012605 				 MOV	(SP)+,R5
     92	000246	052700 	000020 			BIS	#20,R0		;LD EN BIT
     93
     94					;-----LOAD THE PROPER RESPONSE RAM LOCATIONS WITH THE WORD (WHICH ONES
     95					; DEPENDS ON BLOCK START ADDRESS & SIZE).
     96	000252	010037 	000460'			MOV	R0,18$		;RESP RAM WD TO SBDIAG FUNC 12
     97	000256	116437 	000137 	000457'		MOVB	MSAMSZ-1(R4),17$ ;CONFD ST ADR IS THE RAM LD ADR
     98	000264				8$:	FSD	16$,FAULT	;LD A RAM LOC
	000264	004537 	000272'			  JSR	R5,65$		;SAV R5, PT TO & SKIP FAULT LIST
	000270	000456'				  .WORD	16$		;SBDIAG WORD ADDRESS
	000272	004737 	000000G		65$:	  JSR	PC,FSDCH	;DO FAST SBDIAG, FAULT ON ERR
	000276	012605 				 MOV	(SP)+,R5
     99	000300	105237 	000457'			INCB	17$		;TO NXT LOC
    100	000304	077211 				SOB	R2,8$		;LP TIL PROPER # OF ADRESP RAM LOCS LOADED
    101	000306	005203 			9$:	INC	R3		;NXT BLK #
    102	000310	020327 	000014 			CMP	R3,#12.		;DONE?
    103	000314	002730 				BLT	6$		;NO...DO MORE
    104	000316					SMFSS	2		;SET CONTR TO SFTWR STATE 2. IT'S NOW CONFIGURED
	000316	004737 	000000G			  JSR	PC,SMFSS2	;GO SET SOFTWARE STATE TO 2
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 98
PHYSICALLY CONFIGURE MF20 CONTROLLERS

    106					;-----ALL EXISTING CONTROLLERS COME HERE.  TURN ON ALL ICE (IGNORE CORR ERR)
    107					; BITS.  SET "CONNECTED TO CPU" MAP.  SHUT OFF DISABLE, FORCE TO SS 2 OR 3.
    108					; DO A CLR0-5.
    109	000322				10$:
    111	000322					MMRESP			;MAP CONTR'S RESP (FOR TC CMD & DEBUG)
	000322	004737 	000000G			  JSR	PC,MMRESP	;DETERMINE RESPONSE FOR A CONFIGURED MOS CONTROLLER
    112	000326	103004 				BCC	11$		;OK
    113	000330					FATAL	MMR	;BOY DID WE BLOW IT
	000330	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "MMR" ERROR
	000334	   115 	   115 	   122 		 .ASCIZ	%MMR%
    116	000340				11$:	ICEON			;TURN ON ALL THE ICE (IGNORE CORR ERR) BITS
	000340	004737 	000464'			  JSR	PC,ICEON	;TURN ON ALL ICE (IGNORE CORR ERR) BITS
    128	000344	011600 			13$:	MOV	(SP),R0		;CONNECTED MAP TO PARAM REG
    129	000346					SETCMP			;MAP TO UNUSED BITSUB RAM LOCATIONS
	000346	004737 	000000G			  JSR	PC,SETCMP	;MOV MF20 CPU CONNECT DATA FROM R0 TO BITSUB RAM
    130	000352					SBDIAG	0000,0000,0001	;READ PATCH FLAG
	000352	004537 	000362'			  JSR	R5,66$		;SAV R5, PT TO & SKIP ARG LIST
	000356	000001 	000000
	000362	004737 	000000G		66$:	  JSR	PC,SBDT		;DO SBUS DIAG...WORD FOLLOWS
	000366	012605 				 MOV	(SP)+,R5
    131	000370	042710 	002000 			BIC	#2000,(R0)	;SHUT OFF DISABLE BIT
    132	000374	052710 	001201 			BIS	#1201,(R0)	;FORCE TO SS 2 OR 3
    138	000400				14$:	SBDIAG			;FIX SS BITS IN CONTR
	000400	004737 	000000G			  JSR	PC,SBD0		;DO SBUS DIAG...ADR OF WD IN R0
    139	000404					SBDIAG	0000,0004,0004	;JUST TO MAKE SURE REFRESH IS RUNNING
	000404	004537 	000414'			  JSR	R5,68$		;SAV R5, PT TO & SKIP ARG LIST
	000410	040004 	000000
	000414	004737 	000000G		68$:	  JSR	PC,SBDT		;DO SBUS DIAG...WORD FOLLOWS
	000420	012605 				 MOV	(SP)+,R5
    140	000422					SBDIAG	0100,0000,0000	;FUNC 00 TO CLR ERR FLAGS
	000422	004537 	000432'			  JSR	R5,69$		;SAV R5, PT TO & SKIP ARG LIST
	000426	000000 	040000
	000432	004737 	000000G		69$:	  JSR	PC,SBDT		;DO SBUS DIAG...WORD FOLLOWS
	000436	012605 				 MOV	(SP)+,R5
    141
    142					;-----THE CONTROLLER IS NOW TURNED ON AND READY TO GO.  GO DO NEXT ONE.
    143	000440	005205 			15$:	INC	R5		;NXT
    144	000442	020527 	000017 			CMP	R5,#MXMFCN	;ANY MORE
    145	000446	003624 				BLE	4$		;YES..DO IT
    146	000450	005726 				TST	(SP)+		;JUNK OFF STK
    147	000452					R5.PC			;RESTORE REGS & RETURN
	000452	000137 	000000G			  JMP	R5.PC		;RESTORE R1-R5 FROM STACK & DO RTS PC
    148
    149	000456	   012 			16$:	.BYTE	12		;RHE OF SBDIAG FUNC 12 WD
    150	000457	   000 			17$:	.BYTE	0		;RAM LD ADR GOES HERE
    151	000460	000000 	000000 		18$:	.WORD	0,0		;RESP RAM WD GOES HERE
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 99
QUICKY SUBROUTINE TO TURN ON AN MF20'S ICE BITS

    155					.SBTTL		QUICKY SUBROUTINE TO TURN ON AN MF20'S ICE BITS
    156
    157					.REM	%
    158						ICEON JUST LOADS AND RUNS AN AC PROGRAM.  THIS AC PROGRAM GETS EACH
    159					BITSUB RAM LOCATION, TURNS ON THE ICE (IGNORE CORRECTABLE ERROR) BIT, AND WRITES
    160					THE RAM LOCATION BACK AGAIN.  IF THE ICE BIT WAS ALREADY ON, THE LOCATION IS NOT
    161					AFFECTED.  ICEON DOES NOT TOUCH BITSUB RAM LOCATIONS 600-774 AT ALL.
    162						%
    163
    164	000464				ICEON:	RESET	CPU
	000464	004537 	000472'			  JSR	R5,64$		;SAV R5, PT TO & SKIP CPU LIST
	000470	000200 				  .WORD	CPU
	000472	004737 	000000G		64$:	  JSR	PC,.RESET	;RESET SPECIFIED HARDWARE
	000476	012605 				 MOV	(SP)+,R5
    165	000500					CNTSD	2$		;PUT CONTR # INTO SBDIAG WD
	000500	012700 	000626'			  MOV	#2$,R0		;PT TO SBDIAG WD
	000504	004737 	000000G			  JSR	PC,CNTSD1	;CONTR # TO SBDIAG WD (ADDR IN R0)
    166	000510					LOADAC	ICEONM,1$	;LOAD THE PROGRAM
	000510	004537 	000520'			  JSR	R5,65$		;SAV R5, PT TO & SKIP ARG LIST
	000514	003777 				  .WORD ICEONM		;LOAD MASK
	000516	000544'				  .WORD 1$		;PDP11 MEM ADR(S)
	000520	004737 	000000G		65$:	  JSR	PC,ACLOAD	;LOAD ACS FROM CONTIGUOUS 11 MEM
	000524	012605 				 MOV	(SP)+,R5
    167	000526					RUN	AC0		;RUN IT
	000526	004537 	000534'			  JSR	R5,66$		;SAV R5, PT TO & SKIP ARG LIST
	000532	000000 				  .WORD	AC0		;STARTING ADR
	000534	004737 	000000G		66$:	  JSR	PC,RUNPRG	;RUN PRGM 1 TIC USING GIVEN PC
	000540	012605 				 MOV	(SP)+,R5
    168	000542	000207 				RTS	PC		;DONE...EXIT
    169
    170	000544					BLK10
    171	000544				1$:	I10	SUBI,12,,400	;0-NXT BITSUB RAM LOC
	000544	   000 	   001 	   000
	000547	   355 	   005
    172	000551					IO10	SBDIAG,,,12	;1-GET LOCATIONS CONTENTS
	000551	   012 	   000 	   000
	000554	   005 	   016
    173	000556					I10	HLLZ,13,,13	;2-SHUT OFF JUNK IN 18-35
	000556	   013 	   000 	   200
	000561	   105 	   012
    174	000563					I10	IOR,13,,12	;3-CONTR #, RAM ADR, & FCN # TO NEW WD
	000563	   012 	   000 	   200
	000566	   345 	   010
    175	000570					I10	TLC,13,,34	;4-COMP ICE & PAR BITS, TURN ON LD EN
	000570	   034 	   000 	   200
	000573	   015 	   015
    176	000575					I10	TLNE,13,,20	;5-SKIP IF ICE BIT WAS ON BEFORE TLC
	000575	   020 	   000 	   200
	000600	   035 	   014
    177	000602					IO10	SBDIAG,,,13	;6-ELSE DO SBDIAG TO TURN IT ON
	000602	   013 	   000 	   000
	000605	   005 	   016
    178	000607					I10	TRNE,12,,77400	;7-SKIP IF ALL DONE
	000607	   000 	   177 	   000
	000612	   025 	   014
    179	000614					I10	JRST,,,0	;10-ELSE LOOP UNTIL DONE
	000614	   000 	   000 	   000
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 99-1
QUICKY SUBROUTINE TO TURN ON AN MF20'S ICE BITS

	000617	   140 	   005
    180	000621					I10	JRST,4,,0	;11-HALT WHEN DONE
	000621	   000 	   000 	   000
	000624	   142 	   005
    181	000626				2$:	WD36	0000,0006,0007	;12-BLANK FCN 7 WD TO READ BITSUB RAM LOC
	000626	   007 	   140 	   000
	000631	   000 	   000
    182									;13-ECHO FROM ABOVE.. IS CONVERTED & SENT
    183									;14-SCRATCH
    184		003777 			ICEONM=3777			;15-17 NOT USED
    185	000633					ENDBLK
    186						.EVEN
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 100
PHYSICALLY CONFIGURE MA20 & MB20 CONTROLLERS

    190					.SBTTL		PHYSICALLY CONFIGURE MA20 & MB20 CONTROLLERS
    191
    192					.REM	%
    193						CONMAB TAKES THE INTERLEAVE, START ADDRESS, AND SIZE INFORMATION OF EACH
    194					MA20 OR MB20 CONTROLLER AND USES IT TO PHYSICALLY TURN ON THAT CONTROLLER.  SCAN
    195					IS FROM CONTROLLER 0 TO 3.  EACH CONTROLLER IS TREATED THE SAME WAY AS EVERY
    196					OTHER EXCEPT WHEN DOING PAIRS.  IN THAT CASE THE ODD CONTROLLER IS SET THE SAME
    197					AS THE EVEN CONTROLLER EXCEPT THAT THE SENSE OF THE RQ BITS IS REVERSED.  IT IS
    198					ASSUMED THAT FITMEM HAS BEEN DONE.  WATCH YOURSELF.
    199						%
    200
    201	000634				CONMAB:	SAV.5
	000634	004737 	000000G			  JSR	PC,SAV.5	;SAVE R5-R1 ON STACK
    202	000640	005005 				CLR	R5		;CONTROLLER NUMBER
    203	000642	005004 				CLR	R4		;INTRLV & RQ BITS
    204	000644	012701 	000017 			MOV	#17,R1		;CONSTANT FOR EXOR
    205					;-----HERE TO VALIDATE OLD OR GET NEW CONFIGURATION DATA.
    206	000650	032705 	000001 		1$:	BIT	#1,R5		;EVEN OR ODD CONTR?
    207	000654	001407 				BEQ	2$		;EVEN...MUST GET NEW DATA
    208	000656					EXOR	R1,R4		;CHANGE SENSE OF RQ BITS FOR ODD CONTR
	000656	010146 				  MOV	R1,-(SP)
	000660	040416 				  BIC	R4,(SP)
	000662	040104 				  BIC	R1,R4
	000664	052604 				  BIS	(SP)+,R4
    209	000666	032704 	000040 			BIT	#40,R4		;WAS EVEN CONTR PAIRED? (INT 2 OR 4)
    210	000672	001052 				BNE	5$		;YES...JUST TURN ON ODD WITH SAME INFO
    211	000674	116500 	000000G		2$:	MOVB	MABINT(R5),R0	;HERE FOR NEW CONTR INFO...GET INTRLV
    212	000700	116004 	001070'			MOVB	8$(R0),R4	;GET INT & RQ BITS FROM TABLE
    213	000704	005300 				DEC	R0		;INTRLV 0 (OFF) OR 1?
    214	000706	002462 				BLT	7$		;YES...0...NO CONTR...DON'T CONFIGURE
    215	000710	001407 				BEQ	3$		;YES...1...CANT REVERSE RQ BITS
    216	000712	105737 	000000G			TSTB	CONFGR		;DO WE WANT TO REVERSE THEM?
    217	000716	001404 				BEQ	3$		;NO
    218	000720					EXOR	R1,R4		;ELSE REVERSE THEM
	000720	010146 				  MOV	R1,-(SP)
	000722	040416 				  BIC	R4,(SP)
	000724	040104 				  BIC	R1,R4
	000726	052604 				  BIS	(SP)+,R4
    220	000730	116503 	000000G		3$:	MOVB	MABSA(R5),R3	;GET START ADR
    221	000734	042703 	177400 			BIC	#177400,R3
    222	000740	116500 	000000G			MOVB	MABSIZ(R5),R0	;GET SIZE
    223	000744	010302 				MOV	R3,R2		;COPY START ADR FOR END ADR CALC
    224	000746	042702 	177760 			BIC	#-16.,R2	;ISO LOWER 265K START ADR
    225	000752	160002 				SUB	R0,R2		;CALC UPPER ADR BOUND <U=L-(-SIZ)-1>
    226	000754	005302 				DEC	R2
    227	000756	032702 	177760 			BIT	#-16.,R2	;HAVE WE GONE OUT OF 256K BLOCK?
    228	000762	001404 				BEQ	4$		;NO...OK
    229	000764					FATAL	OO2	;ELSE DIE
	000764	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "OO2" ERROR
	000770	   117 	   117 	   062 		 .ASCIZ	%OO2%
    230	000774	006302 			4$:	ASL	R2		;POS HI BOUND ADR
    231	000776	006302 				ASL	R2
    232	001000	000303 				SWAB	R3		;POS LO BOUND ADR
    233	001002	006203 				ASR	R3
    234	001004	006203 				ASR	R3
    235	001006	042703 	140077 			BIC	#140077,R3	;ISO LO BOUND
    236	001012	050203 				BIS	R2,R3		;COMBINE INTO LO/HI BOUNDS WORD
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 100-1
PHYSICALLY CONFIGURE MA20 & MB20 CONTROLLERS

    237	001014	052703 	000002 			BIS	#2,R3		;TURN ON LD EN BIT
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 101
PHYSICALLY CONFIGURE MA20 & MB20 CONTROLLERS

    239					;-----HERE TO TURN ON A CONTROLLER.
    240	001020	010537 	000000G		5$:	MOV	R5,TSTCON	;SAV CONTR #
    246	001024	110437 	001077'		6$:	MOVB	R4,9$+3		;INTRLV/RQ BYTE TO SBDIAG FUNC 00 WD
    247	001030	010337 	001102'			MOV	R3,10$+1		;BOUNDS TO FUNC 01 WD
    248	001034					SBDIAG	10$		;SET ADR BOUNDS INTO CONTROLLER
	001034	012700 	001101'			  MOV	#10$,R0		;PT TO ARG
	001040	004737 	000000G			  JSR	PC,SBD0		;DO SBUS DIAG...ADR OF WD IN R0
    249	001044					SBDIAG	9$		;CLR0-5, SET INTRLV & RQ BITS
	001044	012700 	001074'			  MOV	#9$,R0		;PT TO ARG
	001050	004737 	000000G			  JSR	PC,SBD0		;DO SBUS DIAG...ADR OF WD IN R0
    250					;-----NEXT CONTROLLER.
    251	001054	005205 			7$:	INC	R5		;NEXT CONTR #
    253	001056	020527 	000003 			CMP	R5,#MXM.CN	;ANY MORE?
    257	001062	003672 				BLE	1$		;YES
    258	001064					R5.PC			;RETURN
	001064	000137 	000000G			  JMP	R5.PC		;RESTORE R1-R5 FROM STACK & DO RTS PC
    259
    260	001070	   100 	   137 	   152 	8$:	.BYTE	100,137,152,172	;CLR0-5 BIT, INTRLV & RQ EN BYTES
    261	001074				9$:	WD36	0100,4000,0000	;FUNC 00 WD
	001074	   000 	   000 	   200
	001077	   100 	   000
    262	001101				10$:	WD36	0000,0000,0001	;FUNC 01 WD
	001101	   001 	   000 	   000
	001104	   000 	   000
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 102
REPORT ON MEMORY FIT RESULTS

    266					.SBTTL	REPORT ON MEMORY FIT RESULTS
    267
    268					.REM	%
    269						REPFIT REPORTS THE RESULTS OF THE MEMORY FIT PROCESS.  IN ADDITION IT
    270					SERVES AS A PROGRAM LOGIC CHECK AND IS CAPABLE OF FINDING A NUMBER OF ERRORS.
    271					IT WORKS AS FOLLOWS: ALL OF THE ADDRESS SPACE MUST BE ASSIGNED EITHER TO DMA20,
    272					GAP, INTERNAL CORE, OR MOS MEMORY.  REPFIT CREATES AN ADDRESS AND THEN SCANS THE
    273					VARIOUS TABLES UNTIL HE FINDS WHO HAS THAT ADDRESS.  IF NO ONE HAS IT SOMETHING
    274					IS SCREWWED UP.  OTHERWISE HE PRINTS WHO HAS IT & GOES ON UNTIL ALL 4 MEG IS
    275					COVERED.
    276						%
    277	001106				REPFIT:
    278	001106					FITMEM			;MAKE SURE MEM FIT PROCESS IS DONE
	001106	004737 	002154'			  JSR	PC,FITMEM	;FIT MEMORY PIECES TOGETHER
    279	001112					SAV.5
	001112	004737 	000000G			  JSR	PC,SAV.5	;SAVE R5-R1 ON STACK
    280	001116	005005 				CLR	R5		;INI THE ADDRESS
    281	001120	005004 				CLR	R4		;ALLOCATED BLIVITS FOUND COUNT
    282	001122					PUSH	<GAPCNT,#GAPTAB,DMA2TS,#DMA20T> ;WORK AREA ON STK
	001122	013746 	000000G			 MOV	GAPCNT,-(SP)
	001126	012746 	000000G			 MOV	#GAPTAB,-(SP)
	001132	013746 	000000G			 MOV	DMA2TS,-(SP)
	001136	012746 	000000G			 MOV	#DMA20T,-(SP)
    283	001142					PFORCE			;UNDO CNTL-O
    284	001142					PNORML
    285	001142					PMSG	<\LOGICAL MEMORY CONFIGURATION.\> ;HEADER
	001142	012700 	001154'			 MOV	#64$,R0		; ** MESSAGE POINTER TO R0
	001146	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	001152	000420 				 BR	65$		; ** BRANCH AROUND TEXT
	001154	   134 	   114 	   117 	64$:	 .ASCIZ	%\LOGICAL MEMORY CONFIGURATION.\%
    286	001214					PMSG	<  ADDRESS  SIZE  INT  TYPE CONTROLLER\>
	001214	012700 	001226'			 MOV	#66$,R0		; ** MESSAGE POINTER TO R0
	001220	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	001224	000424 				 BR	67$		; ** BRANCH AROUND TEXT
	001226	   040 	   040 	   101 	66$:	 .ASCIZ	%  ADDRESS  SIZE  INT  TYPE CONTROLLER\%
    287
    288					;-----PRINT THE ADDRESS IF THE ADDRESS IS NOT AT THE END-OF-MEM-SPACE GAP.
    289	001276	005766 	000006 		1$:	TST	6(SP)		;ANYTHING LEFT IN GAP TABLE?
    290	001302	003411 				BLE	2$		;NO.  PRINT THE ADDRESS
    291	001304	016601 	000004 			MOV	4(SP),R1	;GET GAP ADR PTR TO R1
    292	001310	020511 				CMP	R5,(R1)		;DOES GAP HAVE RIGHT ADR?
    293	001312	001005 				BNE	2$		;NO.  PRINT THE ADDRESS
    294	001314	012100 				MOV	(R1)+,R0	;GAP ADR TO R0
    295	001316	061100 				ADD	(R1),R0		;CALC AFTER-GAP ADR (=ST+LEN)
    296	001320	020027 	000400 			CMP	R0,#400		;IS THIS GAP AT END OF MEMORY?
    297	001324	001403 				BEQ	3$		;YES.  DON'T PRINT ADR
    298	001326	010500 			2$:	MOV	R5,R0
    299	001330	004737 	003744'			JSR	PC,CSPAS		;EDIT & PRINT ADR
    301
    302					;-----SEE IF DMA20 HAS THE ADDRESS.
    303	001334				3$:	POP	R3		;CURRENT DMA TABLE ADR TO R3
	001334	012603 				 MOV	(SP)+,R3
    304	001336	005716 				TST	(SP)		;ANY X MEM BLKS LEFT?
    305	001340	003420 				BLE	5$		;NO...SKIP THIS PART
    306	001342	020513 				CMP	R5,(R3)		;DOES DMA HAV THE ADR?
    307	001344	002416 				BLT	5$		;NO...TRY FOR GAP
    308	001346	001404 				BEQ	4$		;YES
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 102-1
REPORT ON MEMORY FIT RESULTS

    309	001350					FATAL	XOO	;X MEM BLK OUT OF ORDER
	001350	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "XOO" ERROR
	001354	   130 	   117 	   117 		 .ASCIZ	%XOO%
    310	001360	005316 			4$:	DEC	(SP)		;OK...DEC X MEM BLK CNT
    311	001362	005723 				TST	(R3)+		;PT TO BLK SIZ
    312	001364	012300 				MOV	(R3)+,R0	;TO PARAM REG
    313	001366	113701 	000000G			MOVB	DMABM,R1	;BUS MODE TO PARAM REG
    314	001372	012702 	000004 			MOV	#4,R2		;CONTR # TO PARAM REG
    315	001376					PUSH	R3		;RESTORE STK
	001376	010346 				 MOV	R3,-(SP)
    316	001400	000430 				BR	7$		;GO PRINT
    317	001402				5$:	PUSH	R3		;RESTORE STK
	001402	010346 				 MOV	R3,-(SP)
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 103
REPORT ON MEMORY FIT RESULTS

    319
    320					;-----SEE IF THE ADDRESS IS GIVEN TO A GAP.
    321	001404	005766 	000006 			TST	6(SP)		;ANYTHING LEFT IN GAP TABLE?
    322	001410	003530 				BLE	14$		;NO...TRY INTERNAL CORE MEM
    323	001412	020576 	000004 			CMP	R5,@4(SP)	;DOES GAP HAVE RIGHT ADR?
    324	001416	002525 				BLT	14$		;NO TRY CORE AGAIN
    325	001420	001404 				BEQ	6$		;YES
    326	001422					FATAL	GOO	;GAP OUT OF ORDER
	001422	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "GOO" ERROR
	001426	   107 	   117 	   117 		 .ASCIZ	%GOO%
    327	001432	005366 	000006 		6$:	DEC	6(SP)		;DECR GAP COUNT
    328	001436	062766 	000002 	000004 		ADD	#2,4(SP)	;PT TO GAP SIZ WD
    329	001444	017600 	000004 			MOV	@4(SP),R0	;SIZ WD TO PARAM REG
    330	001450	062766 	000002 	000004 		ADD	#2,4(SP)	;PT TO NXT ENTRY
    331	001456	012701 	177777 			MOV	#-1,R1		;FLAG NON-EXISTENT MEMORY
    332
    333					;-----A MATCH TO THE ADDRESS HAS BEEN FOUND.  COME HERE TO PRINT INFO.
    334	001462	060005 			7$:	ADD	R0,R5		;FIRST UPDATE THE ADR (ALREADY PRINTED)
    335	001464	005701 			8$:	TST	R1		;ARE WE DOING A GAP?
    336	001466	002003 				BGE	9$		;NO
    337	001470	020527 	000400 			CMP	R5,#400		;IS GAP AT END-OF-MEM-SPACE?
    338	001474	001466 				BEQ	13$		;YES.  SUPPRESS PRINT
    339	001476	004737 	003776'		9$:	JSR	PC,PRINTK	;PRINT NNNNK<TAB>
    340	001502	010100 				MOV	R1,R0		;INTRLV
    341	001504	100441 				BMI	11$		;NEG INTRLV MEANS GAP...PRINT NXM
    342	001506	004737 	004044'			JSR	PC,PBM		;PRINT INTRLV
    343	001512	110200 				MOVB	R2,R0		;COPY CONTR #
    344	001514	116000 	000000G			MOVB	TYPNUM(R0),R0	;GET CONTR TYPE
    345	001520	004737 	000000G			JSR	PC,ASL0.3	;CALC PTR TO CONTR TYP ASCIZ STRING
    346	001524	062700 	000000G			ADD	#TYPE0,R0
    347	001530					PNTAL
	001530	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
    348	001534					PSPACE
	001534	004737 	000000G			 JSR	PC,$TTSPC	; ** PRINT A <SPACE>
    349	001540				10$:	PSPACE
	001540	004737 	000000G			 JSR	PC,$TTSPC	; ** PRINT A <SPACE>
    350	001544	010200 				MOV	R2,R0		;CONTR # TO PARAM REG
    351	001546					PNTODT	2		;2 DIGIT #
	001546	010046 				 MOV	R0,-(SP)	; ** SAVE R0
	001550	042700 	177700 			 BIC	#^C77,R0	; ** MASK OUT UNWANTED BITS
	001554	004737 	000000G			 JSR	PC,$TDB2O	; ** PRINT THE NUMBER
	001560	012600 				 MOV	(SP)+,R0	; ** RESTORE R0
    353	001562	005702 				TST	R2		;ANOTHER CONTR # TO PRINT?
    354	001564	002030 				BGE	12$		;NO
    355	001566	000302 				SWAB	R2		;ELSE POSITION THE OTHER CONTR #
    356	001570					PMSG	< &>
	001570	012700 	001602'			 MOV	#68$,R0		; ** MESSAGE POINTER TO R0
	001574	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	001600	000402 				 BR	69$		; ** BRANCH AROUND TEXT
	001602	   040 	   046 	   000 	68$:	 .ASCIZ	% &%
    358	001606	000754 				BR	10$		;PRINT THE OTHER
    359	001610				11$:	PMSG	<      NON-EXISTENT>
	001610	012700 	001622'			 MOV	#70$,R0		; ** MESSAGE POINTER TO R0
	001614	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	001620	000412 				 BR	71$		; ** BRANCH AROUND TEXT
	001622	   040 	   040 	   040 	70$:	 .ASCIZ	%      NON-EXISTENT%
    360	001646				12$:	PCRLF			;END THE LINE
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 103-1
REPORT ON MEMORY FIT RESULTS

	001646	004737 	000000G			 JSR	PC,$TCRLF	; ** PRINT A <CR><LF>
    361	001652	020527 	000400 		13$:	CMP	R5,#400		;UP TO 4 MEG YET?
    362	001656	103607 				BLO	1$		;NO...KEEP GOING
    363	001660	001527 				BEQ	29$		;YES..DONE PRINT...CHK ALLOCD BLIVIT CNT
    364	001662					FATAL	B4M	;HAVE GOTTEN BEYOND 4 MEG SOMEHOW
	001662	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "B4M" ERROR
	001666	   102 	   064 	   115 		 .ASCIZ	%B4M%
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 104
REPORT ON MEMORY FIT RESULTS

    366
    367					;-----HERE TO TRY THE ADDRESS UP AGAINST INTERNAL CORE MEMORY.
    369	001672	012702 	000003 		14$:	MOV	#MXM.CN,R2	;CONTR # FOR SCAN
    373	001676	116200 	000000G		15$:	MOVB	MABSIZ(R2),R0	;DOES CONTR EXIST?
    374	001702	001432 				BEQ	19$		;NO...TRY NXT
    375	001704	002404 				BLT	16$
    376	001706					FATAL	MNA	;MA/MB EXISTS BUT IS NOT ALLOCATED
	001706	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "MNA" ERROR
	001712	   115 	   116 	   101 		 .ASCIZ	%MNA%
    377	001716	126205 	000000G		16$:	CMPB	MABSA(R2),R5	;DOES CONTR HAVE THE START ADR?
    378	001722	001022 				BNE	19$		;NO...TRY NXT
    379	001724	005204 				INC	R4		;YES...INC ALLOCD BLIVIT FND CNT
    380	001726	005400 				NEG	R0		;NEG SIZE TO GET REAL SIZ
    381	001730	116201 	000000G			MOVB	MABINT(R2),R1	;INTRLV TO PARAM REG
    382	001734	020127 	000002 			CMP	R1,#2		;2 OR 4 WAY?
    383	001740	103650 				BLO	7$		;NO...IS SINGLE CONTROLLER
    385	001742					PUSH	R2		;ELSE DOUBLE UP CONTR NUMBERS
	001742	010246 				 MOV	R2,-(SP)
    386	001744	005202 				INC	R2
    387	001746	000302 				SWAB	R2
    388	001750	052602 				BIS	(SP)+,R2
    389	001752	105737 	000000G			TSTB	CONFGR		;REVERSE CONF FLAG SET?
    390	001756	001401 				BEQ	17$		;NO...EVEN CONTR HAS EVEN RQ BITS
    391	001760	000302 				SWAB	R2		;ELSE ODD CONTR HAS EVEN RQ BITS
    392	001762	052702 	100000 		17$:	BIS	#BIT15,R2	;FLAG DOUBLE CONTR RQ
    398	001766	000635 				BR	7$		;GO PRINT
    399	001770	005302 			19$:	DEC	R2		;TRY NXT MA20/MB20 CONTR
    400	001772	002341 				BGE	15$
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 105
REPORT ON MEMORY FIT RESULTS

    402
    403					;-----THE MOS MEMORY SCAN IS COMPLICATED BY THE FACT THAT THE TYPEOUT IS
    404					; DONE BY CONTROLLER BUT THE FIT IS DONE BY MOS BLOCKS.  THIS CODE THEREFORE
    405					; SCANS UNTIL AN ADDRESS MATCH IS FOUND AND THEREIN AFTER LOCKS ONTO THE
    406					; CONTROLLER WHERE THE MATCH IS FOUND.  ONCE LOCKED IT ITERATES UNTIL ALL
    407					; ADDRESS-CONTIGUOUS BLOCKS IN THE CONTROLLER HAVE BEEN PICKED UP.
    408	001774	005000 				CLR	R0		;CUMULATIVE CONTIGUOUS BLK SIZ
    409	001776	005001 				CLR	R1		;CNT SINCE LAST ST ADR MATCH
    410	002000	005002 				CLR	R2		;BLOCK INDEX
    411	002002	116203 	000000G		20$:	MOVB	MDFSIZ(R2),R3	;DOES BLK EXIST?
    412	002006	001410 				BEQ	22$		;NO...TRY NXT
    413	002010	002404 				BLT	21$		;YES
    414	002012					FATAL	UMB	;UNALLOCATED MOS BLOCK
	002012	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "UMB" ERROR
	002016	   125 	   115 	   102 		 .ASCIZ	%UMB%
    415	002022	126205 	000000G		21$:	CMPB	MOSSA(R2),R5	;DOES BLK HAVE RIGHT ST ADR?
    416	002026	001425 				BEQ	25$		;YES...LOCK ON CONTR & RECORD
    417	002030	005301 			22$:	DEC	R1		;WHAT MODE ARE WE IN?
    418	002032	002413 				BLT	24$		;NOT LOCKED...INTERCONTR SCAN
    419	002034	003027 				BGT	26$		;LOCKED...INTRACONTR SCAN
    420	002036	012701 	000007 			MOV	#MNMFCN-1,R1	;INTRACONTR SCAN DONE..CALC CONTR # FROM BLK NDX
    421	002042	005201 			23$:	INC	R1
    422	002044	162702 	000014 			SUB	#12.,R2
    423	002050	002374 				BGE	23$
    424	002052	010102 				MOV	R1,R2
    425	002054	012701 	000004 			MOV	#4,R1		;...INTRA-SCAN DONE...INTRLV PARAM
    426	002060	000601 				BR	8$		;GO PRINT
    427	002062	005202 			24$:	INC	R2		;HERE FOR INTER-SCAN NXT BLK #
    428	002064	020227 	000137 			CMP	R2,#<MXMFCN-MNMFCN+1>*12.-1 ;OUT OF BLKS?
    429	002070	101744 				BLOS	20$		;NO...TRY AGAIN
    430	002072					FATAL	NHA	;NO ONE HAS THE ADDRESS
	002072	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "NHA" ERROR
	002076	   116 	   110 	   101 		 .ASCIZ	%NHA%
    431	002102	005204 			25$:	INC	R4		;MATCH FOUND...INCR ALLOCD BLIVIT CNT
    432	002104	012701 	000014 			MOV	#12.,R1		;(RE)SET INTRA-SCAN LP CNT
    433	002110	160305 				SUB	R3,R5		;ADR=ADR-(-SIZE)
    434	002112	160300 				SUB	R3,R0		;TOTAL=TOTAL-(-SIZE)
    435	002114	005202 			26$:	INC	R2		;HERE FOR INTRACONTROLLER SCAN
    436	002116					PUSH	R2		;FIGURE OUT IF WE HAVE PASSED THE LOCKED CONTR
	002116	010246 				 MOV	R2,-(SP)
    437	002120	162702 	000014 		27$:	SUB	#12.,R2		; AND IF SO GO BACK TO BLK 0 OF LOCKED CONTR
    438	002124	003375 				BGT	27$
    439	002126	001002 				BNE	28$
    440	002130	162716 	000014 			SUB	#12.,(SP)
    441	002134				28$:	POP	R2
	002134	012602 				 MOV	(SP)+,R2
    442	002136	000721 				BR	20$
    443
    444	002140				29$:	PCRLF			;PRINTING ALL DONE WHEN HERE
	002140	004737 	000000G			 JSR	PC,$TCRLF	; ** PRINT A <CR><LF>
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 106
REPORT ON MEMORY FIT RESULTS

    471	002144	062706 	000010 		34$:	ADD	#8.,SP		;JUNK OFF STK
    472	002150					R5.PC			;RESTORE REGS & RETURN
	002150	000137 	000000G			  JMP	R5.PC		;RESTORE R1-R5 FROM STACK & DO RTS PC
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 107
FIT MEMORY PIECES TOGETHER

    476					.SBTTL	FIT MEMORY PIECES TOGETHER
    477
    478					.REM	%
    479						FITMEM SETS UP THE START ADDRESS TABLES BASED UPON THE CURRENT CONTENTS
    480					OF THE RESOURCE TABLES.  THE RESOURCES ARE SET UP FIRST IF REQUIRED.  FITMEM IS
    481					REALLY JUST THE INTERLOCK CODE.  IT DROPS THROUGH TO MDSLT WHO DOES THE REAL
    482					WORK.
    483						%
    484	002154				FITMEM:
    486
    487					; ***** RESDET MUST ALREADY BE DONE BY THE TIME WE GET HERE! *****
    488
    492	002154	105737 	000000G			TSTB	FITTED		;HAS FITMEM BEEN DONE?
    493	002160	001401 				BEQ	MDSLT		;NO...DO IT
    494	002162	000207 				RTS	PC
    495
    496
    497					.REM	%
    498						MDSLT IS THE SUBROUTINE FOR DETERMINING WHAT THE MEMORY CONFIGURATION IS
    499					TO BE.  INPUTS TO THIS ROUTINE ARE THE RESOURCE TABLES AND ASSOCIATED CONTROL
    500					WORDS.  THE OUTPUTS ARE THE START-ADDRESS TABLES AND THE "GAP" TABLE.  A WORD ON
    501					NOTATION IS NEEDED HERE: A HOLE IS SOMETHING MDSLT IS TRYING TO FILL WHEREAS A
    502					GAP IS SOMETHING MDSLT HAS GIVEN UP TRYING TO FILL.  BASICLY MDSLT WORKS AS
    503					 FOLLOWS: HOLES ARE BOUND BY EXTERNAL MEMORY, PRECONFIGURED MOS MEMORY, AND THE
    504					ABSOLUTE LIMITS OF THE MEMORY SPACE.  MDSLT ATTEMPS TO FILL THESE HOLES WITH
    505					INTERNAL MEMORY OR UNCONFIGURED MOS MEMORY.  IF A HOLE, OR A PORTION THEREOF,
    506					CANNOT BE FILLED, THEN THAT SPACE IS ASSIGNED AS A GAP.  IN THIS MANNER MDSLT
    507					WILL ACCOUNT FOR ALL 4 MEGAWORDS OF PHYSICAL MEMORY.  NOTHING SHOULD CAUSE MDSLT
    508					TO FAIL.  IT WILL CONFIGURE WHATEVER HE FINDS IN THE RESOURCE TABLES.  ALL
    509					INTERNAL, MOS, AND EXTERNAL MEMORY WILL BE CONFIGURED, WITHOUT GAPS IF POSSIBLE.
    510						%
    511
    512					;-----ENTRY SECTION.  DO APPROPRIATE INITS.
    513	002164				MDSLT:	REGSAV			;SAVE ALL REGS
	002164	004737 	000000G			 JSR	PC,SAV.5	; ** SAVE R1 - R5 ON THE STACK
    514
    515	002170	012701 	000011 			MOV	#MNMFCN+1,R1	;DEALLOCATE SOFTWARE STATE 1 MF20 BLOCKS
    516	002174	132761 	000002 	177777G	1$:	BITB	#2,CONTI-1(R1)
    517	002202	001011 				BNE	4$
    518	002204	010100 				MOV	R1,R0
    519	002206	004737 	000000G			JSR	PC,BAF0
    520	002212	012702 	000014 			MOV	#12.,R2
    521	002216	105740 			2$:	TSTB	-(R0)
    522	002220	002001 				BGE	3$
    523	002222	105410 				NEGB	(R0)
    524	002224	077204 			3$:	SOB	R2,2$
    525	002226	005201 			4$:	INC	R1
    526	002230	020127 	000020 			CMP	R1,#MXMFCN+1
    527	002234	003757 				BLE	1$
    528
    530	002236	012700 	000004G			MOV	#MABSIZ+MXM.CN+1,R0 ;DEALLOCATE MA20/MB20
    534	002242	105440 			5$:	NEGB	-(R0)
    535	002244	002001 				BGE	6$
    536	002246	105410 				NEGB	(R0)
    537	002250	020027 	000000G		6$:	CMP	R0,#MABSIZ
    538	002254	101372 				BHI	5$
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 108
FIT MEMORY PIECES TOGETHER

    540
    541					;-----NOW INIT FOR THE HOLE SCAN.
    542	002256	105037 	000000G			CLRB	CDONE		;MARK CONFIG UNDONE
    543	002262	005037 	000000G			CLR	GAPCNT		;RESET GAP COUNTER
    544	002266	012701 	177774G			MOV	#GAPTAB-4,R1	;INIT GAP TABLE POINTER
    545	002272	012702 	000000G			MOV	#RSPMAP,R2	;RSPMAP WD PTR...SET UP FOR SCAN
    546	002276	012703 	000001 			MOV	#1,R3		;RSPMAP BIT PTR
    547	002302	010337 	003002'			MOV	R3,USBLMF	;ASSUME WE HAVE USABLE MF20 BLOCKS
    548	002306	005005 				CLR	R5		;INI 16K BLIVVIT #
    549
    550					;-----SCAN FOR THE BEGINNING OF A HOLE BY SEARCHING RSPMAP BIT-WISE UNTIL A
    551					; 0 IS FOUND.  R4 WILL THEN HAVE THE HOLE START ADR.
    552	002310				SLTGO:	SCAN			;SCAN RSPMAP FOR NEXT HOLE
	002310	004737 	000000G			  JSR	PC,SCAN		;SCAN 16K MEMORY BIT MAP
    553	002314	103454 				BCS	8$		;NO MORE FOUND...EXIT
    554
    555					;-----NOW THAT HOLE BOUNDS ARE KNOWN (R4,R5) GO FILL IT.
    556	002316	004737 	002460'		1$:	JSR	PC,MABFIL	;FILL HOLE WITH AS MUCH MA/MB AS POSSIBLE
    557	002322	103372 				BCC	SLTGO		;BR IF HOLE COMPLETELY FILLED.  FIND NXT HOLE.
    558	002324	004737 	002664'		2$:	JSR	PC,MDFFIL	;ELSE TRY TO PUT AN MF20 BLOCK IN HOLE
    559	002330	103413 				BCS	4$		;BR IF NO BLOCKS LEFT OR HOLE TO SMALL FOR ANY
    560									;BLOCK.  DON'T BOTHER RETRY OF MA/MB SINCE HOLE
    561									;START ADR DIDN'T CHANGE.
    562	002332	020405 				CMP	R4,R5		;BLOCK PUT IN HOLE.  IS HOLE FULL (ST=END)?
    563	002334	001765 				BEQ	SLTGO		;YES, GO FIND NXT HOLE
    564	002336	103404 				BLO	3$		;NO, TRY TO FILL HOLE SOME MORE
    565	002340					FATAL	HOV	;ERROR...HOLE IS OVER-FILLED
	002340	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "HOV" ERROR
	002344	   110 	   117 	   126 		 .ASCIZ	%HOV%
    566	002350	005737 	002662'		3$:	TST	UMAB		;DO WE HAVE ANY USABLE MA20/MB20 LEFT?
    567	002354	003360 				BGT	1$		;YES.  HOLE ST ADR HAS CHANGED SINCE WE LAST
    568									;TRIED MA/MB THEREFORE IS REASONABLE TO RETRY.
    569	002356	000762 				BR	2$		;ELSE JUST TRY FOR ANOTHER MF20 BLOCK IN HOLE.
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 109
FIT MEMORY PIECES TOGETHER

    571
    572					;-----CONTROL HAS COME TO HERE MEANING THAT NONE OF THE INTERNAL MEMORY
    573					; CONTROLLER TYPES COULD HANDLE THE HOLE COMPLETELY.  ASSIGN WHAT'S LEFTOVER TO
    574					; GAP SPACE.
    575	002360	012100 			4$:	MOV	(R1)+,R0	;GET CURRENT GAP START ADR
    576	002362	062100 				ADD	(R1)+,R0	;ADD LEN TO CALC WHERE IT ENDS
    577	002364	020004 				CMP	R0,R4		;WAS ANY MEM ALLOCATED SINCE LAST GAP?
    578	002366	001405 				BEQ	5$		;BR IF NO...JUST ADD MORE TO CUR GAP
    579	002370	002406 				BLT	6$		;BR IF YES...CREATE NEW GAP AFTER ALLOC
    580	002372					FATAL	MAB	;YES...MEM ALLOCATED BACKWARDS...ERROR
	002372	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "MAB" ERROR
	002376	   115 	   101 	   102 		 .ASCIZ	%MAB%
    581	002402	005241 			5$:	INC	-(R1)		;INCREASE GAP SIZE BY 16K
    582	002404	000405 				BR	7$		;GO DO RETRY
    583	002406	010421 			6$:	MOV	R4,(R1)+	;HSTART IS NEW GAP START
    584	002410	012711 	000001 			MOV	#1,(R1)		;GAP IS AT LEAST 16K
    585	002414	005237 	000000G			INC	GAPCNT		;BUMP GAP COUNT
    586	002420	005741 			7$:	TST	-(R1)		;BAKUP GAP TAB PTR
    587	002422	005204 				INC	R4		;MOV HOLE START 16K PAST SPACE JUST
    588									;ASSIGNED TO GAP TABLE
    589
    590					;-----IS THERE ANY HOLE & MA20/MB20 LEFT TO CONFIGURE IN IT?  NOTE THAT THERE
    591					; CAN'T BE ANY MF20 LEFT FOR THE HOLE IF WE GET HERE.
    592	002424	020405 				CMP	R4,R5		;ANY HOLE LEFT?
    593	002426	001730 				BEQ	SLTGO		;NO...FIND NEXT HOLE
    594	002430	005737 	002662'			TST	UMAB		;ARE THERE UNUTILIZED RESOURCES?
    595	002434	003330 				BGT	1$		;GO ATTEMPT TO USE THEM
    596	002436	162105 				SUB	(R1)+,R5	;NO MORE RESOURCES...CALC GAP SIZE
    597	002440	010511 				MOV	R5,(R1)		; ...AND PLACE IN TABLE
    598	002442	064105 				ADD	-(R1),R5	;RESTORE HOLE END ADR
    599	002444	000721 				BR	SLTGO		;CONTINUE SCAN
    600
    601					;-----EXIT SECTION.
    602	002446				8$:	REGRST			;RESTORE ALL REGS
	002446	004737 	000000G			 JSR	PC,RST.5	; ** RESTORE R1 - R5 AND RETURN
    603	002452	105237 	000000G			INCB	FITTED		;MARK MEMORY AS FITTED
    604	002456	000207 				RTS	PC		;RETURN TO CALLER
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 110
FIT MEMORY PIECES TOGETHER

    606					.REM	%
    607						MABFIL IS THE SUBROUTINE WHICH SCANS THE MA20/MB20 RESOURCE TABLES
    608					LOOKING FOR SOMETHING TO CONFIGURE INTO THE CURRENT HOLE.  IT MAKES SURE THAT
    609					(1) THE CONTROLLER ISN'T ALREADY ALLOCATED, (2) THAT THE START ADDRESS IS LEGAL
    610					FOR THE CONTROLLER, AND (3) THAT THE USE OF THE CONTROLLER WILL NOT OVERFLOW THE
    611					HOLE.  THE LARGEST CONTROLLER WHICH MEETS THESE CONDITIONS IS ALLOCATED AND THE
    612					HOLE START ADDRESS (IN R4, R5 IS EXPECTED TO HAVE THE HOLE END ADR) IS UPDATED.
    613						%
    614
    615					;-----SET UP FOR CONTR SCAN.
    616	002460				MABFIL:	PUSH	<R1,R2,R3>
	002460	010146 				 MOV	R1,-(SP)
	002462	010246 				 MOV	R2,-(SP)
	002464	010346 				 MOV	R3,-(SP)
    617	002466	005037 	002662'		1$:	CLR	UMAB		;ZAP UNUTILIZED MA20/MB20 COUNT
    618	002472	005002 				CLR	R2		;SIZ OF LARGEST USABLE CONTR
    619	002474	005001 				CLR	R1		;INI CONTR # FOR FORWARD SCAN
    620	002476	012737 	000001 	000000G		MOV	#1,MABCNI	;CONTR # INCR
    622	002504	105737 	000000G			TSTB	CONFGR		;ARE WE CONFIGURING BACKWARDS?
    623	002510	001404 				BEQ	2$		;NOPE
    624	002512	012701 	000003 			MOV	#MXM.CN,R1	;ELSE INI CONTR # FOR REVERSE SCAN
    625	002516	005437 	000000G			NEG	MABCNI		; & CONTR # DECR
    627					;-----TAKE EACH CONTR IN TURN AND SEE IF IT IS SUITABLE FOR THE HOLE.
    628	002522	105761 	000000G		2$:	TSTB	MABSIZ(R1)	;DOES CONTR EXIST & IS IT FREE?
    629	002526	003426 				BLE	4$		;NO...SKIP IT
    630	002530	010400 				MOV	R4,R0		;COPY HOLE START ADR
    631	002532	146100 	000000G			BICB	MABADC(R1),R0	; & SHUT OFF ADR-DONT-CARE BITS
    632	002536	146161 	000000G	000000G		BICB	MABADC(R1),MABSA(R1) ;LIKEWISE INTO CONTR ST ADR
    633	002544	126100 	000000G			CMPB	MABSA(R1),R0	;IS HOLE START PROPER FOR THIS CONTR?
    634	002550	001013 				BNE	3$		;NO...SKIP IT
    635	002552	116100 	000000G			MOVB	MABSIZ(R1),R0	;GET SIZE OF CONTR
    636	002556	060400 				ADD	R4,R0		;CALC HOLE END ADR IF WE USE CONTR
    637	002560	020005 				CMP	R0,R5		;IS CONTR TOO BIG FOR HOLE?
    638	002562	003006 				BGT	3$		;YES...SKIP IT
    639					;-----CONTROLLER IS USABLE.  COMPARE ITS SIZE TO THE LARGEST PREVIOUS USABLE
    640					; CONTROLLER AND RECORD ITS SIZE & NUMBER IF IT IS BIGGER.
    641	002564	126102 	000000G			CMPB	MABSIZ(R1),R2	;IS THE NEW USABLE CONTR BIGGER?
    642	002570	003403 				BLE	3$		;NO...CONTINUE WITH OLD
    643	002572	116102 	000000G			MOVB	MABSIZ(R1),R2	;ELSE SAV SIZ & # OF NEW
    644	002576	010103 				MOV	R1,R3
    645					;-----HERE FOR NEXT CONTR.
    646	002600	005237 	002662'		3$:	INC	UMAB		;BUMP UNUTILIZED MA20/MB20 COUNT
    647	002604	063701 	000000G		4$:	ADD	MABCNI,R1	;NXT CONTR #
    649	002610	020127 	000003 			CMP	R1,#MXM.CN	;MORE CONTRS TO DO?
    653	002614	101742 				BLOS	2$		;LOOP IF MORE TO TRY
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 111
FIT MEMORY PIECES TOGETHER

    655					;-----SCAN IS DONE.  FIND OUT IF WE HAD A USABLE CONTR.  IF NOT WE CAN'T
    656					; FILL THE CURRENT HOLE AND WE MUST EXIT.  OTHERWISE SET UP THE CONTROLLER'S
    657					; INFO AND REDO SCAN IF ANY USABLE MA20/MB20 ARE LEFT.
    658	002616	005702 				TST	R2		;WAS A USABLE CONTR FOUND?
    659	002620	003413 				BLE	5$		;NO...EXIT TO GET NEXT HOLE
    660	002622	110463 	000000G			MOVB	R4,MABSA(R3)	;SET REAL START ADR
    661	002626	105463 	000000G			NEGB	MABSIZ(R3)	;MARK AS ALLOCATED BY SETTING SIZ=-SIZ
    662	002632	060204 				ADD	R2,R4		;UPDATE HOLE START
    663	002634	020405 				CMP	R4,R5		;IS HOLE EXACTLY FILLED?
    664	002636	000241 				CLC			;ELSE YES...DO A C-BIT CLR RETURN
    665	002640	001404 				BEQ	6$		;HOLE FILLED...DONE
    666	002642	005337 	002662'			DEC	UMAB		;DECR USABLE COUNT FOR CONTR USED
    667	002646	003307 				BGT	1$		;DO ANOTHER SCAN IF MORE USABLE CONTRS
    668	002650	000261 			5$:	SEC			;ELSE OUT OF RESOURCES...ERR RETURN
    669	002652				6$:	POP	<R3,R2,R1>
	002652	012603 				 MOV	(SP)+,R3
	002654	012602 				 MOV	(SP)+,R2
	002656	012601 				 MOV	(SP)+,R1
    670	002660	000207 				RTS	PC
    671
    672	002662	177777 			UMAB:	.WORD	......		;UNUSED MA20/MB20 COUNT
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 112
FIT MEMORY PIECES TOGETHER

    674
    675					.REM	%
    676						MDFFIL IS VERY SIMILAR TO MABFIL EXCEPT THAT IT SCANS ON MOS "BLOCKS"
    677					INSTEAD OF ENTIRE CONTROLLERS, AND IT ONLY ALLOCATES ONE BLOCK AT A TIME.  IT
    678					ALSO DOESN'T CARE ABOUT ANY PARTICULAR START ADDRESS BECAUSE A BLOCK CAN WRAP ON
    679					ANY 16K BOUNDARY.  R4 IS THE HOLE START, R5 THE HOLE END.
    680						%
    681
    682					;-----SET UP FOR BLOCK SCAN.
    683	002664				MDFFIL:	PUSH	<R1,R2>
	002664	010146 				 MOV	R1,-(SP)
	002666	010246 				 MOV	R2,-(SP)
    684	002670	005737 	003002'			TST	USBLMF		;DO WE HAVE USABLE MF20 BLOCKS LEFT?
    685	002674	001436 				BEQ	3$		;NO, DO C-BIT SET RETURN
    686	002676	005037 	003002'			CLR	USBLMF		;ELSE SAY NO MORE BLOCKS UNLESS WE FIND SOME
    687	002702	005001 				CLR	R1		;INI BLOCK # FOR FORWARD SCAN
    688	002704	012702 	000001 			MOV	#1,R2		;BLOCK # INCR
    689	002710	105737 	000000G			TSTB	CONFGR		;ARE WE CONFIGURING BACKWARDS?
    690	002714	001403 				BEQ	1$		;NOPE
    691	002716	012701 	000137 			MOV	#<MXMFCN-MNMFCN+1>*12.-1,R1 ;ELSE INI BLOCK # FOR REVERSE SCAN
    692	002722	005402 				NEG	R2		; & BLOCK # DECR
    693
    694					;-----TAKE EACH BLOCK IN TURN AND SEE IF IT IS SUITABLE FOR THE HOLE.
    695	002724	116100 	000000G		1$:	MOVB	MDFSIZ(R1),R0	;GET SIZE OF BLOCK
    696	002730	003414 				BLE	2$		;SKP IT IF NON-EX OR ALREADY ALLOCATED
    697	002732	005237 	003002'			INC	USBLMF		;IND WE FND USABLE MF20 BLK
    698	002736	060400 				ADD	R4,R0		;CALC HOLE END ADR IF WE USE BLOCK
    699	002740	020005 				CMP	R0,R5		;IS BLOCK TOO BIG FOR HOLE?
    700	002742	003007 				BGT	2$		;YES...SKIP IT
    701
    702					;-----BLOCK IS USABLE.  SET ITS REAL START ADDRESS, MARK IT CONFIGURED, AND
    703					; SHRINK HOLE BY ITS SIZE.
    704	002744	110461 	000000G			MOVB	R4,MOSSA(R1)	;SET REAL START ADR
    705	002750	105461 	000000G			NEGB	MDFSIZ(R1)	;MARK AS ALLOCATED BY SETTING SIZ=-SIZ
    706	002754	010004 				MOV	R0,R4		;UPDATE HOLE START
    707	002756	000241 				CLC			;BLK PUT IN HOLE.  DO A C-BIT CLR RETURN
    708	002760	000405 				BR	4$
    709
    710					;-----HERE FOR NEXT BLOCK.
    711	002762	060201 			2$:	ADD	R2,R1		;NXT BLOCK #
    712	002764	020127 	000137 			CMP	R1,#<MXMFCN-MNMFCN+1>*12.-1 ;MORE BLOCKS TO DO?
    713	002770	101755 				BLOS	1$		;LOOP IF MORE TO TRY
    714	002772	000261 			3$:	SEC			;ELSE OUT OF RESOURCES...ERR RETURN
    715	002774				4$:	POP	<R2,R1>
	002774	012602 				 MOV	(SP)+,R2
	002776	012601 				 MOV	(SP)+,R1
    716	003000	000207 				RTS	PC
    717
    718	003002	000000 			USBLMF:	.WORD	0		;INDICATES WE MAY HAV USABLE MF20 BLOCK LEFT
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 113
REPORT WHAT CONTROLLER DATA WE HAVE TO NOW

    722					.SBTTL	REPORT WHAT CONTROLLER DATA WE HAVE TO NOW
    723
    724					.REM	%
    725						REPCON REPORTS THE RESOURCES AVAILABLE FOR CONFIGURATION.
    726						%
    727
    728	003004				REPCON:
    730
    731					; ***** CONDET MUST HAVE BEEN DONE BY THE TIME WE GET HERE! *****
    732
    736	003004					SAV.5
	003004	004737 	000000G			  JSR	PC,SAV.5	;SAVE R5-R1 ON STACK
    737	003010					PFORCE			;UNDO CNTL-O
    738	003010					PNORML
    739	003010					PMSG	<\MEMORY RESOURCES:>
	003010	012700 	003022'			 MOV	#64$,R0		; ** MESSAGE POINTER TO R0
	003014	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	003020	000412 				 BR	65$		; ** BRANCH AROUND TEXT
	003022	   134 	   115 	   105 	64$:	 .ASCIZ	%\MEMORY RESOURCES:%
    740	003046					PMSG	<\CONTROLLER ADDRESS  TYPE  MODULES/GROUPS\>
	003046	012700 	003060'			 MOV	#66$,R0		; ** MESSAGE POINTER TO R0
	003052	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	003056	000426 				 BR	67$		; ** BRANCH AROUND TEXT
	003060	   134 	   103 	   117 	66$:	 .ASCIZ	%\CONTROLLER ADDRESS  TYPE  MODULES/GROUPS\%
    741	003134					PMSG	<			  7 6 5 4 3 2 1 0\>
	003134	012700 	003146'			 MOV	#68$,R0		; ** MESSAGE POINTER TO R0
	003140	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	003144	000413 				 BR	69$		; ** BRANCH AROUND TEXT
	003146	   011 	   011 	   011 	68$:	 .ASCIZ	%			  7 6 5 4 3 2 1 0\%
    742					;-----NOW LOOP THRU CONTR NUMBERS & TYPE THEM IF ANY RESPONSE AT ALL.
    743	003174	005002 				CLR	R2		;INI CONTR #
    744	003176	116203 	000000G		1$:	MOVB	CONTI(R2),R3	;GET CONTR INFO BYTE
    745	003202	116201 	000000G			MOVB	TYPNUM(R2),R1	;GET TYPE
    746	003206	001002 				BNE	2$		;NOT ZERO
    747	003210	005703 				TST	R3		;ANYTHING IN INFO BYTE?
    748	003212	001563 				BEQ	11$		;NO, DON'T REPORT THIS CONTR
    749	003214	020127 	000007 		2$:	CMP	R1,#UNDCTN	;CONTR TYPE # OUT OF RANGE?
    750	003220	003402 				BLE	3$		;NO..OK...CONTINUE
    751	003222	012701 	000007 			MOV	#UNDCTN,R1	;ELSE SET DEFAULT
    752	003226				3$:	PCRLF			;CR/LF TAB
	003226	004737 	000000G			 JSR	PC,$TCRLF	; ** PRINT A <CR><LF>
    753	003232					PTAB
	003232	004737 	000000G			 JSR	PC,$TTTAB	; ** PRINT A <TAB>
    754	003236	010200 				MOV	R2,R0
    755	003240					PNTODT	2		;TYPE CONTROLLER NUMBER
	003240	010046 				 MOV	R0,-(SP)	; ** SAVE R0
	003242	042700 	177700 			 BIC	#^C77,R0	; ** MASK OUT UNWANTED BITS
	003246	004737 	000000G			 JSR	PC,$TDB2O	; ** PRINT THE NUMBER
	003252	012600 				 MOV	(SP)+,R0	; ** RESTORE R0
    757	003254					PTAB
	003254	004737 	000000G			 JSR	PC,$TTTAB	; ** PRINT A <TAB>
    758	003260					PSPACE
	003260	004737 	000000G			 JSR	PC,$TTSPC	; ** PRINT A <SPACE>
    759	003264	010100 				MOV	R1,R0		;COPY CONTR TYPE
    760	003266	004737 	000000G			JSR	PC,ASL0.3	;FOR CONTR TYPE MSG NDX
    761	003272	062700 	000000G			ADD	#TYPE0,R0	;PT TO CONTR TYPE MSG
    762	003276					PNTAL			;TYPE MEMORY TYPE
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 113-1
REPORT WHAT CONTROLLER DATA WE HAVE TO NOW

	003276	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
    763	003302	020127 	000006 			CMP	R1,#BRCTN	;IS THIS AN SBUS RECORDER
    764	003306	001525 				BEQ	11$		;YES, ALL DONE WITH THIS LINE
    765	003310					PSPACE
	003310	004737 	000000G			 JSR	PC,$TTSPC	; ** PRINT A <SPACE>
    766	003314	020127 	000002 			CMP	R1,#DMACTN	;DMA20?
    767	003320	002506 				BLT	9$		;NO...MA20 OR CUST
    768	003322	001404 				BEQ	4$		;YES
    770	003324	020127 	000005 			CMP	R1,#MFCTN	;MF20?
    771	003330	001431 				BEQ	5$		;YES
    773	003332	000501 				BR	9$		;ELSE ASSUME MB20 OR UNDEF
    776					;-----HERE FOR DMA20.  PRINT TOTAL SIZE AND INTERLEAVE.
    777	003334	013701 	000000G		4$:	MOV	DMA2TS,R1	;DO WE HAVE SIZE INFO YET?
    778	003340	001510 				BEQ	11$		;NO...DON'T PRINT SIZE
    779	003342					PSPACE
	003342	004737 	000000G			 JSR	PC,$TTSPC	; ** PRINT A <SPACE>
    780	003346	013700 	000000G			MOV	DMASIZ,R0	;PRINT DMA20 TOTAL SIZE
    781	003352	004737 	003776'			JSR	PC,PRINTK
    782	003356	113700 	000000G			MOVB	DMABM,R0	;PRINT BUS MODE
    783	003362	004737 	004044'			JSR	PC,PBM
    784	003366					PMSG	< BUS MODE>
	003366	012700 	003400'			 MOV	#70$,R0		; ** MESSAGE POINTER TO R0
	003372	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	003376	000405 				 BR	71$		; ** BRANCH AROUND TEXT
	003400	   040 	   102 	   125 	70$:	 .ASCIZ	% BUS MODE%
    785	003412	000463 				BR	11$		;CONTINUE WITH SUBRTN
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 114
REPORT WHAT CONTROLLER DATA WE HAVE TO NOW

    789					;-----HERE FOR MF20. TYPE OUT GROUP PRESENCE & POPULATION IF KNOWN.
    790	003414	105737 	000000G		5$:	TSTB	RDDONE		;RESDET DONE YET?
    791	003420	001460 				BEQ	11$		;NO...SKIP THIS PART
    792	003422	032703 	000002 			BIT	#02,R3		;IS CONTR PRECONFIGURED?
    793	003426	001055 				BNE	11$		;YES...DATA NOT USABLE HERE
    794	003430	010200 				MOV	R2,R0		;GET ADR OF RHE OF BLK SIZ TBL FOR CONTR
    795	003432	005200 				INC	R0
    796	003434	004737 	000000G			JSR	PC,BAF0
    797	003440	010003 				MOV	R0,R3		; IN R3
    798	003442					PMSG	< 0 0 0 0 0>
	003442	012700 	003454'			 MOV	#72$,R0		; ** MESSAGE POINTER TO R0
	003446	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	003452	000406 				 BR	73$		; ** BRANCH AROUND TEXT
	003454	   040 	   060 	   040 	72$:	 .ASCIZ	% 0 0 0 0 0%
    799	003470	012705 	000003 			MOV	#3,R5		;GROUP LP CNT
    800	003474	012704 	000004 		6$:	MOV	#4,R4		;BLK IN GRP LP CNT
    801	003500					PSPACE
	003500	004737 	000000G			 JSR	PC,$TTSPC	; ** PRINT A <SPACE>
    802	003504	005000 				CLR	R0		;BLK CNT
    803	003506	105743 			7$:	TSTB	-(R3)		;IS BLK PRESENT?
    804	003510	001401 				BEQ	8$		;NO...DON'T COUNT IT
    805	003512	005200 				INC	R0
    806	003514	077404 			8$:	SOB	R4,7$		;LP IN GROUP
    807	003516					PNTNBR			;PRINT # OF BLKS IN GROUP
	003516	010046 				 MOV	R0,-(SP)	; ** SAVE R0
	003520	042700 	177000 			 BIC	#^C777,R0	; ** MASK OFF UNWANTED BITS
	003524	004737 	000000G			 JSR	PC,$TDB2O	; ** PRINT THE NUMBER
	003530	012600 				 MOV	(SP)+,R0	; ** RESTORE R0
    808	003532	077520 				SOB	R5,6$		;LP THRU GROUPS
    809	003534	000412 				BR	11$		;NXT CONTR
    811					;-----HERE FOR MA20/MB20 OR UNKNOWN.  TYPE MOD PRESENSE BITS.
    812	003536	012704 	000010 		9$:	MOV	#8.,R4		;COUNTER
    813	003542				10$:	PSPACE			;TYPE A SPACE
	003542	004737 	000000G			 JSR	PC,$TTSPC	; ** PRINT A <SPACE>
    814	003546	005000 				CLR	R0		;
    815	003550	106103 				ROLB	R3		;GET A BIT
    816	003552	006100 				ROL	R0		;BIT TO PARAM REG
    817	003554					PNTOCS			;PRINT BINARY BIT
	003554	004737 	000000G			 JSR	PC,$TDB2O	; ** PRINT THE NUMBER
    818	003560	077410 				SOB	R4,10$		;DONE?
    819					;-----END OF LOOP.
    820	003562	005202 			11$:	INC	R2		;NEXT CONTROLLER
    821	003564	020227 	000037 			CMP	R2,#MAXCN	;LAST ONE?
    822	003570	003602 				BLE	1$		;NO, KEEP GOING
    823	003572					PCRLF			;CR/LF
	003572	004737 	000000G			 JSR	PC,$TCRLF	; ** PRINT A <CR><LF>
    824	003576					PCRLF			;CR/LF
	003576	004737 	000000G			 JSR	PC,$TCRLF	; ** PRINT A <CR><LF>
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 115
REPORT WHAT CONTROLLER DATA WE HAVE TO NOW

    827					;-----SECTION TO PRINT OUT DMA20 (EXTERNAL) MEMORY RESPONSE
    828	003602	105737 	000000G		REPDM.: TSTB	DMARD		;DMA20 ALREADY SIZED?
    829	003606	003454 				BLE	RCX		;BR IF NO
    830	003610	012702 	000000G			MOV	#DMA20T,R2	;MOVE TABLE POINTER
    831	003614	013703 	000000G			MOV	DMA2TS,R3	;TABLE ENTRY COUNTER
    832	003620	003447 				BLE	RCX
    833	003622					PMSG	<EXTERNAL MEMORY RESPONSE\  ADDRESS  SIZE\>
	003622	012700 	003634'			 MOV	#64$,R0		; ** MESSAGE POINTER TO R0
	003626	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	003632	000425 				 BR	65$		; ** BRANCH AROUND TEXT
	003634	   105 	   130 	   124 	64$:	 .ASCIZ	%EXTERNAL MEMORY RESPONSE\  ADDRESS  SIZE\%
    834	003706	005303 			1$:	DEC	R3		;COUNT DOWN
    835	003710	002411 				BLT	2$		;BR IF NO MORE
    836	003712	012200 				MOV	(R2)+,R0	;ADDRESS
    837	003714	004737 	003744'			JSR	PC,CSPAS
    838	003720	012200 				MOV	(R2)+,R0	;SIZE
    839	003722	004737 	003776'			JSR	PC,PRINTK
    840	003726					PCRLF
	003726	004737 	000000G			 JSR	PC,$TCRLF	; ** PRINT A <CR><LF>
    841	003732	000765 				BR	1$		;LOOP
    842	003734				2$:	PCRLF
	003734	004737 	000000G			 JSR	PC,$TCRLF	; ** PRINT A <CR><LF>
    844	003740				RCX:	R5.PC			;REPORT DONE
	003740	000137 	000000G			  JMP	R5.PC		;RESTORE R1-R5 FROM STACK & DO RTS PC
    845
    846					;-----SUBROUTINE TO OUTPUT A <CONDITIONAL 3 SPACES>ADDRESS<SPACE>
    847	003744				CSPAS:	PUSH	R0
	003744	010046 				 MOV	R0,-(SP)
    848	003746					EXP16K			;EXPAND THE ADDR/16K WORD
	003746	004737 	000000G			  JSR	PC,EXP16K	;EXPAND 16K FMT ADR IN R0 INTO 36 BITS IN REAPWD
    850	003752					PSPACE			;EXTRA SPACE FOR ALIGNMENT
	003752	004737 	000000G			 JSR	PC,$TTSPC	; ** PRINT A <SPACE>
    851	003756					POP	R0		;CLEAN THE STK
	003756	012600 				 MOV	(SP)+,R0
    857	003760	012700 	000000G		1$:	MOV	#REAPWD,R0
    858	003764					PNTADR			;PRINT THE ADDR
	003764	004737 	000000G			 JSR	PC,$WDD22	; ** CALL TO PRINT ROUTINE
    859	003770					PSPACE			;EXTRA SPACE FOR ALIGNMENT
	003770	004737 	000000G			 JSR	PC,$TTSPC	; ** PRINT A <SPACE>
    860	003774	000207 				RTS	PC
    862
    863					;-----SUBROUTINE TO PRINT A 16K FORMAT WORD AS DECIMAL K
    864	003776	004737 	000000G		PRINTK:	JSR	PC,ASL0.4	;MAKE IN TERMS OF 1K
    865	004002					PUSH	R0
	004002	010046 				 MOV	R0,-(SP)
    866	004004	020027 	001747 			CMP	R0,#999.
    867	004010	003002 				BGT	1$
    868	004012					PSPACE
	004012	004737 	000000G			 JSR	PC,$TTSPC	; ** PRINT A <SPACE>
    869	004016				1$:	POP	R0
	004016	012600 				 MOV	(SP)+,R0
    870	004020					PNTDEC
	004020	004737 	000000G			 JSR	PC,$TDB2I	; ** PRINT THE NUMBER
    871	004024					PNTBAK
    872	004024					PMSG	<K	>
	004024	012700 	004036'			 MOV	#64$,R0		; ** MESSAGE POINTER TO R0
	004030	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 115-1
REPORT WHAT CONTROLLER DATA WE HAVE TO NOW

	004034	000402 				 BR	65$		; ** BRANCH AROUND TEXT
	004036	   113 	   011 	   000 	64$:	 .ASCIZ	%K	%
    874	004042	000207 				RTS	PC
    875
    876					;-----SUBROUTINE TO PRINT <SPACES>BUS-MODE.
    877	004044	020027 	000003 		PBM:	CMP	R0,#3		;4 BUS MODE?
    878	004050	001001 				BNE	1$		;NO
    879	004052	005200 				INC	R0
    880	004054				1$:	PUSH	R0
	004054	010046 				 MOV	R0,-(SP)
    881	004056					PMSG	<  >		;SPACES
	004056	012700 	004070'			 MOV	#64$,R0		; ** MESSAGE POINTER TO R0
	004062	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	004066	000402 				 BR	65$		; ** BRANCH AROUND TEXT
	004070	   040 	   040 	   000 	64$:	 .ASCIZ	%  %
    883	004074					POP	R0
	004074	012600 				 MOV	(SP)+,R0
    884	004076					PNTOCS
	004076	004737 	000000G			 JSR	PC,$TDB2O	; ** PRINT THE NUMBER
    885	004102	000207 				RTS	PC
    887		000001 				.END
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 115-2
SYMBOL TABLE

AC    = 000004   	ANDM  = 000406   	CAIA  = 000304   	DMARD = ****** GX	FMPM  = 000162
ACC0  = 000001   	AOBJN = 000253   	CAIE  = 000302   	DMARMP= ****** GX	FMPR  = 000164
ACC1  = 000002   	AOBJP = 000252   	CAIG  = 000307   	DMASIZ= ****** GX	FMPRB = 000167
ACC10 = 000400   	AOJ   = 000340   	CAIGE = 000305   	DMA2TS= ****** GX	FMPRI = 000165
ACC11 = 001000   	AOJA  = 000344   	CAIL  = 000301   	DMA20T= ****** GX	FMPRM = 000166
ACC12 = 002000   	AOJE  = 000342   	CAILE = 000303   	DMOVE = 000120   	FSB   = 000150
ACC13 = 004000   	AOJG  = 000347   	CAIN  = 000306   	DMOVEM= 000124   	FSBB  = 000153
ACC14 = 010000   	AOJGE = 000345   	CAM   = 000310   	DMOVN = 000121   	FSBL  = 000151
ACC15 = 020000   	AOJL  = 000341   	CAMA  = 000314   	DMOVNM= 000125   	FSBM  = 000152
ACC16 = 040000   	AOJLE = 000343   	CAME  = 000312   	DMUL  = 000116   	FSBR  = 000154
ACC17 = 100000   	AOJN  = 000346   	CAMG  = 000317   	DPB   = 000137   	FSBRB = 000157
ACC2  = 000004   	AOS   = 000350   	CAMGE = 000315   	DREADY= 001000   	FSBRI = 000155
ACC3  = 000010   	AOSA  = 000354   	CAML  = 000311   	DSUB  = 000115   	FSBRM = 000156
ACC4  = 000020   	AOSE  = 000352   	CAMLE = 000313   	EQV   = 000444   	FSC   = 000132
ACC5  = 000040   	AOSG  = 000357   	CAMN  = 000316   	EQVB  = 000447   	FSDCH = ****** GX
ACC6  = 000100   	AOSGE = 000355   	CAS   = 020000   	EQVI  = 000445   	FSDM1 = ****** GX
ACC7  = 000200   	AOSL  = 000351   	CCA   = 000014   	EQVM  = 000446   	GAPCNT= ****** GX
ACLOAD= ****** GX	AOSLE = 000353   	CDONE = ****** GX	ERRSTP= 004000   	GAPTAB= ****** GX
AC0   = 000000   	AOSN  = 000356   	CECLK = 000004   	ER$B4M= 001662RG 	HALTLP= 001000
AC1   = 000001   	APR   = 000000   	CLEAR = 000400   	ER$GOO= 001422RG 	HLL   = 000500
AC10  = 000010   	ASH   = 000240   	CLEARB= 000403   	ER$HOV= 002340RG 	HLLE  = 000530
AC11  = 000011   	ASHC  = 000244   	CLEARI= 000401   	ER$MAB= 002372RG 	HLLEI = 000531
AC12  = 000012   	ASL0.3= ****** GX	CLEARM= 000402   	ER$MMR= 000330RG 	HLLEM = 000532
AC13  = 000013   	ASL0.4= ****** GX	CLRMR = 000006   	ER$MNA= 001706RG 	HLLES = 000533
AC14  = 000014   	BAF   = ****** GX	CNTSD1= ****** GX	ER$NHA= 002072RG 	HLLI  = 000501
AC15  = 000015   	BAF0  = ****** GX	CONBUT= 000012   	ER$OO2= 000764RG 	HLLM  = 000502
AC16  = 000016   	BIT0  = 000001   	CONDMA  000000RG 	ER$SS0= 000142RG 	HLLO  = 000520
AC17  = 000017   	BIT1  = 000002   	CONFGR= ****** GX	ER$UMB= 002012RG 	HLLOI = 000521
AC2   = 000002   	BIT10 = 002000   	CONI  = 000005   	ER$XOO= 001350RG 	HLLOM = 000522
AC3   = 000003   	BIT11 = 004000   	CONMAB  000634RG 	EXCH  = 000250   	HLLOS = 000523
AC4   = 000004   	BIT12 = 010000   	CONMMR= 000001   	EXP16K= ****** GX	HLLS  = 000503
AC5   = 000005   	BIT13 = 020000   	CONMOS  000050RG 	EXTEND= 000123   	HLLZ  = 000510
AC6   = 000006   	BIT14 = 040000   	CONMX   000044RG 	FAD   = 000140   	HLLZI = 000511
AC7   = 000007   	BIT15 = 100000   	CONO  = 000004   	FADB  = 000143   	HLLZM = 000512
ADD   = 000270   	BIT2  = 000004   	CONSO = 000007   	FADL  = 000141   	HLLZS = 000513
ADDB  = 000273   	BIT3  = 000010   	CONSZ = 000006   	FADM  = 000142   	HLR   = 000544
ADDI  = 000271   	BIT4  = 000020   	CONTI = ****** GX	FADR  = 000144   	HLRE  = 000574
ADDM  = 000272   	BIT5  = 000040   	CPU   = 000200   	FADRB = 000147   	HLREI = 000575
ADH   = 000000   	BIT6  = 000100   	CSPAS   003744R  	FADRI = 000145   	HLREM = 000576
ADJSP = 000105   	BIT7  = 000200   	DADD  = 000114   	FADRM = 000146   	HLRES = 000577
ADL   = 000000   	BIT8  = 000400   	DATAI = 000001   	FDV   = 000170   	HLRI  = 000545
ADR2ND= 002000   	BIT9  = 001000   	DATAO = 000003   	FDVB  = 000173   	HLRM  = 000546
AND   = 000404   	BLKI  = 000000   	DDIV  = 000117   	FDVL  = 000171   	HLRO  = 000564
ANDB  = 000407   	BLKO  = 000002   	DE$BUG= 070000   	FDVM  = 000172   	HLROI = 000565
ANDCA = 000410   	BLK0  = 000000   	DFAD  = 000110   	FDVR  = 000174   	HLROM = 000566
ANDCAB= 000413   	BLK1  = 000001   	DFDV  = 000113   	FDVRB = 000177   	HLROS = 000567
ANDCAI= 000411   	BLK2  = 000002   	DFMP  = 000112   	FDVRI = 000175   	HLRS  = 000547
ANDCAM= 000412   	BLK3  = 000003   	DFN   = 000131   	FDVRM = 000176   	HLRZ  = 000554
ANDCB = 000440   	BLK4  = 000004   	DFSB  = 000111   	FITCON= 177777 G 	HLRZI = 000555
ANDCBB= 000443   	BLK5  = 000005   	DIAG  = 000104   	FITMEM  002154RG 	HLRZM = 000556
ANDCBI= 000441   	BLK6  = 000006   	DIV   = 000234   	FITTED= ****** GX	HLRZS = 000557
ANDCBM= 000442   	BLT   = 000251   	DIVB  = 000237   	FIX   = 000122   	HRL   = 000504
ANDCM = 000420   	BRCLK = 000005   	DIVI  = 000235   	FIXR  = 000126   	HRLE  = 000534
ANDCMB= 000423   	BRCTN = 000006   	DIVM  = 000236   	FLTR  = 000127   	HRLEI = 000535
ANDCMI= 000421   	BSIZE = ****** GX	DMABM = ****** GX	FMP   = 000160   	HRLEM = 000536
ANDCMM= 000422   	BSYCLR= 000400   	DMACN = 000004   	FMPB  = 000163   	HRLES = 000537
ANDI  = 000405   	CAI   = 000300   	DMACTN= 000002   	FMPL  = 000161   	HRLI  = 000505
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 115-3
SYMBOL TABLE

HRLM  = 000506   	JUMPLE= 000323   	MXM.CN= 000003   	SETCM = 000460   	TDC   = 000650
HRLO  = 000524   	JUMPN = 000326   	OR    = 000434   	SETCMB= 000463   	TDCA  = 000654
HRLOI = 000525   	LADRRM= ****** GX	ORB   = 000437   	SETCMI= 000461   	TDCE  = 000652
HRLOM = 000526   	LDAR  = 000077   	ORCA  = 000454   	SETCMM= 000462   	TDCN  = 000656
HRLOS = 000527   	LDB   = 000135   	ORCAB = 000457   	SETCMP= ****** GX	TDN   = 000610
HRLS  = 000507   	LSBRTN= 000001   	ORCAI = 000455   	SETM  = 000414   	TDNA  = 000614
HRLZ  = 000514   	LSBSRL= 000744   	ORCAM = 000456   	SETMB = 000417   	TDNE  = 000612
HRLZI = 000515   	LSH   = 000242   	ORCB  = 000470   	SETMI = 000415   	TDNN  = 000616
HRLZM = 000516   	LSHC  = 000246   	ORCBB = 000473   	SETMM = 000416   	TDO   = 000670
HRLZS = 000517   	LSTMB = 000001   	ORCBI = 000471   	SETMR = 000007   	TDOA  = 000674
HRR   = 000540   	LUBSRL= 000600   	ORCBM = 000472   	SETO  = 000474   	TDOE  = 000672
HRRE  = 000570   	MABADC= ****** GX	ORCM  = 000464   	SETOB = 000477   	TDON  = 000676
HRREI = 000571   	MABCNI= ****** GX	ORCMB = 000467   	SETOI = 000475   	TDZ   = 000630
HRREM = 000572   	MABFIL  002460R  	ORCMI = 000465   	SETOM = 000476   	TDZA  = 000634
HRRES = 000573   	MABINT= ****** GX	ORCMM = 000466   	SETPAR= ****** GX	TDZE  = 000632
HRRI  = 000541   	MABSA = ****** GX	ORI   = 000435   	SETRUN= 000011   	TDZN  = 000636
HRRM  = 000542   	MABSIZ= ****** GX	ORM   = 000436   	SETZ  = 000400   	TGN   = 000002
HRRO  = 000560   	MACTN = 000001   	PAG   = 000010   	SETZB = 000403   	TIMFS = 000044
HRROI = 000561   	MAP   = 000257   	PBM     004044R  	SETZI = 000401   	TLC   = 000641
HRROM = 000562   	MAXCN = 000037   	PI    = 000004   	SETZM = 000402   	TLCA  = 000645
HRROS = 000563   	MBCTN = 000003   	POP   = 000262   	SKIP  = 000330   	TLCE  = 000643
HRRS  = 000543   	MDFFIL  002664R  	POPJ  = 000263   	SKIPA = 000334   	TLCN  = 000647
HRRZ  = 000550   	MDFSIZ= ****** GX	PRINTK  003776R  	SKIPE = 000332   	TLN   = 000601
HRRZI = 000551   	MDSLT   002164R  	PUSH  = 000261   	SKIPG = 000337   	TLNA  = 000605
HRRZM = 000552   	MFCTN = 000005   	PUSHJ = 000260   	SKIPGE= 000335   	TLNE  = 000603
HRRZS = 000553   	MMRESP= ****** GX	PXCT  = 000256   	SKIPL = 000331   	TLNN  = 000607
I     = 000000   	MNBRCN= 000036   	RAMSZ0= ****** GX	SKIPLE= 000333   	TLO   = 000661
IBP   = 000133   	MNMFCN= 000010   	RAS   = 040000   	SKIPN = 000336   	TLOA  = 000665
ICEON   000464R  	MNMXCN= 000006   	RCX     003740R  	SLTGO   002310R  	TLOE  = 000663
ICEONM= 003777   	MNM.CN= 000000   	RDDONE= ****** GX	SMFSS2= ****** GX	TLON  = 000667
IDIV  = 000230   	MNTITF= 000040   	REAPWD= ****** GX	SOJ   = 000360   	TLZ   = 000621
IDIVB = 000233   	MOSSA = ****** GX	REPCON  003004RG 	SOJA  = 000364   	TLZA  = 000625
IDIVI = 000231   	MOVE  = 000200   	REPDM.  003602R  	SOJE  = 000362   	TLZE  = 000623
IDIVM = 000232   	MOVEI = 000201   	REPFIT  001106RG 	SOJG  = 000367   	TLZN  = 000627
IDPB  = 000136   	MOVEM = 000202   	ROT   = 000241   	SOJGE = 000365   	TRC   = 000640
ILDB  = 000134   	MOVES = 000203   	ROTC  = 000245   	SOJL  = 000361   	TRCA  = 000644
IMUL  = 000220   	MOVM  = 000214   	RSPMAP= ****** GX	SOJLE = 000363   	TRCE  = 000642
IMULB = 000223   	MOVMI = 000215   	RST.5 = ****** GX	SOJN  = 000366   	TRCN  = 000646
IMULI = 000221   	MOVMM = 000216   	RS0RS1= 000010   	SOS   = 000370   	TRN   = 000600
IMULM = 000222   	MOVMS = 000217   	RS0TN0= 000020   	SOSA  = 000374   	TRNA  = 000604
IOR   = 000434   	MOVN  = 000210   	RUNPRG= ****** GX	SOSE  = 000372   	TRNE  = 000602
IORB  = 000437   	MOVNI = 000211   	R$$20F= 000001   	SOSG  = 000377   	TRNN  = 000606
IORI  = 000435   	MOVNM = 000212   	R5.PC = ****** GX	SOSGE = 000375   	TRO   = 000660
IORM  = 000436   	MOVNS = 000213   	SAV.5 = ****** GX	SOSL  = 000371   	TROA  = 000664
JFCL  = 000255   	MOVS  = 000204   	SBDT  = ****** GX	SOSLE = 000373   	TROE  = 000662
JFFO  = 000243   	MOVSI = 000205   	SBD0  = ****** GX	SOSN  = 000376   	TRON  = 000666
JRA   = 000267   	MOVSM = 000206   	SBUS  = 100000   	SSCLK = 000002   	TRPAR = 010000
JRST  = 000254   	MOVSS = 000207   	SCAN  = ****** GX	STPCLK= 000000   	TRZ   = 000620
JSA   = 000266   	MSAMSZ= 000140   	SECLK = 000003   	STRCLK= 000001   	TRZA  = 000624
JSP   = 000265   	MUL   = 000224   	SETA  = 000424   	SUB   = 000274   	TRZE  = 000622
JSR   = 000264   	MULB  = 000227   	SETAB = 000427   	SUBB  = 000277   	TRZN  = 000626
JUMP  = 000320   	MULI  = 000225   	SETAI = 000425   	SUBI  = 000275   	TSC   = 000651
JUMPA = 000324   	MULM  = 000226   	SETAM = 000426   	SUBM  = 000276   	TSCA  = 000655
JUMPE = 000322   	MXBRCN= 000037   	SETCA = 000450   	SXCT  = 000106   	TSCE  = 000653
JUMPG = 000327   	MXCTN = 000004   	SETCAB= 000453   	TADR  = 000010   	TSCN  = 000657
JUMPGE= 000325   	MXMFCN= 000017   	SETCAI= 000451   	TBN   = 000004   	TSN   = 000611
JUMPL = 000321   	MXMXCN= 000007   	SETCAM= 000452   	TCN   = 000001   	TSNA  = 000615
FITCON -- FITMEM/REPORT/CONFIGU	MACRO M1110  17-SEP-79 09:15  PAGE 115-4
SYMBOL TABLE

TSNE  = 000613   	WENABL= 004000   	$DMPAC= 070010   	$RESET= 000001   	$TL   = 000013
TSNN  = 000617   	X     = 000000   	$EB   = 000544R  	$RSTAC= 070030   	$TTDMS= ****** GX
TSO   = 000671   	XCT   = 000256   	$EVENT= 000001   	$RUN  = 000001   	$TTSPC= ****** GX
TSOA  = 000675   	XDV   = 000004   	$FATAL= ****** GX	$SAVAC= 070024   	$TTTAB= ****** GX
TSOE  = 000673   	XOP   = 000002   	$FIND = 000001   	$SBDIA= 000002   	$WDD22= ****** GX
TSON  = 000677   	XOR   = 000430   	$FITME= 000001   	$SDW  = 000002   	$$APRI= 000000
TSTCON= ****** GX	XORB  = 000433   	$GETCT= 070020   	$SETPA= 000001   	$$NARG= 000001
TSZ   = 000631   	XORI  = 000431   	$ICEON= 000001   	$SIZ16= 033061   	$$RDER= 000004
TSZA  = 000635   	XORM  = 000432   	$IND36= 000003   	$SIZ32= 031063   	$$SBDI= 000004
TSZE  = 000633   	XR    = 000000   	$KL10A= 000101   	$SIZ4K= 032060   	$10BC = 070040
TSZN  = 000637   	$APRID= 000000   	$KL10B= 000102   	$SIZ64= 032066   	$10BP = 070034
TYPE0 = ****** GX	$BRST = 000001   	$LOADA= 000001   	$STEP = 000001   	$10MB = 070050
TYPNUM= ****** GX	$CNTSD= 000001   	$PATCH= 070004   	$TB   = 000000   	$10RB = 070044
UFA   = 000130   	$CONDM= 000001   	$RDERA= 000000   	$TCRLF= ****** GX	.RESET= ****** GX
UMAB    002662R  	$CONMA= 000001   	$RELOA= 000001   	$TDB2I= ****** GX	.SBDIA= 000001
UNDCTN= 000007   	$CONMO= 000001   	$REPCO= 000001   	$TDB2O= ****** GX	...   = 000377
USBLMF  003002R  	$CONMX= 000001   	$REPFI= 000001   	$TIMLP= 070014   	......= 177777

. ABS.	000000	   000
      	004104	   001
ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  22939 WORDS  ( 90 PAGES)
DYNAMIC MEMORY:  20620 WORDS  ( 79 PAGES)
ELAPSED TIME:  00:03:21
[56,10]FITCON,[56,20]FITCON/-SP/CR=[56,30]FITASM,MBOVLC,MOSMAC,MBMAC,MOSDEF,FITCON
FITCON     CREATED BY  MACRO  ON 17-SEP-79 AT 09:17	PAGE 1

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

AC    	= 000004	#99-171    #99-171     99-171     99-171    #99-173    #99-173     99-173     99-173    #99-174    
                        #99-174     99-174     99-174    #99-175    #99-175     99-175     99-175    #99-176    #99-176    
                         99-176     99-176    #99-178    #99-178     99-178     99-178    #99-179     99-179     99-179    
                        #99-180    #99-180     99-180     99-180    
ACC0  	= 000001	#18-739    
ACC1  	= 000002	#18-740    
ACC10 	= 000400	#18-747    
ACC11 	= 001000	#18-748    
ACC12 	= 002000	#18-749    
ACC13 	= 004000	#18-750    
ACC14 	= 010000	#18-751    
ACC15 	= 020000	#18-752    
ACC16 	= 040000	#18-753    
ACC17 	= 100000	#18-754    
ACC2  	= 000004	#18-741    
ACC3  	= 000010	#18-742    
ACC4  	= 000020	#18-743    
ACC5  	= 000040	#18-744    
ACC6  	= 000100	#18-745    
ACC7  	= 000200	#18-746    
ACLOAD	= ******  GX	 99-166    
AC0   	= 000000	#11-27      99-167    
AC1   	= 000001	#11-28     
AC10  	= 000010	#11-35     
AC11  	= 000011	#11-36     
AC12  	= 000012	#11-37     
AC13  	= 000013	#11-38     
AC14  	= 000014	#11-39     
AC15  	= 000015	#11-40     
AC16  	= 000016	#11-41     
AC17  	= 000017	#11-42     
AC2   	= 000002	#11-29     
AC3   	= 000003	#11-30     
AC4   	= 000004	#11-31     
AC5   	= 000005	#11-32     
AC6   	= 000006	#11-33     
AC7   	= 000007	#11-34     
ADD   	= 000270	#11-167    
ADDB  	= 000273	#11-170    
ADDI  	= 000271	#11-168    
ADDM  	= 000272	#11-169    
ADH   	= 000000	#99-171     99-171     99-171    #99-172     99-172     99-172    #99-173     99-173     99-173    
                        #99-174     99-174     99-174    #99-175     99-175     99-175    #99-176     99-176     99-176    
                        #99-177     99-177     99-177    #99-178     99-178     99-178    #99-179     99-179     99-179    
                        #99-180     99-180     99-180    
ADJSP 	= 000105	#11-53     
ADL   	= 000000	#99-171     99-171     99-171    #99-171     99-171     99-171    #99-171     99-171     99-171    
                        #99-171     99-171     99-171    #99-172     99-172     99-172    #99-172     99-172     99-172    
                        #99-172     99-172     99-172    #99-173     99-173     99-173    #99-173     99-173     99-173    
                        #99-173     99-173     99-173    #99-174     99-174     99-174    #99-174     99-174     99-174    
                        #99-174     99-174     99-174    #99-175     99-175     99-175    #99-175     99-175     99-175    
                        #99-175     99-175     99-175    #99-176     99-176     99-176    #99-176     99-176     99-176    
FITCON     CREATED BY  MACRO  ON 17-SEP-79 AT 09:17	PAGE 2

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                        #99-176     99-176     99-176    #99-177     99-177     99-177    #99-177     99-177     99-177    
                        #99-177     99-177     99-177    #99-178     99-178     99-178    #99-178     99-178     99-178    
                        #99-178     99-178     99-178    #99-178     99-178     99-178    #99-178     99-178     99-178    
                        #99-178     99-178     99-178    #99-179     99-179     99-179    #99-179     99-179     99-179    
                        #99-180     99-180     99-180    #99-180     99-180     99-180    
ADR2ND	= 002000	#43-205     43-205     43-205    #43-205     43-205     43-205    #43-205     43-205     43-205    
                        #43-205     43-205     43-205    #43-205     43-205     43-205    #43-205     43-205     43-205    
                        #43-205     43-205     43-205    #43-205     43-205     43-205    #43-205     43-205     43-205    
                        #43-205     43-205     43-205    #43-205    
AND   	= 000404	#11-247    
ANDB  	= 000407	#11-250    
ANDCA 	= 000410	#11-251    
ANDCAB	= 000413	#11-254    
ANDCAI	= 000411	#11-252    
ANDCAM	= 000412	#11-253    
ANDCB 	= 000440	#11-279    
ANDCBB	= 000443	#11-282    
ANDCBI	= 000441	#11-280    
ANDCBM	= 000442	#11-281    
ANDCM 	= 000420	#11-259    
ANDCMB	= 000423	#11-262    
ANDCMI	= 000421	#11-260    
ANDCMM	= 000422	#11-261    
ANDI  	= 000405	#11-248    
ANDM  	= 000406	#11-249    
AOBJN 	= 000253	#11-153    
AOBJP 	= 000252	#11-152    
AOJ   	= 000340	#11-207    
AOJA  	= 000344	#11-211    
AOJE  	= 000342	#11-209    
AOJG  	= 000347	#11-214    
AOJGE 	= 000345	#11-212    
AOJL  	= 000341	#11-208    
AOJLE 	= 000343	#11-210    
AOJN  	= 000346	#11-213    
AOS   	= 000350	#11-215    
AOSA  	= 000354	#11-219    
AOSE  	= 000352	#11-217    
AOSG  	= 000357	#11-222    
AOSGE 	= 000355	#11-220    
AOSL  	= 000351	#11-216    
AOSLE 	= 000353	#11-218    
AOSN  	= 000356	#11-221    
APR   	= 000000	#11-449     54-130    
ASH   	= 000240	#11-143    
ASHC  	= 000244	#11-147    
ASL0.3	= ******  GX	 103-345    113-760   
ASL0.4	= ******  GX	 115-864   
BAF   	= ******  GX	 97-77     
BAF0  	= ******  GX	 107-519    114-796   
BIT0  	= 000001	#3-63      
BIT1  	= 000002	#3-64      
FITCON     CREATED BY  MACRO  ON 17-SEP-79 AT 09:17	PAGE 3

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

BIT10 	= 002000	#3-73      
BIT11 	= 004000	#3-74       3-81      
BIT12 	= 010000	#3-75      
BIT13 	= 020000	#3-76      
BIT14 	= 040000	#3-77      
BIT15 	= 100000	#3-78       25-1126    104-392   
BIT2  	= 000004	#3-65      
BIT3  	= 000010	#3-66      
BIT4  	= 000020	#3-67      
BIT5  	= 000040	#3-68      
BIT6  	= 000100	#3-69      
BIT7  	= 000200	#3-70       25-1125   
BIT8  	= 000400	#3-71      
BIT9  	= 001000	#3-72       3-80      
BLKI  	= 000000	#11-440     54-129     54-131    
BLKO  	= 000002	#11-442     54-127    
BLK0  	= 000000	#11-44     
BLK1  	= 000001	#11-45     
BLK2  	= 000002	#11-46     
BLK3  	= 000003	#11-47     
BLK4  	= 000004	#11-48     
BLK5  	= 000005	#11-49     
BLK6  	= 000006	#11-50     
BLT   	= 000251	#11-151    
BRCLK 	= 000005	#54-122    
BRCTN 	= 000006	#42-170     113-763   
BSIZE 	= ******  GX	 97-88     
BSYCLR	= 000400	#43-207     43-207     43-207    #43-207     43-207     43-207    #43-207     43-207     43-207    
                        #43-207     43-207     43-207    #43-207     43-207     43-207    #43-207     43-207     43-207    
                        #43-207     43-207     43-207    #43-207     43-207     43-207    #43-207    
CAI   	= 000300	#11-175    
CAIA  	= 000304	#11-179    
CAIE  	= 000302	#11-177    
CAIG  	= 000307	#11-182    
CAIGE 	= 000305	#11-180    
CAIL  	= 000301	#11-176    
CAILE 	= 000303	#11-178    
CAIN  	= 000306	#11-181    
CAM   	= 000310	#11-183    
CAMA  	= 000314	#11-187    
CAME  	= 000312	#11-185    
CAMG  	= 000317	#11-190    
CAMGE 	= 000315	#11-188    
CAML  	= 000311	#11-184    
CAMLE 	= 000313	#11-186    
CAMN  	= 000316	#11-189    
CAS   	= 020000	#43-202     43-202     43-202    #43-202     43-202     43-202    #43-202     43-202     43-202    
                        #43-202     43-202     43-202    #43-202     43-202     43-202    #43-202     43-202     43-202    
                        #43-202     43-202     43-202    #43-202     43-202     43-202    #43-202     43-202     43-202    
                        #43-202     43-202     43-202    #43-202     43-202     43-202    #43-202     43-202     43-202    
                        #43-202     43-202     43-202    #43-202    
CCA   	= 000014	#11-452    
FITCON     CREATED BY  MACRO  ON 17-SEP-79 AT 09:17	PAGE 4

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

CDONE 	= ******  GX	*108-542   
CECLK 	= 000004	#54-119    
CLEAR 	= 000400	#11-239    
CLEARB	= 000403	#11-245    
CLEARI	= 000401	#11-241    
CLEARM	= 000402	#11-243    
CLRMR 	= 000006	#54-120    
CNTSD1	= ******  GX	 99-165    
CONBUT	= 000012	#54-124    
CONDMA	  000000 RG	 10-347    #95-14     
CONFGR	= ******  GX	 100-216    104-389    110-622    112-689   
CONI  	= 000005	#11-445    
CONMAB	  000634 RG	 10-347    #100-201   
CONMMR	= 000001	#2-54       96-45      98-110    
CONMOS	  000050 RG	 10-347    #96-44     
CONMX 	  000044 RG	 10-347    #95-30     
CONO  	= 000004	#11-444    
CONSO 	= 000007	#11-447    
CONSZ 	= 000006	#11-446    
CONTI 	= ******  GX	 96-68      107-516    113-744   
CORDET	= ******	 2-8        6-244     
CPU   	= 000200	#25-1125    99-164    
CSPAS 	  003744 R	 102-299    115-837   #115-847   
DADD  	= 000114	#11-59     
DATAI 	= 000001	#11-441    
DATAO 	= 000003	#11-443    
DBEOVL	= ******	 2-10       8-303     
DDIV  	= 000117	#11-62     
DE$BUG	= 070000	#11-8      
DFAD  	= 000110	#11-55     
DFDV  	= 000113	#11-58     
DFMP  	= 000112	#11-57     
DFN   	= 000131	#11-72     
DFSB  	= 000111	#11-56     
DHKBG 	= ******	 113-771    113-772    114-788   
DIAG  	= 000104	#11-52     
DIV   	= 000234	#11-139    
DIVB  	= 000237	#11-142    
DIVI  	= 000235	#11-140    
DIVM  	= 000236	#11-141    
DMABM 	= ******  GX	 95-14      102-313    113-782   
DMACN 	= 000004	#42-160    
DMACTN	= 000002	#42-159     113-766   
DMARD 	= ******  GX	 115-828   
DMARMP	= ******  GX	 96-47     
DMASIZ	= ******  GX	 113-780   
DMA2TS	= ******  GX	 102-282    113-777    115-831   
DMA20T	= ******  GX	 102-282    115-830   
DMOVE 	= 000120	#11-63     
DMOVEM	= 000124	#11-67     
DMOVN 	= 000121	#11-64     
DMOVNM	= 000125	#11-68     
FITCON     CREATED BY  MACRO  ON 17-SEP-79 AT 09:17	PAGE 5

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

DMUL  	= 000116	#11-61     
DPB   	= 000137	#11-78     
DREADY	= 001000	#43-206     43-206     43-206    #43-206     43-206     43-206    #43-206     43-206     43-206    
                        #43-206     43-206     43-206    #43-206     43-206     43-206    #43-206     43-206     43-206    
                        #43-206     43-206     43-206    #43-206     43-206     43-206    #43-206     43-206     43-206    
                        #43-206    
DSUB  	= 000115	#11-60     
EQV   	= 000444	#11-283    
EQVB  	= 000447	#11-286    
EQVI  	= 000445	#11-284    
EQVM  	= 000446	#11-285    
ERRSTP	= 004000	#3-81      
ER$B4M	= 001662 RG	#103-364   
ER$GOO	= 001422 RG	#103-326   
ER$HOV	= 002340 RG	#108-565   
ER$MAB	= 002372 RG	#109-580   
ER$MMR	= 000330 RG	#98-113    
ER$MNA	= 001706 RG	#104-376   
ER$NHA	= 002072 RG	#105-430   
ER$OO2	= 000764 RG	#100-229   
ER$SS0	= 000142 RG	#96-70     
ER$UMB	= 002012 RG	#105-414   
ER$XOO	= 001350 RG	#102-309   
EXCH  	= 000250	#11-150    
EXP16K	= ******  GX	 115-848   
EXTEND	= 000123	#11-66     
FAD   	= 000140	#11-79     
FADB  	= 000143	#11-82     
FADL  	= 000141	#11-80     
FADM  	= 000142	#11-81     
FADR  	= 000144	#11-83     
FADRB 	= 000147	#11-86     
FADRI 	= 000145	#11-84     
FADRM 	= 000146	#11-85     
FDV   	= 000170	#11-103    
FDVB  	= 000173	#11-106    
FDVL  	= 000171	#11-104    
FDVM  	= 000172	#11-105    
FDVR  	= 000174	#11-107    
FDVRB 	= 000177	#11-110    
FDVRI 	= 000175	#11-108    
FDVRM 	= 000176	#11-109    
FITCON	= 177777  G	#1-1        2-11       9-325     
FITMEM	  002154 RG	 10-347     102-278   #107-484   
FITTED	= ******  GX	 107-492   *109-603   
FIX   	= 000122	#11-65     
FIXR  	= 000126	#11-69     
FLTR  	= 000127	#11-70     
FMP   	= 000160	#11-95     
FMPB  	= 000163	#11-98     
FMPL  	= 000161	#11-96     
FMPM  	= 000162	#11-97     
FITCON     CREATED BY  MACRO  ON 17-SEP-79 AT 09:17	PAGE 6

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

FMPR  	= 000164	#11-99     
FMPRB 	= 000167	#11-102    
FMPRI 	= 000165	#11-100    
FMPRM 	= 000166	#11-101    
FSB   	= 000150	#11-87     
FSBB  	= 000153	#11-90     
FSBL  	= 000151	#11-88     
FSBM  	= 000152	#11-89     
FSBR  	= 000154	#11-91     
FSBRB 	= 000157	#11-94     
FSBRI 	= 000155	#11-92     
FSBRM 	= 000156	#11-93     
FSC   	= 000132	#11-73     
FSDCH 	= ******  GX	 97-98     
FSDM1 	= ******  GX	 97-76     
GAPCNT	= ******  GX	 102-282   *108-543   *109-585   
GAPTAB	= ******  GX	 102-282    108-544   
HALTLP	= 001000	#3-80      
HLL   	= 000500	#11-311    
HLLE  	= 000530	#11-335    
HLLEI 	= 000531	#11-336    
HLLEM 	= 000532	#11-337    
HLLES 	= 000533	#11-338    
HLLI  	= 000501	#11-312    
HLLM  	= 000502	#11-313    
HLLO  	= 000520	#11-327    
HLLOI 	= 000521	#11-328    
HLLOM 	= 000522	#11-329    
HLLOS 	= 000523	#11-330    
HLLS  	= 000503	#11-314    
HLLZ  	= 000510	#11-319     99-173     99-173    
HLLZI 	= 000511	#11-320    
HLLZM 	= 000512	#11-321    
HLLZS 	= 000513	#11-322    
HLR   	= 000544	#11-347    
HLRE  	= 000574	#11-371    
HLREI 	= 000575	#11-372    
HLREM 	= 000576	#11-373    
HLRES 	= 000577	#11-374    
HLRI  	= 000545	#11-348    
HLRM  	= 000546	#11-349    
HLRO  	= 000564	#11-363    
HLROI 	= 000565	#11-364    
HLROM 	= 000566	#11-365    
HLROS 	= 000567	#11-366    
HLRS  	= 000547	#11-350    
HLRZ  	= 000554	#11-355    
HLRZI 	= 000555	#11-356    
HLRZM 	= 000556	#11-357    
HLRZS 	= 000557	#11-358    
HRL   	= 000504	#11-315    
HRLE  	= 000534	#11-339    
FITCON     CREATED BY  MACRO  ON 17-SEP-79 AT 09:17	PAGE 7

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

HRLEI 	= 000535	#11-340    
HRLEM 	= 000536	#11-341    
HRLES 	= 000537	#11-342    
HRLI  	= 000505	#11-316    
HRLM  	= 000506	#11-317    
HRLO  	= 000524	#11-331    
HRLOI 	= 000525	#11-332    
HRLOM 	= 000526	#11-333    
HRLOS 	= 000527	#11-334    
HRLS  	= 000507	#11-318    
HRLZ  	= 000514	#11-323    
HRLZI 	= 000515	#11-324    
HRLZM 	= 000516	#11-325    
HRLZS 	= 000517	#11-326    
HRR   	= 000540	#11-343    
HRRE  	= 000570	#11-367    
HRREI 	= 000571	#11-368    
HRREM 	= 000572	#11-369    
HRRES 	= 000573	#11-370    
HRRI  	= 000541	#11-344    
HRRM  	= 000542	#11-345    
HRRO  	= 000560	#11-359    
HRROI 	= 000561	#11-360    
HRROM 	= 000562	#11-361    
HRROS 	= 000563	#11-362    
HRRS  	= 000543	#11-346    
HRRZ  	= 000550	#11-351    
HRRZI 	= 000551	#11-352    
HRRZM 	= 000552	#11-353    
HRRZS 	= 000553	#11-354    
I     	= 000000	#99-171     99-171    #99-172     99-172    #99-173     99-173    #99-174     99-174    #99-175    
                         99-175    #99-176     99-176    #99-177     99-177    #99-178     99-178    #99-179     99-179    
                        #99-180     99-180    
IBP   	= 000133	#11-74     
ICEON 	  000464 R	 98-116    #99-164    
ICEONM	= 003777	 99-166    #99-184    
IDIV  	= 000230	#11-135    
IDIVB 	= 000233	#11-138    
IDIVI 	= 000231	#11-136    
IDIVM 	= 000232	#11-137    
IDPB  	= 000136	#11-77     
ILDB  	= 000134	#11-75     
IMUL  	= 000220	#11-127    
IMULB 	= 000223	#11-130    
IMULI 	= 000221	#11-128    
IMULM 	= 000222	#11-129    
IOR   	= 000434	#11-271     99-174     99-174    
IORB  	= 000437	#11-277    
IORI  	= 000435	#11-273    
IORM  	= 000436	#11-275    
JFCL  	= 000255	#11-155    
JFFO  	= 000243	#11-146    
FITCON     CREATED BY  MACRO  ON 17-SEP-79 AT 09:17	PAGE 8

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

JRA   	= 000267	#11-166    
JRST  	= 000254	#11-154     99-179     99-179     99-180     99-180    
JSA   	= 000266	#11-165    
JSP   	= 000265	#11-164    
JSR   	= 000264	#11-163    
JUMP  	= 000320	#11-191    
JUMPA 	= 000324	#11-195    
JUMPE 	= 000322	#11-193    
JUMPG 	= 000327	#11-198    
JUMPGE	= 000325	#11-196    
JUMPL 	= 000321	#11-192    
JUMPLE	= 000323	#11-194    
JUMPN 	= 000326	#11-197    
LADRRM	= ******  GX	 97-76     
LDAR  	= 000077	#54-125    
LDB   	= 000135	#11-76     
LSBRTN	= 000001	#2-58      
LSBSRL	= 000744	#43-209    
LSH   	= 000242	#11-145    
LSHC  	= 000246	#11-149    
LSTALL	= ******	 11-455     38-1601    39-2       50-493     94-3      
LSTDIA	= ******	 50-494    
LSTMAC	= ******	 11-455     38-1601    39-2       50-493    
LSTMB 	= 000001	#2-57       94-3      
LUBSRL	= 000600	#43-210    
MABADC	= ******  GX	 110-631    110-632   
MABCNI	= ******  GX	*110-620   *110-625    110-647   
MABFIL	  002460 R	 108-556   #110-616   
MABINT	= ******  GX	 100-211    104-381   
MABSA 	= ******  GX	 100-220    104-377   *110-632    110-633   *111-660   
MABSIZ	= ******  GX	 100-222    104-373    107-530    107-537    110-628    110-635    110-641    110-643   *111-661   
MACTN 	= 000001	#42-154    
MAP   	= 000257	#11-158    
MAXCN 	= 000037	#42-152     114-821   
MBCTN 	= 000003	#42-155    
MBOKLG	= ******	 3-100      10-340    
MBROOT	= ******	 2-7        4-158     
MDFFIL	  002664 R	 108-558   #112-683   
MDFSIZ	= ******  GX	 105-411    112-695   *112-705   
MDSLT 	  002164 R	 107-493   #107-513   
MFCTN 	= 000005	#42-166     96-65      113-770   
MMRESP	= ******  GX	 98-111    
MNBRCN	= 000036	#42-171    
MNMFCN	= 000010	#42-167     43-181     43-182     43-183     96-55      96-57      96-64      97-87      105-420   
                         105-428    107-515    112-691    112-712   
MNMXCN	= 000006	#42-163    
MNM.CN	= 000000	#42-156    
MNTITF	= 000040	#39-31     
MOSSA 	= ******  GX	 105-415   *112-704   
MOVE  	= 000200	#11-111    
MOVEI 	= 000201	#11-112    
MOVEM 	= 000202	#11-113    
FITCON     CREATED BY  MACRO  ON 17-SEP-79 AT 09:17	PAGE 9

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

MOVES 	= 000203	#11-114    
MOVM  	= 000214	#11-123    
MOVMI 	= 000215	#11-124    
MOVMM 	= 000216	#11-125    
MOVMS 	= 000217	#11-126    
MOVN  	= 000210	#11-119    
MOVNI 	= 000211	#11-120    
MOVNM 	= 000212	#11-121    
MOVNS 	= 000213	#11-122    
MOVS  	= 000204	#11-115    
MOVSI 	= 000205	#11-116    
MOVSM 	= 000206	#11-117    
MOVSS 	= 000207	#11-118    
MSAMSZ	= 000140	#43-181     97-97     
MSSCTL	= ******	 2-9        7-268     
MUL   	= 000224	#11-131    
MULB  	= 000227	#11-134    
MULI  	= 000225	#11-132    
MULM  	= 000226	#11-133    
MXBRCN	= 000037	#42-172    
MXCTN 	= 000004	#42-162    
MXMFCN	= 000017	#42-168     43-181     43-182     43-183     96-55      98-144     105-428    107-526    112-691   
                         112-712   
MXMXCN	= 000007	#42-164    
MXM.CN	= 000003	#42-157     101-253    104-369    107-530    110-624    110-649   
OR    	= 000434	#11-272    
ORB   	= 000437	#11-278    
ORCA  	= 000454	#11-291    
ORCAB 	= 000457	#11-294    
ORCAI 	= 000455	#11-292    
ORCAM 	= 000456	#11-293    
ORCB  	= 000470	#11-303    
ORCBB 	= 000473	#11-306    
ORCBI 	= 000471	#11-304    
ORCBM 	= 000472	#11-305    
ORCM  	= 000464	#11-299    
ORCMB 	= 000467	#11-302    
ORCMI 	= 000465	#11-300    
ORCMM 	= 000466	#11-301    
ORI   	= 000435	#11-274    
ORM   	= 000436	#11-276    
PAG   	= 000010	#11-451    
PBM   	  004044 R	 103-342    113-783   #115-877   
PI    	= 000004	#11-450     54-128     54-132    
POP   	= 000262	#11-161    
POPJ  	= 000263	#11-162    
PRINTK	  003776 R	 103-339    113-781    115-839   #115-864   
PUSH  	= 000261	#11-160    
PUSHJ 	= 000260	#11-159    
PXCT  	= 000256	#11-156    
RAMSZ0	= ******  GX	 97-87     
RAS   	= 040000	#43-201     43-201     43-201    #43-201     43-201     43-201    #43-201     43-201     43-201    
FITCON     CREATED BY  MACRO  ON 17-SEP-79 AT 09:17	PAGE 10

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                        #43-201     43-201     43-201    #43-201     43-201     43-201    #43-201     43-201     43-201    
                        #43-201     43-201     43-201    #43-201     43-201     43-201    #43-201     43-201     43-201    
                        #43-201     43-201     43-201    #43-201     43-201     43-201    #43-201     43-201     43-201    
                        #43-201     43-201     43-201    #43-201     43-201     43-201    #43-201    
RCX   	  003740 R	 115-829    115-832   #115-844   
RDDONE	= ******  GX	 114-790   
REAPWD	= ******  GX	 115-857   
RELEAS	= ******	 11-454     38-1600    39-1       50-492     94-1       94-2       99-170     99-185     100-219   
                         102-300    113-775    115-861   
REPCON	  003004 RG	 10-348    #113-728   
REPDM.	  003602 R	#115-828   
REPFIT	  001106 RG	 10-348    #102-277   
ROT   	= 000241	#11-144    
ROTC  	= 000245	#11-148    
RSPMAP	= ******  GX	*96-47      108-545   
RST.5 	= ******  GX	 109-602   
RS0RS1	= 000010	#43-182    
RS0TN0	= 000020	#43-183    
RUNPRG	= ******  GX	 99-167    
R$$20F	= 000001	#2-48       43-187     48-469     95-18      97-76      97-91      97-98      97-104     98-111    
                         98-115     98-116     98-129     98-130     98-133     98-138     98-138     98-139     98-140    
                         99-164     99-165     99-166     99-167     99-170     99-185     101-248    101-249    102-278   
                         103-351    103-352    103-356    103-357    107-485    108-552    113-729    113-755    113-756   
                         113-768    113-769    113-771    113-772    113-774    114-788    114-825    115-848    115-849   
                         115-859    115-872    115-873    115-881    115-882    115-887   
R5.PC 	= ******  GX	 98-147     101-258    106-472    115-844   
SAV.5 	= ******  GX	 96-44      100-201    102-279    107-513    113-736   
SBDT  	= ******  GX	 98-130     98-139     98-140    
SBD0  	= ******  GX	 95-18      98-138     101-248    101-249   
SBUS  	= 100000	#25-1126   
SCAN  	= ******  GX	 108-552   
SECLK 	= 000003	#54-118    
SETA  	= 000424	#11-263    
SETAB 	= 000427	#11-266    
SETAI 	= 000425	#11-264    
SETAM 	= 000426	#11-265    
SETCA 	= 000450	#11-287    
SETCAB	= 000453	#11-290    
SETCAI	= 000451	#11-288    
SETCAM	= 000452	#11-289    
SETCM 	= 000460	#11-295    
SETCMB	= 000463	#11-298    
SETCMI	= 000461	#11-296    
SETCMM	= 000462	#11-297    
SETCMP	= ******  GX	 98-129    
SETM  	= 000414	#11-255    
SETMB 	= 000417	#11-258    
SETMI 	= 000415	#11-256    
SETMM 	= 000416	#11-257    
SETMR 	= 000007	#54-121    
SETO  	= 000474	#11-307    
SETOB 	= 000477	#11-310    
FITCON     CREATED BY  MACRO  ON 17-SEP-79 AT 09:17	PAGE 11

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

SETOI 	= 000475	#11-308    
SETOM 	= 000476	#11-309    
SETPAR	= ******  GX	 97-91     
SETRUN	= 000011	#54-123    
SETZ  	= 000400	#11-240    
SETZB 	= 000403	#11-246    
SETZI 	= 000401	#11-242    
SETZM 	= 000402	#11-244    
SKIP  	= 000330	#11-199    
SKIPA 	= 000334	#11-203    
SKIPE 	= 000332	#11-201    
SKIPG 	= 000337	#11-206    
SKIPGE	= 000335	#11-204    
SKIPL 	= 000331	#11-200    
SKIPLE	= 000333	#11-202    
SKIPN 	= 000336	#11-205    
SLTGO 	  002310 R	#108-552    108-557    108-563    109-593    109-599   
SMFSS2	= ******  GX	 97-104    
SOJ   	= 000360	#11-223    
SOJA  	= 000364	#11-227    
SOJE  	= 000362	#11-225    
SOJG  	= 000367	#11-230    
SOJGE 	= 000365	#11-228    
SOJL  	= 000361	#11-224    
SOJLE 	= 000363	#11-226    
SOJN  	= 000366	#11-229    
SOS   	= 000370	#11-231    
SOSA  	= 000374	#11-235    
SOSE  	= 000372	#11-233    
SOSG  	= 000377	#11-238    
SOSGE 	= 000375	#11-236    
SOSL  	= 000371	#11-232    
SOSLE 	= 000373	#11-234    
SOSN  	= 000376	#11-237    
SRI8MB	= ******	 101-241    101-252    104-368    104-383    104-384    104-393    107-529    110-621    110-648   
SSCLK 	= 000002	#54-117    
STPCLK	= 000000	#54-115    
STRCLK	= 000001	#54-116    
SUB   	= 000274	#11-171    
SUBB  	= 000277	#11-174    
SUBI  	= 000275	#11-172     99-171     99-171    
SUBM  	= 000276	#11-173    
SXCT  	= 000106	#11-54     
TADR  	= 000010	#35-1491   
TBN   	= 000004	#35-1490   
TCN   	= 000001	#35-1488   
TDC   	= 000650	#11-415    
TDCA  	= 000654	#11-419    
TDCE  	= 000652	#11-417    
TDCN  	= 000656	#11-421    
TDN   	= 000610	#11-383    
TDNA  	= 000614	#11-387    
FITCON     CREATED BY  MACRO  ON 17-SEP-79 AT 09:17	PAGE 12

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

TDNE  	= 000612	#11-385    
TDNN  	= 000616	#11-389    
TDO   	= 000670	#11-431    
TDOA  	= 000674	#11-435    
TDOE  	= 000672	#11-433    
TDON  	= 000676	#11-437    
TDZ   	= 000630	#11-399    
TDZA  	= 000634	#11-403    
TDZE  	= 000632	#11-401    
TDZN  	= 000636	#11-405    
TGN   	= 000002	#35-1489   
TIMFS 	= 000044	#39-32     
TLC   	= 000641	#11-408     99-175     99-175    
TLCA  	= 000645	#11-412    
TLCE  	= 000643	#11-410    
TLCN  	= 000647	#11-414    
TLN   	= 000601	#11-376    
TLNA  	= 000605	#11-380    
TLNE  	= 000603	#11-378     99-176     99-176    
TLNN  	= 000607	#11-382    
TLO   	= 000661	#11-424    
TLOA  	= 000665	#11-428    
TLOE  	= 000663	#11-426    
TLON  	= 000667	#11-430    
TLZ   	= 000621	#11-392    
TLZA  	= 000625	#11-396    
TLZE  	= 000623	#11-394    
TLZN  	= 000627	#11-398    
TRC   	= 000640	#11-407    
TRCA  	= 000644	#11-411    
TRCE  	= 000642	#11-409    
TRCN  	= 000646	#11-413    
TRN   	= 000600	#11-375    
TRNA  	= 000604	#11-379    
TRNE  	= 000602	#11-377     99-178     99-178    
TRNN  	= 000606	#11-381    
TRO   	= 000660	#11-423    
TROA  	= 000664	#11-427    
TROE  	= 000662	#11-425    
TRON  	= 000666	#11-429    
TRPAR 	= 010000	#43-203     43-203     43-203    #43-203     43-203     43-203    #43-203     43-203     43-203    
                        #43-203     43-203     43-203    #43-203     43-203     43-203    #43-203     43-203     43-203    
                        #43-203     43-203     43-203    #43-203     43-203     43-203    #43-203     43-203     43-203    
                        #43-203     43-203     43-203    #43-203     43-203     43-203    #43-203     43-203     43-203    
                        #43-203    
TRZ   	= 000620	#11-391    
TRZA  	= 000624	#11-395    
TRZE  	= 000622	#11-393    
TRZN  	= 000626	#11-397    
TSC   	= 000651	#11-416    
TSCA  	= 000655	#11-420    
TSCE  	= 000653	#11-418    
FITCON     CREATED BY  MACRO  ON 17-SEP-79 AT 09:17	PAGE 13

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

TSCN  	= 000657	#11-422    
TSN   	= 000611	#11-384    
TSNA  	= 000615	#11-388    
TSNE  	= 000613	#11-386    
TSNN  	= 000617	#11-390    
TSO   	= 000671	#11-432    
TSOA  	= 000675	#11-436    
TSOE  	= 000673	#11-434    
TSON  	= 000677	#11-438    
TSTCON	= ******  GX	*95-17     *96-67     *101-240   
TSZ   	= 000631	#11-400    
TSZA  	= 000635	#11-404    
TSZE  	= 000633	#11-402    
TSZN  	= 000637	#11-406    
TYPE0 	= ******  GX	 103-346    113-761   
TYPNUM	= ******  GX	 96-57      96-65      103-344    113-745   
UFA   	= 000130	#11-71     
UMAB  	  002662 R	 108-566    109-594   *110-617   *110-646   *111-666   #111-672   
UNDCTN	= 000007	#42-174     113-749    113-751   
USBLMF	  003002 R	*108-547    112-684   *112-686   *112-697   #112-718   
WENABL	= 004000	#43-204     43-204     43-204    #43-204     43-204     43-204    #43-204     43-204     43-204    
                        #43-204     43-204     43-204    #43-204     43-204     43-204    #43-204     43-204     43-204    
                        #43-204     43-204     43-204    #43-204     43-204     43-204    #43-204     43-204     43-204    
                        #43-204     43-204     43-204    #43-204     43-204     43-204    #43-204    
X     	= 000000	#95-22      95-22     #99-171     99-171    #99-172     99-172    #99-173     99-173    #99-174    
                         99-174    #99-175     99-175    #99-176     99-176    #99-177     99-177    #99-178     99-178    
                        #99-179     99-179    #99-180     99-180    #99-181     99-181    #101-261    101-261   #101-262   
                         101-262   
XCT   	= 000256	#11-157    
XDV   	= 000004	#99-172     99-172     99-172    #99-177     99-177     99-177    
XOP   	= 000002	#99-172     99-172     99-172    #99-177     99-177     99-177    
XOR   	= 000430	#11-267    
XORB  	= 000433	#11-270    
XORI  	= 000431	#11-268    
XORM  	= 000432	#11-269    
XR    	= 000000	#99-171     99-171    #99-172     99-172    #99-173     99-173    #99-174     99-174    #99-175    
                         99-175    #99-176     99-176    #99-177     99-177    #99-178     99-178    #99-179     99-179    
                        #99-180     99-180    
$APRID	= 000000	#54-129    
$BRST 	= 000001	#43-189    
$CNTSD	= 000001	#99-165    
$CONDM	= 000001	#10-330     94-5      
$CONEX	= ******	 48-469     113-768    113-769    113-771    113-772    113-774    114-788    114-825   
$CONMA	= 000001	#10-332     99-188    
$CONMO	= 000001	#10-331     95-33     
$CONMX	= 000001	#10-337     95-24     
$DEBUG	= ******	 105-445   
$DMADE	= ******	 113-768    113-769    113-774    114-825   
$DMPAC	= 070010	#11-10     
$EB   	= 000544 R	#99-170     99-185    
$EVENT	= 000001	#43-190    
$FATAL	= ******  GX	 96-70      98-113     100-229    102-309    103-326    103-364    104-376    105-414    105-430   
FITCON     CREATED BY  MACRO  ON 17-SEP-79 AT 09:17	PAGE 14

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                         108-565    109-580   
$FIND 	= 000001	#43-188    
$FITME	= 000001	#10-334     106-474   
$GETCT	= 070020	#11-12     
$ICEON	= 000001	#10-336     98-153    
$IND36	= 000003	#27-1177   
$KL10A	= 000101	#40-61     
$KL10B	= 000102	#40-62     
$LOADA	= 000001	#99-166    
$MOSDE	= ******	 113-771    113-772    114-788   
$PATCH	= 070004	#11-9      
$RDERA	= 000000	#54-131    
$RELOA	= 000001	#27-1175   
$REPCO	= 000001	#10-335     112-720   
$REPFI	= 000001	#10-333     101-264   
$RESET	= 000001	#99-164    
$RSTAC	= 070030	#11-14     
$RUN  	= 000001	#99-167    
$SAVAC	= 070024	#11-13     
$SBDIA	= 000002	#54-127     99-172     99-177    
$SDW  	= 000002	#27-1176   
$SETPA	= 000001	#97-91     
$SIZ16	= 033061	#40-64     
$SIZ32	= 031063	#40-65     
$SIZ4K	= 032060	#40-63     
$SIZ64	= 032066	#40-66     
$STEP 	= 000001	#43-191    
$TB   	= 000000	#99-170    
$TCRLF	= ******  GX	 103-360    105-444    113-752    114-823    114-824    115-840    115-842   
$TDB2I	= ******  GX	 115-870   
$TDB2O	= ******  GX	 103-351    113-755    114-807    114-817    115-884   
$TIMLP	= 070014	#11-11     
$TL   	= 000013	#99-185    
$TTDMS	= ******  GX	 102-285    102-286    103-347    103-356    103-359    113-739    113-740    113-741    113-762   
                         113-784    114-798    115-833    115-872    115-881   
$TTSPC	= ******  GX	 103-348    103-349    113-758    113-765    113-779    114-801    114-813    115-850    115-859   
                         115-868   
$TTTAB	= ******  GX	 113-753    113-757   
$WDD22	= ******  GX	 115-858   
$$APRI	= 000000	#54-130    
$$NARG	= 000001	#99-166     99-166     99-166    
$$RDER	= 000004	#54-132    
$$SBDI	= 000004	#54-128     99-172     99-177    
$10BC 	= 070040	#11-16     
$10BP 	= 070034	#11-15     
$10MB 	= 070050	#11-18     
$10RB 	= 070044	#11-17     
.RESET	= ******  GX	 99-164    
.SBDIA	= 000001	#95-18     #98-130    #98-138    #98-139    #98-140    #101-248   #101-249   
...   	= 000377	#11-25     
......	= 177777	#11-24      111-672   
FITCON     CREATED BY  MACRO  ON 17-SEP-79 AT 09:17	PAGE 15

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

ACBLK 		#19-787    
BLK10 		#28-1207   #99-170    
BP.   		#12-482    
BRST  		#17-716    
BTOFIX		#46-336    
BURST 		#67-556    
CABTE 		#45-291    
CALL  		#52-38     
CALLR 		#52-47     
CALPAR		#32-1363   
CGOTO 		#15-617    
CNTSD 		#32-1381   #99-165    
CONDET		#45-311    
CONDMA		#44-222    
CONFIG		#44-218    
CONMAB		#44-230    
CONMOS		#44-226    
CONMX 		#46-354    
CONTIN		#13-552    
COPYAC		#30-1325   
CTFMTC		#45-307    
DBESCN		#45-287    
DCNFBB		#46-326    
DFPC  		#66-526    
DFRD  		#55-163    
DFRDT 		#56-184    
DFSCLK		#65-516    
DFWRT 		#57-225    
DFWRTT		#58-265    
DFXCT 		#59-304    
DFXCTT		#60-336    
DMADET		#44-246    
DOLOOP		#21-907    
DPD   		#44-258    
DPOS  		#61-369    
DPOST 		#62-409    
DSOBAC		#17-707    
DTEBAS		#68-570    
ENBLPS		#20-854    
ENDBLK		#28-1222    99-185    
ENDLOO		#20-878    
ENDTIM		#41-126    
ERRCOM		#49-487    
ERRMSG		#49-473    
ERROR 		#49-479    
EVENT 		#16-650    
EXAM  		#63-448    
EXAMT 		#64-494    
EXCT  		#71-632    
EXECUT		#22-978    
EXOR  		#53-99      100-208    100-218   
EXP16K		#46-364    #115-848   
FITCON     CREATED BY  MACRO  ON 17-SEP-79 AT 09:17	PAGE 16

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

FATAL 		#37-1590   #93-1291    96-70      98-113     100-229    102-309    103-326    103-364    104-376    105-414   
                 105-430    108-565    109-580   
FIND  		#16-669    
FITMEM		#44-238     102-278   
FIXSB 		#46-340    
FSD   		#24-1070    97-98     
FSDCHK		#25-1100   
FSDMSK		#24-1050    97-76     
GBSRL 		#48-432    
GETBBD		#47-400    
GETCMP		#47-410    
GETTF 		#45-283    
GMCN  		#36-1522   
ICEON 		#46-321     98-116    
IND36 		#27-1190   
INIBSR		#47-390    
INIUDF		#37-1583   
INVAL 		#19-817    
IO10  		#29-1275    99-172     99-177    
I10   		#29-1252    99-171     99-173     99-174     99-175     99-176     99-178     99-179     99-180    
JAB   		#36-1535   
LDATIM		#48-455    
LDBESP		#46-331    
LDEFER		#37-1594   
LDFSDP		#25-1095   
LDFVR 		#45-271    
LDNADR		#45-267    
LDREFR		#45-279    
LDTIMR		#45-275    
LOADAC		#18-761    #99-166    
LODAR 		#69-601    
LOOP  		#20-869    
LOOPCO		#21-896    
LOOPDO		#21-912    
MABDET		#45-295    
MABL  		#26-1138   
MABPAD		#45-299    
MASK36		#34-1445   
MB    		#44-214    
MBINI 		#45-315    
MMRESP		#44-262    #98-111    
MOSDET		#44-250    
MOSDMP		#22-955    
MRESET		#74-723    
MSKDAT		#34-1474   
MSK36R		#34-1462   
MXTADR		#46-349    
MX20MD		#46-344    
NUMARG		#15-626    #99-166    
NUMTXT		#15-608    
OVRLOD		#37-1576   
PATERR		#22-965    
FITCON     CREATED BY  MACRO  ON 17-SEP-79 AT 09:17	PAGE 17

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

PBELL 		#88-1150   
PCRLF 		#88-1158   #103-360   #105-444   #113-752   #114-823   #114-824   #115-840   #115-842   
PENDIS		#35-1515   
PFORCE		#76-776    #102-283   #113-737   
PMSG  		#85-1059    102-285    102-286    103-356    103-359    113-739    113-740    113-741    113-784    114-798   
                 115-833    115-872    115-881   
PNORML		#76-779     102-284    113-738   
PNTADR		#78-834     115-858   
PNTAL 		#86-1090   #103-347   #113-762   
PNTAPR		#35-1504   
PNTBAK		#76-782     115-871   
PNTDEC		#83-980     115-870   
PNTNBR		#79-861    #114-807   
PNTOCS		#82-948    #114-817   #115-884   
PNTOCT		#81-916    
PNTODT		#84-1013    103-351    113-755   
PNTVER		#19-807    
PNT36 		#77-806    
PNT36B		#80-889    
POP   		#3-95      #52-65     #97-91     #97-98     #98-130    #98-139    #98-140    #99-164    #99-166    #99-167    
                #102-303   #105-441   #111-669   #112-715   #115-851   #115-869   #115-883   
PSLASH		#88-1146   
PSPACE		#88-1142    103-348    103-349    113-758    113-765    113-779    114-801    114-813    115-850    115-859   
                 115-868   
PTAB  		#88-1154    113-753    113-757   
PUSH  		#3-89      #52-59     #102-282   #102-315   #102-317   #104-385   #105-436   #110-616   #112-683   #115-847   
                #115-865   #115-880   
PWTES 		#19-827    
RDPROM		#44-254    
READAC		#30-1309   
REGRST		#75-760    #109-602   
REGSAV		#75-756    #107-513   
REPCON		#45-303    
REPFIT		#44-234    
RESDET		#44-242    
RESET 		#25-1112   #99-164    
RETURN		#52-51     
RST.4 		#31-1343   
RST.5 		#31-1354   
RUN   		#14-565     99-167    
R4.R5 		#31-1347   
R5.PC 		#31-1357   #98-147    #101-258   #106-472   #115-844   
SAV.4 		#31-1339   
SAV.5 		#31-1351   #96-44     #100-201   #102-279   #113-736   
SBDIAG		#23-1002    95-18      98-130     98-138     98-139     98-140     101-248    101-249   
SBSRL 		#48-416    
SCAN  		#46-359    #108-552   
SETBBD		#47-395    
SETCMP		#47-405     98-129    
SETPAR		#32-1368    97-91     
SETRAM		#33-1422   
SL    		#53-71     
FITCON     CREATED BY  MACRO  ON 17-SEP-79 AT 09:17	PAGE 18

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

SM    		#72-662    
SMFSS 		#47-375     97-104    
SOBAC 		#17-696    
SR    		#53-85     
STEP  		#18-733    
STEP10		#16-639    
STKEMD		#35-1496   
STKMEP		#35-1482   
STOPLO		#21-887    
STPCON		#17-686    
S10.  		#13-509    
TBIT  		#13-535    
TICK  		#41-94     
TIMING		#40-68     
TIMSIG		#39-43      43-201     43-202     43-203     43-204     43-205     43-206     43-207    
TTIDEC		#90-1214   
TTILIN		#91-1240   
TTILNW		#92-1266   
TTIOCT		#89-1186   
UMAC  		#36-1550   
WD36  		#28-1243   #95-22     #99-181    #101-261   #101-262   
WWADR 		#73-691    
XO10  		#28-1218   
XX    		#32-1397   
X10   		#28-1214   
$CNG  		#21-918    
$DEF  		#3-84      #51-34     #51-36     
$ENDLO		#21-933    
$LOOP 		#21-922    
$PMSG 		#87-1111   
$PRADR		#12-465    
$RDG  		#21-927    
$STOPL		#21-930    
.MAIN.	MACRO M1110  17-SEP-79 08:57
TABLE OF CONTENTS

     3-    1	ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
    96-    5	SUBROUTINES USED FROM ALL OVER
    97-   49	SBUS DIAG SUBROUTINES
   107-  665	MISCELLANEOUS SUPPORT SUBROUTINES
   117- 1261	ROUTINE TO CHANGE THE CURRENT AC BLOCK
   119- 1351	PROGRAM RUN CONTROL ROUTINES
   121- 1489	MBOX CLOCK CONTROL ROUTINES
   126- 1673	NEW AC LOAD ROUTINES
   132- 1964	RESET SUBROUTINES
   135- 2108	REGISTER SAVE & RESTORE ROUTINES
   152-   24	MASTER CONFIGURE & RESOURCE DETERMINATION SEQUENCES
   153-   65	MF20 RESOURCE DETERMINATION AND INITIALIZATION CONTROL
   156-  207	DETERMINE RESPONSE FOR A CONFIGURED MOS CONTROLLER
   160-  393	SUBROUTINES TO MOVE DATA TO UNUSED MF20 BITSUB LOCS
   163-  558	INITIALIZE ALL MEMORY BOOT DATA AREAS
   164-  622	MEMORY BOOT DATA AREA
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 1


      1		177777 			MBROOT==-1
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 3
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.

					.SBTTL	ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
      2
      3						.NLIST	CND,BEX
      4						.LIST	MC,MD,MEB
      5						.ENABL	AMA
      6
      7					.TITLE	MBROOT -- MEMORY BOOT ROOT OVERLAY
     12
     13					.REM	%
     14						THIS FILE CONTROLS THE ASSEMBLY OF THE 5 MEMORY BOOT OVERLAY MODULES.
     15					WHICH ONE OF THE MODULES IS DETERMINED BY WHICH ONE OF 5 SYMBOLS IS DEFINED.
     16					THE SYMBOLS ARE:
     17
     18							MBROOT, CORDET, MSSCTL, DBEOVL, OR FITCON.
     19
     20					THE SYMBOL SHOULD BE DEFINED IN THE ASSEMBLY CONTROL COMMAND USING THE /EQ:
     21					SWITCH.  ONE OTHER SYMBOL MAY BE DEFINED WITH THE EQUATE SWITCH: DEFINE "MBOKLG"
     22					WHEN DOING AN R$$20F ASSEMBLY IN THE DIAGNOSTIC ENVIRONMENT.  THIS SATISFIES
     23					EXTERNAL REFERENCES BY EXPLCITLY DEFINING THOSE SYMBOLS.
     24
     25						THE OVERLAY STRUCTURE OF THE MEMORY BOOT IS SIMPLE: ONE ROOT MODULE,
     26					MBROOT, WHICH LOADS ONE OF THE OTHER 4 MODULES UNDERNEATH IT AS NECESSARY.  THE
     27					TOTAL LENGTH OF OVERLAYS RESIDENT AT ANY ONE POINT IN TIME MUST BE LESS THAN
     28					16000(OCTAL) BYTES, BUT IT IS PREFERABLE TO KEEP IT AROUND 14000 TO ALLOW FOR
     29					EXPANSION.  THE OVERLAY STRUCTURE IS SHOWN GRAPHICALLY BELOW:
     30
     31					MEMORY
     32					16000
     33					 MAX
     34					  !	+-----------------------------------------------------------+
     35					  !	!							    !
     36					  !	!		    MBROOT (ROOT MODULE)		    !
     37					  !	!							    !
     38					  !	+--------------+--------------+--------------+--------------+
     39					  !	!	       !	      !		     !		    !
     40					  !	!    CORDET    !    MSSCTL    !    DBEOVL    !    FITCON    !
     41					  V	!	       !	      !		     !		    !
     42						+--------------+--------------+--------------+--------------+
     43
     44					TIME --------->
     45
     46						%
     47
     48		000001 			R$$20F=1	; *****FORCE ASSEMBLY OF MEM BOOT IN FRONT-END MODE *****
     49
     50					;-----DEFINE "CONMMR" TO AID IN MEMORY BOOT ERROR CHECKING.  UNDEFINE IT
     51					; TO SAVE APPROXIMATELY 400(8) BYTES IN THE MEMORY BOOT ROOT MODULE.  NOTE
     52					; THAT IF YOU UNDEFINE OR REDEFINE THIS THEN YOU MUST ALSO CHANGE THE POSITION
     53					; SUBROUTINE "MMRESP" IN THE FILE MBSUB.P11 SO THAT IT IS IN THE PROPER MODULE.
     54		000001 				CONMMR=1
     55
     56					;-----LISTING CONTROL.
     57		000001 			LSTMB=1
     58		000001 			LSBRTN=1
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 4
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.

     60					;-----SYMBOLS DEFINED TO GET RID OF UNDEFINED PROBLEMS.  THESE SYMBOLS WOULD
     61					; NORMALLY COME FROM PRM11.P11.
     62
     63		000001 			BIT0=1.
     64		000002 			BIT1=2.
     65		000004 			BIT2=4.
     66		000010 			BIT3=8.
     67		000020 			BIT4=16.
     68		000040 			BIT5=32.
     69		000100 			BIT6=64.
     70		000200 			BIT7=128.
     71		000400 			BIT8=256.
     72		001000 			BIT9=512.
     73		002000 			BIT10=1024.
     74		004000 			BIT11=2048.
     75		010000 			BIT12=4096.
     76		020000 			BIT13=8192.
     77		040000 			BIT14=16384.
     78		100000 			BIT15=32768.
     79
     80		001000 			HALTLP=	BIT9		;EBOX IS IN HALT LOOP
     81		004000 			ERRSTP=	BIT11		;EBOX CLOCK STOPPED DUE TO ERROR
     82
     83					;-----OTHER SYMBOLS DEFINED TO MAKE FLAGS GO AWAY.
     84					.MACRO	$DEF	;MAKE THE O FLAG GO AWAY   ......
     85					.ENDM
     86
     87					;-----PUSH AND POP MACROS ARE GIVEN HERE JUST TO NEATEN UP THE LISTING SOME.
     88
     89					.MACRO	PUSH	A
     90					.IRP	B,<A>
     91						  MOV	B,-(SP)	;PUSH B ON STACK
     92					.ENDR
     93					.ENDM
     94
     95					.MACRO	POP	A
     96					.IRP	B,<A>
     97						  MOV	(SP)+,B	;POP STACK INTO B
     98					.ENDR
     99					.ENDM
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 6
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.

    160					;-----THE FOLLOWING DEFINITIONS FORCE ASSEMBLY OF THE MEMORY BOOT AND
    161					; DIAGNOSTIC SUBROUTINES REQUIRED FOR THIS MODULE.
    162
    163		000001 			$CONFIG=1		;REQUIRED FOR MEMORY BOOT SUBROUTINES
    164		000001 			$RESDET=1
    165		000001 			$MOSDET=1		;FIRST HALF OF MOSDET
    166		000001 			$MBINI=1
    167		000001 			$MMRESP=1
    168		000001 			$SCAN=1
    169		000001 			$EXP16K=1
    170		000001 			$SMFSS=1
    171		000001 			$SETBBD=1
    172		000001 			$SETCMP=1
    173		000001 			$SBSRL=1
    174		000001 			MBDATA=1
    175
    176		000001 			$RUN=1		;REQUIRED FOR DIAGNOSTIC SUBROUTINES
    177		000001 			$LOADAC=1
    178		000001 			$ACBLK=1
    179		000001 			$QXCT=1
    180		000001 			.SBDIAG=1
    181		000001 			$FSD=1
    182		000001 			$RESET=1
    183		000001 			$MABL=1
    184		000001 			$READAC=1
    185		000001 			$CALPAR=1
    186		000001 			$SETPAR=1
    187		000001 			$CNTSD=1
    188		000001 			$XX=1
    189		000001 			$SETRAM=1
    190		000001 			$LDEFER=1
    191
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 7
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.

    203					;-----THE FOLLOWING MEMORY BOOT ROOT MODULE LABELS ARE GLOBAL.
    204
    205						.GLOBL	MBDIFS,MABCNI,DDCADM,XMAL,D16KBN
    206						.GLOBL	DPDSRS,BTFLCN,MBDCMS,MBINID,RDDONE
    207						.GLOBL	CONRD,DMARD,MF20RD,MABRD,FITTED
    208						.GLOBL	CDONE,OCFVST,CONFGR,INTMOD,DBEFRC
    209						.GLOBL	FMRECN,KEEPBB,MX20M6,MX20M7,MODELB
    210						.GLOBL	CPUDSG,ILOST,MSTROS,TYPNUM,CONTI
    211						.GLOBL	MCOUNT,CNTCNT,MA20,DMA20,MB20
    212						.GLOBL	MX20,MF20,UNDEF,GAPCNT,GAPDMY
    213						.GLOBL	GAPTAB,DBUF,REAPWD,TYPE0,TYPE1
    214						.GLOBL	TYPE2,TYPE3,TYPE4,TYPE5,TYPE6
    215						.GLOBL	BITCNT,MBDABS,MABSIZ,MABSA,MABADC
    216						.GLOBL	MABINT,MBDDMS,DMA2TS,DMA20T,DMABM
    217						.GLOBL	DMAFRC,DMASIZ,DMARMP,BAF,BAF0
    218						.GLOBL	MBDMFS,RAMSZ0,RAMSZ1,TIMNO0,TIMNO1
    219						.GLOBL	MDFSIZ,MOSSA,RSPMAP,MBDMXS,SDMSBR
    220						.GLOBL	LADRRM,BSIZE
    221
    222						.GLOBL	SBSRL,INIDMA,INIMAB,INIMDF,SMFSS2
    223						.GLOBL	SCAN,SETCMP,EXP16K
    224
    225						.GLOBL	DMANXM,XCONMP,DBESFL,BOLPS,MDHDER
    226						.GLOBL	SETBBD,MDST1B,SMFSS0,MDRECN
    227						.GLOBL	CONFIG,RESDET,MBINI,CCFAIL
    228
    229						.GLOBL	MMRESP	;DEFINE THIS HERE 'CAUSE IT'S IN THE ROOT
    230					;-----THE FOLLOWING DIAGNOSTIC SUBROUTINE LABELS ARE GLOBAL.
    231
    232						.GLOBL	ACBLK1,ACLOAD,ACSCAT,APRID0,ASL0.3
    233						.GLOBL	ASL0.4,ASL0.6,ASR0.3,ASR0.4,ASR0.6
    234						.GLOBL	CALPAR,CHKED,CIAPR0,CNTSD1,CONTIN
    235						.GLOBL	DFRLST,DLNXT,FSD,FSDCH,FSDCHK
    236						.GLOBL	FSDM1,LDEFER,LFSDP,MABL,MINUS1
    237						.GLOBL	QXCT1,R5.PC,RDERA0,READAC,.RESET
    238						.GLOBL	RUNBIG,SAV.5,SBD0,SBDT,SDWDFM
    239						.GLOBL	SETPAR,SETRAM,TSTCON,XX1,XXWD
    240						.GLOBL	RUNPRG
    241						.GLOBL	ASR0.5,BMTAB,RST.5
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 96
SUBROUTINES USED FROM ALL OVER

      5					.SBTTL		SUBROUTINES USED FROM ALL OVER
      7
      8					;-----SUBROUTINE TO EXECUTE A KL10 INSTRUCTION AND THEN EXAMINE AC0.
      9	000000	012500 			XX:	MOV	(R5)+,R0	;GET ADR OF INSTR
     10	000002				XX1:	EXCT			;DO IT
	000002	004737 	000000G			 JSR	PC,$EXCT	; ** EXECUTE IT
     11	000006	103410 				BCS	1$
     12	000010					EXAMT	AC0,XXWD		;NOW GET AC0
	000010	012700 	000000 			 MOV	#AC0,R0	; ** ADDRESS POINTER TO R0
	000014	010146 				 MOV	R1,-(SP)	; ** SAVE R1
	000016	012701 	000032'			 MOV	#XXWD,R1	; ** XXWD BUFFER POINTER TO R1
	000022	004737 	000000G			 JSR	PC,$EXAMT	; ** EXECUTE THE KL10 EXAMINE
	000026	012601 				 MOV	(SP)+,R1	; ** RESTORE R1
     13	000030	000207 			1$:	RTS	PC		;DONE
     16	000032	000000 	000000 	000000 	XXWD:	0,0,0			;WD GOES HERE
     17					;-----SOME COMMON INSTRUCTIONS WHICH LOAD AC0.
     18	000040				CIAPR0:	IO10	CONI,APR,,0
	000040	   000 	   000 	   200
	000043	   002 	   016
     19	000045				RDERA0:	IO10	RDERA,,,0
	000045	   000 	   000 	   000
	000050	   004 	   016
     20	000052				DIPAG0:	IO10	DATAI,PAG,,0	; (FOR AC BLKS, PCS, UBR)
	000052	   000 	   000 	   200
	000055	   010 	   016
     21	000057				APRID0:	IO10	APRID,,,0
	000057	   000 	   000 	   000
	000062	   000 	   016
     23
     24					;-----MISCELLANEOUS SHIFT SUBROUTINES.
     25	000064	006200 			ASR0.6:	ASR	R0
     26	000066	006200 			ASR0.5:	ASR	R0
     27	000070	006200 			ASR0.4:	ASR	R0
     28	000072	006200 			ASR0.3:	ASR	R0
     29	000074	006200 				ASR	R0
     30	000076	006200 				ASR	R0
     31	000100	000207 				RTS	PC
     32	000102	006300 			ASL0.6:	ASL	R0
     33	000104	006300 			ASL0.5:	ASL	R0
     34	000106	006300 			ASL0.4:	ASL	R0
     35	000110	006300 			ASL0.3:	ASL	R0
     36	000112	006300 				ASL	R0
     37	000114	006300 				ASL	R0
     38	000116	000207 				RTS	PC
     39
     41	000120	000001 	000002 	000004 	BMTAB:	.WORD	BIT0,BIT1,BIT2,BIT3,BIT4,BIT5,BIT6,BIT7,BIT8
     42	000142	001000 	002000 	004000 		.WORD	BIT9,BIT10,BIT11,BIT12,BIT13,BIT14,BIT15
     46	000160	   001 	   002 	   004 	BYBITM:	.BYTE	BIT0,BIT1,BIT2,BIT3,BIT4,BIT5,BIT6,BIT7 ;USED ALL OVER
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 97
SBUS DIAG SUBROUTINES

     49					.SBTTL		SBUS DIAG SUBROUTINES
     50
     52					.REM	%
     53						THE FOLLOWING CODE IS THE "FAST SBUS DIAG PROGRAM" AND ITS SUPPORT CODE.
     54					IT WORKS BY HAVING AN AC PROGRAM CONSTANTLY RUNNING IN AC BLOCK 6 WHICH WAITS
     55					FOR A NONZERO VALUE IN AC14 THEN DOES AN SBUS DIAG USING THAT WORD AND CHECKS
     56					THE RESULT.  IF ALL IS WELL THE PROGRAM JUST KEEPS RUNNING, IF NOT, IT HALTS.
     57					SBUS DIAGS ARE BEING DONE THIS WAY IN ORDER TO SPEED THEM UP: ONLY 1 DEPOSIT IS
     58					REQUIRED PER SBDIAG.
     59						%
     60
     61					;-----THIS IS THE SUBROUTINE WHICH LOADS THE PROGRAM.
     62	000170				LFSDP:	SM			;RESET CPU
	000170	004737 	000000G			 JSR	PC,$KLMR	; ** MASTER RESET THE KL10
	000174	012700 	000001 			 MOV	#STRCLK,R0	; ** START CLOCK FUNCTION CODE TO R0
	000200	004737 	000000G			 JSR	PC,$DDFXC	; ** START THE KL10 CLOCK
     63	000204					MABL	<,,,,,,FSDPM>,1$ ;LOAD FAST SBUS DIAG PROGRAM IN BLK 6
	000204	004537 	000216'			  JSR	R5,64$		;SAV R5, PT TO & SKIP ARG LIST
	000210	000100 	000242'			  .WORD	X,1$		;AC BLOCK MASK & INITIAL 11 ADR OF 10 DATA
	000214	000377 				  .WORD	FSDPM		;AC LOAD MASK(S)
	000216	004737 	002160'		64$:	  JSR	PC,MABL		;LD AC PRGM, NO ST ADR GIVEN
	000222	012605 				 MOV	(SP)+,R5
     64	000224					SM			;;START MICRO-CODE
	000224	004737 	000000G			 JSR	PC,$KLMR	; ** MASTER RESET THE KL10
	000230	012700 	000001 			 MOV	#STRCLK,R0	; ** START CLOCK FUNCTION CODE TO R0
	000234	004737 	000000G			 JSR	PC,$DDFXC	; ** START THE KL10 CLOCK
     65	000240	000207 				RTS	PC		;RETURN TO CALLER
     66
     67	000242					BLK10	0		;PROGRAM STARTS IN AC0
     68	000242				1$:	I10	SETZ,14,,0	;0--INITIALIZE WORD
	000242	   000 	   000 	   000
	000245	   006 	   010
     69	000247					I10	JUMPE,14,,1	;1--LOOP HERE TIL WORD DEPOSITED IN AC14
	000247	   001 	   000 	   000
	000252	   226 	   006
     70	000254					I10	MOVE,16,,14	;2--COPY WORD TO "TO MEM" AC
	000254	   014 	   000 	   000
	000257	   007 	   004
     71	000261					IO10	SBDIAG,,,16	;3--DO THE SBUS DIAG
	000261	   016 	   000 	   000
	000264	   005 	   016
     72	000266					I10	XOR,14,,17	;4--CHECK RESULT BY XOR UNDER MASK
	000266	   017 	   000 	   000
	000271	   306 	   010
     73	000273					I10	ANDCM,14,,15	;5--
	000273	   015 	   000 	   000
	000276	   206 	   010
     74	000300					I10	JUMPE,14,,1	;6--JUMP IF ECHO IS OK
	000300	   001 	   000 	   000
	000303	   226 	   006
     75	000305					I10	JRST,4,,1	;7--ELSE HALT TO LET PDP11 LOOK AT ERROR
	000305	   001 	   000 	   000
	000310	   142 	   005
     76
     77									;14-11 DEPOSITS NON-0 SBDIAG WORD HERE
     78									;15-11 PUTS MASK HERE BEFORE FIRST DIAG
     79									;16-SBDIAG WD AS SENT TO MEM
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 97-1
SBUS DIAG SUBROUTINES

     80	000312					ENDBLK	FSDPM		;17-SBDIAG WD FROM MEMORY
     81						.EVEN
     83
     84					;-----THIS SUBROUTINE LOADS THE SBDIAG CHECK MASK AND LEAVE A POINTER TO IT
     85					; WHERE IT CAN BE FOUND.
     86	000312	012500 			FSDMSK:	MOV	(R5)+,R0	;GET MASK POINTER
     87	000314	010037 	000352'		FSDM1:	MOV	R0,SDMA		;ADR TO DPOST PL
     88	000320	004737 	000502'		LSDM1:	JSR	PC,STRFSD	;MAKE SURE FAST-SBUS-DIAG IS RUNNING
     90	000324					PUSH	R1
	000324	010146 				 MOV	R1,-(SP)
     91	000326	013701 	000352'			MOV	SDMA,R1		;MASK ADR TO R1
     92	000332					DPOST	AC15		;PUT MASK IN AC15
	000332	012700 	000015 			 MOV	#AC15,R0	; ** ADDRESS TO R0
	000336	004737 	000000G			 JSR	PC,$DPOST	; ** EXECUTE THE DEPOSIT
     93	000342					POP	R1
	000342	012601 				 MOV	(SP)+,R1
     98	000344	004737 	003316'			JSR	PC,CHKED
     99	000350	000207 				RTS	PC
    101
    102	000352	177777 			SDMA:	......			;FAST SBUS DIAG MASK ADDRESS
    103
    104					;-----THIS SUBROUTINE DOES THE SBDIAG, DUMPS ERROR DATA, AND FAULTS UPON
    105					; DETECTING AN ERROR.
    106	000354	012500 			FSDCH:	MOV	(R5)+,R0	;SBDIAG WD ADR TO R0
    108	000356	004737 	000400'		FSDCH1:	JSR	PC,FSD1		;GO DO IT
    109	000362	103401 				BCS	FSDERR		;BR IF CPU HALTED.. ERROR
    110	000364	000207 				RTS	PC		;ELSE OK...RTN
    111	000366				FSDERR:	FATAL	MFE	;MF20 ERROR, SBDIAG ECHO CHECK FAILED
	000366	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "MFE" ERROR
	000372	   115 	   106 	   105 		 .ASCIZ	%MFE%
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 98
SBUS DIAG SUBROUTINES

    120					;-----THIS SUBROUTINE JUST DOES THE SBUS DIAG AND CHECKS THE HALTED BIT TO
    121					; SEE IF THERE WAS AN ERROR.
    122	000376	012500 			FSD:	MOV	(R5)+,R0	;SBDIAG WD ADR TO R0
    123	000400	010037 	000460'		FSD1:	MOV	R0,FSDWDA		;ADR TO DPOST PL
    124	000404					CNTSD			;PUT CONTR # IN SBDIAG WD
	000404	004737 	000734'			  JSR	PC,CNTSD1	;CONTR # TO SBDIAG WD,  IN R0
    125	000410	004737 	000502'			JSR	PC,STRFSD	;MAKE SURE FAST-SBUS-DIAG IS RUNNING
    126	000414				FSD2:		;HACKER'S ENTRY POINT
    141	000414					PUSH	R1
	000414	010146 				 MOV	R1,-(SP)
    142	000416	013701 	000460'			MOV	FSDWDA,R1	;GET ADR OF FST SBDIAG WD
    143	000422					DPOST	AC14		;PUT WD IN AC14.. PROGRAM TAKES IT FROM THERE
	000422	012700 	000014 			 MOV	#AC14,R0	; ** ADDRESS TO R0
	000426	004737 	000000G			 JSR	PC,$DPOST	; ** EXECUTE THE DEPOSIT
    144	000432					POP	R1
	000432	012601 				 MOV	(SP)+,R1
    149	000434	004737 	003316'			JSR	PC,CHKED
    151	000440	004737 	000000G			JSR	PC,$DTRW1	;READ DTE20 DIAG 1 WORD
    152	000444	032700 	001000 			BIT	#HALTLP,R0	;IS CPU HALTED?
    156	000450	000241 				CLC			;IND NO ERROR
    157	000452	001401 				BEQ	2$		;BR IF CPU NOT HALTED...OK
    174	000454	000261 				SEC			;SET ERR FLG
    175	000456	000207 			2$:	RTS	PC		;DONE...C BIT SET ON ERROR
    177
    178	000460	177777 			FSDWDA:	......		;FAST SBUS DIAG WORD ADR
    180
    181					;-----THIS SUBROUTINE IS USED TO LOAD AN SBUS DIAG MASK, DO AN SBUS DIAG,
    182					; AND CHECK THE RESULT.
    183	000462	012537 	000352'		FSDCHK:	MOV	(R5)+,SDMA	;MASK ADR TO DPOST PL
    184	000466	004737 	000320'			JSR	PC,LSDM1	;DO DEPOSIT
    186	000472	012500 				MOV	(R5)+,R0	;FUNCTION WD ADR TO PARAM REG
    187	000474	004737 	000356'			JSR	PC,FSDCH1	;DO IT AND CHECK
    189	000500	000207 				RTS	PC		;DONE
    191
    192
    193					;-----STRFSD SEE IF THE FAST-SBUS-DIAG PROGRAM IS RUNNING AND STARTS IT IF
    194					; IT IS NOT.
    195	000502	023727 	001316'	000006 	STRFSD:	CMP	CACBLK,#BLK6	;ARE WE IN AC BLK 6?
    196	000510	001005 				BNE	1$		;NO...NEED TO START PROGRAM
    198	000512	004737 	000000G			JSR	PC,$DTRW1	;READ DTE20 DIAG 1 WORD
    199	000516	032700 	001000 			BIT	#HALTLP,R0	;IS CPU HALTED?
    203	000522	001422 				BEQ	2$		;NO...PROGRAM IS RUNNING
    204	000524				1$:
    206	000524					RESET	CPU		;SET PC TO 0 & CLR CPU
	000524	004537 	000532'			  JSR	R5,64$		;SAV R5, PT TO & SKIP CPU LIST
	000530	000200 				  .WORD	CPU
	000532	004737 	003032'		64$:	  JSR	PC,.RESET	;RESET SPECIFIED HARDWARE
	000536	012605 				 MOV	(SP)+,R5
    207	000540					ACBLK	6
	000540	012700 	000006 			  MOV	#6,R0		;AC BLK # TO R0
	000544	004737 	001140'			  JSR	PC,ACBLK1	;SWITCH TO AC BLK
    212	000550					DFXCTT	SETRUN		;GO
	000550	012700 	000011 			 MOV	#SETRUN,R0	; ** FUNCTION CODE TO R0
	000554	004737 	000000G			 JSR	PC,$DDFXC	; ** EXECUTE THE FUNCTION EXECUTE
    214	000560					DFXCTT	CONBUT
	000560	012700 	000012 			 MOV	#CONBUT,R0	; ** FUNCTION CODE TO R0
	000564	004737 	000000G			 JSR	PC,$DDFXC	; ** EXECUTE THE FUNCTION EXECUTE
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 98-1
SBUS DIAG SUBROUTINES

    216	000570	000207 			2$:	RTS	PC
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 99
SBUS DIAG SUBROUTINES

    220					;-----SUBROUTINES USED BY THE SBDIAG MACRO.  SBDT COPIES THE RH 32 BITS FROM
    221					; THE PARAMS & USES THEM AS THE SBUS DIAG WORD.  SBDI & SBD0 USE A WORD FROM
    222					; SOMEWHERE ELSE.  THE CONTROLLER NUMBER, TSTCON, IS AUTOMATCILY INSERTED INTO
    223					; THE WORD.
    224	000572	012700 	000606'		SBDT:	MOV	#1$,R0		;PT TO COPY AREA
    225	000576	012510 				MOV	(R5)+,(R0)	;GET BITS 20-35
    226	000600	012560 	000002 			MOV	(R5)+,2(R0)	;4-19
    227	000604	000406 				BR	SBD0		;GO DO IT
    228	000606	   000 	   000 	   000 	1$:	.BYTE	0,0,0,0,0	;WD COPIED HERE
    229	000613				SD16:	IO10	SBDIAG,,,16	;INSTR TO DO SBUS DIAG
	000613	   016 	   000 	   000
	000616	   005 	   016
    230	000620	012500 			SBDI:	MOV	(R5)+,R0	;GET ADR OF WD
    231	000622				SBD0:	CNTSD			;PUT CONTR # INTO LHE OF WD
	000622	004737 	000734'			  JSR	PC,CNTSD1	;CONTR # TO SBDIAG WD,  IN R0
    232	000626	010037 	000722'			MOV	R0,SBDG3	;ADR OF WD TO DPOST PARAM
    234	000632				SBDG2:	PUSH	R1
	000632	010146 				 MOV	R1,-(SP)
    235	000634	013701 	000722'			MOV	SBDG3,R1
    236	000640					DPOST	AC16
	000640	012700 	000016 			 MOV	#AC16,R0	; ** ADDRESS TO R0
	000644	004737 	000000G			 JSR	PC,$DPOST	; ** EXECUTE THE DEPOSIT
    237	000650					POP	R1
	000650	012601 				 MOV	(SP)+,R1
    242	000652	004737 	003316'			JSR	PC,CHKED
    256	000656					EXECUTE	SD16		;DO THE SBUS DIAG
	000656	012700 	000613'			  MOV	#SD16,R0		;PT TO INSTR TO BE EXECUTED
	000662	004737 	003300'			  JSR	PC,QXCT1	;EXECUTE THE INSTR PTD TO BY R0
    257	000666					EXAMT	AC17,SDWDFM	;GET THE SBUS DIAG RESULT
	000666	012700 	000017 			 MOV	#AC17,R0	; ** ADDRESS POINTER TO R0
	000672	010146 				 MOV	R1,-(SP)	; ** SAVE R1
	000674	012701 	000724'			 MOV	#SDWDFM,R1	; ** SDWDFM BUFFER POINTER TO R1
	000700	004737 	000000G			 JSR	PC,$EXAMT	; ** EXECUTE THE KL10 EXAMINE
	000704	012601 				 MOV	(SP)+,R1	; ** RESTORE R1
    259	000706	004737 	003316'			JSR	PC,CHKED
    260	000712	000207 				RTS	PC		;DONE
    262
    263	000714	010037 	001000'		SETCON:	MOV	R0,TSTCON	;PUT R0 INTO TSTCON
    264	000720	000205 				RTS	R5		;RET TO CALLER (PROBABLY AN ISOLATION ROUTINE)
    265
    266	000722	177777 			SBDG3:	......			;SBDIAG WD ADR
    267	000724	000000 	000000 	000000 	SDWDFM:	0,0,0			;RESULT WORD GOES HERE
    268
    272
    274					.REM	%
    275						SUBROUTINE TO STICK THE CURRENT CONTROLLER NUMBER INTO AN SBUS DIAG
    276					WORD.  THE ADDRESS OF THE SBUS DIAG WORD IS A T.P.  OR IN R0 IF ENTRY AT CNTSD1.
    277					CNTSD1 DOESN'T AFFECT R0.
    278						%
    279	000732	012500 			CNTSD:	MOV	(R5)+,R0	;ADDRESS OF SBUS DIAG WD
    280	000734				CNTSD1:	PUSH	R1		;ENTER HERE IF ADR ALREADY IN R0
	000734	010146 				 MOV	R1,-(SP)
    281	000736	113701 	001000'			MOVB	TSTCON,R1	;GET CONTROLLER #
    282	000742	142760 	000017 	000004 		BICB	#17,4(R0)	;OFF BITS 0-3
    283	000750	006001 				ROR	R1		;BIT 4 TO C-BIT FOR LATER TEST
    284	000752	150160 	000004 			BISB	R1,4(R0)	;SET BITS 0-3
    285	000756	142760 	000200 	000003 		BICB	#200,3(R0)	;OFF BIT 4
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 99-1
SBUS DIAG SUBROUTINES

    286	000764	103003 				BCC	1$
    287	000766	152760 	000200 	000003 		BISB	#200,3(R0)	;SET BIT 4
    288	000774				1$:	POP	R1
	000774	012601 				 MOV	(SP)+,R1
    289	000776	000207 				RTS	PC
    291
    292	001000	177777 			TSTCON:	.WORD	......		;NUMBER OF THE CONTROLLER WERE TESTING
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 100
SBUS DIAG SUBROUTINES

    297					.REM	%
    298						SUBROUTINE SETRAM IS CALLED BY THE SETRAM MACRO.  IT IS USED TO FILL AN
    299					ENTIRE MOS CONTROL RAM SET WITH A DESIRED VALUE.  IT USES AND IS INTIMATELY
    300					LINKED TO FSD.  IT IS ASSUMED THAT THE FSD MASK HAS ALREADY BEEN LOADED.  NOTE
    301					THAT SOME ROUTINES DEPEND UPON THE FACT THAT SETRAM STARTS WITH THE ADDRESS
    302					GIVEN IN THE SBDIAG WORD AND WORKS DOWN FROM THERE.
    303						%
    304
    305	001002				SETRAM:	PUSH	R1
	001002	010146 				 MOV	R1,-(SP)
    306	001004	012700 	001072'			MOV	#5$,R0		;PTR SAVS TIM & SPACE
    307	001010	012520 				MOV	(R5)+,(R0)+	;COPY SBDIAG WD 04-35
    308	001012	012510 				MOV	(R5)+,(R0)
    309	001014	014001 				MOV	-(R0),R1	;GET & ISOLATE FUNC #
    310	001016	042701 	177760 			BIC	#-16.,R1
    311	001022	116101 	001100'			MOVB	6$(R1),R1	;GET BYTE DISP INTO WD OF RHE OF RAM ADR
    316	001026	060001 			1$:	ADD	R0,R1		;ADR OF RAM LD ADR NOW IN R1
    317	001030	010037 	000460'			MOV	R0,FSDWDA	;ADR TO FSD FOR IT TO USE
    318	001034					CNTSD			;CONTR # TO SBDIAG WD
	001034	004737 	000734'			  JSR	PC,CNTSD1	;CONTR # TO SBDIAG WD,  IN R0
    319	001040	004737 	000502'			JSR	PC,STRFSD	;MAKE SURE FSD IS RUNNING
    320	001044	004737 	000414'		2$:	JSR	PC,FSD2		;DO A RAM LOC
    322	001050	103002 				BCC	3$		;BR IF DONE CORRECTLY
    323	001052	000137 	000366'			JMP	FSDERR		;ELSE DIE
    324	001056	105711 			3$:	TSTB	(R1)		;DONE ALL LOCS INCLUDING 0?
    325	001060	001402 				BEQ	4$		;YUP
    326	001062	105311 				DECB	(R1)		;ELSE COUNT DOWN 1 RAM LOC
    327	001064	000767 				BR	2$
    328	001066				4$:	POP	R1		;RESTORE & EXIT
	001066	012601 				 MOV	(SP)+,R1
    329	001070	000207 				RTS	PC
    331
    332	001072	000000 	000000 	000000 	5$:	.WORD	0,0,0		;SBDIAG WORD USED FROM HERE
    333	001100	   000 	   000 	   000 	6$:	.BYTE	0,0,0,1,0,0,0,1,0,2,1,0,0,0,0,0 ;BYTE DISP OF RAM LD ADR
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 107
MISCELLANEOUS SUPPORT SUBROUTINES

    665					.SBTTL		MISCELLANEOUS SUPPORT SUBROUTINES
    705	001120	000000 	000000 	000000 	ZERO..:	.WORD	0,0,0		;A 36-BIT ZERO CONSTANT
    706	001126				MINUS1:	WD36	7777,7777,7777	;36 BITS OF ALL ONES
	001126	   377 	   377 	   377
	001131	   377 	   017
    707	001133	   000 				.BYTE	0
    708	001134	000000 			ERBIT:	.WORD	0		;LAST KL BIT TESTED BY TBIT
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 117
ROUTINE TO CHANGE THE CURRENT AC BLOCK

   1261					.SBTTL		ROUTINE TO CHANGE THE CURRENT AC BLOCK
   1262
   1263					.REM	%
   1264						SUBROUTINE ACBLK SETS THE CURRENT AC BLOCK NUMBER ACCORDING TO THE VALUE
   1265					IN R0 WITHOUT USING AN AC OR MEMORY.  PREVIOUS AC BLOCK NUMBER IS SET TO ZERO.
   1266						%
   1267
   1268	001136	012500 			ACBLK:	MOV	(R5)+,R0	;GET PARAM WD
   1269	001140	042700 	177770 		ACBLK1:	BIC	#177770,R0	;SHUT OF JUNK BITS
   1270	001144	010037 	001316'			MOV	R0,CACBLK	;SAV CURRENT AC BLOCK NUMBER
   1271	001150	004737 	000110'			JSR	PC,ASL0.3	;POSITION
   1276	001154	110037 	001314'			MOVB	R0,3$+3		;AC BLK # TO WORD
   1280	001160	012700 	001304'			MOV	#2$,R0		;START DATAO PAG
   1281	001164					LODAR
	001164	004737 	000000G			 JSR	PC,$LDAR	; ** LOAD THE KL10 AR REGISTER
   1282	001170					DFXCTT	CONBUT
	001170	012700 	000012 			 MOV	#CONBUT,R0	; ** FUNCTION CODE TO R0
	001174	004737 	000000G			 JSR	PC,$DDFXC	; ** EXECUTE THE FUNCTION EXECUTE
   1284	001200					BRST	18.		;SKIP SOME TICKS TO SAVE TIME
	001200	004537 	001206'			  JSR	R5,64$		;SAV R5, PT TO & SKIP ARG LIST
	001204	000022 				  .WORD	18.		;# OF CLOCKS
	001206	004737 	001734'		64$:	  JSR	PC,BRST		;BURST
	001212	012605 				 MOV	(SP)+,R5
   1285	001214					FIND	<132,23,1>	;TICK UNTIL AR LOADED (WITH GARBAGE)
	001214	004537 	001222'			  JSR	R5,65$		;SAV R5, PT TO & SKIP 132,23,1 LIST
	001220	155160 				  .WORD	$S10.		;PARAM LIST
	001222	004737 	001604'		65$:	  JSR	PC,FIND		;STEP TO EVENT
	001226	012605 				 MOV	(SP)+,R5
   1287	001230	103421 				BCS	1$		;ERR IF NOT FOUND
   1289	001232					DFXCTT	CECLK		;BRING EBOX CLOCK DOWN
	001232	012700 	000004 			 MOV	#CECLK,R0	; ** FUNCTION CODE TO R0
	001236	004737 	000000G			 JSR	PC,$DDFXC	; ** EXECUTE THE FUNCTION EXECUTE
   1290	001242					DFWRTT	3$,LDAR		;PUT THE DATA WE REALLY WANT IN THE AR
	001242	012700 	000077 			 MOV	#LDAR,R0	; ** FUNCTION WRITE CODE TO R0
	001246	010146 				 MOV	R1,-(SP)	; ** SAVE R1
	001250	012701 	001311'			 MOV	#3$,R1	; ** BUFFER POINTER TO R1
	001254	004737 	000000G			 JSR	PC,$DDFWR	; ** EXECUTE THE FUNCTION WRITE
	001260	012601 				 MOV	(SP)+,R1	; ** RESTORE R1
   1291	001262					DFXCTT	STRCLK		;RESTART THE CLOCK TO FINISH UP
	001262	012700 	000001 			 MOV	#STRCLK,R0	; ** FUNCTION CODE TO R0
	001266	004737 	000000G			 JSR	PC,$DDFXC	; ** EXECUTE THE FUNCTION EXECUTE
   1292	001272	000207 				RTS	PC		;DONE...RETURN
   1293	001274				1$:	FATAL	ABS	;AC BLOCK SELECT ERROR
	001274	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "ABS" ERROR
	001300	   101 	   102 	   123 		 .ASCIZ	%ABS%
   1301	001304				2$:	IO10	DATAO,PAG,,0	;INSTR TO SET AC BLOCK NUMBER
	001304	   000 	   000 	   200
	001307	   011 	   016
   1302	001311				3$:	WD36	4000,0040,0000	;WD USED BY THE ABOVE
	001311	   000 	   000 	   002
	001314	   000 	   010
   1303						.EVEN
   1305
   1307	001316	177777 			CACBLK:	.WORD	......		; "CURRENT" AC BLOCK NUMBER
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 118
ROUTINE TO CHANGE THE CURRENT AC BLOCK

   1310					.REM	%
   1311						READAC IS A CONVENIENCE SUBROUTINE TO GET ANY AC AND DUMP IT INTO A
   1312					TEMPORARY BUFFER SOMEWHERE.  R0 HAS WD ADR UPON RETURN.
   1313						%
   1314	001320	112500 			READAC:	MOVB	(R5)+,R0	;GET AC BLK #
   1315	001322	002402 				BLT	1$		;SKIP AC BLK SEL IF NOT SPECIFIED
   1316	001324					ACBLK			;ELSE SELECT AC BLK
	001324	004737 	001140'			  JSR	PC,ACBLK1	;SWITCH TO AC BLOCK (R0)
   1318	001330	112500 			1$:	MOVB	(R5)+,R0	;AC # TO PARAM REG
   1319	001332					EXAMT	,RDACWD		;GET THE AC CONTENTS
	001332	010146 				 MOV	R1,-(SP)	; ** SAVE R1
	001334	012701 	001356'			 MOV	#RDACWD,R1	; ** RDACWD BUFFER POINTER TO R1
	001340	004737 	000000G			 JSR	PC,$EXAMT	; ** EXECUTE THE KL10 EXAMINE
	001344	012601 				 MOV	(SP)+,R1	; ** RESTORE R1
   1325	001346	103002 				BCC	3$		;BR IF OK
   1331	001350	000137 	003322'			JMP	CHKED+4		;ERROR
   1332	001354	000207 			3$:	RTS	PC
   1334
   1335	001356	000000 	000000 	000000 	RDACWD:	0,0,0			;THE WORD GOES HERE
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 119
PROGRAM RUN CONTROL ROUTINES

   1351					.SBTTL		PROGRAM RUN CONTROL ROUTINES
   1373
   1374					.REM	%
   1375						PROGRAM RUN ROUTINES.  AUTORP AND AUTORB RUN THE PROGRAM USING THE
   1376					STARTING AC & AC BLOCK SET BY MABL (MULTIPLE AC BLOCK LOAD).  RUNPRG AND RUNBIG
   1377					USE THE T.P.  AS THE START ADR IN THE CURRENT BLOCK.  AUTORB AND RUNBIG USE THE
   1378					T.P.  AS A TIME LIMIT OF N 60 CYC CLK TICKS, WHEREAS AUTORP AND RUNPRG DEFAULT
   1379					TO 1 TICK.  AUTORP & AUTORB ARE DEFINED ONLY IF $JAB IS DEFINED AS THEY EXPECT
   1380					TO BE ABLE TO USE THE JAB INSTRUCTION.
   1381						%
   1382
   1395	001364	012546 			RUNBIG:	MOV	(R5)+,-(SP)	;TIMINT = T.P. + 1
   1396	001366	000401 				BR	GETRPC
   1397	001370	005046 			RUNPRG:	CLR	-(SP)		;TIMINT = 1
   1398	001372	012537 	001416'		GETRPC:	MOV	(R5)+,RUNJRS	;MOVE START PC TO JRST INSTR
   1399	001376				SETRPC:	EXECUTE	RUNJRS		;SET HDWR PC
	001376	012700 	001416'			  MOV	#RUNJRS,R0		;PT TO INSTR TO BE EXECUTED
	001402	004737 	003300'			  JSR	PC,QXCT1	;EXECUTE THE INSTR PTD TO BY R0
   1400	001406	000407 				BR	CON2		;LET PRGM RUN
   1401
   1402	001410	177777 			SJDATA:	......			;WHERE THE RH 16 BITS OF A JAB IS PUT BY MABL
   1403	001412	000000 			LOOPK:	0			;# OF TIMEOUT LOOPS
   1404	001414	000000 			TIMINT:	0			;# OF TIMEOUT INTERVALS
   1405
   1406	001416				RUNJRS:	I10	JRST,,,0
	001416	   000 	   000 	   000
	001421	   140 	   005
   1407						.EVEN
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 120
PROGRAM RUN CONTROL ROUTINES

   1409					.REM	%
   1410						CONTIN - STARTS THE KL RUNNING.  SETS THE C-BIT IF NO HALT WITHIN THE
   1411					TIMING INTERVAL SPECIFIED.
   1412						%
   1413	001424	005046 			CONTIN:	CLR	-(SP)		;TIMINT = 1
   1414	001426				CON2:	DFXCTT	SETRUN		;SET RUN AND CONTINUE
	001426	012700 	000011 			 MOV	#SETRUN,R0	; ** FUNCTION CODE TO R0
	001432	004737 	000000G			 JSR	PC,$DDFXC	; ** EXECUTE THE FUNCTION EXECUTE
   1416	001436					DFXCTT	CONBUT
	001436	012700 	000012 			 MOV	#CONBUT,R0	; ** FUNCTION CODE TO R0
	001442	004737 	000000G			 JSR	PC,$DDFXC	; ** EXECUTE THE FUNCTION EXECUTE
   1418	001446	012737 	177777 	001316'	CON3:	MOV	#-1,CACBLK	;INDICATE LOST TRACK OF ACBLK #
   1419
   1423	001454	005216 				INC	(SP)		;BUMP TIMINT BY 1
   1425	001456	012700 	000002 			MOV	#2,R0		;ASSUME CLK RATE 2.. LET PRGM RUN A LONG TIME
   1431	001462	006316 			1$:	ASL	(SP)
   1432	001464	005300 				DEC	R0		;MULTIPLY INTERVAL BY RATE
   1433	001466	003375 				BGT	1$
   1434	001470	005216 				INC	(SP)		;ADD ONE
   1435	001472					POP	TIMINT
	001472	012637 	001414'			 MOV	(SP)+,TIMINT
   1437	001476	013737 	000000G	001602'	2$:	MOV	.TICKS,CURKW	;SAVE CURRENT VAL OF CLK
   1438	001504	004737 	000000G		3$:	JSR	PC,$DTRW1	;READ DTE20 DIAG 1 WORD
   1439	001510	032700 	001000 			BIT	#HALTLP,R0	;IS CPU HALTED?
   1444	001514	001023 				BNE	5$		;YES, RETURN
   1445	001516	023737 	000000G	001602'		CMP	.TICKS,CURKW	;CLOCK TICKED?
   1447	001524	001767 				BEQ	3$		;NO TEST KL AGAIN
   1448	001526	005337 	001414'			DEC	TIMINT		;TIMEOUT COMPLETE?
   1449	001532	003361 				BGT	2$		;NO WAIT ANOTHER 16MS (MIN)
   1450	001534	005737 	003270'			TST	CLKFLG		;CLK STOP ENABLED?
   1451	001540	001407 				BEQ	4$		;NO, JUST ERROR RETURN
   1453	001542	004737 	000000G			JSR	PC,$DTRW1	;READ DTE20 DIAG 1 WORD
   1454	001546	032700 	004000 			BIT	#ERRSTP,R0	;CLK ERR STOP?
   1458	001552	001402 				BEQ	4$		;NO, RUN TIMEOUT
   1459	001554	000137 	001750'			JMP	CLKERR		;GO TO CLK ERROR POINT
   1460	001560				4$:
   1466	001560	000137 	003352'			JMP	CHKP+4		;FORCE A "PRGM DIDNT HLT" ERR
   1467	001564				5$:	DFPC	REAPWD		;GET HALTED PC & PLACE IN REAPWD
	001564	012700 	006364'			 MOV	#REAPWD,R0	; ** BUFFER POINTER TO R0
	001570	004737 	000000G			 JSR	PC,$DFPC	; ** READ THE KL10 PC
   1469	001574	011000 				MOV	(R0),R0		;PC 20-35 TO R0
   1479	001576	000241 				CLC			;KL HALTED (NORMAL)
   1480	001600	000207 				RTS	PC		;RETURN
   1484
   1485	001602	177777 			CURKW:	.WORD	......		;CURRENT VALUE OF WORD ".TICKS"
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 121
MBOX CLOCK CONTROL ROUTINES

   1489					.SBTTL		MBOX CLOCK CONTROL ROUTINES
   1490					.REM	%
   1491						FIND - STEPS THE CLOCK UNTIL AN EVENT LEADING EDGE IS FOUND OR 4092
   1492					CLOCKS HAVE BEEN ISSUED.  RETURNS THE CLOCK COUNT IN R0, & SETS THE C-BIT IF
   1493					TIMEOUT.
   1494						%
   1495	001604				FIND:
   1496	001604	012500 			FIND1:	MOV	(R5)+,R0	;PARAMETERS TO R0
   1497	001606				FIND2:	SAV.4			;SAVE R4-R1
	001606	004737 	003362'			  JSR	PC,SAV.5	;SAVE R1-R5
   1498	001612					PUSH	R5		;R5 ALSO
	001612	010546 				 MOV	R5,-(SP)
   1499	001614	012737 	000001 	001666'		MOV	#1,STEPK	;SET CLOCK COUNT = 1
   1500	001622	004737 	002002'			JSR	PC,EVENT2	;TEST FOR EVENT
   1501	001626	103012 				BCC	2$		;FOUND ON FIRST TICK
   1502	001630	004737 	002072'		1$:	JSR	PC,EVENT3	;TEST SAME EVENT AGAIN
   1503	001634	005237 	001666'			INC	STEPK		;INCREMENT CLOCK COUNT
   1504	001640	103005 				BCC	2$		;EVENT FOUND
   1505	001642	023727 	001666'	007774 		CMP	STEPK,#4092.	;TIMEOUT?
   1506	001650	002767 				BLT	1$		;NO, TRY AGAIN
   1507	001652	000261 				SEC			;YES, SET ERROR FLAG
   1508	001654	013700 	001666'		2$:	MOV	STEPK,R0	;CLOCK COUNT TO R0
   1509	001660					POP	R5		;RESTORE REGS & RETURN
	001660	012605 				 MOV	(SP)+,R5
   1510	001662					R4.R5
	001662	000137 	003420'			  JMP	R5.PC		;RESTORE R1-R5 & DO AN RTS PC
   1511
   1512	001666	000000 			STEPK:	.WORD	0		;STEP COUNT
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 122
MBOX CLOCK CONTROL ROUTINES

   1516					.REM	%
   1517						GENERATES AN MBOX CLOCK.  TESTS FOR THE OCCURENCE OF AN EVENT IF A
   1518					FUNCTION BREAKPOINT IS SET.  CALL IS VIA JSR,R5.
   1519						%
   1520	001670				STEP:
   1521	001670				STEP1:	DFSCLK			;STEP MBOX CLOCK
	001670	012700 	000002 			 MOV	#SSCLK,R0	; ** FUNCTION CODE TO R0
	001674	004737 	000000G			 JSR	PC,$DDFXC	; ** EXECUTE THE FUNCTION EXECUTE
   1522	001700	000402 				BR	CLKERC		;CHECK CLK ERROR STOP
   1523
   1524	001702				XSTEP:	DFXCT			;NO, JUST STEP IT
	001702	004737 	000000G			 JSR	PC,$DDFXC	; ** EXECUTE THE FUNCTION EXECUTE
   1526	001706	004737 	000000G		CLKERC:	JSR	PC,$DTRW1	;READ DTE20 DIAG 1 WORD
   1527	001712	032700 	004000 			BIT	#ERRSTP,R0	;CLK ERR STOP?
   1531	001716	001404 				BEQ	1$		;NO, RETURN
   1532	001720	005737 	003270'			TST	CLKFLG		;CLOCK ERR STOP ENABLED?
   1533	001724	001011 				BNE	CLKERR		;YES, GO TO ERROR POINT
   1534	001726	000261 				SEC			;NO, SET ERROR FLAG
   1535	001730	000207 			1$:	RTS	PC		;RETURN
   1537
   1538	001732	000002 			CLKTYP:	.WORD	SSCLK		;CLOCK TYPE
   1541
   1542					.REM	%
   1543						GENERATES A BURST OF CLOCK PULSES.
   1544						%
   1545	001734	012500 			BRST:	MOV	(R5)+,R0	;GET THE BURST COUNT
   1546	001736				BRST1:	BURST
	001736	004737 	000000G			 JSR	PC,$BURST	; ** BURST THE MBOX CLOCK
   1547	001742	004737 	001706'			JSR	PC,CLKERC	;TEST FOR CLK ERR STOP
   1548	001746	000207 				RTS	PC		;RETURN
   1553
   1554	001750				CLKERR:	FATAL	CES	;CLK ERROR STOP
	001750	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "CES" ERROR
	001754	   103 	   105 	   123 		 .ASCIZ	%CES%
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 124
MBOX CLOCK CONTROL ROUTINES

   1599					.REM	%
   1600						TESTS FOR THE FIRST OCCURENCE OF AN EVENT.  STEPS THE PROPER CLOCK ONCE
   1601					& SETS THE C-BIT IF THE EVENT DOES NOT OCCUR.  CALL IS JSR,R5.  PARAMETER TRAILS
   1602					FOR EVENT & IS IN R0 FOR EVENT1.  EVENT1 DOES NOT SAVE THE FUNCTION BREAK PC.
   1603						%
   1604	001760				EVENT:
   1605	001760	012500 			EVENTA:	MOV	(R5)+,R0	;PARAMETERS TO R0
   1606	001762				EVENT1:	SAV.4			;SAV REGS
	001762	004737 	003362'			  JSR	PC,SAV.5	;SAVE R1-R5
   1607	001766					PUSH	R5		;R5 ALSO
	001766	010546 				 MOV	R5,-(SP)
   1608	001770	004737 	002002'			JSR	PC,EVENT2	;CHECK FOR EVENT
   1609	001774					POP	R5		;RESTORE REGS & RETURN
	001774	012605 				 MOV	(SP)+,R5
   1610	001776					R4.R5
	001776	000137 	003420'			  JMP	R5.PC		;RESTORE R1-R5 & DO AN RTS PC
   1611
   1612						;SUBROUTINE TO TEST FOR EVENT WITHOUT SAVING & RESTORING
   1613						;REGISTERS.  LEAVES R1-R5 EQUAL TO THE FOLLOWING:
   1614						;R1 = THE POLARITY OF THE DIAGNOSTIC FN READ
   1615						;R2 = THE POLARITY FOR THE EVENT TO BE DETECTED
   1616						;R3 = THE DIAGNOSTIC FUNCTION READ
   1617						;R4 = THE BIT MASK TO APPLY TO THE APPRORIATE DEXWD
   1618						;R5 = THE ADDRESS OF THE PROPER DEXWD TO TEST
   1619
   1620	002002	110002 			EVENT2:	MOVB	R0,R2		;PARAMETER LOWER TO R2
   1621	002004	000300 				SWAB	R0
   1622	002006	042700 	177600 			BIC	#177600,R0
   1623	002012	010003 				MOV	R0,R3		;DIAGNOSTIC FUNCTION
   1624	002014	010205 				MOV	R2,R5
   1625	002016	042705 	177774 			BIC	#177774,R5	;DEXWD #
   1626	002022	006305 				ASL	R5		;MULTIPLY BY 2
   1627	002024	063705 	002156'			ADD	.DAT3,R5	;WORD TO TEST
   1628	002030	010204 				MOV	R2,R4
   1629	002032	042704 	177703 			BIC	#177703,R4
   1630	002036	006204 				ASR	R4		;2 * BIT #
   1631	002040	016404 	000120'			MOV	BMTAB(R4),R4	;BIT MASK
   1632	002044	042702 	177677 			BIC	#177677,R2	;POLARITY FLAG
   1633	002050					DFRD
	002050	010146 				 MOV	R1,-(SP)	; ** SAVE R1
	002052	005001 				 CLR	R1		; ** NO DATA BUFFER
	002054	004737 	000000G			 JSR	PC,$DDFRD	; ** EXECUTE THE FUNCTION READ
	002060	012601 				 MOV	(SP)+,R1	; ** RESTORE R1
   1634	002062	005001 				CLR	R1		;CLEAR EVENT FLAG
   1635	002064	030415 				BIT	R4,(R5)		;TEST EVENT
   1636	002066	001401 				BEQ	EVENT3		;ZERO?
   1637	002070	005201 				INC	R1		;NO, SET EVENT FLAG
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 125
MBOX CLOCK CONTROL ROUTINES

   1639						;SUBROUTINE TO TEST FOR AN EVENT AFTER HAVING PREVIOUSLY
   1640						;TESTED FOR THE SAME EVENT USING ENTRY POINT EVENT2.
   1641						;CALL IS JSR PC,EVENT3.  SETS THE C-BIT IF EVENT IS NOT
   1642						;DETECTED.  ASSUMES THAT REGISTERS R1-R5 ARE NOT DEST-
   1643						;ROYED FROM ONE ENTRY TO ANOTHER.
   1644
   1645	002072	013700 	001732'		EVENT3:	MOV	CLKTYP,R0	;GET EBOX OR MBOX CLK FN
   1646	002076	004737 	001702'			JSR	PC,XSTEP	;STEP CLOCK ONCE
   1648	002102	010300 				MOV	R3,R0		;READ SAME DIAG FN
   1649	002104					DFRD
	002104	010146 				 MOV	R1,-(SP)	; ** SAVE R1
	002106	005001 				 CLR	R1		; ** NO DATA BUFFER
	002110	004737 	000000G			 JSR	PC,$DDFRD	; ** EXECUTE THE FUNCTION READ
	002114	012601 				 MOV	(SP)+,R1	; ** RESTORE R1
   1650	002116	005000 				CLR	R0		;CLEAR NEXT EVENT FLAG
   1651	002120	030415 				BIT	R4,(R5)		;TEST EVENT
   1652	002122	001406 				BEQ	1$		;ZERO?
   1653	002124	005200 				INC	R0		;SET NEXT EVENT FLAG
   1654	002126	005701 				TST	R1		;NO, CHECK CHANGE
   1655	002130	001007 				BNE	2$		;NO CHANGE
   1656	002132	005702 				TST	R2		;MATCH?
   1657	002134	001405 				BEQ	2$		;NO
   1658	002136	000406 				BR	3$		;YES, EVENT EDGE DETECTED
   1659	002140	005701 			1$:	TST	R1		;CHECK CHANGE
   1660	002142	001402 				BEQ	2$		;NO CHANGE
   1661	002144	005702 				TST	R2		;MATCH?
   1662	002146	001402 				BEQ	3$		;YES, EVENT EDGE DETECTED
   1663	002150	000261 			2$:	SEC			;NO EVENT, SET C-BIT
   1664	002152	010001 				MOV	R0,R1		;SET CURRENT EVENT FLAG
   1665	002154	000207 			3$:	RTS	PC		;RETURN
   1667
   1668
   1669	002156	000000G			.DAT3:	.WORD	.DFRBK		;SIMULATED ADR OF DTE20 DIAGNOSTIC FUNCTION WORD
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 126
NEW AC LOAD ROUTINES

   1673					.SBTTL		NEW AC LOAD ROUTINES
   1675
   1676					.REM	%
   1677						MABL IS A SUBROUTINE DESIGNED TO LOAD A MULTIPLE AC BLOCK PROGRAM.  ITS
   1678					PARAMS INCLUDE STARTING AC & BLOCK NUMBERS (OR -1), AN AC BLOCK MASK BYTE
   1679					(BIT0=1 ==> LD BLK 0, ETC), AN INITIAL PDP11 ADDRESS OF CONTIGUOUS 10 WORDS TO
   1680					LOAD, AND A VARIABLE LENGTH LIST OF AC LOAD MASKS (1 FOR EACH BLOCK LOADED).
   1681					MABL USES ACBLK AND LOADAC.
   1682						%
   1683
   1685	002160				MABL:	PUSH	<R3,R4>		;SAV REGS
	002160	010346 				 MOV	R3,-(SP)
	002162	010446 				 MOV	R4,-(SP)
   1686	002164	012503 				MOV	(R5)+,R3	;GET AC BLOCK MASK BITS
   1693	002166	005004 				CLR	R4		;SET AC BLOCK # TO 0
   1694	002170	012537 	002456'			MOV	(R5)+,CACEA	;GET INITIAL 10 DATA 11 ADR
   1695	002174	032703 	000001 		2$:	BIT	#1,R3		;LOADING THIS BLOCK?
   1696	002200	001415 				BEQ	5$		;NO...TRY NEXT
   1697	002202	010400 				MOV	R4,R0		;ELSE AC BLK # TO PARAM REG
   1698	002204					ACBLK			; & SET THE AC BLK #
	002204	004737 	001140'			  JSR	PC,ACBLK1	;SWITCH TO AC BLOCK (R0)
   1700	002210					PUSH	R5		;SAV R5
	002210	010546 				 MOV	R5,-(SP)
   1701	002212					PUSH	CACEA		;10 DATA ADR IN 11 MEM TO STK
	002212	013746 	002456'			 MOV	CACEA,-(SP)
   1702	002216					PUSH	(R5)		;AC LD MSK TO STK
	002216	011546 				 MOV	(R5),-(SP)
   1703	002220	010605 				MOV	SP,R5		;PT TO ARGS WITH R5
   1704	002222	004737 	002272'			JSR	PC,ACLOAD	;LD THE SELD AC BLK
   1705	002226	032626 				BIT	(SP)+,(SP)+	;DEL ARG WDS FROM STK -- C BIT NOT AFFECTED
   1706	002230					POP	R5		;RESTORE R5
	002230	012605 				 MOV	(SP)+,R5
   1707	002232	005725 				TST	(R5)+		;SKIP OUR CALLERS PARAM THAT WE JUST USED
   1715	002234	005204 			5$:	INC	R4		;BUMP AC BLK #
   1716	002236	006203 				ASR	R3		;ANY BLKS LEFT TO LD?
   1717	002240	001355 				BNE	2$		;YES...GO DO IT
   1718	002242					POP	<R4,R3>		;RSTR REGS
	002242	012604 				 MOV	(SP)+,R4
	002244	012603 				 MOV	(SP)+,R3
   1719	002246	000207 				RTS	PC		;DONE
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 127
NEW AC LOAD ROUTINES

   1723					.REM	%
   1724						ACLOAD IS A SUBROUTINE WHICH PERFORMS A "RANDOM" LOAD OF THE ACS IN THE
   1725					CURRENT BLOCK.  WHICH ACS ARE LOADED DEPENDS ON THE MASK: BIT0=1 SAYS TO LOAD
   1726					AC0, ETC.  ACS ARE LOADED FROM 0 TO 17 FROM CONTIGUOS WORDS IN 11 MEMORY.  ENTRY
   1727					AT ACSCAT ALLOWS A LIST OF ADDRESSES IN CASE THE WORDS ARE SCATTERED IN 11 MEM.
   1728						IF ANY OF THE 4 "UNUSED" BITS OF A 10 WORD ARE NOT ZERO, THE DEPOSIT IS
   1729					DEFERED UNTIL LATER.  A LIST OF DEFERED DEPOSITS IS CONSTRUCTED.  NOTE THAT IF
   1730					ANY WORDS ARE PROCESSED IN THIS MANNER THEN YOU MUST INIT "DLNXT" TO POINT TO
   1731					"DFRLST" PRIOR TO LOADING ANY AC BLOCKS.
   1732						%
   1733
   1734	002250	012737 	177777 	002452'	LDANOW:	MOV	#-1,NODFRL	;SET NO-DEFER-LOAD FLAG
   1735	002256	000413 				BR	ACLDC2		;GO DO IT (WATCH OUT FOR LINKAGE)
   1736	002260				ACSCAT:	PUSH	<R1,R2>		;SAV REGS
	002260	010146 				 MOV	R1,-(SP)
	002262	010246 				 MOV	R2,-(SP)
   1737	002264	012501 				MOV	(R5)+,R1	;GET MASK
   1738	002266	005002 				CLR	R2		;INDICATE SCATTERED LOAD WORDS
   1739	002270	000404 				BR	ACLDCM		;GO TO COMMON ROUTINE
   1740	002272				ACLOAD:	PUSH	<R1,R2>		;SAVE REGS
	002272	010146 				 MOV	R1,-(SP)
	002274	010246 				 MOV	R2,-(SP)
   1741	002276	012501 				MOV	(R5)+,R1	;GET MASK
   1742	002300	012502 				MOV	(R5)+,R2	;ADR OF LOAD STRING TO R2
   1743	002302	005037 	002452'		ACLDCM:	CLR	NODFRL		;SET DEFER LOAD MODE
   1744	002306	005037 	002454'		ACLDC2:	CLR	CACN		;SET KL10 ADR=AC0, CLR C-BIT
   1745	002312					DFXCTT	STRCLK		;MAKE SURE CLOCK IS RUNNING
	002312	012700 	000001 			 MOV	#STRCLK,R0	; ** FUNCTION CODE TO R0
	002316	004737 	000000G			 JSR	PC,$DDFXC	; ** EXECUTE THE FUNCTION EXECUTE
   1747	002322	000241 				CLC
   1748	002324	006001 			1$:	ROR	R1		;MOV MASK BIT TO C-BIT
   1749	002326	103040 				BCC	6$		;BR IF THIS AC IS NOT TO BE LOADED
   1750	002330	005702 				TST	R2		;CONTIG OR SCAT WDS?
   1751	002332	001002 				BNE	2$		;BR IF CONTIG
   1752	002334	012500 				MOV	(R5)+,R0	;GET NXT 11 ADR OF 10 WD
   1753	002336	000403 				BR	3$
   1754	002340	010200 			2$:	MOV	R2,R0		;GET NXT ADR
   1755	002342	062702 	000005 			ADD	#5,R2		;FOR NEXT TIME
   1756	002346	005737 	002452'		3$:	TST	NODFRL		;IN NO-DEFER MODE
   1757	002352	001007 				BNE	4$		;YES...GO LD RIGHT NOW
   1758	002354	132760 	000360 	000004 		BITB	#360,4(R0)	;ANY "UNUSED" BIT SET?
   1759	002362	001403 				BEQ	4$		;NO...LD RIGHT NOW
   1760	002364	004737 	002460'			JSR	PC,DEFERL	;ELSE DEFER DEPOSIT UNTIL LATER
   1762	002370	000417 				BR	6$		;DO NXT
   1763	002372	010037 	002456'		4$:	MOV	R0,CACEA	;SAV 11 ADR OF CURRENT AC CONTENTS
   1775	002376	013700 	002454'		5$:	MOV	CACN,R0		;AC # TO PARAM REG
   1776	002402					PUSH	R1
	002402	010146 				 MOV	R1,-(SP)
   1777	002404	013701 	002456'			MOV	CACEA,R1	;11 ADR TO PARAM REG
   1778	002410					DPOST
	002410	004737 	000000G			 JSR	PC,$DPOST	; ** EXECUTE THE DEPOSIT
   1779	002414					POP	R1
	002414	012601 				 MOV	(SP)+,R1
   1787	002416	103004 				BCC	6$		;BR IF NO ERROR ON DEPOSIT
   1788	002420					FATAL	APL	;AC PROGRAM LOAD ERROR
	002420	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "APL" ERROR
	002424	   101 	   120 	   114 		 .ASCIZ	%APL%
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 127-1
NEW AC LOAD ROUTINES

   1790	002430	005237 	002454'		6$:	INC	CACN		;NXT KL ADR
   1791	002434	005701 				TST	R1		;ANY MORE AC'S TO BE LOADED?
   1792	002436	003332 				BGT	1$		;BR IF YES
   1793	002440	010237 	002456'			MOV	R2,CACEA	;MOV UPDATED ADR TO CACEA FOR MABL
   1794	002444					POP	<R2,R1>		;RESTORE REGS
	002444	012602 				 MOV	(SP)+,R2
	002446	012601 				 MOV	(SP)+,R1
   1795	002450	000207 				RTS	PC
   1797
   1798	002452	000000 			NODFRL:	0			;DON'T DEFER LOADS IF NOT 0
   1800	002454	177777 			CACN:	......			;CURRENT AC NUMBER
   1801	002456	177777 			CACEA:	......			;11 ADR OF 10 WD TO LOAD
   1803
   1804
   1805					;-----DEFERL IS A QUICK & DIRTY SUBROUTINE TO QUEUE A DEFERED LOAD REQUEST.
   1806					; IT PLACES THE REQUEST IN DFRLST.  LOADING IS DEFERED IN THIS MANNER TO CUT
   1807					; DOWN ON THE OVERHEAD OF RELOADING ENTIRE AC PROGRAMS JUST TO FIX A FEW WORDS.
   1808
   1809		000025 			NDEFER=21.	;MAX # OF DEFERED LOADS ALLOWED
   1810
   1811	002460				DEFERL:	PUSH	R1
	002460	010146 				 MOV	R1,-(SP)
   1825	002462	013701 	002510'			MOV	DLNXT,R1	;GET NXT AVAIL ELEMENT ADR
   1832	002466	113721 	001316'			MOVB	CACBLK,(R1)+	;AC BLK # TO LIST
   1833	002472	113721 	002454'			MOVB	CACN,(R1)+	;AC NUMBER TO LIST
   1834	002476	010021 				MOV	R0,(R1)+	;11 ADR OF 10 WD TO LIST
   1835	002500	010137 	002510'			MOV	R1,DLNXT	;UPDATE NXT AVAIL ADR
   1836	002504					POP	R1
	002504	012601 				 MOV	(SP)+,R1
   1837	002506	000207 				RTS	PC
   1839
   1840	002510	177777 			DLNXT:	......			;ADR OF NXT AVAILABLE LST ELEMENT
   1841	002512				DFRLST:	.BLKW	2*NDEFER	;DEFERED LOAD LIST
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 128
NEW AC LOAD ROUTINES

   1844					.REM	%
   1845						LDEFER IS THE SUBROUTINE WHICH ACTUALLY DOES THE DEFERRED AC LOADING.
   1846					IT HAS NO PARAMS AS IT ASSUMES THAT THE DEFERRED LOAD LIST IS ALREADY SET UP.
   1847					NOTE THAT R0 MUST HAVE THE CORRECT ADDRESS IN IT IF IT IS TO BE USED FOR
   1848					RELATIVE INDIRECT LOADING.
   1849						%
   1850
   1851	002636				LDEFER:	SAV.5
	002636	004737 	003362'			  JSR	PC,SAV.5	;SAVE R5-R1 ON STACK
   1852	002642	010004 				MOV	R0,R4		;SAV R0 IN CASE OF INDIRECT REL TO R0
   1853	002644	012701 	000006 			MOV	#6,R1		;START W/ AC BLK 6
   1854	002650	012737 	177777 	001316'		MOV	#-1,CACBLK	;SAY THAT NO BLK IS SELECTED
   1855	002656	012702 	002512'		1$:	MOV	#DFRLST,R2	;INI DEFER LIST PTR
   1856	002662	020237 	002510'		2$:	CMP	R2,DLNXT	;DONE WITH SCAN THRU LST YET?
   1857	002666	001455 				BEQ	14$		;YES...GO TRY NXT BLK
   1862	002670	122201 			3$:	CMPB	(R2)+,R1	;ARE WE IN THE RIGHT BLK?
   1863	002672	001403 				BEQ	4$		;YES...GO LD WD
   1864	002674	062702 	000003 			ADD	#3,R2		;ELSE GO TO NXT LST ELEMENT
   1865	002700	000770 				BR	2$
   1866	002702	020137 	001316'		4$:	CMP	R1,CACBLK	;IS THIS BLK SELD?
   1867	002706	001403 				BEQ	5$		;YES
   1868	002710	010100 				MOV	R1,R0		;ELSE SELECT IT
   1869	002712					ACBLK
	002712	004737 	001140'			  JSR	PC,ACBLK1	;SWITCH TO AC BLOCK (R0)
   1870	002716	112205 			5$:	MOVB	(R2)+,R5	;AC BLK # TO R5 FOR LATER
   1871	002720	012203 				MOV	(R2)+,R3	;WD ADR TO R3
   1872	002722	116300 	000004 			MOVB	4(R3),R0	;GET DEFERRING CODE
   1873	002726	004737 	000072'			JSR	PC,ASR0.3	;MAK IT INTO WD NDX
   1874	002732	042700 	177741 			BIC	#177741,R0
   1881	002736	000170 	002740'		7$:	JMP	@8$-2(R0)	;GO TO THE RIGHT PLACE
   1882	002742	003000'	002772'	002750'	8$:	.WORD	11$,10$,9$	;RELOAD, SBDIAG WD, INDIRECT
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 129
NEW AC LOAD ROUTINES

   1884
   1885					;-----HERE FOR INDIRECT LOAD
   1886	002750	005203 			9$:	INC	R3		;R3 PTS TO PSEUDO-WD..GET ADR OF REAL WD
   1887	002752	042703 	000001 			BIC	#1,R3		; (EVEN ADR OF ADR)
   1888	002756	011303 				MOV	(R3),R3		;REAL ADR TO R3
   1889	002760	020327 	003000 			CMP	R3,#3000	;IN DIAG CODE?
   1890	002764	103005 				BHIS	11$		;YES...GO LOAD IT
   1891	002766	060403 				ADD	R4,R3		;ELSE ASSUME IS RELATIVE TO CALLER'S R0
   1892	002770	000403 				BR	11$
   1893					;-----HERE TO TAKE CARE OF CONTR # IN SBDIAG WORD.
   1894	002772	010300 			10$:	MOV	R3,R0		;WD ADR TO PARAM REG
   1895	002774					CNTSD			;CONTR # TO SBDIAG WD
	002774	004737 	000734'			  JSR	PC,CNTSD1	;CONTR # TO SBDIAG WD,  IN R0
   1896					;;	BR	11$		;GO LOAD WD
   1897					;-----HERE FINALLY TO LOAD THE WORD
   1899	003000				11$:	PUSH	R1
	003000	010146 				 MOV	R1,-(SP)
   1900	003002	010301 				MOV	R3,R1		;11 ADR TO PARAM REG
   1901	003004	010500 				MOV	R5,R0		;AC # TO PARAM REG
   1902	003006					DPOST			;LOAD THE AC
	003006	004737 	000000G			 JSR	PC,$DPOST	; ** EXECUTE THE DEPOSIT
   1903	003012					POP	R1
	003012	012601 				 MOV	(SP)+,R1
   1911	003014	004737 	003316'			JSR	PC,CHKED
   1912	003020	000720 				BR	2$		;GO TRY NXT DEFER LST ELEMENT
   1913					;-----LIST SCANNED.  GO TRY NEXT AC BLOCK.
   1914	003022	005301 			14$:	DEC	R1
   1915	003024	002314 				BGE	1$		;BR IF MORE TO DO
   1916	003026					R5.PC			;RESTORE REGS & RETURN
	003026	000137 	003420'			  JMP	R5.PC		;RESTORE R1-R5 FROM STACK & DO RTS PC
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 132
RESET SUBROUTINES

   1964					.SBTTL		RESET SUBROUTINES
   1965
   1966					.REM	%
   1967						RESET IS A SUBROUTINE TO DO MINIMAL RESETS IN AS LITTLE TIME AS
   1968					POSSIBLE.  IT CAN DO A BASIC MASTER RESET AND AN SBUS RESET.  DONT USE IT FOR
   1969					CHANNELS, ETC.  NOTE THAT IT IS NOT SUFFICIENT FOR A MACHINE JUST POWERED ON.
   1970					BIT15 OF THE PARAMETER WORD SAYS TO DO AN SBUS RESET.  BIT7 SAYS TO RESET THE
   1971					CPU.  IF NEITHER IS GIVEN A CPU RESET IS DONE.
   1972						%
   1973
   1974	003032				.RESET:	SAV.4
	003032	004737 	003362'			  JSR	PC,SAV.5	;SAVE R1-R5
   1975	003036	012501 				MOV	(R5)+,R1	;GET RESET PARAM
   1980	003040					DFXCTT	STPCLK		;STOP CLK & CLR RUNNING FLAG
	003040	012700 	000000 			 MOV	#STPCLK,R0	; ** FUNCTION CODE TO R0
	003044	004737 	000000G			 JSR	PC,$DDFXC	; ** EXECUTE THE FUNCTION EXECUTE
   1982	003050	005701 				TST	R1		;DO WE DO SBUS RESET?
   1983	003052	002023 				BGE	1$		;NO...ASSUME CPU RESET BY DEFAULT
   1984	003054					DFWRTT	KLB24,76	;ELSE SET SBUS RESET BIT
	003054	012700 	000076 			 MOV	#76,R0	; ** FUNCTION WRITE CODE TO R0
	003060	010146 				 MOV	R1,-(SP)	; ** SAVE R1
	003062	012701 	003254'			 MOV	#KLB24,R1	; ** BUFFER POINTER TO R1
	003066	004737 	000000G			 JSR	PC,$DDFWR	; ** EXECUTE THE FUNCTION WRITE
	003072	012601 				 MOV	(SP)+,R1	; ** RESTORE R1
   1986	003074	105701 				TSTB	R1		;CPU?
   1987	003076	100411 				BMI	1$		;YES...GO DO IT
   1989	003100					DFXCTT	STRCLK		;START THE CLK
	003100	012700 	000001 			 MOV	#STRCLK,R0	; ** FUNCTION CODE TO R0
	003104	004737 	000000G			 JSR	PC,$DDFXC	; ** EXECUTE THE FUNCTION EXECUTE
   1990	003110					DFXCTT	STPCLK		;STOP THE CLK
	003110	012700 	000000 			 MOV	#STPCLK,R0	; ** FUNCTION CODE TO R0
	003114	004737 	000000G			 JSR	PC,$DDFXC	; ** EXECUTE THE FUNCTION EXECUTE
   1991	003120	000437 				BR	2$		;CLR SBUS RESET & RESTART CLK
   1992	003122	005000 			1$:	CLR	R0		;CRAM ADR = 0
   1993	003124					WWADR			;FULL MRESET & SET CRAM ADR
	003124	010046 				 MOV	R0,-(SP)	; ** SAVE R0
	003126	004737 	000000G			 JSR	PC,$KLMR	; ** RESET THE KL10
	003132	012600 				 MOV	(SP)+,R0	; ** RESTORE R0
	003134	004737 	000000G			 JSR	PC,$ACRAM	; ** LOAD THE CRAM ADDRESS REGISTER
   1994	003140	005037 	001316'			CLR	CACBLK		;CLR SFTWR BLK #
   1995	003144					DFXCTT	SSCLK		;1 TICK TO MAKE THINGS WORK
	003144	012700 	000002 			 MOV	#SSCLK,R0	; ** FUNCTION CODE TO R0
	003150	004737 	000000G			 JSR	PC,$DDFXC	; ** EXECUTE THE FUNCTION EXECUTE
   1996	003154					DFWRTT	CLKFLG,46	;LD CLK STOP ENABLES
	003154	012700 	000046 			 MOV	#46,R0	; ** FUNCTION WRITE CODE TO R0
	003160	010146 				 MOV	R1,-(SP)	; ** SAVE R1
	003162	012701 	003270'			 MOV	#CLKFLG,R1	; ** BUFFER POINTER TO R1
	003166	004737 	000000G			 JSR	PC,$DDFWR	; ** EXECUTE THE FUNCTION WRITE
	003172	012601 				 MOV	(SP)+,R1	; ** RESTORE R1
   1997	003174					DFWRTT	KLB35,47	;LD CLK STOP ENABLE
	003174	012700 	000047 			 MOV	#47,R0	; ** FUNCTION WRITE CODE TO R0
	003200	010146 				 MOV	R1,-(SP)	; ** SAVE R1
	003202	012701 	003262'			 MOV	#KLB35,R1	; ** BUFFER POINTER TO R1
	003206	004737 	000000G			 JSR	PC,$DDFWR	; ** EXECUTE THE FUNCTION WRITE
	003212	012601 				 MOV	(SP)+,R1	; ** RESTORE R1
   2015	003214	005701 				TST	R1		;SBUS RESET?
   2016	003216	002010 				BGE	3$		;NO
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 132-1
RESET SUBROUTINES

   2017	003220				2$:	DFWRTT	ZERO..,76	;OFF THE SBUS RESET BIT
	003220	012700 	000076 			 MOV	#76,R0	; ** FUNCTION WRITE CODE TO R0
	003224	010146 				 MOV	R1,-(SP)	; ** SAVE R1
	003226	012701 	001120'			 MOV	#ZERO..,R1	; ** BUFFER POINTER TO R1
	003232	004737 	000000G			 JSR	PC,$DDFWR	; ** EXECUTE THE FUNCTION WRITE
	003236	012601 				 MOV	(SP)+,R1	; ** RESTORE R1
   2019	003240				3$:	DFXCTT	STRCLK		;TURN CLK ON & SET CLK ON FLAG
	003240	012700 	000001 			 MOV	#STRCLK,R0	; ** FUNCTION CODE TO R0
	003244	004737 	000000G			 JSR	PC,$DDFXC	; ** EXECUTE THE FUNCTION EXECUTE
   2021	003250					R4.R5			;RETURN
	003250	000137 	003420'			  JMP	R5.PC		;RESTORE R1-R5 & DO AN RTS PC
   2022
   2023	003254	004000 	000000 	000000 	KLB24:	4000,0,0		;USED TO SET SBUS RESET
   2024	003262	000001 	000000 	000000 	KLB35:	1,0,0			;SETS CLK STOP ENABLE
   2025
   2026					;CLKFLG VALUES: BIT0=FS PROBE, BIT1=DRAM PAR, BIT2=CRAM PAR, BIT3=FM PAR
   2027	003270	000007 	000000 	000000 	CLKFLG:	BIT0+BIT1+BIT2,0,0	;DETERMINES THE VARIOUS ENABLES
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 133
RESET SUBROUTINES

   2031					.REM	%
   2032					;;**********************************************************************
   2033					;;	THIS EXECUTE ROUTINE WILL EVENTUALLY BE REPLACED BY A ROUTINE
   2034					;; WHICH DOES AN EXECUTE WITHOUT ALL THE OVERHEAD OF A KLDCP EXCT.  FOR
   2035					;; THE MOMENT WE ARE USING EXCT.
   2036					;;**********************************************************************
   2037						%
   2038
   2039	003276	012500 			QXCT:	MOV	(R5)+,R0	;GET ADR OF INSTRUCTION
   2040	003300				QXCT1:	EXCT			;DO IT
	003300	004737 	000000G			 JSR	PC,$EXCT	; ** EXECUTE IT
   2041	003304	103003 				BCC	1$		;BR IF OK
   2042	003306					PUSH	R5		;ELSE SET UP TRUE EXECUTE ADR
	003306	010546 				 MOV	R5,-(SP)
   2043	003310	000137 	003336'			JMP	CHKX+4		;AND FORCE ERROR
   2044	003314	000207 			1$:	RTS	PC		;RETURN IF OK
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 134
RESET SUBROUTINES

   2060					.REM	%
   2061						SUBROUTINE TO MAKE SURE THAT EXAM/DEPOSIT, EXECUTE, OR PROGRAM RUN
   2062					FINISHED UP CORRECTLY.  CHECKS C-BIT.  RETURNS IF CLEAR, ELSE DOES ERROR WITH
   2063					MESSAGE DEPENDING ON ENTRY POINT (CHKED, CHKX, OR CHKP).
   2064						%
   2065	003316	103401 			CHKED:	BCS	1$		;BR IF ANY ERROR(S)
   2066	003320	000207 				RTS	PC		;ELSE RETURN TO CALLER
   2068	003322				1$:	FATAL	EDE	;EXAMINE/DEPOSIT ERROR
	003322	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "EDE" ERROR
	003326	   105 	   104 	   105 		 .ASCIZ	%EDE%
   2073	003332	103401 			CHKX:	BCS	1$		;BR IF ERR BIT SET
   2074	003334	000207 				RTS	PC		;ELSE RETURN
   2076	003336				1$:	FATAL	IEE	;INSTRUCTION EXECUTE ERROR
	003336	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "IEE" ERROR
	003342	   111 	   105 	   105 		 .ASCIZ	%IEE%
   2081	003346	103401 			CHKP:	BCS	1$		;BR IF CARRY SET...ERR
   2082	003350	000207 				RTS	PC		;ELSE RET
   2084	003352				1$:	FATAL	PDH	;PROGRAM DIDN'T HALT
	003352	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "PDH" ERROR
	003356	   120 	   104 	   110 		 .ASCIZ	%PDH%
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 135
REGISTER SAVE & RESTORE ROUTINES

   2108					.SBTTL		REGISTER SAVE & RESTORE ROUTINES
   2109
   2144	003362				SAV.5:	PUSH	<R5,R4,R3,R2,R1>	;R1 IS LATEST ON STK
	003362	010546 				 MOV	R5,-(SP)
	003364	010446 				 MOV	R4,-(SP)
	003366	010346 				 MOV	R3,-(SP)
	003370	010246 				 MOV	R2,-(SP)
	003372	010146 				 MOV	R1,-(SP)
   2145	003374	000176 	000012 			JMP	@10.(SP)		;RET TO CALLER
   2157	003400	012666 	000012 		RST.5:	MOV	(SP)+,10.(SP)	;RET ADR TO RIGHT PLACE
   2159	003404					POP	<R1,R2,R3,R4,R5> ;RESTORE REGS
	003404	012601 				 MOV	(SP)+,R1
	003406	012602 				 MOV	(SP)+,R2
	003410	012603 				 MOV	(SP)+,R3
	003412	012604 				 MOV	(SP)+,R4
	003414	012605 				 MOV	(SP)+,R5
   2160	003416	000207 				RTS	PC		;RET TO CALLER
   2172	003420	012666 	000010 		R5.PC:	MOV	(SP)+,8.(SP)	;JUNK WD OFF STK
   2174	003424					POP	<R2,R3,R4,R5,R1> ;RESTORE REGS
	003424	012602 				 MOV	(SP)+,R2
	003426	012603 				 MOV	(SP)+,R3
	003430	012604 				 MOV	(SP)+,R4
	003432	012605 				 MOV	(SP)+,R5
	003434	012601 				 MOV	(SP)+,R1
   2175	003436	000207 				RTS	PC		;RET TO CALLER'S CALLER
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 136
REGISTER SAVE & RESTORE ROUTINES

   2178					.REM	%
   2179						SETPAR MAKES THE PARITY OF R0 ODD BY CONDITIONALLY CHANGING A SINGLE BIT
   2180					(DEFINED BY THE TRAILING PARAM) FROM A 0 TO A 1.
   2181						%
   2182	003440				SETPAR:	PUSH	R0		;SAV DATA
	003440	010046 				 MOV	R0,-(SP)
   2183	003442					CALPAR			;CALCULATE PARITY
	003442	004737 	003462'			  JSR	PC,CALPAR	;CALC PARITY OF VALUE IN R0
   2184	003446	005700 				TST	R0		;TEST PARITY VALUE
   2185	003450	001001 				BNE	1$		;BR IF PAR ALREADY ODD
   2186	003452	051516 				BIS	(R5),(SP)	;ELSE SET PAR BIT
   2187	003454	005725 			1$:	TST	(R5)+		;BYPASS PARAM
   2188	003456					POP	R0		;R0 NOW HAS PAR CORRECTLY SET
	003456	012600 				 MOV	(SP)+,R0
   2189	003460	000207 				RTS	PC
   2193
   2194					.REM	%
   2195						CALPAR CALCULATES THE PARITY OF THE WORD IN R0.  THE RESULT IS RETURNED
   2196					AS BIT0 IN R0.  A 1 MEANS PARITY WAS ODD, 0 MEANS PARITY EVEN.
   2197						%
   2198	003462				CALPAR:	PUSH	R1
	003462	010146 				 MOV	R1,-(SP)
   2199	003464	010001 				MOV	R0,R1		;CALC 8 BIT PAR
   2200	003466	000301 				SWAB	R1
   2201	003470					EXOR	R1,R0		;IN R0
	003470	010146 				  MOV	R1,-(SP)
	003472	040016 				  BIC	R0,(SP)
	003474	040100 				  BIC	R1,R0
	003476	052600 				  BIS	(SP)+,R0
   2202	003500	010001 				MOV	R0,R1		;CALC 4 BIT PAR
   2203	003502	004737 	000070'			JSR	PC,ASR0.4
   2204	003506					EXOR	R0,R1		;IN R1
	003506	010046 				  MOV	R0,-(SP)
	003510	040116 				  BIC	R1,(SP)
	003512	040001 				  BIC	R0,R1
	003514	052601 				  BIS	(SP)+,R1
   2205	003516	042701 	177760 			BIC	#177760,R1	;GET PAR FROM TABLE
   2206	003522	116100 	006472'			MOVB	BITCNT(R1),R0
   2207	003526					POP	R1
	003526	012601 				 MOV	(SP)+,R1
   2208	003530	042700 	177776 			BIC	#-2,R0		;ISOLATE PARITY VALUE & SET CONDITIONS
   2209	003534	000207 				RTS	PC
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 152
MASTER CONFIGURE & RESOURCE DETERMINATION SEQUENCES

     24					.SBTTL	MASTER CONFIGURE & RESOURCE DETERMINATION SEQUENCES
     25
     26					.REM	%
     27						SUBROUTINE CONFIG IS THE ONLY ABSOLUTELY NECESSARY SUBROUTINE TO CALL TO
     28					CONFIGURE THE MEMORY.  USES ANY EXISTING DATA.  REPORTS NOTHING.  RESETS NO
     29					CONTROL VARIABLES EXCEPT TO SET CONFIGURED BYTE.
     30						%
     31
     32	003536				CONFIG:
     33	003536					FITMEM			;MAKE SURE FITMEM DONE
	003536	004737 	000000G			  JSR	PC,FITMEM	;FIT MEMORY PIECES TOGETHER
     34	003542					RESET	SBUS+CPU	;RESET ALL CONTR BEFORE CONFIGURING
	003542	004537 	003550'			  JSR	R5,64$		;SAV R5, PT TO & SKIP SBUS+CPU LIST
	003546	100200 				  .WORD	SBUS+CPU
	003550	004737 	003032'		64$:	  JSR	PC,.RESET	;RESET SPECIFIED HARDWARE
	003554	012605 				 MOV	(SP)+,R5
     35	003556					CONDMA			;CONF DMA20
	003556	004737 	000000G			  JSR	PC,CONDMA	;PHYSICALLY CONFIGURE DMA20
     36	003562					CONMAB			;CONF MA20/MB20 CONTRS
	003562	004737 	000000G			  JSR	PC,CONMAB	;PHYSICALLY CONFIGURE MA20 & MB20 CONTROLLERS
     37	003566					CONMX			;CONFIGURE MX20
	003566	004737 	000000G			  JSR	PC,CONMX	;PHYSICALLY CONFIGURE MX20S BASED ON LOGICAL
     38	003572					CONMOS			;CONF MOS CONTRS
	003572	004737 	000000G			  JSR	PC,CONMOS	;PHYSICALLY CONFIGURE MF20 CONTROLLERS
     39	003576	112737 	000001 	005761'		MOVB	#1,CDONE	;MARK CONFIGURATION DONE
     40	003604	105037 	005765'			CLRB	FMRECN		;FORCE RECONFIGURE MOS DONE
     41	003610	000207 				RTS	PC
     44
     45
     46
     47					.REM	%
     48						RESDET IS THE MASTER RESOURCE DETERMINATION SUBROUTINE.  THIS SUBROUTINE
     49					TRACKS THE INTERLOCK VARIABLE RDDONE.
     50						%
     51
     52	003612	105737 	005753'		RESDET:	TSTB	RDDONE		;HAVE WE ALREADY DONE THIS?
     53	003616	001016 				BNE	1$		;YES...DON'T DO IT AGAIN
     54	003620	004737 	005734'			JSR	PC,CLRRDD	;MARK RESDET, FITMEM, & CONFIG UNDONE
     55	003624					CONDET			;FIND WHICH CONTRS WE HAVE
	003624	004737 	000000G			  JSR	PC,CONDET	;DETERMINE CONTROLLER PRESENSE & FUNCTION 01 DATA
     56	003630					DMADET			;SIZE XMEM (IF ANY) & GET INTERLEAVE
	003630	004737 	000000G			  JSR	PC,DMADET	;DET DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE
     57	003634					MABDET			;DO MA20/MB20 MASKED-START-ADR STUFF
	003634	004737 	000000G			  JSR	PC,MABDET	;DETERMINE MA20/MB20 MASKED START ADDRESSES & LENGTHS
     58	003640					MX20MD			;DO RESOURCE DETERMINATON FOR MX20
	003640	004737 	000000G			  JSR	PC,MX20MD	;DET MX20 RESOURCES AND ACQUIRE IF POSSIBLE
     59	003644					MOSDET			;DO MOS CONTR STUFF (IF ANY)
	003644	004737 	003656'			  JSR	PC,MOSDET	;DETERMINE AND/OR SET MOS CONTROLLER DATA
     60	003650	105237 	005753'			INCB	RDDONE		;MARK RESOURCE DETERMINATION DONE
     61	003654	000207 			1$:	RTS	PC
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 153
MF20 RESOURCE DETERMINATION AND INITIALIZATION CONTROL

     65					.SBTTL		MF20 RESOURCE DETERMINATION AND INITIALIZATION CONTROL
     66
     67					.REM	%
     68
     69						MOSDET IS THE SUBROUTINE WHICH DETERMINES MF20 RESOURCES WHICH ARE TO BE
     70					USED IN CONFIGURING THE MEMORY.  ALONG THE WAY IT MAKES SURE THAT ALL MF20
     71					CONTROLLERS ARE PROPERLY INITIALIZED.  MF20S CAN BE "PRECONFIGURED", THAT IS,
     72					THEY ARE ALREADY IN SOFTWARE STATE (SS) 2 OR 3.  MF20S IN SS 2/3 ARE ADDRESS
     73					RESPONSE CHECKED TO MAKE SURE THEY DON'T CONFLICT WITH EACH OTHER OR WITH THE
     74					DMA20 (IF THERE IS ONE).  IF THERE IS CONFLICT THEN ALL MF20S ARE DROPPED TO SS
     75					1.  OTHERWISE THE SS 2/3 MF20S ADDRESS RESPONSE IS LEFT ALONE.
     76
     77						NOTE THAT THIS RESPONSE CHECKING IS DONE PRIMARILY SO THAT WE CAN FIND
     78					OUT IF A POWER FAIL HAS LEFT MF20 MEMORY INTACT OR NOT.  AN OUTAGE OF ABOUT 30
     79					SECONDS COULD WIPE OUT SOME BUT NOT ALL MF20S.  THIS IS THE SITUATION WE ARE
     80					REALLY WATCHING OUT FOR.
     81
     82						TWO CONTROL FLAGS HAVE AN EFFECT ON MOSDET.  IF FMRECN IS SET THEN SS
     83					2/3 MF20S ARE FORCED BACK TO SS 1.  FMRECN WILL BE SET BY MOSDET IF THE RESPONSE
     84					CONFLICT CHECK FAILS, OR SOMETHING HAPPENS TO AN SS 2/3 MF20 (WHICH IMPLIES THE
     85					CONFIG IS BLOWN ANYHOW).  KEEPBB CAUSES MOSDET NOT TO DECONFIGURE ANY BAD BLOCKS
     86					FOUND IN AN SS 2/3 MF20.  KEEPBB IS CLEARED IF FMRECN IS SET BY MOSDET.
     87
     88						MOSDET IS A CONTROL SUBROUTINE.  ALL THE REAL WORK IS DONE BY MOSDET'S
     89					LACKIES.  WHEN AN INCONSISTENCY OCCURS MOSDET DROPS THE OFFENDING MF20 BACK TO
     90					THE APPROPRIATE SS AND STARTS OVER.  IF THERE IS A HARDWARE ERROR OTHER THAN
     91					FINDING A BAD MF20 BLOCK, THEN THE OFFENDING CONTROLLER IS DELETED AND MOSDET
     92					RESTARTS.
     93
     94						THIS IS THE SECOND VERSION OF MOSDET.  THIS VERSION DIFFERS FROM THE
     95					FIRST IN THAT IT UNDERSTANDS THE OVERLAY STRUCTURE OF MOSDET WHEN RUN IN THE
     96					"KLI" ENVIRONEMENT.  MOSDET IS SCATTERED BETWEEN THE "MBROOT", "MSSCTL", AND
     97					"DBEOVL" OVERLAY MODULES.  AS MUCH OF IT AS POSSIBLE (AS IS CONSISTENT WITH
     98					MINIMIZING OVERLAY THRASHING) IS IN MSSCTL TO MINIMIZE THE SIZE OF MBROOT.
     99						%
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 154
MF20 RESOURCE DETERMINATION AND INITIALIZATION CONTROL

    101
    102	003656				MOSDET:	SAV.5			;SAV REGS
	003656	004737 	003362'			  JSR	PC,SAV.5	;SAVE R5-R1 ON STACK
    103	003662	105037 	005767'			CLRB	CCFAIL		;CONFIG CONSISTENCY OK SO FAR
    104	003666	004737 	000000G		MDRTRY:	JSR	PC,MDINIT	;CALC CPU-CONN MAP, INI HDWR & SFTWR, CPY DMARSP
    105
    106					;-----TOP OF MOSDET STATE CONTROL LOOP.
    107	003672	112737 	177777 	006000'		MOVB	#-1,DBESFL	;IND DBE SCAN MSG NOT PRINTED YET
    108	003700	012737 	000004 	005776'		MOV	#4,MFCTLV	;INI STATE CONTROL VARIABLE
    109	003706	012737 	000007 	001000'	TOCTLP:	MOV	#MNMFCN-1,TSTCON ;INI CONTR NUMBER
    110
    111					;-----TOP OF MF20 SELECT LOOP.
    112	003714	005237 	001000'		TOMFLP:	INC	TSTCON
    113	003720	013700 	001000'			MOV	TSTCON,R0	;GET NEXT CONTR NUM
    114	003724	126027 	006004'	000005 		CMPB	TYPNUM(R0),#MFCTN ;IS THIS CONTR AN MF20?
    115	003732	001007 				BNE	BOLPS		;NO.. TRY NEXT
    116	003734	013702 	005776'			MOV	MFCTLV,R2	;GET STATE CONTROL
    117	003740	000172 	003744'			JMP	@1$(R2)		;JUMP ACCORDING TO STATE
    118	003744	004370'	000000G	004202'	1$:	.WORD	MDST0B,MDST0,MDST1
    119
    120					;-----BOTTOM OF MF20 SELECT AND MOSDET STATE CONTROL LOOPS
    121	003752	023727 	001000'	000017 	BOLPS:	CMP	TSTCON,#MXMFCN	;CONTR # OUT OF RANGE?
    122	003760	103755 				BLO	TOMFLP		;YES, GO TO NEXT STATE
    123	003762	162737 	000002 	005776'		SUB	#2,MFCTLV	;NEXT STATE
    124	003770	002346 				BGE	TOCTLP		;LOOP IF MORE TO DO
    125	003772	105037 	005764'			CLRB	DBEFRC		;RESET FORCE DBE SCAN MODE
    126	003776	112737 	177777 	005756'		MOVB	#-1,MF20RD	;MARK MOSDET DONE
    127	004004	000241 				CLC			;SAY NO ERRORS
    128	004006					R5.PC			;ELSE RESTORE REGS AND RETURN
	004006	000137 	003420'			  JMP	R5.PC		;RESTORE R1-R5 FROM STACK & DO RTS PC
    129
    131
    132					;-----SECTION TO HANDLE SOME RANDOM HARDWARE ERROR.  DELETE THE OFFENDING MF20
    133					; AND FORCE RECONFIGURE IF IT WAS AT SS 2/3, OTHERWISE JUST CONTINUE.
    134	004012	013701 	001000'		MDHDER:	MOV	TSTCON,R1	;GET CONTR #
    135	004016	116146 	006044'			MOVB	CONTI(R1),-(SP)	;SAVE CONTR'S SS
    136	004022					SMFSS	0		;SET CONTR TO SS0 SO IT DOESN'T VANISH FOREVER
	004022	004737 	005166'			  JSR	PC,SMFSS0	;GO SET SOFTWARE STATE TO 0
    137	004026	105061 	006004'			CLRB	TYPNUM(R1)	;MAKE CONTR VANISH
    138	004032	004737 	006734'			JSR	PC,BAF		;DEL ALL OF CONTR'S BLOCKS TOO
    139	004036	012702 	000006 			MOV	#12./2,R2
    140	004042	005020 			1$:	CLR	(R0)+
    141	004044	077202 				SOB	R2,1$
    142	004046					PMSG	<\MF20 #>	;INFORM OPR CONTR HAS GOING AWAY
	004046	012700 	004060'			 MOV	#64$,R0		; ** MESSAGE POINTER TO R0
	004052	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	004056	000404 				 BR	65$		; ** BRANCH AROUND TEXT
	004060	   134 	   115 	   106 	64$:	 .ASCIZ	%\MF20 #%
    143	004070	010100 				MOV	R1,R0
    144	004072					PNTOCS
	004072	004737 	000000G			 JSR	PC,$TDB2O	; ** PRINT THE NUMBER
    145	004076					PMSG	< HDWR ERROR.  CONTROLLER DELETED.\>
	004076	012700 	004110'			 MOV	#66$,R0		; ** MESSAGE POINTER TO R0
	004102	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	004106	000422 				 BR	67$		; ** BRANCH AROUND TEXT
	004110	   040 	   110 	   104 	66$:	 .ASCIZ	% HDWR ERROR.  CONTROLLER DELETED.\%
    146	004154	105326 				DECB	(SP)+		;WERE WE PROCESSING SS 2/3 WHEN ERR OCCURED?
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 154-1
MF20 RESOURCE DETERMINATION AND INITIALIZATION CONTROL

    147	004156	003675 				BLE	BOLPS		;NO...MEARLY CONTINUE...EXISTING CONF SHD B OK
    148	004160	112737 	177777 	005767'		MOVB	#-1,CCFAIL	;MARK EXISTING CONFIG AS INCONSISTENT
    149
    150					;-----HERE IF WE MUST FORCE RECONFIGURATION.
    151	004166	112737 	177777 	005765'	MDRECN:	MOVB	#-1,FMRECN	;SET FLAG WHICH FORCES RECONFIGURATION
    152	004174	105037 	005766'			CLRB	KEEPBB		;CANT KEEP BAD BLKS AFTER A RECONF
    153	004200	000632 				BR	MDRTRY		;RESTART SCAN ALL OVER AGAIN
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 155
MF20 RESOURCE DETERMINATION AND INITIALIZATION CONTROL

    155
    156					;-----SECTION FOR SS 1 MF20S.  BASICALLY WE PERFORM A FEW SIMPLE CHECKS AND
    157					; SOME MINOR INITIALIZATION.
    158	004202	105737 	005764'		MDST1:	TSTB	DBEFRC		;ARE WE FORCING COMPLETE REINIT OF MF20S?
    159	004206	001402 				BEQ	1$		;NO
    160	004210					SMFSS	0		;ELSE FORCE THIS CONTR BACK TO SS 0
	004210	004737 	005166'			  JSR	PC,SMFSS0	;GO SET SOFTWARE STATE TO 0
    161	004214	126027 	006044'	000001 	1$:	CMPB	CONTI(R0),#1	;TEST THE SFTWR STATE OF THIS MF20
    162	004222	002653 				BLT	BOLPS		;DO NXT CONTR IF THIS ONE AT SS0
    163	004224	001402 				BEQ	2$		;BR IF CONTR AT SS1.. DO IT NOW
    164	004226	000137 	000000G			JMP	MDST23		;ELSE DO SS 2/3 PROCESS
    165	004232	004737 	000000G		2$:	JSR	PC,QRESET	;DO A QUICKY RESET OF MF20 CONTROLLER
    166	004236	105737 	005756'			TSTB	MF20RD		;WAS MOSDET DONE BEFORE?
    167	004242	001006 				BNE	MDST1C		;YES... DON'T SET UP PROM DATA AGAIN
    168	004244				MDST1B:	RDPROM			;GET ARRAY BOARD PROM DATA
	004244	004737 	000000G			  JSR	PC,RDPROM	;READ MOS PROM DATA FOR A CONTROLLER
    169	004250	103660 				BCS	MDHDER		;BR ON HDWR ERROR...EXPUNGE CONTR & RESTART
    170	004252					DPD			;DIGEST THAT DATA
	004252	004737 	000000G			  JSR	PC,DPD		;DIGEST PROM DATA FOR A MOS CONTROLLER
    171	004256	103655 				BCS	MDHDER		;BR ON HDWR ERROR...EXPUNGE CONTR & RESTART
    172	004260				MDST1C:	SMFSS	0		;FRC CONTR TO SS0 IN CASE OF ERROR
	004260	004737 	005166'			  JSR	PC,SMFSS0	;GO SET SOFTWARE STATE TO 0
    173	004264					GETBBD			;GET BAD BLOCK MAP
	004264	004737 	000000G			  JSR	PC,GETBBD	;MOV MF20 BAD BLK DATA FROM BITSUB RAM TO R0
    174	004270	103630 				BCS	BOLPS		;FORMAT IS BAD...MUST REDO DBE SCAN...OH WELL
    175									; (SS NOW AT 0.. CONTR WILL BE HANDLED LATER)
    176	004272	010001 			MDST1A:	MOV	R0,R1		;PUT BAD BLK MAP INTO R1
    177	004274	004737 	006734'			JSR	PC,BAF		;PTR TO CONTR SIZE BYTES INTO R0
    178	004300	000241 				CLC
    179	004302	006001 			1$:	ROR	R1		;LOOP TO DEL ALL BAD BLOCKS FROM MF20 DATA AREA
    180	004304	103003 				BCC	2$		; (BR IF BLOCK OK)
    181	004306	105010 				CLRB	(R0)		; (ELSE MAKE BLK VANISH)
    182	004310	105060 	000140 			CLRB	MSAMSZ(R0)
    183	004314	005200 			2$:	INC	R0
    184	004316	005701 				TST	R1
    185	004320	001370 				BNE	1$		; (LP TIL NO BAD BLKS LEFT)
    186	004322	005000 				CLR	R0		;RESET "CONNECTED" MAP
    187	004324					SETCMP
	004324	004737 	005340'			  JSR	PC,SETCMP	;MOV MF20 CPU CONNECT DATA FROM R0 TO BITSUB RAM
    188	004330					FSDMSK	LADRRM		;SET SBDIAG CHK MASK
	004330	012700 	006523'			  MOV	#LADRRM,R0		;PT TO MASK
	004334	004737 	000314'			  JSR	PC,FSDM1	;LD SBDIAG CHK MASK PTD TO BY R0
    189	004340					SETRAM	0003,1417,7412	;TELL MF NOT TO RESP TO ANY ADR
	004340	004537 	004350'			  JSR	R5,64$		;SAV R5, PT TO & SKIP ARG LIST
	004344	   012 	   377 	   060
	004347	   003 	   000
	004350	004737 	001002'		64$:	  JSR	PC,SETRAM	;SET CTL RAM LOC N TO 0 TO GIVEN VALUE
	004354	012605 				 MOV	(SP)+,R5
    190	004356	103615 				BCS	MDHDER		;BR ON HDWR ERROR...EXPUNGE CONTR & RESTART
    191	004360					SMFSS	1		;SET SS 1
	004360	004737 	005162'			  JSR	PC,SMFSS1	;GO SET SOFTWARE STATE TO 1
    192	004364	000137 	003752'		JBOLPS:	JMP	BOLPS		;GO ON TO NXT MF20
    194
    195					;-----SECTION FOR HANDLING DBE SCAN OF SS0 CONTROLLER.  ALL REQUIRED INIT WAS
    196					; COMPLETED IN THE PREVIOUS STATE OF THIS ROUTINE.
    197	004370	126027 	006044'	000001 	MDST0B:	CMPB	CONTI(R0),#1	;TEST THE SFTWR STATE OF THIS MF20
    198	004376	002372 				BGE	JBOLPS		;BR IF MF NOT AT SS0.. GO TO NXT CONTR
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 155-1
MF20 RESOURCE DETERMINATION AND INITIALIZATION CONTROL

    199	004400					DBESCN			;DO DOUBLE BIT ERROR SCAN & ATTEMPT REPAIR
	004400	004737 	000000G			  JSR	PC,DBESCN	;SCAN FOR & FIX MF20 DBE, RET BAD BLK MAP IN R0
    200	004404	103403 				BCS	1$		;BR ON HDWR ERROR...EXPUNGE CONTR & RESTART
    201	004406					SETBBD			;BAD (UNREPAIRABLE) BLK MAP FROM R0 TO MF20
	004406	004737 	005262'			  JSR	PC,SETBBD	;MOV MF20 BAD BLK DATA FROM R0 TO BITSUB RAM
    202	004412	103327 				BCC	MDST1A		;BR ON NO HDWR ERR...BRING MF20 UP TO SS 1
    203	004414	000137 	004012'		1$:	JMP	MDHDER		;ELSE HDWR ERR.. KILL CONTR
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 156
DETERMINE RESPONSE FOR A CONFIGURED MOS CONTROLLER

    207					.SBTTL		DETERMINE RESPONSE FOR A CONFIGURED MOS CONTROLLER
    208
    209					.REM	%
    210						MMRESP MAPS THE RESPNSE OF AN ALREADY CONFIGURED MOS CONTROLLER.  IT
    211					THEN CHECKS THIS MAP AGAINST RSPMAP, THE MASTER RESPONSE MAP.  IF THERE IS NO
    212					CONFLICT IT ORS THE CONTROLLER'S RESPONSE INTO RSPMAP AND DOES A C-BIT CLEAR
    213					RETURN.  OTHERWISE IT DOES A C-BIT SET ERROR RETURN.
    214						%
    215
    216	004420				MMRESP:	SAV.5
	004420	004737 	003362'			  JSR	PC,SAV.5	;SAVE R5-R1 ON STACK
    217	004424					CNTSD	14$		;CONTR # TO SBDIAG WD
	004424	012700 	004777'			  MOV	#14$,R0		;PT TO SBDIAG WD
	004430	004737 	000734'			  JSR	PC,CNTSD1	;CONTR # TO SBDIAG WD (ADDR IN R0)
    218	004434					MRESET			;RESET MACHINE
	004434	004737 	000000G			 JSR	PC,$KLMR	; ** MASTER RESET THE KL10
    219	004440					DFXCTT	STRCLK
	004440	012700 	000001 			 MOV	#STRCLK,R0	; ** FUNCTION CODE TO R0
	004444	004737 	000000G			 JSR	PC,$DDFXC	; ** EXECUTE THE FUNCTION EXECUTE
    221	004450					LOADAC	MMRPM,13$	;LOAD AC PROGRAM
	004450	004537 	004460'			  JSR	R5,64$		;SAV R5, PT TO & SKIP ARG LIST
	004454	077740 				  .WORD MMRPM		;LOAD MASK
	004456	004722'				  .WORD 13$		;PDP11 MEM ADR(S)
	004460	004737 	002272'		64$:	  JSR	PC,ACLOAD	;LOAD ACS FROM CONTIGUOUS 11 MEM
	004464	012605 				 MOV	(SP)+,R5
    222	004466	012702 	006224'			MOV	#DBUF,R2	;ADR TO EXAMT PL
    223	004472	012701 	000010 			MOV	#8.,R1		;LP CNT
    224	004476					RUN	AC7		;START PROGRAM
	004476	004537 	004504'			  JSR	R5,65$		;SAV R5, PT TO & SKIP ARG LIST
	004502	000007 				  .WORD	AC7		;STARTING ADR
	004504	004737 	001370'		65$:	  JSR	PC,RUNPRG	;RUN PRGM 1 TIC USING GIVEN PC
	004510	012605 				 MOV	(SP)+,R5
    225	004512	000402 				BR	2$		;GET FIRST RESULTS
    226	004514				1$:	CONTIN			;RUN PRGM AGAIN
	004514	004737 	001424'			  JSR	PC,CONTIN	;RUN & CONTINUE
    228	004520				2$:	PUSH	R1
	004520	010146 				 MOV	R1,-(SP)
    229	004522	010201 				MOV	R2,R1
    230	004524					EXAMT	AC15
	004524	012700 	000015 			 MOV	#AC15,R0	; ** ADDRESS POINTER TO R0
	004530	004737 	000000G			 JSR	PC,$EXAMT	; ** EXECUTE THE KL10 EXAMINE
    231	004534					POP	R1
	004534	012601 				 MOV	(SP)+,R1
    237	004536	004737 	003316'			JSR	PC,CHKED
    238	004542	062702 	000004 			ADD	#4,R2		;NXT TABLE ADR
    239	004546	077116 				SOB	R1,1$		;LP TIL DONE
    240					;-----DATA IS SET UP.  NOW CHECK FOR OVERLAP AND, IF NONE, .OR.  DATA INTO
    241					; MASTER TABLE.
    242	004550	012701 	007322'			MOV	#RSPMAP,R1	;MASTER RESPONSE TABLE PTR
    243	004554	012702 	006224'			MOV	#DBUF,R2	;CONTR RESP PTR
    244	004560	000261 				SEC			;FORCES C-BIT SET EXIT ON ERR
    245	004562	032221 			4$:	BIT	(R2)+,(R1)+	;OVERLAP?
    246	004564	001054 				BNE	12$		;YES...ERROR...C-BIT RET
    247	004566	020227 	006264'			CMP	R2,#DBUF+32.	;DONE?
    248	004572	103773 				BLO	4$		;NO...CONTINUE
    249	004574	054241 			5$:	BIS	-(R2),-(R1)	;NO OVERLAP.. .OR. RESP INTO MASTER
    250	004576	005112 				COM	(R2)		;CREATE ANTI-HOLE MAP WD FOR SCAN
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 156-1
DETERMINE RESPONSE FOR A CONFIGURED MOS CONTROLLER

    251	004600	020227 	006224'			CMP	R2,#DBUF
    252	004604	101373 				BHI	5$		;LP TIL DONE
    253					;-----CLEAR BLOCK SIZE TABLE.
    254	004606	004737 	006734'			JSR	PC,BAF		;GET ADR OF BLK LST FOR THIS CONTR
    255	004612	012701 	000006 			MOV	#12./2,R1		;CLR LP CNT
    256	004616	005020 			6$:	CLR	(R0)+
    257	004620	077102 				SOB	R1,6$
    258	004622					PUSH	R0		;FOR LOGIC CHK LATER
	004622	010046 				 MOV	R0,-(SP)
    259	004624	162700 	000014 			SUB	#12.,R0		;RESET LST PTR
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 157
DETERMINE RESPONSE FOR A CONFIGURED MOS CONTROLLER

    261					;-----SCAN DBUF AND CREATE PSEUDO BLOCK SIZE & START ADDRESSES FOR THE FIT
    262					; REPORTER (REPFIT).
    263	004630	005005 				CLR	R5		;INI FOR SCAN (R2 ALREADY = #DBUF)
    264	004632	012703 	000001 			MOV	#1,R3
    265	004636				7$:	SCAN			;SCAN FOR A (.NOT.HOLE)
	004636	004737 	005004'			  JSR	PC,SCAN		;SCAN 16K MEMORY BIT MAP
    266	004642	103416 				BCS	10$		;NO MORE RESP FOUND
    267	004644	110460 	000140 		8$:	MOVB	R4,MSAMSZ(R0)	;RESP ST ADR TO TABLE
    268	004650	010401 				MOV	R4,R1		;CREATE -RESP SIZE
    269	004652	160501 				SUB	R5,R1
    270	004654	020127 	177601 			CMP	R1,#-127.	;TOO BIG TO HANDLE?
    271	004660	002005 				BGE	9$		;NO...SAVE SIZE & LOOK FOR NXT RESP
    272	004662	112720 	177601 			MOVB	#-127.,(R0)+	;SAVE A SIZE OF 127 (*16K)
    273	004666	062704 	000177 			ADD	#127.,R4	;BUMP START ADR
    274	004672	000764 				BR	8$		;GO CREATE ANOTHER ENTRY
    275	004674	110120 			9$:	MOVB	R1,(R0)+	;(SMALL ENUF) SIZE TO TABLE
    276	004676	000757 				BR	7$		;SEARCH FOR NEXT RESP GROUP
    277	004700	020026 			10$:	CMP	R0,(SP)+	;TOO FRACTURED TO SAV INFO FOR REPORT?
    278	004702	101404 				BLOS	11$		;NO
    279	004704					FATAL	CTF	;CONTR TOO FRACTURED...HAVE CLOBBERED TABLES
	004704	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "CTF" ERROR
	004710	   103 	   124 	   106 		 .ASCIZ	%CTF%
    280	004714	000241 			11$:	CLC			;INDICATE ALL OK
    281	004716				12$:	R5.PC
	004716	000137 	003420'			  JMP	R5.PC		;RESTORE R1-R5 FROM STACK & DO RTS PC
    282
    283
    284					;-----AC PROGRAM FOR MMRESP.  READS ADDRESS RESPONSE RAM LOCATIONS AND HALTS
    285					; AFTER 32 ITERATIONS TO ALLOW THE PDP-11 TO GET THE RESPONSE BITS IT HAS.
    286	004722					BLK10	5
    287	004722				13$:	I10	TRNN,16,,17400	;5--SKIP IF HAVEN'T DONE 32 CYCLES YET
	004722	   000 	   037 	   000
	004725	   067 	   014
    288	004727					I10	JRST,4,,7	;6--ELSE LET 11 HAVE SOME TIME
	004727	   007 	   000 	   000
	004732	   142 	   005
    289	004734					IO10	SBDIAG,,,16	;7-- <START> GET RESP RAM WD (FUNC 12)
	004734	   016 	   000 	   000
	004737	   005 	   016
    290	004741					I10	LSH,15,,777777	;10-MAKE ROOM FOR NEW BIT
	004741	   377 	   377 	   203
	004744	   026 	   005
    291	004746					I10	TLNN,17,,10	;11-SKIP IF DESELECT BIT IS SET..NO RESP
	004746	   010 	   000 	   200
	004751	   077 	   014
    292	004753					I10	TLO,15,,20000	;12-ELSE MARK 16K AS RESPONDING
	004753	   000 	   040 	   200
	004756	   216 	   015
    293	004760					I10	ADDI,16,,400	;13-NXT RAM ADR
	004760	   000 	   001 	   000
	004763	   317 	   005
    294	004765					I10	JRST,,,5	;14-LOOP
	004765	   005 	   000 	   000
	004770	   140 	   005
    295	004772					WD36	0000,0000,0000	;15-RESPONSE MASK CREATED HERE
	004772	   000 	   000 	   000
	004775	   000 	   000
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 157-1
DETERMINE RESPONSE FOR A CONFIGURED MOS CONTROLLER

    296	004777				14$:	WD36	0000,0000,0012	;16-BLANK FUNC 12
	004777	   012 	   000 	   000
	005002	   000 	   000
    297									;17-SBDIAG WD FROM MEM
    298	005004					ENDBLK	MMRPM
    299						.EVEN
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 158
DETERMINE RESPONSE FOR A CONFIGURED MOS CONTROLLER

    303					.REM	%
    304						SCAN IS A LITTLE SUBROUTINE USED ONLY BY THE MEMORY BOOT.  IT IS VERY
    305					NON-STANDARD AND MUST BE USED WITH CAUTION.  ON FIRST ENTRY: R2=SCAN TABLE
    306					ADDRESS, R3=1, R4=ANYTHING, R5=0.  R0 & R1 ARE NEVER AFFECTED BY SCAN.  ON EXIT
    307					R4=HOLE START, R5=HOLE END.  C-BIT SET RETURN IF NO HOLE FOUND.  R2, R3, & R5
    308					MUST NOT BE ALTERED BY CALLER.
    309						%
    310
    311					;-----SCAN FOR HOLE BY SCANNING FOR 0 BIT.
    312	005004	010504 			SCAN:	MOV	R5,R4		;OLD HOLE END ADR STARTS SEARCH
    313	005006	020427 	000400 		1$:	CMP	R4,#400		;OUT OF 4 MEG YET?
    314	005012	001415 				BEQ	3$		;YEAH...SCAN DONE...EXIT C-BIT SET
    315	005014	103404 				BLO	2$		;NO...
    316	005016					FATAL	SB4	;DIE...BEYOND 4 MEG
	005016	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "SB4" ERROR
	005022	   123 	   102 	   064 		 .ASCIZ	%SB4%
    317	005026	030312 			2$:	BIT	R3,(R2)		;HOLE FOUND YET?
    318	005030	001410 				BEQ	4$		;YES...GO FIND ITS END
    319	005032	005204 				INC	R4		;ELSE CONT SCAN THRU NXT 16K BLIVVIT
    320	005034	006303 				ASL	R3
    321	005036	103373 				BCC	2$
    322	005040	006103 				ROL	R3
    323	005042	005722 				TST	(R2)+
    324	005044	000760 				BR	1$
    325	005046	000261 			3$:	SEC			;C-BIT SET RETURN...NO HOLE FOUND
    326	005050	000207 				RTS	PC
    327					;-----NOW FIND END OF HOLE BY SCANNING FOR A 1 BIT.
    328	005052	010405 			4$:	MOV	R4,R5		;USE HOLE START ADR TO START SEARCH
    329	005054	005205 			5$:	INC	R5		;GO TO NEXT 16K BLIVVIT
    330	005056	006303 				ASL	R3
    331	005060	103012 				BCC	6$
    332	005062	006103 				ROL	R3
    333	005064	005722 				TST	(R2)+
    334	005066	020527 	000400 			CMP	R5,#400		;UP TO 4 MEG YET?
    335	005072	001407 				BEQ	7$		;YES...LAST HOLE
    336	005074	103404 				BLO	6$		;NO
    337	005076					FATAL	FOE	;WE FELL OFF THE END OF THE WORLD
	005076	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "FOE" ERROR
	005102	   106 	   117 	   105 		 .ASCIZ	%FOE%
    338	005106	030312 			6$:	BIT	R3,(R2)		;END OF HOLE YET?
    339	005110	001761 				BEQ	5$		;NO...TRY NXT 16K BLIVVIT
    340	005112	000241 			7$:	CLC			;HOLE FOUND, BOUNDED BY (R4,R5)
    341	005114	000207 				RTS	PC
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 159
DETERMINE RESPONSE FOR A CONFIGURED MOS CONTROLLER

    345					;-----SUBROUTINE TO EXPAND AN ADDR/16K WORD TO WD36 FORMAT.
    346	005116	000241 			EXP16K:	CLC			;CLEAR CARRY BIT TO AVOID TRASH
    347	005120					PUSH	R1
	005120	010146 				 MOV	R1,-(SP)
    348	005122	012701 	006371'			MOV	#REAPWD+5,R1
    349	005126	105041 				CLRB	-(R1)
    350	005130	105041 				CLRB	-(R1)
    351	005132	006000 				ROR	R0		;POSITION AND SET BITS 14-19
    352	005134	006000 				ROR	R0
    353	005136	110041 				MOVB	R0,-(R1)
    354	005140	006000 				ROR	R0		;BITS 20,21
    355	005142	000300 				SWAB	R0
    356	005144	110041 				MOVB	R0,-(R1)
    357	005146	105041 				CLRB	-(R1)
    358	005150	010100 				MOV	R1,R0		;R0 POINTS TO "REAPWD" UPON RETURN
    359	005152					POP	R1
	005152	012601 				 MOV	(SP)+,R1
    360	005154	000207 				RTS	PC		;RETURN
    363
    364
    365					.REM	%
    366						SMFSS SETS BOTH THE HARDWARE AND SOFTWARE COPIES OF AN MF20'S SOFTWARE
    367					STATE BITS.  THE ARGUMENT OF THE MACRO DETERMINES THE RELATIVE ENTRY POINT FROM
    368					WHICH THE DESIRED STATE IS CALCULATED.  PUNTS ON AN ERROR.  SS 3 CANNOT BE SET
    369					BY THIS ROUTINE.  CONTROLLER IS LEFT DISABLED.
    370						%
    371
    372	005156	004037 	005172'		SMFSS2:	JSR	R0,SMFSS	;2
    373	005162	004037 	005172'		SMFSS1:	JSR	R0,SMFSS	;1
    374	005166	004037 	005172'		SMFSS0:	JSR	R0,SMFSS	;0
    375	005172	162700 	005172'		SMFSS:	SUB	#SMFSS,R0
    376	005176	005400 				NEG	R0
    377	005200	006200 				ASR	R0
    378	005202	006200 				ASR	R0		;DESIRED STATE # NOW IN R0
    379	005204					PUSH	R0		;SAVE STATE NUM WE ARE GOING TO
	005204	010046 				 MOV	R0,-(SP)
    380	005206	052700 	000004 			BIS	#4,R0		;SET DISABLE BIT
    381	005212	110037 	005251'			MOVB	R0,1$+1		;PUT SS BITS INTO FCN 1 WD
    382	005216					FSDCHK	1$,2$		;SET STATE AND CHECK...PUNT ON ERROR
	005216	004537 	005226'			  JSR	R5,64$		;SAV R5, PT TO & SKIP ARG LIST
	005222	005255'	005250'			  .WORD	2$,1$	;MASK & FUNCTION ADDRESSES
	005226	004737 	000462'		64$:	  JSR	PC,FSDCHK	;DO SBUS DIAG & CHECK
	005232	012605 				 MOV	(SP)+,R5
    383	005234	013700 	001000'			MOV	TSTCON,R0	;GET CONTR #
    384	005240	112660 	006044'			MOVB	(SP)+,CONTI(R0)	;SET BIT IN MEM BOOT TOO
    385	005244					POP	R0		;RESTORE R0
	005244	012600 				 MOV	(SP)+,R0
    386	005246	000207 				RTS	PC		;RETURN
    387
    388	005250				1$:	WD36	0000,0000,0201	;SBDIAG WD TO BE FILLED IN WITH SS BITS
	005250	   201 	   000 	   000
	005253	   000 	   000
    389	005255				2$:	WD36	7605,0000,0201	;CHK MASK FOR THE ABOVE
	005255	   201 	   000 	   000
	005260	   205 	   017
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 160
SUBROUTINES TO MOVE DATA TO UNUSED MF20 BITSUB LOCS

    393					.SBTTL		SUBROUTINES TO MOVE DATA TO UNUSED MF20 BITSUB LOCS
    394
    428
    429					.REM	%
    430						SETBBD DOES ALL THE NECESSARY THINGS TO SET THE BAD BLOCK MAP DATA FOR
    431					AN MF20.  R0 IS PRESERVED.  C-BIT IS SET UPON ANY KIND OF ERROR.
    432						%
    433
    434	005262				SETBBD:	PUSH	R0		;SAVE MAP OF BAD BLOCKS
	005262	010046 				 MOV	R0,-(SP)
    435	005264					SBSRL	774		;DATA TO LO ORD LOC
	005264	010546 				 MOV	R5,-(SP)
	005266	012746 	077407 			 MOV	#774*64.+7,-(SP)
	005272	010605 				  MOV	SP,R5		;PT TO ARGS WITH R5
	005274	004737 	005500'			  JSR	PC,SBSRL	;MOV RH 6 BITS OF R0 TO BITSUB RAM LOCATION
	005300	012605 				  MOV	(SP)+,R5	;DEL ARG WD FROM STK -- C BIT NOT AFFECTED
	005302	012605 				  MOV	(SP)+,R5	;RESTORE R5
    436	005304	103413 				BCS	1$		;BR ON ERR
    437	005306	011600 				MOV	(SP),R0		;GET BAK MAP AGAIN
    438	005310	004737 	000064'			JSR	PC,ASR0.6	;POSITION HIGHER 6 BAD BLOCK MAP BITS
    439	005314					SBSRL	770		;DATA TO HI ORD LOC
	005314	010546 				 MOV	R5,-(SP)
	005316	012746 	077007 			 MOV	#770*64.+7,-(SP)
	005322	010605 				  MOV	SP,R5		;PT TO ARGS WITH R5
	005324	004737 	005500'			  JSR	PC,SBSRL	;MOV RH 6 BITS OF R0 TO BITSUB RAM LOCATION
	005330	012605 				  MOV	(SP)+,R5	;DEL ARG WD FROM STK -- C BIT NOT AFFECTED
	005332	012605 				  MOV	(SP)+,R5	;RESTORE R5
    440	005334				1$:	POP	R0		;RESTORE R0
	005334	012600 				 MOV	(SP)+,R0
    441	005336	000207 				RTS	PC		;RETURN...C-BIT SET ON ERROR
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 161
SUBROUTINES TO MOVE DATA TO UNUSED MF20 BITSUB LOCS

    486
    487					.REM	%
    488						SETCMP DOES ALL THE NECESSARY THINGS TO SET THE CONNECTED MAP DATA FOR
    489					THE APPROPRIATE CPU.  NOTE THAT IT ONLY DOES ONE CONTROLLER, THOUGH.  R0 IS
    490					PRESERVED.  C-BIT IS SET UPON ANY KIND OF ERROR.
    491						%
    493
    494					; ***** HANDLES ONLY CPU "A" AT THE MOMENT. *****
    495
    496	005340				SETCMP:	PUSH	R0		;SAVE MAP OF CONTRS CONN TO THIS CPU
	005340	010046 				 MOV	R0,-(SP)
    497	005342	006300 				ASL	R0		;POSITION DATA FOR LOWER 4 CONTRS
    498	005344	042700 	177741 			BIC	#177741,R0	;SHUT OFF OTHER CONTR BITS
    499	005350					SBSRL	764		;DATA TO CPU "A" LO ORD LOC
	005350	010546 				 MOV	R5,-(SP)
	005352	012746 	076407 			 MOV	#764*64.+7,-(SP)
	005356	010605 				  MOV	SP,R5		;PT TO ARGS WITH R5
	005360	004737 	005500'			  JSR	PC,SBSRL	;MOV RH 6 BITS OF R0 TO BITSUB RAM LOCATION
	005364	012605 				  MOV	(SP)+,R5	;DEL ARG WD FROM STK -- C BIT NOT AFFECTED
	005366	012605 				  MOV	(SP)+,R5	;RESTORE R5
    500	005370	103441 				BCS	1$		;BR ON ERR
    501	005372	011600 				MOV	(SP),R0		;GET BAK MAP AGAIN
    502	005374	004737 	000072'			JSR	PC,ASR0.3	;POSITION & ISO HIGHER 4 CONTR MAP BITS
    503	005400	042700 	177741 			BIC	#177741,R0
    504	005404					SBSRL	760		;DATA TO CPU "A" HI ORD LOC
	005404	010546 				 MOV	R5,-(SP)
	005406	012746 	076007 			 MOV	#760*64.+7,-(SP)
	005412	010605 				  MOV	SP,R5		;PT TO ARGS WITH R5
	005414	004737 	005500'			  JSR	PC,SBSRL	;MOV RH 6 BITS OF R0 TO BITSUB RAM LOCATION
	005420	012605 				  MOV	(SP)+,R5	;DEL ARG WD FROM STK -- C BIT NOT AFFECTED
	005422	012605 				  MOV	(SP)+,R5	;RESTORE R5
    505	005424	103423 				BCS	1$		;BR ON ERR
    506	005426	005000 				CLR	R0		;ZERO CPU "B" LOCATIONS
    507	005430					SBSRL	754
	005430	010546 				 MOV	R5,-(SP)
	005432	012746 	075407 			 MOV	#754*64.+7,-(SP)
	005436	010605 				  MOV	SP,R5		;PT TO ARGS WITH R5
	005440	004737 	005500'			  JSR	PC,SBSRL	;MOV RH 6 BITS OF R0 TO BITSUB RAM LOCATION
	005444	012605 				  MOV	(SP)+,R5	;DEL ARG WD FROM STK -- C BIT NOT AFFECTED
	005446	012605 				  MOV	(SP)+,R5	;RESTORE R5
    508	005450	103411 				BCS	1$
    509	005452	005000 				CLR	R0
    510	005454					SBSRL	750
	005454	010546 				 MOV	R5,-(SP)
	005456	012746 	075007 			 MOV	#750*64.+7,-(SP)
	005462	010605 				  MOV	SP,R5		;PT TO ARGS WITH R5
	005464	004737 	005500'			  JSR	PC,SBSRL	;MOV RH 6 BITS OF R0 TO BITSUB RAM LOCATION
	005470	012605 				  MOV	(SP)+,R5	;DEL ARG WD FROM STK -- C BIT NOT AFFECTED
	005472	012605 				  MOV	(SP)+,R5	;RESTORE R5
    511	005474				1$:	POP	R0		;RESTORE R0
	005474	012600 				 MOV	(SP)+,R0
    512	005476	000207 				RTS	PC		;RETURN...C-BIT SET ON ERROR
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 162
SUBROUTINES TO MOVE DATA TO UNUSED MF20 BITSUB LOCS

    537
    538					.REM	%
    539						SBSRL MOVE THE RH 6 BITS OF R0 TO THE SPECIFIED BITSUB RAM LOCATION,
    540					FIRST JUSTIFIING IT FOR BITS 7-12, SHUTTING OFF BIT 13, AND PUTTING BAD PARITY
    541					INTO BIT 14.  ECHO CHECK FAILURE RESULTS IN A C-BIT SET RETURN. R0 IS DESTROYED.
    542						%
    543
    544	005500	042700 	177700 		SBSRL:	BIC	#177700,R0	;OFF ALL BUT RH 6 BITS
    545	005504	000300 				SWAB	R0		;POSITION BITS
    546	005506	006200 				ASR	R0
    547	005510	052700 	000020 			BIS	#20,R0		;SET LD EN BIT BEFORE SETTING PAR BIT
    548	005514					SETPAR	40		;CALC BAD PAR & SET PAR BIT ACCORDINGLY
	005514	004537 	005522'			  JSR	R5,64$		;SAV R5, PT TO & SKIP ARG LIST
	005520	000040 				  .WORD	40
	005522	004737 	003440'		64$:	  JSR	PC,SETPAR	;SET PARITY BIT IN R0 USING 40
	005526	012605 				 MOV	(SP)+,R5
    549	005530	012537 	006364'			MOV	(R5)+,REAPWD	;SET UP FCN 7 WD TO DO THE LOAD
    550	005534	010037 	006366'			MOV	R0,REAPWD+2
    551	005540					FSDMSK	SDMSBR		;SET FSD MSK FOR FCN 7 LOAD
	005540	012700 	006516'			  MOV	#SDMSBR,R0		;PT TO MASK
	005544	004737 	000314'			  JSR	PC,FSDM1	;LD SBDIAG CHK MASK PTD TO BY R0
    552	005550					FSD	REAPWD		;DO FCN 7 AND CHECK...C-BIT SET ON ERR
	005550	004537 	005556'			  JSR	R5,65$		;SAV R5, PT TO & SKIP  LIST
	005554	006364'				  .WORD	REAPWD		;SBDIAG WORD ADDRESS
	005556	004737 	000376'		65$:	  JSR	PC,FSD		;DO FAST SBUS DIAG
	005562	012605 				 MOV	(SP)+,R5
    553	005564	000207 				RTS	PC		;RETURN
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 163
INITIALIZE ALL MEMORY BOOT DATA AREAS

    558					.SBTTL	INITIALIZE ALL MEMORY BOOT DATA AREAS
    559
    560					.REM	%
    561						SUBROUTINES TO CLEAR THIS, THAT, OR THE OTHER TABLE SET.
    562						%
    563
    564	005566	012700 	000420 		MBINI:	MOV	#MBDCML,R0	;GET LEN TO CLEAR
    565	005572	105060 	005751'		1$:	CLRB	MBDCMS-1(R0)	;CLEAR A BYTE
    566	005576	077003 				SOB	R0,1$		;LP TIL ALL CLEARED
    567	005600	012737 	177777 	006120'		MOV	#-1,GAPDMY	;FIX GAPDMY WHICH WAS CLEARED
    568	005606	012700 	000014 			MOV	#MBDIFL,R0	;GET LEN TO CLEAR
    569	005612	112760 	177777 	006527'	2$:	MOVB	#-1,MBDIFS-1(R0) ;CLEAR A BYTE
    570	005620	077004 				SOB	R0,2$		;LP TIL ALL CLEARED
    571	005622	004737 	005704'			JSR	PC,INIMAB	;ZAP MA20/MB20 TABLES
    572	005626	004737 	005670'			JSR	PC,INIDMA	;ZAP EXTERNAL MEMORY DAT
    573	005632	004737 	005654'			JSR	PC,INIMDF	;ZAP MOS TABLES
    574	005636	004737 	005720'			JSR	PC,INIMX	;ZAP MX20 DATA
    575	005642					LDFSDP			;LOAD AND START FAST SBUS DIAG PROGRAM
	005642	004737 	000170'			  JSR	PC,LFSDP	;LOAD THE FAST SBUS DIAG PROGRAM
    576	005646	105237 	005752'			INCB	MBINID		;MARK MBINI DONE
    577	005652	000207 				RTS	PC
    578
    580	005654	012700 	000402 		INIMDF:	MOV	#MBDMFL,R0	;GET LEN TO CLEAR
    581	005660	105060 	006757'		1$:	CLRB	MBDMFS-1(R0)	;CLEAR A BYTE
    582	005664	077003 				SOB	R0,1$		;LP TIL ALL CLEARED
    583	005666	000422 				BR	CLRRDD		;FORCE RESDET UNDONE
    584
    587	005670	012700 	000150 		INIDMA:	MOV	#MBDDML,R0	;GET LEN TO CLEAR
    588	005674	105060 	006563'		1$:	CLRB	MBDDMS-1(R0)	;CLEAR A BYTE
    589	005700	077003 				SOB	R0,1$		;LP TIL ALL CLEARED
    590	005702	000414 				BR	CLRRDD		;FORCE RESDET UNDONE
    591
    594	005704	012700 	000020 		INIMAB:	MOV	#MBDABL,R0	;GET LEN TO CLEAR
    595	005710	105060 	006543'		1$:	CLRB	MBDABS-1(R0)	;CLEAR A BYTE
    596	005714	077003 				SOB	R0,1$		;LP TIL ALL CLEARED
    597	005716	000406 				BR	CLRRDD		;FORCE RESDET UNDONE
    598
    601	005720	012700 	000002 		INIMX:	MOV	#MBDMXL,R0	;GET LEN TO CLEAR
    602	005724	105060 	007361'		1$:	CLRB	MBDMXS-1(R0)	;CLEAR A BYTE
    603	005730	077003 				SOB	R0,1$		;LP TIL ALL CLEARED
    604	005732	000400 				BR	CLRRDD		;FORCE RESDET UNDONE
    605
    608					;-----THIS LITTLE SUBROUTINE MARKS RESDET, FITMEM, AND CONFIG AS UNDONE.  NOTE
    609					; THAT MARKING RESDET UNDONE DOESN'T UNDO ALL ITS PIECES.  AS AN EXAMPLE: IF
    610					; RESDET WAS DONE WITH INTMOD=2, BUT WE WANT TO REDO IT WITH INTMOD=0, WE NEED
    611					; ONLY CLR MABRD & DMARD IN ADDITION TO RUNNING THIS ROUTINE.  MF20RD NEED NOT
    612					; BE CLEARED BECAUSE INTMOD HAS NO EFFECT THERE.
    613
    614	005734	105037 	005753'		CLRRDD:	CLRB	RDDONE		;MARK RESDET UNDONE
    615	005740	105037 	005760'			CLRB	FITTED		;MARK FITMEM UNDONE
    616	005744	105037 	005761'			CLRB	CDONE		;MARK CONFIG UNDONE
    617	005750	000207 				RTS	PC
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 164
MEMORY BOOT DATA AREA

    622					.SBTTL	MEMORY BOOT DATA AREA
    623
    624					.REM	%
    625						CALL DOWN CHAIN CONTROL FLAGS.  THESE FLAGS SAY THAT THE CORRESPONDING
    626					MEMORY BOOT SUBROUTINE GROUP HAS BEEN DONE IF THEY ARE NOT 0 (INZ).
    627						%
    628
    629	005752				MBDCMS:	;START OF BLOCK TO CLEAR
    630
    631	005752	   000 			MBINID:	.BYTE	0	;MBINI DONE INZ
    632
    633	005753	   000 			RDDONE:	.BYTE	0	;RESDET DONE INZ
    634	005754	   000 			CONRD:	.BYTE	0		;CONDET DONE INZ
    635	005755	   000 			DMARD:	.BYTE	0		;DMA20 RESDET DONE INZ
    636	005756	   000 			MF20RD:	.BYTE	0		;MF20 RESDET DONE INZ
    637	005757	   000 			MABRD:	.BYTE	0		;MA20/MB20 RESDET DONE INZ
    638
    639	005760	   000 			FITTED:	.BYTE	0	;FITMEM DONE INZ
    640	005761	   000 			CDONE:	.BYTE	0	;CONFIG DONE INZ
    641
    642					.REM	%
    643						MEMORY BOOT OPERATION CONTROL FLAGS AND VARIABLES.  THESE PIECES OF DATA
    644					HAVE CONSIDERABLE EFFECT ON JUST HOW THE MEMORY BOOT WORKS.  THEY ARE NOT ALL
    645					RELATED TO ONE AND OTHER, BUT ARE ALL HERE JUST SO THAT THEY ARE IN ONE PLACE.
    646					IF THE CONTROL PROGRAM IS TO SET UP ANY OF THESE IT SHOULD DO SO AFTER MBINI HAS
    647					BEEN RUN.
    648						%
    649
    650	005762				OCFVST:		;START OF OPERATION CONTROL FLAGS AND VARIABLES
    651
    652	005762	   000 			CONFGR:	.BYTE	0	;INZ, ASSIGN CONTROLLERS IN REVERSE ORDER, USE MF20
    653								;BLOCKS IN REVERSE ORDER, MA20/MB20 RQ ENABLES REVERSED
    654	005763	   000 			INTMOD:	.BYTE	0	;INZ THEN IS INTERLEAVE LIMITER FOR MA20/MB20, AND FOR
    655								;DMA20 SELECTS A PERMISSABLE BUS MODE.  0 MEANS TO DO
    656								;WHAT IS "BEST"
    657	005764	   000 			DBEFRC:	.BYTE	0	;FORCES ALL MF20 CONTROLLERS BACK TO SOFTWARE STATE 0
    658								;WHICH IN TURN WILL CAUSE COMPLETE REINITIALIZATION OF
    659								;ALL MF20S.
    660	005765	   000 			FMRECN:	.BYTE	0	;FORCE MF20 ADDRESS RESPONSE RECONFIGURATION
    661	005766	   000 			KEEPBB:	.BYTE	0	;KEEP BAD MF20 BLOCKS INZ.  THIS SHOULD ONLY BE SET IF
    662								;MONITOR IS COMING UP WARM AND STILL KNOWS WHERE THE BAD
    663								;PAGES ARE.  USE WITH CAUTION.
    665	005767	   000 			CCFAIL:	.BYTE	0	;NOT 0 INDICATES MOS CONSISTENCY CHECK FAILED DUE,
    666								;MOST LIKELY, TO SOMETHING LIKE A PARITIAL POWER FAIL
    671	005770	   000 			MX20M6:	.BYTE	0	;MX20 #6 DEFAULT MODE
    672	005771	   000 			MX20M7:	.BYTE	0	;MX20 #7 DEFAULT MODE
    673
    674		000010 			OCFVLN=.-OCFVST	;LENGTH OF OPERATION CTL FLAG & VARIABLE AREA
    675						.EVEN
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 165
MEMORY BOOT DATA AREA

    677					.REM	%
    678						DATA DETERMINED FROM THE HARDWARE AT RUN TIME AND PERTINENT TO THE
    679					MEMORY BOOT PROCESS AS A WHOLE.
    680						%
    681
    682	005772	000000 			MODELB:	.WORD	0	;0 FOR KL10 MODEL A, 1 FOR KL10 MODEL B
    683	005774	000000 			CPUDSG:	.WORD	0	;CPU DESIGNATOR INZ, 1 FOR CPU "A", 2 FOR "B".  SET TO
    684								;1 (A) FOR CPU WITH NO MX20.
    685	005776	000000 			MFCTLV:	.WORD	0	;MOSDET RUNTIME STATE CONTROL VARIABLE
    686	006000	   000 			DBESFL:	.BYTE	0	; -1 IF DBE SCAN MESSAGE NOT PRINTED YET
    687	006001	   000 			ILOST:	.BYTE	0	;INZ IT MEANS THAT WE DO NOT HAVE CONTROL OF THE MX20S.
    688								;FORCES CONFIG NOT TO CONFIGURE ANY MF20 OVER WHICH WE
    689								;DO NOT HAVE EXCLUSIVE CONTROL.
    690	006002	   000 			MSTROS:	.BYTE	0	;WE HAVE MASTER OSCILLATOR INZ
    691						.EVEN
    692
    693	006004				TYPNUM: .BLKB	MAXCN+1	;CONTROLLER TYPE FOR EACH CONTROLLER NUMBER
    694	006044				CONTI:	.BLKB	MAXCN+1	;CONTROLLER INFO FROM SBUS DIAG 1.  FOR MA/MB20 IS
    695								;STORAGE MODULE PRESENSE BITS.  FOR MF20 IS 2-BIT SS.
    696
    697	006104	   000 			MCOUNT: .BYTE	0	;COUNT OF NON-NULL CONTROLLERS
    698
    699	006105	   000 			CNTCNT:	.BYTE	0	;COUNT OF NONEXISTENT MEM CONTRS
    700	006106	   000 			MA20:	.BYTE	0	;TYPE 1 (MACTN)
    701	006107	   000 			DMA20:	.BYTE	0	;TYPE 2 (DMACTN)
    702	006110	   000 			MB20:	.BYTE	0	;TYPE 3 (MBCTN)
    703	006111	   000 			MX20:	.BYTE	0	;TYPE 4 (MXCTN)
    704	006112	   000 			MF20:	.BYTE	0	;TYPE 5 (MFCTN)
    705	006113	   000 			SBSREC:	.BYTE	0	;TYPE 6 (BRCTN)
    706	006114	   000 			UNDEF:	.BYTE	0	;TYPE 7 (UNDEFINED MEM CONTR TYPE, UNDCTN)
    707						.EVEN
    708
    710	006116	000000 			GAPCNT:	.WORD	0	;COUNT OF ENTRIES IN THE GAP TABLE
    711	006120	177777 	000000 		GAPDMY:	.WORD	-1,0	;DUMMY GAP TABLE ENTRY
    712	006124				GAPTAB:	.BLKW	32.	;UP TO 16 GAPS ALLOWED.  FORMAT OF ENTRY IS
    713								;GAP-START-ADDRESS,GAP-SIZE.
    714								;ALL NUMBERS ARE IN /16K FORMAT.
    715
    717					.REM	%
    718						SCRATCH AREAS.
    719						%
    720
    721	006224				DBUF:	.BLKW	16.*3	;SCRATCH...ENUF FOR 16 ACS
    722	006364	000000 	000000 	000000 	REAPWD: .WORD	0,0,0	;GENERALLY USED FOR EDITING DATA
    723
    724		000420 			MBDCML=.-MBDCMS	;LENGTH OF BLOCK TO 0
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 166
MEMORY BOOT DATA AREA

    726
    727					.REM	%
    728						CONSTANT DATA.
    729						%
    730
    731	006372	   040 	   040 	   103 	TYPE0:	.ASCIZ	/  CUST./	;MEMORY TYPE TEXT
    732	006402	   040 	   040 	   040 	TYPE1:	.ASCIZ	/   MA20/
    733	006412	   040 	   040 	   104 	TYPE2:	.ASCIZ	/  DMA20/
    734	006422	   040 	   040 	   040 	TYPE3:	.ASCIZ	/   MB20/
    735	006432	   040 	   040 	   040 	TYPE4:	.ASCIZ	/   MX20/
    736	006442	   040 	   040 	   040 	TYPE5:	.ASCIZ	/   MF20/
    737	006452	   102 	   125 	   123 	TYPE6:	.ASCIZ	/BUS REC/
    738	006462	   040 	   125 	   116 	TYPE7:	.ASCIZ	/ UNDEF./
    739
    740	006472	   000 	   001 	   001 	BITCNT: .BYTE	0,1,1,2,1,2,2,3,1,2,2,3,2,3,3,4 ;# ONE BITS TABLE
    741
    742	006512	   020 	   010 	   004 	BSIZE:	.BYTE	16.,8.,4.,1.	;RAM SIZ CODE => BLOCK SIZE/16K TABLE
    743
    744	006516				SDMSBR:	WD36	7600,0407,7407	;MASK TO CHK MF20 SPARE BIT RAM LOAD
	006516	   007 	   177 	   020
	006521	   200 	   017
    745	006523				LADRRM:	WD36	7600,0417,7412	;FSD MSK FOR MF20 ADRESP RAM LOAD
	006523	   012 	   377 	   020
	006526	   200 	   017
    746						.EVEN
    747
    748
    749					.REM	%
    750						INTERNAL FLAGS WHICH USED TO BE IN LINE AND WHICH ARE INITIALIZED TO -1
    751					BY MBINI.  THESE SHOULD NEVER BE TOUCHED BY THE CONTROL PROGRAM.
    752						%
    753
    754	006530				MBDIFS:	;START OF BLOCK TO SET TO -1
    755
    756	006530	177777 			MABCNI:	-1
    757	006532	177777 			DDCADM:	-1
    758	006534	177777 			XMAL:	-1
    759	006536	177777 			D16KBN:	-1
    760	006540	177777 			DPDSRS:	-1
    761	006542	177777 			BTFLCN:	-1
    762
    763		000014 			MBDIFL=.-MBDIFS	;LENGTH OF BLOCK TO SET TO -1
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 167
MEMORY BOOT DATA AREA

    766					.REM	%
    767						THE SIZE TABLES ARE THE MOST BASIC RESDET TABLES.  IF A SIZE TABLE ENTRY
    768					IS NON-ZERO IT MEANS THERE IS SOME SORT OF MEMORY THERE.  ALL SIZES ARE IN TERMS
    769					OF 16K.  ALSO, THE HIGH ORDER BIT OF EACH ENTRY IS NOT PART OF THE SIZE.  IF SET
    770					IT MEANS THAT THIS MA20/MB20 CONTROLLER OR MF20 BLOCK HAS BEEN ALLOCATED BY
    771					FITMEM.  THIS BIT IS SET BY NEGATING THE + SIZE TO MAKE IT NEGATIVE.  MORE
    772					DETAILED DESCRIPTIONS ARE GIVEN WITH EACH TABLE BELOW.
    773						THE ADDRESS START INFO CAN MEANS VARIOUS THINGS FOR VARIOUS CONTROLLER
    774					TYPES AT DIFFERENT TIMES DURING THE MEMORY BOOT.  AS WITH THE SIZE INFO THESE
    775					TABLE ENTRIES ARE IN THE 16K FORMAT.  SEE EACH INDIVIDUAL ADDRESS START GROUP
    776					FOR A DESCRIPTION.
    777						EACH CONTROLLER TYPE HAS ITS OWN PECULIAR DATA.  THIS DATA IS DETAILED
    778					BELOW IN THE INDIVIDUAL CONTROLLER TYPE DATA SECTIONS.
    779
    780
    781						THE MA20/MB20 SIZE TABLE (MABSIZ) GIVES THE "ROTATED-CONTIGUOUS" SIZE OF
    782					A GIVEN CONTROLLER OR CONTROLLER PAIR, IN WHICH CASE THE ODD CONTROLLER WILL
    783					HAVE A SIZE OF 0 WHILE THE INTERLEAVE BYTE IS 2 OR 3 (4 WAY).
    784						THE MA20/MB20 START ADDRESS BYTES (MABSA) HAVE TWO MEANINGS: AFTER
    785					RESDET THEY ARE THE "ROTATED-CONTIGUOUS" START ADDRESS AND MUST BE USED IN
    786					CONJUNCTION WITH THE MA20/MB20 ADDRESS-DONT-CARE MASKS (MABADC).  AFTER FITMEM
    787					THEY ARE THE REAL PYSICAL ADDRESSES TO BE USED.  THESE ADDRESSES ARE SET
    788					REGARDLESS OF PAIRING.
    789						THE MA20/MB20 INTERLEAVE BYTES (MABINT) ARE DETERMINED BY MABDET AND
    790					RELATE TO THE PRESENSE OF MODULES AND THE SETTING OF THE VARIABLE INTMOD.
    791						%
    792
    793	006544				MBDABS:	;START OF INTERNAL CORE DATA TO CLEAR
    794
    796	006544	   000 	   000 	   000 	MABSIZ:	.BYTE	0,0,0,0	;ROTATED CONTIGUOUS SIZE/16K, CONTR 0-3
    797	006550	   000 	   000 	   000 	MABSA:	.BYTE	0,0,0,0	;START ADRS FOR CONTRS 0-3
    798	006554	   000 	   000 	   000 	MABADC:	.BYTE	0,0,0,0	;ADR-DONT-CARE MASKS FOR ABOVE
    799	006560	   000 	   000 	   000 	MABINT:	.BYTE	0,0,0,0	;INTRLV BYTES FOR MA20/MB20
    806
    807		000020 			MBDABL=.-MBDABS ;LEN OF DATA TO CLEAR
    808
    809					.REM	%
    810						THE DMA20 SIZE TABLE ALLOWS EXTERNAL MEMORY TO BE BROKEN UP INTO AS MANY
    811					AS 16 PIECES.  NOTE THAT THE "ALLOCATED" BIT IS NEVER SET AS THIS MEMORY IS
    812					ALWAYS "ALLOCATED".
    813						%
    814
    815	006564				MBDDMS:	;START OF DMA20 DATA TO CLEAR
    816
    817	006564	000000 			DMA2TS:	.WORD	0	;# OF ENTRIES IN TABLE
    818	006566				DMA20T:	.BLKW	32.	;UP TO 16 PAIRS: START ADR, SIZE.  FORMAT LIKE GAPTAB.
    819	006666	000000 			DMANXM:	.WORD	0	;DMA20 4-WORD NXM RESPONSE MASK: 7400 FOR 4 BUS MODE,
    820								;360 FOR 2 BUS, 17 FOR 1 BUS. 4 ZEROS = BUS MODE OK
    821	006670	   000 			DMABM:	.BYTE	0	;DMA20 BUS MODE BYTE
    822	006671	   000 			DMAFRC:	.BYTE	0	;IF NOT 0 THEN DMABM FORCED BY OPR AFTER ERROR
    823	006672	000000 			DMASIZ:	.WORD	0	;EXTERNAL MEMORY TOTAL SIZE (/16K OF COURSE)
    824	006674				DMARMP:	.BLKW	16.	;DMA20 ADDRESS RESPONSE MAP
    825
    826		000150 			MBDDML=.-MBDDMS	;LEN OF DMA DATA TO CLEAR
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 168
MEMORY BOOT DATA AREA

    830					.REM	%
    831						FUNCTION BAF CALCULATES THE ADDRESS OF THE SIZE BYTE FOR BLOCK 0 OF AN
    832					MF20 CONTROLLER WHOSE NUMBER IS IN TSTCON.  BAF0 EXPECTS THE NUMBER IN R0.
    833						RAMSZ0, RAMSZ1, TIMNO0, AND TIMNO1 ARE TABLES FILLED WITH DIGESTED ARRAY
    834					BOARD PROM DATA WHICH RELATES TO THE MOS RAM SIZE AND THE REQUIRED TIMING FILE
    835					NUMBERS.  THE INDIVIDUAL TABLE BYTES ARE REFERENCED BY CONTROLLER NUMBER (-10).
    836						THE MF20 BLOCK SIZE BYTES (MDFSIZ) EXIST FOR EVERY POSSIBLE BLOCK (0-13)
    837					FOR EACH POSSIBLE MF20 CONTROLLER (10-17).  BLOCK 0 HAS DISPLACEMENT 0, ETC.
    838						THE MF20 START ADDRESSES (MOSSA) ARE PHYSICAL ADDRESSES AND ARE VALID
    839					AFTER FITMEM.  THEY ARE GIVEN FOR EACH POSSIBLE BLOCK IN ALL POSSIBLE MF20S.
    840						%
    841
    842	006734	013700 	001000'		BAF:	MOV	TSTCON,R0	;GET CONTROLLER #
    843	006740	006300 			BAF0:	ASL	R0		;MULT BY 12.
    844	006742	006300 				ASL	R0
    845	006744					PUSH	R0
	006744	010046 				 MOV	R0,-(SP)
    846	006746	006300 				ASL	R0
    847	006750	062600 				ADD	(SP)+,R0
    848	006752	062700 	006662'			ADD	#MDFSIZ-<12.*MNMFCN>,R0 ;NOW PT TO BYTE LST
    849	006756	000207 				RTS	PC
    850
    851	006760				MBDMFS:	;START OF MF20 DATA FOR CLEAR
    852
    853	006760	000000 			XCONMP:	.WORD	0		;MOSDET PUTS "CPU-CONNECTED" MAP HERE
    854
    855	006762				RAMSZ0:	.BLKB	<MXMFCN-MNMFCN+1> ;RAM SIZE FOR TYPSEL=0 BY CONTR
    856	006772				RAMSZ1:	.BLKB	<MXMFCN-MNMFCN+1> ;DITTO FOR TYPSEL=1
    857	007002				TIMNO0:	.BLKB	<MXMFCN-MNMFCN+1> ;TIMING # FOR TYPSEL=0 BY CONTR
    858	007012				TIMNO1:	.BLKB	<MXMFCN-MNMFCN+1> ;DITTO FOR TYPSEL=1
    859
    860	007022				MDFSIZ:	.BLKB	<MXMFCN-MNMFCN+1>*12. ;MOS BLOCK SIZE INFO, 12. BYTES PER MF20
    861
    863	007162				MOSSA:	.BLKB	<MXMFCN-MNMFCN+1>*12. ;MOS BLOCK START ADRS, 12. BYTES PER MF20
    864
    865	007322				RSPMAP:	.BLKW	16.	;COMBINED ADDRESS RESPONSE OF ALL MF20S AND DMA20
    866
    868		000402 			MBDMFL=.-MBDMFS	;LENGTH OF BLOCK TO CLEAR
    869
    875
    876
    878					.REM	%
    879						FUTURE DATA AREA FOR MX20 WILL GO HERE.
    880						%
    881
    882	007362				MBDMXS:	;START OF BLOCK TO 0
    883	007362	000000 				.WORD	0	;DUMMY
    884		000002 			MBDMXL=.-MBDMXS	;LENGTH OF BLOCK TO CLEAR
    886		000001 				.END
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 168-1
SYMBOL TABLE

AC    = 000000   	ANDCM = 000420   	BLK0  = 000000   	CLKTYP  001732R  	DMARD   005755RG
ACBLK   001136R  	ANDCMB= 000423   	BLK1  = 000001   	CLRMR = 000006   	DMARMP  006674RG
ACBLK1  001140RG 	ANDCMI= 000421   	BLK2  = 000002   	CLRRDD  005734R  	DMASIZ  006672RG
ACC0  = 000001   	ANDCMM= 000422   	BLK3  = 000003   	CNTCNT  006105RG 	DMA2TS  006564RG
ACC1  = 000002   	ANDI  = 000405   	BLK4  = 000004   	CNTSD   000732R  	DMA20   006107RG
ACC10 = 000400   	ANDM  = 000406   	BLK5  = 000005   	CNTSD1  000734RG 	DMA20T  006566RG
ACC11 = 001000   	AOBJN = 000253   	BLK6  = 000006   	CONBUT= 000012   	DMOVE = 000120
ACC12 = 002000   	AOBJP = 000252   	BLT   = 000251   	CONDET= ****** GX	DMOVEM= 000124
ACC13 = 004000   	AOJ   = 000340   	BMTAB   000120RG 	CONDMA= ****** GX	DMOVN = 000121
ACC14 = 010000   	AOJA  = 000344   	BOLPS   003752RG 	CONFGR  005762RG 	DMOVNM= 000125
ACC15 = 020000   	AOJE  = 000342   	BRCLK = 000005   	CONFIG  003536RG 	DMUL  = 000116
ACC16 = 040000   	AOJG  = 000347   	BRCTN = 000006   	CONI  = 000005   	DPB   = 000137
ACC17 = 100000   	AOJGE = 000345   	BRST    001734R  	CONMAB= ****** GX	DPD   = ****** GX
ACC2  = 000004   	AOJL  = 000341   	BRST1   001736R  	CONMMR= 000001   	DPDSRS  006540RG
ACC3  = 000010   	AOJLE = 000343   	BSIZE   006512RG 	CONMOS= ****** GX	DREADY= 001000
ACC4  = 000020   	AOJN  = 000346   	BSYCLR= 000400   	CONMX = ****** GX	DSUB  = 000115
ACC5  = 000040   	AOS   = 000350   	BTFLCN  006542RG 	CONO  = 000004   	D16KBN  006536RG
ACC6  = 000100   	AOSA  = 000354   	BX    = 000027   	CONRD   005754RG 	EQV   = 000444
ACC7  = 000200   	AOSE  = 000352   	BYBITM  000160R  	CONSO = 000007   	EQVB  = 000447
ACLDCM  002302R  	AOSG  = 000357   	B10   = 177751   	CONSZ = 000006   	EQVI  = 000445
ACLDC2  002306R  	AOSGE = 000355   	B11   = 000014   	CONTI   006044RG 	EQVM  = 000446
ACLOAD  002272RG 	AOSL  = 000351   	CACBLK  001316R  	CONTIN  001424RG 	ERBIT   001134R
ACSCAT  002260RG 	AOSLE = 000353   	CACEA   002456R  	CON2    001426R  	ERRSTP= 004000
AC0   = 000000   	AOSN  = 000356   	CACN    002454R  	CON3    001446R  	ER$ABS= 001274RG
AC1   = 000001   	APR   = 000000   	CAI   = 000300   	CPU   = 000200   	ER$APL= 002420RG
AC10  = 000010   	APRID0  000057RG 	CAIA  = 000304   	CPUDSG  005774RG 	ER$CES= 001750RG
AC11  = 000011   	ASH   = 000240   	CAIE  = 000302   	CURKW   001602R  	ER$CTF= 004704RG
AC12  = 000012   	ASHC  = 000244   	CAIG  = 000307   	DADD  = 000114   	ER$EDE= 003322RG
AC13  = 000013   	ASL0.3  000110RG 	CAIGE = 000305   	DATAI = 000001   	ER$FOE= 005076RG
AC14  = 000014   	ASL0.4  000106RG 	CAIL  = 000301   	DATAO = 000003   	ER$IEE= 003336RG
AC15  = 000015   	ASL0.5  000104R  	CAILE = 000303   	DBEFRC  005764RG 	ER$MFE= 000366RG
AC16  = 000016   	ASL0.6  000102RG 	CAIN  = 000306   	DBESCN= ****** GX	ER$PDH= 003352RG
AC17  = 000017   	ASR0.3  000072RG 	CALPAR  003462RG 	DBESFL  006000RG 	ER$SB4= 005016RG
AC2   = 000002   	ASR0.4  000070RG 	CAM   = 000310   	DBUF    006224RG 	EVENT   001760R
AC3   = 000003   	ASR0.5  000066RG 	CAMA  = 000314   	DDCADM  006532RG 	EVENTA  001760R
AC4   = 000004   	ASR0.6  000064RG 	CAME  = 000312   	DDIV  = 000117   	EVENT1  001762R
AC5   = 000005   	BAF     006734RG 	CAMG  = 000317   	DEFERL  002460R  	EVENT2  002002R
AC6   = 000006   	BAF0    006740RG 	CAMGE = 000315   	DE$BUG= 070000   	EVENT3  002072R
AC7   = 000007   	BITCNT  006472RG 	CAML  = 000311   	DFAD  = 000110   	EXCH  = 000250
ADD   = 000270   	BIT0  = 000001   	CAMLE = 000313   	DFDV  = 000113   	EXP16K  005116RG
ADDB  = 000273   	BIT1  = 000002   	CAMN  = 000316   	DFMP  = 000112   	EXTEND= 000123
ADDI  = 000271   	BIT10 = 002000   	CAS   = 020000   	DFN   = 000131   	F     = 000001
ADDM  = 000272   	BIT11 = 004000   	CCA   = 000014   	DFRLST  002512RG 	FAD   = 000140
ADH   = 000000   	BIT12 = 010000   	CCFAIL  005767RG 	DFSB  = 000111   	FADB  = 000143
ADJSP = 000105   	BIT13 = 020000   	CDONE   005761RG 	DIAG  = 000104   	FADL  = 000141
ADL   = 000005   	BIT14 = 040000   	CECLK = 000004   	DIPAG0  000052R  	FADM  = 000142
ADR2ND= 002000   	BIT15 = 100000   	CHKED   003316RG 	DIV   = 000234   	FADR  = 000144
AND   = 000404   	BIT2  = 000004   	CHKP    003346R  	DIVB  = 000237   	FADRB = 000147
ANDB  = 000407   	BIT3  = 000010   	CHKX    003332R  	DIVI  = 000235   	FADRI = 000145
ANDCA = 000410   	BIT4  = 000020   	CIAPR0  000040RG 	DIVM  = 000236   	FADRM = 000146
ANDCAB= 000413   	BIT5  = 000040   	CLEAR = 000400   	DLNXT   002510RG 	FDV   = 000170
ANDCAI= 000411   	BIT6  = 000100   	CLEARB= 000403   	DMABM   006670RG 	FDVB  = 000173
ANDCAM= 000412   	BIT7  = 000200   	CLEARI= 000401   	DMACN = 000004   	FDVL  = 000171
ANDCB = 000440   	BIT8  = 000400   	CLEARM= 000402   	DMACTN= 000002   	FDVM  = 000172
ANDCBB= 000443   	BIT9  = 001000   	CLKERC  001706R  	DMADET= ****** GX	FDVR  = 000174
ANDCBI= 000441   	BLKI  = 000000   	CLKERR  001750R  	DMAFRC  006671RG 	FDVRB = 000177
ANDCBM= 000442   	BLKO  = 000002   	CLKFLG  003270R  	DMANXM  006666RG 	FDVRI = 000175
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 168-2
SYMBOL TABLE

FDVRM = 000176   	HLLZI = 000511   	IDPB  = 000136   	MACTN = 000001   	MOVMS = 000217
FIND    001604R  	HLLZM = 000512   	ILDB  = 000134   	MAP   = 000257   	MOVN  = 000210
FIND1   001604R  	HLLZS = 000513   	ILOST   006001RG 	MAXCN = 000037   	MOVNI = 000211
FIND2   001606R  	HLR   = 000544   	IMUL  = 000220   	MA20    006106RG 	MOVNM = 000212
FITMEM= ****** GX	HLRE  = 000574   	IMULB = 000223   	MBCTN = 000003   	MOVNS = 000213
FITTED  005760RG 	HLREI = 000575   	IMULI = 000221   	MBDABL= 000020   	MOVS  = 000204
FIX   = 000122   	HLREM = 000576   	IMULM = 000222   	MBDABS  006544RG 	MOVSI = 000205
FIXR  = 000126   	HLRES = 000577   	INIDMA  005670RG 	MBDATA= 000001   	MOVSM = 000206
FLTR  = 000127   	HLRI  = 000545   	INIMAB  005704RG 	MBDCML= 000420   	MOVSS = 000207
FMP   = 000160   	HLRM  = 000546   	INIMDF  005654RG 	MBDCMS  005752RG 	MSAMSZ= 000140
FMPB  = 000163   	HLRO  = 000564   	INIMX   005720R  	MBDDML= 000150   	MSTROS  006002RG
FMPL  = 000161   	HLROI = 000565   	INTMOD  005763RG 	MBDDMS  006564RG 	MUL   = 000224
FMPM  = 000162   	HLROM = 000566   	IOR   = 000434   	MBDIFL= 000014   	MULB  = 000227
FMPR  = 000164   	HLROS = 000567   	IORB  = 000437   	MBDIFS  006530RG 	MULI  = 000225
FMPRB = 000167   	HLRS  = 000547   	IORI  = 000435   	MBDMFL= 000402   	MULM  = 000226
FMPRI = 000165   	HLRZ  = 000554   	IORM  = 000436   	MBDMFS  006760RG 	MXBRCN= 000037
FMPRM = 000166   	HLRZI = 000555   	JBOLPS  004364R  	MBDMXL= 000002   	MXCTN = 000004
FMRECN  005765RG 	HLRZM = 000556   	JFCL  = 000255   	MBDMXS  007362RG 	MXMFCN= 000017
FSB   = 000150   	HLRZS = 000557   	JFFO  = 000243   	MBINI   005566RG 	MXMXCN= 000007
FSBB  = 000153   	HRL   = 000504   	JRA   = 000267   	MBINID  005752RG 	MXM.CN= 000003
FSBL  = 000151   	HRLE  = 000534   	JRST  = 000254   	MBROOT= 177777 G 	MX20    006111RG
FSBM  = 000152   	HRLEI = 000535   	JSA   = 000266   	MB20    006110RG 	MX20MD= ****** GX
FSBR  = 000154   	HRLEM = 000536   	JSP   = 000265   	MCOUNT  006104RG 	MX20M6  005770RG
FSBRB = 000157   	HRLES = 000537   	JSR   = 000264   	MDFSIZ  007022RG 	MX20M7  005771RG
FSBRI = 000155   	HRLI  = 000505   	JUMP  = 000320   	MDHDER  004012RG 	NDEFER= 000025
FSBRM = 000156   	HRLM  = 000506   	JUMPA = 000324   	MDINIT= ****** GX	NODFRL  002452R
FSC   = 000132   	HRLO  = 000524   	JUMPE = 000322   	MDRECN  004166RG 	OCFVLN= 000010
FSD     000376RG 	HRLOI = 000525   	JUMPG = 000327   	MDRTRY  003666R  	OCFVST  005762RG
FSDCH   000354RG 	HRLOM = 000526   	JUMPGE= 000325   	MDST0 = ****** GX	OR    = 000434
FSDCHK  000462RG 	HRLOS = 000527   	JUMPL = 000321   	MDST0B  004370R  	ORB   = 000437
FSDCH1  000356R  	HRLS  = 000507   	JUMPLE= 000323   	MDST1   004202R  	ORCA  = 000454
FSDERR  000366R  	HRLZ  = 000514   	JUMPN = 000326   	MDST1A  004272R  	ORCAB = 000457
FSDMSK  000312R  	HRLZI = 000515   	KEEPBB  005766RG 	MDST1B  004244RG 	ORCAI = 000455
FSDM1   000314RG 	HRLZM = 000516   	KLB24   003254R  	MDST1C  004260R  	ORCAM = 000456
FSDPM = 000377   	HRLZS = 000517   	KLB35   003262R  	MDST23= ****** GX	ORCB  = 000470
FSDWDA  000460R  	HRR   = 000540   	LADRRM  006523RG 	MFCTLV  005776R  	ORCBB = 000473
FSD1    000400R  	HRRE  = 000570   	LDANOW  002250R  	MFCTN = 000005   	ORCBI = 000471
FSD2    000414R  	HRREI = 000571   	LDAR  = 000077   	MF20    006112RG 	ORCBM = 000472
GAPCNT  006116RG 	HRREM = 000572   	LDB   = 000135   	MF20RD  005756RG 	ORCM  = 000464
GAPDMY  006120RG 	HRRES = 000573   	LDEFER  002636RG 	MINUS1  001126RG 	ORCMB = 000467
GAPTAB  006124RG 	HRRI  = 000541   	LFSDP   000170RG 	MMRESP  004420RG 	ORCMI = 000465
GETBBD= ****** GX	HRRM  = 000542   	LOOPK   001412R  	MMRPM = 077740   	ORCMM = 000466
GETRPC  001372R  	HRRO  = 000560   	LSBRTN= 000001   	MNBRCN= 000036   	ORI   = 000435
HALTLP= 001000   	HRROI = 000561   	LSBSRL= 000744   	MNMFCN= 000010   	ORM   = 000436
HLL   = 000500   	HRROM = 000562   	LSDM1   000320R  	MNMXCN= 000006   	PAG   = 000010
HLLE  = 000530   	HRROS = 000563   	LSH   = 000242   	MNM.CN= 000000   	PI    = 000004
HLLEI = 000531   	HRRS  = 000543   	LSHC  = 000246   	MNTITF= 000040   	POP   = 000262
HLLEM = 000532   	HRRZ  = 000550   	LSTMB = 000001   	MODELB  005772RG 	POPJ  = 000263
HLLES = 000533   	HRRZI = 000551   	LUBSRL= 000600   	MOSDET  003656R  	PUSH  = 000261
HLLI  = 000501   	HRRZM = 000552   	MABADC  006554RG 	MOSSA   007162RG 	PUSHJ = 000260
HLLM  = 000502   	HRRZS = 000553   	MABCNI  006530RG 	MOVE  = 000200   	PXCT  = 000256
HLLO  = 000520   	I     = 000000   	MABDET= ****** GX	MOVEI = 000201   	P11   = 000014
HLLOI = 000521   	IBP   = 000133   	MABINT  006560RG 	MOVEM = 000202   	QRESET= ****** GX
HLLOM = 000522   	IDIV  = 000230   	MABL    002160RG 	MOVES = 000203   	QXCT    003276R
HLLOS = 000523   	IDIVB = 000233   	MABRD   005757RG 	MOVM  = 000214   	QXCT1   003300RG
HLLS  = 000503   	IDIVI = 000231   	MABSA   006550RG 	MOVMI = 000215   	RAMSZ0  006762RG
HLLZ  = 000510   	IDIVM = 000232   	MABSIZ  006544RG 	MOVMM = 000216   	RAMSZ1  006772RG
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 168-3
SYMBOL TABLE

RAS   = 040000   	SETOM = 000476   	TDN   = 000610   	TSNA  = 000615   	$DMPAC= 070010
RDACWD  001356R  	SETPAR  003440RG 	TDNA  = 000614   	TSNE  = 000613   	$DPOST= ****** GX
RDDONE  005753RG 	SETRAM  001002RG 	TDNE  = 000612   	TSNN  = 000617   	$DTRW1= ****** GX
RDERA0  000045RG 	SETRPC  001376R  	TDNN  = 000616   	TSO   = 000671   	$EB   = 004722R
RDPROM= ****** GX	SETRUN= 000011   	TDO   = 000670   	TSOA  = 000675   	$EVENT= 000001
READAC  001320RG 	SETZ  = 000400   	TDOA  = 000674   	TSOE  = 000673   	$EXAMT= ****** GX
REAPWD  006364RG 	SETZB = 000403   	TDOE  = 000672   	TSON  = 000677   	$EXCT = ****** GX
RESDET  003612RG 	SETZI = 000401   	TDON  = 000676   	TSTCON  001000RG 	$EXP16= 000001
ROT   = 000241   	SETZM = 000402   	TDZ   = 000630   	TSZ   = 000631   	$FATAL= ****** GX
ROTC  = 000245   	SJDATA  001410R  	TDZA  = 000634   	TSZA  = 000635   	$FIND = 000001
RSPMAP  007322RG 	SKIP  = 000330   	TDZE  = 000632   	TSZE  = 000633   	$FSD  = 000001
RST.5   003400RG 	SKIPA = 000334   	TDZN  = 000636   	TSZN  = 000637   	$GETCT= 070020
RS0RS1= 000010   	SKIPE = 000332   	TGN   = 000002   	TYPE0   006372RG 	$IND36= 000003
RS0TN0= 000020   	SKIPG = 000337   	TIMFS = 000044   	TYPE1   006402RG 	$KLMR = ****** GX
RUNBIG  001364RG 	SKIPGE= 000335   	TIMINT  001414R  	TYPE2   006412RG 	$KL10A= 000101
RUNJRS  001416R  	SKIPL = 000331   	TIMNO0  007002RG 	TYPE3   006422RG 	$KL10B= 000102
RUNPRG  001370RG 	SKIPLE= 000333   	TIMNO1  007012RG 	TYPE4   006432RG 	$LDAR = ****** GX
R$$20F= 000001   	SKIPN = 000336   	TLC   = 000641   	TYPE5   006442RG 	$LDEFE= 000001
R5.PC   003420RG 	SMFSS   005172R  	TLCA  = 000645   	TYPE6   006452RG 	$LOADA= 000001
SAV.5   003362RG 	SMFSS0  005166RG 	TLCE  = 000643   	TYPE7   006462R  	$MABL = 000001
SBDG2   000632R  	SMFSS1  005162R  	TLCN  = 000647   	TYPNUM  006004RG 	$MBINI= 000001
SBDG3   000722R  	SMFSS2  005156RG 	TLN   = 000601   	UFA   = 000130   	$MMRES= 000001
SBDI    000620R  	SOJ   = 000360   	TLNA  = 000605   	UNDCTN= 000007   	$MOSDE= 000001
SBDT    000572RG 	SOJA  = 000364   	TLNE  = 000603   	UNDEF   006114RG 	$PATCH= 070004
SBD0    000622RG 	SOJE  = 000362   	TLNN  = 000607   	WENABL= 004000   	$QXCT = 000001
SBSREC  006113R  	SOJG  = 000367   	TLO   = 000661   	W11   = 000000   	$RDERA= 000000
SBSRL   005500RG 	SOJGE = 000365   	TLOA  = 000665   	X     = 000000   	$READA= 000001
SBUS  = 100000   	SOJL  = 000361   	TLOE  = 000663   	XCONMP  006760RG 	$RELOA= 000001
SCAN    005004RG 	SOJLE = 000363   	TLON  = 000667   	XCT   = 000256   	$RESDE= 000001
SDMA    000352R  	SOJN  = 000366   	TLZ   = 000621   	XDV   = 000004   	$RESET= 000001
SDMSBR  006516RG 	SOS   = 000370   	TLZA  = 000625   	XMAL    006534RG 	$RSTAC= 070030
SDWDFM  000724RG 	SOSA  = 000374   	TLZE  = 000623   	XOP   = 000002   	$RUN  = 000001
SD16    000613R  	SOSE  = 000372   	TLZN  = 000627   	XOR   = 000430   	$SAVAC= 070024
SECLK = 000003   	SOSG  = 000377   	TOCTLP  003706R  	XORB  = 000433   	$SBDIA= 000002
SETA  = 000424   	SOSGE = 000375   	TOMFLP  003714R  	XORI  = 000431   	$SBSRL= 000001
SETAB = 000427   	SOSL  = 000371   	TRC   = 000640   	XORM  = 000432   	$SCAN = 000001
SETAI = 000425   	SOSLE = 000373   	TRCA  = 000644   	XR    = 000000   	$SDW  = 000002
SETAM = 000426   	SOSN  = 000376   	TRCE  = 000642   	XSTEP   001702R  	$SETBB= 000001
SETBBD  005262RG 	SSCLK = 000002   	TRCN  = 000646   	XX      000000R  	$SETCM= 000001
SETCA = 000450   	STEP    001670R  	TRN   = 000600   	XXWD    000032RG 	$SETPA= 000001
SETCAB= 000453   	STEPK   001666R  	TRNA  = 000604   	XXX   = 000003   	$SETRA= 000001
SETCAI= 000451   	STEP1   001670R  	TRNE  = 000602   	XX1     000002RG 	$SIZ16= 033061
SETCAM= 000452   	STPCLK= 000000   	TRNN  = 000606   	Z     = 000200   	$SIZ32= 031063
SETCM = 000460   	STRCLK= 000001   	TRO   = 000660   	ZERO..  001120R  	$SIZ4K= 032060
SETCMB= 000463   	STRFSD  000502R  	TROA  = 000664   	$ACBLK= 000001   	$SIZ64= 032066
SETCMI= 000461   	SUB   = 000274   	TROE  = 000662   	$ACRAM= ****** GX	$SMFSS= 000001
SETCMM= 000462   	SUBB  = 000277   	TRON  = 000666   	$APRID= 000000   	$STEP = 000001
SETCMP  005340RG 	SUBI  = 000275   	TRPAR = 010000   	$BP.  = 000160   	$S10. = 155160
SETCON  000714R  	SUBM  = 000276   	TRZ   = 000620   	$BRST = 000001   	$TB   = 000005
SETM  = 000414   	SXCT  = 000106   	TRZA  = 000624   	$BURST= ****** GX	$TDB2O= ****** GX
SETMB = 000417   	TADR  = 000010   	TRZE  = 000622   	$CALPA= 000001   	$TIMLP= 070014
SETMI = 000415   	TBN   = 000004   	TRZN  = 000626   	$CNTSD= 000001   	$TL   = 000012
SETMM = 000416   	TCN   = 000001   	TSC   = 000651   	$CONFI= 000001   	$TTDMS= ****** GX
SETMR = 000007   	TDC   = 000650   	TSCA  = 000655   	$DDFRD= ****** GX	$XX   = 000001
SETO  = 000474   	TDCA  = 000654   	TSCE  = 000653   	$DDFWR= ****** GX	$$APRI= 000000
SETOB = 000477   	TDCE  = 000652   	TSCN  = 000657   	$DDFXC= ****** GX	$$NARG= 000001
SETOI = 000475   	TDCN  = 000656   	TSN   = 000611   	$DFPC = ****** GX	$$RDER= 000004
MBROOT -- MEMORY BOOT ROOT OVER	MACRO M1110  17-SEP-79 08:57  PAGE 168-4
SYMBOL TABLE

$$SBDI= 000004   	$10MB = 070050   	.DFRBK= ****** GX	.SBDIA= 000001   	...   = 000377
$10BC = 070040   	$10RB = 070044   	.RESET  003032RG 	.TICKS= ****** GX	......= 177777
$10BP = 070034   	.DAT3   002156R

. ABS.	000000	   000
      	007364	   001
ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  23943 WORDS  ( 94 PAGES)
DYNAMIC MEMORY:  20620 WORDS  ( 79 PAGES)
ELAPSED TIME:  00:05:27
[56,10]MBROOT,[56,20]MBROOT/-SP/CR=[56,30]MBRASM,MBOVLC,MOSMAC,MBMAC,MOSDEF,MOSSUB,MBROOT
MBROOT     CREATED BY  MACRO  ON 17-SEP-79 AT 09:00	PAGE 1

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

AC    	= 000000	#97-68     #97-68      97-68      97-68     #97-69     #97-69      97-69      97-69     #97-70     
                        #97-70      97-70      97-70     #97-72     #97-72      97-72      97-72     #97-73     #97-73     
                         97-73      97-73     #97-74     #97-74      97-74      97-74     #97-75     #97-75      97-75     
                         97-75     #119-1406   119-1406   119-1406  #157-287   #157-287    157-287    157-287   #157-288   
                        #157-288    157-288    157-288   #157-290   #157-290    157-290    157-290   #157-291   #157-291   
                         157-291    157-291   #157-292   #157-292    157-292    157-292   #157-293   #157-293    157-293   
                         157-293   #157-294    157-294    157-294   
ACBLK 	  001136 R	#117-1268  
ACBLK1	  001140 RG	 7-232      98-207    #117-1269   118-1316   126-1698   128-1869  
ACC0  	= 000001	#19-739    
ACC1  	= 000002	#19-740    
ACC10 	= 000400	#19-747    
ACC11 	= 001000	#19-748    
ACC12 	= 002000	#19-749    
ACC13 	= 004000	#19-750    
ACC14 	= 010000	#19-751    
ACC15 	= 020000	#19-752    
ACC16 	= 040000	#19-753    
ACC17 	= 100000	#19-754    
ACC2  	= 000004	#19-741    
ACC3  	= 000010	#19-742    
ACC4  	= 000020	#19-743    
ACC5  	= 000040	#19-744    
ACC6  	= 000100	#19-745    
ACC7  	= 000200	#19-746    
ACLDCM	  002302 R	 127-1739  #127-1743  
ACLDC2	  002306 R	 127-1735  #127-1744  
ACLOAD	  002272 RG	 7-232      126-1704  #127-1740   156-221   
ACSCAT	  002260 RG	 7-232     #127-1736  
AC0   	= 000000	#12-27      96-12     
AC1   	= 000001	#12-28     
AC10  	= 000010	#12-35     
AC11  	= 000011	#12-36     
AC12  	= 000012	#12-37     
AC13  	= 000013	#12-38     
AC14  	= 000014	#12-39      98-143    
AC15  	= 000015	#12-40      97-92      156-230   
AC16  	= 000016	#12-41      99-236    
AC17  	= 000017	#12-42      99-257    
AC2   	= 000002	#12-29     
AC3   	= 000003	#12-30     
AC4   	= 000004	#12-31     
AC5   	= 000005	#12-32     
AC6   	= 000006	#12-33     
AC7   	= 000007	#12-34      156-224   
ADD   	= 000270	#12-167    
ADDB  	= 000273	#12-170    
ADDI  	= 000271	#12-168     157-293    157-293   
ADDM  	= 000272	#12-169    
ADH   	= 000000	#96-18      96-18      96-18     #96-19      96-19      96-19     #96-20      96-20      96-20     
                        #96-21      96-21      96-21     #97-68      97-68      97-68     #97-69      97-69      97-69     
                        #97-70      97-70      97-70     #97-71      97-71      97-71     #97-72      97-72      97-72     
MBROOT     CREATED BY  MACRO  ON 17-SEP-79 AT 09:00	PAGE 2

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                        #97-73      97-73      97-73     #97-74      97-74      97-74     #97-75      97-75      97-75     
                        #99-229     99-229     99-229    #117-1301   117-1301   117-1301  #119-1406   119-1406   119-1406  
                        #157-287    157-287    157-287   #157-288    157-288    157-288   #157-289    157-289    157-289   
                        #157-290   #157-290    157-290    157-290   #157-291    157-291    157-291   #157-292    157-292   
                         157-292   #157-293    157-293    157-293   #157-294    157-294    157-294   
ADJSP 	= 000105	#12-53     
ADL   	= 000005	#96-18      96-18      96-18     #96-18      96-18      96-18     #96-19      96-19      96-19     
                        #96-19      96-19      96-19     #96-20      96-20      96-20     #96-20      96-20      96-20     
                        #96-21      96-21      96-21     #96-21      96-21      96-21     #97-68      97-68      97-68     
                        #97-68      97-68      97-68     #97-69      97-69      97-69     #97-69      97-69      97-69     
                        #97-70      97-70      97-70     #97-70      97-70      97-70     #97-70      97-70      97-70     
                        #97-71      97-71      97-71     #97-71      97-71      97-71     #97-71      97-71      97-71     
                        #97-72      97-72      97-72     #97-72      97-72      97-72     #97-72      97-72      97-72     
                        #97-73      97-73      97-73     #97-73      97-73      97-73     #97-73      97-73      97-73     
                        #97-74      97-74      97-74     #97-74      97-74      97-74     #97-75      97-75      97-75     
                        #97-75      97-75      97-75     #99-229     99-229     99-229    #99-229     99-229     99-229    
                        #99-229     99-229     99-229    #117-1301   117-1301   117-1301  #117-1301   117-1301   117-1301  
                        #119-1406   119-1406   119-1406  #119-1406   119-1406   119-1406  #157-287    157-287    157-287   
                        #157-287    157-287    157-287   #157-287    157-287    157-287   #157-287    157-287    157-287   
                        #157-287    157-287    157-287   #157-287    157-287    157-287   #157-288    157-288    157-288   
                        #157-288    157-288    157-288   #157-289    157-289    157-289   #157-289    157-289    157-289   
                        #157-289    157-289    157-289   #157-290    157-290    157-290   #157-290    157-290    157-290   
                        #157-290    157-290    157-290   #157-290    157-290    157-290   #157-290    157-290    157-290   
                        #157-290    157-290    157-290    157-290   #157-290    157-290    157-290   #157-291    157-291   
                         157-291   #157-291    157-291    157-291   #157-291    157-291    157-291   #157-292    157-292   
                         157-292   #157-292    157-292    157-292   #157-292    157-292    157-292   #157-292    157-292   
                         157-292   #157-292    157-292    157-292   #157-292    157-292    157-292   #157-293    157-293   
                         157-293   #157-293    157-293    157-293   #157-293    157-293    157-293   #157-293    157-293   
                         157-293   #157-294    157-294    157-294   #157-294    157-294    157-294   
ADR2ND	= 002000	#44-205     44-205     44-205    #44-205     44-205     44-205    #44-205     44-205     44-205    
                        #44-205     44-205     44-205    #44-205     44-205     44-205    #44-205     44-205     44-205    
                        #44-205     44-205     44-205    #44-205     44-205     44-205    #44-205     44-205     44-205    
                        #44-205     44-205     44-205    #44-205    
AND   	= 000404	#12-247    
ANDB  	= 000407	#12-250    
ANDCA 	= 000410	#12-251    
ANDCAB	= 000413	#12-254    
ANDCAI	= 000411	#12-252    
ANDCAM	= 000412	#12-253    
ANDCB 	= 000440	#12-279    
ANDCBB	= 000443	#12-282    
ANDCBI	= 000441	#12-280    
ANDCBM	= 000442	#12-281    
ANDCM 	= 000420	#12-259     97-73      97-73     
ANDCMB	= 000423	#12-262    
ANDCMI	= 000421	#12-260    
ANDCMM	= 000422	#12-261    
ANDI  	= 000405	#12-248    
ANDM  	= 000406	#12-249    
AOBJN 	= 000253	#12-153    
AOBJP 	= 000252	#12-152    
AOJ   	= 000340	#12-207    
MBROOT     CREATED BY  MACRO  ON 17-SEP-79 AT 09:00	PAGE 3

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

AOJA  	= 000344	#12-211    
AOJE  	= 000342	#12-209    
AOJG  	= 000347	#12-214    
AOJGE 	= 000345	#12-212    
AOJL  	= 000341	#12-208    
AOJLE 	= 000343	#12-210    
AOJN  	= 000346	#12-213    
AOS   	= 000350	#12-215    
AOSA  	= 000354	#12-219    
AOSE  	= 000352	#12-217    
AOSG  	= 000357	#12-222    
AOSGE 	= 000355	#12-220    
AOSL  	= 000351	#12-216    
AOSLE 	= 000353	#12-218    
AOSN  	= 000356	#12-221    
APR   	= 000000	#12-449     55-130     96-18     
APRID0	  000057 RG	 7-232     #96-21     
ASH   	= 000240	#12-143    
ASHC  	= 000244	#12-147    
ASL0.3	  000110 RG	 7-232     #96-35      117-1271  
ASL0.4	  000106 RG	 7-233     #96-34     
ASL0.5	  000104 R	#96-33     
ASL0.6	  000102 RG	 7-233     #96-32     
ASR0.3	  000072 RG	 7-233     #96-28      128-1873   161-502   
ASR0.4	  000070 RG	 7-233     #96-27      136-2203  
ASR0.5	  000066 RG	 7-241     #96-26     
ASR0.6	  000064 RG	 7-233     #96-25      160-438   
BAF   	  006734 RG	 7-217      154-138    155-177    156-254   #168-842   
BAF0  	  006740 RG	 7-217     #168-843   
BITCNT	  006472 RG	 7-215      136-2206  #166-740   
BIT0  	= 000001	#4-63       96-41      96-46      132-2027  
BIT1  	= 000002	#4-64       96-41      96-46      132-2027  
BIT10 	= 002000	#4-73       96-42     
BIT11 	= 004000	#4-74       4-81       96-42     
BIT12 	= 010000	#4-75       96-42     
BIT13 	= 020000	#4-76       96-42     
BIT14 	= 040000	#4-77       96-42     
BIT15 	= 100000	#4-78       26-1126    96-42     
BIT2  	= 000004	#4-65       96-41      96-46      132-2027  
BIT3  	= 000010	#4-66       96-41      96-46     
BIT4  	= 000020	#4-67       96-41      96-46     
BIT5  	= 000040	#4-68       96-41      96-46     
BIT6  	= 000100	#4-69       96-41      96-46     
BIT7  	= 000200	#4-70       26-1125    96-41      96-46     
BIT8  	= 000400	#4-71       96-41     
BIT9  	= 001000	#4-72       4-80       96-42     
BLKI  	= 000000	#12-440     55-129     55-131    
BLKO  	= 000002	#12-442     55-127    
BLK0  	= 000000	#12-44     
BLK1  	= 000001	#12-45     
BLK2  	= 000002	#12-46     
BLK3  	= 000003	#12-47     
MBROOT     CREATED BY  MACRO  ON 17-SEP-79 AT 09:00	PAGE 4

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

BLK4  	= 000004	#12-48     
BLK5  	= 000005	#12-49     
BLK6  	= 000006	#12-50      98-195    
BLT   	= 000251	#12-151    
BMTAB 	  000120 RG	 7-241     #96-41      124-1631  
BOLPS 	  003752 RG	 7-225      154-115   #154-121    154-147    155-162    155-174    155-192   
BRCLK 	= 000005	#55-122    
BRCTN 	= 000006	#43-170    
BRST  	  001734 R	 117-1284  #122-1545  
BRST1 	  001736 R	#122-1546  
BSIZE 	  006512 RG	 7-220     #166-742   
BSYCLR	= 000400	#44-207     44-207     44-207    #44-207     44-207     44-207    #44-207     44-207     44-207    
                        #44-207     44-207     44-207    #44-207     44-207     44-207    #44-207     44-207     44-207    
                        #44-207     44-207     44-207    #44-207     44-207     44-207    #44-207    
BTFLCN	  006542 RG	 7-206     #166-761   
BX    	= 000027	#117-1285   117-1285  
BYBITM	  000160 R	#96-46     
B10   	= 177751	#117-1285   117-1285   117-1285  
B11   	= 000014	#117-1285   117-1285   117-1285  
CACBLK	  001316 R	 98-195    *117-1270  #117-1307  *120-1418   127-1832  *128-1854   128-1866   132-1994  *132-1994  
CACEA 	  002456 R	*126-1694   126-1701  *127-1763   127-1777  *127-1793  #127-1801  
CACN  	  002454 R	*127-1744   127-1775  *127-1790  #127-1800   127-1833  
CAI   	= 000300	#12-175    
CAIA  	= 000304	#12-179    
CAIE  	= 000302	#12-177    
CAIG  	= 000307	#12-182    
CAIGE 	= 000305	#12-180    
CAIL  	= 000301	#12-176    
CAILE 	= 000303	#12-178    
CAIN  	= 000306	#12-181    
CALPAR	  003462 RG	 7-234      136-2183  #136-2198  
CAM   	= 000310	#12-183    
CAMA  	= 000314	#12-187    
CAME  	= 000312	#12-185    
CAMG  	= 000317	#12-190    
CAMGE 	= 000315	#12-188    
CAML  	= 000311	#12-184    
CAMLE 	= 000313	#12-186    
CAMN  	= 000316	#12-189    
CAS   	= 020000	#44-202     44-202     44-202    #44-202     44-202     44-202    #44-202     44-202     44-202    
                        #44-202     44-202     44-202    #44-202     44-202     44-202    #44-202     44-202     44-202    
                        #44-202     44-202     44-202    #44-202     44-202     44-202    #44-202     44-202     44-202    
                        #44-202     44-202     44-202    #44-202     44-202     44-202    #44-202     44-202     44-202    
                        #44-202     44-202     44-202    #44-202    
CCA   	= 000014	#12-452    
CCFAIL	  005767 RG	 7-227     *154-103   *154-148   #164-665   
CDONE 	  005761 RG	 7-208     *152-39    *163-616   #164-640   
CECLK 	= 000004	#55-119     117-1289  
CHKED 	  003316 RG	 7-234      97-98      98-149     99-242     99-259     118-1331   129-1911  #134-2065   156-237   
CHKP  	  003346 R	 120-1466  #134-2081  
CHKX  	  003332 R	 133-2043  #134-2073  
CIAPR0	  000040 RG	 7-234     #96-18     
MBROOT     CREATED BY  MACRO  ON 17-SEP-79 AT 09:00	PAGE 5

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

CLEAR 	= 000400	#12-239    
CLEARB	= 000403	#12-245    
CLEARI	= 000401	#12-241    
CLEARM	= 000402	#12-243    
CLKERC	  001706 R	 122-1522  #122-1526   122-1547  
CLKERR	  001750 R	 120-1459   122-1533  #122-1554  
CLKFLG	  003270 R	 120-1450   122-1532   132-1996  #132-2027  
CLKTYP	  001732 R	#122-1538   125-1645  
CLRMR 	= 000006	#55-120    
CLRRDD	  005734 R	 152-54     163-583    163-590    163-597    163-604   #163-614   
CNTCNT	  006105 RG	 7-211     #165-699   
CNTSD 	  000732 R	#99-279    
CNTSD1	  000734 RG	 7-234      98-124     99-231    #99-280     100-318    129-1895   156-217   
CONBUT	= 000012	#55-124     98-214     117-1282   120-1416  
CONDET	= ******  GX	 152-55    
CONDMA	= ******  GX	 152-35    
CONFGR	  005762 RG	 7-208     #164-652   
CONFIG	  003536 RG	 7-227     #152-32    
CONI  	= 000005	#12-445     96-18     
CONMAB	= ******  GX	 152-36    
CONMMR	= 000001	#3-54       6-167      7-229     
CONMOS	= ******  GX	 152-38    
CONMX 	= ******  GX	 152-37    
CONO  	= 000004	#12-444    
CONRD 	  005754 RG	 7-207     #164-634   
CONSO 	= 000007	#12-447    
CONSZ 	= 000006	#12-446    
CONTI 	  006044 RG	 7-210      154-135    155-161    155-197   *159-384   #165-694   
CONTIN	  001424 RG	 7-234     #120-1413   156-226   
CON2  	  001426 R	 119-1400  #120-1414  
CON3  	  001446 R	#120-1418  
CORDET	= ******	 3-8        7-244     
CPU   	= 000200	#26-1125    98-206     152-34    
CPUDSG	  005774 RG	 7-210     #165-683   
CURKW 	  001602 R	*120-1437   120-1445  #120-1485  
DADD  	= 000114	#12-59     
DATAI 	= 000001	#12-441     96-20     
DATAO 	= 000003	#12-443     117-1301  
DBEFRC	  005764 RG	 7-208     *154-125    155-158   #164-657   
DBEOVL	= ******	 3-10       9-303     
DBESCN	= ******  GX	 155-199   
DBESFL	  006000 RG	 7-225     *154-107   #165-686   
DBUF  	  006224 RG	 7-213      156-222    156-243    156-247    156-251   #165-721   
DDCADM	  006532 RG	 7-205     #166-757   
DDIV  	= 000117	#12-62     
DEFERL	  002460 R	 127-1760  #127-1811  
DE$BUG	= 070000	#12-8      
DFAD  	= 000110	#12-55     
DFDV  	= 000113	#12-58     
DFMP  	= 000112	#12-57     
DFN   	= 000131	#12-72     
DFRLST	  002512 RG	 7-235     #127-1841   128-1855  
MBROOT     CREATED BY  MACRO  ON 17-SEP-79 AT 09:00	PAGE 6

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

DFSB  	= 000111	#12-56     
DHKBF 	= ******	 166-764    167-828   
DHKBG 	= ******	 148-2823   166-764    168-862    168-870   
DIACON	= ******	 98-158     117-1277  
DIAG  	= 000104	#12-52     
DIPAG0	  000052 R	#96-20     
DIV   	= 000234	#12-139    
DIVB  	= 000237	#12-142    
DIVI  	= 000235	#12-140    
DIVM  	= 000236	#12-141    
DLNXT 	  002510 RG	 7-235      127-1825  *127-1835  #127-1840   128-1856  
DMABM 	  006670 RG	 7-216     #167-821   
DMACN 	= 000004	#43-160    
DMACTN	= 000002	#43-159    
DMADET	= ******  GX	 152-56    
DMAFRC	  006671 RG	 7-217     #167-822   
DMANXM	  006666 RG	 7-225     #167-819   
DMARD 	  005755 RG	 7-207     #164-635   
DMARMP	  006674 RG	 7-217     #167-824   
DMASIZ	  006672 RG	 7-217     #167-823   
DMA2TS	  006564 RG	 7-216     #167-817   
DMA20 	  006107 RG	 7-211     #165-701   
DMA20T	  006566 RG	 7-216     #167-818   
DMOVE 	= 000120	#12-63     
DMOVEM	= 000124	#12-67     
DMOVN 	= 000121	#12-64     
DMOVNM	= 000125	#12-68     
DMUL  	= 000116	#12-61     
DPB   	= 000137	#12-78     
DPD   	= ******  GX	 155-170   
DPDSRS	  006540 RG	 7-206     #166-760   
DREADY	= 001000	#44-206     44-206     44-206    #44-206     44-206     44-206    #44-206     44-206     44-206    
                        #44-206     44-206     44-206    #44-206     44-206     44-206    #44-206     44-206     44-206    
                        #44-206     44-206     44-206    #44-206     44-206     44-206    #44-206     44-206     44-206    
                        #44-206    
DSUB  	= 000115	#12-60     
D16KBN	  006536 RG	 7-205     #166-759   
EQV   	= 000444	#12-283    
EQVB  	= 000447	#12-286    
EQVI  	= 000445	#12-284    
EQVM  	= 000446	#12-285    
ERBIT 	  001134 R	#107-708   
ERRSTP	= 004000	#4-81       120-1454   122-1527  
ER$ABS	= 001274 RG	#117-1293  
ER$APL	= 002420 RG	#127-1788  
ER$CES	= 001750 RG	#122-1554  
ER$CTF	= 004704 RG	#157-279   
ER$EDE	= 003322 RG	#134-2068  
ER$FOE	= 005076 RG	#158-337   
ER$IEE	= 003336 RG	#134-2076  
ER$MFE	= 000366 RG	#97-111    
ER$PDH	= 003352 RG	#134-2084  
MBROOT     CREATED BY  MACRO  ON 17-SEP-79 AT 09:00	PAGE 7

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

ER$SB4	= 005016 RG	#158-316   
EVENT 	  001760 R	#124-1604  
EVENTA	  001760 R	#124-1605  
EVENT1	  001762 R	#124-1606  
EVENT2	  002002 R	 121-1500   124-1608  #124-1620  
EVENT3	  002072 R	 121-1502   124-1636  #125-1645  
EXCH  	= 000250	#12-150    
EXP16K	  005116 RG	 7-223     #159-346   
EXTEND	= 000123	#12-66     
F     	= 000001	#117-1285  #117-1285   117-1285  
FAD   	= 000140	#12-79     
FADB  	= 000143	#12-82     
FADL  	= 000141	#12-80     
FADM  	= 000142	#12-81     
FADR  	= 000144	#12-83     
FADRB 	= 000147	#12-86     
FADRI 	= 000145	#12-84     
FADRM 	= 000146	#12-85     
FDV   	= 000170	#12-103    
FDVB  	= 000173	#12-106    
FDVL  	= 000171	#12-104    
FDVM  	= 000172	#12-105    
FDVR  	= 000174	#12-107    
FDVRB 	= 000177	#12-110    
FDVRI 	= 000175	#12-108    
FDVRM 	= 000176	#12-109    
FIND  	  001604 R	 117-1285  #121-1495  
FIND1 	  001604 R	#121-1496  
FIND2 	  001606 R	#121-1497  
FITCON	= ******	 3-11       10-325    
FITMEM	= ******  GX	 152-33    
FITTED	  005760 RG	 7-207     *163-615   #164-639   
FIX   	= 000122	#12-65     
FIXR  	= 000126	#12-69     
FLTR  	= 000127	#12-70     
FMP   	= 000160	#12-95     
FMPB  	= 000163	#12-98     
FMPL  	= 000161	#12-96     
FMPM  	= 000162	#12-97     
FMPR  	= 000164	#12-99     
FMPRB 	= 000167	#12-102    
FMPRI 	= 000165	#12-100    
FMPRM 	= 000166	#12-101    
FMRECN	  005765 RG	 7-209     *152-40    *154-151   #164-660   
FSB   	= 000150	#12-87     
FSBB  	= 000153	#12-90     
FSBL  	= 000151	#12-88     
FSBM  	= 000152	#12-89     
FSBR  	= 000154	#12-91     
FSBRB 	= 000157	#12-94     
FSBRI 	= 000155	#12-92     
FSBRM 	= 000156	#12-93     
MBROOT     CREATED BY  MACRO  ON 17-SEP-79 AT 09:00	PAGE 8

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

FSC   	= 000132	#12-73     
FSD   	  000376 RG	 7-235     #98-122     162-552   
FSDCH 	  000354 RG	 7-235     #97-106    
FSDCHK	  000462 RG	 7-235     #98-183     159-382   
FSDCH1	  000356 R	#97-108     98-187    
FSDERR	  000366 R	 97-109    #97-111     100-323   
FSDMSK	  000312 R	#97-86     
FSDM1 	  000314 RG	 7-236     #97-87      155-188    162-551   
FSDPM 	= 000377	 97-63     #97-80      97-80      97-80     #97-80      97-80      97-80     #97-80      97-80     
                         97-80     #97-80      97-80      97-80     #97-80      97-80      97-80     #97-80      97-80     
                         97-80     #97-80      97-80      97-80     #97-80      97-80      97-80     #97-80     
FSDWDA	  000460 R	*98-123     98-142    #98-178    *100-317   
FSD1  	  000400 R	 97-108    #98-123    
FSD2  	  000414 R	#98-126     100-320   
GAPCNT	  006116 RG	 7-212     #165-710   
GAPDMY	  006120 RG	 7-212     *163-567   #165-711   
GAPTAB	  006124 RG	 7-213     #165-712   
GETBBD	= ******  GX	 155-173   
GETRPC	  001372 R	 119-1396  #119-1398  
HALTLP	= 001000	#4-80       98-152     98-199     120-1439  
HLL   	= 000500	#12-311    
HLLE  	= 000530	#12-335    
HLLEI 	= 000531	#12-336    
HLLEM 	= 000532	#12-337    
HLLES 	= 000533	#12-338    
HLLI  	= 000501	#12-312    
HLLM  	= 000502	#12-313    
HLLO  	= 000520	#12-327    
HLLOI 	= 000521	#12-328    
HLLOM 	= 000522	#12-329    
HLLOS 	= 000523	#12-330    
HLLS  	= 000503	#12-314    
HLLZ  	= 000510	#12-319    
HLLZI 	= 000511	#12-320    
HLLZM 	= 000512	#12-321    
HLLZS 	= 000513	#12-322    
HLR   	= 000544	#12-347    
HLRE  	= 000574	#12-371    
HLREI 	= 000575	#12-372    
HLREM 	= 000576	#12-373    
HLRES 	= 000577	#12-374    
HLRI  	= 000545	#12-348    
HLRM  	= 000546	#12-349    
HLRO  	= 000564	#12-363    
HLROI 	= 000565	#12-364    
HLROM 	= 000566	#12-365    
HLROS 	= 000567	#12-366    
HLRS  	= 000547	#12-350    
HLRZ  	= 000554	#12-355    
HLRZI 	= 000555	#12-356    
HLRZM 	= 000556	#12-357    
HLRZS 	= 000557	#12-358    
MBROOT     CREATED BY  MACRO  ON 17-SEP-79 AT 09:00	PAGE 9

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

HRL   	= 000504	#12-315    
HRLE  	= 000534	#12-339    
HRLEI 	= 000535	#12-340    
HRLEM 	= 000536	#12-341    
HRLES 	= 000537	#12-342    
HRLI  	= 000505	#12-316    
HRLM  	= 000506	#12-317    
HRLO  	= 000524	#12-331    
HRLOI 	= 000525	#12-332    
HRLOM 	= 000526	#12-333    
HRLOS 	= 000527	#12-334    
HRLS  	= 000507	#12-318    
HRLZ  	= 000514	#12-323    
HRLZI 	= 000515	#12-324    
HRLZM 	= 000516	#12-325    
HRLZS 	= 000517	#12-326    
HRR   	= 000540	#12-343    
HRRE  	= 000570	#12-367    
HRREI 	= 000571	#12-368    
HRREM 	= 000572	#12-369    
HRRES 	= 000573	#12-370    
HRRI  	= 000541	#12-344    
HRRM  	= 000542	#12-345    
HRRO  	= 000560	#12-359    
HRROI 	= 000561	#12-360    
HRROM 	= 000562	#12-361    
HRROS 	= 000563	#12-362    
HRRS  	= 000543	#12-346    
HRRZ  	= 000550	#12-351    
HRRZI 	= 000551	#12-352    
HRRZM 	= 000552	#12-353    
HRRZS 	= 000553	#12-354    
I     	= 000000	#96-18      96-18     #96-19      96-19     #96-20      96-20     #96-21      96-21     #97-68     
                         97-68     #97-69      97-69     #97-70      97-70     #97-71      97-71     #97-72      97-72     
                        #97-73      97-73     #97-74      97-74     #97-75      97-75     #99-229     99-229    #117-1301  
                         117-1301  #119-1406   119-1406  #157-287    157-287   #157-288    157-288   #157-289    157-289   
                        #157-290    157-290   #157-291    157-291   #157-292    157-292   #157-293    157-293   #157-294   
                         157-294   
IBP   	= 000133	#12-74     
IDIV  	= 000230	#12-135    
IDIVB 	= 000233	#12-138    
IDIVI 	= 000231	#12-136    
IDIVM 	= 000232	#12-137    
IDPB  	= 000136	#12-77     
ILDB  	= 000134	#12-75     
ILOST 	  006001 RG	 7-210     #165-687   
IMUL  	= 000220	#12-127    
IMULB 	= 000223	#12-130    
IMULI 	= 000221	#12-128    
IMULM 	= 000222	#12-129    
INIDMA	  005670 RG	 7-222      163-572   #163-587   
INIMAB	  005704 RG	 7-222      163-571   #163-594   
MBROOT     CREATED BY  MACRO  ON 17-SEP-79 AT 09:00	PAGE 10

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

INIMDF	  005654 RG	 7-222      163-573   #163-580   
INIMX 	  005720 R	 163-574   #163-601   
INTMOD	  005763 RG	 7-208     #164-654   
IOR   	= 000434	#12-271    
IORB  	= 000437	#12-277    
IORI  	= 000435	#12-273    
IORM  	= 000436	#12-275    
JBOLPS	  004364 R	#155-192    155-198   
JFCL  	= 000255	#12-155    
JFFO  	= 000243	#12-146    
JRA   	= 000267	#12-166    
JRST  	= 000254	#12-154     97-75      97-75      119-1406   119-1406   157-288    157-288    157-294    157-294   
JSA   	= 000266	#12-165    
JSP   	= 000265	#12-164    
JSR   	= 000264	#12-163    
JUMP  	= 000320	#12-191    
JUMPA 	= 000324	#12-195    
JUMPE 	= 000322	#12-193     97-69      97-69      97-74      97-74     
JUMPG 	= 000327	#12-198    
JUMPGE	= 000325	#12-196    
JUMPL 	= 000321	#12-192    
JUMPLE	= 000323	#12-194    
JUMPN 	= 000326	#12-197    
KEEPBB	  005766 RG	 7-209     *154-152   #164-661   
KLB24 	  003254 R	 132-1984  #132-2023  
KLB35 	  003262 R	 132-1997  #132-2024  
LADRRM	  006523 RG	 7-220      155-188   #166-745   
LDANOW	  002250 R	#127-1734  
LDAR  	= 000077	#55-125     117-1290  
LDB   	= 000135	#12-76     
LDEFER	  002636 RG	 7-236     #128-1851  
LFSDP 	  000170 RG	 7-236     #97-62      163-575   
LOOPK 	  001412 R	#119-1403  
LSBRTN	= 000001	#3-58       95-2       148-2821  
LSBSRL	= 000744	#44-209     160-435    160-439    161-499    161-504    161-507    161-510   
LSDM1 	  000320 R	#97-88      98-184    
LSH   	= 000242	#12-145     157-290    157-290   
LSHC  	= 000246	#12-149    
LSTALL	= ******	 12-455     39-1601    40-2       51-493     95-2       148-2821   151-3     
LSTDIA	= ******	 51-494    
LSTMAC	= ******	 12-455     39-1601    40-2       51-493    
LSTMB 	= 000001	#3-57       151-3     
LUBSRL	= 000600	#44-210    
MABADC	  006554 RG	 7-215     #167-798   
MABCNI	  006530 RG	 7-205     #166-756   
MABDET	= ******  GX	 152-57    
MABINT	  006560 RG	 7-216     #167-799   
MABL  	  002160 RG	 7-236      97-63     #126-1685  
MABRD 	  005757 RG	 7-207     #164-637   
MABSA 	  006550 RG	 7-215     #167-797   
MABSIZ	  006544 RG	 7-215     #167-796   
MACTN 	= 000001	#43-154    
MBROOT     CREATED BY  MACRO  ON 17-SEP-79 AT 09:00	PAGE 11

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

MAP   	= 000257	#12-158    
MAXCN 	= 000037	#43-152     165-693    165-694   
MA20  	  006106 RG	 7-211     #165-700   
MBCTN 	= 000003	#43-155    
MBDABL	= 000020	 163-594   #167-807   
MBDABS	  006544 RG	 7-215     *163-595   #167-793    167-807   
MBDATA	= 000001	#6-174      163-620   
MBDCML	= 000420	 163-564   #165-724   
MBDCMS	  005752 RG	 7-206     *163-565   #164-629    165-724   
MBDDML	= 000150	 163-587   #167-826   
MBDDMS	  006564 RG	 7-216     *163-588   #167-815    167-826   
MBDIFL	= 000014	 163-568   #166-763   
MBDIFS	  006530 RG	 7-205     *163-569   #166-754    166-763   
MBDMFL	= 000402	 163-580   #168-868   
MBDMFS	  006760 RG	 7-218     *163-581   #168-851    168-868   
MBDMXL	= 000002	 163-601   #168-884   
MBDMXS	  007362 RG	 7-219     *163-602   #168-882    168-884   
MBINI 	  005566 RG	 7-227     #163-564   
MBINID	  005752 RG	 7-206     *163-576   #164-631   
MBOKLG	= ******	 4-100      6-192     
MBROOT	= 177777  G	#1-1        3-7        5-158     
MB20  	  006110 RG	 7-211     #165-702   
MCOUNT	  006104 RG	 7-211     #165-697   
MDFSIZ	  007022 RG	 7-219      168-848   #168-860    168-871   
MDHDER	  004012 RG	 7-225     #154-134    155-169    155-171    155-190    155-203   
MDINIT	= ******  GX	 154-104   
MDRECN	  004166 RG	 7-226     #154-151   
MDRTRY	  003666 R	#154-104    154-153   
MDST0 	= ******  GX	 154-118   
MDST0B	  004370 R	 154-118   #155-197   
MDST1 	  004202 R	 154-118   #155-158   
MDST1A	  004272 R	#155-176    155-202   
MDST1B	  004244 RG	 7-226     #155-168   
MDST1C	  004260 R	 155-167   #155-172   
MDST23	= ******  GX	 155-164   
MFCTLV	  005776 R	*154-108    154-116   *154-123   #165-685   
MFCTN 	= 000005	#43-166     154-114   
MF20  	  006112 RG	 7-212     #165-704   
MF20RD	  005756 RG	 7-207     *154-126    155-166   #164-636   
MINUS1	  001126 RG	 7-236     #107-706   
MMRESP	  004420 RG	 7-229     #156-216   
MMRPM 	= 077740	 156-221   #157-298    157-298    157-298   #157-298    157-298    157-298   #157-298    157-298   
                         157-298   #157-298    157-298    157-298   #157-298    157-298    157-298   #157-298    157-298   
                         157-298   #157-298    157-298    157-298   #157-298    157-298    157-298   #157-298    157-298   
                         157-298   #157-298    157-298    157-298   #157-298    157-298    157-298   #157-298    157-298   
                         157-298   #157-298    157-298    157-298   #157-298    157-298    157-298   #157-298    157-298   
                         157-298   #157-298   
MNBRCN	= 000036	#43-171    
MNMFCN	= 000010	#43-167     44-181     44-182     44-183     154-109    168-848    168-855    168-856    168-857   
                         168-858    168-860    168-863   
MNMXCN	= 000006	#43-163    
MNM.CN	= 000000	#43-156    
MBROOT     CREATED BY  MACRO  ON 17-SEP-79 AT 09:00	PAGE 12

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

MNTITF	= 000040	#40-31     
MODELB	  005772 RG	 7-209     #165-682   
MOSDET	  003656 R	 152-59    #154-102   
MOSSA 	  007162 RG	 7-219     #168-863    168-871   
MOVE  	= 000200	#12-111     97-70      97-70     
MOVEI 	= 000201	#12-112    
MOVEM 	= 000202	#12-113    
MOVES 	= 000203	#12-114    
MOVM  	= 000214	#12-123    
MOVMI 	= 000215	#12-124    
MOVMM 	= 000216	#12-125    
MOVMS 	= 000217	#12-126    
MOVN  	= 000210	#12-119    
MOVNI 	= 000211	#12-120    
MOVNM 	= 000212	#12-121    
MOVNS 	= 000213	#12-122    
MOVS  	= 000204	#12-115    
MOVSI 	= 000205	#12-116    
MOVSM 	= 000206	#12-117    
MOVSS 	= 000207	#12-118    
MSAMSZ	= 000140	#44-181    *155-182   *157-267    168-871   
MSSCTL	= ******	 3-9        8-268     
MSTROS	  006002 RG	 7-210     #165-690   
MTBL  	= ******	 96-40     
MUL   	= 000224	#12-131    
MULB  	= 000227	#12-134    
MULI  	= 000225	#12-132    
MULM  	= 000226	#12-133    
MXBRCN	= 000037	#43-172    
MXCTN 	= 000004	#43-162    
MXMFCN	= 000017	#43-168     44-181     44-182     44-183     154-121    168-855    168-856    168-857    168-858   
                         168-860    168-863   
MXMXCN	= 000007	#43-164    
MXM.CN	= 000003	#43-157    
MX20  	  006111 RG	 7-212     #165-703   
MX20MD	= ******  GX	 152-58    
MX20M6	  005770 RG	 7-209     #164-671   
MX20M7	  005771 RG	 7-209     #164-672   
NDEFER	= 000025	#127-1809   127-1841  
NODFRL	  002452 R	*127-1734  *127-1743   127-1756  #127-1798  
OCFVLN	= 000010	#164-674   
OCFVST	  005762 RG	 7-208     #164-650    164-674   
OR    	= 000434	#12-272    
ORB   	= 000437	#12-278    
ORCA  	= 000454	#12-291    
ORCAB 	= 000457	#12-294    
ORCAI 	= 000455	#12-292    
ORCAM 	= 000456	#12-293    
ORCB  	= 000470	#12-303    
ORCBB 	= 000473	#12-306    
ORCBI 	= 000471	#12-304    
ORCBM 	= 000472	#12-305    
MBROOT     CREATED BY  MACRO  ON 17-SEP-79 AT 09:00	PAGE 13

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

ORCM  	= 000464	#12-299    
ORCMB 	= 000467	#12-302    
ORCMI 	= 000465	#12-300    
ORCMM 	= 000466	#12-301    
ORI   	= 000435	#12-274    
ORM   	= 000436	#12-276    
PAG   	= 000010	#12-451     96-20      117-1301  
PI    	= 000004	#12-450     55-128     55-132    
POP   	= 000262	#12-161    
POPJ  	= 000263	#12-162    
PUSH  	= 000261	#12-160    
PUSHJ 	= 000260	#12-159    
PXCT  	= 000256	#12-156    
P11   	= 000014	#117-1285   117-1285  
QRESET	= ******  GX	 155-165   
QXCT  	  003276 R	#133-2039  
QXCT1 	  003300 RG	 7-237      99-256     119-1399  #133-2040  
RAMSZ0	  006762 RG	 7-218     #168-855    168-873    168-874   
RAMSZ1	  006772 RG	 7-218     #168-856    168-873   
RAS   	= 040000	#44-201     44-201     44-201    #44-201     44-201     44-201    #44-201     44-201     44-201    
                        #44-201     44-201     44-201    #44-201     44-201     44-201    #44-201     44-201     44-201    
                        #44-201     44-201     44-201    #44-201     44-201     44-201    #44-201     44-201     44-201    
                        #44-201     44-201     44-201    #44-201     44-201     44-201    #44-201     44-201     44-201    
                        #44-201     44-201     44-201    #44-201     44-201     44-201    #44-201    
RDACWD	  001356 R	 118-1319  #118-1335  
RDDONE	  005753 RG	 7-206      152-52    *152-60    *163-614   #164-633   
RDERA0	  000045 RG	 7-237     #96-19     
RDPROM	= ******  GX	 155-168   
READAC	  001320 RG	 7-237     #118-1314  
REAPWD	  006364 RG	 7-213      120-1467   159-348   *162-549   *162-550    162-552   #165-722   
RELEAS	= ******	 12-454     39-1600    40-1       51-492     95-1       97-67      97-80      97-82      98-179    
                         99-273     119-1372   120-1420   127-1764   148-2820   151-1      151-2      154-130    155-193   
                         157-286    157-298    160-397    160-444    161-492    161-515   
RESDET	  003612 RG	 7-227     #152-52    
ROT   	= 000241	#12-144    
ROTC  	= 000245	#12-148    
RSPMAP	  007322 RG	 7-219      156-242   #168-865   
RST.5 	  003400 RG	 7-241     #135-2157  
RS0RS1	= 000010	#44-182     168-873   
RS0TN0	= 000020	#44-183     168-874   
RUNBIG	  001364 RG	 7-238     #119-1395  
RUNJRS	  001416 R	*119-1398   119-1399  #119-1406  
RUNPRG	  001370 RG	 7-240     #119-1397   156-224   
R$$20F	= 000001	#3-48       44-187     49-469     96-12      96-13      96-14      96-15      97-63      97-67     
                         97-80      97-89      97-99      97-100     97-102     97-107     98-124     98-124     98-127    
                         98-140     98-150     98-163     98-175     98-176     98-178     98-184     98-185     98-187    
                         98-188     98-189     98-190     98-197     98-206     98-207     98-212     98-213     98-214    
                         98-215     99-231     99-231     99-233     99-243     99-256     99-257     99-258     99-260    
                         99-261     99-266     99-269     99-289     99-290     100-318    100-318    100-320    100-321   
                         100-329    100-330    107-666    110-869    110-892    114-1134   117-1282   117-1283   117-1284  
                         117-1285   117-1285   117-1285   117-1288   118-1316   118-1316   118-1317   118-1332   118-1333  
                         119-1399   120-1414   120-1415   120-1416   120-1417   120-1420   120-1424   120-1436   120-1445  
MBROOT     CREATED BY  MACRO  ON 17-SEP-79 AT 09:00	PAGE 14

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                         120-1446   120-1452   120-1461   120-1467   120-1468   120-1480   120-1481   120-1483   121-1497  
                         121-1497   121-1510   121-1510   122-1525   122-1535   122-1536   122-1547   122-1548   122-1549  
                         122-1550   122-1552   124-1606   124-1606   124-1610   124-1610   125-1646   125-1647   125-1666  
                         126-1698   126-1698   126-1699   126-1719   126-1720   127-1745   127-1746   127-1760   127-1761  
                         127-1764   127-1774   127-1788   127-1789   127-1795   127-1796   127-1799   127-1837   127-1838  
                         128-1869   128-1869   129-1895   129-1895   129-1898   132-1974   132-1974   132-1976   132-1980  
                         132-1981   132-1984   132-1985   132-1988   132-2017   132-2018   132-2019   132-2020   132-2021  
                         132-2021   133-2044   133-2045   133-2047   134-2067   134-2075   134-2083   135-2110   136-2189  
                         136-2190   152-33     152-34     152-35     152-36     152-37     152-38     152-55     152-56    
                         152-57     152-58     152-59     154-103    154-136    154-148    155-160    155-168    155-170   
                         155-172    155-173    155-187    155-188    155-189    155-191    155-199    155-201    156-217   
                         156-219    156-220    156-221    156-224    156-226    156-226    156-227    157-265    157-286   
                         157-298    159-382    160-435    160-435    160-439    160-439    161-499    161-499    161-504   
                         161-504    161-507    161-507    161-510    161-510    162-548    162-551    162-552    162-553   
                         162-554    163-567    163-571    163-572    163-573    163-574    163-579    163-586    163-593   
                         163-600    163-607    164-664    165-709    168-886   
R5.PC 	  003420 RG	 7-237      121-1510   124-1610   129-1916   132-2021  #135-2172   154-128    157-281   
SAV.5 	  003362 RG	 7-238      121-1497   124-1606   128-1851   132-1974  #135-2144   154-102    156-216   
SBDG2 	  000632 R	#99-234    
SBDG3 	  000722 R	*99-232     99-235    #99-266    
SBDI  	  000620 R	#99-230    
SBDT  	  000572 RG	 7-238     #99-224    
SBD0  	  000622 RG	 7-238      99-227    #99-231    
SBSREC	  006113 R	#165-705   
SBSRL 	  005500 RG	 7-222      160-435    160-439    161-499    161-504    161-507    161-510   #162-544   
SBUS  	= 100000	#26-1126    152-34    
SCAN  	  005004 RG	 7-223      157-265   #158-312   
SDMA  	  000352 R	*97-87      97-91     #97-102    *98-183    
SDMSBR	  006516 RG	 7-219      162-551   #166-744   
SDWDFM	  000724 RG	 7-238      99-257    #99-267    
SD16  	  000613 R	#99-229     99-256    
SECLK 	= 000003	#55-118    
SETA  	= 000424	#12-263    
SETAB 	= 000427	#12-266    
SETAI 	= 000425	#12-264    
SETAM 	= 000426	#12-265    
SETBBD	  005262 RG	 7-226      155-201   #160-434   
SETCA 	= 000450	#12-287    
SETCAB	= 000453	#12-290    
SETCAI	= 000451	#12-288    
SETCAM	= 000452	#12-289    
SETCM 	= 000460	#12-295    
SETCMB	= 000463	#12-298    
SETCMI	= 000461	#12-296    
SETCMM	= 000462	#12-297    
SETCMP	  005340 RG	 7-223      155-187   #161-496   
SETCON	  000714 R	#99-263    
SETM  	= 000414	#12-255    
SETMB 	= 000417	#12-258    
SETMI 	= 000415	#12-256    
SETMM 	= 000416	#12-257    
SETMR 	= 000007	#55-121    
MBROOT     CREATED BY  MACRO  ON 17-SEP-79 AT 09:00	PAGE 15

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

SETO  	= 000474	#12-307    
SETOB 	= 000477	#12-310    
SETOI 	= 000475	#12-308    
SETOM 	= 000476	#12-309    
SETPAR	  003440 RG	 7-239     #136-2182   162-548   
SETRAM	  001002 RG	 7-239     #100-305    155-189   
SETRPC	  001376 R	#119-1399  
SETRUN	= 000011	#55-123     98-212     120-1414  
SETZ  	= 000400	#12-240     97-68      97-68     
SETZB 	= 000403	#12-246    
SETZI 	= 000401	#12-242    
SETZM 	= 000402	#12-244    
SJDATA	  001410 R	#119-1402  
SKIP  	= 000330	#12-199    
SKIPA 	= 000334	#12-203    
SKIPE 	= 000332	#12-201    
SKIPG 	= 000337	#12-206    
SKIPGE	= 000335	#12-204    
SKIPL 	= 000331	#12-200    
SKIPLE	= 000333	#12-202    
SKIPN 	= 000336	#12-205    
SMFSS 	  005172 R	 159-372    159-373    159-374   #159-375    159-375   
SMFSS0	  005166 RG	 7-226      154-136    155-160    155-172   #159-374   
SMFSS1	  005162 R	 155-191   #159-373   
SMFSS2	  005156 RG	 7-222     #159-372   
SOJ   	= 000360	#12-223    
SOJA  	= 000364	#12-227    
SOJE  	= 000362	#12-225    
SOJG  	= 000367	#12-230    
SOJGE 	= 000365	#12-228    
SOJL  	= 000361	#12-224    
SOJLE 	= 000363	#12-226    
SOJN  	= 000366	#12-229    
SOS   	= 000370	#12-231    
SOSA  	= 000374	#12-235    
SOSE  	= 000372	#12-233    
SOSG  	= 000377	#12-238    
SOSGE 	= 000375	#12-236    
SOSL  	= 000371	#12-232    
SOSLE 	= 000373	#12-234    
SOSN  	= 000376	#12-237    
SRI8MB	= ******	 167-795   
SSCLK 	= 000002	#55-117     122-1521   122-1538   132-1995  
STEP  	  001670 R	#122-1520  
STEPK 	  001666 R	*121-1499  *121-1503   121-1505   121-1508  #121-1512  
STEP1 	  001670 R	#122-1521  
STPCLK	= 000000	#55-115     132-1980   132-1990  
STRCLK	= 000001	#55-116     97-62      97-64      117-1291   127-1745   132-1989   132-2019   156-219   
STRFSD	  000502 R	 97-88      98-125    #98-195     100-319   
SUB   	= 000274	#12-171    
SUBB  	= 000277	#12-174    
SUBI  	= 000275	#12-172    
MBROOT     CREATED BY  MACRO  ON 17-SEP-79 AT 09:00	PAGE 16

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

SUBM  	= 000276	#12-173    
SXCT  	= 000106	#12-54     
TADR  	= 000010	#36-1491   
TBN   	= 000004	#36-1490   
TCN   	= 000001	#36-1488   
TDC   	= 000650	#12-415    
TDCA  	= 000654	#12-419    
TDCE  	= 000652	#12-417    
TDCN  	= 000656	#12-421    
TDN   	= 000610	#12-383    
TDNA  	= 000614	#12-387    
TDNE  	= 000612	#12-385    
TDNN  	= 000616	#12-389    
TDO   	= 000670	#12-431    
TDOA  	= 000674	#12-435    
TDOE  	= 000672	#12-433    
TDON  	= 000676	#12-437    
TDZ   	= 000630	#12-399    
TDZA  	= 000634	#12-403    
TDZE  	= 000632	#12-401    
TDZN  	= 000636	#12-405    
TGN   	= 000002	#36-1489   
TIMFS 	= 000044	#40-32     
TIMINT	  001414 R	#119-1404  *120-1435  *120-1448  
TIMNO0	  007002 RG	 7-218     #168-857    168-874   
TIMNO1	  007012 RG	 7-218     #168-858   
TLC   	= 000641	#12-408    
TLCA  	= 000645	#12-412    
TLCE  	= 000643	#12-410    
TLCN  	= 000647	#12-414    
TLN   	= 000601	#12-376    
TLNA  	= 000605	#12-380    
TLNE  	= 000603	#12-378    
TLNN  	= 000607	#12-382     157-291    157-291   
TLO   	= 000661	#12-424     157-292    157-292   
TLOA  	= 000665	#12-428    
TLOE  	= 000663	#12-426    
TLON  	= 000667	#12-430    
TLZ   	= 000621	#12-392    
TLZA  	= 000625	#12-396    
TLZE  	= 000623	#12-394    
TLZN  	= 000627	#12-398    
TOCTLP	  003706 R	#154-109    154-124   
TOMFLP	  003714 R	#154-112    154-122   
TRC   	= 000640	#12-407    
TRCA  	= 000644	#12-411    
TRCE  	= 000642	#12-409    
TRCN  	= 000646	#12-413    
TRN   	= 000600	#12-375    
TRNA  	= 000604	#12-379    
TRNE  	= 000602	#12-377    
TRNN  	= 000606	#12-381     157-287    157-287   
MBROOT     CREATED BY  MACRO  ON 17-SEP-79 AT 09:00	PAGE 17

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

TRO   	= 000660	#12-423    
TROA  	= 000664	#12-427    
TROE  	= 000662	#12-425    
TRON  	= 000666	#12-429    
TRPAR 	= 010000	#44-203     44-203     44-203    #44-203     44-203     44-203    #44-203     44-203     44-203    
                        #44-203     44-203     44-203    #44-203     44-203     44-203    #44-203     44-203     44-203    
                        #44-203     44-203     44-203    #44-203     44-203     44-203    #44-203     44-203     44-203    
                        #44-203     44-203     44-203    #44-203     44-203     44-203    #44-203     44-203     44-203    
                        #44-203    
TRZ   	= 000620	#12-391    
TRZA  	= 000624	#12-395    
TRZE  	= 000622	#12-393    
TRZN  	= 000626	#12-397    
TSC   	= 000651	#12-416    
TSCA  	= 000655	#12-420    
TSCE  	= 000653	#12-418    
TSCN  	= 000657	#12-422    
TSN   	= 000611	#12-384    
TSNA  	= 000615	#12-388    
TSNE  	= 000613	#12-386    
TSNN  	= 000617	#12-390    
TSO   	= 000671	#12-432    
TSOA  	= 000675	#12-436    
TSOE  	= 000673	#12-434    
TSON  	= 000677	#12-438    
TSTCON	  001000 RG	 7-239     *99-263     99-281    #99-292    *154-109   *154-112    154-113    154-121    154-134   
                         159-383    168-842   
TSZ   	= 000631	#12-400    
TSZA  	= 000635	#12-404    
TSZE  	= 000633	#12-402    
TSZN  	= 000637	#12-406    
TYPE0 	  006372 RG	 7-213     #166-731   
TYPE1 	  006402 RG	 7-213     #166-732   
TYPE2 	  006412 RG	 7-214     #166-733   
TYPE3 	  006422 RG	 7-214     #166-734   
TYPE4 	  006432 RG	 7-214     #166-735   
TYPE5 	  006442 RG	 7-214     #166-736   
TYPE6 	  006452 RG	 7-214     #166-737   
TYPE7 	  006462 R	#166-738   
TYPNUM	  006004 RG	 7-210      154-114   *154-137   #165-693   
UFA   	= 000130	#12-71     
UNDCTN	= 000007	#43-174    
UNDEF 	  006114 RG	 7-212     #165-706   
WENABL	= 004000	#44-204     44-204     44-204    #44-204     44-204     44-204    #44-204     44-204     44-204    
                        #44-204     44-204     44-204    #44-204     44-204     44-204    #44-204     44-204     44-204    
                        #44-204     44-204     44-204    #44-204     44-204     44-204    #44-204     44-204     44-204    
                        #44-204     44-204     44-204    #44-204     44-204     44-204    #44-204    
W11   	= 000000	#117-1285   117-1285   117-1285  
X     	= 000000	#96-18      96-18     #96-19      96-19     #96-20      96-20     #96-21      96-21     #97-63     
                         97-63     #97-63      97-63     #97-68      97-68     #97-69      97-69     #97-70      97-70     
                        #97-71      97-71     #97-72      97-72     #97-73      97-73     #97-74      97-74     #97-75     
                         97-75     #99-229     99-229    #107-706    107-706   #117-1301   117-1301  #117-1302   117-1302  
MBROOT     CREATED BY  MACRO  ON 17-SEP-79 AT 09:00	PAGE 18

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                        #119-1406   119-1406  #155-189    155-189   #157-287    157-287   #157-288    157-288   #157-289   
                         157-289   #157-290    157-290   #157-291    157-291   #157-292    157-292   #157-293    157-293   
                        #157-294    157-294   #157-295    157-295   #157-296    157-296   #159-388    159-388   #159-389   
                         159-389   #166-744    166-744   #166-745    166-745   
XCONMP	  006760 RG	 7-225     #168-853   
XCT   	= 000256	#12-157    
XDV   	= 000004	#96-18      96-18      96-18     #96-19      96-19      96-19     #96-20      96-20      96-20     
                        #96-21      96-21      96-21     #97-71      97-71      97-71     #99-229     99-229     99-229    
                        #117-1301   117-1301   117-1301  #157-289    157-289    157-289   
XMAL  	  006534 RG	 7-205     #166-758   
XOP   	= 000002	#96-18      96-18      96-18     #96-19      96-19      96-19     #96-20      96-20      96-20     
                        #96-21      96-21      96-21     #97-71      97-71      97-71     #99-229     99-229     99-229    
                        #117-1301   117-1301   117-1301  #157-289    157-289    157-289   
XOR   	= 000430	#12-267     97-72      97-72     
XORB  	= 000433	#12-270    
XORI  	= 000431	#12-268    
XORM  	= 000432	#12-269    
XR    	= 000000	#96-18      96-18     #96-19      96-19     #96-20      96-20     #96-21      96-21     #97-68     
                         97-68     #97-69      97-69     #97-70      97-70     #97-71      97-71     #97-72      97-72     
                        #97-73      97-73     #97-74      97-74     #97-75      97-75     #99-229     99-229    #117-1301  
                         117-1301  #119-1406   119-1406  #157-287    157-287   #157-288    157-288   #157-289    157-289   
                        #157-290    157-290   #157-291    157-291   #157-292    157-292   #157-293    157-293   #157-294   
                         157-294   
XSTEP 	  001702 R	#122-1524   125-1646  
XX    	  000000 R	#96-9      
XXWD  	  000032 RG	 7-239      96-12     #96-16     
XXX   	= 000003	#117-1285   117-1285  
XX1   	  000002 RG	 7-239     #96-10     
Z     	= 000200	#97-63      97-63     #97-63      97-63     #97-63      97-63     #97-63      97-63     #97-63     
                         97-63     #97-63      97-63     #97-63      97-63      97-63     #97-63     
ZERO..	  001120 R	#107-705    132-2017  
$ACBLK	= 000001	#6-178     #98-207     116-1259  #118-1316  #126-1698  #128-1869  
$ACRAM	= ******  GX	 132-1993  
$APRID	= 000000	#55-129     96-21     
$BP.  	= 000160	#117-1285   117-1285  
$BRST 	= 000001	#44-189    #117-1284   122-1540  
$BURST	= ******  GX	 122-1546  
$CALPA	= 000001	#6-185     #136-2183   136-2192  
$CGOTO	= ******	 119-1352  
$CNTSD	= 000001	#6-187     #98-124    #99-231     99-271    #100-318   #129-1895  #156-217   
$CONEX	= ******	 49-469     163-567    163-571    163-572    163-573    163-574    163-579    163-586    163-593   
                         163-600    163-607    165-709   
$CONFI	= 000001	#6-163      151-22    
$COPYA	= ******	 117-1308   118-1337  
$DBGSR	= ******	 135-2146   135-2161  
$DDFRD	= ******  GX	 124-1633   125-1649  
$DDFWR	= ******  GX	 117-1290   132-1984   132-1996   132-1997   132-2017  
$DDFXC	= ******  GX	 97-62      97-64      98-212     98-214     117-1282   117-1289   117-1291   120-1414   120-1416  
                         122-1521   122-1524   127-1745   132-1980   132-1989   132-1990   132-1995   132-2019   156-219   
$DEBUG	= ******	 100-312    110-924    120-1470   126-1687   127-1812   128-1858   128-1875  
$DFPC 	= ******  GX	 120-1467  
$DMADE	= ******	 163-572    163-586   
MBROOT     CREATED BY  MACRO  ON 17-SEP-79 AT 09:00	PAGE 19

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

$DMPAC	= 070010	#12-10     
$DPD  	= ******	 163-573    163-579    163-607   
$DPOST	= ******  GX	 97-92      98-143     99-236     127-1778   129-1902  
$DTRW1	= ******  GX	 98-151     98-198     120-1438   120-1453   122-1526  
$EB   	= 004722 R	#97-67      97-80     #157-286    157-298   
$ENTHA	= ******	 107-713   
$EVENT	= 000001	#44-190     123-1597  
$EXAMT	= ******  GX	 96-12      99-257     118-1319   156-230   
$EXCT 	= ******  GX	 96-10      133-2040  
$EXP16	= 000001	#6-169      158-343   
$FATAL	= ******  GX	 97-111     117-1293   122-1554   127-1788   134-2068   134-2076   134-2084   157-279    158-316   
                         158-337   
$FIND 	= 000001	#44-188    #117-1285   120-1487  
$FITME	= ******	 163-567    163-607    165-709   
$FSD  	= 000001	#6-181      96-47      97-51     #163-575   
$GETCT	= 070020	#12-12     
$GMCN 	= ******	 143-2598  
$IND36	= 000003	#28-1177   
$INIUD	= ******	 148-2807  
$INVAL	= ******	 130-1946  
$JAB  	= ******	 98-205     117-1272   119-1383   126-1684   145-2684  
$KLMR 	= ******  GX	 97-62      97-64      132-1993   156-218   
$KL10A	= 000101	#41-61     
$KL10B	= 000102	#41-62     
$LDAR 	= ******  GX	 117-1281  
$LDEFE	= 000001	#6-190      127-1842  
$LOADA	= 000001	#6-177     #156-221   
$MABL 	= 000001	#6-183     #97-63      126-1674  
$MABPA	= ******	 163-571    163-593   
$MASK3	= ******	 105-558    106-607   
$MB   	= ******	 151-5     
$MBINI	= 000001	#6-166      162-556   
$MMRES	= 000001	#6-167      155-205   
$MOCMD	= ******	 142-2553  
$MOSDE	= 000001	#6-165      152-63     168-853   
$MOSDM	= ******	 100-335   
$MSKDA	= ******	 105-558    106-631   
$MSK36	= ******	 105-558   
$MX20M	= ******	 163-574    163-600   
$OPSEL	= ******	 108-790   
$OVRLO	= ******	 144-2662  
$PATCH	= 070004	#12-9      
$PATER	= ******	 104-542   
$PENDI	= ******	 142-2537  
$PNTAP	= ******	 144-2624  
$PNTVE	= ******	 110-852   
$PWTES	= ******	 106-649   
$QXCT 	= 000001	#6-179     #99-256    #119-1399   132-2029  
$RDERA	= 000000	#55-131     96-19     
$READA	= 000001	#6-184      117-1308  
$RELOA	= 000001	#28-1175   
$RESDE	= 000001	#6-164      152-43    
MBROOT     CREATED BY  MACRO  ON 17-SEP-79 AT 09:00	PAGE 20

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

$RESET	= 000001	#6-182     #98-206     131-1962  #152-34    
$RSTAC	= 070030	#12-14     
$RUN  	= 000001	#6-176     #156-224   
$SAVAC	= 070024	#12-13     
$SBDIA	= 000002	#55-127     97-71      99-229     157-289   
$SBSRL	= 000001	#6-173      159-391    161-514   
$SCAN 	= 000001	#6-168      157-301   
$SDW  	= 000002	#28-1176   
$SETBB	= 000001	#6-171      159-391    160-396   
$SETCM	= 000001	#6-172      159-391    160-443   
$SETPA	= 000001	#6-186      136-2177  #162-548   
$SETRA	= 000001	#6-189      99-295    #155-189   
$SIZ16	= 033061	#41-64     
$SIZ32	= 031063	#41-65     
$SIZ4K	= 032060	#41-63     
$SIZ64	= 032066	#41-66     
$SMFSS	= 000001	#6-170      159-362   
$STEP 	= 000001	#44-191     121-1514  
$STEP1	= ******	 129-1918  
$STKEM	= ******	 136-2211  
$STKME	= ******	 141-2461  
$S10. 	= 155160	#117-1285   117-1285  
$TB   	= 000005	#97-67      97-80     #157-286    157-298   
$TDB2O	= ******  GX	 154-144   
$TIMLP	= 070014	#12-11     
$TL   	= 000012	#97-80      97-80     #157-298    157-298   
$TTDMS	= ******  GX	 154-142    154-145   
$XX   	= 000001	#6-188      96-6      
$$APRI	= 000000	#55-130     96-21     
$$NARG	= 000001	#156-221    156-221    156-221   
$$RDER	= 000004	#55-132     96-19     
$$SBDI	= 000004	#55-128     97-71      99-229     157-289   
$10BC 	= 070040	#12-16     
$10BP 	= 070034	#12-15     
$10MB 	= 070050	#12-18     
$10RB 	= 070044	#12-17     
.DAT3 	  002156 R	 124-1627  #125-1669  
.DFRBK	= ******  GX	 125-1669  
.RESET	  003032 RG	 7-237      98-206    #132-1974   152-34    
.SBDIA	= 000001	#6-180      96-47      99-219    
.TICKS	= ******  GX	 120-1437   120-1445  
...   	= 000377	#12-25     
......	= 177777	#12-24      97-102     98-178     99-266     99-292     117-1307   119-1402   120-1485   127-1800  
                         127-1801   127-1840  
MBROOT     CREATED BY  MACRO  ON 17-SEP-79 AT 09:00	PAGE 21

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

ACBLK 		#20-787     98-207     118-1316   126-1698   128-1869  
BLK10 		#29-1207   #97-67     #157-286   
BP.   		#13-482    #117-1285  
BRST  		#18-716     117-1284  
BTOFIX		#47-336    
BURST 		#68-556     122-1546  
CABTE 		#46-291    
CALL  		#53-38     
CALLR 		#53-47     
CALPAR		#33-1363    136-2183  
CGOTO 		#16-617    
CNTSD 		#33-1381   #98-124    #99-231    #100-318   #129-1895  #156-217   
CONDET		#46-311    #152-55    
CONDMA		#45-222     152-35    
CONFIG		#45-218    
CONMAB		#45-230    #152-36    
CONMOS		#45-226    #152-38    
CONMX 		#47-354    #152-37    
CONTIN		#14-552     156-226   
COPYAC		#31-1325   
CTFMTC		#46-307    
DBESCN		#46-287     155-199   
DCNFBB		#47-326    
DFPC  		#67-526     120-1467  
DFRD  		#56-163    #124-1633  #125-1649  
DFRDT 		#57-184    
DFSCLK		#66-516     122-1521  
DFWRT 		#58-225    
DFWRTT		#59-265     117-1290   132-1984   132-1996   132-1997   132-2017  
DFXCT 		#60-304    #122-1521  #122-1524  
DFXCTT		#61-336    #98-212    #98-214    #117-1282  #117-1289  #117-1291  #120-1414  #120-1416  #127-1745  #132-1980  
                #132-1989  #132-1990  #132-1995  #132-2019  #156-219   
DMADET		#45-246    #152-56    
DOLOOP		#22-907    
DPD   		#45-258     155-170   
DPOS  		#62-369    
DPOST 		#63-409    #97-92     #98-143    #99-236    #127-1778  #129-1902  
DSOBAC		#18-707    
DTEBAS		#69-570    
ENBLPS		#21-854    
ENDBLK		#29-1222    97-80      157-298   
ENDLOO		#21-878    
ENDTIM		#42-126    
ERRCOM		#50-487    
ERRMSG		#50-473    
ERROR 		#50-479    
EVENT 		#17-650    
EXAM  		#64-448    
EXAMT 		#65-494     96-12      99-257     118-1319   156-230   
EXCT  		#72-632     96-10      133-2040  
EXECUT		#23-978     99-256     119-1399  
EXOR  		#54-99      136-2201   136-2204  
MBROOT     CREATED BY  MACRO  ON 17-SEP-79 AT 09:00	PAGE 22

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

EXP16K		#47-364    
FATAL 		#38-1590   #94-1291    97-111     117-1293   122-1554   127-1788   134-2068   134-2076   134-2084   157-279   
                 158-316    158-337   
FIND  		#17-669     117-1285  
FITMEM		#45-238     152-33    
FIXSB 		#47-340    
FSD   		#25-1070    162-552   
FSDCHK		#26-1100   #159-382   
FSDMSK		#25-1050    155-188    162-551   
GBSRL 		#49-432    
GETBBD		#48-400    #155-173   
GETCMP		#48-410    
GETTF 		#46-283    
GMCN  		#37-1522   
ICEON 		#47-321    
IND36 		#28-1190   
INIBSR		#48-390    
INIUDF		#38-1583   
INVAL 		#20-817    
IO10  		#30-1275    96-18      96-19      96-20      96-21      97-71      99-229     117-1301   157-289   
I10   		#30-1252    97-68      97-69      97-70      97-72      97-73      97-74      97-75      119-1406   157-287   
                 157-288    157-290    157-291    157-292    157-293    157-294   
JAB   		#37-1535   
LDATIM		#49-455    
LDBESP		#47-331    
LDEFER		#38-1594   
LDFSDP		#26-1095   #163-575   
LDFVR 		#46-271    
LDNADR		#46-267    
LDREFR		#46-279    
LDTIMR		#46-275    
LOADAC		#19-761    #156-221   
LODAR 		#70-601     117-1281  
LOOP  		#21-869    
LOOPCO		#22-896    
LOOPDO		#22-912    
MABDET		#46-295    #152-57    
MABL  		#27-1138    97-63     
MABPAD		#46-299    
MASK36		#35-1445   
MB    		#45-214    
MBINI 		#46-315    
MMRESP		#45-262    
MOSDET		#45-250    #152-59    
MOSDMP		#23-955    
MRESET		#75-723    #156-218   
MSKDAT		#35-1474   
MSK36R		#35-1462   
MXTADR		#47-349    
MX20MD		#47-344     152-58    
NUMARG		#16-626    #156-221   
NUMTXT		#16-608    
MBROOT     CREATED BY  MACRO  ON 17-SEP-79 AT 09:00	PAGE 23

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

OVRLOD		#38-1576   
PATERR		#23-965    
PBELL 		#89-1150   
PCRLF 		#89-1158   
PENDIS		#36-1515   
PFORCE		#77-776    
PMSG  		#86-1059    154-142    154-145   
PNORML		#77-779    
PNTADR		#79-834    
PNTAL 		#87-1090   
PNTAPR		#36-1504   
PNTBAK		#77-782    
PNTDEC		#84-980    
PNTNBR		#80-861    
PNTOCS		#83-948    #154-144   
PNTOCT		#82-916    
PNTODT		#85-1013   
PNTVER		#20-807    
PNT36 		#78-806    
PNT36B		#81-889    
POP   		#4-95      #53-65     #97-63     #97-93     #98-144    #98-206    #99-237    #99-288    #100-328   #117-1284  
                #117-1285  #120-1435  #121-1509  #124-1609  #126-1706  #126-1718  #127-1779  #127-1794  #127-1836  #129-1903  
                #135-2159  #135-2174  #136-2188  #136-2207  #152-34    #155-189   #156-221   #156-224   #156-231   #159-359   
                #159-382   #159-385   #160-440   #161-511   #162-548   #162-552   
PSLASH		#89-1146   
PSPACE		#89-1142   
PTAB  		#89-1154   
PUSH  		#4-89      #53-59     #97-90     #98-141    #99-234    #99-280    #100-305   #121-1498  #124-1607  #126-1685  
                #126-1700  #126-1701  #126-1702  #127-1736  #127-1740  #127-1776  #127-1811  #129-1899  #133-2042  #135-2144  
                #136-2182  #136-2198  #156-228   #156-258   #159-347   #159-379   #160-434   #160-435   #160-435   #160-439   
                #160-439   #161-496   #161-499   #161-499   #161-504   #161-504   #161-507   #161-507   #161-510   #161-510   
                #168-845   
PWTES 		#20-827    
RDPROM		#45-254     155-168   
READAC		#31-1309   
REGRST		#76-760    
REGSAV		#76-756    
REPCON		#46-303    
REPFIT		#45-234    
RESDET		#45-242    
RESET 		#26-1112   #98-206    #152-34    
RETURN		#53-51     
RST.4 		#32-1343   
RST.5 		#32-1354   
RUN   		#15-565     156-224   
R4.R5 		#32-1347    121-1510   124-1610   132-2021  
R5.PC 		#32-1357   #129-1916  #154-128   #157-281   
SAV.4 		#32-1339   #121-1497  #124-1606  #132-1974  
SAV.5 		#32-1351   #128-1851  #154-102   #156-216   
SBDIAG		#24-1002   
SBSRL 		#49-416    #160-435   #160-439   #161-499   #161-504   #161-507   #161-510   
SCAN  		#47-359    #157-265   
MBROOT     CREATED BY  MACRO  ON 17-SEP-79 AT 09:00	PAGE 24

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

SETBBD		#48-395    #155-201   
SETCMP		#48-405     155-187   
SETPAR		#33-1368    162-548   
SETRAM		#34-1422    155-189   
SL    		#54-71     
SM    		#73-662    #97-62     #97-64     
SMFSS 		#48-375     154-136    155-160    155-172    155-191   
SOBAC 		#18-696    
SR    		#54-85     
STEP  		#19-733    
STEP10		#17-639    
STKEMD		#36-1496   
STKMEP		#36-1482   
STOPLO		#22-887    
STPCON		#18-686    
S10.  		#14-509     117-1285  
TBIT  		#14-535    
TICK  		#42-94     
TIMING		#41-68     
TIMSIG		#40-43      44-201     44-202     44-203     44-204     44-205     44-206     44-207    
TTIDEC		#91-1214   
TTILIN		#92-1240   
TTILNW		#93-1266   
TTIOCT		#90-1186   
UMAC  		#37-1550   
WD36  		#29-1243   #107-706   #117-1302  #155-189   #157-295   #157-296   #159-388   #159-389   #166-744   #166-745   
WWADR 		#74-691     132-1993  
XO10  		#29-1218   
XX    		#33-1397   
X10   		#29-1214   
$CNG  		#22-918    
$DEF  		#4-84      #52-34     #52-36     
$ENDLO		#22-933    
$LOOP 		#22-922    
$PMSG 		#88-1111   
$PRADR		#13-465    
$RDG  		#22-927    
$STOPL		#22-930    
.MAIN.	MACRO M1110  17-SEP-79 09:06
TABLE OF CONTENTS

     3-    1	ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
    96-   12	MSSCTL RESIDENT MOSDET SUBROUTINE CODE
   101-  241	READ MOS PROM DATA FOR A CONTROLLER
   103-  319	DIGEST PROM DATA FOR A MOS CONTROLLER
   105-  383	SUBROUTINE TO DECONFIGURE BAD MF20 BLOCKS
   106-  436	LOAD ALL NON-ADDRESS-RESPONSE RAMS FOR A MOS CONTROLLER
   107-  465	LOAD A MOS CONTROLLER'S FIXED VALUE RAMS
   109-  553	LOAD A MOS CONTROLLER'S TIMING RAMS
   110-  621	LOAD & START REFRESH FOR A MOS CONTROLLER
   111-  657	MAKE SURE TIMING FILES ARE LOADED FOR A MOS CONTROLLER
   114-  796	ROUTINES TO GET DATA FROM UNUSED BITSUB RAM LOCATIONS
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 1


      1		177777 			MSSCTL==-1
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 3
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.

					.SBTTL	ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
      2
      3						.NLIST	CND,BEX
      4						.LIST	MC,MD,MEB
      5						.ENABL	AMA
      6
      9					.TITLE	MSSCTL -- MOS SOFTWARE STATE CONTROL CODE OVERLAY
     12
     13					.REM	%
     14						THIS FILE CONTROLS THE ASSEMBLY OF THE 5 MEMORY BOOT OVERLAY MODULES.
     15					WHICH ONE OF THE MODULES IS DETERMINED BY WHICH ONE OF 5 SYMBOLS IS DEFINED.
     16					THE SYMBOLS ARE:
     17
     18							MBROOT, CORDET, MSSCTL, DBEOVL, OR FITCON.
     19
     20					THE SYMBOL SHOULD BE DEFINED IN THE ASSEMBLY CONTROL COMMAND USING THE /EQ:
     21					SWITCH.  ONE OTHER SYMBOL MAY BE DEFINED WITH THE EQUATE SWITCH: DEFINE "MBOKLG"
     22					WHEN DOING AN R$$20F ASSEMBLY IN THE DIAGNOSTIC ENVIRONMENT.  THIS SATISFIES
     23					EXTERNAL REFERENCES BY EXPLCITLY DEFINING THOSE SYMBOLS.
     24
     25						THE OVERLAY STRUCTURE OF THE MEMORY BOOT IS SIMPLE: ONE ROOT MODULE,
     26					MBROOT, WHICH LOADS ONE OF THE OTHER 4 MODULES UNDERNEATH IT AS NECESSARY.  THE
     27					TOTAL LENGTH OF OVERLAYS RESIDENT AT ANY ONE POINT IN TIME MUST BE LESS THAN
     28					16000(OCTAL) BYTES, BUT IT IS PREFERABLE TO KEEP IT AROUND 14000 TO ALLOW FOR
     29					EXPANSION.  THE OVERLAY STRUCTURE IS SHOWN GRAPHICALLY BELOW:
     30
     31					MEMORY
     32					16000
     33					 MAX
     34					  !	+-----------------------------------------------------------+
     35					  !	!							    !
     36					  !	!		    MBROOT (ROOT MODULE)		    !
     37					  !	!							    !
     38					  !	+--------------+--------------+--------------+--------------+
     39					  !	!	       !	      !		     !		    !
     40					  !	!    CORDET    !    MSSCTL    !    DBEOVL    !    FITCON    !
     41					  V	!	       !	      !		     !		    !
     42						+--------------+--------------+--------------+--------------+
     43
     44					TIME --------->
     45
     46						%
     47
     48		000001 			R$$20F=1	; *****FORCE ASSEMBLY OF MEM BOOT IN FRONT-END MODE *****
     49
     50					;-----DEFINE "CONMMR" TO AID IN MEMORY BOOT ERROR CHECKING.  UNDEFINE IT
     51					; TO SAVE APPROXIMATELY 400(8) BYTES IN THE MEMORY BOOT ROOT MODULE.  NOTE
     52					; THAT IF YOU UNDEFINE OR REDEFINE THIS THEN YOU MUST ALSO CHANGE THE POSITION
     53					; SUBROUTINE "MMRESP" IN THE FILE MBSUB.P11 SO THAT IT IS IN THE PROPER MODULE.
     54		000001 				CONMMR=1
     55
     56					;-----LISTING CONTROL.
     57		000001 			LSTMB=1
     58		000001 			LSBRTN=1
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 4
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.

     60					;-----SYMBOLS DEFINED TO GET RID OF UNDEFINED PROBLEMS.  THESE SYMBOLS WOULD
     61					; NORMALLY COME FROM PRM11.P11.
     62
     63		000001 			BIT0=1.
     64		000002 			BIT1=2.
     65		000004 			BIT2=4.
     66		000010 			BIT3=8.
     67		000020 			BIT4=16.
     68		000040 			BIT5=32.
     69		000100 			BIT6=64.
     70		000200 			BIT7=128.
     71		000400 			BIT8=256.
     72		001000 			BIT9=512.
     73		002000 			BIT10=1024.
     74		004000 			BIT11=2048.
     75		010000 			BIT12=4096.
     76		020000 			BIT13=8192.
     77		040000 			BIT14=16384.
     78		100000 			BIT15=32768.
     79
     80		001000 			HALTLP=	BIT9		;EBOX IS IN HALT LOOP
     81		004000 			ERRSTP=	BIT11		;EBOX CLOCK STOPPED DUE TO ERROR
     82
     83					;-----OTHER SYMBOLS DEFINED TO MAKE FLAGS GO AWAY.
     84					.MACRO	$DEF	;MAKE THE O FLAG GO AWAY   ......
     85					.ENDM
     86
     87					;-----PUSH AND POP MACROS ARE GIVEN HERE JUST TO NEATEN UP THE LISTING SOME.
     88
     89					.MACRO	PUSH	A
     90					.IRP	B,<A>
     91						  MOV	B,-(SP)	;PUSH B ON STACK
     92					.ENDR
     93					.ENDM
     94
     95					.MACRO	POP	A
     96					.IRP	B,<A>
     97						  MOV	(SP)+,B	;POP STACK INTO B
     98					.ENDR
     99					.ENDM
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 9
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.

    270					;-----THE FOLLOWING DEFINITIONS FORCE ASSEMBLY OF THE MEMORY BOOT SUBROUTINES
    271					; REQUIRED FOR THIS MODULE.
    272
    273		000001 			$MOSDET=1	;SECOND HALF OF MOSDET
    274		000001 			$RDPROM=1
    275		000001 			$DPD=1
    277		000001 			$LDNADR=1
    278		000001 			$LDFVR=1
    279		000001 			$LDTIMR=1
    280		000001 			$LDREFR=1
    281		000001 			$GETTF=1
    282		000001 			$DCNFBB=1
    283		000001 			$MX20MD=1
    284		000001 			$GETBBD=1
    285		000001 			$GETCMP=1
    286		000001 			$GBSRL=1
    287		000001 			$LDATIM=1
    288
    289
    295					;-----THE FOLLOWING MEMORY BOOT LABELS ARE GLOBAL.
    296
    297						.GLOBL	DCNFBB,DPD,GETBBD,GETCMP,LDNADR
    298						.GLOBL	MX20MD,QRESET,RDPROM,TMFLNM
    299						.GLOBL	MDINIT,MDST0,MDST23
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 95
REGISTER SAVE/RESTORE TRANSLATION MACROS

      5
      6					;-----THIS SOURCE MODULE CONTAINS THE UPDATE FOR TCO "KLI 4.2070".  THIS CHANGE
      7					; CAUSES A NOTIFICATION TO THE CTY WHEN A BLOCK IS TAKEN OFF LINE BECUASE OF A
      8					; DOUBLE BIT ERROR.  PRIOR TO THIS TCO THE BLOCK WAS REMOVED SILENTLY.
      9
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 96
MSSCTL RESIDENT MOSDET SUBROUTINE CODE

     12					.SBTTL		MSSCTL RESIDENT MOSDET SUBROUTINE CODE
     13
     14					;-----SUBROUTINE LOCAL TO THE MOSDET PROCESS.  FIRST RESET ALL MF20 DATA AREAS.
     15					; COPY DMA20 ADR RESPONSE SO THAT WE CAN CHECK FOR CONFLICT WITH PRECONFIGURED
     16					; (SS 2/3) MF20S.
     17	000000				MDINIT:	RESET	SBUS+CPU	;RESET HDWR
	000000	004537 	000006'			  JSR	R5,64$		;SAV R5, PT TO & SKIP SBUS+CPU LIST
	000004	100200 				  .WORD	SBUS+CPU
	000006	004737 	000000G		64$:	  JSR	PC,.RESET	;RESET SPECIFIED HARDWARE
	000012	012605 				 MOV	(SP)+,R5
     18	000014	105737 	000000G			TSTB	MF20RD		;WAS MF20 RESDET DONE BEFORE?
     19	000020	001002 				BNE	1$		;YES.. DON'T CLR DATA
     20	000022	004737 	000000G			JSR	PC,INIMDF	;INI MF20 DATA AREAS
     21	000026	012700 	000040 		1$:	MOV	#32.,R0		;COPY DMA20 RESP MAP INTO RSPMAP.
     22	000032	016060 	177776G	177776G	2$:	MOV	DMARMP-2(R0),RSPMAP-2(R0)
     23	000040	005300 				DEC	R0
     24	000042	077005 				SOB	R0,2$		; (LP TIL DONE)
     25					; NOW CREATE WHAT WE EXPECT THE "CPU CONNECTED" MAP TO BE.
     26	000044	012701 	000020G			MOV	#CONTI+MXMFCN+1,R1 ;CREATE A MAP OF SS 2/3 MF20S
     27	000050	005003 				CLR	R3		;THIS MAP GOES IN R3
     28	000052	114100 			3$:	MOVB	-(R1),R0
     29	000054	006200 				ASR	R0
     30	000056	006200 				ASR	R0
     31	000060	006103 				ROL	R3		; (SS 2/3 BIT INTO RHE OF R3)
     32	000062	020127 	000010G			CMP	R1,#CONTI+MNMFCN
     33	000066	101371 				BHI	3$		; (LP TIL ALL MF20S SEEN)
     34	000070	010337 	000000G			MOV	R3,XCONMP	;SAVE CONNECTED CPU MAP
     35	000074	000207 				RTS	PC
     36
     37
     38
     39					;-----SECTION FOR SS 0 MF20S.  THIS IS THE STATE AN MF20 WILL BE IN AFTER POWER
     40					; UP SO, NEEDLESS TO SAY, WE HAVE A LOT OF INITIALIZING TO DO.
     41	000076	126027 	000000G	000001 	MDST0:	CMPB	CONTI(R0),#1	;TEST THE SFTWR STATE OF THIS MF20
     42	000104	002047 				BGE	BOLPSJ		;CONTR NOT SS0.. GO TO NEXT CONTR
     43	000106					RDPROM			;GET ARRAY BD PROM DATA
	000106	004737 	002060'			  JSR	PC,RDPROM	;READ MOS PROM DATA FOR A CONTROLLER
     44	000112	103446 				BCS	MDHDEJ		;BR ON HDWR ERROR...EXPUNGE CONTR & RESTART
     45	000114					DPD			;DIGEST THAT DATA
	000114	004737 	002266'			  JSR	PC,DPD		;DIGEST PROM DATA FOR A MOS CONTROLLER
     46	000120	103443 				BCS	MDHDEJ		;BR ON HDWR ERROR...EXPUNGE CONTR & RESTART
     47	000122				MDST0A:	LDNADR			;LD FIXED VAL, TIMING, AND ALL THAT STUFF
	000122	004737 	002734'			  JSR	PC,LDNADR	;LOAD ALL NON-ADDRESS-RESPONSE RAMS FOR A MOS CONTROLLER
     48	000126	103440 				BCS	MDHDEJ		;BR ON HDWR ERROR...EXPUNGE CONTR & RESTART
     49	000130	105237 	000000G			INCB	DBESFL		;HAVE WE PRINTED DBE SCAN MSG YET?
     50	000134	001033 				BNE	BOLPSJ		;YES, PRINT NOW EVEN THO SCAN STARTS LATER
     51	000136					PMSG	<STARTING MF20 DBE SCAN.  WAIT 25 SEC/256K.\>
	000136	012700 	000150'			 MOV	#64$,R0		; ** MESSAGE POINTER TO R0
	000142	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	000146	000426 				 BR	65$		; ** BRANCH AROUND TEXT
	000150	   123 	   124 	   101 	64$:	 .ASCIZ	%STARTING MF20 DBE SCAN.  WAIT 25 SEC/256K.\%
     52
     53
     54	000224	000137 	000000G		BOLPSJ:	JMP	BOLPS		;DONE WITH SS0 MF20 FOR NOW.  DBE SCAN IS LATER
     55	000230	000137 	000000G		MDHDEJ:	JMP	MDHDER		;BR HERE FOR JUMP TO HARDWARE ERR ROUTINE
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 97
MSSCTL RESIDENT MOSDET SUBROUTINE CODE

     57
     58					;-----SECTION FOR SS 2/3 MF20S.  MAKE SURE THAT THERE ARE NO FATAL ERRORS
     59					; INDICATED IN THE ERROR FLAG REGISTER.  IF THERE IS AN ERROR THEN GET RID OF
     60					; THE CONTROLLER BECAUSE IT MOST LIKELY IS WHAT CRASHED THE SYSTEM.  "CONTR ERR"
     61					; DELETES THE CONTROLLER; "INCMP CYC", "ADR PAR" & "WR PAR" ERRORS ARE WARNINGS
     62					; (THEY COULD HAVE BEEN CAUSED BY THE CPU); AND MOS RAM DOUBLE BIT ERRORS WILL
     63					; DELETE THE FAULTY BLOCK & FORCE RECONFIGURATION.
     64
     65					;-----DOUBLE BIT ERROR?
     66	000234				MDST23:	SBDIAG	0000,0000,0000	;DO A FCN 0 TO GET THE ERR FLGS
	000234	004537 	000244'			  JSR	R5,64$		;SAV R5, PT TO & SKIP ARG LIST
	000240	000000 	000000
	000244	004737 	000000G		64$:	  JSR	PC,SBDT		;DO SBUS DIAG...WORD FOLLOWS
	000250	012605 				 MOV	(SP)+,R5
     67	000252	010001 				MOV	R0,R1		;SAV PTR TO ERR WD IN R1
     68	000254	032761 	000004 	000004 		BIT	#4,4(R1)	;IS "CORR ERR" FLG SET?
     69	000262	001006 				BNE	1$		;YES.. IGNORE "RD PAR" FLG
     70	000264	032761 	000001 	000004 		BIT	#1,4(R1)	;IS "RD PAR" SET (IE DID A DBE CRASH SYSTEM)
     71	000272	001402 				BEQ	1$		;NO, GO LOOK FOR OTHER ERRORS
     72	000274	000137 	000760'			JMP	9$		;ELSE GO PRINT PERTINENT INFO & DEL BAD BLOCK
     73
     74					;-----CONTROLLER ERROR (CTL RAM PAR ERR)?
     75	000300	032761 	000010 	000004 	1$:	BIT	#10,4(R1)	; "CONTR ERR" ?
     76	000306	001431 				BEQ	2$		;NO.. KEEP GOING
     77	000310	004737 	002012'			JSR	PC,13$		;ELSE DUMP FCN 0
     78	000314					PMSG	<\SBDIAG FCN 2: >
	000314	012700 	000326'			 MOV	#65$,R0		; ** MESSAGE POINTER TO R0
	000320	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	000324	000410 				 BR	66$		; ** BRANCH AROUND TEXT
	000326	   134 	   123 	   102 	65$:	 .ASCIZ	%\SBDIAG FCN 2: %
     79	000346					SBDIAG	0000,0000,0002	;DO A FCN 2 TO GET THE CTL RAM ERR FLAGS
	000346	004537 	000356'			  JSR	R5,67$		;SAV R5, PT TO & SKIP ARG LIST
	000352	000002 	000000
	000356	004737 	000000G		67$:	  JSR	PC,SBDT		;DO SBUS DIAG...WORD FOLLOWS
	000362	012605 				 MOV	(SP)+,R5
     80	000364					PNT36			;PRINT THEM OUT
	000364	004737 	000000G			 JSR	PC,$WDD36	; ** CALL TO PRINT ROUTINE
     81	000370	000717 				BR	MDHDEJ		;GO PRINT SOME MORE STUFF & DEL CONTR
     82
     83					;-----INCOMPLETE CYCLE?
     84	000372	032761 	000002 	000004 	2$:	BIT	#2,4(R1)	; "INCMP CYC" ?
     85	000400	001004 				BNE	3$		;YES
     86	000402	032761 	140000 	000002 		BIT	#140000,2(R1)	; "WR PAR" OR "ADR PAR" ERROR?
     87	000410	001461 				BEQ	4$		;NO... CONTROLLER IS OK
     88	000412	004737 	002012'		3$:	JSR	PC,13$		;DUMP FCN 0
     89	000416					PMSG	<   CONTR >
	000416	012700 	000430'			 MOV	#68$,R0		; ** MESSAGE POINTER TO R0
	000422	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	000426	000405 				 BR	69$		; ** BRANCH AROUND TEXT
	000430	   040 	   040 	   040 	68$:	 .ASCIZ	%   CONTR %
     90	000442	013700 	000000G			MOV	TSTCON,R0
     91	000446					PNTOCS			;PRINT CONTR NUMBER TOO
	000446	004737 	000000G			 JSR	PC,$TDB2O	; ** PRINT THE NUMBER
     92	000452					PMSG	<\WARNING: HDWR ERR SEEN.  CAUSE UNKNOWN.  CONTINUING.\>
	000452	012700 	000464'			 MOV	#70$,R0		; ** MESSAGE POINTER TO R0
	000456	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	000462	000434 				 BR	71$		; ** BRANCH AROUND TEXT
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 97-1
MSSCTL RESIDENT MOSDET SUBROUTINE CODE

	000464	   134 	   127 	   101 	70$:	 .ASCIZ	%\WARNING: HDWR ERR SEEN.  CAUSE UNKNOWN.  CONTINUING.\%
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 98
MSSCTL RESIDENT MOSDET SUBROUTINE CODE

     94
     95					;-----CONTROLLER IS OK.  ARE WE ALLOWING SS 2/3 MF20S?  IF NOT FORCE IT BACK TO
     96					; SS1 AND GO ON TO THE NEXT, OTHERWISE PROCEED TO THE NEXT SECTION.  MF20S PUT
     97					; BACK TO SS1 WILL BE HANDLED BY THE NEXT MOSDET STATE LOOP.
     98	000554	105737 	000000G		4$:	TSTB	FMRECN		;ARE WE FORCING MEM RECONFIG?
     99	000560	001402 				BEQ	5$		;NO.. HANDLE THIS MF20 NOW
    100	000562	000137 	000000G			JMP	MDST1B		;ELSE FRC CONTR TO SS1 AND HANDLE AS SUCH
    101
    102					;-----NOW SEE IF MF20 FITS IN WITH OTHERS.  IF NOT THEN FORCE IT AND ALL THE
    103					; OTHER SS 2/3 BACK TO SS 1.  IF SO THEN DELETE BAD BLOCKS IF NOT REQUIRED TO
    104					; KEEP THEM.
    105	000566	004737 	003004'		5$:	JSR	PC,QRESET
    106	000572					GETCMP			;GET "CONNECTED" MAP.  THIS MAP SAYS WHICH MF20
	000572	004737 	004734'			  JSR	PC,GETCMP	;MOV MF20 CPU CONNECT DATA FROM BITSUB RAM TO R0
    107									; SHOULD BE CONNECTED TO THIS CPU.  IF THIS MAP
    108									; DIFFERS FROM THE MAP COMPUTED EARLIER THEN THE
    109									; CONFIG IS BAD & WE MUST RECONFIGURE.
    110	000576	103430 				BCS	8$		;MAP FORMAT IS BAD...FORCE RECONF
    111	000600	020037 	000000G			CMP	R0,XCONMP	;IS MAP CORRECT?
    112	000604	001025 				BNE	8$		;NO...FORCE RECONF
    113	000606	105737 	000000G			TSTB	KEEPBB		;ARE WE KEEPING BAD BLOCKS?
    114	000612	001013 				BNE	7$		;YES
    115	000614					GETBBD			;GET BAD BLOCK DATA
	000614	004737 	004652'			  JSR	PC,GETBBD	;MOV MF20 BAD BLK DATA FROM BITSUB RAM TO R0
    116	000620	103003 				BCC	6$		;BR IF DATA FORMAT OK
    117	000622					SMFSS	0		;ELSE DROP MF20 TO SS 0...WE DONT KNOW BAD BLKS
	000622	004737 	000000G			  JSR	PC,SMFSS0	;GO SET SOFTWARE STATE TO 0
    118	000626	000414 				BR	8$		;FRC RECONF...A CONTR HAS BEEN WIPED OUT SOMEHOW
    119	000630				6$:	DCNFBB			;DECONF BAD BLKS BEFORE DOING CONFLICT CHECK
	000630	004737 	002516'			  JSR	PC,DCNFBB	;DECONFIGURE BAD MF20 BLOCKS, BAD BLK MAP IN R0
    120	000634	103002 				BCC	7$		;BR ON NO HDWR ERR
    121	000636	000137 	000000G			JMP	MDHDER		;ELSE EXPUNGE CONTR & RESTART
    122	000642	004737 	003004'		7$:	JSR	PC,QRESET	;DO QUICKY RESET OF CONTROLLER
    123	000646					MMRESP			;CHK FOR ADR RESP CONFLICT.  IF OK FILL DATA
	000646	004737 	000000G			  JSR	PC,MMRESP	;DETERMINE RESPONSE FOR A CONFIGURED MOS CONTROLLER
    124									; AREA WITH PSEUDO BLOCK LEN & ST ADR INFO.
    125	000652	103402 				BCS	8$		;BR IF CONFLICT.. SEND MSG & FORCE RECONFIGURE
    126	000654	000137 	000000G			JMP	BOLPS		;ELSE JUST GO ON TO NXT CONTR
    127	000660				8$:	PMSG	<EXISTING MEM CONFIG IS BAD.  RECONFIGURING.\>
	000660	012700 	000672'			 MOV	#72$,R0		; ** MESSAGE POINTER TO R0
	000664	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	000670	000427 				 BR	73$		; ** BRANCH AROUND TEXT
	000672	   105 	   130 	   111 	72$:	 .ASCIZ	%EXISTING MEM CONFIG IS BAD.  RECONFIGURING.\%
    128	000750	105237 	000000G			INCB	CCFAIL		;MARK CONFIG CONSISTENCY FAILURE
    129	000754	000137 	000000G			JMP	MDRECN		;CONFLICT...FORCE RECONFIGURE
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 99
MSSCTL RESIDENT MOSDET SUBROUTINE CODE

    131
    132					;-----SECTION TO TYPE OUT DOUBLE BIT ERROR INFORMATION, MARK THE BLOCK AS BAD,
    133					; AND FORCE RECONFIGURATION, THUS DELETING THE BLOCK.  THIS IS THE CODE BLOCK
    134					; WHICH WAS CHANGED FOR TCO "KLI 4.2070".  PRIOR TO THIS TCO, THIS CODE DELETED
    135					; THE BAD BLOCK BUT DIDN'T SAY ANYTHING ABOUT THE DELETION.
    136
    137	000760	012002 			9$:	MOV	(R0)+,R2	;CREATE ERROR ADDRESS FROM FCN 0 & 2 WORDS
    138	000762	011003 				MOV	(R0),R3
    139	000764					PMSG	<\DOUBLE BIT ERR FOUND IN CONFIGURED MF20.\FCN0: >
	000764	012700 	000776'			 MOV	#74$,R0		; ** MESSAGE POINTER TO R0
	000770	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	000774	000431 				 BR	75$		; ** BRANCH AROUND TEXT
	000776	   134 	   104 	   117 	74$:	 .ASCIZ	%\DOUBLE BIT ERR FOUND IN CONFIGURED MF20.\FCN0: %
    140	001060	010100 				MOV	R1,R0		;PT TO FCN 0 WORD
    141	001062					PNT36			;PRINT IT
	001062	004737 	000000G			 JSR	PC,$WDD36	; ** CALL TO PRINT ROUTINE
    142	001066					PNTBAK
    143	001066					PMSG	<, ERRADR: >
	001066	012700 	001100'			 MOV	#76$,R0		; ** MESSAGE POINTER TO R0
	001072	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	001076	000406 				 BR	77$		; ** BRANCH AROUND TEXT
	001100	   054 	   040 	   105 	76$:	 .ASCIZ	%, ERRADR: %
    144	001114					SBDIAG	0000,0000,0002	; (GET THE ERR WD NUM)
	001114	004537 	001124'			  JSR	R5,78$		;SAV R5, PT TO & SKIP ARG LIST
	001120	000002 	000000
	001124	004737 	000000G		78$:	  JSR	PC,SBDT		;DO SBUS DIAG...WORD FOLLOWS
	001130	012605 				 MOV	(SP)+,R5
    145	001132	116000 	000003 			MOVB	3(R0),R0
    146	001136	004737 	000000G			JSR	PC,ASR0.5
    147	001142	042700 	177774 			BIC	#-4,R0
    148	001146	042702 	000003 			BIC	#3,R2		; (PUT ERR WD NUM INTO ERR ADR)
    149	001152	050002 				BIS	R0,R2
    150	001154	042703 	177700 			BIC	#-64.,R3	; (CLR JUNK ABOVE ADR)
    151	001160	012700 	000002G			MOV	#DBUF+2,R0
    152	001164	010310 				MOV	R3,(R0)
    153	001166	010240 				MOV	R2,-(R0)
    154	001170					PNTADR			;PRINT 22 BIT ADR FROM FCNS 0(14-33) & 2(34-35)
	001170	004737 	000000G			 JSR	PC,$WDD22	; ** CALL TO PRINT ROUTINE
    155	001174					PNTBAK
    156	001174					PMSG	<, SYN: >
	001174	012700 	001206'			 MOV	#79$,R0		; ** MESSAGE POINTER TO R0
	001200	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	001204	000404 				 BR	80$		; ** BRANCH AROUND TEXT
	001206	   054 	   040 	   123 	79$:	 .ASCIZ	%, SYN: %
    157	001216					SBDIAG	0000,0000,0406	;DO FCN 6.1 TO READ THE SYN REG
	001216	004537 	001226'			  JSR	R5,81$		;SAV R5, PT TO & SKIP ARG LIST
	001222	000406 	000000
	001226	004737 	000000G		81$:	  JSR	PC,SBDT		;DO SBUS DIAG...WORD FOLLOWS
	001232	012605 				 MOV	(SP)+,R5
    158	001234	016000 	000002 			MOV	2(R0),R0	; (POSITION BITS 07-14 FOR PRINT)
    159	001240	004737 	000000G			JSR	PC,ASR0.5
    161	001244					PNTODT	3		;PRINT SYNDROME FROM FCN 6.1 BITS 07-14
	001244	010046 				 MOV	R0,-(SP)	; ** SAVE R0
	001246	042700 	177000 			 BIC	#^C777,R0	; ** MASK OUT UNWANTED BITS
	001252	004737 	000000G			 JSR	PC,$TDB2O	; ** PRINT THE NUMBER
	001256	012600 				 MOV	(SP)+,R0	; ** RESTORE R0
    162	001260					PMSG	<,\SBN: >
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 99-1
MSSCTL RESIDENT MOSDET SUBROUTINE CODE

	001260	012700 	001272'			 MOV	#82$,R0		; ** MESSAGE POINTER TO R0
	001264	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	001270	000404 				 BR	83$		; ** BRANCH AROUND TEXT
	001272	   054 	   134 	   123 	82$:	 .ASCIZ	%,\SBN: %
    163	001302	006102 				ROL	R2		;ISOALTE ADR 14-21 FOR USE IN FCN 12
    164	001304	006103 				ROL	R3
    165	001306	006102 				ROL	R2
    166	001310	006103 				ROL	R3
    167	001312	110337 	001773'			MOVB	R3,10$+1	;PUT ADRESP RAM ADR INTO FCN 12 WD
    168	001316					SBDIAG	10$		;DO THE FCN 12 TO GET FAILING BLOCK #
	001316	012700 	001772'			  MOV	#10$,R0		;PT TO ARG
	001322	004737 	000000G			  JSR	PC,SBD0		;DO SBUS DIAG...ADR OF WD IN R0
    169	001326	016000 	000002 			MOV	2(R0),R0	;GET RAW BLK # & DESEL BIT INTO R0
    170	001332	004737 	000000G			JSR	PC,ASR0.5	;CALC BAD BLK MAP WD FOR THIS BLOCK #
    171	001336	042700 	177741 			BIC	#177741,R0
    172	001342	010003 				MOV	R0,R3		;SAVE BLK # *2 IN R3
    173	001344					GETBBD			;GET EXISTING BAD BLK MAP FOR THIS CONTR
	001344	004737 	004652'			  JSR	PC,GETBBD	;MOV MF20 BAD BLK DATA FROM BITSUB RAM TO R0
    174	001350	056300 	000000G			BIS	BMTAB(R3),R0	;INCLUDE THE NEW BAD BLOCK
    175	001354					SETBBD			;PUT THE UPDATED MAP BACK IN THE BITSUB RAM
	001354	004737 	000000G			  JSR	PC,SETBBD	;MOV MF20 BAD BLK DATA FROM R0 TO BITSUB RAM
    176	001360	006202 				ASR	R2		;NOW COMBINE ADR 33-35 AND 4-BIT BLK # TO GET
    177	001362	006202 				ASR	R2		; BITSUB RAM LOC OF SPARE BIT NUMBER
    178	001364	006303 				ASL	R3
    179	001366	006303 				ASL	R3
    180	001370	042702 	177770 			BIC	#177770,R2
    181	001374	042703 	177607 			BIC	#177607,R3
    182	001400	050302 				BIS 	R3,R2
    183	001402	110237 	002000'			MOVB	R2,11$+1	;PUT BITSUB RAM ADR INTO FCN 7 WORD
    184	001406					SBDIAG	11$		;DO FCN 7 TO GET SPARE BIT NUMBER, ICE, & PAR
	001406	012700 	001777'			  MOV	#11$,R0		;PT TO ARG
	001412	004737 	000000G			  JSR	PC,SBD0		;DO SBUS DIAG...ADR OF WD IN R0
    185	001416	016000 	000002 			MOV	2(R0),R0
    186	001422	004737 	000000G			JSR	PC,ASR0.5
    188	001426					PNTODT	3		;PRINT SPARE BIT NUMBER FROM FCN 7 BITS 7-14
	001426	010046 				 MOV	R0,-(SP)	; ** SAVE R0
	001430	042700 	177000 			 BIC	#^C777,R0	; ** MASK OUT UNWANTED BITS
	001434	004737 	000000G			 JSR	PC,$TDB2O	; ** PRINT THE NUMBER
	001440	012600 				 MOV	(SP)+,R0	; ** RESTORE R0
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 100
MSSCTL RESIDENT MOSDET SUBROUTINE CODE

    190
    191	001442					PMSG	<, DATA: >
	001442	012700 	001454'			 MOV	#86$,R0		; ** MESSAGE POINTER TO R0
	001446	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	001452	000405 				 BR	87$		; ** BRANCH AROUND TEXT
	001454	   054 	   040 	   104 	86$:	 .ASCIZ	%, DATA: %
    192	001466	013702 	000000G			MOV	TSTCON,R2	;GET CONTR #
    193	001472	116237 	000000G	002005'		MOVB	CONTI(R2),12$+1	;PUT SOFTWARE STATE INTO FCN 1 WD
    194	001500					SBDIAG	12$		;ENABLE THE CONTROLLER IN ITS CURRENT STATE
	001500	012700 	002004'			  MOV	#12$,R0		;PT TO ARG
	001504	004737 	000000G			  JSR	PC,SBD0		;DO SBUS DIAG...ADR OF WD IN R0
    195	001510	012700 	000000G			MOV	#DBUF,R0	;PT AT 10 DATA ADR
    196	001514					EXAM			;READ THE DATA
	001514	010146 				MOV	R1,-(SP)	; [4.2218] SAVE R1
	001516	012701 	000000G			MOV	#.WORK,R1	; [4.2218] WORK SPACE
	001522	004737 	000000G			 JSR	PC,$EXAMD	; ** EXECUTE THE KL10 EXAMINE
	001526	012700 	000000G			MOV	#.WORK,R0	; [4.2218] PTR TO 36 BIT
	001532	012601 				MOV	(SP)+,R1	; [4.2218] RESTORE R1
    197	001534					PNT36			;PRINT DATA AS RETRIEVED FROM MEMORY
	001534	004737 	000000G			 JSR	PC,$WDD36	; ** CALL TO PRINT ROUTINE
    198	001540					PNTBAK
    199	001540					PMSG	<, ECC: >
	001540	012700 	001552'			 MOV	#89$,R0		; ** MESSAGE POINTER TO R0
	001544	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	001550	000404 				 BR	90$		; ** BRANCH AROUND TEXT
	001552	   054 	   040 	   105 	89$:	 .ASCIZ	%, ECC: %
    200	001562					SBDIAG	0000,0000,0006	;READ THE ECC REG
	001562	004537 	001572'			  JSR	R5,91$		;SAV R5, PT TO & SKIP ARG LIST
	001566	000006 	000000
	001572	004737 	000000G		91$:	  JSR	PC,SBDT		;DO SBUS DIAG...WORD FOLLOWS
	001576	012605 				 MOV	(SP)+,R5
    201	001600	016000 	000002 			MOV	2(R0),R0
    202	001604	004737 	000000G			JSR	PC,ASR0.5
    204	001610					PNTODT	3		;PRINT ECC FROM FUNCTION 6.0 BITS 7-14
	001610	010046 				 MOV	R0,-(SP)	; ** SAVE R0
	001612	042700 	177000 			 BIC	#^C777,R0	; ** MASK OUT UNWANTED BITS
	001616	004737 	000000G			 JSR	PC,$TDB2O	; ** PRINT THE NUMBER
	001622	012600 				 MOV	(SP)+,R0	; ** RESTORE R0
    205	001624					PMSG	<\CONTROLLER >
	001624	012700 	001636'			 MOV	#92$,R0		; ** MESSAGE POINTER TO R0
	001630	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	001634	000407 				 BR	93$		; ** BRANCH AROUND TEXT
	001636	   134 	   103 	   117 	92$:	 .ASCIZ	%\CONTROLLER %
    206	001654	010200 				MOV	R2,R0		;GET CONTR #
    207	001656					PNTOCS			;PRINT MF20 CONTROLLER NUMBER
	001656	004737 	000000G			 JSR	PC,$TDB2O	; ** PRINT THE NUMBER
    208	001662					PMSG	< BLOCK >
	001662	012700 	001674'			 MOV	#94$,R0		; ** MESSAGE POINTER TO R0
	001666	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	001672	000404 				 BR	95$		; ** BRANCH AROUND TEXT
	001674	   040 	   102 	   114 	94$:	 .ASCIZ	% BLOCK %
    209	001704	010300 				MOV	R3,R0
    210	001706	004737 	000000G			JSR	PC,ASR0.3
    212	001712					PNTODT	2		;PRINT 4-BIT GROUP/BLOCK NUMBER FROM FCN 12
	001712	010046 				 MOV	R0,-(SP)	; ** SAVE R0
	001714	042700 	177700 			 BIC	#^C77,R0	; ** MASK OUT UNWANTED BITS
	001720	004737 	000000G			 JSR	PC,$TDB2O	; ** PRINT THE NUMBER
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 100-1
MSSCTL RESIDENT MOSDET SUBROUTINE CODE

	001724	012600 				 MOV	(SP)+,R0	; ** RESTORE R0
    213	001726					PMSG	< DELETED.\\>
	001726	012700 	001740'			 MOV	#96$,R0		; ** MESSAGE POINTER TO R0
	001732	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	001736	000406 				 BR	97$		; ** BRANCH AROUND TEXT
	001740	   040 	   104 	   105 	96$:	 .ASCIZ	% DELETED.\\%
    214	001754	004737 	003004'			JSR	PC,QRESET	;DO QUICK RESET TO OFF THE ERROR FLAG
    215	001760	112737 	177777 	000000G		MOVB	#-1,CCFAIL	;MARK EXISTING CONFIG AS INCONSISTENT
    216	001766	000137 	000000G			JMP	MDRECN		;GO FORCE RECONFIGURATION
    217
    218	001772				10$:	WD36	0000,0000,0012	;FCN 12 WD FOR GETTING REPSONDING BLK #
	001772	   012 	   000 	   000
	001775	   000 	   000
    219	001777				11$:	WD36	0000,0000,0007	;FCN 7 WD TO READ SPARE BIT NUMBER
	001777	   007 	   000 	   000
	002002	   000 	   000
    220	002004				12$:	WD36	0000,0000,0201	;FCN 1 WD TO SET SS BITS AND CLR DISABLE
	002004	   201 	   000 	   000
	002007	   000 	   000
    221						.EVEN
    222
    223					;-----LOCAL SUBROUTINE TO PRINT SBDIAG FUNCTION 0 DATA.
    224	002012				13$:	PMSG	<\SBDIAG FCN 0: > ;LOCAL SUBROUTINE TO DUMP THE FCN 0 WD
	002012	012700 	002024'			 MOV	#98$,R0		; ** MESSAGE POINTER TO R0
	002016	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	002022	000410 				 BR	99$		; ** BRANCH AROUND TEXT
	002024	   134 	   123 	   102 	98$:	 .ASCIZ	%\SBDIAG FCN 0: %
    225	002044	010100 				MOV	R1,R0
    226	002046					PNT36
	002046	004737 	000000G			 JSR	PC,$WDD36	; ** CALL TO PRINT ROUTINE
    227	002052	000207 				RTS	PC
    230
    231
    232					.REM	%
    233						DUMMY ROUTINE TO DO MX20 RESOURCE DETERMINATION
    234						%
    235
    236	002054	000241 			MX20MD:	CLC			;INDICATE NO ERROR
    237	002056	000207 				RTS	PC		;RETURN
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 101
READ MOS PROM DATA FOR A CONTROLLER

    241					.SBTTL		READ MOS PROM DATA FOR A CONTROLLER
    242
    243					.REM	%
    244
    245						RDPROM IS A SUBROUTINE DESIGNED TO READ THE PROM DATA FROM THE CURRENT
    246					MF20 CONTROLLER (TSTCON) AND PLACE THIS DATA IN DBUF.  IT IS ASSUMED THERE ARE
    247					48 BYTES OF DATA TO BE READ FOR ANY MOS CONTR.
    248
    249						AS SET UP IN DBUF, THE DATA HAS THE FOLLOWING FORMAT:
    250
    251					PDP-11 BYTE:	3	2	1	0
    252					PROM BYTE:	0	1	2	3
    253					 CONTENTS:	YYYYWWWWWW###########PPABNNSSMMM
    254
    255					 WHERE:
    256					YYYY	IS THE 4-BIT LAST-DIGIT-OF-THE-YEAR CODE.
    257					WWWWWW	IS THE WEEK-OF-THE-YEAR CODE.
    258					#....#	IS THE 11-BIT SERIAL NUMBER FOR THE WEEK.
    259					PP	IS THE POPULATION CODE: 11 => 4 BLOCKS (FULLY POPULATED), 10 =>
    260						3 BLOCKS (0,1,2), 01 => 2 BLOCKS (0,1), AND 00 => 1 BLOCK (0).
    261					A	IS A PARITY BIT SUCH THAT YYYYWWWWWW###########PPA HAS EVEN PARITY.
    262					B	IS A PARITY BIT SUCH THAT BNNSSMMM HAS ODD PARITY.
    263					NN	IS THE TIMING NUMBER.  0-3 PERMITTED.  MUST BE DIFFERENT FOR EACH ACTUAL
    264						DIFFERENT TIMING USED.  NUMBERS MAY BE REUSED FOR DIFFERENT RAM SIZES.
    265					SS	RAM SIZE CODE.  00-64K RAMS, 01-32K, 10-16K, 11-4K.
    266					NNN	RAM MANUFACTURER CODE.
    267
    268						12 OF THESE 4 BYTE ENTRIES ARE SET UP IN THE FOLLOWING ORDER: GROUP 0,
    269					FIELD 0; GRP 0 FLD 1; ....  ; GRP 2 FLD 3.
    270
    271						%
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 102
READ MOS PROM DATA FOR A CONTROLLER

    273
    274	002060				RDPROM:	CNTSD	5$		;CONTR # TO SBDIAG WD
	002060	012700 	002260'			  MOV	#5$,R0		;PT TO SBDIAG WD
	002064	004737 	000000G			  JSR	PC,CNTSD1	;CONTR # TO SBDIAG WD (ADDR IN R0)
    275	002070					MRESET			;RESET MACHINE
	002070	004737 	000000G			 JSR	PC,$KLMR	; ** MASTER RESET THE KL10
    276	002074					DFXCTT	STRCLK
	002074	012700 	000001 			 MOV	#STRCLK,R0	; ** FUNCTION CODE TO R0
	002100	004737 	000000G			 JSR	PC,$DDFXC	; ** EXECUTE THE FUNCTION EXECUTE
    278	002104					LOADAC	PRMDPM,4$	;LOAD AC PROGRAM
	002104	004537 	002114'			  JSR	R5,64$		;SAV R5, PT TO & SKIP ARG LIST
	002110	037740 				  .WORD PRMDPM		;LOAD MASK
	002112	002210'				  .WORD 4$		;PDP11 MEM ADR(S)
	002114	004737 	000000G		64$:	  JSR	PC,ACLOAD	;LOAD ACS FROM CONTIGUOUS 11 MEM
	002120	012605 				 MOV	(SP)+,R5
    279	002122					RUN	AC7		;RUN PRGM 1ST TIME
	002122	004537 	002130'			  JSR	R5,65$		;SAV R5, PT TO & SKIP ARG LIST
	002126	000007 				  .WORD	AC7		;STARTING ADR
	002130	004737 	000000G		65$:	  JSR	PC,RUNPRG	;RUN PRGM 1 TIC USING GIVEN PC
	002134	012605 				 MOV	(SP)+,R5
    280	002136					PUSH	R1
	002136	010146 				 MOV	R1,-(SP)
    281	002140	012701 	000000G			MOV	#DBUF,R1	;INI EXAMT 11 ADR
    282	002144	000402 				BR	2$
    283	002146				1$:	CONTIN			;RUN PRGM AGAIN
	002146	004737 	000000G			  JSR	PC,CONTIN	;RUN & CONTINUE
    285	002152				2$:	PUSH	R1		;PRESERVE ADR PTR
	002152	010146 				 MOV	R1,-(SP)
    286	002154					EXAMT	AC17		;GET CONTENTS OF AC17
	002154	012700 	000017 			 MOV	#AC17,R0	; ** ADDRESS POINTER TO R0
	002160	004737 	000000G			 JSR	PC,$EXAMT	; ** EXECUTE THE KL10 EXAMINE
    287	002164					POP	R1		;RESTORE ADR PTR
	002164	012601 				 MOV	(SP)+,R1
    293	002166	004737 	000000G			JSR	PC,CHKED
    294	002172	062701 	000004 			ADD	#4,R1		;WHERE NXT ENTRY GOES
    295	002176	020127 	000060G			CMP	R1,#DBUF+48.	;IS THERE A NXT ENT TO DO?
    296	002202	103761 				BLO	1$		;YES...DO IT
    297	002204					POP	R1
	002204	012601 				 MOV	(SP)+,R1
    298	002206	000207 				RTS	PC
    299
    300					;-----AC PROGRAM FOR RDPROM.  GETS 4 BYTES AND HALTS.  UPON CONTINUATION IT
    301					; GOES TO THE NEXT FIELD, ETC.
    302
    303	002210					BLK10	5
    304	002210				4$:	I10	TLNN,15,,30	;5-SKIP IF STILL IN FIELD
	002210	   030 	   000 	   200
	002213	   076 	   014
    305	002215					I10	JRST,4,,7	;6-ELSE WAIT FOR 11 TO GET PROM DATA
	002215	   007 	   000 	   000
	002220	   142 	   005
    306	002222					IO10	SBDIAG,,,15	;7- <START> GET NEXT BYTE OF PROM DATA
	002222	   015 	   000 	   000
	002225	   005 	   016
    307	002227					I10	LSH,16,,7	;10-POSITION
	002227	   007 	   000 	   000
	002232	   027 	   005
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 102-1
READ MOS PROM DATA FOR A CONTROLLER

    308	002234					I10	ROTC,16,,10	;11-INCLUDE IN WORD
	002234	   010 	   000 	   000
	002237	   057 	   005
    309	002241					I10	ADD,15,,14	;12-ADR OF NXT PROM BYTE
	002241	   014 	   000 	   200
	002244	   306 	   005
    310	002246					I10	JRST,,,5	;13-LOOP
	002246	   005 	   000 	   000
	002251	   140 	   005
    311	002253					WD36	0000,1000,0000	;14-PROM BYTE # INCR
	002253	   000 	   000 	   040
	002256	   000 	   000
    312	002260				5$:	WD36	0000,0000,0002	;15-BLANK FUNC 02 WD
	002260	   002 	   000 	   000
	002263	   000 	   000
    313									;16-RESPONSE FROM PROM
    314	002265					ENDBLK	PRMDPM		;17-4 PROM BYTES BUILT UP HERE
    315						.EVEN
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 103
DIGEST PROM DATA FOR A MOS CONTROLLER

    319					.SBTTL		DIGEST PROM DATA FOR A MOS CONTROLLER
    320
    321					.REM	%
    322						SUBROUTINE DPD "DIGESTS" PROM DATA.  IT FIRST FINDS OUT WHICH IS THE
    323					SMALLER OF THE CONTROLLER'S 2 RAM SIZES.  THIS IS THE TYPSEL=0 RAM SIZE.  (IT IS
    324					REQUIRED THAT THERE ARE ONLY 1 OR 2 RAM SIZES IN THE CONTROLLER.) AFTER FINDING
    325					THIS IT SETS THE REST OF THE INFO AVAILABLE FROM THE PROM: PHYSICAL BLOCK MAP,
    326					BLOCK TYPSEL, AND TIMING ID FOR BOTH TYPSELS.  IT IS ASSUMED THAT RDPROM HAS
    327					ALREADY BEEN CALLED FOR THIS CONTROLLER.
    328						%
    329
    330	002266				DPD:	SAV.5
	002266	004737 	000000G			  JSR	PC,SAV.5	;SAVE R5-R1 ON STACK
    331					;-----FIND SMALLEST RAM SIZE IN CONTROLLER.
    332	002272					SBDIAG	0000,0000,0011	;DO A NULL FUNC 11 TO READ THE 4K EN H BIT
	002272	004537 	002302'			  JSR	R5,64$		;SAV R5, PT TO & SKIP ARG LIST
	002276	000011 	000000
	002302	004737 	000000G		64$:	  JSR	PC,SBDT		;DO SBUS DIAG...WORD FOLLOWS
	002306	012605 				 MOV	(SP)+,R5
    333	002310	012737 	000002 	000000G		MOV	#2,DPDSRS	;ASSUME 16K RAMS ARE SMALLEST
    334	002316	032710 	000100 			BIT	#100,(R0)	;IS 4K EN H SET?
    335	002322	001402 				BEQ	1$		;NO...16K IS SMALLEST
    336	002324	005237 	000000G			INC	DPDSRS		;ELSE SET SMALLEST RAM SIZ CODE TO 11 (4K)
    337					;-----CREATE MOS PHYSICAL TABLE WORDS.
    338	002330	013705 	000000G		1$:	MOV	TSTCON,R5	;CONTR #
    339	002334	105065 	177770G			CLRB	RAMSZ1-MNMFCN(R5) ;ASSUME NO LARGER RAM SIZ FOR NOW
    340	002340	105065 	177770G			CLRB	TIMNO1-MNMFCN(R5)
    341	002344	012704 	000000G			MOV	#DBUF,R4	;PROM DATA BUFFER PTR
    342	002350	004737 	000000G			JSR	PC,BAF		;CALC BLK SIZ LIST START
    343	002354	010003 				MOV	R0,R3		;  TO R3
    344	002356	005013 			2$:	CLR	(R3)		;CLR BLK SIZ TBL BYTES FOR GROUP
    345	002360	005063 	000002 			CLR	2(R3)
    347	002364	005063 	000140 			CLR	MSAMSZ(R3)	;CLR BLK ST ADR BYTES FOR GROUP
    348	002370	005063 	000142 			CLR	MSAMSZ+2(R3)
    350	002374	112400 				MOVB	(R4)+,R0	;GET RAM SIZ CODE & TIMING NUMBER BYTE
    351	002376	020027 	177777 			CMP	R0,#-1		;DOES GROUP EXIST?
    352	002402	001435 				BEQ	5$		;NO...SKIP IT
    353	002404	004737 	000000G			JSR	PC,ASR0.3	;ELSE ISOLATE BOTH NUMBERS
    354	002410	010001 				MOV	R0,R1
    355	002412	006201 				ASR	R1
    356	002414	006201 				ASR	R1
    357	002416	042700 	177774 			BIC	#-4.,R0		;SIZE CODE
    358	002422	042701 	177774 			BIC	#-4.,R1		;TIMING #
    359	002426	010502 				MOV	R5,R2		;TIMING INFO INDEX
    360	002430	020037 	000000G			CMP	R0,DPDSRS	;IS THIS THE SMALLER (TYPSEL=0) RAM SIZ?
    361	002434	001402 				BEQ	3$		;YES
    362	002436	062702 	000010 			ADD	#RS0RS1,R2	;ELSE BUMP NDX FOR TYPSEL=1 TABLES
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 104
DIGEST PROM DATA FOR A MOS CONTROLLER

    364
    365	002442	110062 	177770G		3$:	MOVB	R0,RAMSZ0-MNMFCN(R2) ;RECORD SIZE CODE
    366	002446	110162 	177770G			MOVB	R1,TIMNO0-MNMFCN(R2) ;RECORD TIMING NUMBER
    367	002452	111402 				MOVB	(R4),R2		;GET PROM BYTE WITH POPULATION BITS
    368	002454	006202 				ASR	R2		;POSITION POP BITS
    369	002456	042702 	177774 			BIC	#-4,R2		;ISOLATE POP CNT
    370	002462					PUSH	R3		;SAV PTR FOR LATER
	002462	010346 				 MOV	R3,-(SP)
    371	002464	116023 	000000G		4$:	MOVB	BSIZE(R0),(R3)+	;BLK SIZE TO BLK SIZE TABLE
    372	002470	005302 				DEC	R2		;DONE ALL BLKS IN GROUP?
    373	002472	002374 				BGE	4$		;NO...DO MORE
    374	002474					POP	R3		;UPDATE BLK TBL PTR FOR NXT GROUP
	002474	012603 				 MOV	(SP)+,R3
    375	002476	022323 			5$:	CMP	(R3)+,(R3)+
    376	002500	062704 	000017 			ADD	#15.,R4		;UPD PROM DATA PTR FOR NXT GROUP
    377	002504	020427 	000060G			CMP	R4,#DBUF+48.	;DONE?
    378	002510	103722 				BLO	2$		;NO
    379	002512					R5.PC			;ELSE RESTORE & RETURN
	002512	000137 	000000G			  JMP	R5.PC		;RESTORE R1-R5 FROM STACK & DO RTS PC
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 105
SUBROUTINE TO DECONFIGURE BAD MF20 BLOCKS

    383					.SBTTL		SUBROUTINE TO DECONFIGURE BAD MF20 BLOCKS
    384
    385					.REM	%
    386						DCNFBB LOADS AN AC PROGRAM TO DECONFIGURE BAD BLOCKS.  THE PDP-11 LOADS
    387					A 4-BIT BLOCK NUMBER INTO BITS 10-13 OF AC11 AND RUNS THE AC PRGM.  THE PROGRAM
    388					THEN LOOKS FOR ALL OCCURENCES OF THAT BLOCK IN THE ADDRESS RESPONSE CONTROL RAM.
    389					WHEN ONE IS FOUND, A VALUE IS LOADED INTO THE RAM WHICH CAUSES THE BAD BLOCK TO
    390					NO LONGER BE USED.  DCNFBB EXPECTS THAT THE BAD BLOCK MAP IS IN R0 UPON ENTRY.
    391					A C-BIT SET RETURN IS DONE IF THERE IS AN ERROR.  R0 DESTROYED.
    392						%
    393
    394	002516				DCNFBB:	PUSH	R1		;SAV REG
	002516	010146 				 MOV	R1,-(SP)
    395	002520	010001 				MOV	R0,R1		;COPY MAP INTO R1
    396	002522	001443 				BEQ	3$		;IF MAP IS EMPTY DON'T DO THIS SUBROUTINE
    397	002524	005037 	000002G			CLR	REAPWD+2	;INI BLK # WHICH GETS LOADED WITH AC PRGM
    398	002530					RESET	CPU
	002530	004537 	002536'			  JSR	R5,64$		;SAV R5, PT TO & SKIP CPU LIST
	002534	000200 				  .WORD	CPU
	002536	004737 	000000G		64$:	  JSR	PC,.RESET	;RESET SPECIFIED HARDWARE
	002542	012605 				 MOV	(SP)+,R5
    399	002544	012737 	000000G	000000G		MOV	#DFRLST,DLNXT	;RESET DEFERED LOAD LIST PTR
    400	002552					LOADAC	DCNFPM,5$	;LOAD THE AC PROGRAM
	002552	004537 	002562'			  JSR	R5,65$		;SAV R5, PT TO & SKIP ARG LIST
	002556	013777 				  .WORD DCNFPM		;LOAD MASK
	002560	002640'				  .WORD 5$		;PDP11 MEM ADR(S)
	002562	004737 	000000G		65$:	  JSR	PC,ACLOAD	;LOAD ACS FROM CONTIGUOUS 11 MEM
	002566	012605 				 MOV	(SP)+,R5
    401	002570	005701 			1$:	TST	R1		;ANY MORE BAD BLOCKS?
    402	002572	001417 				BEQ	3$		;NO.. EXIT
    403	002574	006001 				ROR	R1		;IS THIS BLOCK BAD?
    404	002576	103011 				BCC	2$		;NO.. TRY NXT
    405	002600					LDEFER			;DO DEFERED AC LOADS (SBDIAG WDS & BLK #)
	002600	004737 	000000G			  JSR	PC,LDEFER	;DO DEFERED LOADS NOW
    406	002604					RUN	AC0		;RUN THE PRGM TO DECONF THE BLK
	002604	004537 	002612'			  JSR	R5,66$		;SAV R5, PT TO & SKIP ARG LIST
	002610	000000 				  .WORD	AC0		;STARTING ADR
	002612	004737 	000000G		66$:	  JSR	PC,RUNPRG	;RUN PRGM 1 TIC USING GIVEN PC
	002616	012605 				 MOV	(SP)+,R5
    407	002620	103405 				BCS	4$		;BR ON ERR
    408	002622	062737 	000100 	000002G	2$:	ADD	#100,REAPWD+2	;NXT BLK #
    409	002630	000757 				BR	1$		;LP
    410	002632	000241 			3$:	CLC			;IND NO ERR
    411	002634				4$:	POP	R1
	002634	012601 				 MOV	(SP)+,R1
    412	002636	000207 				RTS	PC
    414
    415	002640					BLK10
    416	002640				5$:	I10	SUBI,12,,400	;0- <START> NXT ADRESP RAM ADR
	002640	   000 	   001 	   000
	002643	   355 	   005
    417	002645					I10	HRR,14,,12	;1-COPY TO OTHER SBDIAG
	002645	   012 	   000 	   000
	002650	   006 	   013
    418	002652					IO10	SBDIAG,,,12	;2-RD WHICH GROUP/BLOCK SHOULD RESPOND
	002652	   012 	   000 	   000
	002655	   005 	   016
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 105-1
SUBROUTINE TO DECONFIGURE BAD MF20 BLOCKS

    419	002657					I10	XOR,13,,11	;3-CALC DIFS AGAINST BAD GRP/BLK #
	002657	   011 	   000 	   200
	002662	   305 	   010
    420	002664					I10	TLNN,13,,360	;4-SKIP IF DIFFERENT...DO NOT DECONFIGURE
	002664	   360 	   000 	   200
	002667	   075 	   014
    421	002671					IO10	SBDIAG,,,14	;5-ELSE DECONFIGURE THIS ADRESP RAM LOC
	002671	   014 	   000 	   000
	002674	   005 	   016
    422	002676					I10	TRNE,12,,177400	;6-SKIP IF ALL ADRESP RAM LOCS CHECKED
	002676	   000 	   377 	   000
	002701	   025 	   014
    423	002703					I10	JRST,,,0	;7-ELSE LOOP
	002703	   000 	   000 	   000
	002706	   140 	   005
    424	002710					I10	JRST,4,,0	;10-HALT WHEN DONE
	002710	   000 	   000 	   000
	002713	   142 	   005
    425	002715					IND36	REAPWD		;11-BAD GRP/BLK # PUT HERE IN BITS 10-13
    426	002722					WD36	0000,0020,0012 SDW ;12-SBDIAG WD TO READ AN ADRESP RAM LOC
	002722	   012 	   000 	   001
	002725	   000 	   040
    427									;13-LOC CONTENTS PUT HERE
    428	002727					WD36	0003,1417,7412 SDW ;14-SBDIAG WD TO SET GRP 3, BLK 0, DESELECTED
	002727	   012 	   377 	   060
	002732	   003 	   040
    429									;15-SCRATCH
    430		013777 			DCNFPM=013777			;16-17 NOT USED
    431	002734					ENDBLK
    432						.EVEN
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 106
LOAD ALL NON-ADDRESS-RESPONSE RAMS FOR A MOS CONTROLLER

    436					.SBTTL		LOAD ALL NON-ADDRESS-RESPONSE RAMS FOR A MOS CONTROLLER
    437
    438					.REM	%
    439						LDNADR IS THE HIGHEST LEVEL SUBROUTINE RESPONSIBLE FOR LOADING ALL THE
    440					"NON-ADDRESS" RELATED RAMS AND LATCHES.  IT CALLS SEVERAL OTHER SUBROUTINES
    441					WHICH DO THE INDIVIDUAL FUNCTIONS.  QRESET IS A QUICK RESET DONE FOR ALL
    442					CONTROLLERS JUST TO "MAKE SURE".
    443						%
    444
    445	002734				LDNADR:	SBDIAG	0000,0010,0411	;KLUGE FORCES BUSY-CLR, PREVENTS POWER-ON ERROR
	002734	004537 	002744'			  JSR	R5,64$		;SAV R5, PT TO & SKIP ARG LIST
	002740	100411 	000000
	002744	004737 	000000G		64$:	  JSR	PC,SBDT		;DO SBUS DIAG...WORD FOLLOWS
	002750	012605 				 MOV	(SP)+,R5
    446	002752					FSDCHK	4$,5$		;SHUT OFF REFR & CHK
	002752	004537 	002762'			  JSR	R5,65$		;SAV R5, PT TO & SKIP ARG LIST
	002756	003110'	003103'			  .WORD	5$,4$	;MASK & FUNCTION ADDRESSES
	002762	004737 	000000G		65$:	  JSR	PC,FSDCHK	;DO SBUS DIAG & CHECK
	002766	012605 				 MOV	(SP)+,R5
    447	002770					LDFVR			;LOAD FIXED VALUE LOGIC RAMS
	002770	004737 	003116'			  JSR	PC,LDFVR	;LOAD A MOS CONTROLLER'S FIXED VALUE RAMS
    448	002774					LDTIMR			;LOAD TIMING RAMS
	002774	004737 	003452'			  JSR	PC,LDTIMR	;LOAD A MOS CONTROLLER'S TIMING RAMS
    449	003000					LDREFR			;LOAD AND START REFRESH
	003000	004737 	004000'			  JSR	PC,LDREFR	;LOAD & START REFRESH FOR A MOS CONTROLLER
    450		003004'			QRESET=.
    451	003004					FSDMSK	3$		;LD MSK FOR BOTH FUNCTIONS BELOW
	003004	012700 	003076'			  MOV	#3$,R0		;PT TO MASK
	003010	004737 	000000G			  JSR	PC,FSDM1	;LD SBDIAG CHK MASK PTD TO BY R0
    452	003014					FSD	1$,FAULT	;CLR THE ECC COMP REG (FUNC 06.4)
	003014	004537 	003022'			  JSR	R5,66$		;SAV R5, PT TO & SKIP FAULT LIST
	003020	003064'				  .WORD	1$		;SBDIAG WORD ADDRESS
	003022	004737 	000000G		66$:	  JSR	PC,FSDCH	;DO FAST SBDIAG, FAULT ON ERR
	003026	012605 				 MOV	(SP)+,R5
    453	003030					FSD	2$,FAULT	;CLR VOLTAGE MARGINS, CORDIS, & DC BAD (FUNC 10)
	003030	004537 	003036'			  JSR	R5,67$		;SAV R5, PT TO & SKIP FAULT LIST
	003034	003071'				  .WORD	2$		;SBDIAG WORD ADDRESS
	003036	004737 	000000G		67$:	  JSR	PC,FSDCH	;DO FAST SBDIAG, FAULT ON ERR
	003042	012605 				 MOV	(SP)+,R5
    454	003044					SBDIAG	0100,0000,0000	;DO A CLEAR 0-5 TO RESET ERR FLAGS
	003044	004537 	003054'			  JSR	R5,68$		;SAV R5, PT TO & SKIP ARG LIST
	003050	000000 	040000
	003054	004737 	000000G		68$:	  JSR	PC,SBDT		;DO SBUS DIAG...WORD FOLLOWS
	003060	012605 				 MOV	(SP)+,R5
    455	003062	000207 				RTS	PC
    456	003064				1$:	WD36	0000,0400,2006
	003064	   006 	   004 	   020
	003067	   000 	   000
    457	003071				2$:	WD36	0000,0400,0410
	003071	   010 	   001 	   020
	003074	   000 	   000
    458	003076				3$:	WD36	7600,0400,2416	;MASK FOR THE 2 FCNS ABOVE
	003076	   016 	   005 	   020
	003101	   200 	   017
    459	003103				4$:	WD36	0000,0002,0004	;SBDIAG F4 WD TO SHUT OFF REFR
	003103	   004 	   040 	   000
	003106	   000 	   000
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 106-1
LOAD ALL NON-ADDRESS-RESPONSE RAMS FOR A MOS CONTROLLER

    460	003110				5$:	WD36	7600,0002,0004	;FSD MASK FOR FCN ABOVE
	003110	   004 	   040 	   000
	003113	   200 	   017
    461						.EVEN
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 107
LOAD A MOS CONTROLLER'S FIXED VALUE RAMS

    465					.SBTTL		LOAD A MOS CONTROLLER'S FIXED VALUE RAMS
    466
    467					.REM	%
    468						LDFVR IS THE SUBROUTINE WHICH LOADS AND MF20'S FIXED VALUE RAMS.  THE
    469					CONTENT OF THESE RAMS IS USED TO CONTROL WORD NUMBERS, ACKNS, AND DATA VALID
    470					DURING READ CYCLES.
    471						%
    472
    473					;-----EXTRACTION OF DATA FROM THE TABLE (MFIXED) IS DONE IN REVERSE ORDER
    474					; (RAM ADR 377 FIRST) AND IS SOMEWHAT COMPLEX.  BE CAREFULL IF YOU ALTER THIS
    475					; CODE.
    476	003116				LDFVR:	SAV.5
	003116	004737 	000000G			  JSR	PC,SAV.5	;SAVE R5-R1 ON STACK
    477	003122	012702 	003452'			MOV	#MFXEND,R2	;PT PAST END OF DATA TABLE
    478	003126	105037 	003241'			CLRB	4$		;INI RAM LD ADR
    479	003132					FSDMSK	6$		;SET MASK FOR CHECKING LD
	003132	012700 	003245'			  MOV	#6$,R0		;PT TO MASK
	003136	004737 	000000G			  JSR	PC,FSDM1	;LD SBDIAG CHK MASK PTD TO BY R0
    480	003142	012703 	000004 		1$:	MOV	#4,R3		;LOOPS/WORD COUNT
    481	003146	014204 				MOV	-(R2),R4	;GET DATA WORD
    482	003150	010400 			2$:	MOV	R4,R0		;COPY & POSITION BITS
    483	003152	042700 	177760 			BIC	#177760,R0
    484	003156	000300 				SWAB	R0
    485	003160	006200 				ASR	R0
    486	003162	006200 				ASR	R0
    487	003164	052700 	000060 			BIS	#60,R0		;PUT IN LD EN BITS
    488	003170	010037 	003242'			MOV	R0,5$		;WD TO SBDIAG WORD
    489	003174	105337 	003241'			DECB	4$		;NXT RAM ADR
    490	003200					FSD	3$,FAULT	;DO THE SBUS DIAG
	003200	004537 	003206'			  JSR	R5,64$		;SAV R5, PT TO & SKIP FAULT LIST
	003204	003240'				  .WORD	3$		;SBDIAG WORD ADDRESS
	003206	004737 	000000G		64$:	  JSR	PC,FSDCH	;DO FAST SBDIAG, FAULT ON ERR
	003212	012605 				 MOV	(SP)+,R5
    491	003214	006204 				ASR	R4
    492	003216	006204 				ASR	R4
    493	003220	006204 				ASR	R4
    494	003222	006204 				ASR	R4
    495	003224	077327 				SOB	R3,2$		;LP IF MORE 5-BIT VALUES LEFT IN WD
    496	003226	105737 	003241'			TSTB	4$		;ALL DONE?
    497	003232	001343 				BNE	1$		;NO...LOOP
    498	003234					R5.PC			;RESTORE REGS & RETURN
	003234	000137 	000000G			  JMP	R5.PC		;RESTORE R1-R5 FROM STACK & DO RTS PC
    499
    500	003240	   003 			3$:	.BYTE	3		;RHE OF FUNC 03 SBDIAG WORD
    501	003241	   000 			4$:	.BYTE	0		;RAM LD ADR
    502	003242	000000 			5$:	.WORD	0		;5 DATA & 2 LD EN BITS GO HERE
    503	003244	   000 				.BYTE	0		;CONTR # ETC
    504	003245				6$:	WD36	7600,1417,7403	;MASK FOR CHKING FV RAM LD
	003245	   003 	   377 	   060
	003250	   200 	   017
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 108
LOAD A MOS CONTROLLER'S FIXED VALUE RAMS

    506
    507					;-----MACRO USED FOR GENERATING FIXED VALUE RAM DATA IN COMPRESSED PDP-11
    508					; FORMAT (FOUR 4-BIT VALUES PER 11 WORD, LOW ADDRESS IS LEFTMOST).
    509
    510					.MACRO	FVRDAT	X
    511					.IRP	Y,<X>
    512					$FVRW=<$FVRW*16.>+<Y/2>
    513					$FVRC=$FVRC+1
    514					.IF	EQ,$FVRC-4
    515						  .WORD	$FVRW
    516					$FVRW=0
    517					$FVRC=0
    518					.ENDC
    519					.ENDR
    520					.ENDM
    521
    522
    523					.REM	%
    524						THIS IS THE MF20 FIXED VALUE RAM DATA.  THE DATA APPEARS HERE AS IT
    525					WOULD APPEAR IN BITS 09-13 OF AN SBDIAG FUNC 03 TYPEOUT.  FIXED VALUE RAM
    526					ADDRESSES INCREASE FROM LEFT TO RIGHT.
    527						%
    528
    529		000000 			$FVRC=0	;INITIALIZE FVRDAT MACRO CONTROL VARIABLES
    530		000000 			$FVRW=0
    531
    532	003252				MFIXED:
    533	003252					FVRDAT	<20,20,20,20,00,20,20,20,00,20,20,20,00,00,20,20> ;000
	003252	104210 				  .WORD	$FVRW
	003254	004210 				  .WORD	$FVRW
	003256	004210 				  .WORD	$FVRW
	003260	000210 				  .WORD	$FVRW
    534	003262					FVRDAT	<00,20,20,20,00,00,20,20,00,00,20,20,00,00,00,20> ;020
	003262	004210 				  .WORD	$FVRW
	003264	000210 				  .WORD	$FVRW
	003266	000210 				  .WORD	$FVRW
	003270	000010 				  .WORD	$FVRW
    535	003272					FVRDAT	<00,20,20,20,16,00,20,20,14,00,20,20,14,00,00,34> ;040
	003272	004210 				  .WORD	$FVRW
	003274	070210 				  .WORD	$FVRW
	003276	060210 				  .WORD	$FVRW
	003300	060016 				  .WORD	$FVRW
    536	003302					FVRDAT	<12,00,20,20,12,00,00,32,12,00,12,20,12,00,12,12> ;060
	003302	050210 				  .WORD	$FVRW
	003304	050015 				  .WORD	$FVRW
	003306	050130 				  .WORD	$FVRW
	003310	050125 				  .WORD	$FVRW
    537	003312					FVRDAT	<20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20> ;100
	003312	104210 				  .WORD	$FVRW
	003314	104210 				  .WORD	$FVRW
	003316	104210 				  .WORD	$FVRW
	003320	104210 				  .WORD	$FVRW
    538	003322					FVRDAT	<20,20,20,20,20,36,20,20,20,34,20,20,20,34,20,34> ;120
	003322	104210 				  .WORD	$FVRW
	003324	107610 				  .WORD	$FVRW
	003326	107210 				  .WORD	$FVRW
	003330	107216 				  .WORD	$FVRW
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 108-1
LOAD A MOS CONTROLLER'S FIXED VALUE RAMS

    539	003332					FVRDAT	<20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20> ;140
	003332	104210 				  .WORD	$FVRW
	003334	104210 				  .WORD	$FVRW
	003336	104210 				  .WORD	$FVRW
	003340	104210 				  .WORD	$FVRW
    540	003342					FVRDAT	<20,30,20,20,36,36,20,20,34,34,20,20,34,34,20,34> ;160
	003342	106210 				  .WORD	$FVRW
	003344	177610 				  .WORD	$FVRW
	003346	167210 				  .WORD	$FVRW
	003350	167216 				  .WORD	$FVRW
    541	003352					FVRDAT	<20,20,20,20,00,20,20,20,00,20,20,20,00,00,36,20> ;200
	003352	104210 				  .WORD	$FVRW
	003354	004210 				  .WORD	$FVRW
	003356	004210 				  .WORD	$FVRW
	003360	000370 				  .WORD	$FVRW
    542	003362					FVRDAT	<00,20,20,20,00,00,20,20,00,00,32,20,00,16,16,20> ;220
	003362	004210 				  .WORD	$FVRW
	003364	000210 				  .WORD	$FVRW
	003366	000330 				  .WORD	$FVRW
	003370	003570 				  .WORD	$FVRW
    543	003372					FVRDAT	<00,20,20,20,00,00,20,20,00,00,30,20,16,00,16,20> ;240
	003372	004210 				  .WORD	$FVRW
	003374	000210 				  .WORD	$FVRW
	003376	000310 				  .WORD	$FVRW
	003400	070170 				  .WORD	$FVRW
    544	003402					FVRDAT	<00,00,20,20,00,00,00,20,00,10,10,20,16,16,16,00> ;260
	003402	000210 				  .WORD	$FVRW
	003404	000010 				  .WORD	$FVRW
	003406	002110 				  .WORD	$FVRW
	003410	073560 				  .WORD	$FVRW
    545	003412					FVRDAT	<20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,34> ;300
	003412	104210 				  .WORD	$FVRW
	003414	104210 				  .WORD	$FVRW
	003416	104210 				  .WORD	$FVRW
	003420	104216 				  .WORD	$FVRW
    546	003422					FVRDAT	<20,20,20,20,20,20,20,32,20,20,20,20,20,20,32,32> ;320
	003422	104210 				  .WORD	$FVRW
	003424	104215 				  .WORD	$FVRW
	003426	104210 				  .WORD	$FVRW
	003430	104335 				  .WORD	$FVRW
    547	003432					FVRDAT	<20,20,20,20,20,20,20,30,20,20,20,20,20,20,30,30> ;340
	003432	104210 				  .WORD	$FVRW
	003434	104214 				  .WORD	$FVRW
	003436	104210 				  .WORD	$FVRW
	003440	104314 				  .WORD	$FVRW
    548	003442					FVRDAT	<20,20,20,20,20,30,20,30,20,20,20,20,20,30,30,30> ;360
	003442	104210 				  .WORD	$FVRW
	003444	106214 				  .WORD	$FVRW
	003446	104210 				  .WORD	$FVRW
	003450	106314 				  .WORD	$FVRW
    549	003452				MFXEND:
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 109
LOAD A MOS CONTROLLER'S TIMING RAMS

    553					.SBTTL		LOAD A MOS CONTROLLER'S TIMING RAMS
    554
    555					.REM	%
    556						LDTIMR LOADS THE TIMING RAM WITH THE TYPSEL=0 TIMING IN THE LOW END AND,
    557					IF PRESENT, THE TYPSEL=1 TIMING IN THE HIGH END.  ALL THE REST IS FILLED WITH
    558					BAD PARITY DATA.
    559						%
    560
    562					;-----LOAD CONTROL.
    563	003452				LDTIMR:	SAV.5
	003452	004737 	000000G			  JSR	PC,SAV.5	;SAVE R5-R1 ON STACK
    564	003456					GETTF			;GET TIMING FILES
	003456	004737 	004140'			  JSR	PC,GETTF	;MAKE SURE TIMING FILES ARE LOADED FOR A MOS CONTROLLER
    565	003462					FSDMSK	F11M		;SET LD CHK MSK
	003462	012700 	003773'			  MOV	#F11M,R0		;PT TO MASK
	003466	004737 	000000G			  JSR	PC,FSDM1	;LD SBDIAG CHK MASK PTD TO BY R0
    567	003472					PUSH	R5		;SAV R5
	003472	010546 				 MOV	R5,-(SP)
    568	003474					PUSH	<#127.,MOSTT0+<2*TIMFS>-2> ;SBDIAG WD TO STK FOR TIMRAM CLR
	003474	012746 	000177 			 MOV	#127.,-(SP)
	003500	013746 	004540'			 MOV	MOSTT0+<2*TIMFS>-2,-(SP)
    569	003504	010605 				MOV	SP,R5		;PT TO ARGS WITH R5
    570	003506	004737 	000000G			JSR	PC,SETRAM	;SET ALL CONTROL RAM WDS TO DESIRED VALUE
    571	003512	032626 				BIT	(SP)+,(SP)+	;DEL ARG WDS FROM STK -- C BIT NOT AFFECTED
    572	003514					POP	R5		;RESTORE R5
	003514	012605 				 MOV	(SP)+,R5
    578	003516	013704 	000000G			MOV	TSTCON,R4	;MAK CONTR # INTO NDX
    579	003522	105764 	177770G			TSTB	RAMSZ0-MNMFCN(R4) ;DOES TIMING TYPSEL=0 EXIST FOR CONTR?
    580	003526	003413 				BLE	2$		;NO.. SEE IF TYPSEL=1 EXISTS & LOAD IT INSTEAD
    581	003530					LDATIM	MOSTT0,0	;LOAD TYPSEL=0 TIMING
	003530	010546 				 MOV	R5,-(SP)
	003532	012746 	000000 			 MOV	#0,-(SP)
	003536	012746 	004432'			 MOV	#MOSTT0,-(SP)
	003542	010605 				  MOV	SP,R5		;PT TO ARGS WITH R5
	003544	004737 	003702'			  JSR	PC,LDATIM	;LOAD A TIMING INTO MF20 TIMING RAM
	003550	032626 				  BIT	(SP)+,(SP)+	;DEL ARG WDS FROM STK -- C BIT NOT AFFECTED
	003552	012605 				  MOV	(SP)+,R5	;RESTORE R5
    582	003554	000415 				BR	3$
    583	003556	105764 	177770G		2$:	TSTB	RAMSZ1-MNMFCN(R4) ;DOES TIMING TYPSEL=1 EXIST FOR CONTR?
    584	003562	003412 				BLE	3$		;NO
    585	003564					LDATIM	MOSTT1,0	;LD TYPSEL=1 TIMING IN PLACE OF TYPSEL=0 TIMG
	003564	010546 				 MOV	R5,-(SP)
	003566	012746 	000000 			 MOV	#0,-(SP)
	003572	012746 	004542'			 MOV	#MOSTT1,-(SP)
	003576	010605 				  MOV	SP,R5		;PT TO ARGS WITH R5
	003600	004737 	003702'			  JSR	PC,LDATIM	;LOAD A TIMING INTO MF20 TIMING RAM
	003604	032626 				  BIT	(SP)+,(SP)+	;DEL ARG WDS FROM STK -- C BIT NOT AFFECTED
	003606	012605 				  MOV	(SP)+,R5	;RESTORE R5
    586	003610	105764 	177770G		3$:	TSTB	RAMSZ1-MNMFCN(R4) ;DOES TIMING TYPSEL=1 EXIST FOR CONTR?
    587	003614	003413 				BLE	4$		;NO.. SEE IF TYPSEL=0 EXISTS & LD IT INSTEAD
    588	003616					LDATIM	MOSTT1,64.	;LD TYPSEL=1 TIMING
	003616	010546 				 MOV	R5,-(SP)
	003620	012746 	000100 			 MOV	#64.,-(SP)
	003624	012746 	004542'			 MOV	#MOSTT1,-(SP)
	003630	010605 				  MOV	SP,R5		;PT TO ARGS WITH R5
	003632	004737 	003702'			  JSR	PC,LDATIM	;LOAD A TIMING INTO MF20 TIMING RAM
	003636	032626 				  BIT	(SP)+,(SP)+	;DEL ARG WDS FROM STK -- C BIT NOT AFFECTED
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 109-1
LOAD A MOS CONTROLLER'S TIMING RAMS

	003640	012605 				  MOV	(SP)+,R5	;RESTORE R5
    589	003642	000415 				BR	5$
    590	003644	105764 	177770G		4$:	TSTB	RAMSZ0-MNMFCN(R4) ;DOES TIMING TYPSEL=0 EXIST FOR CONTR?
    591	003650	003412 				BLE	5$		;NO
    592	003652					LDATIM	MOSTT0,64.	;LD TYPSEL=0 TIMING IN PLACE OF TYPSEL=1 TIMG
	003652	010546 				 MOV	R5,-(SP)
	003654	012746 	000100 			 MOV	#64.,-(SP)
	003660	012746 	004432'			 MOV	#MOSTT0,-(SP)
	003664	010605 				  MOV	SP,R5		;PT TO ARGS WITH R5
	003666	004737 	003702'			  JSR	PC,LDATIM	;LOAD A TIMING INTO MF20 TIMING RAM
	003672	032626 				  BIT	(SP)+,(SP)+	;DEL ARG WDS FROM STK -- C BIT NOT AFFECTED
	003674	012605 				  MOV	(SP)+,R5	;RESTORE R5
    593	003676				5$:	R5.PC			;DONE
	003676	000137 	000000G			  JMP	R5.PC		;RESTORE R1-R5 FROM STACK & DO RTS PC
    597
    598					;-----SUBROUTINE TO LOAD A SINGLE TIMING FILE.
    599	003702				LDATIM:	PUSH	<R1,R2>
	003702	010146 				 MOV	R1,-(SP)
	003704	010246 				 MOV	R2,-(SP)
    600	003706	012501 				MOV	(R5)+,R1	;GET TIMING BUF PTR
    601	003710	062701 	000110 			ADD	#TIMFS*2,R1	;BYPASS TIMING FILE
    602	003714	012537 	003770'			MOV	(R5)+,3$	;RAM LD ST ADR
    603	003720	062737 	000037 	003770'		ADD	#31.,3$		;RAM ADR OF LAST TIMING WD TO LOAD
    604	003726	012702 	000040 			MOV	#32.,R2		;LOOP COUNT
    605	003732	014137 	003766'		1$:	MOV	-(R1),2$	;TIMG DATA TO SBDIAG WD
    606	003736					FSD	2$,FAULT	;LD TIMG WD
	003736	004537 	003744'			  JSR	R5,64$		;SAV R5, PT TO & SKIP FAULT LIST
	003742	003766'				  .WORD	2$		;SBDIAG WORD ADDRESS
	003744	004737 	000000G		64$:	  JSR	PC,FSDCH	;DO FAST SBDIAG, FAULT ON ERR
	003750	012605 				 MOV	(SP)+,R5
    607	003752	005337 	003770'			DEC	3$		;NXT ADR
    608	003756	077213 				SOB	R2,1$		;LOOP TIL ALL 32 TIMING WDS LOADED
    609	003760					POP	<R2,R1>
	003760	012602 				 MOV	(SP)+,R2
	003762	012601 				 MOV	(SP)+,R1
    610	003764	000207 				RTS	PC
    612
    613	003766	000000 			2$:	.WORD	0		;RHE OF FUNC 11...TIMING DATA
    614	003770	000000 			3$:	.WORD	0		;TIMING RAM LD ADR
    615	003772	   000 				.BYTE	0		;CONTR #
    616	003773				F11M:	WD36	7600,3770,0151	;FUNC 11 LD CHK MASK
	003773	   151 	   200 	   177
	003776	   200 	   017
    617						.EVEN
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 110
LOAD & START REFRESH FOR A MOS CONTROLLER

    621					.SBTTL		LOAD & START REFRESH FOR A MOS CONTROLLER
    622
    623					.REM	%
    624						LDREFR LOADS AND STARTS MOS REFRESH FOR THE SELECTED CONTROLLER.  THE
    625					VALUE USED IS THE SMALLER OF THE TWO REFRESH VALUES FOR THE CONTROLLER ASSUMING
    626					THE EXISTENCE OF A TYPSEL=1 TIMING.
    627						%
    628
    629	004000				LDREFR:	PUSH	R1
	004000	010146 				 MOV	R1,-(SP)
    630	004002					GETTF			;MAK SUR WE HAV TIMING FILES
	004002	004737 	004140'			  JSR	PC,GETTF	;MAKE SURE TIMING FILES ARE LOADED FOR A MOS CONTROLLER
    631	004006	113700 	004440'			MOVB	MOSTT0+6,R0	;GET TYSEL=0 REFR BYTE
    632	004012	113701 	000000G			MOVB	TSTCON,R1
    633	004016	105761 	177770G			TSTB	RAMSZ1-MNMFCN(R1) ;IS THERE A TYSEL=1 FOR THIS CONTR?
    634	004022	003405 				BLE	1$		;NO...USE ONLY TYPSEL=0 REFR BYTE
    635	004024	113701 	004550'			MOVB	MOSTT1+6,R1
    636	004030	020001 				CMP	R0,R1		;PUT SMALLER VALUE IN R0
    637	004032	003401 				BLE	1$
    638	004034	010100 				MOV	R1,R0
    639	004036				1$:
    640	004036	000300 				SWAB	R0		;POSITION FOR LOAD
    641	004040	004737 	000000G			JSR	PC,ASR0.3
    642	004044	052700 	020004 			BIS	#20004,R0	;SET LD EN & FUNC 04
    643	004050	010037 	004114'			MOV	R0,2$		; TO SBDIAG WD
    644	004054					FSDCHK	2$,3$		;LOAD REFRESH INTERVAL
	004054	004537 	004064'			  JSR	R5,64$		;SAV R5, PT TO & SKIP ARG LIST
	004060	004121'	004114'			  .WORD	3$,2$	;MASK & FUNCTION ADDRESSES
	004064	004737 	000000G		64$:	  JSR	PC,FSDCHK	;DO SBUS DIAG & CHECK
	004070	012605 				 MOV	(SP)+,R5
    645	004072					FSDCHK	4$,5$		;TURN ON TIMING
	004072	004537 	004102'			  JSR	R5,65$		;SAV R5, PT TO & SKIP ARG LIST
	004076	004133'	004126'			  .WORD	5$,4$	;MASK & FUNCTION ADDRESSES
	004102	004737 	000000G		65$:	  JSR	PC,FSDCHK	;DO SBUS DIAG & CHECK
	004106	012605 				 MOV	(SP)+,R5
    646	004110					POP	R1
	004110	012601 				 MOV	(SP)+,R1
    647	004112	000207 				RTS	PC
    648
    649	004114				2$:	WD36	0000,0006,0004	;FUNC 04 WD TO LOAD REFRESH INTERVAL
	004114	   004 	   140 	   000
	004117	   000 	   000
    650	004121				3$:	WD36	7600,0002,0004	;MASK TO CHK REFR TURN ON
	004121	   004 	   040 	   000
	004124	   200 	   017
    651
    652	004126				4$:	WD36	0000,0004,0004	;FUNC 04 TO TURN ON REFRESH
	004126	   004 	   100 	   000
	004131	   000 	   000
    653	004133				5$:	WD36	7600,0001,7744	;MASK TO MAKE SURE REFRESH IS ON
	004133	   344 	   037 	   000
	004136	   200 	   017
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 111
MAKE SURE TIMING FILES ARE LOADED FOR A MOS CONTROLLER

    657					.SBTTL		MAKE SURE TIMING FILES ARE LOADED FOR A MOS CONTROLLER
    658
    659					.REM	%
    660						SUBROUTINE TO GET THE TIMING FILES NECESSARY FOR A GIVEN (TSTCON)
    661					CONTROLLER.  THE FILES ARE MEARLY LOADED IN PDP-11 MEMORY BOOT TIMING FILE
    662					BUFFERS.  CGETTF MAKES SURE PROM INFO FOR THE CONTROLLER IS VALID.  GETTF
    663					ASSUMES THAT IT IS VALID.
    664						%
    665
    666	004140				GETTF:	SAV.5
	004140	004737 	000000G			  JSR	PC,SAV.5	;SAVE R5-R1 ON STACK
    667	004144	013704 	000000G			MOV	TSTCON,R4	;GET CONTR #
    668	004150	105764 	177770G			TSTB	RAMSZ0-MNMFCN(R4) ;DOES TYPSEL=0 EXIST?
    669	004154	003406 				BLE	1$		;NO.. SKIP TIMG LD
    670	004156	012701 	177770G			MOV	#RAMSZ0-MNMFCN,R1 ;TYPSEL=0 BASE ADR PARAM
    671	004162	012702 	004432'			MOV	#MOSTT0,R2	;TIMING BUFFER ADR
    672	004166	004737 	004220'			JSR	PC,3$		;GET TIMG FIL
    673	004172	105764 	177770G		1$:	TSTB	RAMSZ1-MNMFCN(R4) ;IS THERE A SECOND RAM SIZ IN CONTR?
    674	004176	003406 				BLE	2$		;NO
    675	004200	012701 	177770G			MOV	#RAMSZ1-MNMFCN,R1 ;TYPSEL=1 BASE ADR PARAM
    676	004204	012702 	004542'			MOV	#MOSTT1,R2	;TIMING BUFFER ADR
    677	004210	004737 	004220'			JSR	PC,3$		;GET TIMG FIL
    678	004214				2$:	R5.PC			;DONE...RETURN
	004214	000137 	000000G			  JMP	R5.PC		;RESTORE R1-R5 FROM STACK & DO RTS PC
    679
    680					;-----LOCAL SUBROUTINE CONSTRUCTS DESIRED TIMING FILE NAME.  IF WE HAVE IT
    681					; WE JUST RETURN, ELSE WE GO GET IT AND PUT IT IN PLACE (WHILE PRESERVING
    682					; ORIGIONAL OVERLAY AREA).
    683	004220	060401 			3$:	ADD	R4,R1		;ADJ TYPSEL BASE ADR PARAM FOR CONTR
    684	004222	012700 	004423'			MOV	#TMFLNM+5,R0	;PTR SAVES TIM & SPACE
    685	004226	116110 	000020 			MOVB	RS0TN0(R1),(R0)	;SET UP "NX" (TIMING NUMBER)
    686	004232	152710 	000060 			BISB	#'0,(R0)
    687	004236	112740 	000116 			MOVB	#'N,-(R0)
    688	004242	111101 				MOVB	(R1),R1		;SET UP "SS" (RAM SIZE)
    689	004244	006301 				ASL	R1
    690	004246	016140 	004406'			MOV	7$(R1),-(R0)
    691	004252	112740 	000106 			MOVB	#'F,-(R0)	;SET UP "C" (CONTROLLER TYPE)
    692	004256	112740 	000102 			MOVB	#'B,-(R0)	;SET UP "M" (CPU TYPE)
    693
    694					;;	TST	MODELB		;REPLACE FOR MOS ON MODEL A KL10
    695					;;	BNE	4$		;REPLACE FOR MOS ON MODEL A KL10
    696					;;	DECB	(R0)		;REPLACE FOR MOS ON MODEL A KL10
    697
    698					;-----FILE NAME IS SET UP.  SEE IF WE HAVE IT ALREADY IN CORRECT BUF.
    699	004262	010200 			4$:	MOV	R2,R0		;GET BUF ADR
    700	004264	012701 	004416'			MOV	#TMFLNM,R1	;PT TO FIL NAM
    701	004270	022021 				CMP	(R0)+,(R1)+	;CHK WD OF FILE NAME
    702	004272	001004 				BNE	5$		;BR IF DIF...LD FILE
    703	004274	022021 				CMP	(R0)+,(R1)+	;CHK WD OF FILE NAME
    704	004276	001002 				BNE	5$		;BR IF DIF...LD FILE
    705	004300	021011 				CMP	(R0),(R1)	;CHK WD OF FILE NAME
    706	004302	001440 				BEQ	6$		;BR IF SAME.. RETURN.. TIMING ALREADY IN PLACE.
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 112
MAKE SURE TIMING FILES ARE LOADED FOR A MOS CONTROLLER

    708					;-----HERE WHEN TIMING FILE LOAD IS REQUIRED.
    709	004304	010200 			5$:	MOV	R2,R0		;PT R0 AT BUFFER FOR TIMING
    710	004306	004737 	000000G			JSR	PC,RDATIM	;READ A TIMING
    711	004312	103034 				BCC	6$		;GOT IT.. EXIT
    713	004314					PMSG	<CAN'T FIND MF20 TIMING FILE >
	004314	012700 	004326'			 MOV	#64$,R0		; ** MESSAGE POINTER TO R0
	004320	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
	004324	000417 				 BR	65$		; ** BRANCH AROUND TEXT
	004326	   103 	   101 	   116 	64$:	 .ASCIZ	%CAN'T FIND MF20 TIMING FILE %
    714	004364					$PMSG	TMFLNM		;PRINT TIMING FILE ID
	004364	012700 	004416'			 MOV	#TMFLNM,R0		; ** TEXT POINTER TO R0
	004370	004737 	000000G			 JSR	PC,$TTDMS	; ** OUTPUT THE MESSAGE
    715	004374					FATAL	CFT	;FATAL HALT.. CAN'T FIND TIMING FILE
	004374	004737 	000000G			 JSR	PC,$FATAL	; ** FATAL "CFT" ERROR
	004400	   103 	   106 	   124 		 .ASCIZ	%CFT%
    723					;-----HAVE FILE ALREADY...CLEAN UP AND RETURN
    724	004404	000207 			6$:	RTS	PC
    725
    726	004406	   066 	   064 	   063 	7$:	.ASCII	/64321604/	;ASCII RAM SIZE CODES
    727
    728	004416	   115 	   103 	   123 	TMFLNM:	.ASCIZ	/MCSSNX.A11/	;STD TIMG FIL NAM.  SEE MACROS FOR DEFS
    729						.EVEN
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 113
MAKE SURE TIMING FILES ARE LOADED FOR A MOS CONTROLLER

    762					.REM	%
    763						HERE IS THE DEFAULT TYPSEL=0 TIMING FOR THE MF20.  ALSO SPACE IS LEFT
    764					FOR SOME TYPSEL=1 TIMING, THOUGH NONE IS CURRENTLY DEFINED.
    765						%
    766
    767					;-----CREATE THE TYPSEL=0 DEFAULT TIMING (SAME AS BF16N1.A11).  NOTE THAT THE
    768					;	MF20 PROTOTYPE TIMING SIGNALS ARE DEFINED IN MBMAC.P11.
    769
    770	004432				MOSTT0:	TIMING	KL10B,16K,1,29	;HEADER BLOCK
	004432	   102 	   106 			  .BYTE	$KL10B,'F		;KL10 MODEL ID & F FOR MF20
	004434	033061 				  .WORD	$SIZ16K		;RAM SIZE
	004436	   116 	   061 			  .BYTE	'N,'1		;THE LETTER N & THE TIMING NUMBER
	004440	   035 	   000 			  .BYTE	^D29,	;REFRESH BYTE AND OTHER DATA
    771
    772	004442					TICK	0,RAS,H		; ***** THIS IS THE SECOND REVISION OF THE MF20
    773	004442					TICK	0,WENABL,H	; ***** TIMING.  THIS TIMING IS BF16N1 VER 2.1.
    774	004442					TICK	0,DREADY,H	; ***** THIS VERSION COMPLETELY SUPERCEDES VERS
    775	004442					TICK	1,WENABL,L	; ***** 1.1.  VERSION 1.1 WAS REPLACED BECAUSE
	004442	145011
    776	004444					TICK	1,ADR2ND,H	; ***** WORST CASE TIMING ANALYSIS SHOWED THERE
    777	004444					TICK	4,CAS,H		; ***** WAS A POTENTIAL PROBLEM.  THIS IS THE
	004444	143011
	004446	143011
	004450	143011
    778	004452					TICK	8,DREADY,L	; ***** RELEASED VERSION OF THE MF20 TIMING.
	004452	173011
	004454	173011
	004456	173011
	004460	173011
    779	004462					TICK	9,DREADY,H	; ***** ANY IMPROVEMENTS FROM NOW ON WILL
	004462	162011
    780	004464					TICK	11,RAS,L	; ***** REQUIRE A TIMING FILE OF A DIFFERENT
	004464	173011
	004466	173011
    781	004470					TICK	11,CAS,L	; ***** NAME AND, ALSO, A CHANGE IN THE ARRAY
    782	004470					TICK	11,WENABL,H	; ***** BOARD TIMING NUMBERS.  I WOULD SUGGEST
    783	004470					TICK	11,ADR2ND,L	; ***** TN=0 AND THE FILE NAME BF16N0.
    784	004470					TICK	14,BSYCLR,H	; *****
	004470	115011
	004472	115011
	004474	115011
    785	004476					TICK	15,BSYCLR,L	; ***** JEFFREY ARNO BARRY   29857   22-AUG-78
	004476	105411
    786
    787	004500					ENDTIM	16.,<WENABL,DREADY> ;16. IS FIRST UNUSED TIMING RAM LOCATION
	004500	115011
	004502	105011
	004504	105011
	004506	105011
	004510	105011
	004512	105011
	004514	105011
	004516	105011
	004520	105011
	004522	105011
	004524	105011
	004526	105011
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 113-1
MAKE SURE TIMING FILES ARE LOADED FOR A MOS CONTROLLER

	004530	105011
	004532	105011
	004534	105011
	004536	105011
	004540	105011
    788
    789					;-----RESERVE SPACE FOR SOME TYPSEL=1 TIMING.
    790
    791	004542	000000 	000000 	000000 	MOSTT1:	.WORD	0,0,0		;NO NAME
    792	004550					.BLKW	TIMFS-3		;SPACE FOR TYPSEL=1 TIMING FILE
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 114
ROUTINES TO GET DATA FROM UNUSED BITSUB RAM LOCATIONS

    796					.SBTTL		ROUTINES TO GET DATA FROM UNUSED BITSUB RAM LOCATIONS
    799
    800					.REM	%
    801						GETBBD RETRIEVES THE BAD BLOCK DATA BACK FROM AN MF20.  C-BIT IS SET
    802					UPON ANY KIND OF ERROR.  THE MAP IS RETURNED RIGHT-JUSTIFIED IN R0, BIT0
    803					CORRESPONDING TO BLOCK 0, ETC.
    804						%
    805
    806	004652	005046 			GETBBD:	CLR	-(SP)		;PUT A WD ON THE STK
    807	004654					GBSRL	774		;GET LO ORD LOC
	004654	010546 				 MOV	R5,-(SP)
	004656	012746 	077407 			 MOV	#774*64.+7,-(SP)
	004662	010605 				  MOV	SP,R5		;PT TO ARGS WITH R5
	004664	004737 	005040'			  JSR	PC,GBSRL	;MOV BITSUB RAM LOCATION TO RH 6 BITS OF R0
	004670	012605 				  MOV	(SP)+,R5	;DEL ARG WD FROM STK -- C BIT NOT AFFECTED
	004672	012605 				  MOV	(SP)+,R5	;RESTORE R5
    808	004674	103415 				BCS	1$		;BR ON ERR
    809	004676	010016 				MOV	R0,(SP)		;LO ORD CONTR BITS TO STK
    810	004700					GBSRL	770		;GET HI ORD LOC
	004700	010546 				 MOV	R5,-(SP)
	004702	012746 	077007 			 MOV	#770*64.+7,-(SP)
	004706	010605 				  MOV	SP,R5		;PT TO ARGS WITH R5
	004710	004737 	005040'			  JSR	PC,GBSRL	;MOV BITSUB RAM LOCATION TO RH 6 BITS OF R0
	004714	012605 				  MOV	(SP)+,R5	;DEL ARG WD FROM STK -- C BIT NOT AFFECTED
	004716	012605 				  MOV	(SP)+,R5	;RESTORE R5
    811	004720	103403 				BCS	1$
    812	004722	004737 	000000G			JSR	PC,ASL0.6
    813	004726	000241 				CLC
    814	004730	052600 			1$:	BIS	(SP)+,R0	;PUT TOGETHER THE MAP IN R0
    815	004732	000207 				RTS	PC		;RETURN...C-BIT SET ON ERR...BAD BLK MAP IN R0
    818
    819					.REM	%
    820						GETCMP RETRIEVES THE CONNECTED-TO-CPU DATA BACK FROM AN MF20.  C-BIT IS
    821					SET UPON ANY KIND OF ERROR.  THE CONNECTED MAP IS RETURNED RIGHT-JUSTIFIED IN
    822					R0, BIT0 CORRESPONDING TO MF20 #10, ETC.
    823						%
    824
    825					; ***** NOTE: THIS ROUTINE CURRENTLY HANDLES ONLY CPU "A". *****
    826
    827	004734	005046 			GETCMP:	CLR	-(SP)		;PUT A WD ON THE STK
    828	004736					GBSRL	764		;GET LO ORD LOC
	004736	010546 				 MOV	R5,-(SP)
	004740	012746 	076407 			 MOV	#764*64.+7,-(SP)
	004744	010605 				  MOV	SP,R5		;PT TO ARGS WITH R5
	004746	004737 	005040'			  JSR	PC,GBSRL	;MOV BITSUB RAM LOCATION TO RH 6 BITS OF R0
	004752	012605 				  MOV	(SP)+,R5	;DEL ARG WD FROM STK -- C BIT NOT AFFECTED
	004754	012605 				  MOV	(SP)+,R5	;RESTORE R5
    829	004756	103424 				BCS	1$		;BR ON ERR
    830	004760	032700 	177741 			BIT	#177741,R0	;CHK FOR OTHER JUNK
    831	004764	001023 				BNE	2$		;ERROR
    832	004766	006200 				ASR	R0
    833	004770	010016 				MOV	R0,(SP)		;LO ORD CONTR BITS TO STK
    834	004772					GBSRL	760		;GET HI ORD LOC
	004772	010546 				 MOV	R5,-(SP)
	004774	012746 	076007 			 MOV	#760*64.+7,-(SP)
	005000	010605 				  MOV	SP,R5		;PT TO ARGS WITH R5
	005002	004737 	005040'			  JSR	PC,GBSRL	;MOV BITSUB RAM LOCATION TO RH 6 BITS OF R0
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 114-1
ROUTINES TO GET DATA FROM UNUSED BITSUB RAM LOCATIONS

	005006	012605 				  MOV	(SP)+,R5	;DEL ARG WD FROM STK -- C BIT NOT AFFECTED
	005010	012605 				  MOV	(SP)+,R5	;RESTORE R5
    835	005012	103406 				BCS	1$
    836	005014	032700 	177741 			BIT	#177741,R0
    837	005020	001005 				BNE	2$
    838	005022	004737 	000000G			JSR	PC,ASL0.3
    839	005026	000241 				CLC
    840	005030	052600 			1$:	BIS	(SP)+,R0	;PUT TOGETHER THE MAP IN R0
    841	005032	000207 				RTS	PC		;RETURN...C-BIT SET ON ERR...CONN MAP IN R0
    842	005034	000261 			2$:	SEC
    843	005036	000774 				BR	1$
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 115
ROUTINES TO GET DATA FROM UNUSED BITSUB RAM LOCATIONS

    847
    848					.REM	%
    849						GBSRL READS THE SPECIFIED MF20 BITSUB RAM LOCATION, MAKES SURE THAT BIT
    850					13 IS 0 AND THAT OVERALL PARITY IS BAD.  IF SO THEN IT PUTS BITS 7-12 INTO R0
    851					RIGHT JUSTIFIED.  ANY SORT OF ERROR GIVES A C-BIT SET RETURN.
    852						%
    853
    854	005040	012537 	000000G		GBSRL:	MOV	(R5)+,REAPWD	;SET UP RH END OF FCN 7
    855	005044	005037 	000002G			CLR	REAPWD+2	;CLR THE MIDDLE
    856	005050					FSDMSK	MINUS1		;SET FSD CHK MSK TO CHK NOTHING
	005050	012700 	000000G			  MOV	#MINUS1,R0		;PT TO MASK
	005054	004737 	000000G			  JSR	PC,FSDM1	;LD SBDIAG CHK MASK PTD TO BY R0
    857	005060					FSD	REAPWD		;DO THE FCN 7 READ
	005060	004537 	005066'			  JSR	R5,64$		;SAV R5, PT TO & SKIP  LIST
	005064	000000G				  .WORD	REAPWD		;SBDIAG WORD ADDRESS
	005066	004737 	000000G		64$:	  JSR	PC,FSD		;DO FAST SBUS DIAG
	005072	012605 				 MOV	(SP)+,R5
    858	005074	103417 				BCS	1$
    859	005076					EXAMT	AC17,REAPWD	;GET THE DATA
	005076	012700 	000017 			 MOV	#AC17,R0	; ** ADDRESS POINTER TO R0
	005102	010146 				 MOV	R1,-(SP)	; ** SAVE R1
	005104	012701 	000000G			 MOV	#REAPWD,R1	; ** REAPWD BUFFER POINTER TO R1
	005110	004737 	000000G			 JSR	PC,$EXAMT	; ** EXECUTE THE KL10 EXAMINE
	005114	012601 				 MOV	(SP)+,R1	; ** RESTORE R1
    861	005116	103406 				BCS	1$		;PUNT ON ERROR
    862	005120	013700 	000002G			MOV	REAPWD+2,R0	;GET READ RESULTS
    863	005124					CALPAR			;CALC WHAT PAR BIT SHOULD BE
	005124	004737 	000000G			  JSR	PC,CALPAR	;CALC PARITY OF VALUE IN R0
    864	005130	005700 				TST	R0		;SEE WHAT PARITY IS
    865	005132	001402 				BEQ	2$		;BR IF PAR WAS EVEN...OK
    866	005134	000261 			1$:	SEC
    867	005136	000412 				BR	3$		;ELSE PUNT
    868	005140	013700 	000002G		2$:	MOV	REAPWD+2,R0	;GET BITS AGAIN
    869	005144	032700 	000100 			BIT	#100,R0		;IS BIT 13 SET?
    870	005150	001371 				BNE	1$		;YES...ERROR
    871	005152	006300 				ASL	R0		;ELSE OK...POS & ISO BITS
    872	005154	000300 				SWAB	R0
    873	005156	042700 	177700 			BIC	#177700,R0
    874	005162	000241 				CLC
    875	005164	000207 			3$:	RTS	PC
    878		000001 				.END
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 115-1
SYMBOL TABLE

AC    = 000004   	ANDM  = 000406   	BRCTN = 000006   	DIVB  = 000237   	FSBR  = 000154
ACC0  = 000001   	AOBJN = 000253   	BSIZE = ****** GX	DIVI  = 000235   	FSBRB = 000157
ACC1  = 000002   	AOBJP = 000252   	BSYCLR= 000400   	DIVM  = 000236   	FSBRI = 000155
ACC10 = 000400   	AOJ   = 000340   	CAI   = 000300   	DLNXT = ****** GX	FSBRM = 000156
ACC11 = 001000   	AOJA  = 000344   	CAIA  = 000304   	DMACN = 000004   	FSC   = 000132
ACC12 = 002000   	AOJE  = 000342   	CAIE  = 000302   	DMACTN= 000002   	FSD   = ****** GX
ACC13 = 004000   	AOJG  = 000347   	CAIG  = 000307   	DMARMP= ****** GX	FSDCH = ****** GX
ACC14 = 010000   	AOJGE = 000345   	CAIGE = 000305   	DMOVE = 000120   	FSDCHK= ****** GX
ACC15 = 020000   	AOJL  = 000341   	CAIL  = 000301   	DMOVEM= 000124   	FSDM1 = ****** GX
ACC16 = 040000   	AOJLE = 000343   	CAILE = 000303   	DMOVN = 000121   	F11M    003773R
ACC17 = 100000   	AOJN  = 000346   	CAIN  = 000306   	DMOVNM= 000125   	GBSRL   005040R
ACC2  = 000004   	AOS   = 000350   	CALPAR= ****** GX	DMUL  = 000116   	GETBBD  004652RG
ACC3  = 000010   	AOSA  = 000354   	CAM   = 000310   	DPB   = 000137   	GETCMP  004734RG
ACC4  = 000020   	AOSE  = 000352   	CAMA  = 000314   	DPD     002266RG 	GETTF   004140R
ACC5  = 000040   	AOSG  = 000357   	CAME  = 000312   	DPDSRS= ****** GX	HALTLP= 001000
ACC6  = 000100   	AOSGE = 000355   	CAMG  = 000317   	DREADY= 001000   	HLL   = 000500
ACC7  = 000200   	AOSL  = 000351   	CAMGE = 000315   	DSUB  = 000115   	HLLE  = 000530
ACLOAD= ****** GX	AOSLE = 000353   	CAML  = 000311   	EQV   = 000444   	HLLEI = 000531
AC0   = 000000   	AOSN  = 000356   	CAMLE = 000313   	EQVB  = 000447   	HLLEM = 000532
AC1   = 000001   	APR   = 000000   	CAMN  = 000316   	EQVI  = 000445   	HLLES = 000533
AC10  = 000010   	ASH   = 000240   	CAS   = 020000   	EQVM  = 000446   	HLLI  = 000501
AC11  = 000011   	ASHC  = 000244   	CCA   = 000014   	ERRSTP= 004000   	HLLM  = 000502
AC12  = 000012   	ASL0.3= ****** GX	CCFAIL= ****** GX	ER$CFT= 004374RG 	HLLO  = 000520
AC13  = 000013   	ASL0.6= ****** GX	CECLK = 000004   	EXCH  = 000250   	HLLOI = 000521
AC14  = 000014   	ASR0.3= ****** GX	CHKED = ****** GX	EXTEND= 000123   	HLLOM = 000522
AC15  = 000015   	ASR0.5= ****** GX	CLEAR = 000400   	FAD   = 000140   	HLLOS = 000523
AC16  = 000016   	BAF   = ****** GX	CLEARB= 000403   	FADB  = 000143   	HLLS  = 000503
AC17  = 000017   	BIT0  = 000001   	CLEARI= 000401   	FADL  = 000141   	HLLZ  = 000510
AC2   = 000002   	BIT1  = 000002   	CLEARM= 000402   	FADM  = 000142   	HLLZI = 000511
AC3   = 000003   	BIT10 = 002000   	CLRMR = 000006   	FADR  = 000144   	HLLZM = 000512
AC4   = 000004   	BIT11 = 004000   	CNTSD1= ****** GX	FADRB = 000147   	HLLZS = 000513
AC5   = 000005   	BIT12 = 010000   	CONBUT= 000012   	FADRI = 000145   	HLR   = 000544
AC6   = 000006   	BIT13 = 020000   	CONI  = 000005   	FADRM = 000146   	HLRE  = 000574
AC7   = 000007   	BIT14 = 040000   	CONMMR= 000001   	FDV   = 000170   	HLREI = 000575
ADD   = 000270   	BIT15 = 100000   	CONO  = 000004   	FDVB  = 000173   	HLREM = 000576
ADDB  = 000273   	BIT2  = 000004   	CONSO = 000007   	FDVL  = 000171   	HLRES = 000577
ADDI  = 000271   	BIT3  = 000010   	CONSZ = 000006   	FDVM  = 000172   	HLRI  = 000545
ADDM  = 000272   	BIT4  = 000020   	CONTI = ****** GX	FDVR  = 000174   	HLRM  = 000546
ADH   = 000000   	BIT5  = 000040   	CONTIN= ****** GX	FDVRB = 000177   	HLRO  = 000564
ADJSP = 000105   	BIT6  = 000100   	CPU   = 000200   	FDVRI = 000175   	HLROI = 000565
ADL   = 000000   	BIT7  = 000200   	DADD  = 000114   	FDVRM = 000176   	HLROM = 000566
ADR2ND= 002000   	BIT8  = 000400   	DATAI = 000001   	FIX   = 000122   	HLROS = 000567
AND   = 000404   	BIT9  = 001000   	DATAO = 000003   	FIXR  = 000126   	HLRS  = 000547
ANDB  = 000407   	BLKI  = 000000   	DBESFL= ****** GX	FLTR  = 000127   	HLRZ  = 000554
ANDCA = 000410   	BLKO  = 000002   	DBUF  = ****** GX	FMP   = 000160   	HLRZI = 000555
ANDCAB= 000413   	BLK0  = 000000   	DCNFBB  002516RG 	FMPB  = 000163   	HLRZM = 000556
ANDCAI= 000411   	BLK1  = 000001   	DCNFPM= 013777   	FMPL  = 000161   	HLRZS = 000557
ANDCAM= 000412   	BLK2  = 000002   	DDIV  = 000117   	FMPM  = 000162   	HRL   = 000504
ANDCB = 000440   	BLK3  = 000003   	DE$BUG= 070000   	FMPR  = 000164   	HRLE  = 000534
ANDCBB= 000443   	BLK4  = 000004   	DFAD  = 000110   	FMPRB = 000167   	HRLEI = 000535
ANDCBI= 000441   	BLK5  = 000005   	DFDV  = 000113   	FMPRI = 000165   	HRLEM = 000536
ANDCBM= 000442   	BLK6  = 000006   	DFMP  = 000112   	FMPRM = 000166   	HRLES = 000537
ANDCM = 000420   	BLT   = 000251   	DFN   = 000131   	FMRECN= ****** GX	HRLI  = 000505
ANDCMB= 000423   	BMTAB = ****** GX	DFRLST= ****** GX	FSB   = 000150   	HRLM  = 000506
ANDCMI= 000421   	BOLPS = ****** GX	DFSB  = 000111   	FSBB  = 000153   	HRLO  = 000524
ANDCMM= 000422   	BOLPSJ  000224R  	DIAG  = 000104   	FSBL  = 000151   	HRLOI = 000525
ANDI  = 000405   	BRCLK = 000005   	DIV   = 000234   	FSBM  = 000152   	HRLOM = 000526
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 115-2
SYMBOL TABLE

HRLOS = 000527   	LDB   = 000135   	MULI  = 000225   	SETCA = 000450   	TBN   = 000004
HRLS  = 000507   	LDEFER= ****** GX	MULM  = 000226   	SETCAB= 000453   	TCN   = 000001
HRLZ  = 000514   	LDFVR   003116R  	MXBRCN= 000037   	SETCAI= 000451   	TDC   = 000650
HRLZI = 000515   	LDNADR  002734RG 	MXCTN = 000004   	SETCAM= 000452   	TDCA  = 000654
HRLZM = 000516   	LDREFR  004000R  	MXMFCN= 000017   	SETCM = 000460   	TDCE  = 000652
HRLZS = 000517   	LDTIMR  003452R  	MXMXCN= 000007   	SETCMB= 000463   	TDCN  = 000656
HRR   = 000540   	LSBRTN= 000001   	MXM.CN= 000003   	SETCMI= 000461   	TDN   = 000610
HRRE  = 000570   	LSBSRL= 000744   	MX20MD  002054RG 	SETCMM= 000462   	TDNA  = 000614
HRREI = 000571   	LSH   = 000242   	OR    = 000434   	SETM  = 000414   	TDNE  = 000612
HRREM = 000572   	LSHC  = 000246   	ORB   = 000437   	SETMB = 000417   	TDNN  = 000616
HRRES = 000573   	LSTMB = 000001   	ORCA  = 000454   	SETMI = 000415   	TDO   = 000670
HRRI  = 000541   	LUBSRL= 000600   	ORCAB = 000457   	SETMM = 000416   	TDOA  = 000674
HRRM  = 000542   	MACTN = 000001   	ORCAI = 000455   	SETMR = 000007   	TDOE  = 000672
HRRO  = 000560   	MAP   = 000257   	ORCAM = 000456   	SETO  = 000474   	TDON  = 000676
HRROI = 000561   	MAXCN = 000037   	ORCB  = 000470   	SETOB = 000477   	TDZ   = 000630
HRROM = 000562   	MBCTN = 000003   	ORCBB = 000473   	SETOI = 000475   	TDZA  = 000634
HRROS = 000563   	MDHDEJ  000230R  	ORCBI = 000471   	SETOM = 000476   	TDZE  = 000632
HRRS  = 000543   	MDHDER= ****** GX	ORCBM = 000472   	SETRAM= ****** GX	TDZN  = 000636
HRRZ  = 000550   	MDINIT  000000RG 	ORCM  = 000464   	SETRUN= 000011   	TGN   = 000002
HRRZI = 000551   	MDRECN= ****** GX	ORCMB = 000467   	SETZ  = 000400   	TIMFS = 000044
HRRZM = 000552   	MDST0   000076RG 	ORCMI = 000465   	SETZB = 000403   	TIMNO0= ****** GX
HRRZS = 000553   	MDST0A  000122R  	ORCMM = 000466   	SETZI = 000401   	TIMNO1= ****** GX
I     = 000000   	MDST1B= ****** GX	ORI   = 000435   	SETZM = 000402   	TLC   = 000641
IBP   = 000133   	MDST23  000234RG 	ORM   = 000436   	SKIP  = 000330   	TLCA  = 000645
IDIV  = 000230   	MFCTN = 000005   	PAG   = 000010   	SKIPA = 000334   	TLCE  = 000643
IDIVB = 000233   	MFIXED  003252R  	PI    = 000004   	SKIPE = 000332   	TLCN  = 000647
IDIVI = 000231   	MFXEND  003452R  	POP   = 000262   	SKIPG = 000337   	TLN   = 000601
IDIVM = 000232   	MF20RD= ****** GX	POPJ  = 000263   	SKIPGE= 000335   	TLNA  = 000605
IDPB  = 000136   	MINUS1= ****** GX	PRMDPM= 037740   	SKIPL = 000331   	TLNE  = 000603
ILDB  = 000134   	MMRESP= ****** GX	PUSH  = 000261   	SKIPLE= 000333   	TLNN  = 000607
IMUL  = 000220   	MNBRCN= 000036   	PUSHJ = 000260   	SKIPN = 000336   	TLO   = 000661
IMULB = 000223   	MNMFCN= 000010   	PXCT  = 000256   	SMFSS0= ****** GX	TLOA  = 000665
IMULI = 000221   	MNMXCN= 000006   	QRESET= 003004RG 	SOJ   = 000360   	TLOE  = 000663
IMULM = 000222   	MNM.CN= 000000   	RAMSZ0= ****** GX	SOJA  = 000364   	TLON  = 000667
INIMDF= ****** GX	MNTITF= 000040   	RAMSZ1= ****** GX	SOJE  = 000362   	TLZ   = 000621
IOR   = 000434   	MOSTT0  004432R  	RAS   = 040000   	SOJG  = 000367   	TLZA  = 000625
IORB  = 000437   	MOSTT1  004542R  	RDATIM= ****** GX	SOJGE = 000365   	TLZE  = 000623
IORI  = 000435   	MOVE  = 000200   	RDPROM  002060RG 	SOJL  = 000361   	TLZN  = 000627
IORM  = 000436   	MOVEI = 000201   	REAPWD= ****** GX	SOJLE = 000363   	TMFLNM  004416RG
JFCL  = 000255   	MOVEM = 000202   	ROT   = 000241   	SOJN  = 000366   	TRC   = 000640
JFFO  = 000243   	MOVES = 000203   	ROTC  = 000245   	SOS   = 000370   	TRCA  = 000644
JRA   = 000267   	MOVM  = 000214   	RSPMAP= ****** GX	SOSA  = 000374   	TRCE  = 000642
JRST  = 000254   	MOVMI = 000215   	RS0RS1= 000010   	SOSE  = 000372   	TRCN  = 000646
JSA   = 000266   	MOVMM = 000216   	RS0TN0= 000020   	SOSG  = 000377   	TRN   = 000600
JSP   = 000265   	MOVMS = 000217   	RUNPRG= ****** GX	SOSGE = 000375   	TRNA  = 000604
JSR   = 000264   	MOVN  = 000210   	R$$20F= 000001   	SOSL  = 000371   	TRNE  = 000602
JUMP  = 000320   	MOVNI = 000211   	R5.PC = ****** GX	SOSLE = 000373   	TRNN  = 000606
JUMPA = 000324   	MOVNM = 000212   	SAV.5 = ****** GX	SOSN  = 000376   	TRO   = 000660
JUMPE = 000322   	MOVNS = 000213   	SBDT  = ****** GX	SSCLK = 000002   	TROA  = 000664
JUMPG = 000327   	MOVS  = 000204   	SBD0  = ****** GX	STPCLK= 000000   	TROE  = 000662
JUMPGE= 000325   	MOVSI = 000205   	SBUS  = 100000   	STRCLK= 000001   	TRON  = 000666
JUMPL = 000321   	MOVSM = 000206   	SECLK = 000003   	SUB   = 000274   	TRPAR = 010000
JUMPLE= 000323   	MOVSS = 000207   	SETA  = 000424   	SUBB  = 000277   	TRZ   = 000620
JUMPN = 000326   	MSAMSZ= 000140   	SETAB = 000427   	SUBI  = 000275   	TRZA  = 000624
KEEPBB= ****** GX	MSSCTL= 177777 G 	SETAI = 000425   	SUBM  = 000276   	TRZE  = 000622
LDAR  = 000077   	MUL   = 000224   	SETAM = 000426   	SXCT  = 000106   	TRZN  = 000626
LDATIM  003702R  	MULB  = 000227   	SETBBD= ****** GX	TADR  = 000010   	TSC   = 000651
MSSCTL -- MOS SOFTWARE STATE CO	MACRO M1110  17-SEP-79 09:06  PAGE 115-3
SYMBOL TABLE

TSCA  = 000655   	XCONMP= ****** GX	$EXAMD= ****** GX	$LDTIM= 000001   	$TDB2O= ****** GX
TSCE  = 000653   	XCT   = 000256   	$EXAMT= ****** GX	$LOADA= 000001   	$TIMLP= 070014
TSCN  = 000657   	XDV   = 000004   	$FATAL= ****** GX	$MOSDE= 000001   	$TL   = 000014
TSN   = 000611   	XOP   = 000002   	$FIND = 000001   	$MX20M= 000001   	$TTDMS= ****** GX
TSNA  = 000615   	XOR   = 000430   	$FVRC = 000000   	$PATCH= 070004   	$WDD22= ****** GX
TSNE  = 000613   	XORB  = 000433   	$FVRW = 000000   	$RDERA= 000000   	$WDD36= ****** GX
TSNN  = 000617   	XORI  = 000431   	$GBSRL= 000001   	$RDPRO= 000001   	$$APRI= 000000
TSO   = 000671   	XORM  = 000432   	$GETBB= 000001   	$RELOA= 000001   	$$NARG= 000001
TSOA  = 000675   	XR    = 000000   	$GETCM= 000001   	$RESET= 000001   	$$RDER= 000004
TSOE  = 000673   	Y     = 105011   	$GETCT= 070020   	$RSTAC= 070030   	$$SBDI= 000004
TSON  = 000677   	$APRID= 000000   	$GETTF= 000001   	$RUN  = 000001   	$10BC = 070040
TSTCON= ****** GX	$BRST = 000001   	$IND36= 000003   	$SAVAC= 070024   	$10BP = 070034
TSZ   = 000631   	$CALPA= 000001   	$KLMR = ****** GX	$SBDIA= 000002   	$10MB = 070050
TSZA  = 000635   	$CNTSD= 000001   	$KL10A= 000101   	$SDW  = 000002   	$10RB = 070044
TSZE  = 000633   	$DCNFB= 000001   	$KL10B= 000102   	$SIZ16= 033061   	.RESET= ****** GX
TSZN  = 000637   	$DDFXC= ****** GX	$LDATI= 000001   	$SIZ32= 031063   	.SBDIA= 000001
UFA   = 000130   	$DMPAC= 070010   	$LDEFE= 000001   	$SIZ4K= 032060   	.WORK = ****** GX
UNDCTN= 000007   	$DPD  = 000001   	$LDFVR= 000001   	$SIZ64= 032066   	...   = 000377
WENABL= 004000   	$EB   = 002640R  	$LDNAD= 000001   	$STEP = 000001   	......= 177777
X     = 000002   	$EVENT= 000001   	$LDREF= 000001   	$TB   = 000000

. ABS.	000000	   000
      	005166	   001
ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  23100 WORDS  ( 91 PAGES)
DYNAMIC MEMORY:  20620 WORDS  ( 79 PAGES)
ELAPSED TIME:  00:04:18
[56,10]MSSCTL,[56,20]MSSCTL/-SP/CR=[56,30]MSSASM,MBOVLC,MOSMAC,MBMAC,MOSDEF,MSSCTL
MSSCTL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:08	PAGE 1

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

AC    	= 000004	#102-304   #102-304    102-304    102-304   #102-305   #102-305    102-305    102-305   #102-307   
                        #102-307    102-307    102-307   #102-308   #102-308    102-308    102-308   #102-309   #102-309   
                         102-309    102-309   #102-310    102-310    102-310   #105-416   #105-416    105-416    105-416   
                        #105-417   #105-417    105-417    105-417   #105-419   #105-419    105-419    105-419   #105-420   
                        #105-420    105-420    105-420   #105-422   #105-422    105-422    105-422   #105-423    105-423   
                         105-423   #105-424   #105-424    105-424    105-424   
ACC0  	= 000001	#19-739    
ACC1  	= 000002	#19-740    
ACC10 	= 000400	#19-747    
ACC11 	= 001000	#19-748    
ACC12 	= 002000	#19-749    
ACC13 	= 004000	#19-750    
ACC14 	= 010000	#19-751    
ACC15 	= 020000	#19-752    
ACC16 	= 040000	#19-753    
ACC17 	= 100000	#19-754    
ACC2  	= 000004	#19-741    
ACC3  	= 000010	#19-742    
ACC4  	= 000020	#19-743    
ACC5  	= 000040	#19-744    
ACC6  	= 000100	#19-745    
ACC7  	= 000200	#19-746    
ACLOAD	= ******  GX	 102-278    105-400   
AC0   	= 000000	#12-27      105-406   
AC1   	= 000001	#12-28     
AC10  	= 000010	#12-35     
AC11  	= 000011	#12-36     
AC12  	= 000012	#12-37     
AC13  	= 000013	#12-38     
AC14  	= 000014	#12-39     
AC15  	= 000015	#12-40     
AC16  	= 000016	#12-41     
AC17  	= 000017	#12-42      102-286    115-859   
AC2   	= 000002	#12-29     
AC3   	= 000003	#12-30     
AC4   	= 000004	#12-31     
AC5   	= 000005	#12-32     
AC6   	= 000006	#12-33     
AC7   	= 000007	#12-34      102-279   
ADD   	= 000270	#12-167     102-309    102-309   
ADDB  	= 000273	#12-170    
ADDI  	= 000271	#12-168    
ADDM  	= 000272	#12-169    
ADH   	= 000000	#102-304    102-304    102-304   #102-305    102-305    102-305   #102-306    102-306    102-306   
                        #102-307    102-307    102-307   #102-308    102-308    102-308   #102-309    102-309    102-309   
                        #102-310    102-310    102-310   #105-416    105-416    105-416   #105-417    105-417    105-417   
                        #105-418    105-418    105-418   #105-419    105-419    105-419   #105-420    105-420    105-420   
                        #105-421    105-421    105-421   #105-422   #105-422    105-422    105-422   #105-423    105-423   
                         105-423   #105-424    105-424    105-424   
ADJSP 	= 000105	#12-53     
ADL   	= 000000	#102-304    102-304    102-304   #102-304    102-304    102-304   #102-304    102-304    102-304   
                        #102-305    102-305    102-305   #102-305    102-305    102-305   #102-306    102-306    102-306   
MSSCTL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:08	PAGE 2

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                        #102-306    102-306    102-306   #102-306    102-306    102-306   #102-307    102-307    102-307   
                        #102-307    102-307    102-307   #102-308    102-308    102-308   #102-308    102-308    102-308   
                        #102-308    102-308    102-308   #102-309    102-309    102-309   #102-309    102-309    102-309   
                        #102-309    102-309    102-309   #102-310    102-310    102-310   #102-310    102-310    102-310   
                        #105-416    105-416    105-416   #105-416    105-416    105-416   #105-416    105-416    105-416   
                        #105-416    105-416    105-416   #105-417    105-417    105-417   #105-417    105-417    105-417   
                        #105-417    105-417    105-417   #105-418    105-418    105-418   #105-418    105-418    105-418   
                        #105-418    105-418    105-418   #105-419    105-419    105-419   #105-419    105-419    105-419   
                        #105-419    105-419    105-419   #105-420    105-420    105-420   #105-420    105-420    105-420   
                        #105-420    105-420    105-420   #105-420    105-420    105-420   #105-421    105-421    105-421   
                        #105-421    105-421    105-421   #105-421    105-421    105-421   #105-422    105-422    105-422   
                        #105-422    105-422    105-422   #105-422    105-422    105-422   #105-422    105-422    105-422   
                        #105-422    105-422    105-422   #105-422    105-422    105-422    105-422   #105-422    105-422   
                         105-422   #105-423    105-423    105-423   #105-423    105-423    105-423   #105-424    105-424   
                         105-424   #105-424    105-424    105-424   
ADR2ND	= 002000	#44-205     44-205     44-205    #44-205     44-205     44-205    #44-205     44-205     44-205    
                        #44-205     44-205     44-205    #44-205     44-205     44-205    #44-205     44-205     44-205    
                        #44-205     44-205     44-205    #44-205     44-205     44-205    #44-205     44-205     44-205    
                        #44-205     44-205     44-205    #44-205     113-776    113-783   
AND   	= 000404	#12-247    
ANDB  	= 000407	#12-250    
ANDCA 	= 000410	#12-251    
ANDCAB	= 000413	#12-254    
ANDCAI	= 000411	#12-252    
ANDCAM	= 000412	#12-253    
ANDCB 	= 000440	#12-279    
ANDCBB	= 000443	#12-282    
ANDCBI	= 000441	#12-280    
ANDCBM	= 000442	#12-281    
ANDCM 	= 000420	#12-259    
ANDCMB	= 000423	#12-262    
ANDCMI	= 000421	#12-260    
ANDCMM	= 000422	#12-261    
ANDI  	= 000405	#12-248    
ANDM  	= 000406	#12-249    
AOBJN 	= 000253	#12-153    
AOBJP 	= 000252	#12-152    
AOJ   	= 000340	#12-207    
AOJA  	= 000344	#12-211    
AOJE  	= 000342	#12-209    
AOJG  	= 000347	#12-214    
AOJGE 	= 000345	#12-212    
AOJL  	= 000341	#12-208    
AOJLE 	= 000343	#12-210    
AOJN  	= 000346	#12-213    
AOS   	= 000350	#12-215    
AOSA  	= 000354	#12-219    
AOSE  	= 000352	#12-217    
AOSG  	= 000357	#12-222    
AOSGE 	= 000355	#12-220    
AOSL  	= 000351	#12-216    
AOSLE 	= 000353	#12-218    
MSSCTL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:08	PAGE 3

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

AOSN  	= 000356	#12-221    
APR   	= 000000	#12-449     55-130    
ASH   	= 000240	#12-143    
ASHC  	= 000244	#12-147    
ASL0.3	= ******  GX	 114-838   
ASL0.6	= ******  GX	 114-812   
ASR0.3	= ******  GX	 100-210    103-353    110-641   
ASR0.5	= ******  GX	 99-146     99-159     99-170     99-186     100-202   
BAF   	= ******  GX	 103-342   
BIT0  	= 000001	#4-63      
BIT1  	= 000002	#4-64      
BIT10 	= 002000	#4-73      
BIT11 	= 004000	#4-74       4-81      
BIT12 	= 010000	#4-75      
BIT13 	= 020000	#4-76      
BIT14 	= 040000	#4-77      
BIT15 	= 100000	#4-78       26-1126   
BIT2  	= 000004	#4-65      
BIT3  	= 000010	#4-66      
BIT4  	= 000020	#4-67      
BIT5  	= 000040	#4-68      
BIT6  	= 000100	#4-69      
BIT7  	= 000200	#4-70       26-1125   
BIT8  	= 000400	#4-71      
BIT9  	= 001000	#4-72       4-80      
BLKI  	= 000000	#12-440     55-129     55-131    
BLKO  	= 000002	#12-442     55-127    
BLK0  	= 000000	#12-44     
BLK1  	= 000001	#12-45     
BLK2  	= 000002	#12-46     
BLK3  	= 000003	#12-47     
BLK4  	= 000004	#12-48     
BLK5  	= 000005	#12-49     
BLK6  	= 000006	#12-50     
BLT   	= 000251	#12-151    
BMTAB 	= ******  GX	 99-174    
BOLPS 	= ******  GX	 96-54      98-126    
BOLPSJ	  000224 R	 96-42      96-50     #96-54     
BRCLK 	= 000005	#55-122    
BRCTN 	= 000006	#43-170    
BSIZE 	= ******  GX	 104-371   
BSYCLR	= 000400	#44-207     44-207     44-207    #44-207     44-207     44-207    #44-207     44-207     44-207    
                        #44-207     44-207     44-207    #44-207     44-207     44-207    #44-207     44-207     44-207    
                        #44-207     44-207     44-207    #44-207     44-207     44-207    #44-207     113-784    113-785   
CAI   	= 000300	#12-175    
CAIA  	= 000304	#12-179    
CAIE  	= 000302	#12-177    
CAIG  	= 000307	#12-182    
CAIGE 	= 000305	#12-180    
CAIL  	= 000301	#12-176    
CAILE 	= 000303	#12-178    
CAIN  	= 000306	#12-181    
MSSCTL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:08	PAGE 4

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

CALPAR	= ******  GX	 115-863   
CAM   	= 000310	#12-183    
CAMA  	= 000314	#12-187    
CAME  	= 000312	#12-185    
CAMG  	= 000317	#12-190    
CAMGE 	= 000315	#12-188    
CAML  	= 000311	#12-184    
CAMLE 	= 000313	#12-186    
CAMN  	= 000316	#12-189    
CAS   	= 020000	#44-202     44-202     44-202    #44-202     44-202     44-202    #44-202     44-202     44-202    
                        #44-202     44-202     44-202    #44-202     44-202     44-202    #44-202     44-202     44-202    
                        #44-202     44-202     44-202    #44-202     44-202     44-202    #44-202     44-202     44-202    
                        #44-202     44-202     44-202    #44-202     44-202     44-202    #44-202     44-202     44-202    
                        #44-202     44-202     44-202    #44-202     113-777    113-781   
CCA   	= 000014	#12-452    
CCFAIL	= ******  GX	*98-128    *100-215   
CECLK 	= 000004	#55-119    
CHKED 	= ******  GX	 102-293   
CLEAR 	= 000400	#12-239    
CLEARB	= 000403	#12-245    
CLEARI	= 000401	#12-241    
CLEARM	= 000402	#12-243    
CLRMR 	= 000006	#55-120    
CNTSD1	= ******  GX	 102-274   
CONBUT	= 000012	#55-124    
CONI  	= 000005	#12-445    
CONMMR	= 000001	#3-54       9-276      9-300     
CONO  	= 000004	#12-444    
CONSO 	= 000007	#12-447    
CONSZ 	= 000006	#12-446    
CONTI 	= ******  GX	 96-26      96-32      96-41      100-193   
CONTIN	= ******  GX	 102-283   
CORDET	= ******	 3-8        7-244     
CPU   	= 000200	#26-1125    96-17      105-398   
DADD  	= 000114	#12-59     
DATAI 	= 000001	#12-441    
DATAO 	= 000003	#12-443    
DBEOVL	= ******	 3-10       9-303     
DBESFL	= ******  GX	*96-49     
DBUF  	= ******  GX	 99-151     100-195    102-281    102-295    103-341    104-377   
DCNFBB	  002516 RG	 9-297      98-119    #105-394   
DCNFPM	= 013777	 105-400   #105-430   
DDIV  	= 000117	#12-62     
DE$BUG	= 070000	#12-8      
DFAD  	= 000110	#12-55     
DFDV  	= 000113	#12-58     
DFMP  	= 000112	#12-57     
DFN   	= 000131	#12-72     
DFRLST	= ******  GX	 105-399   
DFSB  	= 000111	#12-56     
DIAG  	= 000104	#12-52     
DIV   	= 000234	#12-139    
MSSCTL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:08	PAGE 5

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

DIVB  	= 000237	#12-142    
DIVI  	= 000235	#12-140    
DIVM  	= 000236	#12-141    
DLNXT 	= ******  GX	*105-399   
DMACN 	= 000004	#43-160    
DMACTN	= 000002	#43-159    
DMARMP	= ******  GX	 96-22     
DMOVE 	= 000120	#12-63     
DMOVEM	= 000124	#12-67     
DMOVN 	= 000121	#12-64     
DMOVNM	= 000125	#12-68     
DMUL  	= 000116	#12-61     
DPB   	= 000137	#12-78     
DPD   	  002266 RG	 9-297      96-45     #103-330   
DPDSRS	= ******  GX	*103-333   *103-336    103-360   
DREADY	= 001000	#44-206     44-206     44-206    #44-206     44-206     44-206    #44-206     44-206     44-206    
                        #44-206     44-206     44-206    #44-206     44-206     44-206    #44-206     44-206     44-206    
                        #44-206     44-206     44-206    #44-206     44-206     44-206    #44-206     44-206     44-206    
                        #44-206     113-774    113-778    113-779    113-787   
DSUB  	= 000115	#12-60     
EQV   	= 000444	#12-283    
EQVB  	= 000447	#12-286    
EQVI  	= 000445	#12-284    
EQVM  	= 000446	#12-285    
ERRSTP	= 004000	#4-81      
ER$CFT	= 004374 RG	#112-715   
EXCH  	= 000250	#12-150    
EXTEND	= 000123	#12-66     
FAD   	= 000140	#12-79     
FADB  	= 000143	#12-82     
FADL  	= 000141	#12-80     
FADM  	= 000142	#12-81     
FADR  	= 000144	#12-83     
FADRB 	= 000147	#12-86     
FADRI 	= 000145	#12-84     
FADRM 	= 000146	#12-85     
FDV   	= 000170	#12-103    
FDVB  	= 000173	#12-106    
FDVL  	= 000171	#12-104    
FDVM  	= 000172	#12-105    
FDVR  	= 000174	#12-107    
FDVRB 	= 000177	#12-110    
FDVRI 	= 000175	#12-108    
FDVRM 	= 000176	#12-109    
FITCON	= ******	 3-11       10-325    
FIX   	= 000122	#12-65     
FIXR  	= 000126	#12-69     
FLTR  	= 000127	#12-70     
FMP   	= 000160	#12-95     
FMPB  	= 000163	#12-98     
FMPL  	= 000161	#12-96     
FMPM  	= 000162	#12-97     
MSSCTL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:08	PAGE 6

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

FMPR  	= 000164	#12-99     
FMPRB 	= 000167	#12-102    
FMPRI 	= 000165	#12-100    
FMPRM 	= 000166	#12-101    
FMRECN	= ******  GX	 98-98     
FSB   	= 000150	#12-87     
FSBB  	= 000153	#12-90     
FSBL  	= 000151	#12-88     
FSBM  	= 000152	#12-89     
FSBR  	= 000154	#12-91     
FSBRB 	= 000157	#12-94     
FSBRI 	= 000155	#12-92     
FSBRM 	= 000156	#12-93     
FSC   	= 000132	#12-73     
FSD   	= ******  GX	 115-857   
FSDCH 	= ******  GX	 106-452    106-453    107-490    109-606   
FSDCHK	= ******  GX	 106-446    110-644    110-645   
FSDM1 	= ******  GX	 106-451    107-479    109-565    115-856   
F11M  	  003773 R	 109-565   #109-616   
GBSRL 	  005040 R	 114-807    114-810    114-828    114-834   #115-854   
GETBBD	  004652 RG	 9-297      98-115     99-173    #114-806   
GETCMP	  004734 RG	 9-297      98-106    #114-827   
GETTF 	  004140 R	 109-564    110-630   #111-666   
HALTLP	= 001000	#4-80      
HLL   	= 000500	#12-311    
HLLE  	= 000530	#12-335    
HLLEI 	= 000531	#12-336    
HLLEM 	= 000532	#12-337    
HLLES 	= 000533	#12-338    
HLLI  	= 000501	#12-312    
HLLM  	= 000502	#12-313    
HLLO  	= 000520	#12-327    
HLLOI 	= 000521	#12-328    
HLLOM 	= 000522	#12-329    
HLLOS 	= 000523	#12-330    
HLLS  	= 000503	#12-314    
HLLZ  	= 000510	#12-319    
HLLZI 	= 000511	#12-320    
HLLZM 	= 000512	#12-321    
HLLZS 	= 000513	#12-322    
HLR   	= 000544	#12-347    
HLRE  	= 000574	#12-371    
HLREI 	= 000575	#12-372    
HLREM 	= 000576	#12-373    
HLRES 	= 000577	#12-374    
HLRI  	= 000545	#12-348    
HLRM  	= 000546	#12-349    
HLRO  	= 000564	#12-363    
HLROI 	= 000565	#12-364    
HLROM 	= 000566	#12-365    
HLROS 	= 000567	#12-366    
HLRS  	= 000547	#12-350    
MSSCTL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:08	PAGE 7

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

HLRZ  	= 000554	#12-355    
HLRZI 	= 000555	#12-356    
HLRZM 	= 000556	#12-357    
HLRZS 	= 000557	#12-358    
HRL   	= 000504	#12-315    
HRLE  	= 000534	#12-339    
HRLEI 	= 000535	#12-340    
HRLEM 	= 000536	#12-341    
HRLES 	= 000537	#12-342    
HRLI  	= 000505	#12-316    
HRLM  	= 000506	#12-317    
HRLO  	= 000524	#12-331    
HRLOI 	= 000525	#12-332    
HRLOM 	= 000526	#12-333    
HRLOS 	= 000527	#12-334    
HRLS  	= 000507	#12-318    
HRLZ  	= 000514	#12-323    
HRLZI 	= 000515	#12-324    
HRLZM 	= 000516	#12-325    
HRLZS 	= 000517	#12-326    
HRR   	= 000540	#12-343     105-417    105-417   
HRRE  	= 000570	#12-367    
HRREI 	= 000571	#12-368    
HRREM 	= 000572	#12-369    
HRRES 	= 000573	#12-370    
HRRI  	= 000541	#12-344    
HRRM  	= 000542	#12-345    
HRRO  	= 000560	#12-359    
HRROI 	= 000561	#12-360    
HRROM 	= 000562	#12-361    
HRROS 	= 000563	#12-362    
HRRS  	= 000543	#12-346    
HRRZ  	= 000550	#12-351    
HRRZI 	= 000551	#12-352    
HRRZM 	= 000552	#12-353    
HRRZS 	= 000553	#12-354    
I     	= 000000	#102-304    102-304   #102-305    102-305   #102-306    102-306   #102-307    102-307   #102-308   
                         102-308   #102-309    102-309   #102-310    102-310   #105-416    105-416   #105-417    105-417   
                        #105-418    105-418   #105-419    105-419   #105-420    105-420   #105-421    105-421   #105-422   
                         105-422   #105-423    105-423   #105-424    105-424   
IBP   	= 000133	#12-74     
IDIV  	= 000230	#12-135    
IDIVB 	= 000233	#12-138    
IDIVI 	= 000231	#12-136    
IDIVM 	= 000232	#12-137    
IDPB  	= 000136	#12-77     
ILDB  	= 000134	#12-75     
IMUL  	= 000220	#12-127    
IMULB 	= 000223	#12-130    
IMULI 	= 000221	#12-128    
IMULM 	= 000222	#12-129    
INIMDF	= ******  GX	 96-20     
MSSCTL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:08	PAGE 8

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

IOR   	= 000434	#12-271    
IORB  	= 000437	#12-277    
IORI  	= 000435	#12-273    
IORM  	= 000436	#12-275    
JFCL  	= 000255	#12-155    
JFFO  	= 000243	#12-146    
JRA   	= 000267	#12-166    
JRST  	= 000254	#12-154     102-305    102-305    102-310    102-310    105-423    105-423    105-424    105-424   
JSA   	= 000266	#12-165    
JSP   	= 000265	#12-164    
JSR   	= 000264	#12-163    
JUMP  	= 000320	#12-191    
JUMPA 	= 000324	#12-195    
JUMPE 	= 000322	#12-193    
JUMPG 	= 000327	#12-198    
JUMPGE	= 000325	#12-196    
JUMPL 	= 000321	#12-192    
JUMPLE	= 000323	#12-194    
JUMPN 	= 000326	#12-197    
KEEPBB	= ******  GX	 98-113    
LDAR  	= 000077	#55-125    
LDATIM	  003702 R	 109-581    109-585    109-588    109-592   #109-599   
LDB   	= 000135	#12-76     
LDEFER	= ******  GX	 105-405   
LDFVR 	  003116 R	 106-447   #107-476   
LDNADR	  002734 RG	 9-297      96-47     #106-445   
LDREFR	  004000 R	 106-449   #110-629   
LDTIMR	  003452 R	 106-448   #109-563   
LSBRTN	= 000001	#3-58      
LSBSRL	= 000744	#44-209     114-807    114-810    114-828    114-834   
LSH   	= 000242	#12-145     102-307    102-307   
LSHC  	= 000246	#12-149    
LSTALL	= ******	 12-455     39-1601    40-2       51-493     95-3      
LSTDIA	= ******	 51-494    
LSTMAC	= ******	 12-455     39-1601    40-2       51-493    
LSTMB 	= 000001	#3-57       95-3      
LUBSRL	= 000600	#44-210    
MACTN 	= 000001	#43-154    
MAP   	= 000257	#12-158    
MAXCN 	= 000037	#43-152    
MBCTN 	= 000003	#43-155    
MBOKLG	= ******	 4-100      9-290     
MBROOT	= ******	 3-7        5-158     
MDHDEJ	  000230 R	 96-44      96-46      96-48     #96-55      97-81     
MDHDER	= ******  GX	 96-55      98-121    
MDINIT	  000000 RG	 9-299     #96-17     
MDRECN	= ******  GX	 98-129     100-216   
MDST0 	  000076 RG	 9-299     #96-41     
MDST0A	  000122 R	#96-47     
MDST1B	= ******  GX	 98-100    
MDST23	  000234 RG	 9-299     #97-66     
MFCTN 	= 000005	#43-166    
MSSCTL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:08	PAGE 9

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

MFIXED	  003252 R	#108-532   
MFXEND	  003452 R	 107-477   #108-549   
MF20RD	= ******  GX	 96-18     
MINUS1	= ******  GX	 115-856   
MMRESP	= ******  GX	 98-123    
MNBRCN	= 000036	#43-171    
MNMFCN	= 000010	#43-167     44-181     44-182     44-183     96-32     *103-339   *103-340   *104-365   *104-366   
                         109-579    109-583    109-586    109-590    110-633    111-668    111-670    111-673    111-675   
MNMXCN	= 000006	#43-163    
MNM.CN	= 000000	#43-156    
MNTITF	= 000040	#40-31      113-772    113-773    113-774    113-775    113-776    113-777    113-778    113-779   
                         113-780    113-781    113-782    113-783    113-784    113-785    113-787    113-787   
MOSTT0	  004432 R	 109-568    109-581    109-592    110-631    111-671   #113-770   
MOSTT1	  004542 R	 109-585    109-588    110-635    111-676   #113-791   
MOVE  	= 000200	#12-111    
MOVEI 	= 000201	#12-112    
MOVEM 	= 000202	#12-113    
MOVES 	= 000203	#12-114    
MOVM  	= 000214	#12-123    
MOVMI 	= 000215	#12-124    
MOVMM 	= 000216	#12-125    
MOVMS 	= 000217	#12-126    
MOVN  	= 000210	#12-119    
MOVNI 	= 000211	#12-120    
MOVNM 	= 000212	#12-121    
MOVNS 	= 000213	#12-122    
MOVS  	= 000204	#12-115    
MOVSI 	= 000205	#12-116    
MOVSM 	= 000206	#12-117    
MOVSS 	= 000207	#12-118    
MSAMSZ	= 000140	#44-181    *103-347   *103-348   
MSSCTL	= 177777  G	#1-1        3-9        8-268     
MUL   	= 000224	#12-131    
MULB  	= 000227	#12-134    
MULI  	= 000225	#12-132    
MULM  	= 000226	#12-133    
MXBRCN	= 000037	#43-172    
MXCTN 	= 000004	#43-162    
MXMFCN	= 000017	#43-168     44-181     44-182     44-183     96-26     
MXMXCN	= 000007	#43-164    
MXM.CN	= 000003	#43-157    
MX20MD	  002054 RG	 9-298     #100-236   
OR    	= 000434	#12-272    
ORB   	= 000437	#12-278    
ORCA  	= 000454	#12-291    
ORCAB 	= 000457	#12-294    
ORCAI 	= 000455	#12-292    
ORCAM 	= 000456	#12-293    
ORCB  	= 000470	#12-303    
ORCBB 	= 000473	#12-306    
ORCBI 	= 000471	#12-304    
ORCBM 	= 000472	#12-305    
MSSCTL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:08	PAGE 10

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

ORCM  	= 000464	#12-299    
ORCMB 	= 000467	#12-302    
ORCMI 	= 000465	#12-300    
ORCMM 	= 000466	#12-301    
ORI   	= 000435	#12-274    
ORM   	= 000436	#12-276    
PAG   	= 000010	#12-451    
PI    	= 000004	#12-450     55-128     55-132    
POP   	= 000262	#12-161    
POPJ  	= 000263	#12-162    
PRMDPM	= 037740	 102-278   #102-314    102-314    102-314   #102-314    102-314    102-314   #102-314    102-314   
                         102-314   #102-314    102-314    102-314   #102-314    102-314    102-314   #102-314    102-314   
                         102-314   #102-314    102-314    102-314   #102-314    102-314    102-314   #102-314    102-314   
                         102-314   #102-314    102-314    102-314   #102-314    102-314    102-314   #102-314    102-314   
                         102-314   #102-314    102-314    102-314   #102-314    102-314    102-314   #102-314   
PUSH  	= 000261	#12-160    
PUSHJ 	= 000260	#12-159    
PXCT  	= 000256	#12-156    
QRESET	= 003004 RG	 9-298      98-105     98-122     100-214   #106-450   
RAMSZ0	= ******  GX	*104-365    109-579    109-590    111-668    111-670   
RAMSZ1	= ******  GX	*103-339    109-583    109-586    110-633    111-673    111-675   
RAS   	= 040000	#44-201     44-201     44-201    #44-201     44-201     44-201    #44-201     44-201     44-201    
                        #44-201     44-201     44-201    #44-201     44-201     44-201    #44-201     44-201     44-201    
                        #44-201     44-201     44-201    #44-201     44-201     44-201    #44-201     44-201     44-201    
                        #44-201     44-201     44-201    #44-201     44-201     44-201    #44-201     44-201     44-201    
                        #44-201     44-201     44-201    #44-201     44-201     44-201    #44-201     113-772    113-780   
RDATIM	= ******  GX	 112-710   
RDPROM	  002060 RG	 9-298      96-43     #102-274   
REAPWD	= ******  GX	*105-397   *105-408    105-425   *115-854   *115-855    115-857    115-859    115-862    115-868   
RELEAS	= ******	 12-454     39-1600    40-1       51-492     95-1       95-2       102-303    102-314    105-413   
                         105-415    105-431    109-596    113-770    113-787   
ROT   	= 000241	#12-144    
ROTC  	= 000245	#12-148     102-308    102-308   
RSPMAP	= ******  GX	*96-22     
RS0RS1	= 000010	#44-182     103-362   
RS0TN0	= 000020	#44-183     111-685   
RUNPRG	= ******  GX	 102-279    105-406   
R$$20F	= 000001	#3-48       44-187     49-469     96-17      96-43      96-45      96-47      97-66      97-79     
                         98-106     98-115     98-117     98-119     98-123     98-128     99-144     99-157     99-160    
                         99-161     99-168     99-173     99-175     99-184     99-187     99-188     100-194    100-200   
                         100-203    100-204    100-211    100-212    100-215    102-274    102-276    102-277    102-278   
                         102-279    102-283    102-283    102-284    102-303    102-314    103-332    103-346    105-398   
                         105-400    105-406    105-415    105-431    106-445    106-446    106-447    106-448    106-449   
                         106-451    106-452    106-453    106-454    107-479    107-490    109-564    109-565    109-566   
                         109-581    109-581    109-585    109-585    109-588    109-588    109-592    109-592    109-606   
                         109-610    109-611    110-630    110-644    110-645    112-712    112-730    113-770    113-787   
                         114-807    114-807    114-810    114-810    114-828    114-828    114-834    114-834    115-856   
                         115-857    115-859    115-860    115-875    115-876    115-878   
R5.PC 	= ******  GX	 104-379    107-498    109-593    111-678   
SAV.5 	= ******  GX	 103-330    107-476    109-563    111-666   
SBDT  	= ******  GX	 97-66      97-79      99-144     99-157     100-200    103-332    106-445    106-454   
SBD0  	= ******  GX	 99-168     99-184     100-194   
MSSCTL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:08	PAGE 11

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

SBUS  	= 100000	#26-1126    96-17     
SECLK 	= 000003	#55-118    
SETA  	= 000424	#12-263    
SETAB 	= 000427	#12-266    
SETAI 	= 000425	#12-264    
SETAM 	= 000426	#12-265    
SETBBD	= ******  GX	 99-175    
SETCA 	= 000450	#12-287    
SETCAB	= 000453	#12-290    
SETCAI	= 000451	#12-288    
SETCAM	= 000452	#12-289    
SETCM 	= 000460	#12-295    
SETCMB	= 000463	#12-298    
SETCMI	= 000461	#12-296    
SETCMM	= 000462	#12-297    
SETM  	= 000414	#12-255    
SETMB 	= 000417	#12-258    
SETMI 	= 000415	#12-256    
SETMM 	= 000416	#12-257    
SETMR 	= 000007	#55-121    
SETO  	= 000474	#12-307    
SETOB 	= 000477	#12-310    
SETOI 	= 000475	#12-308    
SETOM 	= 000476	#12-309    
SETRAM	= ******  GX	 109-570   
SETRUN	= 000011	#55-123    
SETZ  	= 000400	#12-240    
SETZB 	= 000403	#12-246    
SETZI 	= 000401	#12-242    
SETZM 	= 000402	#12-244    
SKIP  	= 000330	#12-199    
SKIPA 	= 000334	#12-203    
SKIPE 	= 000332	#12-201    
SKIPG 	= 000337	#12-206    
SKIPGE	= 000335	#12-204    
SKIPL 	= 000331	#12-200    
SKIPLE	= 000333	#12-202    
SKIPN 	= 000336	#12-205    
SMFSS0	= ******  GX	 98-117    
SOJ   	= 000360	#12-223    
SOJA  	= 000364	#12-227    
SOJE  	= 000362	#12-225    
SOJG  	= 000367	#12-230    
SOJGE 	= 000365	#12-228    
SOJL  	= 000361	#12-224    
SOJLE 	= 000363	#12-226    
SOJN  	= 000366	#12-229    
SOS   	= 000370	#12-231    
SOSA  	= 000374	#12-235    
SOSE  	= 000372	#12-233    
SOSG  	= 000377	#12-238    
SOSGE 	= 000375	#12-236    
MSSCTL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:08	PAGE 12

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

SOSL  	= 000371	#12-232    
SOSLE 	= 000373	#12-234    
SOSN  	= 000376	#12-237    
SSCLK 	= 000002	#55-117    
STPCLK	= 000000	#55-115    
STRCLK	= 000001	#55-116     102-276   
SUB   	= 000274	#12-171    
SUBB  	= 000277	#12-174    
SUBI  	= 000275	#12-172     105-416    105-416   
SUBM  	= 000276	#12-173    
SXCT  	= 000106	#12-54     
TADR  	= 000010	#36-1491   
TBN   	= 000004	#36-1490   
TCN   	= 000001	#36-1488   
TDC   	= 000650	#12-415    
TDCA  	= 000654	#12-419    
TDCE  	= 000652	#12-417    
TDCN  	= 000656	#12-421    
TDN   	= 000610	#12-383    
TDNA  	= 000614	#12-387    
TDNE  	= 000612	#12-385    
TDNN  	= 000616	#12-389    
TDO   	= 000670	#12-431    
TDOA  	= 000674	#12-435    
TDOE  	= 000672	#12-433    
TDON  	= 000676	#12-437    
TDZ   	= 000630	#12-399    
TDZA  	= 000634	#12-403    
TDZE  	= 000632	#12-401    
TDZN  	= 000636	#12-405    
TGN   	= 000002	#36-1489   
TIMFS 	= 000044	#40-32      109-561    109-568    109-601    113-792   
TIMNO0	= ******  GX	*104-366   
TIMNO1	= ******  GX	*103-340   
TLC   	= 000641	#12-408    
TLCA  	= 000645	#12-412    
TLCE  	= 000643	#12-410    
TLCN  	= 000647	#12-414    
TLN   	= 000601	#12-376    
TLNA  	= 000605	#12-380    
TLNE  	= 000603	#12-378    
TLNN  	= 000607	#12-382     102-304    102-304    105-420    105-420   
TLO   	= 000661	#12-424    
TLOA  	= 000665	#12-428    
TLOE  	= 000663	#12-426    
TLON  	= 000667	#12-430    
TLZ   	= 000621	#12-392    
TLZA  	= 000625	#12-396    
TLZE  	= 000623	#12-394    
TLZN  	= 000627	#12-398    
TMFLNM	  004416 RG	 9-298      111-684    111-700    112-714   #112-728   
TRC   	= 000640	#12-407    
MSSCTL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:08	PAGE 13

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

TRCA  	= 000644	#12-411    
TRCE  	= 000642	#12-409    
TRCN  	= 000646	#12-413    
TRN   	= 000600	#12-375    
TRNA  	= 000604	#12-379    
TRNE  	= 000602	#12-377     105-422    105-422   
TRNN  	= 000606	#12-381    
TRO   	= 000660	#12-423    
TROA  	= 000664	#12-427    
TROE  	= 000662	#12-425    
TRON  	= 000666	#12-429    
TRPAR 	= 010000	#44-203     44-203     44-203    #44-203     44-203     44-203    #44-203     44-203     44-203    
                        #44-203     44-203     44-203    #44-203     44-203     44-203    #44-203     44-203     44-203    
                        #44-203     44-203     44-203    #44-203     44-203     44-203    #44-203     44-203     44-203    
                        #44-203     44-203     44-203    #44-203     44-203     44-203    #44-203     44-203     44-203    
                        #44-203     113-770    113-770    113-772    113-772    113-773    113-773    113-774    113-774   
                         113-775    113-775    113-776    113-776    113-777    113-777    113-778    113-778    113-779   
                         113-779    113-780    113-780    113-781    113-781    113-782    113-782    113-783    113-783   
                         113-784    113-784    113-785    113-785   
TRZ   	= 000620	#12-391    
TRZA  	= 000624	#12-395    
TRZE  	= 000622	#12-393    
TRZN  	= 000626	#12-397    
TSC   	= 000651	#12-416    
TSCA  	= 000655	#12-420    
TSCE  	= 000653	#12-418    
TSCN  	= 000657	#12-422    
TSN   	= 000611	#12-384    
TSNA  	= 000615	#12-388    
TSNE  	= 000613	#12-386    
TSNN  	= 000617	#12-390    
TSO   	= 000671	#12-432    
TSOA  	= 000675	#12-436    
TSOE  	= 000673	#12-434    
TSON  	= 000677	#12-438    
TSTCON	= ******  GX	 97-90      100-192    103-338    109-578    110-632    111-667   
TSZ   	= 000631	#12-400    
TSZA  	= 000635	#12-404    
TSZE  	= 000633	#12-402    
TSZN  	= 000637	#12-406    
UFA   	= 000130	#12-71     
UNDCTN	= 000007	#43-174    
WENABL	= 004000	#44-204     44-204     44-204    #44-204     44-204     44-204    #44-204     44-204     44-204    
                        #44-204     44-204     44-204    #44-204     44-204     44-204    #44-204     44-204     44-204    
                        #44-204     44-204     44-204    #44-204     44-204     44-204    #44-204     44-204     44-204    
                        #44-204     44-204     44-204    #44-204     44-204     44-204    #44-204     113-773    113-775   
                         113-782    113-787   
X     	= 000002 R	#100-218    100-218   #100-219    100-219   #100-220    100-220   #102-304    102-304   #102-305   
                         102-305   #102-306    102-306   #102-307    102-307   #102-308    102-308   #102-309    102-309   
                        #102-310    102-310   #102-311    102-311   #102-312    102-312   #105-416    105-416   #105-417   
                         105-417   #105-418    105-418   #105-419    105-419   #105-420    105-420   #105-421    105-421   
                        #105-422    105-422   #105-423    105-423   #105-424    105-424   #105-425    105-425   #105-426   
MSSCTL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:08	PAGE 14

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                        #105-426    105-426   #105-428   #105-428    105-428   #106-456    106-456   #106-457    106-457   
                        #106-458    106-458   #106-459    106-459   #106-460    106-460   #107-504    107-504   #109-616   
                         109-616   #110-649    110-649   #110-650    110-650   #110-652    110-652   #110-653    110-653   
                        #113-770    113-772    113-772   #113-772    113-772   #113-772    113-773    113-773   #113-773   
                         113-773   #113-773    113-774    113-774   #113-774    113-774   #113-774    113-775    113-775   
                        #113-775    113-775   #113-775    113-776    113-776   #113-776    113-776   #113-776    113-777   
                         113-777   #113-777    113-777   #113-777    113-778    113-778   #113-778    113-778   #113-778   
                         113-779    113-779   #113-779    113-779   #113-779    113-780    113-780   #113-780    113-780   
                        #113-780    113-781    113-781   #113-781    113-781   #113-781    113-782    113-782   #113-782   
                         113-782   #113-782    113-783    113-783   #113-783    113-783   #113-783    113-784    113-784   
                        #113-784    113-784   #113-784    113-785    113-785   #113-785    113-785   #113-785    113-787   
                         113-787   #113-787    113-787   #113-787    113-787   #113-787    113-787   
XCONMP	= ******  GX	*96-34      98-111    
XCT   	= 000256	#12-157    
XDV   	= 000004	#102-306    102-306    102-306   #105-418    105-418    105-418   #105-421    105-421    105-421   
XOP   	= 000002	#102-306    102-306    102-306   #105-418    105-418    105-418   #105-421    105-421    105-421   
XOR   	= 000430	#12-267     105-419    105-419   
XORB  	= 000433	#12-270    
XORI  	= 000431	#12-268    
XORM  	= 000432	#12-269    
XR    	= 000000	#102-304    102-304   #102-305    102-305   #102-306    102-306   #102-307    102-307   #102-308   
                         102-308   #102-309    102-309   #102-310    102-310   #105-416    105-416   #105-417    105-417   
                        #105-418    105-418   #105-419    105-419   #105-420    105-420   #105-421    105-421   #105-422   
                         105-422   #105-423    105-423   #105-424    105-424   
Y     	= 105011	#113-770    113-772    113-772   #113-772    113-772    113-772    113-772   #113-772    113-773   
                         113-773   #113-773    113-773    113-773    113-773   #113-773    113-774    113-774   #113-774   
                         113-774    113-774    113-774   #113-774    113-775    113-775    113-775   #113-775    113-775   
                         113-775    113-775   #113-775    113-776    113-776   #113-776    113-776    113-776    113-776   
                        #113-776    113-777    113-777    113-777    113-777    113-777   #113-777    113-777    113-777   
                         113-777   #113-777    113-778    113-778    113-778    113-778    113-778    113-778   #113-778   
                         113-778    113-778    113-778   #113-778    113-779    113-779    113-779   #113-779    113-779   
                         113-779    113-779   #113-779    113-780    113-780    113-780    113-780   #113-780    113-780   
                         113-780    113-780   #113-780    113-781    113-781   #113-781    113-781    113-781    113-781   
                        #113-781    113-782    113-782   #113-782    113-782    113-782    113-782   #113-782    113-783   
                         113-783   #113-783    113-783    113-783    113-783   #113-783    113-784    113-784    113-784   
                         113-784    113-784   #113-784    113-784    113-784    113-784   #113-784    113-785    113-785   
                         113-785   #113-785    113-785    113-785    113-785   #113-785    113-787   #113-787    113-787   
                        #113-787    113-787   #113-787    113-787    113-787    113-787    113-787    113-787    113-787   
                         113-787    113-787    113-787    113-787    113-787    113-787    113-787    113-787    113-787   
                         113-787   
$APRID	= 000000	#55-129    
$BRST 	= 000001	#44-189    
$CALPA	= 000001	#115-863   
$CNTSD	= 000001	#102-274   
$CONEX	= ******	 49-469     103-346   
$DCNFB	= 000001	#9-282      104-381   
$DDFXC	= ******  GX	 102-276   
$DMPAC	= 070010	#12-10     
$DPD  	= 000001	#9-275      102-317   
$EB   	= 002640 R	#102-303    102-314   #105-415    105-431   
$EVENT	= 000001	#44-190    
$EXAMD	= ******  GX	 100-196   
MSSCTL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:08	PAGE 15

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

$EXAMT	= ******  GX	 102-286    115-859   
$FATAL	= ******  GX	 112-715   
$FIND 	= 000001	#44-188    
$FITME	= ******	 103-346   
$FVRC 	= 000000	#108-529    108-533   #108-533    108-533    108-533   #108-533    108-533    108-533   #108-533   
                         108-533    108-533   #108-533    108-533   #108-533    108-533   #108-533    108-533    108-533   
                        #108-533    108-533    108-533   #108-533    108-533    108-533   #108-533    108-533   #108-533   
                         108-533   #108-533    108-533    108-533   #108-533    108-533    108-533   #108-533    108-533   
                         108-533   #108-533    108-533   #108-533    108-533   #108-533    108-533    108-533   #108-533   
                         108-533    108-533   #108-533    108-533    108-533   #108-533    108-533   #108-533    108-534   
                        #108-534    108-534    108-534   #108-534    108-534    108-534   #108-534    108-534    108-534   
                        #108-534    108-534   #108-534    108-534   #108-534    108-534    108-534   #108-534    108-534   
                         108-534   #108-534    108-534    108-534   #108-534    108-534   #108-534    108-534   #108-534   
                         108-534    108-534   #108-534    108-534    108-534   #108-534    108-534    108-534   #108-534   
                         108-534   #108-534    108-534   #108-534    108-534    108-534   #108-534    108-534    108-534   
                        #108-534    108-534    108-534   #108-534    108-534   #108-534    108-535   #108-535    108-535   
                         108-535   #108-535    108-535    108-535   #108-535    108-535    108-535   #108-535    108-535   
                        #108-535    108-535   #108-535    108-535    108-535   #108-535    108-535    108-535   #108-535   
                         108-535    108-535   #108-535    108-535   #108-535    108-535   #108-535    108-535    108-535   
                        #108-535    108-535    108-535   #108-535    108-535    108-535   #108-535    108-535   #108-535   
                         108-535   #108-535    108-535    108-535   #108-535    108-535    108-535   #108-535    108-535   
                         108-535   #108-535    108-535   #108-535    108-536   #108-536    108-536    108-536   #108-536   
                         108-536    108-536   #108-536    108-536    108-536   #108-536    108-536   #108-536    108-536   
                        #108-536    108-536    108-536   #108-536    108-536    108-536   #108-536    108-536    108-536   
                        #108-536    108-536   #108-536    108-536   #108-536    108-536    108-536   #108-536    108-536   
                         108-536   #108-536    108-536    108-536   #108-536    108-536   #108-536    108-536   #108-536   
                         108-536    108-536   #108-536    108-536    108-536   #108-536    108-536    108-536   #108-536   
                         108-536   #108-536    108-537   #108-537    108-537    108-537   #108-537    108-537    108-537   
                        #108-537    108-537    108-537   #108-537    108-537   #108-537    108-537   #108-537    108-537   
                         108-537   #108-537    108-537    108-537   #108-537    108-537    108-537   #108-537    108-537   
                        #108-537    108-537   #108-537    108-537    108-537   #108-537    108-537    108-537   #108-537   
                         108-537    108-537   #108-537    108-537   #108-537    108-537   #108-537    108-537    108-537   
                        #108-537    108-537    108-537   #108-537    108-537    108-537   #108-537    108-537   #108-537   
                         108-538   #108-538    108-538    108-538   #108-538    108-538    108-538   #108-538    108-538   
                         108-538   #108-538    108-538   #108-538    108-538   #108-538    108-538    108-538   #108-538   
                         108-538    108-538   #108-538    108-538    108-538   #108-538    108-538   #108-538    108-538   
                        #108-538    108-538    108-538   #108-538    108-538    108-538   #108-538    108-538    108-538   
                        #108-538    108-538   #108-538    108-538   #108-538    108-538    108-538   #108-538    108-538   
                         108-538   #108-538    108-538    108-538   #108-538    108-538   #108-538    108-539   #108-539   
                         108-539    108-539   #108-539    108-539    108-539   #108-539    108-539    108-539   #108-539   
                         108-539   #108-539    108-539   #108-539    108-539    108-539   #108-539    108-539    108-539   
                        #108-539    108-539    108-539   #108-539    108-539   #108-539    108-539   #108-539    108-539   
                         108-539   #108-539    108-539    108-539   #108-539    108-539    108-539   #108-539    108-539   
                        #108-539    108-539   #108-539    108-539    108-539   #108-539    108-539    108-539   #108-539   
                         108-539    108-539   #108-539    108-539   #108-539    108-540   #108-540    108-540    108-540   
                        #108-540    108-540    108-540   #108-540    108-540    108-540   #108-540    108-540   #108-540   
                         108-540   #108-540    108-540    108-540   #108-540    108-540    108-540   #108-540    108-540   
                         108-540   #108-540    108-540   #108-540    108-540   #108-540    108-540    108-540   #108-540   
                         108-540    108-540   #108-540    108-540    108-540   #108-540    108-540   #108-540    108-540   
                        #108-540    108-540    108-540   #108-540    108-540    108-540   #108-540    108-540    108-540   
                        #108-540    108-540   #108-540    108-541   #108-541    108-541    108-541   #108-541    108-541   
                         108-541   #108-541    108-541    108-541   #108-541    108-541   #108-541    108-541   #108-541   
MSSCTL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:08	PAGE 16

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                         108-541    108-541   #108-541    108-541    108-541   #108-541    108-541    108-541   #108-541   
                         108-541   #108-541    108-541   #108-541    108-541    108-541   #108-541    108-541    108-541   
                        #108-541    108-541    108-541   #108-541    108-541   #108-541    108-541   #108-541    108-541   
                         108-541   #108-541    108-541    108-541   #108-541    108-541    108-541   #108-541    108-541   
                        #108-541    108-542   #108-542    108-542    108-542   #108-542    108-542    108-542   #108-542   
                         108-542    108-542   #108-542    108-542   #108-542    108-542   #108-542    108-542    108-542   
                        #108-542    108-542    108-542   #108-542    108-542    108-542   #108-542    108-542   #108-542   
                         108-542   #108-542    108-542    108-542   #108-542    108-542    108-542   #108-542    108-542   
                         108-542   #108-542    108-542   #108-542    108-542   #108-542    108-542    108-542   #108-542   
                         108-542    108-542   #108-542    108-542    108-542   #108-542    108-542   #108-542    108-543   
                        #108-543    108-543    108-543   #108-543    108-543    108-543   #108-543    108-543    108-543   
                        #108-543    108-543   #108-543    108-543   #108-543    108-543    108-543   #108-543    108-543   
                         108-543   #108-543    108-543    108-543   #108-543    108-543   #108-543    108-543   #108-543   
                         108-543    108-543   #108-543    108-543    108-543   #108-543    108-543    108-543   #108-543   
                         108-543   #108-543    108-543   #108-543    108-543    108-543   #108-543    108-543    108-543   
                        #108-543    108-543    108-543   #108-543    108-543   #108-543    108-544   #108-544    108-544   
                         108-544   #108-544    108-544    108-544   #108-544    108-544    108-544   #108-544    108-544   
                        #108-544    108-544   #108-544    108-544    108-544   #108-544    108-544    108-544   #108-544   
                         108-544    108-544   #108-544    108-544   #108-544    108-544   #108-544    108-544    108-544   
                        #108-544    108-544    108-544   #108-544    108-544    108-544   #108-544    108-544   #108-544   
                         108-544   #108-544    108-544    108-544   #108-544    108-544    108-544   #108-544    108-544   
                         108-544   #108-544    108-544   #108-544    108-545   #108-545    108-545    108-545   #108-545   
                         108-545    108-545   #108-545    108-545    108-545   #108-545    108-545   #108-545    108-545   
                        #108-545    108-545    108-545   #108-545    108-545    108-545   #108-545    108-545    108-545   
                        #108-545    108-545   #108-545    108-545   #108-545    108-545    108-545   #108-545    108-545   
                         108-545   #108-545    108-545    108-545   #108-545    108-545   #108-545    108-545   #108-545   
                         108-545    108-545   #108-545    108-545    108-545   #108-545    108-545    108-545   #108-545   
                         108-545   #108-545    108-546   #108-546    108-546    108-546   #108-546    108-546    108-546   
                        #108-546    108-546    108-546   #108-546    108-546   #108-546    108-546   #108-546    108-546   
                         108-546   #108-546    108-546    108-546   #108-546    108-546    108-546   #108-546    108-546   
                        #108-546    108-546   #108-546    108-546    108-546   #108-546    108-546    108-546   #108-546   
                         108-546    108-546   #108-546    108-546   #108-546    108-546   #108-546    108-546    108-546   
                        #108-546    108-546    108-546   #108-546    108-546    108-546   #108-546    108-546   #108-546   
                         108-547   #108-547    108-547    108-547   #108-547    108-547    108-547   #108-547    108-547   
                         108-547   #108-547    108-547   #108-547    108-547   #108-547    108-547    108-547   #108-547   
                         108-547    108-547   #108-547    108-547    108-547   #108-547    108-547   #108-547    108-547   
                        #108-547    108-547    108-547   #108-547    108-547    108-547   #108-547    108-547    108-547   
                        #108-547    108-547   #108-547    108-547   #108-547    108-547    108-547   #108-547    108-547   
                         108-547   #108-547    108-547    108-547   #108-547    108-547   #108-547    108-548   #108-548   
                         108-548    108-548   #108-548    108-548    108-548   #108-548    108-548    108-548   #108-548   
                         108-548   #108-548    108-548   #108-548    108-548    108-548   #108-548    108-548    108-548   
                        #108-548    108-548    108-548   #108-548    108-548   #108-548    108-548   #108-548    108-548   
                         108-548   #108-548    108-548    108-548   #108-548    108-548    108-548   #108-548    108-548   
                        #108-548    108-548   #108-548    108-548    108-548   #108-548    108-548    108-548   #108-548   
                         108-548    108-548   #108-548    108-548   #108-548   
$FVRW 	= 000000	#108-530    108-533   #108-533    108-533   #108-533    108-533   #108-533    108-533   #108-533   
                         108-533   #108-533    108-533   #108-533    108-533   #108-533    108-533   #108-533    108-533   
                        #108-533    108-533   #108-533    108-533   #108-533    108-533   #108-533    108-533   #108-533   
                         108-533   #108-533    108-533   #108-533    108-533   #108-533    108-533   #108-533    108-533   
                        #108-533    108-533   #108-533    108-533   #108-533    108-534   #108-534    108-534   #108-534   
                         108-534   #108-534    108-534   #108-534    108-534   #108-534    108-534   #108-534    108-534   
                        #108-534    108-534   #108-534    108-534   #108-534    108-534   #108-534    108-534   #108-534   
MSSCTL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:08	PAGE 17

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                         108-534   #108-534    108-534   #108-534    108-534   #108-534    108-534   #108-534    108-534   
                        #108-534    108-534   #108-534    108-534   #108-534    108-534   #108-534    108-534   #108-534   
                         108-535   #108-535    108-535   #108-535    108-535   #108-535    108-535   #108-535    108-535   
                        #108-535    108-535   #108-535    108-535   #108-535    108-535   #108-535    108-535   #108-535   
                         108-535   #108-535    108-535   #108-535    108-535   #108-535    108-535   #108-535    108-535   
                        #108-535    108-535   #108-535    108-535   #108-535    108-535   #108-535    108-535   #108-535   
                         108-535   #108-535    108-535   #108-535    108-536   #108-536    108-536   #108-536    108-536   
                        #108-536    108-536   #108-536    108-536   #108-536    108-536   #108-536    108-536   #108-536   
                         108-536   #108-536    108-536   #108-536    108-536   #108-536    108-536   #108-536    108-536   
                        #108-536    108-536   #108-536    108-536   #108-536    108-536   #108-536    108-536   #108-536   
                         108-536   #108-536    108-536   #108-536    108-536   #108-536    108-536   #108-536    108-537   
                        #108-537    108-537   #108-537    108-537   #108-537    108-537   #108-537    108-537   #108-537   
                         108-537   #108-537    108-537   #108-537    108-537   #108-537    108-537   #108-537    108-537   
                        #108-537    108-537   #108-537    108-537   #108-537    108-537   #108-537    108-537   #108-537   
                         108-537   #108-537    108-537   #108-537    108-537   #108-537    108-537   #108-537    108-537   
                        #108-537    108-537   #108-537    108-538   #108-538    108-538   #108-538    108-538   #108-538   
                         108-538   #108-538    108-538   #108-538    108-538   #108-538    108-538   #108-538    108-538   
                        #108-538    108-538   #108-538    108-538   #108-538    108-538   #108-538    108-538   #108-538   
                         108-538   #108-538    108-538   #108-538    108-538   #108-538    108-538   #108-538    108-538   
                        #108-538    108-538   #108-538    108-538   #108-538    108-538   #108-538    108-539   #108-539   
                         108-539   #108-539    108-539   #108-539    108-539   #108-539    108-539   #108-539    108-539   
                        #108-539    108-539   #108-539    108-539   #108-539    108-539   #108-539    108-539   #108-539   
                         108-539   #108-539    108-539   #108-539    108-539   #108-539    108-539   #108-539    108-539   
                        #108-539    108-539   #108-539    108-539   #108-539    108-539   #108-539    108-539   #108-539   
                         108-539   #108-539    108-540   #108-540    108-540   #108-540    108-540   #108-540    108-540   
                        #108-540    108-540   #108-540    108-540   #108-540    108-540   #108-540    108-540   #108-540   
                         108-540   #108-540    108-540   #108-540    108-540   #108-540    108-540   #108-540    108-540   
                        #108-540    108-540   #108-540    108-540   #108-540    108-540   #108-540    108-540   #108-540   
                         108-540   #108-540    108-540   #108-540    108-540   #108-540    108-541   #108-541    108-541   
                        #108-541    108-541   #108-541    108-541   #108-541    108-541   #108-541    108-541   #108-541   
                         108-541   #108-541    108-541   #108-541    108-541   #108-541    108-541   #108-541    108-541   
                        #108-541    108-541   #108-541    108-541   #108-541    108-541   #108-541    108-541   #108-541   
                         108-541   #108-541    108-541   #108-541    108-541   #108-541    108-541   #108-541    108-541   
                        #108-541    108-542   #108-542    108-542   #108-542    108-542   #108-542    108-542   #108-542   
                         108-542   #108-542    108-542   #108-542    108-542   #108-542    108-542   #108-542    108-542   
                        #108-542    108-542   #108-542    108-542   #108-542    108-542   #108-542    108-542   #108-542   
                         108-542   #108-542    108-542   #108-542    108-542   #108-542    108-542   #108-542    108-542   
                        #108-542    108-542   #108-542    108-542   #108-542    108-543   #108-543    108-543   #108-543   
                         108-543   #108-543    108-543   #108-543    108-543   #108-543    108-543   #108-543    108-543   
                        #108-543    108-543   #108-543    108-543   #108-543    108-543   #108-543    108-543   #108-543   
                         108-543   #108-543    108-543   #108-543    108-543   #108-543    108-543   #108-543    108-543   
                        #108-543    108-543   #108-543    108-543   #108-543    108-543   #108-543    108-543   #108-543   
                         108-544   #108-544    108-544   #108-544    108-544   #108-544    108-544   #108-544    108-544   
                        #108-544    108-544   #108-544    108-544   #108-544    108-544   #108-544    108-544   #108-544   
                         108-544   #108-544    108-544   #108-544    108-544   #108-544    108-544   #108-544    108-544   
                        #108-544    108-544   #108-544    108-544   #108-544    108-544   #108-544    108-544   #108-544   
                         108-544   #108-544    108-544   #108-544    108-545   #108-545    108-545   #108-545    108-545   
                        #108-545    108-545   #108-545    108-545   #108-545    108-545   #108-545    108-545   #108-545   
                         108-545   #108-545    108-545   #108-545    108-545   #108-545    108-545   #108-545    108-545   
                        #108-545    108-545   #108-545    108-545   #108-545    108-545   #108-545    108-545   #108-545   
                         108-545   #108-545    108-545   #108-545    108-545   #108-545    108-545   #108-545    108-546   
                        #108-546    108-546   #108-546    108-546   #108-546    108-546   #108-546    108-546   #108-546   
MSSCTL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:08	PAGE 18

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                         108-546   #108-546    108-546   #108-546    108-546   #108-546    108-546   #108-546    108-546   
                        #108-546    108-546   #108-546    108-546   #108-546    108-546   #108-546    108-546   #108-546   
                         108-546   #108-546    108-546   #108-546    108-546   #108-546    108-546   #108-546    108-546   
                        #108-546    108-546   #108-546    108-547   #108-547    108-547   #108-547    108-547   #108-547   
                         108-547   #108-547    108-547   #108-547    108-547   #108-547    108-547   #108-547    108-547   
                        #108-547    108-547   #108-547    108-547   #108-547    108-547   #108-547    108-547   #108-547   
                         108-547   #108-547    108-547   #108-547    108-547   #108-547    108-547   #108-547    108-547   
                        #108-547    108-547   #108-547    108-547   #108-547    108-547   #108-547    108-548   #108-548   
                         108-548   #108-548    108-548   #108-548    108-548   #108-548    108-548   #108-548    108-548   
                        #108-548    108-548   #108-548    108-548   #108-548    108-548   #108-548    108-548   #108-548   
                         108-548   #108-548    108-548   #108-548    108-548   #108-548    108-548   #108-548    108-548   
                        #108-548    108-548   #108-548    108-548   #108-548    108-548   #108-548    108-548   #108-548   
                         108-548   #108-548   
$GBSRL	= 000001	#9-286      113-794    115-846   
$GETBB	= 000001	#9-284      113-794    114-798   
$GETCM	= 000001	#9-285      113-794    114-817   
$GETCT	= 070020	#12-12     
$GETTF	= 000001	#9-281      110-655   
$IND36	= 000003	#28-1177    105-425   
$KLMR 	= ******  GX	 102-275   
$KL10A	= 000101	#41-61     
$KL10B	= 000102	#41-62      113-770   
$LDATI	= 000001	#9-287      109-595   
$LDEFE	= 000001	#105-405   
$LDFVR	= 000001	#9-278      106-463   
$LDNAD	= 000001	#9-277      105-434   
$LDREF	= 000001	#9-280      109-619   
$LDTIM	= 000001	#9-279      108-551   
$LOADA	= 000001	#102-278   #105-400   
$MMRES	= ******	 103-346   
$MOSDE	= 000001	#9-273      95-10     
$MX20M	= 000001	#9-283      100-229   
$PATCH	= 070004	#12-9      
$RDERA	= 000000	#55-131    
$RDPRO	= 000001	#9-274      100-239   
$RELOA	= 000001	#28-1175   
$RESET	= 000001	#96-17     #105-398   
$RSTAC	= 070030	#12-14     
$RUN  	= 000001	#102-279   #105-406   
$SAVAC	= 070024	#12-13     
$SBDIA	= 000002	#55-127     102-306    105-418    105-421   
$SDW  	= 000002	#28-1176    105-426    105-428   
$SIZ16	= 033061	#41-64      113-770   
$SIZ32	= 031063	#41-65     
$SIZ4K	= 032060	#41-63     
$SIZ64	= 032066	#41-66     
$STEP 	= 000001	#44-191    
$TB   	= 000000	#102-303    102-314   #105-415   
$TDB2O	= ******  GX	 97-91      99-161     99-188     100-204    100-207    100-212   
$TIMLP	= 070014	#12-11     
$TL   	= 000014	#102-314    102-314   #105-431   
$TRAPS	= ******	 105-405    105-405   
MSSCTL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:08	PAGE 19

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

$TTDMS	= ******  GX	 96-51      97-78      97-89      97-92      98-127     99-139     99-143     99-156     99-162    
                         100-191    100-199    100-205    100-208    100-213    100-224    112-713    112-714   
$WDD22	= ******  GX	 99-154    
$WDD36	= ******  GX	 97-80      99-141     100-197    100-226   
$$APRI	= 000000	#55-130    
$$NARG	= 000001	#102-278    102-278    102-278   #105-400    105-400    105-400   
$$RDER	= 000004	#55-132    
$$SBDI	= 000004	#55-128     102-306    105-418    105-421   
$10BC 	= 070040	#12-16     
$10BP 	= 070034	#12-15     
$10MB 	= 070050	#12-18     
$10RB 	= 070044	#12-17     
.RESET	= ******  GX	 96-17      105-398   
.SBDIA	= 000001	#97-66     #97-79     #99-144    #99-157    #99-168    #99-184    #100-194   #100-200   #103-332   
                        #106-445   #106-454   
.WORK 	= ******  GX	 100-196    100-196   
...   	= 000377	#12-25     
......	= 177777	#12-24     
MSSCTL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:08	PAGE 20

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

ACBLK 		#20-787    
BLK10 		#29-1207   #102-303   #105-415   
BP.   		#13-482    
BRST  		#18-716    
BTOFIX		#47-336    
BURST 		#68-556    
CABTE 		#46-291    
CALL  		#53-38     
CALLR 		#53-47     
CALPAR		#33-1363    115-863   
CGOTO 		#16-617    
CNTSD 		#33-1381    102-274   
CONDET		#46-311    
CONDMA		#45-222    
CONFIG		#45-218    
CONMAB		#45-230    
CONMOS		#45-226    
CONMX 		#47-354    
CONTIN		#14-552     102-283   
COPYAC		#31-1325   
CTFMTC		#46-307    
DBESCN		#46-287    
DCNFBB		#47-326     98-119    
DFPC  		#67-526    
DFRD  		#56-163    
DFRDT 		#57-184    
DFSCLK		#66-516    
DFWRT 		#58-225    
DFWRTT		#59-265    
DFXCT 		#60-304    
DFXCTT		#61-336     102-276   
DMADET		#45-246    
DOLOOP		#22-907    
DPD   		#45-258    #96-45     
DPOS  		#62-369    
DPOST 		#63-409    
DSOBAC		#18-707    
DTEBAS		#69-570    
ENBLPS		#21-854    
ENDBLK		#29-1222   #102-314   #105-431   
ENDLOO		#21-878    
ENDTIM		#42-126    #113-787   
ERRCOM		#50-487    
ERRMSG		#50-473    
ERROR 		#50-479    
EVENT 		#17-650    
EXAM  		#64-448    #100-196   
EXAMT 		#65-494    #102-286   #115-859   
EXCT  		#72-632    
EXECUT		#23-978    
EXOR  		#54-99     
EXP16K		#47-364    
MSSCTL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:08	PAGE 21

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

FATAL 		#38-1590   #94-1291   #112-715   
FIND  		#17-669    
FITMEM		#45-238    
FIXSB 		#47-340    
FSD   		#25-1070    106-452    106-453    107-490    109-606    115-857   
FSDCHK		#26-1100    106-446    110-644    110-645   
FSDMSK		#25-1050    106-451    107-479    109-565    115-856   
FVRDAT		#108-510   #108-533   #108-534   #108-535   #108-536   #108-537   #108-538   #108-539   #108-540   #108-541   
                #108-542   #108-543   #108-544   #108-545   #108-546   #108-547   #108-548   
GBSRL 		#49-432    #114-807   #114-810   #114-828   #114-834   
GETBBD		#48-400     98-115     99-173    
GETCMP		#48-410     98-106    
GETTF 		#46-283    #109-564   #110-630   
GMCN  		#37-1522   
ICEON 		#47-321    
IND36 		#28-1190    105-425   
INIBSR		#48-390    
INIUDF		#38-1583   
INVAL 		#20-817    
IO10  		#30-1275    102-306    105-418    105-421   
I10   		#30-1252    102-304    102-305    102-307    102-308    102-309    102-310    105-416    105-417    105-419   
                 105-420    105-422    105-423    105-424   
JAB   		#37-1535   
LDATIM		#49-455     109-581    109-585    109-588    109-592   
LDBESP		#47-331    
LDEFER		#38-1594   #105-405   
LDFSDP		#26-1095   
LDFVR 		#46-271     106-447   
LDNADR		#46-267     96-47     
LDREFR		#46-279    #106-449   
LDTIMR		#46-275    #106-448   
LOADAC		#19-761    #102-278   #105-400   
LODAR 		#70-601    
LOOP  		#21-869    
LOOPCO		#22-896    
LOOPDO		#22-912    
MABDET		#46-295    
MABL  		#27-1138   
MABPAD		#46-299    
MASK36		#35-1445   
MB    		#45-214    
MBINI 		#46-315    
MMRESP		#45-262    #98-123    
MOSDET		#45-250    
MOSDMP		#23-955    
MRESET		#75-723    #102-275   
MSKDAT		#35-1474   
MSK36R		#35-1462   
MXTADR		#47-349    
MX20MD		#47-344    
NUMARG		#16-626    #102-278   #105-400   
NUMTXT		#16-608    
MSSCTL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:08	PAGE 22

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

OVRLOD		#38-1576   
PATERR		#23-965    
PBELL 		#89-1150   
PCRLF 		#89-1158   
PENDIS		#36-1515   
PFORCE		#77-776    
PMSG  		#86-1059    96-51      97-78      97-89      97-92      98-127     99-139     99-143     99-156     99-162    
                 100-191    100-199    100-205    100-208    100-213    100-224    112-713   
PNORML		#77-779    
PNTADR		#79-834     99-154    
PNTAL 		#87-1090   
PNTAPR		#36-1504   
PNTBAK		#77-782     99-142     99-155     100-198   
PNTDEC		#84-980    
PNTNBR		#80-861    
PNTOCS		#83-948     97-91      100-207   
PNTOCT		#82-916    
PNTODT		#85-1013    99-161     99-188     100-204    100-212   
PNTVER		#20-807    
PNT36 		#78-806     97-80      99-141     100-197    100-226   
PNT36B		#81-889    
POP   		#4-95      #53-65     #96-17     #97-66     #97-79     #99-144    #99-157    #100-200   #102-278   #102-279   
                #102-287   #102-297   #103-332   #104-374   #105-398   #105-400   #105-406   #105-411   #106-445   #106-446   
                #106-452   #106-453   #106-454   #107-490   #109-572   #109-606   #109-609   #110-644   #110-645   #110-646   
                #115-857   
PSLASH		#89-1146   
PSPACE		#89-1142   
PTAB  		#89-1154   
PUSH  		#4-89      #53-59     #102-280   #102-285   #104-370   #105-394   #109-567   #109-568   #109-581   #109-581   
                #109-585   #109-585   #109-588   #109-588   #109-592   #109-592   #109-599   #110-629   #114-807   #114-807   
                #114-810   #114-810   #114-828   #114-828   #114-834   #114-834   
PWTES 		#20-827    
RDPROM		#45-254     96-43     
READAC		#31-1309   
REGRST		#76-760    
REGSAV		#76-756    
REPCON		#46-303    
REPFIT		#45-234    
RESDET		#45-242    
RESET 		#26-1112   #96-17     #105-398   
RETURN		#53-51     
RST.4 		#32-1343   
RST.5 		#32-1354   
RUN   		#15-565     102-279    105-406   
R4.R5 		#32-1347   
R5.PC 		#32-1357    104-379    107-498    109-593    111-678   
SAV.4 		#32-1339   
SAV.5 		#32-1351   #103-330   #107-476   #109-563   #111-666   
SBDIAG		#24-1002    97-66      97-79      99-144     99-157     99-168     99-184     100-194    100-200    103-332   
                 106-445    106-454   
SBSRL 		#49-416    
SCAN  		#47-359    
MSSCTL     CREATED BY  MACRO  ON 17-SEP-79 AT 09:08	PAGE 23

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

SETBBD		#48-395    #99-175    
SETCMP		#48-405    
SETPAR		#33-1368   
SETRAM		#34-1422   
SL    		#54-71     
SM    		#73-662    
SMFSS 		#48-375     98-117    
SOBAC 		#18-696    
SR    		#54-85     
STEP  		#19-733    
STEP10		#17-639    
STKEMD		#36-1496   
STKMEP		#36-1482   
STOPLO		#22-887    
STPCON		#18-686    
S10.  		#14-509    
TBIT  		#14-535    
TICK  		#42-94     #113-772   #113-773   #113-774   #113-775   #113-776   #113-777   #113-778   #113-779   #113-780   
                #113-781   #113-782   #113-783   #113-784   #113-785   
TIMING		#41-68     #113-770   
TIMSIG		#40-43      44-201     44-202     44-203     44-204     44-205     44-206     44-207    
TTIDEC		#91-1214   
TTILIN		#92-1240   
TTILNW		#93-1266   
TTIOCT		#90-1186   
UMAC  		#37-1550   
WD36  		#29-1243    100-218    100-219    100-220    102-311    102-312    105-426    105-428    106-456    106-457   
                 106-458    106-459    106-460    107-504    109-616    110-649    110-650    110-652    110-653   
WWADR 		#74-691    
XO10  		#29-1218   
XX    		#33-1397   
X10   		#29-1214   
$CNG  		#22-918    
$DEF  		#4-84      #52-34     #52-36     
$ENDLO		#22-933    
$LOOP 		#22-922    
$PMSG 		#88-1111   #112-714   
$PRADR		#13-465    
$RDG  		#22-927    
$STOPL		#22-930