Google
 

Trailing-Edge - PDP-10 Archives - klad_sources - klad.sources/dakah.seq
There are no other files named dakah.seq in the archive.
MAINDEC-10-DAKAH.TXT
                                                                                                                           SEQ 0001





 
			IDENTIFICATION
			--------------

	PRODUCT CODE:	MAINDEC-10-DAKAH-B-D

	PRODUCT NAME:	DECSYSTEM10 PDP-10 KA10 BASIC
			INSTRUCTION DIAGNOSTIC (8)

	FUNCTION:	PI, INTERRUPTS, LUUO'S, I/O

	VERSION:	0.2

	DATE RELEASED:	JANUARY 1977

	MAINTAINED BY:	DIAGNOSTIC ENGINEERING GROUP

	AUTHOR:		JOHN R. KIRCHOFF

COPYRIGHT(C) 1976,1977
DIGITAL EQUIPMENT CORPORATION
MARLBORO, MASS. 01752

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY
ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE,
OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE
MADE AVAILABLE TO ANY OTHER PERSON EXECPT FOR USE ON SUCH SYSTEM
AND TO ONE WHO AGREES TO THESE LICENSE TERMS.  TITLE TO AND
OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
							MAINDEC-10-DAKAH.TXT
							PAGE 2                                                             SEQ 0002


			TABLE OF CONTENTS
			-----------------

1.0	ABSTRACT

2.0	REQUIREMENTS

2.1	EQUIPMENT

2.2	STORAGE

2.3	PRELIMINARY PROGRAMS

3.0	PROGRAM PROCEDURES

3.1	LOADING PROCEDURE

3.2	STARTING PROCEDURE

3.3	OPERATING PROCEDURE

4.0	ERRORS

5.0	ITERATION COUNTER

6.0	CYCLE TIME

7.0	OPERATIONAL VARIATIONS

8.0	MISCELLANEOUS

9.0	LISTING
							MAINDEC-10-DAKAH.TXT
							PAGE 3                                                             SEQ 0003


1.0	ABSTRACT

	THIS PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC IS THE
	EIGHTH IN A SERIES OF PDP-10 KA10 PROCESSOR DIAGNOSTICS.
	THE DIAGNOSTIC TESTS THE PI SYSTEM, INTERRUPTS, LUUO'S
	AND INPUT/OUTPUT.

2.0	REQUIREMENTS

2.1	EQUIPMENT

	A PDP-10 KA10 WITH A MINIMUM OF 32K OF MEMORY

	PAPER TAPE READER 
	DECTAPE (OPTIONAL)
	CONSOLE TELETYPE

2.2	STORAGE

	THE PROGRAM RUNS WITHIN 32K OF MEMORY.

2.3	PRELIMINARY PROGRAMS

	CONSOLE FUNCTIONS WORKING PROPERLY
	PAPER TAPE OR DECTAPE READ-IN WORKING PROPERLY 
	PREVIOUS PROCESSOR DIAGNOSTICS
							MAINDEC-10-DAKAH.TXT
							PAGE 4                                                             SEQ 0004


3.0	PROGRAM PROCEDURES

3.1	LOADING PROCEDURE

	PAPER TAPE - HARDWARE READ-IN (READER DEVICE CODE 104)
	DECTAPE - LOAD WITH DIAMON (DECTAPE DEVICE CODE 320)

3.2	STARTING PROCEDURE

	STAND-ALONE STARTING ADDRESS IS 30000.

	IF THE DIAGNOSTIC FAILS TO START CORRECTLY TRY STARTING AT THE
	FIRST TEST INSTEAD OF AT THE BEGINNING OF THE CONTROL SEQUENCE.
	(SEE LISTING).

3.3	OPERATING PROCEDURE

	ONCE STARTED THE PROGRAM WILL CYCLE CONTINUALLY UNTIL STOPPED
	OR AN ERROR OCCURS.

4.0	ERRORS

	ERRORS ARE IN THE FORM OF HALT INSTRUCTIONS.  THE LISTING
	SHOULD BE CONSULTED TO DETERMINE THE CAUSE OF THE ERROR.  A
	NO OPERATION (JUMP) INSTRUCTION FOLLOWS EACH HALT.  THIS
	MAY BE USEFUL IN CONSTRUCTING A SCOPE LOOP TO CYCLE ON THE
	FAILING INSTRUCTION.

5.0	ITERATION COUNTER

	THE ITERATION COUNT OF THE PROGRAM IS DISPLAYED IN THE MEM-
	ORY INDICATORS (MI).  THIS COUNT IS A DECREMENTING COUNT AND
	INITIALLY STARTS AT -1 IN STAND-ALONE OPERATION.

6.0	CYCLE TIME

	THE CYCLE TIME OF THE PROGRAM IS IN THE MILLISECOND RANGE AND
	IS THEREFORE SUITABLE FOR TAKING MARGINS, VIBRATION TESTS, ETC.

							MAINDEC-10-DAKAH.TXT
							PAGE 5                                                             SEQ 0005


7.0	OPERATIONAL VARIATIONS

	A.  DIAGNOSTIC MONITOR

	    THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PRO-
	    VIDE RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PRO-
	    VIDE A QUICK METHOD OF ISOLATION OF A FAULT TO A PARTICULAR
	    AREA OF THE PROCESSOR.  CERTAIN PROCEDURES ARE USED WHEN
	    THE PROGRAM IS USED IN THIS MANNER.  THEY ARE:

	    1.  THE DIAGNOSTIC MONITOR TRANSFERS CONTROL TO THE PRO-
		GRAM AND STARTS IT AT LOCATION 30002.

	    2.  MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MON-
		ITOR CONTROL FLAG WORD.

	B.  USER MODE

	    THE PROGRAM WILL OPERATE IN USER MODE AND AS SUCH PROVIDES
	    ASSURANCE THAT THE PROCESSOR IS PERFORMING ALL FUNCTIONS
	    CORRECTLY.  USER MODE STARTING ADDRESS IS 30000.

	C.  SYSTEM EXERCISER

	    STARTING ADDRESS IS 30003.  NO DATA SWITCHES ARE USED BY
	    THIS PROGRAM.

8.0	MISCELLANEOUS

	NONE

9.0	LISTING
	THIS IS A HISTORY OF THE DEVELOPMENT OF MAINDEC-10-DAKAH
                                                                                                                           SEQ 0006
************************************************************************

PRODUCT CODE:		MAINDEC-10-DAKAH

PRODUCT NAME:		BASIC INSTRUCTION DIAGNOSTIC #8

DATE RELEASED:		JANUARY 1977

VERSION:		0.2

UPDATE AUTHOR:		JOHN R. KIRCHOFF
EDWARD G. PRENTICE

CHANGES MADE:

	1. UPGRADE TO ALLOW COMPATABILITY WITH THE SUBROUTINE PACKAGE.

************************************************************************

ORIGINAL VERSION:	0.1

ORIGINAL AUTHOR:	RICHARD MALISKA

ORIGINAL RELEASE:	16-MAR-72

************************************************************************
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 1
DAKAHT	MAC	19-JAN-77 17:35		DIAGNOSTIC PARAMETERS                                                              SEQ 0007

     1					;DAKAH
     2
     3
     4
     5			000002			DECVER==2
     6			000000			MCNVER==0
     7
     8						XLIST
     9						LIST
    10						LALL
    11						NAME	\MCNVER,\DECVER^
    12
    13					TITLE	DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2
    14					^
    15
    16					;TEST DESIGNED FOR INITIAL DEBUGGING OF PROCESSOR HARDWARE
    17					;AND TO DETECT (SOLID) FAILURES IN THE FIELD.
    18
    19					;COPYRIGHT 1972,1977
    20					;DIGITAL EQUIPMENT CORPORATION
    21					;MARLBORO, MASS. 01752
    22
    23					;JOHN R. KIRCHOFF
    24
    25	000137					LOC	137
    26	000137	000000	000002			MCNVER,,DECVER
    27
    28						NOSYM
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 2
DAKAHT	MAC	19-JAN-77 17:35		DIAGNOSTIC PARAMETERS                                                              SEQ 0008

    29					SUBTTL	DIAGNOSTIC PARAMETERS
    30
    31					;CONTROL WORDS
    32
    33			004000		EXIOT=4000		;USER PRIV I/O FLAG
    34			010000		USERF=10000		;USER MODE FLAG
    35
    36			000400		DACT=400
    37			000774		ME=774
    38			002377		PIG0=2377
    39			040000		PIH1=40000
    40			020000		PIH2=20000
    41			010000		PIH3=10000
    42			004000		PIH4=4000
    43			002000		PIH5=2000
    44			001000		PIH6=1000
    45			000400		PIH7=400
    46			002000		PIOSET=2000
    47			001000		PIOCLR=1000
    48			004000		PIREQ=4000
    49			000200		ACT=200
    50			020000		PROT=20000
    51			010000		NONEX=10000
    52			004000		UMIOT=4000
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 3
DAKAHT	MAC	19-JAN-77 17:35		DIAGNOSTIC PARAMETERS                                                              SEQ 0009

    53					;SUBROUTINE DEFINITIONS
    54
    55			030726		SADR1=START
    56			030726		SADR2=START
    57			030726		SADR3=START
    58			030726		SADR4=START
    59			030726		SADR5=START
    60			030726		SADR6=START
    61		254000	030726		SADR7=JRST START
    62		254000	030726		SADR8=JRST START
    63		254000	030726		SADR9=JRST START
    64		254000	030726		SADR10=JRST START
    65		254000	030726		SADR11=JRST START
    66			000000		PAREA1=0
    67			000000		PAREA2=0
    68			000000		PAREA3=0
    69			000000		PAREA4=0
    70			000000		PAREA5=0
    71			000000		PAREA6=0
    72			000001		ITERAT=1
    73			000001		EXCASB==1
    74			000001		PGMEND==1
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 4
DAKAHT	MAC	19-JAN-77 17:35		DIAGNOSTIC PARAMETERS                                                              SEQ 0010

    75
    76					;MACROS
    77
    78					;STOP -	USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMP .+1)
    79					;	TO A (JUMP .-X) TO CYCLE ON FAILING INSTRUCTION.
    80
    81					DEFINE	STOP	(A)<
    82						HALT	.+1
    83						JUMP	.+1
    84									>
    85
    86					;SFLAG - USED TO CLEAR ALL FLAGS THEN TO SET REQUESTED
    87					;	 FLAG FOR TESTING.
    88
    89					DEFINE	SFLAG	(A)<
    90						MOVSI	1,A
    91						JFCL	17,.+1
    92						JRST	2,.+1(1)
    93									>
    94
    95					;CHANEL - USED FOR 2 CHANNEL SYSTEM CHECK
    96
    97					DEFINE	CHANEL	(A)<
    98						SKIPN	PI7SYS#
    99						JRST	A
   100									>
   101
   102					;RETURN - USED TO SETUP UUO TRAP
   103
   104					DEFINE	RETURN	(A)<
   105						MOVE	2,[JSP 2,A]
   106						MOVEM	2,41
   107						SETOB	2,40
   108									>
   109
   110					;CLEAN - USED TO CLEAR THE PROCESSOR EXCEPT CLOCK
   111					;	CLEAR DEVICES AND PI SYSTEM
   112
   113					DEFINE	CLEAN	(A)<
   114						CONO	634440
   115						CONO	PI,10000
   116									>
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 1
PARAM	KLM	18-JAN-77 11:38		*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977                               SEQ 0011

   117					SUBTTL	*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977
   118
   119					DEFINE	S,<;*********************************************************************>
   120
   121					S^;*********************************************************************^
   122					;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
   123					;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
   124					;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
   125					S^;*********************************************************************^
   126
   127			400000		ABORT==	400000			;ABORT PROGRAM ON PASS COMPLETION
   128			200000		RSTART==200000			;RESTART TEST, PRINT TOTALS
   129			100000		TOTALS==100000			;PRINT TOTALS, CONTINUE
   130
   131			040000		NOPNT==	040000			;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
   132			020000		PNTLPT==020000			;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
   133			010000		DING==	010000			;RING BELL ON ERROR
   134
   135			004000		LOOPER==004000			;ENTER EXERCISE/CHECK LOOP ON ERROR
   136			002000		ERSTOP==002000			;HALT ON TEST ERROR
   137			001000		PALERS==001000			;PRINT ALL ERRORS
   138
   139			000400		RELIAB==000400			;RELIABILITY MODE
   140			000200		TXTINH==000200			;INHIBIT ERROR TEXT
   141			000100		INHPAG==000100			;INHIBIT PAGING
   142
   143			000040		MODDVC==000040			;MODIFY DEVICE CODE
   144			000020		INHCSH==000020			;INHIBIT CACHE
   145			000010		OPRSEL==000010			;OPERATOR SELECTION
   146
   147			000004		CHAIN==	000004			;CHAIN CONTROL SWITCH
   148
   149			000002		KAHZ50==000002			;KA10 50 HERTZ POWER
   150
   151									;SWITCH 17 RESERVED !!!
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 2
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0012

   152					SUBTTL	*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977
   153
   154					S^;*********************************************************************^
   155					;*SPECIAL SUBPROGRAM LINKAGES
   156					S^;*********************************************************************^
   157
   158			027772		FSELNK=	27772	;FILE SELECT LINK
   159			027773		FRDLNK=	27773	;FILE READ LINK
   160			027774		LDLNK=	27774	;LOAD LINKAGE ADDRESS
   161			027775		DDTLNK=	27775	;DDT LINKAGE ADDRESS
   162			027776		MODLNK=	27776	;OPERATIONAL MODE CHECK LINKAGE ADDRESS
   163			027777		SUBLNK=	27777	;SUBROUTINE LINKAGE ADDRESS
   164
   165					S^;*********************************************************************^
   166					;*SPECIAL SUBROUTINE FATAL HALTS
   167					;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
   168					S^;*********************************************************************^
   169
   170					;ADDRESS   TAG	REASON
   171					;---------------------
   172
   173					; 1010 	NOEXEC	;PROGRAM NOT CODED FOR EXEC MODE OPERATION
   174					; 1011  PLERR	;FATAL PUSH LIST POINTER ERROR
   175					; 1012  PLERR1	;INITIAL PUSH LIST POINTER ERROR
   176					; 1013  MUOERR	;MUUO WITH LUUO HANDLER WIPED OUT
   177					; 1014  DTEBER	;DTE20 INTERRUPT WITHOUT DOORBELL
   178					; 1015  DTECER	;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
   179					; 1016  CPIERR	;CPU INITIALIZATION ERROR
   180					; 1017  EOPERR	;END OF PROGRAM ERROR
   181					; 1020  LUOERR	;INTERRUPT WITH LUUO HANDLER WIPED OUT
   182
   183					S^;*********************************************************************^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 3
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0013

   184					S^;*********************************************************************^
   185					;OPERATOR DEFINITIONS (NON-UUO'S)
   186					S^;*********************************************************************^
   187
   188		260740	000000		OPDEF	GO	[PUSHJ	P,]	;SUBROUTINE CALL
   189		263740	000000		OPDEF	RTN	[POPJ	P,]	;SUBROUTINE RETURN 
   190		261740	000000		OPDEF	PUT	[PUSH	P,]	;PUT DATA ON PUSH LIST
   191		262740	000000		OPDEF	GET	[POP	P,]	;GET DATA FROM PUSH LIST 
   192		254000	000000		OPDEF	PJRST	[JRST	]	;JRST TO ROUTINE THAT RTN'S
   193		254200	000000		OPDEF	HALT	[JRST	4,]	;DEFINITION FOR DDT
   194		254100	000000		OPDEF	JRSTF	[JRST	2,]	;DEFINITION FOR DDT
   195		254500	000000		OPDEF	JEN	[JRST	12,]	;DEFINITION FOR DDT
   196
   197					S^;*********************************************************************^
   198					;*SUBROUTINE INITIALIZATION CALL
   199					S^;*********************************************************************^
   200
   201		265000	030011		OPDEF	PGMINT	[JSP	0,SBINIT]	;SUBROUTINE INITIALIZATION
   202
   203					S^;*********************************************************************^
   204					;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
   205					S^;*********************************************************************^
   206
   207		037640	000004		OPDEF	FATAL	[37B8!15B12!4]	;FATAL PROGRAMMING HALT
   208		037600	000004		OPDEF	ERRHLT	[37B8!14B12!4]	;PROGRAM ERROR HALT
   209
   210					S^;*********************************************************************^
   211					;*TERMINAL INPUT UUO'S
   212					;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
   213					;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
   214					S^;*********************************************************************^
   215
   216		037000	000003		OPDEF	TTICHR 	[37B8!0B12!3]	;TTY, INPUT ANY CHARACTER
   217		037040	000003		OPDEF	TTIYES	[37B8!1B12!3]	;TTY, NORMAL RETURN Y
   218		037100	000003		OPDEF	TTINO	[37B8!2B12!3]	;TTY, NORMAL RETURN N
   219		037140	000003		OPDEF	TTIOCT	[37B8!3B12!3]	;TTY, INPUT OCTAL WORD
   220		037200	000003		OPDEF	TTIDEC	[37B8!4B12!3]	;TTY, INPUT DECIMAL WORD
   221		037240	000003		OPDEF	TTICNV	[37B8!5B12!3]	;TTY, INPUT CONVERTABLE WORD
   222		037300	000003		OPDEF	TTLOOK	[37B8!6B12!3]	;TTY, KEYBOARD CHECK
   223		037340	000003		OPDEF	TTALTM	[37B8!7B12!3]	;TTY, ALT-MODE CHECK
   224		037400	000003		OPDEF	TTSIXB	[37B8!10B12!3]	;TTY, INPUT SIXBIT WORD
   225		037440	000003		OPDEF	TTYINP	[37B8!11B12!3]	;TTY, IMAGE MODE INPUT
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 4
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0014

   226					;*TERMINAL OUTPUT UUO'S.
   227
   228		037000	000000		OPDEF	PNTA	[37B8!0B12!0]	;PRINT ASCII WORD
   229		037000	000001		OPDEF	PNTAF	[37B8!0B12!1]	;PRINT ASCII WORD FORCED
   230		037740	000000		OPDEF	PNTAL	[37B8!17B12!0]	;PRINT ASCIZ LINE
   231		037740	000001		OPDEF	PNTALF	[37B8!17B12!1]	;PRINT ASCIZ LINE FORCED
   232		037600	000003		OPDEF	PSIXL	[37B8!14B12!3]	;PRINT SIXBIT'Z LINE
   233		037640	000003		OPDEF	PSIXLF	[37B8!15B12!3]	;PRINT SIXBIT'Z LINE FORCED
   234		037000	000000		OPDEF	PNTMSG	[37B8!0B12!0]	;PRINT MESSAGE IMMEDIATE
   235		037040	000000		OPDEF	PNTMSF	[37B8!1B12!0]	;PRINT MESSAGE IMMEDIATE FORCED
   236		037100	000000		OPDEF	PSIXM	[37B8!2B12!0]	;PRINT SIXBIT'Z MSG IMMEDIATE
   237		037200	000000		OPDEF	PSIXMF	[37B8!4B12!0]	;PRINT SIXBIT'Z MSG IMM FORCED
   238		037000	000000		OPDEF	PNTCI	[37B8!0B12!0]	;PRINT CHARACTER IMMEDIATE
   239		037040	000000		OPDEF	PNTCIF	[37B8!1B12!0]	;PRINT CHARACTER IMMEDIATE FORCED
   240		037500	000000		OPDEF	PNTCHR	[37B8!12B12!0]	;PRINT CHARACTER
   241		037500	000001		OPDEF	PNTCHF	[37B8!12B12!1]	;PRINT CHARACTER FORCED
   242		037040	000000		OPDEF	PNT1	[37B8!1B12!0]	;PRINT ONE OCTAL DIGIT
   243		037040	000001		OPDEF	PNT1F	[37B8!1B12!1]	;PRINT 1 OCTAL DIGIT FORCED	
   244		037100	000000		OPDEF	PNT2	[37B8!2B12!0]	;PRINT TWO OCTAL DIGITS
   245		037100	000001		OPDEF	PNT2F	[37B8!2B12!1]	;PRINT 2 OCTAL DIGITS FORCED	
   246		037140	000000		OPDEF	PNT3	[37B8!3B12!0]	;PRINT THREE OCTAL DIGITS
   247		037140	000001		OPDEF	PNT3F	[37B8!3B12!1]	;PRINT THREE OCTAL DIGITS FORCED	
   248		037200	000000		OPDEF	PNT4	[37B8!4B12!0]	;PRINT FOUR OCTAL DIGITS
   249		037200	000001		OPDEF	PNT4F	[37B8!4B12!1]	;PRINT FOUR OCTAL DIGITS FORCED
   250		037240	000000		OPDEF	PNT5	[37B8!5B12!0]	;PRINT FIVE OCTAL DIGITS
   251		037240	000001		OPDEF	PNT5F	[37B8!5B12!1]	;PRINT FIVE OCTAL DIGITS FORCED
   252		037300	000000		OPDEF	PNT6	[37B8!6B12!0]	;PRINT SIX OCTAL DIGITS
   253		037300	000001		OPDEF	PNT6F	[37B8!6B12!1]	;PRINT SIX OCTAL DIGITS FORCED
   254		037340	000000		OPDEF	PNT7	[37B8!7B12!0]	;PRINT 7 OCTAL DIGITS
   255		037340	000001		OPDEF	PNT7F	[37B8!7B12!1]	;PRINT 7 OCTAL DIGITS FORCED
   256		037440	000000		OPDEF	PNT11	[37B8!11B12!0]	;PRINT 11 OCTAL DIGITS
   257		037440	000001		OPDEF	PNT11F	[37B8!11B12!1]	;PRINT 11 OCTAL DIGITS FORCED.
   258		037400	000000		OPDEF	PNTADR	[37B8!10B12!0]	;PRINT PHYSICAL ADDRESS
   259		037400	000001		OPDEF	PNTADF	[37B8!10B12!1]	;PRINT PHYSICAL ADDRESS FORCED
   260		037600	000000		OPDEF	PNTOCT  [37B8!14B12!0]	;PRINT FULL WORD OCTAL
   261		037600	000001		OPDEF	PNTOTF	[37B8!14B12!1]	;PRINT FULL WORD OCTAL FORCED
   262		037540	000000		OPDEF	PNTHW	[37B8!13B12!0]	;PRINT OCTAL HALF WORDS, 6 SP 6
   263		037540	000001		OPDEF	PNTHWF	[37B8!13B12!1]	;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
   264		037700	000003		OPDEF	PNTOCS	[37B8!16B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S
   265		037740	000003		OPDEF	PNTOCF	[37B8!17B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
   266		037640	000000		OPDEF	PNTDEC	[37B8!15B12!0]	;PRINT DECIMAL, SUPRESS LEADING 0'S
   267		037640	000001		OPDEF	PNTDCF	[37B8!15B12!1]	;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
   268		037700	000000		OPDEF	PNTDS	[37B8!16B12!0]	;PRINT DECIMAL, SPACES FOR LD 0'S
   269		037700	000001		OPDEF	PNTDSF	[37B8!16B12!1]	;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
   270		037200	000002		OPDEF	PNTNM	[37B8!4B12!2]	;PRINT PROGRAM NAME
   271		037000	000002		OPDEF	PNTSIX	[37B8!0B12!2]	;PRINT SIXBIT WORD
   272		037040	000002		OPDEF	PNTSXF	[37B8!1B12!2]	;PRINT SIXBIT WORD FORCED
   273		037240	000002		OPDEF	DROPDV	[37B8!5B12!2]	;CLOSE LOGICAL FILE, USER MODE
   274		037100	000002		OPDEF	PNTCW	[37B8!2B12!2]	;PRINT DF10 CONTROL WORD
   275		037140	000002		OPDEF	PNTCWF	[37B8!3B12!2]	;PRINT DF10 CONTROL WORD FORCED
   276		037000	030242		OPDEF	PCRL	[37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
   277		037040	030242		OPDEF	PCRLF	[37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
   278		037000	000040		OPDEF	PSP	[37B8!0B12!40]	;PRINT SPACE
   279		037040	000040		OPDEF	PSPF	[37B8!1B12!40]	;PRINT SPACE FORCED
   280		037000	030243		OPDEF	PCRL2	[37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 4-1
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0015

   281		037040	030243		OPDEF	PCRL2F	[37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
   282		037040	000007		OPDEF	PBELL	[37B8!1B12!7]	;PRINT TTY BELL
   283
   284		037040	000026		OPDEF	PFORCE	[37B8!1B12!26]	;PRINT FORCE, CONTROL O OVERRIDE
   285
   286					DEFINE	PMSG	(ARG),<
   287						PSIXM	[SIXBIT\ARG'_\]>
   288
   289					DEFINE	PMSGF	(ARG),<
   290						PSIXMF	[SIXBIT\ARG'_\]>
   291
   292					;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
   293					;*	CONSERVES CORE OVER ASCIZ
   294
   295					DEFINE	SIXBTZ	(ARG),<	[SIXBIT\ARG'_\]>
   296
   297					;*CONSOLE SWITCH INPUT UUO.
   298					;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
   299					;* USER MODE.
   300
   301		037400	000002		OPDEF	SWITCH	[37B8!10B12!2]	;INPUT CONSOLE SWITCHES
   302
   303					;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
   304					;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
   305
   306		037540	000004		OPDEF	CLOKOP	[37B8!13B12!4]	;CLOCK OPERATION UUO - PDP-11 CLOCK
   307		037200	000004		OPDEF	MTROP	[37B8!4B12!4]	;CLOCK OPERATION UUO - DK20 METER
   308
   309					;*KL10 ONLY CACHE OPERATION UUO'S
   310
   311		037040	000004		OPDEF	CINVAL	[37B8!1B12!4]	;CACHE INVALIDATE
   312		037100	000004		OPDEF	CFLUSH	[37B8!2B12!4]	;CACHE FLUSH
   313		037140	000004		OPDEF	CWRTBI	[37B8!3B12!4]	;CACHE WRITE-BACK & INVALIDATE
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 5
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0016

   314					;*END OF PASS/PROGRAM UUOS
   315
   316					;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
   317					;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
   318
   319		037500	000004		OPDEF	ENDUUO	[37B8!12B12!4]	;UUO TO DISPLAY LIGHTS
   320		037700	000004		OPDEF	EOPUUO	[37B8!16B12!4]	;END OF PROGRAM UUO
   321
   322					;*MEMORY MANAGEMENT UUO'S
   323					;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
   324					;*ADDRESS CONVERSION, ETC...
   325
   326		037000	000004		OPDEF	MAPMEM	[37B8!0B12!4]	;MAP MEMORY
   327		037500	000002		OPDEF	MEMZRO	[37B8!12B12!2]	;ZERO MEMORY
   328		037440	000002		OPDEF	MEMSEG	[37B8!11B12!2]	;SETUP MEMORY SEGMENT
   329		037540	000002		OPDEF	MAPADR	[37B8!13B12!2]	;VIRTUAL TO PHYSICAL ADR CONVERT
   330		037640	000002		OPDEF	MAPCNK	[37B8!15B12!2]	;MAP MEMORY CHUNK
   331		037600	000002		OPDEF	MAPSET	[37B8!14B12!2]	;SET KI10 EXEC PAGE MAP
   332		037740	000002		OPDEF	MAPPNT	[37B8!17B12!2]	;PRINT MEMORY MAP
   333
   334					;*DEVICE CODE MODIFICATION UUO
   335					;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
   336					;*IOT'S TO A DIFFERENT DEVICE CODE.
   337
   338		037340	000002		OPDEF	MODPCU	[37B8!7B12!2]	;MODIFY PERHIPERAL CODE, USER
   339		037300	000002		OPDEF	MODPCP	[37B8!6B12!2]	;MODIFY PERHIPERAL CODE, PROGRAM
   340
   341			030000			IFNDEF	MODDVL,<MODDVL==BEGIN>
   342			030000			IFNDEF	MODDVU,<MODDVU==BEGIN>
   343
   344					;*"DIAMON" FILE SELECTION AND READ UUOS
   345
   346		037240	000004		OPDEF	FSELECT	[37B8!5B12!4]	;FILE SELECTION
   347		037300	000004		OPDEF	FREAD	[37B8!6B12!4]	;FILE READ - ASCII DATA
   348		037340	000004		OPDEF	FRD36	[37B8!7B12!4]	;FILE READ - 36 BIT DATA
   349		037400	000004		OPDEF	FRD8	[37B8!10B12!4]	;FILE READ - 8 BIT DATA
   350
   351					;*KI10 ONLY UUO FOR PRINTING MARGIN VALUES
   352
   353		037700	000002		OPDEF	PNTMGN	[37B8!16B12!2]	;PRINT MARGIN VALUE
   354
   355						XLIST
   356					IFNDEF	KLOLD,<LIST
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 6
PARAM	KLM	18-JAN-77 11:38		ERROR HANDLING UUO DEFINITIONS, JAN 18,1977                                        SEQ 0017

   357					SUBTTL	ERROR HANDLING UUO DEFINITIONS, JAN 18,1977
   358
   359					S^;*********************************************************************^
   360					;*ERROR HANDLER PARAMETERS
   361					S^;*********************************************************************^
   362
   363		036000	000000		OPDEF	ERUUO	[36B8]		;ERROR CALL UUO
   364		035000	000000		OPDEF	ERLOOP	[35B8]		;ERROR LOOP, CHECKS PC,REPT,REPT1,ERROR
   365		035040	000000		OPDEF	ERLP1	[35B8!1B12]	;ERROR LOOP IF PC'S MATCH
   366		035100	000000		OPDEF	ERLP2	[35B8!2B12]	;ERROR LOOP IF ANY ERROR
   367		034000	000000		OPDEF	REPTUO	[34B8]		;REPEAT LOOP UUO
   368
   369					;*THE ERROR HANDLER MACROS
   370
   371					;*A MACRO TO REPORT AN ERROR AND LOOP
   372
   373						DEFINE	ERROR	(ADR,FORMAT,CORECT,ACTUAL,F,D,ERR)<
   374						SALL
   375						ERUUO	FORMAT,[T,,[SIXBIT\F'_\]
   376							   CORECT,,ACTUAL
   377							   [SIXBIT\D'_\],,ERR]
   378						XALL
   379					
   380						ERLOOP	ADR		;IF ERROR, LOOP TO ADR
   381					>
   382
   383					;*A MACRO TO REPORT AN ERROR AND NOT LOOP
   384
   385						DEFINE	ERROR1	(FORMAT,CORECT,ACTUAL,F,D,ERR)<
   386						SALL
   387						ERUUO	FORMAT,[T,,[SIXBIT\F'_\]
   388							   CORECT,,ACTUAL
   389							   [SIXBIT\D'_\],,ERR]
   390						XALL	>
   391
   392					>;END OF KLOLD CONDITIONAL
   393
   394						XLIST
   395						LIST
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 1
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0018

   396					SUBTTL	*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977
   397
   398	030000					LOC	30000
   399
   400					S^;*********************************************************************^
   401					;*PROGRAM STARTING ADDRESSES
   402					;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
   403					;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
   404					;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
   405					;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
   406					S^;*********************************************************************^
   407
   408	030000	254 00 1 00 027776 	BEGIN:	JRST	@MODLNK		;STAND-ALONE START
   409	030001	254 00 0 00 030726 	$START:	JRST	START		;MODE CHECK STARTING ADDRESS
   410
   411	030002	254 00 1 00 027774 	DIAGMN:	JRST	@LDLNK		;DIAGNOSTIC MONITOR START
   412
   413	030003	254 00 1 00 027774 	SYSEXR:	JRST	@LDLNK		;SYSTEM EXERCISER START
   414
   415	030004	254 00 0 00 030726 	SFSTRT:	JRST	SADR1		;SPECIAL FEATURE START
   416
   417	030005	254 00 0 00 030726 	PFSTRT:	JRST	SADR2		;POWER FAIL RESTART
   418
   419	030006	254 00 0 00 030726 	REENTR:	JRST	SADR3		;REENTER START(USUALLY USER MODE ONLY)
   420
   421	030007				SRTDDT:				;COMMONLY MISTAKEN NAME FOR "DDTSRT"
   422	030007	254 00 1 00 027775 	DDTSRT:	JRST	@DDTLNK		;DDT START
   423
   424	030010	254 00 0 00 030737 	BEGIN1:	JRST	STARTA		;LOOP START(END OF PASS COMES HERE)
   425	030011	254 00 1 00 027777 	SBINIT:	JRST	@SUBLNK		;PMGINT LINKAGE
   426	030012	000000	000000		RETURN:	0			;RETURN ADDRESS STORAGE
   427
   428	030013	254000	030726		START1:	SADR7			;OPTIONAL STARTING ADR/INSTRUCTIONS
   429	030014	254000	030726		START2:	SADR8			; "
   430	030015	254000	030726		START3:	SADR9			; "
   431	030016	254000	030726		START4:	SADR10			; "
   432	030017	254000	030726		START5:	SADR11			; "
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 2
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0019

   433					S^;*********************************************************************^
   434					;*PROGRAM FIXED PARAMETER AREA
   435					S^;*********************************************************************^
   436
   437	030020	000000	000000		PNTNAM:	PAREA3		;SIXBIT PROGRAM NAME
   438	030021	000000	000000		PNTEXT:	PAREA4		;SIXBIT PROGRAM EXTENSION
   439	030022	000000	000000		RANDBS:	PAREA1		;RANDOM BASE NUMBER
   440	030023	000000	000000		SWTEXR:	PAREA2		;SYSTEM EXERCISER SWITCHES
   441	030024	000000	000001		ITRCNT:	ITERAT		;PROGRAM ITERATIONS
   442	030025	000000	030712		$PNAME:	PGMNAM		;POINTER TO PROGRAMS NAME
   443	030026	000000	000002		$PVER:	MCNVER,,DECVER	;MCN & DEC VERSION LEVEL
   444	030027	000000	030000		$MODVL:	MODDVL		;DEVICE CODE CHANGE LOWER LIMIT
   445	030030	000000	030000		$MODVU:	MODDVU		;DEVICE CODE CHANGE UPPER LIMIT
   446	030031	777777	777777		$EMODE:	IFNDEF EXCASB,<0> IFDEF EXCASB,<-1>	;EXEC ALLOWED
   447	030032	000000	000000		$UMODE:	IFNDEF USRASB,<0> IFDEF USRASB,<-1>	;USER ALLOWED
   448	030033	000000	000000		$DSKUP:	IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1>	;DISK UPDATE MODE
   449	030034	000000	000000		$MMAP:	IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1>	;ALLOW MEMORY RTNS
   450	030035	000000	000000		PAREA7:	PAREA5		;OPTIONAL PARAMETER
   451	030036	000000	000000		PAREA8:	PAREA6		;OPTIONAL PARAMETER
   452
   453					S^;*********************************************************************^
   454					;*PROGRAM VARIABLE PARAMETER AREA
   455					S^;*********************************************************************^
   456
   457	030037	000000	000000		USER:	0		; 0 = EXEC, -1 = USER MODE FLAG
   458	030040	000000	000000		KAIFLG:	0		;PROCESSOR TYPE, 0 = KA10, -1 = KI10
   459	030041	000000	000000		KLFLG:	0		;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
   460	030042	777777	777777		MONFLG:	-1		;DIAG MONITOR SPECIAL USER FLAG
   461	030043	000000	000000		MONCTL:	0		;DIAG MON/SYS EXR FLAG
   462	030044	000000	000000		MONTEN:	0		;-1= LOADED BY 10
   463	030045	000000	000000		CLOCKF:	0		;CLOCK TICKED FLAG
   464	030046	000000	000000		CONSW:	0		;CONSOLE SWITCH SETTINGS
   465	030047	000000	000000		PASCNT:	0		;PROGRAM PASS COUNT
   466	030050	000000	000000		RUNFLG:	0		;PROGRAM RUN FLAG
   467	030051	000000	000000		TESTPC:	0		;SUBTEST PC
   468	030052	000000	000000		ERRPC:	0		;ERROR PC
   469	030053	000000	000000		ERRTLS:	0		;ERROR TOTALS
   470	030054	000000	000000		TICKS:	0		;PROGRAM RUNNING TIME
   471	030055	000000	000000		MARGIN:	0		;KI10 MARGIN WORD VALUE
   472	030056	000000	000000		$ONETM:	0		;SUBROUTINE INITIALIZATION FLAG
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 3
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0020

   473					S^;*********************************************************************^
   474					;*SPECIAL PROGRAM DISPATCH ADDRESSES
   475					S^;*********************************************************************^
   476
   477	030057	037 12 0 00 000004 	BEGEND:	ENDUUO		;END OF PASS
   478	030060	254 00 0 00 030010 	$BEND1:	JRST	BEGIN1	;KEEP RUNNING PROGRAM
   479	030061	037 16 0 00 000004 	$BEND2:	EOPUUO		;END OF PROGRAM - NO RETURN
   480	030062	000000	030726		CNTLC:	SADR5		;CONTROL C XFER ADDRESS
   481	030063	000000	030726		ALTMGO:	SADR6		;ALTMODE XFER ADDRESS
   482	030064				CPOPJ1:			;SKIP RETURN
   483	030064	350 00 0 17 000000 	UUOSKP:	AOS	(P)	;SKIP RETURN FROM UUO
   484	030065				CPOPJ:			;NON-SKIP REGULAR RETURN
   485	030065	263 17 0 00 000000 	UUOEXT:	RTN		;UUO RETURN
   486	030066	255 00 0 00 000000 	UUORTN:	JFCL		;ADDITIONAL USERS UUO ROUTINE
   487	030067	255 00 0 00 000000 	$UORTX:	JFCL		;ADDITIONAL UUO LINKAGE
   488	030070	255 00 0 00 000000 	$UUOER:	JFCL		;INITED AS (JRST $UOERX)
   489	030071	255 00 0 00 000000 	$ITRHL:	JFCL		;ADDITIONAL INTERRUPT LINKAGE
   490	030072	255 00 0 00 000000 	$ITRX1:	JFCL		; "
   491	030073	255 00 0 00 000000 	$USRHL:	JFCL		; "
   492	030074	255 00 0 00 000000 	$RSRTX:	JFCL		;ADDITIONAL POWER FAIL LINKAGE
   493	030075	255 00 0 00 000000 	$RSRTY:	JFCL		; "
   494	030076	255 00 0 00 000000 	RESRT1:	JFCL		; INITED AS (JRST RESRTX)
   495	030077	255 00 0 00 000000 	RESRT2:	JFCL		; "
   496	030100	255 00 0 00 000000 	$PARER:	JFCL		;ADDITIONAL PARITY ERROR LINKAGE
   497	030101	255 00 0 00 000000 	ERMORE:	JFCL		;ADDITIONAL ERROR HANDLER LINKAGE
   498	030102	254 04 0 00 030102 		HALT	.	;IMPROPER TRANSFER HALT
   499
   500	030103	000000	000000		$PSHER:	0		;INITED AS (JRST PSHERR)
   501	030104	000000	000000		ITRCH1:	0		;PC & FLAGS OF CURRENT INTERRUPT
   502	030105	000000	000000			0		;INITED AS (JRST $ITRC1)
   503
   504					S^;*********************************************************************^
   505					;*PROCESSOR CONTROL STORAGE
   506					S^;*********************************************************************^
   507
   508	030106	000000	000000		$ACC0:	0		;INTERRUPT SAVED AC0
   509	030107	000000	000000		$SVPI:	0		;INTERRUPT SAVED PI
   510	030110	000000	000000		$SVAPR:	0		;INTERRUPT SAVED APR
   511	030111	000000	000000		$SVPAG:	0		;INTERRUPT SAVED PAG (DATAI)
   512	030112	000000	000000		$SPAG1:	0		;INTERRUPT SAVED PAG (CONI)
   513
   514	030113	000000	000000		$SVUUO:	0		;CURRENT USERS UUO
   515	030114	000000	000000		$SVUPC:	0		;PC OF CURRENT USERS UUO
   516
   517	030115	000000	000000		REPTU:	0		;REPEAT UUO ITERATIONS
   518	030116	000000	000000		SCOPE:	0		;ERROR HANDLER SCOPE LOOP FLAG
   519	030117	000000	000000		%CORFLG:0		; " CORRECT FLAG
   520	030120	000000	000000		%COREC:	0		; " CORRECT DATA
   521	030121	000000	000000		%ACTFL:	0		; " ACTUAL FLAG
   522	030122	000000	000000		%ACTUL:	0		; " ACTUAL DATA
   523	030123	000000	000000		%DISCR:	0		; " DISCREPENCY DATA
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 4
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0021

   524					S^;*********************************************************************^
   525					;*UUO DISPATCH TABLE
   526					S^;*********************************************************************^
   527						XLIST
   528						LIST
   529	030124	030070	030070		UUODIS:	LUUO1,,$UUOER
   530	030125	030070	030070			LUUO3,,LUUO2
   531	030126	030070	030070			LUUO5,,LUUO4
   532	030127	030070	030070			LUUO7,,LUUO6
   533	030130	030070	030070			LUUO11,,LUUO10
   534	030131	030070	030070			LUUO13,,LUUO12
   535	030132	030070	030070			LUUO15,,LUUO14
   536	030133	030070	030070			LUUO17,,LUUO16
   537	030134	030070	030070			LUUO21,,LUUO20
   538	030135	030070	030070			LUUO23,,LUUO22
   539	030136	030070	030070			LUUO25,,LUUO24
   540	030137	030070	030070			LUUO27,,LUUO26
   541	030140	030070	030070			LUUO31,,LUUO30
   542	030141	030070	030070			LUUO33,,LUUO32
   543
   544					S^;*********************************************************************^
   545					;*MEMORY MANAGMENT STORAGE
   546					S^;*********************************************************************^
   547
   548	030142	000000	000000		DF22F:	0		;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
   549	030143	000000	000000		MAPNEW:	0		;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
   550	030144	000000	000000		MEMTOT:	0		;TOTAL MEMORY SIZE IN K (1024.)
   551	030145	000000	000000		MEMLOW:	0		;LOWEST USABLE MEMORY
   552	030146				MEMSIZ:	BLOCK ^D41	;MEMORY SEGMENT POINTER TABLE
   553
   554					S^;*********************************************************************^
   555					;*PRINT CONTROL STORAGE
   556					S^;*********************************************************************^
   557
   558	030217	000000	000000		PNTFLG:	0		;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
   559	030220	000000	000000		PNTENB:	0		;PRINT ENABLE
   560	030221	000000	000000		PDISF:	0		;PRINT DISABLED FLAG
   561	030222	000000	000000		PNTINH:	0		;INHIBIT PRINT INPUT CHECKS
   562	030223	000000	000000		PNTSPC:	0		;PRINT SPACE CONTROL
   563	030224	000000	000000		OPTIME:	0		;TYPE-IN WAIT TIME
   564	030225	000000	000000		$TWCNT:	0		;TIME WAITED
   565	030226	000000	000000		$DVOFF:	0		;LOGICAL DEVICE INITED FLAG
   566	030227	000000	000000		TTYFIL:	0		;TTY EXEC FILLERS FLAG
   567	030230	000000	000000		TTYSPD:	0		;TTY EXEC BAUD RATE
   568	030231	000000	000000		$TTCHR:	0		;ACTUAL TYPED IN CHAR
   569	030232	000000	000000		$CHRIN:	0		;UPPER CASED & PARITY STRIPPED CHAR
   570	030233	000000	000000		$TYPNB:	0		;TYPED IN NUMBER
   571	030234	000000	000000		$CRLF:	0		;FREE CR/LF FLAG
   572	030235	000000	000000		$TABF:	0		;TAB CONVERSION FLAG
   573	030236	000000	000000		$FFF:	0		;FORM FEED CONVERSION FLAG
   574	030237	000000	000000		$VTF:	0		;VERTICAL TAB CONVERSION FLAG
   575	030240	000000	000000		USRLFF:	0		;USER LF FILLERS
   576	030241	000000	000000		USRCRF:	0		;USER CR FILLERS
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 5
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0022

   577					S^;*********************************************************************^
   578					;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
   579					;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
   580					;*	MOVEI	NAME
   581					;*	PNTA		;OR PNTAF
   582					S^;*********************************************************************^
   583
   584	030242				CRLF:	ASCII/
   585	030242	015 012 000 000 000 	/
   586	030243				CRLF2:	ASCII/
   587
   588	030243	015 012 015 012 000 	/
   589	030244	054 000 000 000 000 	COMMA:	ASCII/,/
   590	030245	056 000 000 000 000 	PERIOD:	ASCII/./
   591	030246	040 000 000 000 000 	SPACE:	ASCII/ /
   592	030247	011 000 000 000 000 	TAB:	ASCII/	/
   593	030250				MINUS:
   594	030250	055 000 000 000 000 	HYPEN:	ASCII/-/
   595	030251	053 000 000 000 000 	PLUS:	ASCII/+/
   596	030252	052 000 000 000 000 	AST:	ASCII/*/
   597	030253	100 000 000 000 000 	ATSIN:	ASCII/@/
   598	030254	050 000 000 000 000 	LFP:	ASCII/(/
   599	030255	051 000 000 000 000 	RTP:	ASCII/)/
   600	030256	007 0000000000 		BELL:	BYTE (7) 007
   601	030257	077 000 000 000 000 	QUEST:	ASCII/?/
   602	030260	057 000 000 000 000 	SLASH:	ASCII!/!
   603	030261	044 000 000 000 000 	DOLLAR:	ASCII/$/
   604	030262	000000	000012		RADIX:	^D10			;DECIMAL PRINT RADIX
   605	030263	000000	000040		RADLSP:	40			;DECIMAL PRINT LEADING CHAR
   606	030264	000000	000012		RADLSC:	^D10			;DECIMAL PRINT LEADING CHAR COUNT
   607
   608					S^;*********************************************************************^
   609					;*USER MODE OUTPUT FILE INFORMATION
   610					S^;*********************************************************************^
   611
   612	030265				$OBUF:	BLOCK	3		;LOGICAL FILE OUTPUT BUFFER HEADER
   613	030270	60 62 51 56 64 00 	$OUTNM:	SIXBIT	/PRINT/		;FILE NAME
   614	030271	60 56 64 00 00 00 	$OUTEX:	SIXBIT	/PNT/		;FILE NAME EXTENSION
   615	030272					BLOCK	2
   616
   617					S^;*********************************************************************^
   618					;*DISK UPDATE MODE FILE INFORMATION
   619					S^;*********************************************************************^
   620
   621	030274				$IBUF:	BLOCK	3
   622	030277	60 62 51 56 64 00 	$INNM:	SIXBIT	/PRINT/
   623	030300	60 56 64 00 00 00 	$INEXT:	SIXBIT	/PNT/
   624	030301					BLOCK	2
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 6
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0023

   625					S^;*********************************************************************^
   626					;*PUSHDOWN LIST CONTROL INFORMATION
   627					S^;*********************************************************************^
   628
   629	030303	777577	030303		PLIST:	PLIST-PLISTE,,PLIST
   630	030304				PLISTS:	BLOCK	200
   631	030504	000000	000000		PLISTE:	0		;END OF PUSHDOWN LIST
   632
   633					S^;*********************************************************************^
   634					;*POWER LINE CLOCK FREQUENCY FLAG
   635					S^;*********************************************************************^
   636
   637	030505	000000	000000		CYCL60:	0	;0 = 60, -1 = 50 CYCLE
   638
   639					S^;*********************************************************************^
   640					;*KL10 CACHE CONTROL FLAGS
   641					S^;*********************************************************************^
   642
   643	030506	000000	000000		CSHFLG:	0	;ALLOW CACHE IF 0
   644	030507	000000	000000		CSHMEM:	0	;CACHE MEMORY SEGMENTS IF 0
   645
   646					S^;*********************************************************************^
   647					;*NUMBER INPUT DIGIT FLAG
   648					S^;*********************************************************************^
   649
   650	030510	000000	000000		TTNBRF:	0	;-1 IF ANY DIGIT TYPED
   651
   652					S^;*********************************************************************^
   653					;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
   654					S^;*********************************************************************^
   655
   656	030511	000000	000000		PVPAGI:	0	;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
   657
   658					S^;*********************************************************************^
   659					;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
   660					S^;*********************************************************************^
   661
   662	030512	000000	000000		%ERHI1:	0	;IF NON-ZERO, XCT'D AT START OF %ERUUO
   663	030513	000000	000000		%ERHI2:	0	;IF NON-ZERO, XCT'D AT END OF %ERUUO
   664	030514	000000	000000		%ERHI3:	0	;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
   665
   666					S^;*********************************************************************^
   667					;*SPECIAL USERS UUO INTERCEPT INSTRUCTION
   668					S^;*********************************************************************^
   669
   670	030515	000000	000000		$$UUO:	0	;IF NON-ZERO, XCT'D AT START OF $UORTN
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 7
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0024

   671					S^;*********************************************************************^
   672					;*KL10 PROCESSOR TYPE FLAG, 0=P0, 1=BBD NEW, 2=BBD OLD
   673					S^;*********************************************************************^
   674
   675	030516	000000	000000		KLTYP:	0
   676
   677					S^;*********************************************************************^
   678					;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
   679					S^;*********************************************************************^
   680
   681	030517	000000	000000		$$MUUO:	0	;IF NON-ZERO, XCT'D AT START OF MUUOER
   682
   683					S^;*********************************************************************^
   684					;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
   685					S^;*********************************************************************^
   686
   687	030520	000000	000000		$$OUTER:0	;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
   688
   689					S^;*********************************************************************^
   690					;*"SWITCH" CALL USAGE CONTROL
   691					S^;*********************************************************************^
   692
   693	030521	000000	000000		$$TOGGLE:0	;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
   694
   695					S^;*********************************************************************^
   696					;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
   697					S^;*********************************************************************^
   698
   699	030522	000000	000000		$$TAX1:	0	;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
   700	030523	000000	000000		$$TAX2:	0	;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
   701
   702					S^;*********************************************************************^
   703					;*SPECIAL FUTURE EXPANSION ROOM
   704					;*IF ANY FIXED AREA TAGS ARE ADDED, REDUCE THE SIZE OF
   705					;*THIS BLOCK STATEMENT ACCORDINGLY.  THIS MUST BE DONE
   706					;*SO THAT PREVIOUS FIXED ASSIGNMENTS DO NOT CHANGE.
   707					S^;*********************************************************************^
   708
   709	030524					BLOCK	53	;HOPEFULLY THIS IS ENOUGH FOREVER
   710
   711					S^;*********************************************************************^
   712					;*END OF FIXED STORAGE
   713					S^;*********************************************************************^
   714
   715			030577			$ENDFX=<PLISTE+100>&<777700>-1
   716	030577					LOC	$ENDFX
   717	030577	000000	000000		ENDFIX:	0		;END OF FIXED STORAGE
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 1
SPCCPU	KLM	26-FEB-76 05:50		*SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76                            SEQ 0025

   718					SUBTTL	*SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76
   719
   720					;NEW DEFINITIONS USED BY THE KL10 SUBROUTINE PACKAGE
   721
   722			000000		AC0=	0
   723			030000		DIAGNOS=30000		;PDP-10 DIAGNOSTIC START ADDRESS
   724			010000		DDT=	10000		;PDP-10 DDT START ADDRESS
   725			020000		DIAMON=	20000		;PDP-10 DIAMON LOADER START ADDRESS
   726			020000		DONG11=	1B22		;11 DOORBELL (FROM THE 10)
   727
   728					;DTE20 DEVICE CODES
   729
   730			000200		DTE==	200		;DTE0
   731			000204		DTE0==	204
   732			000204		DTE1==	204
   733			000210		DTE2==	210
   734			000214		DTE3==	214
   735
   736					;KL10 EPT COMMUNICATION AREA
   737
   738			000440		$STD=	440		;PDP-10 DIAGNOSTIC START ADDRESS
   739			000441		$DDT=	441		;PDP-10 DDT START ADDRESS
   740			000442		$STL=	442		;PDP-10 LOADER START ADDRESS
   741			000443		$STM=	443		;PDP-10 MONITOR START ADDRESS
   742
   743			000444		$DTFLG=	444		;DTE20 OPERATION COMPLETE FLAG
   744			000445		$DTCLK=	445		;DTE20 CLOCK INTERRUPT FLAG
   745			000446		$DTCI=	446		;DTE20 CLOCK INTERRUPT INSTRUCTION
   746			000447		$DTT11=	447		;DTE20 10 TO 11 ARGUMENT
   747			000450		$DTF11=	450		;DTE20 11 TO 10 ARGUMENT
   748			000451		$DTCMD=	451		;DTE20 TO 11 COMMAND WORD
   749			000452		$DTSEQ=	452		;DTE20 OPERATION SEQUENCE NUMBER
   750			000453		$DTOPR=	453		;DTE20 OPERATIONAL DTE #
   751			000454		$DTCHR=	454		;DTE20 LAST TYPED CHARACTER
   752			000455		$DTMTD=	455		;DTE20 MONITOR TTY OUTPUT COMPLETE FLAG
   753			000456		$DTMTI=	456		;DTE20 MONITOR TTY INPUT FLAG
   754
   755			000457		$DTSWR=	457		;DTE20 CONSOLE SWITCH REGISTER
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 2
SPCCPU	KLM	26-FEB-76 05:50		*SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76                            SEQ 0026

   756					;SPECIAL "FIXED" REASSIGNMENTS
   757
   758			030600			$$LOC=.			;SAVE CURRENT LOCATION
   759
   760	030000					LOC	30000
   761	030000	254 00 0 00 030600 	$$BEGIN:JRST	$$START		;SETUP SPECIAL START
   762	030001	254 00 0 00 030600 		JRST	$$START		;"DIAMON" CHAIN START ADDRESS
   763
   764	000440					LOC	440
   765	000440	254 00 0 00 030000 	$STD:	JRST	BEGIN		;SETUP FOR "STD"
   766	000443					LOC	443
   767	000443	254 00 0 00 030636 	$STM:	JRST	$SPEC		;SIMPLE RUN CONTROL
   768
   769	030057					LOC	30057
   770	030057	254 00 0 00 030641 	$BEGEND:JRST	$SPBEND		;SETUP SPECIAL "BEGEND"
   771
   772					;SPECIAL MUUO, TRAP & PAGE FAIL SETUP
   773
   774	000420					LOC	420
   775	000420	254 04 0 00 000420 	$$420:	HALT	.		;KI10 PAGE FAIL
   776	000421	255 00 0 00 000000 	$$421:	JFCL			;OVERFLOW
   777	000422	254 04 0 00 000422 	$$422:	HALT	.		;PUSHDOWN OVERFLOW
   778	000423	254 04 0 00 000423 	$$423:	HALT	.		;TRAP 3
   779	000424	000000	000000		$$424:	0			;MMUO
   780	000425	000000	000000		$$425:	0			;MMUO PC
   781	000426	000000	000000		$$426:	0			;KI10-PAGE FAIL, KL10-PROCESS CONTEXT
   782	000427	254 04 0 00 000427 	$$427:	HALT	.
   783	000430	000000	000427		$$430:	427			;MMUO NEW PC'S
   784	000431	000000	000427		$$431:	427
   785	000432	000000	000427		$$432:	427
   786	000433	000000	000427		$$433:	427
   787	000434	000000	000427		$$434:	427
   788	000435	000000	000427		$$435:	427
   789	000436	000000	000427		$$436:	427
   790	000437	000000	000427		$$437:	427
   791
   792	000500					LOC	500
   793	000500	000000	000000		$$500:	0			;KL10 PAGE FAIL WORD
   794	000501	000000	000000		$$501:	0			;KL10 PAGE FAIL PC
   795	000502	000000	000503		$$502:	503			;KL10 PAGE FAIL NEW PC
   796	000503	254 04 0 00 000503 	$$503:	HALT	.
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 3
SPCCPU	KLM	26-FEB-76 05:50		*SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76                            SEQ 0027

   797	030600					LOC	$$LOC		;RESET CURRENT LOCATION
   798
   799					;SPECIAL STARTUP SEQUENCE
   800
   801	030600	402 00 0 00 030037 	$$START:SETZM	USER
   802	030601	265 00 0 00 030602 		JSP	0,.+1		;IN USER MODE ?
   803	030602	603 00 0 00 010000 		TLNE	0,USERF
   804	030603	476 00 0 00 030037 		SETOM	USER		;YES, SET CONTROL WORD
   805	030604	336 00 0 00 030042 		SKIPN	MONFLG		;SPECIAL USER MODE ?
   806	030605	402 00 0 00 030037 		SETZM	USER		;YES, RUN AS EXEC
   807	030606	332 00 0 00 030037 		SKIPE	USER
   808	030607	254 00 0 00 030726 		JRST	START		;USER MODE, DON'T NEED CPU TYPE
   809
   810	030610	336 00 0 00 030044 	$STKIL:	SKIPN	MONTEN		;LOADED BY "DIAMON" ?
   811	030611	476 00 0 00 030024 		SETOM	ITRCNT		;NO, RUN FOREVER
   812	030612	402 00 0 00 030516 		SETZM	KLTYP
   813	030613	402 00 0 00 030041 		SETZM	KLFLG		;ASSUME KI10
   814	030614	200 01 0 00 036415 		MOVE	1,[1,,1]
   815	030615	251 01 0 00 000001 		BLT	1,1		;HOPE THIS WORKS
   816	030616	316 01 0 00 036415 		CAMN	1,[1,,1]	;IF AC NE 1,,1 AFTER BLT, KL10
   817	030617	254 00 0 00 030726 		JRST	START		;KI10, NO ADDITIONAL SETUP
   818
   819	030620	7 000 20 0 00 010040 	$STKL:	CONO	APR,10040	;SET BBD NOT BIT
   820	030621	7 000 24 0 00 000000 		CONI	APR,0
   821	030622	7 000 20 0 00 020040 		CONO	APR,20040	;CLEAR BBD NOT BIT
   822	030623	606 00 0 00 000040 		TRNN	0,40		;IF SET, KL10
   823	030624	350 00 0 00 030516 		AOS	KLTYP		;IF NOT, BBD
   824	030625	402 00 0 00 000444 		SETZM	$DTFLG
   825	030626	402 00 0 00 000445 		SETZM	$DTCLK
   826	030627	200 00 0 00 000453 		MOVE	$DTOPR		;GET DTE #
   827	030630	436 00 0 00 030670 		ORM	$$DTE0		;INSERT IN DTE I/O INSTS
   828	030631	436 00 0 00 030672 		ORM	$$DTE1
   829	030632	436 00 0 00 030704 		ORM	$$DTE2
   830	030633	436 00 0 00 030706 		ORM	$$DTE3
   831	030634	476 00 0 00 030041 		SETOM	KLFLG		;SET KL10 CONTROL FLAG
   832	030635	254 00 0 00 030726 		JRST	START
   833
   834	030636	200 00 0 00 036416 	$SPEC:	MOVE	[JRST STARTA]	;SIMPLE RUN CONTROL
   835	030637	202 00 0 00 030643 		MOVEM	$SPB1
   836	030640	254 00 0 00 030726 		JRST	START
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 4
SPCCPU	KLM	26-FEB-76 05:50		*SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76                            SEQ 0028

   837					;SPECIAL "BEGEND" ROUTINE
   838
   839	030641	350 00 0 00 030047 	$SPBEND:AOS	PASCNT		;INCREMENT PASS COUNT
   840	030642	370 00 0 00 030024 		SOS	ITRCNT		;DECREMENT ITERATION COUNT
   841	030643	336 00 0 00 030037 	$SPB1:	SKIPN	USER
   842	030644	254 00 0 00 030652 		JRST	$SPBEX		;EXEC MODE
   843
   844	030645	332 00 0 00 030024 	$SPBUS:	SKIPE	ITRCNT		;USER MODE, COMPLETED ?
   845	030646	254 00 0 00 030737 		JRST	STARTA		;NO, KEEP RUNNING
   846	030647	336 00 0 00 030044 		SKIPN	MONTEN		;DONE, LOADED BY "DIAMON" ?
   847	030650	047 00 0 00 000012 		EXIT			;NO, RETURN TO MONITOR
   848	030651	254 00 1 00 030012 		JRST	@RETURN		;YES, RETURN TO "DIAMON"
   849
   850	030652	332 00 0 00 030041 	$SPBEX:	SKIPE	KLFLG
   851	030653	254 00 0 00 030660 		JRST	$SPBKL		;KL10 & EXEC
   852	030654	7 004 14 0 00 030024 		DATAO	PI,ITRCNT	;KI10 & EXEC, DISPLAY ITER COUNT
   853	030655	332 00 0 00 030024 		SKIPE	ITRCNT
   854	030656	254 00 0 00 030737 		JRST	STARTA		;NOT COMPLETED YET
   855	030657	254 00 1 00 030012 		JRST	@RETURN		;DONE
   856
   857	030660	336 00 0 00 030024 	$SPBKL:	SKIPN	ITRCNT
   858	030661	254 00 0 00 030676 		JRST	$SPKLD		;KL10, EXEC & COMPLETED
   859
   860	030662	335 00 0 00 030043 		SKIPGE	MONCTL
   861	030663	254 00 0 00 030737 		JRST	STARTA		;"DIAMON" CONTROL
   862	030664	201 00 0 00 000404 		MOVEI	0,404		;NOTIFY PDP-11 OF END OF PASS
   863	030665	202 00 0 00 000451 		MOVEM	0,$DTCMD
   864	030666	402 00 0 00 000444 		SETZM	$DTFLG
   865	030667	336 00 0 00 030516 		SKIPN	KLTYP
   866	030670	7 200 20 0 00 020000 	$$DTE0:	CONO	DTE,DONG11
   867	030671	332 00 0 00 030516 		SKIPE	KLTYP
   868	030672	7 200 20 0 00 010000 	$$DTE1:	CONO	DTE,10000
   869	030673	336 00 0 00 000444 		SKIPN	$DTFLG		;WAIT TILL 11 RESPONDS
   870	030674	254 00 0 00 030673 		JRST	.-1
   871	030675	254 00 0 00 030737 		JRST	STARTA		;KEEP RUNNING
   872
   873					;SPECIAL KL10 COMPLETED ROUTINE
   874
   875	030676	332 00 0 00 030044 	$SPKLD:	SKIPE	MONTEN
   876	030677	254 00 1 00 030012 		JRST	@RETURN		;LOADED BY "DIAMON"
   877
   878	030700	201 00 0 00 000403 		MOVEI	0,403		;NOTIFY PDP-11 OF COMPLETION
   879	030701	202 00 0 00 000451 		MOVEM	0,$DTCMD
   880	030702	402 00 0 00 000444 		SETZM	$DTFLG
   881	030703	336 00 0 00 030516 		SKIPN	KLTYP
   882	030704	7 200 20 0 00 020000 	$$DTE2:	CONO	DTE,DONG11
   883	030705	332 00 0 00 030516 		SKIPE	KLTYP
   884	030706	7 200 20 0 00 010000 	$$DTE3:	CONO	DTE,10000
   885	030707	336 00 0 00 000444 		SKIPN	$DTFLG		;SHOULD NEVER HAPPEN
   886	030710	254 00 0 00 030707 		JRST	.-1		;11 NEVER RETURNS ON END OF PROGRAM
   887	030711	254 04 0 00 030000 		HALT	BEGIN		;IF IT DOES, HALT.
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0029

   888					SUBTTL	DIAGNOSTIC SECTION
   889
   890						LALL
   891
   892	030712				PGMNAM:	ASCIZ	/
   893	030712	015 012 120 104 120 	PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC # 8 [DAKAH]
   894	030713	055 061 060 040 113 
   895	030714	101 061 060 040 102 
   896	030715	101 123 111 103 040 
   897	030716	111 116 123 124 122 
   898	030717	125 103 124 111 117 
   899	030720	116 040 104 111 101 
   900	030721	107 116 117 123 124 
   901	030722	111 103 040 043 040 
   902	030723	070 040 133 104 101 
   903	030724	113 101 110 135 015 
   904	030725	012 000 000 000 000 	/
   905	030726	402 00 0 00 030037 	START:	SETZM	USER#		;CLEAR USER CONTROL WORD
   906	030727	265 00 0 00 030730 		JSP	0,.+1		;GET FLAGS
   907	030730	603 00 0 00 010000 		TLNE	USERF		;IN USER MODE?
   908	030731	476 00 0 00 030037 		SETOM	USER		;YES, SET USER CONTROL WORD
   909	030732	336 00 0 00 030037 		SKIPN	USER
   910	030733	254 00 0 00 030737 		JRST	STARTA
   911	030734	051 03 0 00 030712 		TTCALL	3,PGMNAM	;MENTION OUR NAME
   912						OUTSTR	[ASCIZ	/
   913					?EXEC MODE DIAGNOSTIC ONLY
   914	030735	051 03 0 00 036417 	/]				;TELL USER
   915	030736	254 04 0 00 030736 		HALT	.		;AND DIE...
   916
   917	030737				STARTA:
   918	030737	402 00 0 00 036671 	ST:	SETZM	MATPOF#		;CLR MA TRAP OFFSET FLAG.
   919	030740	332 01 0 00 035772 	MOD:	SKIPE 1,SAV40		;RESTORE THESE LOC IF PROG
   920	030741	202 01 0 00 010040 		MOVEM 1,10040			;IF PROG MODIFIED
   921	030742	332 01 0 00 035773 		SKIPE 1,SAV41
   922	030743	202 01 0 00 010041 		MOVEM 1,10041
   923	030744	332 01 0 00 035774 		SKIPE 1,SAV42
   924	030745	202 01 0 00 010042 		MOVEM 1,10042
   925	030746	332 01 0 00 035775 		SKIPE 1,SAV43
   926	030747	202 01 0 00 010043 		MOVEM 1,10043
   927	030750	7 000 24 0 00 036667 		CONI CPSAV#
   928	030751	7 004 24 0 00 036673 		CONI PI,PISAV#
   929
   930	030752	7 000 04 0 00 000000 		DATAI			;DO WE HAVE FP
   931	030753	335 00 0 00 030043 		SKIPGE	MONCTL		;MONITR CONTROL ?
   932	030754	200 00 0 00 030043 		MOVE	0,MONCTL	;YES
   933	030755	464 00 0 00 036426 		ORCM [1B35]
   934	030756	452 00 0 00 036670 		SETCAM FPTRAP#
   935	030757	476 00 0 00 036672 		SETOM PI7SYS#
   936
   937	030760	7 000 04 0 00 000000 		DATAI			;IS THIS MACH WITH USER
   938	030761	335 00 0 00 030043 		SKIPGE	MONCTL		;MONITR CONTROL ?
   939	030762	200 00 0 00 030043 		MOVE	0,MONCTL	;YES
   940	030763	464 00 0 00 036427 		ORCM [1B34]
   941	030764	452 00 0 00 036674 		SETCAM USMOD#
   942
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 1-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0030

   943	030765	332 00 0 00 036671 		SKIPE	MATPOF#		;START AT 3776?
   944	030766	254 00 0 00 036352 		JRST	MOD200		;YES. GO CK MA 29 SET.
   945
   946					;MACH/OPTION DEPENDENT
   947					;TEST UU0
   948
   949						RETURN MOD1		^;TEST UUO FOR NOT GOING TO 60
   950
   951	030767	200 02 0 00 036430 		MOVE	2,[JSP 2,MOD1]
   952	030770	202 02 0 00 000041 		MOVEM	2,41
   953	030771	477 02 0 00 000040 		SETOB	2,40
   954				
   955	030772	200 01 0 00 036431 		MOVE	1,[JRST .+4]	;IF THIS ROUT STOPS THE
   956	030773	200 02 0 00 036432 		MOVE	2,[JSP MOD1+1]	;TRAP WAS TO 60. IF UU0 HANG
   957	030774	202 02 0 00 000061 		MOVEM	2,61		;THE MACH, CHECK XCTF0 AND
   958	030775	000000	000000			0			;UU0F0 FLAGS FOR NOT SETING
   959	030776	334 00 0 00 000000 	MOD1:	SKIPA			;CHECK MA 31 SET
   960						STOP			^;IR 1XX GATE FAIL
   961
   962	030777	254 04 0 00 031000 		HALT	.+1
   963	031000	320 00 0 00 031001 		JUMP	.+1
   964				
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 2
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0031

   965
   966	031001				MOD2:	RETURN	MOD3		^;TEST 40 TO MA LOGIC (UU0)
   967
   968	031001	200 02 0 00 036433 		MOVE	2,[JSP 2,MOD3]
   969	031002	202 02 0 00 000041 		MOVEM	2,41
   970	031003	477 02 0 00 000040 		SETOB	2,40
   971				
   972	031004	200 01 0 00 036434 		MOVE	1,[JRST .+3]	;IF 40 WAS NOT (J) TO MA
   973	031005	000000	000000			0			;THIS UU0 WILL STORE IN LOC 0
   974	031006	334 00 0 00 000000 	MOD3:	SKIPA			;CHECK MA-30 SET
   975						STOP			^;ON THE MA1 PRINT
   976
   977	031007	254 04 0 00 031010 		HALT	.+1
   978	031010	320 00 0 00 031011 		JUMP	.+1
   979				
   980
   981	031011				MOD4:	RETURN	MOD5		^;IF THE MA FROM AR
   982
   983	031011	200 02 0 00 036435 		MOVE	2,[JSP 2,MOD5]
   984	031012	202 02 0 00 000041 		MOVEM	2,41
   985	031013	477 02 0 00 000040 		SETOB	2,40
   986				
   987	031014	200 02 0 00 036436 		MOVE	2,[JSP MOD5+1]	;INHIBIT (AT6) FAILED THE
   988	031015	202 00 0 00 000061 		MOVEM	61		;UU0 WOULD STORE IN E ORED
   989	031016	000000	000020			20			;WITH 40 RATHER THAN C(40)
   990	031017	334 00 0 00 000000 	MOD5:	SKIPA			;MA FM AR(J) CAME UP  CHECK
   991						STOP			^;AND OF AT6-IR UU0 ON MA1 PRINT
   992
   993	031020	254 04 0 00 031021 		HALT	.+1
   994	031021	320 00 0 00 031022 		JUMP	.+1
   995				
   996
   997	031022				MOD6:	RETURN	MOD7		^;TEST UU0 ABILITY TO STORE
   998
   999	031022	200 02 0 00 036437 		MOVE	2,[JSP 2,MOD7]
  1000	031023	202 02 0 00 000041 		MOVEM	2,41
  1001	031024	477 02 0 00 000040 		SETOB	2,40
  1002				
  1003	031025	000000	000000			0			;IF C(40) UNCHANGED SCE FAIL
  1004	031026	316 02 0 00 000040 	MOD7:	CAMN	2,40		;CK IR UU0 INPUT TO SCE
  1005						STOP			^;ON S2 PRINT
  1006
  1007	031027	254 04 0 00 031030 		HALT	.+1
  1008	031030	320 00 0 00 031031 		JUMP	.+1
  1009				
  1010
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 3
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0032

  1011	031031				MOD8:	RETURN	MOD9		^;TEST SACINH FOR UU0
  1012
  1013	031031	200 02 0 00 036440 		MOVE	2,[JSP 2,MOD9]
  1014	031032	202 02 0 00 000041 		MOVEM	2,41
  1015	031033	477 02 0 00 000040 		SETOB	2,40
  1016				
  1017	031034	474 00 0 00 000000 		SETO			;IF FAIL WILL MODIFY AC
  1018	031035	000000	000000			0			;SACINH THE IR UU0 INPUT
  1019	031036	312 00 0 00 036441 	MOD9:	CAME	[-1]		;ON S2 PRINT FAILED
  1020						STOP^
  1021	031037	254 04 0 00 031040 		HALT	.+1
  1022	031040	320 00 0 00 031041 		JUMP	.+1
  1023									^
  1024
  1025	031041				MOD10:	RETURN	MOD11		^;TEST UU0 FACINH, IF THE
  1026
  1027	031041	200 02 0 00 036442 		MOVE	2,[JSP 2,MOD11]
  1028	031042	202 02 0 00 000041 		MOVEM	2,41
  1029	031043	477 02 0 00 000040 		SETOB	2,40
  1030				
  1031	031044	201 00 0 00 777777 		MOVEI	-1		;UU0 FETCHES A AC THE
  1032	031045	000000	000000			0			;AC WILL BE STORED
  1033	031046	316 00 0 00 000040 	MOD11:	CAMN	40		;FAC INH THE IR UU0 INPUT
  1034						STOP			^;ON F2 PRINT FAIL
  1035
  1036	031047	254 04 0 00 031050 		HALT	.+1
  1037	031050	320 00 0 00 031051 		JUMP	.+1
  1038				
  1039
  1040	031051				MOD12:	RETURN	MOD13		^;TEST UU0 IR TO ARLT
  1041
  1042	031051	200 02 0 00 036443 		MOVE	2,[JSP 2,MOD13]
  1043	031052	202 02 0 00 000041 		MOVEM	2,41
  1044	031053	477 02 0 00 000040 		SETOB	2,40
  1045				
  1046	031054	077740	000000			XWD	077740,0	;THE AND OF (ET0,IR UU0)
  1047	031055	336 00 0 00 000040 	MOD13:	SKIPN	40		;ON ARC-2 PRINT FAILED
  1048						STOP^
  1049	031056	254 04 0 00 031057 		HALT	.+1
  1050	031057	320 00 0 00 031060 		JUMP	.+1
  1051									^
  1052
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 4
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0033

  1053	031060				MOD14:	RETURN	MOD15		^;UU0 FAIL
  1054
  1055	031060	200 02 0 00 036444 		MOVE	2,[JSP 2,MOD15]
  1056	031061	202 02 0 00 000041 		MOVEM	2,41
  1057	031062	477 02 0 00 000040 		SETOB	2,40
  1058				
  1059	031063	000740	000000			XWD	000740,0		;CHECK ARLT FM FLAGS (J) B
  1060	031064	336 00 0 00 000040 	MOD15:	SKIPN	40		;THE PA ON ARC-2 PRINT
  1061						STOP^
  1062	031065	254 04 0 00 031066 		HALT	.+1
  1063	031066	320 00 0 00 031067 		JUMP	.+1
  1064									^
  1065
  1066	031067				MOD16:	RETURN	MOD17		^;UU0 FAIL
  1067
  1068	031067	200 02 0 00 036445 		MOVE	2,[JSP 2,MOD17]
  1069	031070	202 02 0 00 000041 		MOVEM	2,41
  1070	031071	477 02 0 00 000040 		SETOB	2,40
  1071				
  1072	031072	077000	000000			XWD	077000,0		;CHECK ARLT FM FLAGS (J) A
  1073	031073	336 00 0 00 000040 	MOD17:	SKIPN	40		;THE PA ON ARC-2 PRINT
  1074						STOP^
  1075	031074	254 04 0 00 031075 		HALT	.+1
  1076	031075	320 00 0 00 031076 		JUMP	.+1
  1077									^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 5
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0034

  1078
  1079			000040			ZZ=40
  1080					MOD18:	REPEAT	^D10,
  1081					<	RETURN .+4		;TEST IRLT TO AR
  1082						XWD	ZZ,0
  1083						SKIPN	40
  1084						STOP
  1085						ZZ=ZZ+ZZ
  1086					>
  1087						RETURN .+4		^
  1088	031076	200 02 0 00 036446 		MOVE	2,[JSP 2,.+4]
  1089	031077	202 02 0 00 000041 		MOVEM	2,41
  1090	031100	477 02 0 00 000040 		SETOB	2,40
  1091									^;TEST IRLT TO AR
  1092	031101	000040	000000			XWD	ZZ,0
  1093	031102	336 00 0 00 000040 		SKIPN	40
  1094						STOP^
  1095	031103	254 04 0 00 031104 		HALT	.+1
  1096	031104	320 00 0 00 031105 		JUMP	.+1
  1097									^
  1098			000100			ZZ=ZZ+ZZ
  1099
  1100						RETURN .+4		^
  1101	031105	200 02 0 00 036447 		MOVE	2,[JSP 2,.+4]
  1102	031106	202 02 0 00 000041 		MOVEM	2,41
  1103	031107	477 02 0 00 000040 		SETOB	2,40
  1104									^;TEST IRLT TO AR
  1105	031110	000100	000000			XWD	ZZ,0
  1106	031111	336 00 0 00 000040 		SKIPN	40
  1107						STOP^
  1108	031112	254 04 0 00 031113 		HALT	.+1
  1109	031113	320 00 0 00 031114 		JUMP	.+1
  1110									^
  1111			000200			ZZ=ZZ+ZZ
  1112
  1113						RETURN .+4		^
  1114	031114	200 02 0 00 036450 		MOVE	2,[JSP 2,.+4]
  1115	031115	202 02 0 00 000041 		MOVEM	2,41
  1116	031116	477 02 0 00 000040 		SETOB	2,40
  1117									^;TEST IRLT TO AR
  1118	031117	000200	000000			XWD	ZZ,0
  1119	031120	336 00 0 00 000040 		SKIPN	40
  1120						STOP^
  1121	031121	254 04 0 00 031122 		HALT	.+1
  1122	031122	320 00 0 00 031123 		JUMP	.+1
  1123									^
  1124			000400			ZZ=ZZ+ZZ
  1125
  1126						RETURN .+4		^
  1127	031123	200 02 0 00 036451 		MOVE	2,[JSP 2,.+4]
  1128	031124	202 02 0 00 000041 		MOVEM	2,41
  1129	031125	477 02 0 00 000040 		SETOB	2,40
  1130									^;TEST IRLT TO AR
  1131	031126	000400	000000			XWD	ZZ,0
  1132	031127	336 00 0 00 000040 		SKIPN	40
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 5-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0035

  1133						STOP^
  1134	031130	254 04 0 00 031131 		HALT	.+1
  1135	031131	320 00 0 00 031132 		JUMP	.+1
  1136									^
  1137			001000			ZZ=ZZ+ZZ
  1138
  1139						RETURN .+4		^
  1140	031132	200 02 0 00 036452 		MOVE	2,[JSP 2,.+4]
  1141	031133	202 02 0 00 000041 		MOVEM	2,41
  1142	031134	477 02 0 00 000040 		SETOB	2,40
  1143									^;TEST IRLT TO AR
  1144	031135	001000	000000			XWD	ZZ,0
  1145	031136	336 00 0 00 000040 		SKIPN	40
  1146						STOP^
  1147	031137	254 04 0 00 031140 		HALT	.+1
  1148	031140	320 00 0 00 031141 		JUMP	.+1
  1149									^
  1150			002000			ZZ=ZZ+ZZ
  1151
  1152						RETURN .+4		^
  1153	031141	200 02 0 00 036453 		MOVE	2,[JSP 2,.+4]
  1154	031142	202 02 0 00 000041 		MOVEM	2,41
  1155	031143	477 02 0 00 000040 		SETOB	2,40
  1156									^;TEST IRLT TO AR
  1157	031144	002000	000000			XWD	ZZ,0
  1158	031145	336 00 0 00 000040 		SKIPN	40
  1159						STOP^
  1160	031146	254 04 0 00 031147 		HALT	.+1
  1161	031147	320 00 0 00 031150 		JUMP	.+1
  1162									^
  1163			004000			ZZ=ZZ+ZZ
  1164
  1165						RETURN .+4		^
  1166	031150	200 02 0 00 036454 		MOVE	2,[JSP 2,.+4]
  1167	031151	202 02 0 00 000041 		MOVEM	2,41
  1168	031152	477 02 0 00 000040 		SETOB	2,40
  1169									^;TEST IRLT TO AR
  1170	031153	004000	000000			XWD	ZZ,0
  1171	031154	336 00 0 00 000040 		SKIPN	40
  1172						STOP^
  1173	031155	254 04 0 00 031156 		HALT	.+1
  1174	031156	320 00 0 00 031157 		JUMP	.+1
  1175									^
  1176			010000			ZZ=ZZ+ZZ
  1177
  1178						RETURN .+4		^
  1179	031157	200 02 0 00 036455 		MOVE	2,[JSP 2,.+4]
  1180	031160	202 02 0 00 000041 		MOVEM	2,41
  1181	031161	477 02 0 00 000040 		SETOB	2,40
  1182									^;TEST IRLT TO AR
  1183	031162	010000	000000			XWD	ZZ,0
  1184	031163	336 00 0 00 000040 		SKIPN	40
  1185						STOP^
  1186	031164	254 04 0 00 031165 		HALT	.+1
  1187	031165	320 00 0 00 031166 		JUMP	.+1
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 5-2
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0036

  1188									^
  1189			020000			ZZ=ZZ+ZZ
  1190
  1191						RETURN .+4		^
  1192	031166	200 02 0 00 036456 		MOVE	2,[JSP 2,.+4]
  1193	031167	202 02 0 00 000041 		MOVEM	2,41
  1194	031170	477 02 0 00 000040 		SETOB	2,40
  1195									^;TEST IRLT TO AR
  1196	031171	020000	000000			XWD	ZZ,0
  1197	031172	336 00 0 00 000040 		SKIPN	40
  1198						STOP^
  1199	031173	254 04 0 00 031174 		HALT	.+1
  1200	031174	320 00 0 00 031175 		JUMP	.+1
  1201									^
  1202			040000			ZZ=ZZ+ZZ
  1203
  1204						RETURN .+4		^
  1205	031175	200 02 0 00 036457 		MOVE	2,[JSP 2,.+4]
  1206	031176	202 02 0 00 000041 		MOVEM	2,41
  1207	031177	477 02 0 00 000040 		SETOB	2,40
  1208									^;TEST IRLT TO AR
  1209	031200	040000	000000			XWD	ZZ,0
  1210	031201	336 00 0 00 000040 		SKIPN	40
  1211						STOP^
  1212	031202	254 04 0 00 031203 		HALT	.+1
  1213	031203	320 00 0 00 031204 		JUMP	.+1
  1214									^
  1215			100000			ZZ=ZZ+ZZ
  1216
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 6
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0037

  1217	031204				MOD19:	RETURN	MOD19A		^;TEST PROPER STORAGE
  1218
  1219	031204	200 02 0 00 036460 		MOVE	2,[JSP 2,MOD19A]
  1220	031205	202 02 0 00 000041 		MOVEM	2,41
  1221	031206	477 02 0 00 000040 		SETOB	2,40
  1222				
  1223	031207	000000	000000			0			;OF UU0
  1224	031210	332 00 0 00 000040 	MOD19A:	SKIPE	40
  1225						STOP^
  1226	031211	254 04 0 00 031212 		HALT	.+1
  1227	031212	320 00 0 00 031213 		JUMP	.+1
  1228									^
  1229
  1230	031213				MOD20:	RETURN	MOD20A		^;CK FOR STORING OF E
  1231
  1232	031213	200 02 0 00 036461 		MOVE	2,[JSP 2,MOD20A]
  1233	031214	202 02 0 00 000041 		MOVEM	2,41
  1234	031215	477 02 0 00 000040 		SETOB	2,40
  1235				
  1236	031216	000000	777777			XWD	0,-1		;ON A UU0
  1237	031217	200 00 0 00 000040 	MOD20A:	MOVE	40
  1238	031220	302 00 0 00 777777 		CAIE	-1
  1239						STOP^
  1240	031221	254 04 0 00 031222 		HALT	.+1
  1241	031222	320 00 0 00 031223 		JUMP	.+1
  1242									^
  1243
  1244	031223				MOD21:	RETURN	MOD21A		^;CK FOR STORING OF E
  1245
  1246	031223	200 02 0 00 036462 		MOVE	2,[JSP 2,MOD21A]
  1247	031224	202 02 0 00 000041 		MOVEM	2,41
  1248	031225	477 02 0 00 000040 		SETOB	2,40
  1249				
  1250	031226	077740	000000			XWD	077740,0	;ON A UU0
  1251	031227	200 00 0 00 000040 	MOD21A:	MOVE	40
  1252	031230	312 00 0 00 036463 		CAME	[XWD 077740,0]
  1253						STOP^
  1254	031231	254 04 0 00 031232 		HALT	.+1
  1255	031232	320 00 0 00 031233 		JUMP	.+1
  1256									^
  1257
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 7
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0038

  1258	031233				MOD22:	RETURN	MOD22A		^;CK FOR STORING OF
  1259
  1260	031233	200 02 0 00 036464 		MOVE	2,[JSP 2,MOD22A]
  1261	031234	202 02 0 00 000041 		MOVEM	2,41
  1262	031235	477 02 0 00 000040 		SETOB	2,40
  1263				
  1264	031236	077740	777777			XWD	077740,-1	;E AND IR ON UU0
  1265	031237	200 00 0 00 000040 	MOD22A:	MOVE	40
  1266	031240	312 00 0 00 036465 		CAME	[XWD 077740,-1]
  1267						STOP^
  1268	031241	254 04 0 00 031242 		HALT	.+1
  1269	031242	320 00 0 00 031243 		JUMP	.+1
  1270									^
  1271
  1272	031243				MOD23:	RETURN	MOD23A		^;UU0 TEST THE PC+1
  1273
  1274	031243	200 02 0 00 036466 		MOVE	2,[JSP 2,MOD23A]
  1275	031244	202 02 0 00 000041 		MOVEM	2,41
  1276	031245	477 02 0 00 000040 		SETOB	2,40
  1277				
  1278	031246	000000	000000			0			;INHIBIT FEATURE LOC 41
  1279	031247	405 02 0 00 777777 	MOD23A:	ANDI	2,-1		;CONTAINS TSP 2,X
  1280	031250	306 02 0 00 031250 		CAIN	2,.		;PC+1 INH THE IR UU0 INPUT
  1281						STOP			^;FAILED. SEE PC1 PRINT
  1282
  1283	031251	254 04 0 00 031252 		HALT	.+1
  1284	031252	320 00 0 00 031253 		JUMP	.+1
  1285				
  1286
  1287	031253				MOD24:	RETURN	MOD24A		^;PC STORED IN CORRECTLY
  1288
  1289	031253	200 02 0 00 036467 		MOVE	2,[JSP 2,MOD24A]
  1290	031254	202 02 0 00 000041 		MOVEM	2,41
  1291	031255	477 02 0 00 000040 		SETOB	2,40
  1292				
  1293	031256	000000	777777			XWD	0,-1		;FROM THE JSP AT 41
  1294	031257	405 02 0 00 777777 	MOD24A:	ANDI 2,-1		;ON A UUO INST
  1295	031260	302 02 0 00 031257 		CAIE	2,.-1
  1296						STOP^
  1297	031261	254 04 0 00 031262 		HALT	.+1
  1298	031262	320 00 0 00 031263 		JUMP	.+1
  1299									^
  1300
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 8
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0039

  1301	031263				MOD25:	;SET PRIVILEGE TO FLAG
  1302						;SET UU0 TRAP
  1303						;TEST IOT INST FOR
  1304						;NOT TRAPING. SEE IR-2
  1305						;PRINT IR UU0 CAME UP
  1306	031263				MOD26:	;CK AND OF IR IOTA, NOT ALLOW, ETC
  1307
  1308	031263				MOD27:	SFLAG	0		^;MAKE SURE EX IOT USER=0
  1309
  1310	031263	205 01 0 00 000000 		MOVSI	1,0
  1311	031264	255 17 0 00 031265 		JFCL	17,.+1
  1312	031265	254 02 0 01 031266 		JRST	2,.+1(1)
  1313				
  1314						RETURN	MOD28		^;CK FOR NOT TRAP ON IOT
  1315
  1316	031266	200 02 0 00 036470 		MOVE	2,[JSP 2,MOD28]
  1317	031267	202 02 0 00 000041 		MOVEM	2,41
  1318	031270	477 02 0 00 000040 		SETOB	2,40
  1319				
  1320	031271	7 000 24 0 00 000000 		CONI			;IF IOTS TRAP NOW THE
  1321	031272	300 00 0 00 000000 		CAI			;AND GATE EX USER (0), EX IOT USER
  1322	031273	334 00 0 00 000000 		SKIPA			;DID NOT RESPOND TO EX USER (0)
  1323	031274				MOD28:	STOP			^;SEE EX ALLOW IOTS ON EX PRINT
  1324
  1325	031274	254 04 0 00 031275 		HALT	.+1
  1326	031275	320 00 0 00 031276 		JUMP	.+1
  1327				
  1328
  1329	031276	474 01 0 00 000000 	MOD29:	SETO	1,		;THE IOTS FAIL TO STORE C(E)
  1330	031277	7 000 04 0 00 000001 		DATAI	1		;CHECK IR IOT ON IR2 PRINT
  1331	031300	7 000 24 0 00 000001 		CONI	1		;LOOKS LIKE IR DECODE FAILED
  1332	031301	316 01 0 00 036441 		CAMN	1,[-1]
  1333						STOP^
  1334	031302	254 04 0 00 031303 		HALT	.+1
  1335	031303	320 00 0 00 031304 		JUMP	.+1
  1336									^
  1337
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 9
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0040

  1338	031304	200 01 0 00 036471 	MOD30:	MOVE	1,[123456654321]	;CHECK SCE FOR DATAI
  1339	031305	7 000 04 0 00 000001 		DATAI	1		;THE CONTENTS OF LOC1
  1340	031306	316 01 0 00 036471 		CAMN	1,[123456654321]	;WERE NOT MODIFIED. SEE
  1341						STOP			^;S1 PRINT SCE AND DECODE ON IOT
  1342
  1343	031307	254 04 0 00 031310 		HALT	.+1
  1344	031310	320 00 0 00 031311 		JUMP	.+1
  1345				
  1346
  1347	031311	200 01 0 00 036471 	MOD31:	MOVE	1,[123456654321]	;CHECK SCE FOR CONI.  THE
  1348	031312	7 000 24 0 00 000001 		CONI	1		;CONTENTS OF LOC1 WERE NOT
  1349	031313	316 01 0 00 036471 		CAMN	1,[123456654321]	;MODIFIED.  SEE S2 PRINT SCE
  1350						STOP			^;AND DECODE ON IOT PRINT
  1351
  1352	031314	254 04 0 00 031315 		HALT	.+1
  1353	031315	320 00 0 00 031316 		JUMP	.+1
  1354				
  1355
  1356	031316	474 00 0 00 000000 	MOD32:	SETO			;SACINH FAIL FOR INST
  1357	031317	7 000 24 0 00 000001 		CONI	1		;CONI FAILED. CHECK
  1358	031320	312 00 0 00 036441 		CAME	[-1]		;IR IOT INPUT TO SACINH
  1359						STOP			^;ON THE S2 PRINT
  1360
  1361	031321	254 04 0 00 031322 		HALT	.+1
  1362	031322	320 00 0 00 031323 		JUMP	.+1
  1363				
  1364
  1365	031323	7 774 20 0 00 000000 	MOD33:	CONO	ME,0		;CLEAR LAST DEVICE
  1366	031324	7 774 24 0 00 000002 		CONI	ME,2		;AR CLEAR AT(ET0)FAILED
  1367	031325	306 02 0 00 000002 		CAIN	2,2		;ON INST CONT CK AR
  1368						STOP			^;CLEAR ETO, CONI ON ARC-2 PRINT
  1369
  1370	031326	254 04 0 00 031327 		HALT	.+1
  1371	031327	320 00 0 00 031330 		JUMP	.+1
  1372				
  1373
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 10
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0041

  1374	031330	7 774 14 0 00 036425 	MOD34:	DATAO	ME,[0]		;AR CLR ON A DATAI
  1375	031331	7 774 04 0 00 000003 		DATAI	ME,3		;INST FAILED CHECK
  1376	031332	306 03 0 00 000003 		CAIN	3,3		;IOT DATAI INPUT ON THE
  1377						STOP			^;OR GATE TO AR CLR. SEE ARC-2 PRINT
  1378
  1379	031333	254 04 0 00 031334 		HALT	.+1
  1380	031334	320 00 0 00 031335 		JUMP	.+1
  1381				
  1382
  1383	031335	400 00 0 00 000000 		SETZ			;CONSZ FAIL TO SKIP. CK
  1384	031336	7 000 30 0 00 000000 		CONSZ			;PC+1 AT AND OF AD=0, IOT CONSZ,
  1385						STOP			^;IOT T5 ON PC1 PRINT
  1386
  1387	031337	254 04 0 00 031340 		HALT	.+1
  1388	031340	320 00 0 00 031341 		JUMP	.+1
  1389				
  1390
  1391	031341	7 774 20 0 00 000000 		CONO	ME,0		;CONSZ FAIL TO SKIP CK
  1392	031342	7 774 30 0 00 700000 		CONSZ	ME,700000		;FOR NO AR CLR AT (ETO). SEE ARC-2
  1393						STOP			^;PRINT THE IOT CONSX INPUT
  1394
  1395	031343	254 04 0 00 031344 		HALT	.+1
  1396	031344	320 00 0 00 031345 		JUMP	.+1
  1397				
  1398
  1399	031345	7 774 20 0 00 000000 		CONO	ME,0		;CONSO SKIPED.  CHECK PC+1
  1400	031346	7 774 34 0 00 000000 		CONSO	ME,0		;(IOT T5,AD=0,IOT CONSO,IOT CONSZ
  1401	031347	334 00 0 00 000000 		SKIPA			;AND GATES) ON PC1 PRINT
  1402						STOP^
  1403	031350	254 04 0 00 031351 		HALT	.+1
  1404	031351	320 00 0 00 031352 		JUMP	.+1
  1405									^
  1406
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 11
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0042

  1407	031352	400 01 0 00 000000 	MOD35:	SETZ	1,		;CHECK POINTER INC ON IOT BLK
  1408	031353	7 774 10 0 00 000001 		BLKO	ME,1		;IF C(1)=0 THEN AR FM AD(J) (ET0)
  1409	031354	300 00 0 00 000000 		CAI			;ON ARC-3 PRINT, OR AD+1 BOTH (FT9)
  1410	031355	300 00 0 00 000000 		CAI			;ON AD2 PRINT FAILED
  1411	031356	312 01 0 00 036415 		CAME	1,[XWD 1,1]	;IF IR 12 FAIL TO SET, PROG
  1412						STOP			^;BLOWS UP
  1413
  1414	031357	254 04 0 00 031360 		HALT	.+1
  1415	031360	320 00 0 00 031361 		JUMP	.+1
  1416				
  1417	031361	400 01 0 00 000000 	MOD36:	SETZ	1,		;PC+1 INH FOR BLK FAILED
  1418	031362	7 774 10 0 00 000001 		BLKO	ME,1		;CHECK IOT BLK INPUT TO
  1419	031363	300 00 0 00 000000 		CAI			;PC+1 INH ON THE PC1 PRINT
  1420	031364	334 00 0 00 000000 		SKIPA
  1421						STOP^
  1422	031365	254 04 0 00 031366 		HALT	.+1
  1423	031366	320 00 0 00 031367 		JUMP	.+1
  1424									^
  1425	031367	400 01 0 00 000000 	MOD37:	SETZ	1,		;BLKO PC+1 AT ET0 TIME
  1426	031370	7 774 10 0 00 000001 		BLKO	ME,1		;FAILED. CHECK THE AND GATE
  1427						STOP			^;BLK, CYC(0) CRY(0) ON PC1 PRINT
  1428
  1429	031371	254 04 0 00 031372 		HALT	.+1
  1430	031372	320 00 0 00 031373 		JUMP	.+1
  1431				
  1432	031373	474 01 0 00 000000 	MOD38:	SETO	1,		;BLKO PERFORMED A SKIP WHEN
  1433	031374	7 774 10 0 00 000001 		BLKO	ME,1		;END CRY0 SHOULD=1
  1434	031375	334 00 0 00 000000 		SKIPA			;CK PC+1,SEE ABOVE ROUTINE
  1435						STOP^
  1436	031376	254 04 0 00 031377 		HALT	.+1
  1437	031377	320 00 0 00 031400 		JUMP	.+1
  1438									^
  1439	031400	7 004 20 0 00 010000 	MOD39:	CONO PI,10000		;JUST IN CASE 
  1440	031401	7 000 20 0 00 435447 		CONO	435447		;SET SOME CPA FLAGS
  1441	031402	7 000 24 0 00 000000 		CONI	0		;(1) DID FLAGS SET? NO CONO FAIL
  1442	031403	336 00 0 00 000000 		SKIPN	0		;YES: CONI FAIL CK IOB TO AR
  1443						STOP			^;AND MANY OTHERS.  IE SINGLE STEP
  1444
  1445	031404	254 04 0 00 031405 		HALT	.+1
  1446	031405	320 00 0 00 031406 		JUMP	.+1
  1447				
  1448	031406	7 000 20 0 00 000000 	MOD40:	CONO			;PIA 35 FAIL TO SET (CPU)
  1449	031407	7 000 20 0 00 000001 		CONO	1		;OR READ SINGLE STEP
  1450	031410	7 000 24 0 00 000000 		CONI			;SEE CPA PRINT
  1451	031411	606 00 0 00 000001 		TRNN	1
  1452						STOP^
  1453	031412	254 04 0 00 031413 		HALT	.+1
  1454	031413	320 00 0 00 031414 		JUMP	.+1
  1455									^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 12
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0043

  1456
  1457	031414	7 000 20 0 00 000000 	MOD41:	CONO			;PIA 3+(CFU) FAIL TO SET
  1458	031415	7 000 20 0 00 000002 		CONO	2		;OR READ.  SEE CPA PRINT
  1459	031416	7 000 24 0 00 000000 		CONI			;SINGLE STEP
  1460	031417	606 00 0 00 000002 		TRNN	2
  1461						STOP^
  1462	031420	254 04 0 00 031421 		HALT	.+1
  1463	031421	320 00 0 00 031422 		JUMP	.+1
  1464									^
  1465
  1466	031422	7 000 20 0 00 000000 	MOD42:	CONO			;PIA 33 (CPU) FAIL TO SET
  1467	031423	7 000 20 0 00 000004 		CONO	4		;OR READ.  SEE CPA PRINT
  1468	031424	7 000 24 0 00 000000 		CONI			;SINGLE STEP
  1469	031425	606 00 0 00 000004 		TRNN	4
  1470						STOP^
  1471	031426	254 04 0 00 031427 		HALT	.+1
  1472	031427	320 00 0 00 031430 		JUMP	.+1
  1473									^
  1474
  1475	031430	7 000 20 0 00 000001 	MOD43:	CONO	1		;PIA 35 (CPU) FAIL TO CLEAR
  1476	031431	7 000 20 0 00 000000 		CONO			;OR READ INCORRECT
  1477	031432	7 000 24 0 00 000000 		CONI			;SEE CPA PRINT
  1478	031433	602 00 0 00 000001 		TRNE	1		;SINGLE STEP
  1479						STOP^
  1480	031434	254 04 0 00 031435 		HALT	.+1
  1481	031435	320 00 0 00 031436 		JUMP	.+1
  1482									^
  1483
  1484	031436	7 000 20 0 00 000002 	MOD44:	CONO	2		;PIA 34 (CPU) FAIL TO CLEAR
  1485	031437	7 000 20 0 00 000000 		CONO			;OR READ INCORRECTLY
  1486	031440	7 000 24 0 00 000000 		CONI			;SEE CPA PRINT
  1487	031441	602 00 0 00 000002 		TRNE	2		;SINGLE STEP
  1488						STOP^
  1489	031442	254 04 0 00 031443 		HALT	.+1
  1490	031443	320 00 0 00 031444 		JUMP	.+1
  1491									^
  1492
  1493	031444	7 000 20 0 00 000004 	MOD45:	CONO	4		;PIA 33 (CPU) FAIL TO CLEAR
  1494	031445	7 000 20 0 00 000000 		CONO			;OR READ INCORRECTLY
  1495	031446	7 000 24 0 00 000000 		CONI			;SEE CPA PRINT
  1496	031447	602 00 0 00 000004 		TRNE	4		;SINGLE STEP
  1497						STOP^
  1498	031450	254 04 0 00 031451 		HALT	.+1
  1499	031451	320 00 0 00 031452 		JUMP	.+1
  1500									^
  1501
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 13
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0044

  1502	031452	7 000 20 0 00 000007 	MOD46:	CONO	7		;SET SOME CP FLAGS
  1503	031453	7 000 34 0 00 000000 		CONSO			;CONSO FAILED  CK
  1504	031454	334 00 0 00 000000 		SKIPA
  1505						STOP^
  1506	031455	254 04 0 00 031456 		HALT	.+1
  1507	031456	320 00 0 00 031457 		JUMP	.+1
  1508									^
  1509	031457	7 000 20 0 00 000007 	MOD47:	CONO	7		;CONSO FAILED
  1510	031460	7 000 34 0 00 000007 		CONSO	7
  1511						STOP^
  1512	031461	254 04 0 00 031462 		HALT	.+1
  1513	031462	320 00 0 00 031463 		JUMP	.+1
  1514									^
  1515	031463	7 000 20 0 00 000007 	MOD48:	CONO	7		;CONSZ FAIL
  1516	031464	7 000 30 0 00 000007 		CONSZ	7		;CHECK PC+1 AT AND
  1517	031465	334 00 0 00 000000 		SKIPA			;OF AD=0, CONSZ, IOT T5
  1518						STOP			^;ON PC1 PRINT
  1519
  1520	031466	254 04 0 00 031467 		HALT	.+1
  1521	031467	320 00 0 00 031470 		JUMP	.+1
  1522				
  1523	031470	7 000 20 0 00 000040 	MOD50:	CONO	40		;CPU AROV ENABLE
  1524	031471	7 000 20 0 00 000020 		CONO	20		;TRY TO SET
  1525	031472	7 000 34 0 00 000020 		CONSO	20
  1526						STOP			^;IOB OR FLOP
  1527
  1528	031473	254 04 0 00 031474 		HALT	.+1
  1529	031474	320 00 0 00 031475 		JUMP	.+1
  1530				
  1531	031475	7 000 20 0 00 000020 		CONO	20		;SET AROV EN
  1532	031476	7 000 20 0 00 000000 		CONO			;CK FOR NOT CLEARING
  1533	031477	7 000 34 0 00 000020 		CONSO	20
  1534						STOP^
  1535	031500	254 04 0 00 031501 		HALT	.+1
  1536	031501	320 00 0 00 031502 		JUMP	.+1
  1537									^
  1538	031502	7 000 20 0 00 000020 		CONO	20		;SET AROV EN
  1539	031503	7 000 20 0 00 000040 		CONO	40		;TRY TO CLEAR
  1540	031504	7 000 30 0 00 000020 		CONSZ	20
  1541						STOP^
  1542	031505	254 04 0 00 031506 		HALT	.+1
  1543	031506	320 00 0 00 031507 		JUMP	.+1
  1544									^
  1545	031507	7 000 20 0 00 000040 		CONO	40		;CLEAR AROV EN
  1546	031510	7 000 20 0 00 000000 		CONO			;CK FOR NOT SETTING
  1547	031511	7 000 30 0 00 000020 		CONSZ	20
  1548						STOP^
  1549	031512	254 04 0 00 031513 		HALT	.+1
  1550	031513	320 00 0 00 031514 		JUMP	.+1
  1551									^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 14
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0045

  1552	031514	7 000 20 0 00 000400 	MOD51:	CONO	400		;FOV EN CLEAR
  1553	031515	7 000 20 0 00 000200 		CONO	200		;TRY TO SET
  1554	031516	7 000 34 0 00 000200 		CONSO	200
  1555						STOP^
  1556	031517	254 04 0 00 031520 		HALT	.+1
  1557	031520	320 00 0 00 031521 		JUMP	.+1
  1558									^
  1559
  1560	031521	7 000 20 0 00 000200 		CONO	200		;SET FOV EN
  1561	031522	7 000 20 0 00 000000 		CONO			;CK FOR NOT CLEARING
  1562	031523	7 000 34 0 00 000200 		CONSO	200
  1563						STOP^
  1564	031524	254 04 0 00 031525 		HALT	.+1
  1565	031525	320 00 0 00 031526 		JUMP	.+1
  1566									^
  1567
  1568	031526	7 000 20 0 00 000200 		CONO	200		;SET FOV EN
  1569	031527	7 000 20 0 00 000400 		CONO	400		;TRY TO CLEAR
  1570	031530	7 000 30 0 00 000200 		CONSZ	200
  1571						STOP^
  1572	031531	254 04 0 00 031532 		HALT	.+1
  1573	031532	320 00 0 00 031533 		JUMP	.+1
  1574									^
  1575
  1576	031533	7 000 20 0 00 000400 		CONO	400		;CLEAR FOV EN
  1577	031534	7 000 20 0 00 000000 		CONO			;CK FOR NOT SETTING
  1578	031535	7 000 30 0 00 000200 		CONSZ	200
  1579						STOP^
  1580	031536	254 04 0 00 031537 		HALT	.+1
  1581	031537	320 00 0 00 031540 		JUMP	.+1
  1582									^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 15
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0046

  1583
  1584	031540	7 000 20 0 00 004000 	MOD52:	CONO	4000		;CLEAR CLK EN
  1585	031541	7 000 20 0 00 002000 		CONO	2000		;TRY TO SET
  1586	031542	7 000 34 0 00 002000 		CONSO	2000
  1587						STOP^
  1588	031543	254 04 0 00 031544 		HALT	.+1
  1589	031544	320 00 0 00 031545 		JUMP	.+1
  1590									^
  1591
  1592	031545	7 000 20 0 00 002000 		CONO	2000		;SET CLK EN
  1593	031546	7 000 20 0 00 000000 		CONO			;CK FOR NOT CLEARING
  1594	031547	7 000 34 0 00 002000 		CONSO	2000
  1595						STOP^
  1596	031550	254 04 0 00 031551 		HALT	.+1
  1597	031551	320 00 0 00 031552 		JUMP	.+1
  1598									^
  1599
  1600	031552	7 000 20 0 00 002000 		CONO	2000		;SET CLK EN
  1601	031553	7 000 20 0 00 004000 		CONO	4000		;TRY TO CLEAR
  1602	031554	7 000 30 0 00 002000 		CONSZ	2000
  1603						STOP^
  1604	031555	254 04 0 00 031556 		HALT	.+1
  1605	031556	320 00 0 00 031557 		JUMP	.+1
  1606									^
  1607
  1608	031557	7 000 20 0 00 004000 		CONO	4000		;CLEAR CLK EN
  1609	031560	7 000 20 0 00 000000 		CONO			;TEST FOR NOT SETTING
  1610	031561	7 000 30 0 00 002000 		CONSZ	2000
  1611						STOP^
  1612	031562	254 04 0 00 031563 		HALT	.+1
  1613	031563	320 00 0 00 031564 		JUMP	.+1
  1614									^
  1615
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 16
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0047

  1616	031564	310 00 0 00 777777 	MOD53:	CAM	-1		;SET NON-EX VIA F(CE)
  1617	031565	7 000 20 0 00 010000 		CONO	10000		;TRY TO CLEAR
  1618	031566	7 000 30 0 00 010000 		CONSZ	10000
  1619						STOP			^;FAIL TO CLEAR
  1620
  1621	031567	254 04 0 00 031570 		HALT	.+1
  1622	031570	320 00 0 00 031571 		JUMP	.+1
  1623				
  1624
  1625	031571	7 000 20 0 00 010000 		CONO	10000		;CLEAR NON-EX
  1626	031572	310 00 0 00 777777 		CAM	-1		;TRY TO SET VIA F(CE)
  1627	031573	7 000 34 0 00 010000 		CONSO	10000		;FAIL TO SET
  1628						STOP			^;CK MEM CNTL, CPA
  1629
  1630	031574	254 04 0 00 031575 		HALT	.+1
  1631	031575	320 00 0 00 031576 		JUMP	.+1
  1632				
  1633
  1634	031576	7 000 20 0 00 010000 		CONO	10000		;CLEAR NON-EX
  1635	031577	202 00 0 00 777777 		MOVEM	-1		;TRY TO SET VIA S(CE)
  1636	031600	7 000 34 0 00 010000 		CONSO	10000		;FAIL TO SET
  1637						STOP^
  1638	031601	254 04 0 00 031602 		HALT	.+1
  1639	031602	320 00 0 00 031603 		JUMP	.+1
  1640									^
  1641
  1642	031603	7 000 20 0 00 010000 		CONO	10000		;CLEAR NON-EX
  1643	031604	272 00 0 00 777777 		ADDM	-1		;TRY TO SET VIA PSE
  1644	031605	7 000 34 0 00 010000 		CONSO	10000		;FAIL TO SET
  1645						STOP^
  1646	031606	254 04 0 00 031607 		HALT	.+1
  1647	031607	320 00 0 00 031610 		JUMP	.+1
  1648									^
  1649
  1650	031610	310 00 0 00 777777 		CAM	-1		;SET NON EX
  1651	031611	7 000 20 0 00 000000 		CONO			;TEST FOR NOT CLEARING
  1652	031612	7 000 34 0 00 010000 		CONSO	10000		;ON CONO 0
  1653						STOP^
  1654	031613	254 04 0 00 031614 		HALT	.+1
  1655	031614	320 00 0 00 031615 		JUMP	.+1
  1656									^
  1657	031615	7 000 20 0 00 010000 		CONO	10000
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 17
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0048

  1658
  1659	031616	7 000 20 0 00 400000 	MOD54:	CONO	400000		;CLEAR PDL OV
  1660	031617	474 00 0 00 000000 		SETO			;TRY TO SET
  1661	031620	261 00 0 00 000000 		PUSH			;VIA PUSH
  1662	031621	7 000 34 0 00 200000 		CONSO 200000		;TEST FOR SET
  1663						STOP			^;CPA PRINT
  1664
  1665	031622	254 04 0 00 031623 		HALT	.+1
  1666	031623	320 00 0 00 031624 		JUMP	.+1
  1667				
  1668
  1669	031624	474 00 0 00 000000 		SETO
  1670	031625	261 00 0 00 000000 		PUSH			;SET PDL OV
  1671	031626	7 000 20 0 00 400000 		CONO 400000		;TRY TO CLEAR .CK
  1672	031627	7 000 30 0 00 200000 		CONSZ 200000		;CPA PDL OV SET (ET0) POP GATE
  1673						STOP			^;FLOP/IOB CPA PRINT
  1674
  1675	031630	254 04 0 00 031631 		HALT	.+1
  1676	031631	320 00 0 00 031632 		JUMP	.+1
  1677				
  1678
  1679	031632	474 00 0 00 000000 		SETO
  1680	031633	261 00 0 00 000000 		PUSH			;SET PDL OV
  1681	031634	7 000 20 0 00 000000 		CONO			;CK FOR NOT CLEARING
  1682	031635	7 000 34 0 00 200000 		CONSO 200000
  1683						STOP^
  1684	031636	254 04 0 00 031637 		HALT	.+1
  1685	031637	320 00 0 00 031640 		JUMP	.+1
  1686									^
  1687
  1688	031640	7 000 20 0 00 400000 		CONO	400000		;TEST FOR NOT
  1689	031641	474 00 0 00 000000 		SETO			;SETTING PDL-OV
  1690	031642	350 00 0 00 000000 		AOS			;CPA PDL OV SET FAIL
  1691	031643	7 000 30 0 00 200000 		CONSZ 200000		;IR PUSH CRY(0) (1) AT ET0
  1692						STOP			^;AND GATE.  THE PUSH INPUT
  1693
  1694	031644	254 04 0 00 031645 		HALT	.+1
  1695	031645	320 00 0 00 031646 		JUMP	.+1
  1696				
  1697
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 18
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0049

  1698	031646	7 000 20 0 00 400000 	MOD55:	CONO	400000		;CK PDL FLAG
  1699	031647	400 00 0 00 000000 		SETZ			;CPA PDL OV SET
  1700	031650	261 00 0 00 000000 		PUSH			;CK AND GATE OK
  1701	031651	7 000 30 0 00 200000 		CONSZ 200000		;ET0 IR PUSH,ADCRY0 (1)
  1702						STOP			^;THE CRY FLAG SHOULD PREVENT
  1703
  1704	031652	254 04 0 00 031653 		HALT	.+1
  1705	031653	320 00 0 00 031654 		JUMP	.+1
  1706				
  1707
  1708	031654	7 000 20 0 00 400000 		CONO	400000		;TRY TO SET PDL-OV
  1709	031655	474 00 0 00 000000 		SETO			;VIA PUSHJ
  1710	031656	260 00 0 00 031657 		PUSHJ	.+1		;THE AND GATE OF
  1711	031657	7 000 34 0 00 200000 		CONSO 200000		;PUSH,PUSHJ TO FROM
  1712						STOP			^;CPA PDL OV SET FAILED. SEE CPA PRINT
  1713
  1714	031660	254 04 0 00 031661 		HALT	.+1
  1715	031661	320 00 0 00 031662 		JUMP	.+1
  1716				
  1717
  1718	031662	7 000 20 0 00 400000 		CONO	400000		;TRY TO SET VIA POPS
  1719	031663	201 00 0 00 000001 		MOVEI	1		;CHECK AND GATE OF
  1720	031664	262 00 0 00 000000 		POP			;IR POPS, ET0, AD CRY 0(0)
  1721	031665	7 000 34 0 00 200000 		CONSO 200000		;TO CPA PDL OV SET
  1722						STOP^
  1723	031666	254 04 0 00 031667 		HALT	.+1
  1724	031667	320 00 0 00 031670 		JUMP	.+1
  1725									^
  1726
  1727	031670	7 000 20 0 00 400000 		CONO	400000		;CHECK POPS FOR NOT
  1728	031671	200 00 0 00 036415 		MOVE	[XWD 1,1]		;SETTING PDL-OV
  1729	031672	262 00 0 00 000000 		POP			;AD CRY0(0) SHOULD PREVENT
  1730	031673	7 000 30 0 00 200000 		CONSZ 200000		;SEE ABOVE
  1731						STOP^
  1732	031674	254 04 0 00 031675 		HALT	.+1
  1733	031675	320 00 0 00 031676 		JUMP	.+1
  1734									^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 19
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0050

  1735
  1736	031676	205 00 0 00 400000 	MOD56:	MOVSI	400000		;SET AROV FLAG
  1737	031677	270 00 0 00 036472 		ADD	[XWD 400000,0]	;CK IOB INPUT IOB1
  1738	031700	7 000 34 0 00 000010 		CONSO	10		;PRINT FOR MISSING
  1739						STOP			^;IOB BIT 32
  1740
  1741	031701	254 04 0 00 031702 		HALT	.+1
  1742	031702	320 00 0 00 031703 		JUMP	.+1
  1743				
  1744
  1745	031703	255 17 0 00 031704 		JFCL	17,.+1		;CHECK AROV STATUS
  1746	031704	7 000 30 0 00 000010 		CONSZ	10		;BIT 32 ON IOB
  1747						STOP			^;SEE IOB1 PRINT
  1748
  1749	031705	254 04 0 00 031706 		HALT	.+1
  1750	031706	320 00 0 00 031707 		JUMP	.+1
  1751				
  1752
  1753	031707	7 000 30 0 00 404440 		CONSZ	404440		;STATUS BITS NOT USED
  1754						STOP			^;SHOULD BE 0  IOB1 PRINT
  1755
  1756	031710	254 04 0 00 031711 		HALT	.+1
  1757	031711	320 00 0 00 031712 		JUMP	.+1
  1758				
  1759
  1760	031712	7 000 20 0 00 200000 		CONO	200000		;CLEAR THE WORLD
  1761	031713	400 00 0 00 000000 		SETZ			;ON IOT THE
  1762	031714	7 000 00 0 00 000000 		BLKI			;AND GATE OF IOT BLKI
  1763	031715	300 00 0 00 000000 		CAI			;BLKO WHICH MAKES IOT BLK
  1764	031716	312 00 0 00 036415 		CAME	[XWD 1,1]		;FAILED LOOK AT THE
  1765						STOP			^;BLKI INPUT
  1766
  1767	031717	254 04 0 00 031720 		HALT	.+1
  1768	031720	320 00 0 00 031721 		JUMP	.+1
  1769				
  1770
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 20
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0051

  1771	031721	205 00 0 00 400000 	MOD57:	MOVSI	400000		;SET AROV FLAG
  1772	031722	270 00 0 00 036472 		ADD	[XWD 400000,0]	;A CONO WITH OUT
  1773	031723	7 000 20 0 00 000000 		CONO			;BIT 32 CLEARED IT
  1774	031724	255 10 0 00 031726 		JFCL	10,.+2		;SEE ARF PRINT CPA CONO
  1775						STOP			^;AND BIT 32
  1776
  1777	031725	254 04 0 00 031726 		HALT	.+1
  1778	031726	320 00 0 00 031727 		JUMP	.+1
  1779				
  1780
  1781	031727	205 00 0 00 400000 		MOVSI	400000		;SET AROV FLAG
  1782	031730	270 00 0 00 036472 		ADD	[XWD 400000,0]	;TRY TO CLEAR WITH
  1783	031731	7 000 20 0 00 000010 		CONO	10		;A CONO
  1784	031732	255 10 0 00 031734 		JFCL	10,.+2		;IT FAILED TO CLEAR
  1785	031733	334 00 0 00 000000 		SKIPA			;CHECK ARF PRINT
  1786						STOP			^;CPA CONO AND BIT 32
  1787
  1788	031734	254 04 0 00 031735 		HALT	.+1
  1789	031735	320 00 0 00 031736 		JUMP	.+1
  1790				
  1791
  1792	031736	205 01 0 00 040000 		MOVSI	1,40000
  1793	031737	255 17 0 00 031740 		JFCL	17,.+1		;SET FOV FLAG
  1794	031740	254 02 0 01 031741 		JRST	2,.+1(1)		;VIA RESET FLAGS
  1795	031741	7 000 20 0 00 000000 		CONO			;CONO WITHOUT BIT29
  1796	031742	255 01 0 00 031744 		JFCL	1,.+2		;CLEARED IT.  SEE ARF PRINT
  1797						STOP			^;CPA CONO SET AND IOB 29
  1798
  1799	031743	254 04 0 00 031744 		HALT	.+1
  1800	031744	320 00 0 00 031745 		JUMP	.+1
  1801				
  1802
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 21
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0052

  1803	031745	205 01 0 00 040000 	MOD58:	MOVSI	1,40000
  1804	031746	255 17 0 00 031747 		JFCL	17,.+1		;SET FOV FLAG
  1805	031747	254 02 0 01 031750 		JRST	2,.+1(1)		;VIA RESET FLAGS
  1806	031750	7 000 20 0 00 000100 		CONO	100		;CONO FAIL TO CLEAR FOV
  1807	031751	255 01 0 00 031753 		JFCL	1,.+2		;SEE ARF PRINT
  1808	031752	334 00 0 00 000000 		SKIPA			;CONO CPU AND IOB
  1809						STOP			^;BIT 29
  1810
  1811	031753	254 04 0 00 031754 		HALT	.+1
  1812	031754	320 00 0 00 031755 		JUMP	.+1
  1813				
  1814
  1815	031755	255 01 0 00 031756 		JFCL	1,.+1		;AR FOV FLAG TO IOB
  1816	031756	7 000 30 0 00 000100 		CONSZ	100		;FAIL SEE IOB1 PRINT
  1817						STOP			^;AND CPA STATUS, AR FOV (1)
  1818
  1819	031757	254 04 0 00 031760 		HALT	.+1
  1820	031760	320 00 0 00 031761 		JUMP	.+1
  1821				
  1822
  1823	031761	205 01 0 00 040000 		MOVSI	1,40000
  1824	031762	255 17 0 00 031763 		JFCL	17,.+1		;SET FOV VIA
  1825	031763	254 02 0 01 031764 		JRST	2,.+1(1)		;RESTOR FLAGS
  1826	031764	7 000 34 0 00 000100 		CONSO	100		;FOV TO IOB FAIL
  1827						STOP			^;SEE IOB1 PRINT
  1828
  1829	031765	254 04 0 00 031766 		HALT	.+1
  1830	031766	320 00 0 00 031767 		JUMP	.+1
  1831				
  1832
  1833	031767	7 000 20 0 00 040000 		CONO	40000		;CPA ADDR BREAK
  1834	031770	7 000 30 0 00 040000 		CONSZ 40000		;STATUS FAIL
  1835						STOP			^;SEE CPA OR IOB1 PRINT
  1836
  1837	031771	254 04 0 00 031772 		HALT	.+1
  1838	031772	320 00 0 00 031773 		JUMP	.+1
  1839				
  1840
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 22
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0053

  1841	031773	7 000 20 0 00 000007 	MOD59:	CONO	7		;A CONO TO P1 MODIFIED
  1842	031774	7 004 20 0 00 000000 		CONO	PI,0		;CPU AS A DEVICE.  BIO
  1843	031775	7 000 34 0 00 000007 		CONSO	7		;CPA SEL IS CONFUSED
  1844						STOP^
  1845	031776	254 04 0 00 031777 		HALT	.+1
  1846	031777	320 00 0 00 032000 		JUMP	.+1
  1847									^
  1848
  1849	032000	7 000 20 0 00 010000 		CONO	10000		;JUST CHECKING FOR
  1850	032001	310 00 0 00 032001 		CAM .			;NOT NONEX AGAIN
  1851	032002	7 000 30 0 00 010000 		CONSZ	10000
  1852						STOP^
  1853	032003	254 04 0 00 032004 		HALT	.+1
  1854	032004	320 00 0 00 032005 		JUMP	.+1
  1855									^
  1856
  1857	032005	7 004 20 0 00 200000 		CONO	PI,200000	;SEE IF PAR ERR
  1858	032006	7 004 30 0 00 200000 		CONSZ	PI,200000	;IS A ZERO
  1859						STOP^
  1860	032007	254 04 0 00 032010 		HALT	.+1
  1861	032010	320 00 0 00 032011 		JUMP	.+1
  1862									^
  1863
  1864	032011	7 004 20 0 00 400000 		CONO	PI,400000	;SEE IF POWER FAIL
  1865	032012	7 004 30 0 00 400000 		CONSZ	PI,400000	;IS A ZERO
  1866						STOP^
  1867	032013	254 04 0 00 032014 		HALT	.+1
  1868	032014	320 00 0 00 032015 		JUMP	.+1
  1869									^
  1870
  1871	032015	201 00 0 00 777777 		MOVEI	-1		;WAIT FOR CLOCK
  1872	032016	7 000 30 0 00 001000 		CONSZ	1000		;FLAG TO SET
  1873	032017	254 00 0 00 032022 		JRST	.+3
  1874	032020	367 00 0 00 032016 		SOJG	.-2
  1875						STOP			^;NO CLOCK FLAG
  1876
  1877	032021	254 04 0 00 032022 		HALT	.+1
  1878	032022	320 00 0 00 032023 		JUMP	.+1
  1879				
  1880
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 23
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0054

  1881	032023	7 004 20 0 00 100000 	MOD60:	CONO	PI,100000	;CLEAR CPA PARITY ENB
  1882	032024	7 004 20 0 00 040000 		CONO PI,40000		;TRY TO SET IT
  1883	032025	7 004 34 0 00 100000 		CONSO	PI,100000	;ALSO PI AS DEVICE
  1884						STOP^
  1885	032026	254 04 0 00 032027 		HALT	.+1
  1886	032027	320 00 0 00 032030 		JUMP	.+1
  1887									^
  1888
  1889	032030	7 004 20 0 00 040000 		CONO	PI,40000	;SET CPA PAR ENB
  1890	032031	7 004 20 0 00 000000 		CONO	PI,		;CK FOR NOT CLEAR
  1891	032032	7 004 34 0 00 100000 		CONSO	PI,100000
  1892						STOP^
  1893	032033	254 04 0 00 032034 		HALT	.+1
  1894	032034	320 00 0 00 032035 		JUMP	.+1
  1895									^
  1896
  1897	032035	7 004 20 0 00 040000 		CONO	PI,40000	;SET CPA PAR ENB
  1898	032036	7 004 20 0 00 100000 		CONO	PI,100000	;TRY TO CLEAR
  1899	032037	7 004 30 0 00 100000 		CONSZ PI,100000
  1900						STOP^
  1901	032040	254 04 0 00 032041 		HALT	.+1
  1902	032041	320 00 0 00 032042 		JUMP	.+1
  1903									^
  1904
  1905	032042	7 004 20 0 00 100000 		CONO	PI,100000	;CLEAR CPA PAR ENB
  1906	032043	7 004 20 0 00 000000 		CONO	PI,		;CK FOR NOT SET
  1907
  1908	032044	7 004 30 0 00 100000 		CONSZ	PI,100000	;ON CONO
  1909						STOP^
  1910	032045	254 04 0 00 032046 		HALT	.+1
  1911	032046	320 00 0 00 032047 		JUMP	.+1
  1912									^
  1913
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 24
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0055

  1914	032047				MOD70:	CLEAN			^;SEE IOB1
  1915
  1916	032047	7 000 20 0 00 634440 		CONO	634440
  1917	032050	7 004 20 0 00 010000 		CONO	PI,10000
  1918				
  1919	032051	7 004 24 0 00 000000 		CONI	PI,0		;READ PI STATUS
  1920	032052	602 00 0 00 077400 		TRNE	77400		;A PI HOLD FLOP FAIL TO
  1921						STOP			^;CLEAR OR IOB PI INPUT
  1922
  1923	032053	254 04 0 00 032054 		HALT	.+1
  1924	032054	320 00 0 00 032055 		JUMP	.+1
  1925				
  1926	032055	200 01 0 00 036473 		MOVE	1,[MOVEI 40]	;STORE A MOVIT IN
  1927	032056	202 01 0 01 000000 		MOVEM	1,(1)		;LOCATIONS 40 TO 60
  1928	032057	312 01 0 00 036474 		CAME	1,[MOVEI 57]
  1929	032060	344 01 0 00 032056 		AOJA	1,.-2
  1930
  1931					DEFINE	BLURB<
  1932					;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
  1933					;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
  1934					;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
  1935					;INSTRUCTION
  1936					>
  1937					DEFINE	PIO	(A)
  1938					<	CLEAN
  1939						CONO	PI,PIOSET+A	;PIO FAIL TO SET IF LIGHT OUT
  1940						CONSO	PI,A		;OTHERWISE FAIL TO READ
  1941						STOP			;STATUS SE P12-IOB1 PRINT
  1942					
  1943						CLEAN			;CHECK PIO CLEAR
  1944						CONO	PI,PIOSET+A	;SET PIO
  1945						CONO	PI,PIOCLR+A	;TRY TO CLEAR
  1946						CONSZ	PI,A		;LIGHT=FAIL TO CLEAR PI2 PRINT
  1947						STOP			;NO LIGHT=STATUS FAIL IOB1 PRINT
  1948					
  1949						CLEAN			;CHECK FOR PI RESET
  1950						CONO	PI,PIOSET+A	;ABILITY TO CLEAR PIO FLAG
  1951						CONO	PI,10000	;SEE PI2 PRINT, PI RESET
  1952						CONSZ	PI,A		;TO PIO FLAGS
  1953						STOP
  1954					
  1955						CLEAN			;TEST PIO SET
  1956						CONO	PI,PIOSET	;SEE PI2 PRINT
  1957						CONSZ	PI,A		;IT SET FLOP WITHOUT
  1958						STOP			;A IOB BIT
  1959					
  1960						CLEAN			;TEST PIO CLR
  1961						CONO	PI,PIOSET+A	;PERHAPS PI RESET OCCURED (NO IOB-23)
  1962						CONO	PI,PIOCLR	;THE FLOP CLEARED
  1963						CONSO	PI,A		;WITH OUT A IOB BIT
  1964						STOP			;SEE PI2 PRINT
  1965					>
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 25
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0056

  1966
  1967	032061				MOD71:	CLEAN			^;CHECK PIO SET
  1968
  1969	032061	7 000 20 0 00 634440 		CONO	634440
  1970	032062	7 004 20 0 00 010000 		CONO	PI,10000
  1971				
  1972	032063	7 004 20 0 00 002177 		CONO	PI,PIOSET+177	;THE PI CHANNEL FLOPS
  1973	032064	7 004 34 0 00 000177 		CONSO	PI,177		;FAILED TO SET
  1974						STOP			^;CHECK PI1 PRINT
  1975
  1976	032065	254 04 0 00 032066 		HALT	.+1
  1977	032066	320 00 0 00 032067 		JUMP	.+1
  1978				
  1979
  1980	032067				MOD72:	PIO 100^	CLEAN^
  1981	032067	7 000 20 0 00 634440 		CONO	634440
  1982	032070	7 004 20 0 00 010000 		CONO	PI,10000
  1983									^
  1984	032071	7 004 20 0 00 002100 		CONO	PI,PIOSET+100	;PIO FAIL TO SET IF LIGHT OUT
  1985	032072	7 004 34 0 00 000100 		CONSO	PI,100		;OTHERWISE FAIL TO READ
  1986						STOP			^
  1987	032073	254 04 0 00 032074 		HALT	.+1
  1988	032074	320 00 0 00 032075 		JUMP	.+1
  1989									^;STATUS SE P12-IOB1 PRINT
  1990
  1991						CLEAN			^
  1992	032075	7 000 20 0 00 634440 		CONO	634440
  1993	032076	7 004 20 0 00 010000 		CONO	PI,10000
  1994									^;CHECK PIO CLEAR
  1995	032077	7 004 20 0 00 002100 		CONO	PI,PIOSET+100	;SET PIO
  1996	032100	7 004 20 0 00 001100 		CONO	PI,PIOCLR+100	;TRY TO CLEAR
  1997	032101	7 004 30 0 00 000100 		CONSZ	PI,100		;LIGHT=FAIL TO CLEAR PI2 PRINT
  1998						STOP			^
  1999	032102	254 04 0 00 032103 		HALT	.+1
  2000	032103	320 00 0 00 032104 		JUMP	.+1
  2001									^;NO LIGHT=STATUS FAIL IOB1 PRINT
  2002
  2003						CLEAN			^
  2004	032104	7 000 20 0 00 634440 		CONO	634440
  2005	032105	7 004 20 0 00 010000 		CONO	PI,10000
  2006									^;CHECK FOR PI RESET
  2007	032106	7 004 20 0 00 002100 		CONO	PI,PIOSET+100	;ABILITY TO CLEAR PIO FLAG
  2008	032107	7 004 20 0 00 010000 		CONO	PI,10000	;SEE PI2 PRINT, PI RESET
  2009	032110	7 004 30 0 00 000100 		CONSZ	PI,100		;TO PIO FLAGS
  2010						STOP^
  2011	032111	254 04 0 00 032112 		HALT	.+1
  2012	032112	320 00 0 00 032113 		JUMP	.+1
  2013									^
  2014
  2015						CLEAN			^
  2016	032113	7 000 20 0 00 634440 		CONO	634440
  2017	032114	7 004 20 0 00 010000 		CONO	PI,10000
  2018									^;TEST PIO SET
  2019	032115	7 004 20 0 00 002000 		CONO	PI,PIOSET	;SEE PI2 PRINT
  2020	032116	7 004 30 0 00 000100 		CONSZ	PI,100		;IT SET FLOP WITHOUT
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 25-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0057

  2021						STOP			^
  2022	032117	254 04 0 00 032120 		HALT	.+1
  2023	032120	320 00 0 00 032121 		JUMP	.+1
  2024									^;100 IOB BIT
  2025
  2026						CLEAN			^
  2027	032121	7 000 20 0 00 634440 		CONO	634440
  2028	032122	7 004 20 0 00 010000 		CONO	PI,10000
  2029									^;TEST PIO CLR
  2030	032123	7 004 20 0 00 002100 		CONO	PI,PIOSET+100	;PERHAPS PI RESET OCCURED (NO IOB-23)
  2031	032124	7 004 20 0 00 001000 		CONO	PI,PIOCLR	;THE FLOP CLEARED
  2032	032125	7 004 34 0 00 000100 		CONSO	PI,100		;WITH OUT 100 IOB BIT
  2033						STOP			^
  2034	032126	254 04 0 00 032127 		HALT	.+1
  2035	032127	320 00 0 00 032130 		JUMP	.+1
  2036									^;SEE PI2 PRINT
  2037					^
  2038						PIO 40^	CLEAN^
  2039	032130	7 000 20 0 00 634440 		CONO	634440
  2040	032131	7 004 20 0 00 010000 		CONO	PI,10000
  2041									^
  2042	032132	7 004 20 0 00 002040 		CONO	PI,PIOSET+40	;PIO FAIL TO SET IF LIGHT OUT
  2043	032133	7 004 34 0 00 000040 		CONSO	PI,40		;OTHERWISE FAIL TO READ
  2044						STOP			^
  2045	032134	254 04 0 00 032135 		HALT	.+1
  2046	032135	320 00 0 00 032136 		JUMP	.+1
  2047									^;STATUS SE P12-IOB1 PRINT
  2048
  2049						CLEAN			^
  2050	032136	7 000 20 0 00 634440 		CONO	634440
  2051	032137	7 004 20 0 00 010000 		CONO	PI,10000
  2052									^;CHECK PIO CLEAR
  2053	032140	7 004 20 0 00 002040 		CONO	PI,PIOSET+40	;SET PIO
  2054	032141	7 004 20 0 00 001040 		CONO	PI,PIOCLR+40	;TRY TO CLEAR
  2055	032142	7 004 30 0 00 000040 		CONSZ	PI,40		;LIGHT=FAIL TO CLEAR PI2 PRINT
  2056						STOP			^
  2057	032143	254 04 0 00 032144 		HALT	.+1
  2058	032144	320 00 0 00 032145 		JUMP	.+1
  2059									^;NO LIGHT=STATUS FAIL IOB1 PRINT
  2060
  2061						CLEAN			^
  2062	032145	7 000 20 0 00 634440 		CONO	634440
  2063	032146	7 004 20 0 00 010000 		CONO	PI,10000
  2064									^;CHECK FOR PI RESET
  2065	032147	7 004 20 0 00 002040 		CONO	PI,PIOSET+40	;ABILITY TO CLEAR PIO FLAG
  2066	032150	7 004 20 0 00 010000 		CONO	PI,10000	;SEE PI2 PRINT, PI RESET
  2067	032151	7 004 30 0 00 000040 		CONSZ	PI,40		;TO PIO FLAGS
  2068						STOP^
  2069	032152	254 04 0 00 032153 		HALT	.+1
  2070	032153	320 00 0 00 032154 		JUMP	.+1
  2071									^
  2072
  2073						CLEAN			^
  2074	032154	7 000 20 0 00 634440 		CONO	634440
  2075	032155	7 004 20 0 00 010000 		CONO	PI,10000
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 25-2
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0058

  2076									^;TEST PIO SET
  2077	032156	7 004 20 0 00 002000 		CONO	PI,PIOSET	;SEE PI2 PRINT
  2078	032157	7 004 30 0 00 000040 		CONSZ	PI,40		;IT SET FLOP WITHOUT
  2079						STOP			^
  2080	032160	254 04 0 00 032161 		HALT	.+1
  2081	032161	320 00 0 00 032162 		JUMP	.+1
  2082									^;40 IOB BIT
  2083
  2084						CLEAN			^
  2085	032162	7 000 20 0 00 634440 		CONO	634440
  2086	032163	7 004 20 0 00 010000 		CONO	PI,10000
  2087									^;TEST PIO CLR
  2088	032164	7 004 20 0 00 002040 		CONO	PI,PIOSET+40	;PERHAPS PI RESET OCCURED (NO IOB-23)
  2089	032165	7 004 20 0 00 001000 		CONO	PI,PIOCLR	;THE FLOP CLEARED
  2090	032166	7 004 34 0 00 000040 		CONSO	PI,40		;WITH OUT 40 IOB BIT
  2091						STOP			^
  2092	032167	254 04 0 00 032170 		HALT	.+1
  2093	032170	320 00 0 00 032171 		JUMP	.+1
  2094									^;SEE PI2 PRINT
  2095					^
  2096
  2097	032171				MOD73:	CHANEL	MOD75^
  2098	032171	336 00 0 00 036672 		SKIPN	PI7SYS#
  2099	032172	254 00 0 00 032440 		JRST	MOD75
  2100									^
  2101						PIO 20^	CLEAN^
  2102	032173	7 000 20 0 00 634440 		CONO	634440
  2103	032174	7 004 20 0 00 010000 		CONO	PI,10000
  2104									^
  2105	032175	7 004 20 0 00 002020 		CONO	PI,PIOSET+20	;PIO FAIL TO SET IF LIGHT OUT
  2106	032176	7 004 34 0 00 000020 		CONSO	PI,20		;OTHERWISE FAIL TO READ
  2107						STOP			^
  2108	032177	254 04 0 00 032200 		HALT	.+1
  2109	032200	320 00 0 00 032201 		JUMP	.+1
  2110									^;STATUS SE P12-IOB1 PRINT
  2111
  2112						CLEAN			^
  2113	032201	7 000 20 0 00 634440 		CONO	634440
  2114	032202	7 004 20 0 00 010000 		CONO	PI,10000
  2115									^;CHECK PIO CLEAR
  2116	032203	7 004 20 0 00 002020 		CONO	PI,PIOSET+20	;SET PIO
  2117	032204	7 004 20 0 00 001020 		CONO	PI,PIOCLR+20	;TRY TO CLEAR
  2118	032205	7 004 30 0 00 000020 		CONSZ	PI,20		;LIGHT=FAIL TO CLEAR PI2 PRINT
  2119						STOP			^
  2120	032206	254 04 0 00 032207 		HALT	.+1
  2121	032207	320 00 0 00 032210 		JUMP	.+1
  2122									^;NO LIGHT=STATUS FAIL IOB1 PRINT
  2123
  2124						CLEAN			^
  2125	032210	7 000 20 0 00 634440 		CONO	634440
  2126	032211	7 004 20 0 00 010000 		CONO	PI,10000
  2127									^;CHECK FOR PI RESET
  2128	032212	7 004 20 0 00 002020 		CONO	PI,PIOSET+20	;ABILITY TO CLEAR PIO FLAG
  2129	032213	7 004 20 0 00 010000 		CONO	PI,10000	;SEE PI2 PRINT, PI RESET
  2130	032214	7 004 30 0 00 000020 		CONSZ	PI,20		;TO PIO FLAGS
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 25-3
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0059

  2131						STOP^
  2132	032215	254 04 0 00 032216 		HALT	.+1
  2133	032216	320 00 0 00 032217 		JUMP	.+1
  2134									^
  2135
  2136						CLEAN			^
  2137	032217	7 000 20 0 00 634440 		CONO	634440
  2138	032220	7 004 20 0 00 010000 		CONO	PI,10000
  2139									^;TEST PIO SET
  2140	032221	7 004 20 0 00 002000 		CONO	PI,PIOSET	;SEE PI2 PRINT
  2141	032222	7 004 30 0 00 000020 		CONSZ	PI,20		;IT SET FLOP WITHOUT
  2142						STOP			^
  2143	032223	254 04 0 00 032224 		HALT	.+1
  2144	032224	320 00 0 00 032225 		JUMP	.+1
  2145									^;20 IOB BIT
  2146
  2147						CLEAN			^
  2148	032225	7 000 20 0 00 634440 		CONO	634440
  2149	032226	7 004 20 0 00 010000 		CONO	PI,10000
  2150									^;TEST PIO CLR
  2151	032227	7 004 20 0 00 002020 		CONO	PI,PIOSET+20	;PERHAPS PI RESET OCCURED (NO IOB-23)
  2152	032230	7 004 20 0 00 001000 		CONO	PI,PIOCLR	;THE FLOP CLEARED
  2153	032231	7 004 34 0 00 000020 		CONSO	PI,20		;WITH OUT 20 IOB BIT
  2154						STOP			^
  2155	032232	254 04 0 00 032233 		HALT	.+1
  2156	032233	320 00 0 00 032234 		JUMP	.+1
  2157									^;SEE PI2 PRINT
  2158					^
  2159						PIO 10^	CLEAN^
  2160	032234	7 000 20 0 00 634440 		CONO	634440
  2161	032235	7 004 20 0 00 010000 		CONO	PI,10000
  2162									^
  2163	032236	7 004 20 0 00 002010 		CONO	PI,PIOSET+10	;PIO FAIL TO SET IF LIGHT OUT
  2164	032237	7 004 34 0 00 000010 		CONSO	PI,10		;OTHERWISE FAIL TO READ
  2165						STOP			^
  2166	032240	254 04 0 00 032241 		HALT	.+1
  2167	032241	320 00 0 00 032242 		JUMP	.+1
  2168									^;STATUS SE P12-IOB1 PRINT
  2169
  2170						CLEAN			^
  2171	032242	7 000 20 0 00 634440 		CONO	634440
  2172	032243	7 004 20 0 00 010000 		CONO	PI,10000
  2173									^;CHECK PIO CLEAR
  2174	032244	7 004 20 0 00 002010 		CONO	PI,PIOSET+10	;SET PIO
  2175	032245	7 004 20 0 00 001010 		CONO	PI,PIOCLR+10	;TRY TO CLEAR
  2176	032246	7 004 30 0 00 000010 		CONSZ	PI,10		;LIGHT=FAIL TO CLEAR PI2 PRINT
  2177						STOP			^
  2178	032247	254 04 0 00 032250 		HALT	.+1
  2179	032250	320 00 0 00 032251 		JUMP	.+1
  2180									^;NO LIGHT=STATUS FAIL IOB1 PRINT
  2181
  2182						CLEAN			^
  2183	032251	7 000 20 0 00 634440 		CONO	634440
  2184	032252	7 004 20 0 00 010000 		CONO	PI,10000
  2185									^;CHECK FOR PI RESET
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 25-4
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0060

  2186	032253	7 004 20 0 00 002010 		CONO	PI,PIOSET+10	;ABILITY TO CLEAR PIO FLAG
  2187	032254	7 004 20 0 00 010000 		CONO	PI,10000	;SEE PI2 PRINT, PI RESET
  2188	032255	7 004 30 0 00 000010 		CONSZ	PI,10		;TO PIO FLAGS
  2189						STOP^
  2190	032256	254 04 0 00 032257 		HALT	.+1
  2191	032257	320 00 0 00 032260 		JUMP	.+1
  2192									^
  2193
  2194						CLEAN			^
  2195	032260	7 000 20 0 00 634440 		CONO	634440
  2196	032261	7 004 20 0 00 010000 		CONO	PI,10000
  2197									^;TEST PIO SET
  2198	032262	7 004 20 0 00 002000 		CONO	PI,PIOSET	;SEE PI2 PRINT
  2199	032263	7 004 30 0 00 000010 		CONSZ	PI,10		;IT SET FLOP WITHOUT
  2200						STOP			^
  2201	032264	254 04 0 00 032265 		HALT	.+1
  2202	032265	320 00 0 00 032266 		JUMP	.+1
  2203									^;10 IOB BIT
  2204
  2205						CLEAN			^
  2206	032266	7 000 20 0 00 634440 		CONO	634440
  2207	032267	7 004 20 0 00 010000 		CONO	PI,10000
  2208									^;TEST PIO CLR
  2209	032270	7 004 20 0 00 002010 		CONO	PI,PIOSET+10	;PERHAPS PI RESET OCCURED (NO IOB-23)
  2210	032271	7 004 20 0 00 001000 		CONO	PI,PIOCLR	;THE FLOP CLEARED
  2211	032272	7 004 34 0 00 000010 		CONSO	PI,10		;WITH OUT 10 IOB BIT
  2212						STOP			^
  2213	032273	254 04 0 00 032274 		HALT	.+1
  2214	032274	320 00 0 00 032275 		JUMP	.+1
  2215									^;SEE PI2 PRINT
  2216					^
  2217
  2218	032275				MOD74:	PIO 4^	CLEAN^
  2219	032275	7 000 20 0 00 634440 		CONO	634440
  2220	032276	7 004 20 0 00 010000 		CONO	PI,10000
  2221									^
  2222	032277	7 004 20 0 00 002004 		CONO	PI,PIOSET+4	;PIO FAIL TO SET IF LIGHT OUT
  2223	032300	7 004 34 0 00 000004 		CONSO	PI,4		;OTHERWISE FAIL TO READ
  2224						STOP			^
  2225	032301	254 04 0 00 032302 		HALT	.+1
  2226	032302	320 00 0 00 032303 		JUMP	.+1
  2227									^;STATUS SE P12-IOB1 PRINT
  2228
  2229						CLEAN			^
  2230	032303	7 000 20 0 00 634440 		CONO	634440
  2231	032304	7 004 20 0 00 010000 		CONO	PI,10000
  2232									^;CHECK PIO CLEAR
  2233	032305	7 004 20 0 00 002004 		CONO	PI,PIOSET+4	;SET PIO
  2234	032306	7 004 20 0 00 001004 		CONO	PI,PIOCLR+4	;TRY TO CLEAR
  2235	032307	7 004 30 0 00 000004 		CONSZ	PI,4		;LIGHT=FAIL TO CLEAR PI2 PRINT
  2236						STOP			^
  2237	032310	254 04 0 00 032311 		HALT	.+1
  2238	032311	320 00 0 00 032312 		JUMP	.+1
  2239									^;NO LIGHT=STATUS FAIL IOB1 PRINT
  2240
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 25-5
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0061

  2241						CLEAN			^
  2242	032312	7 000 20 0 00 634440 		CONO	634440
  2243	032313	7 004 20 0 00 010000 		CONO	PI,10000
  2244									^;CHECK FOR PI RESET
  2245	032314	7 004 20 0 00 002004 		CONO	PI,PIOSET+4	;ABILITY TO CLEAR PIO FLAG
  2246	032315	7 004 20 0 00 010000 		CONO	PI,10000	;SEE PI2 PRINT, PI RESET
  2247	032316	7 004 30 0 00 000004 		CONSZ	PI,4		;TO PIO FLAGS
  2248						STOP^
  2249	032317	254 04 0 00 032320 		HALT	.+1
  2250	032320	320 00 0 00 032321 		JUMP	.+1
  2251									^
  2252
  2253						CLEAN			^
  2254	032321	7 000 20 0 00 634440 		CONO	634440
  2255	032322	7 004 20 0 00 010000 		CONO	PI,10000
  2256									^;TEST PIO SET
  2257	032323	7 004 20 0 00 002000 		CONO	PI,PIOSET	;SEE PI2 PRINT
  2258	032324	7 004 30 0 00 000004 		CONSZ	PI,4		;IT SET FLOP WITHOUT
  2259						STOP			^
  2260	032325	254 04 0 00 032326 		HALT	.+1
  2261	032326	320 00 0 00 032327 		JUMP	.+1
  2262									^;4 IOB BIT
  2263
  2264						CLEAN			^
  2265	032327	7 000 20 0 00 634440 		CONO	634440
  2266	032330	7 004 20 0 00 010000 		CONO	PI,10000
  2267									^;TEST PIO CLR
  2268	032331	7 004 20 0 00 002004 		CONO	PI,PIOSET+4	;PERHAPS PI RESET OCCURED (NO IOB-23)
  2269	032332	7 004 20 0 00 001000 		CONO	PI,PIOCLR	;THE FLOP CLEARED
  2270	032333	7 004 34 0 00 000004 		CONSO	PI,4		;WITH OUT 4 IOB BIT
  2271						STOP			^
  2272	032334	254 04 0 00 032335 		HALT	.+1
  2273	032335	320 00 0 00 032336 		JUMP	.+1
  2274									^;SEE PI2 PRINT
  2275					^
  2276						PIO 2^	CLEAN^
  2277	032336	7 000 20 0 00 634440 		CONO	634440
  2278	032337	7 004 20 0 00 010000 		CONO	PI,10000
  2279									^
  2280	032340	7 004 20 0 00 002002 		CONO	PI,PIOSET+2	;PIO FAIL TO SET IF LIGHT OUT
  2281	032341	7 004 34 0 00 000002 		CONSO	PI,2		;OTHERWISE FAIL TO READ
  2282						STOP			^
  2283	032342	254 04 0 00 032343 		HALT	.+1
  2284	032343	320 00 0 00 032344 		JUMP	.+1
  2285									^;STATUS SE P12-IOB1 PRINT
  2286
  2287						CLEAN			^
  2288	032344	7 000 20 0 00 634440 		CONO	634440
  2289	032345	7 004 20 0 00 010000 		CONO	PI,10000
  2290									^;CHECK PIO CLEAR
  2291	032346	7 004 20 0 00 002002 		CONO	PI,PIOSET+2	;SET PIO
  2292	032347	7 004 20 0 00 001002 		CONO	PI,PIOCLR+2	;TRY TO CLEAR
  2293	032350	7 004 30 0 00 000002 		CONSZ	PI,2		;LIGHT=FAIL TO CLEAR PI2 PRINT
  2294						STOP			^
  2295	032351	254 04 0 00 032352 		HALT	.+1
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 25-6
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0062

  2296	032352	320 00 0 00 032353 		JUMP	.+1
  2297									^;NO LIGHT=STATUS FAIL IOB1 PRINT
  2298
  2299						CLEAN			^
  2300	032353	7 000 20 0 00 634440 		CONO	634440
  2301	032354	7 004 20 0 00 010000 		CONO	PI,10000
  2302									^;CHECK FOR PI RESET
  2303	032355	7 004 20 0 00 002002 		CONO	PI,PIOSET+2	;ABILITY TO CLEAR PIO FLAG
  2304	032356	7 004 20 0 00 010000 		CONO	PI,10000	;SEE PI2 PRINT, PI RESET
  2305	032357	7 004 30 0 00 000002 		CONSZ	PI,2		;TO PIO FLAGS
  2306						STOP^
  2307	032360	254 04 0 00 032361 		HALT	.+1
  2308	032361	320 00 0 00 032362 		JUMP	.+1
  2309									^
  2310
  2311						CLEAN			^
  2312	032362	7 000 20 0 00 634440 		CONO	634440
  2313	032363	7 004 20 0 00 010000 		CONO	PI,10000
  2314									^;TEST PIO SET
  2315	032364	7 004 20 0 00 002000 		CONO	PI,PIOSET	;SEE PI2 PRINT
  2316	032365	7 004 30 0 00 000002 		CONSZ	PI,2		;IT SET FLOP WITHOUT
  2317						STOP			^
  2318	032366	254 04 0 00 032367 		HALT	.+1
  2319	032367	320 00 0 00 032370 		JUMP	.+1
  2320									^;2 IOB BIT
  2321
  2322						CLEAN			^
  2323	032370	7 000 20 0 00 634440 		CONO	634440
  2324	032371	7 004 20 0 00 010000 		CONO	PI,10000
  2325									^;TEST PIO CLR
  2326	032372	7 004 20 0 00 002002 		CONO	PI,PIOSET+2	;PERHAPS PI RESET OCCURED (NO IOB-23)
  2327	032373	7 004 20 0 00 001000 		CONO	PI,PIOCLR	;THE FLOP CLEARED
  2328	032374	7 004 34 0 00 000002 		CONSO	PI,2		;WITH OUT 2 IOB BIT
  2329						STOP			^
  2330	032375	254 04 0 00 032376 		HALT	.+1
  2331	032376	320 00 0 00 032377 		JUMP	.+1
  2332									^;SEE PI2 PRINT
  2333					^
  2334						PIO 1^	CLEAN^
  2335	032377	7 000 20 0 00 634440 		CONO	634440
  2336	032400	7 004 20 0 00 010000 		CONO	PI,10000
  2337									^
  2338	032401	7 004 20 0 00 002001 		CONO	PI,PIOSET+1	;PIO FAIL TO SET IF LIGHT OUT
  2339	032402	7 004 34 0 00 000001 		CONSO	PI,1		;OTHERWISE FAIL TO READ
  2340						STOP			^
  2341	032403	254 04 0 00 032404 		HALT	.+1
  2342	032404	320 00 0 00 032405 		JUMP	.+1
  2343									^;STATUS SE P12-IOB1 PRINT
  2344
  2345						CLEAN			^
  2346	032405	7 000 20 0 00 634440 		CONO	634440
  2347	032406	7 004 20 0 00 010000 		CONO	PI,10000
  2348									^;CHECK PIO CLEAR
  2349	032407	7 004 20 0 00 002001 		CONO	PI,PIOSET+1	;SET PIO
  2350	032410	7 004 20 0 00 001001 		CONO	PI,PIOCLR+1	;TRY TO CLEAR
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 25-7
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0063

  2351	032411	7 004 30 0 00 000001 		CONSZ	PI,1		;LIGHT=FAIL TO CLEAR PI2 PRINT
  2352						STOP			^
  2353	032412	254 04 0 00 032413 		HALT	.+1
  2354	032413	320 00 0 00 032414 		JUMP	.+1
  2355									^;NO LIGHT=STATUS FAIL IOB1 PRINT
  2356
  2357						CLEAN			^
  2358	032414	7 000 20 0 00 634440 		CONO	634440
  2359	032415	7 004 20 0 00 010000 		CONO	PI,10000
  2360									^;CHECK FOR PI RESET
  2361	032416	7 004 20 0 00 002001 		CONO	PI,PIOSET+1	;ABILITY TO CLEAR PIO FLAG
  2362	032417	7 004 20 0 00 010000 		CONO	PI,10000	;SEE PI2 PRINT, PI RESET
  2363	032420	7 004 30 0 00 000001 		CONSZ	PI,1		;TO PIO FLAGS
  2364						STOP^
  2365	032421	254 04 0 00 032422 		HALT	.+1
  2366	032422	320 00 0 00 032423 		JUMP	.+1
  2367									^
  2368
  2369						CLEAN			^
  2370	032423	7 000 20 0 00 634440 		CONO	634440
  2371	032424	7 004 20 0 00 010000 		CONO	PI,10000
  2372									^;TEST PIO SET
  2373	032425	7 004 20 0 00 002000 		CONO	PI,PIOSET	;SEE PI2 PRINT
  2374	032426	7 004 30 0 00 000001 		CONSZ	PI,1		;IT SET FLOP WITHOUT
  2375						STOP			^
  2376	032427	254 04 0 00 032430 		HALT	.+1
  2377	032430	320 00 0 00 032431 		JUMP	.+1
  2378									^;1 IOB BIT
  2379
  2380						CLEAN			^
  2381	032431	7 000 20 0 00 634440 		CONO	634440
  2382	032432	7 004 20 0 00 010000 		CONO	PI,10000
  2383									^;TEST PIO CLR
  2384	032433	7 004 20 0 00 002001 		CONO	PI,PIOSET+1	;PERHAPS PI RESET OCCURED (NO IOB-23)
  2385	032434	7 004 20 0 00 001000 		CONO	PI,PIOCLR	;THE FLOP CLEARED
  2386	032435	7 004 34 0 00 000001 		CONSO	PI,1		;WITH OUT 1 IOB BIT
  2387						STOP			^
  2388	032436	254 04 0 00 032437 		HALT	.+1
  2389	032437	320 00 0 00 032440 		JUMP	.+1
  2390									^;SEE PI2 PRINT
  2391					^
  2392	032440				MOD75:	CLEAN^
  2393	032440	7 000 20 0 00 634440 		CONO	634440
  2394	032441	7 004 20 0 00 010000 		CONO	PI,10000
  2395									^
  2396	032442				MOD76:	CLEAN^
  2397	032442	7 000 20 0 00 634440 		CONO	634440
  2398	032443	7 004 20 0 00 010000 		CONO	PI,10000
  2399									^
  2400	032444	7 004 20 0 00 002100 		CONO	PI,PIOSET+100	;PI RESET OCCURED
  2401	032445	7 004 20 0 00 000000 		CONO	PI,0		;WITH OUT IOB-23
  2402	032446	7 004 34 0 00 000100 		CONSO	PI,100		;SEE PI1 PRINT
  2403						STOP^
  2404	032447	254 04 0 00 032450 		HALT	.+1
  2405	032450	320 00 0 00 032451 		JUMP	.+1
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 25-8
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0064

  2406									^
  2407
  2408						CLEAN			^;PI RESET OCCURED
  2409
  2410	032451	7 000 20 0 00 634440 		CONO	634440
  2411	032452	7 004 20 0 00 010000 		CONO	PI,10000
  2412				
  2413	032453	7 004 20 0 00 002100 		CONO	PI,PIOSET+100	;WITH OUT PI SEL
  2414	032454	7 774 20 0 00 001000 		CONO	ME,1000		;SEE PI1 PRINT
  2415	032455	7 004 34 0 00 000100 		CONSO	PI,100
  2416						STOP^
  2417	032456	254 04 0 00 032457 		HALT	.+1
  2418	032457	320 00 0 00 032460 		JUMP	.+1
  2419									^
  2420
  2421						CLEAN^
  2422	032460	7 000 20 0 00 634440 		CONO	634440
  2423	032461	7 004 20 0 00 010000 		CONO	PI,10000
  2424									^
  2425	032462	7 004 20 0 00 002100 		CONO	PI,PIOSET+100	;CHECK SELECTION
  2426	032463	7 774 20 0 00 001100 		CONO	ME,PIOCLR+100	;ON CONO SETL. SEE
  2427	032464	7 004 34 0 00 000100 		CONSO	PI,100		;PI1 PRINT  CONO ME
  2428						STOP			^;SHOULD NOT EFFECT PI
  2429
  2430	032465	254 04 0 00 032466 		HALT	.+1
  2431	032466	320 00 0 00 032467 		JUMP	.+1
  2432				
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 26
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0065

  2433	032467				MOD77:	CLEAN^
  2434	032467	7 000 20 0 00 634440 		CONO	634440
  2435	032470	7 004 20 0 00 010000 		CONO	PI,10000
  2436									^
  2437	032471	7 004 20 0 00 000200 		CONO	PI,ACT		;SET ACTIVE THEN
  2438	032472	7 004 20 0 00 010000 		CONO	PI,10000	;TRY TO CLEAR VIA PI RESET
  2439	032473	7 004 30 0 00 000200 		CONSZ	PI,200		;FAIL TO CLEAR  SEE P11 PRINT
  2440						STOP			^;THE PI ACT FLAG
  2441
  2442	032474	254 04 0 00 032475 		HALT	.+1
  2443	032475	320 00 0 00 032476 		JUMP	.+1
  2444				
  2445						CLEAN^
  2446	032476	7 000 20 0 00 634440 		CONO	634440
  2447	032477	7 004 20 0 00 010000 		CONO	PI,10000
  2448									^
  2449	032500	7 004 20 0 00 000200 		CONO	PI,ACT		;SET ACTIVE THEN
  2450	032501	7 004 20 0 00 000400 		CONO	PI,400		;TRY TO CLEAR VIA CONO
  2451	032502	7 004 30 0 00 000200 		CONSZ	PI,200		;AND BIT27 SEE PI1
  2452						STOP			^;PRINT ACTIVE FLAG
  2453
  2454	032503	254 04 0 00 032504 		HALT	.+1
  2455	032504	320 00 0 00 032505 		JUMP	.+1
  2456				
  2457						CLEAN^
  2458	032505	7 000 20 0 00 634440 		CONO	634440
  2459	032506	7 004 20 0 00 010000 		CONO	PI,10000
  2460									^
  2461	032507	7 004 20 0 00 000200 		CONO	PI,ACT		;SEE ACT VIA CONO BIT 28
  2462	032510	7 004 34 0 00 000200 		CONSO	PI,200		;LIGHT=0 FAIL TO SET
  2463						STOP			^;LIGHT=(1) FAIL TO READ PI1-IOB1
  2464
  2465	032511	254 04 0 00 032512 		HALT	.+1
  2466	032512	320 00 0 00 032513 		JUMP	.+1
  2467				
  2468						CLEAN^
  2469	032513	7 000 20 0 00 634440 		CONO	634440
  2470	032514	7 004 20 0 00 010000 		CONO	PI,10000
  2471									^
  2472	032515	7 004 20 0 00 000200 		CONO	PI,ACT		;SEE ABOVE
  2473	032516	7 004 20 0 00 000200 		CONO	PI,ACT
  2474	032517	7 004 34 0 00 000200 		CONSO	PI,200
  2475						STOP			^;PI ACT FAIL
  2476
  2477	032520	254 04 0 00 032521 		HALT	.+1
  2478	032521	320 00 0 00 032522 		JUMP	.+1
  2479				
  2480
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 27
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0066

  2481					DEFINE	NOTPIR	(A)<
  2482						CLEAN			;ENABLE PRIORITY, EXPECT NO INTERRUPTS
  2483						CONO	PI,ACT		;CK PI REQ LEVEL (PI2 PRINT).  THE
  2484						CONSZ	PI,A		;PIR (1) INPUT TO AND GATE OF PIH (0)
  2485						STOP			;BOTTEM OF PAGE.  ALSO PIR-FLOP
  2486					>
  2487	032522				MOD78:	BLURB^
  2488					;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
  2489					;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
  2490					;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
  2491					;INSTRUCTION
  2492					^
  2493					;CHECK CHANNEL 1, PIR1 FLOP OR RI REQ1 LEVEL
  2494						NOTPIR	40000^
  2495						CLEAN			^
  2496	032522	7 000 20 0 00 634440 		CONO	634440
  2497	032523	7 004 20 0 00 010000 		CONO	PI,10000
  2498									^;ENABLE PRIORITY, EXPECT NO INTERRUPTS
  2499	032524	7 004 20 0 00 000200 		CONO	PI,ACT		;CK PI REQ LEVEL (PI2 PRINT).  THE
  2500	032525	7 004 30 0 00 040000 		CONSZ	PI,40000		;PIR (1) INPUT TO AND GATE OF PIH (0)
  2501						STOP			^
  2502	032526	254 04 0 00 032527 		HALT	.+1
  2503	032527	320 00 0 00 032530 		JUMP	.+1
  2504									^;BOTTEM OF PAGE.  ALSO PIR-FLOP
  2505					^
  2506					;CHECK CHANNEL 2, PIR2  FLOP OR PI REQ2 LEVEL
  2507						NOTPIR	20000^
  2508						CLEAN			^
  2509	032530	7 000 20 0 00 634440 		CONO	634440
  2510	032531	7 004 20 0 00 010000 		CONO	PI,10000
  2511									^;ENABLE PRIORITY, EXPECT NO INTERRUPTS
  2512	032532	7 004 20 0 00 000200 		CONO	PI,ACT		;CK PI REQ LEVEL (PI2 PRINT).  THE
  2513	032533	7 004 30 0 00 020000 		CONSZ	PI,20000		;PIR (1) INPUT TO AND GATE OF PIH (0)
  2514						STOP			^
  2515	032534	254 04 0 00 032535 		HALT	.+1
  2516	032535	320 00 0 00 032536 		JUMP	.+1
  2517									^;BOTTEM OF PAGE.  ALSO PIR-FLOP
  2518					^
  2519					;CHECK CHANNEL 3, PIR3 FLOP OR PI REQ3 LEVEL
  2520						NOTPIR	10000^
  2521						CLEAN			^
  2522	032536	7 000 20 0 00 634440 		CONO	634440
  2523	032537	7 004 20 0 00 010000 		CONO	PI,10000
  2524									^;ENABLE PRIORITY, EXPECT NO INTERRUPTS
  2525	032540	7 004 20 0 00 000200 		CONO	PI,ACT		;CK PI REQ LEVEL (PI2 PRINT).  THE
  2526	032541	7 004 30 0 00 010000 		CONSZ	PI,10000		;PIR (1) INPUT TO AND GATE OF PIH (0)
  2527						STOP			^
  2528	032542	254 04 0 00 032543 		HALT	.+1
  2529	032543	320 00 0 00 032544 		JUMP	.+1
  2530									^;BOTTEM OF PAGE.  ALSO PIR-FLOP
  2531					^
  2532					;CHECK CHANNEL 4, PIR4 FLOP OR PI REQ4 LEVEL
  2533						NOTPIR	4000^
  2534						CLEAN			^
  2535	032544	7 000 20 0 00 634440 		CONO	634440
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 27-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0067

  2536	032545	7 004 20 0 00 010000 		CONO	PI,10000
  2537									^;ENABLE PRIORITY, EXPECT NO INTERRUPTS
  2538	032546	7 004 20 0 00 000200 		CONO	PI,ACT		;CK PI REQ LEVEL (PI2 PRINT).  THE
  2539	032547	7 004 30 0 00 004000 		CONSZ	PI,4000		;PIR (1) INPUT TO AND GATE OF PIH (0)
  2540						STOP			^
  2541	032550	254 04 0 00 032551 		HALT	.+1
  2542	032551	320 00 0 00 032552 		JUMP	.+1
  2543									^;BOTTEM OF PAGE.  ALSO PIR-FLOP
  2544					^
  2545					;CHECK CHANNEL 5, PIR5 FLOP OR PI REQ5 LEVEL
  2546						NOTPIR	2000^
  2547						CLEAN			^
  2548	032552	7 000 20 0 00 634440 		CONO	634440
  2549	032553	7 004 20 0 00 010000 		CONO	PI,10000
  2550									^;ENABLE PRIORITY, EXPECT NO INTERRUPTS
  2551	032554	7 004 20 0 00 000200 		CONO	PI,ACT		;CK PI REQ LEVEL (PI2 PRINT).  THE
  2552	032555	7 004 30 0 00 002000 		CONSZ	PI,2000		;PIR (1) INPUT TO AND GATE OF PIH (0)
  2553						STOP			^
  2554	032556	254 04 0 00 032557 		HALT	.+1
  2555	032557	320 00 0 00 032560 		JUMP	.+1
  2556									^;BOTTEM OF PAGE.  ALSO PIR-FLOP
  2557					^
  2558					;CHECK CHANNEL 6, PIR6 FLOP OR PI REQ6 LEVEL
  2559						NOTPIR	1000^
  2560						CLEAN			^
  2561	032560	7 000 20 0 00 634440 		CONO	634440
  2562	032561	7 004 20 0 00 010000 		CONO	PI,10000
  2563									^;ENABLE PRIORITY, EXPECT NO INTERRUPTS
  2564	032562	7 004 20 0 00 000200 		CONO	PI,ACT		;CK PI REQ LEVEL (PI2 PRINT).  THE
  2565	032563	7 004 30 0 00 001000 		CONSZ	PI,1000		;PIR (1) INPUT TO AND GATE OF PIH (0)
  2566						STOP			^
  2567	032564	254 04 0 00 032565 		HALT	.+1
  2568	032565	320 00 0 00 032566 		JUMP	.+1
  2569									^;BOTTEM OF PAGE.  ALSO PIR-FLOP
  2570					^
  2571					;CHECK CHANNEL 7, PIR 7 FLOP OR PI REQ7 LEVEL
  2572						NOTPIR	400^
  2573						CLEAN			^
  2574	032566	7 000 20 0 00 634440 		CONO	634440
  2575	032567	7 004 20 0 00 010000 		CONO	PI,10000
  2576									^;ENABLE PRIORITY, EXPECT NO INTERRUPTS
  2577	032570	7 004 20 0 00 000200 		CONO	PI,ACT		;CK PI REQ LEVEL (PI2 PRINT).  THE
  2578	032571	7 004 30 0 00 000400 		CONSZ	PI,400		;PIR (1) INPUT TO AND GATE OF PIH (0)
  2579						STOP			^
  2580	032572	254 04 0 00 032573 		HALT	.+1
  2581	032573	320 00 0 00 032574 		JUMP	.+1
  2582									^;BOTTEM OF PAGE.  ALSO PIR-FLOP
  2583					^
  2584
  2585					DEFINE	NOTREQ	(A,B)<
  2586						CLEAN			;A TEST OF PI OK TO PREVENT INTERRUPT
  2587						CONO	PI,PIREQ+A	;ACTIVE CLEARED, REQUEST FLAG SET
  2588						CONSZ	PI,B		;INTR OCCURED PIOK INPUT, PIOK TO PI
  2589						STOP			;REQ FAIL.  SEE BOTTEM PI2 PRINT
  2590					>
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 27-2
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0068

  2591
  2592	032574				MOD79:	BLURB^
  2593					;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
  2594					;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
  2595					;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
  2596					;INSTRUCTION
  2597					^
  2598					;TEST PI ACT ABILITY TO PREVENT PI REQ1, INTERRUPT VIA ACTIVE
  2599						NOTREQ	100,40000^
  2600						CLEAN			^
  2601	032574	7 000 20 0 00 634440 		CONO	634440
  2602	032575	7 004 20 0 00 010000 		CONO	PI,10000
  2603									^;100 TEST OF PI OK TO PREVENT INTERRUPT
  2604	032576	7 004 20 0 00 004100 		CONO	PI,PIREQ+100	;ACTIVE CLEARED, REQUEST FLAG SET
  2605	032577	7 004 30 0 00 040000 		CONSZ	PI,40000		;INTR OCCURED PIOK INPUT, PIOK TO PI
  2606						STOP			^
  2607	032600	254 04 0 00 032601 		HALT	.+1
  2608	032601	320 00 0 00 032602 		JUMP	.+1
  2609									^;REQ FAIL.  SEE BOTTEM PI2 PRINT
  2610					^
  2611					;TEST PIOK2 ABILITY TO PREVENT PI REQ2, INTERRUPT
  2612						NOTREQ	40,20000^
  2613						CLEAN			^
  2614	032602	7 000 20 0 00 634440 		CONO	634440
  2615	032603	7 004 20 0 00 010000 		CONO	PI,10000
  2616									^;40 TEST OF PI OK TO PREVENT INTERRUPT
  2617	032604	7 004 20 0 00 004040 		CONO	PI,PIREQ+40	;ACTIVE CLEARED, REQUEST FLAG SET
  2618	032605	7 004 30 0 00 020000 		CONSZ	PI,20000		;INTR OCCURED PIOK INPUT, PIOK TO PI
  2619						STOP			^
  2620	032606	254 04 0 00 032607 		HALT	.+1
  2621	032607	320 00 0 00 032610 		JUMP	.+1
  2622									^;REQ FAIL.  SEE BOTTEM PI2 PRINT
  2623					^
  2624					;TEST PIOK3 ABILITY TO PREVENT PI REQ3, INTERRUPT
  2625						NOTREQ	20,10000^
  2626						CLEAN			^
  2627	032610	7 000 20 0 00 634440 		CONO	634440
  2628	032611	7 004 20 0 00 010000 		CONO	PI,10000
  2629									^;20 TEST OF PI OK TO PREVENT INTERRUPT
  2630	032612	7 004 20 0 00 004020 		CONO	PI,PIREQ+20	;ACTIVE CLEARED, REQUEST FLAG SET
  2631	032613	7 004 30 0 00 010000 		CONSZ	PI,10000		;INTR OCCURED PIOK INPUT, PIOK TO PI
  2632						STOP			^
  2633	032614	254 04 0 00 032615 		HALT	.+1
  2634	032615	320 00 0 00 032616 		JUMP	.+1
  2635									^;REQ FAIL.  SEE BOTTEM PI2 PRINT
  2636					^
  2637					;TEST PIOK4 ABILITY TO PREVENT PI REQ4, INTERRUPT
  2638						NOTREQ	10,4000^
  2639						CLEAN			^
  2640	032616	7 000 20 0 00 634440 		CONO	634440
  2641	032617	7 004 20 0 00 010000 		CONO	PI,10000
  2642									^;10 TEST OF PI OK TO PREVENT INTERRUPT
  2643	032620	7 004 20 0 00 004010 		CONO	PI,PIREQ+10	;ACTIVE CLEARED, REQUEST FLAG SET
  2644	032621	7 004 30 0 00 004000 		CONSZ	PI,4000		;INTR OCCURED PIOK INPUT, PIOK TO PI
  2645						STOP			^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 27-3
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0069

  2646	032622	254 04 0 00 032623 		HALT	.+1
  2647	032623	320 00 0 00 032624 		JUMP	.+1
  2648									^;REQ FAIL.  SEE BOTTEM PI2 PRINT
  2649					^
  2650					;TEST PIOK5 ABILITY TO PREVENT PI REQ5, INTERRUPT
  2651						NOTREQ	4,2000^
  2652						CLEAN			^
  2653	032624	7 000 20 0 00 634440 		CONO	634440
  2654	032625	7 004 20 0 00 010000 		CONO	PI,10000
  2655									^;4 TEST OF PI OK TO PREVENT INTERRUPT
  2656	032626	7 004 20 0 00 004004 		CONO	PI,PIREQ+4	;ACTIVE CLEARED, REQUEST FLAG SET
  2657	032627	7 004 30 0 00 002000 		CONSZ	PI,2000		;INTR OCCURED PIOK INPUT, PIOK TO PI
  2658						STOP			^
  2659	032630	254 04 0 00 032631 		HALT	.+1
  2660	032631	320 00 0 00 032632 		JUMP	.+1
  2661									^;REQ FAIL.  SEE BOTTEM PI2 PRINT
  2662					^
  2663					;TEST PIOK6 ABILITY TO PREVENT PI REQ6, INTERRUPT
  2664						NOTREQ 2,1000^
  2665						CLEAN			^
  2666	032632	7 000 20 0 00 634440 		CONO	634440
  2667	032633	7 004 20 0 00 010000 		CONO	PI,10000
  2668									^;2 TEST OF PI OK TO PREVENT INTERRUPT
  2669	032634	7 004 20 0 00 004002 		CONO	PI,PIREQ+2	;ACTIVE CLEARED, REQUEST FLAG SET
  2670	032635	7 004 30 0 00 001000 		CONSZ	PI,1000		;INTR OCCURED PIOK INPUT, PIOK TO PI
  2671						STOP			^
  2672	032636	254 04 0 00 032637 		HALT	.+1
  2673	032637	320 00 0 00 032640 		JUMP	.+1
  2674									^;REQ FAIL.  SEE BOTTEM PI2 PRINT
  2675					^
  2676					;TEST PIOK7 ABILITY TO PREVENT PI REQ7, INTERRUPT
  2677						NOTREQ	1,400^
  2678						CLEAN			^
  2679	032640	7 000 20 0 00 634440 		CONO	634440
  2680	032641	7 004 20 0 00 010000 		CONO	PI,10000
  2681									^;1 TEST OF PI OK TO PREVENT INTERRUPT
  2682	032642	7 004 20 0 00 004001 		CONO	PI,PIREQ+1	;ACTIVE CLEARED, REQUEST FLAG SET
  2683	032643	7 004 30 0 00 000400 		CONSZ	PI,400		;INTR OCCURED PIOK INPUT, PIOK TO PI
  2684						STOP			^
  2685	032644	254 04 0 00 032645 		HALT	.+1
  2686	032645	320 00 0 00 032646 		JUMP	.+1
  2687									^;REQ FAIL.  SEE BOTTEM PI2 PRINT
  2688					^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 28
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0070

  2689
  2690					DEFINE	PIRCLR	(A)<
  2691						CLEAN
  2692						CONO	PI,PIREQ+A	;SET REQUEST FLOP BUT
  2693						SETZ			;NOT ACTIVE THEN CLEAR
  2694						CONO	PI,10000+ACT	;REQUEST AND SET ACTIVE
  2695						SKIPE			;PI RESET FAILED TO CLEAR
  2696						STOP			;THE PIR FLAG.`SEE PI2 PRINT
  2697					>
  2698
  2699			000100		ZZ=100				;CHECK CLEAR TO PIR FLAGS
  2700						REPEAT	7,<
  2701						PIRCLR	ZZ
  2702						ZZ=ZZ/2>
  2703
  2704						PIRCLR	ZZ^
  2705						CLEAN^
  2706	032646	7 000 20 0 00 634440 		CONO	634440
  2707	032647	7 004 20 0 00 010000 		CONO	PI,10000
  2708									^
  2709	032650	7 004 20 0 00 004100 		CONO	PI,PIREQ+ZZ	;SET REQUEST FLOP BUT
  2710	032651	400 00 0 00 000000 		SETZ			;NOT ACTIVE THEN CLEAR
  2711	032652	7 004 20 0 00 010200 		CONO	PI,10000+ACT	;REQUEST AND SET ACTIVE
  2712	032653	332 00 0 00 000000 		SKIPE			;PI RESET FAILED TO CLEAR
  2713						STOP			^
  2714	032654	254 04 0 00 032655 		HALT	.+1
  2715	032655	320 00 0 00 032656 		JUMP	.+1
  2716									^;THE PIR FLAG.`SEE PI2 PRINT
  2717					^
  2718			000040			ZZ=ZZ/2
  2719
  2720						PIRCLR	ZZ^
  2721						CLEAN^
  2722	032656	7 000 20 0 00 634440 		CONO	634440
  2723	032657	7 004 20 0 00 010000 		CONO	PI,10000
  2724									^
  2725	032660	7 004 20 0 00 004040 		CONO	PI,PIREQ+ZZ	;SET REQUEST FLOP BUT
  2726	032661	400 00 0 00 000000 		SETZ			;NOT ACTIVE THEN CLEAR
  2727	032662	7 004 20 0 00 010200 		CONO	PI,10000+ACT	;REQUEST AND SET ACTIVE
  2728	032663	332 00 0 00 000000 		SKIPE			;PI RESET FAILED TO CLEAR
  2729						STOP			^
  2730	032664	254 04 0 00 032665 		HALT	.+1
  2731	032665	320 00 0 00 032666 		JUMP	.+1
  2732									^;THE PIR FLAG.`SEE PI2 PRINT
  2733					^
  2734			000020			ZZ=ZZ/2
  2735
  2736						PIRCLR	ZZ^
  2737						CLEAN^
  2738	032666	7 000 20 0 00 634440 		CONO	634440
  2739	032667	7 004 20 0 00 010000 		CONO	PI,10000
  2740									^
  2741	032670	7 004 20 0 00 004020 		CONO	PI,PIREQ+ZZ	;SET REQUEST FLOP BUT
  2742	032671	400 00 0 00 000000 		SETZ			;NOT ACTIVE THEN CLEAR
  2743	032672	7 004 20 0 00 010200 		CONO	PI,10000+ACT	;REQUEST AND SET ACTIVE
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 28-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0071

  2744	032673	332 00 0 00 000000 		SKIPE			;PI RESET FAILED TO CLEAR
  2745						STOP			^
  2746	032674	254 04 0 00 032675 		HALT	.+1
  2747	032675	320 00 0 00 032676 		JUMP	.+1
  2748									^;THE PIR FLAG.`SEE PI2 PRINT
  2749					^
  2750			000010			ZZ=ZZ/2
  2751
  2752						PIRCLR	ZZ^
  2753						CLEAN^
  2754	032676	7 000 20 0 00 634440 		CONO	634440
  2755	032677	7 004 20 0 00 010000 		CONO	PI,10000
  2756									^
  2757	032700	7 004 20 0 00 004010 		CONO	PI,PIREQ+ZZ	;SET REQUEST FLOP BUT
  2758	032701	400 00 0 00 000000 		SETZ			;NOT ACTIVE THEN CLEAR
  2759	032702	7 004 20 0 00 010200 		CONO	PI,10000+ACT	;REQUEST AND SET ACTIVE
  2760	032703	332 00 0 00 000000 		SKIPE			;PI RESET FAILED TO CLEAR
  2761						STOP			^
  2762	032704	254 04 0 00 032705 		HALT	.+1
  2763	032705	320 00 0 00 032706 		JUMP	.+1
  2764									^;THE PIR FLAG.`SEE PI2 PRINT
  2765					^
  2766			000004			ZZ=ZZ/2
  2767
  2768						PIRCLR	ZZ^
  2769						CLEAN^
  2770	032706	7 000 20 0 00 634440 		CONO	634440
  2771	032707	7 004 20 0 00 010000 		CONO	PI,10000
  2772									^
  2773	032710	7 004 20 0 00 004004 		CONO	PI,PIREQ+ZZ	;SET REQUEST FLOP BUT
  2774	032711	400 00 0 00 000000 		SETZ			;NOT ACTIVE THEN CLEAR
  2775	032712	7 004 20 0 00 010200 		CONO	PI,10000+ACT	;REQUEST AND SET ACTIVE
  2776	032713	332 00 0 00 000000 		SKIPE			;PI RESET FAILED TO CLEAR
  2777						STOP			^
  2778	032714	254 04 0 00 032715 		HALT	.+1
  2779	032715	320 00 0 00 032716 		JUMP	.+1
  2780									^;THE PIR FLAG.`SEE PI2 PRINT
  2781					^
  2782			000002			ZZ=ZZ/2
  2783
  2784						PIRCLR	ZZ^
  2785						CLEAN^
  2786	032716	7 000 20 0 00 634440 		CONO	634440
  2787	032717	7 004 20 0 00 010000 		CONO	PI,10000
  2788									^
  2789	032720	7 004 20 0 00 004002 		CONO	PI,PIREQ+ZZ	;SET REQUEST FLOP BUT
  2790	032721	400 00 0 00 000000 		SETZ			;NOT ACTIVE THEN CLEAR
  2791	032722	7 004 20 0 00 010200 		CONO	PI,10000+ACT	;REQUEST AND SET ACTIVE
  2792	032723	332 00 0 00 000000 		SKIPE			;PI RESET FAILED TO CLEAR
  2793						STOP			^
  2794	032724	254 04 0 00 032725 		HALT	.+1
  2795	032725	320 00 0 00 032726 		JUMP	.+1
  2796									^;THE PIR FLAG.`SEE PI2 PRINT
  2797					^
  2798			000001			ZZ=ZZ/2
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 28-2
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0072

  2799
  2800						PIRCLR	ZZ^
  2801						CLEAN^
  2802	032726	7 000 20 0 00 634440 		CONO	634440
  2803	032727	7 004 20 0 00 010000 		CONO	PI,10000
  2804									^
  2805	032730	7 004 20 0 00 004001 		CONO	PI,PIREQ+ZZ	;SET REQUEST FLOP BUT
  2806	032731	400 00 0 00 000000 		SETZ			;NOT ACTIVE THEN CLEAR
  2807	032732	7 004 20 0 00 010200 		CONO	PI,10000+ACT	;REQUEST AND SET ACTIVE
  2808	032733	332 00 0 00 000000 		SKIPE			;PI RESET FAILED TO CLEAR
  2809						STOP			^
  2810	032734	254 04 0 00 032735 		HALT	.+1
  2811	032735	320 00 0 00 032736 		JUMP	.+1
  2812									^;THE PIR FLAG.`SEE PI2 PRINT
  2813					^
  2814			000000			ZZ=ZZ/2
  2815
  2816					DEFINE	FILAC<
  2817						MOVE	17,[MOVEI 17]	;FILL ACS WITH
  2818						MOVEM	17,(17)		;MOVEI TO AC 0
  2819						CAME	17,[MOVEI 0]	;THE CURRENT LOC
  2820						SOJA	17,.-2
  2821						MOVE	17,[MOVEI 17]
  2822					>
  2823
  2824						FILAC^
  2825	032736	200 17 0 00 036475 		MOVE	17,[MOVEI 17]	;FILL ACS WITH
  2826	032737	202 17 0 17 000000 		MOVEM	17,(17)		;MOVEI TO AC 0
  2827	032740	312 17 0 00 036476 		CAME	17,[MOVEI 0]	;THE CURRENT LOC
  2828	032741	364 17 0 00 032737 		SOJA	17,.-2
  2829	032742	200 17 0 00 036475 		MOVE	17,[MOVEI 17]
  2830					^
  2831
  2832						CLEAN			^;CHECK PC+1 INHIBIT ON INTERRUPT
  2833
  2834	032743	7 000 20 0 00 634440 		CONO	634440
  2835	032744	7 004 20 0 00 010000 		CONO	PI,10000
  2836				
  2837	032745	200 00 0 00 036476 		MOVE	[MOVEI]
  2838	032746	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+100	;CAUSE INTERRUPT
  2839	032747	334 00 0 00 000000 		SKIPA			;PC+1 INH ON PC1 PRINT FAIL
  2840						STOP			^;SEE P1 CYC(1) INPUT
  2841
  2842	032750	254 04 0 00 032751 		HALT	.+1
  2843	032751	320 00 0 00 032752 		JUMP	.+1
  2844				
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 29
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0073

  2845						BLURB^
  2846					;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
  2847					;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
  2848					;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
  2849					;INSTRUCTION
  2850					^
  2851	032752				MOD80:	CLEAN^
  2852	032752	7 000 20 0 00 634440 		CONO	634440
  2853	032753	7 004 20 0 00 010000 		CONO	PI,10000
  2854									^
  2855	032754	200 00 0 00 036476 		MOVE	[MOVEI]		;IF LOC 0 EXECUTED C(0)=0
  2856	032755	7 004 20 0 00 004300 		CONO PI,ACT+PIREQ+100	;CAUSE AN INTERRUPT
  2857	032756	336 00 0 00 000000 		SKIPN	0		;MA FM PICH (1) PULSE FAIL
  2858						STOP			^;SEE MA1 PRINT
  2859
  2860	032757	254 04 0 00 032760 		HALT	.+1
  2861	032760	320 00 0 00 032761 		JUMP	.+1
  2862				
  2863						CLEAN^
  2864	032761	7 000 20 0 00 634440 		CONO	634440
  2865	032762	7 004 20 0 00 010000 		CONO	PI,10000
  2866									^
  2867	032763	200 00 0 00 036476 		MOVE	[MOVEI]
  2868	032764	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+100	;CAUSE INTERRUPT IF MA
  2869	032765	306 00 0 00 000040 		CAIN	40		;34 SET FAIL C(0)=40
  2870						STOP			^;SEE MA1 PRINT
  2871
  2872	032766	254 04 0 00 032767 		HALT	.+1
  2873	032767	320 00 0 00 032770 		JUMP	.+1
  2874				
  2875						CLEAN^
  2876	032770	7 000 20 0 00 634440 		CONO	634440
  2877	032771	7 004 20 0 00 010000 		CONO	PI,10000
  2878									^
  2879	032772	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+100	;CAUSE INTERRUPT
  2880	032773	306 00 0 00 000002 		CAIN	2		;MA 30 SET FAILED
  2881						STOP			^;SEE MA1 PRINT
  2882
  2883	032774	254 04 0 00 032775 		HALT	.+1
  2884	032775	320 00 0 00 032776 		JUMP	.+1
  2885				
  2886						CLEAN^
  2887	032776	7 000 20 0 00 634440 		CONO	634440
  2888	032777	7 004 20 0 00 010000 		CONO	PI,10000
  2889									^
  2890	033000	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+100	;CAUSE INTERRUPT
  2891	033001	306 00 0 00 000046 		CAIN	46		;MA 33 SET OUCCRED ON CH1
  2892						STOP			^;SEE MA1 PRINT
  2893
  2894	033002	254 04 0 00 033003 		HALT	.+1
  2895	033003	320 00 0 00 033004 		JUMP	.+1
  2896				
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 30
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0074

  2897	033004				MOD81:	CLEAN^
  2898	033004	7 000 20 0 00 634440 		CONO	634440
  2899	033005	7 004 20 0 00 010000 		CONO	PI,10000
  2900									^
  2901	033006	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+100	;CAUSE INTERRUPT
  2902	033007	306 00 0 00 000052 		CAIN	52		;MA 32 SET OCCURED ON CH1
  2903						STOP			^;SEE MA1 PRINT
  2904
  2905	033010	254 04 0 00 033011 		HALT	.+1
  2906	033011	320 00 0 00 033012 		JUMP	.+1
  2907				
  2908
  2909						CLEAN^
  2910	033012	7 000 20 0 00 634440 		CONO	634440
  2911	033013	7 004 20 0 00 010000 		CONO	PI,10000
  2912									^
  2913	033014	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+100	;CAUSE INTERRUPT
  2914	033015	306 00 0 00 000043 		CAIN	43		;MA 35 SET OUCCURED ON CH1
  2915						STOP			^;SEE MA1 PRINT
  2916
  2917	033016	254 04 0 00 033017 		HALT	.+1
  2918	033017	320 00 0 00 033020 		JUMP	.+1
  2919				
  2920
  2921						CLEAN^
  2922	033020	7 000 20 0 00 634440 		CONO	634440
  2923	033021	7 004 20 0 00 010000 		CONO	PI,10000
  2924									^
  2925	033022	7 004 20 0 00 004240 		CONO	PI,ACT+PIREQ+40	;CAUSE INTERRUPT
  2926	033023	306 00 0 00 000040 		CAIN	40		;MA 33 SET FAILED ON CH2
  2927						STOP			^;SEE MA1 PRINT
  2928
  2929	033024	254 04 0 00 033025 		HALT	.+1
  2930	033025	320 00 0 00 033026 		JUMP	.+1
  2931				
  2932
  2933						CLEAN^
  2934	033026	7 000 20 0 00 634440 		CONO	634440
  2935	033027	7 004 20 0 00 010000 		CONO	PI,10000
  2936									^
  2937	033030	7 004 20 0 00 004220 		CONO	PI,ACT+PIREQ+20	;CAUSE INTERRUPT
  2938	033031	306 00 0 00 000040 		CAIN	40		;MA 32 SET FAILED ON CH4
  2939						STOP			^;SEE MA1 PRINT
  2940
  2941	033032	254 04 0 00 033033 		HALT	.+1
  2942	033033	320 00 0 00 033034 		JUMP	.+1
  2943				
  2944
  2945						CLEAN^
  2946	033034	7 000 20 0 00 634440 		CONO	634440
  2947	033035	7 004 20 0 00 010000 		CONO	PI,10000
  2948									^
  2949	033036	7 004 20 0 00 004240 		CONO	PI,ACT+PIREQ+40	;CAUSE INTERRUPT
  2950	033037	306 00 0 00 000046 		CAIN	46		;MA 34 SET OCCURED ON CH2
  2951						STOP			^;SEE MA1 PRINT
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 30-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0075

  2952
  2953	033040	254 04 0 00 033041 		HALT	.+1
  2954	033041	320 00 0 00 033042 		JUMP	.+1
  2955				
  2956
  2957						BLURB^
  2958					;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
  2959					;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
  2960					;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
  2961					;INSTRUCTION
  2962					^
  2963	033042				MOD82:	CLEAN			^;CHECK IF AN INTERRUPT OCCURES
  2964
  2965	033042	7 000 20 0 00 634440 		CONO	634440
  2966	033043	7 004 20 0 00 010000 		CONO	PI,10000
  2967				
  2968	033044	400 00 0 00 000000 		SETZ	0		;C(0) FILLED BY XCT OF MOVEI
  2969	033045	7 004 20 0 00 004377 		CONO	PI,ACT+PIREQ+177	;ACTIVATE ALL INTERRUPTS
  2970	033046	336 00 0 00 000000 		SKIPN	0		;CK PIR FM IOB [1] PI1 PRINT
  2971						STOP			^;AND PIRQ LEVEL PI1 PRINT
  2972
  2973	033047	254 04 0 00 033050 		HALT	.+1
  2974	033050	320 00 0 00 033051 		JUMP	.+1
  2975				
  2976
  2977						CLEAN^
  2978	033051	7 000 20 0 00 634440 		CONO	634440
  2979	033052	7 004 20 0 00 010000 		CONO	PI,10000
  2980									^
  2981	033053	400 00 0 00 000000 		SETZ	0		;ON INTERRUPT NO PI HOLDS
  2982	033054	7 004 20 0 00 004377 		CONO	PI,ACT+PIREQ+177	;WERE SET CHECK PIH
  2983	033055	7 004 34 0 00 077400 		CONSO	PI,77400		;FM PICHRQ PULSE ON
  2984						STOP			^;PI1 PRINT
  2985
  2986	033056	254 04 0 00 033057 		HALT	.+1
  2987	033057	320 00 0 00 033060 		JUMP	.+1
  2988				
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 31
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0076

  2989					DEFINE	PIHCLR	(A,B)<
  2990						CLEAN
  2991						CONO	PI,PIREQ+ACT+A	;CAUSE INTERRUPT TO SET HOLD
  2992						CONO PI,10000		;TRY TO CLEAR WITH PI RESET
  2993						CONSZ	PI,B		;FAIL TO CLEAR SEE PI2
  2994						STOP
  2995					>
  2996
  2997			000100		ZZ=100
  2998			040000		YY=40000				;CHECK RESET TO PIH FLOPS
  2999					MOD83:	REPEAT	7,<
  3000						PIHCLR	ZZ,YY
  3001						ZZ=ZZ/2
  3002						YY=YY/2
  3003					>
  3004
  3005						PIHCLR	ZZ,YY^
  3006						CLEAN^
  3007	033060	7 000 20 0 00 634440 		CONO	634440
  3008	033061	7 004 20 0 00 010000 		CONO	PI,10000
  3009									^
  3010	033062	7 004 20 0 00 004300 		CONO	PI,PIREQ+ACT+ZZ	;CAUSE INTERRUPT TO SET HOLD
  3011	033063	7 004 20 0 00 010000 		CONO PI,10000		;TRY TO CLEAR WITH PI RESET
  3012	033064	7 004 30 0 00 040000 		CONSZ	PI,YY		;FAIL TO CLEAR SEE PI2
  3013						STOP^
  3014	033065	254 04 0 00 033066 		HALT	.+1
  3015	033066	320 00 0 00 033067 		JUMP	.+1
  3016									^
  3017					^
  3018			000040			ZZ=ZZ/2
  3019			020000			YY=YY/2
  3020
  3021
  3022						PIHCLR	ZZ,YY^
  3023						CLEAN^
  3024	033067	7 000 20 0 00 634440 		CONO	634440
  3025	033070	7 004 20 0 00 010000 		CONO	PI,10000
  3026									^
  3027	033071	7 004 20 0 00 004240 		CONO	PI,PIREQ+ACT+ZZ	;CAUSE INTERRUPT TO SET HOLD
  3028	033072	7 004 20 0 00 010000 		CONO PI,10000		;TRY TO CLEAR WITH PI RESET
  3029	033073	7 004 30 0 00 020000 		CONSZ	PI,YY		;FAIL TO CLEAR SEE PI2
  3030						STOP^
  3031	033074	254 04 0 00 033075 		HALT	.+1
  3032	033075	320 00 0 00 033076 		JUMP	.+1
  3033									^
  3034					^
  3035			000020			ZZ=ZZ/2
  3036			010000			YY=YY/2
  3037
  3038
  3039						PIHCLR	ZZ,YY^
  3040						CLEAN^
  3041	033076	7 000 20 0 00 634440 		CONO	634440
  3042	033077	7 004 20 0 00 010000 		CONO	PI,10000
  3043									^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 31-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0077

  3044	033100	7 004 20 0 00 004220 		CONO	PI,PIREQ+ACT+ZZ	;CAUSE INTERRUPT TO SET HOLD
  3045	033101	7 004 20 0 00 010000 		CONO PI,10000		;TRY TO CLEAR WITH PI RESET
  3046	033102	7 004 30 0 00 010000 		CONSZ	PI,YY		;FAIL TO CLEAR SEE PI2
  3047						STOP^
  3048	033103	254 04 0 00 033104 		HALT	.+1
  3049	033104	320 00 0 00 033105 		JUMP	.+1
  3050									^
  3051					^
  3052			000010			ZZ=ZZ/2
  3053			004000			YY=YY/2
  3054
  3055
  3056						PIHCLR	ZZ,YY^
  3057						CLEAN^
  3058	033105	7 000 20 0 00 634440 		CONO	634440
  3059	033106	7 004 20 0 00 010000 		CONO	PI,10000
  3060									^
  3061	033107	7 004 20 0 00 004210 		CONO	PI,PIREQ+ACT+ZZ	;CAUSE INTERRUPT TO SET HOLD
  3062	033110	7 004 20 0 00 010000 		CONO PI,10000		;TRY TO CLEAR WITH PI RESET
  3063	033111	7 004 30 0 00 004000 		CONSZ	PI,YY		;FAIL TO CLEAR SEE PI2
  3064						STOP^
  3065	033112	254 04 0 00 033113 		HALT	.+1
  3066	033113	320 00 0 00 033114 		JUMP	.+1
  3067									^
  3068					^
  3069			000004			ZZ=ZZ/2
  3070			002000			YY=YY/2
  3071
  3072
  3073						PIHCLR	ZZ,YY^
  3074						CLEAN^
  3075	033114	7 000 20 0 00 634440 		CONO	634440
  3076	033115	7 004 20 0 00 010000 		CONO	PI,10000
  3077									^
  3078	033116	7 004 20 0 00 004204 		CONO	PI,PIREQ+ACT+ZZ	;CAUSE INTERRUPT TO SET HOLD
  3079	033117	7 004 20 0 00 010000 		CONO PI,10000		;TRY TO CLEAR WITH PI RESET
  3080	033120	7 004 30 0 00 002000 		CONSZ	PI,YY		;FAIL TO CLEAR SEE PI2
  3081						STOP^
  3082	033121	254 04 0 00 033122 		HALT	.+1
  3083	033122	320 00 0 00 033123 		JUMP	.+1
  3084									^
  3085					^
  3086			000002			ZZ=ZZ/2
  3087			001000			YY=YY/2
  3088
  3089
  3090						PIHCLR	ZZ,YY^
  3091						CLEAN^
  3092	033123	7 000 20 0 00 634440 		CONO	634440
  3093	033124	7 004 20 0 00 010000 		CONO	PI,10000
  3094									^
  3095	033125	7 004 20 0 00 004202 		CONO	PI,PIREQ+ACT+ZZ	;CAUSE INTERRUPT TO SET HOLD
  3096	033126	7 004 20 0 00 010000 		CONO PI,10000		;TRY TO CLEAR WITH PI RESET
  3097	033127	7 004 30 0 00 001000 		CONSZ	PI,YY		;FAIL TO CLEAR SEE PI2
  3098						STOP^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 31-2
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0078

  3099	033130	254 04 0 00 033131 		HALT	.+1
  3100	033131	320 00 0 00 033132 		JUMP	.+1
  3101									^
  3102					^
  3103			000001			ZZ=ZZ/2
  3104			000400			YY=YY/2
  3105
  3106
  3107						PIHCLR	ZZ,YY^
  3108						CLEAN^
  3109	033132	7 000 20 0 00 634440 		CONO	634440
  3110	033133	7 004 20 0 00 010000 		CONO	PI,10000
  3111									^
  3112	033134	7 004 20 0 00 004201 		CONO	PI,PIREQ+ACT+ZZ	;CAUSE INTERRUPT TO SET HOLD
  3113	033135	7 004 20 0 00 010000 		CONO PI,10000		;TRY TO CLEAR WITH PI RESET
  3114	033136	7 004 30 0 00 000400 		CONSZ	PI,YY		;FAIL TO CLEAR SEE PI2
  3115						STOP^
  3116	033137	254 04 0 00 033140 		HALT	.+1
  3117	033140	320 00 0 00 033141 		JUMP	.+1
  3118									^
  3119					^
  3120			000000			ZZ=ZZ/2
  3121			000200			YY=YY/2
  3122
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 32
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0079

  3123
  3124
  3125						BLURB^
  3126					;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
  3127					;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
  3128					;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
  3129					;INSTRUCTION
  3130					^
  3131					DEFINE	OFFPIR	(A,B)<
  3132						CLEAN
  3133						CONO	PI,PIREQ+ACT+A	;SETS PIH. THEN CLR
  3134						JRST 10,.+1		;PIR TURNED BACK ON
  3135						CONSZ PI,B		;PIR TURNED BACK ON.PIH(1) CLR PIR
  3136						STOP
  3137					>
  3138
  3139			000100		ZZ=100
  3140			040000		YY=40000			;TEST THE RESET TO PIR
  3141					MOD85:	REPEAT	7,<
  3142						OFFPIR	ZZ,YY
  3143						ZZ=ZZ/2
  3144						YY=YY/2
  3145					>
  3146
  3147						OFFPIR	ZZ,YY^
  3148						CLEAN^
  3149	033141	7 000 20 0 00 634440 		CONO	634440
  3150	033142	7 004 20 0 00 010000 		CONO	PI,10000
  3151									^
  3152	033143	7 004 20 0 00 004300 		CONO	PI,PIREQ+ACT+ZZ	;SETS PIH. THEN CLR
  3153	033144	254 10 0 00 033145 		JRST 10,.+1		;PIR TURNED BACK ON
  3154	033145	7 004 30 0 00 040000 		CONSZ PI,YY		;PIR TURNED BACK ON.PIH(1) CLR PIR
  3155						STOP^
  3156	033146	254 04 0 00 033147 		HALT	.+1
  3157	033147	320 00 0 00 033150 		JUMP	.+1
  3158									^
  3159					^
  3160			000040			ZZ=ZZ/2
  3161			020000			YY=YY/2
  3162
  3163
  3164						OFFPIR	ZZ,YY^
  3165						CLEAN^
  3166	033150	7 000 20 0 00 634440 		CONO	634440
  3167	033151	7 004 20 0 00 010000 		CONO	PI,10000
  3168									^
  3169	033152	7 004 20 0 00 004240 		CONO	PI,PIREQ+ACT+ZZ	;SETS PIH. THEN CLR
  3170	033153	254 10 0 00 033154 		JRST 10,.+1		;PIR TURNED BACK ON
  3171	033154	7 004 30 0 00 020000 		CONSZ PI,YY		;PIR TURNED BACK ON.PIH(1) CLR PIR
  3172						STOP^
  3173	033155	254 04 0 00 033156 		HALT	.+1
  3174	033156	320 00 0 00 033157 		JUMP	.+1
  3175									^
  3176					^
  3177			000020			ZZ=ZZ/2
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 32-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0080

  3178			010000			YY=YY/2
  3179
  3180
  3181						OFFPIR	ZZ,YY^
  3182						CLEAN^
  3183	033157	7 000 20 0 00 634440 		CONO	634440
  3184	033160	7 004 20 0 00 010000 		CONO	PI,10000
  3185									^
  3186	033161	7 004 20 0 00 004220 		CONO	PI,PIREQ+ACT+ZZ	;SETS PIH. THEN CLR
  3187	033162	254 10 0 00 033163 		JRST 10,.+1		;PIR TURNED BACK ON
  3188	033163	7 004 30 0 00 010000 		CONSZ PI,YY		;PIR TURNED BACK ON.PIH(1) CLR PIR
  3189						STOP^
  3190	033164	254 04 0 00 033165 		HALT	.+1
  3191	033165	320 00 0 00 033166 		JUMP	.+1
  3192									^
  3193					^
  3194			000010			ZZ=ZZ/2
  3195			004000			YY=YY/2
  3196
  3197
  3198						OFFPIR	ZZ,YY^
  3199						CLEAN^
  3200	033166	7 000 20 0 00 634440 		CONO	634440
  3201	033167	7 004 20 0 00 010000 		CONO	PI,10000
  3202									^
  3203	033170	7 004 20 0 00 004210 		CONO	PI,PIREQ+ACT+ZZ	;SETS PIH. THEN CLR
  3204	033171	254 10 0 00 033172 		JRST 10,.+1		;PIR TURNED BACK ON
  3205	033172	7 004 30 0 00 004000 		CONSZ PI,YY		;PIR TURNED BACK ON.PIH(1) CLR PIR
  3206						STOP^
  3207	033173	254 04 0 00 033174 		HALT	.+1
  3208	033174	320 00 0 00 033175 		JUMP	.+1
  3209									^
  3210					^
  3211			000004			ZZ=ZZ/2
  3212			002000			YY=YY/2
  3213
  3214
  3215						OFFPIR	ZZ,YY^
  3216						CLEAN^
  3217	033175	7 000 20 0 00 634440 		CONO	634440
  3218	033176	7 004 20 0 00 010000 		CONO	PI,10000
  3219									^
  3220	033177	7 004 20 0 00 004204 		CONO	PI,PIREQ+ACT+ZZ	;SETS PIH. THEN CLR
  3221	033200	254 10 0 00 033201 		JRST 10,.+1		;PIR TURNED BACK ON
  3222	033201	7 004 30 0 00 002000 		CONSZ PI,YY		;PIR TURNED BACK ON.PIH(1) CLR PIR
  3223						STOP^
  3224	033202	254 04 0 00 033203 		HALT	.+1
  3225	033203	320 00 0 00 033204 		JUMP	.+1
  3226									^
  3227					^
  3228			000002			ZZ=ZZ/2
  3229			001000			YY=YY/2
  3230
  3231
  3232						OFFPIR	ZZ,YY^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 32-2
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0081

  3233						CLEAN^
  3234	033204	7 000 20 0 00 634440 		CONO	634440
  3235	033205	7 004 20 0 00 010000 		CONO	PI,10000
  3236									^
  3237	033206	7 004 20 0 00 004202 		CONO	PI,PIREQ+ACT+ZZ	;SETS PIH. THEN CLR
  3238	033207	254 10 0 00 033210 		JRST 10,.+1		;PIR TURNED BACK ON
  3239	033210	7 004 30 0 00 001000 		CONSZ PI,YY		;PIR TURNED BACK ON.PIH(1) CLR PIR
  3240						STOP^
  3241	033211	254 04 0 00 033212 		HALT	.+1
  3242	033212	320 00 0 00 033213 		JUMP	.+1
  3243									^
  3244					^
  3245			000001			ZZ=ZZ/2
  3246			000400			YY=YY/2
  3247
  3248
  3249						OFFPIR	ZZ,YY^
  3250						CLEAN^
  3251	033213	7 000 20 0 00 634440 		CONO	634440
  3252	033214	7 004 20 0 00 010000 		CONO	PI,10000
  3253									^
  3254	033215	7 004 20 0 00 004201 		CONO	PI,PIREQ+ACT+ZZ	;SETS PIH. THEN CLR
  3255	033216	254 10 0 00 033217 		JRST 10,.+1		;PIR TURNED BACK ON
  3256	033217	7 004 30 0 00 000400 		CONSZ PI,YY		;PIR TURNED BACK ON.PIH(1) CLR PIR
  3257						STOP^
  3258	033220	254 04 0 00 033221 		HALT	.+1
  3259	033221	320 00 0 00 033222 		JUMP	.+1
  3260									^
  3261					^
  3262			000000			ZZ=ZZ/2
  3263			000200			YY=YY/2
  3264
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 33
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0082

  3265					DEFINE	TSTREQ	(A)<
  3266						CLEAN			;TEST ABILITY OF HOLD TO PREVENT INTERRUPT
  3267						CONO PI,ACT+PIREQ+A	;INTERRUPT SETS PIH IF SECOND
  3268						SETZ			;INTERRUPT OCCURED PIH (0)
  3269						CONO	PI,ACT+PIREQ+A	;FAILED TO INHIBIT PIREQ
  3270						SKIPE			;SEE BOTTOM OF PI2 PRINT
  3271						STOP
  3272					>
  3273
  3274						BLURB^
  3275					;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
  3276					;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
  3277					;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
  3278					;INSTRUCTION
  3279					^
  3280			000100		ZZ=100
  3281					MOD86:	REPEAT	7,<
  3282						TSTREQ	ZZ
  3283						ZZ=ZZ/2
  3284					>
  3285
  3286						TSTREQ	ZZ^
  3287						CLEAN			^
  3288	033222	7 000 20 0 00 634440 		CONO	634440
  3289	033223	7 004 20 0 00 010000 		CONO	PI,10000
  3290									^;TEST ABILITY OF HOLD TO PREVENT INTERRUPT
  3291	033224	7 004 20 0 00 004300 		CONO PI,ACT+PIREQ+ZZ	;INTERRUPT SETS PIH IF SECOND
  3292	033225	400 00 0 00 000000 		SETZ			;INTERRUPT OCCURED PIH (0)
  3293	033226	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+ZZ	;FAILED TO INHIBIT PIREQ
  3294	033227	332 00 0 00 000000 		SKIPE			;SEE BOTTOM OF PI2 PRINT
  3295						STOP^
  3296	033230	254 04 0 00 033231 		HALT	.+1
  3297	033231	320 00 0 00 033232 		JUMP	.+1
  3298									^
  3299					^
  3300			000040			ZZ=ZZ/2
  3301
  3302
  3303						TSTREQ	ZZ^
  3304						CLEAN			^
  3305	033232	7 000 20 0 00 634440 		CONO	634440
  3306	033233	7 004 20 0 00 010000 		CONO	PI,10000
  3307									^;TEST ABILITY OF HOLD TO PREVENT INTERRUPT
  3308	033234	7 004 20 0 00 004240 		CONO PI,ACT+PIREQ+ZZ	;INTERRUPT SETS PIH IF SECOND
  3309	033235	400 00 0 00 000000 		SETZ			;INTERRUPT OCCURED PIH (0)
  3310	033236	7 004 20 0 00 004240 		CONO	PI,ACT+PIREQ+ZZ	;FAILED TO INHIBIT PIREQ
  3311	033237	332 00 0 00 000000 		SKIPE			;SEE BOTTOM OF PI2 PRINT
  3312						STOP^
  3313	033240	254 04 0 00 033241 		HALT	.+1
  3314	033241	320 00 0 00 033242 		JUMP	.+1
  3315									^
  3316					^
  3317			000020			ZZ=ZZ/2
  3318
  3319
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 33-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0083

  3320						TSTREQ	ZZ^
  3321						CLEAN			^
  3322	033242	7 000 20 0 00 634440 		CONO	634440
  3323	033243	7 004 20 0 00 010000 		CONO	PI,10000
  3324									^;TEST ABILITY OF HOLD TO PREVENT INTERRUPT
  3325	033244	7 004 20 0 00 004220 		CONO PI,ACT+PIREQ+ZZ	;INTERRUPT SETS PIH IF SECOND
  3326	033245	400 00 0 00 000000 		SETZ			;INTERRUPT OCCURED PIH (0)
  3327	033246	7 004 20 0 00 004220 		CONO	PI,ACT+PIREQ+ZZ	;FAILED TO INHIBIT PIREQ
  3328	033247	332 00 0 00 000000 		SKIPE			;SEE BOTTOM OF PI2 PRINT
  3329						STOP^
  3330	033250	254 04 0 00 033251 		HALT	.+1
  3331	033251	320 00 0 00 033252 		JUMP	.+1
  3332									^
  3333					^
  3334			000010			ZZ=ZZ/2
  3335
  3336
  3337						TSTREQ	ZZ^
  3338						CLEAN			^
  3339	033252	7 000 20 0 00 634440 		CONO	634440
  3340	033253	7 004 20 0 00 010000 		CONO	PI,10000
  3341									^;TEST ABILITY OF HOLD TO PREVENT INTERRUPT
  3342	033254	7 004 20 0 00 004210 		CONO PI,ACT+PIREQ+ZZ	;INTERRUPT SETS PIH IF SECOND
  3343	033255	400 00 0 00 000000 		SETZ			;INTERRUPT OCCURED PIH (0)
  3344	033256	7 004 20 0 00 004210 		CONO	PI,ACT+PIREQ+ZZ	;FAILED TO INHIBIT PIREQ
  3345	033257	332 00 0 00 000000 		SKIPE			;SEE BOTTOM OF PI2 PRINT
  3346						STOP^
  3347	033260	254 04 0 00 033261 		HALT	.+1
  3348	033261	320 00 0 00 033262 		JUMP	.+1
  3349									^
  3350					^
  3351			000004			ZZ=ZZ/2
  3352
  3353
  3354						TSTREQ	ZZ^
  3355						CLEAN			^
  3356	033262	7 000 20 0 00 634440 		CONO	634440
  3357	033263	7 004 20 0 00 010000 		CONO	PI,10000
  3358									^;TEST ABILITY OF HOLD TO PREVENT INTERRUPT
  3359	033264	7 004 20 0 00 004204 		CONO PI,ACT+PIREQ+ZZ	;INTERRUPT SETS PIH IF SECOND
  3360	033265	400 00 0 00 000000 		SETZ			;INTERRUPT OCCURED PIH (0)
  3361	033266	7 004 20 0 00 004204 		CONO	PI,ACT+PIREQ+ZZ	;FAILED TO INHIBIT PIREQ
  3362	033267	332 00 0 00 000000 		SKIPE			;SEE BOTTOM OF PI2 PRINT
  3363						STOP^
  3364	033270	254 04 0 00 033271 		HALT	.+1
  3365	033271	320 00 0 00 033272 		JUMP	.+1
  3366									^
  3367					^
  3368			000002			ZZ=ZZ/2
  3369
  3370
  3371						TSTREQ	ZZ^
  3372						CLEAN			^
  3373	033272	7 000 20 0 00 634440 		CONO	634440
  3374	033273	7 004 20 0 00 010000 		CONO	PI,10000
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 33-2
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0084

  3375									^;TEST ABILITY OF HOLD TO PREVENT INTERRUPT
  3376	033274	7 004 20 0 00 004202 		CONO PI,ACT+PIREQ+ZZ	;INTERRUPT SETS PIH IF SECOND
  3377	033275	400 00 0 00 000000 		SETZ			;INTERRUPT OCCURED PIH (0)
  3378	033276	7 004 20 0 00 004202 		CONO	PI,ACT+PIREQ+ZZ	;FAILED TO INHIBIT PIREQ
  3379	033277	332 00 0 00 000000 		SKIPE			;SEE BOTTOM OF PI2 PRINT
  3380						STOP^
  3381	033300	254 04 0 00 033301 		HALT	.+1
  3382	033301	320 00 0 00 033302 		JUMP	.+1
  3383									^
  3384					^
  3385			000001			ZZ=ZZ/2
  3386
  3387
  3388						TSTREQ	ZZ^
  3389						CLEAN			^
  3390	033302	7 000 20 0 00 634440 		CONO	634440
  3391	033303	7 004 20 0 00 010000 		CONO	PI,10000
  3392									^;TEST ABILITY OF HOLD TO PREVENT INTERRUPT
  3393	033304	7 004 20 0 00 004201 		CONO PI,ACT+PIREQ+ZZ	;INTERRUPT SETS PIH IF SECOND
  3394	033305	400 00 0 00 000000 		SETZ			;INTERRUPT OCCURED PIH (0)
  3395	033306	7 004 20 0 00 004201 		CONO	PI,ACT+PIREQ+ZZ	;FAILED TO INHIBIT PIREQ
  3396	033307	332 00 0 00 000000 		SKIPE			;SEE BOTTOM OF PI2 PRINT
  3397						STOP^
  3398	033310	254 04 0 00 033311 		HALT	.+1
  3399	033311	320 00 0 00 033312 		JUMP	.+1
  3400									^
  3401					^
  3402			000000			ZZ=ZZ/2
  3403
  3404
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 34
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0085

  3405					DEFINE	PIHOK	(A,B)<
  3406						CLEAN
  3407						CONO	PI,ACT+PIREQ+A	;INTERRUPT SHOULD SET HOLD(PIH)
  3408						SETZ			;IF SECOND INTERRUPT OCCURS PIH
  3409						CONO	PI,ACT+PIREQ+B	;FAILED TO PREVENT PIOK THUS
  3410						SKIPE			;ALLOWING INTERRUPT. SEE BOTTOM
  3411						STOP			;OF PI2 PRINT
  3412					>
  3413						BLURB^
  3414					;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
  3415					;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
  3416					;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
  3417					;INSTRUCTION
  3418					^
  3419
  3420			000100		ZZ=100
  3421			000040		YY=40				;TEST PRIORITY CHAIN
  3422					MOD87:	REPEAT	6,<
  3423						PIHOK	ZZ,YY
  3424						ZZ=ZZ/2
  3425						YY=YY/2
  3426					>
  3427
  3428						PIHOK	ZZ,YY^
  3429						CLEAN^
  3430	033312	7 000 20 0 00 634440 		CONO	634440
  3431	033313	7 004 20 0 00 010000 		CONO	PI,10000
  3432									^
  3433	033314	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+ZZ	;INTERRUPT SHOULD SET HOLD(PIH)
  3434	033315	400 00 0 00 000000 		SETZ			;IF SECOND INTERRUPT OCCURS PIH
  3435	033316	7 004 20 0 00 004240 		CONO	PI,ACT+PIREQ+YY	;FAILED TO PREVENT PIOK THUS
  3436	033317	332 00 0 00 000000 		SKIPE			;ALLOWING INTERRUPT. SEE BOTTOM
  3437						STOP			^
  3438	033320	254 04 0 00 033321 		HALT	.+1
  3439	033321	320 00 0 00 033322 		JUMP	.+1
  3440									^;OF PI2 PRINT
  3441					^
  3442			000040			ZZ=ZZ/2
  3443			000020			YY=YY/2
  3444
  3445
  3446						PIHOK	ZZ,YY^
  3447						CLEAN^
  3448	033322	7 000 20 0 00 634440 		CONO	634440
  3449	033323	7 004 20 0 00 010000 		CONO	PI,10000
  3450									^
  3451	033324	7 004 20 0 00 004240 		CONO	PI,ACT+PIREQ+ZZ	;INTERRUPT SHOULD SET HOLD(PIH)
  3452	033325	400 00 0 00 000000 		SETZ			;IF SECOND INTERRUPT OCCURS PIH
  3453	033326	7 004 20 0 00 004220 		CONO	PI,ACT+PIREQ+YY	;FAILED TO PREVENT PIOK THUS
  3454	033327	332 00 0 00 000000 		SKIPE			;ALLOWING INTERRUPT. SEE BOTTOM
  3455						STOP			^
  3456	033330	254 04 0 00 033331 		HALT	.+1
  3457	033331	320 00 0 00 033332 		JUMP	.+1
  3458									^;OF PI2 PRINT
  3459					^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 34-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0086

  3460			000020			ZZ=ZZ/2
  3461			000010			YY=YY/2
  3462
  3463
  3464						PIHOK	ZZ,YY^
  3465						CLEAN^
  3466	033332	7 000 20 0 00 634440 		CONO	634440
  3467	033333	7 004 20 0 00 010000 		CONO	PI,10000
  3468									^
  3469	033334	7 004 20 0 00 004220 		CONO	PI,ACT+PIREQ+ZZ	;INTERRUPT SHOULD SET HOLD(PIH)
  3470	033335	400 00 0 00 000000 		SETZ			;IF SECOND INTERRUPT OCCURS PIH
  3471	033336	7 004 20 0 00 004210 		CONO	PI,ACT+PIREQ+YY	;FAILED TO PREVENT PIOK THUS
  3472	033337	332 00 0 00 000000 		SKIPE			;ALLOWING INTERRUPT. SEE BOTTOM
  3473						STOP			^
  3474	033340	254 04 0 00 033341 		HALT	.+1
  3475	033341	320 00 0 00 033342 		JUMP	.+1
  3476									^;OF PI2 PRINT
  3477					^
  3478			000010			ZZ=ZZ/2
  3479			000004			YY=YY/2
  3480
  3481
  3482						PIHOK	ZZ,YY^
  3483						CLEAN^
  3484	033342	7 000 20 0 00 634440 		CONO	634440
  3485	033343	7 004 20 0 00 010000 		CONO	PI,10000
  3486									^
  3487	033344	7 004 20 0 00 004210 		CONO	PI,ACT+PIREQ+ZZ	;INTERRUPT SHOULD SET HOLD(PIH)
  3488	033345	400 00 0 00 000000 		SETZ			;IF SECOND INTERRUPT OCCURS PIH
  3489	033346	7 004 20 0 00 004204 		CONO	PI,ACT+PIREQ+YY	;FAILED TO PREVENT PIOK THUS
  3490	033347	332 00 0 00 000000 		SKIPE			;ALLOWING INTERRUPT. SEE BOTTOM
  3491						STOP			^
  3492	033350	254 04 0 00 033351 		HALT	.+1
  3493	033351	320 00 0 00 033352 		JUMP	.+1
  3494									^;OF PI2 PRINT
  3495					^
  3496			000004			ZZ=ZZ/2
  3497			000002			YY=YY/2
  3498
  3499
  3500						PIHOK	ZZ,YY^
  3501						CLEAN^
  3502	033352	7 000 20 0 00 634440 		CONO	634440
  3503	033353	7 004 20 0 00 010000 		CONO	PI,10000
  3504									^
  3505	033354	7 004 20 0 00 004204 		CONO	PI,ACT+PIREQ+ZZ	;INTERRUPT SHOULD SET HOLD(PIH)
  3506	033355	400 00 0 00 000000 		SETZ			;IF SECOND INTERRUPT OCCURS PIH
  3507	033356	7 004 20 0 00 004202 		CONO	PI,ACT+PIREQ+YY	;FAILED TO PREVENT PIOK THUS
  3508	033357	332 00 0 00 000000 		SKIPE			;ALLOWING INTERRUPT. SEE BOTTOM
  3509						STOP			^
  3510	033360	254 04 0 00 033361 		HALT	.+1
  3511	033361	320 00 0 00 033362 		JUMP	.+1
  3512									^;OF PI2 PRINT
  3513					^
  3514			000002			ZZ=ZZ/2
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 34-2
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0087

  3515			000001			YY=YY/2
  3516
  3517
  3518						PIHOK	ZZ,YY^
  3519						CLEAN^
  3520	033362	7 000 20 0 00 634440 		CONO	634440
  3521	033363	7 004 20 0 00 010000 		CONO	PI,10000
  3522									^
  3523	033364	7 004 20 0 00 004202 		CONO	PI,ACT+PIREQ+ZZ	;INTERRUPT SHOULD SET HOLD(PIH)
  3524	033365	400 00 0 00 000000 		SETZ			;IF SECOND INTERRUPT OCCURS PIH
  3525	033366	7 004 20 0 00 004201 		CONO	PI,ACT+PIREQ+YY	;FAILED TO PREVENT PIOK THUS
  3526	033367	332 00 0 00 000000 		SKIPE			;ALLOWING INTERRUPT. SEE BOTTOM
  3527						STOP			^
  3528	033370	254 04 0 00 033371 		HALT	.+1
  3529	033371	320 00 0 00 033372 		JUMP	.+1
  3530									^;OF PI2 PRINT
  3531					^
  3532			000001			ZZ=ZZ/2
  3533			000000			YY=YY/2
  3534
  3535
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 35
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0088

  3536					DEFINE	SETPIH	(A,B)<
  3537						CLEAN			;CHECK REQ AND PIH FLOPS
  3538						CONO	PI,ACT+PIREQ+A	;CAUSE INTERRUPT, SHOULD SET
  3539						CONSO	PI,B		;HOLD (PIH) SEE PI2 PRINT
  3540						STOP			;BOTH PIR+PIH SHOULD BE SET
  3541					>
  3542	033372				MOD88:	SETPIH	100,40000	^;CH 1
  3543
  3544						CLEAN			^
  3545	033372	7 000 20 0 00 634440 		CONO	634440
  3546	033373	7 004 20 0 00 010000 		CONO	PI,10000
  3547									^;CHECK REQ AND PIH FLOPS
  3548	033374	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+100	;CAUSE INTERRUPT, SHOULD SET
  3549	033375	7 004 34 0 00 040000 		CONSO	PI,40000		;HOLD (PIH) SEE PI2 PRINT
  3550						STOP			^
  3551	033376	254 04 0 00 033377 		HALT	.+1
  3552	033377	320 00 0 00 033400 		JUMP	.+1
  3553									^;BOTH PIR+PIH SHOULD BE SET
  3554
  3555						SETPIH	40,20000	^;CH 2
  3556
  3557						CLEAN			^
  3558	033400	7 000 20 0 00 634440 		CONO	634440
  3559	033401	7 004 20 0 00 010000 		CONO	PI,10000
  3560									^;CHECK REQ AND PIH FLOPS
  3561	033402	7 004 20 0 00 004240 		CONO	PI,ACT+PIREQ+40	;CAUSE INTERRUPT, SHOULD SET
  3562	033403	7 004 34 0 00 020000 		CONSO	PI,20000		;HOLD (PIH) SEE PI2 PRINT
  3563						STOP			^
  3564	033404	254 04 0 00 033405 		HALT	.+1
  3565	033405	320 00 0 00 033406 		JUMP	.+1
  3566									^;BOTH PIR+PIH SHOULD BE SET
  3567
  3568						CHANEL	MOD90^
  3569	033406	336 00 0 00 036672 		SKIPN	PI7SYS#
  3570	033407	254 00 0 00 033446 		JRST	MOD90
  3571									^
  3572	033410				MOD89:	SETPIH	20,10000	^;CH 3
  3573
  3574						CLEAN			^
  3575	033410	7 000 20 0 00 634440 		CONO	634440
  3576	033411	7 004 20 0 00 010000 		CONO	PI,10000
  3577									^;CHECK REQ AND PIH FLOPS
  3578	033412	7 004 20 0 00 004220 		CONO	PI,ACT+PIREQ+20	;CAUSE INTERRUPT, SHOULD SET
  3579	033413	7 004 34 0 00 010000 		CONSO	PI,10000		;HOLD (PIH) SEE PI2 PRINT
  3580						STOP			^
  3581	033414	254 04 0 00 033415 		HALT	.+1
  3582	033415	320 00 0 00 033416 		JUMP	.+1
  3583									^;BOTH PIR+PIH SHOULD BE SET
  3584
  3585						SETPIH	10,4000		^;CH 4
  3586
  3587						CLEAN			^
  3588	033416	7 000 20 0 00 634440 		CONO	634440
  3589	033417	7 004 20 0 00 010000 		CONO	PI,10000
  3590									^;CHECK REQ AND PIH FLOPS
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 35-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0089

  3591	033420	7 004 20 0 00 004210 		CONO	PI,ACT+PIREQ+10	;CAUSE INTERRUPT, SHOULD SET
  3592	033421	7 004 34 0 00 004000 		CONSO	PI,4000		;HOLD (PIH) SEE PI2 PRINT
  3593						STOP			^
  3594	033422	254 04 0 00 033423 		HALT	.+1
  3595	033423	320 00 0 00 033424 		JUMP	.+1
  3596									^;BOTH PIR+PIH SHOULD BE SET
  3597
  3598						SETPIH	4,2000		^;CH 5
  3599
  3600						CLEAN			^
  3601	033424	7 000 20 0 00 634440 		CONO	634440
  3602	033425	7 004 20 0 00 010000 		CONO	PI,10000
  3603									^;CHECK REQ AND PIH FLOPS
  3604	033426	7 004 20 0 00 004204 		CONO	PI,ACT+PIREQ+4	;CAUSE INTERRUPT, SHOULD SET
  3605	033427	7 004 34 0 00 002000 		CONSO	PI,2000		;HOLD (PIH) SEE PI2 PRINT
  3606						STOP			^
  3607	033430	254 04 0 00 033431 		HALT	.+1
  3608	033431	320 00 0 00 033432 		JUMP	.+1
  3609									^;BOTH PIR+PIH SHOULD BE SET
  3610
  3611						SETPIH	2,1000		^;CH 6
  3612
  3613						CLEAN			^
  3614	033432	7 000 20 0 00 634440 		CONO	634440
  3615	033433	7 004 20 0 00 010000 		CONO	PI,10000
  3616									^;CHECK REQ AND PIH FLOPS
  3617	033434	7 004 20 0 00 004202 		CONO	PI,ACT+PIREQ+2	;CAUSE INTERRUPT, SHOULD SET
  3618	033435	7 004 34 0 00 001000 		CONSO	PI,1000		;HOLD (PIH) SEE PI2 PRINT
  3619						STOP			^
  3620	033436	254 04 0 00 033437 		HALT	.+1
  3621	033437	320 00 0 00 033440 		JUMP	.+1
  3622									^;BOTH PIR+PIH SHOULD BE SET
  3623
  3624						SETPIH	1,400		^;CH 7
  3625
  3626						CLEAN			^
  3627	033440	7 000 20 0 00 634440 		CONO	634440
  3628	033441	7 004 20 0 00 010000 		CONO	PI,10000
  3629									^;CHECK REQ AND PIH FLOPS
  3630	033442	7 004 20 0 00 004201 		CONO	PI,ACT+PIREQ+1	;CAUSE INTERRUPT, SHOULD SET
  3631	033443	7 004 34 0 00 000400 		CONSO	PI,400		;HOLD (PIH) SEE PI2 PRINT
  3632						STOP			^
  3633	033444	254 04 0 00 033445 		HALT	.+1
  3634	033445	320 00 0 00 033446 		JUMP	.+1
  3635									^;BOTH PIR+PIH SHOULD BE SET
  3636
  3637	033446				MOD90:	CLEAN^
  3638	033446	7 000 20 0 00 634440 		CONO	634440
  3639	033447	7 004 20 0 00 010000 		CONO	PI,10000
  3640									^
  3641
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 36
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0090

  3642					DEFINE	PIADDR	(A,B)<
  3643						CLEAN			;CHECK ABILITY TO INTERRUPT TO
  3644						SETZ			;LOC 40-60 SHOULD SEE MOVEI
  3645						CONO	PI,ACT+PIREQ+A	;ACTIVATE AN INTERRUPT. IF C(0)=0
  3646						CAIE	B		;NO INTERRUPT OCCURED, C(0)=ADDR
  3647						STOP			;OF INTERRUPT EXECUTED
  3648					>
  3649
  3650						BLURB^
  3651					;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
  3652					;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
  3653					;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
  3654					;INSTRUCTION
  3655					^
  3656	033450				MOD91:	PIADDR	100,42		^;CH 1 TO LOC 42
  3657
  3658						CLEAN			^
  3659	033450	7 000 20 0 00 634440 		CONO	634440
  3660	033451	7 004 20 0 00 010000 		CONO	PI,10000
  3661									^;CHECK ABILITY TO INTERRUPT TO
  3662	033452	400 00 0 00 000000 		SETZ			;LOC 40-60 SHOULD SEE MOVEI
  3663	033453	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+100	;ACTIVATE AN INTERRUPT. IF C(0)=0
  3664	033454	302 00 0 00 000042 		CAIE	42		;NO INTERRUPT OCCURED, C(0)=ADDR
  3665						STOP			^
  3666	033455	254 04 0 00 033456 		HALT	.+1
  3667	033456	320 00 0 00 033457 		JUMP	.+1
  3668									^;OF INTERRUPT EXECUTED
  3669
  3670						PIADDR	40,44		^;CH 2 TO LOC 44
  3671
  3672						CLEAN			^
  3673	033457	7 000 20 0 00 634440 		CONO	634440
  3674	033460	7 004 20 0 00 010000 		CONO	PI,10000
  3675									^;CHECK ABILITY TO INTERRUPT TO
  3676	033461	400 00 0 00 000000 		SETZ			;LOC 40-60 SHOULD SEE MOVEI
  3677	033462	7 004 20 0 00 004240 		CONO	PI,ACT+PIREQ+40	;ACTIVATE AN INTERRUPT. IF C(0)=0
  3678	033463	302 00 0 00 000044 		CAIE	44		;NO INTERRUPT OCCURED, C(0)=ADDR
  3679						STOP			^
  3680	033464	254 04 0 00 033465 		HALT	.+1
  3681	033465	320 00 0 00 033466 		JUMP	.+1
  3682									^;OF INTERRUPT EXECUTED
  3683
  3684						CHANEL	MOD93^
  3685	033466	336 00 0 00 036672 		SKIPN	PI7SYS#
  3686	033467	254 00 0 00 033533 		JRST	MOD93
  3687									^
  3688	033470				MOD92:	PIADDR	20,46		^;CH 3 TO LOC 46
  3689
  3690						CLEAN			^
  3691	033470	7 000 20 0 00 634440 		CONO	634440
  3692	033471	7 004 20 0 00 010000 		CONO	PI,10000
  3693									^;CHECK ABILITY TO INTERRUPT TO
  3694	033472	400 00 0 00 000000 		SETZ			;LOC 40-60 SHOULD SEE MOVEI
  3695	033473	7 004 20 0 00 004220 		CONO	PI,ACT+PIREQ+20	;ACTIVATE AN INTERRUPT. IF C(0)=0
  3696	033474	302 00 0 00 000046 		CAIE	46		;NO INTERRUPT OCCURED, C(0)=ADDR
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 36-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0091

  3697						STOP			^
  3698	033475	254 04 0 00 033476 		HALT	.+1
  3699	033476	320 00 0 00 033477 		JUMP	.+1
  3700									^;OF INTERRUPT EXECUTED
  3701
  3702						PIADDR	10,50		^;CH 4 TO LOC 50
  3703
  3704						CLEAN			^
  3705	033477	7 000 20 0 00 634440 		CONO	634440
  3706	033500	7 004 20 0 00 010000 		CONO	PI,10000
  3707									^;CHECK ABILITY TO INTERRUPT TO
  3708	033501	400 00 0 00 000000 		SETZ			;LOC 40-60 SHOULD SEE MOVEI
  3709	033502	7 004 20 0 00 004210 		CONO	PI,ACT+PIREQ+10	;ACTIVATE AN INTERRUPT. IF C(0)=0
  3710	033503	302 00 0 00 000050 		CAIE	50		;NO INTERRUPT OCCURED, C(0)=ADDR
  3711						STOP			^
  3712	033504	254 04 0 00 033505 		HALT	.+1
  3713	033505	320 00 0 00 033506 		JUMP	.+1
  3714									^;OF INTERRUPT EXECUTED
  3715
  3716						PIADDR	4,52		^;CH 5 TO LOC 52
  3717
  3718						CLEAN			^
  3719	033506	7 000 20 0 00 634440 		CONO	634440
  3720	033507	7 004 20 0 00 010000 		CONO	PI,10000
  3721									^;CHECK ABILITY TO INTERRUPT TO
  3722	033510	400 00 0 00 000000 		SETZ			;LOC 40-60 SHOULD SEE MOVEI
  3723	033511	7 004 20 0 00 004204 		CONO	PI,ACT+PIREQ+4	;ACTIVATE AN INTERRUPT. IF C(0)=0
  3724	033512	302 00 0 00 000052 		CAIE	52		;NO INTERRUPT OCCURED, C(0)=ADDR
  3725						STOP			^
  3726	033513	254 04 0 00 033514 		HALT	.+1
  3727	033514	320 00 0 00 033515 		JUMP	.+1
  3728									^;OF INTERRUPT EXECUTED
  3729
  3730						PIADDR	2,54		^;CH 6 TO LOC 54
  3731
  3732						CLEAN			^
  3733	033515	7 000 20 0 00 634440 		CONO	634440
  3734	033516	7 004 20 0 00 010000 		CONO	PI,10000
  3735									^;CHECK ABILITY TO INTERRUPT TO
  3736	033517	400 00 0 00 000000 		SETZ			;LOC 40-60 SHOULD SEE MOVEI
  3737	033520	7 004 20 0 00 004202 		CONO	PI,ACT+PIREQ+2	;ACTIVATE AN INTERRUPT. IF C(0)=0
  3738	033521	302 00 0 00 000054 		CAIE	54		;NO INTERRUPT OCCURED, C(0)=ADDR
  3739						STOP			^
  3740	033522	254 04 0 00 033523 		HALT	.+1
  3741	033523	320 00 0 00 033524 		JUMP	.+1
  3742									^;OF INTERRUPT EXECUTED
  3743
  3744						PIADDR	1,56		^;CH 7 TO LOC 56
  3745
  3746						CLEAN			^
  3747	033524	7 000 20 0 00 634440 		CONO	634440
  3748	033525	7 004 20 0 00 010000 		CONO	PI,10000
  3749									^;CHECK ABILITY TO INTERRUPT TO
  3750	033526	400 00 0 00 000000 		SETZ			;LOC 40-60 SHOULD SEE MOVEI
  3751	033527	7 004 20 0 00 004201 		CONO	PI,ACT+PIREQ+1	;ACTIVATE AN INTERRUPT. IF C(0)=0
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 36-2
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0092

  3752	033530	302 00 0 00 000056 		CAIE	56		;NO INTERRUPT OCCURED, C(0)=ADDR
  3753						STOP			^
  3754	033531	254 04 0 00 033532 		HALT	.+1
  3755	033532	320 00 0 00 033533 		JUMP	.+1
  3756									^;OF INTERRUPT EXECUTED
  3757
  3758
  3759	033533				MOD93:	CLEAN^
  3760	033533	7 000 20 0 00 634440 		CONO	634440
  3761	033534	7 004 20 0 00 010000 		CONO	PI,10000
  3762									^
  3763
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 37
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0093

  3764					DEFINE	TWOPIR	(A,B)<
  3765						CLEAN			;CK PIR(0) ABILITY TO PREVENT INTERRUPT
  3766						SETZ			;LOWER CHANNEL SHOULD BE INHIBIT
  3767						CONO	PI,ACT+PIREQ+A	;TURN ON 2 PIR FLOPS. CHECK INT LOC
  3768						CAIN B			;PIR (0) INPUT TO PIOK
  3769						STOP
  3770					>
  3771						BLURB^
  3772					;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
  3773					;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
  3774					;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
  3775					;INSTRUCTION
  3776					^
  3777	033535				MOD94:	TWOPIR	100,46		^;CH 1+2
  3778
  3779						CLEAN			^
  3780	033535	7 000 20 0 00 634440 		CONO	634440
  3781	033536	7 004 20 0 00 010000 		CONO	PI,10000
  3782									^;CK PIR(0) ABILITY TO PREVENT INTERRUPT
  3783	033537	400 00 0 00 000000 		SETZ			;LOWER CHANNEL SHOULD BE INHIBIT
  3784	033540	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+100	;TURN ON 2 PIR FLOPS. CHECK INT LOC
  3785	033541	306 00 0 00 000046 		CAIN 46			;PIR (0) INPUT TO PIOK
  3786						STOP^
  3787	033542	254 04 0 00 033543 		HALT	.+1
  3788	033543	320 00 0 00 033544 		JUMP	.+1
  3789									^
  3790
  3791						TWOPIR	40,46		^;CH 2+3
  3792
  3793						CLEAN			^
  3794	033544	7 000 20 0 00 634440 		CONO	634440
  3795	033545	7 004 20 0 00 010000 		CONO	PI,10000
  3796									^;CK PIR(0) ABILITY TO PREVENT INTERRUPT
  3797	033546	400 00 0 00 000000 		SETZ			;LOWER CHANNEL SHOULD BE INHIBIT
  3798	033547	7 004 20 0 00 004240 		CONO	PI,ACT+PIREQ+40	;TURN ON 2 PIR FLOPS. CHECK INT LOC
  3799	033550	306 00 0 00 000046 		CAIN 46			;PIR (0) INPUT TO PIOK
  3800						STOP^
  3801	033551	254 04 0 00 033552 		HALT	.+1
  3802	033552	320 00 0 00 033553 		JUMP	.+1
  3803									^
  3804
  3805						CHANEL MOD96^
  3806	033553	336 00 0 00 036672 		SKIPN	PI7SYS#
  3807	033554	254 00 0 00 033611 		JRST	MOD96
  3808									^
  3809	033555				MOD95:	TWOPIR	20,56		^;CH 3+4
  3810
  3811						CLEAN			^
  3812	033555	7 000 20 0 00 634440 		CONO	634440
  3813	033556	7 004 20 0 00 010000 		CONO	PI,10000
  3814									^;CK PIR(0) ABILITY TO PREVENT INTERRUPT
  3815	033557	400 00 0 00 000000 		SETZ			;LOWER CHANNEL SHOULD BE INHIBIT
  3816	033560	7 004 20 0 00 004220 		CONO	PI,ACT+PIREQ+20	;TURN ON 2 PIR FLOPS. CHECK INT LOC
  3817	033561	306 00 0 00 000056 		CAIN 56			;PIR (0) INPUT TO PIOK
  3818						STOP^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 37-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0094

  3819	033562	254 04 0 00 033563 		HALT	.+1
  3820	033563	320 00 0 00 033564 		JUMP	.+1
  3821									^
  3822
  3823						TWOPIR	10,52		^;CH 4+5
  3824
  3825						CLEAN			^
  3826	033564	7 000 20 0 00 634440 		CONO	634440
  3827	033565	7 004 20 0 00 010000 		CONO	PI,10000
  3828									^;CK PIR(0) ABILITY TO PREVENT INTERRUPT
  3829	033566	400 00 0 00 000000 		SETZ			;LOWER CHANNEL SHOULD BE INHIBIT
  3830	033567	7 004 20 0 00 004210 		CONO	PI,ACT+PIREQ+10	;TURN ON 2 PIR FLOPS. CHECK INT LOC
  3831	033570	306 00 0 00 000052 		CAIN 52			;PIR (0) INPUT TO PIOK
  3832						STOP^
  3833	033571	254 04 0 00 033572 		HALT	.+1
  3834	033572	320 00 0 00 033573 		JUMP	.+1
  3835									^
  3836
  3837						TWOPIR	4,56		^;CH 5+6
  3838
  3839						CLEAN			^
  3840	033573	7 000 20 0 00 634440 		CONO	634440
  3841	033574	7 004 20 0 00 010000 		CONO	PI,10000
  3842									^;CK PIR(0) ABILITY TO PREVENT INTERRUPT
  3843	033575	400 00 0 00 000000 		SETZ			;LOWER CHANNEL SHOULD BE INHIBIT
  3844	033576	7 004 20 0 00 004204 		CONO	PI,ACT+PIREQ+4	;TURN ON 2 PIR FLOPS. CHECK INT LOC
  3845	033577	306 00 0 00 000056 		CAIN 56			;PIR (0) INPUT TO PIOK
  3846						STOP^
  3847	033600	254 04 0 00 033601 		HALT	.+1
  3848	033601	320 00 0 00 033602 		JUMP	.+1
  3849									^
  3850
  3851						TWOPIR	2,56		^;CH 6+7
  3852
  3853						CLEAN			^
  3854	033602	7 000 20 0 00 634440 		CONO	634440
  3855	033603	7 004 20 0 00 010000 		CONO	PI,10000
  3856									^;CK PIR(0) ABILITY TO PREVENT INTERRUPT
  3857	033604	400 00 0 00 000000 		SETZ			;LOWER CHANNEL SHOULD BE INHIBIT
  3858	033605	7 004 20 0 00 004202 		CONO	PI,ACT+PIREQ+2	;TURN ON 2 PIR FLOPS. CHECK INT LOC
  3859	033606	306 00 0 00 000056 		CAIN 56			;PIR (0) INPUT TO PIOK
  3860						STOP^
  3861	033607	254 04 0 00 033610 		HALT	.+1
  3862	033610	320 00 0 00 033611 		JUMP	.+1
  3863									^
  3864
  3865	033611				MOD96:	CLEAN^
  3866	033611	7 000 20 0 00 634440 		CONO	634440
  3867	033612	7 004 20 0 00 010000 		CONO	PI,10000
  3868									^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 38
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0095

  3869					DEFINE	MULPIR	(A,B)<
  3870						CLEAN
  3871						SETZ			;TEST MULTI REQUEST BREAK ON
  3872						CONO	PI,ACT+PIREQ+A	;CORRECT CHANNEL TO CORRECT
  3873						CAIE B			;LOC C(0)=INTERRUPTED ADDR
  3874						STOP
  3875					>
  3876
  3877						BLURB^
  3878					;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
  3879					;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
  3880					;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
  3881					;INSTRUCTION
  3882					^
  3883	033613				MOD97:	MULPIR	100,42^
  3884						CLEAN^
  3885	033613	7 000 20 0 00 634440 		CONO	634440
  3886	033614	7 004 20 0 00 010000 		CONO	PI,10000
  3887									^
  3888	033615	400 00 0 00 000000 		SETZ			;TEST MULTI REQUEST BREAK ON
  3889	033616	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+100	;CORRECT CHANNEL TO CORRECT
  3890	033617	302 00 0 00 000042 		CAIE 42			;LOC C(0)=INTERRUPTED ADDR
  3891						STOP^
  3892	033620	254 04 0 00 033621 		HALT	.+1
  3893	033621	320 00 0 00 033622 		JUMP	.+1
  3894									^
  3895					^
  3896						MULPIR	40,44^
  3897						CLEAN^
  3898	033622	7 000 20 0 00 634440 		CONO	634440
  3899	033623	7 004 20 0 00 010000 		CONO	PI,10000
  3900									^
  3901	033624	400 00 0 00 000000 		SETZ			;TEST MULTI REQUEST BREAK ON
  3902	033625	7 004 20 0 00 004240 		CONO	PI,ACT+PIREQ+40	;CORRECT CHANNEL TO CORRECT
  3903	033626	302 00 0 00 000044 		CAIE 44			;LOC C(0)=INTERRUPTED ADDR
  3904						STOP^
  3905	033627	254 04 0 00 033630 		HALT	.+1
  3906	033630	320 00 0 00 033631 		JUMP	.+1
  3907									^
  3908					^
  3909						CHANEL	MOD99^
  3910	033631	336 00 0 00 036672 		SKIPN	PI7SYS#
  3911	033632	254 00 0 00 033676 		JRST	MOD99
  3912									^
  3913	033633				MOD98:	MULPIR	20,46^
  3914						CLEAN^
  3915	033633	7 000 20 0 00 634440 		CONO	634440
  3916	033634	7 004 20 0 00 010000 		CONO	PI,10000
  3917									^
  3918	033635	400 00 0 00 000000 		SETZ			;TEST MULTI REQUEST BREAK ON
  3919	033636	7 004 20 0 00 004220 		CONO	PI,ACT+PIREQ+20	;CORRECT CHANNEL TO CORRECT
  3920	033637	302 00 0 00 000046 		CAIE 46			;LOC C(0)=INTERRUPTED ADDR
  3921						STOP^
  3922	033640	254 04 0 00 033641 		HALT	.+1
  3923	033641	320 00 0 00 033642 		JUMP	.+1
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 38-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0096

  3924									^
  3925					^
  3926						MULPIR	10,50^
  3927						CLEAN^
  3928	033642	7 000 20 0 00 634440 		CONO	634440
  3929	033643	7 004 20 0 00 010000 		CONO	PI,10000
  3930									^
  3931	033644	400 00 0 00 000000 		SETZ			;TEST MULTI REQUEST BREAK ON
  3932	033645	7 004 20 0 00 004210 		CONO	PI,ACT+PIREQ+10	;CORRECT CHANNEL TO CORRECT
  3933	033646	302 00 0 00 000050 		CAIE 50			;LOC C(0)=INTERRUPTED ADDR
  3934						STOP^
  3935	033647	254 04 0 00 033650 		HALT	.+1
  3936	033650	320 00 0 00 033651 		JUMP	.+1
  3937									^
  3938					^
  3939						MULPIR	4,52^
  3940						CLEAN^
  3941	033651	7 000 20 0 00 634440 		CONO	634440
  3942	033652	7 004 20 0 00 010000 		CONO	PI,10000
  3943									^
  3944	033653	400 00 0 00 000000 		SETZ			;TEST MULTI REQUEST BREAK ON
  3945	033654	7 004 20 0 00 004204 		CONO	PI,ACT+PIREQ+4	;CORRECT CHANNEL TO CORRECT
  3946	033655	302 00 0 00 000052 		CAIE 52			;LOC C(0)=INTERRUPTED ADDR
  3947						STOP^
  3948	033656	254 04 0 00 033657 		HALT	.+1
  3949	033657	320 00 0 00 033660 		JUMP	.+1
  3950									^
  3951					^
  3952						MULPIR	2,54^
  3953						CLEAN^
  3954	033660	7 000 20 0 00 634440 		CONO	634440
  3955	033661	7 004 20 0 00 010000 		CONO	PI,10000
  3956									^
  3957	033662	400 00 0 00 000000 		SETZ			;TEST MULTI REQUEST BREAK ON
  3958	033663	7 004 20 0 00 004202 		CONO	PI,ACT+PIREQ+2	;CORRECT CHANNEL TO CORRECT
  3959	033664	302 00 0 00 000054 		CAIE 54			;LOC C(0)=INTERRUPTED ADDR
  3960						STOP^
  3961	033665	254 04 0 00 033666 		HALT	.+1
  3962	033666	320 00 0 00 033667 		JUMP	.+1
  3963									^
  3964					^
  3965						MULPIR	1,56^
  3966						CLEAN^
  3967	033667	7 000 20 0 00 634440 		CONO	634440
  3968	033670	7 004 20 0 00 010000 		CONO	PI,10000
  3969									^
  3970	033671	400 00 0 00 000000 		SETZ			;TEST MULTI REQUEST BREAK ON
  3971	033672	7 004 20 0 00 004201 		CONO	PI,ACT+PIREQ+1	;CORRECT CHANNEL TO CORRECT
  3972	033673	302 00 0 00 000056 		CAIE 56			;LOC C(0)=INTERRUPTED ADDR
  3973						STOP^
  3974	033674	254 04 0 00 033675 		HALT	.+1
  3975	033675	320 00 0 00 033676 		JUMP	.+1
  3976									^
  3977					^
  3978	033676				MOD99:	CLEAN^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 38-2
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0097

  3979	033676	7 000 20 0 00 634440 		CONO	634440
  3980	033677	7 004 20 0 00 010000 		CONO	PI,10000
  3981									^
  3982
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 39
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0098

  3983					DEFINE	JENOK	(A,B)<
  3984						CLEAN
  3985						CONO	PI,ACT+PIREQ+A	;SET THE PIH FLOP THEN REMOVE
  3986						CONO	PI,DACT		;THE PIOK LEVELS VIA NO ACTIVE
  3987						JRST 10,.+1		;RELEASE INTERRUPT SHOULD NOT
  3988						CONSO	PI,B		;EFFECT PIH FLOP UNLESS AND
  3989						STOP
  3990					>
  3991
  3992	033700				MOD100:	JENOK	100,40000	^;PIH 1
  3993
  3994						CLEAN^
  3995	033700	7 000 20 0 00 634440 		CONO	634440
  3996	033701	7 004 20 0 00 010000 		CONO	PI,10000
  3997									^
  3998	033702	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+100	;SET THE PIH FLOP THEN REMOVE
  3999	033703	7 004 20 0 00 000400 		CONO	PI,DACT		;THE PIOK LEVELS VIA NO ACTIVE
  4000	033704	254 10 0 00 033705 		JRST 10,.+1		;RELEASE INTERRUPT SHOULD NOT
  4001	033705	7 004 34 0 00 040000 		CONSO	PI,40000		;EFFECT PIH FLOP UNLESS AND
  4002						STOP^
  4003	033706	254 04 0 00 033707 		HALT	.+1
  4004	033707	320 00 0 00 033710 		JUMP	.+1
  4005									^
  4006
  4007						JENOK	40,20000	^;PIH 2
  4008
  4009						CLEAN^
  4010	033710	7 000 20 0 00 634440 		CONO	634440
  4011	033711	7 004 20 0 00 010000 		CONO	PI,10000
  4012									^
  4013	033712	7 004 20 0 00 004240 		CONO	PI,ACT+PIREQ+40	;SET THE PIH FLOP THEN REMOVE
  4014	033713	7 004 20 0 00 000400 		CONO	PI,DACT		;THE PIOK LEVELS VIA NO ACTIVE
  4015	033714	254 10 0 00 033715 		JRST 10,.+1		;RELEASE INTERRUPT SHOULD NOT
  4016	033715	7 004 34 0 00 020000 		CONSO	PI,20000		;EFFECT PIH FLOP UNLESS AND
  4017						STOP^
  4018	033716	254 04 0 00 033717 		HALT	.+1
  4019	033717	320 00 0 00 033720 		JUMP	.+1
  4020									^
  4021
  4022						CHANEL	MOD102^
  4023	033720	336 00 0 00 036672 		SKIPN	PI7SYS#
  4024	033721	254 00 0 00 033772 		JRST	MOD102
  4025									^
  4026	033722				MOD101:	JENOK	20,10000	^;PIH 3
  4027
  4028						CLEAN^
  4029	033722	7 000 20 0 00 634440 		CONO	634440
  4030	033723	7 004 20 0 00 010000 		CONO	PI,10000
  4031									^
  4032	033724	7 004 20 0 00 004220 		CONO	PI,ACT+PIREQ+20	;SET THE PIH FLOP THEN REMOVE
  4033	033725	7 004 20 0 00 000400 		CONO	PI,DACT		;THE PIOK LEVELS VIA NO ACTIVE
  4034	033726	254 10 0 00 033727 		JRST 10,.+1		;RELEASE INTERRUPT SHOULD NOT
  4035	033727	7 004 34 0 00 010000 		CONSO	PI,10000		;EFFECT PIH FLOP UNLESS AND
  4036						STOP^
  4037	033730	254 04 0 00 033731 		HALT	.+1
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 39-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0099

  4038	033731	320 00 0 00 033732 		JUMP	.+1
  4039									^
  4040
  4041						JENOK	10,4000		^;PIH 4
  4042
  4043						CLEAN^
  4044	033732	7 000 20 0 00 634440 		CONO	634440
  4045	033733	7 004 20 0 00 010000 		CONO	PI,10000
  4046									^
  4047	033734	7 004 20 0 00 004210 		CONO	PI,ACT+PIREQ+10	;SET THE PIH FLOP THEN REMOVE
  4048	033735	7 004 20 0 00 000400 		CONO	PI,DACT		;THE PIOK LEVELS VIA NO ACTIVE
  4049	033736	254 10 0 00 033737 		JRST 10,.+1		;RELEASE INTERRUPT SHOULD NOT
  4050	033737	7 004 34 0 00 004000 		CONSO	PI,4000		;EFFECT PIH FLOP UNLESS AND
  4051						STOP^
  4052	033740	254 04 0 00 033741 		HALT	.+1
  4053	033741	320 00 0 00 033742 		JUMP	.+1
  4054									^
  4055
  4056						JENOK	4,2000		^;PIH 5
  4057
  4058						CLEAN^
  4059	033742	7 000 20 0 00 634440 		CONO	634440
  4060	033743	7 004 20 0 00 010000 		CONO	PI,10000
  4061									^
  4062	033744	7 004 20 0 00 004204 		CONO	PI,ACT+PIREQ+4	;SET THE PIH FLOP THEN REMOVE
  4063	033745	7 004 20 0 00 000400 		CONO	PI,DACT		;THE PIOK LEVELS VIA NO ACTIVE
  4064	033746	254 10 0 00 033747 		JRST 10,.+1		;RELEASE INTERRUPT SHOULD NOT
  4065	033747	7 004 34 0 00 002000 		CONSO	PI,2000		;EFFECT PIH FLOP UNLESS AND
  4066						STOP^
  4067	033750	254 04 0 00 033751 		HALT	.+1
  4068	033751	320 00 0 00 033752 		JUMP	.+1
  4069									^
  4070
  4071						JENOK	2,1000		^;PIH 6
  4072
  4073						CLEAN^
  4074	033752	7 000 20 0 00 634440 		CONO	634440
  4075	033753	7 004 20 0 00 010000 		CONO	PI,10000
  4076									^
  4077	033754	7 004 20 0 00 004202 		CONO	PI,ACT+PIREQ+2	;SET THE PIH FLOP THEN REMOVE
  4078	033755	7 004 20 0 00 000400 		CONO	PI,DACT		;THE PIOK LEVELS VIA NO ACTIVE
  4079	033756	254 10 0 00 033757 		JRST 10,.+1		;RELEASE INTERRUPT SHOULD NOT
  4080	033757	7 004 34 0 00 001000 		CONSO	PI,1000		;EFFECT PIH FLOP UNLESS AND
  4081						STOP^
  4082	033760	254 04 0 00 033761 		HALT	.+1
  4083	033761	320 00 0 00 033762 		JUMP	.+1
  4084									^
  4085
  4086						JENOK	1,400		^;PIH 7
  4087
  4088						CLEAN^
  4089	033762	7 000 20 0 00 634440 		CONO	634440
  4090	033763	7 004 20 0 00 010000 		CONO	PI,10000
  4091									^
  4092	033764	7 004 20 0 00 004201 		CONO	PI,ACT+PIREQ+1	;SET THE PIH FLOP THEN REMOVE
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 39-2
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0100

  4093	033765	7 004 20 0 00 000400 		CONO	PI,DACT		;THE PIOK LEVELS VIA NO ACTIVE
  4094	033766	254 10 0 00 033767 		JRST 10,.+1		;RELEASE INTERRUPT SHOULD NOT
  4095	033767	7 004 34 0 00 000400 		CONSO	PI,400		;EFFECT PIH FLOP UNLESS AND
  4096						STOP^
  4097	033770	254 04 0 00 033771 		HALT	.+1
  4098	033771	320 00 0 00 033772 		JUMP	.+1
  4099									^
  4100
  4101	033772				MOD102:	CLEAN^
  4102	033772	7 000 20 0 00 634440 		CONO	634440
  4103	033773	7 004 20 0 00 010000 		CONO	PI,10000
  4104									^
  4105
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 40
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0101

  4106					DEFINE	ONEPIH	(A,B)<
  4107						CLEAN
  4108						CONO	PI,ACT+PIREQ+A	;CHECK FOR REDUNDANT
  4109						CONSZ PI,B		;PIH FLAGS.SEE TOP PI2 PRINT
  4110						STOP
  4111					>
  4112
  4113			020000		WW=20000
  4114			000100		ZZ=100
  4115			037400		YY=37400
  4116					MOD103:	REPEAT	7,<
  4117						ONEPIH	ZZ,YY
  4118						YY=YY+WW
  4119						WW=WW/2
  4120						ZZ=ZZ/2
  4121					>
  4122
  4123						ONEPIH	ZZ,YY^
  4124						CLEAN^
  4125	033774	7 000 20 0 00 634440 		CONO	634440
  4126	033775	7 004 20 0 00 010000 		CONO	PI,10000
  4127									^
  4128	033776	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+ZZ	;CHECK FOR REDUNDANT
  4129	033777	7 004 30 0 00 037400 		CONSZ PI,YY		;PIH FLAGS.SEE TOP PI2 PRINT
  4130						STOP^
  4131	034000	254 04 0 00 034001 		HALT	.+1
  4132	034001	320 00 0 00 034002 		JUMP	.+1
  4133									^
  4134					^
  4135			057400			YY=YY+WW
  4136			010000			WW=WW/2
  4137			000040			ZZ=ZZ/2
  4138
  4139
  4140						ONEPIH	ZZ,YY^
  4141						CLEAN^
  4142	034002	7 000 20 0 00 634440 		CONO	634440
  4143	034003	7 004 20 0 00 010000 		CONO	PI,10000
  4144									^
  4145	034004	7 004 20 0 00 004240 		CONO	PI,ACT+PIREQ+ZZ	;CHECK FOR REDUNDANT
  4146	034005	7 004 30 0 00 057400 		CONSZ PI,YY		;PIH FLAGS.SEE TOP PI2 PRINT
  4147						STOP^
  4148	034006	254 04 0 00 034007 		HALT	.+1
  4149	034007	320 00 0 00 034010 		JUMP	.+1
  4150									^
  4151					^
  4152			067400			YY=YY+WW
  4153			004000			WW=WW/2
  4154			000020			ZZ=ZZ/2
  4155
  4156
  4157						ONEPIH	ZZ,YY^
  4158						CLEAN^
  4159	034010	7 000 20 0 00 634440 		CONO	634440
  4160	034011	7 004 20 0 00 010000 		CONO	PI,10000
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 40-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0102

  4161									^
  4162	034012	7 004 20 0 00 004220 		CONO	PI,ACT+PIREQ+ZZ	;CHECK FOR REDUNDANT
  4163	034013	7 004 30 0 00 067400 		CONSZ PI,YY		;PIH FLAGS.SEE TOP PI2 PRINT
  4164						STOP^
  4165	034014	254 04 0 00 034015 		HALT	.+1
  4166	034015	320 00 0 00 034016 		JUMP	.+1
  4167									^
  4168					^
  4169			073400			YY=YY+WW
  4170			002000			WW=WW/2
  4171			000010			ZZ=ZZ/2
  4172
  4173
  4174						ONEPIH	ZZ,YY^
  4175						CLEAN^
  4176	034016	7 000 20 0 00 634440 		CONO	634440
  4177	034017	7 004 20 0 00 010000 		CONO	PI,10000
  4178									^
  4179	034020	7 004 20 0 00 004210 		CONO	PI,ACT+PIREQ+ZZ	;CHECK FOR REDUNDANT
  4180	034021	7 004 30 0 00 073400 		CONSZ PI,YY		;PIH FLAGS.SEE TOP PI2 PRINT
  4181						STOP^
  4182	034022	254 04 0 00 034023 		HALT	.+1
  4183	034023	320 00 0 00 034024 		JUMP	.+1
  4184									^
  4185					^
  4186			075400			YY=YY+WW
  4187			001000			WW=WW/2
  4188			000004			ZZ=ZZ/2
  4189
  4190
  4191						ONEPIH	ZZ,YY^
  4192						CLEAN^
  4193	034024	7 000 20 0 00 634440 		CONO	634440
  4194	034025	7 004 20 0 00 010000 		CONO	PI,10000
  4195									^
  4196	034026	7 004 20 0 00 004204 		CONO	PI,ACT+PIREQ+ZZ	;CHECK FOR REDUNDANT
  4197	034027	7 004 30 0 00 075400 		CONSZ PI,YY		;PIH FLAGS.SEE TOP PI2 PRINT
  4198						STOP^
  4199	034030	254 04 0 00 034031 		HALT	.+1
  4200	034031	320 00 0 00 034032 		JUMP	.+1
  4201									^
  4202					^
  4203			076400			YY=YY+WW
  4204			000400			WW=WW/2
  4205			000002			ZZ=ZZ/2
  4206
  4207
  4208						ONEPIH	ZZ,YY^
  4209						CLEAN^
  4210	034032	7 000 20 0 00 634440 		CONO	634440
  4211	034033	7 004 20 0 00 010000 		CONO	PI,10000
  4212									^
  4213	034034	7 004 20 0 00 004202 		CONO	PI,ACT+PIREQ+ZZ	;CHECK FOR REDUNDANT
  4214	034035	7 004 30 0 00 076400 		CONSZ PI,YY		;PIH FLAGS.SEE TOP PI2 PRINT
  4215						STOP^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 40-2
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0103

  4216	034036	254 04 0 00 034037 		HALT	.+1
  4217	034037	320 00 0 00 034040 		JUMP	.+1
  4218									^
  4219					^
  4220			077000			YY=YY+WW
  4221			000200			WW=WW/2
  4222			000001			ZZ=ZZ/2
  4223
  4224
  4225						ONEPIH	ZZ,YY^
  4226						CLEAN^
  4227	034040	7 000 20 0 00 634440 		CONO	634440
  4228	034041	7 004 20 0 00 010000 		CONO	PI,10000
  4229									^
  4230	034042	7 004 20 0 00 004201 		CONO	PI,ACT+PIREQ+ZZ	;CHECK FOR REDUNDANT
  4231	034043	7 004 30 0 00 077000 		CONSZ PI,YY		;PIH FLAGS.SEE TOP PI2 PRINT
  4232						STOP^
  4233	034044	254 04 0 00 034045 		HALT	.+1
  4234	034045	320 00 0 00 034046 		JUMP	.+1
  4235									^
  4236					^
  4237			077200			YY=YY+WW
  4238			000100			WW=WW/2
  4239			000000			ZZ=ZZ/2
  4240
  4241
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 41
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0104

  4242					DEFINE	FASTPIH	(A,B,C)<
  4243						CLEAN
  4244						CONO	PI,ACT+PIREQ+B	;SET PIH AND PIH ON
  4245						CONO	PI,ACT+PIREQ+A	;NEXT HIGHER CHANNEL
  4246						JRST 10,.+1		;SHOULD RELEASE ONLY HIGH CH
  4247						CONSO PI,C		;CHECK FOR FAST TURN OFF (PIH)
  4248						STOP
  4249					>
  4250
  4251	034046				MOD104:	FASTPIH	100,40,20000^
  4252						CLEAN^
  4253	034046	7 000 20 0 00 634440 		CONO	634440
  4254	034047	7 004 20 0 00 010000 		CONO	PI,10000
  4255									^
  4256	034050	7 004 20 0 00 004240 		CONO	PI,ACT+PIREQ+40	;SET PIH AND PIH ON
  4257	034051	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+100	;NEXT HIGHER CHANNEL
  4258	034052	254 10 0 00 034053 		JRST 10,.+1		;SHOULD RELEASE ONLY HIGH CH
  4259	034053	7 004 34 0 00 020000 		CONSO PI,20000		;CHECK FOR FAST TURN OFF (PIH)
  4260						STOP^
  4261	034054	254 04 0 00 034055 		HALT	.+1
  4262	034055	320 00 0 00 034056 		JUMP	.+1
  4263									^
  4264					^
  4265						CHANEL	MOD106^
  4266	034056	336 00 0 00 036672 		SKIPN	PI7SYS#
  4267	034057	254 00 0 00 034130 		JRST	MOD106
  4268									^
  4269	034060				MOD105:	FASTPIH	40,20,10000^
  4270						CLEAN^
  4271	034060	7 000 20 0 00 634440 		CONO	634440
  4272	034061	7 004 20 0 00 010000 		CONO	PI,10000
  4273									^
  4274	034062	7 004 20 0 00 004220 		CONO	PI,ACT+PIREQ+20	;SET PIH AND PIH ON
  4275	034063	7 004 20 0 00 004240 		CONO	PI,ACT+PIREQ+40	;NEXT HIGHER CHANNEL
  4276	034064	254 10 0 00 034065 		JRST 10,.+1		;SHOULD RELEASE ONLY HIGH CH
  4277	034065	7 004 34 0 00 010000 		CONSO PI,10000		;CHECK FOR FAST TURN OFF (PIH)
  4278						STOP^
  4279	034066	254 04 0 00 034067 		HALT	.+1
  4280	034067	320 00 0 00 034070 		JUMP	.+1
  4281									^
  4282					^
  4283						FASTPIH	20,10,4000^
  4284						CLEAN^
  4285	034070	7 000 20 0 00 634440 		CONO	634440
  4286	034071	7 004 20 0 00 010000 		CONO	PI,10000
  4287									^
  4288	034072	7 004 20 0 00 004210 		CONO	PI,ACT+PIREQ+10	;SET PIH AND PIH ON
  4289	034073	7 004 20 0 00 004220 		CONO	PI,ACT+PIREQ+20	;NEXT HIGHER CHANNEL
  4290	034074	254 10 0 00 034075 		JRST 10,.+1		;SHOULD RELEASE ONLY HIGH CH
  4291	034075	7 004 34 0 00 004000 		CONSO PI,4000		;CHECK FOR FAST TURN OFF (PIH)
  4292						STOP^
  4293	034076	254 04 0 00 034077 		HALT	.+1
  4294	034077	320 00 0 00 034100 		JUMP	.+1
  4295									^
  4296					^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 41-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0105

  4297						FASTPIH	10,4,2000^
  4298						CLEAN^
  4299	034100	7 000 20 0 00 634440 		CONO	634440
  4300	034101	7 004 20 0 00 010000 		CONO	PI,10000
  4301									^
  4302	034102	7 004 20 0 00 004204 		CONO	PI,ACT+PIREQ+4	;SET PIH AND PIH ON
  4303	034103	7 004 20 0 00 004210 		CONO	PI,ACT+PIREQ+10	;NEXT HIGHER CHANNEL
  4304	034104	254 10 0 00 034105 		JRST 10,.+1		;SHOULD RELEASE ONLY HIGH CH
  4305	034105	7 004 34 0 00 002000 		CONSO PI,2000		;CHECK FOR FAST TURN OFF (PIH)
  4306						STOP^
  4307	034106	254 04 0 00 034107 		HALT	.+1
  4308	034107	320 00 0 00 034110 		JUMP	.+1
  4309									^
  4310					^
  4311						FASTPIH	4,2,1000^
  4312						CLEAN^
  4313	034110	7 000 20 0 00 634440 		CONO	634440
  4314	034111	7 004 20 0 00 010000 		CONO	PI,10000
  4315									^
  4316	034112	7 004 20 0 00 004202 		CONO	PI,ACT+PIREQ+2	;SET PIH AND PIH ON
  4317	034113	7 004 20 0 00 004204 		CONO	PI,ACT+PIREQ+4	;NEXT HIGHER CHANNEL
  4318	034114	254 10 0 00 034115 		JRST 10,.+1		;SHOULD RELEASE ONLY HIGH CH
  4319	034115	7 004 34 0 00 001000 		CONSO PI,1000		;CHECK FOR FAST TURN OFF (PIH)
  4320						STOP^
  4321	034116	254 04 0 00 034117 		HALT	.+1
  4322	034117	320 00 0 00 034120 		JUMP	.+1
  4323									^
  4324					^
  4325						FASTPIH	2,1,400^
  4326						CLEAN^
  4327	034120	7 000 20 0 00 634440 		CONO	634440
  4328	034121	7 004 20 0 00 010000 		CONO	PI,10000
  4329									^
  4330	034122	7 004 20 0 00 004201 		CONO	PI,ACT+PIREQ+1	;SET PIH AND PIH ON
  4331	034123	7 004 20 0 00 004202 		CONO	PI,ACT+PIREQ+2	;NEXT HIGHER CHANNEL
  4332	034124	254 10 0 00 034125 		JRST 10,.+1		;SHOULD RELEASE ONLY HIGH CH
  4333	034125	7 004 34 0 00 000400 		CONSO PI,400		;CHECK FOR FAST TURN OFF (PIH)
  4334						STOP^
  4335	034126	254 04 0 00 034127 		HALT	.+1
  4336	034127	320 00 0 00 034130 		JUMP	.+1
  4337									^
  4338					^
  4339	034130				MOD106:	CLEAN^
  4340	034130	7 000 20 0 00 634440 		CONO	634440
  4341	034131	7 004 20 0 00 010000 		CONO	PI,10000
  4342									^
  4343
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 42
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0106

  4344			000100		ZZ=100
  4345			040000		YY=40000
  4346					MOD107:	REPEAT	7,<
  4347						CLEAN
  4348						CONO	PI,PIOSET+ACT+ZZ	;SET CHANNEL IOB SHOULD
  4349						CONSZ	PI,YY		;NOT HAVE DATA. CHECK AND
  4350						STOP			;OF PIR STB, IOB PIRQ, PIO
  4351						ZZ=ZZ/2			;THE PIRQ INPUT. INTERRUPT NOT
  4352						YY=YY/2			;HAVE OCCURED. SEE PI2 PRINT>
  4353
  4354						CLEAN^
  4355	034132	7 000 20 0 00 634440 		CONO	634440
  4356	034133	7 004 20 0 00 010000 		CONO	PI,10000
  4357									^
  4358	034134	7 004 20 0 00 002300 		CONO	PI,PIOSET+ACT+ZZ	;SET CHANNEL IOB SHOULD
  4359	034135	7 004 30 0 00 040000 		CONSZ	PI,YY		;NOT HAVE DATA. CHECK AND
  4360						STOP			^
  4361	034136	254 04 0 00 034137 		HALT	.+1
  4362	034137	320 00 0 00 034140 		JUMP	.+1
  4363									^;OF PIR STB, IOB PIRQ, PIO
  4364			000040			ZZ=ZZ/2			;THE PIRQ INPUT. INTERRUPT NOT
  4365			020000			YY=YY/2			;HAVE OCCURED. SEE PI2 PRINT
  4366
  4367						CLEAN^
  4368	034140	7 000 20 0 00 634440 		CONO	634440
  4369	034141	7 004 20 0 00 010000 		CONO	PI,10000
  4370									^
  4371	034142	7 004 20 0 00 002240 		CONO	PI,PIOSET+ACT+ZZ	;SET CHANNEL IOB SHOULD
  4372	034143	7 004 30 0 00 020000 		CONSZ	PI,YY		;NOT HAVE DATA. CHECK AND
  4373						STOP			^
  4374	034144	254 04 0 00 034145 		HALT	.+1
  4375	034145	320 00 0 00 034146 		JUMP	.+1
  4376									^;OF PIR STB, IOB PIRQ, PIO
  4377			000020			ZZ=ZZ/2			;THE PIRQ INPUT. INTERRUPT NOT
  4378			010000			YY=YY/2			;HAVE OCCURED. SEE PI2 PRINT
  4379
  4380						CLEAN^
  4381	034146	7 000 20 0 00 634440 		CONO	634440
  4382	034147	7 004 20 0 00 010000 		CONO	PI,10000
  4383									^
  4384	034150	7 004 20 0 00 002220 		CONO	PI,PIOSET+ACT+ZZ	;SET CHANNEL IOB SHOULD
  4385	034151	7 004 30 0 00 010000 		CONSZ	PI,YY		;NOT HAVE DATA. CHECK AND
  4386						STOP			^
  4387	034152	254 04 0 00 034153 		HALT	.+1
  4388	034153	320 00 0 00 034154 		JUMP	.+1
  4389									^;OF PIR STB, IOB PIRQ, PIO
  4390			000010			ZZ=ZZ/2			;THE PIRQ INPUT. INTERRUPT NOT
  4391			004000			YY=YY/2			;HAVE OCCURED. SEE PI2 PRINT
  4392
  4393						CLEAN^
  4394	034154	7 000 20 0 00 634440 		CONO	634440
  4395	034155	7 004 20 0 00 010000 		CONO	PI,10000
  4396									^
  4397	034156	7 004 20 0 00 002210 		CONO	PI,PIOSET+ACT+ZZ	;SET CHANNEL IOB SHOULD
  4398	034157	7 004 30 0 00 004000 		CONSZ	PI,YY		;NOT HAVE DATA. CHECK AND
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 42-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0107

  4399						STOP			^
  4400	034160	254 04 0 00 034161 		HALT	.+1
  4401	034161	320 00 0 00 034162 		JUMP	.+1
  4402									^;OF PIR STB, IOB PIRQ, PIO
  4403			000004			ZZ=ZZ/2			;THE PIRQ INPUT. INTERRUPT NOT
  4404			002000			YY=YY/2			;HAVE OCCURED. SEE PI2 PRINT
  4405
  4406						CLEAN^
  4407	034162	7 000 20 0 00 634440 		CONO	634440
  4408	034163	7 004 20 0 00 010000 		CONO	PI,10000
  4409									^
  4410	034164	7 004 20 0 00 002204 		CONO	PI,PIOSET+ACT+ZZ	;SET CHANNEL IOB SHOULD
  4411	034165	7 004 30 0 00 002000 		CONSZ	PI,YY		;NOT HAVE DATA. CHECK AND
  4412						STOP			^
  4413	034166	254 04 0 00 034167 		HALT	.+1
  4414	034167	320 00 0 00 034170 		JUMP	.+1
  4415									^;OF PIR STB, IOB PIRQ, PIO
  4416			000002			ZZ=ZZ/2			;THE PIRQ INPUT. INTERRUPT NOT
  4417			001000			YY=YY/2			;HAVE OCCURED. SEE PI2 PRINT
  4418
  4419						CLEAN^
  4420	034170	7 000 20 0 00 634440 		CONO	634440
  4421	034171	7 004 20 0 00 010000 		CONO	PI,10000
  4422									^
  4423	034172	7 004 20 0 00 002202 		CONO	PI,PIOSET+ACT+ZZ	;SET CHANNEL IOB SHOULD
  4424	034173	7 004 30 0 00 001000 		CONSZ	PI,YY		;NOT HAVE DATA. CHECK AND
  4425						STOP			^
  4426	034174	254 04 0 00 034175 		HALT	.+1
  4427	034175	320 00 0 00 034176 		JUMP	.+1
  4428									^;OF PIR STB, IOB PIRQ, PIO
  4429			000001			ZZ=ZZ/2			;THE PIRQ INPUT. INTERRUPT NOT
  4430			000400			YY=YY/2			;HAVE OCCURED. SEE PI2 PRINT
  4431
  4432						CLEAN^
  4433	034176	7 000 20 0 00 634440 		CONO	634440
  4434	034177	7 004 20 0 00 010000 		CONO	PI,10000
  4435									^
  4436	034200	7 004 20 0 00 002201 		CONO	PI,PIOSET+ACT+ZZ	;SET CHANNEL IOB SHOULD
  4437	034201	7 004 30 0 00 000400 		CONSZ	PI,YY		;NOT HAVE DATA. CHECK AND
  4438						STOP			^
  4439	034202	254 04 0 00 034203 		HALT	.+1
  4440	034203	320 00 0 00 034204 		JUMP	.+1
  4441									^;OF PIR STB, IOB PIRQ, PIO
  4442			000000			ZZ=ZZ/2			;THE PIRQ INPUT. INTERRUPT NOT
  4443			000200			YY=YY/2			;HAVE OCCURED. SEE PI2 PRINT
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 43
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0108

  4444
  4445					DEFINE	CPINTR	(A)<		;PROVIDE AN INTERRUPT TO PI
  4446						MOVSI	400000		;BUS FROM PROCESSOR VIA ARROV
  4447						ADD			;AND OTHER SOURCES
  4448						CONO	42220+A>
  4449
  4450					DEFINE	IOBRQ	(A,B,C)<
  4451						CLEAN			;CLEAR THE WORLD EXCEPT CP
  4452						CPINTR	A
  4453						CONO	PI,PIOSET+ACT+B	;TURN ON CK FLOP TO ALLOW
  4454						CONSO	PI,C		;INTERRUPT. CK INPUT TO PIR FLOP
  4455						STOP
  4456					>
  4457
  4458			000001		ZZ=1
  4459			040000		YY=40000
  4460					MOD108:	REPEAT	7,<		;TEST FOR NO INTERRUPT FROM BUSS
  4461						CLEAN			;CLEAR WORLD
  4462						CPINTR ZZ		;INTERRUPT TO BUSS INPUT TO PIR
  4463						CONSZ	PI,YY		;PIO=0 EXPECT NO INTERRUPT. SEE
  4464						STOP
  4465						ZZ=ZZ+1			;IOB PIRQ,PIO(1), ON PI2 PRINT
  4466						YY=YY/2
  4467					>
  4468							;TEST FOR NO INTERRUPT FROM BUSS
  4469						CLEAN			^
  4470	034204	7 000 20 0 00 634440 		CONO	634440
  4471	034205	7 004 20 0 00 010000 		CONO	PI,10000
  4472									^;CLEAR WORLD
  4473						CPINTR ZZ		^		;PROVIDE AN INTERRUPT TO PI
  4474	034206	205 00 0 00 400000 		MOVSI	400000		;BUS FROM PROCESSOR VIA ARROV
  4475	034207	270 00 0 00 000000 		ADD			;AND OTHER SOURCES
  4476	034210	7 000 20 0 00 042221 		CONO	42220+ZZ^;INTERRUPT TO BUSS INPUT TO PIR
  4477	034211	7 004 30 0 00 040000 		CONSZ	PI,YY		;PIO=0 EXPECT NO INTERRUPT. SEE
  4478						STOP^
  4479	034212	254 04 0 00 034213 		HALT	.+1
  4480	034213	320 00 0 00 034214 		JUMP	.+1
  4481									^
  4482			000002			ZZ=ZZ+1			;IOB PIRQ,PIO(1), ON PI2 PRINT
  4483			020000			YY=YY/2
  4484
  4485							;TEST FOR NO INTERRUPT FROM BUSS
  4486						CLEAN			^
  4487	034214	7 000 20 0 00 634440 		CONO	634440
  4488	034215	7 004 20 0 00 010000 		CONO	PI,10000
  4489									^;CLEAR WORLD
  4490						CPINTR ZZ		^		;PROVIDE AN INTERRUPT TO PI
  4491	034216	205 00 0 00 400000 		MOVSI	400000		;BUS FROM PROCESSOR VIA ARROV
  4492	034217	270 00 0 00 000000 		ADD			;AND OTHER SOURCES
  4493	034220	7 000 20 0 00 042222 		CONO	42220+ZZ^;INTERRUPT TO BUSS INPUT TO PIR
  4494	034221	7 004 30 0 00 020000 		CONSZ	PI,YY		;PIO=0 EXPECT NO INTERRUPT. SEE
  4495						STOP^
  4496	034222	254 04 0 00 034223 		HALT	.+1
  4497	034223	320 00 0 00 034224 		JUMP	.+1
  4498									^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 43-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0109

  4499			000003			ZZ=ZZ+1			;IOB PIRQ,PIO(1), ON PI2 PRINT
  4500			010000			YY=YY/2
  4501
  4502							;TEST FOR NO INTERRUPT FROM BUSS
  4503						CLEAN			^
  4504	034224	7 000 20 0 00 634440 		CONO	634440
  4505	034225	7 004 20 0 00 010000 		CONO	PI,10000
  4506									^;CLEAR WORLD
  4507						CPINTR ZZ		^		;PROVIDE AN INTERRUPT TO PI
  4508	034226	205 00 0 00 400000 		MOVSI	400000		;BUS FROM PROCESSOR VIA ARROV
  4509	034227	270 00 0 00 000000 		ADD			;AND OTHER SOURCES
  4510	034230	7 000 20 0 00 042223 		CONO	42220+ZZ^;INTERRUPT TO BUSS INPUT TO PIR
  4511	034231	7 004 30 0 00 010000 		CONSZ	PI,YY		;PIO=0 EXPECT NO INTERRUPT. SEE
  4512						STOP^
  4513	034232	254 04 0 00 034233 		HALT	.+1
  4514	034233	320 00 0 00 034234 		JUMP	.+1
  4515									^
  4516			000004			ZZ=ZZ+1			;IOB PIRQ,PIO(1), ON PI2 PRINT
  4517			004000			YY=YY/2
  4518
  4519							;TEST FOR NO INTERRUPT FROM BUSS
  4520						CLEAN			^
  4521	034234	7 000 20 0 00 634440 		CONO	634440
  4522	034235	7 004 20 0 00 010000 		CONO	PI,10000
  4523									^;CLEAR WORLD
  4524						CPINTR ZZ		^		;PROVIDE AN INTERRUPT TO PI
  4525	034236	205 00 0 00 400000 		MOVSI	400000		;BUS FROM PROCESSOR VIA ARROV
  4526	034237	270 00 0 00 000000 		ADD			;AND OTHER SOURCES
  4527	034240	7 000 20 0 00 042224 		CONO	42220+ZZ^;INTERRUPT TO BUSS INPUT TO PIR
  4528	034241	7 004 30 0 00 004000 		CONSZ	PI,YY		;PIO=0 EXPECT NO INTERRUPT. SEE
  4529						STOP^
  4530	034242	254 04 0 00 034243 		HALT	.+1
  4531	034243	320 00 0 00 034244 		JUMP	.+1
  4532									^
  4533			000005			ZZ=ZZ+1			;IOB PIRQ,PIO(1), ON PI2 PRINT
  4534			002000			YY=YY/2
  4535
  4536							;TEST FOR NO INTERRUPT FROM BUSS
  4537						CLEAN			^
  4538	034244	7 000 20 0 00 634440 		CONO	634440
  4539	034245	7 004 20 0 00 010000 		CONO	PI,10000
  4540									^;CLEAR WORLD
  4541						CPINTR ZZ		^		;PROVIDE AN INTERRUPT TO PI
  4542	034246	205 00 0 00 400000 		MOVSI	400000		;BUS FROM PROCESSOR VIA ARROV
  4543	034247	270 00 0 00 000000 		ADD			;AND OTHER SOURCES
  4544	034250	7 000 20 0 00 042225 		CONO	42220+ZZ^;INTERRUPT TO BUSS INPUT TO PIR
  4545	034251	7 004 30 0 00 002000 		CONSZ	PI,YY		;PIO=0 EXPECT NO INTERRUPT. SEE
  4546						STOP^
  4547	034252	254 04 0 00 034253 		HALT	.+1
  4548	034253	320 00 0 00 034254 		JUMP	.+1
  4549									^
  4550			000006			ZZ=ZZ+1			;IOB PIRQ,PIO(1), ON PI2 PRINT
  4551			001000			YY=YY/2
  4552
  4553							;TEST FOR NO INTERRUPT FROM BUSS
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 43-2
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0110

  4554						CLEAN			^
  4555	034254	7 000 20 0 00 634440 		CONO	634440
  4556	034255	7 004 20 0 00 010000 		CONO	PI,10000
  4557									^;CLEAR WORLD
  4558						CPINTR ZZ		^		;PROVIDE AN INTERRUPT TO PI
  4559	034256	205 00 0 00 400000 		MOVSI	400000		;BUS FROM PROCESSOR VIA ARROV
  4560	034257	270 00 0 00 000000 		ADD			;AND OTHER SOURCES
  4561	034260	7 000 20 0 00 042226 		CONO	42220+ZZ^;INTERRUPT TO BUSS INPUT TO PIR
  4562	034261	7 004 30 0 00 001000 		CONSZ	PI,YY		;PIO=0 EXPECT NO INTERRUPT. SEE
  4563						STOP^
  4564	034262	254 04 0 00 034263 		HALT	.+1
  4565	034263	320 00 0 00 034264 		JUMP	.+1
  4566									^
  4567			000007			ZZ=ZZ+1			;IOB PIRQ,PIO(1), ON PI2 PRINT
  4568			000400			YY=YY/2
  4569
  4570							;TEST FOR NO INTERRUPT FROM BUSS
  4571						CLEAN			^
  4572	034264	7 000 20 0 00 634440 		CONO	634440
  4573	034265	7 004 20 0 00 010000 		CONO	PI,10000
  4574									^;CLEAR WORLD
  4575						CPINTR ZZ		^		;PROVIDE AN INTERRUPT TO PI
  4576	034266	205 00 0 00 400000 		MOVSI	400000		;BUS FROM PROCESSOR VIA ARROV
  4577	034267	270 00 0 00 000000 		ADD			;AND OTHER SOURCES
  4578	034270	7 000 20 0 00 042227 		CONO	42220+ZZ^;INTERRUPT TO BUSS INPUT TO PIR
  4579	034271	7 004 30 0 00 000400 		CONSZ	PI,YY		;PIO=0 EXPECT NO INTERRUPT. SEE
  4580						STOP^
  4581	034272	254 04 0 00 034273 		HALT	.+1
  4582	034273	320 00 0 00 034274 		JUMP	.+1
  4583									^
  4584			000010			ZZ=ZZ+1			;IOB PIRQ,PIO(1), ON PI2 PRINT
  4585			000200			YY=YY/2
  4586
  4587
  4588	034274				MOD109:	IOBRQ	1,100,77400^
  4589						CLEAN			^
  4590	034274	7 000 20 0 00 634440 		CONO	634440
  4591	034275	7 004 20 0 00 010000 		CONO	PI,10000
  4592									^;CLEAR THE WORLD EXCEPT CP
  4593						CPINTR	1^		;PROVIDE AN INTERRUPT TO PI
  4594	034276	205 00 0 00 400000 		MOVSI	400000		;BUS FROM PROCESSOR VIA ARROV
  4595	034277	270 00 0 00 000000 		ADD			;AND OTHER SOURCES
  4596	034300	7 000 20 0 00 042221 		CONO	42220+1^
  4597	034301	7 004 20 0 00 002300 		CONO	PI,PIOSET+ACT+100	;TURN ON CK FLOP TO ALLOW
  4598	034302	7 004 34 0 00 077400 		CONSO	PI,77400		;INTERRUPT. CK INPUT TO PIR FLOP
  4599						STOP^
  4600	034303	254 04 0 00 034304 		HALT	.+1
  4601	034304	320 00 0 00 034305 		JUMP	.+1
  4602									^
  4603					^
  4604						IOBRQ	2,40,77400^
  4605						CLEAN			^
  4606	034305	7 000 20 0 00 634440 		CONO	634440
  4607	034306	7 004 20 0 00 010000 		CONO	PI,10000
  4608									^;CLEAR THE WORLD EXCEPT CP
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 43-3
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0111

  4609						CPINTR	2^		;PROVIDE AN INTERRUPT TO PI
  4610	034307	205 00 0 00 400000 		MOVSI	400000		;BUS FROM PROCESSOR VIA ARROV
  4611	034310	270 00 0 00 000000 		ADD			;AND OTHER SOURCES
  4612	034311	7 000 20 0 00 042222 		CONO	42220+2^
  4613	034312	7 004 20 0 00 002240 		CONO	PI,PIOSET+ACT+40	;TURN ON CK FLOP TO ALLOW
  4614	034313	7 004 34 0 00 077400 		CONSO	PI,77400		;INTERRUPT. CK INPUT TO PIR FLOP
  4615						STOP^
  4616	034314	254 04 0 00 034315 		HALT	.+1
  4617	034315	320 00 0 00 034316 		JUMP	.+1
  4618									^
  4619					^
  4620						CHANEL	MOD111^
  4621	034316	336 00 0 00 036672 		SKIPN	PI7SYS#
  4622	034317	254 00 0 00 034375 		JRST	MOD111
  4623									^
  4624	034320				MOD110:	IOBRQ	3,20,77400^
  4625						CLEAN			^
  4626	034320	7 000 20 0 00 634440 		CONO	634440
  4627	034321	7 004 20 0 00 010000 		CONO	PI,10000
  4628									^;CLEAR THE WORLD EXCEPT CP
  4629						CPINTR	3^		;PROVIDE AN INTERRUPT TO PI
  4630	034322	205 00 0 00 400000 		MOVSI	400000		;BUS FROM PROCESSOR VIA ARROV
  4631	034323	270 00 0 00 000000 		ADD			;AND OTHER SOURCES
  4632	034324	7 000 20 0 00 042223 		CONO	42220+3^
  4633	034325	7 004 20 0 00 002220 		CONO	PI,PIOSET+ACT+20	;TURN ON CK FLOP TO ALLOW
  4634	034326	7 004 34 0 00 077400 		CONSO	PI,77400		;INTERRUPT. CK INPUT TO PIR FLOP
  4635						STOP^
  4636	034327	254 04 0 00 034330 		HALT	.+1
  4637	034330	320 00 0 00 034331 		JUMP	.+1
  4638									^
  4639					^
  4640						IOBRQ	4,10,77400^
  4641						CLEAN			^
  4642	034331	7 000 20 0 00 634440 		CONO	634440
  4643	034332	7 004 20 0 00 010000 		CONO	PI,10000
  4644									^;CLEAR THE WORLD EXCEPT CP
  4645						CPINTR	4^		;PROVIDE AN INTERRUPT TO PI
  4646	034333	205 00 0 00 400000 		MOVSI	400000		;BUS FROM PROCESSOR VIA ARROV
  4647	034334	270 00 0 00 000000 		ADD			;AND OTHER SOURCES
  4648	034335	7 000 20 0 00 042224 		CONO	42220+4^
  4649	034336	7 004 20 0 00 002210 		CONO	PI,PIOSET+ACT+10	;TURN ON CK FLOP TO ALLOW
  4650	034337	7 004 34 0 00 077400 		CONSO	PI,77400		;INTERRUPT. CK INPUT TO PIR FLOP
  4651						STOP^
  4652	034340	254 04 0 00 034341 		HALT	.+1
  4653	034341	320 00 0 00 034342 		JUMP	.+1
  4654									^
  4655					^
  4656						IOBRQ	5,4,77400^
  4657						CLEAN			^
  4658	034342	7 000 20 0 00 634440 		CONO	634440
  4659	034343	7 004 20 0 00 010000 		CONO	PI,10000
  4660									^;CLEAR THE WORLD EXCEPT CP
  4661						CPINTR	5^		;PROVIDE AN INTERRUPT TO PI
  4662	034344	205 00 0 00 400000 		MOVSI	400000		;BUS FROM PROCESSOR VIA ARROV
  4663	034345	270 00 0 00 000000 		ADD			;AND OTHER SOURCES
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 43-4
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0112

  4664	034346	7 000 20 0 00 042225 		CONO	42220+5^
  4665	034347	7 004 20 0 00 002204 		CONO	PI,PIOSET+ACT+4	;TURN ON CK FLOP TO ALLOW
  4666	034350	7 004 34 0 00 077400 		CONSO	PI,77400		;INTERRUPT. CK INPUT TO PIR FLOP
  4667						STOP^
  4668	034351	254 04 0 00 034352 		HALT	.+1
  4669	034352	320 00 0 00 034353 		JUMP	.+1
  4670									^
  4671					^
  4672						IOBRQ	6,2,77400^
  4673						CLEAN			^
  4674	034353	7 000 20 0 00 634440 		CONO	634440
  4675	034354	7 004 20 0 00 010000 		CONO	PI,10000
  4676									^;CLEAR THE WORLD EXCEPT CP
  4677						CPINTR	6^		;PROVIDE AN INTERRUPT TO PI
  4678	034355	205 00 0 00 400000 		MOVSI	400000		;BUS FROM PROCESSOR VIA ARROV
  4679	034356	270 00 0 00 000000 		ADD			;AND OTHER SOURCES
  4680	034357	7 000 20 0 00 042226 		CONO	42220+6^
  4681	034360	7 004 20 0 00 002202 		CONO	PI,PIOSET+ACT+2	;TURN ON CK FLOP TO ALLOW
  4682	034361	7 004 34 0 00 077400 		CONSO	PI,77400		;INTERRUPT. CK INPUT TO PIR FLOP
  4683						STOP^
  4684	034362	254 04 0 00 034363 		HALT	.+1
  4685	034363	320 00 0 00 034364 		JUMP	.+1
  4686									^
  4687					^
  4688						IOBRQ	7,1,77400^
  4689						CLEAN			^
  4690	034364	7 000 20 0 00 634440 		CONO	634440
  4691	034365	7 004 20 0 00 010000 		CONO	PI,10000
  4692									^;CLEAR THE WORLD EXCEPT CP
  4693						CPINTR	7^		;PROVIDE AN INTERRUPT TO PI
  4694	034366	205 00 0 00 400000 		MOVSI	400000		;BUS FROM PROCESSOR VIA ARROV
  4695	034367	270 00 0 00 000000 		ADD			;AND OTHER SOURCES
  4696	034370	7 000 20 0 00 042227 		CONO	42220+7^
  4697	034371	7 004 20 0 00 002201 		CONO	PI,PIOSET+ACT+1	;TURN ON CK FLOP TO ALLOW
  4698	034372	7 004 34 0 00 077400 		CONSO	PI,77400		;INTERRUPT. CK INPUT TO PIR FLOP
  4699						STOP^
  4700	034373	254 04 0 00 034374 		HALT	.+1
  4701	034374	320 00 0 00 034375 		JUMP	.+1
  4702									^
  4703					^
  4704	034375				MOD111:	CLEAN^
  4705	034375	7 000 20 0 00 634440 		CONO	634440
  4706	034376	7 004 20 0 00 010000 		CONO	PI,10000
  4707									^
  4708
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 44
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0113

  4709	034377				MOD115:	CLEAN			^;TEST CP FOR NO INTERRUPT
  4710
  4711	034377	7 000 20 0 00 634440 		CONO	634440
  4712	034400	7 004 20 0 00 010000 		CONO	PI,10000
  4713				
  4714	034401	7 000 20 0 00 000001 		CONO	1		;ASSIGN A CHANNEL TO
  4715	034402	7 004 20 0 00 002377 		CONO	PI,PIG0		;PROCESSOR, ENABLE PI. IF
  4716	034403	7 004 30 0 00 077400 		CONSZ	PI,77400	;INTERRUPT PROCESS PUT BIT ON PI BUSS
  4717						STOP			^;CHECK TOB IPRQ ON CPA PRINT
  4718
  4719	034404	254 04 0 00 034405 		HALT	.+1
  4720	034405	320 00 0 00 034406 		JUMP	.+1
  4721				
  4722
  4723						BLURB^
  4724					;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
  4725					;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
  4726					;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
  4727					;INSTRUCTION
  4728					^
  4729
  4730	034406				MOD116:	CLEAN^
  4731	034406	7 000 20 0 00 634440 		CONO	634440
  4732	034407	7 004 20 0 00 010000 		CONO	PI,10000
  4733									^
  4734						CPINTR	1		^;ENABLE PROCESSOR INTERRUPT
  4735							;PROVIDE AN INTERRUPT TO PI
  4736	034410	205 00 0 00 400000 		MOVSI	400000		;BUS FROM PROCESSOR VIA ARROV
  4737	034411	270 00 0 00 000000 		ADD			;AND OTHER SOURCES
  4738	034412	7 000 20 0 00 042221 		CONO	42220+1
  4739	034413	400 00 0 00 000000 		SETZ
  4740	034414	7 004 20 0 00 002377 		CONO	PI,PIG0		;PROCESSOR DECODE TO PI BUSS
  4741	034415	302 00 0 00 000042 		CAIE	42		;FAIL, SEE TOP RIGHT OF CPU
  4742						STOP			^;PRINT C(0)=ADDR OF XCT INST
  4743
  4744	034416	254 04 0 00 034417 		HALT	.+1
  4745	034417	320 00 0 00 034420 		JUMP	.+1
  4746				
  4747
  4748	034420				MOD117:	CLEAN^
  4749	034420	7 000 20 0 00 634440 		CONO	634440
  4750	034421	7 004 20 0 00 010000 		CONO	PI,10000
  4751									^
  4752						CPINTR	2		^;ENABLE PROCESSOR INTERRUPT
  4753							;PROVIDE AN INTERRUPT TO PI
  4754	034422	205 00 0 00 400000 		MOVSI	400000		;BUS FROM PROCESSOR VIA ARROV
  4755	034423	270 00 0 00 000000 		ADD			;AND OTHER SOURCES
  4756	034424	7 000 20 0 00 042222 		CONO	42220+2
  4757	034425	400 00 0 00 000000 		SETZ			;WILL BE FILLED BY ADDR OF XCT INST
  4758	034426	7 004 20 0 00 002377 		CONO	PI,PIG0		;ACTIVATE PI SYS
  4759	034427	302 00 0 00 000044 		CAIE	44		;EXPECT CHANNEL 2
  4760						STOP			^;IF C(0)=0 NO INTERRUPT. SEE CPA PRINT
  4761
  4762	034430	254 04 0 00 034431 		HALT	.+1
  4763	034431	320 00 0 00 034432 		JUMP	.+1
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 44-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0114

  4764				
  4765						CHANEL	MOD120^
  4766	034432	336 00 0 00 036672 		SKIPN	PI7SYS#
  4767	034433	254 00 0 00 034507 		JRST	MOD120
  4768									^
  4769	034434				MOD118:	CLEAN^
  4770	034434	7 000 20 0 00 634440 		CONO	634440
  4771	034435	7 004 20 0 00 010000 		CONO	PI,10000
  4772									^
  4773						CPINTR	4		^;ENABLE PROCESSOR INTERRUPT
  4774							;PROVIDE AN INTERRUPT TO PI
  4775	034436	205 00 0 00 400000 		MOVSI	400000		;BUS FROM PROCESSOR VIA ARROV
  4776	034437	270 00 0 00 000000 		ADD			;AND OTHER SOURCES
  4777	034440	7 000 20 0 00 042224 		CONO	42220+4
  4778	034441	400 00 0 00 000000 		SETZ			;WILL BE FILL BY ADDR OF XCT INST
  4779	034442	7 004 20 0 00 002377 		CONO	PI,PIG0		;ACT PI SYS
  4780	034443	302 00 0 00 000050 		CAIE	50		;EXPECT CHANNEL 4
  4781						STOP			^;IF C(0)=0 NO INTERRUPT. SEE CPA PRINT
  4782
  4783	034444	254 04 0 00 034445 		HALT	.+1
  4784	034445	320 00 0 00 034446 		JUMP	.+1
  4785				
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 45
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0115

  4786
  4787						BLURB^
  4788					;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
  4789					;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
  4790					;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
  4791					;INSTRUCTION
  4792					^
  4793	034446				MOD119:	CLEAN			^;ENABLE AN INTERRUPT ON CHANNEL 1-7
  4794
  4795	034446	7 000 20 0 00 634440 		CONO	634440
  4796	034447	7 004 20 0 00 010000 		CONO	PI,10000
  4797				
  4798						CPINTR	7		^;CHECK PROCESSOR INTERRUPT
  4799							;PROVIDE AN INTERRUPT TO PI
  4800	034450	205 00 0 00 400000 		MOVSI	400000		;BUS FROM PROCESSOR VIA ARROV
  4801	034451	270 00 0 00 000000 		ADD			;AND OTHER SOURCES
  4802	034452	7 000 20 0 00 042227 		CONO	42220+7
  4803	034453	7 004 20 0 00 002377 		CONO	PI,PIG0
  4804	034454	302 00 0 00 000056 		CAIE	56
  4805						STOP			^;CH 7 FAIL TO INTERRUPT
  4806
  4807	034455	254 04 0 00 034456 		HALT	.+1
  4808	034456	320 00 0 00 034457 		JUMP	.+1
  4809				
  4810	034457	7 000 20 0 00 000006 		CONO	6
  4811	034460	302 00 0 00 000054 		CAIE	54
  4812						STOP			^;CH 6 FAIL TO INTERRUPT
  4813
  4814	034461	254 04 0 00 034462 		HALT	.+1
  4815	034462	320 00 0 00 034463 		JUMP	.+1
  4816				
  4817	034463	7 000 20 0 00 000005 		CONO	5
  4818	034464	302 00 0 00 000052 		CAIE	52
  4819						STOP			^;CH 5 FAIL TO INTERRUPT
  4820
  4821	034465	254 04 0 00 034466 		HALT	.+1
  4822	034466	320 00 0 00 034467 		JUMP	.+1
  4823				
  4824	034467	7 000 20 0 00 000004 		CONO	4
  4825	034470	302 00 0 00 000050 		CAIE	50
  4826						STOP			^;CH 4 FAIL TO INTERRUPT
  4827
  4828	034471	254 04 0 00 034472 		HALT	.+1
  4829	034472	320 00 0 00 034473 		JUMP	.+1
  4830				
  4831	034473	7 000 20 0 00 000003 		CONO	3
  4832	034474	302 00 0 00 000046 		CAIE	46
  4833						STOP			^;CH 3 FAIL TO INTERRUPT
  4834
  4835	034475	254 04 0 00 034476 		HALT	.+1
  4836	034476	320 00 0 00 034477 		JUMP	.+1
  4837				
  4838	034477	7 000 20 0 00 000002 		CONO	2
  4839	034500	302 00 0 00 000044 		CAIE	44
  4840						STOP			^;CH 2 FAIL TO INTERRUPT
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 45-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0116

  4841
  4842	034501	254 04 0 00 034502 		HALT	.+1
  4843	034502	320 00 0 00 034503 		JUMP	.+1
  4844				
  4845	034503	7 000 20 0 00 000001 		CONO	1
  4846	034504	302 00 0 00 000042 		CAIE	42
  4847						STOP			^;CH 1 FAIL TO INTERRUPT
  4848
  4849	034505	254 04 0 00 034506 		HALT	.+1
  4850	034506	320 00 0 00 034507 		JUMP	.+1
  4851				
  4852	034507				MOD120:	CLEAN^
  4853	034507	7 000 20 0 00 634440 		CONO	634440
  4854	034510	7 004 20 0 00 010000 		CONO	PI,10000
  4855									^
  4856
  4857						BLURB^
  4858					;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
  4859					;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
  4860					;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
  4861					;INSTRUCTION
  4862					^
  4863	034511				MOD121:	CLEAN^
  4864	034511	7 000 20 0 00 634440 		CONO	634440
  4865	034512	7 004 20 0 00 010000 		CONO	PI,10000
  4866									^
  4867	034513	400 00 0 00 000000 		SETZ			;C(0) MODIFIED IF INTERRUPT
  4868	034514	7 004 20 0 00 002377 		CONO	PI,PIG0		;ENABLE PI
  4869	034515	255 10 0 00 034516 		JFCL	10,.+1		;CLEAR AROV
  4870	034516	7 000 20 0 00 000021 		CONO	20+1		;ENABLE AROV CH1
  4871	034517	332 00 0 00 000000 		SKIPE			;INTERRUPT OCCURED SEE CPA PRINT
  4872						STOP			^;CPA AROV EN(1) AND GATE TO PIRQ
  4873
  4874	034520	254 04 0 00 034521 		HALT	.+1
  4875	034521	320 00 0 00 034522 		JUMP	.+1
  4876				
  4877
  4878	034522				MOD122:	CLEAN^
  4879	034522	7 000 20 0 00 634440 		CONO	634440
  4880	034523	7 004 20 0 00 010000 		CONO	PI,10000
  4881									^
  4882	034524	400 00 0 00 000000 		SETZ
  4883	034525	7 004 20 0 00 002377 		CONO	PI,PIG0
  4884	034526	205 00 0 00 400000 		MOVSI	400000
  4885	034527	270 00 0 00 000000 		ADD			;SET AROV
  4886	034530	7 000 20 0 00 000001 		CONO	1		;AROV CNT NO ENABLE
  4887	034531	332 00 0 00 000000 		SKIPE			;INT OCCURED SEE CPU PRINT
  4888						STOP^
  4889	034532	254 04 0 00 034533 		HALT	.+1
  4890	034533	320 00 0 00 034534 		JUMP	.+1
  4891									^
  4892
  4893	034534				MOD123:	CLEAN^
  4894	034534	7 000 20 0 00 634440 		CONO	634440
  4895	034535	7 004 20 0 00 010000 		CONO	PI,10000
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 45-2
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0117

  4896									^
  4897	034536	400 00 0 00 000000 		SETZ
  4898	034537	7 004 20 0 00 002377 		CONO	PI,PIG0		;ENABLE PI
  4899	034540	205 00 0 00 400000 		MOVSI	400000		;SET AROV
  4900	034541	270 00 0 00 000000 		ADD			;FLOP
  4901	034542	7 000 20 0 00 000021 		CONO	21		;FLOP AND AROV (EN)
  4902	034543	302 00 0 00 000042 		CAIE	42		;NO INTERRUPT CHECK AND GATE
  4903						STOP			^;TO PIRQ ON CPU PRINT
  4904
  4905	034544	254 04 0 00 034545 		HALT	.+1
  4906	034545	320 00 0 00 034546 		JUMP	.+1
  4907				
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 46
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0118

  4908
  4909	034546				MOD124:	CLEAN^
  4910	034546	7 000 20 0 00 634440 		CONO	634440
  4911	034547	7 004 20 0 00 010000 		CONO	PI,10000
  4912									^
  4913	034550	400 00 0 00 000000 		SETZ
  4914	034551	7 004 20 0 00 002377 		CONO	PI,PIG0		;ENABLE PI
  4915	034552	7 000 34 0 00 001000 		CONSO	1000
  4916	034553	254 00 0 00 034552 		JRST	.-1		;WAIT IF CLK=0
  4917	034554	7 000 20 0 00 002001 		CONO	2001		;SET CLOCK ENABLE
  4918	034555	302 00 0 00 000042 		CAIE	42		;SHOULD INTERRUPT TO LOC 42
  4919						STOP			^;SEE CPU PRINT AND CLK ENABLE
  4920
  4921	034556	254 04 0 00 034557 		HALT	.+1
  4922	034557	320 00 0 00 034560 		JUMP	.+1
  4923				
  4924
  4925						BLURB^
  4926					;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
  4927					;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
  4928					;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
  4929					;INSTRUCTION
  4930					^
  4931	034560				MOD125:	CLEAN^
  4932	034560	7 000 20 0 00 634440 		CONO	634440
  4933	034561	7 004 20 0 00 010000 		CONO	PI,10000
  4934									^
  4935	034562	7 004 20 0 00 002377 		CONO	PI,PIG0		;ENABLE PISYS
  4936	034563	7 000 20 0 00 000001 		CONO	1		;TRY TO SET NONEX MEM
  4937	034564	400 00 0 00 000000 		SETZ			;NO INTERRUPT SET
  4938	034565	310 00 0 00 777777 		CAM	-1		;NONEX INPUT TO
  4939	034566	302 00 0 00 000042 		CAIE	42		;PIRQ ON CPA
  4940						STOP			^;PRINT
  4941
  4942	034567	254 04 0 00 034570 		HALT	.+1
  4943	034570	320 00 0 00 034571 		JUMP	.+1
  4944				
  4945
  4946	034571				MOD127:	CLEAN^
  4947	034571	7 000 20 0 00 634440 		CONO	634440
  4948	034572	7 004 20 0 00 010000 		CONO	PI,10000
  4949									^
  4950	034573	7 004 20 0 00 002377 		CONO	PI,PIG0		;ENABLE PI
  4951	034574	7 000 20 0 00 000001 		CONO	1		;CPU TO CHANNEL 1
  4952	034575	474 00 0 00 000000 		SETO			;SET THE
  4953	034576	260 00 0 00 034577 		PUSHJ	.+1		;PDL FLAG
  4954	034577	302 00 0 00 000042 		CAIE	42		;IT FAILED TO INTERRUPT
  4955						STOP			^;SEE ITS INPUT TO PIRQ ON CPA PRINT
  4956
  4957	034600	254 04 0 00 034601 		HALT	.+1
  4958	034601	320 00 0 00 034602 		JUMP	.+1
  4959				
  4960
  4961	034602				MOD128:	CLEAN^
  4962	034602	7 000 20 0 00 634440 		CONO	634440
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 46-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0119

  4963	034603	7 004 20 0 00 010000 		CONO	PI,10000
  4964									^
  4965	034604	7 004 20 0 00 002377 		CONO	PI,PIG0		;ENABLE PI
  4966	034605	7 000 20 0 00 000001 		CONO	1
  4967	034606	400 00 0 00 000000 		SETZ
  4968	034607	7 004 20 0 00 040000 		CONO	PI,40000	;ENABLE PAR
  4969	034610	332 00 0 00 000000 		SKIPE			;INTERRUPT OCCURED
  4970						STOP			^;CHECK CPU PIRQ INPUT
  4971
  4972	034611	254 04 0 00 034612 		HALT	.+1
  4973	034612	320 00 0 00 034613 		JUMP	.+1
  4974				
  4975
  4976	034613				MOD129:	CLEAN^
  4977	034613	7 000 20 0 00 634440 		CONO	634440
  4978	034614	7 004 20 0 00 010000 		CONO	PI,10000
  4979									^
  4980	034615	255 01 0 00 034616 		JFCL	1,.+1		;CLEAR FOV
  4981	034616	7 004 20 0 00 002377 		CONO	PI,PIG0		;ENABLE PI
  4982	034617	400 00 0 00 000000 		SETZ
  4983	034620	7 004 20 0 00 000201 		CONO	PI,201		;FOV ENABLE. INTERRUPT
  4984	034621	332 00 0 00 000000 		SKIPE			;OCCURED CK PIRQ INPUTS
  4985						STOP			^;ON CPU PRINT
  4986
  4987	034622	254 04 0 00 034623 		HALT	.+1
  4988	034623	320 00 0 00 034624 		JUMP	.+1
  4989				
  4990
  4991	034624				MOD130:	CLEAN^
  4992	034624	7 000 20 0 00 634440 		CONO	634440
  4993	034625	7 004 20 0 00 010000 		CONO	PI,10000
  4994									^
  4995						SFLAG 40000		^;SET FOV FLAG
  4996
  4997	034626	205 01 0 00 040000 		MOVSI	1,40000
  4998	034627	255 17 0 00 034630 		JFCL	17,.+1
  4999	034630	254 02 0 01 034631 		JRST	2,.+1(1)
  5000				
  5001	034631	400 00 0 00 000000 		SETZ
  5002	034632	7 004 20 0 00 002377 		CONO	PI,PIG0		;ENABLE PI
  5003	034633	7 000 20 0 00 000001 		CONO	1		;CH1 TO PROCESSOR
  5004	034634	332 00 0 00 000000 		SKIPE			;FOV ENABLE FAIL TO PREVENT
  5005						STOP			^;INTERRUPT SEE CPU PRINT
  5006
  5007	034635	254 04 0 00 034636 		HALT	.+1
  5008	034636	320 00 0 00 034637 		JUMP	.+1
  5009				
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 47
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0120

  5010						BLURB^
  5011					;CORE LOCATIONS 40 TO 60 CONTAIN A "MOVEI, ADDRESS"
  5012					;THEREFORE IF A INTERRUPT OCCURES THE MOVEI WILL
  5013					;STORE IN LOCATION ZERO THE ADDRESS OF THE EXECUTED
  5014					;INSTRUCTION
  5015					^
  5016	034637				MOD131:	CLEAN^
  5017	034637	7 000 20 0 00 634440 		CONO	634440
  5018	034640	7 004 20 0 00 010000 		CONO	PI,10000
  5019									^
  5020						SFLAG 40000		^;SET FOV FLAG
  5021
  5022	034641	205 01 0 00 040000 		MOVSI	1,40000
  5023	034642	255 17 0 00 034643 		JFCL	17,.+1
  5024	034643	254 02 0 01 034644 		JRST	2,.+1(1)
  5025				
  5026	034644	7 004 20 0 00 002377 		CONO	PI,PIG0		;ENABLE PI
  5027	034645	400 00 0 00 000000 		SETZ
  5028	034646	7 000 20 0 00 000201 		CONO	201		;ENABLE FOV+CH1
  5029	034647	302 00 0 00 000042 		CAIE	42		;FAIL TO INTERRUPT SEE
  5030						STOP			^;PIRQ INPUTS ON CPA PRINT
  5031
  5032	034650	254 04 0 00 034651 		HALT	.+1
  5033	034651	320 00 0 00 034652 		JUMP	.+1
  5034				
  5035	034652				MOD132:	CLEAN^
  5036	034652	7 000 20 0 00 634440 		CONO	634440
  5037	034653	7 004 20 0 00 010000 		CONO	PI,10000
  5038									^
  5039	034654	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+100	;INTERRUPT
  5040						REPEAT	^D10,
  5041					<	JRST .+1>
  5042	034655	254 00 0 00 034656 		JRST .+1
  5043	034656	254 00 0 00 034657 		JRST .+1
  5044	034657	254 00 0 00 034660 		JRST .+1
  5045	034660	254 00 0 00 034661 		JRST .+1
  5046	034661	254 00 0 00 034662 		JRST .+1
  5047	034662	254 00 0 00 034663 		JRST .+1
  5048	034663	254 00 0 00 034664 		JRST .+1
  5049	034664	254 00 0 00 034665 		JRST .+1
  5050	034665	254 00 0 00 034666 		JRST .+1
  5051	034666	254 00 0 00 034667 		JRST .+1
  5052	034667	7 004 34 0 00 040000 		CONSO	PI,40000	;PIH WAS RESET BY JRST (NO BIT 9)
  5053						STOP			^;SEE PI RESTORE LOGIC ON PI1 PRINT
  5054
  5055	034670	254 04 0 00 034671 		HALT	.+1
  5056	034671	320 00 0 00 034672 		JUMP	.+1
  5057				
  5058	034672				MOD133:	CLEAN^
  5059	034672	7 000 20 0 00 634440 		CONO	634440
  5060	034673	7 004 20 0 00 010000 		CONO	PI,10000
  5061									^
  5062	034674	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+100	;INTERRUPT
  5063						REPEAT	^D10,
  5064					<	CAI 10,0>
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 47-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0121

  5065	034675	300 10 0 00 000000 		CAI 10,0
  5066	034676	300 10 0 00 000000 		CAI 10,0
  5067	034677	300 10 0 00 000000 		CAI 10,0
  5068	034700	300 10 0 00 000000 		CAI 10,0
  5069	034701	300 10 0 00 000000 		CAI 10,0
  5070	034702	300 10 0 00 000000 		CAI 10,0
  5071	034703	300 10 0 00 000000 		CAI 10,0
  5072	034704	300 10 0 00 000000 		CAI 10,0
  5073	034705	300 10 0 00 000000 		CAI 10,0
  5074	034706	300 10 0 00 000000 		CAI 10,0
  5075	034707	7 004 34 0 00 040000 		CONSO	PI,40000	;PIH WAS RESET BY BIT9(NO JRST)
  5076						STOP			^;SEE PI RESTORE LOGIC ON PI1 PRINT
  5077
  5078	034710	254 04 0 00 034711 		HALT	.+1
  5079	034711	320 00 0 00 034712 		JUMP	.+1
  5080				
  5081	034712				MOD134:	CLEAN			^;TEST PI CYC(1) INPUT TO PI OV
  5082
  5083	034712	7 000 20 0 00 634440 		CONO	634440
  5084	034713	7 004 20 0 00 010000 		CONO	PI,10000
  5085				
  5086	034714	474 00 0 00 000000 		SETO			;PROVIDE ALL CONDITIONS TO SET
  5087	034715	7 000 00 0 00 000000 		BLKI			;PI OV EXCEPT PI CYC(1)
  5088	034716	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+100	;IF C(0)=43 REPLACE THE B137
  5089	034717	302 00 0 00 000042 		CAIE	42		;AND GATE TO PI OV SEE
  5090						STOP			^;PI1 PRINT
  5091
  5092	034720	254 04 0 00 034721 		HALT	.+1
  5093	034721	320 00 0 00 034722 		JUMP	.+1
  5094				
  5095	034722				MOD135:	CLEAN^
  5096	034722	7 000 20 0 00 634440 		CONO	634440
  5097	034723	7 004 20 0 00 010000 		CONO	PI,10000
  5098									^
  5099	034724	200 00 0 00 036477 		MOVE	[BLKO ME,0]	;PUT A BLKI IN
  5100	034725	202 00 0 00 000042 		MOVEM	42		;LOC 42
  5101	034726	400 00 0 00 000000 		SETZ			;PROVIDE FOR NO OVERFLOW
  5102	034727	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+100	;INTERRUPT. IF C(0)=43
  5103	034730	306 00 0 00 000043 		CAIN	43		;AND GATE TO PIOU THE AD
  5104						STOP			^;CRY0(1) INPUT FAILED. SEE PI1 PRINT
  5105
  5106	034731	254 04 0 00 034732 		HALT	.+1
  5107	034732	320 00 0 00 034733 		JUMP	.+1
  5108				
  5109	034733	254 00 0 00 034734 		JRST	MOD136
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 48
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0122

  5110					;HOLE LEFT FOR RELOCATION TEST
  5111
  5112
  5113	034734				MOD136:	CLEAN^
  5114	034734	7 000 20 0 00 634440 		CONO	634440
  5115	034735	7 004 20 0 00 010000 		CONO	PI,10000
  5116									^
  5117	034736	200 00 0 00 036500 		MOVE	[AOS]		;PUT AN AOS IN LOC 42
  5118	034737	202 00 0 00 000042 		MOVEM	42		;PROVIDE ALL INPUTS TO
  5119	034740	474 00 0 00 000000 		SETO			;PIOU EXCEPT IOT BLK
  5120	034741	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+100	;CANT TEST GATE
  5121	034742	332 00 0 00 000000 		SKIPE			;THINK UNNECESSARY
  5122						STOP			^;BUT DO IT ANYWAY
  5123
  5124	034743	254 04 0 00 034744 		HALT	.+1
  5125	034744	320 00 0 00 034745 		JUMP	.+1
  5126				
  5127
  5128	034745				MOD137:	CLEAN^
  5129	034745	7 000 20 0 00 634440 		CONO	634440
  5130	034746	7 004 20 0 00 010000 		CONO	PI,10000
  5131									^
  5132	034747	200 00 0 00 036477 		MOVE	[BLKO ME,0]	;SETUP A BLKO TO SET
  5133	034750	202 00 0 00 000042 		MOVEM	42		;THE PI OV FLOP
  5134	034751	474 00 0 00 000000 		SETO
  5135	034752	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+100	;CAUSE FIRST INTERRUPT
  5136	034753	400 00 0 00 000000 		SETZ			;PI SHOULD SET AT THIS
  5137						CLEAN			^;TIME, IF PI OV IS NOT
  5138
  5139	034754	7 000 20 0 00 634440 		CONO	634440
  5140	034755	7 004 20 0 00 010000 		CONO	PI,10000
  5141				
  5142	034756	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+100	;CLEARED AT ST1 NEXT INTERRUPT
  5143	034757	306 00 0 00 000043 		CAIN	43		;WILL OCCUR AT LOC 43
  5144						STOP			^;SET PI 1 PRINT.
  5145
  5146	034760	254 04 0 00 034761 		HALT	.+1
  5147	034761	320 00 0 00 034762 		JUMP	.+1
  5148				
  5149
  5150	034762				MOD140:	CLEAN^
  5151	034762	7 000 20 0 00 634440 		CONO	634440
  5152	034763	7 004 20 0 00 010000 		CONO	PI,10000
  5153									^
  5154	034764	200 00 0 00 036477 		MOVE	[BLKO ME,0]	;PUT A BLKO IN LOC 42
  5155	034765	202 00 0 00 000042 		MOVEM	42		;WHEN EXECUTED THIS SHOULD
  5156	034766	474 00 0 00 000000 		SETO			;SET PIOV. IF PI OV IS NOT
  5157	034767	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+100	;CONNECTED TO MA REGISTER
  5158	034770	405 00 0 00 777777 		ANDI	-1		;42 WILL BE EXECUTED TWICE
  5159	034771	306 00 0 00 000001 		CAIN	1		;SEE MA 35 SET AT IT0
  5160						STOP			^;AND PI OV(1) ON MA1 PRINT
  5161
  5162	034772	254 04 0 00 034773 		HALT	.+1
  5163	034773	320 00 0 00 034774 		JUMP	.+1
  5164				
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 48-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0123

  5165
  5166	034774				MOD141:	CLEAN			^;CHECK BLKO NOT RESET PIH
  5167
  5168	034774	7 000 20 0 00 634440 		CONO	634440
  5169	034775	7 004 20 0 00 010000 		CONO	PI,10000
  5170				
  5171	034776	200 00 0 00 036501 		MOVE	[MOVEI 42]	;RESTORE LOC 42
  5172	034777	202 00 0 00 000042 		MOVEM	42		;TO MOVEI
  5173	035000	7 004 20 0 00 004300 		CONO	PI,PIREQ+ACT+100	;SET PIH VIA INTERRUPT
  5174	035001	400 00 0 00 000000 		SETZ			;IF PIH1(0) THEN PI CYC(1)
  5175	035002	7 774 10 0 00 000000 		BLKO	ME,0		;INPUT TO PI RESTORE FAILED
  5176
  5177	035003	300 00 0 00 000000 		CAI
  5178	035004	7 004 34 0 00 040000 		CONSO	PI,40000		;SET PI1 PRINT
  5179						STOP^
  5180	035005	254 04 0 00 035006 		HALT	.+1
  5181	035006	320 00 0 00 035007 		JUMP	.+1
  5182									^
  5183
  5184	035007				MOD142:	CLEAN			^;CHECK PI RESTORE LOGIC
  5185
  5186	035007	7 000 20 0 00 634440 		CONO	634440
  5187	035010	7 004 20 0 00 010000 		CONO	PI,10000
  5188				
  5189	035011	200 00 0 00 036502 		MOVE	[DATAO ME,0]	;DATAO AND PIOV SHOULD PRODUCE
  5190	035012	202 00 0 00 000042 		MOVEM	42		;PI RESTORE. CHECK THIS INPUT
  5191	035013	7 004 20 0 00 004300 		CONO	PI,PIREQ+ACT+100	;TO PI RESTORE ON PI1 PRINT
  5192	035014	7 004 30 0 00 040000 		CONSZ	PI,40000		;ALSO CHECK PI CYC(1) INPUT
  5193						STOP			^;ON SAME PAGE
  5194
  5195	035015	254 04 0 00 035016 		HALT	.+1
  5196	035016	320 00 0 00 035017 		JUMP	.+1
  5197				
  5198
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 49
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0124

  5199	035017				MOD143:	CLEAN^
  5200	035017	7 000 20 0 00 634440 		CONO	634440
  5201	035020	7 004 20 0 00 010000 		CONO	PI,10000
  5202									^
  5203	035021	200 00 0 00 036503 		MOVE	[DATAI ME,0]	;IF MACHINE HANGS OR
  5204	035022	202 00 0 00 000042 		MOVEM	42		;PIH(1) CHECK DATAO/DATAI
  5205	035023	7 004 20 0 00 004300 		CONO	PI,PIREQ+ACT+100	;INPUT TO PRIORITY SYSTEM
  5206	035024	7 004 30 0 00 040000 		CONSZ	PI,40000		;SEE PI1 PRINT (LOWER LEFT)
  5207						STOP^
  5208	035025	254 04 0 00 035026 		HALT	.+1
  5209	035026	320 00 0 00 035027 		JUMP	.+1
  5210									^
  5211
  5212	035027				MOD144:	CLEAN^
  5213	035027	7 000 20 0 00 634440 		CONO	634440
  5214	035030	7 004 20 0 00 010000 		CONO	PI,10000
  5215									^
  5216	035031	200 00 0 00 036477 		MOVE	[BLKO ME,0]	;INTERRUPT TO A BLKO WHOS
  5217	035032	202 00 0 00 000042 		MOVEM	42		;POINTER SHOULD SET PIOV. THE
  5218	035033	474 00 0 00 000000 		SETO			;INST AT LOC 43 A (MOVEI 43)
  5219	035034	7 004 20 0 00 004300 		CONO	PI,PIREQ+ACT+100	;SHOULD BE EXECUTED. CHECK
  5220	035035	7 004 34 0 00 040000 		CONSO	PI,40000	;PI OV AND ASSOCIATED LOGIC
  5221						STOP			^;ON PI1 PRINT
  5222
  5223	035036	254 04 0 00 035037 		HALT	.+1
  5224	035037	320 00 0 00 035040 		JUMP	.+1
  5225				
  5226
  5227	035040				MOD145:	CLEAN^
  5228	035040	7 000 20 0 00 634440 		CONO	634440
  5229	035041	7 004 20 0 00 010000 		CONO	PI,10000
  5230									^
  5231	035042	200 00 0 00 036477 		MOVE	[BLKO ME,0]	;INTERRUPT TO A BLKO WHOS
  5232	035043	202 00 0 00 000042 		MOVEM	42		;POINTER SHOULD SET PIOV. THE
  5233	035044	474 00 0 00 000000 		SETO			;INST AT LOC 43 A (MOVEI 43)
  5234	035045	7 004 20 0 00 004300 		CONO	PI,PIREQ+ACT+100	;SHOULD BE EXECUTED. CHECK
  5235	035046	302 00 0 00 000043 		CAIE	43		;CHECK PI OV INPUT TO MA35
  5236						STOP			^;SET ON MA1 PRINT
  5237
  5238	035047	254 04 0 00 035050 		HALT	.+1
  5239	035050	320 00 0 00 035051 		JUMP	.+1
  5240				
  5241
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 50
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0125

  5242	035051				MOD147:	CLEAN			^;TEST PI CYC(0) GET TO PIR STB
  5243
  5244	035051	7 000 20 0 00 634440 		CONO	634440
  5245	035052	7 004 20 0 00 010000 		CONO	PI,10000
  5246				
  5247	035053	200 00 0 00 036477 		MOVE	[BLKO ME,0]	;PUT A BLKO WITH POINTER TO
  5248	035054	202 00 0 00 000044 		MOVEM	44		;SET PI OV IN CHANNEL 2 BLKO
  5249	035055	200 00 0 00 036504 		MOVE	[MOVEI 1,42]	;WILL SET NONEX MEM CAUSING
  5250	035056	202 00 0 00 000042 		MOVEM	42		;INTERRUPT ON CH1 THE INSTRUCTION
  5251	035057	561 00 0 00 777776 		HRROI	-2		;AT LOC 45 MUST BE EXECUTED
  5252	035060	7 004 20 0 00 002100 		CONO PI,PIOSET+100
  5253	035061	7 000 20 0 00 000001 		CONO	1		;OR PI CYC(0) GATE TO PIR STB FAILED
  5254	035062	7 004 20 0 00 004240 		CONO PI,PIREQ+ACT+40
  5255	035063	302 00 0 00 000045 		CAIE	45		;AND OF MC RQ PULSE PICYC(0)
  5256						STOP^
  5257	035064	254 04 0 00 035065 		HALT	.+1
  5258	035065	320 00 0 00 035066 		JUMP	.+1
  5259									^
  5260	035066	302 01 0 00 000042 		CAIE	1,42
  5261						STOP			^;NONEX FAIL TO INTERRUPT CH1
  5262
  5263	035067	254 04 0 00 035070 		HALT	.+1
  5264	035070	320 00 0 00 035071 		JUMP	.+1
  5265				
  5266
  5267	035071				MOD148:	CLEAN			^;PUT A SKIPA IN THE
  5268
  5269	035071	7 000 20 0 00 634440 		CONO	634440
  5270	035072	7 004 20 0 00 010000 		CONO	PI,10000
  5271				
  5272	035073	200 00 0 00 036505 		MOVE	[SKIPA]		;INTERRUPT SPOT
  5273	035074	202 00 0 00 000042 		MOVEM	42
  5274	035075	7 004 20 0 00 004300 		CONO	PI,PIREQ+ACT+100
  5275						STOP^
  5276	035076	254 04 0 00 035077 		HALT	.+1
  5277	035077	320 00 0 00 035100 		JUMP	.+1
  5278									^
  5279
  5280	035100				MOD149:	CLEAN^
  5281	035100	7 000 20 0 00 634440 		CONO	634440
  5282	035101	7 004 20 0 00 010000 		CONO	PI,10000
  5283									^
  5284	035102	200 00 0 00 036506 		MOVE	[JSR .+4]
  5285	035103	202 00 0 00 000042 		MOVEM	42
  5286	035104	7 004 20 0 00 004300 		CONO	PI,PIREQ+ACT+100
  5287						STOP^
  5288	035105	254 04 0 00 035106 		HALT	.+1
  5289	035106	320 00 0 00 035107 		JUMP	.+1
  5290									^
  5291	035107	000000	000000			0
  5292
  5293	035110				MOD150:	CLEAN			^;INTERRUPT TO A PUSHJ
  5294
  5295	035110	7 000 20 0 00 634440 		CONO	634440
  5296	035111	7 004 20 0 00 010000 		CONO	PI,10000
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 50-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0126

  5297				
  5298	035112	200 00 0 00 036507 		MOVE	[PUSHJ .+4]
  5299	035113	202 00 0 00 000042 		MOVEM	42
  5300	035114	205 00 0 00 777777 		MOVSI	-1
  5301	035115	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+100
  5302	035116	405 01 0 00 777777 		ANDI	1,-1
  5303	035117	302 01 0 00 035116 		CAIE	1,.-1
  5304						STOP			^;PC STORED INCORRECTLY
  5305
  5306	035120	254 04 0 00 035121 		HALT	.+1
  5307	035121	320 00 0 00 035122 		JUMP	.+1
  5308				
  5309	035122	302 00 0 00 000001 		CAIE	1		;THE PUSHJ
  5310						STOP			^;POINTER WORD IN ERROR
  5311
  5312	035123	254 04 0 00 035124 		HALT	.+1
  5313	035124	320 00 0 00 035125 		JUMP	.+1
  5314				
  5315						CLEAN^
  5316	035125	7 000 20 0 00 634440 		CONO	634440
  5317	035126	7 004 20 0 00 010000 		CONO	PI,10000
  5318									^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 51
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0127

  5319	035127				MOD151:	CLEAN^
  5320	035127	7 000 20 0 00 634440 		CONO	634440
  5321	035130	7 004 20 0 00 010000 		CONO	PI,10000
  5322									^
  5323	035131	200 00 0 00 036510 		MOVE [MOVEI 43]		;TEST CLEAR MA ON INTERRUPT
  5324	035132	202 00 0 00 000043 		MOVEM 43
  5325	035133	200 00 0 00 036511 		MOVE [BLKO ME,4]
  5326	035134	202 00 0 00 000042 		MOVEM 42
  5327	035135	477 00 0 00 000004 		SETOB 4
  5328	035136	541 04 0 00 000004 		HRRI 4,4
  5329	035137	7 004 20 0 00 004300 		CONO PI,PIREQ+ACT+100
  5330	035140	302 00 0 00 000043 		CAIE 43
  5331						STOP^
  5332	035141	254 04 0 00 035142 		HALT	.+1
  5333	035142	320 00 0 00 035143 		JUMP	.+1
  5334									^
  5335
  5336
  5337	035143	402 00 0 00 000060 	MOD152:	SETZM	60		;TEST TRAP TO 60
  5338	035144	200 00 0 00 036512 		MOVE	[JSP MOD153]	;GO HERE IF TRAP TO 40
  5339	035145	202 00 0 00 000041 		MOVEM	41		;ERROR
  5340	035146	200 00 0 00 036513 		MOVE	[JSP MOD153+1]
  5341	035147	202 00 0 00 000061 		MOVEM	61		;OK TRAP
  5342	035150	100000	000000			XWD	100000,0	;OP CODE 100-127
  5343						STOP^
  5344	035151	254 04 0 00 035152 		HALT	.+1
  5345	035152	320 00 0 00 035153 		JUMP	.+1
  5346									^
  5347	035153				MOD153:	STOP^
  5348	035153	254 04 0 00 035154 		HALT	.+1
  5349	035154	320 00 0 00 035155 		JUMP	.+1
  5350									^
  5351	035155	336 00 0 00 000060 		SKIPN	60		;NOTHING STORED IN C(60)
  5352						STOP^
  5353	035156	254 04 0 00 035157 		HALT	.+1
  5354	035157	320 00 0 00 035160 		JUMP	.+1
  5355									^
  5356
  5357	035160	336 00 0 00 036674 	MOD154:	SKIPN	USMOD#		;TEST RELOC IF SPECIFIED
  5358	035161	254 00 0 00 036303 		JRST	MOD195
  5359
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 52
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0128

  5360					DEFINE	UMON<
  5361						CONO	634440		;PREPARE TO TURN ON USER
  5362						CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5363						DATAO	[XWD -1,0]>
  5364
  5365					DEFINE	UMOFF<
  5366						MOVE	[JSP .+3]	;TURN OFF USER MODE VIA
  5367						MOVEM	41		;UUO. PROG RETURNS TO END
  5368						XWD	040000,0	;OF MACRO. PC+FLAGS STORED .+1
  5369					>
  5370
  5371					DEFINE	HOLD<
  5372						JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5373						JUMP	.+1		;SO WAITING FOR OPERATOR
  5374					>
  5375
  5376	035162	254 02 1 00 036514 	MOD160:	JRST	2,@[XWD 0,.+1]	;CLEAR EX IOT USER, IF LIGHT
  5377	035163	265 00 0 00 035164 		JSP	.+1		;OUT FLAG TRANSFER TO AR FAIL
  5378
  5379	035164	603 00 0 00 004000 		TLNE UMIOT		;BIT 6. OR FLOP FAIL TO CLEAR
  5380						STOP^
  5381	035165	254 04 0 00 035166 		HALT	.+1
  5382	035166	320 00 0 00 035167 		JUMP	.+1
  5383									^
  5384
  5385	035167	254 02 1 00 036515 		JRST	2,@[XWD UMIOT,.+1]	;SET THEN CLEAR EX IOT USER
  5386	035170	254 02 1 00 036516 		JRST	2,@[XWD 0,.+1]	;CK AND GATE ARF FLAGS FM BR (J),
  5387	035171	265 00 0 00 035172 		JSP	.+1		;BR6(0) FAIL TO CLEAR
  5388
  5389	035172	603 00 0 00 004000 		TLNE UMIOT		;EX IOT USER ON EX PRINT
  5390						STOP^
  5391	035173	254 04 0 00 035174 		HALT	.+1
  5392	035174	320 00 0 00 035175 		JUMP	.+1
  5393									^
  5394
  5395	035175	254 02 1 00 036517 		JRST	2,@[XWD 0,.+1]	;CLEAR THEN SET EX IOT USER
  5396	035176	254 02 1 00 036520 		JRST	2,@[XWD UMIOT,.+1]	;IF LIGHT=1 FLAGS TO AR FAIL
  5397	035177	265 00 0 00 035200 		JSP	.+1		;IF LIGHT=0 FLOP FAIL TO SET. CK
  5398	035200	607 00 0 00 004000 		TLNN	UMIOT		;BR6(1), EX USER(0), ARF FLAGS(J), EX PRINT
  5399						STOP^
  5400	035201	254 04 0 00 035202 		HALT	.+1
  5401	035202	320 00 0 00 035203 		JUMP	.+1
  5402									^
  5403
  5404	035203	254 02 1 00 036521 		JRST	2,@[XWD 0,.+1]	;CLEAR USER. IOB1 PRINT
  5405	035204	7 000 30 0 00 100000 		CONSZ	1B20		;READ PROCESSOR STATUS
  5406						STOP^
  5407	035205	254 04 0 00 035206 		HALT	.+1
  5408	035206	320 00 0 00 035207 		JUMP	.+1
  5409									^
  5410
  5411	035207	254 02 1 00 036522 		JRST	2,@[XWD UMIOT,.+1]	;SET USER IOB1 PRINT
  5412	035210	7 000 34 0 00 100000 		CONSO	1B20		;CPA STATUS FAIL
  5413						STOP^
  5414	035211	254 04 0 00 035212 		HALT	.+1
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 52-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0129

  5415	035212	320 00 0 00 035213 		JUMP	.+1
  5416									^
  5417
  5418	035213				MOD161:	UMOFF^
  5419	035213	200 00 0 00 036523 		MOVE	[JSP .+3]	;TURN OFF USER MODE VIA
  5420	035214	202 00 0 00 000041 		MOVEM	41		;UUO. PROG RETURNS TO END
  5421	035215	040000	000000			XWD	040000,0	;OF MACRO. PC+FLAGS STORED .+1
  5422					^
  5423	035216	603 00 0 00 010000 		TLNE	USERF		;FLAGS TO AR BIT5 (USER MODE) FAIL
  5424						HOLD^
  5425	035217	324 00 0 00 035217 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5426	035220	320 00 0 00 035221 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5427					^
  5428
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 53
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0130

  5429					;TRY TO TURN ON USER MODE VIA RESTORE FLAGS THEN
  5430					;TURN OFF VIA UU0. SEE EX PRINT
  5431
  5432	035221	200 00 0 00 036524 	MOD162:	MOVE	[JSP	MD162A]
  5433	035222	202 00 0 00 000041 		MOVEM	41
  5434						UMON^
  5435	035223	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5436	035224	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5437	035225	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  5438	035226	254 02 1 00 036526 		JRST	2,@[XWD USERF+UMIOT,MD162B]	;ALSO PRIVI IO
  5439
  5440	035227				MD162A:	HOLD	^		;TRAP HERE, NO MEMORY ACCESS, USER MODE
  5441
  5442	035227	324 00 0 00 035227 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5443	035230	320 00 0 00 035231 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5444
  5445
  5446	035231				MD162B:	UMOFF^
  5447	035231	200 00 0 00 036527 		MOVE	[JSP .+3]	;TURN OFF USER MODE VIA
  5448	035232	202 00 0 00 000041 		MOVEM	41		;UUO. PROG RETURNS TO END
  5449	035233	040000	000000			XWD	040000,0	;OF MACRO. PC+FLAGS STORED .+1
  5450					^
  5451	035234	607 00 0 00 010000 		TLNN	USERF		;JSP STORED FLAGS IN C(0)
  5452						HOLD^
  5453	035235	324 00 0 00 035235 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5454	035236	320 00 0 00 035237 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5455					^
  5456
  5457					;TEST UUO TURN OFF OF USER MODE. PRIVI I/O ALLOWS
  5458					;IOT TO OCCUR IN CASE USER STILL ON. SEE EX PRINT
  5459
  5460	035237				MOD163:	UMON^
  5461	035237	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5462	035240	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5463	035241	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  5464	035242	254 02 1 00 036530 		JRST	2,@[XWD USERF+UMIOT,.+1]
  5465						UMOFF^
  5466	035243	200 00 0 00 036531 		MOVE	[JSP .+3]	;TURN OFF USER MODE VIA
  5467	035244	202 00 0 00 000041 		MOVEM	41		;UUO. PROG RETURNS TO END
  5468	035245	040000	000000			XWD	040000,0	;OF MACRO. PC+FLAGS STORED .+1
  5469					^
  5470						UMOFF^
  5471	035246	200 00 0 00 036532 		MOVE	[JSP .+3]	;TURN OFF USER MODE VIA
  5472	035247	202 00 0 00 000041 		MOVEM	41		;UUO. PROG RETURNS TO END
  5473	035250	040000	000000			XWD	040000,0	;OF MACRO. PC+FLAGS STORED .+1
  5474					^
  5475	035251	603 00 0 00 010000 		TLNE	USERF		;FLAGS STORED VIA JSP AT 41
  5476						HOLD^
  5477	035252	324 00 0 00 035252 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5478	035253	320 00 0 00 035254 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5479					^
  5480
  5481	035254				MOD164:	UMON^
  5482	035254	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5483	035255	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 53-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0131

  5484	035256	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  5485	035257	254 02 1 00 036533 		JRST	2,@[XWD USERF+UMIOT,.+1]	;SET USER+PRIV I/O
  5486	035260	200 00 0 00 036534 		MOVE	[JUMPA .+3]	;SET RETURN FOR THE
  5487	035261	202 00 0 00 000041 		MOVEM	41		;UUO. EX ILL OP SHOULD
  5488	035262	040000	000000			XWD	40000,0		;NOT TURN OFF USER FLAG
  5489	035263	265 00 0 00 035264 		JSP	.+1		;BECAUSE AR FM PC(J)(ET0)
  5490	035264	607 00 0 00 010000 		TLNN	USERF		;PULSE IF NOT PRESENT. SEE EX
  5491						HOLD^
  5492	035265	324 00 0 00 035265 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5493	035266	320 00 0 00 035267 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5494					^
  5495						UMOFF^
  5496	035267	200 00 0 00 036535 		MOVE	[JSP .+3]	;TURN OFF USER MODE VIA
  5497	035270	202 00 0 00 000041 		MOVEM	41		;UUO. PROG RETURNS TO END
  5498	035271	040000	000000			XWD	040000,0	;OF MACRO. PC+FLAGS STORED .+1
  5499					^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 54
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0132

  5500
  5501					;PERFORM A UUO. THE PURPOSE OF THIS IS TO SET THE
  5502					;EX ILL OP FLOP.  THE FLOP SHOULD BE CLEARED BY THE
  5503					;JSP AT 41. IF HOWEVER THIS DID NOT OCCUR, ANY
  5504					;STORE PC INSTRUCTION IN USER MODE WOULD CLEAR
  5505					;USER MODE.  THIS TEST THEREFORE TEST THE CLEAR
  5506					;TO EX ILL OP VIA AR FM PC(J) (ET0) ON EX PRINT
  5507
  5508	035272				MOD165:	UMOFF^
  5509	035272	200 00 0 00 036536 		MOVE	[JSP .+3]	;TURN OFF USER MODE VIA
  5510	035273	202 00 0 00 000041 		MOVEM	41		;UUO. PROG RETURNS TO END
  5511	035274	040000	000000			XWD	040000,0	;OF MACRO. PC+FLAGS STORED .+1
  5512					^
  5513						UMON^
  5514	035275	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5515	035276	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5516	035277	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  5517	035300	254 02 1 00 036537 		JRST	2,@[XWD USERF+UMIOT,.+1]
  5518	035301	265 00 0 00 035302 		JSP	.+1		;DONT FORGET FAIL TO CLEAR
  5519	035302	265 00 0 00 035303 		JSP	.+1		;MAY BE PHONEY SET EX ILL OP
  5520	035303	607 00 0 00 010000 		TLNN	USERF		;OR PHONEY CLEAR EX-USER
  5521						HOLD^
  5522	035304	324 00 0 00 035304 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5523	035305	320 00 0 00 035306 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5524					^
  5525						UMOFF^
  5526	035306	200 00 0 00 036540 		MOVE	[JSP .+3]	;TURN OFF USER MODE VIA
  5527	035307	202 00 0 00 000041 		MOVEM	41		;UUO. PROG RETURNS TO END
  5528	035310	040000	000000			XWD	040000,0	;OF MACRO. PC+FLAGS STORED .+1
  5529					^
  5530
  5531	035311				MOD166:	UMOFF^
  5532	035311	200 00 0 00 036541 		MOVE	[JSP .+3]	;TURN OFF USER MODE VIA
  5533	035312	202 00 0 00 000041 		MOVEM	41		;UUO. PROG RETURNS TO END
  5534	035313	040000	000000			XWD	040000,0	;OF MACRO. PC+FLAGS STORED .+1
  5535					^
  5536						UMON^
  5537	035314	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5538	035315	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5539	035316	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  5540	035317	254 01 0 00 035320 		JRST	1,.+1		;SET USER MODE VIA ET0
  5541	035320	265 00 0 00 035321 		JSP	.+1		;IR JRST, IR12(1). IT FAILED
  5542	035321	607 00 0 00 010000 		TLNN	USERF		;REPLACE B135 ON EX PRINT
  5543						HOLD^
  5544	035322	324 00 0 00 035322 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5545	035323	320 00 0 00 035324 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5546					^
  5547						UMOFF^
  5548	035324	200 00 0 00 036542 		MOVE	[JSP .+3]	;TURN OFF USER MODE VIA
  5549	035325	202 00 0 00 000041 		MOVEM	41		;UUO. PROG RETURNS TO END
  5550	035326	040000	000000			XWD	040000,0	;OF MACRO. PC+FLAGS STORED .+1
  5551					^
  5552
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 55
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0133

  5553					;THIS TEST WILL TRY TO SET THE PRIV I/O BIT WHEN IN
  5554					;USER MODE. IF THE EX IOT USER FLOP SETS EX USER (0) INPUT
  5555					;TO THE FLAG FAILED  SEE EX PRINT
  5556
  5557	035327				MOD167:	UMON^
  5558	035327	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5559	035330	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5560	035331	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  5561	035332	254 02 1 00 036543 		JRST	2,@[XWD USERF,.+1]	;SET USER
  5562	035333	254 02 1 00 036544 		JRST	2,@[XWD USERF+UMIOT,.+1]	;TRY TO SET PRIV I/O
  5563	035334	265 00 0 00 035335 		JSP	.+1
  5564	035335	603 00 0 00 004000 		TLNE	UMIOT
  5565						HOLD^
  5566	035336	324 00 0 00 035336 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5567	035337	320 00 0 00 035340 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5568					^
  5569						UMOFF^
  5570	035340	200 00 0 00 036545 		MOVE	[JSP .+3]	;TURN OFF USER MODE VIA
  5571	035341	202 00 0 00 000041 		MOVEM	41		;UUO. PROG RETURNS TO END
  5572	035342	040000	000000			XWD	040000,0	;OF MACRO. PC+FLAGS STORED .+1
  5573					^
  5574
  5575	035343				MOD170:	UMON^
  5576	035343	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5577	035344	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5578	035345	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  5579	035346	254 02 1 00 036546 		JRST	2,@[XWD USERF,.+1]	;SET USER MODE
  5580	035347	200 00 0 00 036547 		MOVE	[JSP .+4]		;SET TRAP RETURN
  5581	035350	202 00 0 00 000041 		MOVEM	41			;1 PAST THE IOT INST
  5582	035351	402 00 0 00 000040 		SETZM	40			;FAIL TO TRAP. EX ALLOW IOT
  5583	035352	700000	000000			XWD	700000,0		;ALLOWED THE IOT IN USER
  5584	035353	336 00 0 00 000040 		SKIPN	40			;MODE. SEE EX PRINT
  5585						HOLD^
  5586	035354	324 00 0 00 035354 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5587	035355	320 00 0 00 035356 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5588					^
  5589						UMOFF^
  5590	035356	200 00 0 00 036550 		MOVE	[JSP .+3]	;TURN OFF USER MODE VIA
  5591	035357	202 00 0 00 000041 		MOVEM	41		;UUO. PROG RETURNS TO END
  5592	035360	040000	000000			XWD	040000,0	;OF MACRO. PC+FLAGS STORED .+1
  5593					^
  5594
  5595	035361				MOD171:	UMON^
  5596	035361	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5597	035362	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5598	035363	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  5599	035364	254 02 1 00 036551 		JRST	2,@[XWD USERF+UMIOT,.+1]	;SET PRIVI+USER
  5600	035365	200 00 0 00 036552 		MOVE	[JSP .+4]		;SET TRAP RETURN 1 PAST
  5601	035366	202 00 0 00 000041 		MOVEM	41			;THE TRAP INST
  5602	035367	403 00 0 00 000040 		SETZB	40			;THE EX IOT USER FLOP
  5603	035370	700000	000000			XWD	700000,0		;SHOULD ALLOW THE IOT
  5604	035371	300 00 0 00 000000 		CAI
  5605	035372	332 00 0 00 000040 		SKIPE	40			;CHECK EX ALLOW IOT. EX PRINT
  5606						HOLD^
  5607	035373	324 00 0 00 035373 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 55-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0134

  5608	035374	320 00 0 00 035375 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5609					^
  5610						UMOFF^
  5611	035375	200 00 0 00 036553 		MOVE	[JSP .+3]	;TURN OFF USER MODE VIA
  5612	035376	202 00 0 00 000041 		MOVEM	41		;UUO. PROG RETURNS TO END
  5613	035377	040000	000000			XWD	040000,0	;OF MACRO. PC+FLAGS STORED .+1
  5614					^
  5615
  5616	035400				MOD172:	UMON^
  5617	035400	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5618	035401	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5619	035402	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  5620	035403	254 02 1 00 036554 		JRST	2,@[XWD USERF+UMIOT,.+1]	;USER AND PRIV I/O
  5621	035404	200 00 0 00 036555 		MOVE	[JSP .+3]		;THEN CAUSE A PI REQUEST
  5622	035405	202 00 0 00 000042 		MOVEM	42			;PI CYC(1) SHOULD SET EX PI SYNC
  5623	035406	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+100	;WHICH SHOULD CLEAR EX USER
  5624	035407	265 00 0 00 035410 		JSP	.+1			;AT ET1 OF JSP AT 42. IT
  5625	035410	603 00 0 00 010000 		TLNE	USERF			;FAILED. SEE EX PRINT
  5626						HOLD^
  5627	035411	324 00 0 00 035411 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5628	035412	320 00 0 00 035413 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5629					^
  5630
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 56
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0135

  5631					;THIS TEST WILL INSURE THAT EX ILL OP IS CLEARED
  5632					;BY IOT BLK.  THIS LOGIC IS NECESSARY FOR RETURNING TO
  5633					;THE PROPER RELOCATION WHEN A UUO IS INTERRUPTED AND
  5634					;MUST BE RE EXECUTED.
  5635
  5636
  5637	035413	200 00 0 00 036556 	MOD173:	MOVE [JUMPA .+3]
  5638	035414	202 00 0 00 000041 		MOVEM 41
  5639	035415	040000	000000			XWD 040000,0		;PERHAPS TURN OFF USER MODE
  5640	035416	400 00 0 00 000000 		SETZ			;PREVIOUS UUO SET EX ILL OP
  5641	035417	7 000 00 0 00 000000 		BLKI			;THIS IOT SHOULD CLEAR IT
  5642	035420	300 00 0 00 000000 		CAI
  5643	035421	254 02 1 00 036557 		JRST 2,@[XWD USERF,.+1]	;NOW ENTER USER MODE IF
  5644	035422	265 00 0 00 035423 		JSP	.+1		;EX ILL OP SET JSP WILL CLEAR
  5645	035423	265 00 0 00 035424 		JSP	.+1		;EX USER FLAG.  SEE EX PRINT
  5646	035424	607 00 0 00 010000 		TLNN	USERF
  5647						HOLD^
  5648	035425	324 00 0 00 035425 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5649	035426	320 00 0 00 035427 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5650					^
  5651						UMOFF^
  5652	035427	200 00 0 00 036560 		MOVE	[JSP .+3]	;TURN OFF USER MODE VIA
  5653	035430	202 00 0 00 000041 		MOVEM	41		;UUO. PROG RETURNS TO END
  5654	035431	040000	000000			XWD	040000,0	;OF MACRO. PC+FLAGS STORED .+1
  5655					^
  5656
  5657	035432				MOD174:	UMON^
  5658	035432	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5659	035433	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5660	035434	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  5661	035435	254 02 1 00 036561 		JRST	2,@[XWD USERF,.+1]
  5662	035436	200 00 0 00 036562 		MOVE	[JSP .+4]	;SET RETURN
  5663	035437	202 00 0 00 000041 		MOVEM	41		;SEE IR2 PRINT
  5664	035440	402 00 0 00 000040 		SETZM	40		;IR JRST A IR10(1)
  5665	035441	254 04 0 00 035441 		HALT	.		;THIS HALT SHOULD TRAP
  5666	035442	336 00 0 00 000040 		SKIPN	40		;BUT DID NOT
  5667						HOLD^
  5668	035443	324 00 0 00 035443 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5669	035444	320 00 0 00 035445 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5670					^
  5671						UMOFF^
  5672	035445	200 00 0 00 036563 		MOVE	[JSP .+3]	;TURN OFF USER MODE VIA
  5673	035446	202 00 0 00 000041 		MOVEM	41		;UUO. PROG RETURNS TO END
  5674	035447	040000	000000			XWD	040000,0	;OF MACRO. PC+FLAGS STORED .+1
  5675					^
  5676
  5677	035450				MOD175:	UMON^
  5678	035450	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5679	035451	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5680	035452	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  5681	035453	254 02 1 00 036564 		JRST	2,@[XWD USERF,.+1]
  5682	035454	200 00 0 00 036565 		MOVE	[JSP .+4]	;SET RETURN
  5683	035455	202 00 0 00 000041 		MOVEM	41		;SEE IR2 PRINT
  5684	035456	402 00 0 00 000040 		SETZM	40		;THE ENABLE PI SHOULD
  5685	035457	254 12 0 00 035460 		JEN	.+1		;TRAP TO 40
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 56-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0136

  5686	035460	336 00 0 00 000040 		SKIPN	40		;BUT DID NOT
  5687						HOLD^
  5688	035461	324 00 0 00 035461 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5689	035462	320 00 0 00 035463 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5690					^
  5691						UMOFF^
  5692	035463	200 00 0 00 036566 		MOVE	[JSP .+3]	;TURN OFF USER MODE VIA
  5693	035464	202 00 0 00 000041 		MOVEM	41		;UUO. PROG RETURNS TO END
  5694	035465	040000	000000			XWD	040000,0	;OF MACRO. PC+FLAGS STORED .+1
  5695					^
  5696
  5697	035466				MOD176:	UMON^
  5698	035466	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5699	035467	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5700	035470	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  5701	035471	254 02 1 00 036567 		JRST	2,@[XWD USERF+UMIOT,.+1]
  5702	035472	200 00 0 00 036570 		MOVE	[JSP .+4]	;SET PRIVI IO BIT
  5703	035473	202 00 0 00 000041 		MOVEM	41		;THIS SHOULD PREVENT JRST IO,
  5704	035474	402 00 0 00 000040 		SETZM	40		;FROM TRAPPING. SEE IR UUO
  5705	035475	254 10 0 00 035476 		JRST	10,.+1		;ON IR2 PRINT
  5706	035476	332 00 0 00 000040 		SKIPE	40
  5707						HOLD^
  5708	035477	324 00 0 00 035477 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5709	035500	320 00 0 00 035501 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5710					^
  5711						UMOFF^
  5712	035501	200 00 0 00 036571 		MOVE	[JSP .+3]	;TURN OFF USER MODE VIA
  5713	035502	202 00 0 00 000041 		MOVEM	41		;UUO. PROG RETURNS TO END
  5714	035503	040000	000000			XWD	040000,0	;OF MACRO. PC+FLAGS STORED .+1
  5715					^
  5716
  5717	035504				MOD177:	UMON^
  5718	035504	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5719	035505	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5720	035506	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  5721	035507	254 01 0 00 035510 		JRST	1,.+1		;SEE IF JUST A PLAIN
  5722	035510	200 00 0 00 036572 		MOVE	[JSP .+4]	;JRST WILL TRAP
  5723	035511	202 00 0 00 000041 		MOVEM	41		;SEE IR2 PRINT FOR
  5724	035512	402 00 0 00 000040 		SETZM	40		;DECODE IR-UUO
  5725	035513	254 00 0 00 035514 		JRST	.+1
  5726	035514	332 00 0 00 000040 		SKIPE	40
  5727						HOLD^
  5728	035515	324 00 0 00 035515 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5729	035516	320 00 0 00 035517 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5730					^
  5731						UMOFF^
  5732	035517	200 00 0 00 036573 		MOVE	[JSP .+3]	;TURN OFF USER MODE VIA
  5733	035520	202 00 0 00 000041 		MOVEM	41		;UUO. PROG RETURNS TO END
  5734	035521	040000	000000			XWD	040000,0	;OF MACRO. PC+FLAGS STORED .+1
  5735					^
  5736
  5737	035522				MOD178:	UMON^
  5738	035522	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5739	035523	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5740	035524	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 56-2
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0137

  5741	035525	254 01 0 00 035526 		JRST	1,.+1		;SEE IF IR 9+10 WITH OUT
  5742	035526	200 00 0 00 036574 		MOVE	[JSP .+4]	;A JRST WILL TRAP
  5743	035527	202 00 0 00 000041 		MOVEM	41		;SEE IR UUO ON IR-2 PRINT
  5744	035530	402 00 0 00 000040 		SETZM	40
  5745	035531	255 14 0 00 035532 		JFCL	14,.+1
  5746	035532	332 00 0 00 000040 		SKIPE	40
  5747						HOLD^
  5748	035533	324 00 0 00 035533 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5749	035534	320 00 0 00 035535 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5750					^
  5751						UMOFF^
  5752	035535	200 00 0 00 036575 		MOVE	[JSP .+3]	;TURN OFF USER MODE VIA
  5753	035536	202 00 0 00 000041 		MOVEM	41		;UUO. PROG RETURNS TO END
  5754	035537	040000	000000			XWD	040000,0	;OF MACRO. PC+FLAGS STORED .+1
  5755					^
  5756
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 57
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0138

  5757					;CHECK THAT AN IOT AT INTERRUPT LEVEL WILL NOT LOOK
  5758					;LIKE A UUO SEE IR-2 PRINT
  5759
  5760	035540				MOD179:	UMON^
  5761	035540	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5762	035541	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5763	035542	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  5764	035543	7 000 20 0 00 000001 		CONO	1
  5765	035544	200 00 0 00 036576 		MOVE	[BLKI]
  5766	035545	202 00 0 00 000042 		MOVEM	42
  5767	035546	200 00 0 00 036577 		MOVE	[JSP M179+1]
  5768	035547	202 00 0 00 000041 		MOVEM	41
  5769	035550	403 00 0 00 000040 		SETZB	40
  5770	035551	200 00 0 00 036600 		MOVE [JSP M179]
  5771	035552	202 00 0 00 000043 		MOVEM 43
  5772	035553	474 00 0 00 000000 		SETO
  5773	035554	7 004 20 0 00 002300 		CONO	PI,ACT+PIOSET+100
  5774	035555	254 01 0 00 035556 		JRST	1,.+1
  5775	035556	310 00 0 00 777777 		CAM	-1
  5776	035557	332 00 0 00 000040 	M179:	SKIPE	40
  5777						HOLD^
  5778	035560	324 00 0 00 035560 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5779	035561	320 00 0 00 035562 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5780					^
  5781						UMOFF^
  5782	035562	200 00 0 00 036601 		MOVE	[JSP .+3]	;TURN OFF USER MODE VIA
  5783	035563	202 00 0 00 000041 		MOVEM	41		;UUO. PROG RETURNS TO END
  5784	035564	040000	000000			XWD	040000,0	;OF MACRO. PC+FLAGS STORED .+1
  5785					^
  5786
  5787	035565				MODXX1:	UMON	^		;TEST TRAP (60) TURN OFF OF
  5788
  5789	035565	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5790	035566	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5791	035567	7 000 14 0 00 036525 		DATAO	[XWD -1,0]
  5792	035570	200 00 0 00 036602 		MOVE	[JSP .+5]	;USER MODE
  5793	035571	202 00 0 00 000061 		MOVEM	61
  5794	035572	254 01 0 00 035573 		JRST	1,.+1
  5795	035573	100000	000000			XWD	100000,0	;OP CODE 100
  5796						HOLD	^		;IT FAILED TO TRAP
  5797
  5798	035574	324 00 0 00 035574 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5799	035575	320 00 0 00 035576 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5800
  5801	035576	265 00 0 00 035577 		JSP	.+1		;IT SHOULD ALSO
  5802	035577	603 00 0 00 010000 		TLNE	USERF		;TURN OFF USER MODE
  5803						HOLD^
  5804	035600	324 00 0 00 035600 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5805	035601	320 00 0 00 035602 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5806					^
  5807
  5808	035602				MODXX2:	UMON^
  5809	035602	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5810	035603	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5811	035604	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 57-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0139

  5812	035605	200 00 0 00 036603 		MOVE	[JSP .+4]	;TEST IR TO C(40)
  5813	035606	202 00 0 00 000041 		MOVEM	41		;FOR BITS 1,2,3
  5814	035607	254 02 1 00 036604 		JRST 2,@[XWD USERF,.+1]
  5815	035610	700000	000000			XWD	700000,0	;AN IOT
  5816	035611	200 00 0 00 000040 		MOVE	40
  5817	035612	312 00 0 00 036576 		CAME	[XWD 700000,0]
  5818						HOLD^
  5819	035613	324 00 0 00 035613 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5820	035614	320 00 0 00 035615 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5821					^
  5822
  5823	035615				MOD180:	UMON^
  5824	035615	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5825	035616	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5826	035617	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  5827	035620	7 000 14 0 00 036425 		DATAO	[0]		;GET RID OF PROTECT REG
  5828
  5829	035621	7 000 20 0 00 000001 		CONO 1
  5830	035622	7 004 20 0 00 002300 		CONO PI,ACT+PIOSET+100
  5831	035623	200 00 0 00 036605 		MOVE [JSP M180]
  5832	035624	202 00 0 00 000042 		MOVEM 42
  5833	035625	200 00 0 00 036605 		MOVE [JSP .+4]
  5834	035626	202 00 0 00 000041 		MOVEM 41
  5835	035627	254 02 1 00 036606 		JRST	2,@[XWD USERF+UMIOT,.+1]	;ENABLE USER
  5836	035630	324 00 0 00 035630 		JUMPA .			;THIS INST SHOULD SET PROT
  5837	035631	7 000 34 0 00 020000 	M180:	CONSO	PROT		;HERE IF FLAG FAIL
  5838						HOLD^
  5839	035632	324 00 0 00 035632 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5840	035633	320 00 0 00 035634 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5841					^
  5842	035634	7 000 30 0 00 010000 		CONSZ	NONEX		;NEVER NON EX WITH PROT
  5843						HOLD^
  5844	035635	324 00 0 00 035635 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5845	035636	320 00 0 00 035637 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5846					^
  5847	035637	7 000 20 0 00 020000 		CONO	1B22		;FAIL TO CLEAR PROT
  5848	035640	7 000 30 0 00 020000 		CONSZ	PROT		;FLAG SEE CPA PRINT
  5849						HOLD^
  5850	035641	324 00 0 00 035641 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5851	035642	320 00 0 00 035643 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5852					^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 58
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0140

  5853
  5854					DEFINE	EXCT	(A) <
  5855						MOVE	[JSP .+3]	;EXECUTE A UUO
  5856						MOVEM	41		;AND STORE FLAGS
  5857						XWD	A,0		;IN AC0.
  5858					>
  5859					;CHECK UUO 0 TRAPING TO EXEC MODE AND UUO 1-37
  5860					;NOT TRAPING TO EXEC MODE...1P19 ON EX CONTROL PRINT.
  5861
  5862	035643				MOD18A:	UMON^
  5863	035643	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5864	035644	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5865	035645	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  5866	035646	254 02 1 00 036607 		JRST	2,@[XWD USERF+UMIOT,.+1]
  5867						EXCT	0^
  5868	035647	200 00 0 00 036610 		MOVE	[JSP .+3]	;EXECUTE 0 UUO
  5869	035650	202 00 0 00 000041 		MOVEM	41		;AND STORE FLAGS
  5870	035651	000000	000000			XWD	0,0		;IN AC0.
  5871					^
  5872						EXCT	0^
  5873	035652	200 00 0 00 036611 		MOVE	[JSP .+3]	;EXECUTE 0 UUO
  5874	035653	202 00 0 00 000041 		MOVEM	41		;AND STORE FLAGS
  5875	035654	000000	000000			XWD	0,0		;IN AC0.
  5876					^
  5877	035655	603 00 0 00 010000 		TLNE	USERF		;USER MODE ON?..CK 1P19 EX CONT PNT.
  5878						HOLD^
  5879	035656	324 00 0 00 035656 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5880	035657	320 00 0 00 035660 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5881					^
  5882
  5883						UMON^
  5884	035660	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5885	035661	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5886	035662	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  5887	035663	254 02 1 00 036612 		JRST	2,@[XWD USERF+UMIOT,.+1]
  5888						EXCT	1000^
  5889	035664	200 00 0 00 036613 		MOVE	[JSP .+3]	;EXECUTE 1000 UUO
  5890	035665	202 00 0 00 000041 		MOVEM	41		;AND STORE FLAGS
  5891	035666	001000	000000			XWD	1000,0		;IN AC0.
  5892					^
  5893	035667	607 00 0 00 010000 		TLNN	USERF		;CK BIT 8 INPUT TO 1P19 EX CONTROL PRINT.
  5894						HOLD^
  5895	035670	324 00 0 00 035670 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5896	035671	320 00 0 00 035672 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5897					^
  5898
  5899
  5900
  5901						UMON^
  5902	035672	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5903	035673	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5904	035674	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  5905	035675	254 02 1 00 036614 		JRST	2,@[XWD USERF+UMIOT,.+1]
  5906						EXCT	2000^
  5907	035676	200 00 0 00 036615 		MOVE	[JSP .+3]	;EXECUTE 2000 UUO
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 58-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0141

  5908	035677	202 00 0 00 000041 		MOVEM	41		;AND STORE FLAGS
  5909	035700	002000	000000			XWD	2000,0		;IN AC0.
  5910					^
  5911	035701	607 00 0 00 010000 		TLNN	USERF		;CK BIT 7 INPUT TO 1P19 EX CONTROL PNT.
  5912						HOLD^
  5913	035702	324 00 0 00 035702 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5914	035703	320 00 0 00 035704 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5915					^
  5916
  5917						UMON^
  5918	035704	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5919	035705	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5920	035706	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  5921	035707	254 02 1 00 036616 		JRST	2,@[XWD USERF+UMIOT,.+1]
  5922						EXCT	4000^
  5923	035710	200 00 0 00 036617 		MOVE	[JSP .+3]	;EXECUTE 4000 UUO
  5924	035711	202 00 0 00 000041 		MOVEM	41		;AND STORE FLAGS
  5925	035712	004000	000000			XWD	4000,0		;IN AC0.
  5926					^
  5927	035713	607 00 0 00 010000 		TLNN	USERF		;CK BIT 6 INPUT TO 1P19 EX CONTROL PNT.
  5928						HOLD^
  5929	035714	324 00 0 00 035714 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5930	035715	320 00 0 00 035716 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5931					^
  5932
  5933						UMON^
  5934	035716	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5935	035717	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5936	035720	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  5937	035721	254 02 1 00 036620 		JRST	2,@[XWD USERF+UMIOT,.+1]
  5938						EXCT	10000^
  5939	035722	200 00 0 00 036621 		MOVE	[JSP .+3]	;EXECUTE 10000 UUO
  5940	035723	202 00 0 00 000041 		MOVEM	41		;AND STORE FLAGS
  5941	035724	010000	000000			XWD	10000,0		;IN AC0.
  5942					^
  5943	035725	607 00 0 00 010000 		TLNN	USERF		;CK BIT 5 INPUT TO 1P19 EX CONTROL PNT.
  5944						HOLD^
  5945	035726	324 00 0 00 035726 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5946	035727	320 00 0 00 035730 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5947					^
  5948
  5949
  5950						UMON^
  5951	035730	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5952	035731	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5953	035732	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  5954	035733	254 02 1 00 036622 		JRST	2,@[XWD USERF+UMIOT,.+1]
  5955						EXCT	20000^
  5956	035734	200 00 0 00 036623 		MOVE	[JSP .+3]	;EXECUTE 20000 UUO
  5957	035735	202 00 0 00 000041 		MOVEM	41		;AND STORE FLAGS
  5958	035736	020000	000000			XWD	20000,0		;IN AC0.
  5959					^
  5960	035737	607 00 0 00 010000 		TLNN	USERF		;CK BIT 4 INPUT TO 1P19 EX CONTROL PNT.
  5961						HOLD^
  5962	035740	324 00 0 00 035740 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 58-2
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0142

  5963	035741	320 00 0 00 035742 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5964					^
  5965
  5966						UMON^
  5967	035742	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  5968	035743	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  5969	035744	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  5970	035745	254 02 1 00 036624 		JRST	2,@[XWD USERF,.+1]
  5971	035746	200 00 0 00 036625 		MOVE	0,[JSP .+3]
  5972	035747	202 00 0 00 000041 		MOVEM	0,41
  5973	035750	700000	000000			XWD 700000,0		;XCT AN IOT.
  5974	035751	265 00 0 00 035752 		JSP	.+1		;GET FLAGS.
  5975	035752	603 00 0 00 010000 		TLNE	0,USERF		;USER MODE STILL ON?
  5976						HOLD	^		;YES. CK EX NON REL UUO
  5977
  5978	035753	324 00 0 00 035753 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  5979	035754	320 00 0 00 035755 		JUMP	.+1		;SO WAITING FOR OPERATOR
  5980
  5981									;EX PRINT.
  5982
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 59
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0143

  5983	035755	200 00 0 00 010040 	MOD181:	MOVE 10040		;SAVE THESE LOC
  5984	035756	336 00 0 00 035772 		SKIPN SAV40
  5985	035757	202 00 0 00 035772 		MOVEM SAV40
  5986	035760	200 00 0 00 010041 		MOVE 10041
  5987	035761	336 00 0 00 035773 		SKIPN SAV41
  5988	035762	202 00 0 00 035773 		MOVEM SAV41
  5989	035763	200 00 0 00 010042 		MOVE 10042
  5990	035764	336 00 0 00 035774 		SKIPN SAV42
  5991	035765	202 00 0 00 035774 		MOVEM SAV42
  5992	035766	200 00 0 00 010043 		MOVE 10043
  5993	035767	336 00 0 00 035775 		SKIPN SAV43
  5994	035770	202 00 0 00 035775 		MOVEM SAV43
  5995	035771	254 00 0 00 035776 		JRST	.+5
  5996	035772	000000	000000		SAV40:	0
  5997	035773	000000	000000		SAV41:	0
  5998	035774	000000	000000		SAV42:	0
  5999	035775	000000	000000		SAV43:	0
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 60
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0144

  6000
  6001					;TEST THE SETTING OF PROTECT FLAG BY MOVING A
  6002					;TWO INST PROG TO AC 1+2 PROG IS CAM X AND UU0
  6003					;WITH TRAP SET TO REAL WORLD THE CAM SHOULD TEST
  6004					;THE PROT FLAG
  6005
  6006			002000		X=2000
  6007
  6008					DEFINE	LAC	(A)<
  6009						UMON
  6010						DATAO	[0]
  6011						MOVE	1,[CAM A]
  6012						MOVSI	2,40000
  6013						
  6014						CONO PI,ACT+PIOSET+100
  6015						CONO 1
  6016						MOVE [JSP .+5]
  6017						MOVEM 42
  6018						MOVE	[JSP .+3]
  6019						MOVEM	41		;SET TRAP RETURN
  6020						JRST	1,1		;TURN ON USER MODE
  6021						CONSO	PROT		;THE PROT FLAG SHOULD BE SET
  6022						HOLD
  6023						CONSZ	NONEX
  6024						HOLD
  6025					>
  6026					MOD182:	REPEAT	10,<
  6027						LAC	X
  6028						X=X+X>
  6029
  6030						LAC	X^
  6031						UMON^
  6032	035776	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  6033	035777	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  6034	036000	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  6035	036001	7 000 14 0 00 036425 		DATAO	[0]
  6036	036002	200 01 0 00 036626 		MOVE	1,[CAM X]
  6037	036003	205 02 0 00 040000 		MOVSI	2,40000
  6038	
  6039	036004	7 004 20 0 00 002300 		CONO PI,ACT+PIOSET+100
  6040	036005	7 000 20 0 00 000001 		CONO 1
  6041	036006	200 00 0 00 036627 		MOVE [JSP .+5]
  6042	036007	202 00 0 00 000042 		MOVEM 42
  6043	036010	200 00 0 00 036627 		MOVE	[JSP .+3]
  6044	036011	202 00 0 00 000041 		MOVEM	41		;SET TRAP RETURN
  6045	036012	254 01 0 00 000001 		JRST	1,1		;TURN ON USER MODE
  6046	036013	7 000 34 0 00 020000 		CONSO	PROT		;THE PROT FLAG SHOULD BE SET
  6047						HOLD^
  6048	036014	324 00 0 00 036014 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6049	036015	320 00 0 00 036016 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6050					^
  6051	036016	7 000 30 0 00 010000 		CONSZ	NONEX
  6052						HOLD^
  6053	036017	324 00 0 00 036017 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6054	036020	320 00 0 00 036021 		JUMP	.+1		;SO WAITING FOR OPERATOR
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 60-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0145

  6055					^
  6056					^
  6057			004000			X=X+X
  6058
  6059						LAC	X^
  6060						UMON^
  6061	036021	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  6062	036022	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  6063	036023	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  6064	036024	7 000 14 0 00 036425 		DATAO	[0]
  6065	036025	200 01 0 00 036630 		MOVE	1,[CAM X]
  6066	036026	205 02 0 00 040000 		MOVSI	2,40000
  6067	
  6068	036027	7 004 20 0 00 002300 		CONO PI,ACT+PIOSET+100
  6069	036030	7 000 20 0 00 000001 		CONO 1
  6070	036031	200 00 0 00 036631 		MOVE [JSP .+5]
  6071	036032	202 00 0 00 000042 		MOVEM 42
  6072	036033	200 00 0 00 036631 		MOVE	[JSP .+3]
  6073	036034	202 00 0 00 000041 		MOVEM	41		;SET TRAP RETURN
  6074	036035	254 01 0 00 000001 		JRST	1,1		;TURN ON USER MODE
  6075	036036	7 000 34 0 00 020000 		CONSO	PROT		;THE PROT FLAG SHOULD BE SET
  6076						HOLD^
  6077	036037	324 00 0 00 036037 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6078	036040	320 00 0 00 036041 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6079					^
  6080	036041	7 000 30 0 00 010000 		CONSZ	NONEX
  6081						HOLD^
  6082	036042	324 00 0 00 036042 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6083	036043	320 00 0 00 036044 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6084					^
  6085					^
  6086			010000			X=X+X
  6087
  6088						LAC	X^
  6089						UMON^
  6090	036044	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  6091	036045	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  6092	036046	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  6093	036047	7 000 14 0 00 036425 		DATAO	[0]
  6094	036050	200 01 0 00 036632 		MOVE	1,[CAM X]
  6095	036051	205 02 0 00 040000 		MOVSI	2,40000
  6096	
  6097	036052	7 004 20 0 00 002300 		CONO PI,ACT+PIOSET+100
  6098	036053	7 000 20 0 00 000001 		CONO 1
  6099	036054	200 00 0 00 036633 		MOVE [JSP .+5]
  6100	036055	202 00 0 00 000042 		MOVEM 42
  6101	036056	200 00 0 00 036633 		MOVE	[JSP .+3]
  6102	036057	202 00 0 00 000041 		MOVEM	41		;SET TRAP RETURN
  6103	036060	254 01 0 00 000001 		JRST	1,1		;TURN ON USER MODE
  6104	036061	7 000 34 0 00 020000 		CONSO	PROT		;THE PROT FLAG SHOULD BE SET
  6105						HOLD^
  6106	036062	324 00 0 00 036062 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6107	036063	320 00 0 00 036064 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6108					^
  6109	036064	7 000 30 0 00 010000 		CONSZ	NONEX
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 60-2
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0146

  6110						HOLD^
  6111	036065	324 00 0 00 036065 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6112	036066	320 00 0 00 036067 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6113					^
  6114					^
  6115			020000			X=X+X
  6116
  6117						LAC	X^
  6118						UMON^
  6119	036067	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  6120	036070	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  6121	036071	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  6122	036072	7 000 14 0 00 036425 		DATAO	[0]
  6123	036073	200 01 0 00 036634 		MOVE	1,[CAM X]
  6124	036074	205 02 0 00 040000 		MOVSI	2,40000
  6125	
  6126	036075	7 004 20 0 00 002300 		CONO PI,ACT+PIOSET+100
  6127	036076	7 000 20 0 00 000001 		CONO 1
  6128	036077	200 00 0 00 036635 		MOVE [JSP .+5]
  6129	036100	202 00 0 00 000042 		MOVEM 42
  6130	036101	200 00 0 00 036635 		MOVE	[JSP .+3]
  6131	036102	202 00 0 00 000041 		MOVEM	41		;SET TRAP RETURN
  6132	036103	254 01 0 00 000001 		JRST	1,1		;TURN ON USER MODE
  6133	036104	7 000 34 0 00 020000 		CONSO	PROT		;THE PROT FLAG SHOULD BE SET
  6134						HOLD^
  6135	036105	324 00 0 00 036105 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6136	036106	320 00 0 00 036107 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6137					^
  6138	036107	7 000 30 0 00 010000 		CONSZ	NONEX
  6139						HOLD^
  6140	036110	324 00 0 00 036110 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6141	036111	320 00 0 00 036112 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6142					^
  6143					^
  6144			040000			X=X+X
  6145
  6146						LAC	X^
  6147						UMON^
  6148	036112	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  6149	036113	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  6150	036114	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  6151	036115	7 000 14 0 00 036425 		DATAO	[0]
  6152	036116	200 01 0 00 036636 		MOVE	1,[CAM X]
  6153	036117	205 02 0 00 040000 		MOVSI	2,40000
  6154	
  6155	036120	7 004 20 0 00 002300 		CONO PI,ACT+PIOSET+100
  6156	036121	7 000 20 0 00 000001 		CONO 1
  6157	036122	200 00 0 00 036637 		MOVE [JSP .+5]
  6158	036123	202 00 0 00 000042 		MOVEM 42
  6159	036124	200 00 0 00 036637 		MOVE	[JSP .+3]
  6160	036125	202 00 0 00 000041 		MOVEM	41		;SET TRAP RETURN
  6161	036126	254 01 0 00 000001 		JRST	1,1		;TURN ON USER MODE
  6162	036127	7 000 34 0 00 020000 		CONSO	PROT		;THE PROT FLAG SHOULD BE SET
  6163						HOLD^
  6164	036130	324 00 0 00 036130 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 60-3
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0147

  6165	036131	320 00 0 00 036132 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6166					^
  6167	036132	7 000 30 0 00 010000 		CONSZ	NONEX
  6168						HOLD^
  6169	036133	324 00 0 00 036133 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6170	036134	320 00 0 00 036135 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6171					^
  6172					^
  6173			100000			X=X+X
  6174
  6175						LAC	X^
  6176						UMON^
  6177	036135	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  6178	036136	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  6179	036137	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  6180	036140	7 000 14 0 00 036425 		DATAO	[0]
  6181	036141	200 01 0 00 036640 		MOVE	1,[CAM X]
  6182	036142	205 02 0 00 040000 		MOVSI	2,40000
  6183	
  6184	036143	7 004 20 0 00 002300 		CONO PI,ACT+PIOSET+100
  6185	036144	7 000 20 0 00 000001 		CONO 1
  6186	036145	200 00 0 00 036641 		MOVE [JSP .+5]
  6187	036146	202 00 0 00 000042 		MOVEM 42
  6188	036147	200 00 0 00 036641 		MOVE	[JSP .+3]
  6189	036150	202 00 0 00 000041 		MOVEM	41		;SET TRAP RETURN
  6190	036151	254 01 0 00 000001 		JRST	1,1		;TURN ON USER MODE
  6191	036152	7 000 34 0 00 020000 		CONSO	PROT		;THE PROT FLAG SHOULD BE SET
  6192						HOLD^
  6193	036153	324 00 0 00 036153 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6194	036154	320 00 0 00 036155 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6195					^
  6196	036155	7 000 30 0 00 010000 		CONSZ	NONEX
  6197						HOLD^
  6198	036156	324 00 0 00 036156 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6199	036157	320 00 0 00 036160 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6200					^
  6201					^
  6202			200000			X=X+X
  6203
  6204						LAC	X^
  6205						UMON^
  6206	036160	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  6207	036161	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  6208	036162	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  6209	036163	7 000 14 0 00 036425 		DATAO	[0]
  6210	036164	200 01 0 00 036642 		MOVE	1,[CAM X]
  6211	036165	205 02 0 00 040000 		MOVSI	2,40000
  6212	
  6213	036166	7 004 20 0 00 002300 		CONO PI,ACT+PIOSET+100
  6214	036167	7 000 20 0 00 000001 		CONO 1
  6215	036170	200 00 0 00 036643 		MOVE [JSP .+5]
  6216	036171	202 00 0 00 000042 		MOVEM 42
  6217	036172	200 00 0 00 036643 		MOVE	[JSP .+3]
  6218	036173	202 00 0 00 000041 		MOVEM	41		;SET TRAP RETURN
  6219	036174	254 01 0 00 000001 		JRST	1,1		;TURN ON USER MODE
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 60-4
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0148

  6220	036175	7 000 34 0 00 020000 		CONSO	PROT		;THE PROT FLAG SHOULD BE SET
  6221						HOLD^
  6222	036176	324 00 0 00 036176 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6223	036177	320 00 0 00 036200 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6224					^
  6225	036200	7 000 30 0 00 010000 		CONSZ	NONEX
  6226						HOLD^
  6227	036201	324 00 0 00 036201 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6228	036202	320 00 0 00 036203 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6229					^
  6230					^
  6231			400000			X=X+X
  6232
  6233						LAC	X^
  6234						UMON^
  6235	036203	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  6236	036204	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  6237	036205	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  6238	036206	7 000 14 0 00 036425 		DATAO	[0]
  6239	036207	200 01 0 00 036644 		MOVE	1,[CAM X]
  6240	036210	205 02 0 00 040000 		MOVSI	2,40000
  6241	
  6242	036211	7 004 20 0 00 002300 		CONO PI,ACT+PIOSET+100
  6243	036212	7 000 20 0 00 000001 		CONO 1
  6244	036213	200 00 0 00 036645 		MOVE [JSP .+5]
  6245	036214	202 00 0 00 000042 		MOVEM 42
  6246	036215	200 00 0 00 036645 		MOVE	[JSP .+3]
  6247	036216	202 00 0 00 000041 		MOVEM	41		;SET TRAP RETURN
  6248	036217	254 01 0 00 000001 		JRST	1,1		;TURN ON USER MODE
  6249	036220	7 000 34 0 00 020000 		CONSO	PROT		;THE PROT FLAG SHOULD BE SET
  6250						HOLD^
  6251	036221	324 00 0 00 036221 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6252	036222	320 00 0 00 036223 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6253					^
  6254	036223	7 000 30 0 00 010000 		CONSZ	NONEX
  6255						HOLD^
  6256	036224	324 00 0 00 036224 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6257	036225	320 00 0 00 036226 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6258					^
  6259					^
  6260		000001	000000			X=X+X
  6261
  6262	036226	402 00 0 00 000040 	MOD185:	SETZM	40		;TEST FOR TRAP TO REAL LOC 40
  6263	036227	200 00 0 00 036646 		MOVE	[JSP MOD186-1]	;NOT RELOCATED 40
  6264	036230	202 00 0 00 000041 		MOVEM	41		;SETUP TRAP FOR OK
  6265	036231	7 000 14 0 00 036647 		DATAO	[XWD -1,10000]
  6266	036232	200 00 0 00 036650 		MOVE	[JSP MOD186]	;SETUP TRAP FOR ERR
  6267	036233	202 00 0 00 010041 		MOVEM	10041
  6268	036234	254 01 0 00 026235 		JRST	1,.+1-10000	;IF THE UUO TRAPS TO
  6269	036235	040000	000000			XWD	40000,0		;RELOCATED 40 PROG WILL HOLD
  6270	036236	336 00 0 00 000040 		SKIPN	40		;AT THIS POINT
  6271
  6272	036237				MOD186:	HOLD^
  6273	036237	324 00 0 00 036237 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6274	036240	320 00 0 00 036241 		JUMP	.+1		;SO WAITING FOR OPERATOR
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 60-5
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0149

  6275					^
  6276	036241	265 00 0 00 036242 		JSP	.+1		;IF USER MODE STILL ON
  6277	036242	603 00 0 00 010000 		TLNE	USERF		;THEN WAIT HERE
  6278						HOLD^
  6279	036243	324 00 0 00 036243 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6280	036244	320 00 0 00 036245 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6281					^
  6282
  6283					;TEST FOR INTERRUPT TO REAL PI (NOT RELOCATED)
  6284	036245				MOD190:	UMON^
  6285	036245	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  6286	036246	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  6287	036247	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  6288	036250	200 00 0 00 036651 		MOVE	[JSP MOD191]	;SET ERROR PI RET
  6289	036251	202 00 0 00 010042 		MOVEM 10042
  6290	036252	200 00 0 00 036652 		MOVE	[JSP MOD191+1]	;SET OK PI
  6291	036253	202 00 0 00 000042 		MOVEM 42
  6292	036254	7 000 14 0 00 036647 		DATAO [XWD -1,10000]
  6293	036255	254 02 1 00 036653 		JRST 2,@[XWD USERF+UMIOT,.+1-10000]
  6294	036256	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+100	;SHOULD INTERRUPT
  6295						HOLD^
  6296	036257	324 00 0 00 036257 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6297	036260	320 00 0 00 036261 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6298					^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 61
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0150

  6299	036261				MOD191:	HOLD^
  6300	036261	324 00 0 00 036261 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6301	036262	320 00 0 00 036263 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6302					^
  6303						UMOFF^
  6304	036263	200 00 0 00 036654 		MOVE	[JSP .+3]	;TURN OFF USER MODE VIA
  6305	036264	202 00 0 00 000041 		MOVEM	41		;UUO. PROG RETURNS TO END
  6306	036265	040000	000000			XWD	040000,0	;OF MACRO. PC+FLAGS STORED .+1
  6307					^
  6308					;TEST FOR NOT RELOCATION OF AC'S
  6309	036266	402 00 0 00 000005 	MOD192:	SETZM	5
  6310						UMON^
  6311	036267	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  6312	036270	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  6313	036271	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  6314	036272	200 00 0 00 036655 		MOVE [JSP M192]
  6315	036273	202 00 0 00 000041 		MOVEM 41
  6316	036274	7 000 14 0 00 036647 		DATAO [XWD -1,10000]
  6317	036275	254 01 0 00 026276 		JRST 1,.+1-10000
  6318	036276	201 05 0 00 012345 		MOVEI	5,12345
  6319	036277	040000	000000			XWD 040000,0		;UUO TO TERM USER MODE
  6320	036300	302 05 0 00 012345 	M192:	CAIE	5,12345
  6321						HOLD^
  6322	036301	324 00 0 00 036301 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6323	036302	320 00 0 00 036303 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6324					^
  6325	036303	332 00 0 00 036670 	MOD195:	SKIPE	FPTRAP		;SEE IF SWITCH SAYS FP
  6326	036304	254 00 0 00 036315 		JRST MOD196
  6327	036305	200 00 0 00 036656 		MOVE [JSP .+3]		;TEST THE ABILITY TO
  6328	036306	202 00 0 00 000061 		MOVEM 61		;TRAP A FP INST
  6329	036307	145 00 0 00 777777 		FADRI -1		;THIS INST SHOULD TRAP
  6330	036310	200 02 0 00 036307 		MOVE 2,.-1		;FAIL TO TRAP PROPERLY
  6331	036311	312 02 0 00 000060 		CAME 2,60
  6332						STOP^
  6333	036312	254 04 0 00 036313 		HALT	.+1
  6334	036313	320 00 0 00 036314 		JUMP	.+1
  6335									^
  6336	036314	254 00 0 00 036414 		JRST MOD197		;WHAT ABOUT SWITCHS
  6337	036315	200 00 0 00 036657 	MOD196:	MOVE [JSP .+4]		;TEST FOR FP NOT TRAP
  6338	036316	402 00 0 00 000060 		SETZM 60
  6339	036317	202 00 0 00 000061 		MOVEM 61		;SET RETURN
  6340	036320	145 00 0 00 777777 		FADRI -1
  6341	036321	332 00 0 00 000060 		SKIPE 60		;DOES MACH HAVE FP
  6342						STOP^
  6343	036322	254 04 0 00 036323 		HALT	.+1
  6344	036323	320 00 0 00 036324 		JUMP	.+1
  6345									^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 62
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0151

  6346					;CHECK BYT7A SETING BYF6.
  6347	036324	7 000 20 0 00 635550 	MOD19X:	CONO	635550		;CLR THE WORLD.
  6348	036325	200 00 0 00 036660 		MOVE	[JSP MOD19B]
  6349	036326	202 00 0 00 000042 		MOVEM	42		;SETUP FOR INT ON CH # 1.
  6350	036327	7 004 20 0 00 012300 		CONO	PI,12300	;SETUP PI.
  6351	036330	200 01 0 00 036351 		MOVE	1,POINTR	;PUT POINTER INTO AC1.
  6352	036331	7 000 20 0 00 001000 		CONO	1000		;CLR CLOCK FLAG.
  6353	036332	7 000 34 0 00 001000 		CONSO	1000		;WAIT FOR
  6354	036333	254 00 0 00 036332 		JRST	.-1		;CLOCK FLAG.
  6355	036334	7 000 20 0 00 003001 		CONO	3001		;SET INT ENABLE AND PI 35 AND CLR CLK FLG.
  6356	036335	134 00 0 00 000001 		ILDB	0,1		;SHOULD STAY IN INDIRECT LOOP.
  6357	036336	7 000 34 0 00 001000 	MOD19B:	CONSO	1000		;CLK FLG INT?
  6358						HOLD^
  6359	036337	324 00 0 00 036337 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6360	036340	320 00 0 00 036341 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6361					^
  6362	036341	607 00 0 00 020000 		TLNN	0,20000		;BYF6 FLAG SET? NO..CK BYT7A ON BYTE PRINT.
  6363						HOLD^
  6364	036342	324 00 0 00 036342 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6365	036343	320 00 0 00 036344 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6366					^
  6367	036344	265 00 0 00 036345 		JSP	.+1		;CAUSE ARLT FM FLAGS(J)A.
  6368	036345	603 00 0 00 020000 		TLNE	0,20000		;CK BYTE PRINT.
  6369						HOLD^
  6370	036346	324 00 0 00 036346 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6371	036347	320 00 0 00 036350 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6372					^
  6373
  6374	036350	254 00 0 00 036414 		JRST	MOD197
  6375
  6376	036351	440720	000001		POINTR:	XWD 440720,1
  6377					;CK TO SEE THAT UUO 0 TRAPS TO 141.
  6378	036352				MOD200:	UMON^
  6379	036352	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  6380	036353	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  6381	036354	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  6382	036355	254 02 1 00 036661 		JRST	2,@[XWD USERF+UMIOT,.+1]
  6383	036356	200 00 0 00 036662 		MOVE	[JSP .+5]
  6384	036357	202 00 0 00 000041 		MOVEM	41
  6385	036360	340 00 0 00 000000 		AOJ
  6386	036361	202 00 0 00 000141 		MOVEM	141
  6387	036362	000000	000000			0
  6388						HOLD	^		;UUO 0 TRAPED TO 40. CK 2L44 ON MA CONTROL PRINT.
  6389
  6390	036363	324 00 0 00 036363 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6391	036364	320 00 0 00 036365 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6392
  6393	036365	607 00 0 00 010000 		TLNN	USERF		;USER MODE GET CLR?..CK 1P19 ON EX CONT PNT.
  6394						HOLD^
  6395	036366	324 00 0 00 036366 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6396	036367	320 00 0 00 036370 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6397					^
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 63
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0152

  6398					;CK TO SEE THAT UUO 37 TRAPS TO 41.
  6399
  6400						UMON^
  6401	036370	7 000 20 0 00 634440 		CONO	634440		;PREPARE TO TURN ON USER
  6402	036371	7 004 20 0 00 010000 		CONO	PI,10000	;MODE. CL PI, IOB, RELOC
  6403	036372	7 000 14 0 00 036525 		DATAO	[XWD -1,0]^
  6404	036373	254 02 1 00 036663 		JRST	2,@[XWD USERF + UMIOT, .+1]
  6405	036374	200 00 0 00 036664 		MOVE	[JSP .+5]
  6406	036375	202 00 0 00 000141 		MOVEM	141
  6407	036376	340 00 0 00 000000 		AOJ
  6408	036377	202 00 0 00 000041 		MOVEM	41
  6409	036400	037000	000000			037000000000
  6410						HOLD	^		;UUO 37 TRAPPED TO 141, CK 2L44 ON MA CONTROL PRINT
  6411					.
  6412
  6413	036401	324 00 0 00 036401 		JUMPA	.		;MACH ERROR. HALT MAY TRAP
  6414	036402	320 00 0 00 036403 		JUMP	.+1		;SO WAITING FOR OPERATOR
  6415
  6416
  6417
  6418					;CK TO SEE THAT AN INTERRUPT ON CH # 1 TRAPS TO 142.
  6419
  6420	036403	200 00 0 00 036665 		MOVE	[MOVEI 142]
  6421	036404	202 00 0 00 000142 		MOVEM	142
  6422	036405	7 000 20 0 00 634440 		CONO	634440		;CLR THE WORLD.
  6423	036406	400 00 0 00 000000 		SETZ	0,
  6424	036407	7 004 20 0 00 010000 		CONO	PI,10000	;CLR PI.
  6425	036410	7 004 20 0 00 004300 		CONO	PI,ACT+PIREQ+100;CAUSE INT.
  6426	036411	302 00 0 00 000142 		CAIE	0,142		;CK 2K44 ON MA CONTROL PRINT.
  6427	036412	254 04 0 00 000000 		HALT
  6428
  6429	036413	476 00 0 00 036671 		SETOM	MATPOF		;SET FLG SO KNOW IN THIS ROUTINE.
  6430
  6431
  6432	036414	254 00 0 00 030057 	MOD197:	JRST	BEGEND		;REPEAT DIAGNOSTIC
  6433
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 64
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0153

  6434					;DIAGNOSTIC STORAGE
  6435
  6436	036415					LIT
  6437	036415	000001	000001
  6438	036416	254 00 0 00 030737 
  6439	036417	015 012 077 105 130 
  6440	036420	105 103 040 115 117 
  6441	036421	104 105 040 104 111 
  6442	036422	101 107 116 117 123 
  6443	036423	124 111 103 040 117 
  6444	036424	116 114 131 015 012 
  6445	036425	000 000 000 000 000 
  6446	036426	000000	000001
  6447	036427	000000	000002
  6448	036430	265 02 0 00 030776 
  6449	036431	254 00 0 00 030776 
  6450	036432	265 00 0 00 030777 
  6451	036433	265 02 0 00 031006 
  6452	036434	254 00 0 00 031007 
  6453	036435	265 02 0 00 031017 
  6454	036436	265 00 0 00 031020 
  6455	036437	265 02 0 00 031026 
  6456	036440	265 02 0 00 031036 
  6457	036441	777777	777777
  6458	036442	265 02 0 00 031046 
  6459	036443	265 02 0 00 031055 
  6460	036444	265 02 0 00 031064 
  6461	036445	265 02 0 00 031073 
  6462	036446	265 02 0 00 031102 
  6463	036447	265 02 0 00 031111 
  6464	036450	265 02 0 00 031120 
  6465	036451	265 02 0 00 031127 
  6466	036452	265 02 0 00 031136 
  6467	036453	265 02 0 00 031145 
  6468	036454	265 02 0 00 031154 
  6469	036455	265 02 0 00 031163 
  6470	036456	265 02 0 00 031172 
  6471	036457	265 02 0 00 031201 
  6472	036460	265 02 0 00 031210 
  6473	036461	265 02 0 00 031217 
  6474	036462	265 02 0 00 031227 
  6475	036463	077740	000000
  6476	036464	265 02 0 00 031237 
  6477	036465	077740	777777
  6478	036466	265 02 0 00 031247 
  6479	036467	265 02 0 00 031257 
  6480	036470	265 02 0 00 031274 
  6481	036471	123456	654321
  6482	036472	400000	000000
  6483	036473	201 00 0 00 000040 
  6484	036474	201 00 0 00 000057 
  6485	036475	201 00 0 00 000017 
  6486	036476	201 00 0 00 000000 
  6487	036477	7 177 2 0 00 000000 
  6488	036500	350 00 0 00 000000 
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 64-1
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0154

  6489	036501	201 00 0 00 000042 
  6490	036502	7 177 3 0 00 000000 
  6491	036503	7 177 1 0 00 000000 
  6492	036504	201 01 0 00 000042 
  6493	036505	334 00 0 00 000000 
  6494	036506	264 00 0 00 035106 
  6495	036507	260 00 0 00 035116 
  6496	036510	201 00 0 00 000043 
  6497	036511	7 177 2 0 00 000004 
  6498	036512	265 00 0 00 035153 
  6499	036513	265 00 0 00 035154 
  6500	036514	000000	035163
  6501	036515	004000	035170
  6502	036516	000000	035171
  6503	036517	000000	035176
  6504	036520	004000	035177
  6505	036521	000000	035204
  6506	036522	004000	035210
  6507	036523	265 00 0 00 035216 
  6508	036524	265 00 0 00 035227 
  6509	036525	777777	000000
  6510	036526	014000	035231
  6511	036527	265 00 0 00 035234 
  6512	036530	014000	035243
  6513	036531	265 00 0 00 035246 
  6514	036532	265 00 0 00 035251 
  6515	036533	014000	035260
  6516	036534	324 00 0 00 035263 
  6517	036535	265 00 0 00 035272 
  6518	036536	265 00 0 00 035275 
  6519	036537	014000	035301
  6520	036540	265 00 0 00 035311 
  6521	036541	265 00 0 00 035314 
  6522	036542	265 00 0 00 035327 
  6523	036543	010000	035333
  6524	036544	014000	035334
  6525	036545	265 00 0 00 035343 
  6526	036546	010000	035347
  6527	036547	265 00 0 00 035353 
  6528	036550	265 00 0 00 035361 
  6529	036551	014000	035365
  6530	036552	265 00 0 00 035371 
  6531	036553	265 00 0 00 035400 
  6532	036554	014000	035404
  6533	036555	265 00 0 00 035407 
  6534	036556	324 00 0 00 035416 
  6535	036557	010000	035422
  6536	036560	265 00 0 00 035432 
  6537	036561	010000	035436
  6538	036562	265 00 0 00 035442 
  6539	036563	265 00 0 00 035450 
  6540	036564	010000	035454
  6541	036565	265 00 0 00 035460 
  6542	036566	265 00 0 00 035466 
  6543	036567	014000	035472
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 64-2
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0155

  6544	036570	265 00 0 00 035476 
  6545	036571	265 00 0 00 035504 
  6546	036572	265 00 0 00 035514 
  6547	036573	265 00 0 00 035522 
  6548	036574	265 00 0 00 035532 
  6549	036575	265 00 0 00 035540 
  6550	036576	7 000 0 0 00 000000 
  6551	036577	265 00 0 00 035560 
  6552	036600	265 00 0 00 035557 
  6553	036601	265 00 0 00 035565 
  6554	036602	265 00 0 00 035575 
  6555	036603	265 00 0 00 035611 
  6556	036604	010000	035610
  6557	036605	265 00 0 00 035631 
  6558	036606	014000	035630
  6559	036607	014000	035647
  6560	036610	265 00 0 00 035652 
  6561	036611	265 00 0 00 035655 
  6562	036612	014000	035664
  6563	036613	265 00 0 00 035667 
  6564	036614	014000	035676
  6565	036615	265 00 0 00 035701 
  6566	036616	014000	035710
  6567	036617	265 00 0 00 035713 
  6568	036620	014000	035722
  6569	036621	265 00 0 00 035725 
  6570	036622	014000	035734
  6571	036623	265 00 0 00 035737 
  6572	036624	010000	035746
  6573	036625	265 00 0 00 035751 
  6574	036626	310 00 0 00 002000 
  6575	036627	265 00 0 00 036013 
  6576	036630	310 00 0 00 004000 
  6577	036631	265 00 0 00 036036 
  6578	036632	310 00 0 00 010000 
  6579	036633	265 00 0 00 036061 
  6580	036634	310 00 0 00 020000 
  6581	036635	265 00 0 00 036104 
  6582	036636	310 00 0 00 040000 
  6583	036637	265 00 0 00 036127 
  6584	036640	310 00 0 00 100000 
  6585	036641	265 00 0 00 036152 
  6586	036642	310 00 0 00 200000 
  6587	036643	265 00 0 00 036175 
  6588	036644	310 00 0 00 400000 
  6589	036645	265 00 0 00 036220 
  6590	036646	265 00 0 00 036236 
  6591	036647	777777	010000
  6592	036650	265 00 0 00 036237 
  6593	036651	265 00 0 00 036261 
  6594	036652	265 00 0 00 036262 
  6595	036653	014000	026256
  6596	036654	265 00 0 00 036266 
  6597	036655	265 00 0 00 036300 
  6598	036656	265 00 0 00 036310 
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 64-3
DAKAHM	MAC	19-JAN-77 17:39		DIAGNOSTIC SECTION                                                                 SEQ 0156

  6599	036657	265 00 0 00 036321 
  6600	036660	265 00 0 00 036336 
  6601	036661	014000	036356
  6602	036662	265 00 0 00 036363 
  6603	036663	014000	036374
  6604	036664	265 00 0 00 036401 
  6605	036665	201 00 0 00 000142 
  6606
  6607	036667					VAR
  6608
  6609	036675	254 04 0 00 030000 	LAST:	JRST	4,BEGIN
  6610
DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) 0,2	MACRO %52(537) 17:47 19-JAN-77 PAGE 1
STOR	KLM	18-JAN-77 11:42		*STOR* RESERVED STORAGE, JAN 18,1977                                               SEQ 0157

  6611					SUBTTL	*STOR* RESERVED STORAGE, JAN 18,1977
  6612
  6613					;PROGRAM LITERALS
  6614
  6615						XLIST
  6616					IFNDEF	$LPAPER,<LIST>
  6617	036676					LIT
  6618						LIST
  6619	036676	000000	000000		ENDSLD:	0
  6620
  6621					IFDEF	DEBUG,<
  6622					PATCH:	BLOCK DEBUG		;PATCHING AREA
  6623					>
  6624
  6625					;PROGRAM VARIABLES
  6626	036677					VAR
  6627
  6628					IFDEF	PGMEND,<
  6629	036677	000000	000000		END:	0
  6630			030000			END	BEGIN	>

NO ERRORS DETECTED

PROGRAM BREAK IS 000000
ABSLUTE BREAK IS 036700
CPU TIME USED 00:22.958

12K CORE USED

ABORT	   127#
AC0	   722#                                                                                                            SEQ 0158
ACT	    49#	  2437	  2449	  2461	  2472	  2473	  2499	  2512	  2525	  2538	  2551	  2564	  2577	  2711
	  2727	  2743	  2759	  2775	  2791	  2807	  2838	  2856	  2868	  2879	  2890	  2901	  2913	  2925
	  2937	  2949	  2969	  2982	  3010	  3027	  3044	  3061	  3078	  3095	  3112	  3152	  3169	  3186
	  3203	  3220	  3237	  3254	  3291	  3293	  3308	  3310	  3325	  3327	  3342	  3344	  3359	  3361
	  3376	  3378	  3393	  3395	  3433	  3435	  3451	  3453	  3469	  3471	  3487	  3489	  3505	  3507
	  3523	  3525	  3548	  3561	  3578	  3591	  3604	  3617	  3630	  3663	  3677	  3695	  3709	  3723
	  3737	  3751	  3784	  3798	  3816	  3830	  3844	  3858	  3889	  3902	  3919	  3932	  3945	  3958
	  3971	  3998	  4013	  4032	  4047	  4062	  4077	  4092	  4128	  4145	  4162	  4179	  4196	  4213
	  4230	  4256	  4257	  4274	  4275	  4288	  4289	  4302	  4303	  4316	  4317	  4330	  4331	  4358
	  4371	  4384	  4397	  4410	  4423	  4436	  4597	  4613	  4633	  4649	  4665	  4681	  4697	  5039
	  5062	  5088	  5102	  5120	  5135	  5142	  5157	  5173	  5191	  5205	  5219	  5234	  5254	  5274
	  5286	  5301	  5329	  5623	  5773	  5830	  6039	  6068	  6097	  6126	  6155	  6184	  6213	  6242
	  6294	  6425
ALTMGO	   481#
ANXM	   395#
APR	   819	   820	   821
AROV	   395#
AROVU	   395#
AST	   596#
ATSIN	   597#
BEGEND	   477#	  6432
BEGIN	   341	   342	   408#	   765	   887	  6609	  6630
BEGIN1	   424#	   478
BELL	   600#
BIS	   395#
CCA	   395#
CHAIN	   147#
CHNOFF	   395#
CHNON	   395#
CLK	   395#
CLKCLR	   395#
CLKDIS	   395#
CLKENB	   395#
CLKU	   395#
CLOCKF	   463#
CNTLC	   480#
COMMA	   589#
CONSW	   464#
CPOPJ	   484#
CPOPJ1	   482#
CPSAV	   927#	   927
CRLF	   276	   277	   584#
CRLF2	   280	   281	   586#
CRY0	   395#
CRY1	   395#
CSHFLG	   643#
CSHMEM	   644#
CYCL60	   637#
DACT	    36#	  3999	  4014	  4033	  4048	  4063	  4078	  4093
DCK	   395#
DDT	   724#
DDTLNK	   161#	   422
DDTSRT	   422#                                                                                                            SEQ 0159
DEBUG	  6621
DECVER	     5#	    11	    26	   443
DF22F	   548#
DIAGMN	   411#
DIAGNO	   723#
DIAMON	   725#
DING	   133#
DOLLAR	   603#
DONG11	   726#	   866	   882
DSKUPD	   448
DTE	   730#	   866	   868	   882	   884
DTE0	   731#
DTE1	   732#
DTE2	   733#
DTE3	   734#
END	  6629#
ENDFIX	   717#
ENDSLD	  6619#
ERMORE	   497#
ERRPC	   468#
ERRTLS	   469#
ERSTOP	   136#
EXCASB	    73#	   446
EXIOT	    33#	   395#
FOV	   395#
FOVU	   395#
FPTRAP	   934#	   934	  6325
FRDLNK	   159#
FSELNK	   158#
FXU	   395#
HYPEN	   594#
INHCSH	   144#
INHPAG	   141#
INXM	   395#
IOCLR	   395#
ITERAT	    72#	   441
ITRCH1	   501#
ITRCNT	   441#	   811	   840	   844	   852	   853	   857
JOB41	   395#
JOBAPR	   395#
JOBCNI	   395#
JOBDDT	   395#
JOBFF	   395#
JOBOPC	   395#
JOBREL	   395#
JOBREN	   395#
JOBSA	   395#
JOBSYM	   395#
JOBTPC	   395#
JOBUSY	   395#
JOBUUO	   395#
JOBVER	   395#
KA10	   395                                                                                                             SEQ 0160
KAHZ50	   149#
KAIFLG	   458#
KI10	   395
KL10	   395
KLFLG	   459#	   813	   831	   850
KLOLD	   356
KLTYP	   675#	   812	   823	   865	   867	   881	   883
LAST	  6609#
LDLNK	   160#	   411	   413
LFP	   598#
LOOPER	   135#
LUUO	   395#
LUUO1	   528	   529
LUUO10	   528	   533
LUUO11	   528	   533
LUUO12	   528	   534
LUUO13	   528	   534
LUUO14	   528	   535
LUUO15	   528	   535
LUUO16	   528	   536
LUUO17	   528	   536
LUUO2	   528	   530
LUUO20	   528	   537
LUUO21	   528	   537
LUUO22	   528	   538
LUUO23	   528	   538
LUUO24	   528	   539
LUUO25	   528	   539
LUUO26	   528	   540
LUUO27	   528	   540
LUUO3	   528	   530
LUUO30	   528	   541
LUUO31	   528	   541
LUUO32	   528	   542
LUUO33	   528	   542
LUUO4	   528	   531
LUUO5	   528	   531
LUUO6	   528	   532
LUUO7	   528	   532
LUUOI	   395#
M179	  5767	  5770	  5776#
M180	  5831	  5837#
M192	  6314	  6320#
MAPNEW	   549#
MARGIN	   471#
MATPOF	   918#	   918	   943#	   943	  6429
MCNVER	     6#	    11	    26	   443
MD162A	  5432	  5440#
MD162B	  5438	  5446#
ME	    37#	  1365	  1366	  1374	  1375	  1391	  1392	  1399	  1400	  1408	  1418	  1426	  1433	  2414
	  2426	  5099	  5132	  5154	  5175	  5189	  5203	  5216	  5231	  5247	  5325
MEMLOW	   551#
MEMMAP	   449                                                                                                             SEQ 0161
MEMSIZ	   552#
MEMTOT	   550#
MINUS	   593#
MOD	   919#
MOD1	   951	   956	   959#
MOD10	  1025#
MOD100	  3992#
MOD101	  4026#
MOD102	  4024	  4101#
MOD103	  4116#
MOD104	  4251#
MOD105	  4269#
MOD106	  4267	  4339#
MOD107	  4346#
MOD108	  4460#
MOD109	  4588#
MOD11	  1027	  1033#
MOD110	  4624#
MOD111	  4622	  4704#
MOD115	  4709#
MOD116	  4730#
MOD117	  4748#
MOD118	  4769#
MOD119	  4793#
MOD12	  1040#
MOD120	  4767	  4852#
MOD121	  4863#
MOD122	  4878#
MOD123	  4893#
MOD124	  4909#
MOD125	  4931#
MOD127	  4946#
MOD128	  4961#
MOD129	  4976#
MOD13	  1042	  1047#
MOD130	  4991#
MOD131	  5016#
MOD132	  5035#
MOD133	  5058#
MOD134	  5081#
MOD135	  5095#
MOD136	  5109	  5113#
MOD137	  5128#
MOD14	  1053#
MOD140	  5150#
MOD141	  5166#
MOD142	  5184#
MOD143	  5199#
MOD144	  5212#
MOD145	  5227#
MOD147	  5242#
MOD148	  5267#
MOD149	  5280#                                                                                                            SEQ 0162
MOD15	  1055	  1060#
MOD150	  5293#
MOD151	  5319#
MOD152	  5337#
MOD153	  5338	  5340	  5347#
MOD154	  5357#
MOD16	  1066#
MOD160	  5376#
MOD161	  5418#
MOD162	  5432#
MOD163	  5460#
MOD164	  5481#
MOD165	  5508#
MOD166	  5531#
MOD167	  5557#
MOD17	  1068	  1073#
MOD170	  5575#
MOD171	  5595#
MOD172	  5616#
MOD173	  5637#
MOD174	  5657#
MOD175	  5677#
MOD176	  5697#
MOD177	  5717#
MOD178	  5737#
MOD179	  5760#
MOD18	  1080#
MOD180	  5823#
MOD181	  5983#
MOD182	  6026#
MOD185	  6262#
MOD186	  6263	  6266	  6272#
MOD18A	  5862#
MOD19	  1217#
MOD190	  6284#
MOD191	  6288	  6290	  6299#
MOD192	  6309#
MOD195	  5358	  6325#
MOD196	  6326	  6337#
MOD197	  6336	  6374	  6432#
MOD19A	  1219	  1224#
MOD19B	  6348	  6357#
MOD19X	  6347#
MOD2	   966#
MOD20	  1230#
MOD200	   944	  6378#
MOD20A	  1232	  1237#
MOD21	  1244#
MOD21A	  1246	  1251#
MOD22	  1258#
MOD22A	  1260	  1265#
MOD23	  1272#
MOD23A	  1274	  1279#                                                                                                    SEQ 0163
MOD24	  1287#
MOD24A	  1289	  1294#
MOD25	  1301#
MOD26	  1306#
MOD27	  1308#
MOD28	  1316	  1323#
MOD29	  1329#
MOD3	   968	   974#
MOD30	  1338#
MOD31	  1347#
MOD32	  1356#
MOD33	  1365#
MOD34	  1374#
MOD35	  1407#
MOD36	  1417#
MOD37	  1425#
MOD38	  1432#
MOD39	  1439#
MOD4	   981#
MOD40	  1448#
MOD41	  1457#
MOD42	  1466#
MOD43	  1475#
MOD44	  1484#
MOD45	  1493#
MOD46	  1502#
MOD47	  1509#
MOD48	  1515#
MOD5	   983	   987	   990#
MOD50	  1523#
MOD51	  1552#
MOD52	  1584#
MOD53	  1616#
MOD54	  1659#
MOD55	  1698#
MOD56	  1736#
MOD57	  1771#
MOD58	  1803#
MOD59	  1841#
MOD6	   997#
MOD60	  1881#
MOD7	   999	  1004#
MOD70	  1914#
MOD71	  1967#
MOD72	  1980#
MOD73	  2097#
MOD74	  2218#
MOD75	  2099	  2392#
MOD76	  2396#
MOD77	  2433#
MOD78	  2487#
MOD79	  2592#
MOD8	  1011#                                                                                                            SEQ 0164
MOD80	  2851#
MOD81	  2897#
MOD82	  2963#
MOD83	  2999#
MOD85	  3141#
MOD86	  3281#
MOD87	  3422#
MOD88	  3542#
MOD89	  3572#
MOD9	  1013	  1019#
MOD90	  3570	  3637#
MOD91	  3656#
MOD92	  3688#
MOD93	  3686	  3759#
MOD94	  3777#
MOD95	  3809#
MOD96	  3807	  3865#
MOD97	  3883#
MOD98	  3913#
MOD99	  3911	  3978#
MODDVC	   143#
MODDVL	   341	   341#	   444
MODDVU	   342	   342#	   445
MODLNK	   162#	   408
MODXX1	  5787#
MODXX2	  5808#
MONCTL	   461#	   860	   931	   932	   938	   939
MONFLG	   460#	   805
MONTEN	   462#	   810	   846	   875
MPVU	   395#
NONEX	    51#	  5842	  6051	  6080	  6109	  6138	  6167	  6196	  6225	  6254
NOPNT	   131#
NXMU	   395#
OPRSEL	   145#
OPTIME	   563#
P	   188	   189	   190	   191	   395#	   483
PAG	   395#
PALERS	   137#
PARCLR	   395#
PARDIS	   395#
PAREA1	    66#	   439
PAREA2	    67#	   440
PAREA3	    68#	   437
PAREA4	    69#	   438
PAREA5	    70#	   450
PAREA6	    71#	   451
PAREA7	   450#
PAREA8	   451#
PARENB	   395#
PARU	   395#
PASCNT	   465#	   839
PDISF	   560#
PDLOVU	   395#                                                                                                            SEQ 0165
PERIOD	   590#
PFSTRT	   417#
PGMEND	    74#	  6628
PGMNAM	   442	   892#	   911
PI	   852	   928	  1439	  1842	  1857	  1858	  1864	  1865	  1881	  1882	  1883	  1889	  1890	  1891
	  1897	  1898	  1899	  1905	  1906	  1908	  1917	  1919	  1970	  1972	  1973	  1982	  1984	  1985
	  1993	  1995	  1996	  1997	  2005	  2007	  2008	  2009	  2017	  2019	  2020	  2028	  2030	  2031
	  2032	  2040	  2042	  2043	  2051	  2053	  2054	  2055	  2063	  2065	  2066	  2067	  2075	  2077
	  2078	  2086	  2088	  2089	  2090	  2103	  2105	  2106	  2114	  2116	  2117	  2118	  2126	  2128
	  2129	  2130	  2138	  2140	  2141	  2149	  2151	  2152	  2153	  2161	  2163	  2164	  2172	  2174
	  2175	  2176	  2184	  2186	  2187	  2188	  2196	  2198	  2199	  2207	  2209	  2210	  2211	  2220
	  2222	  2223	  2231	  2233	  2234	  2235	  2243	  2245	  2246	  2247	  2255	  2257	  2258	  2266
	  2268	  2269	  2270	  2278	  2280	  2281	  2289	  2291	  2292	  2293	  2301	  2303	  2304	  2305
	  2313	  2315	  2316	  2324	  2326	  2327	  2328	  2336	  2338	  2339	  2347	  2349	  2350	  2351
	  2359	  2361	  2362	  2363	  2371	  2373	  2374	  2382	  2384	  2385	  2386	  2394	  2398	  2400
	  2401	  2402	  2411	  2413	  2415	  2423	  2425	  2427	  2435	  2437	  2438	  2439	  2447	  2449
	  2450	  2451	  2459	  2461	  2462	  2470	  2472	  2473	  2474	  2497	  2499	  2500	  2510	  2512
	  2513	  2523	  2525	  2526	  2536	  2538	  2539	  2549	  2551	  2552	  2562	  2564	  2565	  2575
	  2577	  2578	  2602	  2604	  2605	  2615	  2617	  2618	  2628	  2630	  2631	  2641	  2643	  2644
	  2654	  2656	  2657	  2667	  2669	  2670	  2680	  2682	  2683	  2707	  2709	  2711	  2723	  2725
	  2727	  2739	  2741	  2743	  2755	  2757	  2759	  2771	  2773	  2775	  2787	  2789	  2791	  2803
	  2805	  2807	  2835	  2838	  2853	  2856	  2865	  2868	  2877	  2879	  2888	  2890	  2899	  2901
	  2911	  2913	  2923	  2925	  2935	  2937	  2947	  2949	  2966	  2969	  2979	  2982	  2983	  3008
	  3010	  3011	  3012	  3025	  3027	  3028	  3029	  3042	  3044	  3045	  3046	  3059	  3061	  3062
	  3063	  3076	  3078	  3079	  3080	  3093	  3095	  3096	  3097	  3110	  3112	  3113	  3114	  3150
	  3152	  3154	  3167	  3169	  3171	  3184	  3186	  3188	  3201	  3203	  3205	  3218	  3220	  3222
	  3235	  3237	  3239	  3252	  3254	  3256	  3289	  3291	  3293	  3306	  3308	  3310	  3323	  3325
	  3327	  3340	  3342	  3344	  3357	  3359	  3361	  3374	  3376	  3378	  3391	  3393	  3395	  3431
	  3433	  3435	  3449	  3451	  3453	  3467	  3469	  3471	  3485	  3487	  3489	  3503	  3505	  3507
	  3521	  3523	  3525	  3546	  3548	  3549	  3559	  3561	  3562	  3576	  3578	  3579	  3589	  3591
	  3592	  3602	  3604	  3605	  3615	  3617	  3618	  3628	  3630	  3631	  3639	  3660	  3663	  3674
	  3677	  3692	  3695	  3706	  3709	  3720	  3723	  3734	  3737	  3748	  3751	  3761	  3781	  3784
	  3795	  3798	  3813	  3816	  3827	  3830	  3841	  3844	  3855	  3858	  3867	  3886	  3889	  3899
	  3902	  3916	  3919	  3929	  3932	  3942	  3945	  3955	  3958	  3968	  3971	  3980	  3996	  3998
	  3999	  4001	  4011	  4013	  4014	  4016	  4030	  4032	  4033	  4035	  4045	  4047	  4048	  4050
	  4060	  4062	  4063	  4065	  4075	  4077	  4078	  4080	  4090	  4092	  4093	  4095	  4103	  4126
	  4128	  4129	  4143	  4145	  4146	  4160	  4162	  4163	  4177	  4179	  4180	  4194	  4196	  4197
	  4211	  4213	  4214	  4228	  4230	  4231	  4254	  4256	  4257	  4259	  4272	  4274	  4275	  4277
	  4286	  4288	  4289	  4291	  4300	  4302	  4303	  4305	  4314	  4316	  4317	  4319	  4328	  4330
	  4331	  4333	  4341	  4356	  4358	  4359	  4369	  4371	  4372	  4382	  4384	  4385	  4395	  4397
	  4398	  4408	  4410	  4411	  4421	  4423	  4424	  4434	  4436	  4437	  4471	  4477	  4488	  4494
	  4505	  4511	  4522	  4528	  4539	  4545	  4556	  4562	  4573	  4579	  4591	  4597	  4598	  4607
	  4613	  4614	  4627	  4633	  4634	  4643	  4649	  4650	  4659	  4665	  4666	  4675	  4681	  4682
	  4691	  4697	  4698	  4706	  4712	  4715	  4716	  4732	  4740	  4750	  4758	  4771	  4779	  4796
	  4803	  4854	  4865	  4868	  4880	  4883	  4895	  4898	  4911	  4914	  4933	  4935	  4948	  4950
	  4963	  4965	  4968	  4978	  4981	  4983	  4993	  5002	  5018	  5026	  5037	  5039	  5052	  5060
	  5062	  5075	  5084	  5088	  5097	  5102	  5115	  5120	  5130	  5135	  5140	  5142	  5152	  5157
	  5169	  5173	  5178	  5187	  5191	  5192	  5201	  5205	  5206	  5214	  5219	  5220	  5229	  5234
	  5245	  5252	  5254	  5270	  5274	  5282	  5286	  5296	  5301	  5317	  5321	  5329	  5436	  5462
	  5483	  5515	  5538	  5559	  5577	  5597	  5618	  5623	  5659	  5679	  5699	  5719	  5739	  5762
	  5773	  5790	  5810	  5825	  5830	  5864	  5885	  5903	  5919	  5935	  5952	  5968	  6033	  6039
	  6062	  6068	  6091	  6097	  6120	  6126	  6149	  6155	  6178	  6184	  6207	  6213	  6236	  6242
	  6286	  6294	  6312	  6350	  6380	  6402	  6424	  6425                                                     SEQ 0166
PI7SYS	   935#	   935	  2098#	  2098	  3569#	  3569	  3685#	  3685	  3806#	  3806	  3910#	  3910	  4023#	  4023
	  4266#	  4266	  4621#	  4621	  4766#	  4766
PICHN1	   395#
PICHN2	   395#
PICHN3	   395#
PICHN4	   395#
PICHN5	   395#
PICHN6	   395#
PICHN7	   395#
PICHNA	   395#
PICLR	   395#
PIG0	    38#	  4715	  4740	  4758	  4779	  4803	  4868	  4883	  4898	  4914	  4935	  4950	  4965	  4981
	  5002	  5026
PIH1	    39#
PIH2	    40#
PIH3	    41#
PIH4	    42#
PIH5	    43#
PIH6	    44#
PIH7	    45#
PIOCLR	    47#	  1996	  2031	  2054	  2089	  2117	  2152	  2175	  2210	  2234	  2269	  2292	  2327	  2350
	  2385	  2426
PIOFF	   395#
PION	   395#
PIOSET	    46#	  1972	  1984	  1995	  2007	  2019	  2030	  2042	  2053	  2065	  2077	  2088	  2105	  2116
	  2128	  2140	  2151	  2163	  2174	  2186	  2198	  2209	  2222	  2233	  2245	  2257	  2268	  2280
	  2291	  2303	  2315	  2326	  2338	  2349	  2361	  2373	  2384	  2400	  2413	  2425	  4358	  4371
	  4384	  4397	  4410	  4423	  4436	  4597	  4613	  4633	  4649	  4665	  4681	  4697	  5252	  5773
	  5830	  6039	  6068	  6097	  6126	  6155	  6184	  6213	  6242
PIREQ	    48#	  2604	  2617	  2630	  2643	  2656	  2669	  2682	  2709	  2725	  2741	  2757	  2773	  2789
	  2805	  2838	  2856	  2868	  2879	  2890	  2901	  2913	  2925	  2937	  2949	  2969	  2982	  3010
	  3027	  3044	  3061	  3078	  3095	  3112	  3152	  3169	  3186	  3203	  3220	  3237	  3254	  3291
	  3293	  3308	  3310	  3325	  3327	  3342	  3344	  3359	  3361	  3376	  3378	  3393	  3395	  3433
	  3435	  3451	  3453	  3469	  3471	  3487	  3489	  3505	  3507	  3523	  3525	  3548	  3561	  3578
	  3591	  3604	  3617	  3630	  3663	  3677	  3695	  3709	  3723	  3737	  3751	  3784	  3798	  3816
	  3830	  3844	  3858	  3889	  3902	  3919	  3932	  3945	  3958	  3971	  3998	  4013	  4032	  4047
	  4062	  4077	  4092	  4128	  4145	  4162	  4179	  4196	  4213	  4230	  4256	  4257	  4274	  4275
	  4288	  4289	  4302	  4303	  4316	  4317	  4330	  4331	  5039	  5062	  5088	  5102	  5120	  5135
	  5142	  5157	  5173	  5191	  5205	  5219	  5234	  5254	  5274	  5286	  5301	  5329	  5623	  6294
	  6425
PISAV	   928#	   928
PLIST	   629#	   629
PLISTE	   629	   631#	   715
PLISTS	   630#
PLUS	   595#
PNTENB	   559#
PNTEXT	   438#
PNTFLG	   558#
PNTINH	   561#
PNTLPT	   132#
PNTNAM	   437#
PNTSPC	   562#
POINTR	  6351	  6376#                                                                                                    SEQ 0167
PROT	    50#	  5837	  5848	  6046	  6075	  6104	  6133	  6162	  6191	  6220	  6249
PVPAGI	   656#
PWFCLR	   395#
QUEST	   601#
RADIX	   604#
RADLSC	   606#
RADLSP	   605#
RANDBS	   439#
REENTR	   419#
RELIAB	   139#
REPT	   395#
REPT1	   395#
REPTU	   517#
REQSET	   395#
RESRT1	   494#
RESRT2	   495#
RETURN	   426#	   848	   855	   876
RSTART	   128#
RTP	   599#
RUNFLG	   466#
SADR1	    55#	   415
SADR10	    64#	   431
SADR11	    65#	   432
SADR2	    56#	   417
SADR3	    57#	   419
SADR4	    58#
SADR5	    59#	   480
SADR6	    60#	   481
SADR7	    61#	   428
SADR8	    62#	   429
SADR9	    63#	   430
SAV40	   919	  5984	  5985	  5996#
SAV41	   921	  5987	  5988	  5997#
SAV42	   923	  5990	  5991	  5998#
SAV43	   925	  5993	  5994	  5999#
SBINIT	   201	   425#
SCOPE	   518#
SFSTRT	   415#
SLASH	   602#
SPACE	   591#
SRTDDT	   421#
ST	   918#
START	    55	    56	    57	    58	    59	    60	    61	    62	    63	    64	    65	   409	   808	   817
	   832	   836	   905#
START1	   428#
START2	   429#
START3	   430#
START4	   431#
START5	   432#
STARTA	   424	   834	   845	   854	   861	   871	   910	   917#
SUBLNK	   163#	   425
SWTEXR	   440#
SYSEXR	   413#                                                                                                            SEQ 0168
TAB	   592#
TESTPC	   467#
TICKS	   470#
TOTALS	   129#
TTNBRF	   650#
TTYFIL	   566#
TTYSPD	   567#
TXTINH	   140#
UMIOT	    52#	  5379	  5385	  5389	  5396	  5398	  5411	  5438	  5464	  5485	  5517	  5562	  5564	  5599
	  5620	  5701	  5835	  5866	  5887	  5905	  5921	  5937	  5954	  6293	  6382	  6404
USER	   457#	   801	   804	   806	   807	   841	   905#	   905	   908	   909
USERF	    34#	   395#	   803	   907	  5423	  5438	  5451	  5464	  5475	  5485	  5490	  5517	  5520	  5542
	  5561	  5562	  5579	  5599	  5620	  5625	  5643	  5646	  5661	  5681	  5701	  5802	  5814	  5835
	  5866	  5877	  5887	  5893	  5905	  5911	  5921	  5927	  5937	  5943	  5954	  5960	  5970	  5975
	  6277	  6293	  6382	  6393	  6404
USMOD	   941#	   941	  5357#	  5357
USRASB	   447
USRCRF	   576#
USRLFF	   575#
UUODIS	   529#
UUOEXT	   485#
UUORTN	   486#
UUOSKP	   483#
WW	  4113#	  4135	  4136	  4136#	  4152	  4153	  4153#	  4169	  4170	  4170#	  4186	  4187	  4187#	  4203
	  4204	  4204#	  4220	  4221	  4221#	  4237	  4238	  4238#
X	  6006#	  6036	  6057	  6057#	  6065	  6086	  6086#	  6094	  6115	  6115#	  6123	  6144	  6144#	  6152
	  6173	  6173#	  6181	  6202	  6202#	  6210	  6231	  6231#	  6239	  6260	  6260#
YY	  2998#	  3012	  3019	  3019#	  3029	  3036	  3036#	  3046	  3053	  3053#	  3063	  3070	  3070#	  3080
	  3087	  3087#	  3097	  3104	  3104#	  3114	  3121	  3121#	  3140#	  3154	  3161	  3161#	  3171	  3178
	  3178#	  3188	  3195	  3195#	  3205	  3212	  3212#	  3222	  3229	  3229#	  3239	  3246	  3246#	  3256
	  3263	  3263#	  3421#	  3435	  3443	  3443#	  3453	  3461	  3461#	  3471	  3479	  3479#	  3489	  3497
	  3497#	  3507	  3515	  3515#	  3525	  3533	  3533#	  4115#	  4129	  4135	  4135#	  4146	  4152	  4152#
	  4163	  4169	  4169#	  4180	  4186	  4186#	  4197	  4203	  4203#	  4214	  4220	  4220#	  4231	  4237
	  4237#	  4345#	  4359	  4365	  4365#	  4372	  4378	  4378#	  4385	  4391	  4391#	  4398	  4404	  4404#
	  4411	  4417	  4417#	  4424	  4430	  4430#	  4437	  4443	  4443#	  4459#	  4477	  4483	  4483#	  4494
	  4500	  4500#	  4511	  4517	  4517#	  4528	  4534	  4534#	  4545	  4551	  4551#	  4562	  4568	  4568#
	  4579	  4585	  4585#
ZZ	  1079#	  1092	  1098	  1098#	  1105	  1111	  1111#	  1118	  1124	  1124#	  1131	  1137	  1137#	  1144
	  1150	  1150#	  1157	  1163	  1163#	  1170	  1176	  1176#	  1183	  1189	  1189#	  1196	  1202	  1202#
	  1209	  1215	  1215#	  2699#	  2709	  2718	  2718#	  2725	  2734	  2734#	  2741	  2750	  2750#	  2757
	  2766	  2766#	  2773	  2782	  2782#	  2789	  2798	  2798#	  2805	  2814	  2814#	  2997#	  3010	  3018
	  3018#	  3027	  3035	  3035#	  3044	  3052	  3052#	  3061	  3069	  3069#	  3078	  3086	  3086#	  3095
	  3103	  3103#	  3112	  3120	  3120#	  3139#	  3152	  3160	  3160#	  3169	  3177	  3177#	  3186	  3194
	  3194#	  3203	  3211	  3211#	  3220	  3228	  3228#	  3237	  3245	  3245#	  3254	  3262	  3262#	  3280#
	  3291	  3293	  3300	  3300#	  3308	  3310	  3317	  3317#	  3325	  3327	  3334	  3334#	  3342	  3344
	  3351	  3351#	  3359	  3361	  3368	  3368#	  3376	  3378	  3385	  3385#	  3393	  3395	  3402	  3402#
	  3420#	  3433	  3442	  3442#	  3451	  3460	  3460#	  3469	  3478	  3478#	  3487	  3496	  3496#	  3505
	  3514	  3514#	  3523	  3532	  3532#	  4114#	  4128	  4137	  4137#	  4145	  4154	  4154#	  4162	  4171
	  4171#	  4179	  4188	  4188#	  4196	  4205	  4205#	  4213	  4222	  4222#	  4230	  4239	  4239#	  4344#
	  4358	  4364	  4364#	  4371	  4377	  4377#	  4384	  4390	  4390#	  4397	  4403	  4403#	  4410	  4416
	  4416#	  4423	  4429	  4429#	  4436	  4442	  4442#	  4458#	  4476	  4482	  4482#	  4493	  4499	  4499#
	  4510	  4516	  4516#	  4527	  4533	  4533#	  4544	  4550	  4550#	  4561	  4567	  4567#	  4578	  4584
	  4584#                                                                                                            SEQ 0169
$$420	   775#
$$421	   776#
$$422	   777#
$$423	   778#
$$424	   779#
$$425	   780#
$$426	   781#
$$427	   782#
$$430	   783#
$$431	   784#
$$432	   785#
$$433	   786#
$$434	   787#
$$435	   788#
$$436	   789#
$$437	   790#
$$500	   793#
$$501	   794#
$$502	   795#
$$503	   796#
$$BEGI	   761#
$$DTE0	   827	   866#
$$DTE1	   828	   868#
$$DTE2	   829	   882#
$$DTE3	   830	   884#
$$LOC	   758#	   797
$$MUUO	   681#
$$OUTE	   687#
$$STAR	   761	   762	   801#
$$TAX1	   699#
$$TAX2	   700#
$$TOGG	   693#
$$UUO	   670#
$ACC0	   508#
$BEGEN	   770#
$BEND1	   478#
$BEND2	   479#
$CHRIN	   569#
$CRLF	   571#
$DDT	   739#
$DEVCH	   395#
$DSKUP	   448#
$DTCHR	   751#
$DTCI	   745#
$DTCLK	   744#	   825
$DTCMD	   748#	   863	   879
$DTF11	   747#
$DTFLG	   743#	   824	   864	   869	   880	   885
$DTMTD	   752#
$DTMTI	   753#
$DTOPR	   750#	   826
$DTSEQ	   749#
$DTSWR	   755#                                                                                                            SEQ 0170
$DTT11	   746#
$DVCH1	   395#
$DVOFF	   565#
$EMODE	   446#
$ENDFX	   715#	   716
$FFF	   573#
$IBUF	   621#
$INEXT	   623#
$INNM	   622#
$ITRHL	   489#
$ITRX1	   490#
$LPAPE	  6616
$MMAP	   449#
$MODVL	   444#
$MODVU	   445#
$OBUF	   612#
$ONETM	   472#
$OUTEX	   614#
$OUTNM	   613#
$PAPER	   395
$PARER	   496#
$PNAME	   442#
$PSHER	   500#
$PVER	   443#
$RSRTX	   492#
$RSRTY	   493#
$SPAG1	   512#
$SPB1	   835	   841#
$SPBEN	   770	   839#
$SPBEX	   842	   850#
$SPBKL	   851	   857#
$SPBUS	   844#
$SPEC	   767	   834#
$SPKLD	   858	   875#
$START	   409#
$STD	   738#	   765#
$STKIL	   810#
$STKL	   819#
$STL	   740#
$STM	   741#	   767#
$SVAPR	   510#
$SVPAG	   511#
$SVPI	   509#
$SVUPC	   515#
$SVUUO	   514#
$TABF	   572#
$TTCHR	   568#
$TWCNT	   564#
$TYPNB	   570#
$UMODE	   447#
$UORTX	   487#
$USRHL	   491#
$UUOER	   488#	   529                                                                                                     SEQ 0171
$VTF	   574#
%ACTFL	   521#
%ACTUL	   522#
%COREC	   520#
%CORFL	   519#
%DISCR	   523#
%ERHI1	   662#
%ERHI2	   663#
%ERHI3	   664#
.JB41	   395#
.JBAPR	   395#
.JBCNI	   395#
.JBDDT	   395#
.JBFF	   395#
.JBOPC	   395#
.JBREL	   395#
.JBREN	   395#
.JBSA	   395#
.JBSYM	   395#
.JBTPC	   395#
.JBUSY	   395#
.JBUUO	   395#
.JBVER	   395#
BLURB	  1931#	  2487	  2592	  2845	  2957	  3125	  3274	  3413	  3650	  3771	  3877	  4723	  4787	  4857
	  4925	  5010                                                                                                     SEQ 0172
CFLUSH	   312#
CHANEL	    97#	  2097	  3568	  3684	  3805	  3909	  4022	  4265	  4620	  4765
CINVAL	   311#
CLEAN	   113#	  1914	  1967	  1980	  1991	  2003	  2015	  2026	  2038	  2049	  2061	  2073	  2084	  2101
	  2112	  2124	  2136	  2147	  2159	  2170	  2182	  2194	  2205	  2218	  2229	  2241	  2253	  2264
	  2276	  2287	  2299	  2311	  2322	  2334	  2345	  2357	  2369	  2380	  2392	  2396	  2408	  2421
	  2433	  2445	  2457	  2468	  2495	  2508	  2521	  2534	  2547	  2560	  2573	  2600	  2613	  2626
	  2639	  2652	  2665	  2678	  2705	  2721	  2737	  2753	  2769	  2785	  2801	  2832	  2851	  2863
	  2875	  2886	  2897	  2909	  2921	  2933	  2945	  2963	  2977	  3006	  3023	  3040	  3057	  3074
	  3091	  3108	  3148	  3165	  3182	  3199	  3216	  3233	  3250	  3287	  3304	  3321	  3338	  3355
	  3372	  3389	  3429	  3447	  3465	  3483	  3501	  3519	  3544	  3557	  3574	  3587	  3600	  3613
	  3626	  3637	  3658	  3672	  3690	  3704	  3718	  3732	  3746	  3759	  3779	  3793	  3811	  3825
	  3839	  3853	  3865	  3884	  3897	  3914	  3927	  3940	  3953	  3966	  3978	  3994	  4009	  4028
	  4043	  4058	  4073	  4088	  4101	  4124	  4141	  4158	  4175	  4192	  4209	  4226	  4252	  4270
	  4284	  4298	  4312	  4326	  4339	  4354	  4367	  4380	  4393	  4406	  4419	  4432	  4469	  4486
	  4503	  4520	  4537	  4554	  4571	  4589	  4605	  4625	  4641	  4657	  4673	  4689	  4704	  4709
	  4730	  4748	  4769	  4793	  4852	  4863	  4878	  4893	  4909	  4931	  4946	  4961	  4976	  4991
	  5016	  5035	  5058	  5081	  5095	  5113	  5128	  5137	  5150	  5166	  5184	  5199	  5212	  5227
	  5242	  5267	  5280	  5293	  5315	  5319
CLOKOP	   306#
CPINTR	  4445#	  4473	  4490	  4507	  4524	  4541	  4558	  4575	  4593	  4609	  4629	  4645	  4661	  4677
	  4693	  4734	  4752	  4773	  4798
CWRTBI	   313#
DROPDV	   273#
ENDUUO	   319#	   477
EOPUUO	   320#	   479
ERLOOP	   364#
ERLP1	   365#
ERLP2	   366#
ERRHLT	   208#
ERROR	   373#
ERROR1	   385#
ERUUO	   363#
EXCT	  5854#	  5867	  5872	  5888	  5906	  5922	  5938	  5955
EXIT	   847
FASTPI	  4242#	  4251	  4269	  4283	  4297	  4311	  4325
FATAL	   207#
FILAC	  2816#	  2824
FRD36	   348#
FRD8	   349#
FREAD	   347#
FSELEC	   346#
GET	   191#
GO	   188#
HALT	   193#	   498	   775	   777	   778	   782	   796	   887	   915	   962	   977	   993	  1007	  1021
	  1036	  1049	  1062	  1075	  1095	  1108	  1121	  1134	  1147	  1160	  1173	  1186	  1199	  1212
	  1226	  1240	  1254	  1268	  1283	  1297	  1325	  1334	  1343	  1352	  1361	  1370	  1379	  1387
	  1395	  1403	  1414	  1422	  1429	  1436	  1445	  1453	  1462	  1471	  1480	  1489	  1498	  1506
	  1512	  1520	  1528	  1535	  1542	  1549	  1556	  1564	  1572	  1580	  1588	  1596	  1604	  1612
	  1621	  1630	  1638	  1646	  1654	  1665	  1675	  1684	  1694	  1704	  1714	  1723	  1732	  1741
	  1749	  1756	  1767	  1777	  1788	  1799	  1811	  1819	  1829	  1837	  1845	  1853	  1860	  1867
	  1877	  1885	  1893	  1901	  1910	  1923	  1976	  1987	  1999	  2011	  2022	  2034	  2045	  2057
	  2069	  2080	  2092	  2108	  2120	  2132	  2143	  2155	  2166	  2178	  2190	  2201	  2213	  2225     SEQ 0173
	  2237	  2249	  2260	  2272	  2283	  2295	  2307	  2318	  2330	  2341	  2353	  2365	  2376	  2388
	  2404	  2417	  2430	  2442	  2454	  2465	  2477	  2502	  2515	  2528	  2541	  2554	  2567	  2580
	  2607	  2620	  2633	  2646	  2659	  2672	  2685	  2714	  2730	  2746	  2762	  2778	  2794	  2810
	  2842	  2860	  2872	  2883	  2894	  2905	  2917	  2929	  2941	  2953	  2973	  2986	  3014	  3031
	  3048	  3065	  3082	  3099	  3116	  3156	  3173	  3190	  3207	  3224	  3241	  3258	  3296	  3313
	  3330	  3347	  3364	  3381	  3398	  3438	  3456	  3474	  3492	  3510	  3528	  3551	  3564	  3581
	  3594	  3607	  3620	  3633	  3666	  3680	  3698	  3712	  3726	  3740	  3754	  3787	  3801	  3819
	  3833	  3847	  3861	  3892	  3905	  3922	  3935	  3948	  3961	  3974	  4003	  4018	  4037	  4052
	  4067	  4082	  4097	  4131	  4148	  4165	  4182	  4199	  4216	  4233	  4261	  4279	  4293	  4307
	  4321	  4335	  4361	  4374	  4387	  4400	  4413	  4426	  4439	  4479	  4496	  4513	  4530	  4547
	  4564	  4581	  4600	  4616	  4636	  4652	  4668	  4684	  4700	  4719	  4744	  4762	  4783	  4807
	  4814	  4821	  4828	  4835	  4842	  4849	  4874	  4889	  4905	  4921	  4942	  4957	  4972	  4987
	  5007	  5032	  5055	  5078	  5092	  5106	  5124	  5146	  5162	  5180	  5195	  5208	  5223	  5238
	  5257	  5263	  5276	  5288	  5306	  5312	  5332	  5344	  5348	  5353	  5381	  5391	  5400	  5407
	  5414	  5665	  6333	  6343	  6427
HOLD	  5371#	  5424	  5440	  5452	  5476	  5491	  5521	  5543	  5565	  5585	  5606	  5626	  5647	  5667
	  5687	  5707	  5727	  5747	  5777	  5796	  5803	  5818	  5838	  5843	  5849	  5878	  5894	  5912
	  5928	  5944	  5961	  5976	  6047	  6052	  6076	  6081	  6105	  6110	  6134	  6139	  6163	  6168
	  6192	  6197	  6221	  6226	  6250	  6255	  6272	  6278	  6295	  6299	  6321	  6358	  6363	  6369
	  6388	  6394	  6410
IOBRQ	  4450#	  4588	  4604	  4624	  4640	  4656	  4672	  4688
JEN	   195#	  5685
JENOK	  3983#	  3992	  4007	  4026	  4041	  4056	  4071	  4086
JRSTF	   194#
LAC	  6008#	  6030	  6059	  6088	  6117	  6146	  6175	  6204	  6233
MAPADR	   329#
MAPCNK	   330#
MAPMEM	   326#
MAPPNT	   332#
MAPSET	   331#
MEMSEG	   328#
MEMZRO	   327#
MODPCP	   339#
MODPCU	   338#
MTROP	   307#
MULPIR	  3869#	  3883	  3896	  3913	  3926	  3939	  3952	  3965
NAME	     9#	    11
NOTPIR	  2481#	  2494	  2507	  2520	  2533	  2546	  2559	  2572
NOTREQ	  2585#	  2599	  2612	  2625	  2638	  2651	  2664	  2677
OFFPIR	  3131#	  3147	  3164	  3181	  3198	  3215	  3232	  3249
ONEPIH	  4106#	  4123	  4140	  4157	  4174	  4191	  4208	  4225
OUTSTR	   912
PBELL	   282#
PCRL	   276#
PCRL2	   280#
PCRL2F	   281#
PCRLF	   277#
PFORCE	   284#
PGMINT	   201#
PIADDR	  3642#	  3656	  3670	  3688	  3702	  3716	  3730	  3744
PIHCLR	  2989#	  3005	  3022	  3039	  3056	  3073	  3090	  3107
PIHOK	  3405#	  3428	  3446	  3464	  3482	  3500	  3518
PIO	  1938#	  1980	  2038	  2101	  2159	  2218	  2276	  2334                                                     SEQ 0174
PIRCLR	  2690#	  2704	  2720	  2736	  2752	  2768	  2784	  2800
PJRST	   192#
PMSG	   286#
PMSGF	   289#
PNT1	   242#
PNT11	   256#
PNT11F	   257#
PNT1F	   243#
PNT2	   244#
PNT2F	   245#
PNT3	   246#
PNT3F	   247#
PNT4	   248#
PNT4F	   249#
PNT5	   250#
PNT5F	   251#
PNT6	   252#
PNT6F	   253#
PNT7	   254#
PNT7F	   255#
PNTA	   228#
PNTADF	   259#
PNTADR	   258#
PNTAF	   229#
PNTAL	   230#
PNTALF	   231#
PNTCHF	   241#
PNTCHR	   240#
PNTCI	   238#
PNTCIF	   239#
PNTCW	   274#
PNTCWF	   275#
PNTDCF	   267#
PNTDEC	   266#
PNTDS	   268#
PNTDSF	   269#
PNTHW	   262#
PNTHWF	   263#
PNTMGN	   353#
PNTMSF	   235#
PNTMSG	   234#
PNTNM	   270#
PNTOCF	   265#
PNTOCS	   264#
PNTOCT	   260#
PNTOTF	   261#
PNTSIX	   271#
PNTSXF	   272#
PSIXL	   232#
PSIXLF	   233#
PSIXM	   236#
PSIXMF	   237#
PSP	   278#                                                                                                            SEQ 0175
PSPF	   279#
PUT	   190#
REPTUO	   367#
RETURN	   104#	   949	   966	   981	   997	  1011	  1025	  1040	  1053	  1066	  1087	  1100	  1113	  1126
	  1139	  1152	  1165	  1178	  1191	  1204	  1217	  1230	  1244	  1258	  1272	  1287	  1314
RTN	   189#	   485
S	   119#	   121	   125	   154	   156	   165	   168	   183	   184	   186	   197	   199	   203	   205
	   210	   214	   359	   361	   395	   400	   406	   433	   435	   453	   455	   473	   475	   504
	   506	   524	   526	   544	   546	   554	   556	   577	   582	   608	   610	   617	   619	   625
	   627	   633	   635	   639	   641	   646	   648	   652	   654	   658	   660	   666	   668	   671
	   673	   677	   679	   683	   685	   689	   691	   695	   697	   702	   707	   711	   713
SETPIH	  3536#	  3542	  3555	  3572	  3585	  3598	  3611	  3624
SFLAG	    89#	  1308	  4995	  5020
SIXBTZ	   295#
STOP	    81#	   960	   975	   991	  1005	  1020	  1034	  1048	  1061	  1074	  1094	  1107	  1120	  1133
	  1146	  1159	  1172	  1185	  1198	  1211	  1225	  1239	  1253	  1267	  1281	  1296	  1323	  1333
	  1341	  1350	  1359	  1368	  1377	  1385	  1393	  1402	  1412	  1421	  1427	  1435	  1443	  1452
	  1461	  1470	  1479	  1488	  1497	  1505	  1511	  1518	  1526	  1534	  1541	  1548	  1555	  1563
	  1571	  1579	  1587	  1595	  1603	  1611	  1619	  1628	  1637	  1645	  1653	  1663	  1673	  1683
	  1692	  1702	  1712	  1722	  1731	  1739	  1747	  1754	  1765	  1775	  1786	  1797	  1809	  1817
	  1827	  1835	  1844	  1852	  1859	  1866	  1875	  1884	  1892	  1900	  1909	  1921	  1974	  1986
	  1998	  2010	  2021	  2033	  2044	  2056	  2068	  2079	  2091	  2107	  2119	  2131	  2142	  2154
	  2165	  2177	  2189	  2200	  2212	  2224	  2236	  2248	  2259	  2271	  2282	  2294	  2306	  2317
	  2329	  2340	  2352	  2364	  2375	  2387	  2403	  2416	  2428	  2440	  2452	  2463	  2475	  2501
	  2514	  2527	  2540	  2553	  2566	  2579	  2606	  2619	  2632	  2645	  2658	  2671	  2684	  2713
	  2729	  2745	  2761	  2777	  2793	  2809	  2840	  2858	  2870	  2881	  2892	  2903	  2915	  2927
	  2939	  2951	  2971	  2984	  3013	  3030	  3047	  3064	  3081	  3098	  3115	  3155	  3172	  3189
	  3206	  3223	  3240	  3257	  3295	  3312	  3329	  3346	  3363	  3380	  3397	  3437	  3455	  3473
	  3491	  3509	  3527	  3550	  3563	  3580	  3593	  3606	  3619	  3632	  3665	  3679	  3697	  3711
	  3725	  3739	  3753	  3786	  3800	  3818	  3832	  3846	  3860	  3891	  3904	  3921	  3934	  3947
	  3960	  3973	  4002	  4017	  4036	  4051	  4066	  4081	  4096	  4130	  4147	  4164	  4181	  4198
	  4215	  4232	  4260	  4278	  4292	  4306	  4320	  4334	  4360	  4373	  4386	  4399	  4412	  4425
	  4438	  4478	  4495	  4512	  4529	  4546	  4563	  4580	  4599	  4615	  4635	  4651	  4667	  4683
	  4699	  4717	  4742	  4760	  4781	  4805	  4812	  4819	  4826	  4833	  4840	  4847	  4872	  4888
	  4903	  4919	  4940	  4955	  4970	  4985	  5005	  5030	  5053	  5076	  5090	  5104	  5122	  5144
	  5160	  5179	  5193	  5207	  5221	  5236	  5256	  5261	  5275	  5287	  5304	  5310	  5331	  5343
	  5347	  5352	  5380	  5390	  5399	  5406	  5413	  6332	  6342
SWITCH	   301#
TSTREQ	  3265#	  3286	  3303	  3320	  3337	  3354	  3371	  3388
TTALTM	   223#
TTICHR	   216#
TTICNV	   221#
TTIDEC	   220#
TTINO	   218#
TTIOCT	   219#
TTIYES	   217#
TTLOOK	   222#
TTSIXB	   224#
TTYINP	   225#
TWOPIR	  3764#	  3777	  3791	  3809	  3823	  3837	  3851
UMOFF	  5365#	  5418	  5446	  5465	  5470	  5495	  5508	  5525	  5531	  5547	  5569	  5589	  5610	  5651
	  5671	  5691	  5711	  5731	  5751	  5781	  6303
UMON	  5360#	  5434	  5460	  5481	  5513	  5536	  5557	  5575	  5595	  5616	  5657	  5677	  5697	  5717     SEQ 0176
	  5737	  5760	  5787	  5808	  5823	  5862	  5883	  5901	  5917	  5933	  5950	  5966	  6031	  6060